|
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_6148f2
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0540 | @ | .CONST 0x0540 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 012a | * | .CONST 0x012a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0066 | f | .CONST 0x0066 ; Number of locals 000b INIT_0008: 000b 4844 |HD | Short_Literal 0x44 000c e001 | | Load 0x0,0x1 000d 01d7 | | Execute Vector,Field_Read 000e 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 000f 00bf | | Action Accept_Activation 0010 0007 | | Action Break_Optional 0011 0007 | | Action Break_Optional 0012 0007 | | Action Break_Optional 0013 0007 | | Action Break_Optional 0014 0007 | | Action Break_Optional 0015 0007 | | Action Break_Optional 0016 0007 | | Action Break_Optional 0017 0007 | | Action Break_Optional 0018 0007 | | Action Break_Optional 0019 0007 | | Action Break_Optional 001a 0007 | | Action Break_Optional 001b 0092 0521 | !| Action Push_String_Extended,0x521 ; "YES" 001d 0092 0522 | "| Action Push_String_Extended,0x522 ; "NO" 001f 0092 0523 | #| Action Push_String_Extended,0x523 ; "unknown" 0021 e002 | | Load 0x0,0x2 0022 0007 | | Action Break_Optional 0023 e003 | | Load 0x0,0x3 0024 0007 | | Action Break_Optional 0025 4808 |H | Short_Literal 0x8 0026 48ff |H | Short_Literal 0xff 0027 e004 | | Load 0x0,0x4 0028 03f8 | | Declare_Type Discrete,Constrained 0029 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call 002b 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call 002d 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 002f 029d 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call 0031 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call 0033 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call 0035 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call 0037 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call 0039 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call 003b 029d 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call 003d 029d 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call 003f 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call 0041 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call 0043 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call 0045 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call 0047 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call 0049 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call 004b 029d 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call 004d 029d 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call 004f 029d 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call 0051 029d 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call 0053 029d 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call 0055 029d 043b | ;| Declare_Subprogram INIT_0438,For_Outer_Call 0057 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call 0059 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call 005b 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call 005d 029d 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call 005f 029d 048b | | Declare_Subprogram INIT_0488,For_Outer_Call 0061 029b 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Unelaborated 0063 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0064 00c7 | | Action Elaborate_Subprogram 0065 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0066 00c6 | | Action Check_Subprogram_Elaborated 0067 e005 | | Load 0x0,0x5 0068 e006 | | Load 0x0,0x6 0069 0092 0524 | $| Action Push_String_Extended,0x524 ; "Enter_Leave_" 006b 00ea | | Load_Encached Null_String_Cache 006c 0093 0000 | | push_full_address 0x0 006e 6181 |a | Indirect_Literal Discrete,0x1f0,{0x80000000, 0x00030000} 006f 0273 | s | Execute Discrete,Plus 0070 e007 | | Load 0x0,0x7 0071 0273 | s | Execute Discrete,Plus 0072 e008 | | Load 0x0,0x8 0073 0273 | s | Execute Discrete,Plus 0074 4800 |H | Short_Literal 0x0 0075 0007 | | Action Break_Optional 0076 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 0077 00c6 | | Action Check_Subprogram_Elaborated 0078 e009 | | Load 0x0,0x9 0079 e00a | | Load 0x0,0xa 007a 00ea | | Load_Encached Null_String_Cache 007b 0092 0525 | %| Action Push_String_Extended,0x525 ; "_Mask" 007d 0093 0000 | | push_full_address 0x0 007f 616c |al | Indirect_Literal Discrete,0x1ec,{0x80000000, 0x00020000} 0080 0273 | s | Execute Discrete,Plus 0081 e007 | | Load 0x0,0x7 0082 0273 | s | Execute Discrete,Plus 0083 e00b | | Load 0x0,0xb 0084 0273 | s | Execute Discrete,Plus 0085 4800 |H | Short_Literal 0x0 0086 0007 | | Action Break_Optional 0087 4848 |HH | Short_Literal 0x48 0088 e001 | | Load 0x0,0x1 0089 01d7 | | Execute Vector,Field_Read 008a 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 008b 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30 008c 00c6 | | Action Check_Subprogram_Elaborated 008d e00c | | Load 0x0,0xc 008e e00d | | Load 0x0,0xd 008f 0092 0526 | &| Action Push_String_Extended,0x526 ; "Cw_" 0091 00ea | | Load_Encached Null_String_Cache 0092 0093 0000 | | push_full_address 0x0 0094 6153 |aS | Indirect_Literal Discrete,0x1e8,{0x80000000, 0x00010000} 0095 0273 | s | Execute Discrete,Plus 0096 e007 | | Load 0x0,0x7 0097 0273 | s | Execute Discrete,Plus 0098 e00e | | Load 0x0,0xe 0099 0273 | s | Execute Discrete,Plus 009a 4800 |H | Short_Literal 0x0 009b 0007 | | Action Break_Optional 009c 4846 |HF | Short_Literal 0x46 009d e001 | | Load 0x0,0x1 009e 01d7 | | Execute Vector,Field_Read 009f 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00a0 4824 |H$ | Short_Literal 0x24 00a1 e001 | | Load 0x0,0x1 00a2 01d7 | | Execute Vector,Field_Read 00a3 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00a4 4826 |H& | Short_Literal 0x26 00a5 e001 | | Load 0x0,0x1 00a6 01d7 | | Execute Vector,Field_Read 00a7 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00a8 4802 |H | Short_Literal 0x2 00a9 e001 | | Load 0x0,0x1 00aa 01d7 | | Execute Vector,Field_Read 00ab 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00ac 4804 |H | Short_Literal 0x4 00ad e001 | | Load 0x0,0x1 00ae 01d7 | | Execute Vector,Field_Read 00af 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00b0 4830 |H0 | Short_Literal 0x30 00b1 e001 | | Load 0x0,0x1 00b2 01d7 | | Execute Vector,Field_Read 00b3 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00b4 4816 |H | Short_Literal 0x16 00b5 e001 | | Load 0x0,0x1 00b6 01d7 | | Execute Vector,Field_Read 00b7 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00b8 4828 |H( | Short_Literal 0x28 00b9 e001 | | Load 0x0,0x1 00ba 01d7 | | Execute Vector,Field_Read 00bb 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00bc 481a |H | Short_Literal 0x1a 00bd e001 | | Load 0x0,0x1 00be 01d7 | | Execute Vector,Field_Read 00bf 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00c0 481c |H | Short_Literal 0x1c 00c1 e001 | | Load 0x0,0x1 00c2 01d7 | | Execute Vector,Field_Read 00c3 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00c4 4822 |H" | Short_Literal 0x22 00c5 e001 | | Load 0x0,0x1 00c6 01d7 | | Execute Vector,Field_Read 00c7 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00c8 4818 |H | Short_Literal 0x18 00c9 e001 | | Load 0x0,0x1 00ca 01d7 | | Execute Vector,Field_Read 00cb 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00cc 481e |H | Short_Literal 0x1e 00cd e001 | | Load 0x0,0x1 00ce 01d7 | | Execute Vector,Field_Read 00cf 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00d0 4832 |H2 | Short_Literal 0x32 00d1 e001 | | Load 0x0,0x1 00d2 01d7 | | Execute Vector,Field_Read 00d3 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00d4 4842 |HB | Short_Literal 0x42 00d5 e001 | | Load 0x0,0x1 00d6 01d7 | | Execute Vector,Field_Read 00d7 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00d8 4812 |H | Short_Literal 0x12 00d9 e001 | | Load 0x0,0x1 00da 01d7 | | Execute Vector,Field_Read 00db 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00dc 4814 |H | Short_Literal 0x14 00dd e001 | | Load 0x0,0x1 00de 01d7 | | Execute Vector,Field_Read 00df 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00e0 4840 |H@ | Short_Literal 0x40 00e1 e001 | | Load 0x0,0x1 00e2 01d7 | | Execute Vector,Field_Read 00e3 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00e4 482a |H* | Short_Literal 0x2a 00e5 e001 | | Load 0x0,0x1 00e6 01d7 | | Execute Vector,Field_Read 00e7 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00e8 482e |H. | Short_Literal 0x2e 00e9 e001 | | Load 0x0,0x1 00ea 01d7 | | Execute Vector,Field_Read 00eb 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00ec 4836 |H6 | Short_Literal 0x36 00ed e001 | | Load 0x0,0x1 00ee 01d7 | | Execute Vector,Field_Read 00ef 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00f0 480e |H | Short_Literal 0xe 00f1 e001 | | Load 0x0,0x1 00f2 01d7 | | Execute Vector,Field_Read 00f3 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00f4 4810 |H | Short_Literal 0x10 00f5 e001 | | Load 0x0,0x1 00f6 01d7 | | Execute Vector,Field_Read 00f7 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00f8 4820 |H | Short_Literal 0x20 00f9 e001 | | Load 0x0,0x1 00fa 01d7 | | Execute Vector,Field_Read 00fb 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 00fc 4838 |H8 | Short_Literal 0x38 00fd e001 | | Load 0x0,0x1 00fe 01d7 | | Execute Vector,Field_Read 00ff 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0100 4806 |H | Short_Literal 0x6 0101 e001 | | Load 0x0,0x1 0102 01d7 | | Execute Vector,Field_Read 0103 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0104 4808 |H | Short_Literal 0x8 0105 e001 | | Load 0x0,0x1 0106 01d7 | | Execute Vector,Field_Read 0107 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0108 4834 |H4 | Short_Literal 0x34 0109 e001 | | Load 0x0,0x1 010a 01d7 | | Execute Vector,Field_Read 010b 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 010c 483a |H: | Short_Literal 0x3a 010d e001 | | Load 0x0,0x1 010e 01d7 | | Execute Vector,Field_Read 010f 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0110 483e |H> | Short_Literal 0x3e 0111 e001 | | Load 0x0,0x1 0112 01d7 | | Execute Vector,Field_Read 0113 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0114 483c |H< | Short_Literal 0x3c 0115 e001 | | Load 0x0,0x1 0116 01d7 | | Execute Vector,Field_Read 0117 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0118 480c |H | Short_Literal 0xc 0119 e001 | | Load 0x0,0x1 011a 01d7 | | Execute Vector,Field_Read 011b 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 011c 480a |H | Short_Literal 0xa 011d e001 | | Load 0x0,0x1 011e 01d7 | | Execute Vector,Field_Read 011f 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0120 482c |H, | Short_Literal 0x2c 0121 e001 | | Load 0x0,0x1 0122 01d7 | | Execute Vector,Field_Read 0123 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0124 484a |HJ | Short_Literal 0x4a 0125 e001 | | Load 0x0,0x1 0126 01d7 | | Execute Vector,Field_Read 0127 02a5 | | Declare_Subprogram For_Outer_Call,With_Address 0128 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0129 00c7 | | Action Elaborate_Subprogram 012a BODY_0008: 012a 00bc | | Action Signal_Activated 012b 00bb | | Action Signal_Completion 012c 0000 0000 | | .BLANK 0000[0x4] 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 013c | < | .CONST 0x013c ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0003 | | .CONST 0x0003 ; Number of locals 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 01da | | Execute Vector,Bounds 0135 00e9 | | Load_Encached String_Cache 0136 035b | [ | Declare_Type Array,Constrained 0137 0337 | 7 | Declare_Variable Array 0138 00db | | Load_Top At_Offset_3 0139 01dd | | Execute Vector,First 013a 00e3 | | Load_Encached Natural_Cache 013b 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 013c BODY_0130: 013c 00cf | | Action Mark_Auxiliary 013d 0007 | | Action Break_Optional 013e 00d9 | | Load_Top At_Offset_1 013f e5ff | | Load 0x2,-0x1 0140 01dc | | Execute Vector,Last 0141 027d | } | Execute Discrete,Greater 0142 6804 |h | Jump_Zero 0x147 0143 00da | | Load_Top At_Offset_2 0144 00e9 | | Load_Encached String_Cache 0145 01c6 | | Execute Vector,Convert_To_Formal 0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0147 00cf | | Action Mark_Auxiliary 0148 0007 | | Action Break_Optional 0149 00da | | Load_Top At_Offset_2 014a e5ff | | Load 0x2,-0x1 014b 01d7 | | Execute Vector,Field_Read 014c 4861 |Ha | Short_Literal 0x61 014d 487a |Hz | Short_Literal 0x7a 014e 0262 | b | Execute Discrete,In_Range 014f 6810 |h | Jump_Zero 0x160 0150 00da | | Load_Top At_Offset_2 0151 e5ff | | Load 0x2,-0x1 0152 01d7 | | Execute Vector,Field_Read 0153 0ae0 | | Execute_Immediate Plus,-0x20 0154 00d8 | | Load_Top At_Offset_0 0155 00e8 | | Load_Encached Character_Cache 0156 0260 | ` | Execute Discrete,In_Type 0157 7001 |p | Jump_Nonzero 0x159 0158 0801 | | Execute_Immediate Raise,0x1 0159 00db | | Load_Top At_Offset_3 015a e402 | | Load 0x2,0x2 015b 01d6 | | Execute Vector,Field_Write 015c 00da | | Load_Top At_Offset_2 015d 0a01 | | Execute_Immediate Plus,0x1 015e 005b | [ | Store_Top Discrete,At_Offset_3 015f 782c |x, | Jump 0x18c 0160 00da | | Load_Top At_Offset_2 0161 e5ff | | Load 0x2,-0x1 0162 01d7 | | Execute Vector,Field_Read 0163 4841 |HA | Short_Literal 0x41 0164 485a |HZ | Short_Literal 0x5a 0165 0262 | b | Execute Discrete,In_Range 0166 7007 |p | Jump_Nonzero 0x16e 0167 00da | | Load_Top At_Offset_2 0168 e5ff | | Load 0x2,-0x1 0169 01d7 | | Execute Vector,Field_Read 016a 4830 |H0 | Short_Literal 0x30 016b 4839 |H9 | Short_Literal 0x39 016c 0262 | b | Execute Discrete,In_Range 016d 680a |h | Jump_Zero 0x178 016e 00da | | Load_Top At_Offset_2 016f e5ff | | Load 0x2,-0x1 0170 01d7 | | Execute Vector,Field_Read 0171 00db | | Load_Top At_Offset_3 0172 e402 | | Load 0x2,0x2 0173 01d6 | | Execute Vector,Field_Write 0174 00da | | Load_Top At_Offset_2 0175 0a01 | | Execute_Immediate Plus,0x1 0176 005b | [ | Store_Top Discrete,At_Offset_3 0177 7814 |x | Jump 0x18c 0178 00da | | Load_Top At_Offset_2 0179 e5ff | | Load 0x2,-0x1 017a 01d7 | | Execute Vector,Field_Read 017b 00db | | Load_Top At_Offset_3 017c e402 | | Load 0x2,0x2 017d 01d6 | | Execute Vector,Field_Write 017e 00da | | Load_Top At_Offset_2 017f 0a01 | | Execute_Immediate Plus,0x1 0180 005b | [ | Store_Top Discrete,At_Offset_3 0181 00da | | Load_Top At_Offset_2 0182 e5ff | | Load 0x2,-0x1 0183 01dc | | Execute Vector,Last 0184 027d | } | Execute Discrete,Greater 0185 6804 |h | Jump_Zero 0x18a 0186 00db | | Load_Top At_Offset_3 0187 00e9 | | Load_Encached String_Cache 0188 01c6 | | Execute Vector,Convert_To_Formal 0189 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018a 00c9 | | Action Pop_Auxiliary_Loop 018b 7fbd | | Jump 0x149 018c 00ce | | Action Pop_Auxiliary 018d 00d9 | | Load_Top At_Offset_1 018e e5ff | | Load 0x2,-0x1 018f 01dc | | Execute Vector,Last 0190 027d | } | Execute Discrete,Greater 0191 6804 |h | Jump_Zero 0x196 0192 00da | | Load_Top At_Offset_2 0193 00e9 | | Load_Encached String_Cache 0194 01c6 | | Execute Vector,Convert_To_Formal 0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0196 00cf | | Action Mark_Auxiliary 0197 0007 | | Action Break_Optional 0198 00da | | Load_Top At_Offset_2 0199 e5ff | | Load 0x2,-0x1 019a 01d7 | | Execute Vector,Field_Read 019b 4841 |HA | Short_Literal 0x41 019c 485a |HZ | Short_Literal 0x5a 019d 0262 | b | Execute Discrete,In_Range 019e 6818 |h | Jump_Zero 0x1b7 019f 00da | | Load_Top At_Offset_2 01a0 e5ff | | Load 0x2,-0x1 01a1 01d7 | | Execute Vector,Field_Read 01a2 0a20 | | Execute_Immediate Plus,0x20 01a3 00d8 | | Load_Top At_Offset_0 01a4 00e8 | | Load_Encached Character_Cache 01a5 0260 | ` | Execute Discrete,In_Type 01a6 7001 |p | Jump_Nonzero 0x1a8 01a7 0801 | | Execute_Immediate Raise,0x1 01a8 00db | | Load_Top At_Offset_3 01a9 e402 | | Load 0x2,0x2 01aa 01d6 | | Execute Vector,Field_Write 01ab 00da | | Load_Top At_Offset_2 01ac 0a01 | | Execute_Immediate Plus,0x1 01ad 005b | [ | Store_Top Discrete,At_Offset_3 01ae 00da | | Load_Top At_Offset_2 01af e5ff | | Load 0x2,-0x1 01b0 01dc | | Execute Vector,Last 01b1 027d | } | Execute Discrete,Greater 01b2 682e |h. | Jump_Zero 0x1e1 01b3 00db | | Load_Top At_Offset_3 01b4 00e9 | | Load_Encached String_Cache 01b5 01c6 | | Execute Vector,Convert_To_Formal 01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b7 00da | | Load_Top At_Offset_2 01b8 e5ff | | Load 0x2,-0x1 01b9 01d7 | | Execute Vector,Field_Read 01ba 4861 |Ha | Short_Literal 0x61 01bb 487a |Hz | Short_Literal 0x7a 01bc 0262 | b | Execute Discrete,In_Range 01bd 7007 |p | Jump_Nonzero 0x1c5 01be 00da | | Load_Top At_Offset_2 01bf e5ff | | Load 0x2,-0x1 01c0 01d7 | | Execute Vector,Field_Read 01c1 4830 |H0 | Short_Literal 0x30 01c2 4839 |H9 | Short_Literal 0x39 01c3 0262 | b | Execute Discrete,In_Range 01c4 6812 |h | Jump_Zero 0x1d7 01c5 00da | | Load_Top At_Offset_2 01c6 e5ff | | Load 0x2,-0x1 01c7 01d7 | | Execute Vector,Field_Read 01c8 00db | | Load_Top At_Offset_3 01c9 e402 | | Load 0x2,0x2 01ca 01d6 | | Execute Vector,Field_Write 01cb 00da | | Load_Top At_Offset_2 01cc 0a01 | | Execute_Immediate Plus,0x1 01cd 005b | [ | Store_Top Discrete,At_Offset_3 01ce 00da | | Load_Top At_Offset_2 01cf e5ff | | Load 0x2,-0x1 01d0 01dc | | Execute Vector,Last 01d1 027d | } | Execute Discrete,Greater 01d2 680e |h | Jump_Zero 0x1e1 01d3 00db | | Load_Top At_Offset_3 01d4 00e9 | | Load_Encached String_Cache 01d5 01c6 | | Execute Vector,Convert_To_Formal 01d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d7 00da | | Load_Top At_Offset_2 01d8 e5ff | | Load 0x2,-0x1 01d9 01d7 | | Execute Vector,Field_Read 01da 00db | | Load_Top At_Offset_3 01db e402 | | Load 0x2,0x2 01dc 01d6 | | Execute Vector,Field_Write 01dd 00da | | Load_Top At_Offset_2 01de 0a01 | | Execute_Immediate Plus,0x1 01df 005b | [ | Store_Top Discrete,At_Offset_3 01e0 7802 |x | Jump 0x1e3 01e1 00c9 | | Action Pop_Auxiliary_Loop 01e2 7fb5 | | Jump 0x198 01e3 00ce | | Action Pop_Auxiliary 01e4 00c9 | | Action Pop_Auxiliary_Loop 01e5 7f58 | X | Jump 0x13e 01e6 0000 0000 | | .XXX[0x2] 01e8 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 01ec 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 01f0 8000 0000 | | .LITERAL {0x80000000, 0x00030000} 01f4 0000 0000 | | .BLANK 0000[0x4] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 480a |H | Short_Literal 0xa 01fc 4800 |H | Short_Literal 0x0 01fd e5ff | | Load 0x2,-0x1 01fe 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ff e00f | | Load 0x0,0xf 0200 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0201 482f |H/ | Short_Literal 0x2f 0202 e010 | | Load 0x0,0x10 0203 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 0204 4810 |H | Short_Literal 0x10 0205 4800 |H | Short_Literal 0x0 0206 e5ff | | Load 0x2,-0x1 0207 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0208 e00f | | Load 0x0,0xf 0209 1815 | | Execute Package,Field_Execute,Field_Number 0x15 020a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 020b 0000 0000 | | .BLANK 0000[0x5] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0213 | | .CONST 0x0213 ; Address of begin 0211 0004 | | .CONST 0x0004 ; Address of exception handler 0212 0001 | | .CONST 0x0001 ; Number of locals 0213 BODY_0210: 0213 INIT_0210: 0213 00da | | Load_Top At_Offset_2 0214 00e1 | | Load_Encached Boolean_Cache 0215 011c | | Execute Any,Convert_Unchecked 0216 1c01 | | Execute_Immediate Run_Utility,0x1 0217 8214 | | Call 0x1,0x14 0218 e010 | | Load 0x0,0x10 0219 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 021a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 021b 0000 0000 | | .BLANK 0000[0x5] 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 022b | + | .CONST 0x022b ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 00da | | Load_Top At_Offset_2 0224 e011 | | Load 0x0,0x11 0225 011c | | Execute Any,Convert_Unchecked 0226 1c01 | | Execute_Immediate Run_Utility,0x1 0227 8214 | | Call 0x1,0x14 0228 e010 | | Load 0x0,0x10 0229 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 022a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 022b TRAP_0220: 022b 010e | | Execute Exception,Is_Constraint_Error 022c 6811 |h | Jump_Zero 0x23e 022d e00f | | Load 0x0,0xf 022e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 022f e00f | | Load 0x0,0xf 0230 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0231 e5ff | | Load 0x2,-0x1 0232 00d8 | | Load_Top At_Offset_0 0233 e003 | | Load 0x0,0x3 0234 0260 | ` | Execute Discrete,In_Type 0235 7001 |p | Jump_Nonzero 0x237 0236 0801 | | Execute_Immediate Raise,0x1 0237 e00f | | Load 0x0,0xf 0238 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0239 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 023b e010 | | Load 0x0,0x10 023c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 023d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 023e 0100 | | Execute Exception,Raise 023f 0000 | | .XXX[0x1] 0240 ; -------------------------------------------------------------------------------------- 0240 ; SUBPROGRAM 0240 ; -------------------------------------------------------------------------------------- 0240 0243 | C | .CONST 0x0243 ; Address of begin 0241 024b | K | .CONST 0x024b ; Address of exception handler 0242 0001 | | .CONST 0x0001 ; Number of locals 0243 BODY_0240: 0243 INIT_0240: 0243 00da | | Load_Top At_Offset_2 0244 e012 | | Load 0x0,0x12 0245 011c | | Execute Any,Convert_Unchecked 0246 1c01 | | Execute_Immediate Run_Utility,0x1 0247 8214 | | Call 0x1,0x14 0248 e010 | | Load 0x0,0x10 0249 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 024a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 024b TRAP_0240: 024b 010e | | Execute Exception,Is_Constraint_Error 024c 6811 |h | Jump_Zero 0x25e 024d e00f | | Load 0x0,0xf 024e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 024f e00f | | Load 0x0,0xf 0250 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0251 e5ff | | Load 0x2,-0x1 0252 00d8 | | Load_Top At_Offset_0 0253 e003 | | Load 0x0,0x3 0254 0260 | ` | Execute Discrete,In_Type 0255 7001 |p | Jump_Nonzero 0x257 0256 0801 | | Execute_Immediate Raise,0x1 0257 e00f | | Load 0x0,0xf 0258 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0259 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 025b e010 | | Load 0x0,0x10 025c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 025d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025e 0100 | | Execute Exception,Raise 025f 0000 | | .XXX[0x1] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 0263 | c | .CONST 0x0263 ; Address of begin 0261 026b | k | .CONST 0x026b ; Address of exception handler 0262 0001 | | .CONST 0x0001 ; Number of locals 0263 BODY_0260: 0263 INIT_0260: 0263 00da | | Load_Top At_Offset_2 0264 e013 | | Load 0x0,0x13 0265 011c | | Execute Any,Convert_Unchecked 0266 1c01 | | Execute_Immediate Run_Utility,0x1 0267 8214 | | Call 0x1,0x14 0268 e010 | | Load 0x0,0x10 0269 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 026a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 026b TRAP_0260: 026b 010e | | Execute Exception,Is_Constraint_Error 026c 6811 |h | Jump_Zero 0x27e 026d e00f | | Load 0x0,0xf 026e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 026f e00f | | Load 0x0,0xf 0270 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0271 e5ff | | Load 0x2,-0x1 0272 00d8 | | Load_Top At_Offset_0 0273 e003 | | Load 0x0,0x3 0274 0260 | ` | Execute Discrete,In_Type 0275 7001 |p | Jump_Nonzero 0x277 0276 0801 | | Execute_Immediate Raise,0x1 0277 e00f | | Load 0x0,0xf 0278 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0279 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 027b e010 | | Load 0x0,0x10 027c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 027d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 027e 0100 | | Execute Exception,Raise 027f 0000 | | .XXX[0x1] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 028b | | .CONST 0x028b ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00da | | Load_Top At_Offset_2 0284 e014 | | Load 0x0,0x14 0285 011c | | Execute Any,Convert_Unchecked 0286 1c01 | | Execute_Immediate Run_Utility,0x1 0287 8214 | | Call 0x1,0x14 0288 e010 | | Load 0x0,0x10 0289 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 028a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 028b TRAP_0280: 028b 010e | | Execute Exception,Is_Constraint_Error 028c 6811 |h | Jump_Zero 0x29e 028d e00f | | Load 0x0,0xf 028e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 028f e00f | | Load 0x0,0xf 0290 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0291 e5ff | | Load 0x2,-0x1 0292 00d8 | | Load_Top At_Offset_0 0293 e003 | | Load 0x0,0x3 0294 0260 | ` | Execute Discrete,In_Type 0295 7001 |p | Jump_Nonzero 0x297 0296 0801 | | Execute_Immediate Raise,0x1 0297 e00f | | Load 0x0,0xf 0298 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0299 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 029b e010 | | Load 0x0,0x10 029c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 029d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 029e 0100 | | Execute Exception,Raise 029f 0000 | | .XXX[0x1] 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 4810 |H | Short_Literal 0x10 02a4 e00f | | Load 0x0,0xf 02a5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02a6 e5ff | | Load 0x2,-0x1 02a7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02a8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02a9 e00f | | Load 0x0,0xf 02aa 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ac 0000 0000 | | .BLANK 0000[0x4] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 02bb | | .CONST 0x02bb ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 00da | | Load_Top At_Offset_2 02b4 e015 | | Load 0x0,0x15 02b5 011c | | Execute Any,Convert_Unchecked 02b6 1c01 | | Execute_Immediate Run_Utility,0x1 02b7 8214 | | Call 0x1,0x14 02b8 e010 | | Load 0x0,0x10 02b9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02ba 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02bb TRAP_02b0: 02bb 010e | | Execute Exception,Is_Constraint_Error 02bc 6811 |h | Jump_Zero 0x2ce 02bd e00f | | Load 0x0,0xf 02be 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02bf e00f | | Load 0x0,0xf 02c0 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02c1 e5ff | | Load 0x2,-0x1 02c2 00d8 | | Load_Top At_Offset_0 02c3 e003 | | Load 0x0,0x3 02c4 0260 | ` | Execute Discrete,In_Type 02c5 7001 |p | Jump_Nonzero 0x2c7 02c6 0801 | | Execute_Immediate Raise,0x1 02c7 e00f | | Load 0x0,0xf 02c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02c9 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 02cb e010 | | Load 0x0,0x10 02cc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ce 0100 | | Execute Exception,Raise 02cf 0000 | | .XXX[0x1] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 4810 |H | Short_Literal 0x10 02d4 e00f | | Load 0x0,0xf 02d5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02d6 e5ff | | Load 0x2,-0x1 02d7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 02d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02d9 e00f | | Load 0x0,0xf 02da 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02dc 0000 0000 | | .BLANK 0000[0x4] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; SUBPROGRAM 02e0 ; -------------------------------------------------------------------------------------- 02e0 02e3 | | .CONST 0x02e3 ; Address of begin 02e1 02eb | | .CONST 0x02eb ; Address of exception handler 02e2 0001 | | .CONST 0x0001 ; Number of locals 02e3 BODY_02e0: 02e3 INIT_02e0: 02e3 00da | | Load_Top At_Offset_2 02e4 e016 | | Load 0x0,0x16 02e5 011c | | Execute Any,Convert_Unchecked 02e6 1c01 | | Execute_Immediate Run_Utility,0x1 02e7 8214 | | Call 0x1,0x14 02e8 e010 | | Load 0x0,0x10 02e9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02eb TRAP_02e0: 02eb 010e | | Execute Exception,Is_Constraint_Error 02ec 6811 |h | Jump_Zero 0x2fe 02ed e00f | | Load 0x0,0xf 02ee 1b11 | | Execute Package,Field_Read,Field_Number 0x11 02ef e00f | | Load 0x0,0xf 02f0 1b10 | | Execute Package,Field_Read,Field_Number 0x10 02f1 e5ff | | Load 0x2,-0x1 02f2 00d8 | | Load_Top At_Offset_0 02f3 e003 | | Load 0x0,0x3 02f4 0260 | ` | Execute Discrete,In_Type 02f5 7001 |p | Jump_Nonzero 0x2f7 02f6 0801 | | Execute_Immediate Raise,0x1 02f7 e00f | | Load 0x0,0xf 02f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15 02f9 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 02fb e010 | | Load 0x0,0x10 02fc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 02fd 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02fe 0100 | | Execute Exception,Raise 02ff 0000 | | .XXX[0x1] 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 030b | | .CONST 0x030b ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 00da | | Load_Top At_Offset_2 0304 e017 | | Load 0x0,0x17 0305 011c | | Execute Any,Convert_Unchecked 0306 1c01 | | Execute_Immediate Run_Utility,0x1 0307 8214 | | Call 0x1,0x14 0308 e010 | | Load 0x0,0x10 0309 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 030a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 030b TRAP_0300: 030b 010e | | Execute Exception,Is_Constraint_Error 030c 6811 |h | Jump_Zero 0x31e 030d e00f | | Load 0x0,0xf 030e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 030f e00f | | Load 0x0,0xf 0310 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0311 e5ff | | Load 0x2,-0x1 0312 00d8 | | Load_Top At_Offset_0 0313 e003 | | Load 0x0,0x3 0314 0260 | ` | Execute Discrete,In_Type 0315 7001 |p | Jump_Nonzero 0x317 0316 0801 | | Execute_Immediate Raise,0x1 0317 e00f | | Load 0x0,0xf 0318 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0319 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 031b e010 | | Load 0x0,0x10 031c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 031d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 031e 0100 | | Execute Exception,Raise 031f 0000 | | .XXX[0x1] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 032b | + | .CONST 0x032b ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 00da | | Load_Top At_Offset_2 0324 e018 | | Load 0x0,0x18 0325 011c | | Execute Any,Convert_Unchecked 0326 1c01 | | Execute_Immediate Run_Utility,0x1 0327 8214 | | Call 0x1,0x14 0328 e010 | | Load 0x0,0x10 0329 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 032a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 032b TRAP_0320: 032b 010e | | Execute Exception,Is_Constraint_Error 032c 6811 |h | Jump_Zero 0x33e 032d e00f | | Load 0x0,0xf 032e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 032f e00f | | Load 0x0,0xf 0330 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0331 e5ff | | Load 0x2,-0x1 0332 00d8 | | Load_Top At_Offset_0 0333 e003 | | Load 0x0,0x3 0334 0260 | ` | Execute Discrete,In_Type 0335 7001 |p | Jump_Nonzero 0x337 0336 0801 | | Execute_Immediate Raise,0x1 0337 e00f | | Load 0x0,0xf 0338 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0339 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 033b e010 | | Load 0x0,0x10 033c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 033d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 033e 0100 | | Execute Exception,Raise 033f 0000 | | .XXX[0x1] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 0343 | C | .CONST 0x0343 ; Address of begin 0341 034b | K | .CONST 0x034b ; Address of exception handler 0342 0001 | | .CONST 0x0001 ; Number of locals 0343 BODY_0340: 0343 INIT_0340: 0343 00da | | Load_Top At_Offset_2 0344 e019 | | Load 0x0,0x19 0345 011c | | Execute Any,Convert_Unchecked 0346 1c01 | | Execute_Immediate Run_Utility,0x1 0347 8214 | | Call 0x1,0x14 0348 e010 | | Load 0x0,0x10 0349 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 034a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 034b TRAP_0340: 034b 010e | | Execute Exception,Is_Constraint_Error 034c 6811 |h | Jump_Zero 0x35e 034d e00f | | Load 0x0,0xf 034e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 034f e00f | | Load 0x0,0xf 0350 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0351 e5ff | | Load 0x2,-0x1 0352 00d8 | | Load_Top At_Offset_0 0353 e003 | | Load 0x0,0x3 0354 0260 | ` | Execute Discrete,In_Type 0355 7001 |p | Jump_Nonzero 0x357 0356 0801 | | Execute_Immediate Raise,0x1 0357 e00f | | Load 0x0,0xf 0358 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0359 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 035b e010 | | Load 0x0,0x10 035c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 035d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 035e 0100 | | Execute Exception,Raise 035f 0000 | | .XXX[0x1] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 e00f | | Load 0x0,0xf 0364 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0365 4800 |H | Short_Literal 0x0 0366 e5ff | | Load 0x2,-0x1 0367 e00f | | Load 0x0,0xf 0368 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0369 4502 |E | Exit_Suprogram New_Top_Offset 0x2 036a 0000 0000 | | .BLANK 0000[0x6] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 4810 |H | Short_Literal 0x10 0374 4800 |H | Short_Literal 0x0 0375 e5ff | | Load 0x2,-0x1 0376 e00f | | Load 0x0,0xf 0377 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0378 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0379 0000 0000 | | .BLANK 0000[0x7] 0380 ; -------------------------------------------------------------------------------------- 0380 ; SUBPROGRAM 0380 ; -------------------------------------------------------------------------------------- 0380 0383 | | .CONST 0x0383 ; Address of begin 0381 038b | | .CONST 0x038b ; Address of exception handler 0382 0001 | | .CONST 0x0001 ; Number of locals 0383 BODY_0380: 0383 INIT_0380: 0383 00da | | Load_Top At_Offset_2 0384 e01a | | Load 0x0,0x1a 0385 011c | | Execute Any,Convert_Unchecked 0386 1c01 | | Execute_Immediate Run_Utility,0x1 0387 8214 | | Call 0x1,0x14 0388 e010 | | Load 0x0,0x10 0389 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 038a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 038b TRAP_0380: 038b 010e | | Execute Exception,Is_Constraint_Error 038c 6810 |h | Jump_Zero 0x39d 038d e00f | | Load 0x0,0xf 038e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 038f 4800 |H | Short_Literal 0x0 0390 e5ff | | Load 0x2,-0x1 0391 00d8 | | Load_Top At_Offset_0 0392 e003 | | Load 0x0,0x3 0393 0260 | ` | Execute Discrete,In_Type 0394 7001 |p | Jump_Nonzero 0x396 0395 0801 | | Execute_Immediate Raise,0x1 0396 e00f | | Load 0x0,0xf 0397 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0398 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 039a e010 | | Load 0x0,0x10 039b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 039c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 039d 0100 | | Execute Exception,Raise 039e 0000 0000 | | .XXX[0x2] 03a0 ; -------------------------------------------------------------------------------------- 03a0 ; SUBPROGRAM 03a0 ; -------------------------------------------------------------------------------------- 03a0 03a3 | | .CONST 0x03a3 ; Address of begin 03a1 03ab | | .CONST 0x03ab ; Address of exception handler 03a2 0001 | | .CONST 0x0001 ; Number of locals 03a3 BODY_03a0: 03a3 INIT_03a0: 03a3 00da | | Load_Top At_Offset_2 03a4 e01b | | Load 0x0,0x1b 03a5 011c | | Execute Any,Convert_Unchecked 03a6 1c01 | | Execute_Immediate Run_Utility,0x1 03a7 8214 | | Call 0x1,0x14 03a8 e010 | | Load 0x0,0x10 03a9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03ab TRAP_03a0: 03ab 010e | | Execute Exception,Is_Constraint_Error 03ac 6810 |h | Jump_Zero 0x3bd 03ad e00f | | Load 0x0,0xf 03ae 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03af 4800 |H | Short_Literal 0x0 03b0 e5ff | | Load 0x2,-0x1 03b1 00d8 | | Load_Top At_Offset_0 03b2 e003 | | Load 0x0,0x3 03b3 0260 | ` | Execute Discrete,In_Type 03b4 7001 |p | Jump_Nonzero 0x3b6 03b5 0801 | | Execute_Immediate Raise,0x1 03b6 e00f | | Load 0x0,0xf 03b7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03b8 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 03ba e010 | | Load 0x0,0x10 03bb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03bd 0100 | | Execute Exception,Raise 03be 0000 0000 | | .XXX[0x2] 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; SUBPROGRAM 03c0 ; -------------------------------------------------------------------------------------- 03c0 03c3 | | .CONST 0x03c3 ; Address of begin 03c1 03cb | | .CONST 0x03cb ; Address of exception handler 03c2 0001 | | .CONST 0x0001 ; Number of locals 03c3 BODY_03c0: 03c3 INIT_03c0: 03c3 00da | | Load_Top At_Offset_2 03c4 e01c | | Load 0x0,0x1c 03c5 011c | | Execute Any,Convert_Unchecked 03c6 1c01 | | Execute_Immediate Run_Utility,0x1 03c7 8214 | | Call 0x1,0x14 03c8 e010 | | Load 0x0,0x10 03c9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03ca 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03cb TRAP_03c0: 03cb 010e | | Execute Exception,Is_Constraint_Error 03cc 6810 |h | Jump_Zero 0x3dd 03cd e00f | | Load 0x0,0xf 03ce 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03cf 4800 |H | Short_Literal 0x0 03d0 e5ff | | Load 0x2,-0x1 03d1 00d8 | | Load_Top At_Offset_0 03d2 e003 | | Load 0x0,0x3 03d3 0260 | ` | Execute Discrete,In_Type 03d4 7001 |p | Jump_Nonzero 0x3d6 03d5 0801 | | Execute_Immediate Raise,0x1 03d6 e00f | | Load 0x0,0xf 03d7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03d8 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 03da e010 | | Load 0x0,0x10 03db 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03dd 0100 | | Execute Exception,Raise 03de 0000 0000 | | .XXX[0x2] 03e0 ; -------------------------------------------------------------------------------------- 03e0 ; SUBPROGRAM 03e0 ; -------------------------------------------------------------------------------------- 03e0 03e3 | | .CONST 0x03e3 ; Address of begin 03e1 03eb | | .CONST 0x03eb ; Address of exception handler 03e2 0001 | | .CONST 0x0001 ; Number of locals 03e3 BODY_03e0: 03e3 INIT_03e0: 03e3 00da | | Load_Top At_Offset_2 03e4 e01d | | Load 0x0,0x1d 03e5 011c | | Execute Any,Convert_Unchecked 03e6 1c01 | | Execute_Immediate Run_Utility,0x1 03e7 8214 | | Call 0x1,0x14 03e8 e010 | | Load 0x0,0x10 03e9 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03ea 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03eb TRAP_03e0: 03eb 010e | | Execute Exception,Is_Constraint_Error 03ec 6810 |h | Jump_Zero 0x3fd 03ed e00f | | Load 0x0,0xf 03ee 1b11 | | Execute Package,Field_Read,Field_Number 0x11 03ef 4800 |H | Short_Literal 0x0 03f0 e5ff | | Load 0x2,-0x1 03f1 00d8 | | Load_Top At_Offset_0 03f2 e003 | | Load 0x0,0x3 03f3 0260 | ` | Execute Discrete,In_Type 03f4 7001 |p | Jump_Nonzero 0x3f6 03f5 0801 | | Execute_Immediate Raise,0x1 03f6 e00f | | Load 0x0,0xf 03f7 1815 | | Execute Package,Field_Execute,Field_Number 0x15 03f8 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 03fa e010 | | Load 0x0,0x10 03fb 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 03fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 03fd 0100 | | Execute Exception,Raise 03fe 0000 0000 | | .XXX[0x2] 0400 ; -------------------------------------------------------------------------------------- 0400 ; SUBPROGRAM 0400 ; -------------------------------------------------------------------------------------- 0400 0403 | | .CONST 0x0403 ; Address of begin 0401 040b | | .CONST 0x040b ; Address of exception handler 0402 0001 | | .CONST 0x0001 ; Number of locals 0403 BODY_0400: 0403 INIT_0400: 0403 00da | | Load_Top At_Offset_2 0404 e01e | | Load 0x0,0x1e 0405 011c | | Execute Any,Convert_Unchecked 0406 1c01 | | Execute_Immediate Run_Utility,0x1 0407 8214 | | Call 0x1,0x14 0408 e010 | | Load 0x0,0x10 0409 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 040a 4502 |E | Exit_Suprogram New_Top_Offset 0x2 040b TRAP_0400: 040b 010e | | Execute Exception,Is_Constraint_Error 040c 6810 |h | Jump_Zero 0x41d 040d e00f | | Load 0x0,0xf 040e 1b11 | | Execute Package,Field_Read,Field_Number 0x11 040f 4800 |H | Short_Literal 0x0 0410 e5ff | | Load 0x2,-0x1 0411 00d8 | | Load_Top At_Offset_0 0412 e003 | | Load 0x0,0x3 0413 0260 | ` | Execute Discrete,In_Type 0414 7001 |p | Jump_Nonzero 0x416 0415 0801 | | Execute_Immediate Raise,0x1 0416 e00f | | Load 0x0,0xf 0417 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0418 0092 0527 | '| Action Push_String_Extended,0x527 ; "(!!)" 041a e010 | | Load 0x0,0x10 041b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 041c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 041d 0100 | | Execute Exception,Raise 041e 0000 0000 | | .XXX[0x2] 0420 ; -------------------------------------------------------------------------------------- 0420 ; SUBPROGRAM 0420 ; -------------------------------------------------------------------------------------- 0420 0423 | # | .CONST 0x0423 ; Address of begin 0421 0004 | | .CONST 0x0004 ; Address of exception handler 0422 0001 | | .CONST 0x0001 ; Number of locals 0423 BODY_0420: 0423 INIT_0420: 0423 00da | | Load_Top At_Offset_2 0424 7004 |p | Jump_Nonzero 0x429 0425 e210 | | Load 0x1,0x10 0426 e010 | | Load 0x0,0x10 0427 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0428 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0429 00da | | Load_Top At_Offset_2 042a 0227 | ' | Execute Access,All_Reference 042b 801f | | Call 0x0,0x1f 042c e010 | | Load 0x0,0x10 042d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 042e 00da | | Load_Top At_Offset_2 042f e020 | | Load 0x0,0x20 0430 e021 | ! | Load 0x0,0x21 0431 a022 | " | Store_Unchecked 0x0,0x22 0432 8023 | # | Call 0x0,0x23 0433 003b | ; | Store_Top Access,At_Offset_3 0434 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0435 0000 0000 | | .XXX[0x3] 0437 0000 | | 0438 ; -------------------------------------------------------------------------------------- 0438 ; SUBPROGRAM 0438 ; -------------------------------------------------------------------------------------- 0438 043b | ; | .CONST 0x043b ; Address of begin 0439 0004 | | .CONST 0x0004 ; Address of exception handler 043a 0001 | | .CONST 0x0001 ; Number of locals 043b BODY_0438: 043b INIT_0438: 043b 4810 |H | Short_Literal 0x10 043c 4800 |H | Short_Literal 0x0 043d e5ff | | Load 0x2,-0x1 043e e00f | | Load 0x0,0xf 043f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0440 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0441 0000 0000 | | .BLANK 0000[0x7] 0448 ; -------------------------------------------------------------------------------------- 0448 ; SUBPROGRAM 0448 ; -------------------------------------------------------------------------------------- 0448 044b | K | .CONST 0x044b ; Address of begin 0449 0004 | | .CONST 0x0004 ; Address of exception handler 044a 0001 | | .CONST 0x0001 ; Number of locals 044b BODY_0448: 044b INIT_0448: 044b 4810 |H | Short_Literal 0x10 044c 4800 |H | Short_Literal 0x0 044d e5ff | | Load 0x2,-0x1 044e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 044f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0450 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0451 e00f | | Load 0x0,0xf 0452 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0453 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0454 0000 0000 | | .BLANK 0000[0x4] 0458 ; -------------------------------------------------------------------------------------- 0458 ; SUBPROGRAM 0458 ; -------------------------------------------------------------------------------------- 0458 045b | [ | .CONST 0x045b ; Address of begin 0459 0004 | | .CONST 0x0004 ; Address of exception handler 045a 0001 | | .CONST 0x0001 ; Number of locals 045b BODY_0458: 045b INIT_0458: 045b e00f | | Load 0x0,0xf 045c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 045d 4800 |H | Short_Literal 0x0 045e e5ff | | Load 0x2,-0x1 045f e00f | | Load 0x0,0xf 0460 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0461 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0462 0000 0000 | | .BLANK 0000[0x6] 0468 ; -------------------------------------------------------------------------------------- 0468 ; SUBPROGRAM 0468 ; -------------------------------------------------------------------------------------- 0468 046b | k | .CONST 0x046b ; Address of begin 0469 0004 | | .CONST 0x0004 ; Address of exception handler 046a 0001 | | .CONST 0x0001 ; Number of locals 046b BODY_0468: 046b INIT_0468: 046b e00f | | Load 0x0,0xf 046c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 046d 4800 |H | Short_Literal 0x0 046e e5ff | | Load 0x2,-0x1 046f e00f | | Load 0x0,0xf 0470 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0471 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0472 0000 0000 | | .BLANK 0000[0x6] 0478 ; -------------------------------------------------------------------------------------- 0478 ; SUBPROGRAM 0478 ; -------------------------------------------------------------------------------------- 0478 047b | { | .CONST 0x047b ; Address of begin 0479 0004 | | .CONST 0x0004 ; Address of exception handler 047a 0001 | | .CONST 0x0001 ; Number of locals 047b BODY_0478: 047b INIT_0478: 047b e00f | | Load 0x0,0xf 047c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 047d 4800 |H | Short_Literal 0x0 047e e5ff | | Load 0x2,-0x1 047f e00f | | Load 0x0,0xf 0480 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0481 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0482 0000 0000 | | .BLANK 0000[0x6] 0488 ; -------------------------------------------------------------------------------------- 0488 ; SUBPROGRAM 0488 ; -------------------------------------------------------------------------------------- 0488 048b | | .CONST 0x048b ; Address of begin 0489 0004 | | .CONST 0x0004 ; Address of exception handler 048a 0001 | | .CONST 0x0001 ; Number of locals 048b BODY_0488: 048b INIT_0488: 048b e00f | | Load 0x0,0xf 048c 1b11 | | Execute Package,Field_Read,Field_Number 0x11 048d 4800 |H | Short_Literal 0x0 048e e5ff | | Load 0x2,-0x1 048f e00f | | Load 0x0,0xf 0490 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0491 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0492 0000 0000 | | .BLANK 0000[0x6] 0498 ; -------------------------------------------------------------------------------------- 0498 ; SUBPROGRAM 0498 ; -------------------------------------------------------------------------------------- 0498 049f | | .CONST 0x049f ; Address of begin 0499 0004 | | .CONST 0x0004 ; Address of exception handler 049a 0003 | | .CONST 0x0003 ; Number of locals 049b INIT_0498: 049b 00e1 | | Load_Encached Boolean_Cache 049c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 049d 029f 04d3 | | Declare_Subprogram INIT_04d0,For_Call 049f BODY_0498: 049f 4828 |H( | Short_Literal 0x28 04a0 e010 | | Load 0x0,0x10 04a1 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 04a2 00cf | | Action Mark_Auxiliary 04a3 e5fa | | Load 0x2,-0x6 04a4 01da | | Execute Vector,Bounds 04a5 e5fb | | Load 0x2,-0x5 04a6 1c05 | | Execute_Immediate Run_Utility,0x5 04a7 00d0 | | Action Swap_Control 04a8 e5fb | | Load 0x2,-0x5 04a9 1c05 | | Execute_Immediate Run_Utility,0x5 04aa 0263 | c | Execute Discrete,Above_Bound 04ab 7019 |p | Jump_Nonzero 0x4c5 04ac 00d8 | | Load_Top At_Offset_0 04ad e5fb | | Load 0x2,-0x5 04ae 1c04 | | Execute_Immediate Run_Utility,0x4 04af e5fa | | Load 0x2,-0x6 04b0 01d7 | | Execute Vector,Field_Read 04b1 6809 |h | Jump_Zero 0x4bb 04b2 e402 | | Load 0x2,0x2 04b3 7004 |p | Jump_Nonzero 0x4b8 04b4 482c |H, | Short_Literal 0x2c 04b5 e010 | | Load 0x0,0x10 04b6 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 04b7 7802 |x | Jump 0x4ba 04b8 4800 |H | Short_Literal 0x0 04b9 a402 | | Store_Unchecked 0x2,0x2 04ba 8403 | | Call 0x2,0x3 04bb 00c8 | | Action Pop_Auxiliary_Range 04bc 00d9 | | Load_Top At_Offset_1 04bd 00d9 | | Load_Top At_Offset_1 04be 027f | | Execute Discrete,Equal 04bf 7004 |p | Jump_Nonzero 0x4c4 04c0 e5fb | | Load 0x2,-0x5 04c1 0122 | " | Execute Any,Make_Root_Type 04c2 1c07 | | Execute_Immediate Run_Utility,0x7 04c3 7fe8 | | Jump 0x4ac 04c4 00d2 | | Pop_Control Pop_Count_2 04c5 00ce | | Action Pop_Auxiliary 04c6 4829 |H) | Short_Literal 0x29 04c7 e010 | | Load 0x0,0x10 04c8 1847 | G | Execute Package,Field_Execute,Field_Number 0x47 04c9 4507 |E | Exit_Suprogram New_Top_Offset 0x7 04ca 0000 0000 | | .BLANK 0000[0x6] 04d0 ; -------------------------------------------------------------------------------------- 04d0 ; SUBPROGRAM 04d0 ; -------------------------------------------------------------------------------------- 04d0 04e3 | | .CONST 0x04e3 ; Address of begin 04d1 0004 | | .CONST 0x0004 ; Address of exception handler 04d2 0004 | | .CONST 0x0004 ; Number of locals 04d3 INIT_04d0: 04d3 e406 | | Load 0x2,0x6 04d4 e5fb | | Load 0x2,-0x5 04d5 1c04 | | Execute_Immediate Run_Utility,0x4 04d6 e5fb | | Load 0x2,-0x5 04d7 0122 | " | Execute Any,Make_Root_Type 04d8 011c | | Execute Any,Convert_Unchecked 04d9 1c01 | | Execute_Immediate Run_Utility,0x1 04da 8214 | | Call 0x1,0x14 04db 00d8 | | Load_Top At_Offset_0 04dc 01dd | | Execute Vector,First 04dd 00e3 | | Load_Encached Natural_Cache 04de 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 04df 00d9 | | Load_Top At_Offset_1 04e0 01dc | | Execute Vector,Last 04e1 00e3 | | Load_Encached Natural_Cache 04e2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 04e3 BODY_04d0: 04e3 e5fd | | Load 0x2,-0x3 04e4 01db | | Execute Vector,Length 04e5 681d |h | Jump_Zero 0x503 04e6 00da | | Load_Top At_Offset_2 04e7 01db | | Execute Vector,Length 04e8 e5fd | | Load 0x2,-0x3 04e9 01db | | Execute Vector,Length 04ea 027b | { | Execute Discrete,Greater_Equal 04eb 6817 |h | Jump_Zero 0x503 04ec 00da | | Load_Top At_Offset_2 04ed 01dd | | Execute Vector,First 04ee 00db | | Load_Top At_Offset_3 04ef 01dd | | Execute Vector,First 04f0 0aff | | Execute_Immediate Plus,-0x1 04f1 e5fd | | Load 0x2,-0x3 04f2 01db | | Execute Vector,Length 04f3 0273 | s | Execute Discrete,Plus 04f4 00d8 | | Load_Top At_Offset_0 04f5 00e2 | | Load_Encached Integer_Cache 04f6 0260 | ` | Execute Discrete,In_Type 04f7 7001 |p | Jump_Nonzero 0x4f9 04f8 0801 | | Execute_Immediate Raise,0x1 04f9 e602 | | Load 0x3,0x2 04fa 01cf | | Execute Vector,Slice_Read 04fb e5fd | | Load 0x2,-0x3 04fc 01df | | Execute Vector,Equal 04fd 6805 |h | Jump_Zero 0x503 04fe 00d9 | | Load_Top At_Offset_1 04ff e5fd | | Load 0x2,-0x3 0500 01db | | Execute Vector,Length 0501 0273 | s | Execute Discrete,Plus 0502 005a | Z | Store_Top Discrete,At_Offset_2 0503 e5fe | | Load 0x2,-0x2 0504 01db | | Execute Vector,Length 0505 6814 |h | Jump_Zero 0x51a 0506 00da | | Load_Top At_Offset_2 0507 01dc | | Execute Vector,Last 0508 0afc | | Execute_Immediate Plus,-0x4 0509 00d8 | | Load_Top At_Offset_0 050a 00e2 | | Load_Encached Integer_Cache 050b 0260 | ` | Execute Discrete,In_Type 050c 7001 |p | Jump_Nonzero 0x50e 050d 0801 | | Execute_Immediate Raise,0x1 050e 00db | | Load_Top At_Offset_3 050f 01dc | | Execute Vector,Last 0510 e602 | | Load 0x3,0x2 0511 01cf | | Execute Vector,Slice_Read 0512 e5fe | | Load 0x2,-0x2 0513 01df | | Execute Vector,Equal 0514 6805 |h | Jump_Zero 0x51a 0515 00d8 | | Load_Top At_Offset_0 0516 e5fe | | Load 0x2,-0x2 0517 01db | | Execute Vector,Length 0518 0272 | r | Execute Discrete,Minus 0519 0059 | Y | Store_Top Discrete,At_Offset_1 051a 00d9 | | Load_Top At_Offset_1 051b 00d9 | | Load_Top At_Offset_1 051c e602 | | Load 0x3,0x2 051d 01cf | | Execute Vector,Slice_Read 051e e010 | | Load 0x0,0x10 051f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0520 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0521 ; -------------------------------------------------------------------------------------- 0521 ; STRING TABLE 0521 ; -------------------------------------------------------------------------------------- 0521 0010 | | .STRTAB 0x0010->0x0529 ; "YES" 0522 0011 | | .STRTAB 0x0011->0x052a ; "NO" 0523 0011 | | .STRTAB 0x0011->0x052b ; "unknown" 0524 0016 | | .STRTAB 0x0016->0x052f ; "Enter_Leave_" 0525 0020 | | .STRTAB 0x0020->0x0535 ; "_Mask" 0526 0023 | # | .STRTAB 0x0023->0x0537 ; "Cw_" 0527 0024 | $ | .STRTAB 0x0024->0x0539 ; "(!!)" 0528 0026 | & | .STREND 0x0026->0x053b 0529 5945 534e |YESN| .STRTAB_STRINGS 053b 0000 0000 | | .BLANK 0000[0x5] 0540 ; -------------------------------------------------------------------------------------- 0540 ; Debug Table 0540 ; -------------------------------------------------------------------------------------- 0540 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6866,0x0000,0x0001,0x0020 0546 000b 05c6 | | .DBG4T 0x000b,0x05c6,0x8000,0x0000 054a 0010 05c9 | | .DBG4T 0x0010,0x05c9,0x8000,0x0000 054e 0133 0622 | 3 "| .DBG4T 0x0133,0x0622,0x0002,0x0000 0552 01fb 0646 | F| .DBG4T 0x01fb,0x0646,0x0001,0x0000 0556 0213 064b | K| .DBG4T 0x0213,0x064b,0x0001,0x0000 055a 0223 064e | # N| .DBG4T 0x0223,0x064e,0x0001,0x0000 055e 0243 0653 | C S| .DBG4T 0x0243,0x0653,0x0001,0x0000 0562 0263 0658 | c X| .DBG4T 0x0263,0x0658,0x0001,0x0000 0566 0283 065d | ]| .DBG4T 0x0283,0x065d,0x0001,0x0000 056a 02a3 0662 | b| .DBG4T 0x02a3,0x0662,0x0001,0x0000 056e 02b3 0665 | e| .DBG4T 0x02b3,0x0665,0x0001,0x0000 0572 02d3 066a | j| .DBG4T 0x02d3,0x066a,0x0001,0x0000 0576 02e3 066d | m| .DBG4T 0x02e3,0x066d,0x0001,0x0000 057a 0303 0672 | r| .DBG4T 0x0303,0x0672,0x0001,0x0000 057e 0323 0677 | # w| .DBG4T 0x0323,0x0677,0x0001,0x0000 0582 0343 067c | C || .DBG4T 0x0343,0x067c,0x0001,0x0000 0586 0363 0681 | c | .DBG4T 0x0363,0x0681,0x0001,0x0000 058a 0373 0684 | s | .DBG4T 0x0373,0x0684,0x0001,0x0000 058e 0383 0687 | | .DBG4T 0x0383,0x0687,0x0001,0x0000 0592 03a3 068c | | .DBG4T 0x03a3,0x068c,0x0001,0x0000 0596 03c3 0691 | | .DBG4T 0x03c3,0x0691,0x0001,0x0000 059a 03e3 0696 | | .DBG4T 0x03e3,0x0696,0x0001,0x0000 059e 0403 069b | | .DBG4T 0x0403,0x069b,0x0001,0x0000 05a2 0423 06a0 | # | .DBG4T 0x0423,0x06a0,0x0001,0x0000 05a6 043b 06a6 | ; | .DBG4T 0x043b,0x06a6,0x0001,0x0000 05aa 044b 06a9 | K | .DBG4T 0x044b,0x06a9,0x0001,0x0000 05ae 045b 06ac | [ | .DBG4T 0x045b,0x06ac,0x0001,0x0000 05b2 046b 06af | k | .DBG4T 0x046b,0x06af,0x0001,0x0000 05b6 047b 06b2 | { | .DBG4T 0x047b,0x06b2,0x0001,0x0000 05ba 048b 06b5 | | .DBG4T 0x048b,0x06b5,0x0001,0x0000 05be 049b 06b8 | | .DBG4T 0x049b,0x06b8,0x2801,0x0002 05c2 04d3 06c3 | | .DBG4T 0x04d3,0x06c3,0x0804,0x0002 05c6 ; -------------------------------------------------------------------------------------- 05c6 ; Debug chain 05c6 ; -------------------------------------------------------------------------------------- 05c6 0001 0000 | | .DBGLEN 0x0001,0x0000 05c8 000b | | .DBGLNO 0x000b 05c9 ; -------------------------------------------------------------------------------------- 05c9 ; Debug chain 05c9 ; -------------------------------------------------------------------------------------- 05c9 0057 0000 | W | .DBGLEN 0x0057,0x0000 05cb 0010 0011 | | .DBGLNO 0x0010,0x0011,0x0012,0x0013,0x0014,0x0015,0x0016,0x0017,0x0018,0x0019,0x001a,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x0076,0x0087,0x008b,0x009c,0x00a0,0x00a4,0x00a8,0x00ac,0x00b0,0x00b4,0x00b8,0x00bc,0x00c0,0x00c4,0x00c8,0x00cc,0x00d0,0x00d4,0x00d8,0x00dc,0x00e0,0x00e4,0x00e8,0x00ec,0x00f0,0x00f4,0x00f8,0x00fc,0x0100,0x0104,0x0108,0x010c,0x0110,0x0114,0x0118,0x011c,0x0120,0x0124,0x0128 0622 ; -------------------------------------------------------------------------------------- 0622 ; Debug chain 0622 ; -------------------------------------------------------------------------------------- 0622 0002 0020 | | .DBGLEN 0x0002,0x0020 0624 0133 0138 | 3 8| .DBGLNO 0x0133,0x0138,0x013d,0x013e,0x0143,0x0148,0x0149,0x0150,0x015c,0x015f,0x0160,0x016e,0x0174,0x0177,0x0178,0x017e,0x0181,0x0186,0x018d,0x0192,0x0197,0x0198,0x019f,0x01ab,0x01ae,0x01b3,0x01b7,0x01c5,0x01cb,0x01ce,0x01d3,0x01d7,0x01dd,0x01e0 0646 ; -------------------------------------------------------------------------------------- 0646 ; Debug chain 0646 ; -------------------------------------------------------------------------------------- 0646 0000 0003 | | .DBGLEN 0x0000,0x0003 0648 01fb 0201 | | .DBGLNO 0x01fb,0x0201,0x0204 064b ; -------------------------------------------------------------------------------------- 064b ; Debug chain 064b ; -------------------------------------------------------------------------------------- 064b 0000 0001 | | .DBGLEN 0x0000,0x0001 064d 0213 | | .DBGLNO 0x0213 064e ; -------------------------------------------------------------------------------------- 064e ; Debug chain 064e ; -------------------------------------------------------------------------------------- 064e 0000 0003 | | .DBGLEN 0x0000,0x0003 0650 0223 022d | # -| .DBGLNO 0x0223,0x022d,0x0239 0653 ; -------------------------------------------------------------------------------------- 0653 ; Debug chain 0653 ; -------------------------------------------------------------------------------------- 0653 0000 0003 | | .DBGLEN 0x0000,0x0003 0655 0243 024d | C M| .DBGLNO 0x0243,0x024d,0x0259 0658 ; -------------------------------------------------------------------------------------- 0658 ; Debug chain 0658 ; -------------------------------------------------------------------------------------- 0658 0000 0003 | | .DBGLEN 0x0000,0x0003 065a 0263 026d | c m| .DBGLNO 0x0263,0x026d,0x0279 065d ; -------------------------------------------------------------------------------------- 065d ; Debug chain 065d ; -------------------------------------------------------------------------------------- 065d 0000 0003 | | .DBGLEN 0x0000,0x0003 065f 0283 028d | | .DBGLNO 0x0283,0x028d,0x0299 0662 ; -------------------------------------------------------------------------------------- 0662 ; Debug chain 0662 ; -------------------------------------------------------------------------------------- 0662 0000 0001 | | .DBGLEN 0x0000,0x0001 0664 02a3 | | .DBGLNO 0x02a3 0665 ; -------------------------------------------------------------------------------------- 0665 ; Debug chain 0665 ; -------------------------------------------------------------------------------------- 0665 0000 0003 | | .DBGLEN 0x0000,0x0003 0667 02b3 02bd | | .DBGLNO 0x02b3,0x02bd,0x02c9 066a ; -------------------------------------------------------------------------------------- 066a ; Debug chain 066a ; -------------------------------------------------------------------------------------- 066a 0000 0001 | | .DBGLEN 0x0000,0x0001 066c 02d3 | | .DBGLNO 0x02d3 066d ; -------------------------------------------------------------------------------------- 066d ; Debug chain 066d ; -------------------------------------------------------------------------------------- 066d 0000 0003 | | .DBGLEN 0x0000,0x0003 066f 02e3 02ed | | .DBGLNO 0x02e3,0x02ed,0x02f9 0672 ; -------------------------------------------------------------------------------------- 0672 ; Debug chain 0672 ; -------------------------------------------------------------------------------------- 0672 0000 0003 | | .DBGLEN 0x0000,0x0003 0674 0303 030d | | .DBGLNO 0x0303,0x030d,0x0319 0677 ; -------------------------------------------------------------------------------------- 0677 ; Debug chain 0677 ; -------------------------------------------------------------------------------------- 0677 0000 0003 | | .DBGLEN 0x0000,0x0003 0679 0323 032d | # -| .DBGLNO 0x0323,0x032d,0x0339 067c ; -------------------------------------------------------------------------------------- 067c ; Debug chain 067c ; -------------------------------------------------------------------------------------- 067c 0000 0003 | | .DBGLEN 0x0000,0x0003 067e 0343 034d | C M| .DBGLNO 0x0343,0x034d,0x0359 0681 ; -------------------------------------------------------------------------------------- 0681 ; Debug chain 0681 ; -------------------------------------------------------------------------------------- 0681 0000 0001 | | .DBGLEN 0x0000,0x0001 0683 0363 | c | .DBGLNO 0x0363 0684 ; -------------------------------------------------------------------------------------- 0684 ; Debug chain 0684 ; -------------------------------------------------------------------------------------- 0684 0000 0001 | | .DBGLEN 0x0000,0x0001 0686 0373 | s | .DBGLNO 0x0373 0687 ; -------------------------------------------------------------------------------------- 0687 ; Debug chain 0687 ; -------------------------------------------------------------------------------------- 0687 0000 0003 | | .DBGLEN 0x0000,0x0003 0689 0383 038d | | .DBGLNO 0x0383,0x038d,0x0398 068c ; -------------------------------------------------------------------------------------- 068c ; Debug chain 068c ; -------------------------------------------------------------------------------------- 068c 0000 0003 | | .DBGLEN 0x0000,0x0003 068e 03a3 03ad | | .DBGLNO 0x03a3,0x03ad,0x03b8 0691 ; -------------------------------------------------------------------------------------- 0691 ; Debug chain 0691 ; -------------------------------------------------------------------------------------- 0691 0000 0003 | | .DBGLEN 0x0000,0x0003 0693 03c3 03cd | | .DBGLNO 0x03c3,0x03cd,0x03d8 0696 ; -------------------------------------------------------------------------------------- 0696 ; Debug chain 0696 ; -------------------------------------------------------------------------------------- 0696 0000 0003 | | .DBGLEN 0x0000,0x0003 0698 03e3 03ed | | .DBGLNO 0x03e3,0x03ed,0x03f8 069b ; -------------------------------------------------------------------------------------- 069b ; Debug chain 069b ; -------------------------------------------------------------------------------------- 069b 0000 0003 | | .DBGLEN 0x0000,0x0003 069d 0403 040d | | .DBGLNO 0x0403,0x040d,0x0418 06a0 ; -------------------------------------------------------------------------------------- 06a0 ; Debug chain 06a0 ; -------------------------------------------------------------------------------------- 06a0 0000 0004 | | .DBGLEN 0x0000,0x0004 06a2 0423 0425 | # %| .DBGLNO 0x0423,0x0425,0x0429,0x042e 06a6 ; -------------------------------------------------------------------------------------- 06a6 ; Debug chain 06a6 ; -------------------------------------------------------------------------------------- 06a6 0000 0001 | | .DBGLEN 0x0000,0x0001 06a8 043b | ; | .DBGLNO 0x043b 06a9 ; -------------------------------------------------------------------------------------- 06a9 ; Debug chain 06a9 ; -------------------------------------------------------------------------------------- 06a9 0000 0001 | | .DBGLEN 0x0000,0x0001 06ab 044b | K | .DBGLNO 0x044b 06ac ; -------------------------------------------------------------------------------------- 06ac ; Debug chain 06ac ; -------------------------------------------------------------------------------------- 06ac 0000 0001 | | .DBGLEN 0x0000,0x0001 06ae 045b | [ | .DBGLNO 0x045b 06af ; -------------------------------------------------------------------------------------- 06af ; Debug chain 06af ; -------------------------------------------------------------------------------------- 06af 0000 0001 | | .DBGLEN 0x0000,0x0001 06b1 046b | k | .DBGLNO 0x046b 06b2 ; -------------------------------------------------------------------------------------- 06b2 ; Debug chain 06b2 ; -------------------------------------------------------------------------------------- 06b2 0000 0001 | | .DBGLEN 0x0000,0x0001 06b4 047b | { | .DBGLNO 0x047b 06b5 ; -------------------------------------------------------------------------------------- 06b5 ; Debug chain 06b5 ; -------------------------------------------------------------------------------------- 06b5 0000 0001 | | .DBGLEN 0x0000,0x0001 06b7 048b | | .DBGLNO 0x048b 06b8 ; -------------------------------------------------------------------------------------- 06b8 ; Debug chain 06b8 ; -------------------------------------------------------------------------------------- 06b8 0001 0008 | | .DBGLEN 0x0001,0x0008 06ba 049b 049f | | .DBGLNO 0x049b,0x049f,0x04a3,0x04ac,0x04b2,0x04b4,0x04b8,0x04ba,0x04c6 06c3 ; -------------------------------------------------------------------------------------- 06c3 ; Debug chain 06c3 ; -------------------------------------------------------------------------------------- 06c3 0003 0005 | | .DBGLEN 0x0003,0x0005 06c5 04d3 04db | | .DBGLNO 0x04d3,0x04db,0x04df,0x04e3,0x04fe,0x0503,0x0515,0x051a 06cd 0000 0000 | | .BLANK 0000[0x133]