|
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_03bcfe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0110 | | .CONST 0x0110 ; 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 0035 | 5 | .CONST 0x0035 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0018 | | .CONST 0x0018 ; Number of locals 000b INIT_0008: 000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 029d 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call 0010 029d 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call 0012 029d 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call 0014 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call 0016 029d 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call 0018 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call 001a 029d 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call 001c 029d 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call 001e 029d 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call 0020 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call 0022 e002 | | Load 0x0,0x2 0023 e003 | | Load 0x0,0x3 0024 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0025 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0027 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0028 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0029 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 002b 1d15 | | Execute_Immediate Reference_Lex_1,0x15 002c 1d16 | | Execute_Immediate Reference_Lex_1,0x16 002d 1d17 | | Execute_Immediate Reference_Lex_1,0x17 002e e004 | | Load 0x0,0x4 002f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0030 0387 | | Declare_Variable Package 0031 00d8 | | Load_Top At_Offset_0 0032 020f | | Execute Module,Activate 0033 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0034 00c7 | | Action Elaborate_Subprogram 0035 BODY_0008: 0035 00bc | | Action Signal_Activated 0036 00bb | | Action Signal_Completion 0037 0000 | | .XXX[0x1] 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 4501 |E | Exit_Suprogram New_Top_Offset 0x1 003c 0000 0000 | | .BLANK 0000[0x4] 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 e005 | | Load 0x0,0x5 0044 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0045 8006 | | Call 0x0,0x6 0046 4801 |H | Short_Literal 0x1 0047 e007 | | Load 0x0,0x7 0048 e008 | | Load 0x0,0x8 0049 00ad | | QQ_Action Package,Field_Execute_Dynamic 004a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004b 0000 0000 | | .BLANK 0000[0x5] 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 e005 | | Load 0x0,0x5 0054 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0055 8006 | | Call 0x0,0x6 0056 4801 |H | Short_Literal 0x1 0057 e007 | | Load 0x0,0x7 0058 e009 | | Load 0x0,0x9 0059 00ad | | QQ_Action Package,Field_Execute_Dynamic 005a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005b 0000 0000 | | .BLANK 0000[0x5] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 006e | n | .CONST 0x006e ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0004 | | .CONST 0x0004 ; Number of locals 0063 INIT_0060: 0063 e00a | | Load 0x0,0xa 0064 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0065 e00a | | Load 0x0,0xa 0066 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0067 e00a | | Load 0x0,0xa 0068 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0069 e00a | | Load 0x0,0xa 006a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 006b e00a | | Load 0x0,0xa 006c 1b15 | | Execute Package,Field_Read,Field_Number 0x15 006d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 006e BODY_0060: 006e e00a | | Load 0x0,0xa 006f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0070 e00a | | Load 0x0,0xa 0071 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0072 4802 |H | Short_Literal 0x2 0073 e007 | | Load 0x0,0x7 0074 e00b | | Load 0x0,0xb 0075 00ad | | QQ_Action Package,Field_Execute_Dynamic 0076 c402 | | Store 0x2,0x2 0077 005a | Z | Store_Top Discrete,At_Offset_2 0078 00d8 | | Load_Top At_Offset_0 0079 00da | | Load_Top At_Offset_2 007a 027f | | Execute Discrete,Equal 007b 00ca | | Action Exit_Nullary_Function 007c 0000 0000 | | .BLANK 0000[0x4] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 4800 |H | Short_Literal 0x0 0084 00db | | Load_Top At_Offset_3 0085 e005 | | Load 0x0,0x5 0086 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0087 8006 | | Call 0x0,0x6 0088 4803 |H | Short_Literal 0x3 0089 e007 | | Load 0x0,0x7 008a e00c | | Load 0x0,0xc 008b 00ad | | QQ_Action Package,Field_Execute_Dynamic 008c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 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 4800 |H | Short_Literal 0x0 0094 00db | | Load_Top At_Offset_3 0095 800d | | Call 0x0,0xd 0096 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00da | | Load_Top At_Offset_2 009c e005 | | Load 0x0,0x5 009d 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 009e 8006 | | Call 0x0,0x6 009f 4802 |H | Short_Literal 0x2 00a0 e007 | | Load 0x0,0x7 00a1 e00e | | Load 0x0,0xe 00a2 00ad | | QQ_Action Package,Field_Execute_Dynamic 00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ad | | .CONST 0x00ad ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab e00f | | Load 0x0,0xf 00ac 0007 | | Action Break_Optional 00ad BODY_00a8: 00ad e00f | | Load 0x0,0xf 00ae e010 | | Load 0x0,0x10 00af 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b0 e011 | | Load 0x0,0x11 00b1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b2 e005 | | Load 0x0,0x5 00b3 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 00b4 8006 | | Call 0x0,0x6 00b5 4803 |H | Short_Literal 0x3 00b6 e007 | | Load 0x0,0x7 00b7 e012 | | Load 0x0,0x12 00b8 00ad | | QQ_Action Package,Field_Execute_Dynamic 00b9 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00ba 00d8 | | Load_Top At_Offset_0 00bb 0217 | | Execute Heap_Access,All_Reference 00bc 0335 | 5 | Declare_Variable Array,Duplicate 00bd 00cd | | Action Spare6_Action 00be 00ca | | Action Exit_Nullary_Function 00bf 0000 | | .XXX[0x1] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c5 | | .CONST 0x00c5 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0002 | | .CONST 0x0002 ; Number of locals 00c3 INIT_00c0: 00c3 e00f | | Load 0x0,0xf 00c4 0007 | | Action Break_Optional 00c5 BODY_00c0: 00c5 e00f | | Load 0x0,0xf 00c6 e010 | | Load 0x0,0x10 00c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00c8 e011 | | Load 0x0,0x11 00c9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ca e5fd | | Load 0x2,-0x3 00cb e5fe | | Load 0x2,-0x2 00cc e5ff | | Load 0x2,-0x1 00cd 0a03 | | Execute_Immediate Plus,0x3 00ce 00d8 | | Load_Top At_Offset_0 00cf 00e3 | | Load_Encached Natural_Cache 00d0 0260 | ` | Execute Discrete,In_Type 00d1 7001 |p | Jump_Nonzero 0xd3 00d2 0801 | | Execute_Immediate Raise,0x1 00d3 e005 | | Load 0x0,0x5 00d4 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 00d5 8006 | | Call 0x0,0x6 00d6 4806 |H | Short_Literal 0x6 00d7 e007 | | Load 0x0,0x7 00d8 e013 | | Load 0x0,0x13 00d9 00ad | | QQ_Action Package,Field_Execute_Dynamic 00da 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00db 00d8 | | Load_Top At_Offset_0 00dc 0217 | | Execute Heap_Access,All_Reference 00dd 0335 | 5 | Declare_Variable Array,Duplicate 00de 00cd | | Action Spare6_Action 00df 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e5 | | .CONST 0x00e5 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 e00f | | Load 0x0,0xf 00e4 0007 | | Action Break_Optional 00e5 BODY_00e0: 00e5 e00f | | Load 0x0,0xf 00e6 e010 | | Load 0x0,0x10 00e7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00e8 e011 | | Load 0x0,0x11 00e9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ea e5fe | | Load 0x2,-0x2 00eb e5ff | | Load 0x2,-0x1 00ec e005 | | Load 0x0,0x5 00ed 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 00ee 8006 | | Call 0x0,0x6 00ef 4805 |H | Short_Literal 0x5 00f0 e007 | | Load 0x0,0x7 00f1 e014 | | Load 0x0,0x14 00f2 00ad | | QQ_Action Package,Field_Execute_Dynamic 00f3 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00f4 00d8 | | Load_Top At_Offset_0 00f5 0217 | | Execute Heap_Access,All_Reference 00f6 0335 | 5 | Declare_Variable Array,Duplicate 00f7 00cd | | Action Spare6_Action 00f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f9 0000 0000 | | .BLANK 0000[0x7] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 e5fd | | Load 0x2,-0x3 0104 e5fe | | Load 0x2,-0x2 0105 e5ff | | Load 0x2,-0x1 0106 4803 |H | Short_Literal 0x3 0107 e007 | | Load 0x0,0x7 0108 e015 | | Load 0x0,0x15 0109 00ad | | QQ_Action Package,Field_Execute_Dynamic 010a 4504 |E | Exit_Suprogram New_Top_Offset 0x4 010b 0000 0000 | | .BLANK 0000[0x5] 0110 ; -------------------------------------------------------------------------------------- 0110 ; Debug Table 0110 ; -------------------------------------------------------------------------------------- 0110 0004 0007 | | .DEBUG4 0x0004,0x0007,0xc911,0x0000,0x0001,0x0000 0116 0000 0000 | | .BLANK 0000[0x14] 012a 0001 0001 | | .XXX[0x1f] 012c f10a 42e1 | B | 012e cd67 0000 | g | 0130 1b11 9525 | %| 0132 c040 0400 | @ | 0134 02b8 0000 | | 0136 0020 1600 | | 0138 01fc 0000 | | 013a 007c 00a0 | | | 013c 0000 1440 | @| 013e 0000 0800 | | 0140 0000 4400 | D | 0142 0000 0020 | | 0144 0000 0148 | H| 0146 000f c096 | | 0148 ece0 | | 0149 0000 0000 | | .BLANK 0000[0x1b] 0164 2000 3e21 | >!| .XXX[0x1e] 0166 485c 39ac |H\9 | 0168 e800 0362 | b| 016a 3b64 c808 |;d | 016c 0080 0057 | W| 016e 0000 0004 | | 0170 0ba0 0001 | | 0172 0000 0001 | | 0174 8014 0000 | | 0176 0004 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0029 0000 | ) | 0180 0812 ddb4 | | 0182 0000 0000 | | .BLANK 0000[0x1b] 019d 0c00 04b2 | | .XXX[0x1f] 019f d90b 8735 | 5| 01a1 9e00 006c | l| 01a3 476c 9901 |Gl | 01a5 0010 000a | | 01a7 e000 0000 | | 01a9 8174 0000 | t | 01ab 4000 0000 |@ | 01ad 3002 8000 |0 | 01af 0000 8000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 2000 | | 01b9 0102 5bb6 | [ | 01bb 8000 | | 01bc 0000 0000 | | .BLANK 0000[0x1a] 01d6 0180 0096 | | .XXX[0x3] 01d8 5b80 |[ | 01d9 0000 0000 | | .BLANK 0000[0x27]