|
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_02f8e7
└─⟦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 0080 | | .CONST 0x0080 ; 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 0018 | | .CONST 0x0018 ; Address of begin 0009 003f | ? | .CONST 0x003f ; Address of exception handler 000a 0005 | | .CONST 0x0005 ; Number of locals 000b INIT_0008: 000b 4801 |H | Short_Literal 0x1 000c 6057 |`W | Indirect_Literal Discrete,0x64,{0x00000000, 0x000007db} 000d 00e9 | | Load_Encached String_Cache 000e 0334 | 4 | Declare_Variable Array,With_Constraint 000f 00e3 | | Load_Encached Natural_Cache 0010 e01a | | Load 0x0,0x1a 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 02c7 | | Declare_Variable Any 0013 e01a | | Load 0x0,0x1a 0014 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0015 c604 | | Store 0x3,0x4 0016 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 0018 BODY_0008: 0018 0092 0068 | h| Action Push_String_Extended,0x68 ; "Terminate with END_OF_INPUT key." 001a e01a | | Load 0x0,0x1a 001b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 001c 4801 |H | Short_Literal 0x1 001d e01a | | Load 0x0,0x1a 001e 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 001f 00cf | | Action Mark_Auxiliary 0020 0007 | | Action Break_Optional 0021 8605 | | Call 0x3,0x5 0022 00cf | | Action Mark_Auxiliary 0023 e603 | | Load 0x3,0x3 0024 4801 |H | Short_Literal 0x1 0025 0263 | c | Execute Discrete,Above_Bound 0026 700b |p | Jump_Nonzero 0x32 0027 00d8 | | Load_Top At_Offset_0 0028 e602 | | Load 0x3,0x2 0029 01d7 | | Execute Vector,Field_Read 002a 0f22 | " | Execute_Immediate Equal,0x22 002b 6804 |h | Jump_Zero 0x30 002c 4827 |H' | Short_Literal 0x27 002d e609 | | Load 0x3,0x9 002e e602 | | Load 0x3,0x2 002f 01d6 | | Execute Vector,Field_Write 0030 00c8 | | Action Pop_Auxiliary_Range 0031 3ff5 |? | Loop_Increasing 0x27 0032 00ce | | Action Pop_Auxiliary 0033 e7ff | | Load 0x3,-0x1 0034 480a |H | Short_Literal 0xa 0035 4801 |H | Short_Literal 0x1 0036 e603 | | Load 0x3,0x3 0037 e602 | | Load 0x3,0x2 0038 01cf | | Execute Vector,Slice_Read 0039 01cb | | Execute Vector,Append 003a e403 | | Load 0x2,0x3 003b 181d | | Execute Package,Field_Execute,Field_Number 0x1d 003c c7ff | | Store 0x3,-0x1 003d 00c9 | | Action Pop_Auxiliary_Loop 003e 7fe2 | | Jump 0x21 003f TRAP_0008: 003f 00d8 | | Load_Top At_Offset_0 0040 0107 | | Execute Exception,Get_Name 0041 4950 |IP | Short_Literal 0x150 0042 495f |I_ | Short_Literal 0x15f 0043 0262 | b | Execute Discrete,In_Range 0044 6808 |h | Jump_Zero 0x4d 0045 e604 | | Load 0x3,0x4 0046 e01a | | Load 0x0,0x1a 0047 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0048 c604 | | Store 0x3,0x4 0049 4801 |H | Short_Literal 0x1 004a e01a | | Load 0x0,0x1a 004b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 004c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 004d 0100 | | Execute Exception,Raise 004e 0000 0000 | | .XXX[0x2] 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 0053 | S | .CONST 0x0053 ; Address of begin 0051 005a | Z | .CONST 0x005a ; Address of exception handler 0052 0001 | | .CONST 0x0001 ; Number of locals 0053 BODY_0050: 0053 INIT_0050: 0053 00e3 | | Load_Encached Natural_Cache 0054 e602 | | Load 0x3,0x2 0055 e01a | | Load 0x0,0x1a 0056 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0057 00d1 | | Pop_Control Pop_Count_1 0058 c603 | | Store 0x3,0x3 0059 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005a TRAP_0050: 005a 00d8 | | Load_Top At_Offset_0 005b 0107 | | Execute Exception,Get_Name 005c 4970 |Ip | Short_Literal 0x170 005d 497f |I | Short_Literal 0x17f 005e 0262 | b | Execute Discrete,In_Range 005f 6803 |h | Jump_Zero 0x63 0060 4800 |H | Short_Literal 0x0 0061 a603 | | Store_Unchecked 0x3,0x3 0062 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0063 0100 | | Execute Exception,Raise 0064 0000 0000 | | .LITERAL {0x00000000, 0x000007db} 0068 ; -------------------------------------------------------------------------------------- 0068 ; STRING TABLE 0068 ; -------------------------------------------------------------------------------------- 0068 0004 | | .STRTAB 0x0004->0x006a ; "Terminate with END_OF_INPUT key." 0069 0022 | " | .STREND 0x0022->0x007a 006a 5465 726d |Term| .STRTAB_STRINGS 007a 0000 0000 | | .BLANK 0000[0x6] 0080 ; -------------------------------------------------------------------------------------- 0080 ; Debug Table 0080 ; -------------------------------------------------------------------------------------- 0080 0004 0000 | | .DEBUG4 0x0004,0x0000,0x11f4,0x0000,0x0001,0x0000 0086 a5cd 9590 | | .XXX[0x17a] 0088 81dd a195 | | 008a b881 8481 | | 008c cd95 c9d9 | | 008e 95c8 81c9 | | 0090 958d 95a5 | | 0092 d995 cc81 | | 0094 8481 c995 | | 0096 c5d5 95cd | | 0098 d081 b595 | | 009a cdcd 859d | | 009c 9428 8081 | ( | 009e 8dbd b9d1 | | 00a0 85a5 b9a5 | | 00a2 b99c 8184 | | 00a4 81c1 c9bd | | 00a6 9dc9 85b4 | | 00a8 81b9 d5b5 | | 00aa 8995 c881 | | 00ac d1a1 85d0 | | 00ae 8191 bd95 | | 00b0 cc81 b9bd | | 00b2 d081 a591 | | 00b4 95b9 d1a5 | | 00b6 99e4 8185 | | 00b8 b881 95e1 | | 00ba a5cd d1a5 | | 00bc b99c 2880 | ( | 00be 81c1 c9bd | | 00c0 9dc9 85b4 | | 00c2 b880 8151 | Q| 00c4 a194 8195 | | 00c6 e18d 95c1 | | 00c8 d1a5 bdb8 | | 00ca 81b5 85e4 | | 00cc 81a5 b991 | | 00ce a58d 85d1 | | 00d0 9481 8481 | | 00d2 91a5 cd85 | | 00d4 9dc9 9595 | | 00d6 b595 b9d0 | | 00d8 8189 95d1 | | 00da dd95 95b8 | | 00dc 818d b1a5 | | 00de 95b9 d028 | (| 00e0 8081 85b9 | | 00e2 9081 cd95 | | 00e4 c9d9 95c8 | | 00e6 8185 89bd | | 00e8 d5d0 81c1 | | 00ea c9bd 9dc9 | | 00ec 85b4 81b9 | | 00ee d5b5 8995 | | 00f0 c9a5 b99c | | 00f2 b828 8081 | ( | 00f4 01b9 bd91 | | 00f6 9480 8551 | Q| 00f8 bdbd b1cc | | 00fa b939 95d1 | 9 | 00fc ddbd c9ad | | 00fe a5b9 9cb9 | | 0100 49c1 8cb9 |I | 0102 39bd 7d4d |9 }M| 0104 d58d a17d | }| 0106 5995 c9cd |Y | 0108 a5bd b828 | (| 010a 2880 8139 |( 9| 010c bd7d 4dd5 | }M | 010e 8da1 7d59 | }Y| 0110 95c9 cda5 | | 0112 bdb8 80e8 | | 0114 8195 e18d | | 0116 95c1 d1a5 | | 0118 bdb8 ec28 | (| 011a 2880 8149 |( I| 011c 85a5 cd95 | | 011e 9081 dda1 | | 0120 95b8 8184 | | 0122 81b9 bdb9 | | 0124 95e1 a5cd | | 0126 d195 b9d0 | | 0128 81d9 95c9 | | 012a cda5 bdb8 | | 012c 81a5 cc81 | | 012e 8d85 b1b1 | | 0130 9590 b828 | (| 0132 2880 8151 |( Q| 0134 a1a5 cc81 | | 0136 95e1 8d95 | | 0138 c1d1 a5bd | | 013a b881 a5cc | | 013c 81c9 85a5 | | 013e cd95 9081 | | 0140 dda1 95b8 | | 0142 8184 81cd | | 0144 95c9 d995 | | 0146 c881 c995 | | 0148 8d95 a5d9 | | 014a 95cc 8184 | | 014c 81c9 95c5 | | 014e d595 cdd0 | | 0150 81b5 95cd | | 0152 cd85 9d94 | | 0154 2880 818d |( | 0156 bdb9 d185 | | 0158 a5b9 a5b9 | | 015a 9c81 8481 | | 015c d995 c9cd | | 015e a5bd b881 | | 0160 b9d5 b589 | | 0162 95c8 81d1 | | 0164 a185 d081 | | 0166 91bd 95cc | | 0168 81b9 bdd0 | | 016a 81a5 9195 | | 016c b9d1 a599 | | 016e e481 8481 | | 0170 cdd5 c1c1 | | 0172 bdc9 d195 | | 0174 9028 8081 | ( | 0176 d995 c9cd | | 0178 a5bd b8b8 | | 017a 2880 8101 |( | 017c b9bd 9194 | | 017e 8085 51bd | Q | 0180 bdb1 ccb9 | | 0182 3995 d1dd |9 | 0184 bdc9 ada5 | | 0186 b99c b949 | I| 0188 c18c b93d | =| 018a d1a1 95c9 | | 018c 7d15 c9c9 |} | 018e bdc8 2828 | ((| 0190 8081 3dd1 | = | 0192 a195 c97d | }| 0194 15c9 c9bd | | 0196 c880 e881 | | 0198 95e1 8d95 | | 019a c1d1 a5bd | | 019c b8ec 2828 | ((| 019e 8081 4985 | I | 01a0 a5cd 9590 | | 01a2 81d5 b991 | | 01a4 95c8 8184 | | 01a6 81d9 85c9 | | 01a8 a595 d1e4 | | 01aa 81bd 9881 | | 01ac 8da5 c98d | | 01ae d5b5 cdd1 | | 01b0 85b9 8d95 | | 01b2 ccb8 2828 | ((| 01b4 8081 51a1 | Q | 01b6 a5cc 8195 | | 01b8 e18d 95c1 | | 01ba d1a5 bdb8 | | 01bc 81a5 cc81 | | 01be c985 a5cd | | 01c0 9590 8189 | | 01c2 e481 99d5 | | 01c4 b98d d1a5 | | 01c6 bdb8 811d | | 01c8 95d1 7d35 | }5| 01ca 95cd cd85 | | 01cc 9d94 81d1 | | 01ce bc81 a5b9 | | 01d0 91a5 8d85 | | 01d2 d194 81d1 | | 01d4 a185 d028 | (| 01d6 8081 85b8 | | 01d8 81d5 b9ad | | 01da b9bd ddb8 | | 01dc 8195 e18d | | 01de 95c1 d1a5 | | 01e0 bdb8 81a1 | | 01e2 85cc 8189 | | 01e4 9595 b881 | | 01e6 c985 a5cd | | 01e8 9590 81a5 | | 01ea b881 d1a1 | | 01ec 9481 cd95 | | 01ee c9d9 95c8 | | 01f0 b828 8081 | ( | 01f2 01b9 bd91 | | 01f4 9480 8551 | Q| 01f6 bdbd b1cc | | 01f8 b939 95d1 | 9 | 01fa ddbd c9ad | | 01fc a5b9 9cb9 | | 01fe 49c1 8cb9 |I |