|
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_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 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 0483 | | Declare_Subprogram INIT_0480,For_Call 0029 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call 002b 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call 002d 029f 0553 | S| Declare_Subprogram INIT_0550,For_Call 002f 029f 0603 | | Declare_Subprogram INIT_0600,For_Call 0031 029f 0613 | | Declare_Subprogram INIT_0610,For_Call 0033 029f 065b | [| Declare_Subprogram INIT_0658,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 827a | z | Call 0x1,0x7a 008f e405 | | Load 0x2,0x5 0090 8278 | x | Call 0x1,0x78 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 827a | z | Call 0x1,0x7a 00da e405 | | Load 0x2,0x5 00db 8278 | x | Call 0x1,0x78 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 827a | z | Call 0x1,0x7a 00e8 e405 | | Load 0x2,0x5 00e9 8278 | x | Call 0x1,0x78 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 827a | z | Call 0x1,0x7a 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 827a | z | Call 0x1,0x7a 0100 e405 | | Load 0x2,0x5 0101 8278 | x | Call 0x1,0x78 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 827a | z | Call 0x1,0x7a 0111 e405 | | Load 0x2,0x5 0112 8278 | x | Call 0x1,0x78 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 827a | z | Call 0x1,0x7a 013d e405 | | Load 0x2,0x5 013e 8278 | x | Call 0x1,0x78 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 827a | z | Call 0x1,0x7a 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 827a | z | Call 0x1,0x7a 0159 e405 | | Load 0x2,0x5 015a 8278 | x | Call 0x1,0x78 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 827a | z | Call 0x1,0x7a 016a e405 | | Load 0x2,0x5 016b 8278 | x | Call 0x1,0x78 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 e27e | ~ | Load 0x1,0x7e 0176 e27f | | Load 0x1,0x7f 0177 1d80 | | Execute_Immediate Reference_Lex_1,0x80 0178 e281 | | Load 0x1,0x81 0179 1d82 | | Execute_Immediate Reference_Lex_1,0x82 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 827a | z | Call 0x1,0x7a 0180 e405 | | Load 0x2,0x5 0181 8278 | x | Call 0x1,0x78 0182 7811 |x | Jump 0x194 0183 e406 | | Load 0x2,0x6 0184 4801 |H | Short_Literal 0x1 0185 827a | z | Call 0x1,0x7a 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 827a | z | Call 0x1,0x7a 018f e406 | | Load 0x2,0x6 0190 e405 | | Load 0x2,0x5 0191 8279 | y | Call 0x1,0x79 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 066b | k| Declare_Subprogram INIT_0668,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 8271 | q | Call 0x1,0x71 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 827a | z | Call 0x1,0x7a 01cd 8284 | | Call 0x1,0x84 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 827a | z | Call 0x1,0x7a 0204 e603 | | Load 0x3,0x3 0205 e405 | | Load 0x2,0x5 0206 e604 | | Load 0x3,0x4 0207 8274 | t | Call 0x1,0x74 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 827a | z | Call 0x1,0x7a 0221 e405 | | Load 0x2,0x5 0222 8277 | w | Call 0x1,0x77 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 06a3 | | Declare_Subprogram INIT_06a0,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 8271 | q | Call 0x1,0x71 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 827a | z | Call 0x1,0x7a 0245 8284 | | Call 0x1,0x84 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 827a | z | Call 0x1,0x7a 0265 e406 | | Load 0x2,0x6 0266 e405 | | Load 0x2,0x5 0267 e604 | | Load 0x3,0x4 0268 8274 | t | Call 0x1,0x74 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 827a | z | Call 0x1,0x7a 0282 e405 | | Load 0x2,0x5 0283 8277 | w | Call 0x1,0x77 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 06db | | Declare_Subprogram INIT_06d8,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 8271 | q | Call 0x1,0x71 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 827a | z | Call 0x1,0x7a 02a5 8284 | | Call 0x1,0x84 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 827a | z | Call 0x1,0x7a 02de e603 | | Load 0x3,0x3 02df e405 | | Load 0x2,0x5 02e0 e604 | | Load 0x3,0x4 02e1 8274 | t | Call 0x1,0x74 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 827a | z | Call 0x1,0x7a 02fb e405 | | Load 0x2,0x5 02fc 8277 | w | Call 0x1,0x77 02fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02fe 0000 0000 | | .XXX[0x2] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0308 | | .CONST 0x0308 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0003 | | .CONST 0x0003 ; 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 BODY_0300: 0308 e602 | | Load 0x3,0x2 0309 e406 | | Load 0x2,0x6 030a 4802 |H | Short_Literal 0x2 030b 827b | { | Call 0x1,0x7b 030c 00d1 | | Pop_Control Pop_Count_1 030d e24f | O | Load 0x1,0x4f 030e e417 | | Load 0x2,0x17 030f 0263 | c | Execute Discrete,Above_Bound 0310 7038 |p8 | Jump_Nonzero 0x349 0311 e605 | | Load 0x3,0x5 0312 e24c | L | Load 0x1,0x4c 0313 01d7 | | Execute Vector,Field_Read 0314 e406 | | Load 0x2,0x6 0315 027f | | Execute Discrete,Equal 0316 6831 |h1 | Jump_Zero 0x348 0317 e602 | | Load 0x3,0x2 0318 e417 | | Load 0x2,0x17 0319 e24e | N | Load 0x1,0x4e 031a 01d5 | | Execute Vector,Field_Reference 031b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 031c 8273 | s | Call 0x1,0x73 031d 682a |h* | Jump_Zero 0x348 031e e417 | | Load 0x2,0x17 031f e24e | N | Load 0x1,0x4e 0320 01d5 | | Execute Vector,Field_Reference 0321 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0322 0e01 | | Execute_Immediate Not_Equal,0x1 0323 7005 |p | Jump_Nonzero 0x329 0324 e417 | | Load 0x2,0x17 0325 e24e | N | Load 0x1,0x4e 0326 01d5 | | Execute Vector,Field_Reference 0327 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0328 6813 |h | Jump_Zero 0x33c 0329 00e2 | | Load_Encached Integer_Cache 032a e417 | | Load 0x2,0x17 032b 4802 |H | Short_Literal 0x2 032c e26b | k | Load 0x1,0x6b 032d 171e | | Execute Task,Entry_Call,Field_Number 0x1e 032e c603 | | Store 0x3,0x3 032f e603 | | Load 0x3,0x3 0330 e01e | | Load 0x0,0x1e 0331 027e | ~ | Execute Discrete,Not_Equal 0332 6815 |h | Jump_Zero 0x348 0333 e406 | | Load 0x2,0x6 0334 e603 | | Load 0x3,0x3 0335 4802 |H | Short_Literal 0x2 0336 827a | z | Call 0x1,0x7a 0337 e405 | | Load 0x2,0x5 0338 8278 | x | Call 0x1,0x78 0339 00cc | | Action Pop_Block 033a 00d2 | | Pop_Control Pop_Count_2 033b 7e58 |~X | Jump 0x194 033c e406 | | Load 0x2,0x6 033d e417 | | Load 0x2,0x17 033e e24e | N | Load 0x1,0x4e 033f 01d5 | | Execute Vector,Field_Reference 0340 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0341 4802 |H | Short_Literal 0x2 0342 827a | z | Call 0x1,0x7a 0343 e405 | | Load 0x2,0x5 0344 8278 | x | Call 0x1,0x78 0345 00cc | | Action Pop_Block 0346 00d2 | | Pop_Control Pop_Count_2 0347 7e4c |~L | Jump 0x194 0348 3fc8 |? | Loop_Increasing 0x311 0349 4501 |E | Exit_Suprogram New_Top_Offset 0x1 034a 0000 0000 | | .BLANK 0000[0x6] 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 827a | z | Call 0x1,0x7a 0362 e405 | | Load 0x2,0x5 0363 8278 | x | Call 0x1,0x78 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 827b | { | Call 0x1,0x7b 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 8273 | s | Call 0x1,0x73 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 827a | z | Call 0x1,0x7a 03b3 e405 | | Load 0x2,0x5 03b4 8278 | x | Call 0x1,0x78 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 827a | z | Call 0x1,0x7a 03be e405 | | Load 0x2,0x5 03bf 8278 | x | Call 0x1,0x78 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 827b | { | Call 0x1,0x7b 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 8273 | s | Call 0x1,0x73 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 827a | z | Call 0x1,0x7a 0402 e405 | | Load 0x2,0x5 0403 8278 | x | Call 0x1,0x78 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 6846 |hF | Jump_Zero 0x479 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 683d |h= | Jump_Zero 0x479 043c e603 | | Load 0x3,0x3 043d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 043e 6808 |h | Jump_Zero 0x447 043f e603 | | Load 0x3,0x3 0440 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0441 0f01 | | Execute_Immediate Equal,0x1 0442 6836 |h6 | Jump_Zero 0x479 0443 e406 | | Load 0x2,0x6 0444 e076 | v | Load 0x0,0x76 0445 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0446 6832 |h2 | Jump_Zero 0x479 0447 e264 | d | Load 0x1,0x64 0448 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0449 0258 | X | Execute Discrete,Test_And_Set_Next 044a c602 | | Store 0x3,0x2 044b e070 | p | Load 0x0,0x70 044c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 044d e602 | | Load 0x3,0x2 044e 4be8 |K | Short_Literal 0x3e8 044f 026e | n | Execute Discrete,Modulo 0450 0a01 | | Execute_Immediate Plus,0x1 0451 a602 | | Store_Unchecked 0x3,0x2 0452 e606 | | Load 0x3,0x6 0453 e602 | | Load 0x3,0x2 0454 e263 | c | Load 0x1,0x63 0455 01d5 | | Execute Vector,Field_Reference 0456 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0457 e603 | | Load 0x3,0x3 0458 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0459 7006 |p | Jump_Nonzero 0x460 045a 4801 |H | Short_Literal 0x1 045b e602 | | Load 0x3,0x2 045c e263 | c | Load 0x1,0x63 045d 01d5 | | Execute Vector,Field_Reference 045e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 045f 7805 |x | Jump 0x465 0460 4800 |H | Short_Literal 0x0 0461 e602 | | Load 0x3,0x2 0462 e263 | c | Load 0x1,0x63 0463 01d5 | | Execute Vector,Field_Reference 0464 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0465 e405 | | Load 0x2,0x5 0466 800a | | Call 0x0,0xa 0467 e602 | | Load 0x3,0x2 0468 e263 | c | Load 0x1,0x63 0469 01d5 | | Execute Vector,Field_Reference 046a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 046b e406 | | Load 0x2,0x6 046c 8077 | w | Call 0x0,0x77 046d e602 | | Load 0x3,0x2 046e e263 | c | Load 0x1,0x63 046f 01d5 | | Execute Vector,Field_Reference 0470 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0471 e404 | | Load 0x2,0x4 0472 e004 | | Load 0x0,0x4 0473 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0474 0afe | | Execute_Immediate Plus,-0x2 0475 e602 | | Load 0x3,0x2 0476 e263 | c | Load 0x1,0x63 0477 01d5 | | Execute Vector,Field_Reference 0478 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0479 4501 |E | Exit_Suprogram New_Top_Offset 0x1 047a 0000 0000 | | .BLANK 0000[0x6] 0480 ; -------------------------------------------------------------------------------------- 0480 ; SUBPROGRAM 0480 ; -------------------------------------------------------------------------------------- 0480 0488 | | .CONST 0x0488 ; Address of begin 0481 0004 | | .CONST 0x0004 ; Address of exception handler 0482 0003 | | .CONST 0x0003 ; Number of locals 0483 INIT_0480: 0483 e005 | | Load 0x0,0x5 0484 0322 | " | Declare_Variable Record 0485 e602 | | Load 0x3,0x2 0486 1c00 | | Execute_Immediate Run_Utility,0x0 0487 00e2 | | Load_Encached Integer_Cache 0488 BODY_0480: 0488 e602 | | Load 0x3,0x2 0489 e406 | | Load 0x2,0x6 048a 4802 |H | Short_Literal 0x2 048b 827b | { | Call 0x1,0x7b 048c 00d1 | | Pop_Control Pop_Count_1 048d e24f | O | Load 0x1,0x4f 048e e417 | | Load 0x2,0x17 048f 0263 | c | Execute Discrete,Above_Bound 0490 7038 |p8 | Jump_Nonzero 0x4c9 0491 e605 | | Load 0x3,0x5 0492 e24c | L | Load 0x1,0x4c 0493 01d7 | | Execute Vector,Field_Read 0494 e406 | | Load 0x2,0x6 0495 027f | | Execute Discrete,Equal 0496 6831 |h1 | Jump_Zero 0x4c8 0497 e417 | | Load 0x2,0x17 0498 e24e | N | Load 0x1,0x4e 0499 01d5 | | Execute Vector,Field_Reference 049a 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 049b e602 | | Load 0x3,0x2 049c 8273 | s | Call 0x1,0x73 049d 682a |h* | Jump_Zero 0x4c8 049e e417 | | Load 0x2,0x17 049f e24e | N | Load 0x1,0x4e 04a0 01d5 | | Execute Vector,Field_Reference 04a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 04a2 0e01 | | Execute_Immediate Not_Equal,0x1 04a3 7005 |p | Jump_Nonzero 0x4a9 04a4 e417 | | Load 0x2,0x17 04a5 e24e | N | Load 0x1,0x4e 04a6 01d5 | | Execute Vector,Field_Reference 04a7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 04a8 6813 |h | Jump_Zero 0x4bc 04a9 00e2 | | Load_Encached Integer_Cache 04aa e417 | | Load 0x2,0x17 04ab 4802 |H | Short_Literal 0x2 04ac e26b | k | Load 0x1,0x6b 04ad 171e | | Execute Task,Entry_Call,Field_Number 0x1e 04ae c603 | | Store 0x3,0x3 04af e603 | | Load 0x3,0x3 04b0 e01e | | Load 0x0,0x1e 04b1 027e | ~ | Execute Discrete,Not_Equal 04b2 6815 |h | Jump_Zero 0x4c8 04b3 e406 | | Load 0x2,0x6 04b4 e603 | | Load 0x3,0x3 04b5 4802 |H | Short_Literal 0x2 04b6 827a | z | Call 0x1,0x7a 04b7 e405 | | Load 0x2,0x5 04b8 8278 | x | Call 0x1,0x78 04b9 00cc | | Action Pop_Block 04ba 00d2 | | Pop_Control Pop_Count_2 04bb 7cd8 || | Jump 0x194 04bc e406 | | Load 0x2,0x6 04bd e417 | | Load 0x2,0x17 04be e24e | N | Load 0x1,0x4e 04bf 01d5 | | Execute Vector,Field_Reference 04c0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 04c1 4802 |H | Short_Literal 0x2 04c2 827a | z | Call 0x1,0x7a 04c3 e405 | | Load 0x2,0x5 04c4 8278 | x | Call 0x1,0x78 04c5 00cc | | Action Pop_Block 04c6 00d2 | | Pop_Control Pop_Count_2 04c7 7ccc || | Jump 0x194 04c8 3fc8 |? | Loop_Increasing 0x491 04c9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04ca 0000 0000 | | .BLANK 0000[0x6] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04d4 | | .CONST 0x04d4 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0002 | | .CONST 0x0002 ; Number of locals 04d3 INIT_04d0: 04d3 00e2 | | Load_Encached Integer_Cache 04d4 BODY_04d0: 04d4 00e2 | | Load_Encached Integer_Cache 04d5 e417 | | Load 0x2,0x17 04d6 4802 |H | Short_Literal 0x2 04d7 e26b | k | Load 0x1,0x6b 04d8 171e | | Execute Task,Entry_Call,Field_Number 0x1e 04d9 c602 | | Store 0x3,0x2 04da e602 | | Load 0x3,0x2 04db e01e | | Load 0x0,0x1e 04dc 027e | ~ | Execute Discrete,Not_Equal 04dd 6809 |h | Jump_Zero 0x4e7 04de e406 | | Load 0x2,0x6 04df e602 | | Load 0x3,0x2 04e0 4803 |H | Short_Literal 0x3 04e1 827a | z | Call 0x1,0x7a 04e2 e405 | | Load 0x2,0x5 04e3 8278 | x | Call 0x1,0x78 04e4 00cc | | Action Pop_Block 04e5 00d2 | | Pop_Control Pop_Count_2 04e6 7cad || | Jump 0x194 04e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 04e8 ; -------------------------------------------------------------------------------------- 04e8 ; SUBPROGRAM 04e8 ; -------------------------------------------------------------------------------------- 04e8 04f2 | | .CONST 0x04f2 ; Address of begin 04e9 0004 | | .CONST 0x0004 ; Address of exception handler 04ea 0006 | | .CONST 0x0006 ; Number of locals 04eb INIT_04e8: 04eb 00e5 | | Load_Encached Long_Integer_Cache 04ec e417 | | Load 0x2,0x17 04ed e25c | \ | Load 0x1,0x5c 04ee 01d5 | | Execute Vector,Field_Reference 04ef 00e5 | | Load_Encached Long_Integer_Cache 04f0 00e5 | | Load_Encached Long_Integer_Cache 04f1 00e5 | | Load_Encached Long_Integer_Cache 04f2 BODY_04e8: 04f2 e603 | | Load 0x3,0x3 04f3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04f4 e027 | ' | Load 0x0,0x27 04f5 027f | | Execute Discrete,Equal 04f6 6803 |h | Jump_Zero 0x4fa 04f7 e406 | | Load 0x2,0x6 04f8 8071 | q | Call 0x0,0x71 04f9 6812 |h | Jump_Zero 0x50c 04fa e603 | | Load 0x3,0x3 04fb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 04fc e025 | % | Load 0x0,0x25 04fd 1818 | | Execute Package,Field_Execute,Field_Number 0x18 04fe e406 | | Load 0x2,0x6 04ff e025 | % | Load 0x0,0x25 0500 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0501 027a | z | Execute Discrete,Less_Equal 0502 6846 |hF | Jump_Zero 0x549 0503 e406 | | Load 0x2,0x6 0504 e025 | % | Load 0x0,0x25 0505 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0506 e603 | | Load 0x3,0x3 0507 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0508 e025 | % | Load 0x0,0x25 0509 1818 | | Execute Package,Field_Execute,Field_Number 0x18 050a 027a | z | Execute Discrete,Less_Equal 050b 683d |h= | Jump_Zero 0x549 050c e603 | | Load 0x3,0x3 050d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 050e 6808 |h | Jump_Zero 0x517 050f e603 | | Load 0x3,0x3 0510 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0511 0f01 | | Execute_Immediate Equal,0x1 0512 6836 |h6 | Jump_Zero 0x549 0513 e406 | | Load 0x2,0x6 0514 e076 | v | Load 0x0,0x76 0515 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0516 6832 |h2 | Jump_Zero 0x549 0517 e264 | d | Load 0x1,0x64 0518 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0519 0258 | X | Execute Discrete,Test_And_Set_Next 051a c602 | | Store 0x3,0x2 051b e070 | p | Load 0x0,0x70 051c 1817 | | Execute Package,Field_Execute,Field_Number 0x17 051d e602 | | Load 0x3,0x2 051e 4be8 |K | Short_Literal 0x3e8 051f 026e | n | Execute Discrete,Modulo 0520 0a01 | | Execute_Immediate Plus,0x1 0521 a602 | | Store_Unchecked 0x3,0x2 0522 e606 | | Load 0x3,0x6 0523 e602 | | Load 0x3,0x2 0524 e263 | c | Load 0x1,0x63 0525 01d5 | | Execute Vector,Field_Reference 0526 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0527 e603 | | Load 0x3,0x3 0528 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0529 7006 |p | Jump_Nonzero 0x530 052a 4801 |H | Short_Literal 0x1 052b e602 | | Load 0x3,0x2 052c e263 | c | Load 0x1,0x63 052d 01d5 | | Execute Vector,Field_Reference 052e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 052f 7805 |x | Jump 0x535 0530 4800 |H | Short_Literal 0x0 0531 e602 | | Load 0x3,0x2 0532 e263 | c | Load 0x1,0x63 0533 01d5 | | Execute Vector,Field_Reference 0534 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0535 e405 | | Load 0x2,0x5 0536 800a | | Call 0x0,0xa 0537 e602 | | Load 0x3,0x2 0538 e263 | c | Load 0x1,0x63 0539 01d5 | | Execute Vector,Field_Reference 053a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 053b e406 | | Load 0x2,0x6 053c 8077 | w | Call 0x0,0x77 053d e602 | | Load 0x3,0x2 053e e263 | c | Load 0x1,0x63 053f 01d5 | | Execute Vector,Field_Reference 0540 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0541 e404 | | Load 0x2,0x4 0542 e004 | | Load 0x0,0x4 0543 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0544 0afe | | Execute_Immediate Plus,-0x2 0545 e602 | | Load 0x3,0x2 0546 e263 | c | Load 0x1,0x63 0547 01d5 | | Execute Vector,Field_Reference 0548 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 0549 4501 |E | Exit_Suprogram New_Top_Offset 0x1 054a 0000 0000 | | .BLANK 0000[0x6] 0550 ; -------------------------------------------------------------------------------------- 0550 ; SUBPROGRAM 0550 ; -------------------------------------------------------------------------------------- 0550 055a | Z | .CONST 0x055a ; Address of begin 0551 0004 | | .CONST 0x0004 ; Address of exception handler 0552 0004 | | .CONST 0x0004 ; Number of locals 0553 INIT_0550: 0553 e005 | | Load 0x0,0x5 0554 0322 | " | Declare_Variable Record 0555 e602 | | Load 0x3,0x2 0556 1c00 | | Execute_Immediate Run_Utility,0x0 0557 00e1 | | Load_Encached Boolean_Cache 0558 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0559 00e2 | | Load_Encached Integer_Cache 055a BODY_0550: 055a e24f | O | Load 0x1,0x4f 055b 4801 |H | Short_Literal 0x1 055c 0263 | c | Execute Discrete,Above_Bound 055d 704f |pO | Jump_Nonzero 0x5ad 055e e606 | | Load 0x3,0x6 055f e24c | L | Load 0x1,0x4c 0560 01d7 | | Execute Vector,Field_Read 0561 e406 | | Load 0x2,0x6 0562 027f | | Execute Discrete,Equal 0563 6848 |hH | Jump_Zero 0x5ac 0564 e603 | | Load 0x3,0x3 0565 700e |p | Jump_Nonzero 0x574 0566 e606 | | Load 0x3,0x6 0567 e24e | N | Load 0x1,0x4e 0568 01d5 | | Execute Vector,Field_Reference 0569 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 056a e05c | \ | Load 0x0,0x5c 056b 017e | ~ | Execute Record,Not_Equal 056c 6807 |h | Jump_Zero 0x574 056d e602 | | Load 0x3,0x2 056e e406 | | Load 0x2,0x6 056f 4802 |H | Short_Literal 0x2 0570 827b | { | Call 0x1,0x7b 0571 00d1 | | Pop_Control Pop_Count_1 0572 4801 |H | Short_Literal 0x1 0573 a603 | | Store_Unchecked 0x3,0x3 0574 e606 | | Load 0x3,0x6 0575 e24e | N | Load 0x1,0x4e 0576 01d5 | | Execute Vector,Field_Reference 0577 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0578 e05c | \ | Load 0x0,0x5c 0579 017f | | Execute Record,Equal 057a 7007 |p | Jump_Nonzero 0x582 057b e602 | | Load 0x3,0x2 057c e606 | | Load 0x3,0x6 057d e24e | N | Load 0x1,0x4e 057e 01d5 | | Execute Vector,Field_Reference 057f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0580 8273 | s | Call 0x1,0x73 0581 682a |h* | Jump_Zero 0x5ac 0582 e606 | | Load 0x3,0x6 0583 e24e | N | Load 0x1,0x4e 0584 01d5 | | Execute Vector,Field_Reference 0585 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0586 0e01 | | Execute_Immediate Not_Equal,0x1 0587 7005 |p | Jump_Nonzero 0x58d 0588 e606 | | Load 0x3,0x6 0589 e24e | N | Load 0x1,0x4e 058a 01d5 | | Execute Vector,Field_Reference 058b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 058c 6813 |h | Jump_Zero 0x5a0 058d 00e2 | | Load_Encached Integer_Cache 058e e606 | | Load 0x3,0x6 058f 4802 |H | Short_Literal 0x2 0590 e26b | k | Load 0x1,0x6b 0591 171e | | Execute Task,Entry_Call,Field_Number 0x1e 0592 c604 | | Store 0x3,0x4 0593 e604 | | Load 0x3,0x4 0594 e01e | | Load 0x0,0x1e 0595 027e | ~ | Execute Discrete,Not_Equal 0596 6815 |h | Jump_Zero 0x5ac 0597 e406 | | Load 0x2,0x6 0598 e604 | | Load 0x3,0x4 0599 4802 |H | Short_Literal 0x2 059a 827a | z | Call 0x1,0x7a 059b e405 | | Load 0x2,0x5 059c 8278 | x | Call 0x1,0x78 059d 00cc | | Action Pop_Block 059e 00a7 0194 | | Action Jump_Extended,0x194 05a0 e406 | | Load 0x2,0x6 05a1 e606 | | Load 0x3,0x6 05a2 e24e | N | Load 0x1,0x4e 05a3 01d5 | | Execute Vector,Field_Reference 05a4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 05a5 4802 |H | Short_Literal 0x2 05a6 827a | z | Call 0x1,0x7a 05a7 e405 | | Load 0x2,0x5 05a8 8278 | x | Call 0x1,0x78 05a9 00cc | | Action Pop_Block 05aa 00a7 0194 | | Action Jump_Extended,0x194 05ac 3fb1 |? | Loop_Increasing 0x55e 05ad e253 | S | Load 0x1,0x53 05ae 4801 |H | Short_Literal 0x1 05af 0263 | c | Execute Discrete,Above_Bound 05b0 704a |pJ | Jump_Nonzero 0x5fb 05b1 e606 | | Load 0x3,0x6 05b2 e252 | R | Load 0x1,0x52 05b3 01d5 | | Execute Vector,Field_Reference 05b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 05b5 e406 | | Load 0x2,0x6 05b6 027f | | Execute Discrete,Equal 05b7 6842 |hB | Jump_Zero 0x5fa 05b8 e405 | | Load 0x2,0x5 05b9 e606 | | Load 0x3,0x6 05ba e252 | R | Load 0x1,0x52 05bb 01d5 | | Execute Vector,Field_Reference 05bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 05bd 027f | | Execute Discrete,Equal 05be 683b |h; | Jump_Zero 0x5fa 05bf e603 | | Load 0x3,0x3 05c0 700e |p | Jump_Nonzero 0x5cf 05c1 e606 | | Load 0x3,0x6 05c2 e252 | R | Load 0x1,0x52 05c3 01d5 | | Execute Vector,Field_Reference 05c4 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 05c5 e05c | \ | Load 0x0,0x5c 05c6 017e | ~ | Execute Record,Not_Equal 05c7 6807 |h | Jump_Zero 0x5cf 05c8 e602 | | Load 0x3,0x2 05c9 e406 | | Load 0x2,0x6 05ca 4802 |H | Short_Literal 0x2 05cb 827b | { | Call 0x1,0x7b 05cc 00d1 | | Pop_Control Pop_Count_1 05cd 4801 |H | Short_Literal 0x1 05ce a603 | | Store_Unchecked 0x3,0x3 05cf e606 | | Load 0x3,0x6 05d0 e252 | R | Load 0x1,0x52 05d1 01d5 | | Execute Vector,Field_Reference 05d2 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 05d3 e05c | \ | Load 0x0,0x5c 05d4 017f | | Execute Record,Equal 05d5 7007 |p | Jump_Nonzero 0x5dd 05d6 e602 | | Load 0x3,0x2 05d7 e606 | | Load 0x3,0x6 05d8 e252 | R | Load 0x1,0x52 05d9 01d5 | | Execute Vector,Field_Reference 05da 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 05db 8273 | s | Call 0x1,0x73 05dc 681d |h | Jump_Zero 0x5fa 05dd e606 | | Load 0x3,0x6 05de e252 | R | Load 0x1,0x52 05df 01d5 | | Execute Vector,Field_Reference 05e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05e1 0f01 | | Execute_Immediate Equal,0x1 05e2 680e |h | Jump_Zero 0x5f1 05e3 e606 | | Load 0x3,0x6 05e4 e252 | R | Load 0x1,0x52 05e5 01d5 | | Execute Vector,Field_Reference 05e6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 05e7 a604 | | Store_Unchecked 0x3,0x4 05e8 e406 | | Load 0x2,0x6 05e9 e604 | | Load 0x3,0x4 05ea 4802 |H | Short_Literal 0x2 05eb 827a | z | Call 0x1,0x7a 05ec e405 | | Load 0x2,0x5 05ed 8278 | x | Call 0x1,0x78 05ee 00cc | | Action Pop_Block 05ef 00a7 0194 | | Action Jump_Extended,0x194 05f1 e606 | | Load 0x3,0x6 05f2 e252 | R | Load 0x1,0x52 05f3 01d5 | | Execute Vector,Field_Reference 05f4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 05f5 0aff | | Execute_Immediate Plus,-0x1 05f6 e606 | | Load 0x3,0x6 05f7 e252 | R | Load 0x1,0x52 05f8 01d5 | | Execute Vector,Field_Reference 05f9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 05fa 3fb6 |? | Loop_Increasing 0x5b1 05fb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 05fc 0000 0000 | | .BLANK 0000[0x4] 0600 ; -------------------------------------------------------------------------------------- 0600 ; SUBPROGRAM 0600 ; -------------------------------------------------------------------------------------- 0600 0605 | | .CONST 0x0605 ; Address of begin 0601 0004 | | .CONST 0x0004 ; Address of exception handler 0602 0002 | | .CONST 0x0002 ; Number of locals 0603 INIT_0600: 0603 e004 | | Load 0x0,0x4 0604 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0605 BODY_0600: 0605 e405 | | Load 0x2,0x5 0606 8078 | x | Call 0x0,0x78 0607 a602 | | Store_Unchecked 0x3,0x2 0608 e602 | | Load 0x3,0x2 0609 4802 |H | Short_Literal 0x2 060a 4802 |H | Short_Literal 0x2 060b 0099 | | Action Reference_Dynamic 060c 006a | j | Action Alter_Break_Mask 060d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 060e 0000 0000 | | .XXX[0x2] 0610 ; -------------------------------------------------------------------------------------- 0610 ; SUBPROGRAM 0610 ; -------------------------------------------------------------------------------------- 0610 061a | | .CONST 0x061a ; Address of begin 0611 0651 | Q | .CONST 0x0651 ; Address of exception handler 0612 0005 | | .CONST 0x0005 ; Number of locals 0613 INIT_0610: 0613 00e3 | | Load_Encached Natural_Cache 0614 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0615 00e5 | | Load_Encached Long_Integer_Cache 0616 00e3 | | Load_Encached Natural_Cache 0617 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0618 029f 0713 | | Declare_Subprogram INIT_0710,For_Call 061a BODY_0610: 061a e604 | | Load 0x3,0x4 061b e24f | O | Load 0x1,0x4f 061c 027d | } | Execute Discrete,Greater 061d 7010 |p | Jump_Nonzero 0x62e 061e e604 | | Load 0x3,0x4 061f e24c | L | Load 0x1,0x4c 0620 01d7 | | Execute Vector,Field_Read 0621 a603 | | Store_Unchecked 0x3,0x3 0622 e603 | | Load 0x3,0x3 0623 e027 | ' | Load 0x0,0x27 0624 027f | | Execute Discrete,Equal 0625 7004 |p | Jump_Nonzero 0x62a 0626 e603 | | Load 0x3,0x3 0627 e602 | | Load 0x3,0x2 0628 0a01 | | Execute_Immediate Plus,0x1 0629 c602 | | Store 0x3,0x2 062a e604 | | Load 0x3,0x4 062b 0a01 | | Execute_Immediate Plus,0x1 062c c604 | | Store 0x3,0x4 062d 7fec | | Jump BODY_0610 062e 4801 |H | Short_Literal 0x1 062f a604 | | Store_Unchecked 0x3,0x4 0630 e604 | | Load 0x3,0x4 0631 e253 | S | Load 0x1,0x53 0632 027d | } | Execute Discrete,Greater 0633 7018 |p | Jump_Nonzero 0x64c 0634 e604 | | Load 0x3,0x4 0635 e252 | R | Load 0x1,0x52 0636 01d5 | | Execute Vector,Field_Reference 0637 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0638 a603 | | Store_Unchecked 0x3,0x3 0639 e603 | | Load 0x3,0x3 063a e027 | ' | Load 0x0,0x27 063b 027f | | Execute Discrete,Equal 063c 700b |p | Jump_Nonzero 0x648 063d e604 | | Load 0x3,0x4 063e e252 | R | Load 0x1,0x52 063f 01d5 | | Execute Vector,Field_Reference 0640 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0641 e405 | | Load 0x2,0x5 0642 027f | | Execute Discrete,Equal 0643 6804 |h | Jump_Zero 0x648 0644 e603 | | Load 0x3,0x3 0645 e602 | | Load 0x3,0x2 0646 0a01 | | Execute_Immediate Plus,0x1 0647 c602 | | Store 0x3,0x2 0648 e604 | | Load 0x3,0x4 0649 0a01 | | Execute_Immediate Plus,0x1 064a c604 | | Store 0x3,0x4 064b 7fe4 | | Jump 0x630 064c e602 | | Load 0x3,0x2 064d e404 | | Load 0x2,0x4 064e e070 | p | Load 0x0,0x70 064f 1865 | e | Execute Package,Field_Execute,Field_Number 0x65 0650 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0651 TRAP_0610: 0651 e23d | = | Load 0x1,0x3d 0652 0a01 | | Execute_Immediate Plus,0x1 0653 a23d | = | Store_Unchecked 0x1,0x3d 0654 8605 | | Call 0x3,0x5 0655 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0656 0000 0000 | | .XXX[0x2] 0658 ; -------------------------------------------------------------------------------------- 0658 ; SUBPROGRAM 0658 ; -------------------------------------------------------------------------------------- 0658 065b | [ | .CONST 0x065b ; Address of begin 0659 0664 | d | .CONST 0x0664 ; Address of exception handler 065a 0001 | | .CONST 0x0001 ; Number of locals 065b BODY_0658: 065b INIT_0658: 065b e23e | > | Load 0x1,0x3e 065c 6806 |h | Jump_Zero 0x663 065d 0092 071d | | Action Push_String_Extended,0x71d ; "Hardware_Break_Handler: exception: " 065f e03a | : | Load 0x0,0x3a 0660 180d | | Execute Package,Field_Execute,Field_Number 0xd 0661 01cc | | Execute Vector,Catenate 0662 803b | ; | Call 0x0,0x3b 0663 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0664 TRAP_0658: 0664 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0665 0000 0000 | | .XXX[0x3] 0667 0000 | | 0668 ; -------------------------------------------------------------------------------------- 0668 ; SUBPROGRAM 0668 ; -------------------------------------------------------------------------------------- 0668 066f | o | .CONST 0x066f ; Address of begin 0669 0004 | | .CONST 0x0004 ; Address of exception handler 066a 0005 | | .CONST 0x0005 ; Number of locals 066b INIT_0668: 066b 00e5 | | Load_Encached Long_Integer_Cache 066c 00e5 | | Load_Encached Long_Integer_Cache 066d 00e5 | | Load_Encached Long_Integer_Cache 066e 00e5 | | Load_Encached Long_Integer_Cache 066f BODY_0668: 066f e264 | d | Load 0x1,0x64 0670 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0671 0258 | X | Execute Discrete,Test_And_Set_Next 0672 c802 | | Store 0x4,0x2 0673 e070 | p | Load 0x0,0x70 0674 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0675 e802 | | Load 0x4,0x2 0676 4be8 |K | Short_Literal 0x3e8 0677 026e | n | Execute Discrete,Modulo 0678 0a01 | | Execute_Immediate Plus,0x1 0679 a802 | | Store_Unchecked 0x4,0x2 067a e805 | | Load 0x4,0x5 067b e802 | | Load 0x4,0x2 067c e263 | c | Load 0x1,0x63 067d 01d5 | | Execute Vector,Field_Reference 067e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 067f 4806 |H | Short_Literal 0x6 0680 e802 | | Load 0x4,0x2 0681 e263 | c | Load 0x1,0x63 0682 01d5 | | Execute Vector,Field_Reference 0683 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0684 e405 | | Load 0x2,0x5 0685 800a | | Call 0x0,0xa 0686 e802 | | Load 0x4,0x2 0687 e263 | c | Load 0x1,0x63 0688 01d5 | | Execute Vector,Field_Reference 0689 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 068a e603 | | Load 0x3,0x3 068b 8077 | w | Call 0x0,0x77 068c e802 | | Load 0x4,0x2 068d e263 | c | Load 0x1,0x63 068e 01d5 | | Execute Vector,Field_Reference 068f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0690 e604 | | Load 0x3,0x4 0691 8059 | Y | Call 0x0,0x59 0692 e802 | | Load 0x4,0x2 0693 e263 | c | Load 0x1,0x63 0694 01d5 | | Execute Vector,Field_Reference 0695 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0696 e404 | | Load 0x2,0x4 0697 e004 | | Load 0x0,0x4 0698 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0699 0afd | | Execute_Immediate Plus,-0x3 069a e802 | | Load 0x4,0x2 069b e263 | c | Load 0x1,0x63 069c 01d5 | | Execute Vector,Field_Reference 069d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 069e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 069f 0000 | | .XXX[0x1] 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; SUBPROGRAM 06a0 ; -------------------------------------------------------------------------------------- 06a0 06a7 | | .CONST 0x06a7 ; Address of begin 06a1 0004 | | .CONST 0x0004 ; Address of exception handler 06a2 0005 | | .CONST 0x0005 ; Number of locals 06a3 INIT_06a0: 06a3 00e5 | | Load_Encached Long_Integer_Cache 06a4 00e5 | | Load_Encached Long_Integer_Cache 06a5 00e5 | | Load_Encached Long_Integer_Cache 06a6 00e5 | | Load_Encached Long_Integer_Cache 06a7 BODY_06a0: 06a7 e264 | d | Load 0x1,0x64 06a8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06a9 0258 | X | Execute Discrete,Test_And_Set_Next 06aa c802 | | Store 0x4,0x2 06ab e070 | p | Load 0x0,0x70 06ac 1817 | | Execute Package,Field_Execute,Field_Number 0x17 06ad e802 | | Load 0x4,0x2 06ae 4be8 |K | Short_Literal 0x3e8 06af 026e | n | Execute Discrete,Modulo 06b0 0a01 | | Execute_Immediate Plus,0x1 06b1 a802 | | Store_Unchecked 0x4,0x2 06b2 e805 | | Load 0x4,0x5 06b3 e802 | | Load 0x4,0x2 06b4 e263 | c | Load 0x1,0x63 06b5 01d5 | | Execute Vector,Field_Reference 06b6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06b7 4806 |H | Short_Literal 0x6 06b8 e802 | | Load 0x4,0x2 06b9 e263 | c | Load 0x1,0x63 06ba 01d5 | | Execute Vector,Field_Reference 06bb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06bc e405 | | Load 0x2,0x5 06bd 800a | | Call 0x0,0xa 06be e802 | | Load 0x4,0x2 06bf e263 | c | Load 0x1,0x63 06c0 01d5 | | Execute Vector,Field_Reference 06c1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 06c2 e406 | | Load 0x2,0x6 06c3 8077 | w | Call 0x0,0x77 06c4 e802 | | Load 0x4,0x2 06c5 e263 | c | Load 0x1,0x63 06c6 01d5 | | Execute Vector,Field_Reference 06c7 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 06c8 e604 | | Load 0x3,0x4 06c9 8059 | Y | Call 0x0,0x59 06ca e802 | | Load 0x4,0x2 06cb e263 | c | Load 0x1,0x63 06cc 01d5 | | Execute Vector,Field_Reference 06cd 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 06ce e404 | | Load 0x2,0x4 06cf e004 | | Load 0x0,0x4 06d0 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 06d1 0afd | | Execute_Immediate Plus,-0x3 06d2 e802 | | Load 0x4,0x2 06d3 e263 | c | Load 0x1,0x63 06d4 01d5 | | Execute Vector,Field_Reference 06d5 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 06d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 06d7 0000 | | .XXX[0x1] 06d8 ; -------------------------------------------------------------------------------------- 06d8 ; SUBPROGRAM 06d8 ; -------------------------------------------------------------------------------------- 06d8 06df | | .CONST 0x06df ; Address of begin 06d9 0004 | | .CONST 0x0004 ; Address of exception handler 06da 0005 | | .CONST 0x0005 ; Number of locals 06db INIT_06d8: 06db 00e5 | | Load_Encached Long_Integer_Cache 06dc 00e5 | | Load_Encached Long_Integer_Cache 06dd 00e5 | | Load_Encached Long_Integer_Cache 06de 00e5 | | Load_Encached Long_Integer_Cache 06df BODY_06d8: 06df e264 | d | Load 0x1,0x64 06e0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 06e1 0258 | X | Execute Discrete,Test_And_Set_Next 06e2 c802 | | Store 0x4,0x2 06e3 e070 | p | Load 0x0,0x70 06e4 1817 | | Execute Package,Field_Execute,Field_Number 0x17 06e5 e802 | | Load 0x4,0x2 06e6 4be8 |K | Short_Literal 0x3e8 06e7 026e | n | Execute Discrete,Modulo 06e8 0a01 | | Execute_Immediate Plus,0x1 06e9 a802 | | Store_Unchecked 0x4,0x2 06ea e805 | | Load 0x4,0x5 06eb e802 | | Load 0x4,0x2 06ec e263 | c | Load 0x1,0x63 06ed 01d5 | | Execute Vector,Field_Reference 06ee 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 06ef 4806 |H | Short_Literal 0x6 06f0 e802 | | Load 0x4,0x2 06f1 e263 | c | Load 0x1,0x63 06f2 01d5 | | Execute Vector,Field_Reference 06f3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 06f4 e405 | | Load 0x2,0x5 06f5 800a | | Call 0x0,0xa 06f6 e802 | | Load 0x4,0x2 06f7 e263 | c | Load 0x1,0x63 06f8 01d5 | | Execute Vector,Field_Reference 06f9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 06fa e603 | | Load 0x3,0x3 06fb 8077 | w | Call 0x0,0x77 06fc e802 | | Load 0x4,0x2 06fd e263 | c | Load 0x1,0x63 06fe 01d5 | | Execute Vector,Field_Reference 06ff 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0700 e604 | | Load 0x3,0x4 0701 8059 | Y | Call 0x0,0x59 0702 e802 | | Load 0x4,0x2 0703 e263 | c | Load 0x1,0x63 0704 01d5 | | Execute Vector,Field_Reference 0705 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0706 e404 | | Load 0x2,0x4 0707 e004 | | Load 0x0,0x4 0708 184c | L | Execute Package,Field_Execute,Field_Number 0x4c 0709 0afd | | Execute_Immediate Plus,-0x3 070a e802 | | Load 0x4,0x2 070b e263 | c | Load 0x1,0x63 070c 01d5 | | Execute Vector,Field_Reference 070d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 070e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 070f 0000 | | .XXX[0x1] 0710 ; -------------------------------------------------------------------------------------- 0710 ; SUBPROGRAM 0710 ; -------------------------------------------------------------------------------------- 0710 0713 | | .CONST 0x0713 ; Address of begin 0711 071c | | .CONST 0x071c ; Address of exception handler 0712 0001 | | .CONST 0x0001 ; Number of locals 0713 BODY_0710: 0713 INIT_0710: 0713 e23e | > | Load 0x1,0x3e 0714 6806 |h | Jump_Zero 0x71b 0715 0092 071e | | Action Push_String_Extended,0x71e ; "Hardware_Break_Handler load_accelerator: exception: " 0717 e03a | : | Load 0x0,0x3a 0718 180d | | Execute Package,Field_Execute,Field_Number 0xd 0719 01cc | | Execute Vector,Catenate 071a 803b | ; | Call 0x0,0x3b 071b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 071c TRAP_0710: 071c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 071d ; -------------------------------------------------------------------------------------- 071d ; STRING TABLE 071d ; -------------------------------------------------------------------------------------- 071d 0006 | | .STRTAB 0x0006->0x0720 ; "Hardware_Break_Handler: exception: " 071e 0027 | ' | .STRTAB 0x0027->0x0731 ; "Hardware_Break_Handler load_accelerator: exception: " 071f 0059 | Y | .STREND 0x0059->0x074b 0720 4861 7264 |Hard| .STRTAB_STRINGS 074c 0000 0000 | | .BLANK 0000[0xb4]