|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 0320 | | .CONST 0x0320 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001a | | .CONST 0x001a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0009 | | .CONST 0x0009 ; Number of locals 000b INIT_0008: 000b e007 | | Load 0x0,0x7 000c 0007 | | Action Break_Optional 000d e007 | | Load 0x0,0x7 000e 0007 | | Action Break_Optional 000f e007 | | Load 0x0,0x7 0010 0007 | | Action Break_Optional 0011 e007 | | Load 0x0,0x7 0012 0007 | | Action Break_Optional 0013 e007 | | Load 0x0,0x7 0014 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0016 029f 0213 | | Declare_Subprogram INIT_0210,For_Call 0018 029f 029b | | Declare_Subprogram INIT_0298,For_Call 001a BODY_0008: 001a e212 | | Load 0x1,0x12 001b e20d | | Load 0x1,0xd 001c 803e | > | Call 0x0,0x3e 001d a406 | | Store_Unchecked 0x2,0x6 001e 0007 | | Action Break_Optional 001f e22b | + | Load 0x1,0x2b 0020 e009 | | Load 0x0,0x9 0021 017f | | Execute Record,Equal 0022 7003 |p | Jump_Nonzero 0x26 0023 e22b | + | Load 0x1,0x2b 0024 e20d | | Load 0x1,0xd 0025 805b | [ | Call 0x0,0x5b 0026 e22a | * | Load 0x1,0x2a 0027 e20d | | Load 0x1,0xd 0028 805c | \ | Call 0x0,0x5c 0029 e229 | ) | Load 0x1,0x29 002a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 002b e223 | # | Load 0x1,0x23 002c 0272 | r | Execute Discrete,Minus 002d e224 | $ | Load 0x1,0x24 002e 0272 | r | Execute Discrete,Minus 002f e02c | , | Load 0x0,0x2c 0030 0270 | p | Execute Discrete,Divide 0031 c220 | | Store 0x1,0x20 0032 e229 | ) | Load 0x1,0x29 0033 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0034 e011 | | Load 0x0,0x11 0035 0270 | p | Execute Discrete,Divide 0036 c221 | ! | Store 0x1,0x21 0037 e229 | ) | Load 0x1,0x29 0038 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0039 a23b | ; | Store_Unchecked 0x1,0x3b 003a e229 | ) | Load 0x1,0x29 003b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 003c a23a | : | Store_Unchecked 0x1,0x3a 003d e229 | ) | Load 0x1,0x29 003e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 003f e223 | # | Load 0x1,0x23 0040 0272 | r | Execute Discrete,Minus 0041 c225 | % | Store 0x1,0x25 0042 7800 |x | Jump 0x43 0043 8407 | | Call 0x2,0x7 0044 e05d | ] | Load 0x0,0x5d 0045 e05e | ^ | Load 0x0,0x5e 0046 e22c | , | Load 0x1,0x2c 0047 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0048 e20d | | Load 0x1,0xd 0049 8047 | G | Call 0x0,0x47 004a a211 | | Store_Unchecked 0x1,0x11 004b e211 | | Load 0x1,0x11 004c e05f | _ | Load 0x0,0x5f 004d e20f | | Load 0x1,0xf 004e e20d | | Load 0x1,0xd 004f 8060 | ` | Call 0x0,0x60 0050 e22b | + | Load 0x1,0x2b 0051 e20d | | Load 0x1,0xd 0052 804a | J | Call 0x0,0x4a 0053 e22c | , | Load 0x1,0x2c 0054 e20d | | Load 0x1,0xd 0055 804a | J | Call 0x0,0x4a 0056 4800 |H | Short_Literal 0x0 0057 e20d | | Load 0x1,0xd 0058 8059 | Y | Call 0x0,0x59 0059 824d | M | Call 0x1,0x4d 005a 4801 |H | Short_Literal 0x1 005b 824c | L | Call 0x1,0x4c 005c e222 | " | Load 0x1,0x22 005d 09ff | | Execute_Immediate Binary_Scale,-0x1 005e e21e | | Load 0x1,0x1e 005f 09ff | | Execute_Immediate Binary_Scale,-0x1 0060 0272 | r | Execute Discrete,Minus 0061 c404 | | Store 0x2,0x4 0062 e223 | # | Load 0x1,0x23 0063 09ff | | Execute_Immediate Binary_Scale,-0x1 0064 e21f | | Load 0x1,0x1f 0065 09ff | | Execute_Immediate Binary_Scale,-0x1 0066 0272 | r | Execute Discrete,Minus 0067 c405 | | Store 0x2,0x5 0068 7800 |x | Jump 0x69 0069 8408 | | Call 0x2,0x8 006a e229 | ) | Load 0x1,0x29 006b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 006c e404 | | Load 0x2,0x4 006d 0272 | r | Execute Discrete,Minus 006e e21e | | Load 0x1,0x1e 006f 0272 | r | Execute Discrete,Minus 0070 c404 | | Store 0x2,0x4 0071 7800 |x | Jump 0x72 0072 8409 | | Call 0x2,0x9 0073 e22d | - | Load 0x1,0x2d 0074 e20d | | Load 0x1,0xd 0075 804a | J | Call 0x0,0x4a 0076 e22e | . | Load 0x1,0x2e 0077 e20d | | Load 0x1,0xd 0078 804a | J | Call 0x0,0x4a 0079 4800 |H | Short_Literal 0x0 007a e20d | | Load 0x1,0xd 007b 8059 | Y | Call 0x0,0x59 007c 788c |x | Jump 0x109 007d 4800 00d9 |H | .XXX[0x8c] 007f e40a 01d6 | | 0081 3ffb 481c |? H | 0083 4811 4800 |H H | 0085 00d9 e40a | | 0087 01d6 3ffb | ? | 0089 4800 481e |H H | 008b 00da 01d6 | | 008d 4800 481f |H H | 008f 00da 01d6 | | 0091 e026 01c3 | & | 0093 e22b e20d | + | 0095 8049 e026 | I &| 0097 0337 4801 | 7H | 0099 481d 00da |H | 009b 01d6 4801 | H | 009d 4810 00da |H | 009f 01d6 4801 | H | 00a1 480f 00da |H | 00a3 01d6 480e | H | 00a5 4800 4800 |H H | 00a7 00d9 e40a | | 00a9 01d6 3ffb | ? | 00ab 481c 4811 |H H | 00ad 4800 00d9 |H | 00af e40a 01d6 | | 00b1 3ffb 4800 |? H | 00b3 481e 00da |H | 00b5 01d6 4800 | H | 00b7 481f 00da |H | 00b9 01d6 e026 | &| 00bb 01c3 e22c | ,| 00bd e20d 8049 | I| 00bf e026 0337 | & 7| 00c1 4801 481d |H H | 00c3 00da 01d6 | | 00c5 4801 4810 |H H | 00c7 00da 01d6 | | 00c9 480f 4800 |H H | 00cb 4800 00d9 |H | 00cd e40a 01d6 | | 00cf 3ffb 481c |? H | 00d1 4811 4800 |H H | 00d3 00d9 e40a | | 00d5 01d6 3ffb | ? | 00d7 4800 481e |H H | 00d9 00da 01d6 | | 00db 4800 481f |H H | 00dd 00da 01d6 | | 00df e026 01c3 | & | 00e1 e22d e20d | - | 00e3 8049 e026 | I &| 00e5 0337 4801 | 7H | 00e7 481d 00da |H | 00e9 01d6 4801 | H | 00eb 4810 00da |H | 00ed 01d6 480f | H | 00ef 4800 4800 |H H | 00f1 00d9 e40a | | 00f3 01d6 3ffb | ? | 00f5 481c 4811 |H H | 00f7 4800 00d9 |H | 00f9 e40a 01d6 | | 00fb 3ffb 4800 |? H | 00fd 481e 00da |H | 00ff 01d6 4800 | H | 0101 481f 00da |H | 0103 01d6 e026 | &| 0105 01c3 e22e | .| 0107 e20d 8049 | I| 0109 8217 | | Call 0x1,0x17 010a 4802 |H | Short_Literal 0x2 010b 824c | L | Call 0x1,0x4c 010c 8251 | Q | Call 0x1,0x51 010d 8252 | R | Call 0x1,0x52 010e 4800 |H | Short_Literal 0x0 010f e20d | | Load 0x1,0xd 0110 8059 | Y | Call 0x0,0x59 0111 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0112 0000 0000 | | .BLANK 0000[0x6] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011f | | .CONST 0x011f ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0002 | | .CONST 0x0002 ; Number of locals 011b INIT_0118: 011b e04f | O | Load 0x0,0x4f 011c 0322 | " | Declare_Variable Record 011d 00d8 | | Load_Top At_Offset_0 011e 1c00 | | Execute_Immediate Run_Utility,0x0 011f BODY_0118: 011f 4800 |H | Short_Literal 0x0 0120 00d9 | | Load_Top At_Offset_1 0121 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0122 e227 | ' | Load 0x1,0x27 0123 00d9 | | Load_Top At_Offset_1 0124 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0125 e026 | & | Load 0x0,0x26 0126 0337 | 7 | Declare_Variable Array 0127 4801 |H | Short_Literal 0x1 0128 481d |H | Short_Literal 0x1d 0129 00da | | Load_Top At_Offset_2 012a 01d6 | | Execute Vector,Field_Write 012b 4801 |H | Short_Literal 0x1 012c 4810 |H | Short_Literal 0x10 012d 00da | | Load_Top At_Offset_2 012e 01d6 | | Execute Vector,Field_Write 012f 480f |H | Short_Literal 0xf 0130 4800 |H | Short_Literal 0x0 0131 4800 |H | Short_Literal 0x0 0132 00d9 | | Load_Top At_Offset_1 0133 e603 | | Load 0x3,0x3 0134 01d6 | | Execute Vector,Field_Write 0135 3ffb |? | Loop_Increasing 0x131 0136 481c |H | Short_Literal 0x1c 0137 4811 |H | Short_Literal 0x11 0138 4800 |H | Short_Literal 0x0 0139 00d9 | | Load_Top At_Offset_1 013a e603 | | Load 0x3,0x3 013b 01d6 | | Execute Vector,Field_Write 013c 3ffb |? | Loop_Increasing 0x138 013d 4800 |H | Short_Literal 0x0 013e 481e |H | Short_Literal 0x1e 013f 00da | | Load_Top At_Offset_2 0140 01d6 | | Execute Vector,Field_Write 0141 4800 |H | Short_Literal 0x0 0142 481f |H | Short_Literal 0x1f 0143 00da | | Load_Top At_Offset_2 0144 01d6 | | Execute Vector,Field_Write 0145 e026 | & | Load 0x0,0x26 0146 01c3 | | Execute Vector,Check_In_Type 0147 00d9 | | Load_Top At_Offset_1 0148 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0149 00d8 | | Load_Top At_Offset_0 014a e050 | P | Load 0x0,0x50 014b 0337 | 7 | Declare_Variable Array 014c 4801 |H | Short_Literal 0x1 014d 481e |H | Short_Literal 0x1e 014e 00da | | Load_Top At_Offset_2 014f 01d6 | | Execute Vector,Field_Write 0150 4801 |H | Short_Literal 0x1 0151 481c |H | Short_Literal 0x1c 0152 00da | | Load_Top At_Offset_2 0153 01d6 | | Execute Vector,Field_Write 0154 4801 |H | Short_Literal 0x1 0155 4814 |H | Short_Literal 0x14 0156 00da | | Load_Top At_Offset_2 0157 01d6 | | Execute Vector,Field_Write 0158 4813 |H | Short_Literal 0x13 0159 4800 |H | Short_Literal 0x0 015a 4800 |H | Short_Literal 0x0 015b 00d9 | | Load_Top At_Offset_1 015c e604 | | Load 0x3,0x4 015d 01d6 | | Execute Vector,Field_Write 015e 3ffb |? | Loop_Increasing 0x15a 015f 481b |H | Short_Literal 0x1b 0160 4815 |H | Short_Literal 0x15 0161 4800 |H | Short_Literal 0x0 0162 00d9 | | Load_Top At_Offset_1 0163 e604 | | Load 0x3,0x4 0164 01d6 | | Execute Vector,Field_Write 0165 3ffb |? | Loop_Increasing 0x161 0166 4800 |H | Short_Literal 0x0 0167 481d |H | Short_Literal 0x1d 0168 00da | | Load_Top At_Offset_2 0169 01d6 | | Execute Vector,Field_Write 016a 4800 |H | Short_Literal 0x0 016b 481f |H | Short_Literal 0x1f 016c 00da | | Load_Top At_Offset_2 016d 01d6 | | Execute Vector,Field_Write 016e e050 | P | Load 0x0,0x50 016f 01c3 | | Execute Vector,Check_In_Type 0170 e038 | 8 | Load 0x0,0x38 0171 4800 |H | Short_Literal 0x0 0172 4800 |H | Short_Literal 0x0 0173 4800 |H | Short_Literal 0x0 0174 e223 | # | Load 0x1,0x23 0175 00d8 | | Load_Top At_Offset_0 0176 e01a | | Load 0x0,0x1a 0177 0260 | ` | Execute Discrete,In_Type 0178 7001 |p | Jump_Nonzero 0x17a 0179 0801 | | Execute_Immediate Raise,0x1 017a 00d8 | | Load_Top At_Offset_0 017b e03f | ? | Load 0x0,0x3f 017c 0260 | ` | Execute Discrete,In_Type 017d 7001 |p | Jump_Nonzero 0x17f 017e 0801 | | Execute_Immediate Raise,0x1 017f e229 | ) | Load 0x1,0x29 0180 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0181 00d8 | | Load_Top At_Offset_0 0182 e01a | | Load 0x0,0x1a 0183 0260 | ` | Execute Discrete,In_Type 0184 7001 |p | Jump_Nonzero 0x186 0185 0801 | | Execute_Immediate Raise,0x1 0186 00d8 | | Load_Top At_Offset_0 0187 e03f | ? | Load 0x0,0x3f 0188 0260 | ` | Execute Discrete,In_Type 0189 7001 |p | Jump_Nonzero 0x18b 018a 0801 | | Execute_Immediate Raise,0x1 018b 4800 |H | Short_Literal 0x0 018c 4800 |H | Short_Literal 0x0 018d e22a | * | Load 0x1,0x2a 018e e20d | | Load 0x1,0xd 018f 8051 | Q | Call 0x0,0x51 0190 e22b | + | Load 0x1,0x2b 0191 017d | } | Execute Record,Structure_Write 0192 4800 |H | Short_Literal 0x0 0193 00d9 | | Load_Top At_Offset_1 0194 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0195 e406 | | Load 0x2,0x6 0196 00d9 | | Load_Top At_Offset_1 0197 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0198 e026 | & | Load 0x0,0x26 0199 0337 | 7 | Declare_Variable Array 019a 4801 |H | Short_Literal 0x1 019b 481d |H | Short_Literal 0x1d 019c 00da | | Load_Top At_Offset_2 019d 01d6 | | Execute Vector,Field_Write 019e 4801 |H | Short_Literal 0x1 019f 4810 |H | Short_Literal 0x10 01a0 00da | | Load_Top At_Offset_2 01a1 01d6 | | Execute Vector,Field_Write 01a2 480f |H | Short_Literal 0xf 01a3 4800 |H | Short_Literal 0x0 01a4 4800 |H | Short_Literal 0x0 01a5 00d9 | | Load_Top At_Offset_1 01a6 e603 | | Load 0x3,0x3 01a7 01d6 | | Execute Vector,Field_Write 01a8 3ffb |? | Loop_Increasing 0x1a4 01a9 481c |H | Short_Literal 0x1c 01aa 4811 |H | Short_Literal 0x11 01ab 4800 |H | Short_Literal 0x0 01ac 00d9 | | Load_Top At_Offset_1 01ad e603 | | Load 0x3,0x3 01ae 01d6 | | Execute Vector,Field_Write 01af 3ffb |? | Loop_Increasing 0x1ab 01b0 4800 |H | Short_Literal 0x0 01b1 481e |H | Short_Literal 0x1e 01b2 00da | | Load_Top At_Offset_2 01b3 01d6 | | Execute Vector,Field_Write 01b4 4800 |H | Short_Literal 0x0 01b5 481f |H | Short_Literal 0x1f 01b6 00da | | Load_Top At_Offset_2 01b7 01d6 | | Execute Vector,Field_Write 01b8 e026 | & | Load 0x0,0x26 01b9 01c3 | | Execute Vector,Check_In_Type 01ba 00d9 | | Load_Top At_Offset_1 01bb 380b |8 | Execute Record,Field_Write,Field_Number 0xb 01bc 00d8 | | Load_Top At_Offset_0 01bd e050 | P | Load 0x0,0x50 01be 0337 | 7 | Declare_Variable Array 01bf 4801 |H | Short_Literal 0x1 01c0 481e |H | Short_Literal 0x1e 01c1 00da | | Load_Top At_Offset_2 01c2 01d6 | | Execute Vector,Field_Write 01c3 4801 |H | Short_Literal 0x1 01c4 481c |H | Short_Literal 0x1c 01c5 00da | | Load_Top At_Offset_2 01c6 01d6 | | Execute Vector,Field_Write 01c7 4801 |H | Short_Literal 0x1 01c8 4814 |H | Short_Literal 0x14 01c9 00da | | Load_Top At_Offset_2 01ca 01d6 | | Execute Vector,Field_Write 01cb 4813 |H | Short_Literal 0x13 01cc 4800 |H | Short_Literal 0x0 01cd 4800 |H | Short_Literal 0x0 01ce 00d9 | | Load_Top At_Offset_1 01cf e604 | | Load 0x3,0x4 01d0 01d6 | | Execute Vector,Field_Write 01d1 3ffb |? | Loop_Increasing 0x1cd 01d2 481b |H | Short_Literal 0x1b 01d3 4815 |H | Short_Literal 0x15 01d4 4800 |H | Short_Literal 0x0 01d5 00d9 | | Load_Top At_Offset_1 01d6 e604 | | Load 0x3,0x4 01d7 01d6 | | Execute Vector,Field_Write 01d8 3ffb |? | Loop_Increasing 0x1d4 01d9 4800 |H | Short_Literal 0x0 01da 481d |H | Short_Literal 0x1d 01db 00da | | Load_Top At_Offset_2 01dc 01d6 | | Execute Vector,Field_Write 01dd 4800 |H | Short_Literal 0x0 01de 481f |H | Short_Literal 0x1f 01df 00da | | Load_Top At_Offset_2 01e0 01d6 | | Execute Vector,Field_Write 01e1 e050 | P | Load 0x0,0x50 01e2 01c3 | | Execute Vector,Check_In_Type 01e3 e038 | 8 | Load 0x0,0x38 01e4 4800 |H | Short_Literal 0x0 01e5 4800 |H | Short_Literal 0x0 01e6 4800 |H | Short_Literal 0x0 01e7 e225 | % | Load 0x1,0x25 01e8 00d8 | | Load_Top At_Offset_0 01e9 e01a | | Load 0x0,0x1a 01ea 0260 | ` | Execute Discrete,In_Type 01eb 7001 |p | Jump_Nonzero 0x1ed 01ec 0801 | | Execute_Immediate Raise,0x1 01ed 00d8 | | Load_Top At_Offset_0 01ee e03f | ? | Load 0x0,0x3f 01ef 0260 | ` | Execute Discrete,In_Type 01f0 7001 |p | Jump_Nonzero 0x1f2 01f1 0801 | | Execute_Immediate Raise,0x1 01f2 e229 | ) | Load 0x1,0x29 01f3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01f4 00d8 | | Load_Top At_Offset_0 01f5 e01a | | Load 0x0,0x1a 01f6 0260 | ` | Execute Discrete,In_Type 01f7 7001 |p | Jump_Nonzero 0x1f9 01f8 0801 | | Execute_Immediate Raise,0x1 01f9 00d8 | | Load_Top At_Offset_0 01fa e03f | ? | Load 0x0,0x3f 01fb 0260 | ` | Execute Discrete,In_Type 01fc 7001 |p | Jump_Nonzero 0x1fe 01fd 0801 | | Execute_Immediate Raise,0x1 01fe e223 | # | Load 0x1,0x23 01ff e224 | $ | Load 0x1,0x24 0200 0273 | s | Execute Discrete,Plus 0201 00d8 | | Load_Top At_Offset_0 0202 e00d | | Load 0x0,0xd 0203 0260 | ` | Execute Discrete,In_Type 0204 7001 |p | Jump_Nonzero 0x206 0205 0801 | | Execute_Immediate Raise,0x1 0206 4800 |H | Short_Literal 0x0 0207 e22a | * | Load 0x1,0x2a 0208 e20d | | Load 0x1,0xd 0209 8051 | Q | Call 0x0,0x51 020a e22c | , | Load 0x1,0x2c 020b 017d | } | Execute Record,Structure_Write 020c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 020d 0000 0000 | | .XXX[0x3] 020f 0000 | | 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0217 | | .CONST 0x0217 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0002 | | .CONST 0x0002 ; Number of locals 0213 INIT_0210: 0213 e04f | O | Load 0x0,0x4f 0214 0322 | " | Declare_Variable Record 0215 00d8 | | Load_Top At_Offset_0 0216 1c00 | | Execute_Immediate Run_Utility,0x0 0217 BODY_0210: 0217 e226 | & | Load 0x1,0x26 0218 00d9 | | Load_Top At_Offset_1 0219 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 021a e227 | ' | Load 0x1,0x27 021b 00d9 | | Load_Top At_Offset_1 021c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 021d e026 | & | Load 0x0,0x26 021e 0337 | 7 | Declare_Variable Array 021f 4801 |H | Short_Literal 0x1 0220 481d |H | Short_Literal 0x1d 0221 00da | | Load_Top At_Offset_2 0222 01d6 | | Execute Vector,Field_Write 0223 4801 |H | Short_Literal 0x1 0224 4810 |H | Short_Literal 0x10 0225 00da | | Load_Top At_Offset_2 0226 01d6 | | Execute Vector,Field_Write 0227 480f |H | Short_Literal 0xf 0228 4800 |H | Short_Literal 0x0 0229 4800 |H | Short_Literal 0x0 022a 00d9 | | Load_Top At_Offset_1 022b e603 | | Load 0x3,0x3 022c 01d6 | | Execute Vector,Field_Write 022d 3ffb |? | Loop_Increasing 0x229 022e 481c |H | Short_Literal 0x1c 022f 4811 |H | Short_Literal 0x11 0230 4800 |H | Short_Literal 0x0 0231 00d9 | | Load_Top At_Offset_1 0232 e603 | | Load 0x3,0x3 0233 01d6 | | Execute Vector,Field_Write 0234 3ffb |? | Loop_Increasing 0x230 0235 4800 |H | Short_Literal 0x0 0236 481e |H | Short_Literal 0x1e 0237 00da | | Load_Top At_Offset_2 0238 01d6 | | Execute Vector,Field_Write 0239 4800 |H | Short_Literal 0x0 023a 481f |H | Short_Literal 0x1f 023b 00da | | Load_Top At_Offset_2 023c 01d6 | | Execute Vector,Field_Write 023d e026 | & | Load 0x0,0x26 023e 01c3 | | Execute Vector,Check_In_Type 023f 00d9 | | Load_Top At_Offset_1 0240 380b |8 | Execute Record,Field_Write,Field_Number 0xb 0241 00d8 | | Load_Top At_Offset_0 0242 e050 | P | Load 0x0,0x50 0243 0337 | 7 | Declare_Variable Array 0244 4801 |H | Short_Literal 0x1 0245 481e |H | Short_Literal 0x1e 0246 00da | | Load_Top At_Offset_2 0247 01d6 | | Execute Vector,Field_Write 0248 4801 |H | Short_Literal 0x1 0249 481c |H | Short_Literal 0x1c 024a 00da | | Load_Top At_Offset_2 024b 01d6 | | Execute Vector,Field_Write 024c 4801 |H | Short_Literal 0x1 024d 4814 |H | Short_Literal 0x14 024e 00da | | Load_Top At_Offset_2 024f 01d6 | | Execute Vector,Field_Write 0250 4813 |H | Short_Literal 0x13 0251 4800 |H | Short_Literal 0x0 0252 4800 |H | Short_Literal 0x0 0253 00d9 | | Load_Top At_Offset_1 0254 e604 | | Load 0x3,0x4 0255 01d6 | | Execute Vector,Field_Write 0256 3ffb |? | Loop_Increasing 0x252 0257 481b |H | Short_Literal 0x1b 0258 4815 |H | Short_Literal 0x15 0259 4800 |H | Short_Literal 0x0 025a 00d9 | | Load_Top At_Offset_1 025b e604 | | Load 0x3,0x4 025c 01d6 | | Execute Vector,Field_Write 025d 3ffb |? | Loop_Increasing 0x259 025e 4800 |H | Short_Literal 0x0 025f 481d |H | Short_Literal 0x1d 0260 00da | | Load_Top At_Offset_2 0261 01d6 | | Execute Vector,Field_Write 0262 4800 |H | Short_Literal 0x0 0263 481f |H | Short_Literal 0x1f 0264 00da | | Load_Top At_Offset_2 0265 01d6 | | Execute Vector,Field_Write 0266 e050 | P | Load 0x0,0x50 0267 01c3 | | Execute Vector,Check_In_Type 0268 e038 | 8 | Load 0x0,0x38 0269 4800 |H | Short_Literal 0x0 026a 4800 |H | Short_Literal 0x0 026b 4801 |H | Short_Literal 0x1 026c e21f | | Load 0x1,0x1f 026d 00d8 | | Load_Top At_Offset_0 026e e01a | | Load 0x0,0x1a 026f 0260 | ` | Execute Discrete,In_Type 0270 7001 |p | Jump_Nonzero 0x272 0271 0801 | | Execute_Immediate Raise,0x1 0272 00d8 | | Load_Top At_Offset_0 0273 e03f | ? | Load 0x0,0x3f 0274 0260 | ` | Execute Discrete,In_Type 0275 7001 |p | Jump_Nonzero 0x277 0276 0801 | | Execute_Immediate Raise,0x1 0277 e21e | | Load 0x1,0x1e 0278 00d8 | | Load_Top At_Offset_0 0279 e01a | | Load 0x0,0x1a 027a 0260 | ` | Execute Discrete,In_Type 027b 7001 |p | Jump_Nonzero 0x27d 027c 0801 | | Execute_Immediate Raise,0x1 027d 00d8 | | Load_Top At_Offset_0 027e e03f | ? | Load 0x0,0x3f 027f 0260 | ` | Execute Discrete,In_Type 0280 7001 |p | Jump_Nonzero 0x282 0281 0801 | | Execute_Immediate Raise,0x1 0282 e405 | | Load 0x2,0x5 0283 00d8 | | Load_Top At_Offset_0 0284 e00d | | Load 0x0,0xd 0285 0260 | ` | Execute Discrete,In_Type 0286 7001 |p | Jump_Nonzero 0x288 0287 0801 | | Execute_Immediate Raise,0x1 0288 e404 | | Load 0x2,0x4 0289 00d8 | | Load_Top At_Offset_0 028a e00d | | Load 0x0,0xd 028b 0260 | ` | Execute Discrete,In_Type 028c 7001 |p | Jump_Nonzero 0x28e 028d 0801 | | Execute_Immediate Raise,0x1 028e e22b | + | Load 0x1,0x2b 028f e20d | | Load 0x1,0xd 0290 8051 | Q | Call 0x0,0x51 0291 e22d | - | Load 0x1,0x2d 0292 017d | } | Execute Record,Structure_Write 0293 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0294 0000 0000 | | .BLANK 0000[0x4] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029f | | .CONST 0x029f ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0002 | | .CONST 0x0002 ; Number of locals 029b INIT_0298: 029b e04f | O | Load 0x0,0x4f 029c 0322 | " | Declare_Variable Record 029d 00d8 | | Load_Top At_Offset_0 029e 1c00 | | Execute_Immediate Run_Utility,0x0 029f BODY_0298: 029f e226 | & | Load 0x1,0x26 02a0 00d9 | | Load_Top At_Offset_1 02a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02a2 e227 | ' | Load 0x1,0x27 02a3 00d9 | | Load_Top At_Offset_1 02a4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 02a5 e026 | & | Load 0x0,0x26 02a6 0337 | 7 | Declare_Variable Array 02a7 4801 |H | Short_Literal 0x1 02a8 481d |H | Short_Literal 0x1d 02a9 00da | | Load_Top At_Offset_2 02aa 01d6 | | Execute Vector,Field_Write 02ab 4801 |H | Short_Literal 0x1 02ac 4810 |H | Short_Literal 0x10 02ad 00da | | Load_Top At_Offset_2 02ae 01d6 | | Execute Vector,Field_Write 02af 480f |H | Short_Literal 0xf 02b0 4800 |H | Short_Literal 0x0 02b1 4800 |H | Short_Literal 0x0 02b2 00d9 | | Load_Top At_Offset_1 02b3 e603 | | Load 0x3,0x3 02b4 01d6 | | Execute Vector,Field_Write 02b5 3ffb |? | Loop_Increasing 0x2b1 02b6 481c |H | Short_Literal 0x1c 02b7 4811 |H | Short_Literal 0x11 02b8 4800 |H | Short_Literal 0x0 02b9 00d9 | | Load_Top At_Offset_1 02ba e603 | | Load 0x3,0x3 02bb 01d6 | | Execute Vector,Field_Write 02bc 3ffb |? | Loop_Increasing 0x2b8 02bd 4800 |H | Short_Literal 0x0 02be 481e |H | Short_Literal 0x1e 02bf 00da | | Load_Top At_Offset_2 02c0 01d6 | | Execute Vector,Field_Write 02c1 4800 |H | Short_Literal 0x0 02c2 481f |H | Short_Literal 0x1f 02c3 00da | | Load_Top At_Offset_2 02c4 01d6 | | Execute Vector,Field_Write 02c5 e026 | & | Load 0x0,0x26 02c6 01c3 | | Execute Vector,Check_In_Type 02c7 00d9 | | Load_Top At_Offset_1 02c8 380b |8 | Execute Record,Field_Write,Field_Number 0xb 02c9 00d8 | | Load_Top At_Offset_0 02ca e050 | P | Load 0x0,0x50 02cb 0337 | 7 | Declare_Variable Array 02cc 4801 |H | Short_Literal 0x1 02cd 481e |H | Short_Literal 0x1e 02ce 00da | | Load_Top At_Offset_2 02cf 01d6 | | Execute Vector,Field_Write 02d0 4801 |H | Short_Literal 0x1 02d1 481c |H | Short_Literal 0x1c 02d2 00da | | Load_Top At_Offset_2 02d3 01d6 | | Execute Vector,Field_Write 02d4 4801 |H | Short_Literal 0x1 02d5 4814 |H | Short_Literal 0x14 02d6 00da | | Load_Top At_Offset_2 02d7 01d6 | | Execute Vector,Field_Write 02d8 4813 |H | Short_Literal 0x13 02d9 4800 |H | Short_Literal 0x0 02da 4800 |H | Short_Literal 0x0 02db 00d9 | | Load_Top At_Offset_1 02dc e604 | | Load 0x3,0x4 02dd 01d6 | | Execute Vector,Field_Write 02de 3ffb |? | Loop_Increasing 0x2da 02df 481b |H | Short_Literal 0x1b 02e0 4815 |H | Short_Literal 0x15 02e1 4800 |H | Short_Literal 0x0 02e2 00d9 | | Load_Top At_Offset_1 02e3 e604 | | Load 0x3,0x4 02e4 01d6 | | Execute Vector,Field_Write 02e5 3ffb |? | Loop_Increasing 0x2e1 02e6 4800 |H | Short_Literal 0x0 02e7 481d |H | Short_Literal 0x1d 02e8 00da | | Load_Top At_Offset_2 02e9 01d6 | | Execute Vector,Field_Write 02ea 4800 |H | Short_Literal 0x0 02eb 481f |H | Short_Literal 0x1f 02ec 00da | | Load_Top At_Offset_2 02ed 01d6 | | Execute Vector,Field_Write 02ee e050 | P | Load 0x0,0x50 02ef 01c3 | | Execute Vector,Check_In_Type 02f0 e038 | 8 | Load 0x0,0x38 02f1 4800 |H | Short_Literal 0x0 02f2 4800 |H | Short_Literal 0x0 02f3 4801 |H | Short_Literal 0x1 02f4 e21f | | Load 0x1,0x1f 02f5 00d8 | | Load_Top At_Offset_0 02f6 e01a | | Load 0x0,0x1a 02f7 0260 | ` | Execute Discrete,In_Type 02f8 7001 |p | Jump_Nonzero 0x2fa 02f9 0801 | | Execute_Immediate Raise,0x1 02fa 00d8 | | Load_Top At_Offset_0 02fb e03f | ? | Load 0x0,0x3f 02fc 0260 | ` | Execute Discrete,In_Type 02fd 7001 |p | Jump_Nonzero 0x2ff 02fe 0801 | | Execute_Immediate Raise,0x1 02ff e21e | | Load 0x1,0x1e 0300 00d8 | | Load_Top At_Offset_0 0301 e01a | | Load 0x0,0x1a 0302 0260 | ` | Execute Discrete,In_Type 0303 7001 |p | Jump_Nonzero 0x305 0304 0801 | | Execute_Immediate Raise,0x1 0305 00d8 | | Load_Top At_Offset_0 0306 e03f | ? | Load 0x0,0x3f 0307 0260 | ` | Execute Discrete,In_Type 0308 7001 |p | Jump_Nonzero 0x30a 0309 0801 | | Execute_Immediate Raise,0x1 030a e405 | | Load 0x2,0x5 030b 00d8 | | Load_Top At_Offset_0 030c e00d | | Load 0x0,0xd 030d 0260 | ` | Execute Discrete,In_Type 030e 7001 |p | Jump_Nonzero 0x310 030f 0801 | | Execute_Immediate Raise,0x1 0310 e404 | | Load 0x2,0x4 0311 00d8 | | Load_Top At_Offset_0 0312 e00d | | Load 0x0,0xd 0313 0260 | ` | Execute Discrete,In_Type 0314 7001 |p | Jump_Nonzero 0x316 0315 0801 | | Execute_Immediate Raise,0x1 0316 e22b | + | Load 0x1,0x2b 0317 e20d | | Load 0x1,0xd 0318 8051 | Q | Call 0x0,0x51 0319 e22e | . | Load 0x1,0x2e 031a 017d | } | Execute Record,Structure_Write 031b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 031c 0000 0000 | | .BLANK 0000[0x4] 0320 ; -------------------------------------------------------------------------------------- 0320 ; Debug Table 0320 ; -------------------------------------------------------------------------------------- 0320 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6894,0x0000,0x0001,0x0004 0326 000b 0336 | 6| .DBG4T 0x000b,0x0336,0x0001,0x4000 032a 011b 0389 | | .DBG4T 0x011b,0x0389,0x0004,0x0000 032e 0213 0394 | | .DBG4T 0x0213,0x0394,0x0004,0x0000 0332 029b 039b | | .DBG4T 0x029b,0x039b,0x0004,0x0000 0336 ; -------------------------------------------------------------------------------------- 0336 ; Debug chain 0336 ; -------------------------------------------------------------------------------------- 0336 0005 0026 | &| .DBGLEN 0x0005,0x0026 0338 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x001a,0x001e,0x001f,0x0023,0x0026,0x0029,0x0032,0x0037,0x003a,0x003d,0x0042,0x0043,0x0044,0x004b,0x0050,0x0053,0x0056,0x0059,0x005a,0x005c,0x0062,0x0068,0x0069,0x006a,0x0071,0x0072,0x0073,0x0076,0x0079,0x007c,0x0096,0x00bf,0x00e4,0x0109,0x010a,0x010c,0x010d,0x010e 0363 0001 0002 | | .XXX[0x26] 0365 0003 0004 | | 0367 0005 0006 | | 0369 0007 0008 | | 036b 0009 000a | | 036d 000b 000e | | 036f 000f 0010 | | 0371 0011 0012 | | 0373 0013 0014 | | 0375 0015 0016 | | 0377 0017 0018 | | 0379 001a 001b | | 037b 001c 001e | | 037d 001f 0020 | | 037f 0021 0022 | ! "| 0381 0024 0025 | $ %| 0383 0026 0027 | & '| 0385 0028 0029 | ( )| 0387 002a 002b | * +| 0389 ; -------------------------------------------------------------------------------------- 0389 ; Debug chain 0389 ; -------------------------------------------------------------------------------------- 0389 0001 0008 | | .DBGLEN 0x0001,0x0008 038b 011b 011f | | .DBGLNO 0x011b,0x011f,0x0122,0x0125,0x0149,0x0192,0x0195,0x0198,0x01bc 0394 ; -------------------------------------------------------------------------------------- 0394 ; Debug chain 0394 ; -------------------------------------------------------------------------------------- 0394 0001 0004 | | .DBGLEN 0x0001,0x0004 0396 0213 0217 | | .DBGLNO 0x0213,0x0217,0x021a,0x021d,0x0241 039b ; -------------------------------------------------------------------------------------- 039b ; Debug chain 039b ; -------------------------------------------------------------------------------------- 039b 0001 0004 | | .DBGLEN 0x0001,0x0004 039d 029b 029f | | .DBGLNO 0x029b,0x029f,0x02a2,0x02a5,0x02c9 03a2 0000 0000 | | .BLANK 0000[0x5e]