|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0220 | | .CONST 0x0220 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001b | | .CONST 0x001b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0007 | | .CONST 0x0007 ; Number of locals
000b INIT_0008:
000b e012 | | Load 0x0,0x12
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 02c7 | | Declare_Variable Any
000e e012 | | Load 0x0,0x12
000f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0010 a602 | | Store_Unchecked 0x3,0x2
0011 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call
0013 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
0015 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0017 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
0019 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
001b BODY_0008:
001b e5ff | | Load 0x2,-0x1
001c 8007 | | Call 0x0,0x7
001d 6805 |h | Jump_Zero 0x23
001e e5ff | | Load 0x2,-0x1
001f 8013 | | Call 0x0,0x13
0020 6802 |h | Jump_Zero 0x23
0021 8606 | | Call 0x3,0x6
0022 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0023 e5ff | | Load 0x2,-0x1
0024 8007 | | Call 0x0,0x7
0025 6815 |h | Jump_Zero 0x3b
0026 e5ff | | Load 0x2,-0x1
0027 8014 | | Call 0x0,0x14
0028 7012 |p | Jump_Nonzero 0x3b
0029 e004 | | Load 0x0,0x4
002a 180e | | Execute Package,Field_Execute,Field_Number 0xe
002b 4807 |H | Short_Literal 0x7
002c e5ff | | Load 0x2,-0x1
002d e005 | | Load 0x0,0x5
002e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
002f 0092 0177 | w| Action Push_String_Extended,0x177 ; " is not a Test Case or a Test Set."
0031 01cc | | Execute Vector,Catenate
0032 0092 0178 | x| Action Push_String_Extended,0x178 ; " Verify the Test_Cases_Or_A_Set parameter"
0034 01cc | | Execute Vector,Catenate
0035 0092 0179 | y| Action Push_String_Extended,0x179 ; " resolves to Test Cases or a Test Set."
0037 01cc | | Execute Vector,Catenate
0038 e006 | | Load 0x0,0x6
0039 1813 | | Execute Package,Field_Execute,Field_Number 0x13
003a 4505 |E | Exit_Suprogram New_Top_Offset 0x5
003b 8607 | | Call 0x3,0x7
003c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
003d 0000 0000 | | .XXX[0x3]
003f 0000 | |
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 00da | | Load_Top At_Offset_2
0044 0092 017a | z| Action Push_String_Extended,0x17a ; "'body"
0046 01cc | | Execute Vector,Catenate
0047 e002 | | Load 0x0,0x2
0048 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0049 180f | | Execute Package,Field_Execute,Field_Number 0xf
004a 0f04 | | Execute_Immediate Equal,0x4
004b 6802 |h | Jump_Zero 0x4e
004c 4801 |H | Short_Literal 0x1
004d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
004e 4800 |H | Short_Literal 0x0
004f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0059 | Y | .CONST 0x0059 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0002 | | .CONST 0x0002 ; Number of locals
0053 INIT_0050:
0053 e012 | | Load 0x0,0x12
0054 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0055 02c7 | | Declare_Variable Any
0056 e012 | | Load 0x0,0x12
0057 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0058 a802 | | Store_Unchecked 0x4,0x2
0059 BODY_0050:
0059 e004 | | Load 0x0,0x4
005a 180e | | Execute Package,Field_Execute,Field_Number 0xe
005b 4802 |H | Short_Literal 0x2
005c 0092 017b | {| Action Push_String_Extended,0x17b ; "Running the Script "
005e e9ff | | Load 0x4,-0x1
005f e005 | | Load 0x0,0x5
0060 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0061 01cc | | Execute Vector,Catenate
0062 e006 | | Load 0x0,0x6
0063 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0064 0092 017c | || Action Push_String_Extended,0x17c ; "<PROFILE>"
0066 0092 017d | }| Action Push_String_Extended,0x17d ; "$"
0068 0092 017e | ~| Action Push_String_Extended,0x17e ; "\x22"
006a e9ff | | Load 0x4,-0x1
006b e002 | | Load 0x0,0x2
006c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
006d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
006e 01cc | | Execute Vector,Catenate
006f 0092 017f | | Action Push_String_Extended,0x17f ; "."
0071 01cc | | Execute Vector,Catenate
0072 0092 017e | ~| Action Push_String_Extended,0x17e ; "\x22"
0074 01cc | | Execute Vector,Catenate
0075 e9ff | | Load 0x4,-0x1
0076 e002 | | Load 0x0,0x2
0077 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0078 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0079 01cc | | Execute Vector,Catenate
007a 0092 0180 | | Action Push_String_Extended,0x180 ; " (Apply_Coverage_Analyzer => "
007c 01cc | | Execute Vector,Catenate
007d e9fe | | Load 0x4,-0x2
007e 00e1 | | Load_Encached Boolean_Cache
007f 011c | | Execute Any,Convert_Unchecked
0080 1c01 | | Execute_Immediate Run_Utility,0x1
0081 01cc | | Execute Vector,Catenate
0082 0092 0181 | | Action Push_String_Extended,0x181 ; ")"
0084 01cc | | Execute Vector,Catenate
0085 e015 | | Load 0x0,0x15
0086 180f | | Execute Package,Field_Execute,Field_Number 0xf
0087 00d8 | | Load_Top At_Offset_0
0088 e012 | | Load 0x0,0x12
0089 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
008a e004 | | Load 0x0,0x4
008b 180e | | Execute Package,Field_Execute,Field_Number 0xe
008c 4803 |H | Short_Literal 0x3
008d 0092 0182 | | Action Push_String_Extended,0x182 ; "Script run complete"
008f e006 | | Load 0x0,0x6
0090 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0091 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0092 0000 0000 | | .BLANK 0000[0x6]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2
009c e005 | | Load 0x0,0x5
009d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
009e 0092 0183 | | Action Push_String_Extended,0x183 ; "<AUTO_GENERATE>"
00a0 01df | | Execute Vector,Equal
00a1 680b |h | Jump_Zero 0xad
00a2 00db | | Load_Top At_Offset_3
00a3 e002 | | Load 0x0,0x2
00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00a6 e002 | | Load 0x0,0x2
00a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a8 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
00a9 0092 0184 | | Action Push_String_Extended,0x184 ; "_Set"
00ab 01cc | | Execute Vector,Catenate
00ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ad 00da | | Load_Top At_Offset_2
00ae 01dd | | Execute Vector,First
00af 00db | | Load_Top At_Offset_3
00b0 01dc | | Execute Vector,Last
00b1 e9ff | | Load 0x4,-0x1
00b2 01cf | | Execute Vector,Slice_Read
00b3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00d9 | | .CONST 0x00d9 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0005 | | .CONST 0x0005 ; Number of locals
00bb INIT_00b8:
00bb 4801 |H | Short_Literal 0x1
00bc e002 | | Load 0x0,0x2
00bd 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bf e5ff | | Load 0x2,-0x1
00c0 e002 | | Load 0x0,0x2
00c1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c2 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00c3 e002 | | Load 0x0,0x2
00c4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00c6 e016 | | Load 0x0,0x16
00c7 02c7 | | Declare_Variable Any
00c8 00d8 | | Load_Top At_Offset_0
00c9 1c00 | | Execute_Immediate Run_Utility,0x0
00ca e010 | | Load 0x0,0x10
00cb 02c7 | | Declare_Variable Any
00cc 00d8 | | Load_Top At_Offset_0
00cd 1c00 | | Execute_Immediate Run_Utility,0x0
00ce e7fc | | Load 0x3,-0x4
00cf 480a |H | Short_Literal 0xa
00d0 e802 | | Load 0x4,0x2
00d1 e002 | | Load 0x0,0x2
00d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d4 8017 | | Call 0x0,0x17
00d5 0092 0185 | | Action Push_String_Extended,0x185 ; "_Script"
00d7 01cc | | Execute Vector,Catenate
00d8 0007 | | Action Break_Optional
00d9 BODY_00b8:
00d9 00d9 | | Load_Top At_Offset_1
00da 00db | | Load_Top At_Offset_3
00db e018 | | Load 0x0,0x18
00dc e802 | | Load 0x4,0x2
00dd 8019 | | Call 0x0,0x19
00de c018 | | Store 0x0,0x18
00df c803 | | Store 0x4,0x3
00e0 c804 | | Store 0x4,0x4
00e1 e00e | | Load 0x0,0xe
00e2 00da | | Load_Top At_Offset_2
00e3 e803 | | Load 0x4,0x3
00e4 4800 |H | Short_Literal 0x0
00e5 801a | | Call 0x0,0x1a
00e6 c803 | | Store 0x4,0x3
00e7 c804 | | Store 0x4,0x4
00e8 c404 | | Store 0x2,0x4
00e9 e404 | | Load 0x2,0x4
00ea 7019 |p | Jump_Nonzero 0x104
00eb 801b | | Call 0x0,0x1b
00ec 801c | | Call 0x0,0x1c
00ed 00da | | Load_Top At_Offset_2
00ee e802 | | Load 0x4,0x2
00ef e01d | | Load 0x0,0x1d
00f0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00f1 00d8 | | Load_Top At_Offset_0
00f2 8603 | | Call 0x3,0x3
00f3 6804 |h | Jump_Zero 0xf8
00f4 e7fd | | Load 0x3,-0x3
00f5 00d9 | | Load_Top At_Offset_1
00f6 8604 | | Call 0x3,0x4
00f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f8 e004 | | Load 0x0,0x4
00f9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00fa 4807 |H | Short_Literal 0x7
00fb e802 | | Load 0x4,0x2
00fc e005 | | Load 0x0,0x5
00fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00fe 0092 0186 | | Action Push_String_Extended,0x186 ; " is not coded"
0100 01cc | | Execute Vector,Catenate
0101 e006 | | Load 0x0,0x6
0102 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0103 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0104 e004 | | Load 0x0,0x4
0105 180e | | Execute Package,Field_Execute,Field_Number 0xe
0106 4807 |H | Short_Literal 0x7
0107 0092 0187 | | Action Push_String_Extended,0x187 ; "Could not open test set "
0109 e802 | | Load 0x4,0x2
010a e005 | | Load 0x0,0x5
010b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
010c 01cc | | Execute Vector,Catenate
010d e006 | | Load 0x0,0x6
010e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
010f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0133 | 3 | .CONST 0x0133 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0006 | | .CONST 0x0006 ; Number of locals
0113 INIT_0110:
0113 e002 | | Load 0x0,0x2
0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0115 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0116 02c7 | | Declare_Variable Any
0117 4801 |H | Short_Literal 0x1
0118 e002 | | Load 0x0,0x2
0119 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011b e7ff | | Load 0x3,-0x1
011c e002 | | Load 0x0,0x2
011d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
011f a802 | | Store_Unchecked 0x4,0x2
0120 00d8 | | Load_Top At_Offset_0
0121 e7fe | | Load 0x3,-0x2
0122 8605 | | Call 0x3,0x5
0123 e016 | | Load 0x0,0x16
0124 02c7 | | Declare_Variable Any
0125 00d8 | | Load_Top At_Offset_0
0126 1c00 | | Execute_Immediate Run_Utility,0x0
0127 e010 | | Load 0x0,0x10
0128 02c7 | | Declare_Variable Any
0129 00d8 | | Load_Top At_Offset_0
012a 1c00 | | Execute_Immediate Run_Utility,0x0
012b e7fc | | Load 0x3,-0x4
012c 480a |H | Short_Literal 0xa
012d e803 | | Load 0x4,0x3
012e 8017 | | Call 0x0,0x17
012f 0092 0185 | | Action Push_String_Extended,0x185 ; "_Script"
0131 01cc | | Execute Vector,Catenate
0132 0007 | | Action Break_Optional
0133 BODY_0110:
0133 00d9 | | Load_Top At_Offset_1
0134 00db | | Load_Top At_Offset_3
0135 e802 | | Load 0x4,0x2
0136 e405 | | Load 0x2,0x5
0137 e803 | | Load 0x4,0x3
0138 821b | | Call 0x1,0x1b
0139 c802 | | Store 0x4,0x2
013a c804 | | Store 0x4,0x4
013b c805 | | Store 0x4,0x5
013c e00e | | Load 0x0,0xe
013d 00da | | Load_Top At_Offset_2
013e e804 | | Load 0x4,0x4
013f 4800 |H | Short_Literal 0x0
0140 801a | | Call 0x0,0x1a
0141 c804 | | Store 0x4,0x4
0142 c805 | | Store 0x4,0x5
0143 c404 | | Store 0x2,0x4
0144 e404 | | Load 0x2,0x4
0145 701c |p | Jump_Nonzero 0x162
0146 801b | | Call 0x0,0x1b
0147 801c | | Call 0x0,0x1c
0148 00da | | Load_Top At_Offset_2
0149 e7fc | | Load 0x3,-0x4
014a 4803 |H | Short_Literal 0x3
014b e803 | | Load 0x4,0x3
014c 8017 | | Call 0x0,0x17
014d e01d | | Load 0x0,0x1d
014e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
014f 00d8 | | Load_Top At_Offset_0
0150 8603 | | Call 0x3,0x3
0151 6804 |h | Jump_Zero 0x156
0152 e7fd | | Load 0x3,-0x3
0153 00d9 | | Load_Top At_Offset_1
0154 8604 | | Call 0x3,0x4
0155 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0156 e004 | | Load 0x0,0x4
0157 180e | | Execute Package,Field_Execute,Field_Number 0xe
0158 4807 |H | Short_Literal 0x7
0159 00da | | Load_Top At_Offset_2
015a e005 | | Load 0x0,0x5
015b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
015c 0092 0186 | | Action Push_String_Extended,0x186 ; " is not coded"
015e 01cc | | Execute Vector,Catenate
015f e006 | | Load 0x0,0x6
0160 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0161 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0162 e004 | | Load 0x0,0x4
0163 180e | | Execute Package,Field_Execute,Field_Number 0xe
0164 4807 |H | Short_Literal 0x7
0165 0092 0187 | | Action Push_String_Extended,0x187 ; "Could not open test set "
0167 e803 | | Load 0x4,0x3
0168 e005 | | Load 0x0,0x5
0169 1814 | | Execute Package,Field_Execute,Field_Number 0x14
016a 01cc | | Execute Vector,Catenate
016b 0092 017f | | Action Push_String_Extended,0x17f ; "."
016d 01cc | | Execute Vector,Catenate
016e 0092 0178 | x| Action Push_String_Extended,0x178 ; " Verify the Test_Cases_Or_A_Set parameter"
0170 01cc | | Execute Vector,Catenate
0171 0092 0188 | | Action Push_String_Extended,0x188 ; " resolves to test cases."
0173 01cc | | Execute Vector,Catenate
0174 e006 | | Load 0x0,0x6
0175 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0176 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0177 ; --------------------------------------------------------------------------------------
0177 ; STRING TABLE
0177 ; --------------------------------------------------------------------------------------
0177 0026 | & | .STRTAB 0x0026->0x018a ; " is not a Test Case or a Test Set."
0178 0046 | F | .STRTAB 0x0046->0x019b ; " Verify the Test_Cases_Or_A_Set parameter"
0179 006e | n | .STRTAB 0x006e->0x01b0 ; " resolves to Test Cases or a Test Set."
017a 0092 | | .STRTAB 0x0092->0x01c3 ; "'body"
017b 0095 | | .STRTAB 0x0095->0x01c5 ; "Running the Script "
017c 00a6 | | .STRTAB 0x00a6->0x01cf ; "<PROFILE>"
017d 00ad | | .STRTAB 0x00ad->0x01d3 ; "$"
017e 00ac | | .STRTAB 0x00ac->0x01d4 ; "\x22"
017f 00ab | | .STRTAB 0x00ab->0x01d4 ; "."
0180 00aa | | .STRTAB 0x00aa->0x01d5 ; " (Apply_Coverage_Analyzer => "
0181 00c5 | | .STRTAB 0x00c5->0x01e3 ; ")"
0182 00c4 | | .STRTAB 0x00c4->0x01e4 ; "Script run complete"
0183 00d5 | | .STRTAB 0x00d5->0x01ed ; "<AUTO_GENERATE>"
0184 00e2 | | .STRTAB 0x00e2->0x01f5 ; "_Set"
0185 00e4 | | .STRTAB 0x00e4->0x01f7 ; "_Script"
0186 00e9 | | .STRTAB 0x00e9->0x01fa ; " is not coded"
0187 00f4 | | .STRTAB 0x00f4->0x0201 ; "Could not open test set "
0188 010a | | .STRTAB 0x010a->0x020d ; " resolves to test cases."
0189 0120 | | .STREND 0x0120->0x0219
018a 2069 7320 | is | .STRTAB_STRINGS
0219 0000 0000 | | .BLANK 0000[0x7]
0220 ; --------------------------------------------------------------------------------------
0220 ; Debug Table
0220 ; --------------------------------------------------------------------------------------
0220 0004 000a | | .DEBUG4 0x0004,0x000a,0x8bac,0x0000,0x0001,0x0000
0226 0000 0000 | | .BLANK 0000[0x1da]