|
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 01a8 | | .CONST 0x01a8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 002a | * | .CONST 0x002a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0012 | | .CONST 0x0012 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4801 |H | Short_Literal 0x1 000d 029f 0033 | 3| Declare_Subprogram INIT_0030,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 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated 0017 c212 | | Store 0x1,0x12 0018 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 001a c20f | | Store 0x1,0xf 001b 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 001d c210 | | Store 0x1,0x10 001e 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0020 c211 | | Store 0x1,0x11 0021 00bf | | Action Accept_Activation 0022 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0023 00c7 | | Action Elaborate_Subprogram 0024 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0025 00c7 | | Action Elaborate_Subprogram 0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0027 00c7 | | Action Elaborate_Subprogram 0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0029 00c7 | | Action Elaborate_Subprogram 002a BODY_0008: 002a 00bc | | Action Signal_Activated 002b 00bb | | Action Signal_Completion 002c 0000 0000 | | .BLANK 0000[0x4] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0033 | 3 | .CONST 0x0033 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0001 | | .CONST 0x0001 ; Number of locals 0033 BODY_0030: 0033 INIT_0030: 0033 4607 |F | Jump_Case 0x8 0034 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0035 7806 |x | Jump 0x3c ; case 0x1 0036 7809 |x | Jump 0x40 ; case 0x2 0037 780d |x | Jump 0x45 ; case 0x3 0038 7810 |x | Jump 0x49 ; case 0x4 0039 7811 |x | Jump 0x4b ; case 0x5 003a 7812 |x | Jump 0x4d ; case 0x6 003b 7815 |x | Jump 0x51 ; case 0x7 003c 00da | | Load_Top At_Offset_2 003d 0091 0164 | d| Action Push_String_Extended_Indexed,0x164 ; "INPUT" 003f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0040 00db | | Load_Top At_Offset_3 0041 00db | | Load_Top At_Offset_3 0042 00e0 | | Load_Encached Standard_Cache 0043 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0044 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0045 00da | | Load_Top At_Offset_2 0046 00e0 | | Load_Encached Standard_Cache 0047 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0048 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0049 00db | | Load_Top At_Offset_3 004a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 004b 00db | | Load_Top At_Offset_3 004c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 004d e20d | | Load 0x1,0xd 004e 00dc | | Load_Top At_Offset_4 004f 0267 | g | Execute Discrete,Predecessor 0050 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0051 e20d | | Load 0x1,0xd 0052 00dc | | Load_Top At_Offset_4 0053 0268 | h | Execute Discrete,Successor 0054 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005b | [ | .CONST 0x005b ; Address of begin 0059 0082 | | .CONST 0x0082 ; Address of exception handler 005a 0001 | | .CONST 0x0001 ; Number of locals 005b BODY_0058: 005b INIT_0058: 005b e001 | | Load 0x0,0x1 005c 180e | | Execute Package,Field_Execute,Field_Number 0xe 005d 4802 |H | Short_Literal 0x2 005e 0092 0166 | f| Action Push_String_Extended,0x166 ; "Connecting to tape " 0060 e002 | | Load 0x0,0x2 0061 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0062 00db | | Load_Top At_Offset_3 0063 e003 | | Load 0x0,0x3 0064 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0065 c5fb | | Store 0x2,-0x5 0066 00da | | Load_Top At_Offset_2 0067 0f01 | | Execute_Immediate Equal,0x1 0068 680a |h | Jump_Zero 0x73 0069 e5fb | | Load 0x2,-0x5 006a 0092 0167 | g| Action Push_String_Extended,0x167 ; "Thank You" 006c 00ea | | Load_Encached Null_String_Cache 006d 00ea | | Load_Encached Null_String_Cache 006e e5fd | | Load 0x2,-0x3 006f e003 | | Load 0x0,0x3 0070 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0071 c5fb | | Store 0x2,-0x5 0072 7808 |x | Jump 0x7b 0073 e5fb | | Load 0x2,-0x5 0074 0092 0167 | g| Action Push_String_Extended,0x167 ; "Thank You" 0076 00ea | | Load_Encached Null_String_Cache 0077 e5fd | | Load 0x2,-0x3 0078 e003 | | Load 0x0,0x3 0079 1818 | | Execute Package,Field_Execute,Field_Number 0x18 007a c5fb | | Store 0x2,-0x5 007b 6010 |` | Indirect_Literal Discrete,0x8c,{0x00000000, 0x00000800} 007c 4a00 |J | Short_Literal 0x200 007d 4801 |H | Short_Literal 0x1 007e e5fb | | Load 0x2,-0x5 007f e003 | | Load 0x0,0x3 0080 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0081 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0082 TRAP_0058: 0082 0007 | | Action Break_Optional 0083 e001 | | Load 0x0,0x1 0084 180e | | Execute Package,Field_Execute,Field_Number 0xe 0085 4807 |H | Short_Literal 0x7 0086 0092 0168 | h| Action Push_String_Extended,0x168 ; "Tape open failed" 0088 e002 | | Load 0x0,0x2 0089 1813 | | Execute Package,Field_Execute,Field_Number 0x13 008a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 008b 0000 | | .XXX[0x1] 008c 0000 0000 | | .LITERAL {0x00000000, 0x00000800} 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0097 | | .CONST 0x0097 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 e003 | | Load 0x0,0x3 0095 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 0096 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0097 TRAP_0090: 0097 0007 | | Action Break_Optional 0098 e001 | | Load 0x0,0x1 0099 180e | | Execute Package,Field_Execute,Field_Number 0xe 009a 4807 |H | Short_Literal 0x7 009b 0092 0169 | i| Action Push_String_Extended,0x169 ; "Tape close failed" 009d e002 | | Load 0x0,0x2 009e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00af | | .CONST 0x00af ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0004 | | .CONST 0x0004 ; Number of locals 00a3 INIT_00a0: 00a3 4801 |H | Short_Literal 0x1 00a4 4a00 |J | Short_Literal 0x200 00a5 e004 | | Load 0x0,0x4 00a6 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00a7 035b | [ | Declare_Type Array,Constrained 00a8 0337 | 7 | Declare_Variable Array 00a9 00e3 | | Load_Encached Natural_Cache 00aa e004 | | Load 0x0,0x4 00ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ac 02c7 | | Declare_Variable Any 00ad 00d8 | | Load_Top At_Offset_0 00ae 1c00 | | Execute_Immediate Run_Utility,0x0 00af BODY_00a0: 00af 00d8 | | Load_Top At_Offset_0 00b0 e005 | | Load 0x0,0x5 00b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00b2 e006 | | Load 0x0,0x6 00b3 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00b4 00ea | | Load_Encached Null_String_Cache 00b5 e5ff | | Load 0x2,-0x1 00b6 4800 |H | Short_Literal 0x0 00b7 e004 | | Load 0x0,0x4 00b8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00b9 c404 | | Store 0x2,0x4 00ba e5fd | | Load 0x2,-0x3 00bb 00ea | | Load_Encached Null_String_Cache 00bc e5fe | | Load 0x2,-0x2 00bd e003 | | Load 0x0,0x3 00be 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00bf c5fd | | Store 0x2,-0x3 00c0 e5fd | | Load 0x2,-0x3 00c1 e003 | | Load 0x0,0x3 00c2 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 00c3 6808 |h | Jump_Zero 0xcc 00c4 e001 | | Load 0x0,0x1 00c5 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c6 4807 |H | Short_Literal 0x7 00c7 0092 016a | j| Action Push_String_Extended,0x16a ; "Tape_write errors" 00c9 e002 | | Load 0x0,0x2 00ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00cb 7822 |x" | Jump 0xee 00cc 00cf | | Action Mark_Auxiliary 00cd 781b |x | Jump 0xe9 00ce 00e3 | | Load_Encached Natural_Cache 00cf e402 | | Load 0x2,0x2 00d0 00db | | Load_Top At_Offset_3 00d1 e004 | | Load 0x0,0x4 00d2 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00d3 00d1 | | Pop_Control Pop_Count_1 00d4 005b | [ | Store_Top Discrete,At_Offset_3 00d5 4801 |H | Short_Literal 0x1 00d6 00db | | Load_Top At_Offset_3 00d7 e402 | | Load 0x2,0x2 00d8 01cf | | Execute Vector,Slice_Read 00d9 e5fd | | Load 0x2,-0x3 00da e003 | | Load 0x0,0x3 00db 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 00dc e5fd | | Load 0x2,-0x3 00dd e003 | | Load 0x0,0x3 00de 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 00df 6808 |h | Jump_Zero 0xe8 00e0 e001 | | Load 0x0,0x1 00e1 180e | | Execute Package,Field_Execute,Field_Number 0xe 00e2 4807 |H | Short_Literal 0x7 00e3 0092 016a | j| Action Push_String_Extended,0x16a ; "Tape_write errors" 00e5 e002 | | Load 0x0,0x2 00e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e7 7805 |x | Jump 0xed 00e8 00c9 | | Action Pop_Auxiliary_Loop 00e9 00d9 | | Load_Top At_Offset_1 00ea e004 | | Load 0x0,0x4 00eb 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00ec 6fe1 |o | Jump_Zero 0xce 00ed 00ce | | Action Pop_Auxiliary 00ee 00d8 | | Load_Top At_Offset_0 00ef e004 | | Load 0x0,0x4 00f0 1819 | | Execute Package,Field_Execute,Field_Number 0x19 00f1 c404 | | Store 0x2,0x4 00f2 e5fd | | Load 0x2,-0x3 00f3 e003 | | Load 0x0,0x3 00f4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fd | | .CONST 0x00fd ; Address of begin 00f9 0103 | | .CONST 0x0103 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 00fd BODY_00f8: 00fd e5fe | | Load 0x2,-0x2 00fe e003 | | Load 0x0,0x3 00ff 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0100 c5fe | | Store 0x2,-0x2 0101 8402 | | Call 0x2,0x2 0102 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0103 TRAP_00f8: 0103 0007 | | Action Break_Optional 0104 e001 | | Load 0x0,0x1 0105 180e | | Execute Package,Field_Execute,Field_Number 0xe 0106 4807 |H | Short_Literal 0x7 0107 0092 016b | k| Action Push_String_Extended,0x16b ; "Tape_read error" 0109 e002 | | Load 0x0,0x2 010a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 010b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 010c 0000 0000 | | .BLANK 0000[0x4] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0127 | ' | .CONST 0x0127 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0007 | | .CONST 0x0007 ; Number of locals 0113 INIT_0110: 0113 e004 | | Load 0x0,0x4 0114 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0115 02c7 | | Declare_Variable Any 0116 00d8 | | Load_Top At_Offset_0 0117 1c00 | | Execute_Immediate Run_Utility,0x0 0118 e5fe | | Load 0x2,-0x2 0119 e003 | | Load 0x0,0x3 011a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 011b e5fe | | Load 0x2,-0x2 011c e003 | | Load 0x0,0x3 011d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 011e 4801 |H | Short_Literal 0x1 011f 00d9 | | Load_Top At_Offset_1 0120 e004 | | Load 0x0,0x4 0121 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0122 035b | [ | Declare_Type Array,Constrained 0123 0337 | 7 | Declare_Variable Array 0124 00e3 | | Load_Encached Natural_Cache 0125 029f 015b | [| Declare_Subprogram INIT_0158,For_Call 0127 BODY_0110: 0127 e602 | | Load 0x3,0x2 0128 e005 | | Load 0x0,0x5 0129 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012a e006 | | Load 0x0,0x6 012b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 012c e006 | | Load 0x0,0x6 012d 181e | | Execute Package,Field_Execute,Field_Number 0x1e 012e 00ea | | Load_Encached Null_String_Cache 012f 8607 | | Call 0x3,0x7 0130 4801 |H | Short_Literal 0x1 0131 e004 | | Load 0x0,0x4 0132 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0133 c602 | | Store 0x3,0x2 0134 00cf | | Action Mark_Auxiliary 0135 780f |x | Jump 0x145 0136 00e3 | | Load_Encached Natural_Cache 0137 e605 | | Load 0x3,0x5 0138 e5fe | | Load 0x2,-0x2 0139 e003 | | Load 0x0,0x3 013a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 013b 00d1 | | Pop_Control Pop_Count_1 013c 005b | [ | Store_Top Discrete,At_Offset_3 013d 4801 |H | Short_Literal 0x1 013e 00db | | Load_Top At_Offset_3 013f e605 | | Load 0x3,0x5 0140 01cf | | Execute Vector,Slice_Read 0141 e602 | | Load 0x3,0x2 0142 e004 | | Load 0x0,0x4 0143 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0144 00c9 | | Action Pop_Auxiliary_Loop 0145 e5fe | | Load 0x2,-0x2 0146 e003 | | Load 0x0,0x3 0147 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0148 6fed |o | Jump_Zero 0x136 0149 00ce | | Action Pop_Auxiliary 014a e602 | | Load 0x3,0x2 014b e004 | | Load 0x0,0x4 014c 1819 | | Execute Package,Field_Execute,Field_Number 0x19 014d c602 | | Store 0x3,0x2 014e e5fe | | Load 0x2,-0x2 014f e003 | | Load 0x0,0x3 0150 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0151 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0152 0000 0000 | | .BLANK 0000[0x6] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b e5ff | | Load 0x2,-0x1 015c 01db | | Execute Vector,Length 015d 7002 |p | Jump_Nonzero 0x160 015e e603 | | Load 0x3,0x3 015f 00ca | | Action Exit_Nullary_Function 0160 e5ff | | Load 0x2,-0x1 0161 0335 | 5 | Declare_Variable Array,Duplicate 0162 00cd | | Action Spare6_Action 0163 00ca | | Action Exit_Nullary_Function 0164 ; -------------------------------------------------------------------------------------- 0164 ; STRING TABLE 0164 ; -------------------------------------------------------------------------------------- 0164 0012 | | .STRTAB 0x0012->0x016d ; "INPUT" 0165 0015 | | .STRTAB 0x0015->0x016f ; "OUTPUT" 0166 0019 | | .STRTAB 0x0019->0x0172 ; "Connecting to tape " 0167 002a | * | .STRTAB 0x002a->0x017c ; "Thank You" 0168 0031 | 1 | .STRTAB 0x0031->0x0180 ; "Tape open failed" 0169 003f | ? | .STRTAB 0x003f->0x0188 ; "Tape close failed" 016a 004e | N | .STRTAB 0x004e->0x0191 ; "Tape_write errors" 016b 005d | ] | .STRTAB 0x005d->0x0199 ; "Tape_read error" 016c 006a | j | .STREND 0x006a->0x01a1 016d 494e 5055 |INPU| .STRTAB_STRINGS 01a1 0000 0000 | | .BLANK 0000[0x7] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; Debug Table 01a8 ; -------------------------------------------------------------------------------------- 01a8 0004 000e | | .DEBUG4 0x0004,0x000e,0x2d1f,0x0000,0x0001,0x0000 01ae 5004 7a86 |P z | .XXX[0x2] 01b0 0000 0000 | | .BLANK 0000[0x4] 01b4 0004 7c17 | | | .XXX[0x19] 01b6 0000 858d | | 01b8 4000 0000 |@ | 01ba 0004 3a59 | :Y| 01bc 011e d800 | | 01be 0022 2e58 | ".X| 01c0 08f5 8600 | | 01c2 0113 f140 | @| 01c4 47b9 d000 |G | 01c6 0000 0000 | | 01c8 47c9 4000 |G @ | 01ca 0000 0000 | | 01cc 0008 | | 01cd 0000 0000 | | .BLANK 0000[0x33]