|
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_0a7cf5
└─⟦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 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0011 | | .CONST 0x0011 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0004 | | .CONST 0x0004 ; Number of locals 000b INIT_0008: 000b 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 000d 029f 008b | | Declare_Subprogram INIT_0088,For_Call 000f 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 0011 BODY_0008: 0011 e5ff | | Load 0x2,-0x1 0012 e022 | " | Load 0x0,0x22 0013 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0014 700b |p | Jump_Nonzero 0x20 0015 e023 | # | Load 0x0,0x23 0016 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0017 e023 | # | Load 0x0,0x23 0018 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0019 e5fc | | Load 0x2,-0x4 001a e022 | " | Load 0x0,0x22 001b 1819 | | Execute Package,Field_Execute,Field_Number 0x19 001c e023 | # | Load 0x0,0x23 001d 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 001e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 001f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0020 8402 | | Call 0x2,0x2 0021 00cf | | Action Mark_Auxiliary 0022 e5ff | | Load 0x2,-0x1 0023 e022 | " | Load 0x0,0x22 0024 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 0025 e5ff | | Load 0x2,-0x1 0026 e022 | " | Load 0x0,0x22 0027 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0028 0263 | c | Execute Discrete,Above_Bound 0029 7007 |p | Jump_Nonzero 0x31 002a 00d8 | | Load_Top At_Offset_0 002b e5ff | | Load 0x2,-0x1 002c e022 | " | Load 0x0,0x22 002d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f 002e 8404 | | Call 0x2,0x4 002f 00c8 | | Action Pop_Auxiliary_Range 0030 3ff9 |? | Loop_Increasing 0x2a 0031 00ce | | Action Pop_Auxiliary 0032 e023 | # | Load 0x0,0x23 0033 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0034 e023 | # | Load 0x0,0x23 0035 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0036 8210 | | Call 0x1,0x10 0037 4505 |E | Exit_Suprogram New_Top_Offset 0x5 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 480a |H | Short_Literal 0xa 003c e022 | " | Load 0x0,0x22 003d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 003e e023 | # | Load 0x0,0x23 003f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0040 4800 |H | Short_Literal 0x0 0041 e5fd | | Load 0x2,-0x3 0042 e5fe | | Load 0x2,-0x2 0043 820d | | Call 0x1,0xd 0044 480b |H | Short_Literal 0xb 0045 e022 | " | Load 0x0,0x22 0046 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0047 e023 | # | Load 0x0,0x23 0048 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0049 583a |X: | Indirect_Literal Float,0x84,40.0 004a 4802 |H | Short_Literal 0x2 004b 0092 0170 | p| Action Push_String_Extended,0x170 ; "Name, Description" 004d 820e | | Call 0x1,0xe 004e 480b |H | Short_Literal 0xb 004f e022 | " | Load 0x0,0x22 0050 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0051 e023 | # | Load 0x0,0x23 0052 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0053 582c |X, | Indirect_Literal Float,0x80,10.0 0054 4802 |H | Short_Literal 0x2 0055 0092 0171 | q| Action Push_String_Extended,0x171 ; "Frequency" 0057 820e | | Call 0x1,0xe 0058 480b |H | Short_Literal 0xb 0059 e022 | " | Load 0x0,0x22 005a 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 005b e023 | # | Load 0x0,0x23 005c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 005d 5822 |X" | Indirect_Literal Float,0x80,10.0 005e 4802 |H | Short_Literal 0x2 005f 0092 0172 | r| Action Push_String_Extended,0x172 ; "Legality\x0aChecks" 0061 820e | | Call 0x1,0xe 0062 480b |H | Short_Literal 0xb 0063 e022 | " | Load 0x0,0x22 0064 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0065 e023 | # | Load 0x0,0x23 0066 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0067 5814 |X | Indirect_Literal Float,0x7c,15.0 0068 4802 |H | Short_Literal 0x2 0069 0092 0173 | s| Action Push_String_Extended,0x173 ; "Defining\x0aComponent" 006b 820e | | Call 0x1,0xe 006c 480b |H | Short_Literal 0xb 006d e022 | " | Load 0x0,0x22 006e 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 006f e023 | # | Load 0x0,0x23 0070 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0071 5806 |X | Indirect_Literal Float,0x78,25.0 0072 4802 |H | Short_Literal 0x2 0073 0092 0174 | t| Action Push_String_Extended,0x174 ; "Using Components" 0075 820e | | Call 0x1,0xe 0076 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0077 0000 | | .XXX[0x1] 0078 4039 0000 |@9 | .DBL 25.0 007a 0000 0000 | | 007c 402e 0000 |@. | .DBL 15.0 007e 0000 0000 | | 0080 4024 0000 |@$ | .DBL 10.0 0082 0000 0000 | | 0084 4044 0000 |@D | .DBL 40.0 0086 0000 0000 | | 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008f | | .CONST 0x008f ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0003 | | .CONST 0x0003 ; Number of locals 008b INIT_0088: 008b e22c | , | Load 0x1,0x2c 008c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 008d 00e1 | | Load_Encached Boolean_Cache 008e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 008f BODY_0088: 008f 00cf | | Action Mark_Auxiliary 0090 e7ff | | Load 0x3,-0x1 0091 01d9 | | Execute Vector,Reverse_Bounds 0092 0263 | c | Execute Discrete,Above_Bound 0093 7020 |p | Jump_Nonzero 0xb4 0094 00db | | Load_Top At_Offset_3 0095 680e |h | Jump_Zero 0xa4 0096 e602 | | Load 0x3,0x2 0097 4801 |H | Short_Literal 0x1 0098 00da | | Load_Top At_Offset_2 0099 e7ff | | Load 0x3,-0x1 009a 01d7 | | Execute Vector,Field_Read 009b e022 | " | Load 0x0,0x22 009c 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 009d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 009e e22c | , | Load 0x1,0x2c 009f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00a0 c602 | | Store 0x3,0x2 00a1 4800 |H | Short_Literal 0x0 00a2 a603 | | Store_Unchecked 0x3,0x3 00a3 780e |x | Jump 0xb2 00a4 e602 | | Load 0x3,0x2 00a5 0092 0175 | u| Action Push_String_Extended,0x175 ; ", " 00a7 4801 |H | Short_Literal 0x1 00a8 00db | | Load_Top At_Offset_3 00a9 e7ff | | Load 0x3,-0x1 00aa 01d7 | | Execute Vector,Field_Read 00ab e022 | " | Load 0x0,0x22 00ac 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 00ad 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00ae 01cc | | Execute Vector,Catenate 00af e22c | , | Load 0x1,0x2c 00b0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00b1 c602 | | Store 0x3,0x2 00b2 00c8 | | Action Pop_Auxiliary_Range 00b3 3fe0 |? | Loop_Increasing 0x94 00b4 00ce | | Action Pop_Auxiliary 00b5 00d9 | | Load_Top At_Offset_1 00b6 e22c | , | Load 0x1,0x2c 00b7 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b9 0000 0000 | | .BLANK 0000[0x7] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00e6 | | .CONST 0x00e6 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0006 | | .CONST 0x0006 ; Number of locals 00c3 INIT_00c0: 00c3 e027 | ' | Load 0x0,0x27 00c4 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00c5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 00c6 e02d | - | Load 0x0,0x2d 00c7 1b15 | | Execute Package,Field_Read,Field_Number 0x15 00c8 02c7 | | Declare_Variable Any 00c9 e7ff | | Load 0x3,-0x1 00ca 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5 00cb a603 | | Store_Unchecked 0x3,0x3 00cc e020 | | Load 0x0,0x20 00cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00ce 02c7 | | Declare_Variable Any 00cf 00d9 | | Load_Top At_Offset_1 00d0 e02d | - | Load 0x0,0x2d 00d1 181e | | Execute Package,Field_Execute,Field_Number 0x1e 00d2 a604 | | Store_Unchecked 0x3,0x4 00d3 e020 | | Load 0x0,0x20 00d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d5 02c7 | | Declare_Variable Any 00d6 00d9 | | Load_Top At_Offset_1 00d7 e01f | | Load 0x0,0x1f 00d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00d9 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00da a605 | | Store_Unchecked 0x3,0x5 00db e020 | | Load 0x0,0x20 00dc 1b19 | | Execute Package,Field_Read,Field_Number 0x19 00dd 02c7 | | Declare_Variable Any 00de 4800 |H | Short_Literal 0x0 00df 0092 0176 | v| Action Push_String_Extended,0x176 ; "<ALL_WORLDS>" 00e1 4801 |H | Short_Literal 0x1 00e2 e604 | | Load 0x3,0x4 00e3 e020 | | Load 0x0,0x20 00e4 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 00e5 a606 | | Store_Unchecked 0x3,0x6 00e6 BODY_00c0: 00e6 00d9 | | Load_Top At_Offset_1 00e7 e020 | | Load 0x0,0x20 00e8 180f | | Execute Package,Field_Execute,Field_Number 0xf 00e9 700b |p | Jump_Nonzero 0xf5 00ea 00d8 | | Load_Top At_Offset_0 00eb 4800 |H | Short_Literal 0x0 00ec 0092 0176 | v| Action Push_String_Extended,0x176 ; "<ALL_WORLDS>" 00ee 4801 |H | Short_Literal 0x1 00ef e605 | | Load 0x3,0x5 00f0 e020 | | Load 0x0,0x20 00f1 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 00f2 e020 | | Load 0x0,0x20 00f3 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00f4 c606 | | Store 0x3,0x6 00f5 00da | | Load_Top At_Offset_2 00f6 4812 |H | Short_Literal 0x12 00f7 e01f | | Load 0x0,0x1f 00f8 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00f9 180d | | Execute Package,Field_Execute,Field_Number 0xd 00fa a602 | | Store_Unchecked 0x3,0x2 00fb e602 | | Load 0x3,0x2 00fc e027 | ' | Load 0x0,0x27 00fd 1b20 | | Execute Package,Field_Read,Field_Number 0x20 00fe 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00ff 6811 |h | Jump_Zero 0x111 0100 4801 |H | Short_Literal 0x1 0101 480d |H | Short_Literal 0xd 0102 e022 | " | Load 0x0,0x22 0103 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0104 00ea | | Load_Encached Null_String_Cache 0105 4800 |H | Short_Literal 0x0 0106 e603 | | Load 0x3,0x3 0107 e022 | " | Load 0x0,0x22 0108 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0109 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 010a 4801 |H | Short_Literal 0x1 010b e603 | | Load 0x3,0x3 010c e022 | " | Load 0x0,0x22 010d 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 010e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 010f 820f | | Call 0x1,0xf 0110 7819 |x | Jump 0x12a 0111 4801 |H | Short_Literal 0x1 0112 480d |H | Short_Literal 0xd 0113 e022 | " | Load 0x0,0x22 0114 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0115 00ea | | Load_Encached Null_String_Cache 0116 4800 |H | Short_Literal 0x0 0117 e603 | | Load 0x3,0x3 0118 e022 | " | Load 0x0,0x22 0119 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 011a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 011b 4801 |H | Short_Literal 0x1 011c e603 | | Load 0x3,0x3 011d e022 | " | Load 0x0,0x22 011e 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 011f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0120 0092 0177 | w| Action Push_String_Extended,0x177 ; "-" 0122 01cc | | Execute Vector,Catenate 0123 00ea | | Load_Encached Null_String_Cache 0124 e602 | | Load 0x3,0x2 0125 e01f | | Load 0x0,0x1f 0126 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0127 180f | | Execute Package,Field_Execute,Field_Number 0xf 0128 01cc | | Execute Vector,Catenate 0129 820f | | Call 0x1,0xf 012a 4801 |H | Short_Literal 0x1 012b 480d |H | Short_Literal 0xd 012c e022 | " | Load 0x0,0x22 012d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 012e 00ea | | Load_Encached Null_String_Cache 012f 4831 |H1 | Short_Literal 0x31 0130 e603 | | Load 0x3,0x3 0131 e022 | " | Load 0x0,0x22 0132 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0133 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0134 4831 |H1 | Short_Literal 0x31 0135 e603 | | Load 0x3,0x3 0136 e022 | " | Load 0x0,0x22 0137 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0138 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0139 820f | | Call 0x1,0xf 013a 4801 |H | Short_Literal 0x1 013b 480d |H | Short_Literal 0xd 013c e022 | " | Load 0x0,0x22 013d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 013e 00ea | | Load_Encached Null_String_Cache 013f 4832 |H2 | Short_Literal 0x32 0140 e603 | | Load 0x3,0x3 0141 e022 | " | Load 0x0,0x22 0142 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0143 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0144 4832 |H2 | Short_Literal 0x32 0145 e603 | | Load 0x3,0x3 0146 e022 | " | Load 0x0,0x22 0147 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0148 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0149 820f | | Call 0x1,0xf 014a 4801 |H | Short_Literal 0x1 014b 480d |H | Short_Literal 0xd 014c e022 | " | Load 0x0,0x22 014d 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 014e 00ea | | Load_Encached Null_String_Cache 014f 4801 |H | Short_Literal 0x1 0150 e603 | | Load 0x3,0x3 0151 e022 | " | Load 0x0,0x22 0152 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0153 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0154 4801 |H | Short_Literal 0x1 0155 e022 | " | Load 0x0,0x22 0156 1b8a | | Execute Package,Field_Read,Field_Number 0x8a 0157 e604 | | Load 0x3,0x4 0158 e02c | , | Load 0x0,0x2c 0159 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 015a e022 | " | Load 0x0,0x22 015b 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 015c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 015d 820f | | Call 0x1,0xf 015e 4801 |H | Short_Literal 0x1 015f 480d |H | Short_Literal 0xd 0160 e022 | " | Load 0x0,0x22 0161 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0162 00ea | | Load_Encached Null_String_Cache 0163 4800 |H | Short_Literal 0x0 0164 e606 | | Load 0x3,0x6 0165 e022 | " | Load 0x0,0x22 0166 1b49 | I | Execute Package,Field_Read,Field_Number 0x49 0167 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0168 e022 | " | Load 0x0,0x22 0169 1b8a | | Execute Package,Field_Read,Field_Number 0x8a 016a e606 | | Load 0x3,0x6 016b e02c | , | Load 0x0,0x2c 016c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 016d 8403 | | Call 0x2,0x3 016e 820f | | Call 0x1,0xf 016f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0170 ; -------------------------------------------------------------------------------------- 0170 ; STRING TABLE 0170 ; -------------------------------------------------------------------------------------- 0170 0012 | | .STRTAB 0x0012->0x0179 ; "Name, Description" 0171 0021 | ! | .STRTAB 0x0021->0x0181 ; "Frequency" 0172 0028 | ( | .STRTAB 0x0028->0x0186 ; "Legality\x0aChecks" 0173 0035 | 5 | .STRTAB 0x0035->0x018d ; "Defining\x0aComponent" 0174 0045 | E | .STRTAB 0x0045->0x0196 ; "Using Components" 0175 0053 | S | .STRTAB 0x0053->0x019e ; ", " 0176 0053 | S | .STRTAB 0x0053->0x019f ; "<ALL_WORLDS>" 0177 005d | ] | .STRTAB 0x005d->0x01a5 ; "-" 0178 005c | \ | .STREND 0x005c->0x01a6 0179 4e61 6d65 |Name| .STRTAB_STRINGS 01a6 0000 0000 | | .XXX[0x2] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; Debug Table 01a8 ; -------------------------------------------------------------------------------------- 01a8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc9c,0x0000,0x0001,0x0000 01ae ece5 3c01 | < | .XXX[0x52] 01b0 1c03 b197 | | 01b2 c528 4cf5 | (L | 01b4 3cec 4484 |< D | 01b6 0377 17db | w | 01b8 2ce1 142f |, /| 01ba 17db 2ce0 | , | 01bc 3007 17db |0 | 01be 2ce3 ad63 |, c| 01c0 90e2 ea14 | | 01c2 b2ab d7a8 | | 01c4 c0e3 84c3 | | 01c6 0745 c0c3 | E | 01c8 aa65 151e | e | 01ca 44ca 4ce3 |D L | 01cc b36e a0da | n | 01ce 59d4 4487 |Y D | 01d0 a937 eecd | 7 | 01d2 4ccc 22a0 |L " | 01d4 c0e0 30e2 | 0 | 01d6 58e9 54ec |X T | 01d8 ece5 3c01 | < | 01da 1c03 b197 | | 01dc c528 4cf5 | (L | 01de 3cec 4487 |< D | 01e0 6a81 69f0 |j i | 01e2 7a5c c0e0 |z\ | 01e4 30e1 78e3 |0 x | 01e6 d2a3 697a | iz| 01e8 70b3 a518 |p | 01ea b315 60e2 | ` | 01ec 44b2 c908 |D | 01ee 15ab 30e3 | 0 | 01f0 78e3 dcc8 |x | 01f2 4f97 67a9 |O g | 01f4 a8e6 597a | Yz| 01f6 b0d7 1efd | | 01f8 4ccd 4cc4 |L L | 01fa 5cf6 0f9f |\ | 01fc 64dd 3b4a |d ;J| 01fe 7cd7 3ce6 || < |