|
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_0bf8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 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 e002 | | Load 0x0,0x2 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 e002 | | Load 0x0,0x2 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 e002 | | Load 0x0,0x2 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 e002 | | Load 0x0,0x2 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 7807 |x | Jump 0x4d ; case 0x1 0046 780a |x | Jump 0x51 ; case 0x2 0047 780e |x | Jump 0x56 ; case 0x3 0048 7811 |x | Jump 0x5a ; case 0x4 0049 7812 |x | Jump 0x5c ; case 0x5 004a 7813 |x | Jump 0x5e ; case 0x6 004b 7816 |x | Jump 0x62 ; case 0x7 004c 4302 |C | .XXX[0x1] 004d 00da | | Load_Top At_Offset_2 004e 0091 03c4 | | Action Push_String_Extended_Indexed,0x3c4 ; "INSERT" 0050 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0051 00db | | Load_Top At_Offset_3 0052 00db | | Load_Top At_Offset_3 0053 00e0 | | Load_Encached Standard_Cache 0054 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0055 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0056 00da | | Load_Top At_Offset_2 0057 00e0 | | Load_Encached Standard_Cache 0058 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0059 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 005a 00db | | Load_Top At_Offset_3 005b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005c 00db | | Load_Top At_Offset_3 005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005e e402 | | Load 0x2,0x2 005f 00dc | | Load_Top At_Offset_4 0060 0267 | g | Execute Discrete,Predecessor 0061 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0062 e402 | | Load 0x2,0x2 0063 00dc | | Load_Top At_Offset_4 0064 0268 | h | Execute Discrete,Successor 0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0066 0000 0000 | | .XXX[0x2] 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 e002 | | Load 0x0,0x2 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 e002 | | Load 0x0,0x2 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 e002 | | Load 0x0,0x2 008a 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 008b e404 | | Load 0x2,0x4 008c e002 | | Load 0x0,0x2 008d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66 008e e404 | | Load 0x2,0x4 008f e002 | | Load 0x0,0x2 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 e003 | | Load 0x0,0x3 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 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 00a8 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 00a9 1b18 | | Execute Package,Field_Read,Field_Number 0x18 00aa e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 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 e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 00d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d3 e008 | | Load 0x0,0x8 00d4 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d5 e009 | | Load 0x0,0x9 00d6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00d7 4800 |H | Short_Literal 0x0 00d8 4800 |H | Short_Literal 0x0 00d9 e008 | | Load 0x0,0x8 00da 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00db e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 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 e007 | | Load 0x0,0x7 0104 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0105 e008 | | Load 0x0,0x8 0106 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0107 e009 | | Load 0x0,0x9 0108 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0109 4800 |H | Short_Literal 0x0 010a 4800 |H | Short_Literal 0x0 010b e008 | | Load 0x0,0x8 010c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 010d e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e006 | | Load 0x0,0x6 0117 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0118 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0119 e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 0124 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0125 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0126 e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 012c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012d e008 | | Load 0x0,0x8 012e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 012f e009 | | Load 0x0,0x9 0130 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0131 4800 |H | Short_Literal 0x0 0132 4800 |H | Short_Literal 0x0 0133 e008 | | Load 0x0,0x8 0134 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0135 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 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 e007 | | Load 0x0,0x7 014c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 014d e008 | | Load 0x0,0x8 014e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 014f e009 | | Load 0x0,0x9 0150 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0151 4800 |H | Short_Literal 0x0 0152 4800 |H | Short_Literal 0x0 0153 e008 | | Load 0x0,0x8 0154 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0155 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e006 | | Load 0x0,0x6 015f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0160 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0161 e004 | | Load 0x0,0x4 0162 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0163 e004 | | Load 0x0,0x4 0164 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0165 625a |bZ | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0166 e007 | | Load 0x0,0x7 0167 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0168 e608 | | Load 0x3,0x8 0169 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 0183 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0184 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0185 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 0191 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0192 e008 | | Load 0x0,0x8 0193 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0194 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 01a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01a3 e60c | | Load 0x3,0xc 01a4 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ad 6212 |b | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 01ae e007 | | Load 0x0,0x7 01af 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b0 e60c | | Load 0x3,0xc 01b1 e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 01b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01b8 e005 | | Load 0x0,0x5 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 e00a | | Load 0x0,0xa 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 e004 | | Load 0x0,0x4 01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c5 61fa |a | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 01c6 e007 | | Load 0x0,0x7 01c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c8 e60c | | Load 0x3,0xc 01c9 e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 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 e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 01e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ea 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01eb e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 01f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f2 e008 | | Load 0x0,0x8 01f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f4 e009 | | Load 0x0,0x9 01f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01f6 4800 |H | Short_Literal 0x0 01f7 4800 |H | Short_Literal 0x0 01f8 e008 | | Load 0x0,0x8 01f9 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01fa e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 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 e007 | | Load 0x0,0x7 0220 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0221 e008 | | Load 0x0,0x8 0222 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0223 e009 | | Load 0x0,0x9 0224 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0225 4800 |H | Short_Literal 0x0 0226 4800 |H | Short_Literal 0x0 0227 e008 | | Load 0x0,0x8 0228 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0229 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e006 | | Load 0x0,0x6 0233 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0234 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0235 e004 | | Load 0x0,0x4 0236 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0237 e004 | | Load 0x0,0x4 0238 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0239 6186 |a | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 023a e007 | | Load 0x0,0x7 023b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 023c e608 | | Load 0x3,0x8 023d e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 0257 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0258 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0259 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 0265 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0266 e008 | | Load 0x0,0x8 0267 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0268 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 0276 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0277 e60c | | Load 0x3,0xc 0278 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 0280 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0281 613e |a> | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0282 e007 | | Load 0x0,0x7 0283 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0284 e60c | | Load 0x3,0xc 0285 e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 028b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 028c e005 | | Load 0x0,0x5 028d 180e | | Execute Package,Field_Execute,Field_Number 0xe 028e e604 | | Load 0x3,0x4 028f e00a | | Load 0x0,0xa 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 e004 | | Load 0x0,0x4 0295 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0296 6129 |a) | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0297 e007 | | Load 0x0,0x7 0298 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0299 e60c | | Load 0x3,0xc 029a e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 02aa 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ac e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 02b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02b8 e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 02be 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02bf e008 | | Load 0x0,0x8 02c0 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c1 e009 | | Load 0x0,0x9 02c2 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c3 4800 |H | Short_Literal 0x0 02c4 4800 |H | Short_Literal 0x0 02c5 e008 | | Load 0x0,0x8 02c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02c7 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 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 e007 | | Load 0x0,0x7 02ed 1b0e | | Execute Package,Field_Read,Field_Number 0xe 02ee e008 | | Load 0x0,0x8 02ef 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02f0 e009 | | Load 0x0,0x9 02f1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02f2 4800 |H | Short_Literal 0x0 02f3 4800 |H | Short_Literal 0x0 02f4 e008 | | Load 0x0,0x8 02f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11 02f6 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e006 | | Load 0x0,0x6 0300 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0301 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0302 e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 030d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 030e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 030f e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 0315 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0316 e008 | | Load 0x0,0x8 0317 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0318 e009 | | Load 0x0,0x9 0319 1811 | | Execute Package,Field_Execute,Field_Number 0x11 031a 4800 |H | Short_Literal 0x0 031b 4800 |H | Short_Literal 0x0 031c e008 | | Load 0x0,0x8 031d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 031e e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 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 e007 | | Load 0x0,0x7 033a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 033b e008 | | Load 0x0,0x8 033c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 033d e009 | | Load 0x0,0x9 033e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 033f 4800 |H | Short_Literal 0x0 0340 4800 |H | Short_Literal 0x0 0341 e008 | | Load 0x0,0x8 0342 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0343 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e006 | | Load 0x0,0x6 034d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 034e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 034f e004 | | Load 0x0,0x4 0350 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0351 e004 | | Load 0x0,0x4 0352 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0353 606c |`l | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0354 e007 | | Load 0x0,0x7 0355 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0356 e608 | | Load 0x3,0x8 0357 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e005 | | Load 0x0,0x5 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 e006 | | Load 0x0,0x6 0376 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0377 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0378 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 0384 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0385 e008 | | Load 0x0,0x8 0386 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0387 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 0391 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0392 00e1 | | Load_Encached Boolean_Cache 0393 602c |`, | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 0394 e007 | | Load 0x0,0x7 0395 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0396 e60c | | Load 0x3,0xc 0397 e004 | | Load 0x0,0x4 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 e004 | | Load 0x0,0x4 039f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03a0 601f |` | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 03a1 e007 | | Load 0x0,0x7 03a2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03a3 e60c | | Load 0x3,0xc 03a4 e004 | | Load 0x0,0x4 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 e007 | | Load 0x0,0x7 03aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03ab e005 | | Load 0x0,0x5 03ac 180e | | Execute Package,Field_Execute,Field_Number 0xe 03ad e604 | | Load 0x3,0x4 03ae e606 | | Load 0x3,0x6 03af e00a | | Load 0x0,0xa 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 e004 | | Load 0x0,0x4 03b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b6 6009 |` | Indirect_Literal Discrete,0x3c0,{0x00000000, 0x00004000} 03b7 e007 | | Load 0x0,0x7 03b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03b9 e60c | | Load 0x3,0xc 03ba e004 | | Load 0x0,0x4 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 0002 | | .DEBUG4 0x0004,0x0002,0x0b85,0x0000,0x0001,0x0000 04ae e0a1 a185 | | .XXX[0x152] 04b0 b991 b1a5 | | 04b2 b99c a54c | L| 04b4 80c4 d481 | | 04b6 e028 a1d1 | ( | 04b8 a194 a54c | L| 04ba 80c4 d481 | | 04bc e0a1 bdc1 | | 04be d1a5 bdb9 | | 04c0 85b1 a5d1 | | 04c2 e4a5 4c80 | L | 04c4 c4d0 81e0 | | 04c6 a1bd 98a5 | | 04c8 4c80 c4d4 |L | 04ca 81e0 8118 | | 04cc d4cc a10d | | 04ce 650d 3114 |e 1 | 04d0 a54c 80c4 | L | 04d2 cc81 e081 | | 04d4 18d8 a1dd | | 04d6 bdd5 b190 | | 04d8 a54c 28c4 | L( | 04da d481 e0a1 | | 04dc a185 d994 | | 04de a54c 80c4 | L | 04e0 d481 e0a1 | | 04e2 c1bd cd95 | | 04e4 90a5 4c80 | L | 04e6 d4c0 81e4 | | 04e8 80cc c8dc | | 04ea 8160 a1b9 | ` | 04ec bca5 4c80 | L | 04ee c4dc 81e0 | | 04f0 a1c1 c9bd | | 04f2 89b1 95b5 | | 04f4 ccb0 a54c | L| 04f6 80c4 e081 | | 04f8 e0a1 89d5 | | 04fa d0a5 4c28 | L(| 04fc c4e0 81e0 | | 04fe a1cd d589 | | 0500 c1c9 bd9d | | 0502 c985 b4a5 | | 0504 4c80 c4e0 |L | 0506 81e0 a1bd | | 0508 d995 c9b1 | | 050a bd85 91a5 | | 050c b99c a54c | L| 050e 80c4 dc81 | | 0510 e0a1 dd85 | | 0512 cca5 4c80 | L | 0514 c4dc 81e0 | | 0516 a1c1 c995 | | 0518 9995 c9c9 | | 051a 9590 a54c | L| 051c 8028 c4dc | ( | 051e 81e0 a1cd | | 0520 a5b5 c1b1 | | 0522 e4a5 4c80 | L | 0524 c4e0 81e0 | | 0526 a199 bdc8 | | 0528 a54c 80c4 | L | 052a dc81 e0a1 | | 052c c995 85cd | | 052e bdb9 cca5 | | 0530 4c80 c4dc |L | 0532 81e0 a1bd | | 0534 98a5 4c80 | L | 0536 c4dc 81e0 | | 0538 a1d5 b9a5 | | 053a 99bd c9b5 | | 053c a5d1 e4b8 | | 053e a54c 28cc | L( | 0540 c081 e0a1 | | 0542 51a1 94a5 |Q | 0544 4c80 c4e0 |L | 0546 81e0 a1cd | | 0548 85b5 94a5 | | 054a 4c80 c4e0 |L | 054c 81e0 a1c9 | | 054e 9585 cdbd | | 0550 b9a5 b99c | | 0552 a54c 80d4 | L | 0554 c081 e480 | | 0556 ccc8 dc81 | | 0558 60a1 85c1 |` | 055a c1b1 a595 | | 055c cca5 4c80 | L | 055e c4e0 81e0 | | 0560 28a1 d1bc |( | 0562 a54c 2961 | L)a| 0564 4080 bd18 |@ | 0566 d4cc 80d8 | | 0568 d880 c8c8 | | 056a 80c4 80c0 | | 056c 80c4 e480 | | 056e c8d4 80c8 | | 0570 d480 c8d0 | | 0572 80c0 28f0 | ( | 0574 dd19 18e0 | | 0576 c0c0 8119 | | 0578 1919 14c0 | | 057a c080 dd19 | | 057c 1918 c0c0 | | 057e 80c5 0cc1 | | 0580 18c0 c080 | | 0582 c50c c0dc | | 0584 e0c0 80c5 | | 0586 0cc0 cce0 | | 0588 c080 c50c | | 058a c0cc e0c0 | | 058c 80c5 0cc0 | | 058e cce0 c080 | | 0590 c50c c0dc | | 0592 e0c0 2880 | ( | 0594 c50c c0dc | | 0596 c0c0 80c5 | | 0598 1919 18c0 | | 059a c080 c519 | | 059c 1914 c0c0 | | 059e 80c5 1919 | | 05a0 14c0 c080 | | 05a2 c50c c518 | | 05a4 c0c0 80c5 | | 05a6 0cc0 cce0 | | 05a8 c080 c50c | | 05aa c0cd 0cc0 | | 05ac 80c5 0cc0 | | 05ae c50c c080 | | 05b0 c50c c0c5 | | 05b2 0cc0 2880 | ( | 05b4 c50c c0c5 | | 05b6 0cc0 80c5 | | 05b8 0cc0 c50c | | 05ba c080 c50c | | 05bc c0cd 0cc0 | | 05be 80c5 0cc0 | | 05c0 dce0 c080 | | 05c2 dd19 1918 | | 05c4 e0c0 8119 | | 05c6 1919 18c0 | | 05c8 c080 dd19 | | 05ca 190c c0c0 | | 05cc f829 4161 | )Aa| 05ce 310c 8149 |1 I| 05d0 4028 d4c4 |@( | 05d2 d080 c4e0 | | 05d4 dcd4 8161 | a| 05d6 6481 18d4 |d | 05d8 cca1 08a5 | | 05da 4c29 6140 |L)a@| 05dc 80bd 18d4 | | 05de cc80 d8d4 | | 05e0 80c8 c880 | | 05e2 c480 c080 | | 05e4 c8c0 80c8 | | 05e6 d480 c8d4 | | 05e8 80c8 d080 | | 05ea c028 f0c0 | ( | 05ec c114 c0c0 | | 05ee c080 c0c5 | | 05f0 18c0 c0c0 | | 05f2 80c0 c518 | | 05f4 c0c0 c080 | | 05f6 c0c5 08c0 | | 05f8 c0c0 80c0 | | 05fa c508 c0c0 | | 05fc c080 c0cd | | 05fe 08e0 c0c0 | |