|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3
└─⟦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 04a8 | | .CONST 0x04a8 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 002b | + | .CONST 0x002b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0006 | | .CONST 0x0006 ; Number of locals 001b INIT_0018: 001b 4800 |H | Short_Literal 0x0 001c 4802 |H | Short_Literal 0x2 001d 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call 001f 03fd | | Declare_Type Discrete,Defined 0020 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "***" 0022 e001 | | Load 0x0,0x1 0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0024 02c7 | | Declare_Variable Any 0025 00d8 | | Load_Top At_Offset_0 0026 1c00 | | Execute_Immediate Run_Utility,0x0 0027 029f 006b | k| Declare_Subprogram INIT_0068,For_Call 0029 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 002b BODY_0018: 002b 00da | | Load_Top At_Offset_2 002c 00ea | | Load_Encached Null_String_Cache 002d e5ff | | Load 0x2,-0x1 002e 4800 |H | Short_Literal 0x0 002f e001 | | Load 0x0,0x1 0030 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0031 c404 | | Store 0x2,0x4 0032 00cf | | Action Mark_Auxiliary 0033 7802 |x | Jump 0x36 0034 8406 | | Call 0x2,0x6 0035 00c9 | | Action Pop_Auxiliary_Loop 0036 00db | | Load_Top At_Offset_3 0037 e001 | | Load 0x0,0x1 0038 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0039 6ffa |o | Jump_Zero 0x34 003a 00ce | | Action Pop_Auxiliary 003b 00da | | Load_Top At_Offset_2 003c e001 | | Load 0x0,0x1 003d 181b | | Execute Package,Field_Execute,Field_Number 0x1b 003e c404 | | Store 0x2,0x4 003f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0043 | C | .CONST 0x0043 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0001 | | .CONST 0x0001 ; Number of locals 0043 BODY_0040: 0043 INIT_0040: 0043 4607 |F | Jump_Case 0x8 0044 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0045 7806 |x | Jump 0x4c ; case 0x1 0046 7809 |x | Jump 0x50 ; case 0x2 0047 780d |x | Jump 0x55 ; case 0x3 0048 7810 |x | Jump 0x59 ; case 0x4 0049 7811 |x | Jump 0x5b ; case 0x5 004a 7812 |x | Jump 0x5d ; case 0x6 004b 7815 |x | Jump 0x61 ; case 0x7 004c 00da | | Load_Top At_Offset_2 004d 0091 03c4 | | Action Push_String_Extended_Indexed,0x3c4 ; "INSERT" 004f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0050 00db | | Load_Top At_Offset_3 0051 00db | | Load_Top At_Offset_3 0052 00e0 | | Load_Encached Standard_Cache 0053 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0054 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0055 00da | | Load_Top At_Offset_2 0056 00e0 | | Load_Encached Standard_Cache 0057 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0058 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0059 00db | | Load_Top At_Offset_3 005a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005b 00db | | Load_Top At_Offset_3 005c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005d e402 | | Load 0x2,0x2 005e 00dc | | Load_Top At_Offset_4 005f 0267 | g | Execute Discrete,Predecessor 0060 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0061 e402 | | Load 0x2,0x2 0062 00dc | | Load_Top At_Offset_4 0063 0268 | h | Execute Discrete,Successor 0064 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0065 0000 0000 | | .XXX[0x3] 0067 0000 | | 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006e | n | .CONST 0x006e ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0002 | | .CONST 0x0002 ; Number of locals 006b INIT_0068: 006b e404 | | Load 0x2,0x4 006c e001 | | Load 0x0,0x1 006d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 006e BODY_0068: 006e 00d8 | | Load_Top At_Offset_0 006f e403 | | Load 0x2,0x3 0070 01df | | Execute Vector,Equal 0071 6802 |h | Jump_Zero 0x74 0072 00ea | | Load_Encached Null_String_Cache 0073 00ca | | Action Exit_Nullary_Function 0074 480a |H | Short_Literal 0xa 0075 00d9 | | Load_Top At_Offset_1 0076 01cb | | Execute Vector,Append 0077 8405 | | Call 0x2,0x5 0078 01cc | | Execute Vector,Catenate 0079 00ca | | Action Exit_Nullary_Function 007a 0000 0000 | | .BLANK 0000[0x6] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 00b2 | | .CONST 0x00b2 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 000e | | .CONST 0x000e ; Number of locals 0083 INIT_0080: 0083 e404 | | Load 0x2,0x4 0084 e001 | | Load 0x0,0x1 0085 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0086 e402 | | Load 0x2,0x2 0087 1c02 | | Execute_Immediate Run_Utility,0x2 0088 e404 | | Load 0x2,0x4 0089 e001 | | Load 0x0,0x1 008a 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 008b e404 | | Load 0x2,0x4 008c e001 | | Load 0x0,0x1 008d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 008e e404 | | Load 0x2,0x4 008f e001 | | Load 0x0,0x1 0090 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 0091 8405 | | Call 0x2,0x5 0092 00da | | Load_Top At_Offset_2 0093 01dd | | Execute Vector,First 0094 4800 |H | Short_Literal 0x0 0095 e604 | | Load 0x3,0x4 0096 4820 |H | Short_Literal 0x20 0097 e002 | | Load 0x0,0x2 0098 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0099 0aff | | Execute_Immediate Plus,-0x1 009a e604 | | Load 0x3,0x4 009b 01cf | | Execute Vector,Slice_Read 009c 0007 | | Action Break_Optional 009d e003 | | Load 0x0,0x3 009e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 009f 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00a0 02c7 | | Declare_Variable Any 00a1 00d8 | | Load_Top At_Offset_0 00a2 1c00 | | Execute_Immediate Run_Utility,0x0 00a3 e003 | | Load 0x0,0x3 00a4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00a5 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00a6 00e1 | | Load_Encached Boolean_Cache 00a7 e003 | | Load 0x0,0x3 00a8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00a9 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00aa e003 | | Load 0x0,0x3 00ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00ac 02c7 | | Declare_Variable Any 00ad 00d8 | | Load_Top At_Offset_0 00ae 1c00 | | Execute_Immediate Run_Utility,0x0 00af e003 | | Load 0x0,0x3 00b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00b1 00e1 | | Load_Encached Boolean_Cache 00b2 BODY_0080: 00b2 e602 | | Load 0x3,0x2 00b3 4602 |F | Jump_Case 0x3 00b4 79f7 |y | Jump 0x2ac ; case 0x0 00b5 7918 |y | Jump 0x1ce ; case 0x1 00b6 7800 |x | Jump 0xb7 ; case 0x2 00b7 e004 | | Load 0x0,0x4 00b8 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b9 4802 |H | Short_Literal 0x2 00ba 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "Replacing \x22" 00bc e607 | | Load 0x3,0x7 00bd 01cc | | Execute Vector,Catenate 00be 0092 03c9 | | Action Push_String_Extended,0x3c9 ; "\x22 with \x22" 00c0 01cc | | Execute Vector,Catenate 00c1 e605 | | Load 0x3,0x5 00c2 01cc | | Execute Vector,Catenate 00c3 0092 03ca | | Action Push_String_Extended,0x3ca ; "\x22" 00c5 01cc | | Execute Vector,Catenate 00c6 e005 | | Load 0x0,0x5 00c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c8 e605 | | Load 0x3,0x5 00c9 e607 | | Load 0x3,0x7 00ca 01de | | Execute Vector,Not_Equal 00cb 6819 |h | Jump_Zero 0xe5 00cc e003 | | Load 0x0,0x3 00cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00ce 1b0f | | Execute Package,Field_Read,Field_Number 0xf 00cf e608 | | Load 0x3,0x8 00d0 62ef |b | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 00d1 e006 | | Load 0x0,0x6 00d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d3 e007 | | Load 0x0,0x7 00d4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d5 e008 | | Load 0x0,0x8 00d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d7 4800 |H | Short_Literal 0x0 00d8 4800 |H | Short_Literal 0x0 00d9 e007 | | Load 0x0,0x7 00da 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00db e003 | | Load 0x0,0x3 00dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00dd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00de e605 | | Load 0x3,0x5 00df e003 | | Load 0x0,0x3 00e0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 00e1 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00e2 c608 | | Store 0x3,0x8 00e3 c609 | | Store 0x3,0x9 00e4 7802 |x | Jump 0xe7 00e5 4803 |H | Short_Literal 0x3 00e6 a609 | | Store_Unchecked 0x3,0x9 00e7 e609 | | Load 0x3,0x9 00e8 460e |F | Jump_Case 0xf 00e9 782f |x/ | Jump 0x119 ; case 0x0 00ea 780d |x | Jump 0xf8 ; case 0x1 00eb 780c |x | Jump 0xf8 ; case 0x2 00ec 7839 |x9 | Jump 0x126 ; case 0x3 00ed 780a |x | Jump 0xf8 ; case 0x4 00ee 7809 |x | Jump 0xf8 ; case 0x5 00ef 7808 |x | Jump 0xf8 ; case 0x6 00f0 7807 |x | Jump 0xf8 ; case 0x7 00f1 7806 |x | Jump 0xf8 ; case 0x8 00f2 7805 |x | Jump 0xf8 ; case 0x9 00f3 7804 |x | Jump 0xf8 ; case 0xa 00f4 7803 |x | Jump 0xf8 ; case 0xb 00f5 7802 |x | Jump 0xf8 ; case 0xc 00f6 7801 |x | Jump 0xf8 ; case 0xd 00f7 7800 |x | Jump 0xf8 ; case 0xe 00f8 e004 | | Load 0x0,0x4 00f9 180e | | Execute Package,Field_Execute,Field_Number 0xe 00fa 4805 |H | Short_Literal 0x5 00fb 0092 03cb | | Action Push_String_Extended,0x3cb ; "Cannot replace " 00fd e605 | | Load 0x3,0x5 00fe 01cc | | Execute Vector,Catenate 00ff 0092 03cc | | Action Push_String_Extended,0x3cc ; " because " 0101 01cc | | Execute Vector,Catenate 0102 62bd |b | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0103 e006 | | Load 0x0,0x6 0104 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0105 e007 | | Load 0x0,0x7 0106 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0107 e008 | | Load 0x0,0x8 0108 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0109 4800 |H | Short_Literal 0x0 010a 4800 |H | Short_Literal 0x0 010b e007 | | Load 0x0,0x7 010c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 010d e003 | | Load 0x0,0x3 010e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 010f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0110 e605 | | Load 0x3,0x5 0111 e609 | | Load 0x3,0x9 0112 e003 | | Load 0x0,0x3 0113 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0114 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0115 01cc | | Execute Vector,Catenate 0116 e005 | | Load 0x0,0x5 0117 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0118 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0119 e004 | | Load 0x0,0x4 011a 180e | | Execute Package,Field_Execute,Field_Number 0xe 011b 4803 |H | Short_Literal 0x3 011c 0092 03cd | | Action Push_String_Extended,0x3cd ; "'New' declaration " 011e e605 | | Load 0x3,0x5 011f 01cc | | Execute Vector,Catenate 0120 0092 03ce | | Action Push_String_Extended,0x3ce ; " already exists" 0122 01cc | | Execute Vector,Catenate 0123 e005 | | Load 0x0,0x5 0124 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0125 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0126 e003 | | Load 0x0,0x3 0127 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0128 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0129 e608 | | Load 0x3,0x8 012a 6295 |b | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 012b e006 | | Load 0x0,0x6 012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012d e007 | | Load 0x0,0x7 012e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 012f e008 | | Load 0x0,0x8 0130 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0131 4800 |H | Short_Literal 0x0 0132 4800 |H | Short_Literal 0x0 0133 e007 | | Load 0x0,0x7 0134 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0135 e003 | | Load 0x0,0x3 0136 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0137 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0138 e607 | | Load 0x3,0x7 0139 e003 | | Load 0x0,0x3 013a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 013b 181b | | Execute Package,Field_Execute,Field_Number 0x1b 013c c608 | | Store 0x3,0x8 013d c609 | | Store 0x3,0x9 013e e609 | | Load 0x3,0x9 013f 6821 |h! | Jump_Zero 0x161 0140 e004 | | Load 0x0,0x4 0141 180e | | Execute Package,Field_Execute,Field_Number 0xe 0142 4805 |H | Short_Literal 0x5 0143 0092 03cb | | Action Push_String_Extended,0x3cb ; "Cannot replace " 0145 e607 | | Load 0x3,0x7 0146 01cc | | Execute Vector,Catenate 0147 0092 03cf | | Action Push_String_Extended,0x3cf ; "; resolution of name failed because " 0149 01cc | | Execute Vector,Catenate 014a 6275 |bu | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 014b e006 | | Load 0x0,0x6 014c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014d e007 | | Load 0x0,0x7 014e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 014f e008 | | Load 0x0,0x8 0150 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0151 4800 |H | Short_Literal 0x0 0152 4800 |H | Short_Literal 0x0 0153 e007 | | Load 0x0,0x7 0154 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0155 e003 | | Load 0x0,0x3 0156 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0157 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0158 e607 | | Load 0x3,0x7 0159 e609 | | Load 0x3,0x9 015a e003 | | Load 0x0,0x3 015b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 015c 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 015d 01cc | | Execute Vector,Catenate 015e e005 | | Load 0x0,0x5 015f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0160 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0161 e003 | | Load 0x0,0x3 0162 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0163 e003 | | Load 0x0,0x3 0164 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0165 625a |bZ | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0166 e006 | | Load 0x0,0x6 0167 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0168 e608 | | Load 0x3,0x8 0169 e003 | | Load 0x0,0x3 016a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 016b 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 016c c60b | | Store 0x3,0xb 016d 005a | Z | Store_Top Discrete,At_Offset_2 016e e608 | | Load 0x3,0x8 016f e003 | | Load 0x0,0x3 0170 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0171 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0172 c608 | | Store 0x3,0x8 0173 e608 | | Load 0x3,0x8 0174 e003 | | Load 0x0,0x3 0175 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0176 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0177 700d |p | Jump_Nonzero 0x185 0178 e004 | | Load 0x0,0x4 0179 180e | | Execute Package,Field_Execute,Field_Number 0xe 017a 4805 |H | Short_Literal 0x5 017b 0092 03cb | | Action Push_String_Extended,0x3cb ; "Cannot replace " 017d e607 | | Load 0x3,0x7 017e 01cc | | Execute Vector,Catenate 017f 0092 03d0 | | Action Push_String_Extended,0x3d0 ; "; name is ambiguous" 0181 01cc | | Execute Vector,Catenate 0182 e005 | | Load 0x0,0x5 0183 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0184 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0185 e003 | | Load 0x0,0x3 0186 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0187 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0188 00db | | Load_Top At_Offset_3 0189 0120 | | Execute Any,Is_Value 018a 6803 |h | Jump_Zero 0x18e 018b e003 | | Load 0x0,0x3 018c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 018d 7801 |x | Jump 0x18f 018e 00db | | Load_Top At_Offset_3 018f 6230 |b0 | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0190 e006 | | Load 0x0,0x6 0191 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0192 e007 | | Load 0x0,0x7 0193 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0194 e003 | | Load 0x0,0x3 0195 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0196 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0197 e603 | | Load 0x3,0x3 0198 e003 | | Load 0x0,0x3 0199 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 019a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 019b c60c | | Store 0x3,0xc 019c c609 | | Store 0x3,0x9 019d e003 | | Load 0x0,0x3 019e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019f 00e1 | | Load_Encached Boolean_Cache 01a0 621f |b | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 01a1 e006 | | Load 0x0,0x6 01a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a3 e60c | | Load 0x3,0xc 01a4 e003 | | Load 0x0,0x3 01a5 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 01a6 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01a7 005a | Z | Store_Top Discrete,At_Offset_2 01a8 005a | Z | Store_Top Discrete,At_Offset_2 01a9 00d8 | | Load_Top At_Offset_0 01aa 680a |h | Jump_Zero 0x1b5 01ab e003 | | Load 0x0,0x3 01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ad 6212 |b | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 01ae e006 | | Load 0x0,0x6 01af 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b0 e60c | | Load 0x3,0xc 01b1 e003 | | Load 0x0,0x3 01b2 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 01b3 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01b4 005a | Z | Store_Top Discrete,At_Offset_2 01b5 00e1 | | Load_Encached Boolean_Cache 01b6 e006 | | Load 0x0,0x6 01b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b8 e004 | | Load 0x0,0x4 01b9 180e | | Execute Package,Field_Execute,Field_Number 0xe 01ba 4801 |H | Short_Literal 0x1 01bb 4800 |H | Short_Literal 0x0 01bc e604 | | Load 0x3,0x4 01bd e606 | | Load 0x3,0x6 01be e009 | | Load 0x0,0x9 01bf 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 01c0 c60a | | Store 0x3,0xa 01c1 00d8 | | Load_Top At_Offset_0 01c2 680a |h | Jump_Zero 0x1cd 01c3 e003 | | Load 0x0,0x3 01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c5 61fa |a | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 01c6 e006 | | Load 0x0,0x6 01c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c8 e60c | | Load 0x3,0xc 01c9 e003 | | Load 0x0,0x3 01ca 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 01cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01cc 005a | Z | Store_Top Discrete,At_Offset_2 01cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ce e004 | | Load 0x0,0x4 01cf 180e | | Execute Package,Field_Execute,Field_Number 0xe 01d0 4802 |H | Short_Literal 0x2 01d1 0092 03d1 | | Action Push_String_Extended,0x3d1 ; "Removing \x22" 01d3 e605 | | Load 0x3,0x5 01d4 01cc | | Execute Vector,Catenate 01d5 0092 03ca | | Action Push_String_Extended,0x3ca ; "\x22" 01d7 01cc | | Execute Vector,Catenate 01d8 e005 | | Load 0x0,0x5 01d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01da e605 | | Load 0x3,0x5 01db e607 | | Load 0x3,0x7 01dc 01de | | Execute Vector,Not_Equal 01dd 680d |h | Jump_Zero 0x1eb 01de e004 | | Load 0x0,0x4 01df 180e | | Execute Package,Field_Execute,Field_Number 0xe 01e0 4805 |H | Short_Literal 0x5 01e1 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "Cannot remove " 01e3 e605 | | Load 0x3,0x5 01e4 01cc | | Execute Vector,Catenate 01e5 0092 03d3 | | Action Push_String_Extended,0x3d3 ; "; illegal command syntax" 01e7 01cc | | Execute Vector,Catenate 01e8 e005 | | Load 0x0,0x5 01e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01eb e003 | | Load 0x0,0x3 01ec 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01ee e608 | | Load 0x3,0x8 01ef 61d0 |a | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 01f0 e006 | | Load 0x0,0x6 01f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f2 e007 | | Load 0x0,0x7 01f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f4 e008 | | Load 0x0,0x8 01f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f6 4800 |H | Short_Literal 0x0 01f7 4800 |H | Short_Literal 0x0 01f8 e007 | | Load 0x0,0x7 01f9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01fa e003 | | Load 0x0,0x3 01fb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 01fc 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01fd e605 | | Load 0x3,0x5 01fe e003 | | Load 0x0,0x3 01ff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0200 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0201 c608 | | Store 0x3,0x8 0202 c609 | | Store 0x3,0x9 0203 e609 | | Load 0x3,0x9 0204 460e |F | Jump_Case 0xf 0205 782f |x/ | Jump 0x235 ; case 0x0 0206 780d |x | Jump 0x214 ; case 0x1 0207 780c |x | Jump 0x214 ; case 0x2 0208 7896 |x | Jump 0x29f ; case 0x3 0209 780a |x | Jump 0x214 ; case 0x4 020a 7809 |x | Jump 0x214 ; case 0x5 020b 7808 |x | Jump 0x214 ; case 0x6 020c 7807 |x | Jump 0x214 ; case 0x7 020d 7806 |x | Jump 0x214 ; case 0x8 020e 7805 |x | Jump 0x214 ; case 0x9 020f 7804 |x | Jump 0x214 ; case 0xa 0210 7803 |x | Jump 0x214 ; case 0xb 0211 7802 |x | Jump 0x214 ; case 0xc 0212 7801 |x | Jump 0x214 ; case 0xd 0213 7800 |x | Jump 0x214 ; case 0xe 0214 e004 | | Load 0x0,0x4 0215 180e | | Execute Package,Field_Execute,Field_Number 0xe 0216 4805 |H | Short_Literal 0x5 0217 0092 03d4 | | Action Push_String_Extended,0x3d4 ; "Cannot resolve " 0219 e605 | | Load 0x3,0x5 021a 01cc | | Execute Vector,Catenate 021b 0092 03cc | | Action Push_String_Extended,0x3cc ; " because " 021d 01cc | | Execute Vector,Catenate 021e 61a1 |a | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 021f e006 | | Load 0x0,0x6 0220 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0221 e007 | | Load 0x0,0x7 0222 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0223 e008 | | Load 0x0,0x8 0224 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0225 4800 |H | Short_Literal 0x0 0226 4800 |H | Short_Literal 0x0 0227 e007 | | Load 0x0,0x7 0228 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0229 e003 | | Load 0x0,0x3 022a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 022b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 022c e607 | | Load 0x3,0x7 022d e609 | | Load 0x3,0x9 022e e003 | | Load 0x0,0x3 022f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0230 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 0231 01cc | | Execute Vector,Catenate 0232 e005 | | Load 0x0,0x5 0233 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0234 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0235 e003 | | Load 0x0,0x3 0236 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0237 e003 | | Load 0x0,0x3 0238 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0239 6186 |a | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 023a e006 | | Load 0x0,0x6 023b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023c e608 | | Load 0x3,0x8 023d e003 | | Load 0x0,0x3 023e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 023f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0240 c60b | | Store 0x3,0xb 0241 005a | Z | Store_Top Discrete,At_Offset_2 0242 e608 | | Load 0x3,0x8 0243 e003 | | Load 0x0,0x3 0244 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0245 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0246 c608 | | Store 0x3,0x8 0247 e608 | | Load 0x3,0x8 0248 e003 | | Load 0x0,0x3 0249 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 024a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 024b 700d |p | Jump_Nonzero 0x259 024c e004 | | Load 0x0,0x4 024d 180e | | Execute Package,Field_Execute,Field_Number 0xe 024e 4805 |H | Short_Literal 0x5 024f 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "Cannot remove " 0251 e605 | | Load 0x3,0x5 0252 01cc | | Execute Vector,Catenate 0253 0092 03d0 | | Action Push_String_Extended,0x3d0 ; "; name is ambiguous" 0255 01cc | | Execute Vector,Catenate 0256 e005 | | Load 0x0,0x5 0257 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0258 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0259 e003 | | Load 0x0,0x3 025a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 025b 1b0f | | Execute Package,Field_Read,Field_Number 0xf 025c 00db | | Load_Top At_Offset_3 025d 0120 | | Execute Any,Is_Value 025e 6803 |h | Jump_Zero 0x262 025f e003 | | Load 0x0,0x3 0260 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0261 7801 |x | Jump 0x263 0262 00db | | Load_Top At_Offset_3 0263 615c |a\ | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0264 e006 | | Load 0x0,0x6 0265 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0266 e007 | | Load 0x0,0x7 0267 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0268 e003 | | Load 0x0,0x3 0269 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 026a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 026b e603 | | Load 0x3,0x3 026c e003 | | Load 0x0,0x3 026d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 026e 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 026f c60c | | Store 0x3,0xc 0270 c609 | | Store 0x3,0x9 0271 e003 | | Load 0x0,0x3 0272 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0273 00e1 | | Load_Encached Boolean_Cache 0274 614b |aK | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0275 e006 | | Load 0x0,0x6 0276 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0277 e60c | | Load 0x3,0xc 0278 e003 | | Load 0x0,0x3 0279 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 027a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 027b 005a | Z | Store_Top Discrete,At_Offset_2 027c 005a | Z | Store_Top Discrete,At_Offset_2 027d 00d8 | | Load_Top At_Offset_0 027e 680a |h | Jump_Zero 0x289 027f e003 | | Load 0x0,0x3 0280 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0281 613e |a> | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0282 e006 | | Load 0x0,0x6 0283 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0284 e60c | | Load 0x3,0xc 0285 e003 | | Load 0x0,0x3 0286 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0287 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0288 005a | Z | Store_Top Discrete,At_Offset_2 0289 00e1 | | Load_Encached Boolean_Cache 028a e006 | | Load 0x0,0x6 028b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028c e004 | | Load 0x0,0x4 028d 180e | | Execute Package,Field_Execute,Field_Number 0xe 028e e604 | | Load 0x3,0x4 028f e009 | | Load 0x0,0x9 0290 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0291 c60a | | Store 0x3,0xa 0292 00d8 | | Load_Top At_Offset_0 0293 6817 |h | Jump_Zero 0x2ab 0294 e003 | | Load 0x0,0x3 0295 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0296 6129 |a) | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0297 e006 | | Load 0x0,0x6 0298 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0299 e60c | | Load 0x3,0xc 029a e003 | | Load 0x0,0x3 029b 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 029c 181c | | Execute Package,Field_Execute,Field_Number 0x1c 029d 005a | Z | Store_Top Discrete,At_Offset_2 029e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 029f e004 | | Load 0x0,0x4 02a0 180e | | Execute Package,Field_Execute,Field_Number 0xe 02a1 4803 |H | Short_Literal 0x3 02a2 0092 03d5 | | Action Push_String_Extended,0x3d5 ; "Declaration to be removed," 02a4 e605 | | Load 0x3,0x5 02a5 01cc | | Execute Vector,Catenate 02a6 0092 03d6 | | Action Push_String_Extended,0x3d6 ; ", does not exist" 02a8 01cc | | Execute Vector,Catenate 02a9 e005 | | Load 0x0,0x5 02aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ac e004 | | Load 0x0,0x4 02ad 180e | | Execute Package,Field_Execute,Field_Number 0xe 02ae 4802 |H | Short_Literal 0x2 02af 0092 03d7 | | Action Push_String_Extended,0x3d7 ; "Inserting \x22" 02b1 e605 | | Load 0x3,0x5 02b2 01cc | | Execute Vector,Catenate 02b3 0092 03ca | | Action Push_String_Extended,0x3ca ; "\x22" 02b5 01cc | | Execute Vector,Catenate 02b6 e005 | | Load 0x0,0x5 02b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02b8 e003 | | Load 0x0,0x3 02b9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02ba 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02bb e608 | | Load 0x3,0x8 02bc 6103 |a | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 02bd e006 | | Load 0x0,0x6 02be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02bf e007 | | Load 0x0,0x7 02c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c1 e008 | | Load 0x0,0x8 02c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c3 4800 |H | Short_Literal 0x0 02c4 4800 |H | Short_Literal 0x0 02c5 e007 | | Load 0x0,0x7 02c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c7 e003 | | Load 0x0,0x3 02c8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02c9 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02ca e605 | | Load 0x3,0x5 02cb e003 | | Load 0x0,0x3 02cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02cd 181b | | Execute Package,Field_Execute,Field_Number 0x1b 02ce c608 | | Store 0x3,0x8 02cf c609 | | Store 0x3,0x9 02d0 e609 | | Load 0x3,0x9 02d1 460e |F | Jump_Case 0xf 02d2 782f |x/ | Jump 0x302 ; case 0x0 02d3 780d |x | Jump 0x2e1 ; case 0x1 02d4 780c |x | Jump 0x2e1 ; case 0x2 02d5 7839 |x9 | Jump 0x30f ; case 0x3 02d6 780a |x | Jump 0x2e1 ; case 0x4 02d7 7809 |x | Jump 0x2e1 ; case 0x5 02d8 7808 |x | Jump 0x2e1 ; case 0x6 02d9 7807 |x | Jump 0x2e1 ; case 0x7 02da 7806 |x | Jump 0x2e1 ; case 0x8 02db 7805 |x | Jump 0x2e1 ; case 0x9 02dc 7804 |x | Jump 0x2e1 ; case 0xa 02dd 7803 |x | Jump 0x2e1 ; case 0xb 02de 7802 |x | Jump 0x2e1 ; case 0xc 02df 7801 |x | Jump 0x2e1 ; case 0xd 02e0 7800 |x | Jump 0x2e1 ; case 0xe 02e1 e004 | | Load 0x0,0x4 02e2 180e | | Execute Package,Field_Execute,Field_Number 0xe 02e3 4805 |H | Short_Literal 0x5 02e4 0092 03d8 | | Action Push_String_Extended,0x3d8 ; "Cannot insert " 02e6 e605 | | Load 0x3,0x5 02e7 01cc | | Execute Vector,Catenate 02e8 0092 03cc | | Action Push_String_Extended,0x3cc ; " because " 02ea 01cc | | Execute Vector,Catenate 02eb 60d4 |` | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 02ec e006 | | Load 0x0,0x6 02ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ee e007 | | Load 0x0,0x7 02ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02f0 e008 | | Load 0x0,0x8 02f1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02f2 4800 |H | Short_Literal 0x0 02f3 4800 |H | Short_Literal 0x0 02f4 e007 | | Load 0x0,0x7 02f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02f6 e003 | | Load 0x0,0x3 02f7 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02f8 1816 | | Execute Package,Field_Execute,Field_Number 0x16 02f9 e605 | | Load 0x3,0x5 02fa e609 | | Load 0x3,0x9 02fb e003 | | Load 0x0,0x3 02fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 02fd 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 02fe 01cc | | Execute Vector,Catenate 02ff e005 | | Load 0x0,0x5 0300 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0301 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0302 e004 | | Load 0x0,0x4 0303 180e | | Execute Package,Field_Execute,Field_Number 0xe 0304 4803 |H | Short_Literal 0x3 0305 0092 03cd | | Action Push_String_Extended,0x3cd ; "'New' declaration " 0307 e605 | | Load 0x3,0x5 0308 01cc | | Execute Vector,Catenate 0309 0092 03ce | | Action Push_String_Extended,0x3ce ; " already exists" 030b 01cc | | Execute Vector,Catenate 030c e005 | | Load 0x0,0x5 030d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 030e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 030f e003 | | Load 0x0,0x3 0310 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0311 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0312 e608 | | Load 0x3,0x8 0313 60ac |` | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0314 e006 | | Load 0x0,0x6 0315 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0316 e007 | | Load 0x0,0x7 0317 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0318 e008 | | Load 0x0,0x8 0319 1811 | | Execute Package,Field_Execute,Field_Number 0x11 031a 4800 |H | Short_Literal 0x0 031b 4800 |H | Short_Literal 0x0 031c e007 | | Load 0x0,0x7 031d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 031e e003 | | Load 0x0,0x3 031f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0320 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0321 e607 | | Load 0x3,0x7 0322 e003 | | Load 0x0,0x3 0323 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0324 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0325 c608 | | Store 0x3,0x8 0326 c609 | | Store 0x3,0x9 0327 e609 | | Load 0x3,0x9 0328 6826 |h& | Jump_Zero 0x34f 0329 e004 | | Load 0x0,0x4 032a 180e | | Execute Package,Field_Execute,Field_Number 0xe 032b 4805 |H | Short_Literal 0x5 032c 0092 03d8 | | Action Push_String_Extended,0x3d8 ; "Cannot insert " 032e e605 | | Load 0x3,0x5 032f 01cc | | Execute Vector,Catenate 0330 0092 03d9 | | Action Push_String_Extended,0x3d9 ; "; resolution of predecessor declaration, " 0332 01cc | | Execute Vector,Catenate 0333 e607 | | Load 0x3,0x7 0334 01cc | | Execute Vector,Catenate 0335 0092 03da | | Action Push_String_Extended,0x3da ; ", failed because " 0337 01cc | | Execute Vector,Catenate 0338 6087 |` | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0339 e006 | | Load 0x0,0x6 033a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 033b e007 | | Load 0x0,0x7 033c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 033d e008 | | Load 0x0,0x8 033e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 033f 4800 |H | Short_Literal 0x0 0340 4800 |H | Short_Literal 0x0 0341 e007 | | Load 0x0,0x7 0342 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0343 e003 | | Load 0x0,0x3 0344 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0345 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0346 e607 | | Load 0x3,0x7 0347 e609 | | Load 0x3,0x9 0348 e003 | | Load 0x0,0x3 0349 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 034a 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51 034b 01cc | | Execute Vector,Catenate 034c e005 | | Load 0x0,0x5 034d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 034e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 034f e003 | | Load 0x0,0x3 0350 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0351 e003 | | Load 0x0,0x3 0352 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0353 606c |`l | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0354 e006 | | Load 0x0,0x6 0355 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0356 e608 | | Load 0x3,0x8 0357 e003 | | Load 0x0,0x3 0358 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0359 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 035a c60b | | Store 0x3,0xb 035b 005a | Z | Store_Top Discrete,At_Offset_2 035c e608 | | Load 0x3,0x8 035d e003 | | Load 0x0,0x3 035e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 035f 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0360 c608 | | Store 0x3,0x8 0361 e608 | | Load 0x3,0x8 0362 e003 | | Load 0x0,0x3 0363 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0364 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0365 7012 |p | Jump_Nonzero 0x378 0366 e004 | | Load 0x0,0x4 0367 180e | | Execute Package,Field_Execute,Field_Number 0xe 0368 4805 |H | Short_Literal 0x5 0369 0092 03d8 | | Action Push_String_Extended,0x3d8 ; "Cannot insert " 036b e605 | | Load 0x3,0x5 036c 01cc | | Execute Vector,Catenate 036d 0092 03db | | Action Push_String_Extended,0x3db ; "; name of predecessor declaration, " 036f 01cc | | Execute Vector,Catenate 0370 e607 | | Load 0x3,0x7 0371 01cc | | Execute Vector,Catenate 0372 0092 03dc | | Action Push_String_Extended,0x3dc ; ", is ambiguous" 0374 01cc | | Execute Vector,Catenate 0375 e005 | | Load 0x0,0x5 0376 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0377 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0378 e003 | | Load 0x0,0x3 0379 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 037a 1b0f | | Execute Package,Field_Read,Field_Number 0xf 037b 00db | | Load_Top At_Offset_3 037c 0120 | | Execute Any,Is_Value 037d 6803 |h | Jump_Zero 0x381 037e e003 | | Load 0x0,0x3 037f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0380 7801 |x | Jump 0x382 0381 00db | | Load_Top At_Offset_3 0382 603d |`= | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0383 e006 | | Load 0x0,0x6 0384 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0385 e007 | | Load 0x0,0x7 0386 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0387 e003 | | Load 0x0,0x3 0388 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0389 1816 | | Execute Package,Field_Execute,Field_Number 0x16 038a e603 | | Load 0x3,0x3 038b e003 | | Load 0x0,0x3 038c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 038d 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 038e c60c | | Store 0x3,0xc 038f c609 | | Store 0x3,0x9 0390 e003 | | Load 0x0,0x3 0391 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0392 00e1 | | Load_Encached Boolean_Cache 0393 602c |`, | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0394 e006 | | Load 0x0,0x6 0395 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0396 e60c | | Load 0x3,0xc 0397 e003 | | Load 0x0,0x3 0398 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 0399 181b | | Execute Package,Field_Execute,Field_Number 0x1b 039a 005a | Z | Store_Top Discrete,At_Offset_2 039b 005a | Z | Store_Top Discrete,At_Offset_2 039c 00d8 | | Load_Top At_Offset_0 039d 680a |h | Jump_Zero 0x3a8 039e e003 | | Load 0x0,0x3 039f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03a0 601f |` | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 03a1 e006 | | Load 0x0,0x6 03a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03a3 e60c | | Load 0x3,0xc 03a4 e003 | | Load 0x0,0x3 03a5 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 03a6 181e | | Execute Package,Field_Execute,Field_Number 0x1e 03a7 005a | Z | Store_Top Discrete,At_Offset_2 03a8 00e1 | | Load_Encached Boolean_Cache 03a9 e006 | | Load 0x0,0x6 03aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ab e004 | | Load 0x0,0x4 03ac 180e | | Execute Package,Field_Execute,Field_Number 0xe 03ad e604 | | Load 0x3,0x4 03ae e606 | | Load 0x3,0x6 03af e009 | | Load 0x0,0x9 03b0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 03b1 c60a | | Store 0x3,0xa 03b2 00d8 | | Load_Top At_Offset_0 03b3 680a |h | Jump_Zero 0x3be 03b4 e003 | | Load 0x0,0x3 03b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b6 6009 |` | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 03b7 e006 | | Load 0x0,0x6 03b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03b9 e60c | | Load 0x3,0xc 03ba e003 | | Load 0x0,0x3 03bb 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b 03bc 181c | | Execute Package,Field_Execute,Field_Number 0x1c 03bd 005a | Z | Store_Top Discrete,At_Offset_2 03be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03bf 0000 | | .XXX[0x1] 03c0 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 03c4 ; -------------------------------------------------------------------------------------- 03c4 ; STRING TABLE 03c4 ; -------------------------------------------------------------------------------------- 03c4 0034 | 4 | .STRTAB 0x0034->0x03de ; "INSERT" 03c5 0038 | 8 | .STRTAB 0x0038->0x03e1 ; "DELETE" 03c6 003c | < | .STRTAB 0x003c->0x03e4 ; "REPLACE" 03c7 0041 | A | .STRTAB 0x0041->0x03e7 ; "***" 03c8 0042 | B | .STRTAB 0x0042->0x03e9 ; "Replacing \x22" 03c9 004b | K | .STRTAB 0x004b->0x03ee ; "\x22 with \x22" 03ca 0051 | Q | .STRTAB 0x0051->0x03f2 ; "\x22" 03cb 0050 | P | .STRTAB 0x0050->0x03f3 ; "Cannot replace " 03cc 005d | ] | .STRTAB 0x005d->0x03fa ; " because " 03cd 0064 | d | .STRTAB 0x0064->0x03ff ; "'New' declaration " 03ce 0074 | t | .STRTAB 0x0074->0x0408 ; " already exists" 03cf 0081 | | .STRTAB 0x0081->0x040f ; "; resolution of name failed because " 03d0 00a3 | | .STRTAB 0x00a3->0x0421 ; "; name is ambiguous" 03d1 00b4 | | .STRTAB 0x00b4->0x042b ; "Removing \x22" 03d2 00bc | | .STRTAB 0x00bc->0x0430 ; "Cannot remove " 03d3 00c8 | | .STRTAB 0x00c8->0x0437 ; "; illegal command syntax" 03d4 00de | | .STRTAB 0x00de->0x0443 ; "Cannot resolve " 03d5 00eb | | .STRTAB 0x00eb->0x044a ; "Declaration to be removed," 03d6 0103 | | .STRTAB 0x0103->0x0457 ; ", does not exist" 03d7 0111 | | .STRTAB 0x0111->0x045f ; "Inserting \x22" 03d8 011a | | .STRTAB 0x011a->0x0465 ; "Cannot insert " 03d9 0126 | & | .STRTAB 0x0126->0x046c ; "; resolution of predecessor declaration, " 03da 014d | M | .STRTAB 0x014d->0x0480 ; ", failed because " 03db 015c | \ | .STRTAB 0x015c->0x0489 ; "; name of predecessor declaration, " 03dc 017d | } | .STRTAB 0x017d->0x049a ; ", is ambiguous" 03dd 0189 | | .STREND 0x0189->0x04a1 03de 494e 5345 |INSE| .STRTAB_STRINGS 04a2 0000 0000 | | .BLANK 0000[0x6] 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; Debug Table 04a8 ; -------------------------------------------------------------------------------------- 04a8 0004 0000 | | .DEBUG4 0x0004,0x0000,0x7782,0x0000,0x0001,0x0000 04ae 0000 0900 | | .XXX[0x6] 04b0 014e 3200 | N2 | 04b2 0000 0300 | | 04b4 0000 0000 | | .BLANK 0000[0x4] 04b8 000c 7600 | v | .XXX[0xa] 04ba 000b 2440 | $@| 04bc 0000 0480 | | 04be 00a7 1a00 | | 04c0 0000 0180 | | 04c2 0000 0000 | | .BLANK 0000[0x4] 04c6 0005 5500 | U | .XXX[0xa] 04c8 0004 ac20 | | 04ca 0000 0240 | @| 04cc 0053 8d80 | S | 04ce 0000 00c0 | | 04d0 0000 0000 | | .BLANK 0000[0x4] 04d4 0002 3f80 | ? | .XXX[0xa] 04d6 0001 f310 | | 04d8 0000 0120 | | 04da 0029 c700 | ) | 04dc 0000 0060 | `| 04de 0000 0000 | | .BLANK 0000[0x5] 04e3 ea40 0000 | @ | .XXX[0x17] 04e5 c008 0000 | | 04e7 0090 0014 | | 04e9 e3a0 0000 | | 04eb 0030 0000 | 0 | 04ed 0000 0002 | | 04ef efd8 0000 | | 04f1 5820 0000 |X | 04f3 414c 0000 |AL | 04f5 0048 000a | H | 04f7 71e0 0000 |q | 04f9 0018 | | 04fa 0000 0000 | | .BLANK 0000[0x9] 0503 4022 6000 |@"` | .XXX[0x8] 0505 0000 0000 | | 0507 001d e000 | | 0509 2004 e800 | | 050b 0000 0000 | | .BLANK 0000[0x5] 0510 1000 0001 | | .XXX[0xc] 0512 6000 000c |` | 0514 8000 0001 | | 0516 8000 0004 | | 0518 8000 0000 | | 051a 0000 0001 | | 051c 0000 0000 | | .BLANK 0000[0x4] 0520 0800 4d5a | MZ| .XXX[0x9] 0522 3400 0000 |4 | 0524 0000 0000 | | 0526 0010 004d | M| 0528 5e28 |^( | 0529 0000 0000 | | .BLANK 0000[0xa] 0533 0059 dbd0 | Y | .XXX[0x2] 0535 0000 0000 | | .BLANK 0000[0x4] 0539 001f e2b8 | | .XXX[0x4] 053b 001f c088 | | 053d 0000 0000 | | .BLANK 0000[0xf] 054c 7780 00fa |w | .XXX[0x3] 054e 9660 | ` | 054f 0000 0000 | | .BLANK 0000[0x5] 0554 0040 0000 | @ | .XXX[0xd] 0556 0580 0000 | | 0558 0500 0000 | | 055a 0400 0000 | | 055c 1200 0000 | | 055e 0000 0000 | | 0560 0400 | | 0561 0000 0000 | | .BLANK 0000[0x5] 0566 0010 0000 | | .XXX[0x5] 0568 0000 000f | | 056a a6e7 | | 056b 0000 0000 | | .BLANK 0000[0xc] 0577 0001 a94e | N| .XXX[0x3] 0579 8000 | | 057a 0000 0000 | | .BLANK 0000[0x5] 057f 4000 0003 |@ | .XXX[0x13] 0581 2aa9 c92a |* *| 0583 8a65 c8c9 | e | 0585 29c8 8be9 |) | 0587 caa9 898b | | 0589 e828 698a | (i | 058b 64e8 49e8 |d I | 058d 8b20 0080 | | 058f 13a0 007f | | 0591 0220 | | 0592 0000 0000 | | .BLANK 0000[0x4] 0596 0040 2860 | @(`| .XXX[0x22] 0598 000a 04a0 | | 059a 003f 8110 | ? | 059c 0040 2e60 | @.`| 059e 000a e3c0 | | 05a0 003f 8110 | ? | 05a2 0040 3460 | @4`| 05a4 0009 6fe0 | o | 05a6 003f 8110 | ? | 05a8 0040 3a60 | @:`| 05aa 0002 5ed0 | ^ | 05ac 003f 8110 | ? | 05ae 0000 0000 | | 05b0 0013 f850 | P| 05b2 003f 8110 | ? | 05b4 0040 84c0 | @ | 05b6 0040 4060 | @@`| 05b8 0000 0000 | | .BLANK 0000[0xa] 05c2 0207 0d80 | | .XXX[0x8] 05c4 0000 0000 | | 05c6 0000 ef00 | | 05c8 0103 2480 | $ | 05ca 0000 0000 | | .BLANK 0000[0x5] 05cf 0080 0000 | | .XXX[0x13] 05d1 0b00 0000 | | 05d3 6400 0000 |d | 05d5 0c00 0000 | | 05d7 2400 0000 |$ | 05d9 0000 0000 | | 05db 0800 0000 | | 05dd 0000 0000 | | 05df 01c0 026b | k| 05e1 1120 | | 05e2 0000 0000 | | .BLANK 0000[0x4] 05e6 8002 6b30 | k0| .XXX[0x5] 05e8 c002 6b50 | kP| 05ea 8000 | | 05eb 0000 0000 | | .BLANK 0000[0x7] 05f2 0002 d04f | O| .XXX[0xe] 05f4 4000 0000 |@ | 05f6 0000 0000 | | 05f8 0001 0213 | | 05fa 0001 0101 | | 05fc 8000 0000 | | 05fe 0000 0000 | |