|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 0360 | ` | .CONST 0x0360 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00bf | | .CONST 0x00bf ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002a | * | .CONST 0x002a ; Number of locals
000b INIT_0008:
000b 00e9 | | Load_Encached String_Cache
000c 02a0 | | Declare_Subprogram Null_Subprogram
000d 03ae | | Declare_Type Heap_Access,Defined,Visible
000e 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0010 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0012 00e4 | | Load_Encached Positive_Cache
0013 0266 | f | Execute Discrete,Bounds
0014 e002 | | Load 0x0,0x2
0015 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0016 02a0 | | Declare_Subprogram Null_Subprogram
0017 4801 |H | Short_Literal 0x1
0018 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
0019 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
001b 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
001f 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0021 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0023 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0025 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0027 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0029 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
002b 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
002d 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
002f 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0031 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0033 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0035 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0037 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0039 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
003b 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
003d 0093 0000 | | push_full_address 0x0
003f 6090 |` | Indirect_Literal Discrete,0xd0,{0x80000000, 0x00010000}
0040 0273 | s | Execute Discrete,Plus
0041 0129 | ) | Execute Any,Make_Visible
0042 00bf | | Action Accept_Activation
0043 00e8 | | Load_Encached Character_Cache
0044 0266 | f | Execute Discrete,Bounds
0045 00e1 | | Load_Encached Boolean_Cache
0046 02a0 | | Declare_Subprogram Null_Subprogram
0047 4801 |H | Short_Literal 0x1
0048 035d | ] | Declare_Type Array,Defined
0049 00d8 | | Load_Top At_Offset_0
004a 0337 | 7 | Declare_Variable Array
004b 00d8 | | Load_Top At_Offset_0
004c 0335 | 5 | Declare_Variable Array,Duplicate
004d 00cd | | Action Spare6_Action
004e 482c |H, | Short_Literal 0x2c
004f 4800 |H | Short_Literal 0x0
0050 4801 |H | Short_Literal 0x1
0051 00d9 | | Load_Top At_Offset_1
0052 e226 | & | Load 0x1,0x26
0053 01d6 | | Execute Vector,Field_Write
0054 3ffb |? | Loop_Increasing 0x50
0055 4800 |H | Short_Literal 0x0
0056 482d |H- | Short_Literal 0x2d
0057 00da | | Load_Top At_Offset_2
0058 01d6 | | Execute Vector,Field_Write
0059 4801 |H | Short_Literal 0x1
005a 482e |H. | Short_Literal 0x2e
005b 00da | | Load_Top At_Offset_2
005c 01d6 | | Execute Vector,Field_Write
005d 4801 |H | Short_Literal 0x1
005e 482f |H/ | Short_Literal 0x2f
005f 00da | | Load_Top At_Offset_2
0060 01d6 | | Execute Vector,Field_Write
0061 4839 |H9 | Short_Literal 0x39
0062 4830 |H0 | Short_Literal 0x30
0063 4800 |H | Short_Literal 0x0
0064 00d9 | | Load_Top At_Offset_1
0065 e226 | & | Load 0x1,0x26
0066 01d6 | | Execute Vector,Field_Write
0067 3ffb |? | Loop_Increasing 0x63
0068 4840 |H@ | Short_Literal 0x40
0069 483a |H: | Short_Literal 0x3a
006a 4801 |H | Short_Literal 0x1
006b 00d9 | | Load_Top At_Offset_1
006c e226 | & | Load 0x1,0x26
006d 01d6 | | Execute Vector,Field_Write
006e 3ffb |? | Loop_Increasing 0x6a
006f 485a |HZ | Short_Literal 0x5a
0070 4841 |HA | Short_Literal 0x41
0071 4800 |H | Short_Literal 0x0
0072 00d9 | | Load_Top At_Offset_1
0073 e226 | & | Load 0x1,0x26
0074 01d6 | | Execute Vector,Field_Write
0075 3ffb |? | Loop_Increasing 0x71
0076 4860 |H` | Short_Literal 0x60
0077 485b |H[ | Short_Literal 0x5b
0078 4801 |H | Short_Literal 0x1
0079 00d9 | | Load_Top At_Offset_1
007a e226 | & | Load 0x1,0x26
007b 01d6 | | Execute Vector,Field_Write
007c 3ffb |? | Loop_Increasing 0x78
007d 487a |Hz | Short_Literal 0x7a
007e 4861 |Ha | Short_Literal 0x61
007f 4800 |H | Short_Literal 0x0
0080 00d9 | | Load_Top At_Offset_1
0081 e226 | & | Load 0x1,0x26
0082 01d6 | | Execute Vector,Field_Write
0083 3ffb |? | Loop_Increasing 0x7f
0084 487f |H | Short_Literal 0x7f
0085 487b |H{ | Short_Literal 0x7b
0086 4801 |H | Short_Literal 0x1
0087 00d9 | | Load_Top At_Offset_1
0088 e226 | & | Load 0x1,0x26
0089 01d6 | | Execute Vector,Field_Write
008a 3ffb |? | Loop_Increasing 0x86
008b 00d9 | | Load_Top At_Offset_1
008c 01d4 | | Execute Vector,Structure_Write
008d 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call
008f 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0090 00c7 | | Action Elaborate_Subprogram
0091 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call
0093 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call
0095 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call
0097 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call
0099 1d20 | | Execute_Immediate Reference_Lex_1,0x20
009a 00c7 | | Action Elaborate_Subprogram
009b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
009c 00c7 | | Action Elaborate_Subprogram
009d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
009e 00c7 | | Action Elaborate_Subprogram
009f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00be 00c7 | | Action Elaborate_Subprogram
00bf BODY_0008:
00bf 00bc | | Action Signal_Activated
00c0 00bb | | Action Signal_Completion
00c1 0000 0000 | | .BLANK 0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4800 |H | Short_Literal 0x0
00cc 00ca | | Action Exit_Nullary_Function
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00d4 0000 0000 | | .BLANK 0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc 820e | | Call 0x1,0xe
00dd 027f | | Execute Discrete,Equal
00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00df 0000 | | .XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 820f | | Call 0x1,0xf
00e5 6803 |h | Jump_Zero 0xe9
00e6 0092 0353 | S| Action Push_String_Extended,0x353 ; "all"
00e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e9 00da | | Load_Top At_Offset_2
00ea e003 | | Load 0x0,0x3
00eb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00ec 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 820f | | Call 0x1,0xf
00f5 6803 |h | Jump_Zero 0xf9
00f6 0092 0353 | S| Action Push_String_Extended,0x353 ; "all"
00f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f9 e004 | | Load 0x0,0x4
00fa 180f | | Execute Package,Field_Execute,Field_Number 0xf
00fb 00db | | Load_Top At_Offset_3
00fc e003 | | Load 0x0,0x3
00fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00fe 01ca | | Execute Vector,Prepend
00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0107 | | .CONST 0x0107 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0004 | | .CONST 0x0004 ; Number of locals
0103 INIT_0100:
0103 e002 | | Load 0x0,0x2
0104 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0105 00e5 | | Load_Encached Long_Integer_Cache
0106 00e1 | | Load_Encached Boolean_Cache
0107 BODY_0100:
0107 e5ff | | Load 0x2,-0x1
0108 01db | | Execute Vector,Length
0109 680e |h | Jump_Zero 0x118
010a e5ff | | Load 0x2,-0x1
010b 8226 | & | Call 0x1,0x26
010c 0092 0354 | T| Action Push_String_Extended,0x354 ; "*"
010e 01df | | Execute Vector,Equal
010f 7008 |p | Jump_Nonzero 0x118
0110 e5ff | | Load 0x2,-0x1
0111 8226 | & | Call 0x1,0x26
0112 e005 | | Load 0x0,0x5
0113 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0114 0092 0355 | U| Action Push_String_Extended,0x355 ; "ALL"
0116 01df | | Execute Vector,Equal
0117 6802 |h | Jump_Zero 0x11a
0118 820e | | Call 0x1,0xe
0119 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011a e5ff | | Load 0x2,-0x1
011b 01dd | | Execute Vector,First
011c e5ff | | Load 0x2,-0x1
011d 01d7 | | Execute Vector,Field_Read
011e e004 | | Load 0x0,0x4
011f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0120 027f | | Execute Discrete,Equal
0121 6831 |h1 | Jump_Zero 0x153
0122 e5ff | | Load 0x2,-0x1
0123 01db | | Execute Vector,Length
0124 0c02 | | Execute_Immediate Greater_Equal,0x2
0125 681a |h | Jump_Zero 0x140
0126 e5ff | | Load 0x2,-0x1
0127 01dd | | Execute Vector,First
0128 0a01 | | Execute_Immediate Plus,0x1
0129 e5ff | | Load 0x2,-0x1
012a 01d7 | | Execute Vector,Field_Read
012b 0f23 | # | Execute_Immediate Equal,0x23
012c 6813 |h | Jump_Zero 0x140
012d 00e1 | | Load_Encached Boolean_Cache
012e 00e5 | | Load_Encached Long_Integer_Cache
012f 4810 |H | Short_Literal 0x10
0130 e5ff | | Load 0x2,-0x1
0131 01dd | | Execute Vector,First
0132 0a02 | | Execute_Immediate Plus,0x2
0133 00d8 | | Load_Top At_Offset_0
0134 00e2 | | Load_Encached Integer_Cache
0135 0260 | ` | Execute Discrete,In_Type
0136 7001 |p | Jump_Nonzero 0x138
0137 0801 | | Execute_Immediate Raise,0x1
0138 e5ff | | Load 0x2,-0x1
0139 01dc | | Execute Vector,Last
013a e5ff | | Load 0x2,-0x1
013b 01cf | | Execute Vector,Slice_Read
013c 8227 | ' | Call 0x1,0x27
013d 005b | [ | Store_Top Discrete,At_Offset_3
013e 0059 | Y | Store_Top Discrete,At_Offset_1
013f 7833 |x3 | Jump 0x173
0140 00e1 | | Load_Encached Boolean_Cache
0141 00e5 | | Load_Encached Long_Integer_Cache
0142 4810 |H | Short_Literal 0x10
0143 e5ff | | Load 0x2,-0x1
0144 01dd | | Execute Vector,First
0145 0a01 | | Execute_Immediate Plus,0x1
0146 00d8 | | Load_Top At_Offset_0
0147 00e2 | | Load_Encached Integer_Cache
0148 0260 | ` | Execute Discrete,In_Type
0149 7001 |p | Jump_Nonzero 0x14b
014a 0801 | | Execute_Immediate Raise,0x1
014b e5ff | | Load 0x2,-0x1
014c 01dc | | Execute Vector,Last
014d e5ff | | Load 0x2,-0x1
014e 01cf | | Execute Vector,Slice_Read
014f 8227 | ' | Call 0x1,0x27
0150 005b | [ | Store_Top Discrete,At_Offset_3
0151 0059 | Y | Store_Top Discrete,At_Offset_1
0152 7820 |x | Jump 0x173
0153 e5ff | | Load 0x2,-0x1
0154 01dd | | Execute Vector,First
0155 e5ff | | Load 0x2,-0x1
0156 01d7 | | Execute Vector,Field_Read
0157 0f23 | # | Execute_Immediate Equal,0x23
0158 6813 |h | Jump_Zero 0x16c
0159 00e1 | | Load_Encached Boolean_Cache
015a 00e5 | | Load_Encached Long_Integer_Cache
015b 4810 |H | Short_Literal 0x10
015c e5ff | | Load 0x2,-0x1
015d 01dd | | Execute Vector,First
015e 0a01 | | Execute_Immediate Plus,0x1
015f 00d8 | | Load_Top At_Offset_0
0160 00e2 | | Load_Encached Integer_Cache
0161 0260 | ` | Execute Discrete,In_Type
0162 7001 |p | Jump_Nonzero 0x164
0163 0801 | | Execute_Immediate Raise,0x1
0164 e5ff | | Load 0x2,-0x1
0165 01dc | | Execute Vector,Last
0166 e5ff | | Load 0x2,-0x1
0167 01cf | | Execute Vector,Slice_Read
0168 8227 | ' | Call 0x1,0x27
0169 005b | [ | Store_Top Discrete,At_Offset_3
016a 0059 | Y | Store_Top Discrete,At_Offset_1
016b 7807 |x | Jump 0x173
016c 00e1 | | Load_Encached Boolean_Cache
016d 00e5 | | Load_Encached Long_Integer_Cache
016e 4810 |H | Short_Literal 0x10
016f e5ff | | Load 0x2,-0x1
0170 8227 | ' | Call 0x1,0x27
0171 005b | [ | Store_Top Discrete,At_Offset_3
0172 0059 | Y | Store_Top Discrete,At_Offset_1
0173 00d8 | | Load_Top At_Offset_0
0174 6803 |h | Jump_Zero 0x178
0175 00d9 | | Load_Top At_Offset_1
0176 0d00 | | Execute_Immediate Less,0x0
0177 6803 |h | Jump_Zero 0x17b
0178 e006 | | Load 0x0,0x6
0179 1b14 | | Execute Package,Field_Read,Field_Number 0x14
017a 0257 | W | Execute Discrete,Raise
017b 00d9 | | Load_Top At_Offset_1
017c 00d8 | | Load_Top At_Offset_0
017d e002 | | Load 0x0,0x2
017e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
017f 0260 | ` | Execute Discrete,In_Type
0180 7001 |p | Jump_Nonzero 0x182
0181 0801 | | Execute_Immediate Raise,0x1
0182 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0183 00da | | Load_Top At_Offset_2
0184 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0185 0000 0000 | | .XXX[0x3]
0187 0000 | |
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c 00d8 | | Load_Top At_Offset_0
018d e002 | | Load 0x0,0x2
018e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
018f 0260 | ` | Execute Discrete,In_Type
0190 7001 |p | Jump_Nonzero 0x192
0191 0801 | | Execute_Immediate Raise,0x1
0192 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 6007 |` | Indirect_Literal Discrete,0x1ac,{0x00000000, 0x7fffffff}
01a5 026e | n | Execute Discrete,Modulo
01a6 00d8 | | Load_Top At_Offset_0
01a7 00e2 | | Load_Encached Integer_Cache
01a8 0260 | ` | Execute Discrete,In_Type
01a9 7001 |p | Jump_Nonzero 0x1ab
01aa 0801 | | Execute_Immediate Raise,0x1
01ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ac 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 e007 | | Load 0x0,0x7
01b4 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
01b5 00ca | | Action Exit_Nullary_Function
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc e007 | | Load 0x0,0x7
01bd 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
01be 012f | / | Execute Any,Equal
01bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 e007 | | Load 0x0,0x7
01c5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
01c6 00db | | Load_Top At_Offset_3
01c7 e007 | | Load 0x0,0x7
01c8 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01c9 e007 | | Load 0x0,0x7
01ca 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01cb e003 | | Load 0x0,0x3
01cc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ce 0000 0000 | | .XXX[0x2]
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 08e2 | | Execute_Immediate Raise,0xe2
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 4800 |H | Short_Literal 0x0
01dc 00ca | | Action Exit_Nullary_Function
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 4800 |H | Short_Literal 0x0
01e4 00ca | | Action Exit_Nullary_Function
01e5 0000 0000 | | .XXX[0x3]
01e7 0000 | |
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec e003 | | Load 0x0,0x3
01ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f5 | | .CONST 0x01f5 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0003 | | .CONST 0x0003 ; Number of locals
01f3 INIT_01f0:
01f3 00e5 | | Load_Encached Long_Integer_Cache
01f4 00e5 | | Load_Encached Long_Integer_Cache
01f5 BODY_01f0:
01f5 00e5 | | Load_Encached Long_Integer_Cache
01f6 00e5 | | Load_Encached Long_Integer_Cache
01f7 4800 |H | Short_Literal 0x0
01f8 e5ff | | Load 0x2,-0x1
01f9 8220 | | Call 0x1,0x20
01fa 005b | [ | Store_Top Discrete,At_Offset_3
01fb 0059 | Y | Store_Top Discrete,At_Offset_1
01fc 00d9 | | Load_Top At_Offset_1
01fd 7008 |p | Jump_Nonzero 0x206
01fe 00d8 | | Load_Top At_Offset_0
01ff 09f0 | | Execute_Immediate Binary_Scale,-0x10
0200 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0201 00d8 | | Load_Top At_Offset_0
0202 6015 |` | Indirect_Literal Discrete,0x218,{0x00000000, 0x0000ffff}
0203 026e | n | Execute Discrete,Modulo
0204 0a01 | | Execute_Immediate Plus,0x1
0205 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0206 00d8 | | Load_Top At_Offset_0
0207 00d8 | | Load_Top At_Offset_0
0208 e007 | | Load 0x0,0x7
0209 1b11 | | Execute Package,Field_Read,Field_Number 0x11
020a 0260 | ` | Execute Discrete,In_Type
020b 7001 |p | Jump_Nonzero 0x20d
020c 0801 | | Execute_Immediate Raise,0x1
020d 00da | | Load_Top At_Offset_2
020e 00d8 | | Load_Top At_Offset_0
020f e002 | | Load 0x0,0x2
0210 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0211 0260 | ` | Execute Discrete,In_Type
0212 7001 |p | Jump_Nonzero 0x214
0213 0801 | | Execute_Immediate Raise,0x1
0214 e007 | | Load 0x0,0x7
0215 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0216 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0217 0000 | | .XXX[0x1]
0218 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 4823 |H# | Short_Literal 0x23
0224 4820 |H | Short_Literal 0x20
0225 e5ff | | Load 0x2,-0x1
0226 e005 | | Load 0x0,0x5
0227 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0228 e005 | | Load 0x0,0x5
0229 181a | | Execute Package,Field_Execute,Field_Number 0x1a
022a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022b 0000 0000 | | .BLANK 0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0234 | 4 | .CONST 0x0234 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 00e2 | | Load_Encached Integer_Cache
0234 BODY_0230:
0234 00db | | Load_Top At_Offset_3
0235 01db | | Execute Vector,Length
0236 7005 |p | Jump_Nonzero 0x23c
0237 4800 |H | Short_Literal 0x0
0238 a5fd | | Store_Unchecked 0x2,-0x3
0239 4800 |H | Short_Literal 0x0
023a a5fc | | Store_Unchecked 0x2,-0x4
023b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
023c 00db | | Load_Top At_Offset_3
023d 01dd | | Execute Vector,First
023e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
023f e5fd | | Load 0x2,-0x3
0240 00d9 | | Load_Top At_Offset_1
0241 e5fe | | Load 0x2,-0x2
0242 e5ff | | Load 0x2,-0x1
0243 822a | * | Call 0x1,0x2a
0244 005a | Z | Store_Top Discrete,At_Offset_2
0245 c5fd | | Store 0x2,-0x3
0246 00d8 | | Load_Top At_Offset_0
0247 e5ff | | Load 0x2,-0x1
0248 8229 | ) | Call 0x1,0x29
0249 0059 | Y | Store_Top Discrete,At_Offset_1
024a 00d8 | | Load_Top At_Offset_0
024b e5ff | | Load 0x2,-0x1
024c 01dc | | Execute Vector,Last
024d 027a | z | Execute Discrete,Less_Equal
024e 680e |h | Jump_Zero 0x25d
024f 00d8 | | Load_Top At_Offset_0
0250 e5ff | | Load 0x2,-0x1
0251 01d7 | | Execute Vector,Field_Read
0252 e225 | % | Load 0x1,0x25
0253 01d7 | | Execute Vector,Field_Read
0254 6808 |h | Jump_Zero 0x25d
0255 00d8 | | Load_Top At_Offset_0
0256 e5ff | | Load 0x2,-0x1
0257 01d7 | | Execute Vector,Field_Read
0258 0e23 | # | Execute_Immediate Not_Equal,0x23
0259 6803 |h | Jump_Zero 0x25d
025a 00d8 | | Load_Top At_Offset_0
025b 0a01 | | Execute_Immediate Plus,0x1
025c 0059 | Y | Store_Top Discrete,At_Offset_1
025d 00d8 | | Load_Top At_Offset_0
025e e5ff | | Load 0x2,-0x1
025f 01dc | | Execute Vector,Last
0260 027d | } | Execute Discrete,Greater
0261 6805 |h | Jump_Zero 0x267
0262 e5fd | | Load 0x2,-0x3
0263 a5fc | | Store_Unchecked 0x2,-0x4
0264 4800 |H | Short_Literal 0x0
0265 a5fd | | Store_Unchecked 0x2,-0x3
0266 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0267 e5fc | | Load 0x2,-0x4
0268 00d9 | | Load_Top At_Offset_1
0269 e5fe | | Load 0x2,-0x2
026a e5ff | | Load 0x2,-0x1
026b 822a | * | Call 0x1,0x2a
026c 005a | Z | Store_Top Discrete,At_Offset_2
026d c5fc | | Store 0x2,-0x4
026e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
026f 0000 | | .XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 4820 |H | Short_Literal 0x20
0274 4800 |H | Short_Literal 0x0
0275 4810 |H | Short_Literal 0x10
0276 e5ff | | Load 0x2,-0x1
0277 e005 | | Load 0x0,0x5
0278 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0279 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027a 0000 0000 | | .BLANK 0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0285 | | .CONST 0x0285 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0003 | | .CONST 0x0003 ; Number of locals
0283 INIT_0280:
0283 00e2 | | Load_Encached Integer_Cache
0284 00e1 | | Load_Encached Boolean_Cache
0285 BODY_0280:
0285 00e1 | | Load_Encached Boolean_Cache
0286 00e2 | | Load_Encached Integer_Cache
0287 4810 |H | Short_Literal 0x10
0288 e5ff | | Load 0x2,-0x1
0289 e005 | | Load 0x0,0x5
028a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
028b 005b | [ | Store_Top Discrete,At_Offset_3
028c 0059 | Y | Store_Top Discrete,At_Offset_1
028d 00d8 | | Load_Top At_Offset_0
028e 6808 |h | Jump_Zero 0x297
028f 00d9 | | Load_Top At_Offset_1
0290 00d8 | | Load_Top At_Offset_0
0291 e002 | | Load 0x0,0x2
0292 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0293 0260 | ` | Execute Discrete,In_Type
0294 7001 |p | Jump_Nonzero 0x296
0295 0801 | | Execute_Immediate Raise,0x1
0296 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0297 e223 | # | Load 0x1,0x23
0298 0257 | W | Execute Discrete,Raise
0299 0000 0000 | | .BLANK 0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 4820 |H | Short_Literal 0x20
02a4 00db | | Load_Top At_Offset_3
02a5 e005 | | Load 0x0,0x5
02a6 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00e1 | | Load_Encached Boolean_Cache
02ac 00e5 | | Load_Encached Long_Integer_Cache
02ad e5fe | | Load 0x2,-0x2
02ae e5ff | | Load 0x2,-0x1
02af e005 | | Load 0x0,0x5
02b0 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02b1 c5fd | | Store 0x2,-0x3
02b2 c5fc | | Store 0x2,-0x4
02b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b4 0000 0000 | | .BLANK 0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 4820 |H | Short_Literal 0x20
02bc 4800 |H | Short_Literal 0x0
02bd e5fe | | Load 0x2,-0x2
02be e5ff | | Load 0x2,-0x1
02bf e005 | | Load 0x0,0x5
02c0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02c2 0000 0000 | | .BLANK 0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cf | | .CONST 0x02cf ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0002 | | .CONST 0x0002 ; Number of locals
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc 01dc | | Execute Vector,Last
02cd 00e2 | | Load_Encached Integer_Cache
02ce 03f1 | | Declare_Variable Discrete,With_Value
02cf BODY_02c8:
02cf 00cf | | Action Mark_Auxiliary
02d0 7804 |x | Jump 0x2d5
02d1 e5fe | | Load 0x2,-0x2
02d2 0a01 | | Execute_Immediate Plus,0x1
02d3 c5fe | | Store 0x2,-0x2
02d4 00c9 | | Action Pop_Auxiliary_Loop
02d5 e5fe | | Load 0x2,-0x2
02d6 00da | | Load_Top At_Offset_2
02d7 027a | z | Execute Discrete,Less_Equal
02d8 6805 |h | Jump_Zero 0x2de
02d9 e5fe | | Load 0x2,-0x2
02da e5ff | | Load 0x2,-0x1
02db 01d7 | | Execute Vector,Field_Read
02dc 0f20 | | Execute_Immediate Equal,0x20
02dd 77f3 |w | Jump_Nonzero 0x2d1
02de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02df 0000 | | .XXX[0x1]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02eb | | .CONST 0x02eb ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0005 | | .CONST 0x0005 ; Number of locals
02e3 INIT_02e0:
02e3 00e2 | | Load_Encached Integer_Cache
02e4 00db | | Load_Top At_Offset_3
02e5 01dc | | Execute Vector,Last
02e6 00e2 | | Load_Encached Integer_Cache
02e7 03f1 | | Declare_Variable Discrete,With_Value
02e8 00e1 | | Load_Encached Boolean_Cache
02e9 00e1 | | Load_Encached Boolean_Cache
02ea 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02eb BODY_02e0:
02eb 4800 |H | Short_Literal 0x0
02ec a5fc | | Store_Unchecked 0x2,-0x4
02ed e5fd | | Load 0x2,-0x3
02ee e5ff | | Load 0x2,-0x1
02ef 8229 | ) | Call 0x1,0x29
02f0 c5fd | | Store 0x2,-0x3
02f1 e5fd | | Load 0x2,-0x3
02f2 00db | | Load_Top At_Offset_3
02f3 027a | z | Execute Discrete,Less_Equal
02f4 685d |h] | Jump_Zero 0x352
02f5 e5fd | | Load 0x2,-0x3
02f6 e5ff | | Load 0x2,-0x1
02f7 01d7 | | Execute Vector,Field_Read
02f8 0f23 | # | Execute_Immediate Equal,0x23
02f9 6809 |h | Jump_Zero 0x303
02fa e5fd | | Load 0x2,-0x3
02fb 0a01 | | Execute_Immediate Plus,0x1
02fc c5fd | | Store 0x2,-0x3
02fd 4801 |H | Short_Literal 0x1
02fe 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02ff e5fd | | Load 0x2,-0x3
0300 e5ff | | Load 0x2,-0x1
0301 8229 | ) | Call 0x1,0x29
0302 c5fd | | Store 0x2,-0x3
0303 e5fd | | Load 0x2,-0x3
0304 a402 | | Store_Unchecked 0x2,0x2
0305 00cf | | Action Mark_Auxiliary
0306 7804 |x | Jump 0x30b
0307 e5fd | | Load 0x2,-0x3
0308 0a01 | | Execute_Immediate Plus,0x1
0309 c5fd | | Store 0x2,-0x3
030a 00c9 | | Action Pop_Auxiliary_Loop
030b e5fd | | Load 0x2,-0x3
030c e403 | | Load 0x2,0x3
030d 027a | z | Execute Discrete,Less_Equal
030e 6806 |h | Jump_Zero 0x315
030f e5fd | | Load 0x2,-0x3
0310 e5ff | | Load 0x2,-0x1
0311 01d7 | | Execute Vector,Field_Read
0312 e225 | % | Load 0x1,0x25
0313 01d7 | | Execute Vector,Field_Read
0314 6ff2 |o | Jump_Zero 0x307
0315 00ce | | Action Pop_Auxiliary
0316 00d8 | | Load_Top At_Offset_0
0317 7002 |p | Jump_Nonzero 0x31a
0318 e5fe | | Load 0x2,-0x2
0319 7011 |p | Jump_Nonzero 0x32b
031a 00e1 | | Load_Encached Boolean_Cache
031b 00e5 | | Load_Encached Long_Integer_Cache
031c 4810 |H | Short_Literal 0x10
031d e402 | | Load 0x2,0x2
031e e5fd | | Load 0x2,-0x3
031f 0aff | | Execute_Immediate Plus,-0x1
0320 00d8 | | Load_Top At_Offset_0
0321 00e2 | | Load_Encached Integer_Cache
0322 0260 | ` | Execute Discrete,In_Type
0323 7001 |p | Jump_Nonzero 0x325
0324 0801 | | Execute_Immediate Raise,0x1
0325 e5ff | | Load 0x2,-0x1
0326 01cf | | Execute Vector,Slice_Read
0327 8227 | ' | Call 0x1,0x27
0328 c5fc | | Store 0x2,-0x4
0329 005a | Z | Store_Top Discrete,At_Offset_2
032a 7822 |x" | Jump 0x34d
032b 00e1 | | Load_Encached Boolean_Cache
032c 00e5 | | Load_Encached Long_Integer_Cache
032d 480a |H | Short_Literal 0xa
032e e402 | | Load 0x2,0x2
032f e5fd | | Load 0x2,-0x3
0330 0aff | | Execute_Immediate Plus,-0x1
0331 00d8 | | Load_Top At_Offset_0
0332 00e2 | | Load_Encached Integer_Cache
0333 0260 | ` | Execute Discrete,In_Type
0334 7001 |p | Jump_Nonzero 0x336
0335 0801 | | Execute_Immediate Raise,0x1
0336 e5ff | | Load 0x2,-0x1
0337 01cf | | Execute Vector,Slice_Read
0338 8227 | ' | Call 0x1,0x27
0339 c5fc | | Store 0x2,-0x4
033a 005a | Z | Store_Top Discrete,At_Offset_2
033b 00d9 | | Load_Top At_Offset_1
033c 7010 |p | Jump_Nonzero 0x34d
033d 00e1 | | Load_Encached Boolean_Cache
033e 00e5 | | Load_Encached Long_Integer_Cache
033f 4810 |H | Short_Literal 0x10
0340 e402 | | Load 0x2,0x2
0341 e5fd | | Load 0x2,-0x3
0342 0aff | | Execute_Immediate Plus,-0x1
0343 00d8 | | Load_Top At_Offset_0
0344 00e2 | | Load_Encached Integer_Cache
0345 0260 | ` | Execute Discrete,In_Type
0346 7001 |p | Jump_Nonzero 0x348
0347 0801 | | Execute_Immediate Raise,0x1
0348 e5ff | | Load 0x2,-0x1
0349 01cf | | Execute Vector,Slice_Read
034a 8227 | ' | Call 0x1,0x27
034b c5fc | | Store 0x2,-0x4
034c 005a | Z | Store_Top Discrete,At_Offset_2
034d 00d9 | | Load_Top At_Offset_1
034e 7003 |p | Jump_Nonzero 0x352
034f e006 | | Load 0x0,0x6
0350 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0351 0257 | W | Execute Discrete,Raise
0352 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0353 ; --------------------------------------------------------------------------------------
0353 ; STRING TABLE
0353 ; --------------------------------------------------------------------------------------
0353 0008 | | .STRTAB 0x0008->0x0357 ; "all"
0354 0009 | | .STRTAB 0x0009->0x0358 ; "*"
0355 0008 | | .STRTAB 0x0008->0x0359 ; "ALL"
0356 0009 | | .STREND 0x0009->0x035a
0357 616c 6c2a |all*| .STRTAB_STRINGS
035b 0000 0000 | | .BLANK 0000[0x5]
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug Table
0360 ; --------------------------------------------------------------------------------------
0360 0004 0006 | | .DEBUG4 0x0004,0x0006,0x9a3a,0x0000,0x0001,0x0000
0366 0000 0000 | | .BLANK 0000[0x9a]