|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_160bcc0
└─⟦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 06d8 | | .CONST 0x06d8 ; 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 0004 | | .CONST 0x0004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0081 | | .CONST 0x0081 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0091 | | .CONST 0x0091 ; Number of locals
000b INIT_0008:
000b 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 4801 |H | Short_Literal 0x1
000f 481e |H | Short_Literal 0x1e
0010 00e3 | | Load_Encached Natural_Cache
0011 02a0 | | Declare_Subprogram Null_Subprogram
0012 4801 |H | Short_Literal 0x1
0013 035d | ] | Declare_Type Array,Defined
0014 00d8 | | Load_Top At_Offset_0
0015 00e3 | | Load_Encached Natural_Cache
0016 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
0018 4802 |H | Short_Literal 0x2
0019 032d | - | Declare_Type Record,Defined
001a 00d8 | | Load_Top At_Offset_0
001b 0322 | " | Declare_Variable Record
001c 00d8 | | Load_Top At_Offset_0
001d 1c00 | | Execute_Immediate Run_Utility,0x0
001e e001 | | Load 0x0,0x1
001f 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0020 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0021 02ff | | Declare_Variable Variant_Record
0022 00d8 | | Load_Top At_Offset_0
0023 1c00 | | Execute_Immediate Run_Utility,0x0
0024 e001 | | Load 0x0,0x1
0025 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0026 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0027 02ff | | Declare_Variable Variant_Record
0028 00d8 | | Load_Top At_Offset_0
0029 1c00 | | Execute_Immediate Run_Utility,0x0
002a 00e3 | | Load_Encached Natural_Cache
002b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002c e001 | | Load 0x0,0x1
002d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
002e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002f 02ff | | Declare_Variable Variant_Record
0030 00d8 | | Load_Top At_Offset_0
0031 1c00 | | Execute_Immediate Run_Utility,0x0
0032 e001 | | Load 0x0,0x1
0033 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0034 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0035 02ff | | Declare_Variable Variant_Record
0036 00d8 | | Load_Top At_Offset_0
0037 1c00 | | Execute_Immediate Run_Utility,0x0
0038 e001 | | Load 0x0,0x1
0039 1b20 | | Execute Package,Field_Read,Field_Number 0x20
003a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
003b 02ff | | Declare_Variable Variant_Record
003c 00d8 | | Load_Top At_Offset_0
003d 1c00 | | Execute_Immediate Run_Utility,0x0
003e e001 | | Load 0x0,0x1
003f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0040 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call
0042 e001 | | Load 0x0,0x1
0043 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0044 1921 | ! | Execute Package,Field_Reference,Field_Number 0x21
0045 00c6 | | Action Check_Subprogram_Elaborated
0046 1d77 | w | Execute_Immediate Reference_Lex_1,0x77
0047 e002 | | Load 0x0,0x2
0048 e003 | | Load 0x0,0x3
0049 4800 |H | Short_Literal 0x0
004a 0007 | | Action Break_Optional
004b 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call
004d 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call
004f 029d 04d3 | | Declare_Subprogram INIT_04d0,For_Outer_Call
0051 029d 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call
0053 029d 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call
0055 029d 0633 | 3| Declare_Subprogram INIT_0630,For_Outer_Call
0057 029b 0673 | s| Declare_Subprogram INIT_0670,For_Outer_Call,Unelaborated
0059 1d82 | | Execute_Immediate Reference_Lex_1,0x82
005a 00c7 | | Action Elaborate_Subprogram
005b 1d82 | | Execute_Immediate Reference_Lex_1,0x82
005c 00c6 | | Action Check_Subprogram_Elaborated
005d 1d80 | | Execute_Immediate Reference_Lex_1,0x80
005e 0092 06bd | | Action Push_String_Extended,0x6bd ; " /// "
0060 e001 | | Load 0x0,0x1
0061 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0062 01c7 | | Execute Vector,Convert
0063 e004 | | Load 0x0,0x4
0064 e005 | | Load 0x0,0x5
0065 4800 |H | Short_Literal 0x0
0066 0007 | | Action Break_Optional
0067 1d82 | | Execute_Immediate Reference_Lex_1,0x82
0068 00c6 | | Action Check_Subprogram_Elaborated
0069 1d7f | | Execute_Immediate Reference_Lex_1,0x7f
006a 0092 06be | | Action Push_String_Extended,0x6be ; " LRU "
006c e001 | | Load 0x0,0x1
006d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
006e 01c7 | | Execute Vector,Convert
006f e006 | | Load 0x0,0x6
0070 e007 | | Load 0x0,0x7
0071 4800 |H | Short_Literal 0x0
0072 0007 | | Action Break_Optional
0073 1d82 | | Execute_Immediate Reference_Lex_1,0x82
0074 00c6 | | Action Check_Subprogram_Elaborated
0075 1d81 | | Execute_Immediate Reference_Lex_1,0x81
0076 0092 06bf | | Action Push_String_Extended,0x6bf ; "FIRST"
0078 e001 | | Load 0x0,0x1
0079 1b13 | | Execute Package,Field_Read,Field_Number 0x13
007a 01c7 | | Execute Vector,Convert
007b e008 | | Load 0x0,0x8
007c e009 | | Load 0x0,0x9
007d 4800 |H | Short_Literal 0x0
007e 0007 | | Action Break_Optional
007f 1d6c | l | Execute_Immediate Reference_Lex_1,0x6c
0080 00c7 | | Action Elaborate_Subprogram
0081 BODY_0008:
0081 e20f | | Load 0x1,0xf
0082 e00a | | Load 0x0,0xa
0083 180f | | Execute Package,Field_Execute,Field_Number 0xf
0084 c276 | v | Store 0x1,0x76
0085 e268 | h | Load 0x1,0x68
0086 e265 | e | Load 0x1,0x65
0087 e262 | b | Load 0x1,0x62
0088 e25f | _ | Load 0x1,0x5f
0089 e25c | \ | Load 0x1,0x5c
008a e259 | Y | Load 0x1,0x59
008b e256 | V | Load 0x1,0x56
008c e253 | S | Load 0x1,0x53
008d e250 | P | Load 0x1,0x50
008e e24d | M | Load 0x1,0x4d
008f e24a | J | Load 0x1,0x4a
0090 e247 | G | Load 0x1,0x47
0091 e244 | D | Load 0x1,0x44
0092 e241 | A | Load 0x1,0x41
0093 e23e | > | Load 0x1,0x3e
0094 e23b | ; | Load 0x1,0x3b
0095 e238 | 8 | Load 0x1,0x38
0096 e235 | 5 | Load 0x1,0x35
0097 e232 | 2 | Load 0x1,0x32
0098 e22f | / | Load 0x1,0x2f
0099 e22c | , | Load 0x1,0x2c
009a e229 | ) | Load 0x1,0x29
009b e226 | & | Load 0x1,0x26
009c e223 | # | Load 0x1,0x23
009d e220 | | Load 0x1,0x20
009e e21d | | Load 0x1,0x1d
009f e21a | | Load 0x1,0x1a
00a0 e217 | | Load 0x1,0x17
00a1 e214 | | Load 0x1,0x14
00a2 e211 | | Load 0x1,0x11
00a3 e20f | | Load 0x1,0xf
00a4 e276 | v | Load 0x1,0x76
00a5 e001 | | Load 0x0,0x1
00a6 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00a7 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00a8 00bc | | Action Signal_Activated
00a9 00bb | | Action Signal_Completion
00aa 0000 0000 | | .BLANK 0000[0x6]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 e276 | v | Load 0x1,0x76
00b4 e20f | | Load 0x1,0xf
00b5 e001 | | Load 0x0,0x1
00b6 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00b7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b8 e210 | | Load 0x1,0x10
00b9 0f00 | | Execute_Immediate Equal,0x0
00ba e210 | | Load 0x1,0x10
00bb 0f01 | | Execute_Immediate Equal,0x1
00bc 0278 | x | Execute Discrete,Or
00bd 6806 |h | Jump_Zero 0xc4
00be 00da | | Load_Top At_Offset_2
00bf 1d83 | | Execute_Immediate Reference_Lex_1,0x83
00c0 e284 | | Load 0x1,0x84
00c1 1d85 | | Execute_Immediate Reference_Lex_1,0x85
00c2 8282 | | Call 0x1,0x82
00c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00c4 e210 | | Load 0x1,0x10
00c5 0f02 | | Execute_Immediate Equal,0x2
00c6 6806 |h | Jump_Zero 0xcd
00c7 00da | | Load_Top At_Offset_2
00c8 1d88 | | Execute_Immediate Reference_Lex_1,0x88
00c9 e289 | | Load 0x1,0x89
00ca 1d8a | | Execute_Immediate Reference_Lex_1,0x8a
00cb 8282 | | Call 0x1,0x82
00cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00cd 00da | | Load_Top At_Offset_2
00ce 1d8d | | Execute_Immediate Reference_Lex_1,0x8d
00cf e28e | | Load 0x1,0x8e
00d0 1d8f | | Execute_Immediate Reference_Lex_1,0x8f
00d1 8282 | | Call 0x1,0x82
00d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4608 |F | Jump_Case 0x9
00dc 7808 |x | Jump 0xe5 ; case 0x0
00dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00de 781b |x | Jump 0xfa ; case 0x2
00df 781a |x | Jump 0xfa ; case 0x3
00e0 7819 |x | Jump 0xfa ; case 0x4
00e1 7818 |x | Jump 0xfa ; case 0x5
00e2 7817 |x | Jump 0xfa ; case 0x6
00e3 7816 |x | Jump 0xfa ; case 0x7
00e4 7815 |x | Jump 0xfa ; case 0x8
00e5 e26e | n | Load 0x1,0x6e
00e6 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00e7 0337 | 7 | Declare_Variable Array
00e8 481e |H | Short_Literal 0x1e
00e9 4801 |H | Short_Literal 0x1
00ea 4800 |H | Short_Literal 0x0
00eb 00d9 | | Load_Top At_Offset_1
00ec e402 | | Load 0x2,0x2
00ed 01d6 | | Execute Vector,Field_Write
00ee 3ffb |? | Loop_Increasing 0xea
00ef 00db | | Load_Top At_Offset_3
00f0 00d9 | | Load_Top At_Offset_1
00f1 00d9 | | Load_Top At_Offset_1
00f2 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
00f3 0119 | | Execute Any,Check_In_Formal_Type
00f4 00d1 | | Pop_Control Pop_Count_1
00f5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f6 4800 |H | Short_Literal 0x0
00f7 00db | | Load_Top At_Offset_3
00f8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00fa 0869 | i | Execute_Immediate Raise,0x69
00fb 0000 0000 | | .BLANK 0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0105 e5fe | | Load 0x2,-0x2
0106 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0107 027c | | | Execute Discrete,Less
0108 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0115 | | .CONST 0x0115 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 029f 06b3 | | Declare_Subprogram INIT_06b0,For_Call
0115 BODY_0110:
0115 00db | | Load_Top At_Offset_3
0116 e001 | | Load 0x0,0x1
0117 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0118 00d9 | | Load_Top At_Offset_1
0119 00d0 | | Action Swap_Control
011a 0260 | ` | Execute Discrete,In_Type
011b 7001 |p | Jump_Nonzero 0x11d
011c 0801 | | Execute_Immediate Raise,0x1
011d e20f | | Load 0x1,0xf
011e e001 | | Load 0x0,0x1
011f 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0120 180d | | Execute Package,Field_Execute,Field_Number 0xd
0121 709e |p | Jump_Nonzero 0x1c0
0122 00db | | Load_Top At_Offset_3
0123 00d8 | | Load_Top At_Offset_0
0124 0c1f | | Execute_Immediate Greater_Equal,0x1f
0125 7024 |p$ | Jump_Nonzero 0x14a
0126 0aff | | Execute_Immediate Plus,-0x1
0127 461d |F | Jump_Case 0x1e
0128 7893 |x | Jump 0x1bc ; case 0x0
0129 7822 |x" | Jump 0x14c ; case 0x1
012a 7825 |x% | Jump 0x150 ; case 0x2
012b 7828 |x( | Jump 0x154 ; case 0x3
012c 782b |x+ | Jump 0x158 ; case 0x4
012d 782e |x. | Jump 0x15c ; case 0x5
012e 7831 |x1 | Jump 0x160 ; case 0x6
012f 7834 |x4 | Jump 0x164 ; case 0x7
0130 7837 |x7 | Jump 0x168 ; case 0x8
0131 783a |x: | Jump 0x16c ; case 0x9
0132 783d |x= | Jump 0x170 ; case 0xa
0133 7840 |x@ | Jump 0x174 ; case 0xb
0134 7843 |xC | Jump 0x178 ; case 0xc
0135 7846 |xF | Jump 0x17c ; case 0xd
0136 7849 |xI | Jump 0x180 ; case 0xe
0137 784c |xL | Jump 0x184 ; case 0xf
0138 784f |xO | Jump 0x188 ; case 0x10
0139 7852 |xR | Jump 0x18c ; case 0x11
013a 7855 |xU | Jump 0x190 ; case 0x12
013b 7858 |xX | Jump 0x194 ; case 0x13
013c 785b |x[ | Jump 0x198 ; case 0x14
013d 785e |x^ | Jump 0x19c ; case 0x15
013e 7861 |xa | Jump 0x1a0 ; case 0x16
013f 7864 |xd | Jump 0x1a4 ; case 0x17
0140 7867 |xg | Jump 0x1a8 ; case 0x18
0141 786a |xj | Jump 0x1ac ; case 0x19
0142 786d |xm | Jump 0x1b0 ; case 0x1a
0143 7870 |xp | Jump 0x1b4 ; case 0x1b
0144 7873 |xs | Jump 0x1b8 ; case 0x1c
0145 7800 |x | Jump 0x146 ; case 0x1d
0146 8269 | i | Call 0x1,0x69
0147 e273 | s | Load 0x1,0x73
0148 016d | m | Execute Variant_Record,Structure_Write
0149 7877 |xw | Jump 0x1c1
014a 00d1 | | Pop_Control Pop_Count_1
014b 7875 |xu | Jump 0x1c1
014c 8215 | | Call 0x1,0x15
014d e273 | s | Load 0x1,0x73
014e 016d | m | Execute Variant_Record,Structure_Write
014f 7871 |xq | Jump 0x1c1
0150 8218 | | Call 0x1,0x18
0151 e273 | s | Load 0x1,0x73
0152 016d | m | Execute Variant_Record,Structure_Write
0153 786d |xm | Jump 0x1c1
0154 821b | | Call 0x1,0x1b
0155 e273 | s | Load 0x1,0x73
0156 016d | m | Execute Variant_Record,Structure_Write
0157 7869 |xi | Jump 0x1c1
0158 821e | | Call 0x1,0x1e
0159 e273 | s | Load 0x1,0x73
015a 016d | m | Execute Variant_Record,Structure_Write
015b 7865 |xe | Jump 0x1c1
015c 8221 | ! | Call 0x1,0x21
015d e273 | s | Load 0x1,0x73
015e 016d | m | Execute Variant_Record,Structure_Write
015f 7861 |xa | Jump 0x1c1
0160 8224 | $ | Call 0x1,0x24
0161 e273 | s | Load 0x1,0x73
0162 016d | m | Execute Variant_Record,Structure_Write
0163 785d |x] | Jump 0x1c1
0164 8227 | ' | Call 0x1,0x27
0165 e273 | s | Load 0x1,0x73
0166 016d | m | Execute Variant_Record,Structure_Write
0167 7859 |xY | Jump 0x1c1
0168 822a | * | Call 0x1,0x2a
0169 e273 | s | Load 0x1,0x73
016a 016d | m | Execute Variant_Record,Structure_Write
016b 7855 |xU | Jump 0x1c1
016c 822d | - | Call 0x1,0x2d
016d e273 | s | Load 0x1,0x73
016e 016d | m | Execute Variant_Record,Structure_Write
016f 7851 |xQ | Jump 0x1c1
0170 8230 | 0 | Call 0x1,0x30
0171 e273 | s | Load 0x1,0x73
0172 016d | m | Execute Variant_Record,Structure_Write
0173 784d |xM | Jump 0x1c1
0174 8233 | 3 | Call 0x1,0x33
0175 e273 | s | Load 0x1,0x73
0176 016d | m | Execute Variant_Record,Structure_Write
0177 7849 |xI | Jump 0x1c1
0178 8236 | 6 | Call 0x1,0x36
0179 e273 | s | Load 0x1,0x73
017a 016d | m | Execute Variant_Record,Structure_Write
017b 7845 |xE | Jump 0x1c1
017c 8239 | 9 | Call 0x1,0x39
017d e273 | s | Load 0x1,0x73
017e 016d | m | Execute Variant_Record,Structure_Write
017f 7841 |xA | Jump 0x1c1
0180 823c | < | Call 0x1,0x3c
0181 e273 | s | Load 0x1,0x73
0182 016d | m | Execute Variant_Record,Structure_Write
0183 783d |x= | Jump 0x1c1
0184 823f | ? | Call 0x1,0x3f
0185 e273 | s | Load 0x1,0x73
0186 016d | m | Execute Variant_Record,Structure_Write
0187 7839 |x9 | Jump 0x1c1
0188 8242 | B | Call 0x1,0x42
0189 e273 | s | Load 0x1,0x73
018a 016d | m | Execute Variant_Record,Structure_Write
018b 7835 |x5 | Jump 0x1c1
018c 8245 | E | Call 0x1,0x45
018d e273 | s | Load 0x1,0x73
018e 016d | m | Execute Variant_Record,Structure_Write
018f 7831 |x1 | Jump 0x1c1
0190 8248 | H | Call 0x1,0x48
0191 e273 | s | Load 0x1,0x73
0192 016d | m | Execute Variant_Record,Structure_Write
0193 782d |x- | Jump 0x1c1
0194 824b | K | Call 0x1,0x4b
0195 e273 | s | Load 0x1,0x73
0196 016d | m | Execute Variant_Record,Structure_Write
0197 7829 |x) | Jump 0x1c1
0198 824e | N | Call 0x1,0x4e
0199 e273 | s | Load 0x1,0x73
019a 016d | m | Execute Variant_Record,Structure_Write
019b 7825 |x% | Jump 0x1c1
019c 8251 | Q | Call 0x1,0x51
019d e273 | s | Load 0x1,0x73
019e 016d | m | Execute Variant_Record,Structure_Write
019f 7821 |x! | Jump 0x1c1
01a0 8254 | T | Call 0x1,0x54
01a1 e273 | s | Load 0x1,0x73
01a2 016d | m | Execute Variant_Record,Structure_Write
01a3 781d |x | Jump 0x1c1
01a4 8257 | W | Call 0x1,0x57
01a5 e273 | s | Load 0x1,0x73
01a6 016d | m | Execute Variant_Record,Structure_Write
01a7 7819 |x | Jump 0x1c1
01a8 825a | Z | Call 0x1,0x5a
01a9 e273 | s | Load 0x1,0x73
01aa 016d | m | Execute Variant_Record,Structure_Write
01ab 7815 |x | Jump 0x1c1
01ac 825d | ] | Call 0x1,0x5d
01ad e273 | s | Load 0x1,0x73
01ae 016d | m | Execute Variant_Record,Structure_Write
01af 7811 |x | Jump 0x1c1
01b0 8260 | ` | Call 0x1,0x60
01b1 e273 | s | Load 0x1,0x73
01b2 016d | m | Execute Variant_Record,Structure_Write
01b3 780d |x | Jump 0x1c1
01b4 8263 | c | Call 0x1,0x63
01b5 e273 | s | Load 0x1,0x73
01b6 016d | m | Execute Variant_Record,Structure_Write
01b7 7809 |x | Jump 0x1c1
01b8 8266 | f | Call 0x1,0x66
01b9 e273 | s | Load 0x1,0x73
01ba 016d | m | Execute Variant_Record,Structure_Write
01bb 7805 |x | Jump 0x1c1
01bc 8212 | | Call 0x1,0x12
01bd e273 | s | Load 0x1,0x73
01be 016d | m | Execute Variant_Record,Structure_Write
01bf 7801 |x | Jump 0x1c1
01c0 8402 | | Call 0x2,0x2
01c1 4804 |H | Short_Literal 0x4
01c2 e001 | | Load 0x0,0x1
01c3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
01c4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01c5 696f |io | Jump_Zero 0x335
01c6 00db | | Load_Top At_Offset_3
01c7 00d8 | | Load_Top At_Offset_0
01c8 0c1f | | Execute_Immediate Greater_Equal,0x1f
01c9 702b |p+ | Jump_Nonzero 0x1f5
01ca 0aff | | Execute_Immediate Plus,-0x1
01cb 461d |F | Jump_Case 0x1e
01cc 795e |y^ | Jump 0x32b ; case 0x0
01cd 7829 |x) | Jump 0x1f7 ; case 0x1
01ce 7833 |x3 | Jump 0x202 ; case 0x2
01cf 783d |x= | Jump 0x20d ; case 0x3
01d0 7847 |xG | Jump 0x218 ; case 0x4
01d1 7851 |xQ | Jump 0x223 ; case 0x5
01d2 785b |x[ | Jump 0x22e ; case 0x6
01d3 7865 |xe | Jump 0x239 ; case 0x7
01d4 786f |xo | Jump 0x244 ; case 0x8
01d5 7879 |xy | Jump 0x24f ; case 0x9
01d6 7883 |x | Jump 0x25a ; case 0xa
01d7 788d |x | Jump 0x265 ; case 0xb
01d8 7897 |x | Jump 0x270 ; case 0xc
01d9 78a1 |x | Jump 0x27b ; case 0xd
01da 78ab |x | Jump 0x286 ; case 0xe
01db 78b5 |x | Jump 0x291 ; case 0xf
01dc 78bf |x | Jump 0x29c ; case 0x10
01dd 78c9 |x | Jump 0x2a7 ; case 0x11
01de 78d3 |x | Jump 0x2b2 ; case 0x12
01df 78dd |x | Jump 0x2bd ; case 0x13
01e0 78e7 |x | Jump 0x2c8 ; case 0x14
01e1 78f1 |x | Jump 0x2d3 ; case 0x15
01e2 78fb |x | Jump 0x2de ; case 0x16
01e3 7905 |y | Jump 0x2e9 ; case 0x17
01e4 790f |y | Jump 0x2f4 ; case 0x18
01e5 7919 |y | Jump 0x2ff ; case 0x19
01e6 7923 |y# | Jump 0x30a ; case 0x1a
01e7 792d |y- | Jump 0x315 ; case 0x1b
01e8 7937 |y7 | Jump 0x320 ; case 0x1c
01e9 7800 |x | Jump 0x1ea ; case 0x1d
01ea e273 | s | Load 0x1,0x73
01eb 00d8 | | Load_Top At_Offset_0
01ec e001 | | Load 0x0,0x1
01ed 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01ee 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ef 481e |H | Short_Literal 0x1e
01f0 e268 | h | Load 0x1,0x68
01f1 e001 | | Load 0x0,0x1
01f2 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
01f3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f5 00d1 | | Pop_Control Pop_Count_1
01f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f7 e273 | s | Load 0x1,0x73
01f8 00d8 | | Load_Top At_Offset_0
01f9 e001 | | Load 0x0,0x1
01fa 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
01fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01fc 4802 |H | Short_Literal 0x2
01fd e214 | | Load 0x1,0x14
01fe e001 | | Load 0x0,0x1
01ff 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0200 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0201 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0202 e273 | s | Load 0x1,0x73
0203 00d8 | | Load_Top At_Offset_0
0204 e001 | | Load 0x0,0x1
0205 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0206 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0207 4803 |H | Short_Literal 0x3
0208 e217 | | Load 0x1,0x17
0209 e001 | | Load 0x0,0x1
020a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
020b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
020c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020d e273 | s | Load 0x1,0x73
020e 00d8 | | Load_Top At_Offset_0
020f e001 | | Load 0x0,0x1
0210 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0211 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0212 4804 |H | Short_Literal 0x4
0213 e21a | | Load 0x1,0x1a
0214 e001 | | Load 0x0,0x1
0215 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0216 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0217 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0218 e273 | s | Load 0x1,0x73
0219 00d8 | | Load_Top At_Offset_0
021a e001 | | Load 0x0,0x1
021b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
021c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
021d 4805 |H | Short_Literal 0x5
021e e21d | | Load 0x1,0x1d
021f e001 | | Load 0x0,0x1
0220 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0221 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0222 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0223 e273 | s | Load 0x1,0x73
0224 00d8 | | Load_Top At_Offset_0
0225 e001 | | Load 0x0,0x1
0226 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0227 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0228 4806 |H | Short_Literal 0x6
0229 e220 | | Load 0x1,0x20
022a e001 | | Load 0x0,0x1
022b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
022c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
022d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022e e273 | s | Load 0x1,0x73
022f 00d8 | | Load_Top At_Offset_0
0230 e001 | | Load 0x0,0x1
0231 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0232 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0233 4807 |H | Short_Literal 0x7
0234 e223 | # | Load 0x1,0x23
0235 e001 | | Load 0x0,0x1
0236 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0237 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0238 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0239 e273 | s | Load 0x1,0x73
023a 00d8 | | Load_Top At_Offset_0
023b e001 | | Load 0x0,0x1
023c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
023d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
023e 4808 |H | Short_Literal 0x8
023f e226 | & | Load 0x1,0x26
0240 e001 | | Load 0x0,0x1
0241 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0242 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0243 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0244 e273 | s | Load 0x1,0x73
0245 00d8 | | Load_Top At_Offset_0
0246 e001 | | Load 0x0,0x1
0247 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0248 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0249 4809 |H | Short_Literal 0x9
024a e229 | ) | Load 0x1,0x29
024b e001 | | Load 0x0,0x1
024c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
024d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
024e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
024f e273 | s | Load 0x1,0x73
0250 00d8 | | Load_Top At_Offset_0
0251 e001 | | Load 0x0,0x1
0252 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0253 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0254 480a |H | Short_Literal 0xa
0255 e22c | , | Load 0x1,0x2c
0256 e001 | | Load 0x0,0x1
0257 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0258 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0259 4502 |E | Exit_Suprogram New_Top_Offset 0x2
025a e273 | s | Load 0x1,0x73
025b 00d8 | | Load_Top At_Offset_0
025c e001 | | Load 0x0,0x1
025d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
025e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
025f 480b |H | Short_Literal 0xb
0260 e22f | / | Load 0x1,0x2f
0261 e001 | | Load 0x0,0x1
0262 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0263 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0264 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0265 e273 | s | Load 0x1,0x73
0266 00d8 | | Load_Top At_Offset_0
0267 e001 | | Load 0x0,0x1
0268 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0269 1811 | | Execute Package,Field_Execute,Field_Number 0x11
026a 480c |H | Short_Literal 0xc
026b e232 | 2 | Load 0x1,0x32
026c e001 | | Load 0x0,0x1
026d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
026e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
026f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0270 e273 | s | Load 0x1,0x73
0271 00d8 | | Load_Top At_Offset_0
0272 e001 | | Load 0x0,0x1
0273 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0274 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0275 480d |H | Short_Literal 0xd
0276 e235 | 5 | Load 0x1,0x35
0277 e001 | | Load 0x0,0x1
0278 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0279 1814 | | Execute Package,Field_Execute,Field_Number 0x14
027a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
027b e273 | s | Load 0x1,0x73
027c 00d8 | | Load_Top At_Offset_0
027d e001 | | Load 0x0,0x1
027e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
027f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0280 480e |H | Short_Literal 0xe
0281 e238 | 8 | Load 0x1,0x38
0282 e001 | | Load 0x0,0x1
0283 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0284 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0285 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0286 e273 | s | Load 0x1,0x73
0287 00d8 | | Load_Top At_Offset_0
0288 e001 | | Load 0x0,0x1
0289 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
028a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028b 480f |H | Short_Literal 0xf
028c e23b | ; | Load 0x1,0x3b
028d e001 | | Load 0x0,0x1
028e 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
028f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0290 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0291 e273 | s | Load 0x1,0x73
0292 00d8 | | Load_Top At_Offset_0
0293 e001 | | Load 0x0,0x1
0294 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0295 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0296 4810 |H | Short_Literal 0x10
0297 e23e | > | Load 0x1,0x3e
0298 e001 | | Load 0x0,0x1
0299 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
029a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
029b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029c e273 | s | Load 0x1,0x73
029d 00d8 | | Load_Top At_Offset_0
029e e001 | | Load 0x0,0x1
029f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02a0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02a1 4811 |H | Short_Literal 0x11
02a2 e241 | A | Load 0x1,0x41
02a3 e001 | | Load 0x0,0x1
02a4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02a5 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02a7 e273 | s | Load 0x1,0x73
02a8 00d8 | | Load_Top At_Offset_0
02a9 e001 | | Load 0x0,0x1
02aa 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02ab 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02ac 4812 |H | Short_Literal 0x12
02ad e244 | D | Load 0x1,0x44
02ae e001 | | Load 0x0,0x1
02af 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02b0 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02b2 e273 | s | Load 0x1,0x73
02b3 00d8 | | Load_Top At_Offset_0
02b4 e001 | | Load 0x0,0x1
02b5 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02b6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02b7 4813 |H | Short_Literal 0x13
02b8 e247 | G | Load 0x1,0x47
02b9 e001 | | Load 0x0,0x1
02ba 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02bb 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02bd e273 | s | Load 0x1,0x73
02be 00d8 | | Load_Top At_Offset_0
02bf e001 | | Load 0x0,0x1
02c0 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c2 4814 |H | Short_Literal 0x14
02c3 e24a | J | Load 0x1,0x4a
02c4 e001 | | Load 0x0,0x1
02c5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02c6 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02c8 e273 | s | Load 0x1,0x73
02c9 00d8 | | Load_Top At_Offset_0
02ca e001 | | Load 0x0,0x1
02cb 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02cc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02cd 4815 |H | Short_Literal 0x15
02ce e24d | M | Load 0x1,0x4d
02cf e001 | | Load 0x0,0x1
02d0 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02d1 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d3 e273 | s | Load 0x1,0x73
02d4 00d8 | | Load_Top At_Offset_0
02d5 e001 | | Load 0x0,0x1
02d6 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02d8 4816 |H | Short_Literal 0x16
02d9 e250 | P | Load 0x1,0x50
02da e001 | | Load 0x0,0x1
02db 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02dc 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02de e273 | s | Load 0x1,0x73
02df 00d8 | | Load_Top At_Offset_0
02e0 e001 | | Load 0x0,0x1
02e1 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02e2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02e3 4817 |H | Short_Literal 0x17
02e4 e253 | S | Load 0x1,0x53
02e5 e001 | | Load 0x0,0x1
02e6 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02e9 e273 | s | Load 0x1,0x73
02ea 00d8 | | Load_Top At_Offset_0
02eb e001 | | Load 0x0,0x1
02ec 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02ee 4818 |H | Short_Literal 0x18
02ef e256 | V | Load 0x1,0x56
02f0 e001 | | Load 0x0,0x1
02f1 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02f2 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f4 e273 | s | Load 0x1,0x73
02f5 00d8 | | Load_Top At_Offset_0
02f6 e001 | | Load 0x0,0x1
02f7 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
02f8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02f9 4819 |H | Short_Literal 0x19
02fa e259 | Y | Load 0x1,0x59
02fb e001 | | Load 0x0,0x1
02fc 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02fd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
02fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02ff e273 | s | Load 0x1,0x73
0300 00d8 | | Load_Top At_Offset_0
0301 e001 | | Load 0x0,0x1
0302 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0303 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0304 481a |H | Short_Literal 0x1a
0305 e25c | \ | Load 0x1,0x5c
0306 e001 | | Load 0x0,0x1
0307 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0308 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0309 4502 |E | Exit_Suprogram New_Top_Offset 0x2
030a e273 | s | Load 0x1,0x73
030b 00d8 | | Load_Top At_Offset_0
030c e001 | | Load 0x0,0x1
030d 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
030e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
030f 481b |H | Short_Literal 0x1b
0310 e25f | _ | Load 0x1,0x5f
0311 e001 | | Load 0x0,0x1
0312 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0313 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0314 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0315 e273 | s | Load 0x1,0x73
0316 00d8 | | Load_Top At_Offset_0
0317 e001 | | Load 0x0,0x1
0318 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0319 1811 | | Execute Package,Field_Execute,Field_Number 0x11
031a 481c |H | Short_Literal 0x1c
031b e262 | b | Load 0x1,0x62
031c e001 | | Load 0x0,0x1
031d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
031e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
031f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0320 e273 | s | Load 0x1,0x73
0321 00d8 | | Load_Top At_Offset_0
0322 e001 | | Load 0x0,0x1
0323 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0324 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0325 481d |H | Short_Literal 0x1d
0326 e265 | e | Load 0x1,0x65
0327 e001 | | Load 0x0,0x1
0328 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0329 1814 | | Execute Package,Field_Execute,Field_Number 0x14
032a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
032b e273 | s | Load 0x1,0x73
032c 00d8 | | Load_Top At_Offset_0
032d e001 | | Load 0x0,0x1
032e 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
032f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0330 4801 |H | Short_Literal 0x1
0331 e211 | | Load 0x1,0x11
0332 e001 | | Load 0x0,0x1
0333 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0334 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0335 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0336 0000 0000 | | .XXX[0x2]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c 00d8 | | Load_Top At_Offset_0
033d 0c1f | | Execute_Immediate Greater_Equal,0x1f
033e 7023 |p# | Jump_Nonzero 0x362
033f 461e |F | Jump_Case 0x1f
0340 7879 |xy | Jump 0x3ba ; case 0x0
0341 7876 |xv | Jump 0x3b8 ; case 0x1
0342 7821 |x! | Jump 0x364 ; case 0x2
0343 7823 |x# | Jump 0x367 ; case 0x3
0344 7825 |x% | Jump 0x36a ; case 0x4
0345 7827 |x' | Jump 0x36d ; case 0x5
0346 7829 |x) | Jump 0x370 ; case 0x6
0347 782b |x+ | Jump 0x373 ; case 0x7
0348 782d |x- | Jump 0x376 ; case 0x8
0349 782f |x/ | Jump 0x379 ; case 0x9
034a 7831 |x1 | Jump 0x37c ; case 0xa
034b 7833 |x3 | Jump 0x37f ; case 0xb
034c 7835 |x5 | Jump 0x382 ; case 0xc
034d 7837 |x7 | Jump 0x385 ; case 0xd
034e 7839 |x9 | Jump 0x388 ; case 0xe
034f 783b |x; | Jump 0x38b ; case 0xf
0350 783d |x= | Jump 0x38e ; case 0x10
0351 783f |x? | Jump 0x391 ; case 0x11
0352 7841 |xA | Jump 0x394 ; case 0x12
0353 7843 |xC | Jump 0x397 ; case 0x13
0354 7845 |xE | Jump 0x39a ; case 0x14
0355 7847 |xG | Jump 0x39d ; case 0x15
0356 7849 |xI | Jump 0x3a0 ; case 0x16
0357 784b |xK | Jump 0x3a3 ; case 0x17
0358 784d |xM | Jump 0x3a6 ; case 0x18
0359 784f |xO | Jump 0x3a9 ; case 0x19
035a 7851 |xQ | Jump 0x3ac ; case 0x1a
035b 7853 |xS | Jump 0x3af ; case 0x1b
035c 7855 |xU | Jump 0x3b2 ; case 0x1c
035d 7857 |xW | Jump 0x3b5 ; case 0x1d
035e 7800 |x | Jump 0x35f ; case 0x1e
035f e270 | p | Load 0x1,0x70
0360 826a | j | Call 0x1,0x6a
0361 7858 |xX | Jump 0x3ba
0362 00d1 | | Pop_Control Pop_Count_1
0363 7856 |xV | Jump 0x3ba
0364 e270 | p | Load 0x1,0x70
0365 8216 | | Call 0x1,0x16
0366 7853 |xS | Jump 0x3ba
0367 e270 | p | Load 0x1,0x70
0368 8219 | | Call 0x1,0x19
0369 7850 |xP | Jump 0x3ba
036a e270 | p | Load 0x1,0x70
036b 821c | | Call 0x1,0x1c
036c 784d |xM | Jump 0x3ba
036d e270 | p | Load 0x1,0x70
036e 821f | | Call 0x1,0x1f
036f 784a |xJ | Jump 0x3ba
0370 e270 | p | Load 0x1,0x70
0371 8222 | " | Call 0x1,0x22
0372 7847 |xG | Jump 0x3ba
0373 e270 | p | Load 0x1,0x70
0374 8225 | % | Call 0x1,0x25
0375 7844 |xD | Jump 0x3ba
0376 e270 | p | Load 0x1,0x70
0377 8228 | ( | Call 0x1,0x28
0378 7841 |xA | Jump 0x3ba
0379 e270 | p | Load 0x1,0x70
037a 822b | + | Call 0x1,0x2b
037b 783e |x> | Jump 0x3ba
037c e270 | p | Load 0x1,0x70
037d 822e | . | Call 0x1,0x2e
037e 783b |x; | Jump 0x3ba
037f e270 | p | Load 0x1,0x70
0380 8231 | 1 | Call 0x1,0x31
0381 7838 |x8 | Jump 0x3ba
0382 e270 | p | Load 0x1,0x70
0383 8234 | 4 | Call 0x1,0x34
0384 7835 |x5 | Jump 0x3ba
0385 e270 | p | Load 0x1,0x70
0386 8237 | 7 | Call 0x1,0x37
0387 7832 |x2 | Jump 0x3ba
0388 e270 | p | Load 0x1,0x70
0389 823a | : | Call 0x1,0x3a
038a 782f |x/ | Jump 0x3ba
038b e270 | p | Load 0x1,0x70
038c 823d | = | Call 0x1,0x3d
038d 782c |x, | Jump 0x3ba
038e e270 | p | Load 0x1,0x70
038f 8240 | @ | Call 0x1,0x40
0390 7829 |x) | Jump 0x3ba
0391 e270 | p | Load 0x1,0x70
0392 8243 | C | Call 0x1,0x43
0393 7826 |x& | Jump 0x3ba
0394 e270 | p | Load 0x1,0x70
0395 8246 | F | Call 0x1,0x46
0396 7823 |x# | Jump 0x3ba
0397 e270 | p | Load 0x1,0x70
0398 8249 | I | Call 0x1,0x49
0399 7820 |x | Jump 0x3ba
039a e270 | p | Load 0x1,0x70
039b 824c | L | Call 0x1,0x4c
039c 781d |x | Jump 0x3ba
039d e270 | p | Load 0x1,0x70
039e 824f | O | Call 0x1,0x4f
039f 781a |x | Jump 0x3ba
03a0 e270 | p | Load 0x1,0x70
03a1 8252 | R | Call 0x1,0x52
03a2 7817 |x | Jump 0x3ba
03a3 e270 | p | Load 0x1,0x70
03a4 8255 | U | Call 0x1,0x55
03a5 7814 |x | Jump 0x3ba
03a6 e270 | p | Load 0x1,0x70
03a7 8258 | X | Call 0x1,0x58
03a8 7811 |x | Jump 0x3ba
03a9 e270 | p | Load 0x1,0x70
03aa 825b | [ | Call 0x1,0x5b
03ab 780e |x | Jump 0x3ba
03ac e270 | p | Load 0x1,0x70
03ad 825e | ^ | Call 0x1,0x5e
03ae 780b |x | Jump 0x3ba
03af e270 | p | Load 0x1,0x70
03b0 8261 | a | Call 0x1,0x61
03b1 7808 |x | Jump 0x3ba
03b2 e270 | p | Load 0x1,0x70
03b3 8264 | d | Call 0x1,0x64
03b4 7805 |x | Jump 0x3ba
03b5 e270 | p | Load 0x1,0x70
03b6 8267 | g | Call 0x1,0x67
03b7 7802 |x | Jump 0x3ba
03b8 e270 | p | Load 0x1,0x70
03b9 8213 | | Call 0x1,0x13
03ba 00da | | Load_Top At_Offset_2
03bb 690b |i | Jump_Zero 0x4c7
03bc 4806 |H | Short_Literal 0x6
03bd e001 | | Load 0x0,0x1
03be 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
03bf 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03c0 4808 |H | Short_Literal 0x8
03c1 e001 | | Load 0x0,0x1
03c2 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
03c3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03c4 0278 | x | Execute Discrete,Or
03c5 6901 |i | Jump_Zero 0x4c7
03c6 00da | | Load_Top At_Offset_2
03c7 00d8 | | Load_Top At_Offset_0
03c8 0c1f | | Execute_Immediate Greater_Equal,0x1f
03c9 7027 |p' | Jump_Nonzero 0x3f1
03ca 461e |F | Jump_Case 0x1f
03cb 7826 |x& | Jump 0x3f2 ; case 0x0
03cc 7830 |x0 | Jump 0x3fd ; case 0x1
03cd 7836 |x6 | Jump 0x404 ; case 0x2
03ce 783c |x< | Jump 0x40b ; case 0x3
03cf 7842 |xB | Jump 0x412 ; case 0x4
03d0 7848 |xH | Jump 0x419 ; case 0x5
03d1 784e |xN | Jump 0x420 ; case 0x6
03d2 7854 |xT | Jump 0x427 ; case 0x7
03d3 785a |xZ | Jump 0x42e ; case 0x8
03d4 7860 |x` | Jump 0x435 ; case 0x9
03d5 7866 |xf | Jump 0x43c ; case 0xa
03d6 786c |xl | Jump 0x443 ; case 0xb
03d7 7872 |xr | Jump 0x44a ; case 0xc
03d8 7878 |xx | Jump 0x451 ; case 0xd
03d9 787e |x~ | Jump 0x458 ; case 0xe
03da 7884 |x | Jump 0x45f ; case 0xf
03db 788a |x | Jump 0x466 ; case 0x10
03dc 7890 |x | Jump 0x46d ; case 0x11
03dd 7896 |x | Jump 0x474 ; case 0x12
03de 789c |x | Jump 0x47b ; case 0x13
03df 78a2 |x | Jump 0x482 ; case 0x14
03e0 78a8 |x | Jump 0x489 ; case 0x15
03e1 78ae |x | Jump 0x490 ; case 0x16
03e2 78b4 |x | Jump 0x497 ; case 0x17
03e3 78ba |x | Jump 0x49e ; case 0x18
03e4 78c0 |x | Jump 0x4a5 ; case 0x19
03e5 78c6 |x | Jump 0x4ac ; case 0x1a
03e6 78cc |x | Jump 0x4b3 ; case 0x1b
03e7 78d2 |x | Jump 0x4ba ; case 0x1c
03e8 78d8 |x | Jump 0x4c1 ; case 0x1d
03e9 7800 |x | Jump 0x3ea ; case 0x1e
03ea e270 | p | Load 0x1,0x70
03eb 481e |H | Short_Literal 0x1e
03ec e268 | h | Load 0x1,0x68
03ed e001 | | Load 0x0,0x1
03ee 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
03ef 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03f0 78d6 |x | Jump 0x4c7
03f1 00d1 | | Pop_Control Pop_Count_1
03f2 e270 | p | Load 0x1,0x70
03f3 4800 |H | Short_Literal 0x0
03f4 0092 06c0 | | Action Push_String_Extended,0x6c0 ; "NO OPERATION ! "
03f6 e001 | | Load 0x0,0x1
03f7 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03f8 01c3 | | Execute Vector,Check_In_Type
03f9 e001 | | Load 0x0,0x1
03fa 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
03fb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03fc 78ca |x | Jump 0x4c7
03fd e270 | p | Load 0x1,0x70
03fe 4801 |H | Short_Literal 0x1
03ff e211 | | Load 0x1,0x11
0400 e001 | | Load 0x0,0x1
0401 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0402 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0403 78c3 |x | Jump 0x4c7
0404 e270 | p | Load 0x1,0x70
0405 4802 |H | Short_Literal 0x2
0406 e214 | | Load 0x1,0x14
0407 e001 | | Load 0x0,0x1
0408 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0409 1816 | | Execute Package,Field_Execute,Field_Number 0x16
040a 78bc |x | Jump 0x4c7
040b e270 | p | Load 0x1,0x70
040c 4803 |H | Short_Literal 0x3
040d e217 | | Load 0x1,0x17
040e e001 | | Load 0x0,0x1
040f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0410 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0411 78b5 |x | Jump 0x4c7
0412 e270 | p | Load 0x1,0x70
0413 4804 |H | Short_Literal 0x4
0414 e21a | | Load 0x1,0x1a
0415 e001 | | Load 0x0,0x1
0416 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0417 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0418 78ae |x | Jump 0x4c7
0419 e270 | p | Load 0x1,0x70
041a 4805 |H | Short_Literal 0x5
041b e21d | | Load 0x1,0x1d
041c e001 | | Load 0x0,0x1
041d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
041e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
041f 78a7 |x | Jump 0x4c7
0420 e270 | p | Load 0x1,0x70
0421 4806 |H | Short_Literal 0x6
0422 e220 | | Load 0x1,0x20
0423 e001 | | Load 0x0,0x1
0424 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0425 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0426 78a0 |x | Jump 0x4c7
0427 e270 | p | Load 0x1,0x70
0428 4807 |H | Short_Literal 0x7
0429 e223 | # | Load 0x1,0x23
042a e001 | | Load 0x0,0x1
042b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
042c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
042d 7899 |x | Jump 0x4c7
042e e270 | p | Load 0x1,0x70
042f 4808 |H | Short_Literal 0x8
0430 e226 | & | Load 0x1,0x26
0431 e001 | | Load 0x0,0x1
0432 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0433 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0434 7892 |x | Jump 0x4c7
0435 e270 | p | Load 0x1,0x70
0436 4809 |H | Short_Literal 0x9
0437 e229 | ) | Load 0x1,0x29
0438 e001 | | Load 0x0,0x1
0439 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
043a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
043b 788b |x | Jump 0x4c7
043c e270 | p | Load 0x1,0x70
043d 480a |H | Short_Literal 0xa
043e e22c | , | Load 0x1,0x2c
043f e001 | | Load 0x0,0x1
0440 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0441 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0442 7884 |x | Jump 0x4c7
0443 e270 | p | Load 0x1,0x70
0444 480b |H | Short_Literal 0xb
0445 e22f | / | Load 0x1,0x2f
0446 e001 | | Load 0x0,0x1
0447 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0448 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0449 787d |x} | Jump 0x4c7
044a e270 | p | Load 0x1,0x70
044b 480c |H | Short_Literal 0xc
044c e232 | 2 | Load 0x1,0x32
044d e001 | | Load 0x0,0x1
044e 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
044f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0450 7876 |xv | Jump 0x4c7
0451 e270 | p | Load 0x1,0x70
0452 480d |H | Short_Literal 0xd
0453 e235 | 5 | Load 0x1,0x35
0454 e001 | | Load 0x0,0x1
0455 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0456 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0457 786f |xo | Jump 0x4c7
0458 e270 | p | Load 0x1,0x70
0459 480e |H | Short_Literal 0xe
045a e238 | 8 | Load 0x1,0x38
045b e001 | | Load 0x0,0x1
045c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
045d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
045e 7868 |xh | Jump 0x4c7
045f e270 | p | Load 0x1,0x70
0460 480f |H | Short_Literal 0xf
0461 e23b | ; | Load 0x1,0x3b
0462 e001 | | Load 0x0,0x1
0463 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0464 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0465 7861 |xa | Jump 0x4c7
0466 e270 | p | Load 0x1,0x70
0467 4810 |H | Short_Literal 0x10
0468 e23e | > | Load 0x1,0x3e
0469 e001 | | Load 0x0,0x1
046a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
046b 1816 | | Execute Package,Field_Execute,Field_Number 0x16
046c 785a |xZ | Jump 0x4c7
046d e270 | p | Load 0x1,0x70
046e 4811 |H | Short_Literal 0x11
046f e241 | A | Load 0x1,0x41
0470 e001 | | Load 0x0,0x1
0471 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0472 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0473 7853 |xS | Jump 0x4c7
0474 e270 | p | Load 0x1,0x70
0475 4812 |H | Short_Literal 0x12
0476 e244 | D | Load 0x1,0x44
0477 e001 | | Load 0x0,0x1
0478 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0479 1816 | | Execute Package,Field_Execute,Field_Number 0x16
047a 784c |xL | Jump 0x4c7
047b e270 | p | Load 0x1,0x70
047c 4813 |H | Short_Literal 0x13
047d e247 | G | Load 0x1,0x47
047e e001 | | Load 0x0,0x1
047f 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0480 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0481 7845 |xE | Jump 0x4c7
0482 e270 | p | Load 0x1,0x70
0483 4814 |H | Short_Literal 0x14
0484 e24a | J | Load 0x1,0x4a
0485 e001 | | Load 0x0,0x1
0486 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0487 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0488 783e |x> | Jump 0x4c7
0489 e270 | p | Load 0x1,0x70
048a 4815 |H | Short_Literal 0x15
048b e24d | M | Load 0x1,0x4d
048c e001 | | Load 0x0,0x1
048d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
048e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
048f 7837 |x7 | Jump 0x4c7
0490 e270 | p | Load 0x1,0x70
0491 4816 |H | Short_Literal 0x16
0492 e250 | P | Load 0x1,0x50
0493 e001 | | Load 0x0,0x1
0494 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0495 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0496 7830 |x0 | Jump 0x4c7
0497 e270 | p | Load 0x1,0x70
0498 4817 |H | Short_Literal 0x17
0499 e253 | S | Load 0x1,0x53
049a e001 | | Load 0x0,0x1
049b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
049c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
049d 7829 |x) | Jump 0x4c7
049e e270 | p | Load 0x1,0x70
049f 4818 |H | Short_Literal 0x18
04a0 e256 | V | Load 0x1,0x56
04a1 e001 | | Load 0x0,0x1
04a2 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
04a3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04a4 7822 |x" | Jump 0x4c7
04a5 e270 | p | Load 0x1,0x70
04a6 4819 |H | Short_Literal 0x19
04a7 e259 | Y | Load 0x1,0x59
04a8 e001 | | Load 0x0,0x1
04a9 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
04aa 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04ab 781b |x | Jump 0x4c7
04ac e270 | p | Load 0x1,0x70
04ad 481a |H | Short_Literal 0x1a
04ae e25c | \ | Load 0x1,0x5c
04af e001 | | Load 0x0,0x1
04b0 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
04b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04b2 7814 |x | Jump 0x4c7
04b3 e270 | p | Load 0x1,0x70
04b4 481b |H | Short_Literal 0x1b
04b5 e25f | _ | Load 0x1,0x5f
04b6 e001 | | Load 0x0,0x1
04b7 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
04b8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04b9 780d |x | Jump 0x4c7
04ba e270 | p | Load 0x1,0x70
04bb 481c |H | Short_Literal 0x1c
04bc e262 | b | Load 0x1,0x62
04bd e001 | | Load 0x0,0x1
04be 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
04bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04c0 7806 |x | Jump 0x4c7
04c1 e270 | p | Load 0x1,0x70
04c2 481d |H | Short_Literal 0x1d
04c3 e265 | e | Load 0x1,0x65
04c4 e001 | | Load 0x0,0x1
04c5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
04c6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04c7 e001 | | Load 0x0,0x1
04c8 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
04c9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
04ca 00da | | Load_Top At_Offset_2
04cb 7003 |p | Jump_Nonzero 0x4cf
04cc e001 | | Load 0x0,0x1
04cd 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
04ce 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3 | | .CONST 0x04d3 ; Address of begin
04d1 0004 | | .CONST 0x0004 ; Address of exception handler
04d2 0001 | | .CONST 0x0001 ; Number of locals
04d3 BODY_04d0:
04d3 INIT_04d0:
04d3 00cf | | Action Mark_Auxiliary
04d4 481e |H | Short_Literal 0x1e
04d5 4801 |H | Short_Literal 0x1
04d6 0007 | | Action Break_Optional
04d7 4800 |H | Short_Literal 0x0
04d8 00d9 | | Load_Top At_Offset_1
04d9 e26f | o | Load 0x1,0x6f
04da 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04db 01d6 | | Execute Vector,Field_Write
04dc 00c8 | | Action Pop_Auxiliary_Range
04dd 3ff9 |? | Loop_Increasing 0x4d7
04de 00ce | | Action Pop_Auxiliary
04df 4800 |H | Short_Literal 0x0
04e0 e26f | o | Load 0x1,0x6f
04e1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04e3 0000 0000 | | .BLANK 0000[0x5]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04f2 | | .CONST 0x04f2 ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0004 | | .CONST 0x0004 ; Number of locals
04eb INIT_04e8:
04eb 00e3 | | Load_Encached Natural_Cache
04ec 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04ed 00e3 | | Load_Encached Natural_Cache
04ee 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
04ef 608c |` | Indirect_Literal Discrete,0x57c,{0x00000000, 0x7fffffff}
04f0 00e3 | | Load_Encached Natural_Cache
04f1 03f1 | | Declare_Variable Discrete,With_Value
04f2 BODY_04e8:
04f2 e001 | | Load 0x0,0x1
04f3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
04f4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04f5 00cf | | Action Mark_Auxiliary
04f6 e26b | k | Load 0x1,0x6b
04f7 4801 |H | Short_Literal 0x1
04f8 0263 | c | Execute Discrete,Above_Bound
04f9 702e |p. | Jump_Nonzero 0x528
04fa 00d8 | | Load_Top At_Offset_0
04fb 827c | | | Call 0x1,0x7c
04fc e273 | s | Load 0x1,0x73
04fd e001 | | Load 0x0,0x1
04fe 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
04ff 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0500 6825 |h% | Jump_Zero 0x526
0501 4800 |H | Short_Literal 0x0
0502 a403 | | Store_Unchecked 0x2,0x3
0503 00cf | | Action Mark_Auxiliary
0504 e26f | o | Load 0x1,0x6f
0505 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0506 4801 |H | Short_Literal 0x1
0507 0263 | c | Execute Discrete,Above_Bound
0508 700b |p | Jump_Nonzero 0x514
0509 00d8 | | Load_Top At_Offset_0
050a e26f | o | Load 0x1,0x6f
050b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
050c 01d7 | | Execute Vector,Field_Read
050d e407 | | Load 0x2,0x7
050e 027f | | Execute Discrete,Equal
050f 6802 |h | Jump_Zero 0x512
0510 00d8 | | Load_Top At_Offset_0
0511 a403 | | Store_Unchecked 0x2,0x3
0512 00c8 | | Action Pop_Auxiliary_Range
0513 3ff5 |? | Loop_Increasing 0x509
0514 00ce | | Action Pop_Auxiliary
0515 e403 | | Load 0x2,0x3
0516 7004 |p | Jump_Nonzero 0x51b
0517 00d8 | | Load_Top At_Offset_0
0518 a402 | | Store_Unchecked 0x2,0x2
0519 00d2 | | Pop_Control Pop_Count_2
051a 780d |x | Jump 0x528
051b e403 | | Load 0x2,0x3
051c e404 | | Load 0x2,0x4
051d 027c | | | Execute Discrete,Less
051e 6807 |h | Jump_Zero 0x526
051f e403 | | Load 0x2,0x3
0520 a404 | | Store_Unchecked 0x2,0x4
0521 00db | | Load_Top At_Offset_3
0522 e26f | o | Load 0x1,0x6f
0523 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0524 01d7 | | Execute Vector,Field_Read
0525 a402 | | Store_Unchecked 0x2,0x2
0526 00c8 | | Action Pop_Auxiliary_Range
0527 3fd2 |? | Loop_Increasing 0x4fa
0528 00ce | | Action Pop_Auxiliary
0529 e001 | | Load 0x0,0x1
052a 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
052b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
052c 00da | | Load_Top At_Offset_2
052d 7009 |p | Jump_Nonzero 0x537
052e 827e | ~ | Call 0x1,0x7e
052f e001 | | Load 0x0,0x1
0530 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0531 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0532 e001 | | Load 0x0,0x1
0533 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0534 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0535 4800 |H | Short_Literal 0x0
0536 00ca | | Action Exit_Nullary_Function
0537 e26f | o | Load 0x1,0x6f
0538 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0539 0a01 | | Execute_Immediate Plus,0x1
053a e26f | o | Load 0x1,0x6f
053b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
053c e26f | o | Load 0x1,0x6f
053d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
053e 0c1f | | Execute_Immediate Greater_Equal,0x1f
053f 6813 |h | Jump_Zero 0x553
0540 481e |H | Short_Literal 0x1e
0541 e26f | o | Load 0x1,0x6f
0542 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0543 00cf | | Action Mark_Auxiliary
0544 481d |H | Short_Literal 0x1d
0545 4801 |H | Short_Literal 0x1
0546 0007 | | Action Break_Optional
0547 00d8 | | Load_Top At_Offset_0
0548 0a01 | | Execute_Immediate Plus,0x1
0549 e26f | o | Load 0x1,0x6f
054a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
054b 01d7 | | Execute Vector,Field_Read
054c 00d9 | | Load_Top At_Offset_1
054d e26f | o | Load 0x1,0x6f
054e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
054f 01d6 | | Execute Vector,Field_Write
0550 00c8 | | Action Pop_Auxiliary_Range
0551 3ff5 |? | Loop_Increasing 0x547
0552 00ce | | Action Pop_Auxiliary
0553 00da | | Load_Top At_Offset_2
0554 e26f | o | Load 0x1,0x6f
0555 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0556 e26f | o | Load 0x1,0x6f
0557 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0558 01d6 | | Execute Vector,Field_Write
0559 00da | | Load_Top At_Offset_2
055a 00d8 | | Load_Top At_Offset_0
055b 00e4 | | Load_Encached Positive_Cache
055c 0260 | ` | Execute Discrete,In_Type
055d 7001 |p | Jump_Nonzero 0x55f
055e 0801 | | Execute_Immediate Raise,0x1
055f 827c | | | Call 0x1,0x7c
0560 e273 | s | Load 0x1,0x73
0561 e001 | | Load 0x0,0x1
0562 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0563 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0564 e270 | p | Load 0x1,0x70
0565 016d | m | Execute Variant_Record,Structure_Write
0566 4805 |H | Short_Literal 0x5
0567 e001 | | Load 0x0,0x1
0568 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0569 1819 | | Execute Package,Field_Execute,Field_Number 0x19
056a 4807 |H | Short_Literal 0x7
056b e001 | | Load 0x0,0x1
056c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
056d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
056e 0278 | x | Execute Discrete,Or
056f 6805 |h | Jump_Zero 0x575
0570 e270 | p | Load 0x1,0x70
0571 00db | | Load_Top At_Offset_3
0572 e001 | | Load 0x0,0x1
0573 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0574 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0575 00da | | Load_Top At_Offset_2
0576 827d | } | Call 0x1,0x7d
0577 4801 |H | Short_Literal 0x1
0578 00ca | | Action Exit_Nullary_Function
0579 0000 0000 | | .XXX[0x3]
057b 0000 | |
057c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 0585 | | .CONST 0x0585 ; Address of begin
0581 0004 | | .CONST 0x0004 ; Address of exception handler
0582 0002 | | .CONST 0x0002 ; Number of locals
0583 INIT_0580:
0583 00e1 | | Load_Encached Boolean_Cache
0584 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0585 BODY_0580:
0585 4800 |H | Short_Literal 0x0
0586 a272 | r | Store_Unchecked 0x1,0x72
0587 e001 | | Load 0x0,0x1
0588 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0589 1812 | | Execute Package,Field_Execute,Field_Number 0x12
058a 00cf | | Action Mark_Auxiliary
058b e26b | k | Load 0x1,0x6b
058c 4801 |H | Short_Literal 0x1
058d 0263 | c | Execute Discrete,Above_Bound
058e 7085 |p | Jump_Nonzero 0x614
058f 00d8 | | Load_Top At_Offset_0
0590 827c | | | Call 0x1,0x7c
0591 00cf | | Action Mark_Auxiliary
0592 e273 | s | Load 0x1,0x73
0593 e001 | | Load 0x0,0x1
0594 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0595 180f | | Execute Package,Field_Execute,Field_Number 0xf
0596 4801 |H | Short_Literal 0x1
0597 0263 | c | Execute Discrete,Above_Bound
0598 7078 |px | Jump_Nonzero 0x611
0599 00d8 | | Load_Top At_Offset_0
059a e273 | s | Load 0x1,0x73
059b e001 | | Load 0x0,0x1
059c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
059d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
059e e274 | t | Load 0x1,0x74
059f 016d | m | Execute Variant_Record,Structure_Write
05a0 e402 | | Load 0x2,0x2
05a1 6812 |h | Jump_Zero 0x5b4
05a2 e274 | t | Load 0x1,0x74
05a3 e270 | p | Load 0x1,0x70
05a4 016d | m | Execute Variant_Record,Structure_Write
05a5 e274 | t | Load 0x1,0x74
05a6 1d78 | x | Execute_Immediate Reference_Lex_1,0x78
05a7 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
05a8 e001 | | Load 0x0,0x1
05a9 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05aa 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
05ab 00d1 | | Pop_Control Pop_Count_1
05ac e274 | t | Load 0x1,0x74
05ad e271 | q | Load 0x1,0x71
05ae 016d | m | Execute Variant_Record,Structure_Write
05af 00db | | Load_Top At_Offset_3
05b0 a272 | r | Store_Unchecked 0x1,0x72
05b1 4800 |H | Short_Literal 0x0
05b2 a402 | | Store_Unchecked 0x2,0x2
05b3 785b |x[ | Jump 0x60f
05b4 e210 | | Load 0x1,0x10
05b5 0f01 | | Execute_Immediate Equal,0x1
05b6 e274 | t | Load 0x1,0x74
05b7 e001 | | Load 0x0,0x1
05b8 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ba 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05bb e270 | p | Load 0x1,0x70
05bc e001 | | Load 0x0,0x1
05bd 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05bf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05c0 027d | } | Execute Discrete,Greater
05c1 0279 | y | Execute Discrete,And
05c2 6806 |h | Jump_Zero 0x5c9
05c3 00db | | Load_Top At_Offset_3
05c4 a272 | r | Store_Unchecked 0x1,0x72
05c5 e274 | t | Load 0x1,0x74
05c6 e270 | p | Load 0x1,0x70
05c7 016d | m | Execute Variant_Record,Structure_Write
05c8 7846 |xF | Jump 0x60f
05c9 e274 | t | Load 0x1,0x74
05ca e275 | u | Load 0x1,0x75
05cb 016d | m | Execute Variant_Record,Structure_Write
05cc e274 | t | Load 0x1,0x74
05cd 1d78 | x | Execute_Immediate Reference_Lex_1,0x78
05ce 1d79 | y | Execute_Immediate Reference_Lex_1,0x79
05cf e001 | | Load 0x0,0x1
05d0 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05d1 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
05d2 00d1 | | Pop_Control Pop_Count_1
05d3 00cf | | Action Mark_Auxiliary
05d4 e274 | t | Load 0x1,0x74
05d5 e001 | | Load 0x0,0x1
05d6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05d7 180f | | Execute Package,Field_Execute,Field_Number 0xf
05d8 4801 |H | Short_Literal 0x1
05d9 0263 | c | Execute Discrete,Above_Bound
05da 7033 |p3 | Jump_Nonzero 0x60e
05db 00d8 | | Load_Top At_Offset_0
05dc e274 | t | Load 0x1,0x74
05dd e001 | | Load 0x0,0x1
05de 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05df 181d | | Execute Package,Field_Execute,Field_Number 0x1d
05e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05e1 00d9 | | Load_Top At_Offset_1
05e2 e271 | q | Load 0x1,0x71
05e3 e001 | | Load 0x0,0x1
05e4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05e5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
05e6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05e7 027d | } | Execute Discrete,Greater
05e8 680a |h | Jump_Zero 0x5f3
05e9 e405 | | Load 0x2,0x5
05ea a272 | r | Store_Unchecked 0x1,0x72
05eb e275 | u | Load 0x1,0x75
05ec e270 | p | Load 0x1,0x70
05ed 016d | m | Execute Variant_Record,Structure_Write
05ee e274 | t | Load 0x1,0x74
05ef e271 | q | Load 0x1,0x71
05f0 016d | m | Execute Variant_Record,Structure_Write
05f1 00d2 | | Pop_Control Pop_Count_2
05f2 781b |x | Jump 0x60e
05f3 00d8 | | Load_Top At_Offset_0
05f4 e274 | t | Load 0x1,0x74
05f5 e001 | | Load 0x0,0x1
05f6 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05f7 181d | | Execute Package,Field_Execute,Field_Number 0x1d
05f8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05f9 00d9 | | Load_Top At_Offset_1
05fa e271 | q | Load 0x1,0x71
05fb e001 | | Load 0x0,0x1
05fc 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05fd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
05fe 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05ff 027c | | | Execute Discrete,Less
0600 6802 |h | Jump_Zero 0x603
0601 00d2 | | Pop_Control Pop_Count_2
0602 780b |x | Jump 0x60e
0603 00d8 | | Load_Top At_Offset_0
0604 e270 | p | Load 0x1,0x70
0605 e001 | | Load 0x0,0x1
0606 1b20 | | Execute Package,Field_Read,Field_Number 0x20
0607 180f | | Execute Package,Field_Execute,Field_Number 0xf
0608 027f | | Execute Discrete,Equal
0609 6802 |h | Jump_Zero 0x60c
060a 00d2 | | Pop_Control Pop_Count_2
060b 7802 |x | Jump 0x60e
060c 00c8 | | Action Pop_Auxiliary_Range
060d 3fcd |? | Loop_Increasing 0x5db
060e 00ce | | Action Pop_Auxiliary
060f 00c8 | | Action Pop_Auxiliary_Range
0610 3f88 |? | Loop_Increasing 0x599
0611 00ce | | Action Pop_Auxiliary
0612 00c8 | | Action Pop_Auxiliary_Range
0613 3f7b |?{ | Loop_Increasing 0x58f
0614 00ce | | Action Pop_Auxiliary
0615 e001 | | Load 0x0,0x1
0616 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0617 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0618 e272 | r | Load 0x1,0x72
0619 680f |h | Jump_Zero 0x629
061a 4805 |H | Short_Literal 0x5
061b e001 | | Load 0x0,0x1
061c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
061d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
061e 4807 |H | Short_Literal 0x7
061f e001 | | Load 0x0,0x1
0620 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0621 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0622 0278 | x | Execute Discrete,Or
0623 6805 |h | Jump_Zero 0x629
0624 e270 | p | Load 0x1,0x70
0625 e272 | r | Load 0x1,0x72
0626 e001 | | Load 0x0,0x1
0627 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0628 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0629 e272 | r | Load 0x1,0x72
062a 827d | } | Call 0x1,0x7d
062b e272 | r | Load 0x1,0x72
062c 0e00 | | Execute_Immediate Not_Equal,0x0
062d 00ca | | Action Exit_Nullary_Function
062e 0000 0000 | | .XXX[0x2]
0630 ; --------------------------------------------------------------------------------------
0630 ; SUBPROGRAM
0630 ; --------------------------------------------------------------------------------------
0630 0633 | 3 | .CONST 0x0633 ; Address of begin
0631 0004 | | .CONST 0x0004 ; Address of exception handler
0632 0001 | | .CONST 0x0001 ; Number of locals
0633 BODY_0630:
0633 INIT_0630:
0633 e001 | | Load 0x0,0x1
0634 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0635 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0636 00cf | | Action Mark_Auxiliary
0637 e26b | k | Load 0x1,0x6b
0638 4801 |H | Short_Literal 0x1
0639 0263 | c | Execute Discrete,Above_Bound
063a 7025 |p% | Jump_Nonzero 0x660
063b 00d8 | | Load_Top At_Offset_0
063c 827c | | | Call 0x1,0x7c
063d e273 | s | Load 0x1,0x73
063e e001 | | Load 0x0,0x1
063f 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0640 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0641 681c |h | Jump_Zero 0x65e
0642 e001 | | Load 0x0,0x1
0643 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0644 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0645 e273 | s | Load 0x1,0x73
0646 e001 | | Load 0x0,0x1
0647 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0648 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0649 e270 | p | Load 0x1,0x70
064a 016d | m | Execute Variant_Record,Structure_Write
064b 4805 |H | Short_Literal 0x5
064c e001 | | Load 0x0,0x1
064d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
064e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
064f 4807 |H | Short_Literal 0x7
0650 e001 | | Load 0x0,0x1
0651 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0652 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0653 0278 | x | Execute Discrete,Or
0654 6805 |h | Jump_Zero 0x65a
0655 e270 | p | Load 0x1,0x70
0656 00d9 | | Load_Top At_Offset_1
0657 e001 | | Load 0x0,0x1
0658 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0659 1815 | | Execute Package,Field_Execute,Field_Number 0x15
065a 00d8 | | Load_Top At_Offset_0
065b 827d | } | Call 0x1,0x7d
065c 4801 |H | Short_Literal 0x1
065d 00ca | | Action Exit_Nullary_Function
065e 00c8 | | Action Pop_Auxiliary_Range
065f 3fdb |? | Loop_Increasing 0x63b
0660 00ce | | Action Pop_Auxiliary
0661 e001 | | Load 0x0,0x1
0662 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0663 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0664 e001 | | Load 0x0,0x1
0665 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0666 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0667 4800 |H | Short_Literal 0x0
0668 00ca | | Action Exit_Nullary_Function
0669 0000 0000 | | .BLANK 0000[0x7]
0670 ; --------------------------------------------------------------------------------------
0670 ; SUBPROGRAM
0670 ; --------------------------------------------------------------------------------------
0670 0674 | t | .CONST 0x0674 ; Address of begin
0671 0004 | | .CONST 0x0004 ; Address of exception handler
0672 0002 | | .CONST 0x0002 ; Number of locals
0673 INIT_0670:
0673 00e1 | | Load_Encached Boolean_Cache
0674 BODY_0670:
0674 e210 | | Load 0x1,0x10
0675 7009 |p | Jump_Nonzero 0x67f
0676 0092 06c1 | | Action Push_String_Extended,0x6c1 ; " LEX "
0678 e001 | | Load 0x0,0x1
0679 1b13 | | Execute Package,Field_Read,Field_Number 0x13
067a 01c3 | | Execute Vector,Check_In_Type
067b e001 | | Load 0x0,0x1
067c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
067d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
067e 7810 |x | Jump 0x68f
067f e210 | | Load 0x1,0x10
0680 0f01 | | Execute_Immediate Equal,0x1
0681 6809 |h | Jump_Zero 0x68b
0682 0092 06c2 | | Action Push_String_Extended,0x6c2 ; " MEA "
0684 e001 | | Load 0x0,0x1
0685 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0686 01c3 | | Execute Vector,Check_In_Type
0687 e001 | | Load 0x0,0x1
0688 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0689 1811 | | Execute Package,Field_Execute,Field_Number 0x11
068a 7804 |x | Jump 0x68f
068b e5fe | | Load 0x2,-0x2
068c e001 | | Load 0x0,0x1
068d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
068e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
068f e5fc | | Load 0x2,-0x4
0690 7009 |p | Jump_Nonzero 0x69a
0691 00cf | | Action Mark_Auxiliary
0692 85fd | | Call 0x2,-0x3
0693 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0694 00d9 | | Load_Top At_Offset_1
0695 6802 |h | Jump_Zero 0x698
0696 00c9 | | Action Pop_Auxiliary_Loop
0697 7ffa | | Jump 0x692
0698 00ce | | Action Pop_Auxiliary
0699 780e |x | Jump 0x6a8
069a 00cf | | Action Mark_Auxiliary
069b e5fc | | Load 0x2,-0x4
069c 4801 |H | Short_Literal 0x1
069d 0263 | c | Execute Discrete,Above_Bound
069e 7008 |p | Jump_Nonzero 0x6a7
069f 85fd | | Call 0x2,-0x3
06a0 a402 | | Store_Unchecked 0x2,0x2
06a1 00db | | Load_Top At_Offset_3
06a2 7002 |p | Jump_Nonzero 0x6a5
06a3 00d2 | | Pop_Control Pop_Count_2
06a4 7802 |x | Jump 0x6a7
06a5 00c8 | | Action Pop_Auxiliary_Range
06a6 3ff8 |? | Loop_Increasing 0x69f
06a7 00ce | | Action Pop_Auxiliary
06a8 00d8 | | Load_Top At_Offset_0
06a9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
06aa 0000 0000 | | .BLANK 0000[0x6]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; SUBPROGRAM
06b0 ; --------------------------------------------------------------------------------------
06b0 06b9 | | .CONST 0x06b9 ; Address of begin
06b1 0004 | | .CONST 0x0004 ; Address of exception handler
06b2 0002 | | .CONST 0x0002 ; Number of locals
06b3 INIT_06b0:
06b3 e001 | | Load 0x0,0x1
06b4 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
06b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06b6 02ff | | Declare_Variable Variant_Record
06b7 00d8 | | Load_Top At_Offset_0
06b8 1c00 | | Execute_Immediate Run_Utility,0x0
06b9 BODY_06b0:
06b9 00d8 | | Load_Top At_Offset_0
06ba e273 | s | Load 0x1,0x73
06bb 016d | m | Execute Variant_Record,Structure_Write
06bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06bd ; --------------------------------------------------------------------------------------
06bd ; STRING TABLE
06bd ; --------------------------------------------------------------------------------------
06bd 000e | | .STRTAB 0x000e->0x06c4 ; " /// "
06be 0011 | | .STRTAB 0x0011->0x06c6 ; " LRU "
06bf 0014 | | .STRTAB 0x0014->0x06c9 ; "FIRST"
06c0 0017 | | .STRTAB 0x0017->0x06cb ; "NO OPERATION ! "
06c1 0024 | $ | .STRTAB 0x0024->0x06d3 ; " LEX "
06c2 0027 | ' | .STRTAB 0x0027->0x06d5 ; " MEA "
06c3 002a | * | .STREND 0x002a->0x06d8
06c4 202f 2f2f | ///| .STRTAB_STRINGS
06d8 ; --------------------------------------------------------------------------------------
06d8 ; Debug Table
06d8 ; --------------------------------------------------------------------------------------
06d8 0004 0001 | | .DEBUG4 0x0004,0x0001,0x63ff,0x0000,0x0001,0x000d
06de 000b 0712 | | .DBG4T 0x000b,0x0712,0x4000,0x0000
06e2 000e 0715 | | .DBG4T 0x000e,0x0715,0x4000,0x8000
06e6 00b3 0749 | I| .DBG4T 0x00b3,0x0749,0x1002,0x0000
06ea 00db 0000 | | .DBG4T 0x00db,0x0000,0x1005,0x0000
06ee 0103 0751 | Q| .DBG4T 0x0103,0x0751,0x1002,0x0000
06f2 0113 0754 | T| .DBG4T 0x0113,0x0754,0x1001,0x4000
06f6 033b 07d8 | ; | .DBG4T 0x033b,0x07d8,0x1001,0x4000
06fa 04d3 0860 | `| .DBG4T 0x04d3,0x0860,0x1001,0x0000
06fe 04eb 0865 | e| .DBG4T 0x04eb,0x0865,0x1002,0x0000
0702 0583 088a | | .DBG4T 0x0583,0x088a,0x1002,0x0000
0706 0633 08ad | 3 | .DBG4T 0x0633,0x08ad,0x1002,0x0000
070a 0673 08bc | s | .DBG4T 0x0673,0x08bc,0x3802,0x4002
070e 06b3 08d7 | | .DBG4T 0x06b3,0x08d7,0x1004,0x0000
0712 ; --------------------------------------------------------------------------------------
0712 ; Debug chain
0712 ; --------------------------------------------------------------------------------------
0712 0001 0000 | | .DBGLEN 0x0001,0x0000
0714 000b | | .DBGLNO 0x000b
0715 ; --------------------------------------------------------------------------------------
0715 ; Debug chain
0715 ; --------------------------------------------------------------------------------------
0715 0018 0002 | | .DBGLEN 0x0018,0x0002
0717 000e 0014 | | .DBGLNO 0x000e,0x0014,0x001a,0x001e,0x0024,0x002a,0x002c,0x0032,0x0038,0x003e,0x0040,0x0042,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x0067,0x0073,0x007f,0x0081,0x0085
0731 0003 0004 | | .XXX[0x18]
0733 0005 0006 | |
0735 0007 0008 | |
0737 0009 000a | |
0739 000b 000c | |
073b 000d 000e | |
073d 000f 0010 | |
073f 0011 0012 | |
0741 0013 0014 | |
0743 0015 0016 | |
0745 0017 0018 | |
0747 0019 001a | |
0749 ; --------------------------------------------------------------------------------------
0749 ; Debug chain
0749 ; --------------------------------------------------------------------------------------
0749 0000 0006 | | .DBGLEN 0x0000,0x0006
074b 00b3 00b8 | | .DBGLNO 0x00b3,0x00b8,0x00be,0x00c4,0x00c7,0x00cd
0751 ; --------------------------------------------------------------------------------------
0751 ; Debug chain
0751 ; --------------------------------------------------------------------------------------
0751 0000 0001 | | .DBGLEN 0x0000,0x0001
0753 0103 | | .DBGLNO 0x0103
0754 ; --------------------------------------------------------------------------------------
0754 ; Debug chain
0754 ; --------------------------------------------------------------------------------------
0754 0000 0041 | A| .DBGLEN 0x0000,0x0041
0756 0115 0122 | "| .DBGLNO 0x0115,0x0122,0x0146,0x014c,0x0150,0x0154,0x0158,0x015c,0x0160,0x0164,0x0168,0x016c,0x0170,0x0174,0x0178,0x017c,0x0180,0x0184,0x0188,0x018c,0x0190,0x0194,0x0198,0x019c,0x01a0,0x01a4,0x01a8,0x01ac,0x01b0,0x01b4,0x01b8,0x01bc,0x01c0,0x01c1,0x01c6,0x01ea,0x01f7,0x0202,0x020d,0x0218,0x0223,0x022e,0x0239,0x0244,0x024f,0x025a,0x0265,0x0270,0x027b,0x0286,0x0291,0x029c,0x02a7,0x02b2,0x02bd,0x02c8,0x02d3,0x02de,0x02e9,0x02f4,0x02ff,0x030a,0x0315,0x0320,0x032b
0797 0001 0002 | | .XXX[0x41]
0799 0020 0004 | |
079b 0005 0006 | |
079d 0007 0008 | |
079f 0009 000a | |
07a1 000b 000c | |
07a3 000d 000e | |
07a5 000f 0010 | |
07a7 0011 0012 | |
07a9 0013 0014 | |
07ab 0015 0016 | |
07ad 0017 0018 | |
07af 0019 001a | |
07b1 001b 001c | |
07b3 001d 001e | |
07b5 001f 0003 | |
07b7 0022 0023 | " #|
07b9 0024 0042 | $ B|
07bb 0026 0027 | & '|
07bd 0028 0029 | ( )|
07bf 002a 002b | * +|
07c1 002c 002d | , -|
07c3 002e 002f | . /|
07c5 0030 0031 | 0 1|
07c7 0032 0033 | 2 3|
07c9 0034 0035 | 4 5|
07cb 0036 0037 | 6 7|
07cd 0038 0039 | 8 9|
07cf 003a 003b | : ;|
07d1 003c 003d | < =|
07d3 003e 003f | > ?|
07d5 0040 0041 | @ A|
07d7 0025 | % |
07d8 ; --------------------------------------------------------------------------------------
07d8 ; Debug chain
07d8 ; --------------------------------------------------------------------------------------
07d8 0000 0043 | C| .DBGLEN 0x0000,0x0043
07da 033b 035f | ; _| .DBGLNO 0x033b,0x035f,0x0364,0x0367,0x036a,0x036d,0x0370,0x0373,0x0376,0x0379,0x037c,0x037f,0x0382,0x0385,0x0388,0x038b,0x038e,0x0391,0x0394,0x0397,0x039a,0x039d,0x03a0,0x03a3,0x03a6,0x03a9,0x03ac,0x03af,0x03b2,0x03b5,0x03b8,0x03ba,0x03c6,0x03ea,0x03f2,0x03fd,0x0404,0x040b,0x0412,0x0419,0x0420,0x0427,0x042e,0x0435,0x043c,0x0443,0x044a,0x0451,0x0458,0x045f,0x0466,0x046d,0x0474,0x047b,0x0482,0x0489,0x0490,0x0497,0x049e,0x04a5,0x04ac,0x04b3,0x04ba,0x04c1,0x04c7,0x04ca,0x04cc
081d 0001 001f | | .XXX[0x43]
081f 0003 0004 | |
0821 0005 0006 | |
0823 0007 0008 | |
0825 0009 000a | |
0827 000b 000c | |
0829 000d 000e | |
082b 000f 0010 | |
082d 0011 0012 | |
082f 0013 0014 | |
0831 0015 0016 | |
0833 0017 0018 | |
0835 0019 001a | |
0837 001b 001c | |
0839 001d 001e | |
083b 0002 0021 | !|
083d 0022 0040 | " @|
083f 0041 0023 | A #|
0841 0024 0025 | $ %|
0843 0026 0027 | & '|
0845 0028 0029 | ( )|
0847 002a 002b | * +|
0849 002c 002d | , -|
084b 002e 002f | . /|
084d 0030 0031 | 0 1|
084f 0032 0033 | 2 3|
0851 0034 0035 | 4 5|
0853 0036 0037 | 6 7|
0855 0038 0039 | 8 9|
0857 003a 003b | : ;|
0859 003c 003d | < =|
085b 003e 003f | > ?|
085d 0042 0043 | B C|
085f 0044 | D |
0860 ; --------------------------------------------------------------------------------------
0860 ; Debug chain
0860 ; --------------------------------------------------------------------------------------
0860 0000 0003 | | .DBGLEN 0x0000,0x0003
0862 04d4 04d7 | | .DBGLNO 0x04d4,0x04d7,0x04df
0865 ; --------------------------------------------------------------------------------------
0865 ; Debug chain
0865 ; --------------------------------------------------------------------------------------
0865 0003 0020 | | .DBGLEN 0x0003,0x0020
0867 04eb 04ed | | .DBGLNO 0x04eb,0x04ed,0x04ef,0x04f2,0x04f6,0x04fa,0x04fc,0x0501,0x0504,0x0509,0x0510,0x0515,0x0517,0x0519,0x051b,0x051f,0x0521,0x0529,0x052c,0x052e,0x052f,0x0532,0x0535,0x0537,0x053c,0x0540,0x0544,0x0547,0x0553,0x0559,0x0560,0x0566,0x0570,0x0575,0x0577
088a ; --------------------------------------------------------------------------------------
088a ; Debug chain
088a ; --------------------------------------------------------------------------------------
088a 0001 0020 | | .DBGLEN 0x0001,0x0020
088c 0583 0585 | | .DBGLNO 0x0583,0x0585,0x0587,0x058b,0x058f,0x0592,0x0599,0x05a0,0x05a2,0x05a5,0x05ac,0x05af,0x05b1,0x05b4,0x05c3,0x05c5,0x05c9,0x05cc,0x05d4,0x05db,0x05e9,0x05eb,0x05ee,0x05f1,0x05f3,0x0601,0x0603,0x060a,0x0615,0x0618,0x0624,0x0629,0x062b
08ad ; --------------------------------------------------------------------------------------
08ad ; Debug chain
08ad ; --------------------------------------------------------------------------------------
08ad 0000 000d | | .DBGLEN 0x0000,0x000d
08af 0633 0637 | 3 7| .DBGLNO 0x0633,0x0637,0x063b,0x063d,0x0642,0x0645,0x064b,0x0655,0x065a,0x065c,0x0661,0x0664,0x0667
08bc ; --------------------------------------------------------------------------------------
08bc ; Debug chain
08bc ; --------------------------------------------------------------------------------------
08bc 0001 000c | | .DBGLEN 0x0001,0x000c
08be 0673 0674 | s t| .DBGLNO 0x0673,0x0674,0x0676,0x067f,0x0682,0x068b,0x068f,0x0692,0x0694,0x069b,0x069f,0x06a1,0x06a8
08cb 0001 0002 | | .XXX[0xc]
08cd 0003 0004 | |
08cf 0005 0006 | |
08d1 0008 0009 | |
08d3 000a 000b | |
08d5 000c 000d | |
08d7 ; --------------------------------------------------------------------------------------
08d7 ; Debug chain
08d7 ; --------------------------------------------------------------------------------------
08d7 0001 0001 | | .DBGLEN 0x0001,0x0001
08d9 06b3 06b9 | | .DBGLNO 0x06b3,0x06b9
08db 0000 0000 | | .BLANK 0000[0x125]