|
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: 1024 (0x400) Notes: 00_class, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00e0 | | .CONST 0x00e0 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002a | * | .CONST 0x002a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0132,0x8000,0x0000,0x002c,0xb294,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb 0015 00bf | | Action Accept_Activation 0016 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1 = .DEBUG 0x0016,0x013e,0x8000,0x0000,0x002c,0xb574,0x0000,0x0007 ; Debug Table 0x1.0x0 = 0x16,0xffff 0017 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0018 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x1 = 0x18,0xfffe 0019 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 001a 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x2 = 0x1a,0xfffd 001b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x1c,0xfffc 001d 00c7 | | Action Elaborate_Subprogram 001e 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x4 = 0x1e,0xfffb 001f 00c7 | | Action Elaborate_Subprogram 0020 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x5 = 0x20,0xfffa 0021 00c7 | | Action Elaborate_Subprogram 0022 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x6 = 0x22,0xfff9 0023 00c7 | | Action Elaborate_Subprogram 0024 029d 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call ; Debug Table 0x1.0x7 = 0x24,0xfff8 0026 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call ; Debug Table 0x1.0x8 = 0x26,0xfff7 0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x9 = 0x28,0xfff6 0029 00c7 | | Action Elaborate_Subprogram 002a BODY_0008: 002a 00bc | | Action Signal_Activated 002b 00bb | | Action Signal_Completion 002c 0000 0000 | | .BLANK 0000[0x4] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 e212 | | Load 0x1,0x12 ; Debug Table 0x2 = .DEBUG 0x0033,0x0154,0x0002,0x0000,0x002c,0xb294,0x0000,0x0004 ; Debug Table 0x2.0x0 = 0x33,0x1 0034 00ca | | Action Exit_Nullary_Function 0035 0000 0000 | | .XXX[0x3] 0037 0000 | | 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b e213 | | Load 0x1,0x13 ; Debug Table 0x3 = .DEBUG 0x003b,0x0158,0x0002,0x0000,0x002c,0xb294,0x0000,0x0009 ; Debug Table 0x3.0x0 = 0x3b,0x1 003c 00ca | | Action Exit_Nullary_Function 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 e214 | | Load 0x1,0x14 ; Debug Table 0x4 = .DEBUG 0x0043,0x015c,0x0002,0x0000,0x002c,0xb294,0x0000,0x000e ; Debug Table 0x4.0x0 = 0x43,0x1 0044 00ca | | Action Exit_Nullary_Function 0045 0000 0000 | | .XXX[0x3] 0047 0000 | | 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x004b,0x0160,0x0001,0x0000,0x002c,0xb294,0x0000,0x0013 ; Debug Table 0x5.0x0 = 0x4b,0x1 004c a212 | | Store_Unchecked 0x1,0x12 004d 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x1 = 0x4d,0x2 004e a213 | | Store_Unchecked 0x1,0x13 004f e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x2 = 0x4f,0x3 0050 a214 | | Store_Unchecked 0x1,0x14 0051 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0052 0000 0000 | | .BLANK 0000[0x6] 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 006b | k | .CONST 0x006b ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 000a | | .CONST 0x000a ; Number of locals 005b INIT_0058: 005b e001 | | Load 0x0,0x1 ; Debug Table 0x6 = .DEBUG 0x005b,0x0168,0x0002,0x0000,0x002c,0xb294,0x0000,0x0026 ; Debug Table 0x6.0x0 = 0x5b,0xffff 005c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 005d 02c7 | | Declare_Variable Any 005e e001 | | Load 0x0,0x1 005f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0060 c402 | | Store 0x2,0x2 0061 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x6.0x1 = 0x61,0xfffe 0062 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x6.0x2 = 0x62,0xfffd 0063 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x6.0x3 = 0x63,0xfffc 0064 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x4 = 0x64,0xfffb 0065 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0066 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x6.0x5 = 0x66,0xfffa 0067 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x6.0x6 = 0x67,0xfff9 0068 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x6.0x7 = 0x68,0xfff8 0069 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 006b BODY_0058: 006b e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x8 = 0x6b,0x1 006c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 006d e001 | | Load 0x0,0x1 006e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 006f e001 | | Load 0x0,0x1 0070 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0071 e001 | | Load 0x0,0x1 0072 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0073 e402 | | Load 0x2,0x2 0074 e001 | | Load 0x0,0x1 0075 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0076 c403 | | Store 0x2,0x3 0077 c404 | | Store 0x2,0x4 0078 c405 | | Store 0x2,0x5 0079 c406 | | Store 0x2,0x6 007a e002 | | Load 0x0,0x2 ; Debug Table 0x6.0x9 = 0x7a,0x2 007b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 007c e002 | | Load 0x0,0x2 007d 1b0f | | Execute Package,Field_Read,Field_Number 0xf 007e e002 | | Load 0x0,0x2 007f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0080 e406 | | Load 0x2,0x6 0081 e002 | | Load 0x0,0x2 0082 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0083 c407 | | Store 0x2,0x7 0084 c408 | | Store 0x2,0x8 0085 005a | Z | Store_Top Discrete,At_Offset_2 0086 840a | | Call 0x2,0xa ; Debug Table 0x6.0xa = 0x86,0x3 0087 4831 |H1 | Short_Literal 0x31 0088 0257 | W | Execute Discrete,Raise 0089 0000 0000 | | .BLANK 0000[0x7] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x0093,0x0180,0x0002,0x0000,0x002c,0xb574,0x0000,0x005b ; Debug Table 0x7.0x0 = 0x93,0x1 0094 01d9 | | Execute Vector,Reverse_Bounds 0095 0263 | c | Execute Discrete,Above_Bound 0096 700c |p | Jump_Nonzero 0xa3 0097 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x1 = 0x97,0x2 0098 e5ff | | Load 0x2,-0x1 0099 01d7 | | Execute Vector,Field_Read 009a 0e20 | | Execute_Immediate Not_Equal,0x20 009b 6806 |h | Jump_Zero 0xa2 009c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0x9c,0x3 009d e5ff | | Load 0x2,-0x1 009e 01dc | | Execute Vector,Last 009f e5ff | | Load 0x2,-0x1 00a0 01cf | | Execute Vector,Slice_Read 00a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a2 3ff4 |? | Loop_Increasing 0x97 00a3 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x7.0x3 = 0xa3,0x4 00a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a5 0000 0000 | | .XXX[0x3] 00a7 0000 | | 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x00ab,0x018a,0x0002,0x0000,0x002c,0xb574,0x0000,0x0084 ; Debug Table 0x8.0x0 = 0xab,0x1 00ac 00e0 | | Load_Encached Standard_Cache 00ad 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ae 8215 | | Call 0x1,0x15 00af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00d3 | | .CONST 0x00d3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 e403 | | Load 0x2,0x3 ; Debug Table 0x9 = .DEBUG 0x00b3,0x018e,0x0004,0x0000,0x002c,0xb574,0x0000,0x0122 ; Debug Table 0x9.0x0 = 0xb3,0xffff 00b4 8216 | | Call 0x1,0x16 00b5 0092 00dc | | Action Push_String_Extended,0xdc ; "_" 00b7 01cc | | Execute Vector,Catenate 00b8 e404 | | Load 0x2,0x4 00b9 8216 | | Call 0x1,0x16 00ba 01cc | | Execute Vector,Catenate 00bb 0092 00dc | | Action Push_String_Extended,0xdc ; "_" 00bd 01cc | | Execute Vector,Catenate 00be e405 | | Load 0x2,0x5 00bf 8216 | | Call 0x1,0x16 00c0 01cc | | Execute Vector,Catenate 00c1 0092 00dc | | Action Push_String_Extended,0xdc ; "_" 00c3 01cc | | Execute Vector,Catenate 00c4 e407 | | Load 0x2,0x7 00c5 6012 |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00002710} 00c6 0271 | q | Execute Discrete,Times 00c7 0248 | H | Execute Discrete,Check_In_Integer 00c8 e408 | | Load 0x2,0x8 00c9 4864 |Hd | Short_Literal 0x64 00ca 0271 | q | Execute Discrete,Times 00cb 0248 | H | Execute Discrete,Check_In_Integer 00cc 0273 | s | Execute Discrete,Plus 00cd e409 | | Load 0x2,0x9 00ce 0273 | s | Execute Discrete,Plus 00cf 0248 | H | Execute Discrete,Check_In_Integer 00d0 8216 | | Call 0x1,0x16 00d1 01cc | | Execute Vector,Catenate 00d2 0007 | | Action Break_Optional 00d3 BODY_00b0: 00d3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x1 = 0xd3,0x1 00d4 00cb | | Action Pop_Block_With_Result 00d5 00ca | | Action Exit_Nullary_Function 00d6 0000 0000 | | .XXX[0x2] 00d8 0000 0000 | | .LITERAL {0x00000000, 0x00002710} 00dc ; -------------------------------------------------------------------------------------- 00dc ; STRING TABLE 00dc ; -------------------------------------------------------------------------------------- 00dc 0004 | | .STRTAB 0x0004->0x00de ; "_" 00dd 0003 | | .STREND 0x0003->0x00de 00de 5f00 |_ | .STRTAB_STRINGS 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; Debug Table 00e0 ; -------------------------------------------------------------------------------------- 00e0 0003 000a | | .CONST 0x0003,0x000a 00e2 000b 0132 | 2| .DEBUG 0x000b,0x0132,0x8000,0x0000,0x002c,0xb294,0x0000,0x0003 00ea 0016 013e | >| .DEBUG 0x0016,0x013e,0x8000,0x0000,0x002c,0xb574,0x0000,0x0007 00f2 0033 0154 | 3 T| .DEBUG 0x0033,0x0154,0x0002,0x0000,0x002c,0xb294,0x0000,0x0004 00fa 003b 0158 | ; X| .DEBUG 0x003b,0x0158,0x0002,0x0000,0x002c,0xb294,0x0000,0x0009 0102 0043 015c | C \| .DEBUG 0x0043,0x015c,0x0002,0x0000,0x002c,0xb294,0x0000,0x000e 010a 004b 0160 | K `| .DEBUG 0x004b,0x0160,0x0001,0x0000,0x002c,0xb294,0x0000,0x0013 0112 005b 0168 | [ h| .DEBUG 0x005b,0x0168,0x0002,0x0000,0x002c,0xb294,0x0000,0x0026 011a 0093 0180 | | .DEBUG 0x0093,0x0180,0x0002,0x0000,0x002c,0xb574,0x0000,0x005b 0122 00ab 018a | | .DEBUG 0x00ab,0x018a,0x0002,0x0000,0x002c,0xb574,0x0000,0x0084 012a 00b3 018e | | .DEBUG 0x00b3,0x018e,0x0004,0x0000,0x002c,0xb574,0x0000,0x0122 0132 ; -------------------------------------------------------------------------------------- 0132 ; Debug3 Subtable 0x0 0132 ; -------------------------------------------------------------------------------------- 0132 0005 0000 | | .DBG3TAB 0x0005,0x0000 0134 000b ffff | | .CONST 0x000b,0xffff 0136 000d fffe | | .CONST 0x000d,0xfffe 0138 000f fffd | | .CONST 0x000f,0xfffd 013a 0011 fffc | | .CONST 0x0011,0xfffc 013c 0013 fffb | | .CONST 0x0013,0xfffb 013e ; -------------------------------------------------------------------------------------- 013e ; Debug3 Subtable 0x1 013e ; -------------------------------------------------------------------------------------- 013e 000a 0000 | | .DBG3TAB 0x000a,0x0000 0140 0016 ffff | | .CONST 0x0016,0xffff 0142 0018 fffe | | .CONST 0x0018,0xfffe 0144 001a fffd | | .CONST 0x001a,0xfffd 0146 001c fffc | | .CONST 0x001c,0xfffc 0148 001e fffb | | .CONST 0x001e,0xfffb 014a 0020 fffa | | .CONST 0x0020,0xfffa 014c 0022 fff9 | " | .CONST 0x0022,0xfff9 014e 0024 fff8 | $ | .CONST 0x0024,0xfff8 0150 0026 fff7 | & | .CONST 0x0026,0xfff7 0152 0028 fff6 | ( | .CONST 0x0028,0xfff6 0154 ; -------------------------------------------------------------------------------------- 0154 ; Debug3 Subtable 0x2 0154 ; -------------------------------------------------------------------------------------- 0154 0000 0001 | | .DBG3TAB 0x0000,0x0001 0156 0033 0001 | 3 | .CONST 0x0033,0x0001 0158 ; -------------------------------------------------------------------------------------- 0158 ; Debug3 Subtable 0x3 0158 ; -------------------------------------------------------------------------------------- 0158 0000 0001 | | .DBG3TAB 0x0000,0x0001 015a 003b 0001 | ; | .CONST 0x003b,0x0001 015c ; -------------------------------------------------------------------------------------- 015c ; Debug3 Subtable 0x4 015c ; -------------------------------------------------------------------------------------- 015c 0000 0001 | | .DBG3TAB 0x0000,0x0001 015e 0043 0001 | C | .CONST 0x0043,0x0001 0160 ; -------------------------------------------------------------------------------------- 0160 ; Debug3 Subtable 0x5 0160 ; -------------------------------------------------------------------------------------- 0160 0000 0003 | | .DBG3TAB 0x0000,0x0003 0162 004b 0001 | K | .CONST 0x004b,0x0001 0164 004d 0002 | M | .CONST 0x004d,0x0002 0166 004f 0003 | O | .CONST 0x004f,0x0003 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug3 Subtable 0x6 0168 ; -------------------------------------------------------------------------------------- 0168 0008 0003 | | .DBG3TAB 0x0008,0x0003 016a 005b ffff | [ | .CONST 0x005b,0xffff 016c 0061 fffe | a | .CONST 0x0061,0xfffe 016e 0062 fffd | b | .CONST 0x0062,0xfffd 0170 0063 fffc | c | .CONST 0x0063,0xfffc 0172 0064 fffb | d | .CONST 0x0064,0xfffb 0174 0066 fffa | f | .CONST 0x0066,0xfffa 0176 0067 fff9 | g | .CONST 0x0067,0xfff9 0178 0068 fff8 | h | .CONST 0x0068,0xfff8 017a 006b 0001 | k | .CONST 0x006b,0x0001 017c 007a 0002 | z | .CONST 0x007a,0x0002 017e 0086 0003 | | .CONST 0x0086,0x0003 0180 ; -------------------------------------------------------------------------------------- 0180 ; Debug3 Subtable 0x7 0180 ; -------------------------------------------------------------------------------------- 0180 0000 0004 | | .DBG3TAB 0x0000,0x0004 0182 0093 0001 | | .CONST 0x0093,0x0001 0184 0097 0002 | | .CONST 0x0097,0x0002 0186 009c 0003 | | .CONST 0x009c,0x0003 0188 00a3 0004 | | .CONST 0x00a3,0x0004 018a ; -------------------------------------------------------------------------------------- 018a ; Debug3 Subtable 0x8 018a ; -------------------------------------------------------------------------------------- 018a 0000 0001 | | .DBG3TAB 0x0000,0x0001 018c 00ab 0001 | | .CONST 0x00ab,0x0001 018e ; -------------------------------------------------------------------------------------- 018e ; Debug3 Subtable 0x9 018e ; -------------------------------------------------------------------------------------- 018e 0001 0001 | | .DBG3TAB 0x0001,0x0001 0190 00b3 ffff | | .CONST 0x00b3,0xffff 0192 00d3 0001 | | .CONST 0x00d3,0x0001 0194 0000 0000 | | .BLANK 0000[0x6c]