|
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 f2a0 05cb | | .XXX[0x3c] 0188 e211 3000 | 0 | 018a ae55 01c3 | U | 018c fa00 0aec | | 018e d4c9 c801 | | 0190 57c9 005f |W _| 0192 57c0 15c8 |W | 0194 f000 02b8 | | 0196 6000 02f3 |` | 0198 3000 1100 |0 | 019a 0000 0000 | | 019c 0179 d800 | y | 019e 0000 0000 | | 01a0 0000 0200 | | 01a2 017a 5800 | zX | 01a4 0000 0000 | | 01a6 017a f500 | z | 01a8 0000 0000 | | 01aa 017a b800 | z | 01ac 002e 76e0 | .v | 01ae 0000 0000 | | 01b0 0bdc 9000 | | 01b2 0000 0000 | | 01b4 0bda a800 | | 01b6 0167 e300 | g | 01b8 0000 0000 | | 01ba 5f0b c000 |_ | 01bc 0000 0000 | | 01be 5efc 8000 |^ | 01c0 0b07 d000 | | 01c2 0000 0000 | | .BLANK 0000[0x5] 01c7 0002 f91e | | .XXX[0x39] 01c9 0000 5686 | V | 01cb c000 0008 | | 01cd 0800 e000 | | 01cf 0000 0000 | | 01d1 35d9 0000 |5 | 01d3 4d24 0800 |M$ | 01d5 0001 0210 | | 01d7 1f00 5f33 | _3| 01d9 0017 d228 | (| 01db 3b02 d000 |; | 01dd 0001 fffc | | 01df 0061 7260 | ar`| 01e1 c760 4acb | `J | 01e3 4000 0000 |@ | 01e5 00bf 5700 | W | 01e7 2ff5 a00c |/ | 01e9 1cb0 0006 | | 01eb 705e 00bf |p^ | 01ed 0500 2fea | / | 01ef e01f 0000 | | 01f1 0c1c b000 | | 01f3 017e ae00 | ~ | 01f5 7901 001c |y | 01f7 0000 0000 | | 01f9 0006 bb24 | $| 01fb 2264 017e |"d ~| 01fd 0a00 0000 | | 01ff 0000 | |