|
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_586cec
└─⟦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 0310 | | .CONST 0x0310 ; 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 4819 |H | Short_Literal 0x19 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 021b | | Declare_Subprogram INIT_0218,For_Call 004e 029f 029b | | Declare_Subprogram INIT_0298,For_Call 0050 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call 0052 029f 02e3 | | Declare_Subprogram INIT_02e0,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 484c |HL | Short_Literal 0x4c 0154 00d9 | | Load_Top At_Offset_1 0155 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0156 4805 |H | Short_Literal 0x5 0157 00d9 | | Load_Top At_Offset_1 0158 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0159 4803 |H | Short_Literal 0x3 015a 00d9 | | Load_Top At_Offset_1 015b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 015c 4815 |H | Short_Literal 0x15 015d e404 | | Load 0x2,0x4 015e 01d6 | | Execute Vector,Field_Write 015f e402 | | Load 0x2,0x2 0160 0322 | " | Declare_Variable Record 0161 4847 |HG | Short_Literal 0x47 0162 00d9 | | Load_Top At_Offset_1 0163 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0164 4805 |H | Short_Literal 0x5 0165 00d9 | | Load_Top At_Offset_1 0166 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0167 4804 |H | Short_Literal 0x4 0168 00d9 | | Load_Top At_Offset_1 0169 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 016a 4816 |H | Short_Literal 0x16 016b e404 | | Load 0x2,0x4 016c 01d6 | | Execute Vector,Field_Write 016d e402 | | Load 0x2,0x2 016e 0322 | " | Declare_Variable Record 016f 4842 |HB | Short_Literal 0x42 0170 00d9 | | Load_Top At_Offset_1 0171 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0172 4805 |H | Short_Literal 0x5 0173 00d9 | | Load_Top At_Offset_1 0174 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0175 4805 |H | Short_Literal 0x5 0176 00d9 | | Load_Top At_Offset_1 0177 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0178 4817 |H | Short_Literal 0x17 0179 e404 | | Load 0x2,0x4 017a 01d6 | | Execute Vector,Field_Write 017b e402 | | Load 0x2,0x2 017c 0322 | " | Declare_Variable Record 017d 4852 |HR | Short_Literal 0x52 017e 00d9 | | Load_Top At_Offset_1 017f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0180 4805 |H | Short_Literal 0x5 0181 00d9 | | Load_Top At_Offset_1 0182 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0183 4806 |H | Short_Literal 0x6 0184 00d9 | | Load_Top At_Offset_1 0185 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0186 4818 |H | Short_Literal 0x18 0187 e404 | | Load 0x2,0x4 0188 01d6 | | Execute Vector,Field_Write 0189 e402 | | Load 0x2,0x2 018a 0322 | " | Declare_Variable Record 018b 4848 |HH | Short_Literal 0x48 018c 00d9 | | Load_Top At_Offset_1 018d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 018e 4809 |H | Short_Literal 0x9 018f 00d9 | | Load_Top At_Offset_1 0190 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0191 4802 |H | Short_Literal 0x2 0192 00d9 | | Load_Top At_Offset_1 0193 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0194 4819 |H | Short_Literal 0x19 0195 e404 | | Load 0x2,0x4 0196 01d6 | | Execute Vector,Field_Write 0197 e402 | | Load 0x2,0x2 0198 0322 | " | Declare_Variable Record 0199 4854 |HT | Short_Literal 0x54 019a 00d9 | | Load_Top At_Offset_1 019b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 019c 480c |H | Short_Literal 0xc 019d 00d9 | | Load_Top At_Offset_1 019e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 019f 4801 |H | Short_Literal 0x1 01a0 00d9 | | Load_Top At_Offset_1 01a1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01a2 4810 |H | Short_Literal 0x10 01a3 e404 | | Load 0x2,0x4 01a4 01d6 | | Execute Vector,Field_Write 01a5 e402 | | Load 0x2,0x2 01a6 0322 | " | Declare_Variable Record 01a7 4855 |HU | Short_Literal 0x55 01a8 00d9 | | Load_Top At_Offset_1 01a9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01aa 480c |H | Short_Literal 0xc 01ab 00d9 | | Load_Top At_Offset_1 01ac 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01ad 4802 |H | Short_Literal 0x2 01ae 00d9 | | Load_Top At_Offset_1 01af 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01b0 4811 |H | Short_Literal 0x11 01b1 e404 | | Load 0x2,0x4 01b2 01d6 | | Execute Vector,Field_Write 01b3 e402 | | Load 0x2,0x2 01b4 0322 | " | Declare_Variable Record 01b5 485a |HZ | Short_Literal 0x5a 01b6 00d9 | | Load_Top At_Offset_1 01b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01b8 480c |H | Short_Literal 0xc 01b9 00d9 | | Load_Top At_Offset_1 01ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01bb 4803 |H | Short_Literal 0x3 01bc 00d9 | | Load_Top At_Offset_1 01bd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01be 4812 |H | Short_Literal 0x12 01bf e404 | | Load 0x2,0x4 01c0 01d6 | | Execute Vector,Field_Write 01c1 00cf | | Action Mark_Auxiliary 01c2 4819 |H | Short_Literal 0x19 01c3 4801 |H | Short_Literal 0x1 01c4 0007 | | Action Break_Optional 01c5 e008 | | Load 0x0,0x8 01c6 0337 | 7 | Declare_Variable Array 01c7 00d9 | | Load_Top At_Offset_1 01c8 e404 | | Load 0x2,0x4 01c9 01d5 | | Execute Vector,Field_Reference 01ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01cb 8009 | | Call 0x0,0x9 01cc 4800 |H | Short_Literal 0x0 01cd 00da | | Load_Top At_Offset_2 01ce 01d6 | | Execute Vector,Field_Write 01cf 00d9 | | Load_Top At_Offset_1 01d0 e404 | | Load 0x2,0x4 01d1 01d5 | | Execute Vector,Field_Reference 01d2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01d3 0aff | | Execute_Immediate Plus,-0x1 01d4 00d8 | | Load_Top At_Offset_0 01d5 00e2 | | Load_Encached Integer_Cache 01d6 0260 | ` | Execute Discrete,In_Type 01d7 7001 |p | Jump_Nonzero 0x1d9 01d8 0801 | | Execute_Immediate Raise,0x1 01d9 800a | | Call 0x0,0xa 01da e00b | | Load 0x0,0xb 01db 800c | | Call 0x0,0xc 01dc 4801 |H | Short_Literal 0x1 01dd 00da | | Load_Top At_Offset_2 01de 01d6 | | Execute Vector,Field_Write 01df 00d9 | | Load_Top At_Offset_1 01e0 e404 | | Load 0x2,0x4 01e1 01d5 | | Execute Vector,Field_Reference 01e2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01e3 0aff | | Execute_Immediate Plus,-0x1 01e4 00d8 | | Load_Top At_Offset_0 01e5 00e2 | | Load_Encached Integer_Cache 01e6 0260 | ` | Execute Discrete,In_Type 01e7 7001 |p | Jump_Nonzero 0x1e9 01e8 0801 | | Execute_Immediate Raise,0x1 01e9 800a | | Call 0x0,0xa 01ea e00d | | Load 0x0,0xd 01eb 800c | | Call 0x0,0xc 01ec 4802 |H | Short_Literal 0x2 01ed 00da | | Load_Top At_Offset_2 01ee 01d6 | | Execute Vector,Field_Write 01ef e008 | | Load 0x0,0x8 01f0 01c3 | | Execute Vector,Check_In_Type 01f1 800e | | Call 0x0,0xe 01f2 00d8 | | Load_Top At_Offset_0 01f3 e404 | | Load 0x2,0x4 01f4 01d5 | | Execute Vector,Field_Reference 01f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f6 e00d | | Load 0x0,0xd 01f7 800f | | Call 0x0,0xf 01f8 00da | | Load_Top At_Offset_2 01f9 e404 | | Load 0x2,0x4 01fa 01d5 | | Execute Vector,Field_Reference 01fb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01fc 0273 | s | Execute Discrete,Plus 01fd 0aff | | Execute_Immediate Plus,-0x1 01fe 00d8 | | Load_Top At_Offset_0 01ff 00e2 | | Load_Encached Integer_Cache 0200 0260 | ` | Execute Discrete,In_Type 0201 7001 |p | Jump_Nonzero 0x203 0202 0801 | | Execute_Immediate Raise,0x1 0203 e00b | | Load 0x0,0xb 0204 800f | | Call 0x0,0xf 0205 00db | | Load_Top At_Offset_3 0206 e404 | | Load 0x2,0x4 0207 01d5 | | Execute Vector,Field_Reference 0208 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0209 0273 | s | Execute Discrete,Plus 020a 0aff | | Execute_Immediate Plus,-0x1 020b 00d8 | | Load_Top At_Offset_0 020c 00e2 | | Load_Encached Integer_Cache 020d 0260 | ` | Execute Discrete,In_Type 020e 7001 |p | Jump_Nonzero 0x210 020f 0801 | | Execute_Immediate Raise,0x1 0210 8010 | | Call 0x0,0x10 0211 00c8 | | Action Pop_Auxiliary_Range 0212 3fb2 |? | Loop_Increasing 0x1c5 0213 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0214 0000 0000 | | .BLANK 0000[0x4] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b e011 | | Load 0x0,0x11 021c 0337 | 7 | Declare_Variable Array 021d e012 | | Load 0x0,0x12 021e 4800 |H | Short_Literal 0x0 021f 00da | | Load_Top At_Offset_2 0220 01d6 | | Execute Vector,Field_Write 0221 e00b | | Load 0x0,0xb 0222 4801 |H | Short_Literal 0x1 0223 00da | | Load_Top At_Offset_2 0224 01d6 | | Execute Vector,Field_Write 0225 e013 | | Load 0x0,0x13 0226 4802 |H | Short_Literal 0x2 0227 00da | | Load_Top At_Offset_2 0228 01d6 | | Execute Vector,Field_Write 0229 e011 | | Load 0x0,0x11 022a 01c3 | | Execute Vector,Check_In_Type 022b 8014 | | Call 0x0,0x14 022c e011 | | Load 0x0,0x11 022d 0337 | 7 | Declare_Variable Array 022e e015 | | Load 0x0,0x15 022f 4800 |H | Short_Literal 0x0 0230 00da | | Load_Top At_Offset_2 0231 01d6 | | Execute Vector,Field_Write 0232 e00b | | Load 0x0,0xb 0233 4801 |H | Short_Literal 0x1 0234 00da | | Load_Top At_Offset_2 0235 01d6 | | Execute Vector,Field_Write 0236 e013 | | Load 0x0,0x13 0237 4802 |H | Short_Literal 0x2 0238 00da | | Load_Top At_Offset_2 0239 01d6 | | Execute Vector,Field_Write 023a e011 | | Load 0x0,0x11 023b 01c3 | | Execute Vector,Check_In_Type 023c 8014 | | Call 0x0,0x14 023d e011 | | Load 0x0,0x11 023e 0337 | 7 | Declare_Variable Array 023f e016 | | Load 0x0,0x16 0240 4800 |H | Short_Literal 0x0 0241 00da | | Load_Top At_Offset_2 0242 01d6 | | Execute Vector,Field_Write 0243 e00b | | Load 0x0,0xb 0244 4801 |H | Short_Literal 0x1 0245 00da | | Load_Top At_Offset_2 0246 01d6 | | Execute Vector,Field_Write 0247 e013 | | Load 0x0,0x13 0248 4802 |H | Short_Literal 0x2 0249 00da | | Load_Top At_Offset_2 024a 01d6 | | Execute Vector,Field_Write 024b e011 | | Load 0x0,0x11 024c 01c3 | | Execute Vector,Check_In_Type 024d 8014 | | Call 0x0,0x14 024e e011 | | Load 0x0,0x11 024f 0337 | 7 | Declare_Variable Array 0250 e017 | | Load 0x0,0x17 0251 4800 |H | Short_Literal 0x0 0252 00da | | Load_Top At_Offset_2 0253 01d6 | | Execute Vector,Field_Write 0254 e00b | | Load 0x0,0xb 0255 4801 |H | Short_Literal 0x1 0256 00da | | Load_Top At_Offset_2 0257 01d6 | | Execute Vector,Field_Write 0258 e013 | | Load 0x0,0x13 0259 4802 |H | Short_Literal 0x2 025a 00da | | Load_Top At_Offset_2 025b 01d6 | | Execute Vector,Field_Write 025c e011 | | Load 0x0,0x11 025d 01c3 | | Execute Vector,Check_In_Type 025e 8014 | | Call 0x0,0x14 025f e011 | | Load 0x0,0x11 0260 0337 | 7 | Declare_Variable Array 0261 e018 | | Load 0x0,0x18 0262 4800 |H | Short_Literal 0x0 0263 00da | | Load_Top At_Offset_2 0264 01d6 | | Execute Vector,Field_Write 0265 e00b | | Load 0x0,0xb 0266 4801 |H | Short_Literal 0x1 0267 00da | | Load_Top At_Offset_2 0268 01d6 | | Execute Vector,Field_Write 0269 e013 | | Load 0x0,0x13 026a 4802 |H | Short_Literal 0x2 026b 00da | | Load_Top At_Offset_2 026c 01d6 | | Execute Vector,Field_Write 026d e011 | | Load 0x0,0x11 026e 01c3 | | Execute Vector,Check_In_Type 026f 8014 | | Call 0x0,0x14 0270 e011 | | Load 0x0,0x11 0271 0337 | 7 | Declare_Variable Array 0272 e019 | | Load 0x0,0x19 0273 4800 |H | Short_Literal 0x0 0274 00da | | Load_Top At_Offset_2 0275 01d6 | | Execute Vector,Field_Write 0276 e00b | | Load 0x0,0xb 0277 4801 |H | Short_Literal 0x1 0278 00da | | Load_Top At_Offset_2 0279 01d6 | | Execute Vector,Field_Write 027a e013 | | Load 0x0,0x13 027b 4802 |H | Short_Literal 0x2 027c 00da | | Load_Top At_Offset_2 027d 01d6 | | Execute Vector,Field_Write 027e e011 | | Load 0x0,0x11 027f 01c3 | | Execute Vector,Check_In_Type 0280 8014 | | Call 0x0,0x14 0281 e011 | | Load 0x0,0x11 0282 0337 | 7 | Declare_Variable Array 0283 e01a | | Load 0x0,0x1a 0284 4800 |H | Short_Literal 0x0 0285 00da | | Load_Top At_Offset_2 0286 01d6 | | Execute Vector,Field_Write 0287 e00b | | Load 0x0,0xb 0288 4801 |H | Short_Literal 0x1 0289 00da | | Load_Top At_Offset_2 028a 01d6 | | Execute Vector,Field_Write 028b e013 | | Load 0x0,0x13 028c 4802 |H | Short_Literal 0x2 028d 00da | | Load_Top At_Offset_2 028e 01d6 | | Execute Vector,Field_Write 028f e011 | | Load 0x0,0x11 0290 01c3 | | Execute Vector,Check_In_Type 0291 8014 | | Call 0x0,0x14 0292 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0293 0000 0000 | | .BLANK 0000[0x5] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b 00cf | | Action Mark_Auxiliary 029c e01b | | Load 0x0,0x1b 029d 800f | | Call 0x0,0xf 029e e00b | | Load 0x0,0xb 029f 800f | | Call 0x0,0xf 02a0 0263 | c | Execute Discrete,Above_Bound 02a1 700c |p | Jump_Nonzero 0x2ae 02a2 e01c | | Load 0x0,0x1c 02a3 0337 | 7 | Declare_Variable Array 02a4 00d9 | | Load_Top At_Offset_1 02a5 800a | | Call 0x0,0xa 02a6 4800 |H | Short_Literal 0x0 02a7 00da | | Load_Top At_Offset_2 02a8 01d6 | | Execute Vector,Field_Write 02a9 e01c | | Load 0x0,0x1c 02aa 01c3 | | Execute Vector,Check_In_Type 02ab 801d | | Call 0x0,0x1d 02ac 00c8 | | Action Pop_Auxiliary_Range 02ad 3ff4 |? | Loop_Increasing 0x2a2 02ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02af 0000 | | .XXX[0x1] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 e01e | | Load 0x0,0x1e 02b4 0337 | 7 | Declare_Variable Array 02b5 e01f | | Load 0x0,0x1f 02b6 4800 |H | Short_Literal 0x0 02b7 00da | | Load_Top At_Offset_2 02b8 01d6 | | Execute Vector,Field_Write 02b9 e012 | | Load 0x0,0x12 02ba 4801 |H | Short_Literal 0x1 02bb 00da | | Load_Top At_Offset_2 02bc 01d6 | | Execute Vector,Field_Write 02bd e020 | | Load 0x0,0x20 02be 4802 |H | Short_Literal 0x2 02bf 00da | | Load_Top At_Offset_2 02c0 01d6 | | Execute Vector,Field_Write 02c1 e013 | | Load 0x0,0x13 02c2 4803 |H | Short_Literal 0x3 02c3 00da | | Load_Top At_Offset_2 02c4 01d6 | | Execute Vector,Field_Write 02c5 e01e | | Load 0x0,0x1e 02c6 01c3 | | Execute Vector,Check_In_Type 02c7 8021 | ! | Call 0x0,0x21 02c8 e01e | | Load 0x0,0x1e 02c9 0337 | 7 | Declare_Variable Array 02ca e01f | | Load 0x0,0x1f 02cb 4800 |H | Short_Literal 0x0 02cc 00da | | Load_Top At_Offset_2 02cd 01d6 | | Execute Vector,Field_Write 02ce e012 | | Load 0x0,0x12 02cf 4801 |H | Short_Literal 0x1 02d0 00da | | Load_Top At_Offset_2 02d1 01d6 | | Execute Vector,Field_Write 02d2 e022 | " | Load 0x0,0x22 02d3 4802 |H | Short_Literal 0x2 02d4 00da | | Load_Top At_Offset_2 02d5 01d6 | | Execute Vector,Field_Write 02d6 e01b | | Load 0x0,0x1b 02d7 4803 |H | Short_Literal 0x3 02d8 00da | | Load_Top At_Offset_2 02d9 01d6 | | Execute Vector,Field_Write 02da e01e | | Load 0x0,0x1e 02db 01c3 | | Execute Vector,Check_In_Type 02dc 8021 | ! | Call 0x0,0x21 02dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02de 0000 0000 | | .XXX[0x2] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 0004 | | .CONST 0x0004 ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 e01e | | Load 0x0,0x1e 02e4 0337 | 7 | Declare_Variable Array 02e5 e01f | | Load 0x0,0x1f 02e6 4800 |H | Short_Literal 0x0 02e7 00da | | Load_Top At_Offset_2 02e8 01d6 | | Execute Vector,Field_Write 02e9 e015 | | Load 0x0,0x15 02ea 4801 |H | Short_Literal 0x1 02eb 00da | | Load_Top At_Offset_2 02ec 01d6 | | Execute Vector,Field_Write 02ed e020 | | Load 0x0,0x20 02ee 4802 |H | Short_Literal 0x2 02ef 00da | | Load_Top At_Offset_2 02f0 01d6 | | Execute Vector,Field_Write 02f1 e013 | | Load 0x0,0x13 02f2 4803 |H | Short_Literal 0x3 02f3 00da | | Load_Top At_Offset_2 02f4 01d6 | | Execute Vector,Field_Write 02f5 e01e | | Load 0x0,0x1e 02f6 01c3 | | Execute Vector,Check_In_Type 02f7 8021 | ! | Call 0x0,0x21 02f8 e01e | | Load 0x0,0x1e 02f9 0337 | 7 | Declare_Variable Array 02fa e01f | | Load 0x0,0x1f 02fb 4800 |H | Short_Literal 0x0 02fc 00da | | Load_Top At_Offset_2 02fd 01d6 | | Execute Vector,Field_Write 02fe e015 | | Load 0x0,0x15 02ff 4801 |H | Short_Literal 0x1 0300 00da | | Load_Top At_Offset_2 0301 01d6 | | Execute Vector,Field_Write 0302 e023 | # | Load 0x0,0x23 0303 4802 |H | Short_Literal 0x2 0304 00da | | Load_Top At_Offset_2 0305 01d6 | | Execute Vector,Field_Write 0306 e01b | | Load 0x0,0x1b 0307 4803 |H | Short_Literal 0x3 0308 00da | | Load_Top At_Offset_2 0309 01d6 | | Execute Vector,Field_Write 030a e01e | | Load 0x0,0x1e 030b 01c3 | | Execute Vector,Check_In_Type 030c 8021 | ! | Call 0x0,0x21 030d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 030e 0000 0000 | | .XXX[0x2] 0310 ; -------------------------------------------------------------------------------------- 0310 ; Debug Table 0310 ; -------------------------------------------------------------------------------------- 0310 0004 0009 | | .DEBUG4 0x0004,0x0009,0x3459,0x0000,0x0001,0x0009 0316 000b 033a | :| .DBG4T 0x000b,0x033a,0x8000,0x0000 031a 001f 033f | ?| .DBG4T 0x001f,0x033f,0x8000,0x0000 031e 002b 0343 | + C| .DBG4T 0x002b,0x0343,0x0001,0x0000 0322 003b 0346 | ; F| .DBG4T 0x003b,0x0346,0x0001,0x0000 0326 0063 0355 | c U| .DBG4T 0x0063,0x0355,0x0001,0x0000 032a 021b 0373 | s| .DBG4T 0x021b,0x0373,0x0001,0x0000 032e 029b 037c | || .DBG4T 0x029b,0x037c,0x0001,0x0000 0332 02b3 0380 | | .DBG4T 0x02b3,0x0380,0x0001,0x0000 0336 02e3 0384 | | .DBG4T 0x02e3,0x0384,0x0001,0x0000 033a ; -------------------------------------------------------------------------------------- 033a ; Debug chain 033a ; -------------------------------------------------------------------------------------- 033a 0003 0000 | | .DBGLEN 0x0003,0x0000 033c 000b 001a | | .DBGLNO 0x000b,0x001a,0x001c 033f ; -------------------------------------------------------------------------------------- 033f ; Debug chain 033f ; -------------------------------------------------------------------------------------- 033f 0002 0000 | | .DBGLEN 0x0002,0x0000 0341 001f 0021 | !| .DBGLNO 0x001f,0x0021 0343 ; -------------------------------------------------------------------------------------- 0343 ; Debug chain 0343 ; -------------------------------------------------------------------------------------- 0343 0000 0001 | | .DBGLEN 0x0000,0x0001 0345 002b | + | .DBGLNO 0x002b 0346 ; -------------------------------------------------------------------------------------- 0346 ; Debug chain 0346 ; -------------------------------------------------------------------------------------- 0346 0008 0005 | | .DBGLEN 0x0008,0x0005 0348 003b 003c | ; <| .DBGLNO 0x003b,0x003c,0x0042,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0055,0x0056,0x0057,0x0058 0355 ; -------------------------------------------------------------------------------------- 0355 ; Debug chain 0355 ; -------------------------------------------------------------------------------------- 0355 0000 001c | | .DBGLEN 0x0000,0x001c 0357 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,0x017b,0x0189,0x0197,0x01a5,0x01b3,0x01c2,0x01c5,0x01f2 0373 ; -------------------------------------------------------------------------------------- 0373 ; Debug chain 0373 ; -------------------------------------------------------------------------------------- 0373 0000 0007 | | .DBGLEN 0x0000,0x0007 0375 021b 022c | ,| .DBGLNO 0x021b,0x022c,0x023d,0x024e,0x025f,0x0270,0x0281 037c ; -------------------------------------------------------------------------------------- 037c ; Debug chain 037c ; -------------------------------------------------------------------------------------- 037c 0000 0002 | | .DBGLEN 0x0000,0x0002 037e 029c 02a2 | | .DBGLNO 0x029c,0x02a2 0380 ; -------------------------------------------------------------------------------------- 0380 ; Debug chain 0380 ; -------------------------------------------------------------------------------------- 0380 0000 0002 | | .DBGLEN 0x0000,0x0002 0382 02b3 02c8 | | .DBGLNO 0x02b3,0x02c8 0384 ; -------------------------------------------------------------------------------------- 0384 ; Debug chain 0384 ; -------------------------------------------------------------------------------------- 0384 0000 0002 | | .DBGLEN 0x0000,0x0002 0386 02e3 02f8 | | .DBGLNO 0x02e3,0x02f8 0388 0000 0000 | | .BLANK 0000[0x78]