|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 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 INIT_0088,For_Outer_Call,Visible,Unelaborated 000d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 000f 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0011 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 0013 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0015 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0017 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0019 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated 001b 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 001d 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 001f 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated 0021 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated 0023 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated 0025 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 0027 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated 0029 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 002b 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated 002d 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated 002f 029a 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call,Visible,Unelaborated 0031 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated 0033 e001 | | Load 0x0,0x1 0034 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0035 029a 0523 | #| Declare_Subprogram INIT_0520,For_Outer_Call,Visible,Unelaborated 0037 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated 0039 029a 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call,Visible,Unelaborated 003b 029a 05e3 | | Declare_Subprogram INIT_05e0,For_Outer_Call,Visible,Unelaborated 003d 029a 0643 | C| Declare_Subprogram INIT_0640,For_Outer_Call,Visible,Unelaborated 003f 029a 066b | k| Declare_Subprogram INIT_0668,For_Outer_Call,Visible,Unelaborated 0041 029a 06b3 | | Declare_Subprogram INIT_06b0,For_Outer_Call,Visible,Unelaborated 0043 029a 07bb | | Declare_Subprogram INIT_07b8,For_Outer_Call,Visible,Unelaborated 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 INIT_08c0,For_Outer_Call 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 INIT_0928,For_Call 00f5 BODY_00f0: 00f5 e5fe | | Load 0x2,-0x2 00f6 4602 |F | Jump_Case 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x3 021f 4803 |H | Short_Literal 0x3 0220 822a | * | Call 0x1,0x2a 0221 4503 |E | Exit_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 INIT_0948,For_Call 02b5 BODY_02b0: 02b5 e5fe | | Load 0x2,-0x2 02b6 4602 |F | Jump_Case 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x3 0307 4802 |H | Short_Literal 0x2 0308 822a | * | Call 0x1,0x2a 0309 4503 |E | Exit_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 0335 7805 |x | Jump 0x33b ; case 0x0 0336 4503 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x3 0407 4804 |H | Short_Literal 0x4 0408 822a | * | Call 0x1,0x2a 0409 4503 |E | Exit_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x3 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 0x68 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_Suprogram New_Top_Offset 0x2 073b 4801 |H | Short_Literal 0x1 073c e5ff | | Load 0x2,-0x1 073d 820d | | Call 0x1,0xd 073e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 073f 4801 |H | Short_Literal 0x1 0740 e5ff | | Load 0x2,-0x1 0741 820e | | Call 0x1,0xe 0742 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0743 4801 |H | Short_Literal 0x1 0744 e5ff | | Load 0x2,-0x1 0745 820f | | Call 0x1,0xf 0746 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0747 4801 |H | Short_Literal 0x1 0748 e5ff | | Load 0x2,-0x1 0749 8210 | | Call 0x1,0x10 074a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 074b 4801 |H | Short_Literal 0x1 074c e5ff | | Load 0x2,-0x1 074d 8211 | | Call 0x1,0x11 074e 4502 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x2 075b 4801 |H | Short_Literal 0x1 075c e5ff | | Load 0x2,-0x1 075d 8212 | | Call 0x1,0x12 075e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 075f 4801 |H | Short_Literal 0x1 0760 e5ff | | Load 0x2,-0x1 0761 8213 | | Call 0x1,0x13 0762 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0763 4801 |H | Short_Literal 0x1 0764 e5ff | | Load 0x2,-0x1 0765 8215 | | Call 0x1,0x15 0766 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0767 4801 |H | Short_Literal 0x1 0768 e5ff | | Load 0x2,-0x1 0769 8214 | | Call 0x1,0x14 076a 4502 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x2 0771 4801 |H | Short_Literal 0x1 0772 e5ff | | Load 0x2,-0x1 0773 8217 | | Call 0x1,0x17 0774 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0775 4801 |H | Short_Literal 0x1 0776 e5ff | | Load 0x2,-0x1 0777 8218 | | Call 0x1,0x18 0778 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0779 4801 |H | Short_Literal 0x1 077a e5ff | | Load 0x2,-0x1 077b 8219 | | Call 0x1,0x19 077c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 077d 4801 |H | Short_Literal 0x1 077e e5ff | | Load 0x2,-0x1 077f 821a | | Call 0x1,0x1a 0780 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0781 4801 |H | Short_Literal 0x1 0782 e5ff | | Load 0x2,-0x1 0783 821b | | Call 0x1,0x1b 0784 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0785 4801 |H | Short_Literal 0x1 0786 e5ff | | Load 0x2,-0x1 0787 821c | | Call 0x1,0x1c 0788 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0789 4801 |H | Short_Literal 0x1 078a e5ff | | Load 0x2,-0x1 078b 821d | | Call 0x1,0x1d 078c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 078d 4801 |H | Short_Literal 0x1 078e e5ff | | Load 0x2,-0x1 078f 821e | | Call 0x1,0x1e 0790 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0791 4801 |H | Short_Literal 0x1 0792 e5ff | | Load 0x2,-0x1 0793 821f | | Call 0x1,0x1f 0794 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0795 4801 |H | Short_Literal 0x1 0796 e5ff | | Load 0x2,-0x1 0797 8220 | | Call 0x1,0x20 0798 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0799 4801 |H | Short_Literal 0x1 079a e5ff | | Load 0x2,-0x1 079b 8221 | ! | Call 0x1,0x21 079c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 079d 4801 |H | Short_Literal 0x1 079e e5ff | | Load 0x2,-0x1 079f 8222 | " | Call 0x1,0x22 07a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07a1 4801 |H | Short_Literal 0x1 07a2 e5ff | | Load 0x2,-0x1 07a3 8223 | # | Call 0x1,0x23 07a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07a5 4801 |H | Short_Literal 0x1 07a6 e5ff | | Load 0x2,-0x1 07a7 8224 | $ | Call 0x1,0x24 07a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07a9 4801 |H | Short_Literal 0x1 07aa e5ff | | Load 0x2,-0x1 07ab 8225 | % | Call 0x1,0x25 07ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07ad 4801 |H | Short_Literal 0x1 07ae e5ff | | Load 0x2,-0x1 07af 8226 | & | Call 0x1,0x26 07b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 07b1 4801 |H | Short_Literal 0x1 07b2 e5ff | | Load 0x2,-0x1 07b3 8227 | ' | Call 0x1,0x27 07b4 4502 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x2 07ce 00d8 | | Load_Top At_Offset_0 07cf 4667 |Fg | Jump_Case 0x68 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_Suprogram New_Top_Offset 0x2 083f 4802 |H | Short_Literal 0x2 0840 e5ff | | Load 0x2,-0x1 0841 820d | | Call 0x1,0xd 0842 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0843 4802 |H | Short_Literal 0x2 0844 e5ff | | Load 0x2,-0x1 0845 820e | | Call 0x1,0xe 0846 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0847 4802 |H | Short_Literal 0x2 0848 e5ff | | Load 0x2,-0x1 0849 820f | | Call 0x1,0xf 084a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 084b 4802 |H | Short_Literal 0x2 084c e5ff | | Load 0x2,-0x1 084d 8210 | | Call 0x1,0x10 084e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 084f 4802 |H | Short_Literal 0x2 0850 e5ff | | Load 0x2,-0x1 0851 8211 | | Call 0x1,0x11 0852 4502 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x2 085f 4802 |H | Short_Literal 0x2 0860 e5ff | | Load 0x2,-0x1 0861 8212 | | Call 0x1,0x12 0862 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0863 4802 |H | Short_Literal 0x2 0864 e5ff | | Load 0x2,-0x1 0865 8213 | | Call 0x1,0x13 0866 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0867 4802 |H | Short_Literal 0x2 0868 e5ff | | Load 0x2,-0x1 0869 8215 | | Call 0x1,0x15 086a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 086b 4802 |H | Short_Literal 0x2 086c e5ff | | Load 0x2,-0x1 086d 8214 | | Call 0x1,0x14 086e 4502 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x2 0875 4802 |H | Short_Literal 0x2 0876 e5ff | | Load 0x2,-0x1 0877 8217 | | Call 0x1,0x17 0878 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0879 4802 |H | Short_Literal 0x2 087a e5ff | | Load 0x2,-0x1 087b 8218 | | Call 0x1,0x18 087c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 087d 4802 |H | Short_Literal 0x2 087e e5ff | | Load 0x2,-0x1 087f 8219 | | Call 0x1,0x19 0880 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0881 4802 |H | Short_Literal 0x2 0882 e5ff | | Load 0x2,-0x1 0883 821a | | Call 0x1,0x1a 0884 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0885 4802 |H | Short_Literal 0x2 0886 e5ff | | Load 0x2,-0x1 0887 821b | | Call 0x1,0x1b 0888 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0889 4802 |H | Short_Literal 0x2 088a e5ff | | Load 0x2,-0x1 088b 821c | | Call 0x1,0x1c 088c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 088d 4802 |H | Short_Literal 0x2 088e e5ff | | Load 0x2,-0x1 088f 821d | | Call 0x1,0x1d 0890 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0891 4802 |H | Short_Literal 0x2 0892 e5ff | | Load 0x2,-0x1 0893 821e | | Call 0x1,0x1e 0894 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0895 4802 |H | Short_Literal 0x2 0896 e5ff | | Load 0x2,-0x1 0897 821f | | Call 0x1,0x1f 0898 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0899 4802 |H | Short_Literal 0x2 089a e5ff | | Load 0x2,-0x1 089b 8220 | | Call 0x1,0x20 089c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 089d 4802 |H | Short_Literal 0x2 089e e5ff | | Load 0x2,-0x1 089f 8221 | ! | Call 0x1,0x21 08a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08a1 4802 |H | Short_Literal 0x2 08a2 e5ff | | Load 0x2,-0x1 08a3 8222 | " | Call 0x1,0x22 08a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08a5 4802 |H | Short_Literal 0x2 08a6 e5ff | | Load 0x2,-0x1 08a7 8223 | # | Call 0x1,0x23 08a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08a9 4802 |H | Short_Literal 0x2 08aa e5ff | | Load 0x2,-0x1 08ab 8224 | $ | Call 0x1,0x24 08ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08ad 4802 |H | Short_Literal 0x2 08ae e5ff | | Load 0x2,-0x1 08af 8225 | % | Call 0x1,0x25 08b0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08b1 4802 |H | Short_Literal 0x2 08b2 e5ff | | Load 0x2,-0x1 08b3 8226 | & | Call 0x1,0x26 08b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 08b5 4802 |H | Short_Literal 0x2 08b6 e5ff | | Load 0x2,-0x1 08b7 8227 | ' | Call 0x1,0x27 08b8 4502 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x1 0956 ; -------------------------------------------------------------------------------------- 0956 ; STRING TABLE 0956 ; -------------------------------------------------------------------------------------- 0956 000e | | .STRTAB 0x000e->0x095d ; "typewriter" 0957 0016 | | .STRTAB 0x0016->0x0962 ; "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 | |