|
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_779ce4
└─⟦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 0160 | ` | .CONST 0x0160 ; 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 001b | | .CONST 0x001b ; Address of begin 0009 003d | = | .CONST 0x003d ; Address of exception handler 000a 0006 | | .CONST 0x0006 ; Number of locals 000b INIT_0008: 000b e006 | | Load 0x0,0x6 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 02c7 | | Declare_Variable Any 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e006 | | Load 0x0,0x6 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 02c7 | | Declare_Variable Any 0013 00d8 | | Load_Top At_Offset_0 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 0017 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 0019 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 001b BODY_0008: 001b 8405 | | Call 0x2,0x5 001c e5fe | | Load 0x2,-0x2 001d 01db | | Execute Vector,Length 001e 7004 |p | Jump_Nonzero 0x23 001f e006 | | Load 0x0,0x6 0020 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0021 c403 | | Store 0x2,0x3 0022 7801 |x | Jump 0x24 0023 8406 | | Call 0x2,0x6 0024 e5fd | | Load 0x2,-0x3 0025 01db | | Execute Vector,Length 0026 7008 |p | Jump_Nonzero 0x2f 0027 e002 | | Load 0x0,0x2 0028 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0029 e002 | | Load 0x0,0x2 002a 181d | | Execute Package,Field_Execute,Field_Number 0x1d 002b e002 | | Load 0x0,0x2 002c 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 002d 8404 | | Call 0x2,0x4 002e 7802 |x | Jump 0x31 002f e5fd | | Load 0x2,-0x3 0030 8404 | | Call 0x2,0x4 0031 e5fe | | Load 0x2,-0x2 0032 01db | | Execute Vector,Length 0033 6804 |h | Jump_Zero 0x38 0034 00db | | Load_Top At_Offset_3 0035 e006 | | Load 0x0,0x6 0036 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0037 c403 | | Store 0x2,0x3 0038 e402 | | Load 0x2,0x2 0039 e006 | | Load 0x0,0x6 003a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 003b c402 | | Store 0x2,0x2 003c 4504 |E | Exit_Suprogram New_Top_Offset 0x4 003d TRAP_0008: 003d e214 | | Load 0x1,0x14 003e 010f | | Execute Exception,Equal 003f 6802 |h | Jump_Zero 0x42 0040 00d8 | | Load_Top At_Offset_0 0041 0101 | | Execute Exception,Reraise 0042 8218 | | Call 0x1,0x18 0043 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0044 0000 0000 | | .BLANK 0000[0x4] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0056 | V | .CONST 0x0056 ; Address of begin 0049 0069 | i | .CONST 0x0069 ; Address of exception handler 004a 0007 | | .CONST 0x0007 ; Number of locals 004b INIT_0048: 004b e01a | | Load 0x0,0x1a 004c 1b17 | | Execute Package,Field_Read,Field_Number 0x17 004d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 004e 00e3 | | Load_Encached Natural_Cache 004f 00e3 | | Load_Encached Natural_Cache 0050 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0051 00e1 | | Load_Encached Boolean_Cache 0052 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call 0054 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0056 BODY_0048: 0056 00cf | | Action Mark_Auxiliary 0057 780c |x | Jump 0x64 0058 e604 | | Load 0x3,0x4 0059 0a01 | | Execute_Immediate Plus,0x1 005a c604 | | Store 0x3,0x4 005b 8606 | | Call 0x3,0x6 005c e603 | | Load 0x3,0x3 005d 00e0 | | Load_Encached Standard_Cache 005e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 005f e403 | | Load 0x2,0x3 0060 e006 | | Load 0x0,0x6 0061 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0062 8607 | | Call 0x3,0x7 0063 00c9 | | Action Pop_Auxiliary_Loop 0064 e402 | | Load 0x2,0x2 0065 e006 | | Load 0x0,0x6 0066 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0067 6ff0 |o | Jump_Zero 0x58 0068 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0069 TRAP_0048: 0069 0007 | | Action Break_Optional 006a 0092 0119 | | Action Push_String_Extended,0x119 ; "Error near line" 006c e604 | | Load 0x3,0x4 006d 00e0 | | Load_Encached Standard_Cache 006e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 006f 01cc | | Execute Vector,Catenate 0070 0092 011a | | Action Push_String_Extended,0x11a ; " of key file." 0072 01cc | | Execute Vector,Catenate 0073 8217 | | Call 0x1,0x17 0074 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0075 0000 0000 | | .XXX[0x3] 0077 0000 | | 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0083 | | .CONST 0x0083 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b e402 | | Load 0x2,0x2 007c 00ea | | Load_Encached Null_String_Cache 007d e5ff | | Load 0x2,-0x1 007e 4800 |H | Short_Literal 0x0 007f e006 | | Load 0x0,0x6 0080 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0081 c402 | | Store 0x2,0x2 0082 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0083 TRAP_0078: 0083 0007 | | Action Break_Optional 0084 0092 011b | | Action Push_String_Extended,0x11b ; "Cannot open " 0086 e5ff | | Load 0x2,-0x1 0087 01cc | | Execute Vector,Catenate 0088 0092 011c | | Action Push_String_Extended,0x11c ; " for input" 008a 01cc | | Execute Vector,Catenate 008b 8219 | | Call 0x1,0x19 008c 01cc | | Execute Vector,Catenate 008d 8217 | | Call 0x1,0x17 008e 00cc | | Action Pop_Block 008f 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 009b | | .CONST 0x009b ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 e403 | | Load 0x2,0x3 0094 00ea | | Load_Encached Null_String_Cache 0095 e5fe | | Load 0x2,-0x2 0096 4801 |H | Short_Literal 0x1 0097 e006 | | Load 0x0,0x6 0098 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0099 c403 | | Store 0x2,0x3 009a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 009b TRAP_0090: 009b 0007 | | Action Break_Optional 009c e402 | | Load 0x2,0x2 009d e006 | | Load 0x0,0x6 009e 181b | | Execute Package,Field_Execute,Field_Number 0x1b 009f c402 | | Store 0x2,0x2 00a0 0092 011d | | Action Push_String_Extended,0x11d ; "Cannot create " 00a2 e5fe | | Load 0x2,-0x2 00a3 01cc | | Execute Vector,Catenate 00a4 0092 011e | | Action Push_String_Extended,0x11e ; " for output" 00a6 01cc | | Execute Vector,Catenate 00a7 8219 | | Call 0x1,0x19 00a8 01cc | | Execute Vector,Catenate 00a9 8217 | | Call 0x1,0x17 00aa 00cc | | Action Pop_Block 00ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00ac 0000 0000 | | .BLANK 0000[0x4] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 00ba | | .CONST 0x00ba ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00e2 | | Load_Encached Integer_Cache 00b4 4800 |H | Short_Literal 0x0 00b5 e402 | | Load 0x2,0x2 00b6 e006 | | Load 0x0,0x6 00b7 1869 | i | Execute Package,Field_Execute,Field_Number 0x69 00b8 c603 | | Store 0x3,0x3 00b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ba TRAP_00b0: 00ba 0007 | | Action Break_Optional 00bb e007 | | Load 0x0,0x7 00bc 180e | | Execute Package,Field_Execute,Field_Number 0xe 00bd 4807 |H | Short_Literal 0x7 00be 0092 011f | | Action Push_String_Extended,0x11f ; "Invalid delay time." 00c0 e008 | | Load 0x0,0x8 00c1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c2 08e2 | | Execute_Immediate Raise,0xe2 00c3 0000 0000 | | .BLANK 0000[0x5] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00d6 | | .CONST 0x00d6 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0004 | | .CONST 0x0004 ; Number of locals 00cb INIT_00c8: 00cb e402 | | Load 0x2,0x2 00cc e006 | | Load 0x0,0x6 00cd 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 00ce 00d8 | | Load_Top At_Offset_0 00cf 01dd | | Execute Vector,First 00d0 00e3 | | Load_Encached Natural_Cache 00d1 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00d2 00d9 | | Load_Top At_Offset_1 00d3 01dc | | Execute Vector,Last 00d4 00e3 | | Load_Encached Natural_Cache 00d5 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00d6 BODY_00c8: 00d6 00cf | | Action Mark_Auxiliary 00d7 00da | | Load_Top At_Offset_2 00d8 00da | | Load_Top At_Offset_2 00d9 027b | { | Execute Discrete,Greater_Equal 00da 700a |p | Jump_Nonzero 0xe5 00db 00da | | Load_Top At_Offset_2 00dc e802 | | Load 0x4,0x2 00dd 01d7 | | Execute Vector,Field_Read 00de 0e20 | | Execute_Immediate Not_Equal,0x20 00df 7005 |p | Jump_Nonzero 0xe5 00e0 00da | | Load_Top At_Offset_2 00e1 0a01 | | Execute_Immediate Plus,0x1 00e2 005b | [ | Store_Top Discrete,At_Offset_3 00e3 00c9 | | Action Pop_Auxiliary_Loop 00e4 7ff2 | | Jump 0xd7 00e5 00c9 | | Action Pop_Auxiliary_Loop 00e6 00d9 | | Load_Top At_Offset_1 00e7 00db | | Load_Top At_Offset_3 00e8 027a | z | Execute Discrete,Less_Equal 00e9 700a |p | Jump_Nonzero 0xf4 00ea 00d9 | | Load_Top At_Offset_1 00eb e802 | | Load 0x4,0x2 00ec 01d7 | | Execute Vector,Field_Read 00ed 0e20 | | Execute_Immediate Not_Equal,0x20 00ee 7005 |p | Jump_Nonzero 0xf4 00ef 00d9 | | Load_Top At_Offset_1 00f0 0aff | | Execute_Immediate Plus,-0x1 00f1 005a | Z | Store_Top Discrete,At_Offset_2 00f2 00c9 | | Action Pop_Auxiliary_Loop 00f3 7ff2 | | Jump 0xe6 00f4 00ce | | Action Pop_Auxiliary 00f5 00e1 | | Load_Encached Boolean_Cache 00f6 e01a | | Load 0x0,0x1a 00f7 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00f8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00f9 e7ff | | Load 0x3,-0x1 00fa e803 | | Load 0x4,0x3 00fb e804 | | Load 0x4,0x4 00fc e802 | | Load 0x4,0x2 00fd 01cf | | Execute Vector,Slice_Read 00fe e01a | | Load 0x0,0x1a 00ff 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0100 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0101 c602 | | Store 0x3,0x2 0102 c605 | | Store 0x3,0x5 0103 e605 | | Load 0x3,0x5 0104 700d |p | Jump_Nonzero 0x112 0105 e007 | | Load 0x0,0x7 0106 180e | | Execute Package,Field_Execute,Field_Number 0xe 0107 4807 |H | Short_Literal 0x7 0108 0092 0120 | | Action Push_String_Extended,0x120 ; "Invalid key name: " 010a e803 | | Load 0x4,0x3 010b e804 | | Load 0x4,0x4 010c e802 | | Load 0x4,0x2 010d 01cf | | Execute Vector,Slice_Read 010e 01cc | | Execute Vector,Catenate 010f e008 | | Load 0x0,0x8 0110 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0111 08e2 | | Execute_Immediate Raise,0xe2 0112 e602 | | Load 0x3,0x2 0113 00e0 | | Load_Encached Standard_Cache 0114 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0115 e403 | | Load 0x2,0x3 0116 e006 | | Load 0x0,0x6 0117 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 0118 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0119 ; -------------------------------------------------------------------------------------- 0119 ; STRING TABLE 0119 ; -------------------------------------------------------------------------------------- 0119 0012 | | .STRTAB 0x0012->0x0122 ; "Error near line" 011a 001f | | .STRTAB 0x001f->0x0129 ; " of key file." 011b 002a | * | .STRTAB 0x002a->0x0130 ; "Cannot open " 011c 0034 | 4 | .STRTAB 0x0034->0x0136 ; " for input" 011d 003c | < | .STRTAB 0x003c->0x013b ; "Cannot create " 011e 0048 | H | .STRTAB 0x0048->0x0142 ; " for output" 011f 0051 | Q | .STRTAB 0x0051->0x0147 ; "Invalid delay time." 0120 0062 | b | .STRTAB 0x0062->0x0151 ; "Invalid key name: " 0121 0072 | r | .STREND 0x0072->0x015a 0122 4572 726f |Erro| .STRTAB_STRINGS 015a 0000 0000 | | .BLANK 0000[0x6] 0160 ; -------------------------------------------------------------------------------------- 0160 ; Debug Table 0160 ; -------------------------------------------------------------------------------------- 0160 0004 0009 | | .DEBUG4 0x0004,0x0009,0x861f,0x0000,0x0001,0x0000 0166 0000 0000 | | .BLANK 0000[0x9a]