|
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 0180 | | .CONST 0x0180 ; 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 0014 | | .CONST 0x0014 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0005 | | .CONST 0x0005 ; Number of locals 000b INIT_0008: 000b e220 | | Load 0x1,0x20 000c 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 000d 0007 | | Action Break_Optional 000e e2db | | Load 0x1,0xdb 000f 0007 | | Action Break_Optional 0010 e009 | | Load 0x0,0x9 0011 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0012 e23c | < | Load 0x1,0x3c 0013 0007 | | Action Break_Optional 0014 BODY_0008: 0014 e2a0 | | Load 0x1,0xa0 0015 3c17 |< | Execute Record,Field_Read,Field_Number 0x17 0016 e2a0 | | Load 0x1,0xa0 0017 3c16 |< | Execute Record,Field_Read,Field_Number 0x16 0018 0272 | r | Execute Discrete,Minus 0019 09ff | | Execute_Immediate Binary_Scale,-0x1 001a 4801 |H | Short_Literal 0x1 001b e2a0 | | Load 0x1,0xa0 001c 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12 001d 01d6 | | Execute Vector,Field_Write 001e 4802 |H | Short_Literal 0x2 001f 4801 |H | Short_Literal 0x1 0020 e2a0 | | Load 0x1,0xa0 0021 3413 |4 | Execute Record,Field_Reference,Field_Number 0x13 0022 01d6 | | Execute Vector,Field_Write 0023 e2a0 | | Load 0x1,0xa0 0024 3c17 |< | Execute Record,Field_Read,Field_Number 0x17 0025 4802 |H | Short_Literal 0x2 0026 e2a0 | | Load 0x1,0xa0 0027 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12 0028 01d6 | | Execute Vector,Field_Write 0029 4804 |H | Short_Literal 0x4 002a 4802 |H | Short_Literal 0x2 002b e2a0 | | Load 0x1,0xa0 002c 3413 |4 | Execute Record,Field_Reference,Field_Number 0x13 002d 01d6 | | Execute Vector,Field_Write 002e e286 | | Load 0x1,0x86 002f 0a01 | | Execute_Immediate Plus,0x1 0030 c286 | | Store 0x1,0x86 0031 e287 | | Load 0x1,0x87 0032 0a01 | | Execute_Immediate Plus,0x1 0033 c287 | | Store 0x1,0x87 0034 e275 | u | Load 0x1,0x75 0035 00d8 | | Load_Top At_Offset_0 0036 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0037 e00a | | Load 0x0,0xa 0038 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0039 00d1 | | Pop_Control Pop_Count_1 003a e404 | | Load 0x2,0x4 003b e275 | u | Load 0x1,0x75 003c e00a | | Load 0x0,0xa 003d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 003e 00d1 | | Pop_Control Pop_Count_1 003f c404 | | Store 0x2,0x4 0040 e287 | | Load 0x1,0x87 0041 e009 | | Load 0x0,0x9 0042 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0043 026e | n | Execute Discrete,Modulo 0044 7014 |p | Jump_Nonzero 0x59 0045 4800 |H | Short_Literal 0x0 0046 4800 |H | Short_Literal 0x0 0047 4829 |H) | Short_Literal 0x29 0048 0092 0165 | e| Action Push_String_Extended,0x165 ; "Starting document page " 004a e404 | | Load 0x2,0x4 004b e009 | | Load 0x0,0x9 004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 004e 01cc | | Execute Vector,Catenate 004f 0092 0166 | f| Action Push_String_Extended,0x166 ; " (output page" 0051 01cc | | Execute Vector,Catenate 0052 e287 | | Load 0x1,0x87 0053 00e0 | | Load_Encached Standard_Cache 0054 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0055 01cc | | Execute Vector,Catenate 0056 01cb | | Execute Vector,Append 0057 e069 | i | Load 0x0,0x69 0058 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0059 00cf | | Action Mark_Auxiliary 005a e23f | ? | Load 0x1,0x3f 005b e240 | @ | Load 0x1,0x40 005c 0263 | c | Execute Discrete,Above_Bound 005d 7026 |p& | Jump_Nonzero 0x84 005e 00d8 | | Load_Top At_Offset_0 005f 00d8 | | Load_Top At_Offset_0 0060 00e4 | | Load_Encached Positive_Cache 0061 0260 | ` | Execute Discrete,In_Type 0062 7001 |p | Jump_Nonzero 0x64 0063 0801 | | Execute_Immediate Raise,0x1 0064 823e | > | Call 0x1,0x3e 0065 a405 | | Store_Unchecked 0x2,0x5 0066 e405 | | Load 0x2,0x5 0067 0217 | | Execute Heap_Access,All_Reference 0068 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0069 7018 |p | Jump_Nonzero 0x82 006a e275 | u | Load 0x1,0x75 006b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 006c 0f02 | | Execute_Immediate Equal,0x2 006d 6808 |h | Jump_Zero 0x76 006e 4801 |H | Short_Literal 0x1 006f e275 | u | Load 0x1,0x75 0070 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0071 01d7 | | Execute Vector,Field_Read 0072 e405 | | Load 0x2,0x5 0073 0217 | | Execute Heap_Access,All_Reference 0074 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0075 7804 |x | Jump 0x7a 0076 4800 |H | Short_Literal 0x0 0077 e405 | | Load 0x2,0x5 0078 0217 | | Execute Heap_Access,All_Reference 0079 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 007a e275 | u | Load 0x1,0x75 007b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 007c e275 | u | Load 0x1,0x75 007d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 007e 01d7 | | Execute Vector,Field_Read 007f e405 | | Load 0x2,0x5 0080 0217 | | Execute Heap_Access,All_Reference 0081 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0082 00c8 | | Action Pop_Auxiliary_Range 0083 3fda |? | Loop_Increasing 0x5e 0084 00ce | | Action Pop_Auxiliary 0085 e404 | | Load 0x2,0x4 0086 e009 | | Load 0x0,0x9 0087 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0088 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0089 e22c | , | Load 0x1,0x2c 008a 3c22 |<" | Execute Record,Field_Read,Field_Number 0x22 008b e22c | , | Load 0x1,0x2c 008c 3c1d |< | Execute Record,Field_Read,Field_Number 0x1d 008d e009 | | Load 0x0,0x9 008e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0090 e066 | f | Load 0x0,0x66 0091 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0092 e067 | g | Load 0x0,0x67 0093 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0094 00d8 | | Load_Top At_Offset_0 0095 e067 | g | Load 0x0,0x67 0096 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0097 7003 |p | Jump_Nonzero 0x9b 0098 e068 | h | Load 0x0,0x68 0099 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 009a 0257 | W | Execute Discrete,Raise 009b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 009c e404 | | Load 0x2,0x4 009d e009 | | Load 0x0,0x9 009e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 009f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a0 c404 | | Store 0x2,0x4 00a1 e2a2 | | Load 0x1,0xa2 00a2 681b |h | Jump_Zero 0xbe 00a3 e286 | | Load 0x1,0x86 00a4 4801 |H | Short_Literal 0x1 00a5 0279 | y | Execute Discrete,And 00a6 0f01 | | Execute_Immediate Equal,0x1 00a7 680b |h | Jump_Zero 0xb3 00a8 4800 |H | Short_Literal 0x0 00a9 e220 | | Load 0x1,0x20 00aa 380d |8 | Execute Record,Field_Write,Field_Number 0xd 00ab e29d | | Load 0x1,0x9d 00ac 6803 |h | Jump_Zero 0xb0 00ad e297 | | Load 0x1,0x97 00ae a404 | | Store_Unchecked 0x2,0x4 00af 781d |x | Jump 0xcd 00b0 e294 | | Load 0x1,0x94 00b1 a404 | | Store_Unchecked 0x2,0x4 00b2 781a |x | Jump 0xcd 00b3 4801 |H | Short_Literal 0x1 00b4 e220 | | Load 0x1,0x20 00b5 380d |8 | Execute Record,Field_Write,Field_Number 0xd 00b6 e29c | | Load 0x1,0x9c 00b7 6803 |h | Jump_Zero 0xbb 00b8 e296 | | Load 0x1,0x96 00b9 a404 | | Store_Unchecked 0x2,0x4 00ba 7812 |x | Jump 0xcd 00bb e294 | | Load 0x1,0x94 00bc a404 | | Store_Unchecked 0x2,0x4 00bd 780f |x | Jump 0xcd 00be 4800 |H | Short_Literal 0x0 00bf e220 | | Load 0x1,0x20 00c0 380d |8 | Execute Record,Field_Write,Field_Number 0xd 00c1 e29a | | Load 0x1,0x9a 00c2 6803 |h | Jump_Zero 0xc6 00c3 e294 | | Load 0x1,0x94 00c4 a404 | | Store_Unchecked 0x2,0x4 00c5 7807 |x | Jump 0xcd 00c6 e29d | | Load 0x1,0x9d 00c7 6803 |h | Jump_Zero 0xcb 00c8 e297 | | Load 0x1,0x97 00c9 a404 | | Store_Unchecked 0x2,0x4 00ca 7802 |x | Jump 0xcd 00cb e296 | | Load 0x1,0x96 00cc a404 | | Store_Unchecked 0x2,0x4 00cd 483b |H; | Short_Literal 0x3b 00ce e2a0 | | Load 0x1,0xa0 00cf 8225 | % | Call 0x1,0x25 00d0 e22c | , | Load 0x1,0x2c 00d1 3c1f |< | Execute Record,Field_Read,Field_Number 0x1f 00d2 4800 |H | Short_Literal 0x0 00d3 e019 | | Load 0x0,0x19 00d4 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00d5 e404 | | Load 0x2,0x4 00d6 e009 | | Load 0x0,0x9 00d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00d9 0c01 | | Execute_Immediate Greater_Equal,0x1 00da 6803 |h | Jump_Zero 0xde 00db e404 | | Load 0x2,0x4 00dc e065 | e | Load 0x0,0x65 00dd 180f | | Execute Package,Field_Execute,Field_Number 0xf 00de 4801 |H | Short_Literal 0x1 00df 4801 |H | Short_Literal 0x1 00e0 e22c | , | Load 0x1,0x2c 00e1 3c1e |< | Execute Record,Field_Read,Field_Number 0x1e 00e2 8218 | | Call 0x1,0x18 00e3 483b |H; | Short_Literal 0x3b 00e4 8226 | & | Call 0x1,0x26 00e5 e402 | | Load 0x2,0x2 00e6 680b |h | Jump_Zero 0xf2 00e7 483b |H; | Short_Literal 0x3b 00e8 8224 | $ | Call 0x1,0x24 00e9 4942 |IB | Short_Literal 0x142 00ea e065 | e | Load 0x0,0x65 00eb 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ec 4801 |H | Short_Literal 0x1 00ed 4801 |H | Short_Literal 0x1 00ee 4800 |H | Short_Literal 0x0 00ef 8218 | | Call 0x1,0x18 00f0 483b |H; | Short_Literal 0x3b 00f1 8226 | & | Call 0x1,0x26 00f2 e403 | | Load 0x2,0x3 00f3 a2db | | Store_Unchecked 0x1,0xdb 00f4 e2a1 | | Load 0x1,0xa1 00f5 e019 | | Load 0x0,0x19 00f6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 00f7 e2a8 | | Load 0x1,0xa8 00f8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00f9 686a |hj | Jump_Zero 0x164 00fa e2a8 | | Load 0x1,0xa8 00fb 3c0b |< | Execute Record,Field_Read,Field_Number 0xb 00fc e2a8 | | Load 0x1,0xa8 00fd 3c08 |< | Execute Record,Field_Read,Field_Number 0x8 00fe 0279 | y | Execute Discrete,And 00ff e22c | , | Load 0x1,0x2c 0100 3c31 |<1 | Execute Record,Field_Read,Field_Number 0x31 0101 0279 | y | Execute Discrete,And 0102 685a |hZ | Jump_Zero 0x15d 0103 e009 | | Load 0x0,0x9 0104 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0105 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0106 a404 | | Store_Unchecked 0x2,0x4 0107 483b |H; | Short_Literal 0x3b 0108 8224 | $ | Call 0x1,0x24 0109 4800 |H | Short_Literal 0x0 010a e220 | | Load 0x1,0x20 010b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9 010c e22c | , | Load 0x1,0x2c 010d 3c33 |<3 | Execute Record,Field_Read,Field_Number 0x33 010e 6804 |h | Jump_Zero 0x113 010f 4800 |H | Short_Literal 0x0 0110 e220 | | Load 0x1,0x20 0111 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0112 7803 |x | Jump 0x116 0113 4801 |H | Short_Literal 0x1 0114 e220 | | Load 0x1,0x20 0115 380a |8 | Execute Record,Field_Write,Field_Number 0xa 0116 e065 | e | Load 0x0,0x65 0117 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0118 4800 |H | Short_Literal 0x0 0119 e220 | | Load 0x1,0x20 011a 381a |8 | Execute Record,Field_Write,Field_Number 0x1a 011b e2a8 | | Load 0x1,0xa8 011c 3c09 |< | Execute Record,Field_Read,Field_Number 0x9 011d 681e |h | Jump_Zero 0x13c 011e e404 | | Load 0x2,0x4 011f e27f | | Load 0x1,0x7f 0120 e00a | | Load 0x0,0xa 0121 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0122 00d1 | | Pop_Control Pop_Count_1 0123 c404 | | Store 0x2,0x4 0124 e404 | | Load 0x2,0x4 0125 e2a8 | | Load 0x1,0xa8 0126 3c0a |< | Execute Record,Field_Read,Field_Number 0xa 0127 e009 | | Load 0x0,0x9 0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0129 1816 | | Execute Package,Field_Execute,Field_Number 0x16 012a 4801 |H | Short_Literal 0x1 012b e009 | | Load 0x0,0x9 012c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 012d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 012e c404 | | Store 0x2,0x4 012f e2a8 | | Load 0x1,0xa8 0130 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 0131 e009 | | Load 0x0,0x9 0132 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0133 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0134 6807 |h | Jump_Zero 0x13c 0135 e404 | | Load 0x2,0x4 0136 e22c | , | Load 0x1,0x2c 0137 3c3e |<> | Execute Record,Field_Read,Field_Number 0x3e 0138 e009 | | Load 0x0,0x9 0139 1b0d | | Execute Package,Field_Read,Field_Number 0xd 013a 181c | | Execute Package,Field_Execute,Field_Number 0x1c 013b c404 | | Store 0x2,0x4 013c e404 | | Load 0x2,0x4 013d e2a8 | | Load 0x1,0xa8 013e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7 013f e009 | | Load 0x0,0x9 0140 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0141 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0142 c404 | | Store 0x2,0x4 0143 e404 | | Load 0x2,0x4 0144 e065 | e | Load 0x0,0x65 0145 180f | | Execute Package,Field_Execute,Field_Number 0xf 0146 4801 |H | Short_Literal 0x1 0147 4801 |H | Short_Literal 0x1 0148 e22c | , | Load 0x1,0x2c 0149 3c43 |<C | Execute Record,Field_Read,Field_Number 0x43 014a 8218 | | Call 0x1,0x18 014b 483b |H; | Short_Literal 0x3b 014c 8226 | & | Call 0x1,0x26 014d e404 | | Load 0x2,0x4 014e e009 | | Load 0x0,0x9 014f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0150 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0151 c404 | | Store 0x2,0x4 0152 e2a8 | | Load 0x1,0xa8 0153 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 0154 6803 |h | Jump_Zero 0x158 0155 e2a8 | | Load 0x1,0xa8 0156 3c0e |< | Execute Record,Field_Read,Field_Number 0xe 0157 6805 |h | Jump_Zero 0x15d 0158 4801 |H | Short_Literal 0x1 0159 4801 |H | Short_Literal 0x1 015a e2a8 | | Load 0x1,0xa8 015b 3c1d |< | Execute Record,Field_Read,Field_Number 0x1d 015c 8218 | | Call 0x1,0x18 015d e2a8 | | Load 0x1,0xa8 015e 3c0c |< | Execute Record,Field_Read,Field_Number 0xc 015f 6804 |h | Jump_Zero 0x164 0160 e2a8 | | Load 0x1,0xa8 0161 3c0d |< | Execute Record,Field_Read,Field_Number 0xd 0162 e019 | | Load 0x0,0x19 0163 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0164 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0165 ; -------------------------------------------------------------------------------------- 0165 ; STRING TABLE 0165 ; -------------------------------------------------------------------------------------- 0165 0006 | | .STRTAB 0x0006->0x0168 ; "Starting document page " 0166 001b | | .STRTAB 0x001b->0x0173 ; " (output page" 0167 0026 | & | .STREND 0x0026->0x017a 0168 5374 6172 |Star| .STRTAB_STRINGS 017a 0000 0000 | | .BLANK 0000[0x6] 0180 ; -------------------------------------------------------------------------------------- 0180 ; Debug Table 0180 ; -------------------------------------------------------------------------------------- 0180 0004 000f | | .DEBUG4 0x0004,0x000f,0x47f6,0x0000,0x0001,0x0000 0186 9e5e 1097 | ^ | .XXX[0x7a] 0188 404e 9d64 |@N d| 018a 0a66 c640 | f @| 018c 95c0 f82d | -| 018e a40a c5e6 | | 0190 2499 0175 |$ u| 0192 19e0 08fa | | 0194 220c a180 |" | 0196 aff3 c00b | | 0198 1164 e71e | d | 019a 260c a480 |& | 019c 224b a662 |"K b| 019e 6a64 0b58 |jd X| 01a0 0e48 8aa4 | H | 01a2 096f 043e | o >| 01a4 1e62 10ab | b | 01a6 0117 fa00 | | 01a8 28e2 e009 |( | 01aa 24e6 666a |$ fj| 01ac e408 d58e | | 01ae 10ad 807a | z| 01b0 9f24 0a6b | $ k| 01b2 c270 8b64 | p d| 01b4 0939 c266 | 9 f| 01b6 65e6 24b4 |e $ | 01b8 8016 5e24 | ^$| 01ba 17b5 263f | &?| 01bc 7a66 10b7 |zf | 01be 40e3 f642 |@ B| 01c0 58ba 4236 |X B6| 01c2 3026 765f |0&v_| 01c4 a00a 8b02 | | 01c6 7a6b a40a |zk | 01c8 8256 58bc | VX | 01ca 800c 19ea | | 01cc 24bc 0268 |$ h| 01ce e020 0d8f | | 01d0 d60c c000 | | 01d2 c953 a400 | S | 01d4 c0c1 5596 | U | 01d6 2686 c656 |& V| 01d8 58c2 01cb |X | 01da ff90 00c9 | | 01dc 800b c0a6 | | 01de 48cb 010c |H | 01e0 05aa 88ae | | 01e2 468a 68e4 |F h | 01e4 0d83 9800 | | 01e6 cdc2 165c | \| 01e8 e00e bb42 | B| 01ea 80c2 a8e0 | | 01ec 2fe4 5a5b |/ Z[| 01ee 8400 d082 | | 01f0 8c39 400d | 9@ | 01f2 be26 0cd4 | & | 01f4 4170 8568 |Ap h| 01f6 0e06 5e10 | ^ | 01f8 da41 0919 | A | 01fa a00f a1a6 | | 01fc 10dd 4115 | A | 01fe 1a60 0f54 | ` T|