|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0650 | P | .CONST 0x0650 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003f | ? | .CONST 0x003f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0008 | | .CONST 0x0008 ; Number of locals
000b INIT_0008:
000b e21e | | Load 0x1,0x1e
000c e009 | | Load 0x0,0x9
000d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
000e e00a | | Load 0x0,0xa
000f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0010 039c | | Declare_Variable Heap_Access,By_Allocation
0011 e23d | = | Load 0x1,0x3d
0012 0007 | | Action Break_Optional
0013 4800 |H | Short_Literal 0x0
0014 4806 |H | Short_Literal 0x6
0015 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0017 03fd | | Declare_Type Discrete,Defined
0018 00e1 | | Load_Encached Boolean_Cache
0019 0266 | f | Execute Discrete,Bounds
001a e239 | 9 | Load 0x1,0x39
001b 02a0 | | Declare_Subprogram Null_Subprogram
001c 4801 |H | Short_Literal 0x1
001d 035d | ] | Declare_Type Array,Defined
001e 00d8 | | Load_Top At_Offset_0
001f 0337 | 7 | Declare_Variable Array
0020 00d8 | | Load_Top At_Offset_0
0021 0335 | 5 | Declare_Variable Array,Duplicate
0022 00cd | | Action Spare6_Action
0023 0092 061a | | Action Push_String_Extended,0x61a ; "False"
0025 e239 | 9 | Load 0x1,0x39
0026 e009 | | Load 0x0,0x9
0027 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0028 e00a | | Load 0x0,0xa
0029 1811 | | Execute Package,Field_Execute,Field_Number 0x11
002a 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
002b 4800 |H | Short_Literal 0x0
002c e407 | | Load 0x2,0x7
002d 01d6 | | Execute Vector,Field_Write
002e 0092 061b | | Action Push_String_Extended,0x61b ; "True"
0030 e239 | 9 | Load 0x1,0x39
0031 e009 | | Load 0x0,0x9
0032 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0033 e00a | | Load 0x0,0xa
0034 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0035 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0036 4801 |H | Short_Literal 0x1
0037 e407 | | Load 0x2,0x7
0038 01d6 | | Execute Vector,Field_Write
0039 e406 | | Load 0x2,0x6
003a 01d4 | | Execute Vector,Structure_Write
003b 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
003d 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call
003f BODY_0008:
003f e5ff | | Load 0x2,-0x1
0040 8407 | | Call 0x2,0x7
0041 e403 | | Load 0x2,0x3
0042 8408 | | Call 0x2,0x8
0043 e402 | | Load 0x2,0x2
0044 0217 | | Execute Heap_Access,All_Reference
0045 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0046 e402 | | Load 0x2,0x2
0047 0217 | | Execute Heap_Access,All_Reference
0048 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0049 e402 | | Load 0x2,0x2
004a 0217 | | Execute Heap_Access,All_Reference
004b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
004c e402 | | Load 0x2,0x2
004d 0217 | | Execute Heap_Access,All_Reference
004e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
004f a5fd | | Store_Unchecked 0x2,-0x3
0050 e402 | | Load 0x2,0x2
0051 a5fe | | Store_Unchecked 0x2,-0x2
0052 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0053 0000 0000 | | .BLANK 0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 4607 |F | Jump_Case 0x8
005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
005d 7806 |x | Jump 0x64 ; case 0x1
005e 7809 |x | Jump 0x68 ; case 0x2
005f 780d |x | Jump 0x6d ; case 0x3
0060 7810 |x | Jump 0x71 ; case 0x4
0061 7811 |x | Jump 0x73 ; case 0x5
0062 7812 |x | Jump 0x75 ; case 0x6
0063 7815 |x | Jump 0x79 ; case 0x7
0064 00da | | Load_Top At_Offset_2
0065 0091 0613 | | Action Push_String_Extended_Indexed,0x613 ; "ARROW"
0067 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0068 00db | | Load_Top At_Offset_3
0069 00db | | Load_Top At_Offset_3
006a 00e0 | | Load_Encached Standard_Cache
006b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
006c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006d 00da | | Load_Top At_Offset_2
006e 00e0 | | Load_Encached Standard_Cache
006f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0070 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0071 00db | | Load_Top At_Offset_3
0072 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0073 00db | | Load_Top At_Offset_3
0074 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0075 e404 | | Load 0x2,0x4
0076 00dc | | Load_Top At_Offset_4
0077 0267 | g | Execute Discrete,Predecessor
0078 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0079 e404 | | Load 0x2,0x4
007a 00dc | | Load_Top At_Offset_4
007b 0268 | h | Execute Discrete,Successor
007c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007d 0000 0000 | | .XXX[0x3]
007f 0000 | |
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 00ab | | .CONST 0x00ab ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0014 | | .CONST 0x0014 ; Number of locals
0083 INIT_0080:
0083 e7ff | | Load 0x3,-0x1
0084 01dd | | Execute Vector,First
0085 00e2 | | Load_Encached Integer_Cache
0086 03f1 | | Declare_Variable Discrete,With_Value
0087 e7ff | | Load 0x3,-0x1
0088 01dc | | Execute Vector,Last
0089 00e2 | | Load_Encached Integer_Cache
008a 03f1 | | Declare_Variable Discrete,With_Value
008b e404 | | Load 0x2,0x4
008c 0007 | | Action Break_Optional
008d 00e2 | | Load_Encached Integer_Cache
008e 03e9 | | Declare_Variable Discrete,Duplicate
008f e239 | 9 | Load 0x1,0x39
0090 0007 | | Action Break_Optional
0091 00d8 | | Load_Top At_Offset_0
0092 0007 | | Action Break_Optional
0093 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0095 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
0097 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call
0099 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
009b 029f 019b | | Declare_Subprogram INIT_0198,For_Call
009d 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
009f 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
00a1 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
00a3 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
00a5 029f 038b | | Declare_Subprogram INIT_0388,For_Call
00a7 029f 040b | | Declare_Subprogram INIT_0408,For_Call
00a9 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call
00ab BODY_0080:
00ab 8610 | | Call 0x3,0x10
00ac 00cf | | Action Mark_Auxiliary
00ad e604 | | Load 0x3,0x4
00ae 0f06 | | Execute_Immediate Equal,0x6
00af 680a |h | Jump_Zero 0xba
00b0 e605 | | Load 0x3,0x5
00b1 e7ff | | Load 0x3,-0x1
00b2 01d7 | | Execute Vector,Field_Read
00b3 0f5f | _ | Execute_Immediate Equal,0x5f
00b4 6805 |h | Jump_Zero 0xba
00b5 8610 | | Call 0x3,0x10
00b6 8611 | | Call 0x3,0x11
00b7 e608 | | Load 0x3,0x8
00b8 860f | | Call 0x3,0xf
00b9 7807 |x | Jump 0xc1
00ba e604 | | Load 0x3,0x4
00bb 0e04 | | Execute_Immediate Not_Equal,0x4
00bc 6804 |h | Jump_Zero 0xc1
00bd e604 | | Load 0x3,0x4
00be 0e05 | | Execute_Immediate Not_Equal,0x5
00bf 6801 |h | Jump_Zero 0xc1
00c0 8614 | | Call 0x3,0x14
00c1 00cf | | Action Mark_Auxiliary
00c2 7802 |x | Jump 0xc5
00c3 8610 | | Call 0x3,0x10
00c4 00c9 | | Action Pop_Auxiliary_Loop
00c5 e604 | | Load 0x3,0x4
00c6 0f04 | | Execute_Immediate Equal,0x4
00c7 77fb |w | Jump_Nonzero 0xc3
00c8 00ce | | Action Pop_Auxiliary
00c9 e604 | | Load 0x3,0x4
00ca 0f05 | | Execute_Immediate Equal,0x5
00cb 7002 |p | Jump_Nonzero 0xce
00cc 00c9 | | Action Pop_Auxiliary_Loop
00cd 7fdf | | Jump 0xad
00ce 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d9 | | .CONST 0x00d9 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0004 | | .CONST 0x0004 ; Number of locals
00d3 INIT_00d0:
00d3 e7ff | | Load 0x3,-0x1
00d4 0007 | | Action Break_Optional
00d5 e23d | = | Load 0x1,0x3d
00d6 0007 | | Action Break_Optional
00d7 00d8 | | Load_Top At_Offset_0
00d8 0007 | | Action Break_Optional
00d9 BODY_00d0:
00d9 4801 |H | Short_Literal 0x1
00da e402 | | Load 0x2,0x2
00db 0217 | | Execute Heap_Access,All_Reference
00dc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00dd 00cf | | Action Mark_Auxiliary
00de 781c |x | Jump 0xfb
00df e602 | | Load 0x3,0x2
00e0 0217 | | Execute Heap_Access,All_Reference
00e1 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
00e2 a603 | | Store_Unchecked 0x3,0x3
00e3 e604 | | Load 0x3,0x4
00e4 e602 | | Load 0x3,0x2
00e5 0217 | | Execute Heap_Access,All_Reference
00e6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00e7 e602 | | Load 0x3,0x2
00e8 0217 | | Execute Heap_Access,All_Reference
00e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00ea 6807 |h | Jump_Zero 0xf2
00eb 4800 |H | Short_Literal 0x0
00ec e402 | | Load 0x2,0x2
00ed 0217 | | Execute Heap_Access,All_Reference
00ee 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00ef e602 | | Load 0x3,0x2
00f0 a604 | | Store_Unchecked 0x3,0x4
00f1 7806 |x | Jump 0xf8
00f2 e602 | | Load 0x3,0x2
00f3 0217 | | Execute Heap_Access,All_Reference
00f4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00f5 6802 |h | Jump_Zero 0xf8
00f6 e602 | | Load 0x3,0x2
00f7 a604 | | Store_Unchecked 0x3,0x4
00f8 e603 | | Load 0x3,0x3
00f9 a602 | | Store_Unchecked 0x3,0x2
00fa 00c9 | | Action Pop_Auxiliary_Loop
00fb e602 | | Load 0x3,0x2
00fc 77e2 |w | Jump_Nonzero 0xdf
00fd 00ce | | Action Pop_Auxiliary
00fe 00d8 | | Load_Top At_Offset_0
00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0109 | | .CONST 0x0109 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0002 | | .CONST 0x0002 ; Number of locals
0103 INIT_0100:
0103 e23d | = | Load 0x1,0x3d
0104 e009 | | Load 0x0,0x9
0105 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0106 e00a | | Load 0x0,0xa
0107 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0108 039c | | Declare_Variable Heap_Access,By_Allocation
0109 BODY_0100:
0109 e23f | ? | Load 0x1,0x3f
010a e9ff | | Load 0x4,-0x1
010b 00d8 | | Load_Top At_Offset_0
010c e20f | | Load 0x1,0xf
010d 0260 | ` | Execute Discrete,In_Type
010e 7001 |p | Jump_Nonzero 0x110
010f 0801 | | Execute_Immediate Raise,0x1
0110 8246 | F | Call 0x1,0x46
0111 e802 | | Load 0x4,0x2
0112 0217 | | Execute Heap_Access,All_Reference
0113 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0114 00d8 | | Load_Top At_Offset_0
0115 0217 | | Execute Heap_Access,All_Reference
0116 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0117 6805 |h | Jump_Zero 0x11d
0118 4800 |H | Short_Literal 0x0
0119 e802 | | Load 0x4,0x2
011a 0217 | | Execute Heap_Access,All_Reference
011b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
011c 7812 |x | Jump 0x12f
011d 4803 |H | Short_Literal 0x3
011e e802 | | Load 0x4,0x2
011f 0217 | | Execute Heap_Access,All_Reference
0120 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0121 e9ff | | Load 0x4,-0x1
0122 e20f | | Load 0x1,0xf
0123 0122 | " | Execute Any,Make_Root_Type
0124 011c | | Execute Any,Convert_Unchecked
0125 1c01 | | Execute_Immediate Run_Utility,0x1
0126 e239 | 9 | Load 0x1,0x39
0127 e009 | | Load 0x0,0x9
0128 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0129 e00a | | Load 0x0,0xa
012a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
012b 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
012c e802 | | Load 0x4,0x2
012d 0217 | | Execute Heap_Access,All_Reference
012e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
012f 00d8 | | Load_Top At_Offset_0
0130 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0131 0000 0000 | | .BLANK 0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0144 | D | .CONST 0x0144 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0004 | | .CONST 0x0004 ; Number of locals
013b INIT_0138:
013b e23d | = | Load 0x1,0x3d
013c e009 | | Load 0x0,0x9
013d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
013e e00a | | Load 0x0,0xa
013f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0140 039c | | Declare_Variable Heap_Access,By_Allocation
0141 e20f | | Load 0x1,0xf
0142 029f 0543 | C| Declare_Subprogram INIT_0540,For_Call
0144 BODY_0138:
0144 e9ff | | Load 0x4,-0x1
0145 7012 |p | Jump_Nonzero 0x158
0146 4805 |H | Short_Literal 0x5
0147 e802 | | Load 0x4,0x2
0148 0217 | | Execute Heap_Access,All_Reference
0149 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
014a e605 | | Load 0x3,0x5
014b e606 | | Load 0x3,0x6
014c e7ff | | Load 0x3,-0x1
014d 01cf | | Execute Vector,Slice_Read
014e e239 | 9 | Load 0x1,0x39
014f e009 | | Load 0x0,0x9
0150 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0151 e00a | | Load 0x0,0xa
0152 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0153 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0154 e802 | | Load 0x4,0x2
0155 0217 | | Execute Heap_Access,All_Reference
0156 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0157 7801 |x | Jump 0x159
0158 8804 | | Call 0x4,0x4
0159 e802 | | Load 0x4,0x2
015a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015b 0000 0000 | | .BLANK 0000[0x5]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0165 | e | .CONST 0x0165 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e23d | = | Load 0x1,0x3d
0164 0007 | | Action Break_Optional
0165 BODY_0160:
0165 e9ff | | Load 0x4,-0x1
0166 0217 | | Execute Heap_Access,All_Reference
0167 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0168 701d |p | Jump_Nonzero 0x186
0169 e403 | | Load 0x2,0x3
016a a802 | | Store_Unchecked 0x4,0x2
016b 00cf | | Action Mark_Auxiliary
016c 7816 |x | Jump 0x183
016d e802 | | Load 0x4,0x2
016e 0217 | | Execute Heap_Access,All_Reference
016f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0170 700d |p | Jump_Nonzero 0x17e
0171 e802 | | Load 0x4,0x2
0172 0217 | | Execute Heap_Access,All_Reference
0173 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0174 0227 | ' | Execute Access,All_Reference
0175 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0176 e9ff | | Load 0x4,-0x1
0177 0217 | | Execute Heap_Access,All_Reference
0178 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0179 0227 | ' | Execute Access,All_Reference
017a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
017b 027f | | Execute Discrete,Equal
017c 6801 |h | Jump_Zero 0x17e
017d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017e e802 | | Load 0x4,0x2
017f 0217 | | Execute Heap_Access,All_Reference
0180 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0181 a802 | | Store_Unchecked 0x4,0x2
0182 00c9 | | Action Pop_Auxiliary_Loop
0183 e802 | | Load 0x4,0x2
0184 77e8 |w | Jump_Nonzero 0x16d
0185 00ce | | Action Pop_Auxiliary
0186 e403 | | Load 0x2,0x3
0187 e9ff | | Load 0x4,-0x1
0188 0217 | | Execute Heap_Access,All_Reference
0189 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
018a e9ff | | Load 0x4,-0x1
018b a403 | | Store_Unchecked 0x2,0x3
018c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 e9ff | | Load 0x4,-0x1
0194 860a | | Call 0x3,0xa
0195 860b | | Call 0x3,0xb
0196 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019f | | .CONST 0x019f ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0003 | | .CONST 0x0003 ; Number of locals
019b INIT_0198:
019b e23d | = | Load 0x1,0x3d
019c 0007 | | Action Break_Optional
019d 00d8 | | Load_Top At_Offset_0
019e 0007 | | Action Break_Optional
019f BODY_0198:
019f e9ff | | Load 0x4,-0x1
01a0 860a | | Call 0x3,0xa
01a1 a802 | | Store_Unchecked 0x4,0x2
01a2 e9fe | | Load 0x4,-0x2
01a3 860a | | Call 0x3,0xa
01a4 a803 | | Store_Unchecked 0x4,0x3
01a5 e802 | | Load 0x4,0x2
01a6 860b | | Call 0x3,0xb
01a7 e802 | | Load 0x4,0x2
01a8 0217 | | Execute Heap_Access,All_Reference
01a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01aa 7022 |p" | Jump_Nonzero 0x1cd
01ab 00d8 | | Load_Top At_Offset_0
01ac 0217 | | Execute Heap_Access,All_Reference
01ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ae 701e |p | Jump_Nonzero 0x1cd
01af 00cf | | Action Mark_Auxiliary
01b0 e20f | | Load 0x1,0xf
01b1 0122 | " | Execute Any,Make_Root_Type
01b2 e803 | | Load 0x4,0x3
01b3 0217 | | Execute Heap_Access,All_Reference
01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b5 0227 | ' | Execute Access,All_Reference
01b6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b7 0267 | g | Execute Discrete,Predecessor
01b8 e20f | | Load 0x1,0xf
01b9 0122 | " | Execute Any,Make_Root_Type
01ba e802 | | Load 0x4,0x2
01bb 0217 | | Execute Heap_Access,All_Reference
01bc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01bd 0227 | ' | Execute Access,All_Reference
01be 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01bf 0268 | h | Execute Discrete,Successor
01c0 0263 | c | Execute Discrete,Above_Bound
01c1 700a |p | Jump_Nonzero 0x1cc
01c2 00d8 | | Load_Top At_Offset_0
01c3 00d8 | | Load_Top At_Offset_0
01c4 e20f | | Load 0x1,0xf
01c5 0260 | ` | Execute Discrete,In_Type
01c6 7001 |p | Jump_Nonzero 0x1c8
01c7 0801 | | Execute_Immediate Raise,0x1
01c8 8609 | | Call 0x3,0x9
01c9 860b | | Call 0x3,0xb
01ca 00c8 | | Action Pop_Auxiliary_Range
01cb 3ff6 |? | Loop_Increasing 0x1c2
01cc 00ce | | Action Pop_Auxiliary
01cd 00d8 | | Load_Top At_Offset_0
01ce 860b | | Call 0x3,0xb
01cf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d6 | | .CONST 0x01d6 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0003 | | .CONST 0x0003 ; Number of locals
01d3 INIT_01d0:
01d3 e23b | ; | Load 0x1,0x3b
01d4 0007 | | Action Break_Optional
01d5 e23d | = | Load 0x1,0x3d
01d6 BODY_01d0:
01d6 00cf | | Action Mark_Auxiliary
01d7 e9fe | | Load 0x4,-0x2
01d8 e9ff | | Load 0x4,-0x1
01d9 0263 | c | Execute Discrete,Above_Bound
01da 701e |p | Jump_Nonzero 0x1f9
01db e23f | ? | Load 0x1,0x3f
01dc e806 | | Load 0x4,0x6
01dd 00d8 | | Load_Top At_Offset_0
01de e20f | | Load 0x1,0xf
01df 0260 | ` | Execute Discrete,In_Type
01e0 7001 |p | Jump_Nonzero 0x1e2
01e1 0801 | | Execute_Immediate Raise,0x1
01e2 8246 | F | Call 0x1,0x46
01e3 a802 | | Store_Unchecked 0x4,0x2
01e4 e802 | | Load 0x4,0x2
01e5 6811 |h | Jump_Zero 0x1f7
01e6 e23d | = | Load 0x1,0x3d
01e7 e009 | | Load 0x0,0x9
01e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e9 e00a | | Load 0x0,0xa
01ea 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01eb 039c | | Declare_Variable Heap_Access,By_Allocation
01ec a803 | | Store_Unchecked 0x4,0x3
01ed e802 | | Load 0x4,0x2
01ee e803 | | Load 0x4,0x3
01ef 0217 | | Execute Heap_Access,All_Reference
01f0 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01f1 4800 |H | Short_Literal 0x0
01f2 e803 | | Load 0x4,0x3
01f3 0217 | | Execute Heap_Access,All_Reference
01f4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01f5 e803 | | Load 0x4,0x3
01f6 860b | | Call 0x3,0xb
01f7 00c8 | | Action Pop_Auxiliary_Range
01f8 3fe2 |? | Loop_Increasing 0x1db
01f9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01fa 0000 0000 | | .BLANK 0000[0x6]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0217 | | .CONST 0x0217 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0006 | | .CONST 0x0006 ; Number of locals
0203 INIT_0200:
0203 e00c | | Load 0x0,0xc
0204 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0205 02c7 | | Declare_Variable Any
0206 00d8 | | Load_Top At_Offset_0
0207 1c00 | | Execute_Immediate Run_Utility,0x0
0208 e00c | | Load 0x0,0xc
0209 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020a e00e | | Load 0x0,0xe
020b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
020c 02c7 | | Declare_Variable Any
020d 00d8 | | Load_Top At_Offset_0
020e 1c00 | | Execute_Immediate Run_Utility,0x0
020f e00e | | Load 0x0,0xe
0210 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0211 02c7 | | Declare_Variable Any
0212 e00e | | Load 0x0,0xe
0213 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0214 a805 | | Store_Unchecked 0x4,0x5
0215 029f 05cb | | Declare_Subprogram INIT_05c8,For_Call
0217 BODY_0200:
0217 00be | | Action Activate_Tasks
0218 0092 061c | | Action Push_String_Extended,0x61c ; "Indirect File"
021a e239 | 9 | Load 0x1,0x39
021b e009 | | Load 0x0,0x9
021c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
021d e00a | | Load 0x0,0xa
021e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
021f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0220 860c | | Call 0x3,0xc
0221 4800 |H | Short_Literal 0x0
0222 e403 | | Load 0x2,0x3
0223 0217 | | Execute Heap_Access,All_Reference
0224 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0225 4801 |H | Short_Literal 0x1
0226 e403 | | Load 0x2,0x3
0227 0217 | | Execute Heap_Access,All_Reference
0228 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0229 e9ff | | Load 0x4,-0x1
022a e403 | | Load 0x2,0x3
022b 0217 | | Execute Heap_Access,All_Reference
022c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
022d e403 | | Load 0x2,0x3
022e e402 | | Load 0x2,0x2
022f 0217 | | Execute Heap_Access,All_Reference
0230 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0231 e402 | | Load 0x2,0x2
0232 0217 | | Execute Heap_Access,All_Reference
0233 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0234 e402 | | Load 0x2,0x2
0235 0217 | | Execute Heap_Access,All_Reference
0236 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0237 e00c | | Load 0x0,0xc
0238 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0239 e210 | | Load 0x1,0x10
023a 00d8 | | Load_Top At_Offset_0
023b e20f | | Load 0x1,0xf
023c 0260 | ` | Execute Discrete,In_Type
023d 7001 |p | Jump_Nonzero 0x23f
023e 0801 | | Execute_Immediate Raise,0x1
023f e402 | | Load 0x2,0x2
0240 824b | K | Call 0x1,0x4b
0241 c802 | | Store 0x4,0x2
0242 e210 | | Load 0x1,0x10
0243 00d8 | | Load_Top At_Offset_0
0244 e20f | | Load 0x1,0xf
0245 0260 | ` | Execute Discrete,In_Type
0246 7001 |p | Jump_Nonzero 0x248
0247 0801 | | Execute_Immediate Raise,0x1
0248 e402 | | Load 0x2,0x2
0249 8222 | " | Call 0x1,0x22
024a 6823 |h# | Jump_Zero 0x26e
024b e00e | | Load 0x0,0xe
024c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
024d e804 | | Load 0x4,0x4
024e 4800 |H | Short_Literal 0x0
024f 6020 |` | Indirect_Literal Discrete,0x270,{0x00000000, 0x00004000}
0250 e00d | | Load 0x0,0xd
0251 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0252 4800 |H | Short_Literal 0x0
0253 e802 | | Load 0x4,0x2
0254 4803 |H | Short_Literal 0x3
0255 e00e | | Load 0x0,0xe
0256 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0257 c804 | | Store 0x4,0x4
0258 c803 | | Store 0x4,0x3
0259 e803 | | Load 0x4,0x3
025a 7006 |p | Jump_Nonzero 0x261
025b e403 | | Load 0x2,0x3
025c 0217 | | Execute Heap_Access,All_Reference
025d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
025e a403 | | Store_Unchecked 0x2,0x3
025f 8806 | | Call 0x4,0x6
0260 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0261 0092 061d | | Action Push_String_Extended,0x61d ; "DIRECTORY_"
0263 e803 | | Load 0x4,0x3
0264 e00c | | Load 0x0,0xc
0265 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0266 011c | | Execute Any,Convert_Unchecked
0267 1c01 | | Execute_Immediate Run_Utility,0x1
0268 01cc | | Execute Vector,Catenate
0269 e23e | > | Load 0x1,0x3e
026a 1c02 | | Execute_Immediate Run_Utility,0x2
026b e403 | | Load 0x2,0x3
026c 0217 | | Execute Heap_Access,All_Reference
026d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
026e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
026f 0000 | | .XXX[0x1]
0270 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00cf | | Action Mark_Auxiliary
027c e602 | | Load 0x3,0x2
027d e7ff | | Load 0x3,-0x1
027e 01dd | | Execute Vector,First
027f e603 | | Load 0x3,0x3
0280 0261 | a | Execute Discrete,Not_In_Range
0281 6809 |h | Jump_Zero 0x28b
0282 4805 |H | Short_Literal 0x5
0283 a604 | | Store_Unchecked 0x3,0x4
0284 e7ff | | Load 0x3,-0x1
0285 01dd | | Execute Vector,First
0286 a605 | | Store_Unchecked 0x3,0x5
0287 e605 | | Load 0x3,0x5
0288 0aff | | Execute_Immediate Plus,-0x1
0289 c606 | | Store 0x3,0x6
028a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
028b e602 | | Load 0x3,0x2
028c e7ff | | Load 0x3,-0x1
028d 01d7 | | Execute Vector,Field_Read
028e 0e20 | | Execute_Immediate Not_Equal,0x20
028f 7005 |p | Jump_Nonzero 0x295
0290 e602 | | Load 0x3,0x2
0291 0a01 | | Execute_Immediate Plus,0x1
0292 c602 | | Store 0x3,0x2
0293 00c9 | | Action Pop_Auxiliary_Loop
0294 7fe7 | | Jump 0x27c
0295 00ce | | Action Pop_Auxiliary
0296 e602 | | Load 0x3,0x2
0297 a605 | | Store_Unchecked 0x3,0x5
0298 e602 | | Load 0x3,0x2
0299 a606 | | Store_Unchecked 0x3,0x6
029a 4806 |H | Short_Literal 0x6
029b a604 | | Store_Unchecked 0x3,0x4
029c e602 | | Load 0x3,0x2
029d e7ff | | Load 0x3,-0x1
029e 01d7 | | Execute Vector,Field_Read
029f 00d8 | | Load_Top At_Offset_0
02a0 0d2c | , | Execute_Immediate Less,0x2c
02a1 702b |p+ | Jump_Nonzero 0x2cd
02a2 00d8 | | Load_Top At_Offset_0
02a3 0c3b | ; | Execute_Immediate Greater_Equal,0x3b
02a4 7007 |p | Jump_Nonzero 0x2ac
02a5 0b2c | , | Execute_Immediate Case_Compare,0x2c
02a6 7051 |pQ | Jump_Nonzero 0x2f8
02a7 0b2e | . | Execute_Immediate Case_Compare,0x2e
02a8 703b |p; | Jump_Nonzero 0x2e4
02a9 0f3a | : | Execute_Immediate Equal,0x3a
02aa 7025 |p% | Jump_Nonzero 0x2d0
02ab 784f |xO | Jump 0x2fb
02ac 00d8 | | Load_Top At_Offset_0
02ad 0d3e | > | Execute_Immediate Less,0x3e
02ae 700a |p | Jump_Nonzero 0x2b9
02af 00d8 | | Load_Top At_Offset_0
02b0 0c7c | | | Execute_Immediate Greater_Equal,0x7c
02b1 7002 |p | Jump_Nonzero 0x2b4
02b2 00d1 | | Pop_Control Pop_Count_1
02b3 7847 |xG | Jump 0x2fb
02b4 0b7c | | | Execute_Immediate Case_Compare,0x7c
02b5 702a |p* | Jump_Nonzero 0x2e0
02b6 0f7e | ~ | Execute_Immediate Equal,0x7e
02b7 703d |p= | Jump_Nonzero 0x2f5
02b8 7842 |xB | Jump 0x2fb
02b9 0b3b | ; | Execute_Immediate Case_Compare,0x3b
02ba 703d |p= | Jump_Nonzero 0x2f8
02bb 0f3c | < | Execute_Immediate Equal,0x3c
02bc 703e |p> | Jump_Nonzero 0x2fb
02bd e602 | | Load 0x3,0x2
02be e603 | | Load 0x3,0x3
02bf 027c | | | Execute Discrete,Less
02c0 6809 |h | Jump_Zero 0x2ca
02c1 e602 | | Load 0x3,0x2
02c2 0a01 | | Execute_Immediate Plus,0x1
02c3 e7ff | | Load 0x3,-0x1
02c4 01d7 | | Execute Vector,Field_Read
02c5 0f3e | > | Execute_Immediate Equal,0x3e
02c6 6803 |h | Jump_Zero 0x2ca
02c7 e602 | | Load 0x3,0x2
02c8 0a01 | | Execute_Immediate Plus,0x1
02c9 c606 | | Store 0x3,0x6
02ca 4800 |H | Short_Literal 0x0
02cb a604 | | Store_Unchecked 0x3,0x4
02cc 782e |x. | Jump 0x2fb
02cd 0f0a | | Execute_Immediate Equal,0xa
02ce 702a |p* | Jump_Nonzero 0x2f9
02cf 782b |x+ | Jump 0x2fb
02d0 e602 | | Load 0x3,0x2
02d1 e603 | | Load 0x3,0x3
02d2 027c | | | Execute Discrete,Less
02d3 6827 |h' | Jump_Zero 0x2fb
02d4 e602 | | Load 0x3,0x2
02d5 0a01 | | Execute_Immediate Plus,0x1
02d6 e7ff | | Load 0x3,-0x1
02d7 01d7 | | Execute Vector,Field_Read
02d8 0f3d | = | Execute_Immediate Equal,0x3d
02d9 6821 |h! | Jump_Zero 0x2fb
02da e602 | | Load 0x3,0x2
02db 0a01 | | Execute_Immediate Plus,0x1
02dc c606 | | Store 0x3,0x6
02dd 4800 |H | Short_Literal 0x0
02de a604 | | Store_Unchecked 0x3,0x4
02df 781b |x | Jump 0x2fb
02e0 00d1 | | Pop_Control Pop_Count_1
02e1 4801 |H | Short_Literal 0x1
02e2 a604 | | Store_Unchecked 0x3,0x4
02e3 7817 |x | Jump 0x2fb
02e4 00d1 | | Pop_Control Pop_Count_1
02e5 e602 | | Load 0x3,0x2
02e6 e603 | | Load 0x3,0x3
02e7 027c | | | Execute Discrete,Less
02e8 6812 |h | Jump_Zero 0x2fb
02e9 e602 | | Load 0x3,0x2
02ea 0a01 | | Execute_Immediate Plus,0x1
02eb e7ff | | Load 0x3,-0x1
02ec 01d7 | | Execute Vector,Field_Read
02ed 0f2e | . | Execute_Immediate Equal,0x2e
02ee 680c |h | Jump_Zero 0x2fb
02ef e602 | | Load 0x3,0x2
02f0 0a01 | | Execute_Immediate Plus,0x1
02f1 c606 | | Store 0x3,0x6
02f2 4802 |H | Short_Literal 0x2
02f3 a604 | | Store_Unchecked 0x3,0x4
02f4 7806 |x | Jump 0x2fb
02f5 4803 |H | Short_Literal 0x3
02f6 a604 | | Store_Unchecked 0x3,0x4
02f7 7803 |x | Jump 0x2fb
02f8 00d1 | | Pop_Control Pop_Count_1
02f9 4804 |H | Short_Literal 0x4
02fa a604 | | Store_Unchecked 0x3,0x4
02fb e606 | | Load 0x3,0x6
02fc 0a01 | | Execute_Immediate Plus,0x1
02fd c602 | | Store 0x3,0x2
02fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ff 0000 | | .XXX[0x1]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 030d | | .CONST 0x030d ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0007 | | .CONST 0x0007 ; Number of locals
0303 INIT_0300:
0303 00e2 | | Load_Encached Integer_Cache
0304 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0305 0092 061e | | Action Push_String_Extended,0x61e ; "([{\x22"
0307 0092 061f | | Action Push_String_Extended,0x61f ; ")]}\x22"
0309 00e8 | | Load_Encached Character_Cache
030a 03e9 | | Declare_Variable Discrete,Duplicate
030b 029f 05f3 | | Declare_Subprogram INIT_05f0,For_Call
030d BODY_0300:
030d e604 | | Load 0x3,0x4
030e 4804 |H | Short_Literal 0x4
030f 4805 |H | Short_Literal 0x5
0310 0262 | b | Execute Discrete,In_Range
0311 7064 |pd | Jump_Nonzero 0x376
0312 e605 | | Load 0x3,0x5
0313 e7ff | | Load 0x3,-0x1
0314 01d7 | | Execute Vector,Field_Read
0315 a805 | | Store_Unchecked 0x4,0x5
0316 4800 |H | Short_Literal 0x0
0317 a806 | | Store_Unchecked 0x4,0x6
0318 00cf | | Action Mark_Auxiliary
0319 e803 | | Load 0x4,0x3
031a 01d9 | | Execute Vector,Reverse_Bounds
031b 0007 | | Action Break_Optional
031c 00d8 | | Load_Top At_Offset_0
031d e803 | | Load 0x4,0x3
031e 01d7 | | Execute Vector,Field_Read
031f e805 | | Load 0x4,0x5
0320 027f | | Execute Discrete,Equal
0321 680e |h | Jump_Zero 0x330
0322 00d8 | | Load_Top At_Offset_0
0323 e804 | | Load 0x4,0x4
0324 01d7 | | Execute Vector,Field_Read
0325 a806 | | Store_Unchecked 0x4,0x6
0326 e806 | | Load 0x4,0x6
0327 0f22 | " | Execute_Immediate Equal,0x22
0328 6802 |h | Jump_Zero 0x32b
0329 4800 |H | Short_Literal 0x0
032a a805 | | Store_Unchecked 0x4,0x5
032b e605 | | Load 0x3,0x5
032c 0a01 | | Execute_Immediate Plus,0x1
032d c605 | | Store 0x3,0x5
032e 00d2 | | Pop_Control Pop_Count_2
032f 7802 |x | Jump 0x332
0330 00c8 | | Action Pop_Auxiliary_Range
0331 3fea |? | Loop_Increasing 0x31c
0332 00ce | | Action Pop_Auxiliary
0333 e806 | | Load 0x4,0x6
0334 6813 |h | Jump_Zero 0x348
0335 00cf | | Action Mark_Auxiliary
0336 7805 |x | Jump 0x33c
0337 8807 | | Call 0x4,0x7
0338 e602 | | Load 0x3,0x2
0339 0a01 | | Execute_Immediate Plus,0x1
033a c602 | | Store 0x3,0x2
033b 00c9 | | Action Pop_Auxiliary_Loop
033c e602 | | Load 0x3,0x2
033d e603 | | Load 0x3,0x3
033e 027a | z | Execute Discrete,Less_Equal
033f 77f7 |w | Jump_Nonzero 0x337
0340 00ce | | Action Pop_Auxiliary
0341 e602 | | Load 0x3,0x2
0342 0aff | | Execute_Immediate Plus,-0x1
0343 c606 | | Store 0x3,0x6
0344 e602 | | Load 0x3,0x2
0345 0a01 | | Execute_Immediate Plus,0x1
0346 c602 | | Store 0x3,0x2
0347 7833 |x3 | Jump 0x37b
0348 00cf | | Action Mark_Auxiliary
0349 7826 |x& | Jump 0x370
034a e602 | | Load 0x3,0x2
034b e7ff | | Load 0x3,-0x1
034c 01d7 | | Execute Vector,Field_Read
034d 00d8 | | Load_Top At_Offset_0
034e 0d20 | | Execute_Immediate Less,0x20
034f 700d |p | Jump_Nonzero 0x35d
0350 00d8 | | Load_Top At_Offset_0
0351 0c2d | - | Execute_Immediate Greater_Equal,0x2d
0352 7005 |p | Jump_Nonzero 0x358
0353 0b20 | | Execute_Immediate Case_Compare,0x20
0354 700b |p | Jump_Nonzero 0x360
0355 0f2c | , | Execute_Immediate Equal,0x2c
0356 701d |p | Jump_Nonzero 0x374
0357 7812 |x | Jump 0x36a
0358 0b3b | ; | Execute_Immediate Case_Compare,0x3b
0359 7008 |p | Jump_Nonzero 0x362
035a 0f5c | \ | Execute_Immediate Equal,0x5c
035b 7008 |p | Jump_Nonzero 0x364
035c 780d |x | Jump 0x36a
035d 0f0a | | Execute_Immediate Equal,0xa
035e 7015 |p | Jump_Nonzero 0x374
035f 780a |x | Jump 0x36a
0360 00d1 | | Pop_Control Pop_Count_1
0361 780a |x | Jump 0x36c
0362 00d1 | | Pop_Control Pop_Count_1
0363 7810 |x | Jump 0x374
0364 e602 | | Load 0x3,0x2
0365 0a01 | | Execute_Immediate Plus,0x1
0366 c602 | | Store 0x3,0x2
0367 e602 | | Load 0x3,0x2
0368 a606 | | Store_Unchecked 0x3,0x6
0369 7802 |x | Jump 0x36c
036a e602 | | Load 0x3,0x2
036b a606 | | Store_Unchecked 0x3,0x6
036c e602 | | Load 0x3,0x2
036d 0a01 | | Execute_Immediate Plus,0x1
036e c602 | | Store 0x3,0x2
036f 00c9 | | Action Pop_Auxiliary_Loop
0370 e602 | | Load 0x3,0x2
0371 e603 | | Load 0x3,0x3
0372 027a | z | Execute Discrete,Less_Equal
0373 77d6 |w | Jump_Nonzero 0x34a
0374 00ce | | Action Pop_Auxiliary
0375 7805 |x | Jump 0x37b
0376 e606 | | Load 0x3,0x6
0377 a602 | | Store_Unchecked 0x3,0x2
0378 e605 | | Load 0x3,0x5
0379 0aff | | Execute_Immediate Plus,-0x1
037a c606 | | Store 0x3,0x6
037b e605 | | Load 0x3,0x5
037c e606 | | Load 0x3,0x6
037d e7ff | | Load 0x3,-0x1
037e 01cf | | Execute Vector,Slice_Read
037f e239 | 9 | Load 0x1,0x39
0380 e009 | | Load 0x0,0x9
0381 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0382 e00a | | Load 0x0,0xa
0383 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0384 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0385 a608 | | Store_Unchecked 0x3,0x8
0386 8610 | | Call 0x3,0x10
0387 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b e604 | | Load 0x3,0x4
038c 0f06 | | Execute_Immediate Equal,0x6
038d 6874 |ht | Jump_Zero 0x402
038e 00cf | | Action Mark_Auxiliary
038f 785d |x] | Jump 0x3ed
0390 e602 | | Load 0x3,0x2
0391 e7ff | | Load 0x3,-0x1
0392 01d7 | | Execute Vector,Field_Read
0393 00d8 | | Load_Top At_Offset_0
0394 0d0a | | Execute_Immediate Less,0xa
0395 703c |p< | Jump_Nonzero 0x3d2
0396 00d8 | | Load_Top At_Offset_0
0397 0c3e | > | Execute_Immediate Greater_Equal,0x3e
0398 7036 |p6 | Jump_Nonzero 0x3cf
0399 0af6 | | Execute_Immediate Plus,-0xa
039a 4633 |F3 | Jump_Case 0x34
039b 7855 |xU | Jump 0x3f1 ; case 0x0
039c 784c |xL | Jump 0x3e9 ; case 0x1
039d 784b |xK | Jump 0x3e9 ; case 0x2
039e 784a |xJ | Jump 0x3e9 ; case 0x3
039f 7849 |xI | Jump 0x3e9 ; case 0x4
03a0 7848 |xH | Jump 0x3e9 ; case 0x5
03a1 7847 |xG | Jump 0x3e9 ; case 0x6
03a2 7846 |xF | Jump 0x3e9 ; case 0x7
03a3 7845 |xE | Jump 0x3e9 ; case 0x8
03a4 7844 |xD | Jump 0x3e9 ; case 0x9
03a5 7843 |xC | Jump 0x3e9 ; case 0xa
03a6 7842 |xB | Jump 0x3e9 ; case 0xb
03a7 7841 |xA | Jump 0x3e9 ; case 0xc
03a8 7840 |x@ | Jump 0x3e9 ; case 0xd
03a9 783f |x? | Jump 0x3e9 ; case 0xe
03aa 783e |x> | Jump 0x3e9 ; case 0xf
03ab 783d |x= | Jump 0x3e9 ; case 0x10
03ac 783c |x< | Jump 0x3e9 ; case 0x11
03ad 783b |x; | Jump 0x3e9 ; case 0x12
03ae 783a |x: | Jump 0x3e9 ; case 0x13
03af 7839 |x9 | Jump 0x3e9 ; case 0x14
03b0 7838 |x8 | Jump 0x3e9 ; case 0x15
03b1 783f |x? | Jump 0x3f1 ; case 0x16
03b2 7836 |x6 | Jump 0x3e9 ; case 0x17
03b3 7835 |x5 | Jump 0x3e9 ; case 0x18
03b4 7834 |x4 | Jump 0x3e9 ; case 0x19
03b5 7833 |x3 | Jump 0x3e9 ; case 0x1a
03b6 7832 |x2 | Jump 0x3e9 ; case 0x1b
03b7 7831 |x1 | Jump 0x3e9 ; case 0x1c
03b8 7830 |x0 | Jump 0x3e9 ; case 0x1d
03b9 782f |x/ | Jump 0x3e9 ; case 0x1e
03ba 782e |x. | Jump 0x3e9 ; case 0x1f
03bb 782d |x- | Jump 0x3e9 ; case 0x20
03bc 782c |x, | Jump 0x3e9 ; case 0x21
03bd 7833 |x3 | Jump 0x3f1 ; case 0x22
03be 782a |x* | Jump 0x3e9 ; case 0x23
03bf 781f |x | Jump 0x3df ; case 0x24
03c0 7828 |x( | Jump 0x3e9 ; case 0x25
03c1 7827 |x' | Jump 0x3e9 ; case 0x26
03c2 7826 |x& | Jump 0x3e9 ; case 0x27
03c3 7825 |x% | Jump 0x3e9 ; case 0x28
03c4 7824 |x$ | Jump 0x3e9 ; case 0x29
03c5 7823 |x# | Jump 0x3e9 ; case 0x2a
03c6 7822 |x" | Jump 0x3e9 ; case 0x2b
03c7 7821 |x! | Jump 0x3e9 ; case 0x2c
03c8 7820 |x | Jump 0x3e9 ; case 0x2d
03c9 781f |x | Jump 0x3e9 ; case 0x2e
03ca 781e |x | Jump 0x3e9 ; case 0x2f
03cb 7808 |x | Jump 0x3d4 ; case 0x30
03cc 7824 |x$ | Jump 0x3f1 ; case 0x31
03cd 781b |x | Jump 0x3e9 ; case 0x32
03ce 7822 |x" | Jump 0x3f1 ; case 0x33
03cf 0f7c | | | Execute_Immediate Equal,0x7c
03d0 7020 |p | Jump_Nonzero 0x3f1
03d1 7817 |x | Jump 0x3e9
03d2 00d1 | | Pop_Control Pop_Count_1
03d3 7815 |x | Jump 0x3e9
03d4 e602 | | Load 0x3,0x2
03d5 e603 | | Load 0x3,0x3
03d6 027c | | | Execute Discrete,Less
03d7 6811 |h | Jump_Zero 0x3e9
03d8 e602 | | Load 0x3,0x2
03d9 0a01 | | Execute_Immediate Plus,0x1
03da e7ff | | Load 0x3,-0x1
03db 01d7 | | Execute Vector,Field_Read
03dc 0f3d | = | Execute_Immediate Equal,0x3d
03dd 7013 |p | Jump_Nonzero 0x3f1
03de 780a |x | Jump 0x3e9
03df e602 | | Load 0x3,0x2
03e0 e603 | | Load 0x3,0x3
03e1 027c | | | Execute Discrete,Less
03e2 6806 |h | Jump_Zero 0x3e9
03e3 e602 | | Load 0x3,0x2
03e4 0a01 | | Execute_Immediate Plus,0x1
03e5 e7ff | | Load 0x3,-0x1
03e6 01d7 | | Execute Vector,Field_Read
03e7 0f2e | . | Execute_Immediate Equal,0x2e
03e8 7008 |p | Jump_Nonzero 0x3f1
03e9 e602 | | Load 0x3,0x2
03ea 0a01 | | Execute_Immediate Plus,0x1
03eb c602 | | Store 0x3,0x2
03ec 00c9 | | Action Pop_Auxiliary_Loop
03ed e602 | | Load 0x3,0x2
03ee e603 | | Load 0x3,0x3
03ef 027a | z | Execute Discrete,Less_Equal
03f0 779f |w | Jump_Nonzero 0x390
03f1 00ce | | Action Pop_Auxiliary
03f2 e602 | | Load 0x3,0x2
03f3 0aff | | Execute_Immediate Plus,-0x1
03f4 c606 | | Store 0x3,0x6
03f5 e605 | | Load 0x3,0x5
03f6 e606 | | Load 0x3,0x6
03f7 e7ff | | Load 0x3,-0x1
03f8 01cf | | Execute Vector,Slice_Read
03f9 e239 | 9 | Load 0x1,0x39
03fa e009 | | Load 0x0,0x9
03fb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03fc e00a | | Load 0x0,0xa
03fd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03fe 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
03ff a607 | | Store_Unchecked 0x3,0x7
0400 8610 | | Call 0x3,0x10
0401 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0402 e239 | 9 | Load 0x1,0x39
0403 a607 | | Store_Unchecked 0x3,0x7
0404 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0405 0000 0000 | | .XXX[0x3]
0407 0000 | |
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040d | | .CONST 0x040d ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0002 | | .CONST 0x0002 ; Number of locals
040b INIT_0408:
040b e239 | 9 | Load 0x1,0x39
040c 0007 | | Action Break_Optional
040d BODY_0408:
040d 8612 | | Call 0x3,0x12
040e e604 | | Load 0x3,0x4
040f 0f02 | | Execute_Immediate Equal,0x2
0410 6811 |h | Jump_Zero 0x422
0411 e607 | | Load 0x3,0x7
0412 7007 |p | Jump_Nonzero 0x41a
0413 e607 | | Load 0x3,0x7
0414 860c | | Call 0x3,0xc
0415 8610 | | Call 0x3,0x10
0416 8612 | | Call 0x3,0x12
0417 e607 | | Load 0x3,0x7
0418 860c | | Call 0x3,0xc
0419 4501 |E | Exit_Suprogram New_Top_Offset 0x1
041a e607 | | Load 0x3,0x7
041b a802 | | Store_Unchecked 0x4,0x2
041c 8610 | | Call 0x3,0x10
041d 8612 | | Call 0x3,0x12
041e e607 | | Load 0x3,0x7
041f e802 | | Load 0x4,0x2
0420 860d | | Call 0x3,0xd
0421 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0422 e607 | | Load 0x3,0x7
0423 6815 |h | Jump_Zero 0x439
0424 e607 | | Load 0x3,0x7
0425 0217 | | Execute Heap_Access,All_Reference
0426 8245 | E | Call 0x1,0x45
0427 0092 0620 | | Action Push_String_Extended,0x620 ; "OTHERS"
0429 01df | | Execute Vector,Equal
042a 680e |h | Jump_Zero 0x439
042b e240 | @ | Load 0x1,0x40
042c 00d8 | | Load_Top At_Offset_0
042d e20f | | Load 0x1,0xf
042e 0260 | ` | Execute Discrete,In_Type
042f 7001 |p | Jump_Nonzero 0x431
0430 0801 | | Execute_Immediate Raise,0x1
0431 e241 | A | Load 0x1,0x41
0432 00d8 | | Load_Top At_Offset_0
0433 e20f | | Load 0x1,0xf
0434 0260 | ` | Execute Discrete,In_Type
0435 7001 |p | Jump_Nonzero 0x437
0436 0801 | | Execute_Immediate Raise,0x1
0437 860e | | Call 0x3,0xe
0438 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0439 e607 | | Load 0x3,0x7
043a 860c | | Call 0x3,0xc
043b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
043c 0000 0000 | | .BLANK 0000[0x4]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 044d | M | .CONST 0x044d ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0007 | | .CONST 0x0007 ; Number of locals
0443 INIT_0440:
0443 e403 | | Load 0x2,0x3
0444 0007 | | Action Break_Optional
0445 e23d | = | Load 0x1,0x3d
0446 0007 | | Action Break_Optional
0447 00e2 | | Load_Encached Integer_Cache
0448 00e1 | | Load_Encached Boolean_Cache
0449 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
044a 00e1 | | Load_Encached Boolean_Cache
044b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
044c 00e1 | | Load_Encached Boolean_Cache
044d BODY_0440:
044d 00cf | | Action Mark_Auxiliary
044e 7807 |x | Jump 0x456
044f e805 | | Load 0x4,0x5
0450 0f00 | | Execute_Immediate Equal,0x0
0451 a805 | | Store_Unchecked 0x4,0x5
0452 4801 |H | Short_Literal 0x1
0453 a806 | | Store_Unchecked 0x4,0x6
0454 8610 | | Call 0x3,0x10
0455 00c9 | | Action Pop_Auxiliary_Loop
0456 e604 | | Load 0x3,0x4
0457 0f03 | | Execute_Immediate Equal,0x3
0458 77f6 |w | Jump_Nonzero 0x44f
0459 00c9 | | Action Pop_Auxiliary_Loop
045a 8613 | | Call 0x3,0x13
045b e604 | | Load 0x3,0x4
045c 0e01 | | Execute_Immediate Not_Equal,0x1
045d 7003 |p | Jump_Nonzero 0x461
045e 8610 | | Call 0x3,0x10
045f 00c9 | | Action Pop_Auxiliary_Loop
0460 7ff9 | | Jump 0x45a
0461 00ce | | Action Pop_Auxiliary
0462 e403 | | Load 0x2,0x3
0463 a803 | | Store_Unchecked 0x4,0x3
0464 e604 | | Load 0x3,0x4
0465 707e |p~ | Jump_Nonzero 0x4e4
0466 8610 | | Call 0x3,0x10
0467 8611 | | Call 0x3,0x11
0468 e608 | | Load 0x3,0x8
0469 0217 | | Execute Heap_Access,All_Reference
046a 0092 0621 | !| Action Push_String_Extended,0x621 ; "<>"
046c 01df | | Execute Vector,Equal
046d a807 | | Store_Unchecked 0x4,0x7
046e 00cf | | Action Mark_Auxiliary
046f 786e |xn | Jump 0x4de
0470 e806 | | Load 0x4,0x6
0471 6805 |h | Jump_Zero 0x477
0472 4807 |H | Short_Literal 0x7
0473 e803 | | Load 0x4,0x3
0474 0217 | | Execute Heap_Access,All_Reference
0475 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0476 7862 |xb | Jump 0x4d9
0477 e803 | | Load 0x4,0x3
0478 0217 | | Execute Heap_Access,All_Reference
0479 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
047a 705a |pZ | Jump_Nonzero 0x4d5
047b e803 | | Load 0x4,0x3
047c 0217 | | Execute Heap_Access,All_Reference
047d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
047e 0f04 | | Execute_Immediate Equal,0x4
047f 6809 |h | Jump_Zero 0x489
0480 4804 |H | Short_Literal 0x4
0481 e803 | | Load 0x4,0x3
0482 0217 | | Execute Heap_Access,All_Reference
0483 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0484 e608 | | Load 0x3,0x8
0485 e803 | | Load 0x4,0x3
0486 0217 | | Execute Heap_Access,All_Reference
0487 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0488 7850 |xP | Jump 0x4d9
0489 e807 | | Load 0x4,0x7
048a 6816 |h | Jump_Zero 0x4a1
048b e803 | | Load 0x4,0x3
048c 0217 | | Execute Heap_Access,All_Reference
048d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
048e 0227 | ' | Execute Access,All_Reference
048f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0490 6848 |hH | Jump_Zero 0x4d9
0491 e803 | | Load 0x4,0x3
0492 0217 | | Execute Heap_Access,All_Reference
0493 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0494 0227 | ' | Execute Access,All_Reference
0495 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0496 0227 | ' | Execute Access,All_Reference
0497 e239 | 9 | Load 0x1,0x39
0498 e009 | | Load 0x0,0x9
0499 1811 | | Execute Package,Field_Execute,Field_Number 0x11
049a e00a | | Load 0x0,0xa
049b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
049c 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
049d e803 | | Load 0x4,0x3
049e 0217 | | Execute Heap_Access,All_Reference
049f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04a0 7838 |x8 | Jump 0x4d9
04a1 e608 | | Load 0x3,0x8
04a2 e803 | | Load 0x4,0x3
04a3 0217 | | Execute Heap_Access,All_Reference
04a4 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04a5 e803 | | Load 0x4,0x3
04a6 0217 | | Execute Heap_Access,All_Reference
04a7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04a8 4604 |F | Jump_Case 0x5
04a9 782f |x/ | Jump 0x4d9 ; case 0x0
04aa 7808 |x | Jump 0x4b3 ; case 0x1
04ab 7812 |x | Jump 0x4be ; case 0x2
04ac 7801 |x | Jump 0x4ae ; case 0x3
04ad 782b |x+ | Jump 0x4d9 ; case 0x4
04ae 608d |` | Indirect_Literal Discrete,0x53c,{0x00000000, 0x7fffffff}
04af e803 | | Load 0x4,0x3
04b0 824d | M | Call 0x1,0x4d
04b1 a804 | | Store_Unchecked 0x4,0x4
04b2 7826 |x& | Jump 0x4d9
04b3 e608 | | Load 0x3,0x8
04b4 0217 | | Execute Heap_Access,All_Reference
04b5 e00c | | Load 0x0,0xc
04b6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
04b7 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
04b8 7020 |p | Jump_Nonzero 0x4d9
04b9 4809 |H | Short_Literal 0x9
04ba e803 | | Load 0x4,0x3
04bb 0217 | | Execute Heap_Access,All_Reference
04bc 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04bd 781b |x | Jump 0x4d9
04be 4801 |H | Short_Literal 0x1
04bf 0092 061a | | Action Push_String_Extended,0x61a ; "False"
04c1 e608 | | Load 0x3,0x8
04c2 0217 | | Execute Heap_Access,All_Reference
04c3 e00b | | Load 0x0,0xb
04c4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04c5 0e01 | | Execute_Immediate Not_Equal,0x1
04c6 6812 |h | Jump_Zero 0x4d9
04c7 4801 |H | Short_Literal 0x1
04c8 0092 061b | | Action Push_String_Extended,0x61b ; "True"
04ca e608 | | Load 0x3,0x8
04cb 0217 | | Execute Heap_Access,All_Reference
04cc e00b | | Load 0x0,0xb
04cd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04ce 0e01 | | Execute_Immediate Not_Equal,0x1
04cf 6809 |h | Jump_Zero 0x4d9
04d0 4825 |H% | Short_Literal 0x25
04d1 e803 | | Load 0x4,0x3
04d2 0217 | | Execute Heap_Access,All_Reference
04d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04d4 7804 |x | Jump 0x4d9
04d5 e608 | | Load 0x3,0x8
04d6 e803 | | Load 0x4,0x3
04d7 0217 | | Execute Heap_Access,All_Reference
04d8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04d9 e803 | | Load 0x4,0x3
04da 0217 | | Execute Heap_Access,All_Reference
04db 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04dc a803 | | Store_Unchecked 0x4,0x3
04dd 00c9 | | Action Pop_Auxiliary_Loop
04de e803 | | Load 0x4,0x3
04df e802 | | Load 0x4,0x2
04e0 021e | | Execute Heap_Access,Maximum
04e1 778e |w | Jump_Nonzero 0x470
04e2 00ce | | Action Pop_Auxiliary
04e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04e4 00cf | | Action Mark_Auxiliary
04e5 784e |xN | Jump 0x534
04e6 e803 | | Load 0x4,0x3
04e7 0217 | | Execute Heap_Access,All_Reference
04e8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04e9 7045 |pE | Jump_Nonzero 0x52f
04ea e803 | | Load 0x4,0x3
04eb 0217 | | Execute Heap_Access,All_Reference
04ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04ed 0f04 | | Execute_Immediate Equal,0x4
04ee 6807 |h | Jump_Zero 0x4f6
04ef e806 | | Load 0x4,0x6
04f0 683e |h> | Jump_Zero 0x52f
04f1 4808 |H | Short_Literal 0x8
04f2 e803 | | Load 0x4,0x3
04f3 0217 | | Execute Heap_Access,All_Reference
04f4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04f5 7839 |x9 | Jump 0x52f
04f6 e803 | | Load 0x4,0x3
04f7 0217 | | Execute Heap_Access,All_Reference
04f8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04f9 0227 | ' | Execute Access,All_Reference
04fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04fb 0f02 | | Execute_Immediate Equal,0x2
04fc 6807 |h | Jump_Zero 0x504
04fd e805 | | Load 0x4,0x5
04fe e406 | | Load 0x2,0x6
04ff 01d7 | | Execute Vector,Field_Read
0500 e803 | | Load 0x4,0x3
0501 0217 | | Execute Heap_Access,All_Reference
0502 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0503 782b |x+ | Jump 0x52f
0504 e803 | | Load 0x4,0x3
0505 0217 | | Execute Heap_Access,All_Reference
0506 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0507 0227 | ' | Execute Access,All_Reference
0508 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0509 6821 |h! | Jump_Zero 0x52b
050a 4801 |H | Short_Literal 0x1
050b 0092 061a | | Action Push_String_Extended,0x61a ; "False"
050d e803 | | Load 0x4,0x3
050e 0217 | | Execute Heap_Access,All_Reference
050f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0510 0227 | ' | Execute Access,All_Reference
0511 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0512 0227 | ' | Execute Access,All_Reference
0513 e00b | | Load 0x0,0xb
0514 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0515 0f01 | | Execute_Immediate Equal,0x1
0516 700d |p | Jump_Nonzero 0x524
0517 4801 |H | Short_Literal 0x1
0518 0092 061b | | Action Push_String_Extended,0x61b ; "True"
051a e803 | | Load 0x4,0x3
051b 0217 | | Execute Heap_Access,All_Reference
051c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
051d 0227 | ' | Execute Access,All_Reference
051e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
051f 0227 | ' | Execute Access,All_Reference
0520 e00b | | Load 0x0,0xb
0521 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0522 0f01 | | Execute_Immediate Equal,0x1
0523 6807 |h | Jump_Zero 0x52b
0524 e805 | | Load 0x4,0x5
0525 e406 | | Load 0x2,0x6
0526 01d7 | | Execute Vector,Field_Read
0527 e803 | | Load 0x4,0x3
0528 0217 | | Execute Heap_Access,All_Reference
0529 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
052a 7804 |x | Jump 0x52f
052b 4806 |H | Short_Literal 0x6
052c e803 | | Load 0x4,0x3
052d 0217 | | Execute Heap_Access,All_Reference
052e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
052f e803 | | Load 0x4,0x3
0530 0217 | | Execute Heap_Access,All_Reference
0531 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0532 a803 | | Store_Unchecked 0x4,0x3
0533 00c9 | | Action Pop_Auxiliary_Loop
0534 e803 | | Load 0x4,0x3
0535 e802 | | Load 0x4,0x2
0536 021e | | Execute Heap_Access,Maximum
0537 77ae |w | Jump_Nonzero 0x4e6
0538 00ce | | Action Pop_Auxiliary
0539 4501 |E | Exit_Suprogram New_Top_Offset 0x1
053a 0000 0000 | | .XXX[0x2]
053c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0546 | F | .CONST 0x0546 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0002 | | .CONST 0x0002 ; Number of locals
0543 INIT_0540:
0543 e9ff | | Load 0x4,-0x1
0544 0217 | | Execute Heap_Access,All_Reference
0545 8245 | E | Call 0x1,0x45
0546 BODY_0540:
0546 e23f | ? | Load 0x1,0x3f
0547 4801 |H | Short_Literal 0x1
0548 ea02 | | Load 0x5,0x2
0549 8247 | G | Call 0x1,0x47
054a e802 | | Load 0x4,0x2
054b 0217 | | Execute Heap_Access,All_Reference
054c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
054d e802 | | Load 0x4,0x2
054e 0217 | | Execute Heap_Access,All_Reference
054f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0550 700b |p | Jump_Nonzero 0x55c
0551 4802 |H | Short_Literal 0x2
0552 e802 | | Load 0x4,0x2
0553 0217 | | Execute Heap_Access,All_Reference
0554 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0555 e9ff | | Load 0x4,-0x1
0556 e802 | | Load 0x4,0x2
0557 0217 | | Execute Heap_Access,All_Reference
0558 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0559 e802 | | Load 0x4,0x2
055a 00cb | | Action Pop_Block_With_Result
055b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
055c 00d8 | | Load_Top At_Offset_0
055d e802 | | Load 0x4,0x2
055e 0217 | | Execute Heap_Access,All_Reference
055f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0560 0227 | ' | Execute Access,All_Reference
0561 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0562 0227 | ' | Execute Access,All_Reference
0563 01de | | Execute Vector,Not_Equal
0564 681f |h | Jump_Zero 0x584
0565 e802 | | Load 0x4,0x2
0566 0217 | | Execute Heap_Access,All_Reference
0567 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0568 0227 | ' | Execute Access,All_Reference
0569 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
056a 4801 |H | Short_Literal 0x1
056b ea02 | | Load 0x5,0x2
056c 8247 | G | Call 0x1,0x47
056d 6816 |h | Jump_Zero 0x584
056e e23f | ? | Load 0x1,0x3f
056f 4800 |H | Short_Literal 0x0
0570 ea02 | | Load 0x5,0x2
0571 8247 | G | Call 0x1,0x47
0572 e802 | | Load 0x4,0x2
0573 0217 | | Execute Heap_Access,All_Reference
0574 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0575 e802 | | Load 0x4,0x2
0576 0217 | | Execute Heap_Access,All_Reference
0577 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0578 700b |p | Jump_Nonzero 0x584
0579 4801 |H | Short_Literal 0x1
057a e802 | | Load 0x4,0x2
057b 0217 | | Execute Heap_Access,All_Reference
057c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
057d e9ff | | Load 0x4,-0x1
057e e802 | | Load 0x4,0x2
057f 0217 | | Execute Heap_Access,All_Reference
0580 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0581 e802 | | Load 0x4,0x2
0582 00cb | | Action Pop_Block_With_Result
0583 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0584 4800 |H | Short_Literal 0x0
0585 e802 | | Load 0x4,0x2
0586 0217 | | Execute Heap_Access,All_Reference
0587 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0588 e802 | | Load 0x4,0x2
0589 0217 | | Execute Heap_Access,All_Reference
058a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
058b 0227 | ' | Execute Access,All_Reference
058c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
058d e802 | | Load 0x4,0x2
058e 0217 | | Execute Heap_Access,All_Reference
058f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0590 e802 | | Load 0x4,0x2
0591 0217 | | Execute Heap_Access,All_Reference
0592 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0593 0f04 | | Execute_Immediate Equal,0x4
0594 682b |h+ | Jump_Zero 0x5c0
0595 e9ff | | Load 0x4,-0x1
0596 e802 | | Load 0x4,0x2
0597 0217 | | Execute Heap_Access,All_Reference
0598 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0599 e802 | | Load 0x4,0x2
059a 0217 | | Execute Heap_Access,All_Reference
059b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
059c 0227 | ' | Execute Access,All_Reference
059d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
059e c803 | | Store 0x4,0x3
059f e23f | ? | Load 0x1,0x3f
05a0 e803 | | Load 0x4,0x3
05a1 00d8 | | Load_Top At_Offset_0
05a2 e20f | | Load 0x1,0xf
05a3 0260 | ` | Execute Discrete,In_Type
05a4 7001 |p | Jump_Nonzero 0x5a6
05a5 0801 | | Execute_Immediate Raise,0x1
05a6 8246 | F | Call 0x1,0x46
05a7 e802 | | Load 0x4,0x2
05a8 0217 | | Execute Heap_Access,All_Reference
05a9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
05aa e802 | | Load 0x4,0x2
05ab 0217 | | Execute Heap_Access,All_Reference
05ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
05ad 7012 |p | Jump_Nonzero 0x5c0
05ae 4803 |H | Short_Literal 0x3
05af e802 | | Load 0x4,0x2
05b0 0217 | | Execute Heap_Access,All_Reference
05b1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
05b2 e803 | | Load 0x4,0x3
05b3 e20f | | Load 0x1,0xf
05b4 0122 | " | Execute Any,Make_Root_Type
05b5 011c | | Execute Any,Convert_Unchecked
05b6 1c01 | | Execute_Immediate Run_Utility,0x1
05b7 e239 | 9 | Load 0x1,0x39
05b8 e009 | | Load 0x0,0x9
05b9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05ba e00a | | Load 0x0,0xa
05bb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05bc 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
05bd e802 | | Load 0x4,0x2
05be 0217 | | Execute Heap_Access,All_Reference
05bf 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
05c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05c1 0000 0000 | | .BLANK 0000[0x7]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05d9 | | .CONST 0x05d9 ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0003 | | .CONST 0x0003 ; Number of locals
05cb INIT_05c8:
05cb 4801 |H | Short_Literal 0x1
05cc e804 | | Load 0x4,0x4
05cd e00e | | Load 0x0,0xe
05ce 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05cf 09fd | | Execute_Immediate Binary_Scale,-0x3
05d0 00d8 | | Load_Top At_Offset_0
05d1 00e2 | | Load_Encached Integer_Cache
05d2 0260 | ` | Execute Discrete,In_Type
05d3 7001 |p | Jump_Nonzero 0x5d5
05d4 0801 | | Execute_Immediate Raise,0x1
05d5 00e9 | | Load_Encached String_Cache
05d6 035b | [ | Declare_Type Array,Constrained
05d7 0337 | 7 | Declare_Variable Array
05d8 00e2 | | Load_Encached Integer_Cache
05d9 BODY_05c8:
05d9 00e3 | | Load_Encached Natural_Cache
05da ea02 | | Load 0x5,0x2
05db e805 | | Load 0x4,0x5
05dc e804 | | Load 0x4,0x4
05dd e00e | | Load 0x0,0xe
05de 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
05df 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05e0 c805 | | Store 0x4,0x5
05e1 00d1 | | Pop_Control Pop_Count_1
05e2 ca03 | | Store 0x5,0x3
05e3 4801 |H | Short_Literal 0x1
05e4 ea03 | | Load 0x5,0x3
05e5 ea02 | | Load 0x5,0x2
05e6 01cf | | Execute Vector,Slice_Read
05e7 8407 | | Call 0x2,0x7
05e8 e00e | | Load 0x0,0xe
05e9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05ea e804 | | Load 0x4,0x4
05eb e00e | | Load 0x0,0xe
05ec 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
05ed c804 | | Store 0x4,0x4
05ee c803 | | Store 0x4,0x3
05ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05f0 ; --------------------------------------------------------------------------------------
05f0 ; SUBPROGRAM
05f0 ; --------------------------------------------------------------------------------------
05f0 05f7 | | .CONST 0x05f7 ; Address of begin
05f1 0004 | | .CONST 0x0004 ; Address of exception handler
05f2 0002 | | .CONST 0x0002 ; Number of locals
05f3 INIT_05f0:
05f3 e602 | | Load 0x3,0x2
05f4 e7ff | | Load 0x3,-0x1
05f5 01d7 | | Execute Vector,Field_Read
05f6 0007 | | Action Break_Optional
05f7 BODY_05f0:
05f7 00d8 | | Load_Top At_Offset_0
05f8 e805 | | Load 0x4,0x5
05f9 027f | | Execute Discrete,Equal
05fa 6804 |h | Jump_Zero 0x5ff
05fb e802 | | Load 0x4,0x2
05fc 0a01 | | Execute_Immediate Plus,0x1
05fd c802 | | Store 0x4,0x2
05fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05ff 00d8 | | Load_Top At_Offset_0
0600 e806 | | Load 0x4,0x6
0601 027f | | Execute Discrete,Equal
0602 6809 |h | Jump_Zero 0x60c
0603 e802 | | Load 0x4,0x2
0604 0d01 | | Execute_Immediate Less,0x1
0605 6802 |h | Jump_Zero 0x608
0606 00cc | | Action Pop_Block
0607 7d38 |}8 | Jump 0x340
0608 e802 | | Load 0x4,0x2
0609 0aff | | Execute_Immediate Plus,-0x1
060a c802 | | Store 0x4,0x2
060b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
060c 00d8 | | Load_Top At_Offset_0
060d 0f5c | \ | Execute_Immediate Equal,0x5c
060e 6803 |h | Jump_Zero 0x612
060f e602 | | Load 0x3,0x2
0610 0a01 | | Execute_Immediate Plus,0x1
0611 c602 | | Store 0x3,0x2
0612 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0613 ; --------------------------------------------------------------------------------------
0613 ; STRING TABLE
0613 ; --------------------------------------------------------------------------------------
0613 0020 | | .STRTAB 0x0020->0x0623 ; "ARROW"
0614 0023 | # | .STRTAB 0x0023->0x0625 ; "BAR"
0615 0024 | $ | .STRTAB 0x0024->0x0627 ; "DOTS"
0616 0026 | & | .STRTAB 0x0026->0x0629 ; "TILDE"
0617 0029 | ) | .STRTAB 0x0029->0x062b ; "SEPARATOR"
0618 0030 | 0 | .STRTAB 0x0030->0x0630 ; "END_STRING"
0619 0038 | 8 | .STRTAB 0x0038->0x0635 ; "OTHER"
061a 003b | ; | .STRTAB 0x003b->0x0637 ; "False"
061b 003e | > | .STRTAB 0x003e->0x063a ; "True"
061c 0040 | @ | .STRTAB 0x0040->0x063c ; "Indirect File"
061d 004b | K | .STRTAB 0x004b->0x0642 ; "DIRECTORY_"
061e 0053 | S | .STRTAB 0x0053->0x0647 ; "([{\x22"
061f 0055 | U | .STRTAB 0x0055->0x0649 ; ")]}\x22"
0620 0057 | W | .STRTAB 0x0057->0x064b ; "OTHERS"
0621 005b | [ | .STRTAB 0x005b->0x064e ; "<>"
0622 005b | [ | .STREND 0x005b->0x064f
0623 4152 524f |ARRO| .STRTAB_STRINGS
0650 ; --------------------------------------------------------------------------------------
0650 ; Debug Table
0650 ; --------------------------------------------------------------------------------------
0650 0004 000f | | .DEBUG4 0x0004,0x000f,0x431a,0x0000,0x0001,0x0000
0656 0000 0000 | | .BLANK 0000[0x1aa]