|
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
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 002e | . | .CONST 0x002e ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0007 | | .CONST 0x0007 ; Number of locals 001b INIT_0018: 001b e002 | | Load 0x0,0x2 001c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 001d e003 | | Load 0x0,0x3 001e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 001f 8004 | | Call 0x0,0x4 0020 e005 | | Load 0x0,0x5 0021 0322 | " | Declare_Variable Record 0022 e006 | | Load 0x0,0x6 0023 0322 | " | Declare_Variable Record 0024 00d8 | | Load_Top At_Offset_0 0025 1c00 | | Execute_Immediate Run_Utility,0x0 0026 e007 | | Load 0x0,0x7 0027 0322 | " | Declare_Variable Record 0028 00d8 | | Load_Top At_Offset_0 0029 1c00 | | Execute_Immediate Run_Utility,0x0 002a 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call 002c 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 002e BODY_0018: 002e e402 | | Load 0x2,0x2 002f e002 | | Load 0x0,0x2 0030 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0031 e003 | | Load 0x0,0x3 0032 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0033 e5f7 | | Load 0x2,-0x9 0034 8008 | | Call 0x0,0x8 0035 4800 |H | Short_Literal 0x0 0036 8009 | | Call 0x0,0x9 0037 c402 | | Store 0x2,0x2 0038 e402 | | Load 0x2,0x2 0039 800a | | Call 0x0,0xa 003a e403 | | Load 0x2,0x3 003b 017d | } | Execute Record,Structure_Write 003c 00cf | | Action Mark_Auxiliary 003d 7828 |x( | Jump 0x66 003e e403 | | Load 0x2,0x3 003f 800b | | Call 0x0,0xb 0040 e404 | | Load 0x2,0x4 0041 017d | } | Execute Record,Structure_Write 0042 e404 | | Load 0x2,0x4 0043 800c | | Call 0x0,0xc 0044 e405 | | Load 0x2,0x5 0045 017d | } | Execute Record,Structure_Write 0046 4800 |H | Short_Literal 0x0 0047 e404 | | Load 0x2,0x4 0048 800d | | Call 0x0,0xd 0049 6803 |h | Jump_Zero 0x4d 004a 00db | | Load_Top At_Offset_3 004b 8406 | | Call 0x2,0x6 004c 7815 |x | Jump 0x62 004d 4800 |H | Short_Literal 0x0 004e e404 | | Load 0x2,0x4 004f 800e | | Call 0x0,0xe 0050 6804 |h | Jump_Zero 0x55 0051 e404 | | Load 0x2,0x4 0052 800f | | Call 0x0,0xf 0053 8407 | | Call 0x2,0x7 0054 780d |x | Jump 0x62 0055 e010 | | Load 0x0,0x10 0056 180e | | Execute Package,Field_Execute,Field_Number 0xe 0057 4805 |H | Short_Literal 0x5 0058 0092 014f | O| Action Push_String_Extended,0x14f ; "Unable to run Test_Case " 005a e404 | | Load 0x2,0x4 005b 800f | | Call 0x0,0xf 005c 01cc | | Execute Vector,Catenate 005d 0092 0150 | P| Action Push_String_Extended,0x150 ; " due to incompatibility between the current version and the Script" 005f 01cc | | Execute Vector,Catenate 0060 e011 | | Load 0x0,0x11 0061 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0062 e403 | | Load 0x2,0x3 0063 8012 | | Call 0x0,0x12 0064 00d1 | | Pop_Control Pop_Count_1 0065 00c9 | | Action Pop_Auxiliary_Loop 0066 e403 | | Load 0x2,0x3 0067 8013 | | Call 0x0,0x13 0068 6fd5 |o | Jump_Zero 0x3e 0069 00ce | | Action Pop_Auxiliary 006a e402 | | Load 0x2,0x2 006b 4800 |H | Short_Literal 0x0 006c 8014 | | Call 0x0,0x14 006d c402 | | Store 0x2,0x2 006e 450a |E | Exit_Suprogram New_Top_Offset 0xa 006f 0000 | | .XXX[0x1] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 007d | } | .CONST 0x007d ; Address of begin 0071 00ae | | .CONST 0x00ae ; Address of exception handler 0072 0006 | | .CONST 0x0006 ; Number of locals 0073 INIT_0070: 0073 00e1 | | Load_Encached Boolean_Cache 0074 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0075 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0077 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 0079 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 007b 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 007d BODY_0070: 007d 85f8 | | Call 0x2,-0x8 007e 480c |H | Short_Literal 0xc 007f 8604 | | Call 0x3,0x4 0080 4800 |H | Short_Literal 0x0 0081 480c |H | Short_Literal 0xc 0082 8603 | | Call 0x3,0x3 0083 85f9 | | Call 0x2,-0x7 0084 681d |h | Jump_Zero 0xa2 0085 4801 |H | Short_Literal 0x1 0086 4801 |H | Short_Literal 0x1 0087 8603 | | Call 0x3,0x3 0088 85fe | | Call 0x2,-0x2 0089 e7ff | | Load 0x3,-0x1 008a 8015 | | Call 0x0,0x15 008b 4801 |H | Short_Literal 0x1 008c a602 | | Store_Unchecked 0x3,0x2 008d 480d |H | Short_Literal 0xd 008e 8604 | | Call 0x3,0x4 008f 4800 |H | Short_Literal 0x0 0090 480d |H | Short_Literal 0xd 0091 8603 | | Call 0x3,0x3 0092 85fa | | Call 0x2,-0x6 0093 85fc | | Call 0x2,-0x4 0094 4805 |H | Short_Literal 0x5 0095 8604 | | Call 0x3,0x4 0096 4800 |H | Short_Literal 0x0 0097 4805 |H | Short_Literal 0x5 0098 8603 | | Call 0x3,0x3 0099 85fd | | Call 0x2,-0x3 009a 480e |H | Short_Literal 0xe 009b 8604 | | Call 0x3,0x4 009c 4800 |H | Short_Literal 0x0 009d 480e |H | Short_Literal 0xe 009e 8603 | | Call 0x3,0x3 009f 85fb | | Call 0x2,-0x5 00a0 8016 | | Call 0x0,0x16 00a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a2 e010 | | Load 0x0,0x10 00a3 180e | | Execute Package,Field_Execute,Field_Number 0xe 00a4 4802 |H | Short_Literal 0x2 00a5 e7ff | | Load 0x3,-0x1 00a6 8017 | | Call 0x0,0x17 00a7 8018 | | Call 0x0,0x18 00a8 0092 0151 | Q| Action Push_String_Extended,0x151 ; " not run due to failing user Pre_Condition" 00aa 01cc | | Execute Vector,Catenate 00ab e011 | | Load 0x0,0x11 00ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ae TRAP_0070: 00ae e019 | | Load 0x0,0x19 00af 010f | | Execute Exception,Equal 00b0 7003 |p | Jump_Nonzero 0xb4 00b1 e01a | | Load 0x0,0x1a 00b2 010f | | Execute Exception,Equal 00b3 680a |h | Jump_Zero 0xbe 00b4 e010 | | Load 0x0,0x10 00b5 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b6 4807 |H | Short_Literal 0x7 00b7 0092 0152 | R| Action Push_String_Extended,0x152 ; "Script Termination due to encountering halt condition" 00b9 e011 | | Load 0x0,0x11 00ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bb 8606 | | Call 0x3,0x6 00bc 00d8 | | Load_Top At_Offset_0 00bd 0101 | | Execute Exception,Reraise 00be e01b | | Load 0x0,0x1b 00bf 010f | | Execute Exception,Equal 00c0 6809 |h | Jump_Zero 0xca 00c1 e010 | | Load 0x0,0x10 00c2 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c3 4805 |H | Short_Literal 0x5 00c4 0092 0153 | S| Action Push_String_Extended,0x153 ; "Test Case is not compatibile with this script, check all direct calls" 00c6 e011 | | Load 0x0,0x11 00c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c8 8606 | | Call 0x3,0x6 00c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ca 8605 | | Call 0x3,0x5 00cb 8606 | | Call 0x3,0x6 00cc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00e8 | | .CONST 0x00e8 ; Address of begin 00d1 010c | | .CONST 0x010c ; Address of exception handler 00d2 0005 | | .CONST 0x0005 ; Number of locals 00d3 INIT_00d0: 00d3 4802 |H | Short_Literal 0x2 00d4 00db | | Load_Top At_Offset_3 00d5 801c | | Call 0x0,0x1c 00d6 e01d | | Load 0x0,0x1d 00d7 e002 | | Load 0x0,0x2 00d8 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d9 e003 | | Load 0x0,0x3 00da 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00db 00da | | Load_Top At_Offset_2 00dc 8008 | | Call 0x0,0x8 00dd 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00de e002 | | Load 0x0,0x2 00df 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e0 e003 | | Load 0x0,0x3 00e1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e2 801e | | Call 0x0,0x1e 00e3 e01f | | Load 0x0,0x1f 00e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00e5 02c7 | | Declare_Variable Any 00e6 00d8 | | Load_Top At_Offset_0 00e7 1c00 | | Execute_Immediate Run_Utility,0x0 00e8 BODY_00d0: 00e8 00d9 | | Load_Top At_Offset_1 00e9 00db | | Load_Top At_Offset_3 00ea 4800 |H | Short_Literal 0x0 00eb 8020 | | Call 0x0,0x20 00ec 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00ed 00d8 | | Load_Top At_Offset_0 00ee 00da | | Load_Top At_Offset_2 00ef 8021 | ! | Call 0x0,0x21 00f0 c605 | | Store 0x3,0x5 00f1 4802 |H | Short_Literal 0x2 00f2 00db | | Load_Top At_Offset_3 00f3 00da | | Load_Top At_Offset_2 00f4 8022 | " | Call 0x0,0x22 00f5 e010 | | Load 0x0,0x10 00f6 180e | | Execute Package,Field_Execute,Field_Number 0xe 00f7 4806 |H | Short_Literal 0x6 00f8 0092 0154 | T| Action Push_String_Extended,0x154 ; "Test Case " 00fa e602 | | Load 0x3,0x2 00fb 01cc | | Execute Vector,Catenate 00fc 0092 0155 | U| Action Push_String_Extended,0x155 ; " is not consistent with the " 00fe 01cc | | Execute Vector,Catenate 00ff 0092 0156 | V| Action Push_String_Extended,0x156 ; "Test_Set version, but is compatibile with the Script" 0101 01cc | | Execute Vector,Catenate 0102 e011 | | Load 0x0,0x11 0103 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0104 00d9 | | Load_Top At_Offset_1 0105 8023 | # | Call 0x0,0x23 0106 8406 | | Call 0x2,0x6 0107 00d9 | | Load_Top At_Offset_1 0108 4800 |H | Short_Literal 0x0 0109 8024 | $ | Call 0x0,0x24 010a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 010b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010c TRAP_00d0: 010c e025 | % | Load 0x0,0x25 010d 010f | | Execute Exception,Equal 010e 6805 |h | Jump_Zero 0x114 010f 00da | | Load_Top At_Offset_2 0110 4800 |H | Short_Literal 0x0 0111 8024 | $ | Call 0x0,0x24 0112 0033 | 3 | Store_Top Heap_Access,At_Offset_3 0113 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0114 0100 | | Execute Exception,Raise 0115 0000 0000 | | .XXX[0x3] 0117 0000 | | 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00db | | Load_Top At_Offset_3 011c 4801 |H | Short_Literal 0x1 011d e7ff | | Load 0x3,-0x1 011e e9ff | | Load 0x4,-0x1 011f 8026 | & | Call 0x0,0x26 0120 8018 | | Call 0x0,0x18 0121 e027 | ' | Load 0x0,0x27 0122 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0123 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0124 0000 0000 | | .BLANK 0000[0x4] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b e7ff | | Load 0x3,-0x1 012c 00db | | Load_Top At_Offset_3 012d 8028 | ( | Call 0x0,0x28 012e 8029 | ) | Call 0x0,0x29 012f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 e010 | | Load 0x0,0x10 0134 180e | | Execute Package,Field_Execute,Field_Number 0xe 0135 4805 |H | Short_Literal 0x5 0136 0092 0157 | W| Action Push_String_Extended,0x157 ; "Exception raised by Test_Case support routines " 0138 4800 |H | Short_Literal 0x0 0139 4801 |H | Short_Literal 0x1 013a e02a | * | Load 0x0,0x2a 013b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 013c 01cc | | Execute Vector,Catenate 013d 0092 0158 | X| Action Push_String_Extended,0x158 ; " " 013f 01cc | | Execute Vector,Catenate 0140 4800 |H | Short_Literal 0x0 0141 4801 |H | Short_Literal 0x1 0142 e02a | * | Load 0x0,0x2a 0143 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0144 01cc | | Execute Vector,Catenate 0145 e011 | | Load 0x0,0x11 0146 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0147 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b e602 | | Load 0x3,0x2 014c 6801 |h | Jump_Zero 0x14e 014d 8016 | | Call 0x0,0x16 014e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 014f ; -------------------------------------------------------------------------------------- 014f ; STRING TABLE 014f ; -------------------------------------------------------------------------------------- 014f 0016 | | .STRTAB 0x0016->0x015a ; "Unable to run Test_Case " 0150 002c | , | .STRTAB 0x002c->0x0166 ; " due to incompatibility between the current version and the Script" 0151 006c | l | .STRTAB 0x006c->0x0187 ; " not run due to failing user Pre_Condition" 0152 0094 | | .STRTAB 0x0094->0x019c ; "Script Termination due to encountering halt condition" 0153 00c7 | | .STRTAB 0x00c7->0x01b6 ; "Test Case is not compatibile with this script, check all direct calls" 0154 010a | | .STRTAB 0x010a->0x01d9 ; "Test Case " 0155 0112 | | .STRTAB 0x0112->0x01de ; " is not consistent with the " 0156 012c | , | .STRTAB 0x012c->0x01ec ; "Test_Set version, but is compatibile with the Script" 0157 015e | ^ | .STRTAB 0x015e->0x0206 ; "Exception raised by Test_Case support routines " 0158 018b | | .STRTAB 0x018b->0x021d ; " " 0159 018b | | .STREND 0x018b->0x021e 015a 556e 6162 |Unab| .STRTAB_STRINGS 021f 0000 | | .XXX[0x1] 0220 ; -------------------------------------------------------------------------------------- 0220 ; Debug Table 0220 ; -------------------------------------------------------------------------------------- 0220 0004 000a | | .DEBUG4 0x0004,0x000a,0x8280,0x0000,0x0001,0x0000 0226 0000 0000 | | .BLANK 0000[0x1da]