|
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_05d8fd
└─⟦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 07c0 | | .CONST 0x07c0 ; 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 8005 | | .CONST 0x8005 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0078 | x | .CONST 0x0078 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0025 | % | .CONST 0x0025 ; Number of locals
001b INIT_0018:
001b 4800 |H | Short_Literal 0x0
001c 4808 |H | Short_Literal 0x8
001d 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call
001f 03fd | | Declare_Type Discrete,Defined
0020 e001 | | Load 0x0,0x1
0021 e002 | | Load 0x0,0x2
0022 00da | | Load_Top At_Offset_2
0023 e003 | | Load 0x0,0x3
0024 0387 | | Declare_Variable Package
0025 00d8 | | Load_Top At_Offset_0
0026 020f | | Execute Module,Activate
0027 00d8 | | Load_Top At_Offset_0
0028 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0029 00c6 | | Action Check_Subprogram_Elaborated
002a 0092 06e0 | | Action Push_String_Extended,0x6e0 ; "command"
002c 4814 |H | Short_Literal 0x14
002d 4819 |H | Short_Literal 0x19
002e e004 | | Load 0x0,0x4
002f 1964 | d | Execute Package,Field_Reference,Field_Number 0x64
0030 e005 | | Load 0x0,0x5
0031 e006 | | Load 0x0,0x6
0032 480a |H | Short_Literal 0xa
0033 0007 | | Action Break_Optional
0034 00e3 | | Load_Encached Natural_Cache
0035 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0036 00e1 | | Load_Encached Boolean_Cache
0037 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0038 e007 | | Load 0x0,0x7
0039 1b12 | | Execute Package,Field_Read,Field_Number 0x12
003a 0322 | " | Declare_Variable Record
003b 00d8 | | Load_Top At_Offset_0
003c 1c00 | | Execute_Immediate Run_Utility,0x0
003d e007 | | Load 0x0,0x7
003e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
003f e008 | | Load 0x0,0x8
0040 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0041 00e5 | | Load_Encached Long_Integer_Cache
0042 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0043 605c |`\ | Indirect_Literal Discrete,0xa0,{0x00000000, 0xe0000000}
0044 00e5 | | Load_Encached Long_Integer_Cache
0045 03f1 | | Declare_Variable Discrete,With_Value
0046 00e3 | | Load_Encached Natural_Cache
0047 0680 | | Execute_Immediate Set_Value_Unchecked,0x80
0048 4a00 |J | Short_Literal 0x200
0049 e009 | | Load 0x0,0x9
004a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004b 1c08 | | Execute_Immediate Run_Utility,0x8
004c 00d8 | | Load_Top At_Offset_0
004d 1c00 | | Execute_Immediate Run_Utility,0x0
004e 029e 00d3 | | Declare_Subprogram INIT_00d0,For_Call,Unelaborated
0050 e00a | | Load 0x0,0xa
0051 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0052 00c6 | | Action Check_Subprogram_Elaborated
0053 4814 |H | Short_Literal 0x14
0054 4802 |H | Short_Literal 0x2
0055 0099 | | Action Reference_Dynamic
0056 e00b | | Load 0x0,0xb
0057 e00c | | Load 0x0,0xc
0058 4818 |H | Short_Literal 0x18
0059 0007 | | Action Break_Optional
005a 4814 |H | Short_Literal 0x14
005b 4802 |H | Short_Literal 0x2
005c 0099 | | Action Reference_Dynamic
005d 00c7 | | Action Elaborate_Subprogram
005e 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0060 029f 010b | | Declare_Subprogram INIT_0108,For_Call
0062 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0064 029f 012b | +| Declare_Subprogram INIT_0128,For_Call
0066 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0068 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
006a 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
006c 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
006e 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0070 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
0072 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
0074 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call
0076 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call
0078 BODY_0018:
0078 00be | | Action Activate_Tasks
0079 e40f | | Load 0x2,0xf
007a e40d | | Load 0x2,0xd
007b e5ff | | Load 0x2,-0x1
007c e5fe | | Load 0x2,-0x2
007d e007 | | Load 0x0,0x7
007e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
007f 00d1 | | Pop_Control Pop_Count_1
0080 c40f | | Store 0x2,0xf
0081 e40f | | Load 0x2,0xf
0082 841b | | Call 0x2,0x1b
0083 841e | | Call 0x2,0x1e
0084 00cf | | Action Mark_Auxiliary
0085 7806 |x | Jump 0x8c
0086 0092 06e1 | | Action Push_String_Extended,0x6e1 ; "> "
0088 e004 | | Load 0x0,0x4
0089 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
008a 8425 | % | Call 0x2,0x25
008b 00c9 | | Action Pop_Auxiliary_Loop
008c e40c | | Load 0x2,0xc
008d 6ff8 |o | Jump_Zero 0x86
008e 00ce | | Action Pop_Auxiliary
008f e40d | | Load 0x2,0xd
0090 e007 | | Load 0x0,0x7
0091 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0092 00d1 | | Pop_Control Pop_Count_1
0093 00cf | | Action Mark_Auxiliary
0094 e40b | | Load 0x2,0xb
0095 4801 |H | Short_Literal 0x1
0096 0263 | c | Execute Discrete,Above_Bound
0097 7004 |p | Jump_Nonzero 0x9c
0098 e004 | | Load 0x0,0x4
0099 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
009a 00c8 | | Action Pop_Auxiliary_Range
009b 3ffc |? | Loop_Increasing 0x98
009c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 0000 0000 | | .LITERAL {0x00000000, 0xe0000000}
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4607 |F | Jump_Case 0x8
00ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ad 7806 |x | Jump 0xb4 ; case 0x1
00ae 7809 |x | Jump 0xb8 ; case 0x2
00af 780d |x | Jump 0xbd ; case 0x3
00b0 7810 |x | Jump 0xc1 ; case 0x4
00b1 7811 |x | Jump 0xc3 ; case 0x5
00b2 7812 |x | Jump 0xc5 ; case 0x6
00b3 7815 |x | Jump 0xc9 ; case 0x7
00b4 00da | | Load_Top At_Offset_2
00b5 0091 06d7 | | Action Push_String_Extended_Indexed,0x6d7 ; "HELP"
00b7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b8 00db | | Load_Top At_Offset_3
00b9 00db | | Load_Top At_Offset_3
00ba 00e0 | | Load_Encached Standard_Cache
00bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00bd 00da | | Load_Top At_Offset_2
00be 00e0 | | Load_Encached Standard_Cache
00bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c1 00db | | Load_Top At_Offset_3
00c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c3 00db | | Load_Top At_Offset_3
00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c5 e402 | | Load 0x2,0x2
00c6 00dc | | Load_Top At_Offset_4
00c7 0267 | g | Execute Discrete,Predecessor
00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c9 e402 | | Load 0x2,0x2
00ca 00dc | | Load_Top At_Offset_4
00cb 0268 | h | Execute Discrete,Successor
00cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 0092 06e2 | | Action Push_String_Extended,0x6e2 ; " "
00d5 e004 | | Load 0x0,0x4
00d6 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00d7 00da | | Load_Top At_Offset_2
00d8 e004 | | Load 0x0,0x4
00d9 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00da 00da | | Load_Top At_Offset_2
00db 01db | | Execute Vector,Length
00dc 0d12 | | Execute_Immediate Less,0x12
00dd 6812 |h | Jump_Zero 0xf0
00de 00da | | Load_Top At_Offset_2
00df 01db | | Execute Vector,Length
00e0 0a01 | | Execute_Immediate Plus,0x1
00e1 4812 |H | Short_Literal 0x12
00e2 00e9 | | Load_Encached String_Cache
00e3 0334 | 4 | Declare_Variable Array,With_Constraint
00e4 4812 |H | Short_Literal 0x12
00e5 00d9 | | Load_Top At_Offset_1
00e6 01dd | | Execute Vector,First
00e7 0263 | c | Execute Discrete,Above_Bound
00e8 7005 |p | Jump_Nonzero 0xee
00e9 4820 |H | Short_Literal 0x20
00ea 00d9 | | Load_Top At_Offset_1
00eb e602 | | Load 0x3,0x2
00ec 01d6 | | Execute Vector,Field_Write
00ed 3ffb |? | Loop_Increasing 0xe9
00ee e004 | | Load 0x0,0x4
00ef 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00f0 0092 06e3 | | Action Push_String_Extended,0x6e3 ; ": "
00f2 e004 | | Load 0x0,0x4
00f3 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
00f4 00db | | Load_Top At_Offset_3
00f5 e004 | | Load 0x0,0x4
00f6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 0092 06e4 | | Action Push_String_Extended,0x6e4 ; "*** "
00fd 00db | | Load_Top At_Offset_3
00fe 01cc | | Execute Vector,Catenate
00ff e004 | | Load 0x0,0x4
0100 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0101 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0102 0000 0000 | | .BLANK 0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c 6809 |h | Jump_Zero 0x116
010d 0092 06e5 | | Action Push_String_Extended,0x6e5 ; "unable to read ENP memory: "
010f 00db | | Load_Top At_Offset_3
0110 e007 | | Load 0x0,0x7
0111 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0112 011c | | Execute Any,Convert_Unchecked
0113 1c01 | | Execute_Immediate Run_Utility,0x1
0114 01cc | | Execute Vector,Catenate
0115 8419 | | Call 0x2,0x19
0116 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0117 0000 | | .XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c 6809 |h | Jump_Zero 0x126
011d 0092 06e6 | | Action Push_String_Extended,0x6e6 ; "unable to open file: "
011f 00db | | Load_Top At_Offset_3
0120 e008 | | Load 0x0,0x8
0121 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0122 011c | | Execute Any,Convert_Unchecked
0123 1c01 | | Execute_Immediate Run_Utility,0x1
0124 01cc | | Execute Vector,Catenate
0125 8419 | | Call 0x2,0x19
0126 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0127 0000 | | .XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0137 | 7 | .CONST 0x0137 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0003 | | .CONST 0x0003 ; Number of locals
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c 00d8 | | Load_Top At_Offset_0
012d e007 | | Load 0x0,0x7
012e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
012f 0260 | ` | Execute Discrete,In_Type
0130 7001 |p | Jump_Nonzero 0x132
0131 0801 | | Execute_Immediate Raise,0x1
0132 e007 | | Load 0x0,0x7
0133 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0134 03f1 | | Declare_Variable Discrete,With_Value
0135 e007 | | Load 0x0,0x7
0136 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0137 BODY_0128:
0137 00e3 | | Load_Encached Natural_Cache
0138 e7fe | | Load 0x3,-0x2
0139 00da | | Load_Top At_Offset_2
013a e40d | | Load 0x2,0xd
013b e602 | | Load 0x3,0x2
013c e007 | | Load 0x0,0x7
013d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
013e 00d1 | | Pop_Control Pop_Count_1
013f 005b | [ | Store_Top Discrete,At_Offset_3
0140 00d1 | | Pop_Control Pop_Count_1
0141 c7fd | | Store 0x3,-0x3
0142 00d8 | | Load_Top At_Offset_0
0143 841a | | Call 0x2,0x1a
0144 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0145 0000 0000 | | .XXX[0x3]
0147 0000 | |
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0155 | U | .CONST 0x0155 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0004 | | .CONST 0x0004 ; Number of locals
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 00e5 | | Load_Encached Long_Integer_Cache
014d 03f1 | | Declare_Variable Discrete,With_Value
014e 4801 |H | Short_Literal 0x1
014f 4900 |I | Short_Literal 0x100
0150 e00d | | Load 0x0,0xd
0151 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0152 035b | [ | Declare_Type Array,Constrained
0153 0337 | 7 | Declare_Variable Array
0154 00e3 | | Load_Encached Natural_Cache
0155 BODY_0148:
0155 00e3 | | Load_Encached Natural_Cache
0156 00da | | Load_Top At_Offset_2
0157 e602 | | Load 0x3,0x2
0158 841c | | Call 0x2,0x1c
0159 00d1 | | Pop_Control Pop_Count_1
015a 0059 | Y | Store_Top Discrete,At_Offset_1
015b 00cf | | Action Mark_Auxiliary
015c 00d9 | | Load_Top At_Offset_1
015d 00d8 | | Load_Top At_Offset_0
015e 00e2 | | Load_Encached Integer_Cache
015f 0260 | ` | Execute Discrete,In_Type
0160 7001 |p | Jump_Nonzero 0x162
0161 0801 | | Execute_Immediate Raise,0x1
0162 4801 |H | Short_Literal 0x1
0163 0263 | c | Execute Discrete,Above_Bound
0164 7012 |p | Jump_Nonzero 0x177
0165 00d8 | | Load_Top At_Offset_0
0166 e603 | | Load 0x3,0x3
0167 01d7 | | Execute Vector,Field_Read
0168 7002 |p | Jump_Nonzero 0x16b
0169 00d2 | | Pop_Control Pop_Count_2
016a 780c |x | Jump 0x177
016b 00d8 | | Load_Top At_Offset_0
016c e603 | | Load 0x3,0x3
016d 01d7 | | Execute Vector,Field_Read
016e 00d8 | | Load_Top At_Offset_0
016f 00e8 | | Load_Encached Character_Cache
0170 0260 | ` | Execute Discrete,In_Type
0171 7001 |p | Jump_Nonzero 0x173
0172 0801 | | Execute_Immediate Raise,0x1
0173 e004 | | Load 0x0,0x4
0174 185a | Z | Execute Package,Field_Execute,Field_Number 0x5a
0175 00c8 | | Action Pop_Auxiliary_Range
0176 3fee |? | Loop_Increasing 0x165
0177 00ce | | Action Pop_Auxiliary
0178 4801 |H | Short_Literal 0x1
0179 e004 | | Load 0x0,0x4
017a 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
017b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017c 0000 0000 | | .BLANK 0000[0x4]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0198 | | .CONST 0x0198 ; Address of begin
0181 01a7 | | .CONST 0x01a7 ; Address of exception handler
0182 0009 | | .CONST 0x0009 ; Number of locals
0183 INIT_0180:
0183 4801 |H | Short_Literal 0x1
0184 4804 |H | Short_Literal 0x4
0185 e00d | | Load 0x0,0xd
0186 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0187 035b | [ | Declare_Type Array,Constrained
0188 0337 | 7 | Declare_Variable Array
0189 00e3 | | Load_Encached Natural_Cache
018a e007 | | Load 0x0,0x7
018b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
018c 4800 |H | Short_Literal 0x0
018d 6022 |`" | Indirect_Literal Discrete,0x1b0,{0x00000000, 0xffffffff}
018e 00e5 | | Load_Encached Long_Integer_Cache
018f 03f8 | | Declare_Type Discrete,Constrained
0190 e00e | | Load 0x0,0xe
0191 190f | | Execute Package,Field_Reference,Field_Number 0xf
0192 00c6 | | Action Check_Subprogram_Elaborated
0193 00d8 | | Load_Top At_Offset_0
0194 e00f | | Load 0x0,0xf
0195 e010 | | Load 0x0,0x10
0196 4809 |H | Short_Literal 0x9
0197 0007 | | Action Break_Optional
0198 BODY_0180:
0198 00e3 | | Load_Encached Natural_Cache
0199 e602 | | Load 0x3,0x2
019a 6011 |` | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x00001204}
019b 841c | | Call 0x2,0x1c
019c 00d1 | | Pop_Control Pop_Count_1
019d c603 | | Store 0x3,0x3
019e e602 | | Load 0x3,0x2
019f e606 | | Load 0x3,0x6
01a0 4807 |H | Short_Literal 0x7
01a1 4803 |H | Short_Literal 0x3
01a2 0099 | | Action Reference_Dynamic
01a3 e00e | | Load 0x0,0xe
01a4 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a5 a410 | | Store_Unchecked 0x2,0x10
01a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01a7 TRAP_0180:
01a7 0007 | | Action Break_Optional
01a8 4800 |H | Short_Literal 0x0
01a9 a410 | | Store_Unchecked 0x2,0x10
01aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ab 0000 | | .XXX[0x1]
01ac 0000 0000 | | .LITERAL {0x00000000, 0x00001204}
01b0 0000 0000 | | .LITERAL {0x00000000, 0xffffffff}
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c0 | | .CONST 0x01c0 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb 4820 |H | Short_Literal 0x20
01bc 487e |H~ | Short_Literal 0x7e
01bd e00d | | Load 0x0,0xd
01be 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01bf 03f8 | | Declare_Type Discrete,Constrained
01c0 BODY_01b8:
01c0 00db | | Load_Top At_Offset_3
01c1 00d9 | | Load_Top At_Offset_1
01c2 0260 | ` | Execute Discrete,In_Type
01c3 6807 |h | Jump_Zero 0x1cb
01c4 00db | | Load_Top At_Offset_3
01c5 00d8 | | Load_Top At_Offset_0
01c6 00e8 | | Load_Encached Character_Cache
01c7 0260 | ` | Execute Discrete,In_Type
01c8 7001 |p | Jump_Nonzero 0x1ca
01c9 0801 | | Execute_Immediate Raise,0x1
01ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cb 487c |H| | Short_Literal 0x7c
01cc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cd 0000 0000 | | .XXX[0x3]
01cf 0000 | |
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 0092 06e7 | | Action Push_String_Extended,0x6e7 ; "0x"
01d5 4830 |H0 | Short_Literal 0x30
01d6 4805 |H | Short_Literal 0x5
01d7 4810 |H | Short_Literal 0x10
01d8 e7ff | | Load 0x3,-0x1
01d9 e011 | | Load 0x0,0x11
01da 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01db 01cc | | Execute Vector,Catenate
01dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01f7 | | .CONST 0x01f7 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0007 | | .CONST 0x0007 ; Number of locals
01e3 INIT_01e0:
01e3 00e5 | | Load_Encached Long_Integer_Cache
01e4 00e5 | | Load_Encached Long_Integer_Cache
01e5 4824 |H$ | Short_Literal 0x24
01e6 e009 | | Load 0x0,0x9
01e7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e8 1c08 | | Execute_Immediate Run_Utility,0x8
01e9 00d8 | | Load_Top At_Offset_0
01ea 1c00 | | Execute_Immediate Run_Utility,0x0
01eb 4810 |H | Short_Literal 0x10
01ec e009 | | Load 0x0,0x9
01ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ee 1c08 | | Execute_Immediate Run_Utility,0x8
01ef 00d8 | | Load_Top At_Offset_0
01f0 1c00 | | Execute_Immediate Run_Utility,0x0
01f1 e7fe | | Load 0x3,-0x2
01f2 01dd | | Execute Vector,First
01f3 00e3 | | Load_Encached Natural_Cache
01f4 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01f5 00e3 | | Load_Encached Natural_Cache
01f6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01f7 BODY_01e0:
01f7 e7ff | | Load 0x3,-0x1
01f8 a602 | | Store_Unchecked 0x3,0x2
01f9 e602 | | Load 0x3,0x2
01fa a603 | | Store_Unchecked 0x3,0x3
01fb 00d9 | | Load_Top At_Offset_1
01fc e7fe | | Load 0x3,-0x2
01fd 01dc | | Execute Vector,Last
01fe 027d | } | Execute Discrete,Greater
01ff 6801 |h | Jump_Zero 0x201
0200 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0201 00cf | | Action Mark_Auxiliary
0202 e604 | | Load 0x3,0x4
0203 4830 |H0 | Short_Literal 0x30
0204 4802 |H | Short_Literal 0x2
0205 4810 |H | Short_Literal 0x10
0206 e606 | | Load 0x3,0x6
0207 e7fe | | Load 0x3,-0x2
0208 01d7 | | Execute Vector,Field_Read
0209 e011 | | Load 0x0,0x11
020a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
020b e009 | | Load 0x0,0x9
020c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
020d 00d1 | | Pop_Control Pop_Count_1
020e 00db | | Load_Top At_Offset_3
020f 00db | | Load_Top At_Offset_3
0210 e7fe | | Load 0x3,-0x2
0211 01d7 | | Execute Vector,Field_Read
0212 841f | | Call 0x2,0x1f
0213 e009 | | Load 0x0,0x9
0214 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0215 00d1 | | Pop_Control Pop_Count_1
0216 00d9 | | Load_Top At_Offset_1
0217 0a01 | | Execute_Immediate Plus,0x1
0218 005a | Z | Store_Top Discrete,At_Offset_2
0219 00d9 | | Load_Top At_Offset_1
021a 4803 |H | Short_Literal 0x3
021b 0279 | y | Execute Discrete,And
021c 7005 |p | Jump_Nonzero 0x222
021d e604 | | Load 0x3,0x4
021e 4820 |H | Short_Literal 0x20
021f e009 | | Load 0x0,0x9
0220 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0221 00d1 | | Pop_Control Pop_Count_1
0222 00da | | Load_Top At_Offset_2
0223 e7fe | | Load 0x3,-0x2
0224 01dc | | Execute Vector,Last
0225 027f | | Execute Discrete,Equal
0226 702c |p, | Jump_Nonzero 0x253
0227 e603 | | Load 0x3,0x3
0228 0a01 | | Execute_Immediate Plus,0x1
0229 a603 | | Store_Unchecked 0x3,0x3
022a 00d9 | | Load_Top At_Offset_1
022b 0f10 | | Execute_Immediate Equal,0x10
022c 6821 |h! | Jump_Zero 0x24e
022d 4820 |H | Short_Literal 0x20
022e e602 | | Load 0x3,0x2
022f 8420 | | Call 0x2,0x20
0230 0092 06e3 | | Action Push_String_Extended,0x6e3 ; ": "
0232 01cc | | Execute Vector,Catenate
0233 e604 | | Load 0x3,0x4
0234 e009 | | Load 0x0,0x9
0235 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0236 01cc | | Execute Vector,Catenate
0237 01cb | | Execute Vector,Append
0238 e605 | | Load 0x3,0x5
0239 e009 | | Load 0x0,0x9
023a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023b 01cc | | Execute Vector,Catenate
023c e004 | | Load 0x0,0x4
023d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
023e e604 | | Load 0x3,0x4
023f 4820 |H | Short_Literal 0x20
0240 4800 |H | Short_Literal 0x0
0241 e009 | | Load 0x0,0x9
0242 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0243 00d1 | | Pop_Control Pop_Count_1
0244 00db | | Load_Top At_Offset_3
0245 4820 |H | Short_Literal 0x20
0246 4800 |H | Short_Literal 0x0
0247 e009 | | Load 0x0,0x9
0248 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0249 00d1 | | Pop_Control Pop_Count_1
024a 4800 |H | Short_Literal 0x0
024b 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
024c e603 | | Load 0x3,0x3
024d a602 | | Store_Unchecked 0x3,0x2
024e 00da | | Load_Top At_Offset_2
024f 0a01 | | Execute_Immediate Plus,0x1
0250 005b | [ | Store_Top Discrete,At_Offset_3
0251 00c9 | | Action Pop_Auxiliary_Loop
0252 7faf | | Jump 0x202
0253 00ce | | Action Pop_Auxiliary
0254 00d8 | | Load_Top At_Offset_0
0255 0c01 | | Execute_Immediate Greater_Equal,0x1
0256 6821 |h! | Jump_Zero 0x278
0257 00db | | Load_Top At_Offset_3
0258 4820 |H | Short_Literal 0x20
0259 e604 | | Load 0x3,0x4
025a e009 | | Load 0x0,0x9
025b 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
025c e009 | | Load 0x0,0x9
025d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
025e 00d1 | | Pop_Control Pop_Count_1
025f 00da | | Load_Top At_Offset_2
0260 4820 |H | Short_Literal 0x20
0261 e605 | | Load 0x3,0x5
0262 e009 | | Load 0x0,0x9
0263 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0264 e009 | | Load 0x0,0x9
0265 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0266 00d1 | | Pop_Control Pop_Count_1
0267 4820 |H | Short_Literal 0x20
0268 e602 | | Load 0x3,0x2
0269 8420 | | Call 0x2,0x20
026a 0092 06e3 | | Action Push_String_Extended,0x6e3 ; ": "
026c 01cc | | Execute Vector,Catenate
026d e604 | | Load 0x3,0x4
026e e009 | | Load 0x0,0x9
026f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0270 01cc | | Execute Vector,Catenate
0271 01cb | | Execute Vector,Append
0272 00db | | Load_Top At_Offset_3
0273 e009 | | Load 0x0,0x9
0274 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0275 01cc | | Execute Vector,Catenate
0276 e004 | | Load 0x0,0x4
0277 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0278 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0279 0000 0000 | | .BLANK 0000[0x7]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 028a | | .CONST 0x028a ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0006 | | .CONST 0x0006 ; Number of locals
0283 INIT_0280:
0283 00e5 | | Load_Encached Long_Integer_Cache
0284 00e2 | | Load_Encached Integer_Cache
0285 00e1 | | Load_Encached Boolean_Cache
0286 e007 | | Load 0x0,0x7
0287 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0288 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
028a BODY_0280:
028a 00e1 | | Load_Encached Boolean_Cache
028b 00e2 | | Load_Encached Integer_Cache
028c 480a |H | Short_Literal 0xa
028d e7fe | | Load 0x3,-0x2
028e e011 | | Load 0x0,0x11
028f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0290 c603 | | Store 0x3,0x3
0291 005b | [ | Store_Top Discrete,At_Offset_3
0292 00da | | Load_Top At_Offset_2
0293 7004 |p | Jump_Nonzero 0x298
0294 e412 | | Load 0x2,0x12
0295 a603 | | Store_Unchecked 0x3,0x3
0296 4801 |H | Short_Literal 0x1
0297 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0298 e7ff | | Load 0x3,-0x1
0299 01db | | Execute Vector,Length
029a 0c01 | | Execute_Immediate Greater_Equal,0x1
029b 681e |h | Jump_Zero 0x2ba
029c e7ff | | Load 0x3,-0x1
029d 01dd | | Execute Vector,First
029e e7ff | | Load 0x3,-0x1
029f 01d7 | | Execute Vector,Field_Read
02a0 0f23 | # | Execute_Immediate Equal,0x23
02a1 6818 |h | Jump_Zero 0x2ba
02a2 00e1 | | Load_Encached Boolean_Cache
02a3 00e5 | | Load_Encached Long_Integer_Cache
02a4 4810 |H | Short_Literal 0x10
02a5 e7ff | | Load 0x3,-0x1
02a6 01dd | | Execute Vector,First
02a7 0a01 | | Execute_Immediate Plus,0x1
02a8 00d8 | | Load_Top At_Offset_0
02a9 00e2 | | Load_Encached Integer_Cache
02aa 0260 | ` | Execute Discrete,In_Type
02ab 7001 |p | Jump_Nonzero 0x2ad
02ac 0801 | | Execute_Immediate Raise,0x1
02ad e7ff | | Load 0x3,-0x1
02ae 01dc | | Execute Vector,Last
02af e7ff | | Load 0x3,-0x1
02b0 01cf | | Execute Vector,Slice_Read
02b1 e011 | | Load 0x0,0x11
02b2 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02b3 c602 | | Store 0x3,0x2
02b4 005b | [ | Store_Top Discrete,At_Offset_3
02b5 e602 | | Load 0x3,0x2
02b6 e410 | | Load 0x2,0x10
02b7 0272 | r | Execute Discrete,Minus
02b8 a602 | | Store_Unchecked 0x3,0x2
02b9 7834 |x4 | Jump 0x2ee
02ba e7ff | | Load 0x3,-0x1
02bb 01db | | Execute Vector,Length
02bc 0c02 | | Execute_Immediate Greater_Equal,0x2
02bd 6824 |h$ | Jump_Zero 0x2e2
02be e7ff | | Load 0x3,-0x1
02bf 01dd | | Execute Vector,First
02c0 e7ff | | Load 0x3,-0x1
02c1 01dd | | Execute Vector,First
02c2 0a01 | | Execute_Immediate Plus,0x1
02c3 00d8 | | Load_Top At_Offset_0
02c4 00e2 | | Load_Encached Integer_Cache
02c5 0260 | ` | Execute Discrete,In_Type
02c6 7001 |p | Jump_Nonzero 0x2c8
02c7 0801 | | Execute_Immediate Raise,0x1
02c8 e7ff | | Load 0x3,-0x1
02c9 01cf | | Execute Vector,Slice_Read
02ca 0092 06e7 | | Action Push_String_Extended,0x6e7 ; "0x"
02cc 01df | | Execute Vector,Equal
02cd 6814 |h | Jump_Zero 0x2e2
02ce 00e1 | | Load_Encached Boolean_Cache
02cf 00e5 | | Load_Encached Long_Integer_Cache
02d0 4810 |H | Short_Literal 0x10
02d1 e7ff | | Load 0x3,-0x1
02d2 01dd | | Execute Vector,First
02d3 0a02 | | Execute_Immediate Plus,0x2
02d4 00d8 | | Load_Top At_Offset_0
02d5 00e2 | | Load_Encached Integer_Cache
02d6 0260 | ` | Execute Discrete,In_Type
02d7 7001 |p | Jump_Nonzero 0x2d9
02d8 0801 | | Execute_Immediate Raise,0x1
02d9 e7ff | | Load 0x3,-0x1
02da 01dc | | Execute Vector,Last
02db e7ff | | Load 0x3,-0x1
02dc 01cf | | Execute Vector,Slice_Read
02dd e011 | | Load 0x0,0x11
02de 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02df c602 | | Store 0x3,0x2
02e0 005b | [ | Store_Top Discrete,At_Offset_3
02e1 780c |x | Jump 0x2ee
02e2 00e1 | | Load_Encached Boolean_Cache
02e3 00e5 | | Load_Encached Long_Integer_Cache
02e4 4810 |H | Short_Literal 0x10
02e5 e7ff | | Load 0x3,-0x1
02e6 e011 | | Load 0x0,0x11
02e7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02e8 c602 | | Store 0x3,0x2
02e9 005b | [ | Store_Top Discrete,At_Offset_3
02ea e602 | | Load 0x3,0x2
02eb e410 | | Load 0x2,0x10
02ec 0272 | r | Execute Discrete,Minus
02ed a602 | | Store_Unchecked 0x3,0x2
02ee 00da | | Load_Top At_Offset_2
02ef 7004 |p | Jump_Nonzero 0x2f4
02f0 0092 06e8 | | Action Push_String_Extended,0x6e8 ; "Illegal address."
02f2 8419 | | Call 0x2,0x19
02f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02f4 8606 | | Call 0x3,0x6
02f5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02f6 0000 0000 | | .XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 030f | | .CONST 0x030f ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0008 | | .CONST 0x0008 ; Number of locals
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 01dd | | Execute Vector,First
02fd 00e3 | | Load_Encached Natural_Cache
02fe 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02ff 029e 0403 | | Declare_Subprogram INIT_0400,For_Call,Unelaborated
0301 029f 04ab | | Declare_Subprogram INIT_04a8,For_Call
0303 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call
0305 029f 052b | +| Declare_Subprogram INIT_0528,For_Call
0307 029f 055b | [| Declare_Subprogram INIT_0558,For_Call
0309 029f 05a3 | | Declare_Subprogram INIT_05a0,For_Call
030b 4803 |H | Short_Literal 0x3
030c 4803 |H | Short_Literal 0x3
030d 0099 | | Action Reference_Dynamic
030e 00c7 | | Action Elaborate_Subprogram
030f BODY_02f8:
030f e413 | | Load 0x2,0x13
0310 e7ff | | Load 0x3,-0x1
0311 e009 | | Load 0x0,0x9
0312 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0313 00d1 | | Pop_Control Pop_Count_1
0314 4800 |H | Short_Literal 0x0
0315 e00a | | Load 0x0,0xa
0316 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0317 e00a | | Load 0x0,0xa
0318 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0319 8603 | | Call 0x3,0x3
031a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031b 0000 0000 | | .BLANK 0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0333 | 3 | .CONST 0x0333 ; Address of begin
0321 03ae | | .CONST 0x03ae ; Address of exception handler
0322 0009 | | .CONST 0x0009 ; Number of locals
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 01dd | | Execute Vector,First
0325 00e3 | | Load_Encached Natural_Cache
0326 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0327 e402 | | Load 0x2,0x2
0328 0007 | | Action Break_Optional
0329 00e1 | | Load_Encached Boolean_Cache
032a 00e1 | | Load_Encached Boolean_Cache
032b 029f 05db | | Declare_Subprogram INIT_05d8,For_Call
032d 029f 060b | | Declare_Subprogram INIT_0608,For_Call
032f 029f 062b | +| Declare_Subprogram INIT_0628,For_Call
0331 029f 063b | ;| Declare_Subprogram INIT_0638,For_Call
0333 BODY_0320:
0333 e40b | | Load 0x2,0xb
0334 0c01 | | Execute_Immediate Greater_Equal,0x1
0335 6803 |h | Jump_Zero 0x339
0336 e7ff | | Load 0x3,-0x1
0337 e004 | | Load 0x0,0x4
0338 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0339 e7ff | | Load 0x3,-0x1
033a 01db | | Execute Vector,Length
033b 7001 |p | Jump_Nonzero 0x33d
033c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
033d 00e1 | | Load_Encached Boolean_Cache
033e 00e1 | | Load_Encached Boolean_Cache
033f e403 | | Load 0x2,0x3
0340 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0341 8606 | | Call 0x3,0x6
0342 e403 | | Load 0x2,0x3
0343 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0344 c603 | | Store 0x3,0x3
0345 c604 | | Store 0x3,0x4
0346 c605 | | Store 0x3,0x5
0347 e605 | | Load 0x3,0x5
0348 7005 |p | Jump_Nonzero 0x34e
0349 4801 |H | Short_Literal 0x1
034a a603 | | Store_Unchecked 0x3,0x3
034b e7ff | | Load 0x3,-0x1
034c 01dd | | Execute Vector,First
034d c602 | | Store 0x3,0x2
034e e603 | | Load 0x3,0x3
034f 4608 |F | Jump_Case 0x9
0350 7848 |xH | Jump 0x399 ; case 0x0
0351 780a |x | Jump 0x35c ; case 0x1
0352 7827 |x' | Jump 0x37a ; case 0x2
0353 7824 |x$ | Jump 0x378 ; case 0x3
0354 7835 |x5 | Jump 0x38a ; case 0x4
0355 7826 |x& | Jump 0x37c ; case 0x5
0356 7850 |xP | Jump 0x3a7 ; case 0x6
0357 7854 |xT | Jump 0x3ac ; case 0x7
0358 7800 |x | Jump 0x359 ; case 0x8
0359 4801 |H | Short_Literal 0x1
035a a40c | | Store_Unchecked 0x2,0xc
035b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
035c e602 | | Load 0x3,0x2
035d e7ff | | Load 0x3,-0x1
035e 01dc | | Execute Vector,Last
035f 027a | z | Execute Discrete,Less_Equal
0360 6810 |h | Jump_Zero 0x371
0361 e602 | | Load 0x3,0x2
0362 e7ff | | Load 0x3,-0x1
0363 01d7 | | Execute Vector,Field_Read
0364 0f2e | . | Execute_Immediate Equal,0x2e
0365 680b |h | Jump_Zero 0x371
0366 e413 | | Load 0x2,0x13
0367 e009 | | Load 0x0,0x9
0368 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0369 e602 | | Load 0x3,0x2
036a e7ff | | Load 0x3,-0x1
036b 01dc | | Execute Vector,Last
036c e7ff | | Load 0x3,-0x1
036d 01cf | | Execute Vector,Slice_Read
036e 01cc | | Execute Vector,Catenate
036f 8423 | # | Call 0x2,0x23
0370 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0371 e602 | | Load 0x3,0x2
0372 e7ff | | Load 0x3,-0x1
0373 01dc | | Execute Vector,Last
0374 e7ff | | Load 0x3,-0x1
0375 01cf | | Execute Vector,Slice_Read
0376 8423 | # | Call 0x2,0x23
0377 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0378 8607 | | Call 0x3,0x7
0379 4502 |E | Exit_Suprogram New_Top_Offset 0x2
037a 8608 | | Call 0x3,0x8
037b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
037c e40f | | Load 0x2,0xf
037d e40d | | Load 0x2,0xd
037e e602 | | Load 0x3,0x2
037f e7ff | | Load 0x3,-0x1
0380 01dc | | Execute Vector,Last
0381 e7ff | | Load 0x3,-0x1
0382 01cf | | Execute Vector,Slice_Read
0383 e007 | | Load 0x0,0x7
0384 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0385 00d1 | | Pop_Control Pop_Count_1
0386 c40f | | Store 0x2,0xf
0387 e40f | | Load 0x2,0xf
0388 841b | | Call 0x2,0x1b
0389 4502 |E | Exit_Suprogram New_Top_Offset 0x2
038a e40f | | Load 0x2,0xf
038b e40d | | Load 0x2,0xd
038c e602 | | Load 0x3,0x2
038d e7ff | | Load 0x3,-0x1
038e 01dc | | Execute Vector,Last
038f e7ff | | Load 0x3,-0x1
0390 01cf | | Execute Vector,Slice_Read
0391 e007 | | Load 0x0,0x7
0392 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0393 00d1 | | Pop_Control Pop_Count_1
0394 c40f | | Store 0x2,0xf
0395 e40f | | Load 0x2,0xf
0396 841b | | Call 0x2,0x1b
0397 841e | | Call 0x2,0x1e
0398 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0399 484b |HK | Short_Literal 0x4b
039a 8606 | | Call 0x3,0x6
039b e404 | | Load 0x2,0x4
039c e405 | | Load 0x2,0x5
039d e406 | | Load 0x2,0x6
039e 4807 |H | Short_Literal 0x7
039f 4802 |H | Short_Literal 0x2
03a0 0099 | | Action Reference_Dynamic
03a1 4808 |H | Short_Literal 0x8
03a2 4802 |H | Short_Literal 0x2
03a3 0099 | | Action Reference_Dynamic
03a4 e403 | | Load 0x2,0x3
03a5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
03a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03a7 0092 06e9 | | Action Push_String_Extended,0x6e9 ; "Rev1_0_3; August 23, 1990"
03a9 e004 | | Load 0x0,0x4
03aa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ac 8609 | | Call 0x3,0x9
03ad 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ae TRAP_0320:
03ae 0007 | | Action Break_Optional
03af 0092 06ea | | Action Push_String_Extended,0x6ea ; "Unhandled exception: "
03b1 4800 |H | Short_Literal 0x0
03b2 4801 |H | Short_Literal 0x1
03b3 e012 | | Load 0x0,0x12
03b4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03b5 01cc | | Execute Vector,Catenate
03b6 8419 | | Call 0x2,0x19
03b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 03bf | | .CONST 0x03bf ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb e004 | | Load 0x0,0x4
03bc 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
03bd 8424 | $ | Call 0x2,0x24
03be 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03bf TRAP_03b8:
03bf 00d8 | | Load_Top At_Offset_0
03c0 0107 | | Execute Exception,Get_Name
03c1 4950 |IP | Short_Literal 0x150
03c2 495f |I_ | Short_Literal 0x15f
03c3 0262 | b | Execute Discrete,In_Range
03c4 681b |h | Jump_Zero 0x3e0
03c5 e40b | | Load 0x2,0xb
03c6 7007 |p | Jump_Nonzero 0x3ce
03c7 0092 06eb | | Action Push_String_Extended,0x6eb ; "<end of input>"
03c9 e004 | | Load 0x0,0x4
03ca 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03cb 4801 |H | Short_Literal 0x1
03cc a40c | | Store_Unchecked 0x2,0xc
03cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03ce 0092 06ec | | Action Push_String_Extended,0x6ec ; "<end of "
03d0 e004 | | Load 0x0,0x4
03d1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03d2 e004 | | Load 0x0,0x4
03d3 1820 | | Execute Package,Field_Execute,Field_Number 0x20
03d4 01cc | | Execute Vector,Catenate
03d5 0092 06ed | | Action Push_String_Extended,0x6ed ; ">"
03d7 01cc | | Execute Vector,Catenate
03d8 e004 | | Load 0x0,0x4
03d9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03da e004 | | Load 0x0,0x4
03db 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
03dc e40b | | Load 0x2,0xb
03dd 0aff | | Execute_Immediate Plus,-0x1
03de c40b | | Store 0x2,0xb
03df 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e0 0100 | | Execute Exception,Raise
03e1 0000 0000 | | .BLANK 0000[0x7]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f1 | | .CONST 0x03f1 ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0002 | | .CONST 0x0002 ; Number of locals
03eb INIT_03e8:
03eb 4801 |H | Short_Literal 0x1
03ec e603 | | Load 0x3,0x3
03ed e00d | | Load 0x0,0xd
03ee 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03ef 035b | [ | Declare_Type Array,Constrained
03f0 0337 | 7 | Declare_Variable Array
03f1 BODY_03e8:
03f1 00e3 | | Load_Encached Natural_Cache
03f2 00d9 | | Load_Top At_Offset_1
03f3 e602 | | Load 0x3,0x2
03f4 841c | | Call 0x2,0x1c
03f5 00d1 | | Pop_Control Pop_Count_1
03f6 c603 | | Store 0x3,0x3
03f7 00d8 | | Load_Top At_Offset_0
03f8 e602 | | Load 0x3,0x2
03f9 8421 | ! | Call 0x2,0x21
03fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03fb 0000 0000 | | .BLANK 0000[0x5]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0406 | | .CONST 0x0406 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0003 | | .CONST 0x0003 ; Number of locals
0403 INIT_0400:
0403 8604 | | Call 0x3,0x4
0404 e00a | | Load 0x0,0xa
0405 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0406 BODY_0400:
0406 00d9 | | Load_Top At_Offset_1
0407 01db | | Execute Vector,Length
0408 7015 |p | Jump_Nonzero 0x41e
0409 e9fd | | Load 0x4,-0x3
040a 6807 |h | Jump_Zero 0x412
040b e9fd | | Load 0x4,-0x3
040c 8420 | | Call 0x2,0x20
040d 0092 06ee | | Action Push_String_Extended,0x6ee ; "=>"
040f 01cc | | Execute Vector,Catenate
0410 e004 | | Load 0x0,0x4
0411 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0412 4800 |H | Short_Literal 0x0
0413 e9fe | | Load 0x4,-0x2
0414 e9ff | | Load 0x4,-0x1
0415 4815 |H | Short_Literal 0x15
0416 4802 |H | Short_Literal 0x2
0417 0099 | | Action Reference_Dynamic
0418 4816 |H | Short_Literal 0x16
0419 4802 |H | Short_Literal 0x2
041a 0099 | | Action Reference_Dynamic
041b e00a | | Load 0x0,0xa
041c 1814 | | Execute Package,Field_Execute,Field_Number 0x14
041d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
041e 00d9 | | Load_Top At_Offset_1
041f e9ff | | Load 0x4,-0x1
0420 e00a | | Load 0x0,0xa
0421 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0422 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0423 00d8 | | Load_Top At_Offset_0
0424 e00a | | Load 0x0,0xa
0425 180f | | Execute Package,Field_Execute,Field_Number 0xf
0426 6806 |h | Jump_Zero 0x42d
0427 0092 06ef | | Action Push_String_Extended,0x6ef ; "Unknown Field: "
0429 00da | | Load_Top At_Offset_2
042a 01cc | | Execute Vector,Catenate
042b 8419 | | Call 0x2,0x19
042c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
042d 00d8 | | Load_Top At_Offset_0
042e e9ff | | Load 0x4,-0x1
042f e00a | | Load 0x0,0xa
0430 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0431 460c |F | Jump_Case 0xd
0432 7818 |x | Jump 0x44b ; case 0x0
0433 781b |x | Jump 0x44f ; case 0x1
0434 781a |x | Jump 0x44f ; case 0x2
0435 7819 |x | Jump 0x44f ; case 0x3
0436 7818 |x | Jump 0x44f ; case 0x4
0437 7817 |x | Jump 0x44f ; case 0x5
0438 7816 |x | Jump 0x44f ; case 0x6
0439 7821 |x! | Jump 0x45b ; case 0x7
043a 7826 |x& | Jump 0x461 ; case 0x8
043b 782b |x+ | Jump 0x467 ; case 0x9
043c 7842 |xB | Jump 0x47f ; case 0xa
043d 7859 |xY | Jump 0x497 ; case 0xb
043e 7800 |x | Jump 0x43f ; case 0xc
043f 00d8 | | Load_Top At_Offset_0
0440 e9fe | | Load 0x4,-0x2
0441 e9ff | | Load 0x4,-0x1
0442 e00a | | Load 0x0,0xa
0443 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0444 e410 | | Load 0x2,0x10
0445 0272 | r | Execute Discrete,Minus
0446 00d9 | | Load_Top At_Offset_1
0447 e9fe | | Load 0x4,-0x2
0448 e9ff | | Load 0x4,-0x1
0449 8607 | | Call 0x3,0x7
044a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
044b 0092 06f0 | | Action Push_String_Extended,0x6f0 ; "Field type undefined."
044d 8419 | | Call 0x2,0x19
044e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
044f 00d8 | | Load_Top At_Offset_0
0450 e9fe | | Load 0x4,-0x2
0451 e9ff | | Load 0x4,-0x1
0452 4815 |H | Short_Literal 0x15
0453 4802 |H | Short_Literal 0x2
0454 0099 | | Action Reference_Dynamic
0455 4816 |H | Short_Literal 0x16
0456 4802 |H | Short_Literal 0x2
0457 0099 | | Action Reference_Dynamic
0458 e00a | | Load 0x0,0xa
0459 1814 | | Execute Package,Field_Execute,Field_Number 0x14
045a 4504 |E | Exit_Suprogram New_Top_Offset 0x4
045b e9fd | | Load 0x4,-0x3
045c 00d9 | | Load_Top At_Offset_1
045d e9fe | | Load 0x4,-0x2
045e e9ff | | Load 0x4,-0x1
045f 8608 | | Call 0x3,0x8
0460 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0461 e9fd | | Load 0x4,-0x3
0462 00d9 | | Load_Top At_Offset_1
0463 e9fe | | Load 0x4,-0x2
0464 e9ff | | Load 0x4,-0x1
0465 8606 | | Call 0x3,0x6
0466 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0467 00d8 | | Load_Top At_Offset_0
0468 e9fe | | Load 0x4,-0x2
0469 e9ff | | Load 0x4,-0x1
046a 4815 |H | Short_Literal 0x15
046b 4802 |H | Short_Literal 0x2
046c 0099 | | Action Reference_Dynamic
046d 4816 |H | Short_Literal 0x16
046e 4802 |H | Short_Literal 0x2
046f 0099 | | Action Reference_Dynamic
0470 e00a | | Load 0x0,0xa
0471 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0472 0092 06f1 | | Action Push_String_Extended,0x6f1 ; "=> "
0474 e004 | | Load 0x0,0x4
0475 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0476 00d8 | | Load_Top At_Offset_0
0477 e9fe | | Load 0x4,-0x2
0478 e9ff | | Load 0x4,-0x1
0479 e00a | | Load 0x0,0xa
047a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
047b e411 | | Load 0x2,0x11
047c 0272 | r | Execute Discrete,Minus
047d 841d | | Call 0x2,0x1d
047e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
047f 00d8 | | Load_Top At_Offset_0
0480 e9fe | | Load 0x4,-0x2
0481 e9ff | | Load 0x4,-0x1
0482 4815 |H | Short_Literal 0x15
0483 4802 |H | Short_Literal 0x2
0484 0099 | | Action Reference_Dynamic
0485 4816 |H | Short_Literal 0x16
0486 4802 |H | Short_Literal 0x2
0487 0099 | | Action Reference_Dynamic
0488 e00a | | Load 0x0,0xa
0489 1814 | | Execute Package,Field_Execute,Field_Number 0x14
048a 0092 06f1 | | Action Push_String_Extended,0x6f1 ; "=> "
048c e004 | | Load 0x0,0x4
048d 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
048e 00d8 | | Load_Top At_Offset_0
048f e9fe | | Load 0x4,-0x2
0490 e9ff | | Load 0x4,-0x1
0491 e00a | | Load 0x0,0xa
0492 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0493 e410 | | Load 0x2,0x10
0494 0272 | r | Execute Discrete,Minus
0495 841d | | Call 0x2,0x1d
0496 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0497 00d8 | | Load_Top At_Offset_0
0498 e9fe | | Load 0x4,-0x2
0499 e9ff | | Load 0x4,-0x1
049a e00a | | Load 0x0,0xa
049b 181a | | Execute Package,Field_Execute,Field_Number 0x1a
049c e411 | | Load 0x2,0x11
049d 0272 | r | Execute Discrete,Minus
049e 00d9 | | Load_Top At_Offset_1
049f e9fe | | Load 0x4,-0x2
04a0 e9ff | | Load 0x4,-0x1
04a1 8607 | | Call 0x3,0x7
04a2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04a3 0000 0000 | | .BLANK 0000[0x5]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ac | | .CONST 0x04ac ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0002 | | .CONST 0x0002 ; Number of locals
04ab INIT_04a8:
04ab 00e3 | | Load_Encached Natural_Cache
04ac BODY_04a8:
04ac 00cf | | Action Mark_Auxiliary
04ad 7804 |x | Jump 0x4b2
04ae e602 | | Load 0x3,0x2
04af 0a01 | | Execute_Immediate Plus,0x1
04b0 c602 | | Store 0x3,0x2
04b1 00c9 | | Action Pop_Auxiliary_Loop
04b2 e602 | | Load 0x3,0x2
04b3 e7ff | | Load 0x3,-0x1
04b4 01dc | | Execute Vector,Last
04b5 027a | z | Execute Discrete,Less_Equal
04b6 680a |h | Jump_Zero 0x4c1
04b7 e602 | | Load 0x3,0x2
04b8 e7ff | | Load 0x3,-0x1
04b9 01d7 | | Execute Vector,Field_Read
04ba 0f20 | | Execute_Immediate Equal,0x20
04bb 77f2 |w | Jump_Nonzero 0x4ae
04bc e602 | | Load 0x3,0x2
04bd e7ff | | Load 0x3,-0x1
04be 01d7 | | Execute Vector,Field_Read
04bf 0f2e | . | Execute_Immediate Equal,0x2e
04c0 77ed |w | Jump_Nonzero 0x4ae
04c1 00ce | | Action Pop_Auxiliary
04c2 e602 | | Load 0x3,0x2
04c3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
04c4 00cf | | Action Mark_Auxiliary
04c5 7804 |x | Jump 0x4ca
04c6 e602 | | Load 0x3,0x2
04c7 0a01 | | Execute_Immediate Plus,0x1
04c8 c602 | | Store 0x3,0x2
04c9 00c9 | | Action Pop_Auxiliary_Loop
04ca e602 | | Load 0x3,0x2
04cb e7ff | | Load 0x3,-0x1
04cc 01dc | | Execute Vector,Last
04cd 027a | z | Execute Discrete,Less_Equal
04ce 680f |h | Jump_Zero 0x4de
04cf e602 | | Load 0x3,0x2
04d0 e7ff | | Load 0x3,-0x1
04d1 01d7 | | Execute Vector,Field_Read
04d2 0e20 | | Execute_Immediate Not_Equal,0x20
04d3 680a |h | Jump_Zero 0x4de
04d4 e602 | | Load 0x3,0x2
04d5 e7ff | | Load 0x3,-0x1
04d6 01d7 | | Execute Vector,Field_Read
04d7 0e2e | . | Execute_Immediate Not_Equal,0x2e
04d8 6805 |h | Jump_Zero 0x4de
04d9 e602 | | Load 0x3,0x2
04da e7ff | | Load 0x3,-0x1
04db 01d7 | | Execute Vector,Field_Read
04dc 0e28 | ( | Execute_Immediate Not_Equal,0x28
04dd 77e8 |w | Jump_Nonzero 0x4c6
04de 00ce | | Action Pop_Auxiliary
04df 00d8 | | Load_Top At_Offset_0
04e0 e602 | | Load 0x3,0x2
04e1 0aff | | Execute_Immediate Plus,-0x1
04e2 e7ff | | Load 0x3,-0x1
04e3 01cf | | Execute Vector,Slice_Read
04e4 0335 | 5 | Declare_Variable Array,Duplicate
04e5 00cd | | Action Spare6_Action
04e6 00ca | | Action Exit_Nullary_Function
04e7 0000 | | .XXX[0x1]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04ee | | .CONST 0x04ee ; 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 00e2 | | Load_Encached Integer_Cache
04ed 00e1 | | Load_Encached Boolean_Cache
04ee BODY_04e8:
04ee e602 | | Load 0x3,0x2
04ef e7ff | | Load 0x3,-0x1
04f0 01dc | | Execute Vector,Last
04f1 027a | z | Execute Discrete,Less_Equal
04f2 6807 |h | Jump_Zero 0x4fa
04f3 e602 | | Load 0x3,0x2
04f4 e7ff | | Load 0x3,-0x1
04f5 01d7 | | Execute Vector,Field_Read
04f6 0e28 | ( | Execute_Immediate Not_Equal,0x28
04f7 6802 |h | Jump_Zero 0x4fa
04f8 4fff |O | Short_Literal -0x1
04f9 00ca | | Action Exit_Nullary_Function
04fa e602 | | Load 0x3,0x2
04fb 0a01 | | Execute_Immediate Plus,0x1
04fc c602 | | Store 0x3,0x2
04fd e602 | | Load 0x3,0x2
04fe 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
04ff 00cf | | Action Mark_Auxiliary
0500 7804 |x | Jump 0x505
0501 e602 | | Load 0x3,0x2
0502 0a01 | | Execute_Immediate Plus,0x1
0503 c602 | | Store 0x3,0x2
0504 00c9 | | Action Pop_Auxiliary_Loop
0505 e602 | | Load 0x3,0x2
0506 e7ff | | Load 0x3,-0x1
0507 01dc | | Execute Vector,Last
0508 027a | z | Execute Discrete,Less_Equal
0509 6805 |h | Jump_Zero 0x50f
050a e602 | | Load 0x3,0x2
050b e7ff | | Load 0x3,-0x1
050c 01d7 | | Execute Vector,Field_Read
050d 0e29 | ) | Execute_Immediate Not_Equal,0x29
050e 77f2 |w | Jump_Nonzero 0x501
050f 00ce | | Action Pop_Auxiliary
0510 e602 | | Load 0x3,0x2
0511 0a01 | | Execute_Immediate Plus,0x1
0512 c602 | | Store 0x3,0x2
0513 00e1 | | Load_Encached Boolean_Cache
0514 00e2 | | Load_Encached Integer_Cache
0515 480a |H | Short_Literal 0xa
0516 e802 | | Load 0x4,0x2
0517 e602 | | Load 0x3,0x2
0518 0afe | | Execute_Immediate Plus,-0x2
0519 e7ff | | Load 0x3,-0x1
051a 01cf | | Execute Vector,Slice_Read
051b e011 | | Load 0x0,0x11
051c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
051d 005b | [ | Store_Top Discrete,At_Offset_3
051e 0059 | Y | Store_Top Discrete,At_Offset_1
051f 00d8 | | Load_Top At_Offset_0
0520 6802 |h | Jump_Zero 0x523
0521 00d9 | | Load_Top At_Offset_1
0522 00ca | | Action Exit_Nullary_Function
0523 4fff |O | Short_Literal -0x1
0524 00ca | | Action Exit_Nullary_Function
0525 0000 0000 | | .XXX[0x3]
0527 0000 | |
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 0535 | 5 | .CONST 0x0535 ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0006 | | .CONST 0x0006 ; Number of locals
052b INIT_0528:
052b 8605 | | Call 0x3,0x5
052c 00e2 | | Load_Encached Integer_Cache
052d 03f1 | | Declare_Variable Discrete,With_Value
052e e00a | | Load 0x0,0xa
052f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0530 e00a | | Load 0x0,0xa
0531 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0532 00e5 | | Load_Encached Long_Integer_Cache
0533 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call
0535 BODY_0528:
0535 e802 | | Load 0x4,0x2
0536 4fff |O | Short_Literal -0x1
0537 027f | | Execute Discrete,Equal
0538 6804 |h | Jump_Zero 0x53d
0539 0092 06f2 | | Action Push_String_Extended,0x6f2 ; "Illegal or missing array index."
053b 8419 | | Call 0x2,0x19
053c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
053d e9fc | | Load 0x4,-0x4
053e e802 | | Load 0x4,0x2
053f 00d8 | | Load_Top At_Offset_0
0540 00e3 | | Load_Encached Natural_Cache
0541 0260 | ` | Execute Discrete,In_Type
0542 7001 |p | Jump_Nonzero 0x544
0543 0801 | | Execute_Immediate Raise,0x1
0544 e9fd | | Load 0x4,-0x3
0545 e9ff | | Load 0x4,-0x1
0546 e00a | | Load 0x0,0xa
0547 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0548 0273 | s | Execute Discrete,Plus
0549 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
054a e9fd | | Load 0x4,-0x3
054b e9fe | | Load 0x4,-0x2
054c e9ff | | Load 0x4,-0x1
054d e00a | | Load 0x0,0xa
054e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
054f a803 | | Store_Unchecked 0x4,0x3
0550 00db | | Load_Top At_Offset_3
0551 e00a | | Load 0x0,0xa
0552 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0553 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0554 8806 | | Call 0x4,0x6
0555 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0556 0000 0000 | | .XXX[0x2]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 0566 | f | .CONST 0x0566 ; Address of begin
0559 0004 | | .CONST 0x0004 ; Address of exception handler
055a 0007 | | .CONST 0x0007 ; Number of locals
055b INIT_0558:
055b e00a | | Load 0x0,0xa
055c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
055d 00e2 | | Load_Encached Integer_Cache
055e e007 | | Load 0x0,0x7
055f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0560 029f 0683 | | Declare_Subprogram INIT_0680,For_Call
0562 029f 06a3 | | Declare_Subprogram INIT_06a0,For_Call
0564 029f 06c3 | | Declare_Subprogram INIT_06c0,For_Call
0566 BODY_0558:
0566 e9fd | | Load 0x4,-0x3
0567 e9ff | | Load 0x4,-0x1
0568 e00a | | Load 0x0,0xa
0569 181b | | Execute Package,Field_Execute,Field_Number 0x1b
056a 6807 |h | Jump_Zero 0x572
056b e9fd | | Load 0x4,-0x3
056c e9fe | | Load 0x4,-0x2
056d e9ff | | Load 0x4,-0x1
056e e00a | | Load 0x0,0xa
056f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0570 a802 | | Store_Unchecked 0x4,0x2
0571 7803 |x | Jump 0x575
0572 e00a | | Load 0x0,0xa
0573 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0574 a802 | | Store_Unchecked 0x4,0x2
0575 e802 | | Load 0x4,0x2
0576 e00a | | Load 0x0,0xa
0577 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0578 022f | / | Execute Access,Equal
0579 7012 |p | Jump_Nonzero 0x58c
057a e602 | | Load 0x3,0x2
057b e7ff | | Load 0x3,-0x1
057c 01dc | | Execute Vector,Last
057d 027a | z | Execute Discrete,Less_Equal
057e 6807 |h | Jump_Zero 0x586
057f e602 | | Load 0x3,0x2
0580 e7ff | | Load 0x3,-0x1
0581 01d7 | | Execute Vector,Field_Read
0582 0f28 | ( | Execute_Immediate Equal,0x28
0583 6802 |h | Jump_Zero 0x586
0584 8805 | | Call 0x4,0x5
0585 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0586 e802 | | Load 0x4,0x2
0587 e00a | | Load 0x0,0xa
0588 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0589 a803 | | Store_Unchecked 0x4,0x3
058a 8806 | | Call 0x4,0x6
058b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
058c e9fd | | Load 0x4,-0x3
058d e9fe | | Load 0x4,-0x2
058e e9ff | | Load 0x4,-0x1
058f 4815 |H | Short_Literal 0x15
0590 4802 |H | Short_Literal 0x2
0591 0099 | | Action Reference_Dynamic
0592 4816 |H | Short_Literal 0x16
0593 4802 |H | Short_Literal 0x2
0594 0099 | | Action Reference_Dynamic
0595 e00a | | Load 0x0,0xa
0596 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0597 8807 | | Call 0x4,0x7
0598 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0599 0000 0000 | | .BLANK 0000[0x7]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a7 | | .CONST 0x05a7 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0004 | | .CONST 0x0004 ; Number of locals
05a3 INIT_05a0:
05a3 e00a | | Load 0x0,0xa
05a4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05a5 00e3 | | Load_Encached Natural_Cache
05a6 00e2 | | Load_Encached Integer_Cache
05a7 BODY_05a0:
05a7 e9fd | | Load 0x4,-0x3
05a8 e9fe | | Load 0x4,-0x2
05a9 e9ff | | Load 0x4,-0x1
05aa e00a | | Load 0x0,0xa
05ab 181c | | Execute Package,Field_Execute,Field_Number 0x1c
05ac 003b | ; | Store_Top Access,At_Offset_3
05ad 00da | | Load_Top At_Offset_2
05ae e00a | | Load 0x0,0xa
05af 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05b0 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05b1 e9fd | | Load 0x4,-0x3
05b2 e9ff | | Load 0x4,-0x1
05b3 e00a | | Load 0x0,0xa
05b4 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
05b5 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
05b6 e9fc | | Load 0x4,-0x4
05b7 00da | | Load_Top At_Offset_2
05b8 0273 | s | Execute Discrete,Plus
05b9 e9fe | | Load 0x4,-0x2
05ba 01dd | | Execute Vector,First
05bb 00db | | Load_Top At_Offset_3
05bc 0273 | s | Execute Discrete,Plus
05bd 00d8 | | Load_Top At_Offset_0
05be 00e2 | | Load_Encached Integer_Cache
05bf 0260 | ` | Execute Discrete,In_Type
05c0 7001 |p | Jump_Nonzero 0x5c2
05c1 0801 | | Execute_Immediate Raise,0x1
05c2 e9fe | | Load 0x4,-0x2
05c3 01dd | | Execute Vector,First
05c4 e803 | | Load 0x4,0x3
05c5 0273 | s | Execute Discrete,Plus
05c6 00db | | Load_Top At_Offset_3
05c7 0273 | s | Execute Discrete,Plus
05c8 0aff | | Execute_Immediate Plus,-0x1
05c9 00d8 | | Load_Top At_Offset_0
05ca 00e2 | | Load_Encached Integer_Cache
05cb 0260 | ` | Execute Discrete,In_Type
05cc 7001 |p | Jump_Nonzero 0x5ce
05cd 0801 | | Execute_Immediate Raise,0x1
05ce e9fe | | Load 0x4,-0x2
05cf 01cf | | Execute Vector,Slice_Read
05d0 e802 | | Load 0x4,0x2
05d1 8603 | | Call 0x3,0x3
05d2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
05d3 0000 0000 | | .BLANK 0000[0x5]
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05dc | | .CONST 0x05dc ; Address of begin
05d9 0004 | | .CONST 0x0004 ; Address of exception handler
05da 0002 | | .CONST 0x0002 ; Number of locals
05db INIT_05d8:
05db 00e3 | | Load_Encached Natural_Cache
05dc BODY_05d8:
05dc 00cf | | Action Mark_Auxiliary
05dd 7804 |x | Jump 0x5e2
05de e602 | | Load 0x3,0x2
05df 0a01 | | Execute_Immediate Plus,0x1
05e0 c602 | | Store 0x3,0x2
05e1 00c9 | | Action Pop_Auxiliary_Loop
05e2 e602 | | Load 0x3,0x2
05e3 e7ff | | Load 0x3,-0x1
05e4 01dc | | Execute Vector,Last
05e5 027a | z | Execute Discrete,Less_Equal
05e6 6805 |h | Jump_Zero 0x5ec
05e7 e602 | | Load 0x3,0x2
05e8 e7ff | | Load 0x3,-0x1
05e9 01d7 | | Execute Vector,Field_Read
05ea 0f20 | | Execute_Immediate Equal,0x20
05eb 77f2 |w | Jump_Nonzero 0x5de
05ec 00ce | | Action Pop_Auxiliary
05ed e602 | | Load 0x3,0x2
05ee 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
05ef 00cf | | Action Mark_Auxiliary
05f0 7804 |x | Jump 0x5f5
05f1 e602 | | Load 0x3,0x2
05f2 0a01 | | Execute_Immediate Plus,0x1
05f3 c602 | | Store 0x3,0x2
05f4 00c9 | | Action Pop_Auxiliary_Loop
05f5 e602 | | Load 0x3,0x2
05f6 e7ff | | Load 0x3,-0x1
05f7 01dc | | Execute Vector,Last
05f8 027a | z | Execute Discrete,Less_Equal
05f9 6805 |h | Jump_Zero 0x5ff
05fa e602 | | Load 0x3,0x2
05fb e7ff | | Load 0x3,-0x1
05fc 01d7 | | Execute Vector,Field_Read
05fd 0e20 | | Execute_Immediate Not_Equal,0x20
05fe 77f2 |w | Jump_Nonzero 0x5f1
05ff 00ce | | Action Pop_Auxiliary
0600 00d8 | | Load_Top At_Offset_0
0601 e602 | | Load 0x3,0x2
0602 0aff | | Execute_Immediate Plus,-0x1
0603 e7ff | | Load 0x3,-0x1
0604 01cf | | Execute Vector,Slice_Read
0605 0335 | 5 | Declare_Variable Array,Duplicate
0606 00cd | | Action Spare6_Action
0607 00ca | | Action Exit_Nullary_Function
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060e | | .CONST 0x060e ; Address of begin
0609 0004 | | .CONST 0x0004 ; Address of exception handler
060a 0004 | | .CONST 0x0004 ; Number of locals
060b INIT_0608:
060b 8606 | | Call 0x3,0x6
060c 00e2 | | Load_Encached Integer_Cache
060d 00e1 | | Load_Encached Boolean_Cache
060e BODY_0608:
060e 00e1 | | Load_Encached Boolean_Cache
060f 00e2 | | Load_Encached Integer_Cache
0610 480a |H | Short_Literal 0xa
0611 e802 | | Load 0x4,0x2
0612 e011 | | Load 0x0,0x11
0613 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0614 005b | [ | Store_Top Discrete,At_Offset_3
0615 0059 | Y | Store_Top Discrete,At_Offset_1
0616 00d8 | | Load_Top At_Offset_0
0617 6806 |h | Jump_Zero 0x61e
0618 00d9 | | Load_Top At_Offset_1
0619 0c01 | | Execute_Immediate Greater_Equal,0x1
061a 6803 |h | Jump_Zero 0x61e
061b 00d9 | | Load_Top At_Offset_1
061c c412 | | Store 0x2,0x12
061d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
061e 0092 06f3 | | Action Push_String_Extended,0x6f3 ; "Not a valid positive number: "
0620 00db | | Load_Top At_Offset_3
0621 01cc | | Execute Vector,Catenate
0622 8419 | | Call 0x2,0x19
0623 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0624 0000 0000 | | .BLANK 0000[0x4]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062d | - | .CONST 0x062d ; Address of begin
0629 0004 | | .CONST 0x0004 ; Address of exception handler
062a 0003 | | .CONST 0x0003 ; Number of locals
062b INIT_0628:
062b 8606 | | Call 0x3,0x6
062c 8606 | | Call 0x3,0x6
062d BODY_0628:
062d 00d8 | | Load_Top At_Offset_0
062e 00da | | Load_Top At_Offset_2
062f 8422 | " | Call 0x2,0x22
0630 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0631 0000 0000 | | .BLANK 0000[0x7]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 0642 | B | .CONST 0x0642 ; Address of begin
0639 0649 | I | .CONST 0x0649 ; Address of exception handler
063a 0002 | | .CONST 0x0002 ; Number of locals
063b INIT_0638:
063b e602 | | Load 0x3,0x2
063c e7ff | | Load 0x3,-0x1
063d 01dc | | Execute Vector,Last
063e e7ff | | Load 0x3,-0x1
063f 01cf | | Execute Vector,Slice_Read
0640 0335 | 5 | Declare_Variable Array,Duplicate
0641 00cd | | Action Spare6_Action
0642 BODY_0638:
0642 00d8 | | Load_Top At_Offset_0
0643 e004 | | Load 0x0,0x4
0644 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0645 e40b | | Load 0x2,0xb
0646 0a01 | | Execute_Immediate Plus,0x1
0647 c40b | | Store 0x2,0xb
0648 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0649 TRAP_0638:
0649 0007 | | Action Break_Optional
064a e013 | | Load 0x0,0x13
064b 180e | | Execute Package,Field_Execute,Field_Number 0xe
064c 4808 |H | Short_Literal 0x8
064d 4801 |H | Short_Literal 0x1
064e 4801 |H | Short_Literal 0x1
064f e012 | | Load 0x0,0x12
0650 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0651 0092 06f4 | | Action Push_String_Extended,0x6f4 ; " propagated from Io.Set_Input (\x22"
0653 01cc | | Execute Vector,Catenate
0654 e802 | | Load 0x4,0x2
0655 01cc | | Execute Vector,Catenate
0656 0092 06f5 | | Action Push_String_Extended,0x6f5 ; "\x22)"
0658 01cc | | Execute Vector,Catenate
0659 e014 | | Load 0x0,0x14
065a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
065b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
065c 0000 0000 | | .BLANK 0000[0x4]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 066c | l | .CONST 0x066c ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0004 | | .CONST 0x0004 ; Number of locals
0663 INIT_0660:
0663 4801 |H | Short_Literal 0x1
0664 e804 | | Load 0x4,0x4
0665 e00d | | Load 0x0,0xd
0666 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0667 035b | [ | Declare_Type Array,Constrained
0668 0337 | 7 | Declare_Variable Array
0669 00e3 | | Load_Encached Natural_Cache
066a e007 | | Load 0x0,0x7
066b 1b10 | | Execute Package,Field_Read,Field_Number 0x10
066c BODY_0660:
066c 00e3 | | Load_Encached Natural_Cache
066d 00db | | Load_Top At_Offset_3
066e e805 | | Load 0x4,0x5
066f 841c | | Call 0x2,0x1c
0670 00d1 | | Pop_Control Pop_Count_1
0671 005a | Z | Store_Top Discrete,At_Offset_2
0672 00d9 | | Load_Top At_Offset_1
0673 e804 | | Load 0x4,0x4
0674 027e | ~ | Execute Discrete,Not_Equal
0675 6804 |h | Jump_Zero 0x67a
0676 0092 06f6 | | Action Push_String_Extended,0x6f6 ; "Size mismatch on read."
0678 8419 | | Call 0x2,0x19
0679 4501 |E | Exit_Suprogram New_Top_Offset 0x1
067a e805 | | Load 0x4,0x5
067b 00db | | Load_Top At_Offset_3
067c e803 | | Load 0x4,0x3
067d 8603 | | Call 0x3,0x3
067e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
067f 0000 | | .XXX[0x1]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0685 | | .CONST 0x0685 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0002 | | .CONST 0x0002 ; Number of locals
0683 INIT_0680:
0683 e00a | | Load 0x0,0xa
0684 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0685 BODY_0680:
0685 0092 06f7 | | Action Push_String_Extended,0x6f7 ; "all"
0687 e802 | | Load 0x4,0x2
0688 e00a | | Load 0x0,0xa
0689 1816 | | Execute Package,Field_Execute,Field_Number 0x16
068a 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
068b 00d8 | | Load_Top At_Offset_0
068c e00a | | Load 0x0,0xa
068d 180f | | Execute Package,Field_Execute,Field_Number 0xf
068e 7006 |p | Jump_Nonzero 0x695
068f 00d8 | | Load_Top At_Offset_0
0690 e802 | | Load 0x4,0x2
0691 e00a | | Load 0x0,0xa
0692 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0693 0f08 | | Execute_Immediate Equal,0x8
0694 7004 |p | Jump_Nonzero 0x699
0695 0092 06f8 | | Action Push_String_Extended,0x6f8 ; "Attempt to index non-array"
0697 8419 | | Call 0x2,0x19
0698 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0699 e9fc | | Load 0x4,-0x4
069a 00d9 | | Load_Top At_Offset_1
069b e9fe | | Load 0x4,-0x2
069c e802 | | Load 0x4,0x2
069d 8606 | | Call 0x3,0x6
069e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
069f 0000 | | .XXX[0x1]
06a0 ; --------------------------------------------------------------------------------------
06a0 ; SUBPROGRAM
06a0 ; --------------------------------------------------------------------------------------
06a0 06aa | | .CONST 0x06aa ; Address of begin
06a1 0004 | | .CONST 0x0004 ; Address of exception handler
06a2 0003 | | .CONST 0x0003 ; Number of locals
06a3 INIT_06a0:
06a3 4801 |H | Short_Literal 0x1
06a4 e803 | | Load 0x4,0x3
06a5 e00d | | Load 0x0,0xd
06a6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
06a7 035b | [ | Declare_Type Array,Constrained
06a8 0337 | 7 | Declare_Variable Array
06a9 00e3 | | Load_Encached Natural_Cache
06aa BODY_06a0:
06aa 00e3 | | Load_Encached Natural_Cache
06ab 00da | | Load_Top At_Offset_2
06ac e9fc | | Load 0x4,-0x4
06ad 841c | | Call 0x2,0x1c
06ae 00d1 | | Pop_Control Pop_Count_1
06af 0059 | Y | Store_Top Discrete,At_Offset_1
06b0 00d8 | | Load_Top At_Offset_0
06b1 e803 | | Load 0x4,0x3
06b2 027e | ~ | Execute Discrete,Not_Equal
06b3 6804 |h | Jump_Zero 0x6b8
06b4 0092 06f6 | | Action Push_String_Extended,0x6f6 ; "Size mismatch on read."
06b6 8419 | | Call 0x2,0x19
06b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06b8 e9fc | | Load 0x4,-0x4
06b9 00da | | Load_Top At_Offset_2
06ba e802 | | Load 0x4,0x2
06bb 8603 | | Call 0x3,0x3
06bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06bd 0000 0000 | | .XXX[0x3]
06bf 0000 | |
06c0 ; --------------------------------------------------------------------------------------
06c0 ; SUBPROGRAM
06c0 ; --------------------------------------------------------------------------------------
06c0 06ca | | .CONST 0x06ca ; Address of begin
06c1 0004 | | .CONST 0x0004 ; Address of exception handler
06c2 0003 | | .CONST 0x0003 ; Number of locals
06c3 INIT_06c0:
06c3 4801 |H | Short_Literal 0x1
06c4 e412 | | Load 0x2,0x12
06c5 e00d | | Load 0x0,0xd
06c6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
06c7 035b | [ | Declare_Type Array,Constrained
06c8 0337 | 7 | Declare_Variable Array
06c9 00e3 | | Load_Encached Natural_Cache
06ca BODY_06c0:
06ca 00e3 | | Load_Encached Natural_Cache
06cb 00da | | Load_Top At_Offset_2
06cc e9fc | | Load 0x4,-0x4
06cd 841c | | Call 0x2,0x1c
06ce 00d1 | | Pop_Control Pop_Count_1
06cf 0059 | Y | Store_Top Discrete,At_Offset_1
06d0 4801 |H | Short_Literal 0x1
06d1 00d9 | | Load_Top At_Offset_1
06d2 00db | | Load_Top At_Offset_3
06d3 01cf | | Execute Vector,Slice_Read
06d4 e9fc | | Load 0x4,-0x4
06d5 8421 | ! | Call 0x2,0x21
06d6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
06d7 ; --------------------------------------------------------------------------------------
06d7 ; STRING TABLE
06d7 ; --------------------------------------------------------------------------------------
06d7 0046 | F | .STRTAB 0x0046->0x06fa ; "HELP"
06d8 0048 | H | .STRTAB 0x0048->0x06fc ; "PUT"
06d9 0049 | I | .STRTAB 0x0049->0x06fd ; "READ"
06da 004b | K | .STRTAB 0x004b->0x06ff ; "COUNT"
06db 004e | N | .STRTAB 0x004e->0x0702 ; "ENP_FILE"
06dc 0054 | T | .STRTAB 0x0054->0x0706 ; "IOP_FILE"
06dd 005a | Z | .STRTAB 0x005a->0x070a ; "VERSION"
06de 005f | _ | .STRTAB 0x005f->0x070d ; "INPUT"
06df 0062 | b | .STRTAB 0x0062->0x0710 ; "QUIT"
06e0 0064 | d | .STRTAB 0x0064->0x0712 ; "command"
06e1 0069 | i | .STRTAB 0x0069->0x0715 ; "> "
06e2 0069 | i | .STRTAB 0x0069->0x0716 ; " "
06e3 0069 | i | .STRTAB 0x0069->0x0717 ; ": "
06e4 0069 | i | .STRTAB 0x0069->0x0718 ; "*** "
06e5 006b | k | .STRTAB 0x006b->0x071a ; "unable to read ENP memory: "
06e6 0084 | | .STRTAB 0x0084->0x0728 ; "unable to open file: "
06e7 0097 | | .STRTAB 0x0097->0x0732 ; "0x"
06e8 0097 | | .STRTAB 0x0097->0x0733 ; "Illegal address."
06e9 00a5 | | .STRTAB 0x00a5->0x073b ; "Rev1_0_3; August 23, 1990"
06ea 00bc | | .STRTAB 0x00bc->0x0748 ; "Unhandled exception: "
06eb 00cf | | .STRTAB 0x00cf->0x0752 ; "<end of input>"
06ec 00db | | .STRTAB 0x00db->0x0759 ; "<end of "
06ed 00e1 | | .STRTAB 0x00e1->0x075d ; ">"
06ee 00e0 | | .STRTAB 0x00e0->0x075e ; "=>"
06ef 00e0 | | .STRTAB 0x00e0->0x075f ; "Unknown Field: "
06f0 00ed | | .STRTAB 0x00ed->0x0766 ; "Field type undefined."
06f1 0100 | | .STRTAB 0x0100->0x0771 ; "=> "
06f2 0101 | | .STRTAB 0x0101->0x0772 ; "Illegal or missing array index."
06f3 011e | | .STRTAB 0x011e->0x0782 ; "Not a valid positive number: "
06f4 0139 | 9 | .STRTAB 0x0139->0x0790 ; " propagated from Io.Set_Input (\x22"
06f5 0157 | W | .STRTAB 0x0157->0x07a0 ; "\x22)"
06f6 0157 | W | .STRTAB 0x0157->0x07a1 ; "Size mismatch on read."
06f7 016b | k | .STRTAB 0x016b->0x07ac ; "all"
06f8 016c | l | .STRTAB 0x016c->0x07ae ; "Attempt to index non-array"
06f9 0184 | | .STREND 0x0184->0x07bb
06fa 4845 4c50 |HELP| .STRTAB_STRINGS
07bb 0000 0000 | | .BLANK 0000[0x5]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; Debug Table
07c0 ; --------------------------------------------------------------------------------------
07c0 0004 000c | | .DEBUG4 0x0004,0x000c,0xc7fc,0x0000,0x0001,0x0000
07c6 0000 2c94 | , | .XXX[0x16]
07c8 000e 2004 | |
07ca 0000 007f | |
07cc 00a8 300d | 0 |
07ce 0000 4432 | D2|
07d0 000e 2004 | |
07d2 0000 06bf | |
07d4 0006 f04c | L|
07d6 0000 2fcc | / |
07d8 000e 1404 | |
07da 0800 0100 | |
07dc 0000 0000 | | .BLANK 0000[0x4]
07e0 000e 2004 | | .XXX[0xc]
07e2 0000 0ac4 | |
07e4 0009 30f9 | 0 |
07e6 0000 2d52 | -R|
07e8 000e 5004 | P |
07ea 0000 0100 | |
07ec 0000 0000 | | .BLANK 0000[0xb]
07f7 4000 |@ | .XXX[0x1]
07f8 0000 0000 | | .BLANK 0000[0x8]