|
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 | |