|
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, 580b_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 580b |X | .CONST 0x580b ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00f8 | | .CONST 0x00f8 ; 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 0019 | | .CONST 0x0019 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x012a,0xc000,0x0000,0x0038,0xc796,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xc,0xfffe 000e 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xe,0xfffd 0010 00bf | | Action Accept_Activation 0011 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x0011,0x0132,0xc000,0x0000,0x0038,0xc876,0x0000,0x0009 ; Debug Table 0x1.0x0 = 0x11,0xffff 0013 029d 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call ; Debug Table 0x1.0x1 = 0x13,0xfffe 0015 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x2 = 0x15,0xfffd 0016 00c7 | | Action Elaborate_Subprogram 0017 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x3 = 0x17,0xfffc 0018 00c7 | | Action Elaborate_Subprogram 0019 BODY_0008: 0019 00bc | | Action Signal_Activated 001a 00bb | | Action Signal_Completion 001b 0000 0000 | | .BLANK 0000[0x5] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 002b | + | .CONST 0x002b ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0005 | | .CONST 0x0005 ; Number of locals 0023 INIT_0020: 0023 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2 = .DEBUG 0x0023,0x013c,0x1001,0x0000,0x0038,0xc796,0x0000,0x0019 ; Debug Table 0x2.0x0 = 0x23,0xffff 0024 00ec | | Load_Encached Diana_Tree_Cache ; Debug Table 0x2.0x1 = 0x24,0xfffe 0025 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x2 = 0x25,0xfffd 0026 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0027 02c7 | | Declare_Variable Any 0028 e5ff | | Load 0x2,-0x1 0029 c404 | | Store 0x2,0x4 002a 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x3 = 0x2a,0xfffc 002b BODY_0020: 002b 00cf | | Action Mark_Auxiliary 002c 783c |x< | Jump 0x69 002d 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x4 = 0x2d,0x2 002e e001 | | Load 0x0,0x1 002f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0030 4604 |F | Jump_Case 0x5 0031 7813 |x | Jump 0x45 ; case 0x0 0032 7807 |x | Jump 0x3a ; case 0x1 0033 7802 |x | Jump 0x36 ; case 0x2 0034 7809 |x | Jump 0x3e ; case 0x3 0035 780c |x | Jump 0x42 ; case 0x4 0036 0092 00e3 | | Action Push_String_Extended,0xe3 ; "*** " ; Debug Table 0x2.0x5 = 0x36,0x3 0038 820f | | Call 0x1,0xf 0039 780b |x | Jump 0x45 003a 0092 00e4 | | Action Push_String_Extended,0xe4 ; "!!! " ; Debug Table 0x2.0x6 = 0x3a,0x4 003c 820f | | Call 0x1,0xf 003d 7807 |x | Jump 0x45 003e 0092 00e5 | | Action Push_String_Extended,0xe5 ; "??? " ; Debug Table 0x2.0x7 = 0x3e,0x5 0040 820f | | Call 0x1,0xf 0041 7803 |x | Jump 0x45 0042 0092 00e6 | | Action Push_String_Extended,0xe6 ; "%%% " ; Debug Table 0x2.0x8 = 0x42,0x6 0044 820f | | Call 0x1,0xf 0045 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x9 = 0x45,0x8 0046 e001 | | Load 0x0,0x1 0047 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0048 a402 | | Store_Unchecked 0x2,0x2 0049 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xa = 0x49,0x9 004a 00eb | | Load_Encached Diana_Cache 004b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 004c 7004 |p | Jump_Nonzero 0x51 004d 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xb = 0x4d,0xa 004e e001 | | Load 0x0,0x1 004f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0050 8213 | | Call 0x1,0x13 0051 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0xc = 0x51,0xb 0052 00db | | Load_Top At_Offset_3 0053 e001 | | Load 0x0,0x1 0054 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0055 8214 | | Call 0x1,0x14 0056 005a | Z | Store_Top Discrete,At_Offset_2 0057 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xd = 0x57,0xc 0058 e001 | | Load 0x0,0x1 0059 1817 | | Execute Package,Field_Execute,Field_Number 0x17 005a a403 | | Store_Unchecked 0x2,0x3 005b 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0xe = 0x5b,0xd 005c 00eb | | Load_Encached Diana_Cache 005d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 005e 7002 |p | Jump_Nonzero 0x61 005f 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0xf = 0x5f,0xe 0060 8213 | | Call 0x1,0x13 0061 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x10 = 0x61,0xf 0062 6801 |h | Jump_Zero 0x64 0063 8210 | | Call 0x1,0x10 ; Debug Table 0x2.0x11 = 0x63,0x10 0064 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x12 = 0x64,0x11 0065 e001 | | Load 0x0,0x1 0066 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0067 c404 | | Store 0x2,0x4 0068 00c9 | | Action Pop_Auxiliary_Loop 0069 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x13 = 0x69,0x1 006a e001 | | Load 0x0,0x1 006b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 006c 6fc0 |o | Jump_Zero 0x2d 006d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006e 0000 0000 | | .XXX[0x2] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0078 | x | .CONST 0x0078 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0002 | | .CONST 0x0002 ; Number of locals 0073 INIT_0070: 0073 e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x0073,0x0166,0x1002,0x0000,0x0038,0xc796,0x0000,0x0023 ; Debug Table 0x3.0x0 = 0x73,0xffff 0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0075 02c7 | | Declare_Variable Any 0076 00db | | Load_Top At_Offset_3 0077 c402 | | Store 0x2,0x2 0078 BODY_0070: 0078 00cf | | Action Mark_Auxiliary 0079 7813 |x | Jump 0x8d 007a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x1 = 0x7a,0x2 007b e001 | | Load 0x0,0x1 007c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007d 4604 |F | Jump_Case 0x5 007e 780c |x | Jump 0x8b ; case 0x0 007f 7809 |x | Jump 0x89 ; case 0x1 0080 7802 |x | Jump 0x83 ; case 0x2 0081 7803 |x | Jump 0x85 ; case 0x3 0082 7804 |x | Jump 0x87 ; case 0x4 0083 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x2 = 0x83,0x3 0084 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0085 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x3 = 0x85,0x4 0086 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0087 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x4 = 0x87,0x5 0088 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0089 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x5 = 0x89,0x6 008a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008b 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x6 = 0x8b,0x7 008c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x7 = 0x8d,0x1 008e e001 | | Load 0x0,0x1 008f 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0090 6fe9 |o | Jump_Zero 0x7a 0091 00ce | | Action Pop_Auxiliary 0092 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x8 = 0x92,0x9 0093 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 00a0 | | .CONST 0x00a0 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x009b,0x017a,0x1001,0x0000,0x0038,0xc876,0x0000,0x000a ; Debug Table 0x4.0x0 = 0x9b,0x1 009c e002 | | Load 0x0,0x2 009d 180d | | Execute Package,Field_Execute,Field_Number 0xd 009e 820f | | Call 0x1,0xf 009f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a0 TRAP_0098: 00a0 0007 | | Action Break_Optional 00a1 0092 00e7 | | Action Push_String_Extended,0xe7 ; "<" ; Debug Table 0x4.0x1 = 0xa1,0x2 00a3 e003 | | Load 0x0,0x3 00a4 180d | | Execute Package,Field_Execute,Field_Number 0xd 00a5 01cc | | Execute Vector,Catenate 00a6 0092 00e8 | | Action Push_String_Extended,0xe8 ; ">" 00a8 01cc | | Execute Vector,Catenate 00a9 820f | | Call 0x1,0xf 00aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ab 0000 0000 | | .BLANK 0000[0x5] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b4 | | .CONST 0x00b4 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x5 = .DEBUG 0x00b3,0x0180,0x1001,0x0000,0x0038,0xc876,0x0000,0x0033 ; Debug Table 0x5.0x0 = 0xb3,0xffff 00b4 BODY_00b0: 00b4 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x1 = 0xb4,0x1 00b5 01db | | Execute Vector,Length 00b6 7003 |p | Jump_Nonzero 0xba 00b7 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x2 = 0xb7,0x2 00b8 a5fe | | Store_Unchecked 0x2,-0x2 00b9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00ba 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x3 = 0xba,0x3 00bb 01dc | | Execute Vector,Last 00bc 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00bd 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x4 = 0xbd,0x4 00be e5ff | | Load 0x2,-0x1 00bf 01d7 | | Execute Vector,Field_Read 00c0 0f26 | & | Execute_Immediate Equal,0x26 00c1 6807 |h | Jump_Zero 0xc9 00c2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x5 = 0xc2,0x5 00c3 0aff | | Execute_Immediate Plus,-0x1 00c4 0248 | H | Execute Discrete,Check_In_Integer 00c5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00c6 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x6 = 0xc6,0x6 00c7 a5fe | | Store_Unchecked 0x2,-0x2 00c8 7802 |x | Jump 0xcb 00c9 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x7 = 0xc9,0x7 00ca a5fe | | Store_Unchecked 0x2,-0x2 00cb 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x8 = 0xcb,0x8 00cc 01dd | | Execute Vector,First 00cd e5ff | | Load 0x2,-0x1 00ce 01d7 | | Execute Vector,Field_Read 00cf 4830 |H0 | Short_Literal 0x30 00d0 4839 |H9 | Short_Literal 0x39 00d1 0262 | b | Execute Discrete,In_Range 00d2 6809 |h | Jump_Zero 0xdc 00d3 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x9 = 0xd3,0x9 00d4 01dd | | Execute Vector,First 00d5 0a0d | | Execute_Immediate Plus,0xd 00d6 0248 | H | Execute Discrete,Check_In_Integer 00d7 00d9 | | Load_Top At_Offset_1 00d8 e5ff | | Load 0x2,-0x1 00d9 01cf | | Execute Vector,Slice_Read 00da 820f | | Call 0x1,0xf 00db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00dc 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0xa = 0xdc,0xa 00dd 01dd | | Execute Vector,First 00de 00d9 | | Load_Top At_Offset_1 00df e5ff | | Load 0x2,-0x1 00e0 01cf | | Execute Vector,Slice_Read 00e1 820f | | Call 0x1,0xf 00e2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00e3 ; -------------------------------------------------------------------------------------- 00e3 ; STRING TABLE 00e3 ; -------------------------------------------------------------------------------------- 00e3 000e | | .STRTAB 0x000e->0x00ea ; "*** " 00e4 0010 | | .STRTAB 0x0010->0x00ec ; "!!! " 00e5 0012 | | .STRTAB 0x0012->0x00ee ; "??? " 00e6 0014 | | .STRTAB 0x0014->0x00f0 ; "%%% " 00e7 0016 | | .STRTAB 0x0016->0x00f2 ; "<" 00e8 0015 | | .STRTAB 0x0015->0x00f2 ; ">" 00e9 0014 | | .STREND 0x0014->0x00f3 00ea 2a2a 2a20 |*** | .STRTAB_STRINGS 00f3 0000 0000 | | .BLANK 0000[0x5] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; Debug Table 00f8 ; -------------------------------------------------------------------------------------- 00f8 0003 0006 | | .CONST 0x0003,0x0006 00fa 000b 012a | *| .DEBUG 0x000b,0x012a,0xc000,0x0000,0x0038,0xc796,0x0000,0x0005 0102 0011 0132 | 2| .DEBUG 0x0011,0x0132,0xc000,0x0000,0x0038,0xc876,0x0000,0x0009 010a 0023 013c | # <| .DEBUG 0x0023,0x013c,0x1001,0x0000,0x0038,0xc796,0x0000,0x0019 0112 0073 0166 | s f| .DEBUG 0x0073,0x0166,0x1002,0x0000,0x0038,0xc796,0x0000,0x0023 011a 009b 017a | z| .DEBUG 0x009b,0x017a,0x1001,0x0000,0x0038,0xc876,0x0000,0x000a 0122 00b3 0180 | | .DEBUG 0x00b3,0x0180,0x1001,0x0000,0x0038,0xc876,0x0000,0x0033 012a ; -------------------------------------------------------------------------------------- 012a ; Debug3 Subtable 0x0 012a ; -------------------------------------------------------------------------------------- 012a 0003 0000 | | .DBG3TAB 0x0003,0x0000 012c 000b ffff | | .CONST 0x000b,0xffff 012e 000c fffe | | .CONST 0x000c,0xfffe 0130 000e fffd | | .CONST 0x000e,0xfffd 0132 ; -------------------------------------------------------------------------------------- 0132 ; Debug3 Subtable 0x1 0132 ; -------------------------------------------------------------------------------------- 0132 0004 0000 | | .DBG3TAB 0x0004,0x0000 0134 0011 ffff | | .CONST 0x0011,0xffff 0136 0013 fffe | | .CONST 0x0013,0xfffe 0138 0015 fffd | | .CONST 0x0015,0xfffd 013a 0017 fffc | | .CONST 0x0017,0xfffc 013c ; -------------------------------------------------------------------------------------- 013c ; Debug3 Subtable 0x2 013c ; -------------------------------------------------------------------------------------- 013c 0004 0010 | | .DBG3TAB 0x0004,0x0010 013e 0023 ffff | # | .CONST 0x0023,0xffff 0140 0024 fffe | $ | .CONST 0x0024,0xfffe 0142 0025 fffd | % | .CONST 0x0025,0xfffd 0144 002a fffc | * | .CONST 0x002a,0xfffc 0146 002d 0002 | - | .CONST 0x002d,0x0002 0148 0036 0003 | 6 | .CONST 0x0036,0x0003 014a 003a 0004 | : | .CONST 0x003a,0x0004 014c 003e 0005 | > | .CONST 0x003e,0x0005 014e 0042 0006 | B | .CONST 0x0042,0x0006 0150 0045 0008 | E | .CONST 0x0045,0x0008 0152 0049 0009 | I | .CONST 0x0049,0x0009 0154 004d 000a | M | .CONST 0x004d,0x000a 0156 0051 000b | Q | .CONST 0x0051,0x000b 0158 0057 000c | W | .CONST 0x0057,0x000c 015a 005b 000d | [ | .CONST 0x005b,0x000d 015c 005f 000e | _ | .CONST 0x005f,0x000e 015e 0061 000f | a | .CONST 0x0061,0x000f 0160 0063 0010 | c | .CONST 0x0063,0x0010 0162 0064 0011 | d | .CONST 0x0064,0x0011 0164 0069 0001 | i | .CONST 0x0069,0x0001 0166 ; -------------------------------------------------------------------------------------- 0166 ; Debug3 Subtable 0x3 0166 ; -------------------------------------------------------------------------------------- 0166 0001 0008 | | .DBG3TAB 0x0001,0x0008 0168 0073 ffff | s | .CONST 0x0073,0xffff 016a 007a 0002 | z | .CONST 0x007a,0x0002 016c 0083 0003 | | .CONST 0x0083,0x0003 016e 0085 0004 | | .CONST 0x0085,0x0004 0170 0087 0005 | | .CONST 0x0087,0x0005 0172 0089 0006 | | .CONST 0x0089,0x0006 0174 008b 0007 | | .CONST 0x008b,0x0007 0176 008d 0001 | | .CONST 0x008d,0x0001 0178 0092 0009 | | .CONST 0x0092,0x0009 017a ; -------------------------------------------------------------------------------------- 017a ; Debug3 Subtable 0x4 017a ; -------------------------------------------------------------------------------------- 017a 0000 0002 | | .DBG3TAB 0x0000,0x0002 017c 009b 0001 | | .CONST 0x009b,0x0001 017e 00a1 0002 | | .CONST 0x00a1,0x0002 0180 ; -------------------------------------------------------------------------------------- 0180 ; Debug3 Subtable 0x5 0180 ; -------------------------------------------------------------------------------------- 0180 0001 000a | | .DBG3TAB 0x0001,0x000a 0182 00b3 ffff | | .CONST 0x00b3,0xffff 0184 00b4 0001 | | .CONST 0x00b4,0x0001 0186 00b7 0002 | | .CONST 0x00b7,0x0002 0188 00ba 0003 | | .CONST 0x00ba,0x0003 018a 00bd 0004 | | .CONST 0x00bd,0x0004 018c 00c2 0005 | | .CONST 0x00c2,0x0005 018e 00c6 0006 | | .CONST 0x00c6,0x0006 0190 00c9 0007 | | .CONST 0x00c9,0x0007 0192 00cb 0008 | | .CONST 0x00cb,0x0008 0194 00d3 0009 | | .CONST 0x00d3,0x0009 0196 00dc 000a | | .CONST 0x00dc,0x000a 0198 0000 0000 | | .BLANK 0000[0x68]