|
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_03bcfe
└─⟦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 81c1 85cd | | .XXX[0x9a] 0368 cd95 9081 | | 036a d1bc 81a5 | | 036c d081 85b9 | | 036e 9081 d1a1 | | 0370 9428 8081 | ( | 0372 858d d1d5 | | 0374 85b0 81d1 | | 0376 e5c1 95cc | | 0378 81bd 9881 | | 037a d1a1 9481 | | 037c d185 c99d | | 037e 95d0 81d9 | | 0380 85b1 d594 | | 0382 81c9 95d1 | | 0384 d5c9 b995 | | 0386 9081 d1e5 | | 0388 c1a5 8d85 | | 038a b1b1 e481 | | 038c cda1 bdd5 | | 038e b190 8189 | | 0390 9428 8081 | ( | 0392 d1a1 9481 | | 0394 cd85 b594 | | 0396 8185 cc81 | | 0398 d1a1 bdcd | | 039a 9481 d5cd | | 039c 9590 81a5 | | 039e b881 d1a1 | | 03a0 9481 a5b9 | | 03a2 cdd1 85b9 | | 03a4 d1a5 85d1 | | 03a6 a5bd b8b8 | | 03a8 8081 4dc1 | M | 03aa 958d a599 | | 03ac a58d 85b1 | | 03ae b1e4 b081 | | 03b0 d1a1 95c9 | | 03b2 9428 8081 | ( | 03b4 cda1 bdd5 | | 03b6 b190 8189 | | 03b8 9481 b9bc | | 03ba 8191 a599 | | 03bc 9995 c995 | | 03be b98d 95cc | | 03c0 8189 958d | | 03c2 85d5 cd94 | | 03c4 81bd 9881 | | 03c6 cdd5 89d1 | | 03c8 e5c1 95cc | | 03ca b081 9195 | | 03cc c9a5 d995 | | 03ce 9081 d1e5 | | 03d0 c195 ccb0 | | 03d2 81d1 e5c1 | | 03d4 9428 8081 | ( | 03d6 8dbd b9d9 | | 03d8 95c9 cda5 | | 03da bdb9 ccb0 | | 03dc 818d bdb9 | | 03de cdd1 85b9 | | 03e0 d1cc b081 | | 03e2 859d 9dc9 | | 03e4 959d 85d1 | | 03e6 95cc b081 | | 03e8 85b9 9081 | | 03ea cdbc 81bd | | 03ec b8b8 8081 | | 03ee 51a1 95cd |Q | 03f0 9481 9dd5 | | 03f2 a591 95b1 | | 03f4 a5b9 95cc | | 03f6 2880 818d |( | 03f8 85b8 8189 | | 03fa 9481 c995 | | 03fc b185 e195 | | 03fe 9081 a598 | |