|
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 0070 | p | .CONST 0x0070 ; 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 001e | | .CONST 0x001e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 0015 c214 | | Store 0x1,0x14 0016 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0018 c213 | | Store 0x1,0x13 0019 00bf | | Action Accept_Activation 001a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 001b 00c7 | | Action Elaborate_Subprogram 001c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 001d 00c7 | | Action Elaborate_Subprogram 001e BODY_0008: 001e 00bc | | Action Signal_Activated 001f 00bb | | Action Signal_Completion 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 002d | - | .CONST 0x002d ; Address of begin 0021 0045 | E | .CONST 0x0045 ; Address of exception handler 0022 0002 | | .CONST 0x0002 ; Number of locals 0023 INIT_0020: 0023 e001 | | Load 0x0,0x1 0024 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0025 0322 | " | Declare_Variable Record 0026 00db | | Load_Top At_Offset_3 0027 e002 | | Load 0x0,0x2 0028 180e | | Execute Package,Field_Execute,Field_Number 0xe 0029 e002 | | Load 0x0,0x2 002a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 002b 00d9 | | Load_Top At_Offset_1 002c 017d | } | Execute Record,Structure_Write 002d BODY_0020: 002d 4801 |H | Short_Literal 0x1 002e a5f3 | | Store_Unchecked 0x2,-0xd 002f 00d8 | | Load_Top At_Offset_0 0030 e5ff | | Load 0x2,-0x1 0031 e001 | | Load 0x0,0x1 0032 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0033 00db | | Load_Top At_Offset_3 0034 e003 | | Load 0x0,0x3 0035 180d | | Execute Package,Field_Execute,Field_Number 0xd 0036 e5f4 | | Load 0x2,-0xc 0037 00d9 | | Load_Top At_Offset_1 0038 e5ff | | Load 0x2,-0x1 0039 e5f5 | | Load 0x2,-0xb 003a e5f6 | | Load 0x2,-0xa 003b e5f7 | | Load 0x2,-0x9 003c e5f8 | | Load 0x2,-0x8 003d e5f9 | | Load 0x2,-0x7 003e e5fa | | Load 0x2,-0x6 003f e5fb | | Load 0x2,-0x5 0040 e5fc | | Load 0x2,-0x4 0041 e5fd | | Load 0x2,-0x3 0042 e5fe | | Load 0x2,-0x2 0043 8004 | | Call 0x0,0x4 0044 450d |E | Exit_Suprogram New_Top_Offset 0xd 0045 TRAP_0020: 0045 e005 | | Load 0x0,0x5 0046 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0047 010f | | Execute Exception,Equal 0048 6803 |h | Jump_Zero 0x4c 0049 4800 |H | Short_Literal 0x0 004a a5f3 | | Store_Unchecked 0x2,-0xd 004b 450d |E | Exit_Suprogram New_Top_Offset 0xd 004c 4800 |H | Short_Literal 0x0 004d 4801 |H | Short_Literal 0x1 004e e006 | | Load 0x0,0x6 004f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0050 e007 | | Load 0x0,0x7 0051 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0052 4800 |H | Short_Literal 0x0 0053 a5f3 | | Store_Unchecked 0x2,-0xd 0054 450d |E | Exit_Suprogram New_Top_Offset 0xd 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005f | _ | .CONST 0x005f ; Address of begin 0059 0069 | i | .CONST 0x0069 ; Address of exception handler 005a 0002 | | .CONST 0x0002 ; Number of locals 005b INIT_0058: 005b 4820 |H | Short_Literal 0x20 005c 00db | | Load_Top At_Offset_3 005d e008 | | Load 0x0,0x8 005e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 005f BODY_0058: 005f 00d8 | | Load_Top At_Offset_0 0060 e001 | | Load 0x0,0x1 0061 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0062 e009 | | Load 0x0,0x9 0063 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0064 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0065 00d8 | | Load_Top At_Offset_0 0066 e001 | | Load 0x0,0x1 0067 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0068 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0069 TRAP_0058: 0069 0007 | | Action Break_Optional 006a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006b 0000 0000 | | .BLANK 0000[0x5] 0070 ; -------------------------------------------------------------------------------------- 0070 ; Debug Table 0070 ; -------------------------------------------------------------------------------------- 0070 0004 000e | | .DEBUG4 0x0004,0x000e,0xec08,0x0000,0x0001,0x0000 0076 3c02 0c2d |< -| .XXX[0x59] 0078 1149 055d | I ]| 007a 7d4d 5149 |}MQI| 007c 2539 1c02 |%9 | 007e 1029 5121 | )Q!| 0080 157d 4d51 | }MQ| 0082 4925 391c |I%9 | 0084 015c 2939 | \)9| 0086 1561 517d | aQ}| 0088 1559 1539 | Y 9| 008a 5001 dc15 |P | 008c 0d31 3d4d | 1=M| 008e 1402 1429 | )| 0090 0549 2551 | I%Q| 0092 2135 1551 |!5 Q| 0094 250c 0088 |% | 0096 04ac 013c | <| 0098 050c 0124 | $| 009a 0510 0058 | X| 009c 04b4 0028 | (| 009e 04bc 00d0 | | 00a0 154d 0d05 | M | 00a2 3114 003c |1 <| 00a4 2141 3d4d |!A=M| 00a6 2551 2559 |%Q%Y| 00a8 1400 a004 | | 00aa a802 1809 | | 00ac 10c4 01ec | | 00ae 0910 c802 | | 00b0 1c2d 1905 | - | 00b2 5105 317d |Q 1}| 00b4 1549 493d | II=| 00b6 4800 0c2d |H -| 00b8 5905 3155 |Y 1U| 00ba 157d 1549 | } I| 00bc 493d 4800 |I=H | 00be ec04 f002 | | 00c0 201d 093d | =| 00c2 3d31 1505 |=1 | 00c4 3801 c808 |8 | 00c6 f8f4 0224 | $| 00c8 08f0 f402 | | 00ca 2804 f400 |( | 00cc bc04 f801 | | 00ce e000 | | 00cf 0000 0000 | | .BLANK 0000[0x131]