|
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 - metrics - download
Length: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 09a8 | | .CONST 0x09a8 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0082 | | .CONST 0x0082 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002a | * | .CONST 0x002a ; Number of locals
000b INIT_0008:
000b 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088
000d 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8
000f 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0
0011 029a 012b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0128
0013 029a 0153 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0150
0015 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0017 029a 01f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f0
0019 029a 022b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0228
001b 029a 0253 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0250
001d 029a 0273 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0270
001f 029a 02b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02b0
0021 029a 02db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_02d8
0023 029a 0313 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0310
0025 029a 0333 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0330
0027 029a 034b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0348
0029 029a 039b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0398
002b 029a 03bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03b8
002d 029a 03db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03d8
002f 029a 0413 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0410
0031 029a 049b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0498
0033 e001 | | Load 0x0,0x1
0034 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0035 029a 0523 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0520
0037 029a 0543 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0540
0039 029a 0583 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0580
003b 029a 05e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_05e0
003d 029a 0643 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0640
003f 029a 066b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0668
0041 029a 06b3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_06b0
0043 029a 07bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_07b8
0045 00bf | | Action Accept_Activation
0046 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0047 00c7 | | Action Elaborate_Subprogram
0048 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0049 00c7 | | Action Elaborate_Subprogram
004a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004b 00c7 | | Action Elaborate_Subprogram
004c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
004d 00c7 | | Action Elaborate_Subprogram
004e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
004f 00c7 | | Action Elaborate_Subprogram
0050 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0051 00c7 | | Action Elaborate_Subprogram
0052 029d 08c3 | | Declare_Subprogram For_Outer_Call,INIT_08c0
0054 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0055 00c7 | | Action Elaborate_Subprogram
0056 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0057 00c7 | | Action Elaborate_Subprogram
0058 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0059 00c7 | | Action Elaborate_Subprogram
005a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005b 00c7 | | Action Elaborate_Subprogram
005c 1d17 | | Execute_Immediate Reference_Lex_1,0x17
005d 00c7 | | Action Elaborate_Subprogram
005e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
005f 00c7 | | Action Elaborate_Subprogram
0060 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0061 00c7 | | Action Elaborate_Subprogram
0062 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0063 00c7 | | Action Elaborate_Subprogram
0064 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0065 00c7 | | Action Elaborate_Subprogram
0066 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0067 00c7 | | Action Elaborate_Subprogram
0068 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0069 00c7 | | Action Elaborate_Subprogram
006a 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
006b 00c7 | | Action Elaborate_Subprogram
006c 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
006d 00c7 | | Action Elaborate_Subprogram
006e 1d20 | | Execute_Immediate Reference_Lex_1,0x20
006f 00c7 | | Action Elaborate_Subprogram
0070 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0071 00c7 | | Action Elaborate_Subprogram
0072 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0073 00c7 | | Action Elaborate_Subprogram
0074 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0075 00c7 | | Action Elaborate_Subprogram
0076 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0077 00c7 | | Action Elaborate_Subprogram
0078 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0079 00c7 | | Action Elaborate_Subprogram
007a 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
007b 00c7 | | Action Elaborate_Subprogram
007c 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
007d 00c7 | | Action Elaborate_Subprogram
007e 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
007f 00c7 | | Action Elaborate_Subprogram
0080 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0081 00c7 | | Action Elaborate_Subprogram
0082 BODY_0008:
0082 00bc | | Action Signal_Activated
0083 00bb | | Action Signal_Completion
0084 0000 0000 | | .BLANK 0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b e5fe | | Load 0x2,-0x2
008c 4602 |F | Jump_Case 0x2
008d 7805 |x | Jump 0x93 ; case 0x0
008e 780f |x | Jump 0x9e ; case 0x1
008f 7800 |x | Jump 0x90 ; case 0x2
0090 4805 |H | Short_Literal 0x5
0091 8002 | | Call 0x0,0x2
0092 4503 |E | Exit_Subprogram 0x3
0093 4805 |H | Short_Literal 0x5
0094 8003 | | Call 0x0,0x3
0095 4801 |H | Short_Literal 0x1
0096 e004 | | Load 0x0,0x4
0097 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0098 e5ff | | Load 0x2,-0x1
0099 e005 | | Load 0x0,0x5
009a 180f | | Execute Package,Field_Execute,Field_Number 0xf
009b 4805 |H | Short_Literal 0x5
009c 8002 | | Call 0x0,0x2
009d 4503 |E | Exit_Subprogram 0x3
009e 4801 |H | Short_Literal 0x1
009f e004 | | Load 0x0,0x4
00a0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a1 4503 |E | Exit_Subprogram 0x3
00a2 0000 0000 | | .BLANK 0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4800 |H | Short_Literal 0x0
00ac e004 | | Load 0x0,0x4
00ad 381a |8 | Execute Record,Field_Write,Field_Number 0x1a
00ae e5fe | | Load 0x2,-0x2
00af 4602 |F | Jump_Case 0x2
00b0 780e |x | Jump 0xbf ; case 0x0
00b1 782c |x, | Jump 0xde ; case 0x1
00b2 7800 |x | Jump 0xb3 ; case 0x2
00b3 4801 |H | Short_Literal 0x1
00b4 e005 | | Load 0x0,0x5
00b5 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00b6 4801 |H | Short_Literal 0x1
00b7 4800 |H | Short_Literal 0x0
00b8 e004 | | Load 0x0,0x4
00b9 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
00ba e006 | | Load 0x0,0x6
00bb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00bc 4806 |H | Short_Literal 0x6
00bd 8002 | | Call 0x0,0x2
00be 4503 |E | Exit_Subprogram 0x3
00bf 4806 |H | Short_Literal 0x6
00c0 8003 | | Call 0x0,0x3
00c1 4801 |H | Short_Literal 0x1
00c2 4800 |H | Short_Literal 0x0
00c3 e004 | | Load 0x0,0x4
00c4 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
00c5 e006 | | Load 0x0,0x6
00c6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c7 4800 |H | Short_Literal 0x0
00c8 e004 | | Load 0x0,0x4
00c9 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
00ca 4800 |H | Short_Literal 0x0
00cb e004 | | Load 0x0,0x4
00cc 380a |8 | Execute Record,Field_Write,Field_Number 0xa
00cd e005 | | Load 0x0,0x5
00ce 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00cf e5ff | | Load 0x2,-0x1
00d0 e005 | | Load 0x0,0x5
00d1 180f | | Execute Package,Field_Execute,Field_Number 0xf
00d2 4801 |H | Short_Literal 0x1
00d3 e005 | | Load 0x0,0x5
00d4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00d5 4801 |H | Short_Literal 0x1
00d6 4800 |H | Short_Literal 0x0
00d7 e004 | | Load 0x0,0x4
00d8 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
00d9 e006 | | Load 0x0,0x6
00da 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00db 4806 |H | Short_Literal 0x6
00dc 8002 | | Call 0x0,0x2
00dd 4503 |E | Exit_Subprogram 0x3
00de 4801 |H | Short_Literal 0x1
00df 4800 |H | Short_Literal 0x0
00e0 e004 | | Load 0x0,0x4
00e1 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
00e2 e006 | | Load 0x0,0x6
00e3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e4 4800 |H | Short_Literal 0x0
00e5 e004 | | Load 0x0,0x4
00e6 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
00e7 4800 |H | Short_Literal 0x0
00e8 e004 | | Load 0x0,0x4
00e9 380a |8 | Execute Record,Field_Write,Field_Number 0xa
00ea e005 | | Load 0x0,0x5
00eb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ec 4503 |E | Exit_Subprogram 0x3
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f5 | | .CONST 0x00f5 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 029f 092b | +| Declare_Subprogram For_Call,INIT_0928
00f5 BODY_00f0:
00f5 e5fe | | Load 0x2,-0x2
00f6 4602 |F | Jump_Case 0x2
00f7 780b |x | Jump 0x103 ; case 0x0
00f8 7823 |x# | Jump 0x11c ; case 0x1
00f9 7800 |x | Jump 0xfa ; case 0x2
00fa 4807 |H | Short_Literal 0x7
00fb 8002 | | Call 0x0,0x2
00fc e004 | | Load 0x0,0x4
00fd 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
00fe 7003 |p | Jump_Nonzero 0x102
00ff 4943 |IC | Short_Literal 0x143
0100 e005 | | Load 0x0,0x5
0101 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0102 4503 |E | Exit_Subprogram 0x3
0103 4807 |H | Short_Literal 0x7
0104 8003 | | Call 0x0,0x3
0105 e004 | | Load 0x0,0x4
0106 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
0107 6804 |h | Jump_Zero 0x10c
0108 e5ff | | Load 0x2,-0x1
0109 e005 | | Load 0x0,0x5
010a 180f | | Execute Package,Field_Execute,Field_Number 0xf
010b 780d |x | Jump 0x119
010c 8402 | | Call 0x2,0x2
010d 4801 |H | Short_Literal 0x1
010e e004 | | Load 0x0,0x4
010f 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0110 4942 |IB | Short_Literal 0x142
0111 e005 | | Load 0x0,0x5
0112 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0113 e5ff | | Load 0x2,-0x1
0114 e005 | | Load 0x0,0x5
0115 180f | | Execute Package,Field_Execute,Field_Number 0xf
0116 4943 |IC | Short_Literal 0x143
0117 e005 | | Load 0x0,0x5
0118 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0119 4807 |H | Short_Literal 0x7
011a 8002 | | Call 0x0,0x2
011b 4503 |E | Exit_Subprogram 0x3
011c e004 | | Load 0x0,0x4
011d 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
011e 7007 |p | Jump_Nonzero 0x126
011f 8402 | | Call 0x2,0x2
0120 4801 |H | Short_Literal 0x1
0121 e004 | | Load 0x0,0x4
0122 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0123 4942 |IB | Short_Literal 0x142
0124 e005 | | Load 0x0,0x5
0125 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0126 4503 |E | Exit_Subprogram 0x3
0127 0000 | | .XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b e5fe | | Load 0x2,-0x2
012c 4602 |F | Jump_Case 0x2
012d 7807 |x | Jump 0x135 ; case 0x0
012e 7815 |x | Jump 0x144 ; case 0x1
012f 7800 |x | Jump 0x130 ; case 0x2
0130 4817 |H | Short_Literal 0x17
0131 4801 |H | Short_Literal 0x1
0132 e007 | | Load 0x0,0x7
0133 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0134 4503 |E | Exit_Subprogram 0x3
0135 4817 |H | Short_Literal 0x17
0136 4801 |H | Short_Literal 0x1
0137 e007 | | Load 0x0,0x7
0138 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0139 4837 |H7 | Short_Literal 0x37
013a e004 | | Load 0x0,0x4
013b 381c |8 | Execute Record,Field_Write,Field_Number 0x1c
013c e5ff | | Load 0x2,-0x1
013d e005 | | Load 0x0,0x5
013e 180f | | Execute Package,Field_Execute,Field_Number 0xf
013f 4817 |H | Short_Literal 0x17
0140 4801 |H | Short_Literal 0x1
0141 e007 | | Load 0x0,0x7
0142 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0143 4503 |E | Exit_Subprogram 0x3
0144 4817 |H | Short_Literal 0x17
0145 4800 |H | Short_Literal 0x0
0146 e007 | | Load 0x0,0x7
0147 1844 | D | Execute Package,Field_Execute,Field_Number 0x44
0148 4837 |H7 | Short_Literal 0x37
0149 e004 | | Load 0x0,0x4
014a 381c |8 | Execute Record,Field_Write,Field_Number 0x1c
014b 4503 |E | Exit_Subprogram 0x3
014c 0000 0000 | | .BLANK 0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 e5fe | | Load 0x2,-0x2
0154 4602 |F | Jump_Case 0x2
0155 780c |x | Jump 0x162 ; case 0x0
0156 782e |x. | Jump 0x185 ; case 0x1
0157 7800 |x | Jump 0x158 ; case 0x2
0158 e5fe | | Load 0x2,-0x2
0159 e5ff | | Load 0x2,-0x1
015a 8225 | % | Call 0x1,0x25
015b 4801 |H | Short_Literal 0x1
015c 4800 |H | Short_Literal 0x0
015d e008 | | Load 0x0,0x8
015e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
015f e006 | | Load 0x0,0x6
0160 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0161 4503 |E | Exit_Subprogram 0x3
0162 4819 |H | Short_Literal 0x19
0163 8003 | | Call 0x0,0x3
0164 e004 | | Load 0x0,0x4
0165 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
0166 e008 | | Load 0x0,0x8
0167 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0168 0273 | s | Execute Discrete,Plus
0169 e004 | | Load 0x0,0x4
016a 3816 |8 | Execute Record,Field_Write,Field_Number 0x16
016b 4801 |H | Short_Literal 0x1
016c 4800 |H | Short_Literal 0x0
016d e008 | | Load 0x0,0x8
016e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
016f e006 | | Load 0x0,0x6
0170 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0171 4800 |H | Short_Literal 0x0
0172 e004 | | Load 0x0,0x4
0173 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0174 e005 | | Load 0x0,0x5
0175 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0176 4801 |H | Short_Literal 0x1
0177 e004 | | Load 0x0,0x4
0178 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0179 e5fe | | Load 0x2,-0x2
017a e5ff | | Load 0x2,-0x1
017b 8225 | % | Call 0x1,0x25
017c 4801 |H | Short_Literal 0x1
017d 4800 |H | Short_Literal 0x0
017e e008 | | Load 0x0,0x8
017f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0180 e006 | | Load 0x0,0x6
0181 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0182 4819 |H | Short_Literal 0x19
0183 8002 | | Call 0x0,0x2
0184 4503 |E | Exit_Subprogram 0x3
0185 e004 | | Load 0x0,0x4
0186 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
0187 e008 | | Load 0x0,0x8
0188 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0189 0273 | s | Execute Discrete,Plus
018a e004 | | Load 0x0,0x4
018b 3816 |8 | Execute Record,Field_Write,Field_Number 0x16
018c 4801 |H | Short_Literal 0x1
018d 4800 |H | Short_Literal 0x0
018e e008 | | Load 0x0,0x8
018f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0190 e006 | | Load 0x0,0x6
0191 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0192 4800 |H | Short_Literal 0x0
0193 e004 | | Load 0x0,0x4
0194 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0195 e005 | | Load 0x0,0x5
0196 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0197 4801 |H | Short_Literal 0x1
0198 e004 | | Load 0x0,0x4
0199 380a |8 | Execute Record,Field_Write,Field_Number 0xa
019a 4861 |Ha | Short_Literal 0x61
019b e004 | | Load 0x0,0x4
019c 381e |8 | Execute Record,Field_Write,Field_Number 0x1e
019d e5fe | | Load 0x2,-0x2
019e e5ff | | Load 0x2,-0x1
019f 8225 | % | Call 0x1,0x25
01a0 4503 |E | Exit_Subprogram 0x3
01a1 0000 0000 | | .BLANK 0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab e5fe | | Load 0x2,-0x2
01ac 4602 |F | Jump_Case 0x2
01ad 780e |x | Jump 0x1bc ; case 0x0
01ae 782f |x/ | Jump 0x1de ; case 0x1
01af 7800 |x | Jump 0x1b0 ; case 0x2
01b0 481e |H | Short_Literal 0x1e
01b1 8002 | | Call 0x0,0x2
01b2 4801 |H | Short_Literal 0x1
01b3 e005 | | Load 0x0,0x5
01b4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01b5 4801 |H | Short_Literal 0x1
01b6 4800 |H | Short_Literal 0x0
01b7 e008 | | Load 0x0,0x8
01b8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01b9 e006 | | Load 0x0,0x6
01ba 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01bb 4503 |E | Exit_Subprogram 0x3
01bc 481e |H | Short_Literal 0x1e
01bd 8003 | | Call 0x0,0x3
01be 4801 |H | Short_Literal 0x1
01bf e005 | | Load 0x0,0x5
01c0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c1 4801 |H | Short_Literal 0x1
01c2 4800 |H | Short_Literal 0x0
01c3 e008 | | Load 0x0,0x8
01c4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01c5 e006 | | Load 0x0,0x6
01c6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01c7 4800 |H | Short_Literal 0x0
01c8 e004 | | Load 0x0,0x4
01c9 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
01ca e005 | | Load 0x0,0x5
01cb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01cc 4801 |H | Short_Literal 0x1
01cd e004 | | Load 0x0,0x4
01ce 380a |8 | Execute Record,Field_Write,Field_Number 0xa
01cf e5ff | | Load 0x2,-0x1
01d0 e005 | | Load 0x0,0x5
01d1 180f | | Execute Package,Field_Execute,Field_Number 0xf
01d2 481e |H | Short_Literal 0x1e
01d3 8002 | | Call 0x0,0x2
01d4 4801 |H | Short_Literal 0x1
01d5 e005 | | Load 0x0,0x5
01d6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01d7 4801 |H | Short_Literal 0x1
01d8 4800 |H | Short_Literal 0x0
01d9 e008 | | Load 0x0,0x8
01da 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01db e006 | | Load 0x0,0x6
01dc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01dd 4503 |E | Exit_Subprogram 0x3
01de 4801 |H | Short_Literal 0x1
01df e005 | | Load 0x0,0x5
01e0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01e1 4801 |H | Short_Literal 0x1
01e2 4800 |H | Short_Literal 0x0
01e3 e008 | | Load 0x0,0x8
01e4 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01e5 e006 | | Load 0x0,0x6
01e6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01e7 4800 |H | Short_Literal 0x0
01e8 e004 | | Load 0x0,0x4
01e9 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
01ea e005 | | Load 0x0,0x5
01eb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01ec 4801 |H | Short_Literal 0x1
01ed e004 | | Load 0x0,0x4
01ee 380a |8 | Execute Record,Field_Write,Field_Number 0xa
01ef 4503 |E | Exit_Subprogram 0x3
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 e5fe | | Load 0x2,-0x2
01f4 4602 |F | Jump_Case 0x2
01f5 7812 |x | Jump 0x208 ; case 0x0
01f6 7828 |x( | Jump 0x21f ; case 0x1
01f7 7800 |x | Jump 0x1f8 ; case 0x2
01f8 4820 |H | Short_Literal 0x20
01f9 8002 | | Call 0x0,0x2
01fa 4801 |H | Short_Literal 0x1
01fb e009 | | Load 0x0,0x9
01fc 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01fd 4801 |H | Short_Literal 0x1
01fe 4800 |H | Short_Literal 0x0
01ff 4803 |H | Short_Literal 0x3
0200 e008 | | Load 0x0,0x8
0201 3427 |4' | Execute Record,Field_Reference,Field_Number 0x27
0202 01d7 | | Execute Vector,Field_Read
0203 e006 | | Load 0x0,0x6
0204 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0205 e005 | | Load 0x0,0x5
0206 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0207 4503 |E | Exit_Subprogram 0x3
0208 4801 |H | Short_Literal 0x1
0209 e009 | | Load 0x0,0x9
020a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
020b 4820 |H | Short_Literal 0x20
020c 8003 | | Call 0x0,0x3
020d 4803 |H | Short_Literal 0x3
020e 822a | * | Call 0x1,0x2a
020f e5ff | | Load 0x2,-0x1
0210 e005 | | Load 0x0,0x5
0211 180f | | Execute Package,Field_Execute,Field_Number 0xf
0212 4801 |H | Short_Literal 0x1
0213 4800 |H | Short_Literal 0x0
0214 4803 |H | Short_Literal 0x3
0215 e008 | | Load 0x0,0x8
0216 3427 |4' | Execute Record,Field_Reference,Field_Number 0x27
0217 01d7 | | Execute Vector,Field_Read
0218 e006 | | Load 0x0,0x6
0219 1818 | | Execute Package,Field_Execute,Field_Number 0x18
021a e005 | | Load 0x0,0x5
021b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021c 4820 |H | Short_Literal 0x20
021d 8002 | | Call 0x0,0x2
021e 4503 |E | Exit_Subprogram 0x3
021f 4803 |H | Short_Literal 0x3
0220 822a | * | Call 0x1,0x2a
0221 4503 |E | Exit_Subprogram 0x3
0222 0000 0000 | | .BLANK 0000[0x6]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b e5fe | | Load 0x2,-0x2
022c 4602 |F | Jump_Case 0x2
022d 7807 |x | Jump 0x235 ; case 0x0
022e 7815 |x | Jump 0x244 ; case 0x1
022f 7800 |x | Jump 0x230 ; case 0x2
0230 4828 |H( | Short_Literal 0x28
0231 4801 |H | Short_Literal 0x1
0232 e007 | | Load 0x0,0x7
0233 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0234 4503 |E | Exit_Subprogram 0x3
0235 4828 |H( | Short_Literal 0x28
0236 4801 |H | Short_Literal 0x1
0237 e007 | | Load 0x0,0x7
0238 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0239 4826 |H& | Short_Literal 0x26
023a e004 | | Load 0x0,0x4
023b 381c |8 | Execute Record,Field_Write,Field_Number 0x1c
023c e5ff | | Load 0x2,-0x1
023d e005 | | Load 0x0,0x5
023e 180f | | Execute Package,Field_Execute,Field_Number 0xf
023f 4828 |H( | Short_Literal 0x28
0240 4801 |H | Short_Literal 0x1
0241 e007 | | Load 0x0,0x7
0242 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0243 4503 |E | Exit_Subprogram 0x3
0244 4828 |H( | Short_Literal 0x28
0245 4800 |H | Short_Literal 0x0
0246 e007 | | Load 0x0,0x7
0247 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
0248 4826 |H& | Short_Literal 0x26
0249 e004 | | Load 0x0,0x4
024a 381c |8 | Execute Record,Field_Write,Field_Number 0x1c
024b 4503 |E | Exit_Subprogram 0x3
024c 0000 0000 | | .BLANK 0000[0x4]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 e5fe | | Load 0x2,-0x2
0254 4602 |F | Jump_Case 0x2
0255 7805 |x | Jump 0x25b ; case 0x0
0256 780f |x | Jump 0x266 ; case 0x1
0257 7800 |x | Jump 0x258 ; case 0x2
0258 4827 |H' | Short_Literal 0x27
0259 8002 | | Call 0x0,0x2
025a 4503 |E | Exit_Subprogram 0x3
025b 4827 |H' | Short_Literal 0x27
025c 8003 | | Call 0x0,0x3
025d 4801 |H | Short_Literal 0x1
025e e004 | | Load 0x0,0x4
025f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0260 e5ff | | Load 0x2,-0x1
0261 e005 | | Load 0x0,0x5
0262 180f | | Execute Package,Field_Execute,Field_Number 0xf
0263 4827 |H' | Short_Literal 0x27
0264 8002 | | Call 0x0,0x2
0265 4503 |E | Exit_Subprogram 0x3
0266 4801 |H | Short_Literal 0x1
0267 e004 | | Load 0x0,0x4
0268 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0269 4503 |E | Exit_Subprogram 0x3
026a 0000 0000 | | .BLANK 0000[0x6]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 e5fe | | Load 0x2,-0x2
0274 4602 |F | Jump_Case 0x2
0275 780e |x | Jump 0x284 ; case 0x0
0276 782a |x* | Jump 0x2a1 ; case 0x1
0277 7800 |x | Jump 0x278 ; case 0x2
0278 4801 |H | Short_Literal 0x1
0279 e005 | | Load 0x0,0x5
027a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
027b 4801 |H | Short_Literal 0x1
027c 4800 |H | Short_Literal 0x0
027d e004 | | Load 0x0,0x4
027e 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
027f e006 | | Load 0x0,0x6
0280 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0281 e5fc | | Load 0x2,-0x4
0282 8002 | | Call 0x0,0x2
0283 4505 |E | Exit_Subprogram 0x5
0284 e5fc | | Load 0x2,-0x4
0285 8003 | | Call 0x0,0x3
0286 4801 |H | Short_Literal 0x1
0287 e005 | | Load 0x0,0x5
0288 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0289 4801 |H | Short_Literal 0x1
028a 4800 |H | Short_Literal 0x0
028b e004 | | Load 0x0,0x4
028c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
028d e006 | | Load 0x0,0x6
028e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
028f e5fd | | Load 0x2,-0x3
0290 e004 | | Load 0x0,0x4
0291 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0292 e5ff | | Load 0x2,-0x1
0293 e005 | | Load 0x0,0x5
0294 180f | | Execute Package,Field_Execute,Field_Number 0xf
0295 4801 |H | Short_Literal 0x1
0296 e005 | | Load 0x0,0x5
0297 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0298 4801 |H | Short_Literal 0x1
0299 4800 |H | Short_Literal 0x0
029a e004 | | Load 0x0,0x4
029b 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
029c e006 | | Load 0x0,0x6
029d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
029e e5fc | | Load 0x2,-0x4
029f 8002 | | Call 0x0,0x2
02a0 4505 |E | Exit_Subprogram 0x5
02a1 4801 |H | Short_Literal 0x1
02a2 e005 | | Load 0x0,0x5
02a3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02a4 4801 |H | Short_Literal 0x1
02a5 4800 |H | Short_Literal 0x0
02a6 e004 | | Load 0x0,0x4
02a7 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
02a8 e006 | | Load 0x0,0x6
02a9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02aa e5fd | | Load 0x2,-0x3
02ab e004 | | Load 0x0,0x4
02ac 380a |8 | Execute Record,Field_Write,Field_Number 0xa
02ad 4505 |E | Exit_Subprogram 0x5
02ae 0000 0000 | | .XXX[0x2]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b5 | | .CONST 0x02b5 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 029f 094b | K| Declare_Subprogram For_Call,INIT_0948
02b5 BODY_02b0:
02b5 e5fe | | Load 0x2,-0x2
02b6 4602 |F | Jump_Case 0x2
02b7 7809 |x | Jump 0x2c1 ; case 0x0
02b8 7818 |x | Jump 0x2d1 ; case 0x1
02b9 7800 |x | Jump 0x2ba ; case 0x2
02ba 4800 |H | Short_Literal 0x0
02bb e009 | | Load 0x0,0x9
02bc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02bd 8402 | | Call 0x2,0x2
02be 482a |H* | Short_Literal 0x2a
02bf 8002 | | Call 0x0,0x2
02c0 4503 |E | Exit_Subprogram 0x3
02c1 482a |H* | Short_Literal 0x2a
02c2 8003 | | Call 0x0,0x3
02c3 8402 | | Call 0x2,0x2
02c4 4801 |H | Short_Literal 0x1
02c5 e009 | | Load 0x0,0x9
02c6 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02c7 e5ff | | Load 0x2,-0x1
02c8 e005 | | Load 0x0,0x5
02c9 180f | | Execute Package,Field_Execute,Field_Number 0xf
02ca 4800 |H | Short_Literal 0x0
02cb e009 | | Load 0x0,0x9
02cc 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02cd 8402 | | Call 0x2,0x2
02ce 482a |H* | Short_Literal 0x2a
02cf 8002 | | Call 0x0,0x2
02d0 4503 |E | Exit_Subprogram 0x3
02d1 8402 | | Call 0x2,0x2
02d2 4801 |H | Short_Literal 0x1
02d3 e009 | | Load 0x0,0x9
02d4 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02d5 4503 |E | Exit_Subprogram 0x3
02d6 0000 0000 | | .XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db e5fe | | Load 0x2,-0x2
02dc 4602 |F | Jump_Case 0x2
02dd 7812 |x | Jump 0x2f0 ; case 0x0
02de 7828 |x( | Jump 0x307 ; case 0x1
02df 7800 |x | Jump 0x2e0 ; case 0x2
02e0 4833 |H3 | Short_Literal 0x33
02e1 8002 | | Call 0x0,0x2
02e2 4801 |H | Short_Literal 0x1
02e3 e009 | | Load 0x0,0x9
02e4 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02e5 4801 |H | Short_Literal 0x1
02e6 4800 |H | Short_Literal 0x0
02e7 4802 |H | Short_Literal 0x2
02e8 e008 | | Load 0x0,0x8
02e9 3427 |4' | Execute Record,Field_Reference,Field_Number 0x27
02ea 01d7 | | Execute Vector,Field_Read
02eb e006 | | Load 0x0,0x6
02ec 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02ed e005 | | Load 0x0,0x5
02ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ef 4503 |E | Exit_Subprogram 0x3
02f0 4801 |H | Short_Literal 0x1
02f1 e009 | | Load 0x0,0x9
02f2 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02f3 4833 |H3 | Short_Literal 0x33
02f4 8003 | | Call 0x0,0x3
02f5 4802 |H | Short_Literal 0x2
02f6 822a | * | Call 0x1,0x2a
02f7 e5ff | | Load 0x2,-0x1
02f8 e005 | | Load 0x0,0x5
02f9 180f | | Execute Package,Field_Execute,Field_Number 0xf
02fa 4801 |H | Short_Literal 0x1
02fb 4800 |H | Short_Literal 0x0
02fc 4802 |H | Short_Literal 0x2
02fd e008 | | Load 0x0,0x8
02fe 3427 |4' | Execute Record,Field_Reference,Field_Number 0x27
02ff 01d7 | | Execute Vector,Field_Read
0300 e006 | | Load 0x0,0x6
0301 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0302 e005 | | Load 0x0,0x5
0303 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0304 4833 |H3 | Short_Literal 0x33
0305 8002 | | Call 0x0,0x2
0306 4503 |E | Exit_Subprogram 0x3
0307 4802 |H | Short_Literal 0x2
0308 822a | * | Call 0x1,0x2a
0309 4503 |E | Exit_Subprogram 0x3
030a 0000 0000 | | .BLANK 0000[0x6]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 e5fe | | Load 0x2,-0x2
0314 4602 |F | Jump_Case 0x2
0315 7805 |x | Jump 0x31b ; case 0x0
0316 780f |x | Jump 0x326 ; case 0x1
0317 7800 |x | Jump 0x318 ; case 0x2
0318 4834 |H4 | Short_Literal 0x34
0319 8002 | | Call 0x0,0x2
031a 4503 |E | Exit_Subprogram 0x3
031b 4834 |H4 | Short_Literal 0x34
031c 8003 | | Call 0x0,0x3
031d 4830 |H0 | Short_Literal 0x30
031e e004 | | Load 0x0,0x4
031f 381d |8 | Execute Record,Field_Write,Field_Number 0x1d
0320 e5ff | | Load 0x2,-0x1
0321 e005 | | Load 0x0,0x5
0322 180f | | Execute Package,Field_Execute,Field_Number 0xf
0323 4834 |H4 | Short_Literal 0x34
0324 8002 | | Call 0x0,0x2
0325 4503 |E | Exit_Subprogram 0x3
0326 4830 |H0 | Short_Literal 0x30
0327 e004 | | Load 0x0,0x4
0328 381d |8 | Execute Record,Field_Write,Field_Number 0x1d
0329 4503 |E | Exit_Subprogram 0x3
032a 0000 0000 | | .BLANK 0000[0x6]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 e5fe | | Load 0x2,-0x2
0334 4602 |F | Jump_Case 0x2
0335 7805 |x | Jump 0x33b ; case 0x0
0336 4503 |E | Exit_Subprogram 0x3 ; case 0x1
0337 7800 |x | Jump 0x338 ; case 0x2
0338 4838 |H8 | Short_Literal 0x38
0339 8002 | | Call 0x0,0x2
033a 4503 |E | Exit_Subprogram 0x3
033b 4838 |H8 | Short_Literal 0x38
033c 8003 | | Call 0x0,0x3
033d e5ff | | Load 0x2,-0x1
033e e005 | | Load 0x0,0x5
033f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0340 4838 |H8 | Short_Literal 0x38
0341 8002 | | Call 0x0,0x2
0342 4503 |E | Exit_Subprogram 0x3
0343 0000 0000 | | .BLANK 0000[0x5]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b e5fe | | Load 0x2,-0x2
034c 4602 |F | Jump_Case 0x2
034d 780b |x | Jump 0x359 ; case 0x0
034e 782f |x/ | Jump 0x37e ; case 0x1
034f 7800 |x | Jump 0x350 ; case 0x2
0350 4845 |HE | Short_Literal 0x45
0351 8002 | | Call 0x0,0x2
0352 4801 |H | Short_Literal 0x1
0353 4800 |H | Short_Literal 0x0
0354 e008 | | Load 0x0,0x8
0355 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0356 e006 | | Load 0x0,0x6
0357 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0358 4503 |E | Exit_Subprogram 0x3
0359 4845 |HE | Short_Literal 0x45
035a 8003 | | Call 0x0,0x3
035b 4801 |H | Short_Literal 0x1
035c 4800 |H | Short_Literal 0x0
035d e008 | | Load 0x0,0x8
035e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
035f e006 | | Load 0x0,0x6
0360 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0361 4801 |H | Short_Literal 0x1
0362 e004 | | Load 0x0,0x4
0363 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0364 e004 | | Load 0x0,0x4
0365 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
0366 e008 | | Load 0x0,0x8
0367 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0368 0273 | s | Execute Discrete,Plus
0369 e004 | | Load 0x0,0x4
036a 3816 |8 | Execute Record,Field_Write,Field_Number 0x16
036b e004 | | Load 0x0,0x4
036c 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
036d e008 | | Load 0x0,0x8
036e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
036f 0272 | r | Execute Discrete,Minus
0370 e004 | | Load 0x0,0x4
0371 3817 |8 | Execute Record,Field_Write,Field_Number 0x17
0372 e5ff | | Load 0x2,-0x1
0373 e005 | | Load 0x0,0x5
0374 180f | | Execute Package,Field_Execute,Field_Number 0xf
0375 4845 |HE | Short_Literal 0x45
0376 8002 | | Call 0x0,0x2
0377 4801 |H | Short_Literal 0x1
0378 4800 |H | Short_Literal 0x0
0379 e008 | | Load 0x0,0x8
037a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
037b e006 | | Load 0x0,0x6
037c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
037d 4503 |E | Exit_Subprogram 0x3
037e 4801 |H | Short_Literal 0x1
037f 4800 |H | Short_Literal 0x0
0380 e008 | | Load 0x0,0x8
0381 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0382 e006 | | Load 0x0,0x6
0383 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0384 4801 |H | Short_Literal 0x1
0385 e004 | | Load 0x0,0x4
0386 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0387 e004 | | Load 0x0,0x4
0388 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
0389 e008 | | Load 0x0,0x8
038a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
038b 0273 | s | Execute Discrete,Plus
038c e004 | | Load 0x0,0x4
038d 3816 |8 | Execute Record,Field_Write,Field_Number 0x16
038e e004 | | Load 0x0,0x4
038f 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
0390 e008 | | Load 0x0,0x8
0391 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0392 0272 | r | Execute Discrete,Minus
0393 e004 | | Load 0x0,0x4
0394 3817 |8 | Execute Record,Field_Write,Field_Number 0x17
0395 4503 |E | Exit_Subprogram 0x3
0396 0000 0000 | | .XXX[0x2]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b e5fe | | Load 0x2,-0x2
039c 4602 |F | Jump_Case 0x2
039d 7805 |x | Jump 0x3a3 ; case 0x0
039e 7812 |x | Jump 0x3b1 ; case 0x1
039f 7800 |x | Jump 0x3a0 ; case 0x2
03a0 4849 |HI | Short_Literal 0x49
03a1 8002 | | Call 0x0,0x2
03a2 4503 |E | Exit_Subprogram 0x3
03a3 4849 |HI | Short_Literal 0x49
03a4 8003 | | Call 0x0,0x3
03a5 4800 |H | Short_Literal 0x0
03a6 e004 | | Load 0x0,0x4
03a7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03a8 4800 |H | Short_Literal 0x0
03a9 e004 | | Load 0x0,0x4
03aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03ab e5ff | | Load 0x2,-0x1
03ac e005 | | Load 0x0,0x5
03ad 180f | | Execute Package,Field_Execute,Field_Number 0xf
03ae 4849 |HI | Short_Literal 0x49
03af 8002 | | Call 0x0,0x2
03b0 4503 |E | Exit_Subprogram 0x3
03b1 4800 |H | Short_Literal 0x0
03b2 e004 | | Load 0x0,0x4
03b3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03b4 4800 |H | Short_Literal 0x0
03b5 e004 | | Load 0x0,0x4
03b6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03b7 4503 |E | Exit_Subprogram 0x3
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb e5fe | | Load 0x2,-0x2
03bc 4602 |F | Jump_Case 0x2
03bd 7805 |x | Jump 0x3c3 ; case 0x0
03be 780f |x | Jump 0x3ce ; case 0x1
03bf 7800 |x | Jump 0x3c0 ; case 0x2
03c0 484d |HM | Short_Literal 0x4d
03c1 8002 | | Call 0x0,0x2
03c2 4503 |E | Exit_Subprogram 0x3
03c3 484d |HM | Short_Literal 0x4d
03c4 8003 | | Call 0x0,0x3
03c5 4801 |H | Short_Literal 0x1
03c6 e004 | | Load 0x0,0x4
03c7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03c8 e5ff | | Load 0x2,-0x1
03c9 e005 | | Load 0x0,0x5
03ca 180f | | Execute Package,Field_Execute,Field_Number 0xf
03cb 484d |HM | Short_Literal 0x4d
03cc 8002 | | Call 0x0,0x2
03cd 4503 |E | Exit_Subprogram 0x3
03ce 4801 |H | Short_Literal 0x1
03cf e004 | | Load 0x0,0x4
03d0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03d1 4503 |E | Exit_Subprogram 0x3
03d2 0000 0000 | | .BLANK 0000[0x6]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db e5fe | | Load 0x2,-0x2
03dc 4602 |F | Jump_Case 0x2
03dd 7812 |x | Jump 0x3f0 ; case 0x0
03de 7828 |x( | Jump 0x407 ; case 0x1
03df 7800 |x | Jump 0x3e0 ; case 0x2
03e0 4851 |HQ | Short_Literal 0x51
03e1 8002 | | Call 0x0,0x2
03e2 4801 |H | Short_Literal 0x1
03e3 e009 | | Load 0x0,0x9
03e4 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03e5 4801 |H | Short_Literal 0x1
03e6 4800 |H | Short_Literal 0x0
03e7 4804 |H | Short_Literal 0x4
03e8 e008 | | Load 0x0,0x8
03e9 3427 |4' | Execute Record,Field_Reference,Field_Number 0x27
03ea 01d7 | | Execute Vector,Field_Read
03eb e006 | | Load 0x0,0x6
03ec 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03ed e005 | | Load 0x0,0x5
03ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03ef 4503 |E | Exit_Subprogram 0x3
03f0 4801 |H | Short_Literal 0x1
03f1 e009 | | Load 0x0,0x9
03f2 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03f3 4851 |HQ | Short_Literal 0x51
03f4 8003 | | Call 0x0,0x3
03f5 4804 |H | Short_Literal 0x4
03f6 822a | * | Call 0x1,0x2a
03f7 e5ff | | Load 0x2,-0x1
03f8 e005 | | Load 0x0,0x5
03f9 180f | | Execute Package,Field_Execute,Field_Number 0xf
03fa 4801 |H | Short_Literal 0x1
03fb 4800 |H | Short_Literal 0x0
03fc 4804 |H | Short_Literal 0x4
03fd e008 | | Load 0x0,0x8
03fe 3427 |4' | Execute Record,Field_Reference,Field_Number 0x27
03ff 01d7 | | Execute Vector,Field_Read
0400 e006 | | Load 0x0,0x6
0401 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0402 e005 | | Load 0x0,0x5
0403 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0404 4851 |HQ | Short_Literal 0x51
0405 8002 | | Call 0x0,0x2
0406 4503 |E | Exit_Subprogram 0x3
0407 4804 |H | Short_Literal 0x4
0408 822a | * | Call 0x1,0x2a
0409 4503 |E | Exit_Subprogram 0x3
040a 0000 0000 | | .BLANK 0000[0x6]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0417 | | .CONST 0x0417 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0003 | | .CONST 0x0003 ; Number of locals
0413 INIT_0410:
0413 e00a | | Load 0x0,0xa
0414 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0415 e00a | | Load 0x0,0xa
0416 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0417 BODY_0410:
0417 e5fe | | Load 0x2,-0x2
0418 4602 |F | Jump_Case 0x2
0419 7814 |x | Jump 0x42e ; case 0x0
041a 784d |xM | Jump 0x468 ; case 0x1
041b 7800 |x | Jump 0x41c ; case 0x2
041c 4800 |H | Short_Literal 0x0
041d e005 | | Load 0x0,0x5
041e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
041f 4853 |HS | Short_Literal 0x53
0420 8002 | | Call 0x0,0x2
0421 e004 | | Load 0x0,0x4
0422 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0423 e008 | | Load 0x0,0x8
0424 3c2d |<- | Execute Record,Field_Read,Field_Number 0x2d
0425 0271 | q | Execute Discrete,Times
0426 4848 |HH | Short_Literal 0x48
0427 0270 | p | Execute Discrete,Divide
0428 c402 | | Store 0x2,0x2
0429 e402 | | Load 0x2,0x2
042a 0275 | u | Execute Discrete,Unary_Minus
042b e009 | | Load 0x0,0x9
042c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
042d 4503 |E | Exit_Subprogram 0x3
042e 4800 |H | Short_Literal 0x0
042f e005 | | Load 0x0,0x5
0430 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0431 4853 |HS | Short_Literal 0x53
0432 8003 | | Call 0x0,0x3
0433 e004 | | Load 0x0,0x4
0434 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0435 e008 | | Load 0x0,0x8
0436 3c2d |<- | Execute Record,Field_Read,Field_Number 0x2d
0437 0271 | q | Execute Discrete,Times
0438 4848 |HH | Short_Literal 0x48
0439 0270 | p | Execute Discrete,Divide
043a c402 | | Store 0x2,0x2
043b e004 | | Load 0x0,0x4
043c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
043d e008 | | Load 0x0,0x8
043e 3c2e |<. | Execute Record,Field_Read,Field_Number 0x2e
043f 0271 | q | Execute Discrete,Times
0440 6053 |`S | Indirect_Literal Discrete,0x494,{0x00000000, 0x00011940}
0441 0270 | p | Execute Discrete,Divide
0442 00d8 | | Load_Top At_Offset_0
0443 e00a | | Load 0x0,0xa
0444 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0445 0260 | ` | Execute Discrete,In_Type
0446 7001 |p | Jump_Nonzero 0x448
0447 0801 | | Execute_Immediate Raise,0x1
0448 a403 | | Store_Unchecked 0x2,0x3
0449 e402 | | Load 0x2,0x2
044a e009 | | Load 0x0,0x9
044b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
044c 00d8 | | Load_Top At_Offset_0
044d e00b | | Load 0x0,0xb
044e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
044f e00c | | Load 0x0,0xc
0450 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0451 00d8 | | Load_Top At_Offset_0
0452 e00c | | Load 0x0,0xc
0453 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0454 7003 |p | Jump_Nonzero 0x458
0455 e00d | | Load 0x0,0xd
0456 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0457 0257 | W | Execute Discrete,Raise
0458 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0459 e004 | | Load 0x0,0x4
045a 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
045b e5ff | | Load 0x2,-0x1
045c e005 | | Load 0x0,0x5
045d 180f | | Execute Package,Field_Execute,Field_Number 0xf
045e 4800 |H | Short_Literal 0x0
045f e005 | | Load 0x0,0x5
0460 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0461 4853 |HS | Short_Literal 0x53
0462 8002 | | Call 0x0,0x2
0463 e402 | | Load 0x2,0x2
0464 0275 | u | Execute Discrete,Unary_Minus
0465 e009 | | Load 0x0,0x9
0466 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0467 4503 |E | Exit_Subprogram 0x3
0468 4800 |H | Short_Literal 0x0
0469 e005 | | Load 0x0,0x5
046a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
046b e004 | | Load 0x0,0x4
046c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
046d e008 | | Load 0x0,0x8
046e 3c2d |<- | Execute Record,Field_Read,Field_Number 0x2d
046f 0271 | q | Execute Discrete,Times
0470 4848 |HH | Short_Literal 0x48
0471 0270 | p | Execute Discrete,Divide
0472 c402 | | Store 0x2,0x2
0473 e004 | | Load 0x0,0x4
0474 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0475 e008 | | Load 0x0,0x8
0476 3c2e |<. | Execute Record,Field_Read,Field_Number 0x2e
0477 0271 | q | Execute Discrete,Times
0478 601b |` | Indirect_Literal Discrete,0x494,{0x00000000, 0x00011940}
0479 0270 | p | Execute Discrete,Divide
047a 00d8 | | Load_Top At_Offset_0
047b e00a | | Load 0x0,0xa
047c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
047d 0260 | ` | Execute Discrete,In_Type
047e 7001 |p | Jump_Nonzero 0x480
047f 0801 | | Execute_Immediate Raise,0x1
0480 a403 | | Store_Unchecked 0x2,0x3
0481 e402 | | Load 0x2,0x2
0482 e009 | | Load 0x0,0x9
0483 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0484 00d8 | | Load_Top At_Offset_0
0485 e00b | | Load 0x0,0xb
0486 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0487 e00c | | Load 0x0,0xc
0488 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0489 00d8 | | Load_Top At_Offset_0
048a e00c | | Load 0x0,0xc
048b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
048c 7003 |p | Jump_Nonzero 0x490
048d e00d | | Load 0x0,0xd
048e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
048f 0257 | W | Execute Discrete,Raise
0490 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0491 e004 | | Load 0x0,0x4
0492 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0493 4503 |E | Exit_Subprogram 0x3
0494 0000 0000 | | .LITERAL {0x00000000, 0x00011940}
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049f | | .CONST 0x049f ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0003 | | .CONST 0x0003 ; Number of locals
049b INIT_0498:
049b e00a | | Load 0x0,0xa
049c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
049d e00a | | Load 0x0,0xa
049e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
049f BODY_0498:
049f e5fe | | Load 0x2,-0x2
04a0 4602 |F | Jump_Case 0x2
04a1 7813 |x | Jump 0x4b5 ; case 0x0
04a2 784c |xL | Jump 0x4ef ; case 0x1
04a3 7800 |x | Jump 0x4a4 ; case 0x2
04a4 4800 |H | Short_Literal 0x0
04a5 e005 | | Load 0x0,0x5
04a6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04a7 4855 |HU | Short_Literal 0x55
04a8 8002 | | Call 0x0,0x2
04a9 e004 | | Load 0x0,0x4
04aa 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
04ab e008 | | Load 0x0,0x8
04ac 3c2f |</ | Execute Record,Field_Read,Field_Number 0x2f
04ad 0271 | q | Execute Discrete,Times
04ae 4848 |HH | Short_Literal 0x48
04af 0270 | p | Execute Discrete,Divide
04b0 c402 | | Store 0x2,0x2
04b1 e402 | | Load 0x2,0x2
04b2 e009 | | Load 0x0,0x9
04b3 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04b4 4503 |E | Exit_Subprogram 0x3
04b5 4800 |H | Short_Literal 0x0
04b6 e005 | | Load 0x0,0x5
04b7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04b8 4855 |HU | Short_Literal 0x55
04b9 8003 | | Call 0x0,0x3
04ba e004 | | Load 0x0,0x4
04bb 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
04bc e008 | | Load 0x0,0x8
04bd 3c2f |</ | Execute Record,Field_Read,Field_Number 0x2f
04be 0271 | q | Execute Discrete,Times
04bf 4848 |HH | Short_Literal 0x48
04c0 0270 | p | Execute Discrete,Divide
04c1 c402 | | Store 0x2,0x2
04c2 e004 | | Load 0x0,0x4
04c3 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
04c4 e008 | | Load 0x0,0x8
04c5 3c30 |<0 | Execute Record,Field_Read,Field_Number 0x30
04c6 0271 | q | Execute Discrete,Times
04c7 67cc |g | Indirect_Literal Discrete,0x494,{0x00000000, 0x00011940}
04c8 0270 | p | Execute Discrete,Divide
04c9 00d8 | | Load_Top At_Offset_0
04ca e00a | | Load 0x0,0xa
04cb 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04cc 0260 | ` | Execute Discrete,In_Type
04cd 7001 |p | Jump_Nonzero 0x4cf
04ce 0801 | | Execute_Immediate Raise,0x1
04cf a403 | | Store_Unchecked 0x2,0x3
04d0 e402 | | Load 0x2,0x2
04d1 0275 | u | Execute Discrete,Unary_Minus
04d2 e009 | | Load 0x0,0x9
04d3 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04d4 00d8 | | Load_Top At_Offset_0
04d5 e00b | | Load 0x0,0xb
04d6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04d7 e00c | | Load 0x0,0xc
04d8 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
04d9 00d8 | | Load_Top At_Offset_0
04da e00c | | Load 0x0,0xc
04db 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
04dc 7003 |p | Jump_Nonzero 0x4e0
04dd e00d | | Load 0x0,0xd
04de 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
04df 0257 | W | Execute Discrete,Raise
04e0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
04e1 e004 | | Load 0x0,0x4
04e2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
04e3 e5ff | | Load 0x2,-0x1
04e4 e005 | | Load 0x0,0x5
04e5 180f | | Execute Package,Field_Execute,Field_Number 0xf
04e6 4800 |H | Short_Literal 0x0
04e7 e005 | | Load 0x0,0x5
04e8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04e9 4855 |HU | Short_Literal 0x55
04ea 8002 | | Call 0x0,0x2
04eb e402 | | Load 0x2,0x2
04ec e009 | | Load 0x0,0x9
04ed 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04ee 4503 |E | Exit_Subprogram 0x3
04ef 4800 |H | Short_Literal 0x0
04f0 e005 | | Load 0x0,0x5
04f1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
04f2 e004 | | Load 0x0,0x4
04f3 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
04f4 e008 | | Load 0x0,0x8
04f5 3c2f |</ | Execute Record,Field_Read,Field_Number 0x2f
04f6 0271 | q | Execute Discrete,Times
04f7 4848 |HH | Short_Literal 0x48
04f8 0270 | p | Execute Discrete,Divide
04f9 c402 | | Store 0x2,0x2
04fa e004 | | Load 0x0,0x4
04fb 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
04fc e008 | | Load 0x0,0x8
04fd 3c30 |<0 | Execute Record,Field_Read,Field_Number 0x30
04fe 0271 | q | Execute Discrete,Times
04ff 6794 |g | Indirect_Literal Discrete,0x494,{0x00000000, 0x00011940}
0500 0270 | p | Execute Discrete,Divide
0501 00d8 | | Load_Top At_Offset_0
0502 e00a | | Load 0x0,0xa
0503 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0504 0260 | ` | Execute Discrete,In_Type
0505 7001 |p | Jump_Nonzero 0x507
0506 0801 | | Execute_Immediate Raise,0x1
0507 a403 | | Store_Unchecked 0x2,0x3
0508 e402 | | Load 0x2,0x2
0509 0275 | u | Execute Discrete,Unary_Minus
050a e009 | | Load 0x0,0x9
050b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
050c 00d8 | | Load_Top At_Offset_0
050d e00b | | Load 0x0,0xb
050e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
050f e00c | | Load 0x0,0xc
0510 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0511 00d8 | | Load_Top At_Offset_0
0512 e00c | | Load 0x0,0xc
0513 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0514 7003 |p | Jump_Nonzero 0x518
0515 e00d | | Load 0x0,0xd
0516 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0517 0257 | W | Execute Discrete,Raise
0518 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0519 e004 | | Load 0x0,0x4
051a 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
051b 4503 |E | Exit_Subprogram 0x3
051c 0000 0000 | | .BLANK 0000[0x4]
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523 | # | .CONST 0x0523 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0001 | | .CONST 0x0001 ; Number of locals
0523 BODY_0520:
0523 INIT_0520:
0523 e5fe | | Load 0x2,-0x2
0524 4602 |F | Jump_Case 0x2
0525 7805 |x | Jump 0x52b ; case 0x0
0526 7812 |x | Jump 0x539 ; case 0x1
0527 7800 |x | Jump 0x528 ; case 0x2
0528 485c |H\ | Short_Literal 0x5c
0529 8002 | | Call 0x0,0x2
052a 4503 |E | Exit_Subprogram 0x3
052b 485c |H\ | Short_Literal 0x5c
052c 8003 | | Call 0x0,0x3
052d 4801 |H | Short_Literal 0x1
052e e004 | | Load 0x0,0x4
052f 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0530 4801 |H | Short_Literal 0x1
0531 e004 | | Load 0x0,0x4
0532 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0533 e5ff | | Load 0x2,-0x1
0534 e005 | | Load 0x0,0x5
0535 180f | | Execute Package,Field_Execute,Field_Number 0xf
0536 485c |H\ | Short_Literal 0x5c
0537 8002 | | Call 0x0,0x2
0538 4503 |E | Exit_Subprogram 0x3
0539 4801 |H | Short_Literal 0x1
053a e004 | | Load 0x0,0x4
053b 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
053c 4801 |H | Short_Literal 0x1
053d e004 | | Load 0x0,0x4
053e 380a |8 | Execute Record,Field_Write,Field_Number 0xa
053f 4503 |E | Exit_Subprogram 0x3
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0545 | E | .CONST 0x0545 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0002 | | .CONST 0x0002 ; Number of locals
0543 INIT_0540:
0543 e00a | | Load 0x0,0xa
0544 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0545 BODY_0540:
0545 e5fe | | Load 0x2,-0x2
0546 4602 |F | Jump_Case 0x2
0547 780c |x | Jump 0x554 ; case 0x0
0548 7826 |x& | Jump 0x56f ; case 0x1
0549 7800 |x | Jump 0x54a ; case 0x2
054a e00e | | Load 0x0,0xe
054b 4800 |H | Short_Literal 0x0
054c e009 | | Load 0x0,0x9
054d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
054e 4801 |H | Short_Literal 0x1
054f e005 | | Load 0x0,0x5
0550 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0551 485e |H^ | Short_Literal 0x5e
0552 8002 | | Call 0x0,0x2
0553 4503 |E | Exit_Subprogram 0x3
0554 485e |H^ | Short_Literal 0x5e
0555 8003 | | Call 0x0,0x3
0556 4800 |H | Short_Literal 0x0
0557 4801 |H | Short_Literal 0x1
0558 e00f | | Load 0x0,0xf
0559 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
055a 01d6 | | Execute Vector,Field_Write
055b e010 | | Load 0x0,0x10
055c 4800 |H | Short_Literal 0x0
055d e009 | | Load 0x0,0x9
055e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
055f 4801 |H | Short_Literal 0x1
0560 e005 | | Load 0x0,0x5
0561 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0562 e5ff | | Load 0x2,-0x1
0563 e005 | | Load 0x0,0x5
0564 180f | | Execute Package,Field_Execute,Field_Number 0xf
0565 e00e | | Load 0x0,0xe
0566 4800 |H | Short_Literal 0x0
0567 e009 | | Load 0x0,0x9
0568 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0569 4801 |H | Short_Literal 0x1
056a e005 | | Load 0x0,0x5
056b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
056c 485e |H^ | Short_Literal 0x5e
056d 8002 | | Call 0x0,0x2
056e 4503 |E | Exit_Subprogram 0x3
056f 4800 |H | Short_Literal 0x0
0570 4801 |H | Short_Literal 0x1
0571 e00f | | Load 0x0,0xf
0572 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0573 01d6 | | Execute Vector,Field_Write
0574 e010 | | Load 0x0,0x10
0575 4800 |H | Short_Literal 0x0
0576 e009 | | Load 0x0,0x9
0577 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0578 4801 |H | Short_Literal 0x1
0579 e005 | | Load 0x0,0x5
057a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
057b 4503 |E | Exit_Subprogram 0x3
057c 0000 0000 | | .BLANK 0000[0x4]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0583 | | .CONST 0x0583 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0001 | | .CONST 0x0001 ; Number of locals
0583 BODY_0580:
0583 INIT_0580:
0583 e5fe | | Load 0x2,-0x2
0584 4602 |F | Jump_Case 0x2
0585 781e |x | Jump 0x5a4 ; case 0x0
0586 784b |xK | Jump 0x5d2 ; case 0x1
0587 7800 |x | Jump 0x588 ; case 0x2
0588 4800 |H | Short_Literal 0x0
0589 4801 |H | Short_Literal 0x1
058a e00f | | Load 0x0,0xf
058b 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
058c 01d6 | | Execute Vector,Field_Write
058d 485f |H_ | Short_Literal 0x5f
058e 8002 | | Call 0x0,0x2
058f e007 | | Load 0x0,0x7
0590 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0591 e011 | | Load 0x0,0x11
0592 6810 |h | Jump_Zero 0x5a3
0593 4800 |H | Short_Literal 0x0
0594 4801 |H | Short_Literal 0x1
0595 e00f | | Load 0x0,0xf
0596 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0597 01d6 | | Execute Vector,Field_Write
0598 e005 | | Load 0x0,0x5
0599 1811 | | Execute Package,Field_Execute,Field_Number 0x11
059a 4800 |H | Short_Literal 0x0
059b 4801 |H | Short_Literal 0x1
059c e00f | | Load 0x0,0xf
059d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
059e 01d6 | | Execute Vector,Field_Write
059f 4800 |H | Short_Literal 0x0
05a0 c012 | | Store 0x0,0x12
05a1 e007 | | Load 0x0,0x7
05a2 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05a3 4503 |E | Exit_Subprogram 0x3
05a4 485f |H_ | Short_Literal 0x5f
05a5 8003 | | Call 0x0,0x3
05a6 4800 |H | Short_Literal 0x0
05a7 e004 | | Load 0x0,0x4
05a8 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
05a9 4800 |H | Short_Literal 0x0
05aa e004 | | Load 0x0,0x4
05ab 380a |8 | Execute Record,Field_Write,Field_Number 0xa
05ac e005 | | Load 0x0,0x5
05ad 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05ae 4800 |H | Short_Literal 0x0
05af 4801 |H | Short_Literal 0x1
05b0 e00f | | Load 0x0,0xf
05b1 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05b2 01d6 | | Execute Vector,Field_Write
05b3 e5ff | | Load 0x2,-0x1
05b4 e005 | | Load 0x0,0x5
05b5 180f | | Execute Package,Field_Execute,Field_Number 0xf
05b6 4800 |H | Short_Literal 0x0
05b7 4801 |H | Short_Literal 0x1
05b8 e00f | | Load 0x0,0xf
05b9 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05ba 01d6 | | Execute Vector,Field_Write
05bb 485f |H_ | Short_Literal 0x5f
05bc 8002 | | Call 0x0,0x2
05bd e007 | | Load 0x0,0x7
05be 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05bf e011 | | Load 0x0,0x11
05c0 6810 |h | Jump_Zero 0x5d1
05c1 4800 |H | Short_Literal 0x0
05c2 4801 |H | Short_Literal 0x1
05c3 e00f | | Load 0x0,0xf
05c4 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05c5 01d6 | | Execute Vector,Field_Write
05c6 e005 | | Load 0x0,0x5
05c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05c8 4800 |H | Short_Literal 0x0
05c9 4801 |H | Short_Literal 0x1
05ca e00f | | Load 0x0,0xf
05cb 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05cc 01d6 | | Execute Vector,Field_Write
05cd 4800 |H | Short_Literal 0x0
05ce c012 | | Store 0x0,0x12
05cf e007 | | Load 0x0,0x7
05d0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
05d1 4503 |E | Exit_Subprogram 0x3
05d2 4800 |H | Short_Literal 0x0
05d3 e004 | | Load 0x0,0x4
05d4 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
05d5 4800 |H | Short_Literal 0x0
05d6 e004 | | Load 0x0,0x4
05d7 380a |8 | Execute Record,Field_Write,Field_Number 0xa
05d8 e005 | | Load 0x0,0x5
05d9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
05da 4800 |H | Short_Literal 0x0
05db 4801 |H | Short_Literal 0x1
05dc e00f | | Load 0x0,0xf
05dd 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
05de 01d6 | | Execute Vector,Field_Write
05df 4503 |E | Exit_Subprogram 0x3
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3 | | .CONST 0x05e3 ; Address of begin
05e1 0004 | | .CONST 0x0004 ; Address of exception handler
05e2 0001 | | .CONST 0x0001 ; Number of locals
05e3 BODY_05e0:
05e3 INIT_05e0:
05e3 e5fe | | Load 0x2,-0x2
05e4 4602 |F | Jump_Case 0x2
05e5 7808 |x | Jump 0x5ee ; case 0x0
05e6 7832 |x2 | Jump 0x619 ; case 0x1
05e7 7800 |x | Jump 0x5e8 ; case 0x2
05e8 4800 |H | Short_Literal 0x0
05e9 e005 | | Load 0x0,0x5
05ea 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05eb 4861 |Ha | Short_Literal 0x61
05ec 8002 | | Call 0x0,0x2
05ed 4503 |E | Exit_Subprogram 0x3
05ee 4861 |Ha | Short_Literal 0x61
05ef 8003 | | Call 0x0,0x3
05f0 4800 |H | Short_Literal 0x0
05f1 e005 | | Load 0x0,0x5
05f2 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05f3 e00a | | Load 0x0,0xa
05f4 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
05f5 0092 0956 | V| Action Push_String_Extended,0x956 ; "typewriter"
05f7 e00b | | Load 0x0,0xb
05f8 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05f9 e00c | | Load 0x0,0xc
05fa 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
05fb 00d8 | | Load_Top At_Offset_0
05fc e00c | | Load 0x0,0xc
05fd 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
05fe 7003 |p | Jump_Nonzero 0x602
05ff e00d | | Load 0x0,0xd
0600 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0601 0257 | W | Execute Discrete,Raise
0602 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0603 e004 | | Load 0x0,0x4
0604 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0605 e004 | | Load 0x0,0x4
0606 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0607 7008 |p | Jump_Nonzero 0x610
0608 0092 0957 | W| Action Push_String_Extended,0x957 ; "Typewriter font isn't available"
060a e013 | | Load 0x0,0x13
060b 180e | | Execute Package,Field_Execute,Field_Number 0xe
060c 4861 |Ha | Short_Literal 0x61
060d 8002 | | Call 0x0,0x2
060e 4861 |Ha | Short_Literal 0x61
060f 8003 | | Call 0x0,0x3
0610 e5ff | | Load 0x2,-0x1
0611 e005 | | Load 0x0,0x5
0612 180f | | Execute Package,Field_Execute,Field_Number 0xf
0613 4800 |H | Short_Literal 0x0
0614 e005 | | Load 0x0,0x5
0615 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0616 4861 |Ha | Short_Literal 0x61
0617 8002 | | Call 0x0,0x2
0618 4503 |E | Exit_Subprogram 0x3
0619 4800 |H | Short_Literal 0x0
061a e005 | | Load 0x0,0x5
061b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
061c e00a | | Load 0x0,0xa
061d 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
061e 0092 0956 | V| Action Push_String_Extended,0x956 ; "typewriter"
0620 e00b | | Load 0x0,0xb
0621 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0622 e00c | | Load 0x0,0xc
0623 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0624 00d8 | | Load_Top At_Offset_0
0625 e00c | | Load 0x0,0xc
0626 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0627 7003 |p | Jump_Nonzero 0x62b
0628 e00d | | Load 0x0,0xd
0629 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
062a 0257 | W | Execute Discrete,Raise
062b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
062c e004 | | Load 0x0,0x4
062d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
062e e004 | | Load 0x0,0x4
062f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0630 7008 |p | Jump_Nonzero 0x639
0631 0092 0957 | W| Action Push_String_Extended,0x957 ; "Typewriter font isn't available"
0633 e013 | | Load 0x0,0x13
0634 180e | | Execute Package,Field_Execute,Field_Number 0xe
0635 4861 |Ha | Short_Literal 0x61
0636 8002 | | Call 0x0,0x2
0637 4861 |Ha | Short_Literal 0x61
0638 8003 | | Call 0x0,0x3
0639 4503 |E | Exit_Subprogram 0x3
063a 0000 0000 | | .BLANK 0000[0x6]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643 | C | .CONST 0x0643 ; Address of begin
0641 0004 | | .CONST 0x0004 ; Address of exception handler
0642 0001 | | .CONST 0x0001 ; Number of locals
0643 BODY_0640:
0643 INIT_0640:
0643 e5fe | | Load 0x2,-0x2
0644 4602 |F | Jump_Case 0x2
0645 7808 |x | Jump 0x64e ; case 0x0
0646 7818 |x | Jump 0x65f ; case 0x1
0647 7800 |x | Jump 0x648 ; case 0x2
0648 4800 |H | Short_Literal 0x0
0649 e005 | | Load 0x0,0x5
064a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
064b 4862 |Hb | Short_Literal 0x62
064c 8002 | | Call 0x0,0x2
064d 4503 |E | Exit_Subprogram 0x3
064e 4862 |Hb | Short_Literal 0x62
064f 8003 | | Call 0x0,0x3
0650 4800 |H | Short_Literal 0x0
0651 e005 | | Load 0x0,0x5
0652 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0653 4801 |H | Short_Literal 0x1
0654 e004 | | Load 0x0,0x4
0655 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0656 e5ff | | Load 0x2,-0x1
0657 e005 | | Load 0x0,0x5
0658 180f | | Execute Package,Field_Execute,Field_Number 0xf
0659 4800 |H | Short_Literal 0x0
065a e005 | | Load 0x0,0x5
065b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
065c 4862 |Hb | Short_Literal 0x62
065d 8002 | | Call 0x0,0x2
065e 4503 |E | Exit_Subprogram 0x3
065f 4800 |H | Short_Literal 0x0
0660 e005 | | Load 0x0,0x5
0661 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0662 4801 |H | Short_Literal 0x1
0663 e004 | | Load 0x0,0x4
0664 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0665 4503 |E | Exit_Subprogram 0x3
0666 0000 0000 | | .XXX[0x2]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b | k | .CONST 0x066b ; Address of begin
0669 0004 | | .CONST 0x0004 ; Address of exception handler
066a 0001 | | .CONST 0x0001 ; Number of locals
066b BODY_0668:
066b INIT_0668:
066b e5fe | | Load 0x2,-0x2
066c 4602 |F | Jump_Case 0x2
066d 780c |x | Jump 0x67a ; case 0x0
066e 7827 |x' | Jump 0x696 ; case 0x1
066f 7800 |x | Jump 0x670 ; case 0x2
0670 e5fe | | Load 0x2,-0x2
0671 e5ff | | Load 0x2,-0x1
0672 8225 | % | Call 0x1,0x25
0673 4801 |H | Short_Literal 0x1
0674 4800 |H | Short_Literal 0x0
0675 e008 | | Load 0x0,0x8
0676 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0677 e006 | | Load 0x0,0x6
0678 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0679 4503 |E | Exit_Subprogram 0x3
067a 4864 |Hd | Short_Literal 0x64
067b 8003 | | Call 0x0,0x3
067c 4801 |H | Short_Literal 0x1
067d 4800 |H | Short_Literal 0x0
067e e008 | | Load 0x0,0x8
067f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0680 e006 | | Load 0x0,0x6
0681 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0682 4800 |H | Short_Literal 0x0
0683 e004 | | Load 0x0,0x4
0684 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0685 e005 | | Load 0x0,0x5
0686 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0687 4801 |H | Short_Literal 0x1
0688 e004 | | Load 0x0,0x4
0689 380a |8 | Execute Record,Field_Write,Field_Number 0xa
068a e5fe | | Load 0x2,-0x2
068b e5ff | | Load 0x2,-0x1
068c 8225 | % | Call 0x1,0x25
068d 4801 |H | Short_Literal 0x1
068e 4800 |H | Short_Literal 0x0
068f e008 | | Load 0x0,0x8
0690 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0691 e006 | | Load 0x0,0x6
0692 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0693 4864 |Hd | Short_Literal 0x64
0694 8002 | | Call 0x0,0x2
0695 4503 |E | Exit_Subprogram 0x3
0696 4801 |H | Short_Literal 0x1
0697 4800 |H | Short_Literal 0x0
0698 e008 | | Load 0x0,0x8
0699 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
069a e006 | | Load 0x0,0x6
069b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
069c 4800 |H | Short_Literal 0x0
069d e004 | | Load 0x0,0x4
069e 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
069f e005 | | Load 0x0,0x5
06a0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
06a1 4801 |H | Short_Literal 0x1
06a2 e004 | | Load 0x0,0x4
06a3 380a |8 | Execute Record,Field_Write,Field_Number 0xa
06a4 4861 |Ha | Short_Literal 0x61
06a5 e004 | | Load 0x0,0x4
06a6 381e |8 | Execute Record,Field_Write,Field_Number 0x1e
06a7 e5fe | | Load 0x2,-0x2
06a8 e5ff | | Load 0x2,-0x1
06a9 8225 | % | Call 0x1,0x25
06aa 4503 |E | Exit_Subprogram 0x3
06ab 0000 0000 | | .BLANK 0000[0x5]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06bd | | .CONST 0x06bd ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0003 | | .CONST 0x0003 ; Number of locals
06b3 INIT_06b0:
06b3 4820 |H | Short_Literal 0x20
06b4 e5ff | | Load 0x2,-0x1
06b5 e00a | | Load 0x0,0xa
06b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06b7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
06b8 e014 | | Load 0x0,0x14
06b9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06ba 00d8 | | Load_Top At_Offset_0
06bb e015 | | Load 0x0,0x15
06bc 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06bd BODY_06b0:
06bd 00d8 | | Load_Top At_Offset_0
06be 7007 |p | Jump_Nonzero 0x6c6
06bf e402 | | Load 0x2,0x2
06c0 0092 0958 | X| Action Push_String_Extended,0x958 ; " used in 'Begin' is undefined"
06c2 01cc | | Execute Vector,Catenate
06c3 e013 | | Load 0x0,0x13
06c4 180e | | Execute Package,Field_Execute,Field_Number 0xe
06c5 4502 |E | Exit_Subprogram 0x2
06c6 00d8 | | Load_Top At_Offset_0
06c7 8003 | | Call 0x0,0x3
06c8 00d8 | | Load_Top At_Offset_0
06c9 4667 |Fg | Jump_Case 0x67
06ca 7867 |xg | Jump 0x732 ; case 0x0
06cb 7866 |xf | Jump 0x732 ; case 0x1
06cc 7865 |xe | Jump 0x732 ; case 0x2
06cd 7864 |xd | Jump 0x732 ; case 0x3
06ce 7863 |xc | Jump 0x732 ; case 0x4
06cf 786b |xk | Jump 0x73b ; case 0x5
06d0 786e |xn | Jump 0x73f ; case 0x6
06d1 7871 |xq | Jump 0x743 ; case 0x7
06d2 785f |x_ | Jump 0x732 ; case 0x8
06d3 785e |x^ | Jump 0x732 ; case 0x9
06d4 785d |x] | Jump 0x732 ; case 0xa
06d5 785c |x\ | Jump 0x732 ; case 0xb
06d6 785b |x[ | Jump 0x732 ; case 0xc
06d7 785a |xZ | Jump 0x732 ; case 0xd
06d8 7859 |xY | Jump 0x732 ; case 0xe
06d9 7858 |xX | Jump 0x732 ; case 0xf
06da 7857 |xW | Jump 0x732 ; case 0x10
06db 7856 |xV | Jump 0x732 ; case 0x11
06dc 7855 |xU | Jump 0x732 ; case 0x12
06dd 7854 |xT | Jump 0x732 ; case 0x13
06de 7853 |xS | Jump 0x732 ; case 0x14
06df 7852 |xR | Jump 0x732 ; case 0x15
06e0 7851 |xQ | Jump 0x732 ; case 0x16
06e1 7865 |xe | Jump 0x747 ; case 0x17
06e2 784f |xO | Jump 0x732 ; case 0x18
06e3 7867 |xg | Jump 0x74b ; case 0x19
06e4 784d |xM | Jump 0x732 ; case 0x1a
06e5 7869 |xi | Jump 0x74f ; case 0x1b
06e6 786e |xn | Jump 0x755 ; case 0x1c
06e7 784a |xJ | Jump 0x732 ; case 0x1d
06e8 7872 |xr | Jump 0x75b ; case 0x1e
06e9 7848 |xH | Jump 0x732 ; case 0x1f
06ea 7874 |xt | Jump 0x75f ; case 0x20
06eb 7846 |xF | Jump 0x732 ; case 0x21
06ec 7845 |xE | Jump 0x732 ; case 0x22
06ed 7844 |xD | Jump 0x732 ; case 0x23
06ee 7843 |xC | Jump 0x732 ; case 0x24
06ef 7842 |xB | Jump 0x732 ; case 0x25
06f0 7841 |xA | Jump 0x732 ; case 0x26
06f1 7871 |xq | Jump 0x763 ; case 0x27
06f2 7874 |xt | Jump 0x767 ; case 0x28
06f3 7877 |xw | Jump 0x76b ; case 0x29
06f4 787c |x| | Jump 0x771 ; case 0x2a
06f5 783c |x< | Jump 0x732 ; case 0x2b
06f6 783b |x; | Jump 0x732 ; case 0x2c
06f7 783a |x: | Jump 0x732 ; case 0x2d
06f8 7839 |x9 | Jump 0x732 ; case 0x2e
06f9 7838 |x8 | Jump 0x732 ; case 0x2f
06fa 7837 |x7 | Jump 0x732 ; case 0x30
06fb 7836 |x6 | Jump 0x732 ; case 0x31
06fc 7835 |x5 | Jump 0x732 ; case 0x32
06fd 7877 |xw | Jump 0x775 ; case 0x33
06fe 787a |xz | Jump 0x779 ; case 0x34
06ff 7832 |x2 | Jump 0x732 ; case 0x35
0700 7831 |x1 | Jump 0x732 ; case 0x36
0701 7830 |x0 | Jump 0x732 ; case 0x37
0702 787a |xz | Jump 0x77d ; case 0x38
0703 782e |x. | Jump 0x732 ; case 0x39
0704 782d |x- | Jump 0x732 ; case 0x3a
0705 782c |x, | Jump 0x732 ; case 0x3b
0706 782b |x+ | Jump 0x732 ; case 0x3c
0707 782a |x* | Jump 0x732 ; case 0x3d
0708 7829 |x) | Jump 0x732 ; case 0x3e
0709 7828 |x( | Jump 0x732 ; case 0x3f
070a 7827 |x' | Jump 0x732 ; case 0x40
070b 783f |x? | Jump 0x74b ; case 0x41
070c 7825 |x% | Jump 0x732 ; case 0x42
070d 7824 |x$ | Jump 0x732 ; case 0x43
070e 7823 |x# | Jump 0x732 ; case 0x44
070f 7871 |xq | Jump 0x781 ; case 0x45
0710 7821 |x! | Jump 0x732 ; case 0x46
0711 7820 |x | Jump 0x732 ; case 0x47
0712 781f |x | Jump 0x732 ; case 0x48
0713 7871 |xq | Jump 0x785 ; case 0x49
0714 781d |x | Jump 0x732 ; case 0x4a
0715 781c |x | Jump 0x732 ; case 0x4b
0716 781b |x | Jump 0x732 ; case 0x4c
0717 7871 |xq | Jump 0x789 ; case 0x4d
0718 7819 |x | Jump 0x732 ; case 0x4e
0719 7818 |x | Jump 0x732 ; case 0x4f
071a 7817 |x | Jump 0x732 ; case 0x50
071b 7871 |xq | Jump 0x78d ; case 0x51
071c 7815 |x | Jump 0x732 ; case 0x52
071d 7873 |xs | Jump 0x791 ; case 0x53
071e 7813 |x | Jump 0x732 ; case 0x54
071f 7875 |xu | Jump 0x795 ; case 0x55
0720 7811 |x | Jump 0x732 ; case 0x56
0721 7877 |xw | Jump 0x799 ; case 0x57
0722 780f |x | Jump 0x732 ; case 0x58
0723 780e |x | Jump 0x732 ; case 0x59
0724 780d |x | Jump 0x732 ; case 0x5a
0725 780c |x | Jump 0x732 ; case 0x5b
0726 7876 |xv | Jump 0x79d ; case 0x5c
0727 780a |x | Jump 0x732 ; case 0x5d
0728 7878 |xx | Jump 0x7a1 ; case 0x5e
0729 787b |x{ | Jump 0x7a5 ; case 0x5f
072a 7807 |x | Jump 0x732 ; case 0x60
072b 787d |x} | Jump 0x7a9 ; case 0x61
072c 7880 |x | Jump 0x7ad ; case 0x62
072d 7804 |x | Jump 0x732 ; case 0x63
072e 7882 |x | Jump 0x7b1 ; case 0x64
072f 7802 |x | Jump 0x732 ; case 0x65
0730 7801 |x | Jump 0x732 ; case 0x66
0731 7800 |x | Jump 0x732 ; case 0x67
0732 00d8 | | Load_Top At_Offset_0
0733 8002 | | Call 0x0,0x2
0734 e402 | | Load 0x2,0x2
0735 0092 0959 | Y| Action Push_String_Extended,0x959 ; " cannot be used in 'Begin'"
0737 01cc | | Execute Vector,Catenate
0738 e013 | | Load 0x0,0x13
0739 180e | | Execute Package,Field_Execute,Field_Number 0xe
073a 4502 |E | Exit_Subprogram 0x2
073b 4801 |H | Short_Literal 0x1
073c e5ff | | Load 0x2,-0x1
073d 820d | | Call 0x1,0xd
073e 4502 |E | Exit_Subprogram 0x2
073f 4801 |H | Short_Literal 0x1
0740 e5ff | | Load 0x2,-0x1
0741 820e | | Call 0x1,0xe
0742 4502 |E | Exit_Subprogram 0x2
0743 4801 |H | Short_Literal 0x1
0744 e5ff | | Load 0x2,-0x1
0745 820f | | Call 0x1,0xf
0746 4502 |E | Exit_Subprogram 0x2
0747 4801 |H | Short_Literal 0x1
0748 e5ff | | Load 0x2,-0x1
0749 8210 | | Call 0x1,0x10
074a 4502 |E | Exit_Subprogram 0x2
074b 4801 |H | Short_Literal 0x1
074c e5ff | | Load 0x2,-0x1
074d 8211 | | Call 0x1,0x11
074e 4502 |E | Exit_Subprogram 0x2
074f 481b |H | Short_Literal 0x1b
0750 4801 |H | Short_Literal 0x1
0751 4801 |H | Short_Literal 0x1
0752 e5ff | | Load 0x2,-0x1
0753 8216 | | Call 0x1,0x16
0754 4502 |E | Exit_Subprogram 0x2
0755 481c |H | Short_Literal 0x1c
0756 4802 |H | Short_Literal 0x2
0757 4801 |H | Short_Literal 0x1
0758 e5ff | | Load 0x2,-0x1
0759 8216 | | Call 0x1,0x16
075a 4502 |E | Exit_Subprogram 0x2
075b 4801 |H | Short_Literal 0x1
075c e5ff | | Load 0x2,-0x1
075d 8212 | | Call 0x1,0x12
075e 4502 |E | Exit_Subprogram 0x2
075f 4801 |H | Short_Literal 0x1
0760 e5ff | | Load 0x2,-0x1
0761 8213 | | Call 0x1,0x13
0762 4502 |E | Exit_Subprogram 0x2
0763 4801 |H | Short_Literal 0x1
0764 e5ff | | Load 0x2,-0x1
0765 8215 | | Call 0x1,0x15
0766 4502 |E | Exit_Subprogram 0x2
0767 4801 |H | Short_Literal 0x1
0768 e5ff | | Load 0x2,-0x1
0769 8214 | | Call 0x1,0x14
076a 4502 |E | Exit_Subprogram 0x2
076b 4829 |H) | Short_Literal 0x29
076c 4803 |H | Short_Literal 0x3
076d 4801 |H | Short_Literal 0x1
076e e5ff | | Load 0x2,-0x1
076f 8216 | | Call 0x1,0x16
0770 4502 |E | Exit_Subprogram 0x2
0771 4801 |H | Short_Literal 0x1
0772 e5ff | | Load 0x2,-0x1
0773 8217 | | Call 0x1,0x17
0774 4502 |E | Exit_Subprogram 0x2
0775 4801 |H | Short_Literal 0x1
0776 e5ff | | Load 0x2,-0x1
0777 8218 | | Call 0x1,0x18
0778 4502 |E | Exit_Subprogram 0x2
0779 4801 |H | Short_Literal 0x1
077a e5ff | | Load 0x2,-0x1
077b 8219 | | Call 0x1,0x19
077c 4502 |E | Exit_Subprogram 0x2
077d 4801 |H | Short_Literal 0x1
077e e5ff | | Load 0x2,-0x1
077f 821a | | Call 0x1,0x1a
0780 4502 |E | Exit_Subprogram 0x2
0781 4801 |H | Short_Literal 0x1
0782 e5ff | | Load 0x2,-0x1
0783 821b | | Call 0x1,0x1b
0784 4502 |E | Exit_Subprogram 0x2
0785 4801 |H | Short_Literal 0x1
0786 e5ff | | Load 0x2,-0x1
0787 821c | | Call 0x1,0x1c
0788 4502 |E | Exit_Subprogram 0x2
0789 4801 |H | Short_Literal 0x1
078a e5ff | | Load 0x2,-0x1
078b 821d | | Call 0x1,0x1d
078c 4502 |E | Exit_Subprogram 0x2
078d 4801 |H | Short_Literal 0x1
078e e5ff | | Load 0x2,-0x1
078f 821e | | Call 0x1,0x1e
0790 4502 |E | Exit_Subprogram 0x2
0791 4801 |H | Short_Literal 0x1
0792 e5ff | | Load 0x2,-0x1
0793 821f | | Call 0x1,0x1f
0794 4502 |E | Exit_Subprogram 0x2
0795 4801 |H | Short_Literal 0x1
0796 e5ff | | Load 0x2,-0x1
0797 8220 | | Call 0x1,0x20
0798 4502 |E | Exit_Subprogram 0x2
0799 4801 |H | Short_Literal 0x1
079a e5ff | | Load 0x2,-0x1
079b 8221 | ! | Call 0x1,0x21
079c 4502 |E | Exit_Subprogram 0x2
079d 4801 |H | Short_Literal 0x1
079e e5ff | | Load 0x2,-0x1
079f 8222 | " | Call 0x1,0x22
07a0 4502 |E | Exit_Subprogram 0x2
07a1 4801 |H | Short_Literal 0x1
07a2 e5ff | | Load 0x2,-0x1
07a3 8223 | # | Call 0x1,0x23
07a4 4502 |E | Exit_Subprogram 0x2
07a5 4801 |H | Short_Literal 0x1
07a6 e5ff | | Load 0x2,-0x1
07a7 8224 | $ | Call 0x1,0x24
07a8 4502 |E | Exit_Subprogram 0x2
07a9 4801 |H | Short_Literal 0x1
07aa e5ff | | Load 0x2,-0x1
07ab 8225 | % | Call 0x1,0x25
07ac 4502 |E | Exit_Subprogram 0x2
07ad 4801 |H | Short_Literal 0x1
07ae e5ff | | Load 0x2,-0x1
07af 8226 | & | Call 0x1,0x26
07b0 4502 |E | Exit_Subprogram 0x2
07b1 4801 |H | Short_Literal 0x1
07b2 e5ff | | Load 0x2,-0x1
07b3 8227 | ' | Call 0x1,0x27
07b4 4502 |E | Exit_Subprogram 0x2
07b5 0000 0000 | | .XXX[0x3]
07b7 0000 | |
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07c5 | | .CONST 0x07c5 ; Address of begin
07b9 0004 | | .CONST 0x0004 ; Address of exception handler
07ba 0003 | | .CONST 0x0003 ; Number of locals
07bb INIT_07b8:
07bb 4820 |H | Short_Literal 0x20
07bc e5ff | | Load 0x2,-0x1
07bd e00a | | Load 0x0,0xa
07be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16
07c0 e014 | | Load 0x0,0x14
07c1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
07c2 00d8 | | Load_Top At_Offset_0
07c3 e015 | | Load 0x0,0x15
07c4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07c5 BODY_07b8:
07c5 00d8 | | Load_Top At_Offset_0
07c6 7007 |p | Jump_Nonzero 0x7ce
07c7 e402 | | Load 0x2,0x2
07c8 0092 095a | Z| Action Push_String_Extended,0x95a ; " used in 'End' is undefined"
07ca 01cc | | Execute Vector,Catenate
07cb e013 | | Load 0x0,0x13
07cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
07cd 4502 |E | Exit_Subprogram 0x2
07ce 00d8 | | Load_Top At_Offset_0
07cf 4667 |Fg | Jump_Case 0x67
07d0 7867 |xg | Jump 0x838 ; case 0x0
07d1 7866 |xf | Jump 0x838 ; case 0x1
07d2 7865 |xe | Jump 0x838 ; case 0x2
07d3 7864 |xd | Jump 0x838 ; case 0x3
07d4 7863 |xc | Jump 0x838 ; case 0x4
07d5 7869 |xi | Jump 0x83f ; case 0x5
07d6 786c |xl | Jump 0x843 ; case 0x6
07d7 786f |xo | Jump 0x847 ; case 0x7
07d8 785f |x_ | Jump 0x838 ; case 0x8
07d9 785e |x^ | Jump 0x838 ; case 0x9
07da 785d |x] | Jump 0x838 ; case 0xa
07db 785c |x\ | Jump 0x838 ; case 0xb
07dc 785b |x[ | Jump 0x838 ; case 0xc
07dd 785a |xZ | Jump 0x838 ; case 0xd
07de 7859 |xY | Jump 0x838 ; case 0xe
07df 7858 |xX | Jump 0x838 ; case 0xf
07e0 7857 |xW | Jump 0x838 ; case 0x10
07e1 7856 |xV | Jump 0x838 ; case 0x11
07e2 7855 |xU | Jump 0x838 ; case 0x12
07e3 7854 |xT | Jump 0x838 ; case 0x13
07e4 7853 |xS | Jump 0x838 ; case 0x14
07e5 7852 |xR | Jump 0x838 ; case 0x15
07e6 7851 |xQ | Jump 0x838 ; case 0x16
07e7 7863 |xc | Jump 0x84b ; case 0x17
07e8 784f |xO | Jump 0x838 ; case 0x18
07e9 7865 |xe | Jump 0x84f ; case 0x19
07ea 784d |xM | Jump 0x838 ; case 0x1a
07eb 7867 |xg | Jump 0x853 ; case 0x1b
07ec 786c |xl | Jump 0x859 ; case 0x1c
07ed 784a |xJ | Jump 0x838 ; case 0x1d
07ee 7870 |xp | Jump 0x85f ; case 0x1e
07ef 7848 |xH | Jump 0x838 ; case 0x1f
07f0 7872 |xr | Jump 0x863 ; case 0x20
07f1 7846 |xF | Jump 0x838 ; case 0x21
07f2 7845 |xE | Jump 0x838 ; case 0x22
07f3 7844 |xD | Jump 0x838 ; case 0x23
07f4 7843 |xC | Jump 0x838 ; case 0x24
07f5 7842 |xB | Jump 0x838 ; case 0x25
07f6 7841 |xA | Jump 0x838 ; case 0x26
07f7 786f |xo | Jump 0x867 ; case 0x27
07f8 7872 |xr | Jump 0x86b ; case 0x28
07f9 7875 |xu | Jump 0x86f ; case 0x29
07fa 787a |xz | Jump 0x875 ; case 0x2a
07fb 783c |x< | Jump 0x838 ; case 0x2b
07fc 783b |x; | Jump 0x838 ; case 0x2c
07fd 783a |x: | Jump 0x838 ; case 0x2d
07fe 7839 |x9 | Jump 0x838 ; case 0x2e
07ff 7838 |x8 | Jump 0x838 ; case 0x2f
0800 7837 |x7 | Jump 0x838 ; case 0x30
0801 7836 |x6 | Jump 0x838 ; case 0x31
0802 7835 |x5 | Jump 0x838 ; case 0x32
0803 7875 |xu | Jump 0x879 ; case 0x33
0804 7878 |xx | Jump 0x87d ; case 0x34
0805 7832 |x2 | Jump 0x838 ; case 0x35
0806 7831 |x1 | Jump 0x838 ; case 0x36
0807 7830 |x0 | Jump 0x838 ; case 0x37
0808 7878 |xx | Jump 0x881 ; case 0x38
0809 782e |x. | Jump 0x838 ; case 0x39
080a 782d |x- | Jump 0x838 ; case 0x3a
080b 782c |x, | Jump 0x838 ; case 0x3b
080c 782b |x+ | Jump 0x838 ; case 0x3c
080d 782a |x* | Jump 0x838 ; case 0x3d
080e 7829 |x) | Jump 0x838 ; case 0x3e
080f 7828 |x( | Jump 0x838 ; case 0x3f
0810 7827 |x' | Jump 0x838 ; case 0x40
0811 783d |x= | Jump 0x84f ; case 0x41
0812 7825 |x% | Jump 0x838 ; case 0x42
0813 7824 |x$ | Jump 0x838 ; case 0x43
0814 7823 |x# | Jump 0x838 ; case 0x44
0815 786f |xo | Jump 0x885 ; case 0x45
0816 7821 |x! | Jump 0x838 ; case 0x46
0817 7820 |x | Jump 0x838 ; case 0x47
0818 781f |x | Jump 0x838 ; case 0x48
0819 786f |xo | Jump 0x889 ; case 0x49
081a 781d |x | Jump 0x838 ; case 0x4a
081b 781c |x | Jump 0x838 ; case 0x4b
081c 781b |x | Jump 0x838 ; case 0x4c
081d 786f |xo | Jump 0x88d ; case 0x4d
081e 7819 |x | Jump 0x838 ; case 0x4e
081f 7818 |x | Jump 0x838 ; case 0x4f
0820 7817 |x | Jump 0x838 ; case 0x50
0821 786f |xo | Jump 0x891 ; case 0x51
0822 7815 |x | Jump 0x838 ; case 0x52
0823 7871 |xq | Jump 0x895 ; case 0x53
0824 7813 |x | Jump 0x838 ; case 0x54
0825 7873 |xs | Jump 0x899 ; case 0x55
0826 7811 |x | Jump 0x838 ; case 0x56
0827 7875 |xu | Jump 0x89d ; case 0x57
0828 780f |x | Jump 0x838 ; case 0x58
0829 780e |x | Jump 0x838 ; case 0x59
082a 780d |x | Jump 0x838 ; case 0x5a
082b 780c |x | Jump 0x838 ; case 0x5b
082c 7874 |xt | Jump 0x8a1 ; case 0x5c
082d 780a |x | Jump 0x838 ; case 0x5d
082e 7876 |xv | Jump 0x8a5 ; case 0x5e
082f 7879 |xy | Jump 0x8a9 ; case 0x5f
0830 7807 |x | Jump 0x838 ; case 0x60
0831 787b |x{ | Jump 0x8ad ; case 0x61
0832 787e |x~ | Jump 0x8b1 ; case 0x62
0833 7804 |x | Jump 0x838 ; case 0x63
0834 7880 |x | Jump 0x8b5 ; case 0x64
0835 7802 |x | Jump 0x838 ; case 0x65
0836 7801 |x | Jump 0x838 ; case 0x66
0837 7800 |x | Jump 0x838 ; case 0x67
0838 e402 | | Load 0x2,0x2
0839 0092 095b | [| Action Push_String_Extended,0x95b ; " cannot be used in 'End'"
083b 01cc | | Execute Vector,Catenate
083c e013 | | Load 0x0,0x13
083d 180e | | Execute Package,Field_Execute,Field_Number 0xe
083e 4502 |E | Exit_Subprogram 0x2
083f 4802 |H | Short_Literal 0x2
0840 e5ff | | Load 0x2,-0x1
0841 820d | | Call 0x1,0xd
0842 4502 |E | Exit_Subprogram 0x2
0843 4802 |H | Short_Literal 0x2
0844 e5ff | | Load 0x2,-0x1
0845 820e | | Call 0x1,0xe
0846 4502 |E | Exit_Subprogram 0x2
0847 4802 |H | Short_Literal 0x2
0848 e5ff | | Load 0x2,-0x1
0849 820f | | Call 0x1,0xf
084a 4502 |E | Exit_Subprogram 0x2
084b 4802 |H | Short_Literal 0x2
084c e5ff | | Load 0x2,-0x1
084d 8210 | | Call 0x1,0x10
084e 4502 |E | Exit_Subprogram 0x2
084f 4802 |H | Short_Literal 0x2
0850 e5ff | | Load 0x2,-0x1
0851 8211 | | Call 0x1,0x11
0852 4502 |E | Exit_Subprogram 0x2
0853 481b |H | Short_Literal 0x1b
0854 4801 |H | Short_Literal 0x1
0855 4802 |H | Short_Literal 0x2
0856 e5ff | | Load 0x2,-0x1
0857 8216 | | Call 0x1,0x16
0858 4502 |E | Exit_Subprogram 0x2
0859 481c |H | Short_Literal 0x1c
085a 4802 |H | Short_Literal 0x2
085b 4802 |H | Short_Literal 0x2
085c e5ff | | Load 0x2,-0x1
085d 8216 | | Call 0x1,0x16
085e 4502 |E | Exit_Subprogram 0x2
085f 4802 |H | Short_Literal 0x2
0860 e5ff | | Load 0x2,-0x1
0861 8212 | | Call 0x1,0x12
0862 4502 |E | Exit_Subprogram 0x2
0863 4802 |H | Short_Literal 0x2
0864 e5ff | | Load 0x2,-0x1
0865 8213 | | Call 0x1,0x13
0866 4502 |E | Exit_Subprogram 0x2
0867 4802 |H | Short_Literal 0x2
0868 e5ff | | Load 0x2,-0x1
0869 8215 | | Call 0x1,0x15
086a 4502 |E | Exit_Subprogram 0x2
086b 4802 |H | Short_Literal 0x2
086c e5ff | | Load 0x2,-0x1
086d 8214 | | Call 0x1,0x14
086e 4502 |E | Exit_Subprogram 0x2
086f 4829 |H) | Short_Literal 0x29
0870 4803 |H | Short_Literal 0x3
0871 4802 |H | Short_Literal 0x2
0872 e5ff | | Load 0x2,-0x1
0873 8216 | | Call 0x1,0x16
0874 4502 |E | Exit_Subprogram 0x2
0875 4802 |H | Short_Literal 0x2
0876 e5ff | | Load 0x2,-0x1
0877 8217 | | Call 0x1,0x17
0878 4502 |E | Exit_Subprogram 0x2
0879 4802 |H | Short_Literal 0x2
087a e5ff | | Load 0x2,-0x1
087b 8218 | | Call 0x1,0x18
087c 4502 |E | Exit_Subprogram 0x2
087d 4802 |H | Short_Literal 0x2
087e e5ff | | Load 0x2,-0x1
087f 8219 | | Call 0x1,0x19
0880 4502 |E | Exit_Subprogram 0x2
0881 4802 |H | Short_Literal 0x2
0882 e5ff | | Load 0x2,-0x1
0883 821a | | Call 0x1,0x1a
0884 4502 |E | Exit_Subprogram 0x2
0885 4802 |H | Short_Literal 0x2
0886 e5ff | | Load 0x2,-0x1
0887 821b | | Call 0x1,0x1b
0888 4502 |E | Exit_Subprogram 0x2
0889 4802 |H | Short_Literal 0x2
088a e5ff | | Load 0x2,-0x1
088b 821c | | Call 0x1,0x1c
088c 4502 |E | Exit_Subprogram 0x2
088d 4802 |H | Short_Literal 0x2
088e e5ff | | Load 0x2,-0x1
088f 821d | | Call 0x1,0x1d
0890 4502 |E | Exit_Subprogram 0x2
0891 4802 |H | Short_Literal 0x2
0892 e5ff | | Load 0x2,-0x1
0893 821e | | Call 0x1,0x1e
0894 4502 |E | Exit_Subprogram 0x2
0895 4802 |H | Short_Literal 0x2
0896 e5ff | | Load 0x2,-0x1
0897 821f | | Call 0x1,0x1f
0898 4502 |E | Exit_Subprogram 0x2
0899 4802 |H | Short_Literal 0x2
089a e5ff | | Load 0x2,-0x1
089b 8220 | | Call 0x1,0x20
089c 4502 |E | Exit_Subprogram 0x2
089d 4802 |H | Short_Literal 0x2
089e e5ff | | Load 0x2,-0x1
089f 8221 | ! | Call 0x1,0x21
08a0 4502 |E | Exit_Subprogram 0x2
08a1 4802 |H | Short_Literal 0x2
08a2 e5ff | | Load 0x2,-0x1
08a3 8222 | " | Call 0x1,0x22
08a4 4502 |E | Exit_Subprogram 0x2
08a5 4802 |H | Short_Literal 0x2
08a6 e5ff | | Load 0x2,-0x1
08a7 8223 | # | Call 0x1,0x23
08a8 4502 |E | Exit_Subprogram 0x2
08a9 4802 |H | Short_Literal 0x2
08aa e5ff | | Load 0x2,-0x1
08ab 8224 | $ | Call 0x1,0x24
08ac 4502 |E | Exit_Subprogram 0x2
08ad 4802 |H | Short_Literal 0x2
08ae e5ff | | Load 0x2,-0x1
08af 8225 | % | Call 0x1,0x25
08b0 4502 |E | Exit_Subprogram 0x2
08b1 4802 |H | Short_Literal 0x2
08b2 e5ff | | Load 0x2,-0x1
08b3 8226 | & | Call 0x1,0x26
08b4 4502 |E | Exit_Subprogram 0x2
08b5 4802 |H | Short_Literal 0x2
08b6 e5ff | | Load 0x2,-0x1
08b7 8227 | ' | Call 0x1,0x27
08b8 4502 |E | Exit_Subprogram 0x2
08b9 0000 0000 | | .BLANK 0000[0x7]
08c0 ; --------------------------------------------------------------------------------------
08c0 ; SUBPROGRAM
08c0 ; --------------------------------------------------------------------------------------
08c0 08c8 | | .CONST 0x08c8 ; Address of begin
08c1 0004 | | .CONST 0x0004 ; Address of exception handler
08c2 0002 | | .CONST 0x0002 ; Number of locals
08c3 INIT_08c0:
08c3 e004 | | Load 0x0,0x4
08c4 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
08c5 e00a | | Load 0x0,0xa
08c6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
08c7 03f1 | | Declare_Variable Discrete,With_Value
08c8 BODY_08c0:
08c8 4801 |H | Short_Literal 0x1
08c9 4800 |H | Short_Literal 0x0
08ca e5ff | | Load 0x2,-0x1
08cb e008 | | Load 0x0,0x8
08cc 3428 |4( | Execute Record,Field_Reference,Field_Number 0x28
08cd 01d7 | | Execute Vector,Field_Read
08ce e006 | | Load 0x0,0x6
08cf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
08d0 e004 | | Load 0x0,0x4
08d1 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
08d2 e5ff | | Load 0x2,-0x1
08d3 e008 | | Load 0x0,0x8
08d4 3426 |4& | Execute Record,Field_Reference,Field_Number 0x26
08d5 01d7 | | Execute Vector,Field_Read
08d6 0273 | s | Execute Discrete,Plus
08d7 e00a | | Load 0x0,0xa
08d8 1b12 | | Execute Package,Field_Read,Field_Number 0x12
08d9 00d9 | | Load_Top At_Offset_1
08da 00d0 | | Action Swap_Control
08db 0260 | ` | Execute Discrete,In_Type
08dc 7001 |p | Jump_Nonzero 0x8de
08dd 0801 | | Execute_Immediate Raise,0x1
08de e00b | | Load 0x0,0xb
08df 1b12 | | Execute Package,Field_Read,Field_Number 0x12
08e0 e00c | | Load 0x0,0xc
08e1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
08e2 00d8 | | Load_Top At_Offset_0
08e3 e00c | | Load 0x0,0xc
08e4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
08e5 7003 |p | Jump_Nonzero 0x8e9
08e6 e00d | | Load 0x0,0xd
08e7 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
08e8 0257 | W | Execute Discrete,Raise
08e9 181a | | Execute Package,Field_Execute,Field_Number 0x1a
08ea e004 | | Load 0x0,0x4
08eb 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
08ec e004 | | Load 0x0,0x4
08ed 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
08ee e004 | | Load 0x0,0x4
08ef 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
08f0 0273 | s | Execute Discrete,Plus
08f1 4be8 |K | Short_Literal 0x3e8
08f2 0271 | q | Execute Discrete,Times
08f3 e00a | | Load 0x0,0xa
08f4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
08f5 00d9 | | Load_Top At_Offset_1
08f6 00d0 | | Action Swap_Control
08f7 0260 | ` | Execute Discrete,In_Type
08f8 7001 |p | Jump_Nonzero 0x8fa
08f9 0801 | | Execute_Immediate Raise,0x1
08fa e00b | | Load 0x0,0xb
08fb 1b12 | | Execute Package,Field_Read,Field_Number 0x12
08fc e00c | | Load 0x0,0xc
08fd 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
08fe 00d8 | | Load_Top At_Offset_0
08ff e00c | | Load 0x0,0xc
0900 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0901 7003 |p | Jump_Nonzero 0x905
0902 e00d | | Load 0x0,0xd
0903 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0904 0257 | W | Execute Discrete,Raise
0905 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0906 e004 | | Load 0x0,0x4
0907 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0908 4801 |H | Short_Literal 0x1
0909 e009 | | Load 0x0,0x9
090a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
090b e004 | | Load 0x0,0x4
090c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
090d e402 | | Load 0x2,0x2
090e 027d | } | Execute Discrete,Greater
090f 680e |h | Jump_Zero 0x91e
0910 e004 | | Load 0x0,0x4
0911 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0912 e402 | | Load 0x2,0x2
0913 0272 | r | Execute Discrete,Minus
0914 e00a | | Load 0x0,0xa
0915 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0916 00d9 | | Load_Top At_Offset_1
0917 00d0 | | Action Swap_Control
0918 0260 | ` | Execute Discrete,In_Type
0919 7001 |p | Jump_Nonzero 0x91b
091a 0801 | | Execute_Immediate Raise,0x1
091b 4800 |H | Short_Literal 0x0
091c e009 | | Load 0x0,0x9
091d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
091e 4801 |H | Short_Literal 0x1
091f e004 | | Load 0x0,0x4
0920 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0921 4800 |H | Short_Literal 0x0
0922 e004 | | Load 0x0,0x4
0923 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0924 e005 | | Load 0x0,0x5
0925 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0926 4502 |E | Exit_Subprogram 0x2
0927 0000 | | .XXX[0x1]
0928 ; --------------------------------------------------------------------------------------
0928 ; SUBPROGRAM
0928 ; --------------------------------------------------------------------------------------
0928 092c | , | .CONST 0x092c ; Address of begin
0929 0004 | | .CONST 0x0004 ; Address of exception handler
092a 0002 | | .CONST 0x0002 ; Number of locals
092b INIT_0928:
092b 00e3 | | Load_Encached Natural_Cache
092c BODY_0928:
092c e011 | | Load 0x0,0x11
092d 6816 |h | Jump_Zero 0x944
092e e009 | | Load 0x0,0x9
092f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0930 6803 |h | Jump_Zero 0x934
0931 4800 |H | Short_Literal 0x0
0932 a602 | | Store_Unchecked 0x3,0x2
0933 7802 |x | Jump 0x936
0934 4801 |H | Short_Literal 0x1
0935 a602 | | Store_Unchecked 0x3,0x2
0936 e012 | | Load 0x0,0x12
0937 4801 |H | Short_Literal 0x1
0938 0279 | y | Execute Discrete,And
0939 e602 | | Load 0x3,0x2
093a 027f | | Execute Discrete,Equal
093b 6804 |h | Jump_Zero 0x940
093c 4800 |H | Short_Literal 0x0
093d e004 | | Load 0x0,0x4
093e 380d |8 | Execute Record,Field_Write,Field_Number 0xd
093f 4501 |E | Exit_Subprogram 0x1
0940 4801 |H | Short_Literal 0x1
0941 e004 | | Load 0x0,0x4
0942 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0943 4501 |E | Exit_Subprogram 0x1
0944 4800 |H | Short_Literal 0x0
0945 e004 | | Load 0x0,0x4
0946 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0947 4501 |E | Exit_Subprogram 0x1
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 094b | K | .CONST 0x094b ; Address of begin
0949 0004 | | .CONST 0x0004 ; Address of exception handler
094a 0001 | | .CONST 0x0001 ; Number of locals
094b BODY_0948:
094b INIT_0948:
094b 482a |H* | Short_Literal 0x2a
094c 8003 | | Call 0x0,0x3
094d 4800 |H | Short_Literal 0x0
094e e004 | | Load 0x0,0x4
094f 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0950 493f |I? | Short_Literal 0x13f
0951 e009 | | Load 0x0,0x9
0952 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0953 482a |H* | Short_Literal 0x2a
0954 8002 | | Call 0x0,0x2
0955 4501 |E | Exit_Subprogram 0x1
0956 ; --------------------------------------------------------------------------------------
0956 ; STRING TABLE
0956 ; --------------------------------------------------------------------------------------
0956 000e | | .STRTAB 0x000e->0x095d ; "typewriter"
; "typewriter"
0957 0016 | | .STRTAB 0x0016->0x0962 ; "Typewriter font isn't available"
; "Typewriter font isn't available"
0958 0033 | 3 | .STRTAB 0x0033->0x0971 ; " used in 'Begin' is undefined"
0959 004e | N | .STRTAB 0x004e->0x0980 ; " cannot be used in 'Begin'"
095a 0066 | f | .STRTAB 0x0066->0x098d ; " used in 'End' is undefined"
095b 007f | | .STRTAB 0x007f->0x099a ; " cannot be used in 'End'"
095c 0095 | | .STREND 0x0095->0x09a6
095d 7479 7065 |type| .STRTAB_STRINGS
09a7 0000 | | .XXX[0x1]
09a8 ; --------------------------------------------------------------------------------------
09a8 ; Debug Table
09a8 ; --------------------------------------------------------------------------------------
09a8 0004 000f | | .DEBUG4 0x0004,0x000f,0x47fb,0x0000,0x0001,0x0000
09ae 0000 0054 | T| .XXX[0x2]
09b0 0000 0000 | | .BLANK 0000[0x8]
09b8 0028 24fe | ($ | .XXX[0x5]
09ba 0800 0600 | |
09bc 8000 | |
09bd 0000 0000 | | .BLANK 0000[0x9]
09c6 0057 26c5 | W& | .XXX[0x2]
09c8 0000 0000 | | .BLANK 0000[0x7]
09cf 0060 | ` | .XXX[0x1]
09d0 0000 0000 | | .BLANK 0000[0x8]
09d8 0001 0404 | | .XXX[0x5]
09da 0000 0280 | |
09dc 8000 | |
09dd 0000 0000 | | .BLANK 0000[0x9]
09e6 0057 26c5 | W& | .XXX[0x2]
09e8 0000 0000 | | .BLANK 0000[0x7]
09ef 006c | l | .XXX[0x1]
09f0 0000 0000 | | .BLANK 0000[0x8]
09f8 0001 0404 | | .XXX[0x8]
09fa 0000 0700 | |
09fc 8000 0000 | |
09fe 0000 0000 | |