|
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_03bcfe, seg_03c0fe
└─⟦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 e240 | @ | Load 0x1,0x40
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 e23b | ; | Load 0x1,0x3b
0055 0a01 | | Execute_Immediate Plus,0x1
0056 a23b | ; | Store_Unchecked 0x1,0x3b
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 e250 | P | Load 0x1,0x50
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 e24d | M | Load 0x1,0x4d
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 e24f | O | Load 0x1,0x4f
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 e24f | O | Load 0x1,0x4f
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 e24f | O | Load 0x1,0x4f
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 e24f | O | Load 0x1,0x4f
008b 01d5 | | Execute Vector,Field_Reference
008c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
008d 4801 |H | Short_Literal 0x1
008e 8280 | | Call 0x1,0x80
008f e405 | | Load 0x2,0x5
0090 827e | ~ | Call 0x1,0x7e
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 e25e | ^ | Load 0x1,0x5e
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 e25d | ] | Load 0x1,0x5d
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 e25d | ] | Load 0x1,0x5d
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 e25d | ] | Load 0x1,0x5d
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 e250 | P | Load 0x1,0x50
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 e24d | M | Load 0x1,0x4d
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 e24f | O | Load 0x1,0x4f
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 e24f | O | Load 0x1,0x4f
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 e24f | O | Load 0x1,0x4f
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 e24f | O | Load 0x1,0x4f
00d6 01d5 | | Execute Vector,Field_Reference
00d7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00d8 4801 |H | Short_Literal 0x1
00d9 8280 | | Call 0x1,0x80
00da e405 | | Load 0x2,0x5
00db 827e | ~ | Call 0x1,0x7e
00dc 00d2 | | Pop_Control Pop_Count_2
00dd 78b6 |x | Jump 0x194
00de 3fd7 |? | Loop_Increasing 0xb6
00df e241 | A | Load 0x1,0x41
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 e242 | B | Load 0x1,0x42
00e6 4801 |H | Short_Literal 0x1
00e7 8280 | | Call 0x1,0x80
00e8 e405 | | Load 0x2,0x5
00e9 827e | ~ | Call 0x1,0x7e
00ea 78a9 |x | Jump 0x194
00eb e243 | C | Load 0x1,0x43
00ec e405 | | Load 0x2,0x5
00ed 027f | | Execute Discrete,Equal
00ee 6817 |h | Jump_Zero 0x106
00ef 4801 |H | Short_Literal 0x1
00f0 8280 | | Call 0x1,0x80
00f1 e004 | | Load 0x0,0x4
00f2 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00f3 e245 | E | Load 0x1,0x45
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 e244 | D | Load 0x1,0x44
00fa 0f01 | | Execute_Immediate Equal,0x1
00fb 6807 |h | Jump_Zero 0x103
00fc e406 | | Load 0x2,0x6
00fd e246 | F | Load 0x1,0x46
00fe 4801 |H | Short_Literal 0x1
00ff 8280 | | Call 0x1,0x80
0100 e405 | | Load 0x2,0x5
0101 827e | ~ | Call 0x1,0x7e
0102 7891 |x | Jump 0x194
0103 e244 | D | Load 0x1,0x44
0104 0aff | | Execute_Immediate Plus,-0x1
0105 c244 | D | Store 0x1,0x44
0106 e405 | | Load 0x2,0x5
0107 e247 | G | Load 0x1,0x47
0108 027f | | Execute Discrete,Equal
0109 688a |h | Jump_Zero 0x194
010a e248 | H | Load 0x1,0x48
010b 0f01 | | Execute_Immediate Equal,0x1
010c 6807 |h | Jump_Zero 0x114
010d e406 | | Load 0x2,0x6
010e e249 | I | Load 0x1,0x49
010f 4801 |H | Short_Literal 0x1
0110 8280 | | Call 0x1,0x80
0111 e405 | | Load 0x2,0x5
0112 827e | ~ | Call 0x1,0x7e
0113 7880 |x | Jump 0x194
0114 e248 | H | Load 0x1,0x48
0115 0aff | | Execute_Immediate Plus,-0x1
0116 c248 | H | Store 0x1,0x48
0117 787c |x| | Jump 0x194
0118 e25e | ^ | Load 0x1,0x5e
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 e25d | ] | Load 0x1,0x5d
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 e25d | ] | Load 0x1,0x5d
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 e25d | ] | Load 0x1,0x5d
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 e241 | A | Load 0x1,0x41
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 e242 | B | Load 0x1,0x42
013b 4801 |H | Short_Literal 0x1
013c 8280 | | Call 0x1,0x80
013d e405 | | Load 0x2,0x5
013e 827e | ~ | Call 0x1,0x7e
013f 7854 |xT | Jump 0x194
0140 e243 | C | Load 0x1,0x43
0141 e405 | | Load 0x2,0x5
0142 027f | | Execute Discrete,Equal
0143 681b |h | Jump_Zero 0x15f
0144 e245 | E | Load 0x1,0x45
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 8280 | | Call 0x1,0x80
014a e004 | | Load 0x0,0x4
014b 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
014c e245 | E | Load 0x1,0x45
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 e244 | D | Load 0x1,0x44
0153 0f01 | | Execute_Immediate Equal,0x1
0154 6807 |h | Jump_Zero 0x15c
0155 e406 | | Load 0x2,0x6
0156 e246 | F | Load 0x1,0x46
0157 4801 |H | Short_Literal 0x1
0158 8280 | | Call 0x1,0x80
0159 e405 | | Load 0x2,0x5
015a 827e | ~ | Call 0x1,0x7e
015b 7838 |x8 | Jump 0x194
015c e244 | D | Load 0x1,0x44
015d 0aff | | Execute_Immediate Plus,-0x1
015e c244 | D | Store 0x1,0x44
015f e405 | | Load 0x2,0x5
0160 e247 | G | Load 0x1,0x47
0161 027f | | Execute Discrete,Equal
0162 680d |h | Jump_Zero 0x170
0163 e248 | H | Load 0x1,0x48
0164 0f01 | | Execute_Immediate Equal,0x1
0165 6807 |h | Jump_Zero 0x16d
0166 e406 | | Load 0x2,0x6
0167 e249 | I | Load 0x1,0x49
0168 4801 |H | Short_Literal 0x1
0169 8280 | | Call 0x1,0x80
016a e405 | | Load 0x2,0x5
016b 827e | ~ | Call 0x1,0x7e
016c 7827 |x' | Jump 0x194
016d e248 | H | Load 0x1,0x48
016e 0aff | | Execute_Immediate Plus,-0x1
016f c248 | H | Store 0x1,0x48
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 e284 | | Load 0x1,0x84
0176 e285 | | Load 0x1,0x85
0177 1d86 | | Execute_Immediate Reference_Lex_1,0x86
0178 e287 | | Load 0x1,0x87
0179 1d88 | | Execute_Immediate Reference_Lex_1,0x88
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 8280 | | Call 0x1,0x80
0180 e405 | | Load 0x2,0x5
0181 827e | ~ | Call 0x1,0x7e
0182 7811 |x | Jump 0x194
0183 e406 | | Load 0x2,0x6
0184 4801 |H | Short_Literal 0x1
0185 8280 | | Call 0x1,0x80
0186 e404 | | Load 0x2,0x4
0187 e405 | | Load 0x2,0x5
0188 8072 | r | Call 0x0,0x72
0189 780a |x | Jump 0x194
018a e23a | : | Load 0x1,0x3a
018b 0a01 | | Execute_Immediate Plus,0x1
018c a23a | : | Store_Unchecked 0x1,0x3a
018d 4801 |H | Short_Literal 0x1
018e 8280 | | Call 0x1,0x80
018f e406 | | Load 0x2,0x6
0190 e405 | | Load 0x2,0x5
0191 827f | | Call 0x1,0x7f
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 e230 | 0 | Load 0x1,0x30
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 e23c | < | Load 0x1,0x3c
01bd 0a01 | | Execute_Immediate Plus,0x1
01be a23c | < | Store_Unchecked 0x1,0x3c
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 8277 | w | Call 0x1,0x77
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 8280 | | Call 0x1,0x80
01cd 828a | | Call 0x1,0x8a
01ce 681e |h | Jump_Zero 0x1ed
01cf e605 | | Load 0x3,0x5
01d0 e239 | 9 | Load 0x1,0x39
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 c232 | 2 | Store 0x1,0x32
01e1 e60a | | Load 0x3,0xa
01e2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01e3 c233 | 3 | Store 0x1,0x33
01e4 c234 | 4 | Store 0x1,0x34
01e5 c235 | 5 | Store 0x1,0x35
01e6 00d1 | | Pop_Control Pop_Count_1
01e7 4800 |H | Short_Literal 0x0
01e8 e605 | | Load 0x3,0x5
01e9 e239 | 9 | Load 0x1,0x39
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 e239 | 9 | Load 0x1,0x39
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 8280 | | Call 0x1,0x80
0204 e603 | | Load 0x3,0x3
0205 e405 | | Load 0x2,0x5
0206 e604 | | Load 0x3,0x4
0207 827a | z | Call 0x1,0x7a
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 8280 | | Call 0x1,0x80
0221 e405 | | Load 0x2,0x5
0222 827d | } | Call 0x1,0x7d
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 e230 | 0 | Load 0x1,0x30
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 e23c | < | Load 0x1,0x3c
0235 0a01 | | Execute_Immediate Plus,0x1
0236 a23c | < | Store_Unchecked 0x1,0x3c
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 8277 | w | Call 0x1,0x77
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 8280 | | Call 0x1,0x80
0245 828a | | Call 0x1,0x8a
0246 6819 |h | Jump_Zero 0x260
0247 e605 | | Load 0x3,0x5
0248 e239 | 9 | Load 0x1,0x39
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 c232 | 2 | Store 0x1,0x32
0259 e60a | | Load 0x3,0xa
025a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
025b c233 | 3 | Store 0x1,0x33
025c c234 | 4 | Store 0x1,0x34
025d c235 | 5 | Store 0x1,0x35
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 8280 | | Call 0x1,0x80
0265 e406 | | Load 0x2,0x6
0266 e405 | | Load 0x2,0x5
0267 e604 | | Load 0x3,0x4
0268 827a | z | Call 0x1,0x7a
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 8280 | | Call 0x1,0x80
0282 e405 | | Load 0x2,0x5
0283 827d | } | Call 0x1,0x7d
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 e230 | 0 | Load 0x1,0x30
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 e23c | < | Load 0x1,0x3c
0295 0a01 | | Execute_Immediate Plus,0x1
0296 a23c | < | Store_Unchecked 0x1,0x3c
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 8277 | w | Call 0x1,0x77
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 8280 | | Call 0x1,0x80
02a5 828a | | Call 0x1,0x8a
02a6 6819 |h | Jump_Zero 0x2c0
02a7 e605 | | Load 0x3,0x5
02a8 e239 | 9 | Load 0x1,0x39
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 c232 | 2 | Store 0x1,0x32
02b9 e60a | | Load 0x3,0xa
02ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02bb c233 | 3 | Store 0x1,0x33
02bc c234 | 4 | Store 0x1,0x34
02bd c235 | 5 | Store 0x1,0x35
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 e239 | 9 | Load 0x1,0x39
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 e239 | 9 | Load 0x1,0x39
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 e239 | 9 | Load 0x1,0x39
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 8280 | | Call 0x1,0x80
02de e603 | | Load 0x3,0x3
02df e405 | | Load 0x2,0x5
02e0 e604 | | Load 0x3,0x4
02e1 827a | z | Call 0x1,0x7a
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 8280 | | Call 0x1,0x80
02fb e405 | | Load 0x2,0x5
02fc 827d | } | Call 0x1,0x7d
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 e24a | J | Load 0x1,0x4a
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 8281 | | Call 0x1,0x81
0310 00d1 | | Pop_Control Pop_Count_1
0311 e250 | P | Load 0x1,0x50
0312 e417 | | Load 0x2,0x17
0313 0263 | c | Execute Discrete,Above_Bound
0314 7037 |p7 | Jump_Nonzero 0x34c
0315 e606 | | Load 0x3,0x6
0316 e24d | M | Load 0x1,0x4d
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 e24f | O | Load 0x1,0x4f
031e 01d5 | | Execute Vector,Field_Reference
031f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0320 8279 | y | Call 0x1,0x79
0321 6829 |h) | Jump_Zero 0x34b
0322 e606 | | Load 0x3,0x6
0323 e24f | O | Load 0x1,0x4f
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 e26c | l | Load 0x1,0x6c
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 8280 | | Call 0x1,0x80
033c e405 | | Load 0x2,0x5
033d 827e | ~ | Call 0x1,0x7e
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 8280 | | Call 0x1,0x80
0346 e405 | | Load 0x2,0x5
0347 827e | ~ | Call 0x1,0x7e
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 e26c | l | Load 0x1,0x6c
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 8280 | | Call 0x1,0x80
0362 e405 | | Load 0x2,0x5
0363 827e | ~ | Call 0x1,0x7e
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 e250 | P | Load 0x1,0x50
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 e24d | M | Load 0x1,0x4d
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 e24f | O | Load 0x1,0x4f
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 8281 | | Call 0x1,0x81
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 e24f | O | Load 0x1,0x4f
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 e24f | O | Load 0x1,0x4f
0396 01d5 | | Execute Vector,Field_Reference
0397 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0398 8279 | y | Call 0x1,0x79
0399 6828 |h( | Jump_Zero 0x3c2
039a e606 | | Load 0x3,0x6
039b e24f | O | Load 0x1,0x4f
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 e24f | O | Load 0x1,0x4f
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 e26c | l | Load 0x1,0x6c
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 8280 | | Call 0x1,0x80
03b3 e405 | | Load 0x2,0x5
03b4 827e | ~ | Call 0x1,0x7e
03b5 00cc | | Action Pop_Block
03b6 7ddd |} | Jump 0x194
03b7 e406 | | Load 0x2,0x6
03b8 e606 | | Load 0x3,0x6
03b9 e24f | O | Load 0x1,0x4f
03ba 01d5 | | Execute Vector,Field_Reference
03bb 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03bc 4802 |H | Short_Literal 0x2
03bd 8280 | | Call 0x1,0x80
03be e405 | | Load 0x2,0x5
03bf 827e | ~ | Call 0x1,0x7e
03c0 00cc | | Action Pop_Block
03c1 7dd2 |} | Jump 0x194
03c2 3fb3 |? | Loop_Increasing 0x376
03c3 e254 | T | Load 0x1,0x54
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 e253 | S | Load 0x1,0x53
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 e253 | S | Load 0x1,0x53
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 e253 | S | Load 0x1,0x53
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 8281 | | Call 0x1,0x81
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 e253 | S | Load 0x1,0x53
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 e253 | S | Load 0x1,0x53
03ef 01d5 | | Execute Vector,Field_Reference
03f0 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
03f1 8279 | y | Call 0x1,0x79
03f2 681c |h | Jump_Zero 0x40f
03f3 e606 | | Load 0x3,0x6
03f4 e253 | S | Load 0x1,0x53
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 e253 | S | Load 0x1,0x53
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 8280 | | Call 0x1,0x80
0402 e405 | | Load 0x2,0x5
0403 827e | ~ | Call 0x1,0x7e
0404 00cc | | Action Pop_Block
0405 7d8e |} | Jump 0x194
0406 e606 | | Load 0x3,0x6
0407 e253 | S | Load 0x1,0x53
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 e253 | S | Load 0x1,0x53
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 e25d | ] | Load 0x1,0x5d
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 e265 | e | Load 0x1,0x65
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e24a | J | Load 0x1,0x4a
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 8281 | | Call 0x1,0x81
0498 00d1 | | Pop_Control Pop_Count_1
0499 e250 | P | Load 0x1,0x50
049a e417 | | Load 0x2,0x17
049b 0263 | c | Execute Discrete,Above_Bound
049c 7037 |p7 | Jump_Nonzero 0x4d4
049d e606 | | Load 0x3,0x6
049e e24d | M | Load 0x1,0x4d
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 e24f | O | Load 0x1,0x4f
04a6 01d5 | | Execute Vector,Field_Reference
04a7 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
04a8 8279 | y | Call 0x1,0x79
04a9 6829 |h) | Jump_Zero 0x4d3
04aa e606 | | Load 0x3,0x6
04ab e24f | O | Load 0x1,0x4f
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 e26c | l | Load 0x1,0x6c
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 8280 | | Call 0x1,0x80
04c4 e405 | | Load 0x2,0x5
04c5 827e | ~ | Call 0x1,0x7e
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 8280 | | Call 0x1,0x80
04ce e405 | | Load 0x2,0x5
04cf 827e | ~ | Call 0x1,0x7e
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 e26c | l | Load 0x1,0x6c
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 8280 | | Call 0x1,0x80
04ea e405 | | Load 0x2,0x5
04eb 827e | ~ | Call 0x1,0x7e
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 e25d | ] | Load 0x1,0x5d
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 e265 | e | Load 0x1,0x65
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e250 | P | Load 0x1,0x50
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 e24d | M | Load 0x1,0x4d
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 e24f | O | Load 0x1,0x4f
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 8281 | | Call 0x1,0x81
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 e24f | O | Load 0x1,0x4f
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 e24f | O | Load 0x1,0x4f
058e 01d5 | | Execute Vector,Field_Reference
058f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0590 8279 | y | Call 0x1,0x79
0591 682a |h* | Jump_Zero 0x5bc
0592 e606 | | Load 0x3,0x6
0593 e24f | O | Load 0x1,0x4f
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 e24f | O | Load 0x1,0x4f
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 e26c | l | Load 0x1,0x6c
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 8280 | | Call 0x1,0x80
05ab e405 | | Load 0x2,0x5
05ac 827e | ~ | Call 0x1,0x7e
05ad 00cc | | Action Pop_Block
05ae 00a7 0194 | | Action Jump_Extended,0x194
05b0 e406 | | Load 0x2,0x6
05b1 e606 | | Load 0x3,0x6
05b2 e24f | O | Load 0x1,0x4f
05b3 01d5 | | Execute Vector,Field_Reference
05b4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
05b5 4802 |H | Short_Literal 0x2
05b6 8280 | | Call 0x1,0x80
05b7 e405 | | Load 0x2,0x5
05b8 827e | ~ | Call 0x1,0x7e
05b9 00cc | | Action Pop_Block
05ba 00a7 0194 | | Action Jump_Extended,0x194
05bc 3fb1 |? | Loop_Increasing 0x56e
05bd e254 | T | Load 0x1,0x54
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 e253 | S | Load 0x1,0x53
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 e253 | S | Load 0x1,0x53
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 e253 | S | Load 0x1,0x53
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 8281 | | Call 0x1,0x81
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 e253 | S | Load 0x1,0x53
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 e253 | S | Load 0x1,0x53
05e9 01d5 | | Execute Vector,Field_Reference
05ea 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
05eb 8279 | y | Call 0x1,0x79
05ec 681d |h | Jump_Zero 0x60a
05ed e606 | | Load 0x3,0x6
05ee e253 | S | Load 0x1,0x53
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 e253 | S | Load 0x1,0x53
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 8280 | | Call 0x1,0x80
05fc e405 | | Load 0x2,0x5
05fd 827e | ~ | Call 0x1,0x7e
05fe 00cc | | Action Pop_Block
05ff 00a7 0194 | | Action Jump_Extended,0x194
0601 e606 | | Load 0x3,0x6
0602 e253 | S | Load 0x1,0x53
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 e253 | S | Load 0x1,0x53
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 e250 | P | Load 0x1,0x50
062c 027d | } | Execute Discrete,Greater
062d 7010 |p | Jump_Nonzero 0x63e
062e e604 | | Load 0x3,0x4
062f e24d | M | Load 0x1,0x4d
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 e254 | T | Load 0x1,0x54
0642 027d | } | Execute Discrete,Greater
0643 7018 |p | Jump_Nonzero 0x65c
0644 e604 | | Load 0x3,0x4
0645 e253 | S | Load 0x1,0x53
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 e253 | S | Load 0x1,0x53
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 e23e | > | Load 0x1,0x3e
0662 0a01 | | Execute_Immediate Plus,0x1
0663 a23e | > | Store_Unchecked 0x1,0x3e
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 e23f | ? | Load 0x1,0x3f
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 e265 | e | Load 0x1,0x65
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e265 | e | Load 0x1,0x65
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e265 | e | Load 0x1,0x65
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e264 | d | Load 0x1,0x64
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 e23f | ? | Load 0x1,0x3f
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]