|
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: 4096 (0x1000) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0000 | | .CONST 0x0000 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0035 | 5 | .CONST 0x0035 ; Address of begin 0009 01a8 | | .CONST 0x01a8 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 00e5 | | Load_Encached Long_Integer_Cache 000c 00d1 | | Pop_Control Pop_Count_1 000d 0008 | | Action Idle 000e e004 | | Load 0x0,0x4 000f 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0010 e004 | | Load 0x0,0x4 0011 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0012 02c7 | | Declare_Variable Any 0013 e404 | | Load 0x2,0x4 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 e025 | % | Load 0x0,0x25 0016 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0017 00e5 | | Load_Encached Long_Integer_Cache 0018 e23f | ? | Load 0x1,0x3f 0019 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 001b 029f 022b | +| Declare_Subprogram INIT_0228,For_Call 001d 029f 028b | | Declare_Subprogram INIT_0288,For_Call 001f 029f 0303 | | Declare_Subprogram INIT_0300,For_Call 0021 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call 0023 029f 036b | k| Declare_Subprogram INIT_0368,For_Call 0025 029f 041b | | Declare_Subprogram INIT_0418,For_Call 0027 029f 048b | | Declare_Subprogram INIT_0488,For_Call 0029 029f 04db | | Declare_Subprogram INIT_04d8,For_Call 002b 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call 002d 029f 0563 | c| Declare_Subprogram INIT_0560,For_Call 002f 029f 0613 | | Declare_Subprogram INIT_0610,For_Call 0031 029f 0623 | #| Declare_Subprogram INIT_0620,For_Call 0033 029f 066b | k| Declare_Subprogram INIT_0668,For_Call 0035 BODY_0008: 0035 4802 |H | Short_Literal 0x2 0036 4802 |H | Short_Literal 0x2 0037 0099 | | Action Reference_Dynamic 0038 006d | m | Action Query_Break_Cause 0039 c403 | | Store 0x2,0x3 003a 4802 |H | Short_Literal 0x2 003b 4802 |H | Short_Literal 0x2 003c 0099 | | Action Reference_Dynamic 003d 006b | k | Action Query_Break_Address 003e c406 | | Store 0x2,0x6 003f 00b7 | | Action Make_Self 0040 020a | | Execute Module,Get_Name 0041 00d8 | | Load_Top At_Offset_0 0042 c404 | | Store 0x2,0x4 0043 0960 | ` | Execute_Immediate Logical_Shift,-0x20 0044 c405 | | Store 0x2,0x5 0045 e403 | | Load 0x2,0x3 0046 4607 |F | Jump_Case 0x8 0047 780c |x | Jump 0x54 ; case 0x0 0048 794a |yJ | Jump 0x193 ; case 0x1 0049 7940 |y@ | Jump 0x18a ; case 0x2 004a 7805 |x | Jump 0x50 ; case 0x3 004b 7937 |y7 | Jump 0x183 ; case 0x4 004c 7805 |x | Jump 0x52 ; case 0x5 004d 7946 |yF | Jump 0x194 ; case 0x6 004e 7945 |yE | Jump 0x194 ; case 0x7 004f 7944 |yD | .XXX[0x1] 0050 8409 | | Call 0x2,0x9 0051 7942 |yB | Jump 0x194 0052 840a | | Call 0x2,0xa 0053 7940 |y@ | Jump 0x194 0054 e23a | : | Load 0x1,0x3a 0055 0a01 | | Execute_Immediate Plus,0x1 0056 a23a | : | Store_Unchecked 0x1,0x3a 0057 e404 | | Load 0x2,0x4 0058 e070 | p | Load 0x0,0x70 0059 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 005a e070 | p | Load 0x0,0x70 005b 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 005c 483e |H> | Short_Literal 0x3e 005d 4802 |H | Short_Literal 0x2 005e 4800 |H | Short_Literal 0x0 005f 024e | N | Execute Discrete,Extract_Bits 0060 c407 | | Store 0x2,0x7 0061 e407 | | Load 0x2,0x7 0062 4603 |F | Jump_Case 0x4 0063 78b4 |x | Jump 0x118 ; case 0x0 0064 7830 |x0 | Jump 0x95 ; case 0x1 0065 7831 |x1 | Jump 0x97 ; case 0x2 0066 7800 |x | Jump 0x67 ; case 0x3 0067 e24f | O | Load 0x1,0x4f 0068 4801 |H | Short_Literal 0x1 0069 0263 | c | Execute Discrete,Above_Bound 006a 7129 |q) | Jump_Nonzero 0x194 006b e417 | | Load 0x2,0x17 006c e24c | L | Load 0x1,0x4c 006d 01d7 | | Execute Vector,Field_Read 006e e406 | | Load 0x2,0x6 006f 027f | | Execute Discrete,Equal 0070 6822 |h" | Jump_Zero 0x93 0071 e417 | | Load 0x2,0x17 0072 e24e | N | Load 0x1,0x4e 0073 01d5 | | Execute Vector,Field_Reference 0074 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0075 e05c | \ | Load 0x0,0x5c 0076 017e | ~ | Execute Record,Not_Equal 0077 6803 |h | Jump_Zero 0x7b 0078 840b | | Call 0x2,0xb 0079 00d2 | | Pop_Control Pop_Count_2 007a 7919 |y | Jump 0x194 007b e417 | | Load 0x2,0x17 007c e24e | N | Load 0x1,0x4e 007d 01d5 | | Execute Vector,Field_Reference 007e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 007f 0e01 | | Execute_Immediate Not_Equal,0x1 0080 7005 |p | Jump_Nonzero 0x86 0081 e417 | | Load 0x2,0x17 0082 e24e | N | Load 0x1,0x4e 0083 01d5 | | Execute Vector,Field_Reference 0084 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0085 6802 |h | Jump_Zero 0x88 0086 840c | | Call 0x2,0xc 0087 780b |x | Jump 0x93 0088 e406 | | Load 0x2,0x6 0089 e417 | | Load 0x2,0x17 008a e24e | N | Load 0x1,0x4e 008b 01d5 | | Execute Vector,Field_Reference 008c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 008d 4801 |H | Short_Literal 0x1 008e 827f | | Call 0x1,0x7f 008f e405 | | Load 0x2,0x5 0090 827d | } | Call 0x1,0x7d 0091 00d2 | | Pop_Control Pop_Count_2 0092 7901 |y | Jump 0x194 0093 3fd7 |? | Loop_Increasing 0x6b 0094 78ff |x | Jump 0x194 0095 840d | | Call 0x2,0xd 0096 78fd |x | Jump 0x194 0097 e25d | ] | Load 0x1,0x5d 0098 4801 |H | Short_Literal 0x1 0099 0263 | c | Execute Discrete,Above_Bound 009a 7017 |p | Jump_Nonzero 0xb2 009b e417 | | Load 0x2,0x17 009c e25c | \ | Load 0x1,0x5c 009d 01d5 | | Execute Vector,Field_Reference 009e 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 009f e01e | | Load 0x0,0x1e 00a0 027e | ~ | Execute Discrete,Not_Equal 00a1 680f |h | Jump_Zero 0xb1 00a2 e417 | | Load 0x2,0x17 00a3 e25c | \ | Load 0x1,0x5c 00a4 01d5 | | Execute Vector,Field_Reference 00a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a6 e011 | | Load 0x0,0x11 00a7 027f | | Execute Discrete,Equal 00a8 7007 |p | Jump_Nonzero 0xb0 00a9 e417 | | Load 0x2,0x17 00aa e25c | \ | Load 0x1,0x5c 00ab 01d5 | | Execute Vector,Field_Reference 00ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ad e405 | | Load 0x2,0x5 00ae 027f | | Execute Discrete,Equal 00af 6801 |h | Jump_Zero 0xb1 00b0 840e | | Call 0x2,0xe 00b1 3fe9 |? | Loop_Increasing 0x9b 00b2 e24f | O | Load 0x1,0x4f 00b3 4801 |H | Short_Literal 0x1 00b4 0263 | c | Execute Discrete,Above_Bound 00b5 7029 |p) | Jump_Nonzero 0xdf 00b6 e417 | | Load 0x2,0x17 00b7 e24c | L | Load 0x1,0x4c 00b8 01d7 | | Execute Vector,Field_Read 00b9 e406 | | Load 0x2,0x6 00ba 027f | | Execute Discrete,Equal 00bb 6822 |h" | Jump_Zero 0xde 00bc e417 | | Load 0x2,0x17 00bd e24e | N | Load 0x1,0x4e 00be 01d5 | | Execute Vector,Field_Reference 00bf 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 00c0 e05c | \ | Load 0x0,0x5c 00c1 017e | ~ | Execute Record,Not_Equal 00c2 6803 |h | Jump_Zero 0xc6 00c3 840f | | Call 0x2,0xf 00c4 00d2 | | Pop_Control Pop_Count_2 00c5 7819 |x | Jump 0xdf 00c6 e417 | | Load 0x2,0x17 00c7 e24e | N | Load 0x1,0x4e 00c8 01d5 | | Execute Vector,Field_Reference 00c9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ca 0e01 | | Execute_Immediate Not_Equal,0x1 00cb 7005 |p | Jump_Nonzero 0xd1 00cc e417 | | Load 0x2,0x17 00cd e24e | N | Load 0x1,0x4e 00ce 01d5 | | Execute Vector,Field_Reference 00cf 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 00d0 6802 |h | Jump_Zero 0xd3 00d1 8410 | | Call 0x2,0x10 00d2 780b |x | Jump 0xde 00d3 e406 | | Load 0x2,0x6 00d4 e417 | | Load 0x2,0x17 00d5 e24e | N | Load 0x1,0x4e 00d6 01d5 | | Execute Vector,Field_Reference 00d7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 00d8 4801 |H | Short_Literal 0x1 00d9 827f | | Call 0x1,0x7f 00da e405 | | Load 0x2,0x5 00db 827d | } | Call 0x1,0x7d 00dc 00d2 | | Pop_Control Pop_Count_2 00dd 78b6 |x | Jump 0x194 00de 3fd7 |? | Loop_Increasing 0xb6 00df e240 | @ | Load 0x1,0x40 00e0 680a |h | Jump_Zero 0xeb 00e1 e406 | | Load 0x2,0x6 00e2 805e | ^ | Call 0x0,0x5e 00e3 6807 |h | Jump_Zero 0xeb 00e4 e406 | | Load 0x2,0x6 00e5 e241 | A | Load 0x1,0x41 00e6 4801 |H | Short_Literal 0x1 00e7 827f | | Call 0x1,0x7f 00e8 e405 | | Load 0x2,0x5 00e9 827d | } | Call 0x1,0x7d 00ea 78a9 |x | Jump 0x194 00eb e242 | B | Load 0x1,0x42 00ec e405 | | Load 0x2,0x5 00ed 027f | | Execute Discrete,Equal 00ee 6817 |h | Jump_Zero 0x106 00ef 4801 |H | Short_Literal 0x1 00f0 827f | | Call 0x1,0x7f 00f1 e004 | | Load 0x0,0x4 00f2 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00f3 e244 | D | Load 0x1,0x44 00f4 027c | | | Execute Discrete,Less 00f5 6810 |h | Jump_Zero 0x106 00f6 e406 | | Load 0x2,0x6 00f7 805e | ^ | Call 0x0,0x5e 00f8 680d |h | Jump_Zero 0x106 00f9 e243 | C | Load 0x1,0x43 00fa 0f01 | | Execute_Immediate Equal,0x1 00fb 6807 |h | Jump_Zero 0x103 00fc e406 | | Load 0x2,0x6 00fd e245 | E | Load 0x1,0x45 00fe 4801 |H | Short_Literal 0x1 00ff 827f | | Call 0x1,0x7f 0100 e405 | | Load 0x2,0x5 0101 827d | } | Call 0x1,0x7d 0102 7891 |x | Jump 0x194 0103 e243 | C | Load 0x1,0x43 0104 0aff | | Execute_Immediate Plus,-0x1 0105 c243 | C | Store 0x1,0x43 0106 e405 | | Load 0x2,0x5 0107 e246 | F | Load 0x1,0x46 0108 027f | | Execute Discrete,Equal 0109 688a |h | Jump_Zero 0x194 010a e247 | G | Load 0x1,0x47 010b 0f01 | | Execute_Immediate Equal,0x1 010c 6807 |h | Jump_Zero 0x114 010d e406 | | Load 0x2,0x6 010e e248 | H | Load 0x1,0x48 010f 4801 |H | Short_Literal 0x1 0110 827f | | Call 0x1,0x7f 0111 e405 | | Load 0x2,0x5 0112 827d | } | Call 0x1,0x7d 0113 7880 |x | Jump 0x194 0114 e247 | G | Load 0x1,0x47 0115 0aff | | Execute_Immediate Plus,-0x1 0116 c247 | G | Store 0x1,0x47 0117 787c |x| | Jump 0x194 0118 e25d | ] | Load 0x1,0x5d 0119 4801 |H | Short_Literal 0x1 011a 0263 | c | Execute Discrete,Above_Bound 011b 7017 |p | Jump_Nonzero 0x133 011c e417 | | Load 0x2,0x17 011d e25c | \ | Load 0x1,0x5c 011e 01d5 | | Execute Vector,Field_Reference 011f 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 0120 e01e | | Load 0x0,0x1e 0121 027e | ~ | Execute Discrete,Not_Equal 0122 680f |h | Jump_Zero 0x132 0123 e417 | | Load 0x2,0x17 0124 e25c | \ | Load 0x1,0x5c 0125 01d5 | | Execute Vector,Field_Reference 0126 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0127 e011 | | Load 0x0,0x11 0128 027f | | Execute Discrete,Equal 0129 7007 |p | Jump_Nonzero 0x131 012a e417 | | Load 0x2,0x17 012b e25c | \ | Load 0x1,0x5c 012c 01d5 | | Execute Vector,Field_Reference 012d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 012e e405 | | Load 0x2,0x5 012f 027f | | Execute Discrete,Equal 0130 6801 |h | Jump_Zero 0x132 0131 8411 | | Call 0x2,0x11 0132 3fe9 |? | Loop_Increasing 0x11c 0133 8412 | | Call 0x2,0x12 0134 e240 | @ | Load 0x1,0x40 0135 680a |h | Jump_Zero 0x140 0136 e406 | | Load 0x2,0x6 0137 805e | ^ | Call 0x0,0x5e 0138 6807 |h | Jump_Zero 0x140 0139 e406 | | Load 0x2,0x6 013a e241 | A | Load 0x1,0x41 013b 4801 |H | Short_Literal 0x1 013c 827f | | Call 0x1,0x7f 013d e405 | | Load 0x2,0x5 013e 827d | } | Call 0x1,0x7d 013f 7854 |xT | Jump 0x194 0140 e242 | B | Load 0x1,0x42 0141 e405 | | Load 0x2,0x5 0142 027f | | Execute Discrete,Equal 0143 681b |h | Jump_Zero 0x15f 0144 e244 | D | Load 0x1,0x44 0145 6066 |`f | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x000fffff} 0146 027f | | Execute Discrete,Equal 0147 7007 |p | Jump_Nonzero 0x14f 0148 4801 |H | Short_Literal 0x1 0149 827f | | Call 0x1,0x7f 014a e004 | | Load 0x0,0x4 014b 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 014c e244 | D | Load 0x1,0x44 014d 027c | | | Execute Discrete,Less 014e 6810 |h | Jump_Zero 0x15f 014f e406 | | Load 0x2,0x6 0150 805e | ^ | Call 0x0,0x5e 0151 680d |h | Jump_Zero 0x15f 0152 e243 | C | Load 0x1,0x43 0153 0f01 | | Execute_Immediate Equal,0x1 0154 6807 |h | Jump_Zero 0x15c 0155 e406 | | Load 0x2,0x6 0156 e245 | E | Load 0x1,0x45 0157 4801 |H | Short_Literal 0x1 0158 827f | | Call 0x1,0x7f 0159 e405 | | Load 0x2,0x5 015a 827d | } | Call 0x1,0x7d 015b 7838 |x8 | Jump 0x194 015c e243 | C | Load 0x1,0x43 015d 0aff | | Execute_Immediate Plus,-0x1 015e c243 | C | Store 0x1,0x43 015f e405 | | Load 0x2,0x5 0160 e246 | F | Load 0x1,0x46 0161 027f | | Execute Discrete,Equal 0162 680d |h | Jump_Zero 0x170 0163 e247 | G | Load 0x1,0x47 0164 0f01 | | Execute_Immediate Equal,0x1 0165 6807 |h | Jump_Zero 0x16d 0166 e406 | | Load 0x2,0x6 0167 e248 | H | Load 0x1,0x48 0168 4801 |H | Short_Literal 0x1 0169 827f | | Call 0x1,0x7f 016a e405 | | Load 0x2,0x5 016b 827d | } | Call 0x1,0x7d 016c 7827 |x' | Jump 0x194 016d e247 | G | Load 0x1,0x47 016e 0aff | | Execute_Immediate Plus,-0x1 016f c247 | G | Store 0x1,0x47 0170 e406 | | Load 0x2,0x6 0171 8071 | q | Call 0x0,0x71 0172 7021 |p! | Jump_Nonzero 0x194 0173 e406 | | Load 0x2,0x6 0174 e405 | | Load 0x2,0x5 0175 e283 | | Load 0x1,0x83 0176 e284 | | Load 0x1,0x84 0177 1d85 | | Execute_Immediate Reference_Lex_1,0x85 0178 e286 | | Load 0x1,0x86 0179 1d87 | | Execute_Immediate Reference_Lex_1,0x87 017a 8040 | @ | Call 0x0,0x40 017b 6818 |h | Jump_Zero 0x194 017c e406 | | Load 0x2,0x6 017d e01e | | Load 0x0,0x1e 017e 4801 |H | Short_Literal 0x1 017f 827f | | Call 0x1,0x7f 0180 e405 | | Load 0x2,0x5 0181 827d | } | Call 0x1,0x7d 0182 7811 |x | Jump 0x194 0183 e406 | | Load 0x2,0x6 0184 4801 |H | Short_Literal 0x1 0185 827f | | Call 0x1,0x7f 0186 e404 | | Load 0x2,0x4 0187 e405 | | Load 0x2,0x5 0188 8072 | r | Call 0x0,0x72 0189 780a |x | Jump 0x194 018a e239 | 9 | Load 0x1,0x39 018b 0a01 | | Execute_Immediate Plus,0x1 018c a239 | 9 | Store_Unchecked 0x1,0x39 018d 4801 |H | Short_Literal 0x1 018e 827f | | Call 0x1,0x7f 018f e406 | | Load 0x2,0x6 0190 e405 | | Load 0x2,0x5 0191 827e | ~ | Call 0x1,0x7e 0192 7801 |x | Jump 0x194 0193 8408 | | Call 0x2,0x8 0194 e404 | | Load 0x2,0x4 0195 e070 | p | Load 0x0,0x70 0196 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0197 e070 | p | Load 0x0,0x70 0198 1848 | H | Execute Package,Field_Execute,Field_Number 0x48 0199 00d8 | | Load_Top At_Offset_0 019a 483d |H= | Short_Literal 0x3d 019b 4801 |H | Short_Literal 0x1 019c 4800 |H | Short_Literal 0x0 019d 024e | N | Execute Discrete,Extract_Bits 019e 6801 |h | Jump_Zero 0x1a0 019f 8413 | | Call 0x2,0x13 01a0 483f |H? | Short_Literal 0x3f 01a1 4801 |H | Short_Literal 0x1 01a2 4800 |H | Short_Literal 0x0 01a3 024e | N | Execute Discrete,Extract_Bits 01a4 6801 |h | Jump_Zero 0x1a6 01a5 8414 | | Call 0x2,0x14 01a6 006e | n | Action Exit_Break 01a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01a8 TRAP_0008: 01a8 8415 | | Call 0x2,0x15 01a9 006e | n | Action Exit_Break 01aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ab 0000 | | .XXX[0x1] 01ac 0000 0000 | | .LITERAL {0x00000000, 0x000fffff} 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01bc | | .CONST 0x01bc ; Address of begin 01b1 0004 | | .CONST 0x0004 ; Address of exception handler 01b2 0009 | | .CONST 0x0009 ; Number of locals 01b3 INIT_01b0: 01b3 00e5 | | Load_Encached Long_Integer_Cache 01b4 00e5 | | Load_Encached Long_Integer_Cache 01b5 00e5 | | Load_Encached Long_Integer_Cache 01b6 e22f | / | Load 0x1,0x2f 01b7 00e2 | | Load_Encached Integer_Cache 01b8 00e2 | | Load_Encached Integer_Cache 01b9 00e2 | | Load_Encached Integer_Cache 01ba 029f 067b | {| Declare_Subprogram INIT_0678,For_Call 01bc BODY_01b0: 01bc e23b | ; | Load 0x1,0x3b 01bd 0a01 | | Execute_Immediate Plus,0x1 01be a23b | ; | Store_Unchecked 0x1,0x3b 01bf e5ff | | Load 0x2,-0x1 01c0 0106 | | Execute Exception,Address 01c1 c602 | | Store 0x3,0x2 01c2 e5ff | | Load 0x2,-0x1 01c3 0107 | | Execute Exception,Get_Name 01c4 c604 | | Store 0x3,0x4 01c5 e405 | | Load 0x2,0x5 01c6 8276 | v | Call 0x1,0x76 01c7 a605 | | Store_Unchecked 0x3,0x5 01c8 e406 | | Load 0x2,0x6 01c9 8071 | q | Call 0x0,0x71 01ca 7004 |p | Jump_Nonzero 0x1cf 01cb 4802 |H | Short_Literal 0x2 01cc 827f | | Call 0x1,0x7f 01cd 8289 | | Call 0x1,0x89 01ce 681e |h | Jump_Zero 0x1ed 01cf e605 | | Load 0x3,0x5 01d0 e238 | 8 | Load 0x1,0x38 01d1 01d5 | | Execute Vector,Field_Reference 01d2 e004 | | Load 0x0,0x4 01d3 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 01d4 00e3 | | Load_Encached Natural_Cache 01d5 e004 | | Load 0x0,0x4 01d6 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 01d7 e004 | | Load 0x0,0x4 01d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01d9 e004 | | Load 0x0,0x4 01da 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 01db 4804 |H | Short_Literal 0x4 01dc e073 | s | Load 0x0,0x73 01dd e404 | | Load 0x2,0x4 01de e004 | | Load 0x0,0x4 01df 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 01e0 c231 | 1 | Store 0x1,0x31 01e1 e60a | | Load 0x3,0xa 01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01e3 c232 | 2 | Store 0x1,0x32 01e4 c233 | 3 | Store 0x1,0x33 01e5 c234 | 4 | Store 0x1,0x34 01e6 00d1 | | Pop_Control Pop_Count_1 01e7 4800 |H | Short_Literal 0x0 01e8 e605 | | Load 0x3,0x5 01e9 e238 | 8 | Load 0x1,0x38 01ea 01d5 | | Execute Vector,Field_Reference 01eb 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01ec 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ed e602 | | Load 0x3,0x2 01ee 8071 | q | Call 0x0,0x71 01ef 680d |h | Jump_Zero 0x1fd 01f0 e605 | | Load 0x3,0x5 01f1 e238 | 8 | Load 0x1,0x38 01f2 01d5 | | Execute Vector,Field_Reference 01f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01f4 8074 | t | Call 0x0,0x74 01f5 a603 | | Store_Unchecked 0x3,0x3 01f6 e603 | | Load 0x3,0x3 01f7 e602 | | Load 0x3,0x2 01f8 e604 | | Load 0x3,0x4 01f9 8059 | Y | Call 0x0,0x59 01fa e405 | | Load 0x2,0x5 01fb 8075 | u | Call 0x0,0x75 01fc 7802 |x | Jump 0x1ff 01fd e602 | | Load 0x3,0x2 01fe a603 | | Store_Unchecked 0x3,0x3 01ff 00e2 | | Load_Encached Integer_Cache 0200 00e2 | | Load_Encached Integer_Cache 0201 00e2 | | Load_Encached Integer_Cache 0202 4802 |H | Short_Literal 0x2 0203 827f | | Call 0x1,0x7f 0204 e603 | | Load 0x3,0x3 0205 e405 | | Load 0x2,0x5 0206 e604 | | Load 0x3,0x4 0207 8279 | y | Call 0x1,0x79 0208 c606 | | Store 0x3,0x6 0209 c607 | | Store 0x3,0x7 020a c608 | | Store 0x3,0x8 020b e608 | | Load 0x3,0x8 020c e01e | | Load 0x0,0x1e 020d 027e | ~ | Execute Discrete,Not_Equal 020e 6801 |h | Jump_Zero 0x210 020f 8609 | | Call 0x3,0x9 0210 e606 | | Load 0x3,0x6 0211 e01e | | Load 0x0,0x1e 0212 027e | ~ | Execute Discrete,Not_Equal 0213 7004 |p | Jump_Nonzero 0x218 0214 e607 | | Load 0x3,0x7 0215 e01e | | Load 0x0,0x1e 0216 027e | ~ | Execute Discrete,Not_Equal 0217 680b |h | Jump_Zero 0x223 0218 4800 |H | Short_Literal 0x0 0219 e607 | | Load 0x3,0x7 021a e606 | | Load 0x3,0x6 021b e605 | | Load 0x3,0x5 021c e604 | | Load 0x3,0x4 021d e602 | | Load 0x3,0x2 021e e603 | | Load 0x3,0x3 021f 4802 |H | Short_Literal 0x2 0220 827f | | Call 0x1,0x7f 0221 e405 | | Load 0x2,0x5 0222 827c | | | Call 0x1,0x7c 0223 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0224 0000 0000 | | .BLANK 0000[0x4] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 0234 | 4 | .CONST 0x0234 ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0009 | | .CONST 0x0009 ; Number of locals 022b INIT_0228: 022b 00e5 | | Load_Encached Long_Integer_Cache 022c 00e5 | | Load_Encached Long_Integer_Cache 022d 00e5 | | Load_Encached Long_Integer_Cache 022e e22f | / | Load 0x1,0x2f 022f 00e2 | | Load_Encached Integer_Cache 0230 00e2 | | Load_Encached Integer_Cache 0231 00e2 | | Load_Encached Integer_Cache 0232 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call 0234 BODY_0228: 0234 e23b | ; | Load 0x1,0x3b 0235 0a01 | | Execute_Immediate Plus,0x1 0236 a23b | ; | Store_Unchecked 0x1,0x3b 0237 e5ff | | Load 0x2,-0x1 0238 0106 | | Execute Exception,Address 0239 c602 | | Store 0x3,0x2 023a e5ff | | Load 0x2,-0x1 023b 0107 | | Execute Exception,Get_Name 023c c604 | | Store 0x3,0x4 023d e405 | | Load 0x2,0x5 023e 8276 | v | Call 0x1,0x76 023f a605 | | Store_Unchecked 0x3,0x5 0240 e406 | | Load 0x2,0x6 0241 8071 | q | Call 0x0,0x71 0242 7004 |p | Jump_Nonzero 0x247 0243 4802 |H | Short_Literal 0x2 0244 827f | | Call 0x1,0x7f 0245 8289 | | Call 0x1,0x89 0246 6819 |h | Jump_Zero 0x260 0247 e605 | | Load 0x3,0x5 0248 e238 | 8 | Load 0x1,0x38 0249 01d5 | | Execute Vector,Field_Reference 024a e004 | | Load 0x0,0x4 024b 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 024c 00e3 | | Load_Encached Natural_Cache 024d e004 | | Load 0x0,0x4 024e 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 024f e004 | | Load 0x0,0x4 0250 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0251 e004 | | Load 0x0,0x4 0252 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 0253 4804 |H | Short_Literal 0x4 0254 e073 | s | Load 0x0,0x73 0255 e404 | | Load 0x2,0x4 0256 e004 | | Load 0x0,0x4 0257 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 0258 c231 | 1 | Store 0x1,0x31 0259 e60a | | Load 0x3,0xa 025a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 025b c232 | 2 | Store 0x1,0x32 025c c233 | 3 | Store 0x1,0x33 025d c234 | 4 | Store 0x1,0x34 025e 00d1 | | Pop_Control Pop_Count_1 025f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0260 00e2 | | Load_Encached Integer_Cache 0261 00e2 | | Load_Encached Integer_Cache 0262 00e2 | | Load_Encached Integer_Cache 0263 4802 |H | Short_Literal 0x2 0264 827f | | Call 0x1,0x7f 0265 e406 | | Load 0x2,0x6 0266 e405 | | Load 0x2,0x5 0267 e604 | | Load 0x3,0x4 0268 8279 | y | Call 0x1,0x79 0269 c606 | | Store 0x3,0x6 026a c607 | | Store 0x3,0x7 026b c608 | | Store 0x3,0x8 026c e608 | | Load 0x3,0x8 026d e01e | | Load 0x0,0x1e 026e 027e | ~ | Execute Discrete,Not_Equal 026f 6801 |h | Jump_Zero 0x271 0270 8609 | | Call 0x3,0x9 0271 e606 | | Load 0x3,0x6 0272 e01e | | Load 0x0,0x1e 0273 027e | ~ | Execute Discrete,Not_Equal 0274 7004 |p | Jump_Nonzero 0x279 0275 e607 | | Load 0x3,0x7 0276 e01e | | Load 0x0,0x1e 0277 027e | ~ | Execute Discrete,Not_Equal 0278 680b |h | Jump_Zero 0x284 0279 4801 |H | Short_Literal 0x1 027a e607 | | Load 0x3,0x7 027b e606 | | Load 0x3,0x6 027c e605 | | Load 0x3,0x5 027d e604 | | Load 0x3,0x4 027e e602 | | Load 0x3,0x2 027f e406 | | Load 0x2,0x6 0280 4802 |H | Short_Literal 0x2 0281 827f | | Call 0x1,0x7f 0282 e405 | | Load 0x2,0x5 0283 827c | | | Call 0x1,0x7c 0284 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0285 0000 0000 | | .XXX[0x3] 0287 0000 | | 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 0294 | | .CONST 0x0294 ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0009 | | .CONST 0x0009 ; Number of locals 028b INIT_0288: 028b 00e5 | | Load_Encached Long_Integer_Cache 028c 00e5 | | Load_Encached Long_Integer_Cache 028d 00e5 | | Load_Encached Long_Integer_Cache 028e e22f | / | Load 0x1,0x2f 028f 00e2 | | Load_Encached Integer_Cache 0290 00e2 | | Load_Encached Integer_Cache 0291 00e2 | | Load_Encached Integer_Cache 0292 029f 06eb | | Declare_Subprogram INIT_06e8,For_Call 0294 BODY_0288: 0294 e23b | ; | Load 0x1,0x3b 0295 0a01 | | Execute_Immediate Plus,0x1 0296 a23b | ; | Store_Unchecked 0x1,0x3b 0297 e5ff | | Load 0x2,-0x1 0298 0106 | | Execute Exception,Address 0299 c602 | | Store 0x3,0x2 029a e5ff | | Load 0x2,-0x1 029b 0107 | | Execute Exception,Get_Name 029c c604 | | Store 0x3,0x4 029d e405 | | Load 0x2,0x5 029e 8276 | v | Call 0x1,0x76 029f a605 | | Store_Unchecked 0x3,0x5 02a0 e406 | | Load 0x2,0x6 02a1 8071 | q | Call 0x0,0x71 02a2 7004 |p | Jump_Nonzero 0x2a7 02a3 4802 |H | Short_Literal 0x2 02a4 827f | | Call 0x1,0x7f 02a5 8289 | | Call 0x1,0x89 02a6 6819 |h | Jump_Zero 0x2c0 02a7 e605 | | Load 0x3,0x5 02a8 e238 | 8 | Load 0x1,0x38 02a9 01d5 | | Execute Vector,Field_Reference 02aa e004 | | Load 0x0,0x4 02ab 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51 02ac 00e3 | | Load_Encached Natural_Cache 02ad e004 | | Load 0x0,0x4 02ae 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 02af e004 | | Load 0x0,0x4 02b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02b1 e004 | | Load 0x0,0x4 02b2 1b25 | % | Execute Package,Field_Read,Field_Number 0x25 02b3 4804 |H | Short_Literal 0x4 02b4 e073 | s | Load 0x0,0x73 02b5 e404 | | Load 0x2,0x4 02b6 e004 | | Load 0x0,0x4 02b7 1853 | S | Execute Package,Field_Execute,Field_Number 0x53 02b8 c231 | 1 | Store 0x1,0x31 02b9 e60a | | Load 0x3,0xa 02ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 02bb c232 | 2 | Store 0x1,0x32 02bc c233 | 3 | Store 0x1,0x33 02bd c234 | 4 | Store 0x1,0x34 02be 00d1 | | Pop_Control Pop_Count_1 02bf 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02c0 e602 | | Load 0x3,0x2 02c1 8071 | q | Call 0x0,0x71 02c2 683a |h: | Jump_Zero 0x2fd 02c3 e605 | | Load 0x3,0x5 02c4 e238 | 8 | Load 0x1,0x38 02c5 01d5 | | Execute Vector,Field_Reference 02c6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 02c7 7035 |p5 | Jump_Nonzero 0x2fd 02c8 e605 | | Load 0x3,0x5 02c9 e238 | 8 | Load 0x1,0x38 02ca 01d5 | | Execute Vector,Field_Reference 02cb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02cc 8074 | t | Call 0x0,0x74 02cd a603 | | Store_Unchecked 0x3,0x3 02ce e603 | | Load 0x3,0x3 02cf e602 | | Load 0x3,0x2 02d0 e604 | | Load 0x3,0x4 02d1 8059 | Y | Call 0x0,0x59 02d2 e405 | | Load 0x2,0x5 02d3 8075 | u | Call 0x0,0x75 02d4 4801 |H | Short_Literal 0x1 02d5 e605 | | Load 0x3,0x5 02d6 e238 | 8 | Load 0x1,0x38 02d7 01d5 | | Execute Vector,Field_Reference 02d8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 02d9 00e2 | | Load_Encached Integer_Cache 02da 00e2 | | Load_Encached Integer_Cache 02db 00e2 | | Load_Encached Integer_Cache 02dc 4802 |H | Short_Literal 0x2 02dd 827f | | Call 0x1,0x7f 02de e603 | | Load 0x3,0x3 02df e405 | | Load 0x2,0x5 02e0 e604 | | Load 0x3,0x4 02e1 8279 | y | Call 0x1,0x79 02e2 c606 | | Store 0x3,0x6 02e3 c607 | | Store 0x3,0x7 02e4 c608 | | Store 0x3,0x8 02e5 e608 | | Load 0x3,0x8 02e6 e01e | | Load 0x0,0x1e 02e7 027e | ~ | Execute Discrete,Not_Equal 02e8 6801 |h | Jump_Zero 0x2ea 02e9 8609 | | Call 0x3,0x9 02ea e606 | | Load 0x3,0x6 02eb e01e | | Load 0x0,0x1e 02ec 027e | ~ | Execute Discrete,Not_Equal 02ed 7004 |p | Jump_Nonzero 0x2f2 02ee e607 | | Load 0x3,0x7 02ef e01e | | Load 0x0,0x1e 02f0 027e | ~ | Execute Discrete,Not_Equal 02f1 680b |h | Jump_Zero 0x2fd 02f2 4800 |H | Short_Literal 0x0 02f3 e607 | | Load 0x3,0x7 02f4 e606 | | Load 0x3,0x6 02f5 e605 | | Load 0x3,0x5 02f6 e604 | | Load 0x3,0x4 02f7 e602 | | Load 0x3,0x2 02f8 e603 | | Load 0x3,0x3 02f9 4802 |H | Short_Literal 0x2 02fa 827f | | Call 0x1,0x7f 02fb e405 | | Load 0x2,0x5 02fc 827c | | | Call 0x1,0x7c 02fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02fe 0000 0000 | | .XXX[0x2] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 030c | | .CONST 0x030c ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0004 | | .CONST 0x0004 ; Number of locals 0303 INIT_0300: 0303 e005 | | Load 0x0,0x5 0304 0322 | " | Declare_Variable Record 0305 e602 | | Load 0x3,0x2 0306 1c00 | | Execute_Immediate Run_Utility,0x0 0307 00e2 | | Load_Encached Integer_Cache 0308 e249 | I | Load 0x1,0x49 0309 0322 | " | Declare_Variable Record 030a e604 | | Load 0x3,0x4 030b 1c00 | | Execute_Immediate Run_Utility,0x0 030c BODY_0300: 030c e602 | | Load 0x3,0x2 030d e406 | | Load 0x2,0x6 030e 4802 |H | Short_Literal 0x2 030f 8280 | | Call 0x1,0x80 0310 00d1 | | Pop_Control Pop_Count_1 0311 e24f | O | Load 0x1,0x4f 0312 e417 | | Load 0x2,0x17 0313 0263 | c | Execute Discrete,Above_Bound 0314 7037 |p7 | Jump_Nonzero 0x34c 0315 e606 | | Load 0x3,0x6 0316 e24c | L | Load 0x1,0x4c 0317 01d7 | | Execute Vector,Field_Read 0318 e406 | | Load 0x2,0x6 0319 027f | | Execute Discrete,Equal 031a 6830 |h0 | Jump_Zero 0x34b 031b e602 | | Load 0x3,0x2 031c e606 | | Load 0x3,0x6 031d e24e | N | Load 0x1,0x4e 031e 01d5 | | Execute Vector,Field_Reference 031f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0320 8278 | x | Call 0x1,0x78 0321 6829 |h) | Jump_Zero 0x34b 0322 e606 | | Load 0x3,0x6 0323 e24e | N | Load 0x1,0x4e 0324 01d5 | | Execute Vector,Field_Reference 0325 e604 | | Load 0x3,0x4 0326 017d | } | Execute Record,Structure_Write 0327 e604 | | Load 0x3,0x4 0328 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0329 0e01 | | Execute_Immediate Not_Equal,0x1 032a 7003 |p | Jump_Nonzero 0x32e 032b e604 | | Load 0x3,0x4 032c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 032d 6813 |h | Jump_Zero 0x341 032e 00e2 | | Load_Encached Integer_Cache 032f e606 | | Load 0x3,0x6 0330 4802 |H | Short_Literal 0x2 0331 e26b | k | Load 0x1,0x6b 0332 171e | | Execute Task,Entry_Call,Field_Number 0x1e 0333 c603 | | Store 0x3,0x3 0334 e603 | | Load 0x3,0x3 0335 e01e | | Load 0x0,0x1e 0336 027e | ~ | Execute Discrete,Not_Equal 0337 6813 |h | Jump_Zero 0x34b 0338 e406 | | Load 0x2,0x6 0339 e603 | | Load 0x3,0x3 033a 4802 |H | Short_Literal 0x2 033b 827f | | Call 0x1,0x7f 033c e405 | | Load 0x2,0x5 033d 827d | } | Call 0x1,0x7d 033e 00cc | | Action Pop_Block 033f 00d2 | | Pop_Control Pop_Count_2 0340 7e53 |~S | Jump 0x194 0341 e406 | | Load 0x2,0x6 0342 e604 | | Load 0x3,0x4 0343 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0344 4802 |H | Short_Literal 0x2 0345 827f | | Call 0x1,0x7f 0346 e405 | | Load 0x2,0x5 0347 827d | } | Call 0x1,0x7d 0348 00cc | | Action Pop_Block 0349 00d2 | | Pop_Control Pop_Count_2 034a 7e49 |~I | Jump 0x194 034b 3fc9 |? | Loop_Increasing 0x315 034c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 034d 0000 0000 | | .XXX[0x3] 034f 0000 | | 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0354 | T | .CONST 0x0354 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0002 | | .CONST 0x0002 ; Number of locals 0353 INIT_0350: 0353 00e2 | | Load_Encached Integer_Cache 0354 BODY_0350: 0354 00e2 | | Load_Encached Integer_Cache 0355 e417 | | Load 0x2,0x17 0356 4802 |H | Short_Literal 0x2 0357 e26b | k | Load 0x1,0x6b 0358 171e | | Execute Task,Entry_Call,Field_Number 0x1e 0359 c602 | | Store 0x3,0x2 035a e602 | | Load 0x3,0x2 035b e01e | | Load 0x0,0x1e 035c 027e | ~ | Execute Discrete,Not_Equal 035d 6809 |h | Jump_Zero 0x367 035e e406 | | Load 0x2,0x6 035f e602 | | Load 0x3,0x2 0360 4802 |H | Short_Literal 0x2 0361 827f | | Call 0x1,0x7f 0362 e405 | | Load 0x2,0x5 0363 827d | } | Call 0x1,0x7d 0364 00cc | | Action Pop_Block 0365 00d2 | | Pop_Control Pop_Count_2 0366 7e2d |~- | Jump 0x194 0367 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 0372 | r | .CONST 0x0372 ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0004 | | .CONST 0x0004 ; Number of locals 036b INIT_0368: 036b e005 | | Load 0x0,0x5 036c 0322 | " | Declare_Variable Record 036d e602 | | Load 0x3,0x2 036e 1c00 | | Execute_Immediate Run_Utility,0x0 036f 00e1 | | Load_Encached Boolean_Cache 0370 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0371 00e2 | | Load_Encached Integer_Cache 0372 BODY_0368: 0372 e24f | O | Load 0x1,0x4f 0373 4801 |H | Short_Literal 0x1 0374 0263 | c | Execute Discrete,Above_Bound 0375 704d |pM | Jump_Nonzero 0x3c3 0376 e606 | | Load 0x3,0x6 0377 e24c | L | Load 0x1,0x4c 0378 01d7 | | Execute Vector,Field_Read 0379 e406 | | Load 0x2,0x6 037a 027f | | Execute Discrete,Equal 037b 6846 |hF | Jump_Zero 0x3c2 037c e603 | | Load 0x3,0x3 037d 700e |p | Jump_Nonzero 0x38c 037e e606 | | Load 0x3,0x6 037f e24e | N | Load 0x1,0x4e 0380 01d5 | | Execute Vector,Field_Reference 0381 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0382 e05c | \ | Load 0x0,0x5c 0383 017e | ~ | Execute Record,Not_Equal 0384 6807 |h | Jump_Zero 0x38c 0385 e602 | | Load 0x3,0x2 0386 e406 | | Load 0x2,0x6 0387 4802 |H | Short_Literal 0x2 0388 8280 | | Call 0x1,0x80 0389 00d1 | | Pop_Control Pop_Count_1 038a 4801 |H | Short_Literal 0x1 038b a603 | | Store_Unchecked 0x3,0x3 038c e606 | | Load 0x3,0x6 038d e24e | N | Load 0x1,0x4e 038e 01d5 | | Execute Vector,Field_Reference 038f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0390 e05c | \ | Load 0x0,0x5c 0391 017f | | Execute Record,Equal 0392 7007 |p | Jump_Nonzero 0x39a 0393 e602 | | Load 0x3,0x2 0394 e606 | | Load 0x3,0x6 0395 e24e | N | Load 0x1,0x4e 0396 01d5 | | Execute Vector,Field_Reference 0397 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0398 8278 | x | Call 0x1,0x78 0399 6828 |h( | Jump_Zero 0x3c2 039a e606 | | Load 0x3,0x6 039b e24e | N | Load 0x1,0x4e 039c 01d5 | | Execute Vector,Field_Reference 039d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 039e 0e01 | | Execute_Immediate Not_Equal,0x1 039f 7005 |p | Jump_Nonzero 0x3a5 03a0 e606 | | Load 0x3,0x6 03a1 e24e | N | Load 0x1,0x4e 03a2 01d5 | | Execute Vector,Field_Reference 03a3 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 03a4 6812 |h | Jump_Zero 0x3b7 03a5 00e2 | | Load_Encached Integer_Cache 03a6 e606 | | Load 0x3,0x6 03a7 4802 |H | Short_Literal 0x2 03a8 e26b | k | Load 0x1,0x6b 03a9 171e | | Execute Task,Entry_Call,Field_Number 0x1e 03aa c604 | | Store 0x3,0x4 03ab e604 | | Load 0x3,0x4 03ac e01e | | Load 0x0,0x1e 03ad 027e | ~ | Execute Discrete,Not_Equal 03ae 6813 |h | Jump_Zero 0x3c2 03af e406 | | Load 0x2,0x6 03b0 e604 | | Load 0x3,0x4 03b1 4802 |H | Short_Literal 0x2 03b2 827f | | Call 0x1,0x7f 03b3 e405 | | Load 0x2,0x5 03b4 827d | } | Call 0x1,0x7d 03b5 00cc | | Action Pop_Block 03b6 7ddd |} | Jump 0x194 03b7 e406 | | Load 0x2,0x6 03b8 e606 | | Load 0x3,0x6 03b9 e24e | N | Load 0x1,0x4e 03ba 01d5 | | Execute Vector,Field_Reference 03bb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 03bc 4802 |H | Short_Literal 0x2 03bd 827f | | Call 0x1,0x7f 03be e405 | | Load 0x2,0x5 03bf 827d | } | Call 0x1,0x7d 03c0 00cc | | Action Pop_Block 03c1 7dd2 |} | Jump 0x194 03c2 3fb3 |? | Loop_Increasing 0x376 03c3 e253 | S | Load 0x1,0x53 03c4 4801 |H | Short_Literal 0x1 03c5 0263 | c | Execute Discrete,Above_Bound 03c6 7049 |pI | Jump_Nonzero 0x410 03c7 e606 | | Load 0x3,0x6 03c8 e252 | R | Load 0x1,0x52 03c9 01d5 | | Execute Vector,Field_Reference 03ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 03cb e406 | | Load 0x2,0x6 03cc 027f | | Execute Discrete,Equal 03cd 6841 |hA | Jump_Zero 0x40f 03ce e405 | | Load 0x2,0x5 03cf e606 | | Load 0x3,0x6 03d0 e252 | R | Load 0x1,0x52 03d1 01d5 | | Execute Vector,Field_Reference 03d2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 03d3 027f | | Execute Discrete,Equal 03d4 683a |h: | Jump_Zero 0x40f 03d5 e603 | | Load 0x3,0x3 03d6 700e |p | Jump_Nonzero 0x3e5 03d7 e606 | | Load 0x3,0x6 03d8 e252 | R | Load 0x1,0x52 03d9 01d5 | | Execute Vector,Field_Reference 03da 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 03db e05c | \ | Load 0x0,0x5c 03dc 017e | ~ | Execute Record,Not_Equal 03dd 6807 |h | Jump_Zero 0x3e5 03de e602 | | Load 0x3,0x2 03df e406 | | Load 0x2,0x6 03e0 4802 |H | Short_Literal 0x2 03e1 8280 | | Call 0x1,0x80 03e2 00d1 | | Pop_Control Pop_Count_1 03e3 4801 |H | Short_Literal 0x1 03e4 a603 | | Store_Unchecked 0x3,0x3 03e5 e606 | | Load 0x3,0x6 03e6 e252 | R | Load 0x1,0x52 03e7 01d5 | | Execute Vector,Field_Reference 03e8 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 03e9 e05c | \ | Load 0x0,0x5c 03ea 017f | | Execute Record,Equal 03eb 7007 |p | Jump_Nonzero 0x3f3 03ec e602 | | Load 0x3,0x2 03ed e606 | | Load 0x3,0x6 03ee e252 | R | Load 0x1,0x52 03ef 01d5 | | Execute Vector,Field_Reference 03f0 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 03f1 8278 | x | Call 0x1,0x78 03f2 681c |h | Jump_Zero 0x40f 03f3 e606 | | Load 0x3,0x6 03f4 e252 | R | Load 0x1,0x52 03f5 01d5 | | Execute Vector,Field_Reference 03f6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 03f7 0f01 | | Execute_Immediate Equal,0x1 03f8 680d |h | Jump_Zero 0x406 03f9 e606 | | Load 0x3,0x6 03fa e252 | R | Load 0x1,0x52 03fb 01d5 | | Execute Vector,Field_Reference 03fc 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 03fd a604 | | Store_Unchecked 0x3,0x4 03fe e406 | | Load 0x2,0x6 03ff e604 | | Load 0x3,0x4 0400 4802 |H | Short_Literal 0x2 0401 827f | | Call 0x1,0x7f 0402 e405 | | Load 0x2,0x5 0403 827d | } | Call 0x1,0x7d 0404 00cc | | Action Pop_Block 0405 7d8e |} | Jump 0x194 0406 e606 | | Load 0x3,0x6 0407 e252 | R | Load 0x1,0x52 0408 01d5 | | Execute Vector,Field_Reference 0409 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 040a 0aff | | Execute_Immediate Plus,-0x1 040b e606 | | Load 0x3,0x6 040c e252 | R | Load 0x1,0x52 040d 01d5 | | Execute Vector,Field_Reference 040e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 040f 3fb7 |? | Loop_Increasing 0x3c7 0410 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0411 0000 0000 | | .BLANK 0000[0x7] 0418 ; -------------------------------------------------------------------------------------- 0418 ; SUBPROGRAM 0418 ; -------------------------------------------------------------------------------------- 0418 0422 | " | .CONST 0x0422 ; Address of begin 0419 0004 | | .CONST 0x0004 ; Address of exception handler 041a 0006 | | .CONST 0x0006 ; Number of locals 041b INIT_0418: 041b 00e5 | | Load_Encached Long_Integer_Cache 041c e417 | | Load 0x2,0x17 041d e25c | \ | Load 0x1,0x5c 041e 01d5 | | Execute Vector,Field_Reference 041f 00e5 | | Load_Encached Long_Integer_Cache 0420 00e5 | | Load_Encached Long_Integer_Cache 0421 00e5 | | Load_Encached Long_Integer_Cache 0422 BODY_0418: 0422 e603 | | Load 0x3,0x3 0423 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0424 e027 | ' | Load 0x0,0x27 0425 027f | | Execute Discrete,Equal 0426 6803 |h | Jump_Zero 0x42a 0427 e406 | | Load 0x2,0x6 0428 8071 | q | Call 0x0,0x71 0429 6812 |h | Jump_Zero 0x43c 042a e603 | | Load 0x3,0x3 042b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 042c e025 | % | Load 0x0,0x25 042d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 042e e406 | | Load 0x2,0x6 042f e025 | % | Load 0x0,0x25 0430 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0431 027a | z | Execute Discrete,Less_Equal 0432 6854 |hT | Jump_Zero 0x487 0433 e406 | | Load 0x2,0x6 0434 e025 | % | Load 0x0,0x25 0435 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0436 e603 | | Load 0x3,0x3 0437 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0438 e025 | % | Load 0x0,0x25 0439 1818 | | Execute Package,Field_Execute,Field_Number 0x18 043a 027a | z | Execute Discrete,Less_Equal 043b 684b |hK | Jump_Zero 0x487 043c e603 | | Load 0x3,0x3 043d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 043e 680c |h | Jump_Zero 0x44b 043f e603 | | Load 0x3,0x3 0440 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0441 0f01 | | Execute_Immediate Equal,0x1 0442 6804 |h | Jump_Zero 0x447 0443 e406 | | Load 0x2,0x6 0444 e076 | v | Load 0x0,0x76 0445 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0446 7004 |p | Jump_Nonzero 0x44b 0447 e603 | | Load 0x3,0x3 0448 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0449 0f09 | | Execute_Immediate Equal,0x9 044a 683c |h< | Jump_Zero 0x487 044b e264 | d | Load 0x1,0x64 044c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 044d 0258 | X | Execute Discrete,Test_And_Set_Next 044e c602 | | Store 0x3,0x2 044f e070 | p | Load 0x0,0x70 0450 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0451 e602 | | Load 0x3,0x2 0452 4be8 |K | Short_Literal 0x3e8 0453 026e | n | Execute Discrete,Modulo 0454 0a01 | | Execute_Immediate Plus,0x1 0455 a602 | | Store_Unchecked 0x3,0x2 0456 e606 | | Load 0x3,0x6 0457 e602 | | Load 0x3,0x2 0458 e263 | c | Load 0x1,0x63 0459 01d5 | | Execute Vector,Field_Reference 045a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 045b e603 | | Load 0x3,0x3 045c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 045d 0f09 | | Execute_Immediate Equal,0x9 045e 6806 |h | Jump_Zero 0x465 045f 4805 |H | Short_Literal 0x5 0460 e602 | | Load 0x3,0x2 0461 e263 | c | Load 0x1,0x63 0462 01d5 | | Execute Vector,Field_Reference 0463 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0464 780e |x | Jump 0x473 0465 e603 | | Load 0x3,0x3 0466 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0467 7006 |p | Jump_Nonzero 0x46e 0468 4801 |H | Short_Literal 0x1 0469 e602 | | Load 0x3,0x2 046a e263 | c | Load 0x1,0x63 046b 01d5 | | Execute Vector,Field_Reference 046c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 046d 7805 |x | Jump 0x473 046e 4800 |H | Short_Literal 0x0 046f e602 | | Load 0x3,0x2 0470 e263 | c | Load 0x1,0x63 0471 01d5 | | Execute Vector,Field_Reference 0472 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0473 e405 | | Load 0x2,0x5 0474 800a | | Call 0x0,0xa 0475 e602 | | Load 0x3,0x2 0476 e263 | c | Load 0x1,0x63 0477 01d5 | | Execute Vector,Field_Reference 0478 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0479 e406 | | Load 0x2,0x6 047a 8077 | w | Call 0x0,0x77 047b e602 | | Load 0x3,0x2 047c e263 | c | Load 0x1,0x63 047d 01d5 | | Execute Vector,Field_Reference 047e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 047f e404 | | Load 0x2,0x4 0480 e004 | | Load 0x0,0x4 0481 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0482 0afe | | Execute_Immediate Plus,-0x2 0483 e602 | | Load 0x3,0x2 0484 e263 | c | Load 0x1,0x63 0485 01d5 | | Execute Vector,Field_Reference 0486 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0487 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 0494 | | .CONST 0x0494 ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0004 | | .CONST 0x0004 ; Number of locals 048b INIT_0488: 048b e005 | | Load 0x0,0x5 048c 0322 | " | Declare_Variable Record 048d e602 | | Load 0x3,0x2 048e 1c00 | | Execute_Immediate Run_Utility,0x0 048f 00e2 | | Load_Encached Integer_Cache 0490 e249 | I | Load 0x1,0x49 0491 0322 | " | Declare_Variable Record 0492 e604 | | Load 0x3,0x4 0493 1c00 | | Execute_Immediate Run_Utility,0x0 0494 BODY_0488: 0494 e602 | | Load 0x3,0x2 0495 e406 | | Load 0x2,0x6 0496 4802 |H | Short_Literal 0x2 0497 8280 | | Call 0x1,0x80 0498 00d1 | | Pop_Control Pop_Count_1 0499 e24f | O | Load 0x1,0x4f 049a e417 | | Load 0x2,0x17 049b 0263 | c | Execute Discrete,Above_Bound 049c 7037 |p7 | Jump_Nonzero 0x4d4 049d e606 | | Load 0x3,0x6 049e e24c | L | Load 0x1,0x4c 049f 01d7 | | Execute Vector,Field_Read 04a0 e406 | | Load 0x2,0x6 04a1 027f | | Execute Discrete,Equal 04a2 6830 |h0 | Jump_Zero 0x4d3 04a3 e602 | | Load 0x3,0x2 04a4 e606 | | Load 0x3,0x6 04a5 e24e | N | Load 0x1,0x4e 04a6 01d5 | | Execute Vector,Field_Reference 04a7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 04a8 8278 | x | Call 0x1,0x78 04a9 6829 |h) | Jump_Zero 0x4d3 04aa e606 | | Load 0x3,0x6 04ab e24e | N | Load 0x1,0x4e 04ac 01d5 | | Execute Vector,Field_Reference 04ad e604 | | Load 0x3,0x4 04ae 017d | } | Execute Record,Structure_Write 04af e604 | | Load 0x3,0x4 04b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04b1 0e01 | | Execute_Immediate Not_Equal,0x1 04b2 7003 |p | Jump_Nonzero 0x4b6 04b3 e604 | | Load 0x3,0x4 04b4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04b5 6813 |h | Jump_Zero 0x4c9 04b6 00e2 | | Load_Encached Integer_Cache 04b7 e606 | | Load 0x3,0x6 04b8 4802 |H | Short_Literal 0x2 04b9 e26b | k | Load 0x1,0x6b 04ba 171e | | Execute Task,Entry_Call,Field_Number 0x1e 04bb c603 | | Store 0x3,0x3 04bc e603 | | Load 0x3,0x3 04bd e01e | | Load 0x0,0x1e 04be 027e | ~ | Execute Discrete,Not_Equal 04bf 6813 |h | Jump_Zero 0x4d3 04c0 e406 | | Load 0x2,0x6 04c1 e603 | | Load 0x3,0x3 04c2 4802 |H | Short_Literal 0x2 04c3 827f | | Call 0x1,0x7f 04c4 e405 | | Load 0x2,0x5 04c5 827d | } | Call 0x1,0x7d 04c6 00cc | | Action Pop_Block 04c7 00d2 | | Pop_Control Pop_Count_2 04c8 7ccb || | Jump 0x194 04c9 e406 | | Load 0x2,0x6 04ca e604 | | Load 0x3,0x4 04cb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04cc 4802 |H | Short_Literal 0x2 04cd 827f | | Call 0x1,0x7f 04ce e405 | | Load 0x2,0x5 04cf 827d | } | Call 0x1,0x7d 04d0 00cc | | Action Pop_Block 04d1 00d2 | | Pop_Control Pop_Count_2 04d2 7cc1 || | Jump 0x194 04d3 3fc9 |? | Loop_Increasing 0x49d 04d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04d5 0000 0000 | | .XXX[0x3] 04d7 0000 | | 04d8 ; -------------------------------------------------------------------------------------- 04d8 ; SUBPROGRAM 04d8 ; -------------------------------------------------------------------------------------- 04d8 04dc | | .CONST 0x04dc ; Address of begin 04d9 0004 | | .CONST 0x0004 ; Address of exception handler 04da 0002 | | .CONST 0x0002 ; Number of locals 04db INIT_04d8: 04db 00e2 | | Load_Encached Integer_Cache 04dc BODY_04d8: 04dc 00e2 | | Load_Encached Integer_Cache 04dd e417 | | Load 0x2,0x17 04de 4802 |H | Short_Literal 0x2 04df e26b | k | Load 0x1,0x6b 04e0 171e | | Execute Task,Entry_Call,Field_Number 0x1e 04e1 c602 | | Store 0x3,0x2 04e2 e602 | | Load 0x3,0x2 04e3 e01e | | Load 0x0,0x1e 04e4 027e | ~ | Execute Discrete,Not_Equal 04e5 6809 |h | Jump_Zero 0x4ef 04e6 e406 | | Load 0x2,0x6 04e7 e602 | | Load 0x3,0x2 04e8 4802 |H | Short_Literal 0x2 04e9 827f | | Call 0x1,0x7f 04ea e405 | | Load 0x2,0x5 04eb 827d | } | Call 0x1,0x7d 04ec 00cc | | Action Pop_Block 04ed 00d2 | | Pop_Control Pop_Count_2 04ee 7ca5 || | Jump 0x194 04ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04f0 ; -------------------------------------------------------------------------------------- 04f0 ; SUBPROGRAM 04f0 ; -------------------------------------------------------------------------------------- 04f0 04fa | | .CONST 0x04fa ; Address of begin 04f1 0004 | | .CONST 0x0004 ; Address of exception handler 04f2 0006 | | .CONST 0x0006 ; Number of locals 04f3 INIT_04f0: 04f3 00e5 | | Load_Encached Long_Integer_Cache 04f4 e417 | | Load 0x2,0x17 04f5 e25c | \ | Load 0x1,0x5c 04f6 01d5 | | Execute Vector,Field_Reference 04f7 00e5 | | Load_Encached Long_Integer_Cache 04f8 00e5 | | Load_Encached Long_Integer_Cache 04f9 00e5 | | Load_Encached Long_Integer_Cache 04fa BODY_04f0: 04fa e603 | | Load 0x3,0x3 04fb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04fc e027 | ' | Load 0x0,0x27 04fd 027f | | Execute Discrete,Equal 04fe 6803 |h | Jump_Zero 0x502 04ff e406 | | Load 0x2,0x6 0500 8071 | q | Call 0x0,0x71 0501 6812 |h | Jump_Zero 0x514 0502 e603 | | Load 0x3,0x3 0503 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0504 e025 | % | Load 0x0,0x25 0505 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0506 e406 | | Load 0x2,0x6 0507 e025 | % | Load 0x0,0x25 0508 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0509 027a | z | Execute Discrete,Less_Equal 050a 6854 |hT | Jump_Zero 0x55f 050b e406 | | Load 0x2,0x6 050c e025 | % | Load 0x0,0x25 050d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 050e e603 | | Load 0x3,0x3 050f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0510 e025 | % | Load 0x0,0x25 0511 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0512 027a | z | Execute Discrete,Less_Equal 0513 684b |hK | Jump_Zero 0x55f 0514 e603 | | Load 0x3,0x3 0515 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0516 680c |h | Jump_Zero 0x523 0517 e603 | | Load 0x3,0x3 0518 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0519 0f01 | | Execute_Immediate Equal,0x1 051a 6804 |h | Jump_Zero 0x51f 051b e406 | | Load 0x2,0x6 051c e076 | v | Load 0x0,0x76 051d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 051e 7004 |p | Jump_Nonzero 0x523 051f e603 | | Load 0x3,0x3 0520 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0521 0f09 | | Execute_Immediate Equal,0x9 0522 683c |h< | Jump_Zero 0x55f 0523 e264 | d | Load 0x1,0x64 0524 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0525 0258 | X | Execute Discrete,Test_And_Set_Next 0526 c602 | | Store 0x3,0x2 0527 e070 | p | Load 0x0,0x70 0528 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0529 e602 | | Load 0x3,0x2 052a 4be8 |K | Short_Literal 0x3e8 052b 026e | n | Execute Discrete,Modulo 052c 0a01 | | Execute_Immediate Plus,0x1 052d a602 | | Store_Unchecked 0x3,0x2 052e e606 | | Load 0x3,0x6 052f e602 | | Load 0x3,0x2 0530 e263 | c | Load 0x1,0x63 0531 01d5 | | Execute Vector,Field_Reference 0532 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0533 e603 | | Load 0x3,0x3 0534 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0535 0f09 | | Execute_Immediate Equal,0x9 0536 6806 |h | Jump_Zero 0x53d 0537 4805 |H | Short_Literal 0x5 0538 e602 | | Load 0x3,0x2 0539 e263 | c | Load 0x1,0x63 053a 01d5 | | Execute Vector,Field_Reference 053b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 053c 780e |x | Jump 0x54b 053d e603 | | Load 0x3,0x3 053e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 053f 7006 |p | Jump_Nonzero 0x546 0540 4801 |H | Short_Literal 0x1 0541 e602 | | Load 0x3,0x2 0542 e263 | c | Load 0x1,0x63 0543 01d5 | | Execute Vector,Field_Reference 0544 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0545 7805 |x | Jump 0x54b 0546 4800 |H | Short_Literal 0x0 0547 e602 | | Load 0x3,0x2 0548 e263 | c | Load 0x1,0x63 0549 01d5 | | Execute Vector,Field_Reference 054a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 054b e405 | | Load 0x2,0x5 054c 800a | | Call 0x0,0xa 054d e602 | | Load 0x3,0x2 054e e263 | c | Load 0x1,0x63 054f 01d5 | | Execute Vector,Field_Reference 0550 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0551 e406 | | Load 0x2,0x6 0552 8077 | w | Call 0x0,0x77 0553 e602 | | Load 0x3,0x2 0554 e263 | c | Load 0x1,0x63 0555 01d5 | | Execute Vector,Field_Reference 0556 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0557 e404 | | Load 0x2,0x4 0558 e004 | | Load 0x0,0x4 0559 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 055a 0afe | | Execute_Immediate Plus,-0x2 055b e602 | | Load 0x3,0x2 055c e263 | c | Load 0x1,0x63 055d 01d5 | | Execute Vector,Field_Reference 055e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 055f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0560 ; -------------------------------------------------------------------------------------- 0560 ; SUBPROGRAM 0560 ; -------------------------------------------------------------------------------------- 0560 056a | j | .CONST 0x056a ; Address of begin 0561 0004 | | .CONST 0x0004 ; Address of exception handler 0562 0004 | | .CONST 0x0004 ; Number of locals 0563 INIT_0560: 0563 e005 | | Load 0x0,0x5 0564 0322 | " | Declare_Variable Record 0565 e602 | | Load 0x3,0x2 0566 1c00 | | Execute_Immediate Run_Utility,0x0 0567 00e1 | | Load_Encached Boolean_Cache 0568 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0569 00e2 | | Load_Encached Integer_Cache 056a BODY_0560: 056a e24f | O | Load 0x1,0x4f 056b 4801 |H | Short_Literal 0x1 056c 0263 | c | Execute Discrete,Above_Bound 056d 704f |pO | Jump_Nonzero 0x5bd 056e e606 | | Load 0x3,0x6 056f e24c | L | Load 0x1,0x4c 0570 01d7 | | Execute Vector,Field_Read 0571 e406 | | Load 0x2,0x6 0572 027f | | Execute Discrete,Equal 0573 6848 |hH | Jump_Zero 0x5bc 0574 e603 | | Load 0x3,0x3 0575 700e |p | Jump_Nonzero 0x584 0576 e606 | | Load 0x3,0x6 0577 e24e | N | Load 0x1,0x4e 0578 01d5 | | Execute Vector,Field_Reference 0579 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 057a e05c | \ | Load 0x0,0x5c 057b 017e | ~ | Execute Record,Not_Equal 057c 6807 |h | Jump_Zero 0x584 057d e602 | | Load 0x3,0x2 057e e406 | | Load 0x2,0x6 057f 4802 |H | Short_Literal 0x2 0580 8280 | | Call 0x1,0x80 0581 00d1 | | Pop_Control Pop_Count_1 0582 4801 |H | Short_Literal 0x1 0583 a603 | | Store_Unchecked 0x3,0x3 0584 e606 | | Load 0x3,0x6 0585 e24e | N | Load 0x1,0x4e 0586 01d5 | | Execute Vector,Field_Reference 0587 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0588 e05c | \ | Load 0x0,0x5c 0589 017f | | Execute Record,Equal 058a 7007 |p | Jump_Nonzero 0x592 058b e602 | | Load 0x3,0x2 058c e606 | | Load 0x3,0x6 058d e24e | N | Load 0x1,0x4e 058e 01d5 | | Execute Vector,Field_Reference 058f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0590 8278 | x | Call 0x1,0x78 0591 682a |h* | Jump_Zero 0x5bc 0592 e606 | | Load 0x3,0x6 0593 e24e | N | Load 0x1,0x4e 0594 01d5 | | Execute Vector,Field_Reference 0595 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0596 0e01 | | Execute_Immediate Not_Equal,0x1 0597 7005 |p | Jump_Nonzero 0x59d 0598 e606 | | Load 0x3,0x6 0599 e24e | N | Load 0x1,0x4e 059a 01d5 | | Execute Vector,Field_Reference 059b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 059c 6813 |h | Jump_Zero 0x5b0 059d 00e2 | | Load_Encached Integer_Cache 059e e606 | | Load 0x3,0x6 059f 4802 |H | Short_Literal 0x2 05a0 e26b | k | Load 0x1,0x6b 05a1 171e | | Execute Task,Entry_Call,Field_Number 0x1e 05a2 c604 | | Store 0x3,0x4 05a3 e604 | | Load 0x3,0x4 05a4 e01e | | Load 0x0,0x1e 05a5 027e | ~ | Execute Discrete,Not_Equal 05a6 6815 |h | Jump_Zero 0x5bc 05a7 e406 | | Load 0x2,0x6 05a8 e604 | | Load 0x3,0x4 05a9 4802 |H | Short_Literal 0x2 05aa 827f | | Call 0x1,0x7f 05ab e405 | | Load 0x2,0x5 05ac 827d | } | Call 0x1,0x7d 05ad 00cc | | Action Pop_Block 05ae 00a7 0194 | | Action Jump_Extended,0x194 05b0 e406 | | Load 0x2,0x6 05b1 e606 | | Load 0x3,0x6 05b2 e24e | N | Load 0x1,0x4e 05b3 01d5 | | Execute Vector,Field_Reference 05b4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 05b5 4802 |H | Short_Literal 0x2 05b6 827f | | Call 0x1,0x7f 05b7 e405 | | Load 0x2,0x5 05b8 827d | } | Call 0x1,0x7d 05b9 00cc | | Action Pop_Block 05ba 00a7 0194 | | Action Jump_Extended,0x194 05bc 3fb1 |? | Loop_Increasing 0x56e 05bd e253 | S | Load 0x1,0x53 05be 4801 |H | Short_Literal 0x1 05bf 0263 | c | Execute Discrete,Above_Bound 05c0 704a |pJ | Jump_Nonzero 0x60b 05c1 e606 | | Load 0x3,0x6 05c2 e252 | R | Load 0x1,0x52 05c3 01d5 | | Execute Vector,Field_Reference 05c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05c5 e406 | | Load 0x2,0x6 05c6 027f | | Execute Discrete,Equal 05c7 6842 |hB | Jump_Zero 0x60a 05c8 e405 | | Load 0x2,0x5 05c9 e606 | | Load 0x3,0x6 05ca e252 | R | Load 0x1,0x52 05cb 01d5 | | Execute Vector,Field_Reference 05cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05cd 027f | | Execute Discrete,Equal 05ce 683b |h; | Jump_Zero 0x60a 05cf e603 | | Load 0x3,0x3 05d0 700e |p | Jump_Nonzero 0x5df 05d1 e606 | | Load 0x3,0x6 05d2 e252 | R | Load 0x1,0x52 05d3 01d5 | | Execute Vector,Field_Reference 05d4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 05d5 e05c | \ | Load 0x0,0x5c 05d6 017e | ~ | Execute Record,Not_Equal 05d7 6807 |h | Jump_Zero 0x5df 05d8 e602 | | Load 0x3,0x2 05d9 e406 | | Load 0x2,0x6 05da 4802 |H | Short_Literal 0x2 05db 8280 | | Call 0x1,0x80 05dc 00d1 | | Pop_Control Pop_Count_1 05dd 4801 |H | Short_Literal 0x1 05de a603 | | Store_Unchecked 0x3,0x3 05df e606 | | Load 0x3,0x6 05e0 e252 | R | Load 0x1,0x52 05e1 01d5 | | Execute Vector,Field_Reference 05e2 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 05e3 e05c | \ | Load 0x0,0x5c 05e4 017f | | Execute Record,Equal 05e5 7007 |p | Jump_Nonzero 0x5ed 05e6 e602 | | Load 0x3,0x2 05e7 e606 | | Load 0x3,0x6 05e8 e252 | R | Load 0x1,0x52 05e9 01d5 | | Execute Vector,Field_Reference 05ea 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 05eb 8278 | x | Call 0x1,0x78 05ec 681d |h | Jump_Zero 0x60a 05ed e606 | | Load 0x3,0x6 05ee e252 | R | Load 0x1,0x52 05ef 01d5 | | Execute Vector,Field_Reference 05f0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05f1 0f01 | | Execute_Immediate Equal,0x1 05f2 680e |h | Jump_Zero 0x601 05f3 e606 | | Load 0x3,0x6 05f4 e252 | R | Load 0x1,0x52 05f5 01d5 | | Execute Vector,Field_Reference 05f6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05f7 a604 | | Store_Unchecked 0x3,0x4 05f8 e406 | | Load 0x2,0x6 05f9 e604 | | Load 0x3,0x4 05fa 4802 |H | Short_Literal 0x2 05fb 827f | | Call 0x1,0x7f 05fc e405 | | Load 0x2,0x5 05fd 827d | } | Call 0x1,0x7d 05fe 00cc | | Action Pop_Block 05ff 00a7 0194 | | Action Jump_Extended,0x194 0601 e606 | | Load 0x3,0x6 0602 e252 | R | Load 0x1,0x52 0603 01d5 | | Execute Vector,Field_Reference 0604 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0605 0aff | | Execute_Immediate Plus,-0x1 0606 e606 | | Load 0x3,0x6 0607 e252 | R | Load 0x1,0x52 0608 01d5 | | Execute Vector,Field_Reference 0609 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 060a 3fb6 |? | Loop_Increasing 0x5c1 060b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 060c 0000 0000 | | .BLANK 0000[0x4] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 0615 | | .CONST 0x0615 ; Address of begin 0611 0004 | | .CONST 0x0004 ; Address of exception handler 0612 0002 | | .CONST 0x0002 ; Number of locals 0613 INIT_0610: 0613 e004 | | Load 0x0,0x4 0614 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0615 BODY_0610: 0615 e405 | | Load 0x2,0x5 0616 8078 | x | Call 0x0,0x78 0617 a602 | | Store_Unchecked 0x3,0x2 0618 e602 | | Load 0x3,0x2 0619 4802 |H | Short_Literal 0x2 061a 4802 |H | Short_Literal 0x2 061b 0099 | | Action Reference_Dynamic 061c 006a | j | Action Alter_Break_Mask 061d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 061e 0000 0000 | | .XXX[0x2] 0620 ; -------------------------------------------------------------------------------------- 0620 ; SUBPROGRAM 0620 ; -------------------------------------------------------------------------------------- 0620 062a | * | .CONST 0x062a ; Address of begin 0621 0661 | a | .CONST 0x0661 ; Address of exception handler 0622 0005 | | .CONST 0x0005 ; Number of locals 0623 INIT_0620: 0623 00e3 | | Load_Encached Natural_Cache 0624 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0625 00e5 | | Load_Encached Long_Integer_Cache 0626 00e3 | | Load_Encached Natural_Cache 0627 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0628 029f 0723 | #| Declare_Subprogram INIT_0720,For_Call 062a BODY_0620: 062a e604 | | Load 0x3,0x4 062b e24f | O | Load 0x1,0x4f 062c 027d | } | Execute Discrete,Greater 062d 7010 |p | Jump_Nonzero 0x63e 062e e604 | | Load 0x3,0x4 062f e24c | L | Load 0x1,0x4c 0630 01d7 | | Execute Vector,Field_Read 0631 a603 | | Store_Unchecked 0x3,0x3 0632 e603 | | Load 0x3,0x3 0633 e027 | ' | Load 0x0,0x27 0634 027f | | Execute Discrete,Equal 0635 7004 |p | Jump_Nonzero 0x63a 0636 e603 | | Load 0x3,0x3 0637 e602 | | Load 0x3,0x2 0638 0a01 | | Execute_Immediate Plus,0x1 0639 c602 | | Store 0x3,0x2 063a e604 | | Load 0x3,0x4 063b 0a01 | | Execute_Immediate Plus,0x1 063c c604 | | Store 0x3,0x4 063d 7fec | | Jump BODY_0620 063e 4801 |H | Short_Literal 0x1 063f a604 | | Store_Unchecked 0x3,0x4 0640 e604 | | Load 0x3,0x4 0641 e253 | S | Load 0x1,0x53 0642 027d | } | Execute Discrete,Greater 0643 7018 |p | Jump_Nonzero 0x65c 0644 e604 | | Load 0x3,0x4 0645 e252 | R | Load 0x1,0x52 0646 01d5 | | Execute Vector,Field_Reference 0647 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0648 a603 | | Store_Unchecked 0x3,0x3 0649 e603 | | Load 0x3,0x3 064a e027 | ' | Load 0x0,0x27 064b 027f | | Execute Discrete,Equal 064c 700b |p | Jump_Nonzero 0x658 064d e604 | | Load 0x3,0x4 064e e252 | R | Load 0x1,0x52 064f 01d5 | | Execute Vector,Field_Reference 0650 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0651 e405 | | Load 0x2,0x5 0652 027f | | Execute Discrete,Equal 0653 6804 |h | Jump_Zero 0x658 0654 e603 | | Load 0x3,0x3 0655 e602 | | Load 0x3,0x2 0656 0a01 | | Execute_Immediate Plus,0x1 0657 c602 | | Store 0x3,0x2 0658 e604 | | Load 0x3,0x4 0659 0a01 | | Execute_Immediate Plus,0x1 065a c604 | | Store 0x3,0x4 065b 7fe4 | | Jump 0x640 065c e602 | | Load 0x3,0x2 065d e404 | | Load 0x2,0x4 065e e070 | p | Load 0x0,0x70 065f 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0660 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0661 TRAP_0620: 0661 e23d | = | Load 0x1,0x3d 0662 0a01 | | Execute_Immediate Plus,0x1 0663 a23d | = | Store_Unchecked 0x1,0x3d 0664 8605 | | Call 0x3,0x5 0665 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0666 0000 0000 | | .XXX[0x2] 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066b | k | .CONST 0x066b ; Address of begin 0669 0674 | t | .CONST 0x0674 ; Address of exception handler 066a 0001 | | .CONST 0x0001 ; Number of locals 066b BODY_0668: 066b INIT_0668: 066b e23e | > | Load 0x1,0x3e 066c 6806 |h | Jump_Zero 0x673 066d 0092 072d | -| Action Push_String_Extended,0x72d ; "Hardware_Break_Handler: exception: " 066f e03a | : | Load 0x0,0x3a 0670 180d | | Execute Package,Field_Execute,Field_Number 0xd 0671 01cc | | Execute Vector,Catenate 0672 803b | ; | Call 0x0,0x3b 0673 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0674 TRAP_0668: 0674 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0675 0000 0000 | | .XXX[0x3] 0677 0000 | | 0678 ; -------------------------------------------------------------------------------------- 0678 ; SUBPROGRAM 0678 ; -------------------------------------------------------------------------------------- 0678 067f | | .CONST 0x067f ; Address of begin 0679 0004 | | .CONST 0x0004 ; Address of exception handler 067a 0005 | | .CONST 0x0005 ; Number of locals 067b INIT_0678: 067b 00e5 | | Load_Encached Long_Integer_Cache 067c 00e5 | | Load_Encached Long_Integer_Cache 067d 00e5 | | Load_Encached Long_Integer_Cache 067e 00e5 | | Load_Encached Long_Integer_Cache 067f BODY_0678: 067f e264 | d | Load 0x1,0x64 0680 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0681 0258 | X | Execute Discrete,Test_And_Set_Next 0682 c802 | | Store 0x4,0x2 0683 e070 | p | Load 0x0,0x70 0684 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0685 e802 | | Load 0x4,0x2 0686 4be8 |K | Short_Literal 0x3e8 0687 026e | n | Execute Discrete,Modulo 0688 0a01 | | Execute_Immediate Plus,0x1 0689 a802 | | Store_Unchecked 0x4,0x2 068a e805 | | Load 0x4,0x5 068b e802 | | Load 0x4,0x2 068c e263 | c | Load 0x1,0x63 068d 01d5 | | Execute Vector,Field_Reference 068e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 068f 4806 |H | Short_Literal 0x6 0690 e802 | | Load 0x4,0x2 0691 e263 | c | Load 0x1,0x63 0692 01d5 | | Execute Vector,Field_Reference 0693 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0694 e405 | | Load 0x2,0x5 0695 800a | | Call 0x0,0xa 0696 e802 | | Load 0x4,0x2 0697 e263 | c | Load 0x1,0x63 0698 01d5 | | Execute Vector,Field_Reference 0699 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 069a e603 | | Load 0x3,0x3 069b 8077 | w | Call 0x0,0x77 069c e802 | | Load 0x4,0x2 069d e263 | c | Load 0x1,0x63 069e 01d5 | | Execute Vector,Field_Reference 069f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 06a0 e604 | | Load 0x3,0x4 06a1 8059 | Y | Call 0x0,0x59 06a2 e802 | | Load 0x4,0x2 06a3 e263 | c | Load 0x1,0x63 06a4 01d5 | | Execute Vector,Field_Reference 06a5 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 06a6 e404 | | Load 0x2,0x4 06a7 e004 | | Load 0x0,0x4 06a8 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 06a9 0afd | | Execute_Immediate Plus,-0x3 06aa e802 | | Load 0x4,0x2 06ab e263 | c | Load 0x1,0x63 06ac 01d5 | | Execute Vector,Field_Reference 06ad 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 06ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06af 0000 | | .XXX[0x1] 06b0 ; -------------------------------------------------------------------------------------- 06b0 ; SUBPROGRAM 06b0 ; -------------------------------------------------------------------------------------- 06b0 06b7 | | .CONST 0x06b7 ; Address of begin 06b1 0004 | | .CONST 0x0004 ; Address of exception handler 06b2 0005 | | .CONST 0x0005 ; Number of locals 06b3 INIT_06b0: 06b3 00e5 | | Load_Encached Long_Integer_Cache 06b4 00e5 | | Load_Encached Long_Integer_Cache 06b5 00e5 | | Load_Encached Long_Integer_Cache 06b6 00e5 | | Load_Encached Long_Integer_Cache 06b7 BODY_06b0: 06b7 e264 | d | Load 0x1,0x64 06b8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06b9 0258 | X | Execute Discrete,Test_And_Set_Next 06ba c802 | | Store 0x4,0x2 06bb e070 | p | Load 0x0,0x70 06bc 1817 | | Execute Package,Field_Execute,Field_Number 0x17 06bd e802 | | Load 0x4,0x2 06be 4be8 |K | Short_Literal 0x3e8 06bf 026e | n | Execute Discrete,Modulo 06c0 0a01 | | Execute_Immediate Plus,0x1 06c1 a802 | | Store_Unchecked 0x4,0x2 06c2 e805 | | Load 0x4,0x5 06c3 e802 | | Load 0x4,0x2 06c4 e263 | c | Load 0x1,0x63 06c5 01d5 | | Execute Vector,Field_Reference 06c6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06c7 4806 |H | Short_Literal 0x6 06c8 e802 | | Load 0x4,0x2 06c9 e263 | c | Load 0x1,0x63 06ca 01d5 | | Execute Vector,Field_Reference 06cb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06cc e405 | | Load 0x2,0x5 06cd 800a | | Call 0x0,0xa 06ce e802 | | Load 0x4,0x2 06cf e263 | c | Load 0x1,0x63 06d0 01d5 | | Execute Vector,Field_Reference 06d1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 06d2 e406 | | Load 0x2,0x6 06d3 8077 | w | Call 0x0,0x77 06d4 e802 | | Load 0x4,0x2 06d5 e263 | c | Load 0x1,0x63 06d6 01d5 | | Execute Vector,Field_Reference 06d7 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 06d8 e604 | | Load 0x3,0x4 06d9 8059 | Y | Call 0x0,0x59 06da e802 | | Load 0x4,0x2 06db e263 | c | Load 0x1,0x63 06dc 01d5 | | Execute Vector,Field_Reference 06dd 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 06de e404 | | Load 0x2,0x4 06df e004 | | Load 0x0,0x4 06e0 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 06e1 0afd | | Execute_Immediate Plus,-0x3 06e2 e802 | | Load 0x4,0x2 06e3 e263 | c | Load 0x1,0x63 06e4 01d5 | | Execute Vector,Field_Reference 06e5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 06e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06e7 0000 | | .XXX[0x1] 06e8 ; -------------------------------------------------------------------------------------- 06e8 ; SUBPROGRAM 06e8 ; -------------------------------------------------------------------------------------- 06e8 06ef | | .CONST 0x06ef ; Address of begin 06e9 0004 | | .CONST 0x0004 ; Address of exception handler 06ea 0005 | | .CONST 0x0005 ; Number of locals 06eb INIT_06e8: 06eb 00e5 | | Load_Encached Long_Integer_Cache 06ec 00e5 | | Load_Encached Long_Integer_Cache 06ed 00e5 | | Load_Encached Long_Integer_Cache 06ee 00e5 | | Load_Encached Long_Integer_Cache 06ef BODY_06e8: 06ef e264 | d | Load 0x1,0x64 06f0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06f1 0258 | X | Execute Discrete,Test_And_Set_Next 06f2 c802 | | Store 0x4,0x2 06f3 e070 | p | Load 0x0,0x70 06f4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 06f5 e802 | | Load 0x4,0x2 06f6 4be8 |K | Short_Literal 0x3e8 06f7 026e | n | Execute Discrete,Modulo 06f8 0a01 | | Execute_Immediate Plus,0x1 06f9 a802 | | Store_Unchecked 0x4,0x2 06fa e805 | | Load 0x4,0x5 06fb e802 | | Load 0x4,0x2 06fc e263 | c | Load 0x1,0x63 06fd 01d5 | | Execute Vector,Field_Reference 06fe 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06ff 4806 |H | Short_Literal 0x6 0700 e802 | | Load 0x4,0x2 0701 e263 | c | Load 0x1,0x63 0702 01d5 | | Execute Vector,Field_Reference 0703 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0704 e405 | | Load 0x2,0x5 0705 800a | | Call 0x0,0xa 0706 e802 | | Load 0x4,0x2 0707 e263 | c | Load 0x1,0x63 0708 01d5 | | Execute Vector,Field_Reference 0709 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 070a e603 | | Load 0x3,0x3 070b 8077 | w | Call 0x0,0x77 070c e802 | | Load 0x4,0x2 070d e263 | c | Load 0x1,0x63 070e 01d5 | | Execute Vector,Field_Reference 070f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0710 e604 | | Load 0x3,0x4 0711 8059 | Y | Call 0x0,0x59 0712 e802 | | Load 0x4,0x2 0713 e263 | c | Load 0x1,0x63 0714 01d5 | | Execute Vector,Field_Reference 0715 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0716 e404 | | Load 0x2,0x4 0717 e004 | | Load 0x0,0x4 0718 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0719 0afd | | Execute_Immediate Plus,-0x3 071a e802 | | Load 0x4,0x2 071b e263 | c | Load 0x1,0x63 071c 01d5 | | Execute Vector,Field_Reference 071d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 071e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 071f 0000 | | .XXX[0x1] 0720 ; -------------------------------------------------------------------------------------- 0720 ; SUBPROGRAM 0720 ; -------------------------------------------------------------------------------------- 0720 0723 | # | .CONST 0x0723 ; Address of begin 0721 072c | , | .CONST 0x072c ; Address of exception handler 0722 0001 | | .CONST 0x0001 ; Number of locals 0723 BODY_0720: 0723 INIT_0720: 0723 e23e | > | Load 0x1,0x3e 0724 6806 |h | Jump_Zero 0x72b 0725 0092 072e | .| Action Push_String_Extended,0x72e ; "Hardware_Break_Handler load_accelerator: exception: " 0727 e03a | : | Load 0x0,0x3a 0728 180d | | Execute Package,Field_Execute,Field_Number 0xd 0729 01cc | | Execute Vector,Catenate 072a 803b | ; | Call 0x0,0x3b 072b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 072c TRAP_0720: 072c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 072d ; -------------------------------------------------------------------------------------- 072d ; STRING TABLE 072d ; -------------------------------------------------------------------------------------- 072d 0006 | | .STRTAB 0x0006->0x0730 ; "Hardware_Break_Handler: exception: " 072e 0027 | ' | .STRTAB 0x0027->0x0741 ; "Hardware_Break_Handler load_accelerator: exception: " 072f 0059 | Y | .STREND 0x0059->0x075b 0730 4861 7264 |Hard| .STRTAB_STRINGS 075c 0000 0000 | | .BLANK 0000[0xa4]