|
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_5e40f2
└─⟦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 04b0 | | .CONST 0x04b0 ; 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 03cf | | Action Push_String_Extended,0x3cf ; "***"
0022 e001 | | Load 0x0,0x1
0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0024 02c7 | | Declare_Variable Any
0025 00d8 | | Load_Top At_Offset_0
0026 1c00 | | Execute_Immediate Run_Utility,0x0
0027 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
0029 029f 0083 | | Declare_Subprogram INIT_0080,For_Call
002b BODY_0018:
002b 00da | | Load_Top At_Offset_2
002c 00ea | | Load_Encached Null_String_Cache
002d e5ff | | Load 0x2,-0x1
002e 4800 |H | Short_Literal 0x0
002f e001 | | Load 0x0,0x1
0030 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0031 c404 | | Store 0x2,0x4
0032 00cf | | Action Mark_Auxiliary
0033 7802 |x | Jump 0x36
0034 8406 | | Call 0x2,0x6
0035 00c9 | | Action Pop_Auxiliary_Loop
0036 00db | | Load_Top At_Offset_3
0037 e001 | | Load 0x0,0x1
0038 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0039 6ffa |o | Jump_Zero 0x34
003a 00ce | | Action Pop_Auxiliary
003b 00da | | Load_Top At_Offset_2
003c e001 | | Load 0x0,0x1
003d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
003e c404 | | Store 0x2,0x4
003f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 4607 |F | Jump_Case 0x8
0044 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0045 7806 |x | Jump 0x4c ; case 0x1
0046 7809 |x | Jump 0x50 ; case 0x2
0047 780d |x | Jump 0x55 ; case 0x3
0048 7810 |x | Jump 0x59 ; case 0x4
0049 7811 |x | Jump 0x5b ; case 0x5
004a 7812 |x | Jump 0x5d ; case 0x6
004b 7815 |x | Jump 0x61 ; case 0x7
004c 00da | | Load_Top At_Offset_2
004d 0091 03cc | | Action Push_String_Extended_Indexed,0x3cc ; "INSERT"
004f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0050 00db | | Load_Top At_Offset_3
0051 00db | | Load_Top At_Offset_3
0052 00e0 | | Load_Encached Standard_Cache
0053 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0054 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0055 00da | | Load_Top At_Offset_2
0056 00e0 | | Load_Encached Standard_Cache
0057 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0058 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0059 00db | | Load_Top At_Offset_3
005a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005b 00db | | Load_Top At_Offset_3
005c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005d e402 | | Load 0x2,0x2
005e 00dc | | Load_Top At_Offset_4
005f 0267 | g | Execute Discrete,Predecessor
0060 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0061 e402 | | Load 0x2,0x2
0062 00dc | | Load_Top At_Offset_4
0063 0268 | h | Execute Discrete,Successor
0064 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0065 0000 0000 | | .XXX[0x3]
0067 0000 | |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006e | n | .CONST 0x006e ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0002 | | .CONST 0x0002 ; Number of locals
006b INIT_0068:
006b e404 | | Load 0x2,0x4
006c e001 | | Load 0x0,0x1
006d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
006e BODY_0068:
006e 00d8 | | Load_Top At_Offset_0
006f e403 | | Load 0x2,0x3
0070 01df | | Execute Vector,Equal
0071 6802 |h | Jump_Zero 0x74
0072 00ea | | Load_Encached Null_String_Cache
0073 00ca | | Action Exit_Nullary_Function
0074 480a |H | Short_Literal 0xa
0075 00d9 | | Load_Top At_Offset_1
0076 01cb | | Execute Vector,Append
0077 8405 | | Call 0x2,0x5
0078 01cc | | Execute Vector,Catenate
0079 00ca | | Action Exit_Nullary_Function
007a 0000 0000 | | .BLANK 0000[0x6]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 00b3 | | .CONST 0x00b3 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 000d | | .CONST 0x000d ; Number of locals
0083 INIT_0080:
0083 e404 | | Load 0x2,0x4
0084 e001 | | Load 0x0,0x1
0085 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
0086 e402 | | Load 0x2,0x2
0087 1c02 | | Execute_Immediate Run_Utility,0x2
0088 e404 | | Load 0x2,0x4
0089 e001 | | Load 0x0,0x1
008a 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
008b e404 | | Load 0x2,0x4
008c e001 | | Load 0x0,0x1
008d 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
008e 8405 | | Call 0x2,0x5
008f 00da | | Load_Top At_Offset_2
0090 01dd | | Execute Vector,First
0091 4800 |H | Short_Literal 0x0
0092 e603 | | Load 0x3,0x3
0093 4820 |H | Short_Literal 0x20
0094 e002 | | Load 0x0,0x2
0095 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0096 0aff | | Execute_Immediate Plus,-0x1
0097 e603 | | Load 0x3,0x3
0098 01cf | | Execute Vector,Slice_Read
0099 0007 | | Action Break_Optional
009a e003 | | Load 0x0,0x3
009b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
009c 1b18 | | Execute Package,Field_Read,Field_Number 0x18
009d 02c7 | | Declare_Variable Any
009e 00d8 | | Load_Top At_Offset_0
009f 1c00 | | Execute_Immediate Run_Utility,0x0
00a0 e003 | | Load 0x0,0x3
00a1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00a3 00e1 | | Load_Encached Boolean_Cache
00a4 e003 | | Load 0x0,0x3
00a5 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00a6 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00a7 02c7 | | Declare_Variable Any
00a8 00d8 | | Load_Top At_Offset_0
00a9 1c00 | | Execute_Immediate Run_Utility,0x0
00aa e003 | | Load 0x0,0x3
00ab 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00ac 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ad 02c7 | | Declare_Variable Any
00ae 00d8 | | Load_Top At_Offset_0
00af 1c00 | | Execute_Immediate Run_Utility,0x0
00b0 e003 | | Load 0x0,0x3
00b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b2 00e1 | | Load_Encached Boolean_Cache
00b3 BODY_0080:
00b3 e602 | | Load 0x3,0x2
00b4 4602 |F | Jump_Case 0x3
00b5 79fb |y | Jump 0x2b1 ; case 0x0
00b6 791a |y | Jump 0x1d1 ; case 0x1
00b7 7800 |x | Jump 0xb8 ; case 0x2
00b8 e004 | | Load 0x0,0x4
00b9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ba 4802 |H | Short_Literal 0x2
00bb 0092 03d0 | | Action Push_String_Extended,0x3d0 ; "Replacing \x22"
00bd e606 | | Load 0x3,0x6
00be 01cc | | Execute Vector,Catenate
00bf 0092 03d1 | | Action Push_String_Extended,0x3d1 ; "\x22 with \x22"
00c1 01cc | | Execute Vector,Catenate
00c2 e604 | | Load 0x3,0x4
00c3 01cc | | Execute Vector,Catenate
00c4 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "\x22"
00c6 01cc | | Execute Vector,Catenate
00c7 e005 | | Load 0x0,0x5
00c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c9 e604 | | Load 0x3,0x4
00ca e606 | | Load 0x3,0x6
00cb 01de | | Execute Vector,Not_Equal
00cc 6819 |h | Jump_Zero 0xe6
00cd e003 | | Load 0x0,0x3
00ce 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00cf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d0 e607 | | Load 0x3,0x7
00d1 62f6 |b | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
00d2 e006 | | Load 0x0,0x6
00d3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d4 e007 | | Load 0x0,0x7
00d5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d6 e008 | | Load 0x0,0x8
00d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00d8 4800 |H | Short_Literal 0x0
00d9 4800 |H | Short_Literal 0x0
00da e007 | | Load 0x0,0x7
00db 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00dc e003 | | Load 0x0,0x3
00dd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00de 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00df e604 | | Load 0x3,0x4
00e0 e003 | | Load 0x0,0x3
00e1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00e2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e3 c607 | | Store 0x3,0x7
00e4 c608 | | Store 0x3,0x8
00e5 7802 |x | Jump 0xe8
00e6 4803 |H | Short_Literal 0x3
00e7 a608 | | Store_Unchecked 0x3,0x8
00e8 e608 | | Load 0x3,0x8
00e9 460e |F | Jump_Case 0xf
00ea 782f |x/ | Jump 0x11a ; case 0x0
00eb 780d |x | Jump 0xf9 ; case 0x1
00ec 780c |x | Jump 0xf9 ; case 0x2
00ed 7839 |x9 | Jump 0x127 ; case 0x3
00ee 780a |x | Jump 0xf9 ; case 0x4
00ef 7809 |x | Jump 0xf9 ; case 0x5
00f0 7808 |x | Jump 0xf9 ; case 0x6
00f1 7807 |x | Jump 0xf9 ; case 0x7
00f2 7806 |x | Jump 0xf9 ; case 0x8
00f3 7805 |x | Jump 0xf9 ; case 0x9
00f4 7804 |x | Jump 0xf9 ; case 0xa
00f5 7803 |x | Jump 0xf9 ; case 0xb
00f6 7802 |x | Jump 0xf9 ; case 0xc
00f7 7801 |x | Jump 0xf9 ; case 0xd
00f8 7800 |x | Jump 0xf9 ; case 0xe
00f9 e004 | | Load 0x0,0x4
00fa 180e | | Execute Package,Field_Execute,Field_Number 0xe
00fb 4805 |H | Short_Literal 0x5
00fc 0092 03d3 | | Action Push_String_Extended,0x3d3 ; "Cannot replace "
00fe e604 | | Load 0x3,0x4
00ff 01cc | | Execute Vector,Catenate
0100 0092 03d4 | | Action Push_String_Extended,0x3d4 ; " because "
0102 01cc | | Execute Vector,Catenate
0103 62c4 |b | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
0104 e006 | | Load 0x0,0x6
0105 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0106 e007 | | Load 0x0,0x7
0107 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0108 e008 | | Load 0x0,0x8
0109 1811 | | Execute Package,Field_Execute,Field_Number 0x11
010a 4800 |H | Short_Literal 0x0
010b 4800 |H | Short_Literal 0x0
010c e007 | | Load 0x0,0x7
010d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
010e e003 | | Load 0x0,0x3
010f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0110 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0111 e604 | | Load 0x3,0x4
0112 e608 | | Load 0x3,0x8
0113 e003 | | Load 0x0,0x3
0114 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0115 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0116 01cc | | Execute Vector,Catenate
0117 e005 | | Load 0x0,0x5
0118 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0119 4501 |E | Exit_Suprogram New_Top_Offset 0x1
011a e004 | | Load 0x0,0x4
011b 180e | | Execute Package,Field_Execute,Field_Number 0xe
011c 4803 |H | Short_Literal 0x3
011d 0092 03d5 | | Action Push_String_Extended,0x3d5 ; "'New' declaration "
011f e604 | | Load 0x3,0x4
0120 01cc | | Execute Vector,Catenate
0121 0092 03d6 | | Action Push_String_Extended,0x3d6 ; " already exists"
0123 01cc | | Execute Vector,Catenate
0124 e005 | | Load 0x0,0x5
0125 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0126 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0127 e003 | | Load 0x0,0x3
0128 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0129 1b0f | | Execute Package,Field_Read,Field_Number 0xf
012a e607 | | Load 0x3,0x7
012b 629c |b | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
012c e006 | | Load 0x0,0x6
012d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012e e007 | | Load 0x0,0x7
012f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0130 e008 | | Load 0x0,0x8
0131 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0132 4800 |H | Short_Literal 0x0
0133 4800 |H | Short_Literal 0x0
0134 e007 | | Load 0x0,0x7
0135 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0136 e003 | | Load 0x0,0x3
0137 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0138 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0139 e606 | | Load 0x3,0x6
013a e003 | | Load 0x0,0x3
013b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
013c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
013d c607 | | Store 0x3,0x7
013e c608 | | Store 0x3,0x8
013f e608 | | Load 0x3,0x8
0140 6821 |h! | Jump_Zero 0x162
0141 e004 | | Load 0x0,0x4
0142 180e | | Execute Package,Field_Execute,Field_Number 0xe
0143 4805 |H | Short_Literal 0x5
0144 0092 03d3 | | Action Push_String_Extended,0x3d3 ; "Cannot replace "
0146 e606 | | Load 0x3,0x6
0147 01cc | | Execute Vector,Catenate
0148 0092 03d7 | | Action Push_String_Extended,0x3d7 ; "; resolution of name failed because "
014a 01cc | | Execute Vector,Catenate
014b 627c |b| | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
014c e006 | | Load 0x0,0x6
014d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
014e e007 | | Load 0x0,0x7
014f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0150 e008 | | Load 0x0,0x8
0151 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0152 4800 |H | Short_Literal 0x0
0153 4800 |H | Short_Literal 0x0
0154 e007 | | Load 0x0,0x7
0155 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0156 e003 | | Load 0x0,0x3
0157 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0158 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0159 e606 | | Load 0x3,0x6
015a e608 | | Load 0x3,0x8
015b e003 | | Load 0x0,0x3
015c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
015d 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
015e 01cc | | Execute Vector,Catenate
015f e005 | | Load 0x0,0x5
0160 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0161 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0162 e003 | | Load 0x0,0x3
0163 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0164 e60a | | Load 0x3,0xa
0165 0120 | | Execute Any,Is_Value
0166 6803 |h | Jump_Zero 0x16a
0167 e003 | | Load 0x0,0x3
0168 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0169 7801 |x | Jump 0x16b
016a e60a | | Load 0x3,0xa
016b 625c |b\ | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
016c e006 | | Load 0x0,0x6
016d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016e e607 | | Load 0x3,0x7
016f e003 | | Load 0x0,0x3
0170 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0171 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0172 c60a | | Store 0x3,0xa
0173 005a | Z | Store_Top Discrete,At_Offset_2
0174 e607 | | Load 0x3,0x7
0175 e003 | | Load 0x0,0x3
0176 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0177 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0178 c607 | | Store 0x3,0x7
0179 e607 | | Load 0x3,0x7
017a e003 | | Load 0x0,0x3
017b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
017c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
017d 700d |p | Jump_Nonzero 0x18b
017e e004 | | Load 0x0,0x4
017f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0180 4805 |H | Short_Literal 0x5
0181 0092 03d3 | | Action Push_String_Extended,0x3d3 ; "Cannot replace "
0183 e606 | | Load 0x3,0x6
0184 01cc | | Execute Vector,Catenate
0185 0092 03d8 | | Action Push_String_Extended,0x3d8 ; "; name is ambiguous"
0187 01cc | | Execute Vector,Catenate
0188 e005 | | Load 0x0,0x5
0189 1813 | | Execute Package,Field_Execute,Field_Number 0x13
018a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
018b e003 | | Load 0x0,0x3
018c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018d 00db | | Load_Top At_Offset_3
018e 0120 | | Execute Any,Is_Value
018f 6804 |h | Jump_Zero 0x194
0190 e003 | | Load 0x0,0x3
0191 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0192 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0193 7801 |x | Jump 0x195
0194 00db | | Load_Top At_Offset_3
0195 e60a | | Load 0x3,0xa
0196 e003 | | Load 0x0,0x3
0197 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0198 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0199 c60b | | Store 0x3,0xb
019a 005a | Z | Store_Top Discrete,At_Offset_2
019b e003 | | Load 0x0,0x3
019c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019d 00e1 | | Load_Encached Boolean_Cache
019e 6229 |b) | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
019f e006 | | Load 0x0,0x6
01a0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a1 e60b | | Load 0x3,0xb
01a2 e003 | | Load 0x0,0x3
01a3 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01a4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01a5 e003 | | Load 0x0,0x3
01a6 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
01a7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a8 005a | Z | Store_Top Discrete,At_Offset_2
01a9 005a | Z | Store_Top Discrete,At_Offset_2
01aa 00d8 | | Load_Top At_Offset_0
01ab 680b |h | Jump_Zero 0x1b7
01ac e003 | | Load 0x0,0x3
01ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ae 6219 |b | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
01af e006 | | Load 0x0,0x6
01b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01b1 4800 |H | Short_Literal 0x0
01b2 e60b | | Load 0x3,0xb
01b3 e003 | | Load 0x0,0x3
01b4 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
01b5 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01b6 005a | Z | Store_Top Discrete,At_Offset_2
01b7 00e1 | | Load_Encached Boolean_Cache
01b8 e006 | | Load 0x0,0x6
01b9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ba e004 | | Load 0x0,0x4
01bb 180e | | Execute Package,Field_Execute,Field_Number 0xe
01bc 4801 |H | Short_Literal 0x1
01bd 4800 |H | Short_Literal 0x0
01be e603 | | Load 0x3,0x3
01bf e605 | | Load 0x3,0x5
01c0 e009 | | Load 0x0,0x9
01c1 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
01c2 c609 | | Store 0x3,0x9
01c3 00d8 | | Load_Top At_Offset_0
01c4 680b |h | Jump_Zero 0x1d0
01c5 e003 | | Load 0x0,0x3
01c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c7 6200 |b | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
01c8 e006 | | Load 0x0,0x6
01c9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ca 4800 |H | Short_Literal 0x0
01cb e60b | | Load 0x3,0xb
01cc e003 | | Load 0x0,0x3
01cd 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
01ce 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01cf 005a | Z | Store_Top Discrete,At_Offset_2
01d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d1 e004 | | Load 0x0,0x4
01d2 180e | | Execute Package,Field_Execute,Field_Number 0xe
01d3 4802 |H | Short_Literal 0x2
01d4 0092 03d9 | | Action Push_String_Extended,0x3d9 ; "Removing \x22"
01d6 e604 | | Load 0x3,0x4
01d7 01cc | | Execute Vector,Catenate
01d8 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "\x22"
01da 01cc | | Execute Vector,Catenate
01db e005 | | Load 0x0,0x5
01dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01dd e604 | | Load 0x3,0x4
01de e606 | | Load 0x3,0x6
01df 01de | | Execute Vector,Not_Equal
01e0 680d |h | Jump_Zero 0x1ee
01e1 e004 | | Load 0x0,0x4
01e2 180e | | Execute Package,Field_Execute,Field_Number 0xe
01e3 4805 |H | Short_Literal 0x5
01e4 0092 03da | | Action Push_String_Extended,0x3da ; "Cannot remove "
01e6 e604 | | Load 0x3,0x4
01e7 01cc | | Execute Vector,Catenate
01e8 0092 03db | | Action Push_String_Extended,0x3db ; "; illegal command syntax"
01ea 01cc | | Execute Vector,Catenate
01eb e005 | | Load 0x0,0x5
01ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ed 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ee e003 | | Load 0x0,0x3
01ef 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f1 e607 | | Load 0x3,0x7
01f2 61d5 |a | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
01f3 e006 | | Load 0x0,0x6
01f4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f5 e007 | | Load 0x0,0x7
01f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f7 e008 | | Load 0x0,0x8
01f8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f9 4800 |H | Short_Literal 0x0
01fa 4800 |H | Short_Literal 0x0
01fb e007 | | Load 0x0,0x7
01fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01fd e003 | | Load 0x0,0x3
01fe 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ff 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0200 e604 | | Load 0x3,0x4
0201 e003 | | Load 0x0,0x3
0202 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0203 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0204 c607 | | Store 0x3,0x7
0205 c608 | | Store 0x3,0x8
0206 e608 | | Load 0x3,0x8
0207 460e |F | Jump_Case 0xf
0208 782f |x/ | Jump 0x238 ; case 0x0
0209 780d |x | Jump 0x217 ; case 0x1
020a 780c |x | Jump 0x217 ; case 0x2
020b 7898 |x | Jump 0x2a4 ; case 0x3
020c 780a |x | Jump 0x217 ; case 0x4
020d 7809 |x | Jump 0x217 ; case 0x5
020e 7808 |x | Jump 0x217 ; case 0x6
020f 7807 |x | Jump 0x217 ; case 0x7
0210 7806 |x | Jump 0x217 ; case 0x8
0211 7805 |x | Jump 0x217 ; case 0x9
0212 7804 |x | Jump 0x217 ; case 0xa
0213 7803 |x | Jump 0x217 ; case 0xb
0214 7802 |x | Jump 0x217 ; case 0xc
0215 7801 |x | Jump 0x217 ; case 0xd
0216 7800 |x | Jump 0x217 ; case 0xe
0217 e004 | | Load 0x0,0x4
0218 180e | | Execute Package,Field_Execute,Field_Number 0xe
0219 4805 |H | Short_Literal 0x5
021a 0092 03dc | | Action Push_String_Extended,0x3dc ; "Cannot resolve "
021c e604 | | Load 0x3,0x4
021d 01cc | | Execute Vector,Catenate
021e 0092 03d4 | | Action Push_String_Extended,0x3d4 ; " because "
0220 01cc | | Execute Vector,Catenate
0221 61a6 |a | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
0222 e006 | | Load 0x0,0x6
0223 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0224 e007 | | Load 0x0,0x7
0225 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0226 e008 | | Load 0x0,0x8
0227 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0228 4800 |H | Short_Literal 0x0
0229 4800 |H | Short_Literal 0x0
022a e007 | | Load 0x0,0x7
022b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
022c e003 | | Load 0x0,0x3
022d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
022e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
022f e606 | | Load 0x3,0x6
0230 e608 | | Load 0x3,0x8
0231 e003 | | Load 0x0,0x3
0232 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0233 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0234 01cc | | Execute Vector,Catenate
0235 e005 | | Load 0x0,0x5
0236 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0237 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0238 e003 | | Load 0x0,0x3
0239 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023a e60a | | Load 0x3,0xa
023b 0120 | | Execute Any,Is_Value
023c 6803 |h | Jump_Zero 0x240
023d e003 | | Load 0x0,0x3
023e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023f 7801 |x | Jump 0x241
0240 e60a | | Load 0x3,0xa
0241 6186 |a | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
0242 e006 | | Load 0x0,0x6
0243 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0244 e607 | | Load 0x3,0x7
0245 e003 | | Load 0x0,0x3
0246 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0247 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0248 c60a | | Store 0x3,0xa
0249 005a | Z | Store_Top Discrete,At_Offset_2
024a e607 | | Load 0x3,0x7
024b e003 | | Load 0x0,0x3
024c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
024d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
024e c607 | | Store 0x3,0x7
024f e607 | | Load 0x3,0x7
0250 e003 | | Load 0x0,0x3
0251 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0252 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0253 700d |p | Jump_Nonzero 0x261
0254 e004 | | Load 0x0,0x4
0255 180e | | Execute Package,Field_Execute,Field_Number 0xe
0256 4805 |H | Short_Literal 0x5
0257 0092 03da | | Action Push_String_Extended,0x3da ; "Cannot remove "
0259 e604 | | Load 0x3,0x4
025a 01cc | | Execute Vector,Catenate
025b 0092 03d8 | | Action Push_String_Extended,0x3d8 ; "; name is ambiguous"
025d 01cc | | Execute Vector,Catenate
025e e005 | | Load 0x0,0x5
025f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0260 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0261 e003 | | Load 0x0,0x3
0262 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0263 00db | | Load_Top At_Offset_3
0264 0120 | | Execute Any,Is_Value
0265 6804 |h | Jump_Zero 0x26a
0266 e003 | | Load 0x0,0x3
0267 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0268 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0269 7801 |x | Jump 0x26b
026a 00db | | Load_Top At_Offset_3
026b e60a | | Load 0x3,0xa
026c e003 | | Load 0x0,0x3
026d 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
026e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
026f c60b | | Store 0x3,0xb
0270 005a | Z | Store_Top Discrete,At_Offset_2
0271 e003 | | Load 0x0,0x3
0272 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0273 00e1 | | Load_Encached Boolean_Cache
0274 6153 |aS | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
0275 e006 | | Load 0x0,0x6
0276 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0277 e60b | | Load 0x3,0xb
0278 e003 | | Load 0x0,0x3
0279 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
027a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
027b e003 | | Load 0x0,0x3
027c 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
027d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
027e 005a | Z | Store_Top Discrete,At_Offset_2
027f 005a | Z | Store_Top Discrete,At_Offset_2
0280 00d8 | | Load_Top At_Offset_0
0281 680b |h | Jump_Zero 0x28d
0282 e003 | | Load 0x0,0x3
0283 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0284 6143 |aC | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
0285 e006 | | Load 0x0,0x6
0286 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0287 4800 |H | Short_Literal 0x0
0288 e60b | | Load 0x3,0xb
0289 e003 | | Load 0x0,0x3
028a 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
028b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
028c 005a | Z | Store_Top Discrete,At_Offset_2
028d 00e1 | | Load_Encached Boolean_Cache
028e e006 | | Load 0x0,0x6
028f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0290 e004 | | Load 0x0,0x4
0291 180e | | Execute Package,Field_Execute,Field_Number 0xe
0292 e603 | | Load 0x3,0x3
0293 e009 | | Load 0x0,0x9
0294 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0295 c609 | | Store 0x3,0x9
0296 00d8 | | Load_Top At_Offset_0
0297 6818 |h | Jump_Zero 0x2b0
0298 e003 | | Load 0x0,0x3
0299 1b0d | | Execute Package,Field_Read,Field_Number 0xd
029a 612d |a- | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
029b e006 | | Load 0x0,0x6
029c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029d 4800 |H | Short_Literal 0x0
029e e60b | | Load 0x3,0xb
029f e003 | | Load 0x0,0x3
02a0 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
02a1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02a2 005a | Z | Store_Top Discrete,At_Offset_2
02a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a4 e004 | | Load 0x0,0x4
02a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
02a6 4803 |H | Short_Literal 0x3
02a7 0092 03dd | | Action Push_String_Extended,0x3dd ; "Declaration to be removed,"
02a9 e604 | | Load 0x3,0x4
02aa 01cc | | Execute Vector,Catenate
02ab 0092 03de | | Action Push_String_Extended,0x3de ; ", does not exist"
02ad 01cc | | Execute Vector,Catenate
02ae e005 | | Load 0x0,0x5
02af 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02b1 e004 | | Load 0x0,0x4
02b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
02b3 4802 |H | Short_Literal 0x2
02b4 0092 03df | | Action Push_String_Extended,0x3df ; "Inserting \x22"
02b6 e604 | | Load 0x3,0x4
02b7 01cc | | Execute Vector,Catenate
02b8 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "\x22"
02ba 01cc | | Execute Vector,Catenate
02bb e005 | | Load 0x0,0x5
02bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02bd e003 | | Load 0x0,0x3
02be 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c0 e607 | | Load 0x3,0x7
02c1 6106 |a | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
02c2 e006 | | Load 0x0,0x6
02c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c4 e007 | | Load 0x0,0x7
02c5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c6 e008 | | Load 0x0,0x8
02c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02c8 4800 |H | Short_Literal 0x0
02c9 4800 |H | Short_Literal 0x0
02ca e007 | | Load 0x0,0x7
02cb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02cc e003 | | Load 0x0,0x3
02cd 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02ce 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02cf e604 | | Load 0x3,0x4
02d0 e003 | | Load 0x0,0x3
02d1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d2 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02d3 c607 | | Store 0x3,0x7
02d4 c608 | | Store 0x3,0x8
02d5 e608 | | Load 0x3,0x8
02d6 460e |F | Jump_Case 0xf
02d7 782f |x/ | Jump 0x307 ; case 0x0
02d8 780d |x | Jump 0x2e6 ; case 0x1
02d9 780c |x | Jump 0x2e6 ; case 0x2
02da 7839 |x9 | Jump 0x314 ; case 0x3
02db 780a |x | Jump 0x2e6 ; case 0x4
02dc 7809 |x | Jump 0x2e6 ; case 0x5
02dd 7808 |x | Jump 0x2e6 ; case 0x6
02de 7807 |x | Jump 0x2e6 ; case 0x7
02df 7806 |x | Jump 0x2e6 ; case 0x8
02e0 7805 |x | Jump 0x2e6 ; case 0x9
02e1 7804 |x | Jump 0x2e6 ; case 0xa
02e2 7803 |x | Jump 0x2e6 ; case 0xb
02e3 7802 |x | Jump 0x2e6 ; case 0xc
02e4 7801 |x | Jump 0x2e6 ; case 0xd
02e5 7800 |x | Jump 0x2e6 ; case 0xe
02e6 e004 | | Load 0x0,0x4
02e7 180e | | Execute Package,Field_Execute,Field_Number 0xe
02e8 4805 |H | Short_Literal 0x5
02e9 0092 03e0 | | Action Push_String_Extended,0x3e0 ; "Cannot insert "
02eb e604 | | Load 0x3,0x4
02ec 01cc | | Execute Vector,Catenate
02ed 0092 03d4 | | Action Push_String_Extended,0x3d4 ; " because "
02ef 01cc | | Execute Vector,Catenate
02f0 60d7 |` | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
02f1 e006 | | Load 0x0,0x6
02f2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02f3 e007 | | Load 0x0,0x7
02f4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02f5 e008 | | Load 0x0,0x8
02f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02f7 4800 |H | Short_Literal 0x0
02f8 4800 |H | Short_Literal 0x0
02f9 e007 | | Load 0x0,0x7
02fa 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02fb e003 | | Load 0x0,0x3
02fc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02fd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02fe e604 | | Load 0x3,0x4
02ff e608 | | Load 0x3,0x8
0300 e003 | | Load 0x0,0x3
0301 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0302 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0303 01cc | | Execute Vector,Catenate
0304 e005 | | Load 0x0,0x5
0305 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0306 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0307 e004 | | Load 0x0,0x4
0308 180e | | Execute Package,Field_Execute,Field_Number 0xe
0309 4803 |H | Short_Literal 0x3
030a 0092 03d5 | | Action Push_String_Extended,0x3d5 ; "'New' declaration "
030c e604 | | Load 0x3,0x4
030d 01cc | | Execute Vector,Catenate
030e 0092 03d6 | | Action Push_String_Extended,0x3d6 ; " already exists"
0310 01cc | | Execute Vector,Catenate
0311 e005 | | Load 0x0,0x5
0312 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0313 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0314 e003 | | Load 0x0,0x3
0315 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0316 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0317 e607 | | Load 0x3,0x7
0318 60af |` | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
0319 e006 | | Load 0x0,0x6
031a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
031b e007 | | Load 0x0,0x7
031c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
031d e008 | | Load 0x0,0x8
031e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
031f 4800 |H | Short_Literal 0x0
0320 4800 |H | Short_Literal 0x0
0321 e007 | | Load 0x0,0x7
0322 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0323 e003 | | Load 0x0,0x3
0324 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0325 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0326 e606 | | Load 0x3,0x6
0327 e003 | | Load 0x0,0x3
0328 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0329 181b | | Execute Package,Field_Execute,Field_Number 0x1b
032a c607 | | Store 0x3,0x7
032b c608 | | Store 0x3,0x8
032c e608 | | Load 0x3,0x8
032d 6826 |h& | Jump_Zero 0x354
032e e004 | | Load 0x0,0x4
032f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0330 4805 |H | Short_Literal 0x5
0331 0092 03e0 | | Action Push_String_Extended,0x3e0 ; "Cannot insert "
0333 e604 | | Load 0x3,0x4
0334 01cc | | Execute Vector,Catenate
0335 0092 03e1 | | Action Push_String_Extended,0x3e1 ; "; resolution of predecessor declaration, "
0337 01cc | | Execute Vector,Catenate
0338 e606 | | Load 0x3,0x6
0339 01cc | | Execute Vector,Catenate
033a 0092 03e2 | | Action Push_String_Extended,0x3e2 ; ", failed because "
033c 01cc | | Execute Vector,Catenate
033d 608a |` | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
033e e006 | | Load 0x0,0x6
033f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0340 e007 | | Load 0x0,0x7
0341 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0342 e008 | | Load 0x0,0x8
0343 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0344 4800 |H | Short_Literal 0x0
0345 4800 |H | Short_Literal 0x0
0346 e007 | | Load 0x0,0x7
0347 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0348 e003 | | Load 0x0,0x3
0349 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
034a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
034b e606 | | Load 0x3,0x6
034c e608 | | Load 0x3,0x8
034d e003 | | Load 0x0,0x3
034e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
034f 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0350 01cc | | Execute Vector,Catenate
0351 e005 | | Load 0x0,0x5
0352 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0353 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0354 e003 | | Load 0x0,0x3
0355 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0356 e60a | | Load 0x3,0xa
0357 0120 | | Execute Any,Is_Value
0358 6803 |h | Jump_Zero 0x35c
0359 e003 | | Load 0x0,0x3
035a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
035b 7801 |x | Jump 0x35d
035c e60a | | Load 0x3,0xa
035d 606a |`j | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
035e e006 | | Load 0x0,0x6
035f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0360 e607 | | Load 0x3,0x7
0361 e003 | | Load 0x0,0x3
0362 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0363 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0364 c60a | | Store 0x3,0xa
0365 005a | Z | Store_Top Discrete,At_Offset_2
0366 e607 | | Load 0x3,0x7
0367 e003 | | Load 0x0,0x3
0368 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0369 181d | | Execute Package,Field_Execute,Field_Number 0x1d
036a c607 | | Store 0x3,0x7
036b e607 | | Load 0x3,0x7
036c e003 | | Load 0x0,0x3
036d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
036e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
036f 7012 |p | Jump_Nonzero 0x382
0370 e004 | | Load 0x0,0x4
0371 180e | | Execute Package,Field_Execute,Field_Number 0xe
0372 4805 |H | Short_Literal 0x5
0373 0092 03e0 | | Action Push_String_Extended,0x3e0 ; "Cannot insert "
0375 e604 | | Load 0x3,0x4
0376 01cc | | Execute Vector,Catenate
0377 0092 03e3 | | Action Push_String_Extended,0x3e3 ; "; name of predecessor declaration, "
0379 01cc | | Execute Vector,Catenate
037a e606 | | Load 0x3,0x6
037b 01cc | | Execute Vector,Catenate
037c 0092 03e4 | | Action Push_String_Extended,0x3e4 ; ", is ambiguous"
037e 01cc | | Execute Vector,Catenate
037f e005 | | Load 0x0,0x5
0380 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0381 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0382 e003 | | Load 0x0,0x3
0383 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0384 00db | | Load_Top At_Offset_3
0385 0120 | | Execute Any,Is_Value
0386 6804 |h | Jump_Zero 0x38b
0387 e003 | | Load 0x0,0x3
0388 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0389 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038a 7801 |x | Jump 0x38c
038b 00db | | Load_Top At_Offset_3
038c e60a | | Load 0x3,0xa
038d e003 | | Load 0x0,0x3
038e 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
038f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0390 c60b | | Store 0x3,0xb
0391 005a | Z | Store_Top Discrete,At_Offset_2
0392 e003 | | Load 0x0,0x3
0393 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0394 00e1 | | Load_Encached Boolean_Cache
0395 6032 |`2 | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
0396 e006 | | Load 0x0,0x6
0397 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0398 e60b | | Load 0x3,0xb
0399 e003 | | Load 0x0,0x3
039a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
039b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
039c e003 | | Load 0x0,0x3
039d 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
039e 181b | | Execute Package,Field_Execute,Field_Number 0x1b
039f 005a | Z | Store_Top Discrete,At_Offset_2
03a0 005a | Z | Store_Top Discrete,At_Offset_2
03a1 00d8 | | Load_Top At_Offset_0
03a2 680b |h | Jump_Zero 0x3ae
03a3 e003 | | Load 0x0,0x3
03a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a5 6022 |`" | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
03a6 e006 | | Load 0x0,0x6
03a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03a8 4800 |H | Short_Literal 0x0
03a9 e60b | | Load 0x3,0xb
03aa e003 | | Load 0x0,0x3
03ab 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
03ac 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03ad 005a | Z | Store_Top Discrete,At_Offset_2
03ae 00e1 | | Load_Encached Boolean_Cache
03af e006 | | Load 0x0,0x6
03b0 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b1 e004 | | Load 0x0,0x4
03b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b3 e603 | | Load 0x3,0x3
03b4 e605 | | Load 0x3,0x5
03b5 e009 | | Load 0x0,0x9
03b6 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03b7 c609 | | Store 0x3,0x9
03b8 00d8 | | Load_Top At_Offset_0
03b9 680b |h | Jump_Zero 0x3c5
03ba e003 | | Load 0x0,0x3
03bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03bc 600b |` | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00004000}
03bd e006 | | Load 0x0,0x6
03be 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03bf 4800 |H | Short_Literal 0x0
03c0 e60b | | Load 0x3,0xb
03c1 e003 | | Load 0x0,0x3
03c2 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
03c3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03c4 005a | Z | Store_Top Discrete,At_Offset_2
03c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c6 0000 0000 | | .XXX[0x2]
03c8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
03cc ; --------------------------------------------------------------------------------------
03cc ; STRING TABLE
03cc ; --------------------------------------------------------------------------------------
03cc 0034 | 4 | .STRTAB 0x0034->0x03e6 ; "INSERT"
03cd 0038 | 8 | .STRTAB 0x0038->0x03e9 ; "DELETE"
03ce 003c | < | .STRTAB 0x003c->0x03ec ; "REPLACE"
03cf 0041 | A | .STRTAB 0x0041->0x03ef ; "***"
03d0 0042 | B | .STRTAB 0x0042->0x03f1 ; "Replacing \x22"
03d1 004b | K | .STRTAB 0x004b->0x03f6 ; "\x22 with \x22"
03d2 0051 | Q | .STRTAB 0x0051->0x03fa ; "\x22"
03d3 0050 | P | .STRTAB 0x0050->0x03fb ; "Cannot replace "
03d4 005d | ] | .STRTAB 0x005d->0x0402 ; " because "
03d5 0064 | d | .STRTAB 0x0064->0x0407 ; "'New' declaration "
03d6 0074 | t | .STRTAB 0x0074->0x0410 ; " already exists"
03d7 0081 | | .STRTAB 0x0081->0x0417 ; "; resolution of name failed because "
03d8 00a3 | | .STRTAB 0x00a3->0x0429 ; "; name is ambiguous"
03d9 00b4 | | .STRTAB 0x00b4->0x0433 ; "Removing \x22"
03da 00bc | | .STRTAB 0x00bc->0x0438 ; "Cannot remove "
03db 00c8 | | .STRTAB 0x00c8->0x043f ; "; illegal command syntax"
03dc 00de | | .STRTAB 0x00de->0x044b ; "Cannot resolve "
03dd 00eb | | .STRTAB 0x00eb->0x0452 ; "Declaration to be removed,"
03de 0103 | | .STRTAB 0x0103->0x045f ; ", does not exist"
03df 0111 | | .STRTAB 0x0111->0x0467 ; "Inserting \x22"
03e0 011a | | .STRTAB 0x011a->0x046d ; "Cannot insert "
03e1 0126 | & | .STRTAB 0x0126->0x0474 ; "; resolution of predecessor declaration, "
03e2 014d | M | .STRTAB 0x014d->0x0488 ; ", failed because "
03e3 015c | \ | .STRTAB 0x015c->0x0491 ; "; name of predecessor declaration, "
03e4 017d | } | .STRTAB 0x017d->0x04a2 ; ", is ambiguous"
03e5 0189 | | .STREND 0x0189->0x04a9
03e6 494e 5345 |INSE| .STRTAB_STRINGS
04aa 0000 0000 | | .BLANK 0000[0x6]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug Table
04b0 ; --------------------------------------------------------------------------------------
04b0 0004 000d | | .DEBUG4 0x0004,0x000d,0x96a4,0x0000,0x0001,0x0000
04b6 cdd1 85b1 | | .XXX[0x14a]
04b8 b17d 19a5 | } |
04ba b194 0210 | |
04bc 3125 394d |1%9M|
04be 5105 3131 |Q 11|
04c0 7d19 2531 |} %1|
04c2 1402 1425 | %|
04c4 0dbd 9195 | |
04c6 7d19 a5b1 |} |
04c8 9402 1825 | %|
04ca 0d3d 1115 | = |
04cc 7d19 2531 |} %1|
04ce 1401 d82d | -|
04d0 19c9 9595 | |
04d2 e995 7d19 | } |
04d4 a5b1 9402 | |
04d6 1c2d 1949 | - I|
04d8 1515 6915 | i |
04da 7d19 2531 |} %1|
04dc 1400 1824 | $|
04de f141 493d | AI=|
04e0 1925 3114 | %1 |
04e2 f801 8041 | A|
04e4 0d3d 3541 | =5A|
04e6 5551 157d |UQ }|
04e8 4915 0d3d |I =|
04ea 1125 391c | %9 |
04ec 0144 1d7d | D }|
04ee 0511 057c | ||
04f0 d97c 0188 | | |
04f2 1d3d 4151 | =AQ|
04f4 253d 394c |%=9L|
04f6 01a8 690d | i |
04f8 3d39 5915 |=9Y |
04fa 4951 7d35 |IQ}5|
04fc 050d 2125 | !%|
04fe 3915 7d25 |9 }%|
0500 3925 5125 |9%Q%|
0502 0531 2569 | 1%i|
0504 1402 201d | |
0506 7d05 1105 |} |
0508 7cdd 7c00 || | |
050a 8034 f8f9 | 4 |
050c 6199 95c8 |a |
050e 8119 a5b1 | |
0510 94f0 f001 | |
0512 0425 6119 | %a |
0514 1549 7d19 | I} |
0516 2531 1402 |%1 |
0518 2421 554d |$!UM|
051a 1549 3905 | I9 |
051c 3514 01dc |5 |
051e 2141 054d |!A M|
0520 4d5d 3d49 |M]=I|
0522 1000 6815 | h |
0524 1905 314d | 1M|
0526 1401 c01d | |
0528 5915 4909 |Y I |
052a 3d4d 1401 |=M |
052c 2021 1d15 | ! |
052e 517d 6119 |Q}a |
0530 1548 01b4 | H |
0532 1d7d 0511 | } |
0534 057c e17c | | ||
0536 005c 4090 | \@ |
0538 90b9 058d | |
053a d1a5 d9a5 | |
053c d1e5 7d19 | } |
053e a5b1 9400 | |
0540 7c31 193d ||1 =|
0542 497d 050d |I} |
0544 5125 5925 |Q%Y%|
0546 5164 00d8 |Qd |
0548 8485 3585 | 5 |
054a 8da1 a5b9 | |
054c 94b9 4995 | I |
054e b195 85cd | |
0550 94b9 0dd5 | |
0552 c9c9 95b9 | |
0554 d0b9 058d | |
0556 d1a5 d9a5 | |
0558 d1e4 017c | ||
055a 3d51 0549 |=Q I|
055c 1d15 517d | Q}|
055e 050d 5125 | Q%|
0560 5925 5164 |Y%Qd|
0562 0140 8485 | @ |
0564 3585 8da1 |5 |
0566 a5b9 94b9 | |
0568 4995 b195 |I |
056a 85cd 94b9 | |
056c 0dd5 c9c9 | |
056e 95b9 d0b9 | |
0570 0dbd b5b5 | |
0572 85b9 91cc | |
0574 01b8 4d0d | M |
0576 3d35 3505 |=55 |
0578 3911 7d31 |9 }1|
057a 2539 2d4d |%9-M|
057c 7d5d 3d49 |}]=I|
057e 3110 01ac |1 |
0580 4125 394d |A%9M|
0582 5105 3131 |Q 11|
0584 7d05 0d51 |} Q|
0586 2559 2551 |%Y%Q|
0588 6401 8c1d |d |
058a 7d05 1105 |} |
058c 7ce5 7c00 || | |
058e d084 9091 | |
0590 6d11 7d01 |m } |
0592 74b9 31a5 |t 1 |
0594 cdd1 ccb9 | |
0596 55b9 a5d1 |U |
0598 cd7d 51bd | }Q |
059a 7d09 957d |} }|
059c 55c1 9185 |U |
059e d195 9002 | |
05a0 2829 5539 |()U9|
05a2 2551 4d7d |%QM}|
05a4 3125 4d50 |1%MP|
05a6 0134 6490 | 4d |
05a8 916d 117d | m }|
05aa 0174 b905 | t |
05ac c98d a1a5 | |
05ae d995 ccb9 | |
05b0 55b9 a5d9 |U |
05b2 95c9 cd94 | |
05b4 011c 1911 | |
05b6 1559 250d | Y% |
05b8 1400 042d | -|
05ba 193d 497d | =I}|
05bc 4915 3115 |I 1 |
05be 054d 1402 | M |
05c0 2c41 2539 |,A%9|
05c2 4d51 0531 |MQ 1|
05c4 317d 5539 |1}U9|
05c6 2559 1549 |%Y I|
05c8 4d14 0230 |M 0|
05ca 1d7d 0511 | } |
05cc 057d 057c | } ||
05ce 0234 4490 | 4D |
05d0 90b9 0dbd | |
05d2 b589 a5b9 | |
05d4 9591 7d35 | }5|
05d6 b1bd 8590 | |
05d8 0238 390d | 89 |
05da 3d35 0925 |=5 %|
05dc 3915 117d |9 }|
05de 3531 3d05 |51= |
05e0 1002 3c58 | <X|
05e2 9090 b931 | 1|
05e4 a5cd d1cc | |
05e6 b915 1511 | |
05e8 097d 0dbd | } |
05ea b5b5 85b9 | |
05ec 91cc 0054 | T|
05ee 3515 1511 |5 |
05f0 097d 0d3d | } =|
05f2 3535 0539 |55 9|
05f4 114c 0184 | L |
05f6 24f1 1115 |$ |
05f8 1905 5531 | U1|
05fa 50f8 0240 |P @|
05fc 494d 151d |IM |
05fe 3515 3951 |5 9Q|