|
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: 2048 (0x800) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_14ce4c7
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02d8 | | .CONST 0x02d8 ; 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 0023 | # | .CONST 0x0023 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b a002 | | Store_Unchecked 0x0,0x2 000c 00c6 | | Action Check_Subprogram_Elaborated 000d a003 | | Store_Unchecked 0x0,0x3 000e 0129 | ) | Execute Any,Make_Visible 000f 0093 0000 | | push_full_address 0x0 0011 601e |` | Indirect_Literal Discrete,0x30,{0x80000000, 0x00010000} 0012 0273 | s | Execute Discrete,Plus 0013 e004 | | Load 0x0,0x4 0014 0273 | s | Execute Discrete,Plus 0015 e005 | | Load 0x0,0x5 0016 0273 | s | Execute Discrete,Plus 0017 0129 | ) | Execute Any,Make_Visible 0018 4800 |H | Short_Literal 0x0 0019 0129 | ) | Execute Any,Make_Visible 001a 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated 001c 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 001e 00bf | | Action Accept_Activation 001f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0020 00c7 | | Action Elaborate_Subprogram 0021 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0022 00c7 | | Action Elaborate_Subprogram 0023 BODY_0008: 0023 00bc | | Action Signal_Activated 0024 00bb | | Action Signal_Completion 0025 0000 0000 | | .XXX[0x3] 0027 0000 | | 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002b | + | .CONST 0x002b ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0001 | | .CONST 0x0001 ; Number of locals 002b BODY_0028: 002b INIT_0028: 002b 8006 | | Call 0x0,0x6 002c 8007 | | Call 0x0,0x7 002d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 002e 0000 0000 | | .XXX[0x2] 0030 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 0034 0000 0000 | | .BLANK 0000[0x4] 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 0054 | T | .CONST 0x0054 ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0009 | | .CONST 0x0009 ; Number of locals 003b INIT_0038: 003b 0007 | | Action Break_Optional 003c 00e8 | | Load_Encached Character_Cache 003d 00e2 | | Load_Encached Integer_Cache 003e 00e2 | | Load_Encached Integer_Cache 003f 02a0 | | Declare_Subprogram Null_Subprogram 0040 4803 |H | Short_Literal 0x3 0041 032d | - | Declare_Type Record,Defined 0042 4801 |H | Short_Literal 0x1 0043 4814 |H | Short_Literal 0x14 0044 00da | | Load_Top At_Offset_2 0045 02a0 | | Declare_Subprogram Null_Subprogram 0046 4801 |H | Short_Literal 0x1 0047 035d | ] | Declare_Type Array,Defined 0048 00d8 | | Load_Top At_Offset_0 0049 0337 | 7 | Declare_Variable Array 004a 029f 0063 | c| Declare_Subprogram INIT_0060,For_Call 004c 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call 004e 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 0050 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 0052 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call 0054 BODY_0038: 0054 8407 | | Call 0x2,0x7 0055 8405 | | Call 0x2,0x5 0056 8406 | | Call 0x2,0x6 0057 8408 | | Call 0x2,0x8 0058 8409 | | Call 0x2,0x9 0059 4501 |E | Exit_Suprogram New_Top_Offset 0x1 005a 0000 0000 | | .BLANK 0000[0x6] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 e402 | | Load 0x2,0x2 0064 0322 | " | Declare_Variable Record 0065 485a |HZ | Short_Literal 0x5a 0066 00d9 | | Load_Top At_Offset_1 0067 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0068 4802 |H | Short_Literal 0x2 0069 00d9 | | Load_Top At_Offset_1 006a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 006b 4801 |H | Short_Literal 0x1 006c 00d9 | | Load_Top At_Offset_1 006d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 006e 4801 |H | Short_Literal 0x1 006f e404 | | Load 0x2,0x4 0070 01d6 | | Execute Vector,Field_Write 0071 e402 | | Load 0x2,0x2 0072 0322 | " | Declare_Variable Record 0073 4852 |HR | Short_Literal 0x52 0074 00d9 | | Load_Top At_Offset_1 0075 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0076 4802 |H | Short_Literal 0x2 0077 00d9 | | Load_Top At_Offset_1 0078 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0079 4802 |H | Short_Literal 0x2 007a 00d9 | | Load_Top At_Offset_1 007b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 007c 4802 |H | Short_Literal 0x2 007d e404 | | Load 0x2,0x4 007e 01d6 | | Execute Vector,Field_Write 007f e402 | | Load 0x2,0x2 0080 0322 | " | Declare_Variable Record 0081 4850 |HP | Short_Literal 0x50 0082 00d9 | | Load_Top At_Offset_1 0083 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0084 4802 |H | Short_Literal 0x2 0085 00d9 | | Load_Top At_Offset_1 0086 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0087 4803 |H | Short_Literal 0x3 0088 00d9 | | Load_Top At_Offset_1 0089 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 008a 4803 |H | Short_Literal 0x3 008b e404 | | Load 0x2,0x4 008c 01d6 | | Execute Vector,Field_Write 008d e402 | | Load 0x2,0x2 008e 0322 | " | Declare_Variable Record 008f 4847 |HG | Short_Literal 0x47 0090 00d9 | | Load_Top At_Offset_1 0091 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0092 4803 |H | Short_Literal 0x3 0093 00d9 | | Load_Top At_Offset_1 0094 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0095 4801 |H | Short_Literal 0x1 0096 00d9 | | Load_Top At_Offset_1 0097 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0098 4804 |H | Short_Literal 0x4 0099 e404 | | Load 0x2,0x4 009a 01d6 | | Execute Vector,Field_Write 009b e402 | | Load 0x2,0x2 009c 0322 | " | Declare_Variable Record 009d 4855 |HU | Short_Literal 0x55 009e 00d9 | | Load_Top At_Offset_1 009f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a0 4803 |H | Short_Literal 0x3 00a1 00d9 | | Load_Top At_Offset_1 00a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a3 4802 |H | Short_Literal 0x2 00a4 00d9 | | Load_Top At_Offset_1 00a5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00a6 4805 |H | Short_Literal 0x5 00a7 e404 | | Load 0x2,0x4 00a8 01d6 | | Execute Vector,Field_Write 00a9 e402 | | Load 0x2,0x2 00aa 0322 | " | Declare_Variable Record 00ab 484c |HL | Short_Literal 0x4c 00ac 00d9 | | Load_Top At_Offset_1 00ad 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ae 4803 |H | Short_Literal 0x3 00af 00d9 | | Load_Top At_Offset_1 00b0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00b1 4803 |H | Short_Literal 0x3 00b2 00d9 | | Load_Top At_Offset_1 00b3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00b4 4806 |H | Short_Literal 0x6 00b5 e404 | | Load 0x2,0x4 00b6 01d6 | | Execute Vector,Field_Write 00b7 e402 | | Load 0x2,0x2 00b8 0322 | " | Declare_Variable Record 00b9 484d |HM | Short_Literal 0x4d 00ba 00d9 | | Load_Top At_Offset_1 00bb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00bc 4807 |H | Short_Literal 0x7 00bd 00d9 | | Load_Top At_Offset_1 00be 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00bf 4801 |H | Short_Literal 0x1 00c0 00d9 | | Load_Top At_Offset_1 00c1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00c2 4807 |H | Short_Literal 0x7 00c3 e404 | | Load 0x2,0x4 00c4 01d6 | | Execute Vector,Field_Write 00c5 e402 | | Load 0x2,0x2 00c6 0322 | " | Declare_Variable Record 00c7 484c |HL | Short_Literal 0x4c 00c8 00d9 | | Load_Top At_Offset_1 00c9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ca 4808 |H | Short_Literal 0x8 00cb 00d9 | | Load_Top At_Offset_1 00cc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00cd 4801 |H | Short_Literal 0x1 00ce 00d9 | | Load_Top At_Offset_1 00cf 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00d0 4808 |H | Short_Literal 0x8 00d1 e404 | | Load 0x2,0x4 00d2 01d6 | | Execute Vector,Field_Write 00d3 e402 | | Load 0x2,0x2 00d4 0322 | " | Declare_Variable Record 00d5 4854 |HT | Short_Literal 0x54 00d6 00d9 | | Load_Top At_Offset_1 00d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d8 4805 |H | Short_Literal 0x5 00d9 00d9 | | Load_Top At_Offset_1 00da 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00db 4801 |H | Short_Literal 0x1 00dc 00d9 | | Load_Top At_Offset_1 00dd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00de 4809 |H | Short_Literal 0x9 00df e404 | | Load 0x2,0x4 00e0 01d6 | | Execute Vector,Field_Write 00e1 e402 | | Load 0x2,0x2 00e2 0322 | " | Declare_Variable Record 00e3 4856 |HV | Short_Literal 0x56 00e4 00d9 | | Load_Top At_Offset_1 00e5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e6 4805 |H | Short_Literal 0x5 00e7 00d9 | | Load_Top At_Offset_1 00e8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e9 4802 |H | Short_Literal 0x2 00ea 00d9 | | Load_Top At_Offset_1 00eb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00ec 480a |H | Short_Literal 0xa 00ed e404 | | Load 0x2,0x4 00ee 01d6 | | Execute Vector,Field_Write 00ef e402 | | Load 0x2,0x2 00f0 0322 | " | Declare_Variable Record 00f1 4855 |HU | Short_Literal 0x55 00f2 00d9 | | Load_Top At_Offset_1 00f3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00f4 4806 |H | Short_Literal 0x6 00f5 00d9 | | Load_Top At_Offset_1 00f6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00f7 4801 |H | Short_Literal 0x1 00f8 00d9 | | Load_Top At_Offset_1 00f9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00fa 480b |H | Short_Literal 0xb 00fb e404 | | Load 0x2,0x4 00fc 01d6 | | Execute Vector,Field_Write 00fd e402 | | Load 0x2,0x2 00fe 0322 | " | Declare_Variable Record 00ff 484c |HL | Short_Literal 0x4c 0100 00d9 | | Load_Top At_Offset_1 0101 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0102 4804 |H | Short_Literal 0x4 0103 00d9 | | Load_Top At_Offset_1 0104 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0105 4801 |H | Short_Literal 0x1 0106 00d9 | | Load_Top At_Offset_1 0107 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0108 480c |H | Short_Literal 0xc 0109 e404 | | Load 0x2,0x4 010a 01d6 | | Execute Vector,Field_Write 010b e402 | | Load 0x2,0x2 010c 0322 | " | Declare_Variable Record 010d 4852 |HR | Short_Literal 0x52 010e 00d9 | | Load_Top At_Offset_1 010f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0110 4809 |H | Short_Literal 0x9 0111 00d9 | | Load_Top At_Offset_1 0112 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0113 4801 |H | Short_Literal 0x1 0114 00d9 | | Load_Top At_Offset_1 0115 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0116 480d |H | Short_Literal 0xd 0117 e404 | | Load 0x2,0x4 0118 01d6 | | Execute Vector,Field_Write 0119 e402 | | Load 0x2,0x2 011a 0322 | " | Declare_Variable Record 011b 484c |HL | Short_Literal 0x4c 011c 00d9 | | Load_Top At_Offset_1 011d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 011e 480a |H | Short_Literal 0xa 011f 00d9 | | Load_Top At_Offset_1 0120 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0121 4801 |H | Short_Literal 0x1 0122 00d9 | | Load_Top At_Offset_1 0123 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0124 480e |H | Short_Literal 0xe 0125 e404 | | Load 0x2,0x4 0126 01d6 | | Execute Vector,Field_Write 0127 e402 | | Load 0x2,0x2 0128 0322 | " | Declare_Variable Record 0129 484e |HN | Short_Literal 0x4e 012a 00d9 | | Load_Top At_Offset_1 012b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 012c 480b |H | Short_Literal 0xb 012d 00d9 | | Load_Top At_Offset_1 012e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 012f 4801 |H | Short_Literal 0x1 0130 00d9 | | Load_Top At_Offset_1 0131 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0132 480f |H | Short_Literal 0xf 0133 e404 | | Load 0x2,0x4 0134 01d6 | | Execute Vector,Field_Write 0135 e402 | | Load 0x2,0x2 0136 0322 | " | Declare_Variable Record 0137 4853 |HS | Short_Literal 0x53 0138 00d9 | | Load_Top At_Offset_1 0139 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 013a 4806 |H | Short_Literal 0x6 013b 00d9 | | Load_Top At_Offset_1 013c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 013d 4802 |H | Short_Literal 0x2 013e 00d9 | | Load_Top At_Offset_1 013f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0140 4813 |H | Short_Literal 0x13 0141 e404 | | Load 0x2,0x4 0142 01d6 | | Execute Vector,Field_Write 0143 e402 | | Load 0x2,0x2 0144 0322 | " | Declare_Variable Record 0145 4857 |HW | Short_Literal 0x57 0146 00d9 | | Load_Top At_Offset_1 0147 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0148 4806 |H | Short_Literal 0x6 0149 00d9 | | Load_Top At_Offset_1 014a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 014b 4803 |H | Short_Literal 0x3 014c 00d9 | | Load_Top At_Offset_1 014d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 014e 4814 |H | Short_Literal 0x14 014f e404 | | Load 0x2,0x4 0150 01d6 | | Execute Vector,Field_Write 0151 e402 | | Load 0x2,0x2 0152 0322 | " | Declare_Variable Record 0153 4854 |HT | Short_Literal 0x54 0154 00d9 | | Load_Top At_Offset_1 0155 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0156 480c |H | Short_Literal 0xc 0157 00d9 | | Load_Top At_Offset_1 0158 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0159 4801 |H | Short_Literal 0x1 015a 00d9 | | Load_Top At_Offset_1 015b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 015c 4810 |H | Short_Literal 0x10 015d e404 | | Load 0x2,0x4 015e 01d6 | | Execute Vector,Field_Write 015f e402 | | Load 0x2,0x2 0160 0322 | " | Declare_Variable Record 0161 4855 |HU | Short_Literal 0x55 0162 00d9 | | Load_Top At_Offset_1 0163 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0164 480c |H | Short_Literal 0xc 0165 00d9 | | Load_Top At_Offset_1 0166 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0167 4802 |H | Short_Literal 0x2 0168 00d9 | | Load_Top At_Offset_1 0169 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 016a 4811 |H | Short_Literal 0x11 016b e404 | | Load 0x2,0x4 016c 01d6 | | Execute Vector,Field_Write 016d e402 | | Load 0x2,0x2 016e 0322 | " | Declare_Variable Record 016f 485a |HZ | Short_Literal 0x5a 0170 00d9 | | Load_Top At_Offset_1 0171 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0172 480c |H | Short_Literal 0xc 0173 00d9 | | Load_Top At_Offset_1 0174 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0175 4803 |H | Short_Literal 0x3 0176 00d9 | | Load_Top At_Offset_1 0177 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0178 4812 |H | Short_Literal 0x12 0179 e404 | | Load 0x2,0x4 017a 01d6 | | Execute Vector,Field_Write 017b 00cf | | Action Mark_Auxiliary 017c 4814 |H | Short_Literal 0x14 017d 4801 |H | Short_Literal 0x1 017e 0007 | | Action Break_Optional 017f e008 | | Load 0x0,0x8 0180 0337 | 7 | Declare_Variable Array 0181 00d9 | | Load_Top At_Offset_1 0182 e404 | | Load 0x2,0x4 0183 01d5 | | Execute Vector,Field_Reference 0184 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0185 8009 | | Call 0x0,0x9 0186 4800 |H | Short_Literal 0x0 0187 00da | | Load_Top At_Offset_2 0188 01d6 | | Execute Vector,Field_Write 0189 00d9 | | Load_Top At_Offset_1 018a e404 | | Load 0x2,0x4 018b 01d5 | | Execute Vector,Field_Reference 018c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018d 0aff | | Execute_Immediate Plus,-0x1 018e 00d8 | | Load_Top At_Offset_0 018f 00e2 | | Load_Encached Integer_Cache 0190 0260 | ` | Execute Discrete,In_Type 0191 7001 |p | Jump_Nonzero 0x193 0192 0801 | | Execute_Immediate Raise,0x1 0193 800a | | Call 0x0,0xa 0194 e00b | | Load 0x0,0xb 0195 800c | | Call 0x0,0xc 0196 4801 |H | Short_Literal 0x1 0197 00da | | Load_Top At_Offset_2 0198 01d6 | | Execute Vector,Field_Write 0199 00d9 | | Load_Top At_Offset_1 019a e404 | | Load 0x2,0x4 019b 01d5 | | Execute Vector,Field_Reference 019c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 019d 0aff | | Execute_Immediate Plus,-0x1 019e 00d8 | | Load_Top At_Offset_0 019f 00e2 | | Load_Encached Integer_Cache 01a0 0260 | ` | Execute Discrete,In_Type 01a1 7001 |p | Jump_Nonzero 0x1a3 01a2 0801 | | Execute_Immediate Raise,0x1 01a3 800a | | Call 0x0,0xa 01a4 e00d | | Load 0x0,0xd 01a5 800c | | Call 0x0,0xc 01a6 4802 |H | Short_Literal 0x2 01a7 00da | | Load_Top At_Offset_2 01a8 01d6 | | Execute Vector,Field_Write 01a9 e008 | | Load 0x0,0x8 01aa 01c3 | | Execute Vector,Check_In_Type 01ab 800e | | Call 0x0,0xe 01ac 00d8 | | Load_Top At_Offset_0 01ad e404 | | Load 0x2,0x4 01ae 01d5 | | Execute Vector,Field_Reference 01af 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b0 e00d | | Load 0x0,0xd 01b1 800f | | Call 0x0,0xf 01b2 00da | | Load_Top At_Offset_2 01b3 e404 | | Load 0x2,0x4 01b4 01d5 | | Execute Vector,Field_Reference 01b5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01b6 0273 | s | Execute Discrete,Plus 01b7 0aff | | Execute_Immediate Plus,-0x1 01b8 00d8 | | Load_Top At_Offset_0 01b9 00e2 | | Load_Encached Integer_Cache 01ba 0260 | ` | Execute Discrete,In_Type 01bb 7001 |p | Jump_Nonzero 0x1bd 01bc 0801 | | Execute_Immediate Raise,0x1 01bd e00b | | Load 0x0,0xb 01be 800f | | Call 0x0,0xf 01bf 00db | | Load_Top At_Offset_3 01c0 e404 | | Load 0x2,0x4 01c1 01d5 | | Execute Vector,Field_Reference 01c2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c3 0273 | s | Execute Discrete,Plus 01c4 0aff | | Execute_Immediate Plus,-0x1 01c5 00d8 | | Load_Top At_Offset_0 01c6 00e2 | | Load_Encached Integer_Cache 01c7 0260 | ` | Execute Discrete,In_Type 01c8 7001 |p | Jump_Nonzero 0x1ca 01c9 0801 | | Execute_Immediate Raise,0x1 01ca 8010 | | Call 0x0,0x10 01cb 00c8 | | Action Pop_Auxiliary_Range 01cc 3fb2 |? | Loop_Increasing 0x17f 01cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ce 0000 0000 | | .XXX[0x2] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 e011 | | Load 0x0,0x11 01d4 0337 | 7 | Declare_Variable Array 01d5 e012 | | Load 0x0,0x12 01d6 4800 |H | Short_Literal 0x0 01d7 00da | | Load_Top At_Offset_2 01d8 01d6 | | Execute Vector,Field_Write 01d9 e00b | | Load 0x0,0xb 01da 4801 |H | Short_Literal 0x1 01db 00da | | Load_Top At_Offset_2 01dc 01d6 | | Execute Vector,Field_Write 01dd e013 | | Load 0x0,0x13 01de 4802 |H | Short_Literal 0x2 01df 00da | | Load_Top At_Offset_2 01e0 01d6 | | Execute Vector,Field_Write 01e1 e011 | | Load 0x0,0x11 01e2 01c3 | | Execute Vector,Check_In_Type 01e3 8014 | | Call 0x0,0x14 01e4 e011 | | Load 0x0,0x11 01e5 0337 | 7 | Declare_Variable Array 01e6 e015 | | Load 0x0,0x15 01e7 4800 |H | Short_Literal 0x0 01e8 00da | | Load_Top At_Offset_2 01e9 01d6 | | Execute Vector,Field_Write 01ea e00b | | Load 0x0,0xb 01eb 4801 |H | Short_Literal 0x1 01ec 00da | | Load_Top At_Offset_2 01ed 01d6 | | Execute Vector,Field_Write 01ee e013 | | Load 0x0,0x13 01ef 4802 |H | Short_Literal 0x2 01f0 00da | | Load_Top At_Offset_2 01f1 01d6 | | Execute Vector,Field_Write 01f2 e011 | | Load 0x0,0x11 01f3 01c3 | | Execute Vector,Check_In_Type 01f4 8014 | | Call 0x0,0x14 01f5 e011 | | Load 0x0,0x11 01f6 0337 | 7 | Declare_Variable Array 01f7 e016 | | Load 0x0,0x16 01f8 4800 |H | Short_Literal 0x0 01f9 00da | | Load_Top At_Offset_2 01fa 01d6 | | Execute Vector,Field_Write 01fb e00b | | Load 0x0,0xb 01fc 4801 |H | Short_Literal 0x1 01fd 00da | | Load_Top At_Offset_2 01fe 01d6 | | Execute Vector,Field_Write 01ff e013 | | Load 0x0,0x13 0200 4802 |H | Short_Literal 0x2 0201 00da | | Load_Top At_Offset_2 0202 01d6 | | Execute Vector,Field_Write 0203 e011 | | Load 0x0,0x11 0204 01c3 | | Execute Vector,Check_In_Type 0205 8014 | | Call 0x0,0x14 0206 e011 | | Load 0x0,0x11 0207 0337 | 7 | Declare_Variable Array 0208 e017 | | Load 0x0,0x17 0209 4800 |H | Short_Literal 0x0 020a 00da | | Load_Top At_Offset_2 020b 01d6 | | Execute Vector,Field_Write 020c e00b | | Load 0x0,0xb 020d 4801 |H | Short_Literal 0x1 020e 00da | | Load_Top At_Offset_2 020f 01d6 | | Execute Vector,Field_Write 0210 e013 | | Load 0x0,0x13 0211 4802 |H | Short_Literal 0x2 0212 00da | | Load_Top At_Offset_2 0213 01d6 | | Execute Vector,Field_Write 0214 e011 | | Load 0x0,0x11 0215 01c3 | | Execute Vector,Check_In_Type 0216 8014 | | Call 0x0,0x14 0217 e011 | | Load 0x0,0x11 0218 0337 | 7 | Declare_Variable Array 0219 e018 | | Load 0x0,0x18 021a 4800 |H | Short_Literal 0x0 021b 00da | | Load_Top At_Offset_2 021c 01d6 | | Execute Vector,Field_Write 021d e00b | | Load 0x0,0xb 021e 4801 |H | Short_Literal 0x1 021f 00da | | Load_Top At_Offset_2 0220 01d6 | | Execute Vector,Field_Write 0221 e013 | | Load 0x0,0x13 0222 4802 |H | Short_Literal 0x2 0223 00da | | Load_Top At_Offset_2 0224 01d6 | | Execute Vector,Field_Write 0225 e011 | | Load 0x0,0x11 0226 01c3 | | Execute Vector,Check_In_Type 0227 8014 | | Call 0x0,0x14 0228 e011 | | Load 0x0,0x11 0229 0337 | 7 | Declare_Variable Array 022a e019 | | Load 0x0,0x19 022b 4800 |H | Short_Literal 0x0 022c 00da | | Load_Top At_Offset_2 022d 01d6 | | Execute Vector,Field_Write 022e e00b | | Load 0x0,0xb 022f 4801 |H | Short_Literal 0x1 0230 00da | | Load_Top At_Offset_2 0231 01d6 | | Execute Vector,Field_Write 0232 e013 | | Load 0x0,0x13 0233 4802 |H | Short_Literal 0x2 0234 00da | | Load_Top At_Offset_2 0235 01d6 | | Execute Vector,Field_Write 0236 e011 | | Load 0x0,0x11 0237 01c3 | | Execute Vector,Check_In_Type 0238 8014 | | Call 0x0,0x14 0239 e011 | | Load 0x0,0x11 023a 0337 | 7 | Declare_Variable Array 023b e01a | | Load 0x0,0x1a 023c 4800 |H | Short_Literal 0x0 023d 00da | | Load_Top At_Offset_2 023e 01d6 | | Execute Vector,Field_Write 023f e00b | | Load 0x0,0xb 0240 4801 |H | Short_Literal 0x1 0241 00da | | Load_Top At_Offset_2 0242 01d6 | | Execute Vector,Field_Write 0243 e013 | | Load 0x0,0x13 0244 4802 |H | Short_Literal 0x2 0245 00da | | Load_Top At_Offset_2 0246 01d6 | | Execute Vector,Field_Write 0247 e011 | | Load 0x0,0x11 0248 01c3 | | Execute Vector,Check_In_Type 0249 8014 | | Call 0x0,0x14 024a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024b 0000 0000 | | .BLANK 0000[0x5] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 00cf | | Action Mark_Auxiliary 0254 e01b | | Load 0x0,0x1b 0255 800f | | Call 0x0,0xf 0256 e00b | | Load 0x0,0xb 0257 800f | | Call 0x0,0xf 0258 0263 | c | Execute Discrete,Above_Bound 0259 700c |p | Jump_Nonzero 0x266 025a e01c | | Load 0x0,0x1c 025b 0337 | 7 | Declare_Variable Array 025c 00d9 | | Load_Top At_Offset_1 025d 800a | | Call 0x0,0xa 025e 4800 |H | Short_Literal 0x0 025f 00da | | Load_Top At_Offset_2 0260 01d6 | | Execute Vector,Field_Write 0261 e01c | | Load 0x0,0x1c 0262 01c3 | | Execute Vector,Check_In_Type 0263 801d | | Call 0x0,0x1d 0264 00c8 | | Action Pop_Auxiliary_Range 0265 3ff4 |? | Loop_Increasing 0x25a 0266 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0267 0000 | | .XXX[0x1] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b e01e | | Load 0x0,0x1e 026c 0337 | 7 | Declare_Variable Array 026d e01f | | Load 0x0,0x1f 026e 4800 |H | Short_Literal 0x0 026f 00da | | Load_Top At_Offset_2 0270 01d6 | | Execute Vector,Field_Write 0271 e012 | | Load 0x0,0x12 0272 4801 |H | Short_Literal 0x1 0273 00da | | Load_Top At_Offset_2 0274 01d6 | | Execute Vector,Field_Write 0275 e020 | | Load 0x0,0x20 0276 4802 |H | Short_Literal 0x2 0277 00da | | Load_Top At_Offset_2 0278 01d6 | | Execute Vector,Field_Write 0279 e013 | | Load 0x0,0x13 027a 4803 |H | Short_Literal 0x3 027b 00da | | Load_Top At_Offset_2 027c 01d6 | | Execute Vector,Field_Write 027d e01e | | Load 0x0,0x1e 027e 01c3 | | Execute Vector,Check_In_Type 027f 8021 | ! | Call 0x0,0x21 0280 e01e | | Load 0x0,0x1e 0281 0337 | 7 | Declare_Variable Array 0282 e01f | | Load 0x0,0x1f 0283 4800 |H | Short_Literal 0x0 0284 00da | | Load_Top At_Offset_2 0285 01d6 | | Execute Vector,Field_Write 0286 e012 | | Load 0x0,0x12 0287 4801 |H | Short_Literal 0x1 0288 00da | | Load_Top At_Offset_2 0289 01d6 | | Execute Vector,Field_Write 028a e022 | " | Load 0x0,0x22 028b 4802 |H | Short_Literal 0x2 028c 00da | | Load_Top At_Offset_2 028d 01d6 | | Execute Vector,Field_Write 028e e01b | | Load 0x0,0x1b 028f 4803 |H | Short_Literal 0x3 0290 00da | | Load_Top At_Offset_2 0291 01d6 | | Execute Vector,Field_Write 0292 e01e | | Load 0x0,0x1e 0293 01c3 | | Execute Vector,Check_In_Type 0294 8021 | ! | Call 0x0,0x21 0295 e023 | # | Load 0x0,0x23 0296 0337 | 7 | Declare_Variable Array 0297 e012 | | Load 0x0,0x12 0298 4800 |H | Short_Literal 0x0 0299 00da | | Load_Top At_Offset_2 029a 01d6 | | Execute Vector,Field_Write 029b e023 | # | Load 0x0,0x23 029c 01c3 | | Execute Vector,Check_In_Type 029d 8024 | $ | Call 0x0,0x24 029e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 029f 0000 | | .XXX[0x1] 02a0 ; -------------------------------------------------------------------------------------- 02a0 ; SUBPROGRAM 02a0 ; -------------------------------------------------------------------------------------- 02a0 02a3 | | .CONST 0x02a3 ; Address of begin 02a1 0004 | | .CONST 0x0004 ; Address of exception handler 02a2 0001 | | .CONST 0x0001 ; Number of locals 02a3 BODY_02a0: 02a3 INIT_02a0: 02a3 e01e | | Load 0x0,0x1e 02a4 0337 | 7 | Declare_Variable Array 02a5 e01f | | Load 0x0,0x1f 02a6 4800 |H | Short_Literal 0x0 02a7 00da | | Load_Top At_Offset_2 02a8 01d6 | | Execute Vector,Field_Write 02a9 e015 | | Load 0x0,0x15 02aa 4801 |H | Short_Literal 0x1 02ab 00da | | Load_Top At_Offset_2 02ac 01d6 | | Execute Vector,Field_Write 02ad e020 | | Load 0x0,0x20 02ae 4802 |H | Short_Literal 0x2 02af 00da | | Load_Top At_Offset_2 02b0 01d6 | | Execute Vector,Field_Write 02b1 e013 | | Load 0x0,0x13 02b2 4803 |H | Short_Literal 0x3 02b3 00da | | Load_Top At_Offset_2 02b4 01d6 | | Execute Vector,Field_Write 02b5 e01e | | Load 0x0,0x1e 02b6 01c3 | | Execute Vector,Check_In_Type 02b7 8021 | ! | Call 0x0,0x21 02b8 e01e | | Load 0x0,0x1e 02b9 0337 | 7 | Declare_Variable Array 02ba e01f | | Load 0x0,0x1f 02bb 4800 |H | Short_Literal 0x0 02bc 00da | | Load_Top At_Offset_2 02bd 01d6 | | Execute Vector,Field_Write 02be e015 | | Load 0x0,0x15 02bf 4801 |H | Short_Literal 0x1 02c0 00da | | Load_Top At_Offset_2 02c1 01d6 | | Execute Vector,Field_Write 02c2 e025 | % | Load 0x0,0x25 02c3 4802 |H | Short_Literal 0x2 02c4 00da | | Load_Top At_Offset_2 02c5 01d6 | | Execute Vector,Field_Write 02c6 e01b | | Load 0x0,0x1b 02c7 4803 |H | Short_Literal 0x3 02c8 00da | | Load_Top At_Offset_2 02c9 01d6 | | Execute Vector,Field_Write 02ca e01e | | Load 0x0,0x1e 02cb 01c3 | | Execute Vector,Check_In_Type 02cc 8021 | ! | Call 0x0,0x21 02cd e023 | # | Load 0x0,0x23 02ce 0337 | 7 | Declare_Variable Array 02cf e015 | | Load 0x0,0x15 02d0 4800 |H | Short_Literal 0x0 02d1 00da | | Load_Top At_Offset_2 02d2 01d6 | | Execute Vector,Field_Write 02d3 e023 | # | Load 0x0,0x23 02d4 01c3 | | Execute Vector,Check_In_Type 02d5 8024 | $ | Call 0x0,0x24 02d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02d7 0000 | | .XXX[0x1] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug Table 02d8 ; -------------------------------------------------------------------------------------- 02d8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x3244,0x0000,0x0001,0x0009 02de 000b 0302 | | .DBG4T 0x000b,0x0302,0x8000,0x0000 02e2 001f 0307 | | .DBG4T 0x001f,0x0307,0x8000,0x0000 02e6 002b 030b | + | .DBG4T 0x002b,0x030b,0x0001,0x0000 02ea 003b 030e | ; | .DBG4T 0x003b,0x030e,0x0001,0x0000 02ee 0063 031d | c | .DBG4T 0x0063,0x031d,0x0001,0x0000 02f2 01d3 0336 | 6| .DBG4T 0x01d3,0x0336,0x0001,0x0000 02f6 0253 033f | S ?| .DBG4T 0x0253,0x033f,0x0001,0x0000 02fa 026b 0343 | k C| .DBG4T 0x026b,0x0343,0x0001,0x0000 02fe 02a3 0348 | H| .DBG4T 0x02a3,0x0348,0x0001,0x0000 0302 ; -------------------------------------------------------------------------------------- 0302 ; Debug chain 0302 ; -------------------------------------------------------------------------------------- 0302 0003 0000 | | .DBGLEN 0x0003,0x0000 0304 000b 001a | | .DBGLNO 0x000b,0x001a,0x001c 0307 ; -------------------------------------------------------------------------------------- 0307 ; Debug chain 0307 ; -------------------------------------------------------------------------------------- 0307 0002 0000 | | .DBGLEN 0x0002,0x0000 0309 001f 0021 | !| .DBGLNO 0x001f,0x0021 030b ; -------------------------------------------------------------------------------------- 030b ; Debug chain 030b ; -------------------------------------------------------------------------------------- 030b 0000 0001 | | .DBGLEN 0x0000,0x0001 030d 002b | + | .DBGLNO 0x002b 030e ; -------------------------------------------------------------------------------------- 030e ; Debug chain 030e ; -------------------------------------------------------------------------------------- 030e 0008 0005 | | .DBGLEN 0x0008,0x0005 0310 003b 003c | ; <| .DBGLNO 0x003b,0x003c,0x0042,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0055,0x0056,0x0057,0x0058 031d ; -------------------------------------------------------------------------------------- 031d ; Debug chain 031d ; -------------------------------------------------------------------------------------- 031d 0000 0017 | | .DBGLEN 0x0000,0x0017 031f 0063 0071 | c q| .DBGLNO 0x0063,0x0071,0x007f,0x008d,0x009b,0x00a9,0x00b7,0x00c5,0x00d3,0x00e1,0x00ef,0x00fd,0x010b,0x0119,0x0127,0x0135,0x0143,0x0151,0x015f,0x016d,0x017c,0x017f,0x01ac 0336 ; -------------------------------------------------------------------------------------- 0336 ; Debug chain 0336 ; -------------------------------------------------------------------------------------- 0336 0000 0007 | | .DBGLEN 0x0000,0x0007 0338 01d3 01e4 | | .DBGLNO 0x01d3,0x01e4,0x01f5,0x0206,0x0217,0x0228,0x0239 033f ; -------------------------------------------------------------------------------------- 033f ; Debug chain 033f ; -------------------------------------------------------------------------------------- 033f 0000 0002 | | .DBGLEN 0x0000,0x0002 0341 0254 025a | T Z| .DBGLNO 0x0254,0x025a 0343 ; -------------------------------------------------------------------------------------- 0343 ; Debug chain 0343 ; -------------------------------------------------------------------------------------- 0343 0000 0003 | | .DBGLEN 0x0000,0x0003 0345 026b 0280 | k | .DBGLNO 0x026b,0x0280,0x0295 0348 ; -------------------------------------------------------------------------------------- 0348 ; Debug chain 0348 ; -------------------------------------------------------------------------------------- 0348 0000 0003 | | .DBGLEN 0x0000,0x0003 034a 02a3 02b8 | | .DBGLNO 0x02a3,0x02b8,0x02cd 034d 0000 0000 | | .BLANK 0000[0xb3]