|
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: 7168 (0x1c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0da8 | | .CONST 0x0da8 ; 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 8009 | | .CONST 0x8009 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0196 | | .CONST 0x0196 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003f | ? | .CONST 0x003f ; Number of locals
000b INIT_0008:
000b 4803 |H | Short_Literal 0x3
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 00d8 | | Load_Top At_Offset_0
000e 02a0 | | Declare_Subprogram Null_Subprogram
000f 4818 |H | Short_Literal 0x18
0010 03d6 | | Declare_Type Access,Defined,Visible
0011 00d8 | | Load_Top At_Offset_0
0012 e001 | | Load 0x0,0x1
0013 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0014 e20e | | Load 0x1,0xe
0015 02a0 | | Declare_Subprogram Null_Subprogram
0016 e20d | | Load 0x1,0xd
0017 0326 | & | Complete_Type Record,By_Defining
0018 00d8 | | Load_Top At_Offset_0
0019 03c4 | | Complete_Type Access,By_Component_Completion
001a 00e1 | | Load_Encached Boolean_Cache
001b 0129 | ) | Execute Any,Make_Visible
001c 00e3 | | Load_Encached Natural_Cache
001d 0129 | ) | Execute Any,Make_Visible
001e e001 | | Load 0x0,0x1
001f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0020 0129 | ) | Execute Any,Make_Visible
0021 e001 | | Load 0x0,0x1
0022 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0023 0129 | ) | Execute Any,Make_Visible
0024 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0026 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0028 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
002a 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
002c 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
002e 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0030 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0032 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0034 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0035 0129 | ) | Execute Any,Make_Visible
0036 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0037 0129 | ) | Execute Any,Make_Visible
0038 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0039 0129 | ) | Execute Any,Make_Visible
003a 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated
003c 029a 059b | | Declare_Subprogram INIT_0598,For_Outer_Call,Visible,Unelaborated
003e 029a 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call,Visible,Unelaborated
0040 029a 05fb | | Declare_Subprogram INIT_05f8,For_Outer_Call,Visible,Unelaborated
0042 029a 060b | | Declare_Subprogram INIT_0608,For_Outer_Call,Visible,Unelaborated
0044 029a 061b | | Declare_Subprogram INIT_0618,For_Outer_Call,Visible,Unelaborated
0046 029a 064b | K| Declare_Subprogram INIT_0648,For_Outer_Call,Visible,Unelaborated
0048 029a 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call,Visible,Unelaborated
004a 029a 06c3 | | Declare_Subprogram INIT_06c0,For_Outer_Call,Visible,Unelaborated
004c 029a 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call,Visible,Unelaborated
004e 029a 072b | +| Declare_Subprogram INIT_0728,For_Outer_Call,Visible,Unelaborated
0050 00bf | | Action Accept_Activation
0051 e001 | | Load 0x0,0x1
0052 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0053 e20e | | Load 0x1,0xe
0054 00d8 | | Load_Top At_Offset_0
0055 e001 | | Load 0x0,0x1
0056 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0057 00e1 | | Load_Encached Boolean_Cache
0058 02a0 | | Declare_Subprogram Null_Subprogram
0059 4804 |H | Short_Literal 0x4
005a 032d | - | Declare_Type Record,Defined
005b 4801 |H | Short_Literal 0x1
005c 4814 |H | Short_Literal 0x14
005d e22a | * | Load 0x1,0x2a
005e 02a0 | | Declare_Subprogram Null_Subprogram
005f 4801 |H | Short_Literal 0x1
0060 035d | ] | Declare_Type Array,Defined
0061 00d8 | | Load_Top At_Offset_0
0062 0337 | 7 | Declare_Variable Array
0063 00d8 | | Load_Top At_Offset_0
0064 0335 | 5 | Declare_Variable Array,Duplicate
0065 00cd | | Action Spare6_Action
0066 4814 |H | Short_Literal 0x14
0067 4801 |H | Short_Literal 0x1
0068 e22a | * | Load 0x1,0x2a
0069 0322 | " | Declare_Variable Record
006a e20e | | Load 0x1,0xe
006b e230 | 0 | Load 0x1,0x30
006c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
006d e20e | | Load 0x1,0xe
006e e230 | 0 | Load 0x1,0x30
006f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0070 e001 | | Load 0x0,0x1
0071 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0072 03bc | | Declare_Variable Access,By_Allocation
0073 e230 | 0 | Load 0x1,0x30
0074 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0075 4800 |H | Short_Literal 0x0
0076 e230 | 0 | Load 0x1,0x30
0077 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0078 e22f | / | Load 0x1,0x2f
0079 e22d | - | Load 0x1,0x2d
007a 01d6 | | Execute Vector,Field_Write
007b 3fec |? | Loop_Increasing 0x68
007c e22c | , | Load 0x1,0x2c
007d 01d4 | | Execute Vector,Structure_Write
007e 00e3 | | Load_Encached Natural_Cache
007f e001 | | Load 0x0,0x1
0080 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0081 e20e | | Load 0x1,0xe
0082 0007 | | Action Break_Optional
0083 e001 | | Load 0x0,0x1
0084 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0085 e001 | | Load 0x0,0x1
0086 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0087 00e1 | | Load_Encached Boolean_Cache
0088 e001 | | Load 0x0,0x1
0089 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
008a 0266 | f | Execute Discrete,Bounds
008b 00e1 | | Load_Encached Boolean_Cache
008c 02a0 | | Declare_Subprogram Null_Subprogram
008d 4801 |H | Short_Literal 0x1
008e 035d | ] | Declare_Type Array,Defined
008f 00d8 | | Load_Top At_Offset_0
0090 0337 | 7 | Declare_Variable Array
0091 4801 |H | Short_Literal 0x1
0092 4825 |H% | Short_Literal 0x25
0093 e234 | 4 | Load 0x1,0x34
0094 01d6 | | Execute Vector,Field_Write
0095 4801 |H | Short_Literal 0x1
0096 4826 |H& | Short_Literal 0x26
0097 e234 | 4 | Load 0x1,0x34
0098 01d6 | | Execute Vector,Field_Write
0099 4801 |H | Short_Literal 0x1
009a 4827 |H' | Short_Literal 0x27
009b e234 | 4 | Load 0x1,0x34
009c 01d6 | | Execute Vector,Field_Write
009d 4801 |H | Short_Literal 0x1
009e 482a |H* | Short_Literal 0x2a
009f e234 | 4 | Load 0x1,0x34
00a0 01d6 | | Execute Vector,Field_Write
00a1 4801 |H | Short_Literal 0x1
00a2 482b |H+ | Short_Literal 0x2b
00a3 e234 | 4 | Load 0x1,0x34
00a4 01d6 | | Execute Vector,Field_Write
00a5 4801 |H | Short_Literal 0x1
00a6 482c |H, | Short_Literal 0x2c
00a7 e234 | 4 | Load 0x1,0x34
00a8 01d6 | | Execute Vector,Field_Write
00a9 4801 |H | Short_Literal 0x1
00aa 482d |H- | Short_Literal 0x2d
00ab e234 | 4 | Load 0x1,0x34
00ac 01d6 | | Execute Vector,Field_Write
00ad 4801 |H | Short_Literal 0x1
00ae 482e |H. | Short_Literal 0x2e
00af e234 | 4 | Load 0x1,0x34
00b0 01d6 | | Execute Vector,Field_Write
00b1 4801 |H | Short_Literal 0x1
00b2 482f |H/ | Short_Literal 0x2f
00b3 e234 | 4 | Load 0x1,0x34
00b4 01d6 | | Execute Vector,Field_Write
00b5 4801 |H | Short_Literal 0x1
00b6 483a |H: | Short_Literal 0x3a
00b7 e234 | 4 | Load 0x1,0x34
00b8 01d6 | | Execute Vector,Field_Write
00b9 4801 |H | Short_Literal 0x1
00ba 483b |H; | Short_Literal 0x3b
00bb e234 | 4 | Load 0x1,0x34
00bc 01d6 | | Execute Vector,Field_Write
00bd 4801 |H | Short_Literal 0x1
00be 483c |H< | Short_Literal 0x3c
00bf e234 | 4 | Load 0x1,0x34
00c0 01d6 | | Execute Vector,Field_Write
00c1 4801 |H | Short_Literal 0x1
00c2 483d |H= | Short_Literal 0x3d
00c3 e234 | 4 | Load 0x1,0x34
00c4 01d6 | | Execute Vector,Field_Write
00c5 4801 |H | Short_Literal 0x1
00c6 483e |H> | Short_Literal 0x3e
00c7 e234 | 4 | Load 0x1,0x34
00c8 01d6 | | Execute Vector,Field_Write
00c9 4801 |H | Short_Literal 0x1
00ca 483f |H? | Short_Literal 0x3f
00cb e234 | 4 | Load 0x1,0x34
00cc 01d6 | | Execute Vector,Field_Write
00cd 4801 |H | Short_Literal 0x1
00ce 4840 |H@ | Short_Literal 0x40
00cf e234 | 4 | Load 0x1,0x34
00d0 01d6 | | Execute Vector,Field_Write
00d1 4801 |H | Short_Literal 0x1
00d2 485f |H_ | Short_Literal 0x5f
00d3 e234 | 4 | Load 0x1,0x34
00d4 01d6 | | Execute Vector,Field_Write
00d5 4801 |H | Short_Literal 0x1
00d6 4860 |H` | Short_Literal 0x60
00d7 e234 | 4 | Load 0x1,0x34
00d8 01d6 | | Execute Vector,Field_Write
00d9 4801 |H | Short_Literal 0x1
00da 487c |H| | Short_Literal 0x7c
00db e234 | 4 | Load 0x1,0x34
00dc 01d6 | | Execute Vector,Field_Write
00dd 4801 |H | Short_Literal 0x1
00de 48a9 |H | Short_Literal 0xa9
00df e234 | 4 | Load 0x1,0x34
00e0 01d6 | | Execute Vector,Field_Write
00e1 4801 |H | Short_Literal 0x1
00e2 48b1 |H | Short_Literal 0xb1
00e3 e234 | 4 | Load 0x1,0x34
00e4 01d6 | | Execute Vector,Field_Write
00e5 4801 |H | Short_Literal 0x1
00e6 48b4 |H | Short_Literal 0xb4
00e7 e234 | 4 | Load 0x1,0x34
00e8 01d6 | | Execute Vector,Field_Write
00e9 4801 |H | Short_Literal 0x1
00ea 48b7 |H | Short_Literal 0xb7
00eb e234 | 4 | Load 0x1,0x34
00ec 01d6 | | Execute Vector,Field_Write
00ed 4801 |H | Short_Literal 0x1
00ee 48bc |H | Short_Literal 0xbc
00ef e234 | 4 | Load 0x1,0x34
00f0 01d6 | | Execute Vector,Field_Write
00f1 4801 |H | Short_Literal 0x1
00f2 48d0 |H | Short_Literal 0xd0
00f3 e234 | 4 | Load 0x1,0x34
00f4 01d6 | | Execute Vector,Field_Write
00f5 4801 |H | Short_Literal 0x1
00f6 493c |I< | Short_Literal 0x13c
00f7 e234 | 4 | Load 0x1,0x34
00f8 01d6 | | Execute Vector,Field_Write
00f9 4824 |H$ | Short_Literal 0x24
00fa 4800 |H | Short_Literal 0x0
00fb 4800 |H | Short_Literal 0x0
00fc e236 | 6 | Load 0x1,0x36
00fd e234 | 4 | Load 0x1,0x34
00fe 01d6 | | Execute Vector,Field_Write
00ff 3ffb |? | Loop_Increasing 0xfb
0100 4800 |H | Short_Literal 0x0
0101 4828 |H( | Short_Literal 0x28
0102 e234 | 4 | Load 0x1,0x34
0103 01d6 | | Execute Vector,Field_Write
0104 4800 |H | Short_Literal 0x0
0105 4829 |H) | Short_Literal 0x29
0106 e234 | 4 | Load 0x1,0x34
0107 01d6 | | Execute Vector,Field_Write
0108 4839 |H9 | Short_Literal 0x39
0109 4830 |H0 | Short_Literal 0x30
010a 4800 |H | Short_Literal 0x0
010b e236 | 6 | Load 0x1,0x36
010c e234 | 4 | Load 0x1,0x34
010d 01d6 | | Execute Vector,Field_Write
010e 3ffb |? | Loop_Increasing 0x10a
010f 485e |H^ | Short_Literal 0x5e
0110 4841 |HA | Short_Literal 0x41
0111 4800 |H | Short_Literal 0x0
0112 e236 | 6 | Load 0x1,0x36
0113 e234 | 4 | Load 0x1,0x34
0114 01d6 | | Execute Vector,Field_Write
0115 3ffb |? | Loop_Increasing 0x111
0116 487b |H{ | Short_Literal 0x7b
0117 4861 |Ha | Short_Literal 0x61
0118 4800 |H | Short_Literal 0x0
0119 e236 | 6 | Load 0x1,0x36
011a e234 | 4 | Load 0x1,0x34
011b 01d6 | | Execute Vector,Field_Write
011c 3ffb |? | Loop_Increasing 0x118
011d 48a8 |H | Short_Literal 0xa8
011e 487d |H} | Short_Literal 0x7d
011f 4800 |H | Short_Literal 0x0
0120 e236 | 6 | Load 0x1,0x36
0121 e234 | 4 | Load 0x1,0x34
0122 01d6 | | Execute Vector,Field_Write
0123 3ffb |? | Loop_Increasing 0x11f
0124 48b0 |H | Short_Literal 0xb0
0125 48aa |H | Short_Literal 0xaa
0126 4800 |H | Short_Literal 0x0
0127 e236 | 6 | Load 0x1,0x36
0128 e234 | 4 | Load 0x1,0x34
0129 01d6 | | Execute Vector,Field_Write
012a 3ffb |? | Loop_Increasing 0x126
012b 4800 |H | Short_Literal 0x0
012c 48b2 |H | Short_Literal 0xb2
012d e234 | 4 | Load 0x1,0x34
012e 01d6 | | Execute Vector,Field_Write
012f 4800 |H | Short_Literal 0x0
0130 48b3 |H | Short_Literal 0xb3
0131 e234 | 4 | Load 0x1,0x34
0132 01d6 | | Execute Vector,Field_Write
0133 4800 |H | Short_Literal 0x0
0134 48b5 |H | Short_Literal 0xb5
0135 e234 | 4 | Load 0x1,0x34
0136 01d6 | | Execute Vector,Field_Write
0137 4800 |H | Short_Literal 0x0
0138 48b6 |H | Short_Literal 0xb6
0139 e234 | 4 | Load 0x1,0x34
013a 01d6 | | Execute Vector,Field_Write
013b 48bb |H | Short_Literal 0xbb
013c 48b8 |H | Short_Literal 0xb8
013d 4800 |H | Short_Literal 0x0
013e e236 | 6 | Load 0x1,0x36
013f e234 | 4 | Load 0x1,0x34
0140 01d6 | | Execute Vector,Field_Write
0141 3ffb |? | Loop_Increasing 0x13d
0142 48cf |H | Short_Literal 0xcf
0143 48bd |H | Short_Literal 0xbd
0144 4800 |H | Short_Literal 0x0
0145 e236 | 6 | Load 0x1,0x36
0146 e234 | 4 | Load 0x1,0x34
0147 01d6 | | Execute Vector,Field_Write
0148 3ffb |? | Loop_Increasing 0x144
0149 493b |I; | Short_Literal 0x13b
014a 48d1 |H | Short_Literal 0xd1
014b 4800 |H | Short_Literal 0x0
014c e236 | 6 | Load 0x1,0x36
014d e234 | 4 | Load 0x1,0x34
014e 01d6 | | Execute Vector,Field_Write
014f 3ffb |? | Loop_Increasing 0x14b
0150 4954 |IT | Short_Literal 0x154
0151 493d |I= | Short_Literal 0x13d
0152 4800 |H | Short_Literal 0x0
0153 e236 | 6 | Load 0x1,0x36
0154 e234 | 4 | Load 0x1,0x34
0155 01d6 | | Execute Vector,Field_Write
0156 3ffb |? | Loop_Increasing 0x152
0157 e233 | 3 | Load 0x1,0x33
0158 01c3 | | Execute Vector,Check_In_Type
0159 0007 | | Action Break_Optional
015a 029d 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call
015c 029d 07ab | | Declare_Subprogram INIT_07a8,For_Outer_Call
015e 029d 07eb | | Declare_Subprogram INIT_07e8,For_Outer_Call
0160 029d 0823 | #| Declare_Subprogram INIT_0820,For_Outer_Call
0162 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0163 00c7 | | Action Elaborate_Subprogram
0164 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0165 00c7 | | Action Elaborate_Subprogram
0166 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0167 00c7 | | Action Elaborate_Subprogram
0168 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0169 00c7 | | Action Elaborate_Subprogram
016a 029d 0833 | 3| Declare_Subprogram INIT_0830,For_Outer_Call
016c 029d 084b | K| Declare_Subprogram INIT_0848,For_Outer_Call
016e 029d 086b | k| Declare_Subprogram INIT_0868,For_Outer_Call
0170 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0171 00c7 | | Action Elaborate_Subprogram
0172 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0173 00c7 | | Action Elaborate_Subprogram
0174 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0175 00c7 | | Action Elaborate_Subprogram
0176 029d 094b | K| Declare_Subprogram INIT_0948,For_Outer_Call
0178 029d 0b1b | | Declare_Subprogram INIT_0b18,For_Outer_Call
017a 029d 0b7b | {| Declare_Subprogram INIT_0b78,For_Outer_Call
017c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
017d 00c7 | | Action Elaborate_Subprogram
017e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
017f 00c7 | | Action Elaborate_Subprogram
0180 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0181 00c7 | | Action Elaborate_Subprogram
0182 029d 0bd3 | | Declare_Subprogram INIT_0bd0,For_Outer_Call
0184 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0185 00c7 | | Action Elaborate_Subprogram
0186 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0187 00c7 | | Action Elaborate_Subprogram
0188 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0189 00c7 | | Action Elaborate_Subprogram
018a 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
018b 00c7 | | Action Elaborate_Subprogram
018c 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
018d 00c7 | | Action Elaborate_Subprogram
018e 1d20 | | Execute_Immediate Reference_Lex_1,0x20
018f 00c7 | | Action Elaborate_Subprogram
0190 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0191 00c7 | | Action Elaborate_Subprogram
0192 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0193 00c7 | | Action Elaborate_Subprogram
0194 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0195 00c7 | | Action Elaborate_Subprogram
0196 BODY_0008:
0196 00bc | | Action Signal_Activated
0197 00bb | | Action Signal_Completion
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019d | | .CONST 0x019d ; Address of begin
0199 01bc | | .CONST 0x01bc ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b 029f 0bf3 | | Declare_Subprogram INIT_0bf0,For_Call
019d BODY_0198:
019d e20f | | Load 0x1,0xf
019e e22d | - | Load 0x1,0x2d
019f e22c | , | Load 0x1,0x2c
01a0 01d5 | | Execute Vector,Field_Reference
01a1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01a2 4800 |H | Short_Literal 0x0
01a3 a20f | | Store_Unchecked 0x1,0xf
01a4 e22d | - | Load 0x1,0x2d
01a5 0a01 | | Execute_Immediate Plus,0x1
01a6 c22d | - | Store 0x1,0x2d
01a7 e20e | | Load 0x1,0xe
01a8 e22d | - | Load 0x1,0x2d
01a9 e22c | , | Load 0x1,0x2c
01aa 01d5 | | Execute Vector,Field_Reference
01ab 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01ac e20e | | Load 0x1,0xe
01ad e22d | - | Load 0x1,0x2d
01ae e22c | , | Load 0x1,0x2c
01af 01d5 | | Execute Vector,Field_Reference
01b0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01b1 e22d | - | Load 0x1,0x2d
01b2 e22c | , | Load 0x1,0x2c
01b3 01d5 | | Execute Vector,Field_Reference
01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b5 a22e | . | Store_Unchecked 0x1,0x2e
01b6 8402 | | Call 0x2,0x2
01b7 4800 |H | Short_Literal 0x0
01b8 a212 | | Store_Unchecked 0x1,0x12
01b9 4800 |H | Short_Literal 0x0
01ba a211 | | Store_Unchecked 0x1,0x11
01bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01bc TRAP_0198:
01bc 010e | | Execute Exception,Is_Constraint_Error
01bd 6807 |h | Jump_Zero 0x1c5
01be 0092 0d3e | >| Action Push_String_Extended,0xd3e ; "Output stack overflow"
01c0 e002 | | Load 0x0,0x2
01c1 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c2 e001 | | Load 0x0,0x1
01c3 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
01c4 0257 | W | Execute Discrete,Raise
01c5 0100 | | Execute Exception,Raise
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cf | | .CONST 0x01cf ; Address of begin
01c9 01ff | | .CONST 0x01ff ; Address of exception handler
01ca 0003 | | .CONST 0x0003 ; Number of locals
01cb INIT_01c8:
01cb e20e | | Load 0x1,0xe
01cc 0007 | | Action Break_Optional
01cd e001 | | Load 0x0,0x1
01ce 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01cf BODY_01c8:
01cf e22e | . | Load 0x1,0x2e
01d0 0227 | ' | Execute Access,All_Reference
01d1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d2 0c02 | | Execute_Immediate Greater_Equal,0x2
01d3 680f |h | Jump_Zero 0x1e3
01d4 8236 | 6 | Call 0x1,0x36
01d5 a402 | | Store_Unchecked 0x2,0x2
01d6 e402 | | Load 0x2,0x2
01d7 0227 | ' | Execute Access,All_Reference
01d8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d9 a403 | | Store_Unchecked 0x2,0x3
01da e22e | . | Load 0x1,0x2e
01db e402 | | Load 0x2,0x2
01dc 0227 | ' | Execute Access,All_Reference
01dd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01de 00d8 | | Load_Top At_Offset_0
01df e22d | - | Load 0x1,0x2d
01e0 e22c | , | Load 0x1,0x2c
01e1 01d5 | | Execute Vector,Field_Reference
01e2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e3 e22d | - | Load 0x1,0x2d
01e4 e22c | , | Load 0x1,0x2c
01e5 01d5 | | Execute Vector,Field_Reference
01e6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e7 a402 | | Store_Unchecked 0x2,0x2
01e8 e22d | - | Load 0x1,0x2d
01e9 0aff | | Execute_Immediate Plus,-0x1
01ea c22d | - | Store 0x1,0x2d
01eb e22d | - | Load 0x1,0x2d
01ec e22c | , | Load 0x1,0x2c
01ed 01d5 | | Execute Vector,Field_Reference
01ee 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01ef a20f | | Store_Unchecked 0x1,0xf
01f0 e22d | - | Load 0x1,0x2d
01f1 e22c | , | Load 0x1,0x2c
01f2 01d5 | | Execute Vector,Field_Reference
01f3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01f4 a22e | . | Store_Unchecked 0x1,0x2e
01f5 e22e | . | Load 0x1,0x2e
01f6 0227 | ' | Execute Access,All_Reference
01f7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01f8 a211 | | Store_Unchecked 0x1,0x11
01f9 e22e | . | Load 0x1,0x2e
01fa 0227 | ' | Execute Access,All_Reference
01fb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01fc a212 | | Store_Unchecked 0x1,0x12
01fd e402 | | Load 0x2,0x2
01fe 00ca | | Action Exit_Nullary_Function
01ff TRAP_01c8:
01ff 010e | | Execute Exception,Is_Constraint_Error
0200 6807 |h | Jump_Zero 0x208
0201 0092 0d3f | ?| Action Push_String_Extended,0xd3f ; "Output stack underflow"
0203 e002 | | Load 0x0,0x2
0204 180e | | Execute Package,Field_Execute,Field_Number 0xe
0205 e001 | | Load 0x0,0x1
0206 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0207 0257 | W | Execute Discrete,Raise
0208 0100 | | Execute Exception,Raise
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 e22d | - | Load 0x1,0x2d
0214 0e01 | | Execute_Immediate Not_Equal,0x1
0215 00ca | | Action Exit_Nullary_Function
0216 0000 0000 | | .XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0225 | % | .CONST 0x0225 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0004 | | .CONST 0x0004 ; Number of locals
021b INIT_0218:
021b e20e | | Load 0x1,0xe
021c 0007 | | Action Break_Optional
021d e22d | - | Load 0x1,0x2d
021e e22c | , | Load 0x1,0x2c
021f 01d5 | | Execute Vector,Field_Reference
0220 0007 | | Action Break_Optional
0221 e22e | . | Load 0x1,0x2e
0222 0227 | ' | Execute Access,All_Reference
0223 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0224 0007 | | Action Break_Optional
0225 BODY_0218:
0225 e5ff | | Load 0x2,-0x1
0226 7001 |p | Jump_Nonzero 0x228
0227 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0228 00d8 | | Load_Top At_Offset_0
0229 e5ff | | Load 0x2,-0x1
022a 0227 | ' | Execute Access,All_Reference
022b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
022c 0227 | ' | Execute Access,All_Reference
022d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
022e e5ff | | Load 0x2,-0x1
022f 0227 | ' | Execute Access,All_Reference
0230 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0231 0227 | ' | Execute Access,All_Reference
0232 e404 | | Load 0x2,0x4
0233 8235 | 5 | Call 0x1,0x35
0234 a404 | | Store_Unchecked 0x2,0x4
0235 e403 | | Load 0x2,0x3
0236 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0237 7008 |p | Jump_Nonzero 0x240
0238 e5ff | | Load 0x2,-0x1
0239 e403 | | Load 0x2,0x3
023a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
023b e20e | | Load 0x1,0xe
023c e5ff | | Load 0x2,-0x1
023d 0227 | ' | Execute Access,All_Reference
023e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
023f 780a |x | Jump 0x24a
0240 e5ff | | Load 0x2,-0x1
0241 e403 | | Load 0x2,0x3
0242 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0243 0227 | ' | Execute Access,All_Reference
0244 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0245 e403 | | Load 0x2,0x3
0246 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0247 e5ff | | Load 0x2,-0x1
0248 0227 | ' | Execute Access,All_Reference
0249 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
024a e5ff | | Load 0x2,-0x1
024b e403 | | Load 0x2,0x3
024c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
024d e5ff | | Load 0x2,-0x1
024e 0227 | ' | Execute Access,All_Reference
024f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0250 a402 | | Store_Unchecked 0x2,0x2
0251 e20e | | Load 0x1,0xe
0252 e5ff | | Load 0x2,-0x1
0253 0227 | ' | Execute Access,All_Reference
0254 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0255 e402 | | Load 0x2,0x2
0256 a5ff | | Store_Unchecked 0x2,-0x1
0257 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00cf | | Action Mark_Auxiliary
025c 780c |x | Jump 0x269
025d e20f | | Load 0x1,0xf
025e 6802 |h | Jump_Zero 0x261
025f 4800 |H | Short_Literal 0x0
0260 823b | ; | Call 0x1,0x3b
0261 e5ff | | Load 0x2,-0x1
0262 8216 | | Call 0x1,0x16
0263 c5ff | | Store 0x2,-0x1
0264 e22e | . | Load 0x1,0x2e
0265 0227 | ' | Execute Access,All_Reference
0266 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0267 823b | ; | Call 0x1,0x3b
0268 00c9 | | Action Pop_Auxiliary_Loop
0269 e5ff | | Load 0x2,-0x1
026a 77f2 |w | Jump_Nonzero 0x25d
026b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
026c 0000 0000 | | .BLANK 0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0278 | x | .CONST 0x0278 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0003 | | .CONST 0x0003 ; Number of locals
0273 INIT_0270:
0273 e5ff | | Load 0x2,-0x1
0274 0007 | | Action Break_Optional
0275 e22e | . | Load 0x1,0x2e
0276 0227 | ' | Execute Access,All_Reference
0277 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0278 BODY_0270:
0278 00cf | | Action Mark_Auxiliary
0279 781d |x | Jump 0x297
027a e20f | | Load 0x1,0xf
027b 6802 |h | Jump_Zero 0x27e
027c 4800 |H | Short_Literal 0x0
027d 823b | ; | Call 0x1,0x3b
027e e403 | | Load 0x2,0x3
027f e402 | | Load 0x2,0x2
0280 0227 | ' | Execute Access,All_Reference
0281 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0282 0227 | ' | Execute Access,All_Reference
0283 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0284 e402 | | Load 0x2,0x2
0285 0227 | ' | Execute Access,All_Reference
0286 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0287 0227 | ' | Execute Access,All_Reference
0288 e403 | | Load 0x2,0x3
0289 8235 | 5 | Call 0x1,0x35
028a a403 | | Store_Unchecked 0x2,0x3
028b e402 | | Load 0x2,0x2
028c 0227 | ' | Execute Access,All_Reference
028d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
028e 0227 | ' | Execute Access,All_Reference
028f 8237 | 7 | Call 0x1,0x37
0290 e403 | | Load 0x2,0x3
0291 823b | ; | Call 0x1,0x3b
0292 e402 | | Load 0x2,0x2
0293 0227 | ' | Execute Access,All_Reference
0294 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0295 a402 | | Store_Unchecked 0x2,0x2
0296 00c9 | | Action Pop_Auxiliary_Loop
0297 e402 | | Load 0x2,0x2
0298 77e1 |w | Jump_Nonzero 0x27a
0299 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029a 0000 0000 | | .BLANK 0000[0x6]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a5 | | .CONST 0x02a5 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 e20e | | Load 0x1,0xe
02a4 0007 | | Action Break_Optional
02a5 BODY_02a0:
02a5 e5ff | | Load 0x2,-0x1
02a6 7001 |p | Jump_Nonzero 0x2a8
02a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a8 e5ff | | Load 0x2,-0x1
02a9 a402 | | Store_Unchecked 0x2,0x2
02aa 00cf | | Action Mark_Auxiliary
02ab 7805 |x | Jump 0x2b1
02ac e402 | | Load 0x2,0x2
02ad 0227 | ' | Execute Access,All_Reference
02ae 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02af a402 | | Store_Unchecked 0x2,0x2
02b0 00c9 | | Action Pop_Auxiliary_Loop
02b1 e402 | | Load 0x2,0x2
02b2 0227 | ' | Execute Access,All_Reference
02b3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02b4 77f7 |w | Jump_Nonzero 0x2ac
02b5 00ce | | Action Pop_Auxiliary
02b6 e22f | / | Load 0x1,0x2f
02b7 e402 | | Load 0x2,0x2
02b8 0227 | ' | Execute Access,All_Reference
02b9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02ba e5ff | | Load 0x2,-0x1
02bb a22f | / | Store_Unchecked 0x1,0x2f
02bc e20e | | Load 0x1,0xe
02bd a5ff | | Store_Unchecked 0x2,-0x1
02be 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02bf 0000 | | .XXX[0x1]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02ec | | .CONST 0x02ec ; Address of begin
02c1 0514 | | .CONST 0x0514 ; Address of exception handler
02c2 0005 | | .CONST 0x0005 ; Number of locals
02c3 INIT_02c0:
02c3 e22e | . | Load 0x1,0x2e
02c4 0227 | ' | Execute Access,All_Reference
02c5 0007 | | Action Break_Optional
02c6 e001 | | Load 0x0,0x1
02c7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02c8 0322 | " | Declare_Variable Record
02c9 e5ff | | Load 0x2,-0x1
02ca e403 | | Load 0x2,0x3
02cb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02cc e229 | ) | Load 0x1,0x29
02cd 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02ce e403 | | Load 0x2,0x3
02cf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02d0 4800 |H | Short_Literal 0x0
02d1 e403 | | Load 0x2,0x3
02d2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02d3 e229 | ) | Load 0x1,0x29
02d4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02d5 e403 | | Load 0x2,0x3
02d6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02d7 e229 | ) | Load 0x1,0x29
02d8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02d9 e403 | | Load 0x2,0x3
02da 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02db e229 | ) | Load 0x1,0x29
02dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02dd e403 | | Load 0x2,0x3
02de 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02df e229 | ) | Load 0x1,0x29
02e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02e1 e403 | | Load 0x2,0x3
02e2 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
02e3 e229 | ) | Load 0x1,0x29
02e4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02e5 e403 | | Load 0x2,0x3
02e6 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02e7 00d8 | | Load_Top At_Offset_0
02e8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02e9 0007 | | Action Break_Optional
02ea e001 | | Load 0x0,0x1
02eb 1b10 | | Execute Package,Field_Read,Field_Number 0x10
02ec BODY_02c0:
02ec e402 | | Load 0x2,0x2
02ed 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02ee 6816 |h | Jump_Zero 0x305
02ef e402 | | Load 0x2,0x2
02f0 8237 | 7 | Call 0x1,0x37
02f1 4800 |H | Short_Literal 0x0
02f2 e402 | | Load 0x2,0x2
02f3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02f4 e212 | | Load 0x1,0x12
02f5 e402 | | Load 0x2,0x2
02f6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02f7 4800 |H | Short_Literal 0x0
02f8 e402 | | Load 0x2,0x2
02f9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02fa e229 | ) | Load 0x1,0x29
02fb 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
02fc e402 | | Load 0x2,0x2
02fd 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02fe e229 | ) | Load 0x1,0x29
02ff 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
0300 e402 | | Load 0x2,0x2
0301 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0302 4800 |H | Short_Literal 0x0
0303 e402 | | Load 0x2,0x2
0304 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0305 e20f | | Load 0x1,0xf
0306 6806 |h | Jump_Zero 0x30d
0307 e404 | | Load 0x2,0x4
0308 4944 |ID | Short_Literal 0x144
0309 027f | | Execute Discrete,Equal
030a 7002 |p | Jump_Nonzero 0x30d
030b 4800 |H | Short_Literal 0x0
030c 823b | ; | Call 0x1,0x3b
030d e402 | | Load 0x2,0x2
030e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
030f 7001 |p | Jump_Nonzero 0x311
0310 823d | = | Call 0x1,0x3d
0311 e404 | | Load 0x2,0x4
0312 00d8 | | Load_Top At_Offset_0
0313 493e |I> | Short_Literal 0x13e
0314 027c | | | Execute Discrete,Less
0315 7091 |p | Jump_Nonzero 0x3a7
0316 00d8 | | Load_Top At_Offset_0
0317 4940 |I@ | Short_Literal 0x140
0318 027d | } | Execute Discrete,Greater
0319 7081 |p | Jump_Nonzero 0x39b
031a 00d8 | | Load_Top At_Offset_0
031b 493e |I> | Short_Literal 0x13e
031c 027f | | Execute Discrete,Equal
031d 7099 |p | Jump_Nonzero 0x3b7
031e 493f |I? | Short_Literal 0x13f
031f 027f | | Execute Discrete,Equal
0320 709f |p | Jump_Nonzero 0x3c0
0321 e229 | ) | Load 0x1,0x29
0322 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0323 6803 |h | Jump_Zero 0x327
0324 4800 |H | Short_Literal 0x0
0325 e403 | | Load 0x2,0x3
0326 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0327 00cf | | Action Mark_Auxiliary
0328 e229 | ) | Load 0x1,0x29
0329 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
032a 4801 |H | Short_Literal 0x1
032b 0263 | c | Execute Discrete,Above_Bound
032c 706a |pj | Jump_Nonzero 0x397
032d 00d8 | | Load_Top At_Offset_0
032e e229 | ) | Load 0x1,0x29
032f 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12
0330 01d7 | | Execute Vector,Field_Read
0331 e402 | | Load 0x2,0x2
0332 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0333 e003 | | Load 0x0,0x3
0334 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0335 e004 | | Load 0x0,0x4
0336 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0337 00d8 | | Load_Top At_Offset_0
0338 e004 | | Load 0x0,0x4
0339 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
033a 7003 |p | Jump_Nonzero 0x33e
033b e005 | | Load 0x0,0x5
033c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
033d 0257 | W | Execute Discrete,Raise
033e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
033f 0aff | | Execute_Immediate Plus,-0x1
0340 0273 | s | Execute Discrete,Plus
0341 027d | } | Execute Discrete,Greater
0342 6852 |hR | Jump_Zero 0x395
0343 00d8 | | Load_Top At_Offset_0
0344 e229 | ) | Load 0x1,0x29
0345 3413 |4 | Execute Record,Field_Reference,Field_Number 0x13
0346 01d7 | | Execute Vector,Field_Read
0347 e229 | ) | Load 0x1,0x29
0348 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0349 4800 |H | Short_Literal 0x0
034a e229 | ) | Load 0x1,0x29
034b 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
034c e402 | | Load 0x2,0x2
034d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
034e 0a01 | | Execute_Immediate Plus,0x1
034f e229 | ) | Load 0x1,0x29
0350 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
0351 e229 | ) | Load 0x1,0x29
0352 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
0353 4944 |ID | Short_Literal 0x144
0354 0273 | s | Execute Discrete,Plus
0355 00d8 | | Load_Top At_Offset_0
0356 e001 | | Load 0x0,0x1
0357 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0358 0260 | ` | Execute Discrete,In_Type
0359 7001 |p | Jump_Nonzero 0x35b
035a 0801 | | Execute_Immediate Raise,0x1
035b a404 | | Store_Unchecked 0x2,0x4
035c 00d8 | | Load_Top At_Offset_0
035d e229 | ) | Load 0x1,0x29
035e 3412 |4 | Execute Record,Field_Reference,Field_Number 0x12
035f 01d7 | | Execute Vector,Field_Read
0360 e402 | | Load 0x2,0x2
0361 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0362 0272 | r | Execute Discrete,Minus
0363 e001 | | Load 0x0,0x1
0364 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0365 00d9 | | Load_Top At_Offset_1
0366 00d0 | | Action Swap_Control
0367 0260 | ` | Execute Discrete,In_Type
0368 7001 |p | Jump_Nonzero 0x36a
0369 0801 | | Execute_Immediate Raise,0x1
036a e003 | | Load 0x0,0x3
036b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
036c e004 | | Load 0x0,0x4
036d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
036e 00d8 | | Load_Top At_Offset_0
036f e004 | | Load 0x0,0x4
0370 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0371 7003 |p | Jump_Nonzero 0x375
0372 e005 | | Load 0x0,0x5
0373 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0374 0257 | W | Execute Discrete,Raise
0375 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0376 e403 | | Load 0x2,0x3
0377 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0378 00d8 | | Load_Top At_Offset_0
0379 e229 | ) | Load 0x1,0x29
037a 3414 |4 | Execute Record,Field_Reference,Field_Number 0x14
037b 01d7 | | Execute Vector,Field_Read
037c e403 | | Load 0x2,0x3
037d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
037e e402 | | Load 0x2,0x2
037f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0380 e403 | | Load 0x2,0x3
0381 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0382 0273 | s | Execute Discrete,Plus
0383 c211 | | Store 0x1,0x11
0384 e211 | | Load 0x1,0x11
0385 e402 | | Load 0x2,0x2
0386 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0387 e229 | ) | Load 0x1,0x29
0388 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0389 e402 | | Load 0x2,0x2
038a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
038b e403 | | Load 0x2,0x3
038c e402 | | Load 0x2,0x2
038d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
038e e402 | | Load 0x2,0x2
038f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0390 01d6 | | Execute Vector,Field_Write
0391 e210 | | Load 0x1,0x10
0392 0a01 | | Execute_Immediate Plus,0x1
0393 c210 | | Store 0x1,0x10
0394 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0395 00c8 | | Action Pop_Auxiliary_Range
0396 3f96 |? | Loop_Increasing 0x32d
0397 00ce | | Action Pop_Auxiliary
0398 4820 |H | Short_Literal 0x20
0399 a404 | | Store_Unchecked 0x2,0x4
039a 7850 |xP | Jump 0x3eb
039b 00d8 | | Load_Top At_Offset_0
039c 4942 |IB | Short_Literal 0x142
039d 027f | | Execute Discrete,Equal
039e 7032 |p2 | Jump_Nonzero 0x3d1
039f 00d8 | | Load_Top At_Offset_0
03a0 4943 |IC | Short_Literal 0x143
03a1 027f | | Execute Discrete,Equal
03a2 7007 |p | Jump_Nonzero 0x3aa
03a3 4944 |ID | Short_Literal 0x144
03a4 027f | | Execute Discrete,Equal
03a5 701c |p | Jump_Nonzero 0x3c2
03a6 7844 |xD | Jump 0x3eb
03a7 0f20 | | Execute_Immediate Equal,0x20
03a8 7021 |p! | Jump_Nonzero 0x3ca
03a9 7841 |xA | Jump 0x3eb
03aa 00d1 | | Pop_Control Pop_Count_1
03ab e402 | | Load 0x2,0x2
03ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03ad 0a01 | | Execute_Immediate Plus,0x1
03ae e402 | | Load 0x2,0x2
03af 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03b0 e403 | | Load 0x2,0x3
03b1 e402 | | Load 0x2,0x2
03b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03b3 e402 | | Load 0x2,0x2
03b4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03b5 01d6 | | Execute Vector,Field_Write
03b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b7 00d1 | | Pop_Control Pop_Count_1
03b8 e402 | | Load 0x2,0x2
03b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03ba 0c02 | | Execute_Immediate Greater_Equal,0x2
03bb 6801 |h | Jump_Zero 0x3bd
03bc 823e | > | Call 0x1,0x3e
03bd 4800 |H | Short_Literal 0x0
03be a211 | | Store_Unchecked 0x1,0x11
03bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c0 823e | > | Call 0x1,0x3e
03c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c2 e402 | | Load 0x2,0x2
03c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03c4 0f01 | | Execute_Immediate Equal,0x1
03c5 6803 |h | Jump_Zero 0x3c9
03c6 4800 |H | Short_Literal 0x0
03c7 e402 | | Load 0x2,0x2
03c8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ca e229 | ) | Load 0x1,0x29
03cb 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03cc 681e |h | Jump_Zero 0x3eb
03cd 4800 |H | Short_Literal 0x0
03ce e403 | | Load 0x2,0x3
03cf 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
03d0 781a |x | Jump 0x3eb
03d1 00d1 | | Pop_Control Pop_Count_1
03d2 e229 | ) | Load 0x1,0x29
03d3 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
03d4 6806 |h | Jump_Zero 0x3db
03d5 e229 | ) | Load 0x1,0x29
03d6 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03d7 0275 | u | Execute Discrete,Unary_Minus
03d8 e403 | | Load 0x2,0x3
03d9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03da 7804 |x | Jump 0x3df
03db e229 | ) | Load 0x1,0x29
03dc 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
03dd e403 | | Load 0x2,0x3
03de 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03df e402 | | Load 0x2,0x2
03e0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03e1 0a01 | | Execute_Immediate Plus,0x1
03e2 e402 | | Load 0x2,0x2
03e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03e4 e403 | | Load 0x2,0x3
03e5 e402 | | Load 0x2,0x2
03e6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03e7 e402 | | Load 0x2,0x2
03e8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03e9 01d6 | | Execute Vector,Field_Write
03ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03eb e210 | | Load 0x1,0x10
03ec 0a01 | | Execute_Immediate Plus,0x1
03ed c210 | | Store 0x1,0x10
03ee e404 | | Load 0x2,0x4
03ef e003 | | Load 0x0,0x3
03f0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03f1 e004 | | Load 0x0,0x4
03f2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
03f3 00d8 | | Load_Top At_Offset_0
03f4 e004 | | Load 0x0,0x4
03f5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03f6 7003 |p | Jump_Nonzero 0x3fa
03f7 e005 | | Load 0x0,0x5
03f8 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
03f9 0257 | W | Execute Discrete,Raise
03fa 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03fb e403 | | Load 0x2,0x3
03fc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03fd e402 | | Load 0x2,0x2
03fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03ff 0a01 | | Execute_Immediate Plus,0x1
0400 e402 | | Load 0x2,0x2
0401 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0402 e403 | | Load 0x2,0x3
0403 e402 | | Load 0x2,0x2
0404 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0405 e402 | | Load 0x2,0x2
0406 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0407 01d6 | | Execute Vector,Field_Write
0408 e229 | ) | Load 0x1,0x29
0409 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
040a 4604 |F | Jump_Case 0x5
040b 782b |x+ | Jump 0x437 ; case 0x0
040c 7834 |x4 | Jump 0x441 ; case 0x1
040d 786d |xm | Jump 0x47b ; case 0x2
040e 785f |x_ | Jump 0x46e ; case 0x3
040f 7800 |x | Jump 0x410 ; case 0x4
0410 e229 | ) | Load 0x1,0x29
0411 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0412 e402 | | Load 0x2,0x2
0413 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0414 01d5 | | Execute Vector,Field_Reference
0415 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0416 e403 | | Load 0x2,0x3
0417 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0418 027c | | | Execute Discrete,Less
0419 680d |h | Jump_Zero 0x427
041a 4800 |H | Short_Literal 0x0
041b e229 | ) | Load 0x1,0x29
041c 380f |8 | Execute Record,Field_Write,Field_Number 0xf
041d e402 | | Load 0x2,0x2
041e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
041f e403 | | Load 0x2,0x3
0420 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0421 0273 | s | Execute Discrete,Plus
0422 c211 | | Store 0x1,0x11
0423 e211 | | Load 0x1,0x11
0424 e402 | | Load 0x2,0x2
0425 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0426 78a5 |x | Jump 0x4cc
0427 e229 | ) | Load 0x1,0x29
0428 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0429 e402 | | Load 0x2,0x2
042a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
042b 01d5 | | Execute Vector,Field_Reference
042c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
042d e403 | | Load 0x2,0x3
042e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
042f 0272 | r | Execute Discrete,Minus
0430 e229 | ) | Load 0x1,0x29
0431 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0432 e402 | | Load 0x2,0x2
0433 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0434 01d5 | | Execute Vector,Field_Reference
0435 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0436 7895 |x | Jump 0x4cc
0437 e402 | | Load 0x2,0x2
0438 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0439 e403 | | Load 0x2,0x3
043a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
043b 0273 | s | Execute Discrete,Plus
043c c211 | | Store 0x1,0x11
043d e211 | | Load 0x1,0x11
043e e402 | | Load 0x2,0x2
043f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0440 788b |x | Jump 0x4cc
0441 e404 | | Load 0x2,0x4
0442 0f2e | . | Execute_Immediate Equal,0x2e
0443 700d |p | Jump_Nonzero 0x451
0444 e404 | | Load 0x2,0x4
0445 0f29 | ) | Execute_Immediate Equal,0x29
0446 700a |p | Jump_Nonzero 0x451
0447 e229 | ) | Load 0x1,0x29
0448 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0449 e402 | | Load 0x2,0x2
044a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
044b 01d5 | | Execute Vector,Field_Reference
044c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
044d e403 | | Load 0x2,0x3
044e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
044f 027c | | | Execute Discrete,Less
0450 680d |h | Jump_Zero 0x45e
0451 4800 |H | Short_Literal 0x0
0452 e229 | ) | Load 0x1,0x29
0453 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0454 e402 | | Load 0x2,0x2
0455 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0456 e403 | | Load 0x2,0x3
0457 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0458 0273 | s | Execute Discrete,Plus
0459 c211 | | Store 0x1,0x11
045a e211 | | Load 0x1,0x11
045b e402 | | Load 0x2,0x2
045c 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
045d 786e |xn | Jump 0x4cc
045e e229 | ) | Load 0x1,0x29
045f 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0460 e402 | | Load 0x2,0x2
0461 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0462 01d5 | | Execute Vector,Field_Reference
0463 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0464 e403 | | Load 0x2,0x3
0465 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0466 0272 | r | Execute Discrete,Minus
0467 e229 | ) | Load 0x1,0x29
0468 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
0469 e402 | | Load 0x2,0x2
046a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
046b 01d5 | | Execute Vector,Field_Reference
046c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
046d 785e |x^ | Jump 0x4cc
046e 4800 |H | Short_Literal 0x0
046f e229 | ) | Load 0x1,0x29
0470 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0471 e402 | | Load 0x2,0x2
0472 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0473 e403 | | Load 0x2,0x3
0474 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0475 0273 | s | Execute Discrete,Plus
0476 c211 | | Store 0x1,0x11
0477 e211 | | Load 0x1,0x11
0478 e402 | | Load 0x2,0x2
0479 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
047a 7851 |xQ | Jump 0x4cc
047b e229 | ) | Load 0x1,0x29
047c 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
047d e402 | | Load 0x2,0x2
047e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
047f 01d5 | | Execute Vector,Field_Reference
0480 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0481 e403 | | Load 0x2,0x3
0482 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0483 027c | | | Execute Discrete,Less
0484 680d |h | Jump_Zero 0x492
0485 4800 |H | Short_Literal 0x0
0486 e229 | ) | Load 0x1,0x29
0487 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0488 e402 | | Load 0x2,0x2
0489 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
048a e403 | | Load 0x2,0x3
048b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
048c 0273 | s | Execute Discrete,Plus
048d c211 | | Store 0x1,0x11
048e e211 | | Load 0x1,0x11
048f e402 | | Load 0x2,0x2
0490 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0491 783a |x: | Jump 0x4cc
0492 e403 | | Load 0x2,0x3
0493 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0494 09ff | | Execute_Immediate Binary_Scale,-0x1
0495 e003 | | Load 0x0,0x3
0496 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0497 e004 | | Load 0x0,0x4
0498 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0499 00d8 | | Load_Top At_Offset_0
049a e004 | | Load 0x0,0x4
049b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
049c 7003 |p | Jump_Nonzero 0x4a0
049d e005 | | Load 0x0,0x5
049e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
049f 0257 | W | Execute Discrete,Raise
04a0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04a1 a405 | | Store_Unchecked 0x2,0x5
04a2 e229 | ) | Load 0x1,0x29
04a3 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
04a4 e402 | | Load 0x2,0x2
04a5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04a6 01d5 | | Execute Vector,Field_Reference
04a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04a8 e403 | | Load 0x2,0x3
04a9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04aa e405 | | Load 0x2,0x5
04ab 0272 | r | Execute Discrete,Minus
04ac e229 | ) | Load 0x1,0x29
04ad 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
04ae 0272 | r | Execute Discrete,Minus
04af 0272 | r | Execute Discrete,Minus
04b0 e229 | ) | Load 0x1,0x29
04b1 3c11 |< | Execute Record,Field_Read,Field_Number 0x11
04b2 e402 | | Load 0x2,0x2
04b3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04b4 01d5 | | Execute Vector,Field_Reference
04b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04b6 e402 | | Load 0x2,0x2
04b7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04b8 e405 | | Load 0x2,0x5
04b9 0273 | s | Execute Discrete,Plus
04ba e229 | ) | Load 0x1,0x29
04bb 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
04bc 0273 | s | Execute Discrete,Plus
04bd e402 | | Load 0x2,0x2
04be 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
04bf e403 | | Load 0x2,0x3
04c0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04c1 e405 | | Load 0x2,0x5
04c2 0901 | | Execute_Immediate Binary_Scale,0x1
04c3 0272 | r | Execute Discrete,Minus
04c4 e229 | ) | Load 0x1,0x29
04c5 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
04c6 0272 | r | Execute Discrete,Minus
04c7 e229 | ) | Load 0x1,0x29
04c8 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
04c9 e402 | | Load 0x2,0x2
04ca 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04cb a211 | | Store_Unchecked 0x1,0x11
04cc e402 | | Load 0x2,0x2
04cd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04ce e229 | ) | Load 0x1,0x29
04cf 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
04d0 e229 | ) | Load 0x1,0x29
04d1 3c19 |< | Execute Record,Field_Read,Field_Number 0x19
04d2 0272 | r | Execute Discrete,Minus
04d3 e001 | | Load 0x0,0x1
04d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
04d5 00d9 | | Load_Top At_Offset_1
04d6 00d0 | | Action Swap_Control
04d7 0260 | ` | Execute Discrete,In_Type
04d8 7001 |p | Jump_Nonzero 0x4da
04d9 0801 | | Execute_Immediate Raise,0x1
04da e003 | | Load 0x0,0x3
04db 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04dc e004 | | Load 0x0,0x4
04dd 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
04de 00d8 | | Load_Top At_Offset_0
04df e004 | | Load 0x0,0x4
04e0 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
04e1 7003 |p | Jump_Nonzero 0x4e5
04e2 e005 | | Load 0x0,0x5
04e3 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
04e4 0257 | W | Execute Discrete,Raise
04e5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04e6 027d | } | Execute Discrete,Greater
04e7 682b |h+ | Jump_Zero 0x513
04e8 e404 | | Load 0x2,0x4
04e9 0f20 | | Execute_Immediate Equal,0x20
04ea 7028 |p( | Jump_Nonzero 0x513
04eb 494b |IK | Short_Literal 0x14b
04ec a404 | | Store_Unchecked 0x2,0x4
04ed e229 | ) | Load 0x1,0x29
04ee 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
04ef e003 | | Load 0x0,0x3
04f0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04f1 e004 | | Load 0x0,0x4
04f2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
04f3 00d8 | | Load_Top At_Offset_0
04f4 e004 | | Load 0x0,0x4
04f5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
04f6 7003 |p | Jump_Nonzero 0x4fa
04f7 e005 | | Load 0x0,0x5
04f8 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
04f9 0257 | W | Execute Discrete,Raise
04fa 181c | | Execute Package,Field_Execute,Field_Number 0x1c
04fb e403 | | Load 0x2,0x3
04fc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04fd e402 | | Load 0x2,0x2
04fe 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04ff e403 | | Load 0x2,0x3
0500 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0501 0273 | s | Execute Discrete,Plus
0502 e402 | | Load 0x2,0x2
0503 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0504 e402 | | Load 0x2,0x2
0505 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0506 0a01 | | Execute_Immediate Plus,0x1
0507 e402 | | Load 0x2,0x2
0508 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0509 e403 | | Load 0x2,0x3
050a e402 | | Load 0x2,0x2
050b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
050c e402 | | Load 0x2,0x2
050d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
050e 01d6 | | Execute Vector,Field_Write
050f 4800 |H | Short_Literal 0x0
0510 e229 | ) | Load 0x1,0x29
0511 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0512 823c | < | Call 0x1,0x3c
0513 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0514 TRAP_02c0:
0514 010e | | Execute Exception,Is_Constraint_Error
0515 680d |h | Jump_Zero 0x523
0516 e402 | | Load 0x2,0x2
0517 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0518 0cfb | | Execute_Immediate Greater_Equal,-0x5
0519 6807 |h | Jump_Zero 0x521
051a 0092 0d40 | @| Action Push_String_Extended,0xd40 ; "Exceeded maximum of 250 characters per output line"
051c e002 | | Load 0x0,0x2
051d 180e | | Execute Package,Field_Execute,Field_Number 0xe
051e e001 | | Load 0x0,0x1
051f 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0520 0257 | W | Execute Discrete,Raise
0521 00d8 | | Load_Top At_Offset_0
0522 0101 | | Execute Exception,Reraise
0523 0100 | | Execute Exception,Raise
0524 0000 0000 | | .BLANK 0000[0x4]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 0531 | 1 | .CONST 0x0531 ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0003 | | .CONST 0x0003 ; Number of locals
052b INIT_0528:
052b e22e | . | Load 0x1,0x2e
052c 0227 | ' | Execute Access,All_Reference
052d 0007 | | Action Break_Optional
052e e001 | | Load 0x0,0x1
052f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0530 0322 | " | Declare_Variable Record
0531 BODY_0528:
0531 e5ff | | Load 0x2,-0x1
0532 0d00 | | Execute_Immediate Less,0x0
0533 681f |h | Jump_Zero 0x553
0534 e001 | | Load 0x0,0x1
0535 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0536 0322 | " | Declare_Variable Record
0537 4949 |II | Short_Literal 0x149
0538 e404 | | Load 0x2,0x4
0539 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
053a 4fff |O | Short_Literal -0x1
053b e404 | | Load 0x2,0x4
053c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
053d 4800 |H | Short_Literal 0x0
053e e404 | | Load 0x2,0x4
053f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0540 e229 | ) | Load 0x1,0x29
0541 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0542 e404 | | Load 0x2,0x4
0543 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0544 4800 |H | Short_Literal 0x0
0545 e404 | | Load 0x2,0x4
0546 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0547 4800 |H | Short_Literal 0x0
0548 e404 | | Load 0x2,0x4
0549 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
054a 4800 |H | Short_Literal 0x0
054b e404 | | Load 0x2,0x4
054c 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
054d 4800 |H | Short_Literal 0x0
054e e404 | | Load 0x2,0x4
054f 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0550 e403 | | Load 0x2,0x3
0551 017d | } | Execute Record,Structure_Write
0552 782a |x* | Jump 0x57d
0553 e001 | | Load 0x0,0x1
0554 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0555 0322 | " | Declare_Variable Record
0556 4949 |II | Short_Literal 0x149
0557 e404 | | Load 0x2,0x4
0558 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0559 4fff |O | Short_Literal -0x1
055a e404 | | Load 0x2,0x4
055b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
055c e5ff | | Load 0x2,-0x1
055d e003 | | Load 0x0,0x3
055e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
055f e004 | | Load 0x0,0x4
0560 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0561 00d8 | | Load_Top At_Offset_0
0562 e004 | | Load 0x0,0x4
0563 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0564 7003 |p | Jump_Nonzero 0x568
0565 e005 | | Load 0x0,0x5
0566 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0567 0257 | W | Execute Discrete,Raise
0568 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0569 e404 | | Load 0x2,0x4
056a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
056b e229 | ) | Load 0x1,0x29
056c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
056d e404 | | Load 0x2,0x4
056e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
056f 4800 |H | Short_Literal 0x0
0570 e404 | | Load 0x2,0x4
0571 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0572 4800 |H | Short_Literal 0x0
0573 e404 | | Load 0x2,0x4
0574 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0575 4800 |H | Short_Literal 0x0
0576 e404 | | Load 0x2,0x4
0577 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0578 4800 |H | Short_Literal 0x0
0579 e404 | | Load 0x2,0x4
057a 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
057b e403 | | Load 0x2,0x3
057c 017d | } | Execute Record,Structure_Write
057d e402 | | Load 0x2,0x2
057e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
057f 7001 |p | Jump_Nonzero 0x581
0580 823d | = | Call 0x1,0x3d
0581 e402 | | Load 0x2,0x2
0582 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0583 0a01 | | Execute_Immediate Plus,0x1
0584 e402 | | Load 0x2,0x2
0585 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0586 00d8 | | Load_Top At_Offset_0
0587 e402 | | Load 0x2,0x2
0588 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0589 e402 | | Load 0x2,0x2
058a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
058b 01d6 | | Execute Vector,Field_Write
058c e402 | | Load 0x2,0x2
058d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
058e e403 | | Load 0x2,0x3
058f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0590 0273 | s | Execute Discrete,Plus
0591 e402 | | Load 0x2,0x2
0592 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0593 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0594 0000 0000 | | .BLANK 0000[0x4]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 05ab | | .CONST 0x05ab ; Address of begin
0599 0004 | | .CONST 0x0004 ; Address of exception handler
059a 0003 | | .CONST 0x0003 ; Number of locals
059b INIT_0598:
059b e22e | . | Load 0x1,0x2e
059c 0227 | ' | Execute Access,All_Reference
059d 0007 | | Action Break_Optional
059e e5ff | | Load 0x2,-0x1
059f e003 | | Load 0x0,0x3
05a0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
05a1 e004 | | Load 0x0,0x4
05a2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
05a3 00d8 | | Load_Top At_Offset_0
05a4 e004 | | Load 0x0,0x4
05a5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
05a6 7003 |p | Jump_Nonzero 0x5aa
05a7 e005 | | Load 0x0,0x5
05a8 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
05a9 0257 | W | Execute Discrete,Raise
05aa 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05ab BODY_0598:
05ab e402 | | Load 0x2,0x2
05ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05ad 7001 |p | Jump_Nonzero 0x5af
05ae 823d | = | Call 0x1,0x3d
05af e402 | | Load 0x2,0x2
05b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05b1 0a01 | | Execute_Immediate Plus,0x1
05b2 e402 | | Load 0x2,0x2
05b3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05b4 e001 | | Load 0x0,0x1
05b5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
05b6 0322 | " | Declare_Variable Record
05b7 494d |IM | Short_Literal 0x14d
05b8 e404 | | Load 0x2,0x4
05b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05ba e229 | ) | Load 0x1,0x29
05bb 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05bc e404 | | Load 0x2,0x4
05bd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
05be e403 | | Load 0x2,0x3
05bf e404 | | Load 0x2,0x4
05c0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05c1 e229 | ) | Load 0x1,0x29
05c2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
05c3 e404 | | Load 0x2,0x4
05c4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
05c5 e229 | ) | Load 0x1,0x29
05c6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05c7 e404 | | Load 0x2,0x4
05c8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05c9 e229 | ) | Load 0x1,0x29
05ca 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05cb e404 | | Load 0x2,0x4
05cc 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
05cd e229 | ) | Load 0x1,0x29
05ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05cf e404 | | Load 0x2,0x4
05d0 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
05d1 e229 | ) | Load 0x1,0x29
05d2 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
05d3 e404 | | Load 0x2,0x4
05d4 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
05d5 e402 | | Load 0x2,0x2
05d6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05d7 e402 | | Load 0x2,0x2
05d8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05d9 01d6 | | Execute Vector,Field_Write
05da e402 | | Load 0x2,0x2
05db 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
05dc e403 | | Load 0x2,0x3
05dd 0273 | s | Execute Discrete,Plus
05de e402 | | Load 0x2,0x2
05df 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
05e0 e229 | ) | Load 0x1,0x29
05e1 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
05e2 0f01 | | Execute_Immediate Equal,0x1
05e3 6803 |h | Jump_Zero 0x5e7
05e4 4800 |H | Short_Literal 0x0
05e5 e229 | ) | Load 0x1,0x29
05e6 380f |8 | Execute Record,Field_Write,Field_Number 0xf
05e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05eb | | .CONST 0x05eb ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0001 | | .CONST 0x0001 ; Number of locals
05eb BODY_05e8:
05eb INIT_05e8:
05eb e5ff | | Load 0x2,-0x1
05ec e22e | . | Load 0x1,0x2e
05ed 0227 | ' | Execute Access,All_Reference
05ee 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
05ef e5ff | | Load 0x2,-0x1
05f0 e229 | ) | Load 0x1,0x29
05f1 380b |8 | Execute Record,Field_Write,Field_Number 0xb
05f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
05f3 0000 0000 | | .BLANK 0000[0x5]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb e5ff | | Load 0x2,-0x1
05fc e22e | . | Load 0x1,0x2e
05fd 0227 | ' | Execute Access,All_Reference
05fe 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
05ff e5ff | | Load 0x2,-0x1
0600 e229 | ) | Load 0x1,0x29
0601 380c |8 | Execute Record,Field_Write,Field_Number 0xc
0602 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0603 0000 0000 | | .BLANK 0000[0x5]
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060c | | .CONST 0x060c ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0002 | | .CONST 0x0002 ; Number of locals
060b INIT_0608:
060b 823f | ? | Call 0x1,0x3f
060c BODY_0608:
060c 4954 |IT | Short_Literal 0x154
060d e402 | | Load 0x2,0x2
060e e22e | . | Load 0x1,0x2e
060f 0227 | ' | Execute Access,All_Reference
0610 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0611 01d5 | | Execute Vector,Field_Reference
0612 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0613 00d8 | | Load_Top At_Offset_0
0614 e22e | . | Load 0x1,0x2e
0615 0227 | ' | Execute Access,All_Reference
0616 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0617 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0618 ; --------------------------------------------------------------------------------------
0618 ; SUBPROGRAM
0618 ; --------------------------------------------------------------------------------------
0618 061f | | .CONST 0x061f ; Address of begin
0619 0004 | | .CONST 0x0004 ; Address of exception handler
061a 0003 | | .CONST 0x0003 ; Number of locals
061b INIT_0618:
061b e22e | . | Load 0x1,0x2e
061c 0227 | ' | Execute Access,All_Reference
061d 0007 | | Action Break_Optional
061e 823f | ? | Call 0x1,0x3f
061f BODY_0618:
061f 4952 |IR | Short_Literal 0x152
0620 e403 | | Load 0x2,0x3
0621 e402 | | Load 0x2,0x2
0622 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0623 01d5 | | Execute Vector,Field_Reference
0624 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0625 e5ff | | Load 0x2,-0x1
0626 e403 | | Load 0x2,0x3
0627 e402 | | Load 0x2,0x2
0628 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0629 01d5 | | Execute Vector,Field_Reference
062a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
062b 00d8 | | Load_Top At_Offset_0
062c 0a01 | | Execute_Immediate Plus,0x1
062d e402 | | Load 0x2,0x2
062e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
062f 4944 |ID | Short_Literal 0x144
0630 e402 | | Load 0x2,0x2
0631 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0632 e402 | | Load 0x2,0x2
0633 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0634 01d5 | | Execute Vector,Field_Reference
0635 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0636 e5fe | | Load 0x2,-0x2
0637 e402 | | Load 0x2,0x2
0638 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0639 e402 | | Load 0x2,0x2
063a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
063b 01d5 | | Execute Vector,Field_Reference
063c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
063d e211 | | Load 0x1,0x11
063e e5ff | | Load 0x2,-0x1
063f 0273 | s | Execute Discrete,Plus
0640 c211 | | Store 0x1,0x11
0641 e212 | | Load 0x1,0x12
0642 e5fe | | Load 0x2,-0x2
0643 0273 | s | Execute Discrete,Plus
0644 c212 | | Store 0x1,0x12
0645 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0646 0000 0000 | | .XXX[0x2]
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064f | O | .CONST 0x064f ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0003 | | .CONST 0x0003 ; Number of locals
064b INIT_0648:
064b e22e | . | Load 0x1,0x2e
064c 0227 | ' | Execute Access,All_Reference
064d 0007 | | Action Break_Optional
064e 823f | ? | Call 0x1,0x3f
064f BODY_0648:
064f 4953 |IS | Short_Literal 0x153
0650 e403 | | Load 0x2,0x3
0651 e402 | | Load 0x2,0x2
0652 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0653 01d5 | | Execute Vector,Field_Reference
0654 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0655 e5ff | | Load 0x2,-0x1
0656 e403 | | Load 0x2,0x3
0657 e402 | | Load 0x2,0x2
0658 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0659 01d5 | | Execute Vector,Field_Reference
065a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
065b 00d8 | | Load_Top At_Offset_0
065c 0a01 | | Execute_Immediate Plus,0x1
065d e402 | | Load 0x2,0x2
065e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
065f 4944 |ID | Short_Literal 0x144
0660 e402 | | Load 0x2,0x2
0661 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0662 e402 | | Load 0x2,0x2
0663 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0664 01d5 | | Execute Vector,Field_Reference
0665 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0666 e5fe | | Load 0x2,-0x2
0667 e402 | | Load 0x2,0x2
0668 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0669 e402 | | Load 0x2,0x2
066a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
066b 01d5 | | Execute Vector,Field_Reference
066c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
066d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
066e 0000 0000 | | .XXX[0x2]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0677 | w | .CONST 0x0677 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0003 | | .CONST 0x0003 ; Number of locals
0673 INIT_0670:
0673 e22e | . | Load 0x1,0x2e
0674 0227 | ' | Execute Access,All_Reference
0675 0007 | | Action Break_Optional
0676 823f | ? | Call 0x1,0x3f
0677 BODY_0670:
0677 e5ff | | Load 0x2,-0x1
0678 0d00 | | Execute_Immediate Less,0x0
0679 e5fe | | Load 0x2,-0x2
067a 0d00 | | Execute_Immediate Less,0x0
067b 0278 | x | Execute Discrete,Or
067c 6807 |h | Jump_Zero 0x684
067d 0092 0d41 | A| Action Push_String_Extended,0xd41 ; "Bad absolute position"
067f e002 | | Load 0x0,0x2
0680 180e | | Execute Package,Field_Execute,Field_Number 0xe
0681 e001 | | Load 0x0,0x1
0682 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0683 0257 | W | Execute Discrete,Raise
0684 494e |IN | Short_Literal 0x14e
0685 e403 | | Load 0x2,0x3
0686 e402 | | Load 0x2,0x2
0687 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0688 01d5 | | Execute Vector,Field_Reference
0689 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
068a e5ff | | Load 0x2,-0x1
068b e003 | | Load 0x0,0x3
068c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
068d e004 | | Load 0x0,0x4
068e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
068f 00d8 | | Load_Top At_Offset_0
0690 e004 | | Load 0x0,0x4
0691 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0692 7003 |p | Jump_Nonzero 0x696
0693 e005 | | Load 0x0,0x5
0694 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0695 0257 | W | Execute Discrete,Raise
0696 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0697 a211 | | Store_Unchecked 0x1,0x11
0698 e211 | | Load 0x1,0x11
0699 e403 | | Load 0x2,0x3
069a e402 | | Load 0x2,0x2
069b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
069c 01d5 | | Execute Vector,Field_Reference
069d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
069e 00d8 | | Load_Top At_Offset_0
069f 0a01 | | Execute_Immediate Plus,0x1
06a0 e402 | | Load 0x2,0x2
06a1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06a2 494f |IO | Short_Literal 0x14f
06a3 e402 | | Load 0x2,0x2
06a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06a5 e402 | | Load 0x2,0x2
06a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06a7 01d5 | | Execute Vector,Field_Reference
06a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06a9 e5fe | | Load 0x2,-0x2
06aa e003 | | Load 0x0,0x3
06ab 1b12 | | Execute Package,Field_Read,Field_Number 0x12
06ac e004 | | Load 0x0,0x4
06ad 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
06ae 00d8 | | Load_Top At_Offset_0
06af e004 | | Load 0x0,0x4
06b0 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
06b1 7003 |p | Jump_Nonzero 0x6b5
06b2 e005 | | Load 0x0,0x5
06b3 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
06b4 0257 | W | Execute Discrete,Raise
06b5 181c | | Execute Package,Field_Execute,Field_Number 0x1c
06b6 a212 | | Store_Unchecked 0x1,0x12
06b7 e212 | | Load 0x1,0x12
06b8 e402 | | Load 0x2,0x2
06b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06ba e402 | | Load 0x2,0x2
06bb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06bc 01d5 | | Execute Vector,Field_Reference
06bd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06be 4503 |E | Exit_Suprogram New_Top_Offset 0x3
06bf 0000 | | .XXX[0x1]
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06c7 | | .CONST 0x06c7 ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0003 | | .CONST 0x0003 ; Number of locals
06c3 INIT_06c0:
06c3 e22e | . | Load 0x1,0x2e
06c4 0227 | ' | Execute Access,All_Reference
06c5 0007 | | Action Break_Optional
06c6 823f | ? | Call 0x1,0x3f
06c7 BODY_06c0:
06c7 e211 | | Load 0x1,0x11
06c8 e5ff | | Load 0x2,-0x1
06c9 0273 | s | Execute Discrete,Plus
06ca 0d00 | | Execute_Immediate Less,0x0
06cb e212 | | Load 0x1,0x12
06cc e5fe | | Load 0x2,-0x2
06cd 0273 | s | Execute Discrete,Plus
06ce 0d00 | | Execute_Immediate Less,0x0
06cf 0278 | x | Execute Discrete,Or
06d0 6807 |h | Jump_Zero 0x6d8
06d1 0092 0d42 | B| Action Push_String_Extended,0xd42 ; "Bad relative position"
06d3 e002 | | Load 0x0,0x2
06d4 180e | | Execute Package,Field_Execute,Field_Number 0xe
06d5 e001 | | Load 0x0,0x1
06d6 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
06d7 0257 | W | Execute Discrete,Raise
06d8 4950 |IP | Short_Literal 0x150
06d9 e403 | | Load 0x2,0x3
06da e402 | | Load 0x2,0x2
06db 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06dc 01d5 | | Execute Vector,Field_Reference
06dd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06de e5ff | | Load 0x2,-0x1
06df e003 | | Load 0x0,0x3
06e0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
06e1 e004 | | Load 0x0,0x4
06e2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
06e3 00d8 | | Load_Top At_Offset_0
06e4 e004 | | Load 0x0,0x4
06e5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
06e6 7003 |p | Jump_Nonzero 0x6ea
06e7 e005 | | Load 0x0,0x5
06e8 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
06e9 0257 | W | Execute Discrete,Raise
06ea 181b | | Execute Package,Field_Execute,Field_Number 0x1b
06eb e403 | | Load 0x2,0x3
06ec e402 | | Load 0x2,0x2
06ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06ee 01d5 | | Execute Vector,Field_Reference
06ef 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06f0 00d8 | | Load_Top At_Offset_0
06f1 e402 | | Load 0x2,0x2
06f2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
06f3 01d5 | | Execute Vector,Field_Reference
06f4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
06f5 e211 | | Load 0x1,0x11
06f6 0273 | s | Execute Discrete,Plus
06f7 c211 | | Store 0x1,0x11
06f8 00d8 | | Load_Top At_Offset_0
06f9 0a01 | | Execute_Immediate Plus,0x1
06fa e402 | | Load 0x2,0x2
06fb 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06fc 4951 |IQ | Short_Literal 0x151
06fd e402 | | Load 0x2,0x2
06fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06ff e402 | | Load 0x2,0x2
0700 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0701 01d5 | | Execute Vector,Field_Reference
0702 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0703 e5fe | | Load 0x2,-0x2
0704 e003 | | Load 0x0,0x3
0705 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0706 e004 | | Load 0x0,0x4
0707 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0708 00d8 | | Load_Top At_Offset_0
0709 e004 | | Load 0x0,0x4
070a 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
070b 7003 |p | Jump_Nonzero 0x70f
070c e005 | | Load 0x0,0x5
070d 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
070e 0257 | W | Execute Discrete,Raise
070f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0710 e402 | | Load 0x2,0x2
0711 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0712 e402 | | Load 0x2,0x2
0713 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0714 01d5 | | Execute Vector,Field_Reference
0715 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0716 e402 | | Load 0x2,0x2
0717 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0718 e402 | | Load 0x2,0x2
0719 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
071a 01d5 | | Execute Vector,Field_Reference
071b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
071c e212 | | Load 0x1,0x12
071d 0273 | s | Execute Discrete,Plus
071e c212 | | Store 0x1,0x12
071f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723 | # | .CONST 0x0723 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0001 | | .CONST 0x0001 ; Number of locals
0723 BODY_0720:
0723 INIT_0720:
0723 e5ff | | Load 0x2,-0x1
0724 6802 |h | Jump_Zero 0x727
0725 e5ff | | Load 0x2,-0x1
0726 a231 | 1 | Store_Unchecked 0x1,0x31
0727 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0728 ; --------------------------------------------------------------------------------------
0728 ; SUBPROGRAM
0728 ; --------------------------------------------------------------------------------------
0728 072d | - | .CONST 0x072d ; Address of begin
0729 0004 | | .CONST 0x0004 ; Address of exception handler
072a 0002 | | .CONST 0x0002 ; Number of locals
072b INIT_0728:
072b 029f 0c13 | | Declare_Subprogram INIT_0c10,For_Call
072d BODY_0728:
072d 4801 |H | Short_Literal 0x1
072e a20f | | Store_Unchecked 0x1,0xf
072f 4800 |H | Short_Literal 0x0
0730 a210 | | Store_Unchecked 0x1,0x10
0731 4800 |H | Short_Literal 0x0
0732 a211 | | Store_Unchecked 0x1,0x11
0733 4800 |H | Short_Literal 0x0
0734 a212 | | Store_Unchecked 0x1,0x12
0735 6016 |` | Indirect_Literal Discrete,0x74c,{0x00000000, 0x0001a5e0}
0736 a230 | 0 | Store_Unchecked 0x1,0x30
0737 6010 |` | Indirect_Literal Discrete,0x748,{0x00000000, 0x000afc80}
0738 a231 | 1 | Store_Unchecked 0x1,0x31
0739 4800 |H | Short_Literal 0x0
073a a232 | 2 | Store_Unchecked 0x1,0x32
073b 4801 |H | Short_Literal 0x1
073c a22d | - | Store_Unchecked 0x1,0x2d
073d 4801 |H | Short_Literal 0x1
073e e22c | , | Load 0x1,0x2c
073f 01d5 | | Execute Vector,Field_Reference
0740 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0741 a22e | . | Store_Unchecked 0x1,0x2e
0742 8402 | | Call 0x2,0x2
0743 e20e | | Load 0x1,0xe
0744 a22f | / | Store_Unchecked 0x1,0x2f
0745 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0746 0000 0000 | | .XXX[0x2]
0748 0000 0000 | | .LITERAL {0x00000000, 0x000afc80}
074c 0000 0000 | | .LITERAL {0x00000000, 0x0001a5e0}
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753 | S | .CONST 0x0753 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0001 | | .CONST 0x0001 ; Number of locals
0753 BODY_0750:
0753 INIT_0750:
0753 e5fe | | Load 0x2,-0x2
0754 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0755 0d01 | | Execute_Immediate Less,0x1
0756 6806 |h | Jump_Zero 0x75d
0757 0092 0d43 | C| Action Push_String_Extended,0xd43 ; "Compute_Position called with empty line"
0759 e002 | | Load 0x0,0x2
075a 180e | | Execute Package,Field_Execute,Field_Number 0xe
075b e5ff | | Load 0x2,-0x1
075c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
075d 4800 |H | Short_Literal 0x0
075e a211 | | Store_Unchecked 0x1,0x11
075f e5fe | | Load 0x2,-0x2
0760 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0761 6838 |h8 | Jump_Zero 0x79a
0762 e5ff | | Load 0x2,-0x1
0763 a212 | | Store_Unchecked 0x1,0x12
0764 00cf | | Action Mark_Auxiliary
0765 e5fe | | Load 0x2,-0x2
0766 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0767 4801 |H | Short_Literal 0x1
0768 0263 | c | Execute Discrete,Above_Bound
0769 702e |p. | Jump_Nonzero 0x798
076a 00d8 | | Load_Top At_Offset_0
076b e5fe | | Load 0x2,-0x2
076c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
076d 01d5 | | Execute Vector,Field_Reference
076e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
076f 00d8 | | Load_Top At_Offset_0
0770 494f |IO | Short_Literal 0x14f
0771 027f | | Execute Discrete,Equal
0772 701c |p | Jump_Nonzero 0x78f
0773 00d8 | | Load_Top At_Offset_0
0774 4951 |IQ | Short_Literal 0x151
0775 027f | | Execute Discrete,Equal
0776 7004 |p | Jump_Nonzero 0x77b
0777 4952 |IR | Short_Literal 0x152
0778 027f | | Execute Discrete,Equal
0779 700b |p | Jump_Nonzero 0x785
077a 781b |x | Jump 0x796
077b 00d1 | | Pop_Control Pop_Count_1
077c e212 | | Load 0x1,0x12
077d e404 | | Load 0x2,0x4
077e e5fe | | Load 0x2,-0x2
077f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0780 01d5 | | Execute Vector,Field_Reference
0781 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0782 0273 | s | Execute Discrete,Plus
0783 c212 | | Store 0x1,0x12
0784 7811 |x | Jump 0x796
0785 e212 | | Load 0x1,0x12
0786 e404 | | Load 0x2,0x4
0787 0a01 | | Execute_Immediate Plus,0x1
0788 e5fe | | Load 0x2,-0x2
0789 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
078a 01d5 | | Execute Vector,Field_Reference
078b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
078c 0273 | s | Execute Discrete,Plus
078d c212 | | Store 0x1,0x12
078e 7807 |x | Jump 0x796
078f 00d1 | | Pop_Control Pop_Count_1
0790 00d8 | | Load_Top At_Offset_0
0791 e5fe | | Load 0x2,-0x2
0792 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0793 01d5 | | Execute Vector,Field_Reference
0794 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0795 a212 | | Store_Unchecked 0x1,0x12
0796 00c8 | | Action Pop_Auxiliary_Range
0797 3fd2 |? | Loop_Increasing 0x76a
0798 00ce | | Action Pop_Auxiliary
0799 7805 |x | Jump 0x79f
079a e5fe | | Load 0x2,-0x2
079b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
079c e5ff | | Load 0x2,-0x1
079d 0273 | s | Execute Discrete,Plus
079e c212 | | Store 0x1,0x12
079f e212 | | Load 0x1,0x12
07a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07a1 0000 0000 | | .BLANK 0000[0x7]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07b1 | | .CONST 0x07b1 ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 0003 | | .CONST 0x0003 ; Number of locals
07ab INIT_07a8:
07ab e20e | | Load 0x1,0xe
07ac 0007 | | Action Break_Optional
07ad e22d | - | Load 0x1,0x2d
07ae e22c | , | Load 0x1,0x2c
07af 01d5 | | Execute Vector,Field_Reference
07b0 0007 | | Action Break_Optional
07b1 BODY_07a8:
07b1 e22f | / | Load 0x1,0x2f
07b2 7011 |p | Jump_Nonzero 0x7c4
07b3 e20d | | Load 0x1,0xd
07b4 0322 | " | Declare_Variable Record
07b5 e20e | | Load 0x1,0xe
07b6 e404 | | Load 0x2,0x4
07b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07b8 e001 | | Load 0x0,0x1
07b9 1b19 | | Execute Package,Field_Read,Field_Number 0x19
07ba 03bc | | Declare_Variable Access,By_Allocation
07bb e404 | | Load 0x2,0x4
07bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07bd e20e | | Load 0x1,0xe
07be e404 | | Load 0x2,0x4
07bf 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07c0 e20e | | Load 0x1,0xe
07c1 03b6 | | Declare_Variable Access,By_Allocation,With_Value
07c2 a402 | | Store_Unchecked 0x2,0x2
07c3 780a |x | Jump 0x7ce
07c4 e22f | / | Load 0x1,0x2f
07c5 a402 | | Store_Unchecked 0x2,0x2
07c6 e22f | / | Load 0x1,0x2f
07c7 0227 | ' | Execute Access,All_Reference
07c8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07c9 a22f | / | Store_Unchecked 0x1,0x2f
07ca e20e | | Load 0x1,0xe
07cb e402 | | Load 0x2,0x2
07cc 0227 | ' | Execute Access,All_Reference
07cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07ce 00d8 | | Load_Top At_Offset_0
07cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
07d0 7008 |p | Jump_Nonzero 0x7d9
07d1 e402 | | Load 0x2,0x2
07d2 e403 | | Load 0x2,0x3
07d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07d4 e20e | | Load 0x1,0xe
07d5 e402 | | Load 0x2,0x2
07d6 0227 | ' | Execute Access,All_Reference
07d7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07d8 780a |x | Jump 0x7e3
07d9 e402 | | Load 0x2,0x2
07da e403 | | Load 0x2,0x3
07db 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07dc 0227 | ' | Execute Access,All_Reference
07dd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07de 00d8 | | Load_Top At_Offset_0
07df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07e0 e402 | | Load 0x2,0x2
07e1 0227 | ' | Execute Access,All_Reference
07e2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
07e3 e402 | | Load 0x2,0x2
07e4 e403 | | Load 0x2,0x3
07e5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07e6 e402 | | Load 0x2,0x2
07e7 00ca | | Action Exit_Nullary_Function
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07f1 | | .CONST 0x07f1 ; Address of begin
07e9 0004 | | .CONST 0x0004 ; Address of exception handler
07ea 0003 | | .CONST 0x0003 ; Number of locals
07eb INIT_07e8:
07eb 8236 | 6 | Call 0x1,0x36
07ec 00d8 | | Load_Top At_Offset_0
07ed 0227 | ' | Execute Access,All_Reference
07ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07ef 0227 | ' | Execute Access,All_Reference
07f0 0007 | | Action Break_Optional
07f1 BODY_07e8:
07f1 e5ff | | Load 0x2,-0x1
07f2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
07f3 e403 | | Load 0x2,0x3
07f4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
07f5 e5ff | | Load 0x2,-0x1
07f6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
07f7 e403 | | Load 0x2,0x3
07f8 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
07f9 e5ff | | Load 0x2,-0x1
07fa 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
07fb e403 | | Load 0x2,0x3
07fc 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
07fd e5ff | | Load 0x2,-0x1
07fe 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
07ff e403 | | Load 0x2,0x3
0800 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0801 e5ff | | Load 0x2,-0x1
0802 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0803 e403 | | Load 0x2,0x3
0804 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0805 e5ff | | Load 0x2,-0x1
0806 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0807 e403 | | Load 0x2,0x3
0808 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0809 e5ff | | Load 0x2,-0x1
080a 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
080b e403 | | Load 0x2,0x3
080c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
080d 4801 |H | Short_Literal 0x1
080e e5ff | | Load 0x2,-0x1
080f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0810 e5ff | | Load 0x2,-0x1
0811 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0812 01cf | | Execute Vector,Slice_Read
0813 4801 |H | Short_Literal 0x1
0814 e5ff | | Load 0x2,-0x1
0815 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0816 e403 | | Load 0x2,0x3
0817 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0818 01ce | | Execute Vector,Slice_Write
0819 4502 |E | Exit_Suprogram New_Top_Offset 0x2
081a 0000 0000 | | .BLANK 0000[0x6]
0820 ; --------------------------------------------------------------------------------------
0820 ; SUBPROGRAM
0820 ; --------------------------------------------------------------------------------------
0820 0827 | ' | .CONST 0x0827 ; Address of begin
0821 0004 | | .CONST 0x0004 ; Address of exception handler
0822 0002 | | .CONST 0x0002 ; Number of locals
0823 INIT_0820:
0823 e5ff | | Load 0x2,-0x1
0824 0227 | ' | Execute Access,All_Reference
0825 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0826 0007 | | Action Break_Optional
0827 BODY_0820:
0827 e22f | / | Load 0x1,0x2f
0828 e5ff | | Load 0x2,-0x1
0829 0227 | ' | Execute Access,All_Reference
082a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
082b e5ff | | Load 0x2,-0x1
082c a22f | / | Store_Unchecked 0x1,0x2f
082d 00d8 | | Load_Top At_Offset_0
082e a5ff | | Store_Unchecked 0x2,-0x1
082f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0835 | 5 | .CONST 0x0835 ; Address of begin
0831 0004 | | .CONST 0x0004 ; Address of exception handler
0832 0002 | | .CONST 0x0002 ; Number of locals
0833 INIT_0830:
0833 e20e | | Load 0x1,0xe
0834 0007 | | Action Break_Optional
0835 BODY_0830:
0835 4800 |H | Short_Literal 0x0
0836 a20f | | Store_Unchecked 0x1,0xf
0837 8213 | | Call 0x1,0x13
0838 e006 | | Load 0x0,0x6
0839 180e | | Execute Package,Field_Execute,Field_Number 0xe
083a 8214 | | Call 0x1,0x14
083b a402 | | Store_Unchecked 0x2,0x2
083c 00cf | | Action Mark_Auxiliary
083d 7804 |x | Jump 0x842
083e e402 | | Load 0x2,0x2
083f 8216 | | Call 0x1,0x16
0840 c402 | | Store 0x2,0x2
0841 00c9 | | Action Pop_Auxiliary_Loop
0842 e402 | | Load 0x2,0x2
0843 77fa |w | Jump_Nonzero 0x83e
0844 00ce | | Action Pop_Auxiliary
0845 e212 | | Load 0x1,0x12
0846 a230 | 0 | Store_Unchecked 0x1,0x30
0847 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0848 ; --------------------------------------------------------------------------------------
0848 ; SUBPROGRAM
0848 ; --------------------------------------------------------------------------------------
0848 084d | M | .CONST 0x084d ; Address of begin
0849 0004 | | .CONST 0x0004 ; Address of exception handler
084a 0002 | | .CONST 0x0002 ; Number of locals
084b INIT_0848:
084b e20e | | Load 0x1,0xe
084c 0007 | | Action Break_Optional
084d BODY_0848:
084d 8213 | | Call 0x1,0x13
084e 4801 |H | Short_Literal 0x1
084f e22c | , | Load 0x1,0x2c
0850 01d5 | | Execute Vector,Field_Reference
0851 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0852 0227 | ' | Execute Access,All_Reference
0853 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0854 0227 | ' | Execute Access,All_Reference
0855 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0856 a212 | | Store_Unchecked 0x1,0x12
0857 e212 | | Load 0x1,0x12
0858 e006 | | Load 0x0,0x6
0859 1817 | | Execute Package,Field_Execute,Field_Number 0x17
085a 8214 | | Call 0x1,0x14
085b a402 | | Store_Unchecked 0x2,0x2
085c 00cf | | Action Mark_Auxiliary
085d 7804 |x | Jump 0x862
085e e402 | | Load 0x2,0x2
085f 8216 | | Call 0x1,0x16
0860 c402 | | Store 0x2,0x2
0861 00c9 | | Action Pop_Auxiliary_Loop
0862 e402 | | Load 0x2,0x2
0863 77fa |w | Jump_Nonzero 0x85e
0864 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0865 0000 0000 | | .XXX[0x3]
0867 0000 | |
0868 ; --------------------------------------------------------------------------------------
0868 ; SUBPROGRAM
0868 ; --------------------------------------------------------------------------------------
0868 086f | o | .CONST 0x086f ; Address of begin
0869 0004 | | .CONST 0x0004 ; Address of exception handler
086a 0004 | | .CONST 0x0004 ; Number of locals
086b INIT_0868:
086b e20e | | Load 0x1,0xe
086c 03bd | | Declare_Variable Access,Duplicate
086d e20e | | Load 0x1,0xe
086e 0007 | | Action Break_Optional
086f BODY_0868:
086f e22d | - | Load 0x1,0x2d
0870 0e01 | | Execute_Immediate Not_Equal,0x1
0871 6801 |h | Jump_Zero 0x873
0872 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0873 e5ff | | Load 0x2,-0x1
0874 7002 |p | Jump_Nonzero 0x877
0875 8239 | 9 | Call 0x1,0x39
0876 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0877 e5ff | | Load 0x2,-0x1
0878 e231 | 1 | Load 0x1,0x31
0879 027a | z | Execute Discrete,Less_Equal
087a 6801 |h | Jump_Zero 0x87c
087b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
087c 4801 |H | Short_Literal 0x1
087d e22c | , | Load 0x1,0x2c
087e 01d5 | | Execute Vector,Field_Reference
087f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0880 a403 | | Store_Unchecked 0x2,0x3
0881 00cf | | Action Mark_Auxiliary
0882 7805 |x | Jump 0x888
0883 e403 | | Load 0x2,0x3
0884 0227 | ' | Execute Access,All_Reference
0885 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0886 a403 | | Store_Unchecked 0x2,0x3
0887 00c9 | | Action Pop_Auxiliary_Loop
0888 e403 | | Load 0x2,0x3
0889 680c |h | Jump_Zero 0x896
088a e403 | | Load 0x2,0x3
088b 0227 | ' | Execute Access,All_Reference
088c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
088d 0227 | ' | Execute Access,All_Reference
088e 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
088f e403 | | Load 0x2,0x3
0890 0227 | ' | Execute Access,All_Reference
0891 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0892 0227 | ' | Execute Access,All_Reference
0893 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0894 0278 | x | Execute Discrete,Or
0895 77ed |w | Jump_Nonzero 0x883
0896 00ce | | Action Pop_Auxiliary
0897 e403 | | Load 0x2,0x3
0898 6837 |h7 | Jump_Zero 0x8d0
0899 e403 | | Load 0x2,0x3
089a 0227 | ' | Execute Access,All_Reference
089b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
089c 0227 | ' | Execute Access,All_Reference
089d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
089e e230 | 0 | Load 0x1,0x30
089f 027d | } | Execute Discrete,Greater
08a0 682f |h/ | Jump_Zero 0x8d0
08a1 4801 |H | Short_Literal 0x1
08a2 e22c | , | Load 0x1,0x2c
08a3 01d5 | | Execute Vector,Field_Reference
08a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08a5 a402 | | Store_Unchecked 0x2,0x2
08a6 e402 | | Load 0x2,0x2
08a7 0227 | ' | Execute Access,All_Reference
08a8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08a9 0227 | ' | Execute Access,All_Reference
08aa e402 | | Load 0x2,0x2
08ab 0227 | ' | Execute Access,All_Reference
08ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08ad 0227 | ' | Execute Access,All_Reference
08ae 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
08af 8235 | 5 | Call 0x1,0x35
08b0 e403 | | Load 0x2,0x3
08b1 0227 | ' | Execute Access,All_Reference
08b2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08b3 0227 | ' | Execute Access,All_Reference
08b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
08b5 0272 | r | Execute Discrete,Minus
08b6 e403 | | Load 0x2,0x3
08b7 0227 | ' | Execute Access,All_Reference
08b8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08b9 0227 | ' | Execute Access,All_Reference
08ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08bb e403 | | Load 0x2,0x3
08bc 0227 | ' | Execute Access,All_Reference
08bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08be 0227 | ' | Execute Access,All_Reference
08bf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
08c0 01d5 | | Execute Vector,Field_Reference
08c1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
08c2 e403 | | Load 0x2,0x3
08c3 4801 |H | Short_Literal 0x1
08c4 e22c | , | Load 0x1,0x2c
08c5 01d5 | | Execute Vector,Field_Reference
08c6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
08c7 e403 | | Load 0x2,0x3
08c8 0227 | ' | Execute Access,All_Reference
08c9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
08ca a404 | | Store_Unchecked 0x2,0x4
08cb e20e | | Load 0x1,0xe
08cc e403 | | Load 0x2,0x3
08cd 0227 | ' | Execute Access,All_Reference
08ce 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
08cf 7806 |x | Jump 0x8d6
08d0 0092 0d44 | D| Action Push_String_Extended,0xd44 ; "Keep text too large"
08d2 e002 | | Load 0x0,0x2
08d3 180e | | Execute Package,Field_Execute,Field_Number 0xe
08d4 e20e | | Load 0x1,0xe
08d5 a404 | | Store_Unchecked 0x2,0x4
08d6 823a | : | Call 0x1,0x3a
08d7 4801 |H | Short_Literal 0x1
08d8 e22c | , | Load 0x1,0x2c
08d9 01d5 | | Execute Vector,Field_Reference
08da 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
08db a402 | | Store_Unchecked 0x2,0x2
08dc 00cf | | Action Mark_Auxiliary
08dd 7813 |x | Jump 0x8f1
08de e402 | | Load 0x2,0x2
08df 0227 | ' | Execute Access,All_Reference
08e0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
08e1 e003 | | Load 0x0,0x3
08e2 1b12 | | Execute Package,Field_Read,Field_Number 0x12
08e3 e004 | | Load 0x0,0x4
08e4 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
08e5 00d8 | | Load_Top At_Offset_0
08e6 e004 | | Load 0x0,0x4
08e7 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
08e8 7003 |p | Jump_Nonzero 0x8ec
08e9 e005 | | Load 0x0,0x5
08ea 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
08eb 0257 | W | Execute Discrete,Raise
08ec 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
08ed e402 | | Load 0x2,0x2
08ee 8238 | 8 | Call 0x1,0x38
08ef c402 | | Store 0x2,0x2
08f0 00c9 | | Action Pop_Auxiliary_Loop
08f1 e402 | | Load 0x2,0x2
08f2 77eb |w | Jump_Nonzero 0x8de
08f3 00ce | | Action Pop_Auxiliary
08f4 e003 | | Load 0x0,0x3
08f5 1b12 | | Execute Package,Field_Read,Field_Number 0x12
08f6 e004 | | Load 0x0,0x4
08f7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
08f8 00d8 | | Load_Top At_Offset_0
08f9 e004 | | Load 0x0,0x4
08fa 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
08fb 7003 |p | Jump_Nonzero 0x8ff
08fc e005 | | Load 0x0,0x5
08fd 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
08fe 0257 | W | Execute Discrete,Raise
08ff 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0900 e20e | | Load 0x1,0xe
0901 4801 |H | Short_Literal 0x1
0902 e22c | , | Load 0x1,0x2c
0903 01d5 | | Execute Vector,Field_Reference
0904 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0905 e20e | | Load 0x1,0xe
0906 4801 |H | Short_Literal 0x1
0907 e22c | , | Load 0x1,0x2c
0908 01d5 | | Execute Vector,Field_Reference
0909 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
090a 4800 |H | Short_Literal 0x0
090b e22e | . | Load 0x1,0x2e
090c 0227 | ' | Execute Access,All_Reference
090d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
090e 4800 |H | Short_Literal 0x0
090f a211 | | Store_Unchecked 0x1,0x11
0910 4800 |H | Short_Literal 0x0
0911 a212 | | Store_Unchecked 0x1,0x12
0912 00d8 | | Load_Top At_Offset_0
0913 682e |h. | Jump_Zero 0x942
0914 8239 | 9 | Call 0x1,0x39
0915 00cf | | Action Mark_Auxiliary
0916 7804 |x | Jump 0x91b
0917 e404 | | Load 0x2,0x4
0918 8238 | 8 | Call 0x1,0x38
0919 c404 | | Store 0x2,0x4
091a 00c9 | | Action Pop_Auxiliary_Loop
091b e404 | | Load 0x2,0x4
091c 6818 |h | Jump_Zero 0x935
091d e404 | | Load 0x2,0x4
091e 0227 | ' | Execute Access,All_Reference
091f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0920 0227 | ' | Execute Access,All_Reference
0921 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0922 7012 |p | Jump_Nonzero 0x935
0923 e404 | | Load 0x2,0x4
0924 0227 | ' | Execute Access,All_Reference
0925 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0926 0227 | ' | Execute Access,All_Reference
0927 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0928 0f02 | | Execute_Immediate Equal,0x2
0929 680b |h | Jump_Zero 0x935
092a 4802 |H | Short_Literal 0x2
092b e404 | | Load 0x2,0x4
092c 0227 | ' | Execute Access,All_Reference
092d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
092e 0227 | ' | Execute Access,All_Reference
092f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0930 01d5 | | Execute Vector,Field_Reference
0931 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0932 494c |IL | Short_Literal 0x14c
0933 027f | | Execute Discrete,Equal
0934 77e2 |w | Jump_Nonzero 0x917
0935 00c9 | | Action Pop_Auxiliary_Loop
0936 7807 |x | Jump 0x93e
0937 e404 | | Load 0x2,0x4
0938 8216 | | Call 0x1,0x16
0939 c404 | | Store 0x2,0x4
093a e210 | | Load 0x1,0x10
093b 0a01 | | Execute_Immediate Plus,0x1
093c c210 | | Store 0x1,0x10
093d 00c9 | | Action Pop_Auxiliary_Loop
093e e404 | | Load 0x2,0x4
093f 77f7 |w | Jump_Nonzero 0x937
0940 00ce | | Action Pop_Auxiliary
0941 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0942 4801 |H | Short_Literal 0x1
0943 a20f | | Store_Unchecked 0x1,0xf
0944 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0945 0000 0000 | | .XXX[0x3]
0947 0000 | |
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 0975 | u | .CONST 0x0975 ; Address of begin
0949 0004 | | .CONST 0x0004 ; Address of exception handler
094a 000f | | .CONST 0x000f ; Number of locals
094b INIT_0948:
094b e22e | . | Load 0x1,0x2e
094c 0227 | ' | Execute Access,All_Reference
094d 0007 | | Action Break_Optional
094e 00d8 | | Load_Top At_Offset_0
094f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0950 0007 | | Action Break_Optional
0951 e402 | | Load 0x2,0x2
0952 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0953 e001 | | Load 0x0,0x1
0954 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0955 03f1 | | Declare_Variable Discrete,With_Value
0956 e229 | ) | Load 0x1,0x29
0957 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
0958 e229 | ) | Load 0x1,0x29
0959 3c19 |< | Execute Record,Field_Read,Field_Number 0x19
095a 0272 | r | Execute Discrete,Minus
095b e001 | | Load 0x0,0x1
095c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
095d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
095e e403 | | Load 0x2,0x3
095f 0007 | | Action Break_Optional
0960 00d8 | | Load_Top At_Offset_0
0961 0aff | | Execute_Immediate Plus,-0x1
0962 00e3 | | Load_Encached Natural_Cache
0963 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0964 00d8 | | Load_Top At_Offset_0
0965 00e3 | | Load_Encached Natural_Cache
0966 03f1 | | Declare_Variable Discrete,With_Value
0967 e001 | | Load 0x0,0x1
0968 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0969 0322 | " | Declare_Variable Record
096a e001 | | Load 0x0,0x1
096b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
096c 00e2 | | Load_Encached Integer_Cache
096d 029f 0c33 | 3| Declare_Subprogram INIT_0c30,For_Call
096f 029f 0c7b | {| Declare_Subprogram INIT_0c78,For_Call
0971 029f 0ca3 | | Declare_Subprogram INIT_0ca0,For_Call
0973 029f 0cbb | | Declare_Subprogram INIT_0cb8,For_Call
0975 BODY_0948:
0975 e407 | | Load 0x2,0x7
0976 a40b | | Store_Unchecked 0x2,0xb
0977 00cf | | Action Mark_Auxiliary
0978 781c |x | Jump 0x995
0979 00cf | | Action Mark_Auxiliary
097a 7805 |x | Jump 0x980
097b 840d | | Call 0x2,0xd
097c e40b | | Load 0x2,0xb
097d 0aff | | Execute_Immediate Plus,-0x1
097e c40b | | Store 0x2,0xb
097f 00c9 | | Action Pop_Auxiliary_Loop
0980 e40b | | Load 0x2,0xb
0981 0c01 | | Execute_Immediate Greater_Equal,0x1
0982 77f8 |w | Jump_Nonzero 0x97b
0983 00ce | | Action Pop_Auxiliary
0984 e40b | | Load 0x2,0xb
0985 0d01 | | Execute_Immediate Less,0x1
0986 7012 |p | Jump_Nonzero 0x999
0987 e40b | | Load 0x2,0xb
0988 c408 | | Store 0x2,0x8
0989 00cf | | Action Mark_Auxiliary
098a 7805 |x | Jump 0x990
098b 840e | | Call 0x2,0xe
098c e40b | | Load 0x2,0xb
098d 0aff | | Execute_Immediate Plus,-0x1
098e c40b | | Store 0x2,0xb
098f 00c9 | | Action Pop_Auxiliary_Loop
0990 e40b | | Load 0x2,0xb
0991 0c01 | | Execute_Immediate Greater_Equal,0x1
0992 77f8 |w | Jump_Nonzero 0x98b
0993 00ce | | Action Pop_Auxiliary
0994 00c9 | | Action Pop_Auxiliary_Loop
0995 e404 | | Load 0x2,0x4
0996 e405 | | Load 0x2,0x5
0997 027d | } | Execute Discrete,Greater
0998 77e0 |w | Jump_Nonzero 0x979
0999 00ce | | Action Pop_Auxiliary
099a e40b | | Load 0x2,0xb
099b 0d01 | | Execute_Immediate Less,0x1
099c 6861 |ha | Jump_Zero 0x9fe
099d e407 | | Load 0x2,0x7
099e 0c03 | | Execute_Immediate Greater_Equal,0x3
099f 6856 |hV | Jump_Zero 0x9f6
09a0 e407 | | Load 0x2,0x7
09a1 0aff | | Execute_Immediate Plus,-0x1
09a2 c408 | | Store 0x2,0x8
09a3 e407 | | Load 0x2,0x7
09a4 e402 | | Load 0x2,0x2
09a5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09a6 01d5 | | Execute Vector,Field_Reference
09a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
09a8 00d8 | | Load_Top At_Offset_0
09a9 494d |IM | Short_Literal 0x14d
09aa 027f | | Execute Discrete,Equal
09ab 700d |p | Jump_Nonzero 0x9b9
09ac 4942 |IB | Short_Literal 0x142
09ad 027f | | Execute Discrete,Equal
09ae 700b |p | Jump_Nonzero 0x9ba
09af e402 | | Load 0x2,0x2
09b0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
09b1 e407 | | Load 0x2,0x7
09b2 e402 | | Load 0x2,0x2
09b3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09b4 01d5 | | Execute Vector,Field_Reference
09b5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
09b6 0272 | r | Execute Discrete,Minus
09b7 c404 | | Store 0x2,0x4
09b8 7804 |x | Jump 0x9bd
09b9 00d1 | | Pop_Control Pop_Count_1
09ba e402 | | Load 0x2,0x2
09bb 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
09bc a404 | | Store_Unchecked 0x2,0x4
09bd 00cf | | Action Mark_Auxiliary
09be 4802 |H | Short_Literal 0x2
09bf e408 | | Load 0x2,0x8
09c0 0264 | d | Execute Discrete,Below_Bound
09c1 7032 |p2 | Jump_Nonzero 0x9f4
09c2 00d8 | | Load_Top At_Offset_0
09c3 e402 | | Load 0x2,0x2
09c4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09c5 01d5 | | Execute Vector,Field_Reference
09c6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
09c7 e234 | 4 | Load 0x1,0x34
09c8 01d7 | | Execute Vector,Field_Read
09c9 6828 |h( | Jump_Zero 0x9f2
09ca 00cf | | Action Mark_Auxiliary
09cb e408 | | Load 0x2,0x8
09cc e412 | | Load 0x2,0x12
09cd 0a01 | | Execute_Immediate Plus,0x1
09ce 00d8 | | Load_Top At_Offset_0
09cf 00e2 | | Load_Encached Integer_Cache
09d0 0260 | ` | Execute Discrete,In_Type
09d1 7001 |p | Jump_Nonzero 0x9d3
09d2 0801 | | Execute_Immediate Raise,0x1
09d3 0263 | c | Execute Discrete,Above_Bound
09d4 7018 |p | Jump_Nonzero 0x9ed
09d5 00d8 | | Load_Top At_Offset_0
09d6 e402 | | Load 0x2,0x2
09d7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09d8 01d5 | | Execute Vector,Field_Reference
09d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
09da 00d8 | | Load_Top At_Offset_0
09db 494d |IM | Short_Literal 0x14d
09dc 027f | | Execute Discrete,Equal
09dd 700c |p | Jump_Nonzero 0x9ea
09de 4942 |IB | Short_Literal 0x142
09df 027f | | Execute Discrete,Equal
09e0 700a |p | Jump_Nonzero 0x9eb
09e1 e404 | | Load 0x2,0x4
09e2 e415 | | Load 0x2,0x15
09e3 e402 | | Load 0x2,0x2
09e4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
09e5 01d5 | | Execute Vector,Field_Reference
09e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
09e7 0272 | r | Execute Discrete,Minus
09e8 c404 | | Store 0x2,0x4
09e9 7801 |x | Jump 0x9eb
09ea 00d1 | | Pop_Control Pop_Count_1
09eb 00c8 | | Action Pop_Auxiliary_Range
09ec 3fe8 |? | Loop_Increasing 0x9d5
09ed 00ce | | Action Pop_Auxiliary
09ee 00d8 | | Load_Top At_Offset_0
09ef a408 | | Store_Unchecked 0x2,0x8
09f0 00d2 | | Pop_Control Pop_Count_2
09f1 7802 |x | Jump 0x9f4
09f2 00c8 | | Action Pop_Auxiliary_Range
09f3 37ce |7 | Loop_Decreasing 0x9c2
09f4 00ce | | Action Pop_Auxiliary
09f5 7805 |x | Jump 0x9fb
09f6 e407 | | Load 0x2,0x7
09f7 a408 | | Store_Unchecked 0x2,0x8
09f8 e402 | | Load 0x2,0x2
09f9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
09fa a404 | | Store_Unchecked 0x2,0x4
09fb e408 | | Load 0x2,0x8
09fc a403 | | Store_Unchecked 0x2,0x3
09fd 7802 |x | Jump 0xa00
09fe e40b | | Load 0x2,0xb
09ff c403 | | Store 0x2,0x3
0a00 4800 |H | Short_Literal 0x0
0a01 e229 | ) | Load 0x1,0x29
0a02 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0a03 4800 |H | Short_Literal 0x0
0a04 e229 | ) | Load 0x1,0x29
0a05 381a |8 | Execute Record,Field_Write,Field_Number 0x1a
0a06 e405 | | Load 0x2,0x5
0a07 e404 | | Load 0x2,0x4
0a08 0272 | r | Execute Discrete,Minus
0a09 c40a | | Store 0x2,0xa
0a0a e229 | ) | Load 0x1,0x29
0a0b 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0a0c 4603 |F | Jump_Case 0x4
0a0d 7826 |x& | Jump 0xa34 ; case 0x0
0a0e 783e |x> | Jump 0xa4d ; case 0x1
0a0f 780b |x | Jump 0xa1b ; case 0x2
0a10 7800 |x | Jump 0xa11 ; case 0x3
0a11 e406 | | Load 0x2,0x6
0a12 e402 | | Load 0x2,0x2
0a13 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a14 01d5 | | Execute Vector,Field_Reference
0a15 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a16 494c |IL | Short_Literal 0x14c
0a17 027f | | Execute Discrete,Equal
0a18 7034 |p4 | Jump_Nonzero 0xa4d
0a19 840c | | Call 0x2,0xc
0a1a 7832 |x2 | Jump 0xa4d
0a1b 4801 |H | Short_Literal 0x1
0a1c e402 | | Load 0x2,0x2
0a1d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a1e 01d5 | | Execute Vector,Field_Reference
0a1f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0a20 e40a | | Load 0x2,0xa
0a21 e003 | | Load 0x0,0x3
0a22 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0a23 e004 | | Load 0x0,0x4
0a24 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0a25 00d8 | | Load_Top At_Offset_0
0a26 e004 | | Load 0x0,0x4
0a27 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0a28 7003 |p | Jump_Nonzero 0xa2c
0a29 e005 | | Load 0x0,0x5
0a2a 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0a2b 0257 | W | Execute Discrete,Raise
0a2c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a2d 0273 | s | Execute Discrete,Plus
0a2e 4801 |H | Short_Literal 0x1
0a2f e402 | | Load 0x2,0x2
0a30 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a31 01d5 | | Execute Vector,Field_Reference
0a32 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0a33 7819 |x | Jump 0xa4d
0a34 4801 |H | Short_Literal 0x1
0a35 e402 | | Load 0x2,0x2
0a36 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a37 01d5 | | Execute Vector,Field_Reference
0a38 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0a39 e40a | | Load 0x2,0xa
0a3a 09ff | | Execute_Immediate Binary_Scale,-0x1
0a3b e003 | | Load 0x0,0x3
0a3c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0a3d e004 | | Load 0x0,0x4
0a3e 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0a3f 00d8 | | Load_Top At_Offset_0
0a40 e004 | | Load 0x0,0x4
0a41 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0a42 7003 |p | Jump_Nonzero 0xa46
0a43 e005 | | Load 0x0,0x5
0a44 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0a45 0257 | W | Execute Discrete,Raise
0a46 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0a47 0273 | s | Execute Discrete,Plus
0a48 4801 |H | Short_Literal 0x1
0a49 e402 | | Load 0x2,0x2
0a4a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a4b 01d5 | | Execute Vector,Field_Reference
0a4c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0a4d e406 | | Load 0x2,0x6
0a4e e402 | | Load 0x2,0x2
0a4f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a50 01d5 | | Execute Vector,Field_Reference
0a51 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0a52 494c |IL | Short_Literal 0x14c
0a53 027f | | Execute Discrete,Equal
0a54 6806 |h | Jump_Zero 0xa5b
0a55 4800 |H | Short_Literal 0x0
0a56 e229 | ) | Load 0x1,0x29
0a57 3819 |8 | Execute Record,Field_Write,Field_Number 0x19
0a58 4800 |H | Short_Literal 0x0
0a59 e229 | ) | Load 0x1,0x29
0a5a 3818 |8 | Execute Record,Field_Write,Field_Number 0x18
0a5b e403 | | Load 0x2,0x3
0a5c 0a01 | | Execute_Immediate Plus,0x1
0a5d c403 | | Store 0x2,0x3
0a5e 4800 |H | Short_Literal 0x0
0a5f a40a | | Store_Unchecked 0x2,0xa
0a60 00cf | | Action Mark_Auxiliary
0a61 e407 | | Load 0x2,0x7
0a62 e403 | | Load 0x2,0x3
0a63 0263 | c | Execute Discrete,Above_Bound
0a64 7003 |p | Jump_Nonzero 0xa68
0a65 840f | | Call 0x2,0xf
0a66 00c8 | | Action Pop_Auxiliary_Range
0a67 3ffd |? | Loop_Increasing 0xa65
0a68 00ce | | Action Pop_Auxiliary
0a69 e402 | | Load 0x2,0x2
0a6a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0a6b e40a | | Load 0x2,0xa
0a6c 0272 | r | Execute Discrete,Minus
0a6d e402 | | Load 0x2,0x2
0a6e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0a6f e403 | | Load 0x2,0x3
0a70 e402 | | Load 0x2,0x2
0a71 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a72 01d5 | | Execute Vector,Field_Reference
0a73 e409 | | Load 0x2,0x9
0a74 017d | } | Execute Record,Structure_Write
0a75 e406 | | Load 0x2,0x6
0a76 e402 | | Load 0x2,0x2
0a77 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a78 01d5 | | Execute Vector,Field_Reference
0a79 e403 | | Load 0x2,0x3
0a7a e402 | | Load 0x2,0x2
0a7b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a7c 01d6 | | Execute Vector,Field_Write
0a7d e402 | | Load 0x2,0x2
0a7e 8237 | 7 | Call 0x1,0x37
0a7f e402 | | Load 0x2,0x2
0a80 00d8 | | Load_Top At_Offset_0
0a81 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0a82 8235 | 5 | Call 0x1,0x35
0a83 e402 | | Load 0x2,0x2
0a84 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0a85 e40a | | Load 0x2,0xa
0a86 e402 | | Load 0x2,0x2
0a87 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0a88 e409 | | Load 0x2,0x9
0a89 e403 | | Load 0x2,0x3
0a8a e402 | | Load 0x2,0x2
0a8b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0a8c 01d6 | | Execute Vector,Field_Write
0a8d e229 | ) | Load 0x1,0x29
0a8e 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0a8f e402 | | Load 0x2,0x2
0a90 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0a91 e229 | ) | Load 0x1,0x29
0a92 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
0a93 e402 | | Load 0x2,0x2
0a94 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0a95 4800 |H | Short_Literal 0x0
0a96 e402 | | Load 0x2,0x2
0a97 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0a98 e402 | | Load 0x2,0x2
0a99 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0a9a 823b | ; | Call 0x1,0x3b
0a9b e408 | | Load 0x2,0x8
0a9c 0a01 | | Execute_Immediate Plus,0x1
0a9d c403 | | Store 0x2,0x3
0a9e 4801 |H | Short_Literal 0x1
0a9f a40b | | Store_Unchecked 0x2,0xb
0aa0 e001 | | Load 0x0,0x1
0aa1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0aa2 0322 | " | Declare_Variable Record
0aa3 4949 |II | Short_Literal 0x149
0aa4 e410 | | Load 0x2,0x10
0aa5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0aa6 e229 | ) | Load 0x1,0x29
0aa7 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0aa8 e410 | | Load 0x2,0x10
0aa9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0aaa e229 | ) | Load 0x1,0x29
0aab 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
0aac e229 | ) | Load 0x1,0x29
0aad 3c18 |< | Execute Record,Field_Read,Field_Number 0x18
0aae 0273 | s | Execute Discrete,Plus
0aaf e001 | | Load 0x0,0x1
0ab0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0ab1 00d9 | | Load_Top At_Offset_1
0ab2 00d0 | | Action Swap_Control
0ab3 0260 | ` | Execute Discrete,In_Type
0ab4 7001 |p | Jump_Nonzero 0xab6
0ab5 0801 | | Execute_Immediate Raise,0x1
0ab6 e003 | | Load 0x0,0x3
0ab7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0ab8 e004 | | Load 0x0,0x4
0ab9 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0aba 00d8 | | Load_Top At_Offset_0
0abb e004 | | Load 0x0,0x4
0abc 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0abd 7003 |p | Jump_Nonzero 0xac1
0abe e005 | | Load 0x0,0x5
0abf 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0ac0 0257 | W | Execute Discrete,Raise
0ac1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0ac2 e410 | | Load 0x2,0x10
0ac3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0ac4 e229 | ) | Load 0x1,0x29
0ac5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0ac6 e410 | | Load 0x2,0x10
0ac7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0ac8 4800 |H | Short_Literal 0x0
0ac9 e410 | | Load 0x2,0x10
0aca 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0acb 4800 |H | Short_Literal 0x0
0acc e410 | | Load 0x2,0x10
0acd 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0ace 4800 |H | Short_Literal 0x0
0acf e410 | | Load 0x2,0x10
0ad0 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0ad1 4800 |H | Short_Literal 0x0
0ad2 e410 | | Load 0x2,0x10
0ad3 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0ad4 4801 |H | Short_Literal 0x1
0ad5 e402 | | Load 0x2,0x2
0ad6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0ad7 01d6 | | Execute Vector,Field_Write
0ad8 4801 |H | Short_Literal 0x1
0ad9 e402 | | Load 0x2,0x2
0ada 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0adb 01d5 | | Execute Vector,Field_Reference
0adc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0add e402 | | Load 0x2,0x2
0ade 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0adf 00cf | | Action Mark_Auxiliary
0ae0 e407 | | Load 0x2,0x7
0ae1 e403 | | Load 0x2,0x3
0ae2 0263 | c | Execute Discrete,Above_Bound
0ae3 7017 |p | Jump_Nonzero 0xafb
0ae4 e40b | | Load 0x2,0xb
0ae5 0a01 | | Execute_Immediate Plus,0x1
0ae6 c40b | | Store 0x2,0xb
0ae7 e402 | | Load 0x2,0x2
0ae8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0ae9 e412 | | Load 0x2,0x12
0aea e402 | | Load 0x2,0x2
0aeb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0aec 01d5 | | Execute Vector,Field_Reference
0aed 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0aee 0273 | s | Execute Discrete,Plus
0aef e402 | | Load 0x2,0x2
0af0 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0af1 00d8 | | Load_Top At_Offset_0
0af2 e402 | | Load 0x2,0x2
0af3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0af4 01d5 | | Execute Vector,Field_Reference
0af5 e40b | | Load 0x2,0xb
0af6 e402 | | Load 0x2,0x2
0af7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0af8 01d6 | | Execute Vector,Field_Write
0af9 00c8 | | Action Pop_Auxiliary_Range
0afa 3fe9 |? | Loop_Increasing 0xae4
0afb 00ce | | Action Pop_Auxiliary
0afc e40b | | Load 0x2,0xb
0afd 0f01 | | Execute_Immediate Equal,0x1
0afe 6806 |h | Jump_Zero 0xb05
0aff 4800 |H | Short_Literal 0x0
0b00 a403 | | Store_Unchecked 0x2,0x3
0b01 4800 |H | Short_Literal 0x0
0b02 e402 | | Load 0x2,0x2
0b03 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0b04 7809 |x | Jump 0xb0e
0b05 e40b | | Load 0x2,0xb
0b06 c403 | | Store 0x2,0x3
0b07 e20f | | Load 0x1,0xf
0b08 6802 |h | Jump_Zero 0xb0b
0b09 4800 |H | Short_Literal 0x0
0b0a 823b | ; | Call 0x1,0x3b
0b0b e210 | | Load 0x1,0x10
0b0c 0a01 | | Execute_Immediate Plus,0x1
0b0d c210 | | Store 0x1,0x10
0b0e e402 | | Load 0x2,0x2
0b0f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0b10 a211 | | Store_Unchecked 0x1,0x11
0b11 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b12 0000 0000 | | .BLANK 0000[0x6]
0b18 ; --------------------------------------------------------------------------------------
0b18 ; SUBPROGRAM
0b18 ; --------------------------------------------------------------------------------------
0b18 0b1e | | .CONST 0x0b1e ; Address of begin
0b19 0004 | | .CONST 0x0004 ; Address of exception handler
0b1a 0002 | | .CONST 0x0002 ; Number of locals
0b1b INIT_0b18:
0b1b e22e | . | Load 0x1,0x2e
0b1c 0227 | ' | Execute Access,All_Reference
0b1d 0007 | | Action Break_Optional
0b1e BODY_0b18:
0b1e e229 | ) | Load 0x1,0x29
0b1f 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
0b20 e229 | ) | Load 0x1,0x29
0b21 3c18 |< | Execute Record,Field_Read,Field_Number 0x18
0b22 0273 | s | Execute Discrete,Plus
0b23 e229 | ) | Load 0x1,0x29
0b24 3c1a |< | Execute Record,Field_Read,Field_Number 0x1a
0b25 0273 | s | Execute Discrete,Plus
0b26 e402 | | Load 0x2,0x2
0b27 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0b28 00d8 | | Load_Top At_Offset_0
0b29 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0b2a 0d00 | | Execute_Immediate Less,0x0
0b2b 6803 |h | Jump_Zero 0xb2f
0b2c 4800 |H | Short_Literal 0x0
0b2d e402 | | Load 0x2,0x2
0b2e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0b2f 00d8 | | Load_Top At_Offset_0
0b30 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0b31 e003 | | Load 0x0,0x3
0b32 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0b33 e004 | | Load 0x0,0x4
0b34 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0b35 00d8 | | Load_Top At_Offset_0
0b36 e004 | | Load 0x0,0x4
0b37 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0b38 7003 |p | Jump_Nonzero 0xb3c
0b39 e005 | | Load 0x0,0x5
0b3a 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0b3b 0257 | W | Execute Discrete,Raise
0b3c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0b3d e402 | | Load 0x2,0x2
0b3e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0b3f e001 | | Load 0x0,0x1
0b40 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0b41 0322 | " | Declare_Variable Record
0b42 4949 |II | Short_Literal 0x149
0b43 e403 | | Load 0x2,0x3
0b44 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0b45 e229 | ) | Load 0x1,0x29
0b46 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0b47 e403 | | Load 0x2,0x3
0b48 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0b49 e402 | | Load 0x2,0x2
0b4a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0b4b e403 | | Load 0x2,0x3
0b4c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0b4d e229 | ) | Load 0x1,0x29
0b4e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b4f e403 | | Load 0x2,0x3
0b50 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0b51 4800 |H | Short_Literal 0x0
0b52 e403 | | Load 0x2,0x3
0b53 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0b54 4800 |H | Short_Literal 0x0
0b55 e403 | | Load 0x2,0x3
0b56 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0b57 4800 |H | Short_Literal 0x0
0b58 e403 | | Load 0x2,0x3
0b59 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0b5a 4800 |H | Short_Literal 0x0
0b5b e403 | | Load 0x2,0x3
0b5c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0b5d 4801 |H | Short_Literal 0x1
0b5e e402 | | Load 0x2,0x2
0b5f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0b60 01d6 | | Execute Vector,Field_Write
0b61 4801 |H | Short_Literal 0x1
0b62 e402 | | Load 0x2,0x2
0b63 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0b64 e229 | ) | Load 0x1,0x29
0b65 3c0c |< | Execute Record,Field_Read,Field_Number 0xc
0b66 e402 | | Load 0x2,0x2
0b67 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0b68 e229 | ) | Load 0x1,0x29
0b69 3c0b |< | Execute Record,Field_Read,Field_Number 0xb
0b6a e402 | | Load 0x2,0x2
0b6b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0b6c 4800 |H | Short_Literal 0x0
0b6d e402 | | Load 0x2,0x2
0b6e 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0b6f 4800 |H | Short_Literal 0x0
0b70 e229 | ) | Load 0x1,0x29
0b71 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0b72 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0b73 0000 0000 | | .BLANK 0000[0x5]
0b78 ; --------------------------------------------------------------------------------------
0b78 ; SUBPROGRAM
0b78 ; --------------------------------------------------------------------------------------
0b78 0b7e | ~ | .CONST 0x0b7e ; Address of begin
0b79 0004 | | .CONST 0x0004 ; Address of exception handler
0b7a 0002 | | .CONST 0x0002 ; Number of locals
0b7b INIT_0b78:
0b7b e22e | . | Load 0x1,0x2e
0b7c 0227 | ' | Execute Access,All_Reference
0b7d 0007 | | Action Break_Optional
0b7e BODY_0b78:
0b7e 00d8 | | Load_Top At_Offset_0
0b7f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0b80 0a01 | | Execute_Immediate Plus,0x1
0b81 e402 | | Load 0x2,0x2
0b82 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0b83 e001 | | Load 0x0,0x1
0b84 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0b85 0322 | " | Declare_Variable Record
0b86 494c |IL | Short_Literal 0x14c
0b87 e403 | | Load 0x2,0x3
0b88 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0b89 e229 | ) | Load 0x1,0x29
0b8a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0b8b e403 | | Load 0x2,0x3
0b8c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0b8d e229 | ) | Load 0x1,0x29
0b8e 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0b8f e003 | | Load 0x0,0x3
0b90 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0b91 e004 | | Load 0x0,0x4
0b92 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0b93 00d8 | | Load_Top At_Offset_0
0b94 e004 | | Load 0x0,0x4
0b95 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0b96 7003 |p | Jump_Nonzero 0xb9a
0b97 e005 | | Load 0x0,0x5
0b98 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0b99 0257 | W | Execute Discrete,Raise
0b9a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0b9b e403 | | Load 0x2,0x3
0b9c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0b9d e229 | ) | Load 0x1,0x29
0b9e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0b9f e403 | | Load 0x2,0x3
0ba0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0ba1 e229 | ) | Load 0x1,0x29
0ba2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0ba3 e403 | | Load 0x2,0x3
0ba4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0ba5 e229 | ) | Load 0x1,0x29
0ba6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0ba7 e403 | | Load 0x2,0x3
0ba8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0ba9 e229 | ) | Load 0x1,0x29
0baa 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0bab e403 | | Load 0x2,0x3
0bac 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0bad e229 | ) | Load 0x1,0x29
0bae 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0baf e403 | | Load 0x2,0x3
0bb0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0bb1 e402 | | Load 0x2,0x2
0bb2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bb3 e402 | | Load 0x2,0x2
0bb4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0bb5 01d6 | | Execute Vector,Field_Write
0bb6 00d8 | | Load_Top At_Offset_0
0bb7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0bb8 e402 | | Load 0x2,0x2
0bb9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bba e402 | | Load 0x2,0x2
0bbb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0bbc 01d5 | | Execute Vector,Field_Reference
0bbd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0bbe 0273 | s | Execute Discrete,Plus
0bbf e402 | | Load 0x2,0x2
0bc0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0bc1 823c | < | Call 0x1,0x3c
0bc2 e229 | ) | Load 0x1,0x29
0bc3 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0bc4 7003 |p | Jump_Nonzero 0xbc8
0bc5 4800 |H | Short_Literal 0x0
0bc6 e229 | ) | Load 0x1,0x29
0bc7 380b |8 | Execute Record,Field_Write,Field_Number 0xb
0bc8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0bc9 0000 0000 | | .BLANK 0000[0x7]
0bd0 ; --------------------------------------------------------------------------------------
0bd0 ; SUBPROGRAM
0bd0 ; --------------------------------------------------------------------------------------
0bd0 0bd6 | | .CONST 0x0bd6 ; Address of begin
0bd1 0004 | | .CONST 0x0004 ; Address of exception handler
0bd2 0002 | | .CONST 0x0002 ; Number of locals
0bd3 INIT_0bd0:
0bd3 e22e | . | Load 0x1,0x2e
0bd4 0227 | ' | Execute Access,All_Reference
0bd5 0007 | | Action Break_Optional
0bd6 BODY_0bd0:
0bd6 e20f | | Load 0x1,0xf
0bd7 6802 |h | Jump_Zero 0xbda
0bd8 4800 |H | Short_Literal 0x0
0bd9 823b | ; | Call 0x1,0x3b
0bda 00d8 | | Load_Top At_Offset_0
0bdb 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0bdc 6809 |h | Jump_Zero 0xbe6
0bdd 00d8 | | Load_Top At_Offset_0
0bde 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0bdf 0a01 | | Execute_Immediate Plus,0x1
0be0 00d8 | | Load_Top At_Offset_0
0be1 00e4 | | Load_Encached Positive_Cache
0be2 0260 | ` | Execute Discrete,In_Type
0be3 7001 |p | Jump_Nonzero 0xbe5
0be4 0801 | | Execute_Immediate Raise,0x1
0be5 00ca | | Action Exit_Nullary_Function
0be6 493e |I> | Short_Literal 0x13e
0be7 821b | | Call 0x1,0x1b
0be8 823d | = | Call 0x1,0x3d
0be9 4801 |H | Short_Literal 0x1
0bea e402 | | Load 0x2,0x2
0beb 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0bec 4802 |H | Short_Literal 0x2
0bed 00ca | | Action Exit_Nullary_Function
0bee 0000 0000 | | .XXX[0x2]
0bf0 ; --------------------------------------------------------------------------------------
0bf0 ; SUBPROGRAM
0bf0 ; --------------------------------------------------------------------------------------
0bf0 0bf6 | | .CONST 0x0bf6 ; Address of begin
0bf1 0004 | | .CONST 0x0004 ; Address of exception handler
0bf2 0002 | | .CONST 0x0002 ; Number of locals
0bf3 INIT_0bf0:
0bf3 e22e | . | Load 0x1,0x2e
0bf4 0227 | ' | Execute Access,All_Reference
0bf5 0007 | | Action Break_Optional
0bf6 BODY_0bf0:
0bf6 4800 |H | Short_Literal 0x0
0bf7 e602 | | Load 0x3,0x2
0bf8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0bf9 4800 |H | Short_Literal 0x0
0bfa e602 | | Load 0x3,0x2
0bfb 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0bfc 4800 |H | Short_Literal 0x0
0bfd e602 | | Load 0x3,0x2
0bfe 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0bff 4800 |H | Short_Literal 0x0
0c00 e602 | | Load 0x3,0x2
0c01 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0c02 4800 |H | Short_Literal 0x0
0c03 e602 | | Load 0x3,0x2
0c04 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0c05 4800 |H | Short_Literal 0x0
0c06 e602 | | Load 0x3,0x2
0c07 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0c08 4800 |H | Short_Literal 0x0
0c09 e602 | | Load 0x3,0x2
0c0a 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0c0b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c0c 0000 0000 | | .BLANK 0000[0x4]
0c10 ; --------------------------------------------------------------------------------------
0c10 ; SUBPROGRAM
0c10 ; --------------------------------------------------------------------------------------
0c10 0c16 | | .CONST 0x0c16 ; Address of begin
0c11 0004 | | .CONST 0x0004 ; Address of exception handler
0c12 0002 | | .CONST 0x0002 ; Number of locals
0c13 INIT_0c10:
0c13 e22e | . | Load 0x1,0x2e
0c14 0227 | ' | Execute Access,All_Reference
0c15 0007 | | Action Break_Optional
0c16 BODY_0c10:
0c16 4800 |H | Short_Literal 0x0
0c17 e602 | | Load 0x3,0x2
0c18 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0c19 4800 |H | Short_Literal 0x0
0c1a e602 | | Load 0x3,0x2
0c1b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0c1c 4800 |H | Short_Literal 0x0
0c1d e602 | | Load 0x3,0x2
0c1e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0c1f 4800 |H | Short_Literal 0x0
0c20 e602 | | Load 0x3,0x2
0c21 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0c22 4800 |H | Short_Literal 0x0
0c23 e602 | | Load 0x3,0x2
0c24 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0c25 4800 |H | Short_Literal 0x0
0c26 e602 | | Load 0x3,0x2
0c27 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0c28 4800 |H | Short_Literal 0x0
0c29 e602 | | Load 0x3,0x2
0c2a 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0c2b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c2c 0000 0000 | | .BLANK 0000[0x4]
0c30 ; --------------------------------------------------------------------------------------
0c30 ; SUBPROGRAM
0c30 ; --------------------------------------------------------------------------------------
0c30 0c41 | A | .CONST 0x0c41 ; Address of begin
0c31 0004 | | .CONST 0x0004 ; Address of exception handler
0c32 0009 | | .CONST 0x0009 ; Number of locals
0c33 INIT_0c30:
0c33 00e3 | | Load_Encached Natural_Cache
0c34 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0c35 e001 | | Load 0x0,0x1
0c36 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0c37 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0c38 00e3 | | Load_Encached Natural_Cache
0c39 03e9 | | Declare_Variable Discrete,Duplicate
0c3a 00e2 | | Load_Encached Integer_Cache
0c3b 00e1 | | Load_Encached Boolean_Cache
0c3c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0c3d 029f 0cd3 | | Declare_Subprogram INIT_0cd0,For_Call
0c3f 029f 0d03 | | Declare_Subprogram INIT_0d00,For_Call
0c41 BODY_0c30:
0c41 00cf | | Action Mark_Auxiliary
0c42 e403 | | Load 0x2,0x3
0c43 0aff | | Execute_Immediate Plus,-0x1
0c44 4801 |H | Short_Literal 0x1
0c45 0263 | c | Execute Discrete,Above_Bound
0c46 7003 |p | Jump_Nonzero 0xc4a
0c47 8608 | | Call 0x3,0x8
0c48 00c8 | | Action Pop_Auxiliary_Range
0c49 3ffd |? | Loop_Increasing 0xc47
0c4a 00ce | | Action Pop_Auxiliary
0c4b e603 | | Load 0x3,0x3
0c4c 7001 |p | Jump_Nonzero 0xc4e
0c4d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c4e e232 | 2 | Load 0x1,0x32
0c4f 6807 |h | Jump_Zero 0xc57
0c50 e602 | | Load 0x3,0x2
0c51 a604 | | Store_Unchecked 0x3,0x4
0c52 e403 | | Load 0x2,0x3
0c53 a605 | | Store_Unchecked 0x3,0x5
0c54 4801 |H | Short_Literal 0x1
0c55 a606 | | Store_Unchecked 0x3,0x6
0c56 7808 |x | Jump 0xc5f
0c57 e403 | | Load 0x2,0x3
0c58 0aff | | Execute_Immediate Plus,-0x1
0c59 c604 | | Store 0x3,0x4
0c5a e602 | | Load 0x3,0x2
0c5b 0aff | | Execute_Immediate Plus,-0x1
0c5c c605 | | Store 0x3,0x5
0c5d 4fff |O | Short_Literal -0x1
0c5e a606 | | Store_Unchecked 0x3,0x6
0c5f e232 | 2 | Load 0x1,0x32
0c60 0f00 | | Execute_Immediate Equal,0x0
0c61 a232 | 2 | Store_Unchecked 0x1,0x32
0c62 e604 | | Load 0x3,0x4
0c63 a40b | | Store_Unchecked 0x2,0xb
0c64 4800 |H | Short_Literal 0x0
0c65 a607 | | Store_Unchecked 0x3,0x7
0c66 00cf | | Action Mark_Auxiliary
0c67 7806 |x | Jump 0xc6e
0c68 8609 | | Call 0x3,0x9
0c69 e40b | | Load 0x2,0xb
0c6a e606 | | Load 0x3,0x6
0c6b 0273 | s | Execute Discrete,Plus
0c6c c40b | | Store 0x2,0xb
0c6d 00c9 | | Action Pop_Auxiliary_Loop
0c6e e603 | | Load 0x3,0x3
0c6f 0c01 | | Execute_Immediate Greater_Equal,0x1
0c70 e40b | | Load 0x2,0xb
0c71 e605 | | Load 0x3,0x5
0c72 027e | ~ | Execute Discrete,Not_Equal
0c73 0279 | y | Execute Discrete,And
0c74 77f3 |w | Jump_Nonzero 0xc68
0c75 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c76 0000 0000 | | .XXX[0x2]
0c78 ; --------------------------------------------------------------------------------------
0c78 ; SUBPROGRAM
0c78 ; --------------------------------------------------------------------------------------
0c78 0c80 | | .CONST 0x0c80 ; Address of begin
0c79 0004 | | .CONST 0x0004 ; Address of exception handler
0c7a 0002 | | .CONST 0x0002 ; Number of locals
0c7b INIT_0c78:
0c7b e40b | | Load 0x2,0xb
0c7c e402 | | Load 0x2,0x2
0c7d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0c7e 01d5 | | Execute Vector,Field_Reference
0c7f 0007 | | Action Break_Optional
0c80 BODY_0c78:
0c80 00d8 | | Load_Top At_Offset_0
0c81 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0c82 00d8 | | Load_Top At_Offset_0
0c83 4942 |IB | Short_Literal 0x142
0c84 027c | | | Execute Discrete,Less
0c85 700a |p | Jump_Nonzero 0xc90
0c86 00d8 | | Load_Top At_Offset_0
0c87 4942 |IB | Short_Literal 0x142
0c88 027d | } | Execute Discrete,Greater
0c89 7002 |p | Jump_Nonzero 0xc8c
0c8a 00d1 | | Pop_Control Pop_Count_1
0c8b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c8c 494d |IM | Short_Literal 0x14d
0c8d 027f | | Execute Discrete,Equal
0c8e 700b |p | Jump_Nonzero 0xc9a
0c8f 7805 |x | Jump 0xc95
0c90 0f20 | | Execute_Immediate Equal,0x20
0c91 7001 |p | Jump_Nonzero 0xc93
0c92 7802 |x | Jump 0xc95
0c93 00cc | | Action Pop_Block
0c94 7cee || | Jump 0x983
0c95 e404 | | Load 0x2,0x4
0c96 e602 | | Load 0x3,0x2
0c97 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0c98 0272 | r | Execute Discrete,Minus
0c99 c404 | | Store 0x2,0x4
0c9a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0c9b 0000 0000 | | .BLANK 0000[0x5]
0ca0 ; --------------------------------------------------------------------------------------
0ca0 ; SUBPROGRAM
0ca0 ; --------------------------------------------------------------------------------------
0ca0 0ca8 | | .CONST 0x0ca8 ; Address of begin
0ca1 0004 | | .CONST 0x0004 ; Address of exception handler
0ca2 0002 | | .CONST 0x0002 ; Number of locals
0ca3 INIT_0ca0:
0ca3 e40b | | Load 0x2,0xb
0ca4 e402 | | Load 0x2,0x2
0ca5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0ca6 01d5 | | Execute Vector,Field_Reference
0ca7 0007 | | Action Break_Optional
0ca8 BODY_0ca0:
0ca8 00d8 | | Load_Top At_Offset_0
0ca9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0caa 0f20 | | Execute_Immediate Equal,0x20
0cab 7002 |p | Jump_Nonzero 0xcae
0cac 00cc | | Action Pop_Block
0cad 7ce5 || | Jump 0x993
0cae e404 | | Load 0x2,0x4
0caf e602 | | Load 0x3,0x2
0cb0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0cb1 0272 | r | Execute Discrete,Minus
0cb2 c404 | | Store 0x2,0x4
0cb3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0cb4 0000 0000 | | .BLANK 0000[0x4]
0cb8 ; --------------------------------------------------------------------------------------
0cb8 ; SUBPROGRAM
0cb8 ; --------------------------------------------------------------------------------------
0cb8 0cc0 | | .CONST 0x0cc0 ; Address of begin
0cb9 0004 | | .CONST 0x0004 ; Address of exception handler
0cba 0002 | | .CONST 0x0002 ; Number of locals
0cbb INIT_0cb8:
0cbb e412 | | Load 0x2,0x12
0cbc e402 | | Load 0x2,0x2
0cbd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0cbe 01d5 | | Execute Vector,Field_Reference
0cbf 0007 | | Action Break_Optional
0cc0 BODY_0cb8:
0cc0 00d8 | | Load_Top At_Offset_0
0cc1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0cc2 494d |IM | Short_Literal 0x14d
0cc3 027f | | Execute Discrete,Equal
0cc4 6805 |h | Jump_Zero 0xcca
0cc5 e40a | | Load 0x2,0xa
0cc6 e602 | | Load 0x3,0x2
0cc7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0cc8 0273 | s | Execute Discrete,Plus
0cc9 c40a | | Store 0x2,0xa
0cca 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ccb 0000 0000 | | .BLANK 0000[0x5]
0cd0 ; --------------------------------------------------------------------------------------
0cd0 ; SUBPROGRAM
0cd0 ; --------------------------------------------------------------------------------------
0cd0 0cd8 | | .CONST 0x0cd8 ; Address of begin
0cd1 0004 | | .CONST 0x0004 ; Address of exception handler
0cd2 0002 | | .CONST 0x0002 ; Number of locals
0cd3 INIT_0cd0:
0cd3 e60c | | Load 0x3,0xc
0cd4 e402 | | Load 0x2,0x2
0cd5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0cd6 01d5 | | Execute Vector,Field_Reference
0cd7 0007 | | Action Break_Optional
0cd8 BODY_0cd0:
0cd8 e607 | | Load 0x3,0x7
0cd9 0f00 | | Execute_Immediate Equal,0x0
0cda e802 | | Load 0x4,0x2
0cdb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0cdc 0f20 | | Execute_Immediate Equal,0x20
0cdd 0279 | y | Execute Discrete,And
0cde 680a |h | Jump_Zero 0xce9
0cdf e603 | | Load 0x3,0x3
0ce0 7002 |p | Jump_Nonzero 0xce3
0ce1 e60c | | Load 0x3,0xc
0ce2 a602 | | Store_Unchecked 0x3,0x2
0ce3 e603 | | Load 0x3,0x3
0ce4 0a01 | | Execute_Immediate Plus,0x1
0ce5 c603 | | Store 0x3,0x3
0ce6 4801 |H | Short_Literal 0x1
0ce7 a607 | | Store_Unchecked 0x3,0x7
0ce8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0ce9 00d8 | | Load_Top At_Offset_0
0cea 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0ceb 4944 |ID | Short_Literal 0x144
0cec 027b | { | Execute Discrete,Greater_Equal
0ced 680a |h | Jump_Zero 0xcf8
0cee 00d8 | | Load_Top At_Offset_0
0cef 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0cf0 494d |IM | Short_Literal 0x14d
0cf1 027f | | Execute Discrete,Equal
0cf2 7005 |p | Jump_Nonzero 0xcf8
0cf3 4800 |H | Short_Literal 0x0
0cf4 a603 | | Store_Unchecked 0x3,0x3
0cf5 4800 |H | Short_Literal 0x0
0cf6 a607 | | Store_Unchecked 0x3,0x7
0cf7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0cf8 4800 |H | Short_Literal 0x0
0cf9 a607 | | Store_Unchecked 0x3,0x7
0cfa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0cfb 0000 0000 | | .BLANK 0000[0x5]
0d00 ; --------------------------------------------------------------------------------------
0d00 ; SUBPROGRAM
0d00 ; --------------------------------------------------------------------------------------
0d00 0d08 | | .CONST 0x0d08 ; Address of begin
0d01 0004 | | .CONST 0x0004 ; Address of exception handler
0d02 0002 | | .CONST 0x0002 ; Number of locals
0d03 INIT_0d00:
0d03 e40b | | Load 0x2,0xb
0d04 e402 | | Load 0x2,0x2
0d05 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0d06 01d5 | | Execute Vector,Field_Reference
0d07 0007 | | Action Break_Optional
0d08 BODY_0d00:
0d08 e607 | | Load 0x3,0x7
0d09 0f00 | | Execute_Immediate Equal,0x0
0d0a e802 | | Load 0x4,0x2
0d0b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0d0c 0f20 | | Execute_Immediate Equal,0x20
0d0d 0279 | y | Execute Discrete,And
0d0e 682c |h, | Jump_Zero 0xd3b
0d0f 00d8 | | Load_Top At_Offset_0
0d10 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0d11 e40a | | Load 0x2,0xa
0d12 e603 | | Load 0x3,0x3
0d13 0270 | p | Execute Discrete,Divide
0d14 e003 | | Load 0x0,0x3
0d15 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0d16 e004 | | Load 0x0,0x4
0d17 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0d18 00d8 | | Load_Top At_Offset_0
0d19 e004 | | Load 0x0,0x4
0d1a 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0d1b 7003 |p | Jump_Nonzero 0xd1f
0d1c e005 | | Load 0x0,0x5
0d1d 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0d1e 0257 | W | Execute Discrete,Raise
0d1f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0d20 0273 | s | Execute Discrete,Plus
0d21 e802 | | Load 0x4,0x2
0d22 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0d23 e40a | | Load 0x2,0xa
0d24 00d8 | | Load_Top At_Offset_0
0d25 e603 | | Load 0x3,0x3
0d26 0270 | p | Execute Discrete,Divide
0d27 e003 | | Load 0x0,0x3
0d28 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0d29 e004 | | Load 0x0,0x4
0d2a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0d2b 00d8 | | Load_Top At_Offset_0
0d2c e004 | | Load 0x0,0x4
0d2d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0d2e 7003 |p | Jump_Nonzero 0xd32
0d2f e005 | | Load 0x0,0x5
0d30 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0d31 0257 | W | Execute Discrete,Raise
0d32 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0d33 0272 | r | Execute Discrete,Minus
0d34 c40a | | Store 0x2,0xa
0d35 e603 | | Load 0x3,0x3
0d36 0aff | | Execute_Immediate Plus,-0x1
0d37 c603 | | Store 0x3,0x3
0d38 4801 |H | Short_Literal 0x1
0d39 a607 | | Store_Unchecked 0x3,0x7
0d3a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d3b 4800 |H | Short_Literal 0x0
0d3c a607 | | Store_Unchecked 0x3,0x7
0d3d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0d3e ; --------------------------------------------------------------------------------------
0d3e ; STRING TABLE
0d3e ; --------------------------------------------------------------------------------------
0d3e 0010 | | .STRTAB 0x0010->0x0d46 ; "Output stack overflow"
0d3f 0023 | # | .STRTAB 0x0023->0x0d50 ; "Output stack underflow"
0d40 0037 | 7 | .STRTAB 0x0037->0x0d5b ; "Exceeded maximum of 250 characters per output line"
0d41 0067 | g | .STRTAB 0x0067->0x0d74 ; "Bad absolute position"
0d42 007a | z | .STRTAB 0x007a->0x0d7f ; "Bad relative position"
0d43 008d | | .STRTAB 0x008d->0x0d89 ; "Compute_Position called with empty line"
0d44 00b2 | | .STRTAB 0x00b2->0x0d9d ; "Keep text too large"
0d45 00c3 | | .STREND 0x00c3->0x0da6
0d46 4f75 7470 |Outp| .STRTAB_STRINGS
0da7 0000 | | .XXX[0x1]
0da8 ; --------------------------------------------------------------------------------------
0da8 ; Debug Table
0da8 ; --------------------------------------------------------------------------------------
0da8 0004 000f | | .DEBUG4 0x0004,0x000f,0x4312,0x0000,0x0001,0x0000
0dae 8000 0000 | | .XXX[0xe]
0db0 8000 0020 | |
0db2 0000 0110 | |
0db4 0000 0000 | |
0db6 8000 0005 | |
0db8 2000 0101 | |
0dba 54ce 8000 |T |
0dbc 0000 0000 | | .BLANK 0000[0x44]