|
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_03bcfe
└─⟦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 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 4682 0746 |F F| .XXX[0x7a] 0188 8650 0000 | P | 018a 0090 0000 | | 018c 0482 0537 | 7| 018e 0656 3696 | V6 | 0190 6696 5732 |f W2| 0192 0776 8657 | v W| 0194 4686 5722 |F W"| 0196 0746 f206 | F | 0198 4697 3706 |F 7 | 019a c617 9206 | | 019c 96e6 66f7 | f | 019e 26d6 1746 |& F| 01a0 96f6 e206 | | 01a2 f6e2 0636 | 6| 01a4 c617 3736 | 76| 01a6 5732 0617 |W2 | 01a8 3736 f636 |76 6| 01aa 9617 4656 | FV| 01ac 4207 7697 |B v | 01ae 4682 0746 |F F| 01b0 8650 0000 | P | 01b2 0520 0000 | | 01b4 0282 0646 | F| 01b6 9737 06c6 | 7 | 01b8 1796 5642 | VB| 01ba 0646 5766 | FWf| 01bc 9636 5732 | 6W2| 01be e205 4686 | F | 01c0 5206 4656 |R FV| 01c2 6617 56c7 |f V | 01c4 4206 9732 |B 2| 01c6 0547 2756 | G'V| 01c8 52e0 0000 |R | 01ca 0520 0000 | | 01cc 0282 0646 | F| 01ce 9737 06c6 | 7 | 01d0 1796 5642 | VB| 01d2 0646 5766 | FWf| 01d4 9636 5732 | 6W2| 01d6 e205 4686 | F | 01d8 5206 4656 |R FV| 01da 6617 56c7 |f V | 01dc 4206 9732 |B 2| 01de 0547 2756 | G'V| 01e0 52e0 0000 |R | 01e2 07b0 0000 | | 01e4 0000 0000 | | 01e6 07a0 0000 | | 01e8 07b0 0000 | | 01ea 0000 0000 | | 01ec 07a0 0000 | | 01ee 07c0 0000 | | 01f0 0000 0000 | | 01f2 07b0 0000 | | 01f4 07c0 0000 | | 01f6 0000 0000 | | 01f8 07b0 0000 | | 01fa 07d0 0000 | | 01fc 0042 0455 | B U| 01fe 8410 0000 | |