|
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 - metrics - download
Length: 1024 (0x400) Notes: 00_class, 5813_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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0100 | | .CONST 0x0100 ; 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 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x012a,0x8000,0x0000,0x0059,0xee65,0x0000,0x000b ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 00bf | | Action Accept_Activation 0012 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0012,0x0132,0x8000,0x0000,0x0059,0xf325,0x0000,0x000b ; Debug Table 0x1.0x0 = 0x12,0xffff 0013 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x1 = 0x13,0xfffe 0014 00c7 | | Action Elaborate_Subprogram 0015 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x2 = 0x15,0xfffd 0016 00c7 | | Action Elaborate_Subprogram 0017 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; 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 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 00db | | Load_Top At_Offset_3 ; Debug Table 0x2 = .DEBUG 0x0023,0x013c,0x0001,0x0000,0x0059,0xee65,0x0000,0x000c ; Debug Table 0x2.0x0 = 0x23,0x1 0024 4602 |F | Jump_Case 0x3 0025 7802 |x | Jump 0x28 ; case 0x0 0026 787e |x~ | Jump 0xa5 ; case 0x1 0027 783f |x? | Jump 0x67 ; case 0x2 0028 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x1 = 0x28,0x2 0029 1b0f | | Execute Package,Field_Read,Field_Number 0xf 002a 0322 | " | Declare_Variable Record 002b 4800 |H | Short_Literal 0x0 002c 00d9 | | Load_Top At_Offset_1 002d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 002e 4800 |H | Short_Literal 0x0 002f 00d9 | | Load_Top At_Offset_1 0030 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0031 4800 |H | Short_Literal 0x0 0032 00d9 | | Load_Top At_Offset_1 0033 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0034 4800 |H | Short_Literal 0x0 0035 00d9 | | Load_Top At_Offset_1 0036 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0037 4800 |H | Short_Literal 0x0 0038 00d9 | | Load_Top At_Offset_1 0039 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 003a e5fd | | Load 0x2,-0x3 003b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 003c e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x2 = 0x3c,0x3 003d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 003e 0322 | " | Declare_Variable Record 003f 4800 |H | Short_Literal 0x0 0040 00d9 | | Load_Top At_Offset_1 0041 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0042 4800 |H | Short_Literal 0x0 0043 00d9 | | Load_Top At_Offset_1 0044 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0045 4800 |H | Short_Literal 0x0 0046 00d9 | | Load_Top At_Offset_1 0047 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0048 4800 |H | Short_Literal 0x0 0049 00d9 | | Load_Top At_Offset_1 004a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 004b 4800 |H | Short_Literal 0x0 004c 00d9 | | Load_Top At_Offset_1 004d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 004e e5fd | | Load 0x2,-0x3 004f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0050 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x3 = 0x50,0x4 0051 e5fd | | Load 0x2,-0x3 0052 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0053 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0054 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x4 = 0x54,0x5 0055 e5fd | | Load 0x2,-0x3 0056 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0057 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0058 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x5 = 0x58,0x6 0059 1b14 | | Execute Package,Field_Read,Field_Number 0x14 005a 0322 | " | Declare_Variable Record 005b 4800 |H | Short_Literal 0x0 005c 00d9 | | Load_Top At_Offset_1 005d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 005e 4800 |H | Short_Literal 0x0 005f 00d9 | | Load_Top At_Offset_1 0060 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0061 4800 |H | Short_Literal 0x0 0062 00d9 | | Load_Top At_Offset_1 0063 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0064 e5fd | | Load 0x2,-0x3 0065 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0066 783e |x> | Jump 0xa5 0067 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x6 = 0x67,0x8 0068 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0069 0322 | " | Declare_Variable Record 006a 4801 |H | Short_Literal 0x1 006b 00d9 | | Load_Top At_Offset_1 006c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 006d 4801 |H | Short_Literal 0x1 006e 00d9 | | Load_Top At_Offset_1 006f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0070 4801 |H | Short_Literal 0x1 0071 00d9 | | Load_Top At_Offset_1 0072 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0073 4801 |H | Short_Literal 0x1 0074 00d9 | | Load_Top At_Offset_1 0075 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0076 4801 |H | Short_Literal 0x1 0077 00d9 | | Load_Top At_Offset_1 0078 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0079 e5fd | | Load 0x2,-0x3 007a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007b e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x7 = 0x7b,0x9 007c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 007d 0322 | " | Declare_Variable Record 007e 4800 |H | Short_Literal 0x0 007f 00d9 | | Load_Top At_Offset_1 0080 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0081 4801 |H | Short_Literal 0x1 0082 00d9 | | Load_Top At_Offset_1 0083 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0084 4801 |H | Short_Literal 0x1 0085 00d9 | | Load_Top At_Offset_1 0086 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0087 4801 |H | Short_Literal 0x1 0088 00d9 | | Load_Top At_Offset_1 0089 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 008a 4801 |H | Short_Literal 0x1 008b 00d9 | | Load_Top At_Offset_1 008c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 008d e5fd | | Load 0x2,-0x3 008e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 008f 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x8 = 0x8f,0xa 0090 e5fd | | Load 0x2,-0x3 0091 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0092 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0093 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x9 = 0x93,0xb 0094 e5fd | | Load 0x2,-0x3 0095 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 0096 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0097 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0xa = 0x97,0xc 0098 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0099 0322 | " | Declare_Variable Record 009a 4801 |H | Short_Literal 0x1 009b 00d9 | | Load_Top At_Offset_1 009c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 009d 4801 |H | Short_Literal 0x1 009e 00d9 | | Load_Top At_Offset_1 009f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a0 4801 |H | Short_Literal 0x1 00a1 00d9 | | Load_Top At_Offset_1 00a2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00a3 e5fd | | Load 0x2,-0x3 00a4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 00a5 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xb = 0xa5,0xd 00a6 4803 |H | Short_Literal 0x3 00a7 0279 | y | Execute Discrete,And 00a8 0c02 | | Execute_Immediate Greater_Equal,0x2 00a9 e5fd | | Load 0x2,-0x3 00aa 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00ab 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00ac 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xc = 0xac,0xe 00ad 4801 |H | Short_Literal 0x1 00ae 0279 | y | Execute Discrete,And 00af 0f01 | | Execute_Immediate Equal,0x1 00b0 e5fd | | Load 0x2,-0x3 00b1 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00b2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bd | | .CONST 0x00bd ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0002 | | .CONST 0x0002 ; Number of locals 00bb INIT_00b8: 00bb e002 | | Load 0x0,0x2 ; Debug Table 0x3 = .DEBUG 0x00bb,0x0158,0x0001,0x0000,0x0059,0xee65,0x0000,0x0022 ; Debug Table 0x3.0x0 = 0xbb,0xffff 00bc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00bd BODY_00b8: 00bd e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x1 = 0xbd,0x1 00be 6807 |h | Jump_Zero 0xc6 00bf e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x2 = 0xbf,0x2 00c0 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00c1 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x3 = 0xc1,0x3 00c2 0217 | | Execute Heap_Access,All_Reference 00c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c4 a5fd | | Store_Unchecked 0x2,-0x3 00c5 7809 |x | Jump 0xcf 00c6 e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x4 = 0xc6,0x4 00c7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c8 e5fe | | Load 0x2,-0x2 00c9 039c | | Declare_Variable Heap_Access,By_Allocation 00ca 00d8 | | Load_Top At_Offset_0 00cb 0217 | | Execute Heap_Access,All_Reference 00cc 1c00 | | Execute_Immediate Run_Utility,0x0 00cd 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00ce 0007 | | Action Break_Optional ; Debug Table 0x3.0x5 = 0xce,0x5 00cf 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x6 = 0xcf,0x6 00d0 00d9 | | Load_Top At_Offset_1 00d1 0217 | | Execute Heap_Access,All_Reference 00d2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d3 e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x7 = 0xd3,0x7 00d4 00d9 | | Load_Top At_Offset_1 00d5 0217 | | Execute Heap_Access,All_Reference 00d6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00d7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x8 = 0xd7,0x8 00d8 a5fc | | Store_Unchecked 0x2,-0x4 00d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00da 0000 0000 | | .BLANK 0000[0x6] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e7 | | .CONST 0x00e7 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 e002 | | Load 0x0,0x2 ; Debug Table 0x4 = .DEBUG 0x00e3,0x016c,0x0001,0x0000,0x0059,0xee65,0x0000,0x003e ; Debug Table 0x4.0x0 = 0xe3,0xffff 00e4 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00e5 e5fe | | Load 0x2,-0x2 00e6 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00e7 BODY_00e0: 00e7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x1 = 0xe7,0x1 00e8 6815 |h | Jump_Zero 0xfe 00e9 00cf | | Action Mark_Auxiliary 00ea 7805 |x | Jump 0xf0 00eb 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x2 = 0xeb,0x3 00ec 0217 | | Execute Heap_Access,All_Reference 00ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ee 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00ef 00c9 | | Action Pop_Auxiliary_Loop 00f0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x3 = 0xf0,0x2 00f1 0217 | | Execute Heap_Access,All_Reference 00f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f3 77f7 |w | Jump_Nonzero 0xeb 00f4 00ce | | Action Pop_Auxiliary 00f5 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x4 = 0xf5,0x4 00f6 00d9 | | Load_Top At_Offset_1 00f7 0217 | | Execute Heap_Access,All_Reference 00f8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00f9 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x5 = 0xf9,0x5 00fa a5ff | | Store_Unchecked 0x2,-0x1 00fb e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x6 = 0xfb,0x6 00fc 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00fd a5fe | | Store_Unchecked 0x2,-0x2 00fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ff 0000 | | .XXX[0x1] 0100 ; -------------------------------------------------------------------------------------- 0100 ; Debug Table 0100 ; -------------------------------------------------------------------------------------- 0100 0003 0005 | | .CONST 0x0003,0x0005 0102 000b 012a | *| .DEBUG 0x000b,0x012a,0x8000,0x0000,0x0059,0xee65,0x0000,0x000b 010a 0012 0132 | 2| .DEBUG 0x0012,0x0132,0x8000,0x0000,0x0059,0xf325,0x0000,0x000b 0112 0023 013c | # <| .DEBUG 0x0023,0x013c,0x0001,0x0000,0x0059,0xee65,0x0000,0x000c 011a 00bb 0158 | X| .DEBUG 0x00bb,0x0158,0x0001,0x0000,0x0059,0xee65,0x0000,0x0022 0122 00e3 016c | l| .DEBUG 0x00e3,0x016c,0x0001,0x0000,0x0059,0xee65,0x0000,0x003e 012a ; -------------------------------------------------------------------------------------- 012a ; Debug3 Subtable 0x0 012a ; -------------------------------------------------------------------------------------- 012a 0003 0000 | | .DBG3TAB 0x0003,0x0000 012c 000b ffff | | .CONST 0x000b,0xffff 012e 000d fffe | | .CONST 0x000d,0xfffe 0130 000f fffd | | .CONST 0x000f,0xfffd 0132 ; -------------------------------------------------------------------------------------- 0132 ; Debug3 Subtable 0x1 0132 ; -------------------------------------------------------------------------------------- 0132 0004 0000 | | .DBG3TAB 0x0004,0x0000 0134 0012 ffff | | .CONST 0x0012,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 0000 000d | | .DBG3TAB 0x0000,0x000d 013e 0023 0001 | # | .CONST 0x0023,0x0001 0140 0028 0002 | ( | .CONST 0x0028,0x0002 0142 003c 0003 | < | .CONST 0x003c,0x0003 0144 0050 0004 | P | .CONST 0x0050,0x0004 0146 0054 0005 | T | .CONST 0x0054,0x0005 0148 0058 0006 | X | .CONST 0x0058,0x0006 014a 0067 0008 | g | .CONST 0x0067,0x0008 014c 007b 0009 | { | .CONST 0x007b,0x0009 014e 008f 000a | | .CONST 0x008f,0x000a 0150 0093 000b | | .CONST 0x0093,0x000b 0152 0097 000c | | .CONST 0x0097,0x000c 0154 00a5 000d | | .CONST 0x00a5,0x000d 0156 00ac 000e | | .CONST 0x00ac,0x000e 0158 ; -------------------------------------------------------------------------------------- 0158 ; Debug3 Subtable 0x3 0158 ; -------------------------------------------------------------------------------------- 0158 0001 0008 | | .DBG3TAB 0x0001,0x0008 015a 00bb ffff | | .CONST 0x00bb,0xffff 015c 00bd 0001 | | .CONST 0x00bd,0x0001 015e 00bf 0002 | | .CONST 0x00bf,0x0002 0160 00c1 0003 | | .CONST 0x00c1,0x0003 0162 00c6 0004 | | .CONST 0x00c6,0x0004 0164 00ce 0005 | | .CONST 0x00ce,0x0005 0166 00cf 0006 | | .CONST 0x00cf,0x0006 0168 00d3 0007 | | .CONST 0x00d3,0x0007 016a 00d7 0008 | | .CONST 0x00d7,0x0008 016c ; -------------------------------------------------------------------------------------- 016c ; Debug3 Subtable 0x4 016c ; -------------------------------------------------------------------------------------- 016c 0001 0006 | | .DBG3TAB 0x0001,0x0006 016e 00e3 ffff | | .CONST 0x00e3,0xffff 0170 00e7 0001 | | .CONST 0x00e7,0x0001 0172 00eb 0003 | | .CONST 0x00eb,0x0003 0174 00f0 0002 | | .CONST 0x00f0,0x0002 0176 00f5 0004 | | .CONST 0x00f5,0x0004 0178 00f9 0005 | | .CONST 0x00f9,0x0005 017a 00fb 0006 | | .CONST 0x00fb,0x0006 017c 0000 0000 | | .BLANK 0000[0x84]