|
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_1188cd9
└─⟦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 0138 | 8 | .CONST 0x0138 ; 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 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4803 |H | Short_Literal 0x3 000d 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 0015 c210 | | Store 0x1,0x10 0016 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0018 c20f | | Store 0x1,0xf 0019 00bf | | Action Accept_Activation 001a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001b 00c7 | | Action Elaborate_Subprogram 001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001d 00c7 | | Action Elaborate_Subprogram 001e BODY_0008: 001e 00bc | | Action Signal_Activated 001f 00bb | | Action Signal_Completion 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 4603 |F | Jump_Case 0x4 0024 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0025 7802 |x | Jump 0x28 ; case 0x1 0026 7805 |x | Jump 0x2c ; case 0x2 0027 7809 |x | Jump 0x31 ; case 0x3 0028 00da | | Load_Top At_Offset_2 0029 0091 00dc | | Action Push_String_Extended_Indexed,0xdc ; "STEP_FORWARD" 002b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 002c 00db | | Load_Top At_Offset_3 002d 00db | | Load_Top At_Offset_3 002e 00e0 | | Load_Encached Standard_Cache 002f 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0030 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0031 00da | | Load_Top At_Offset_2 0032 00e0 | | Load_Encached Standard_Cache 0033 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0034 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0035 0000 0000 | | .XXX[0x3] 0037 0000 | | 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 00db | | Load_Top At_Offset_3 003c 0092 00e0 | | Action Push_String_Extended,0xe0 ; "RATIONAL" 003e 01df | | Execute Vector,Equal 003f 6812 |h | Jump_Zero 0x52 0040 00da | | Load_Top At_Offset_2 0041 4603 |F | Jump_Case 0x4 0042 7803 |x | Jump 0x46 ; case 0x0 0043 7805 |x | Jump 0x49 ; case 0x1 0044 7807 |x | Jump 0x4c ; case 0x2 0045 7809 |x | Jump 0x4f ; case 0x3 0046 0092 00e1 | | Action Push_String_Extended,0xe1 ; "F3" 0048 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0049 0092 00e2 | | Action Push_String_Extended,0xe2 ; "F4" 004b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 004c 0092 00e3 | | Action Push_String_Extended,0xe3 ; "F2" 004e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 004f 0092 00e4 | | Action Push_String_Extended,0xe4 ; "F5" 0051 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0052 00db | | Load_Top At_Offset_3 0053 0092 00e5 | | Action Push_String_Extended,0xe5 ; "FACIT" 0055 01df | | Execute Vector,Equal 0056 6812 |h | Jump_Zero 0x69 0057 00da | | Load_Top At_Offset_2 0058 4603 |F | Jump_Case 0x4 0059 7803 |x | Jump 0x5d ; case 0x0 005a 7805 |x | Jump 0x60 ; case 0x1 005b 7807 |x | Jump 0x63 ; case 0x2 005c 7809 |x | Jump 0x66 ; case 0x3 005d 0092 00e6 | | Action Push_String_Extended,0xe6 ; "Esc_S_F3" 005f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0060 0092 00e7 | | Action Push_String_Extended,0xe7 ; "Esc_S_F4" 0062 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0063 0092 00e8 | | Action Push_String_Extended,0xe8 ; "Esc_S_F2" 0065 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0066 0092 00e9 | | Action Push_String_Extended,0xe9 ; "Esc_S_F5" 0068 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0069 00db | | Load_Top At_Offset_3 006a 0092 00ea | | Action Push_String_Extended,0xea ; "VT100" 006c 01df | | Execute Vector,Equal 006d 6812 |h | Jump_Zero 0x80 006e 00da | | Load_Top At_Offset_2 006f 4603 |F | Jump_Case 0x4 0070 7803 |x | Jump 0x74 ; case 0x0 0071 7805 |x | Jump 0x77 ; case 0x1 0072 7807 |x | Jump 0x7a ; case 0x2 0073 7809 |x | Jump 0x7d ; case 0x3 0074 0092 00eb | | Action Push_String_Extended,0xeb ; "Esc_3" 0076 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0077 0092 00ec | | Action Push_String_Extended,0xec ; "Esc_4" 0079 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 007a 0092 00ed | | Action Push_String_Extended,0xed ; "Esc_2" 007c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 007d 0092 00ee | | Action Push_String_Extended,0xee ; "Esc_5" 007f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0080 00da | | Load_Top At_Offset_2 0081 4603 |F | Jump_Case 0x4 0082 7803 |x | Jump 0x86 ; case 0x0 0083 7805 |x | Jump 0x89 ; case 0x1 0084 7807 |x | Jump 0x8c ; case 0x2 0085 7809 |x | Jump 0x8f ; case 0x3 0086 0092 00eb | | Action Push_String_Extended,0xeb ; "Esc_3" 0088 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0089 0092 00ec | | Action Push_String_Extended,0xec ; "Esc_4" 008b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008c 0092 00ed | | Action Push_String_Extended,0xed ; "Esc_2" 008e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008f 0092 00ee | | Action Push_String_Extended,0xee ; "Esc_5" 0091 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0092 0000 0000 | | .BLANK 0000[0x6] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a4 | | .CONST 0x00a4 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0004 | | .CONST 0x0004 ; Number of locals 009b INIT_0098: 009b e001 | | Load 0x0,0x1 009c 1b14 | | Execute Package,Field_Read,Field_Number 0x14 009d 02c7 | | Declare_Variable Any 009e 00d8 | | Load_Top At_Offset_0 009f 1c00 | | Execute_Immediate Run_Utility,0x0 00a0 e002 | | Load 0x0,0x2 00a1 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00a3 00e1 | | Load_Encached Boolean_Cache 00a4 BODY_0098: 00a4 00e1 | | Load_Encached Boolean_Cache 00a5 e002 | | Load 0x0,0x2 00a6 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00a7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00a8 e003 | | Load 0x0,0x3 00a9 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00aa e003 | | Load 0x0,0x3 00ab 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00ac e003 | | Load 0x0,0x3 00ad 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00ae e003 | | Load 0x0,0x3 00af 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00b0 e003 | | Load 0x0,0x3 00b1 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00b2 e003 | | Load 0x0,0x3 00b3 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00b4 e5ff | | Load 0x2,-0x1 00b5 8210 | | Call 0x1,0x10 00b6 e002 | | Load 0x0,0x2 00b7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00b8 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00b9 005b | [ | Store_Top Discrete,At_Offset_3 00ba 0059 | Y | Store_Top Discrete,At_Offset_1 00bb 00da | | Load_Top At_Offset_2 00bc 601b |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00004000} 00bd e001 | | Load 0x0,0x1 00be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00bf 4800 |H | Short_Literal 0x0 00c0 8004 | | Call 0x0,0x4 00c1 4803 |H | Short_Literal 0x3 00c2 e001 | | Load 0x0,0x1 00c3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c4 c402 | | Store 0x2,0x2 00c5 00da | | Load_Top At_Offset_2 00c6 600d |` | Indirect_Literal Discrete,0xd4,{0x00007fff, 0xffffffff} 00c7 00db | | Load_Top At_Offset_3 00c8 e005 | | Load 0x0,0x5 00c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ca c402 | | Store 0x2,0x2 00cb 00da | | Load_Top At_Offset_2 00cc 600b |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00004000} 00cd e001 | | Load 0x0,0x1 00ce 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00cf c402 | | Store 0x2,0x2 00d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d1 0000 0000 | | .XXX[0x3] 00d3 0000 | | 00d4 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 00d8 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 00dc ; -------------------------------------------------------------------------------------- 00dc ; STRING TABLE 00dc ; -------------------------------------------------------------------------------------- 00dc 0028 | ( | .STRTAB 0x0028->0x00f0 ; "STEP_FORWARD" 00dd 0032 | 2 | .STRTAB 0x0032->0x00f6 ; "STEP_BACKWARD" 00de 003d | = | .STRTAB 0x003d->0x00fc ; "RETURN_TO_MENU" 00df 0049 | I | .STRTAB 0x0049->0x0103 ; "SELECT_SCRIPT" 00e0 0054 | T | .STRTAB 0x0054->0x010a ; "RATIONAL" 00e1 005a | Z | .STRTAB 0x005a->0x010e ; "F3" 00e2 005a | Z | .STRTAB 0x005a->0x010f ; "F4" 00e3 005a | Z | .STRTAB 0x005a->0x0110 ; "F2" 00e4 005a | Z | .STRTAB 0x005a->0x0111 ; "F5" 00e5 005a | Z | .STRTAB 0x005a->0x0112 ; "FACIT" 00e6 005d | ] | .STRTAB 0x005d->0x0114 ; "Esc_S_F3" 00e7 0063 | c | .STRTAB 0x0063->0x0118 ; "Esc_S_F4" 00e8 0069 | i | .STRTAB 0x0069->0x011c ; "Esc_S_F2" 00e9 006f | o | .STRTAB 0x006f->0x0120 ; "Esc_S_F5" 00ea 0075 | u | .STRTAB 0x0075->0x0124 ; "VT100" 00eb 0078 | x | .STRTAB 0x0078->0x0127 ; "Esc_3" 00ec 007b | { | .STRTAB 0x007b->0x0129 ; "Esc_4" 00ed 007e | ~ | .STRTAB 0x007e->0x012c ; "Esc_2" 00ee 0081 | | .STRTAB 0x0081->0x012e ; "Esc_5" 00ef 0084 | | .STREND 0x0084->0x0131 00f0 5354 4550 |STEP| .STRTAB_STRINGS 0131 0000 0000 | | .BLANK 0000[0x7] 0138 ; -------------------------------------------------------------------------------------- 0138 ; Debug Table 0138 ; -------------------------------------------------------------------------------------- 0138 0004 0007 | | .DEBUG4 0x0004,0x0007,0x5bd8,0x0000,0x0001,0x0000 013e 0000 0000 | | .BLANK 0000[0xc2]