|
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_06e8fd
└─⟦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 0140 | @ | .CONST 0x0140 ; 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 001c | | .CONST 0x001c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0017 00c7 | | Action Elaborate_Subprogram 0018 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0019 00c7 | | Action Elaborate_Subprogram 001a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001b 00c7 | | Action Elaborate_Subprogram 001c BODY_0008: 001c 00bc | | Action Signal_Activated 001d 00bb | | Action Signal_Completion 001e 0000 0000 | | .XXX[0x2] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0028 | ( | .CONST 0x0028 ; Address of begin 0021 0038 | 8 | .CONST 0x0038 ; Address of exception handler 0022 0003 | | .CONST 0x0003 ; Number of locals 0023 INIT_0020: 0023 e002 | | Load 0x0,0x2 0024 02c7 | | Declare_Variable Any 0025 00d8 | | Load_Top At_Offset_0 0026 1c00 | | Execute_Immediate Run_Utility,0x0 0027 00e1 | | Load_Encached Boolean_Cache 0028 BODY_0020: 0028 00e1 | | Load_Encached Boolean_Cache 0029 00da | | Load_Top At_Offset_2 002a 0120 | | Execute Any,Is_Value 002b 6802 |h | Jump_Zero 0x2e 002c e002 | | Load 0x0,0x2 002d 7801 |x | Jump 0x2f 002e 00da | | Load_Top At_Offset_2 002f e5ff | | Load 0x2,-0x1 0030 8003 | | Call 0x0,0x3 0031 c402 | | Store 0x2,0x2 0032 0059 | Y | Store_Top Discrete,At_Offset_1 0033 00d8 | | Load_Top At_Offset_0 0034 6802 |h | Jump_Zero 0x37 0035 00d9 | | Load_Top At_Offset_1 0036 8004 | | Call 0x0,0x4 0037 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0038 TRAP_0020: 0038 0007 | | Action Break_Optional 0039 480a |H | Short_Literal 0xa 003a 0092 00df | | Action Push_String_Extended,0xdf ; "Exception raised during command processing: " 003c e005 | | Load 0x0,0x5 003d 180d | | Execute Package,Field_Execute,Field_Number 0xd 003e 01cc | | Execute Vector,Catenate 003f 01cb | | Execute Vector,Append 0040 8006 | | Call 0x0,0x6 0041 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0042 0000 0000 | | .BLANK 0000[0x6] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0050 | P | .CONST 0x0050 ; Address of begin 0049 0060 | ` | .CONST 0x0060 ; Address of exception handler 004a 0003 | | .CONST 0x0003 ; Number of locals 004b INIT_0048: 004b e002 | | Load 0x0,0x2 004c 02c7 | | Declare_Variable Any 004d 00d8 | | Load_Top At_Offset_0 004e 1c00 | | Execute_Immediate Run_Utility,0x0 004f 00e1 | | Load_Encached Boolean_Cache 0050 BODY_0048: 0050 00e1 | | Load_Encached Boolean_Cache 0051 00da | | Load_Top At_Offset_2 0052 0120 | | Execute Any,Is_Value 0053 6802 |h | Jump_Zero 0x56 0054 e002 | | Load 0x0,0x2 0055 7801 |x | Jump 0x57 0056 00da | | Load_Top At_Offset_2 0057 e5ff | | Load 0x2,-0x1 0058 8003 | | Call 0x0,0x3 0059 c402 | | Store 0x2,0x2 005a 0059 | Y | Store_Top Discrete,At_Offset_1 005b 00d8 | | Load_Top At_Offset_0 005c 6802 |h | Jump_Zero 0x5f 005d 00d9 | | Load_Top At_Offset_1 005e 8007 | | Call 0x0,0x7 005f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0060 TRAP_0048: 0060 0007 | | Action Break_Optional 0061 480a |H | Short_Literal 0xa 0062 0092 00df | | Action Push_String_Extended,0xdf ; "Exception raised during command processing: " 0064 e005 | | Load 0x0,0x5 0065 180d | | Execute Package,Field_Execute,Field_Number 0xd 0066 01cc | | Execute Vector,Catenate 0067 01cb | | Execute Vector,Append 0068 8006 | | Call 0x0,0x6 0069 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006a 0000 0000 | | .BLANK 0000[0x6] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0078 | x | .CONST 0x0078 ; Address of begin 0071 0088 | | .CONST 0x0088 ; Address of exception handler 0072 0003 | | .CONST 0x0003 ; Number of locals 0073 INIT_0070: 0073 e002 | | Load 0x0,0x2 0074 02c7 | | Declare_Variable Any 0075 00d8 | | Load_Top At_Offset_0 0076 1c00 | | Execute_Immediate Run_Utility,0x0 0077 00e1 | | Load_Encached Boolean_Cache 0078 BODY_0070: 0078 00e1 | | Load_Encached Boolean_Cache 0079 00da | | Load_Top At_Offset_2 007a 0120 | | Execute Any,Is_Value 007b 6802 |h | Jump_Zero 0x7e 007c e002 | | Load 0x0,0x2 007d 7801 |x | Jump 0x7f 007e 00da | | Load_Top At_Offset_2 007f e5ff | | Load 0x2,-0x1 0080 8003 | | Call 0x0,0x3 0081 c402 | | Store 0x2,0x2 0082 0059 | Y | Store_Top Discrete,At_Offset_1 0083 00d8 | | Load_Top At_Offset_0 0084 6802 |h | Jump_Zero 0x87 0085 00d9 | | Load_Top At_Offset_1 0086 8008 | | Call 0x0,0x8 0087 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0088 TRAP_0070: 0088 0007 | | Action Break_Optional 0089 480a |H | Short_Literal 0xa 008a 0092 00df | | Action Push_String_Extended,0xdf ; "Exception raised during command processing: " 008c e005 | | Load 0x0,0x5 008d 180d | | Execute Package,Field_Execute,Field_Number 0xd 008e 01cc | | Execute Vector,Catenate 008f 01cb | | Execute Vector,Append 0090 8006 | | Call 0x0,0x6 0091 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0092 0000 0000 | | .BLANK 0000[0x6] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a0 | | .CONST 0x00a0 ; Address of begin 0099 00da | | .CONST 0x00da ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b e009 | | Load 0x0,0x9 009c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009d 02c7 | | Declare_Variable Any 009e 00d8 | | Load_Top At_Offset_0 009f 1c00 | | Execute_Immediate Run_Utility,0x0 00a0 BODY_0098: 00a0 4801 |H | Short_Literal 0x1 00a1 0092 00e0 | | Action Push_String_Extended,0xe0 ; "version" 00a3 e5ff | | Load 0x2,-0x1 00a4 e00a | | Load 0x0,0xa 00a5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00a6 680a |h | Jump_Zero 0xb1 00a7 4801 |H | Short_Literal 0x1 00a8 4801 |H | Short_Literal 0x1 00a9 4800 |H | Short_Literal 0x0 00aa 4801 |H | Short_Literal 0x1 00ab 00ea | | Load_Encached Null_String_Cache 00ac e00b | | Load 0x0,0xb 00ad 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00ae e00c | | Load 0x0,0xc 00af 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00b1 00db | | Load_Top At_Offset_3 00b2 01db | | Execute Vector,Length 00b3 0f00 | | Execute_Immediate Equal,0x0 00b4 4801 |H | Short_Literal 0x1 00b5 0092 00e1 | | Action Push_String_Extended,0xe1 ; "help" 00b7 e5ff | | Load 0x2,-0x1 00b8 e00a | | Load 0x0,0xa 00b9 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00ba 0278 | x | Execute Discrete,Or 00bb 680a |h | Jump_Zero 0xc6 00bc 00d8 | | Load_Top At_Offset_0 00bd e5fe | | Load 0x2,-0x2 00be 0092 00e1 | | Action Push_String_Extended,0xe1 ; "help" 00c0 800d | | Call 0x0,0xd 00c1 c402 | | Store 0x2,0x2 00c2 0092 00e2 | | Action Push_String_Extended,0xe2 ; "Version : Display version information." 00c4 800e | | Call 0x0,0xe 00c5 7805 |x | Jump 0xcb 00c6 00d8 | | Load_Top At_Offset_0 00c7 e5fe | | Load 0x2,-0x2 00c8 e5ff | | Load 0x2,-0x1 00c9 800d | | Call 0x0,0xd 00ca c402 | | Store 0x2,0x2 00cb 4802 |H | Short_Literal 0x2 00cc 00d9 | | Load_Top At_Offset_1 00cd e009 | | Load 0x0,0x9 00ce 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00cf 6809 |h | Jump_Zero 0xd9 00d0 480a |H | Short_Literal 0xa 00d1 0092 00e3 | | Action Push_String_Extended,0xe3 ; "Error processing target request: " 00d3 00da | | Load_Top At_Offset_2 00d4 e009 | | Load 0x0,0x9 00d5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00d6 01cc | | Execute Vector,Catenate 00d7 01cb | | Execute Vector,Append 00d8 8006 | | Call 0x0,0x6 00d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00da TRAP_0098: 00da 0007 | | Action Break_Optional 00db 0092 00e4 | | Action Push_String_Extended,0xe4 ; "Exception processing target request\x0a" 00dd 8006 | | Call 0x0,0x6 00de 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00df ; -------------------------------------------------------------------------------------- 00df ; STRING TABLE 00df ; -------------------------------------------------------------------------------------- 00df 000e | | .STRTAB 0x000e->0x00e6 ; "Exception raised during command processing: " 00e0 0038 | 8 | .STRTAB 0x0038->0x00fc ; "version" 00e1 003d | = | .STRTAB 0x003d->0x00ff ; "help" 00e2 003f | ? | .STRTAB 0x003f->0x0101 ; "Version : Display version information." 00e3 006d | m | .STRTAB 0x006d->0x0119 ; "Error processing target request: " 00e4 008c | | .STRTAB 0x008c->0x012a ; "Exception processing target request\x0a" 00e5 00ae | | .STREND 0x00ae->0x013c 00e6 4578 6365 |Exce| .STRTAB_STRINGS 013c 0000 0000 | | .BLANK 0000[0x4] 0140 ; -------------------------------------------------------------------------------------- 0140 ; Debug Table 0140 ; -------------------------------------------------------------------------------------- 0140 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1652,0x0000,0x0001,0x0000 0146 0000 2043 | C| .XXX[0x3] 0148 cb40 | @ | 0149 0000 0000 | | .BLANK 0000[0x1b] 0164 2000 064c | L| .XXX[0x1e] 0166 083c 011e | < | 0168 4000 0000 |@ | 016a 1b44 b808 | D | 016c 0040 0044 | @ D| 016e 0000 0002 | | 0170 9d60 0001 | ` | 0172 0000 0025 | %| 0174 8014 0000 | | 0176 0288 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0029 0000 | ) | 0180 0408 7a04 | z | 0182 0000 0000 | | .BLANK 0000[0x1b] 019d 0400 00c9 | | .XXX[0x1f] 019f 8507 8023 | #| 01a1 c800 0000 | | 01a3 0b6c 9701 | l | 01a5 0008 0008 | | 01a7 8000 0000 | | 01a9 53ac 0000 |S | 01ab 3000 0004 |0 | 01ad b002 8000 | | 01af 0051 0000 | Q | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 2000 | | 01b9 0081 0f40 | @| 01bb 8000 | | 01bc 0000 0000 | | .BLANK 0000[0x1a] 01d6 0080 0019 | | .XXX[0x3] 01d8 3080 |0 | 01d9 0000 0000 | | .BLANK 0000[0x27]