|
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_03b8fe
└─⟦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 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 0039 | 9 | .CONST 0x0039 ; 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 4800 |H | Short_Literal 0x0 0030 e5ff | | Load 0x2,-0x1 0031 8003 | | Call 0x0,0x3 0032 c402 | | Store 0x2,0x2 0033 0059 | Y | Store_Top Discrete,At_Offset_1 0034 00d8 | | Load_Top At_Offset_0 0035 6802 |h | Jump_Zero 0x38 0036 00d9 | | Load_Top At_Offset_1 0037 8004 | | Call 0x0,0x4 0038 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0039 TRAP_0020: 0039 0007 | | Action Break_Optional 003a 480a |H | Short_Literal 0xa 003b 0092 00df | | Action Push_String_Extended,0xdf ; "Exception raised during command processing: " 003d e005 | | Load 0x0,0x5 003e 180d | | Execute Package,Field_Execute,Field_Number 0xd 003f 01cc | | Execute Vector,Catenate 0040 01cb | | Execute Vector,Append 0041 8006 | | Call 0x0,0x6 0042 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0050 | P | .CONST 0x0050 ; Address of begin 0049 0061 | a | .CONST 0x0061 ; 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 4800 |H | Short_Literal 0x0 0058 e5ff | | Load 0x2,-0x1 0059 8003 | | Call 0x0,0x3 005a c402 | | Store 0x2,0x2 005b 0059 | Y | Store_Top Discrete,At_Offset_1 005c 00d8 | | Load_Top At_Offset_0 005d 6802 |h | Jump_Zero 0x60 005e 00d9 | | Load_Top At_Offset_1 005f 8007 | | Call 0x0,0x7 0060 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0061 TRAP_0048: 0061 0007 | | Action Break_Optional 0062 480a |H | Short_Literal 0xa 0063 0092 00df | | Action Push_String_Extended,0xdf ; "Exception raised during command processing: " 0065 e005 | | Load 0x0,0x5 0066 180d | | Execute Package,Field_Execute,Field_Number 0xd 0067 01cc | | Execute Vector,Catenate 0068 01cb | | Execute Vector,Append 0069 8006 | | Call 0x0,0x6 006a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 006b 0000 0000 | | .BLANK 0000[0x5] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0078 | x | .CONST 0x0078 ; Address of begin 0071 0089 | | .CONST 0x0089 ; 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 4800 |H | Short_Literal 0x0 0080 e5ff | | Load 0x2,-0x1 0081 8003 | | Call 0x0,0x3 0082 c402 | | Store 0x2,0x2 0083 0059 | Y | Store_Top Discrete,At_Offset_1 0084 00d8 | | Load_Top At_Offset_0 0085 6802 |h | Jump_Zero 0x88 0086 00d9 | | Load_Top At_Offset_1 0087 8008 | | Call 0x0,0x8 0088 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0089 TRAP_0070: 0089 0007 | | Action Break_Optional 008a 480a |H | Short_Literal 0xa 008b 0092 00df | | Action Push_String_Extended,0xdf ; "Exception raised during command processing: " 008d e005 | | Load 0x0,0x5 008e 180d | | Execute Package,Field_Execute,Field_Number 0xd 008f 01cc | | Execute Vector,Catenate 0090 01cb | | Execute Vector,Append 0091 8006 | | Call 0x0,0x6 0092 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0093 0000 0000 | | .BLANK 0000[0x5] 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 000d | | .DEBUG4 0x0004,0x000d,0x72a9,0x0000,0x0001,0x0000 0146 0000 0000 | | .BLANK 0000[0x2e] 0174 8014 0000 | | .XXX[0xb] 0176 0000 0000 | | 0178 0100 0000 | | 017a 0880 0000 | | 017c 0004 0000 | | 017e 0028 | ( | 017f 0000 0000 | | .BLANK 0000[0x2e] 01ad 1002 8000 | | .XXX[0xb] 01af 0000 0000 | | 01b1 0020 0000 | | 01b3 0110 0000 | | 01b5 0000 8000 | | 01b7 0005 | | 01b8 0000 0000 | | .BLANK 0000[0x48]