|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_ccb0b3
└─⟦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 0080 | | .CONST 0x0080 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002b | + | .CONST 0x002b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001d | | .CONST 0x001d ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 00e2 | | Load_Encached Integer_Cache 000f 00d1 | | Pop_Control Pop_Count_1 0010 e001 | | Load 0x0,0x1 0011 0007 | | Action Break_Optional 0012 00e1 | | Load_Encached Boolean_Cache 0013 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0014 e002 | | Load 0x0,0x2 0015 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0016 e002 | | Load 0x0,0x2 0017 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0018 029b 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Unelaborated 001a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 001b 00c7 | | Action Elaborate_Subprogram 001c 1d16 | | Execute_Immediate Reference_Lex_1,0x16 001d 00c6 | | Action Check_Subprogram_Elaborated 001e e210 | | Load 0x1,0x10 001f e003 | | Load 0x0,0x3 0020 e004 | | Load 0x0,0x4 0021 4800 |H | Short_Literal 0x0 0022 0007 | | Action Break_Optional 0023 029d 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call 0025 029d 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call 0027 029d 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call 0029 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002a 00c7 | | Action Elaborate_Subprogram 002b BODY_0008: 002b 821b | | Call 0x1,0x1b 002c 821c | | Call 0x1,0x1c 002d e214 | | Load 0x1,0x14 002e e215 | | Load 0x1,0x15 002f 027f | | Execute Discrete,Equal 0030 7001 |p | Jump_Nonzero 0x32 0031 0887 | | Execute_Immediate Raise,0x87 0032 00bc | | Action Signal_Activated 0033 00bb | | Action Signal_Completion 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 004b | K | .CONST 0x004b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0002 | | .CONST 0x0002 ; Number of locals 003b INIT_0038: 003b 00da | | Load_Top At_Offset_2 003c e20f | | Load 0x1,0xf 003d 0119 | | Execute Any,Check_In_Formal_Type 003e 821d | | Call 0x1,0x1d 003f 00d8 | | Load_Top At_Offset_0 0040 011f | | Execute Any,Is_Scalar 0041 6802 |h | Jump_Zero 0x44 0042 e210 | | Load 0x1,0x10 0043 7801 |x | Jump 0x45 0044 00d8 | | Load_Top At_Offset_0 0045 012c | , | Execute Any,Size 0046 e210 | | Load 0x1,0x10 0047 012c | , | Execute Any,Size 0048 027a | z | Execute Discrete,Less_Equal 0049 7001 |p | Jump_Nonzero BODY_0038 004a 0887 | | Execute_Immediate Raise,0x87 004b BODY_0038: 004b 00d8 | | Load_Top At_Offset_0 004c e210 | | Load 0x1,0x10 004d 0119 | | Execute Any,Check_In_Formal_Type 004e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 004f 0000 | | .XXX[0x1] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00db | | Load_Top At_Offset_3 0054 00dd | | Load_Top At_Offset_5 0055 e212 | | Load 0x1,0x12 0056 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0057 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0058 0831 | 1 | .XXX[0x1] 0059 0000 0000 | | .BLANK 0000[0x7] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 e20f | | Load 0x1,0xf 0064 0117 | | Execute Any,Structure_Query 0065 c214 | | Store 0x1,0x14 0066 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0067 0000 | | .XXX[0x1] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b e210 | | Load 0x1,0x10 006c 0117 | | Execute Any,Structure_Query 006d c215 | | Store 0x1,0x15 006e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 006f 0000 | | .XXX[0x1] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 e210 | | Load 0x1,0x10 0074 e5ff | | Load 0x2,-0x1 0075 e20f | | Load 0x1,0xf 0076 011d | | Execute Any,Convert_To_Formal 0077 012d | - | Execute Any,Address 0078 e212 | | Load 0x1,0x12 0079 1813 | | Execute Package,Field_Execute,Field_Number 0x13 007a 0112 | | Execute Any,Make_Constrained 007b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007c 0831 0000 | 1 | .XXX[0x4] 007e 0000 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; Debug Table 0080 ; -------------------------------------------------------------------------------------- 0080 0004 000d | | .DEBUG4 0x0004,0x000d,0xd93c,0x0000,0x0001,0x0000 0086 97f1 1411 | | .XXX[0x8] 0088 2036 97f3 | 6 | 008a 97fb 97fe | | 008c 0965 1410 | e | 008e 0000 0000 | | .BLANK 0000[0x6] 0094 103c 0010 | < | .XXX[0x53] 0096 000c 0a7c | || 0098 228c 0a7c |" || 009a 22ee 100b |" | 009c 97f8 0514 | | 009e 3db5 a006 |= | 00a0 100d 1410 | | 00a2 0000 0000 | | 00a4 10f8 0010 | | 00a6 0027 8944 | ' D| 00a8 0c88 036e | n| 00aa 0958 0364 | X d| 00ac 05f7 97f4 | | 00ae 0394 0fc4 | | 00b0 03b8 0b1f | | 00b2 97f8 03ac | | 00b4 6222 9010 |b" | 00b6 0360 022c | ` ,| 00b8 03ac 63c0 | c | 00ba 3401 c00c |4 | 00bc 0364 3401 | d4 | 00be e005 2004 | | 00c0 0384 0fc4 | | 00c2 03b0 0b1c | | 00c4 0360 7000 | `p | 00c6 0394 0fa4 | | 00c8 0a7c 234d | |#M| 00ca 203a 97f3 | : | 00cc 97f9 240c | $ | 00ce 03ac 025b | [| 00d0 1018 036d | m| 00d2 a04c 036c | L l| 00d4 03ac 63d4 | c | 00d6 03ac 627e | b~| 00d8 1027 900c | ' | 00da 036c 09f5 | l | 00dc a00d 2006 | | 00de 97f1 1413 | | 00e0 900c 0368 | h| 00e2 09f1 a009 | | 00e4 2002 97f1 | | 00e6 1410 | | 00e7 0000 0000 | | .BLANK 0000[0x5] 00ec 11a4 0010 | | .XXX[0x12] 00ee 000b 8944 | D| 00f0 0c88 036e | n| 00f2 0958 0364 | X d| 00f4 05f7 97f4 | | 00f6 3405 a00d |4 | 00f8 2002 97f1 | | 00fa 1411 203a | :| 00fc 97f1 1410 | | 00fe 0000 0000 | | .BLANK 0000[0x6] 0104 11ec 0010 | | .XXX[0x74] 0106 0007 97f4 | | 0108 0514 3c71 | <q| 010a c00d 203a | :| 010c 97e5 141d | | 010e 203a 97e5 | : | 0110 141c 0000 | | 0112 0000 0000 | | 0114 122c 0010 | , | 0116 0005 203a | :| 0118 97f1 1410 | | 011a 0000 0000 | | 011c 124c 0010 | L | 011e 0005 203a | :| 0120 97f5 140c | | 0122 0000 0000 | | 0124 12a8 136c | l| 0126 0017 801c | | 0128 6c58 6c44 |lXlD| 012a 0b1c 0360 | `| 012c 7000 0384 |p | 012e 03b0 0b1c | | 0130 0360 7000 | `p | 0132 03c4 0b1c | | 0134 0360 7001 | `p | 0136 203a 97f3 | : | 0138 97ff 8004 | | 013a 6c4c 6c3c |lLl<| 013c 6047 8028 |`G (| 013e 6057 801c |`W | 0140 6c58 609f |lX` | 0142 100b 97fb | | 0144 1010 0384 | | 0146 0364 0481 | d | 0148 a008 03c5 | | 014a e004 0364 | d| 014c 036d 2003 | m | 014e 97ff 801c | | 0150 6c48 6ceb |lHl | 0152 900b 801c | | 0154 6c58 6057 |lX`W| 0156 900b 801c | | 0158 6c58 605b |lX`[| 015a 801c 6c48 | lH| 015c 606f 802c |`o ,| 015e 608f 1013 |` | 0160 1014 016c | l| 0162 0369 c009 | i | 0164 2036 97f1 | 6 | 0166 1413 801c | | 0168 6c38 043d |l8 =| 016a c013 8028 | (| 016c 6c5c 043d |l\ =| 016e a00d 203a | :| 0170 97f1 1411 | | 0172 2036 97f3 | 6 | 0174 97fb 97fe | | 0176 0965 1410 | e | 0178 0000 0000 | | .BLANK 0000[0x4] 017c 13cc 0010 | | .XXX[0x4] 017e 0005 140c | | 0180 0000 0000 | | .BLANK 0000[0x4] 0184 1400 0010 | | .XXX[0x2a] 0186 000c 036a | j| 0188 0958 0363 | X c| 018a 8038 61d8 | 8a | 018c 033c 0364 | < d| 018e 0764 098d | d | 0190 c068 0363 | h c| 0192 900c 075f | _| 0194 801c 6c4c | lL| 0196 604f 97fa |`O | 0198 08ed a03c | <| 019a 0363 900c | c | 019c 075f 801c | _ | 019e 6c4c 6053 |lL`S| 01a0 97f6 08e9 | | 01a2 a018 0363 | c| 01a4 900b 8038 | 8| 01a6 61b8 075d |a ]| 01a8 100c 0320 | | 01aa ff98 0338 | 8| 01ac 03b1 100c | | 01ae 0000 0000 | | .BLANK 0000[0x6] 01b4 14c0 0010 | | .XXX[0x21] 01b6 000c 036a | j| 01b8 0958 0363 | X c| 01ba 8038 61dc | 8a | 01bc 033c 0364 | < d| 01be 0764 098d | d | 01c0 c047 97f8 | G | 01c2 0367 900c | g | 01c4 075f 801c | _ | 01c6 6c4c 6068 |lL`h| 01c8 09e9 a018 | | 01ca 0363 900b | c | 01cc 8038 61bc | 8a | 01ce 075d 1008 | ] | 01d0 0320 ffbc | | 01d2 0338 03b1 | 8 | 01d4 1008 | | 01d5 0000 0000 | | .BLANK 0000[0x7] 01dc 1560 0010 | ` | .XXX[0x24] 01de 000c 036a | j| 01e0 0958 0363 | X c| 01e2 8038 61dc | 8a | 01e4 033c 0364 | < d| 01e6 0764 098d | d | 01e8 c08f 97f8 | | 01ea 0367 900c | g | 01ec 075f 801c | _ | 01ee 6c4c 6068 |lL`h| 01f0 09e9 a060 | `| 01f2 0363 900c | c | 01f4 075f 801c | _ | 01f6 6c4c 6073 |lL`s| 01f8 97f6 08f5 | | 01fa a03c 0363 | < c| 01fc 900c 075f | _| 01fe 801c 6c4c | lL|