|
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]