|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 03b8 | | .CONST 0x03b8 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006f | o | .CONST 0x006f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0028 | ( | .CONST 0x0028 ; Number of locals
000b INIT_0008:
000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0432,0x8000,0x0000,0x005a,0x6635,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 00bf | | Action Accept_Activation
0018 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0018,0x0440,0x8000,0x0000,0x005a,0x6655,0x0000,0x0015
; Debug Table 0x1.0x0 = 0x18,0xffff
0019 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x19,0xfffe
001a 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x2 = 0x1a,0xfffd
001b 4801 |H | Short_Literal 0x1
001c 6287 |b | Indirect_Literal Discrete,0x2a4,{0x00000000, 0x00000400}
001d 00e9 | | Load_Encached String_Cache
001e 035b | [ | Declare_Type Array,Constrained
001f 00e3 | | Load_Encached Natural_Cache
0020 00e3 | | Load_Encached Natural_Cache
0021 00e1 | | Load_Encached Boolean_Cache
0022 029f 022b | +| Declare_Subprogram INIT_0228,For_Call
0024 4805 |H | Short_Literal 0x5
0025 032d | - | Declare_Type Record,Defined
0026 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x26,0xfffc
0027 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0028 00e1 | | Load_Encached Boolean_Cache
0029 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
002b 4802 |H | Short_Literal 0x2
002c 032d | - | Declare_Type Record,Defined
002d 00e8 | | Load_Encached Character_Cache ; Debug Table 0x1.0x4 = 0x2d,0xfffb
002e 0266 | f | Execute Discrete,Bounds
002f 00e1 | | Load_Encached Boolean_Cache
0030 02a0 | | Declare_Subprogram Null_Subprogram
0031 4801 |H | Short_Literal 0x1
0032 035d | ] | Declare_Type Array,Defined
0033 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x5 = 0x33,0xfffa
0034 0337 | 7 | Declare_Variable Array
0035 00d9 | | Load_Top At_Offset_1
0036 0337 | 7 | Declare_Variable Array
0037 487f |H | Short_Literal 0x7f
0038 4800 |H | Short_Literal 0x0
0039 4800 |H | Short_Literal 0x0
003a 00d9 | | Load_Top At_Offset_1
003b e217 | | Load 0x1,0x17
003c 01d6 | | Execute Vector,Field_Write
003d 3ffb |? | Loop_Increasing 0x39
003e 00d9 | | Load_Top At_Offset_1
003f 01d4 | | Execute Vector,Structure_Write
0040 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call ; Debug Table 0x1.0x6 = 0x40,0xfff9
0042 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x7 = 0x42,0xfff8
0043 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0044 00c6 | | Action Check_Subprogram_Elaborated
0045 00db | | Load_Top At_Offset_3
0046 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0047 6258 |bX | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x005a6655}
0048 48c8 |H | Short_Literal 0xc8
0049 4800 |H | Short_Literal 0x0
004a 0007 | | Action Break_Optional
004b 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x8 = 0x4b,0xfff7
004c 00c7 | | Action Elaborate_Subprogram
004d 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x9 = 0x4d,0xfff6
004e 00c7 | | Action Elaborate_Subprogram
004f 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call ; Debug Table 0x1.0xa = 0x4f,0xfff5
0051 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xb = 0x51,0xfff4
0052 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0053 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0054 00c6 | | Action Check_Subprogram_Elaborated
0055 e213 | | Load 0x1,0x13
0056 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0057 6248 |bH | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x005a6655}
0058 4a58 |JX | Short_Literal 0x258
0059 4800 |H | Short_Literal 0x0
005a 0007 | | Action Break_Optional
005b 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call ; Debug Table 0x1.0xc = 0x5b,0xfff3
005d e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xd = 0x5d,0xfff2
005e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
005f 190f | | Execute Package,Field_Reference,Field_Number 0xf
0060 00c6 | | Action Check_Subprogram_Elaborated
0061 e213 | | Load 0x1,0x13
0062 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0063 623c |b< | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x005a6655}
0064 4a92 |J | Short_Literal 0x292
0065 4800 |H | Short_Literal 0x0
0066 0007 | | Action Break_Optional
0067 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xe = 0x67,0xfff1
0068 00c7 | | Action Elaborate_Subprogram
0069 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xf = 0x69,0xfff0
006a 00c7 | | Action Elaborate_Subprogram
006b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x10 = 0x6b,0xffef
006c 00c7 | | Action Elaborate_Subprogram
006d 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x11 = 0x6d,0xffee
006e 00c7 | | Action Elaborate_Subprogram
006f BODY_0008:
006f 00cf | | Action Mark_Auxiliary
0070 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x12 = 0x70,0x1
0071 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0072 01d9 | | Execute Vector,Reverse_Bounds
0073 0007 | | Action Break_Optional
0074 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x13 = 0x74,0x2
0075 00d9 | | Load_Top At_Offset_1
0076 e004 | | Load 0x0,0x4
0077 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0078 01d7 | | Execute Vector,Field_Read
0079 e216 | | Load 0x1,0x16
007a 01d6 | | Execute Vector,Field_Write
007b 00c8 | | Action Pop_Auxiliary_Range
007c 3ff7 |? | Loop_Increasing 0x74
007d 00ce | | Action Pop_Auxiliary
007e 00bc | | Action Signal_Activated
007f 00bb | | Action Signal_Completion
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0087 | | .CONST 0x0087 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 e214 | | Load 0x1,0x14 ; Debug Table 0x2 = .DEBUG 0x0083,0x046a,0x0001,0x0000,0x005a,0x6635,0x0000,0x0008
; Debug Table 0x2.0x0 = 0x83,0xffff
0084 0322 | " | Declare_Variable Record
0085 00d8 | | Load_Top At_Offset_0
0086 1c00 | | Execute_Immediate Run_Utility,0x0
0087 BODY_0080:
0087 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x87,0x1
0088 4801 |H | Short_Literal 0x1
0089 e5fe | | Load 0x2,-0x2
008a e5ff | | Load 0x2,-0x1
008b e218 | | Load 0x1,0x18
008c 1d19 | | Execute_Immediate Reference_Lex_1,0x19
008d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
008e e002 | | Load 0x0,0x2
008f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0090 00d1 | | Pop_Control Pop_Count_1
0091 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x91,0x2
0092 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0093 e5fd | | Load 0x2,-0x3
0094 017d | } | Execute Record,Structure_Write
0095 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x95,0x3
0096 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0097 7007 |p | Jump_Nonzero 0x9f
0098 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x4 = 0x98,0x4
0099 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
009a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
009b e5ff | | Load 0x2,-0x1
009c e001 | | Load 0x0,0x1
009d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
009e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00ab | | .CONST 0x00ab ; Address of begin
00a1 00c4 | | .CONST 0x00c4 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x00a3,0x0476,0x0002,0x0000,0x005a,0x6635,0x0000,0x001e
; Debug Table 0x3.0x0 = 0xa3,0xffff
00a4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a5 0322 | " | Declare_Variable Record
00a6 e5fd | | Load 0x2,-0x3
00a7 00d9 | | Load_Top At_Offset_1
00a8 017d | } | Execute Record,Structure_Write
00a9 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call
00ab BODY_00a0:
00ab e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x1 = 0xab,0x1
00ac 01db | | Execute Vector,Length
00ad 700d |p | Jump_Nonzero 0xbb
00ae 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x2 = 0xae,0x2
00af e001 | | Load 0x0,0x1
00b0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00b1 017f | | Execute Record,Equal
00b2 6806 |h | Jump_Zero 0xb9
00b3 e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x3 = 0xb3,0x3
00b4 e001 | | Load 0x0,0x1
00b5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00b6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b7 00da | | Load_Top At_Offset_2
00b8 017d | } | Execute Record,Structure_Write
00b9 8403 | | Call 0x2,0x3 ; Debug Table 0x3.0x4 = 0xb9,0x4
00ba 7807 |x | Jump 0xc2
00bb e5fc | | Load 0x2,-0x4 ; Debug Table 0x3.0x5 = 0xbb,0x5
00bc 4800 |H | Short_Literal 0x0
00bd e5fe | | Load 0x2,-0x2
00be e003 | | Load 0x0,0x3
00bf 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00c0 180e | | Execute Package,Field_Execute,Field_Number 0xe
00c1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
00c2 4831 |H1 | Short_Literal 0x31
00c3 0257 | W | Execute Discrete,Raise
00c4 TRAP_00a0:
00c4 e003 | | Load 0x0,0x3
00c5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c7 010f | | Execute Exception,Equal
00c8 6816 |h | Jump_Zero 0xdf
00c9 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x6 = 0xc9,0x6
00ca 01db | | Execute Vector,Length
00cb 7007 |p | Jump_Nonzero 0xd3
00cc 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x7 = 0xcc,0x7
00cd 4801 |H | Short_Literal 0x1
00ce 0092 0318 | | Action Push_String_Extended,0x318 ; "Can't find a valid token near the cursor."
00d0 e005 | | Load 0x0,0x5
00d1 180d | | Execute Package,Field_Execute,Field_Number 0xd
00d2 780a |x | Jump 0xdd
00d3 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x8 = 0xd3,0x8
00d4 4801 |H | Short_Literal 0x1
00d5 4822 |H" | Short_Literal 0x22
00d6 e5fe | | Load 0x2,-0x2
00d7 01ca | | Execute Vector,Prepend
00d8 0092 0319 | | Action Push_String_Extended,0x319 ; "\x22 isn't a valid token."
00da 01cc | | Execute Vector,Catenate
00db e005 | | Load 0x0,0x5
00dc 180d | | Execute Package,Field_Execute,Field_Number 0xd
00dd 4831 |H1 | Short_Literal 0x31
00de 0257 | W | Execute Discrete,Raise
00df 0100 | | Execute Exception,Raise
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ef | | .CONST 0x00ef ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0004 | | .CONST 0x0004 ; Number of locals
00e3 INIT_00e0:
00e3 4800 |H | Short_Literal 0x0 ; Debug Table 0x4 = .DEBUG 0x00e3,0x048a,0x0002,0x0000,0x005a,0x6635,0x0000,0x003d
; Debug Table 0x4.0x0 = 0xe3,0xffff
00e4 e5fe | | Load 0x2,-0x2
00e5 e003 | | Load 0x0,0x3
00e6 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00e7 180f | | Execute Package,Field_Execute,Field_Number 0xf
00e8 e213 | | Load 0x1,0x13 ; Debug Table 0x4.0x1 = 0xe8,0xfffe
00e9 0322 | " | Declare_Variable Record
00ea 00d8 | | Load_Top At_Offset_0
00eb 1c00 | | Execute_Immediate Run_Utility,0x0
00ec e006 | | Load 0x0,0x6 ; Debug Table 0x4.0x2 = 0xec,0xfffd
00ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ee 067e | ~ | Execute_Immediate Set_Value_Unchecked,0x7e
00ef BODY_00e0:
00ef e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x3 = 0xef,0x1
00f0 00da | | Load_Top At_Offset_2
00f1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f2 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x4 = 0xf2,0x2
00f3 e006 | | Load 0x0,0x6
00f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f5 e5ff | | Load 0x2,-0x1
00f6 e5fe | | Load 0x2,-0x2
00f7 e224 | $ | Load 0x1,0x24
00f8 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00f9 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00fa e003 | | Load 0x0,0x3
00fb 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00fc 180f | | Execute Package,Field_Execute,Field_Number 0xf
00fd 005a | Z | Store_Top Discrete,At_Offset_2
00fe 00d1 | | Pop_Control Pop_Count_1
00ff 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x5 = 0xff,0x3
0100 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0101 680b |h | Jump_Zero 0x10d
0102 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x6 = 0x102,0x4
0103 00da | | Load_Top At_Offset_2
0104 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0105 00db | | Load_Top At_Offset_3
0106 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0107 01cf | | Execute Vector,Slice_Read
0108 e5fe | | Load 0x2,-0x2
0109 e003 | | Load 0x0,0x3
010a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
010b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
010c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
010d 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x7 = 0x10d,0x5
010e 4801 |H | Short_Literal 0x1
010f 4822 |H" | Short_Literal 0x22
0110 0092 031a | | Action Push_String_Extended,0x31a ; "looking for an automatic correction to \x22"
0112 e402 | | Load 0x2,0x2
0113 01cc | | Execute Vector,Catenate
0114 01cb | | Execute Vector,Append
0115 00db | | Load_Top At_Offset_3
0116 e005 | | Load 0x0,0x5
0117 180e | | Execute Package,Field_Execute,Field_Number 0xe
0118 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x8 = 0x118,0x6
0119 e006 | | Load 0x0,0x6
011a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011b e5ff | | Load 0x2,-0x1
011c e5fe | | Load 0x2,-0x2
011d e21e | | Load 0x1,0x1e
011e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
011f 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0120 e003 | | Load 0x0,0x3
0121 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0122 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0123 005a | Z | Store_Top Discrete,At_Offset_2
0124 00d1 | | Pop_Control Pop_Count_1
0125 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x9 = 0x125,0x7
0126 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0127 680b |h | Jump_Zero 0x133
0128 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0xa = 0x128,0x8
0129 00da | | Load_Top At_Offset_2
012a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
012b 00db | | Load_Top At_Offset_3
012c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
012d 01cf | | Execute Vector,Slice_Read
012e e5fe | | Load 0x2,-0x2
012f e003 | | Load 0x0,0x3
0130 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0131 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0132 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0133 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0xb = 0x133,0x9
0134 4801 |H | Short_Literal 0x1
0135 4822 |H" | Short_Literal 0x22
0136 0092 031b | | Action Push_String_Extended,0x31b ; "looking for alternative"
0138 e5fd | | Load 0x2,-0x3
0139 00e0 | | Load_Encached Standard_Cache
013a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
013b 01cc | | Execute Vector,Catenate
013c 0092 031c | | Action Push_String_Extended,0x31c ; " to \x22"
013e 01cc | | Execute Vector,Catenate
013f e402 | | Load 0x2,0x2
0140 01cc | | Execute Vector,Catenate
0141 01cb | | Execute Vector,Append
0142 00db | | Load_Top At_Offset_3
0143 e005 | | Load 0x0,0x5
0144 180e | | Execute Package,Field_Execute,Field_Number 0xe
0145 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0xc = 0x145,0xa
0146 4801 |H | Short_Literal 0x1
0147 4822 |H" | Short_Literal 0x22
0148 0092 031d | | Action Push_String_Extended,0x31d ; "There are only"
014a e403 | | Load 0x2,0x3
014b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
014c 00e0 | | Load_Encached Standard_Cache
014d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
014e 01cc | | Execute Vector,Catenate
014f 0092 031e | | Action Push_String_Extended,0x31e ; " choices for \x22"
0151 01cc | | Execute Vector,Catenate
0152 e402 | | Load 0x2,0x2
0153 01cc | | Execute Vector,Catenate
0154 01cb | | Execute Vector,Append
0155 e005 | | Load 0x0,0x5
0156 180d | | Execute Package,Field_Execute,Field_Number 0xd
0157 4831 |H1 | Short_Literal 0x31
0158 0257 | W | Execute Discrete,Raise
0159 0000 0000 | | .BLANK 0000[0x7]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 016b | k | .CONST 0x016b ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0003 | | .CONST 0x0003 ; Number of locals
0163 INIT_0160:
0163 e006 | | Load 0x0,0x6 ; Debug Table 0x5 = .DEBUG 0x0163,0x04a6,0x0001,0x0000,0x005a,0x6635,0x0000,0x0052
; Debug Table 0x5.0x0 = 0x163,0xffff
0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0165 067e | ~ | Execute_Immediate Set_Value_Unchecked,0x7e
0166 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x1 = 0x166,0xfffe
0167 e5ff | | Load 0x2,-0x1
0168 e003 | | Load 0x0,0x3
0169 1b18 | | Execute Package,Field_Read,Field_Number 0x18
016a 180f | | Execute Package,Field_Execute,Field_Number 0xf
016b BODY_0160:
016b e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x2 = 0x16b,0x1
016c e5fe | | Load 0x2,-0x2
016d e007 | | Load 0x0,0x7
016e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
016f e006 | | Load 0x0,0x6 ; Debug Table 0x5.0x3 = 0x16f,0x2
0170 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0171 e5fd | | Load 0x2,-0x3
0172 e003 | | Load 0x0,0x3
0173 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0174 025b | [ | Execute Discrete,Check_In_Type
0175 e5fe | | Load 0x2,-0x2
0176 e5ff | | Load 0x2,-0x1
0177 e003 | | Load 0x0,0x3
0178 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0179 180d | | Execute Package,Field_Execute,Field_Number 0xd
017a 005a | Z | Store_Top Discrete,At_Offset_2
017b 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x4 = 0x17b,0x3
017c 4801 |H | Short_Literal 0x1
017d 0092 031f | | Action Push_String_Extended,0x31f ; "adding \x22"
017f 00db | | Load_Top At_Offset_3
0180 01cc | | Execute Vector,Catenate
0181 0092 0320 | | Action Push_String_Extended,0x320 ; "\x22 to dictionary"
0183 01cc | | Execute Vector,Catenate
0184 e5fd | | Load 0x2,-0x3
0185 00e0 | | Load_Encached Standard_Cache
0186 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0187 01cc | | Execute Vector,Catenate
0188 e402 | | Load 0x2,0x2
0189 e005 | | Load 0x0,0x5
018a 180e | | Execute Package,Field_Execute,Field_Number 0xe
018b e5fd | | Load 0x2,-0x3 ; Debug Table 0x5.0x5 = 0x18b,0x4
018c e007 | | Load 0x0,0x7
018d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
018e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
018f 0000 | | .XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019b | | .CONST 0x019b ; Address of begin
0191 01ac | | .CONST 0x01ac ; Address of exception handler
0192 0003 | | .CONST 0x0003 ; Number of locals
0193 INIT_0190:
0193 4800 |H | Short_Literal 0x0 ; Debug Table 0x6 = .DEBUG 0x0193,0x04b4,0x0001,0x0000,0x005a,0x6635,0x0000,0x0066
; Debug Table 0x6.0x0 = 0x193,0xffff
0194 e5fe | | Load 0x2,-0x2
0195 e003 | | Load 0x0,0x3
0196 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0197 180f | | Execute Package,Field_Execute,Field_Number 0xf
0198 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x1 = 0x198,0xfffe
0199 1b11 | | Execute Package,Field_Read,Field_Number 0x11
019a 0322 | " | Declare_Variable Record
019b BODY_0190:
019b e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x2 = 0x19b,0x1
019c e001 | | Load 0x0,0x1
019d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
019e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
019f 00d9 | | Load_Top At_Offset_1
01a0 017d | } | Execute Record,Structure_Write
01a1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0x1a1,0x2
01a2 e5fd | | Load 0x2,-0x3
01a3 00db | | Load_Top At_Offset_3
01a4 01db | | Execute Vector,Length
01a5 00e3 | | Load_Encached Natural_Cache
01a6 025b | [ | Execute Discrete,Check_In_Type
01a7 e5ff | | Load 0x2,-0x1
01a8 e001 | | Load 0x0,0x1
01a9 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01ac TRAP_0190:
01ac e001 | | Load 0x0,0x1
01ad 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01ae 010f | | Execute Exception,Equal
01af 7004 |p | Jump_Nonzero 0x1b4
01b0 e001 | | Load 0x0,0x1
01b1 1b15 | | Execute Package,Field_Read,Field_Number 0x15
01b2 010f | | Execute Exception,Equal
01b3 6810 |h | Jump_Zero 0x1c4
01b4 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x4 = 0x1b4,0x3
01b5 4801 |H | Short_Literal 0x1
01b6 4822 |H" | Short_Literal 0x22
01b7 0092 0321 | !| Action Push_String_Extended,0x321 ; "Can't change \x22"
01b9 e402 | | Load 0x2,0x2
01ba 01cc | | Execute Vector,Catenate
01bb 0092 0322 | "| Action Push_String_Extended,0x322 ; "\x22 to \x22"
01bd 01cc | | Execute Vector,Catenate
01be e5fd | | Load 0x2,-0x3
01bf 01cc | | Execute Vector,Catenate
01c0 01cb | | Execute Vector,Append
01c1 e005 | | Load 0x0,0x5
01c2 180d | | Execute Package,Field_Execute,Field_Number 0xd
01c3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01c4 e001 | | Load 0x0,0x1
01c5 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01c6 010f | | Execute Exception,Equal
01c7 6811 |h | Jump_Zero 0x1d9
01c8 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x5 = 0x1c8,0x4
01c9 4801 |H | Short_Literal 0x1
01ca 0092 0321 | !| Action Push_String_Extended,0x321 ; "Can't change \x22"
01cc e402 | | Load 0x2,0x2
01cd 01cc | | Execute Vector,Catenate
01ce 0092 0322 | "| Action Push_String_Extended,0x322 ; "\x22 to \x22"
01d0 01cc | | Execute Vector,Catenate
01d1 e5fd | | Load 0x2,-0x3
01d2 01cc | | Execute Vector,Catenate
01d3 0092 0323 | #| Action Push_String_Extended,0x323 ; "\x22 in a protected region."
01d5 01cc | | Execute Vector,Catenate
01d6 e005 | | Load 0x0,0x5
01d7 180d | | Execute Package,Field_Execute,Field_Number 0xd
01d8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01d9 e001 | | Load 0x0,0x1
01da 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01db 010f | | Execute Exception,Equal
01dc 6811 |h | Jump_Zero 0x1ee
01dd 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x6 = 0x1dd,0x5
01de 4801 |H | Short_Literal 0x1
01df 0092 0321 | !| Action Push_String_Extended,0x321 ; "Can't change \x22"
01e1 e402 | | Load 0x2,0x2
01e2 01cc | | Execute Vector,Catenate
01e3 0092 0322 | "| Action Push_String_Extended,0x322 ; "\x22 to \x22"
01e5 01cc | | Execute Vector,Catenate
01e6 e5fd | | Load 0x2,-0x3
01e7 01cc | | Execute Vector,Catenate
01e8 0092 0324 | $| Action Push_String_Extended,0x324 ; "\x22 in a read-only image."
01ea 01cc | | Execute Vector,Catenate
01eb e005 | | Load 0x0,0x5
01ec 180d | | Execute Package,Field_Execute,Field_Number 0xd
01ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01ee 0100 | | Execute Exception,Raise
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fb | | .CONST 0x01fb ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0003 | | .CONST 0x0003 ; Number of locals
01f3 INIT_01f0:
01f3 e006 | | Load 0x0,0x6 ; Debug Table 0x7 = .DEBUG 0x01f3,0x04c4,0x0001,0x0000,0x005a,0x6635,0x0000,0x007a
; Debug Table 0x7.0x0 = 0x1f3,0xffff
01f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f5 067e | ~ | Execute_Immediate Set_Value_Unchecked,0x7e
01f6 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x1 = 0x1f6,0xfffe
01f7 e5fe | | Load 0x2,-0x2
01f8 e003 | | Load 0x0,0x3
01f9 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01fa 180f | | Execute Package,Field_Execute,Field_Number 0xf
01fb BODY_01f0:
01fb e5fc | | Load 0x2,-0x4 ; Debug Table 0x7.0x2 = 0x1fb,0x1
01fc e5ff | | Load 0x2,-0x1
01fd e007 | | Load 0x0,0x7
01fe 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ff e006 | | Load 0x0,0x6 ; Debug Table 0x7.0x3 = 0x1ff,0x2
0200 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0201 e5fc | | Load 0x2,-0x4
0202 e003 | | Load 0x0,0x3
0203 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0204 025b | [ | Execute Discrete,Check_In_Type
0205 e5ff | | Load 0x2,-0x1
0206 e5fd | | Load 0x2,-0x3
0207 e5fe | | Load 0x2,-0x2
0208 e003 | | Load 0x0,0x3
0209 1b19 | | Execute Package,Field_Read,Field_Number 0x19
020a 180f | | Execute Package,Field_Execute,Field_Number 0xf
020b 005a | Z | Store_Top Discrete,At_Offset_2
020c 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x4 = 0x20c,0x3
020d 4801 |H | Short_Literal 0x1
020e 0092 0325 | %| Action Push_String_Extended,0x325 ; "adding correction \x22"
0210 00db | | Load_Top At_Offset_3
0211 01cc | | Execute Vector,Catenate
0212 0092 0326 | &| Action Push_String_Extended,0x326 ; "\x22 => \x22"
0214 01cc | | Execute Vector,Catenate
0215 e5fd | | Load 0x2,-0x3
0216 01cc | | Execute Vector,Catenate
0217 0092 0320 | | Action Push_String_Extended,0x320 ; "\x22 to dictionary"
0219 01cc | | Execute Vector,Catenate
021a e5fc | | Load 0x2,-0x4
021b 00e0 | | Load_Encached Standard_Cache
021c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
021d 01cc | | Execute Vector,Catenate
021e e402 | | Load 0x2,0x2
021f e005 | | Load 0x0,0x5
0220 180e | | Execute Package,Field_Execute,Field_Number 0xe
0221 e5fc | | Load 0x2,-0x4 ; Debug Table 0x7.0x5 = 0x221,0x4
0222 e007 | | Load 0x0,0x7
0223 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0224 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0225 0000 0000 | | .XXX[0x3]
0227 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 4608 |F | Jump_Case 0x9 ; Debug Table 0x8 = .DEBUG 0x022b,0x04d2,0x0005,0x0000,0x005a,0x6655,0x0000,0x002a
022c 7808 |x | Jump 0x235 ; case 0x0
022d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
022e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
022f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0230 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0231 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0232 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0233 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
0234 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
0235 4800 |H | Short_Literal 0x0
0236 00db | | Load_Top At_Offset_3
0237 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0238 4800 |H | Short_Literal 0x0
0239 00db | | Load_Top At_Offset_3
023a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
023b 4800 |H | Short_Literal 0x0
023c 00db | | Load_Top At_Offset_3
023d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
023e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
023f 0000 | | .XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 4608 |F | Jump_Case 0x9 ; Debug Table 0x9 = .DEBUG 0x0243,0x04d4,0x0005,0x0000,0x005a,0x6655,0x0000,0x004e
0244 7808 |x | Jump 0x24d ; case 0x0
0245 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0246 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0247 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0248 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0249 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
024a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
024b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
024c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
024d e001 | | Load 0x0,0x1
024e 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
024f 00db | | Load_Top At_Offset_3
0250 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0251 4801 |H | Short_Literal 0x1
0252 00db | | Load_Top At_Offset_3
0253 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0254 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0255 0000 0000 | | .XXX[0x3]
0257 0000 | |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 4800 |H | Short_Literal 0x0 ; Debug Table 0xa = .DEBUG 0x025b,0x04d6,0x0001,0x0000,0x005a,0x6655,0x0000,0x0075
; Debug Table 0xa.0x0 = 0x25b,0x1
025c a5fd | | Store_Unchecked 0x2,-0x3
025d 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x1 = 0x25d,0x2
025e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025f 6807 |h | Jump_Zero 0x267
0260 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x2 = 0x260,0x3
0261 e5fe | | Load 0x2,-0x2
0262 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0263 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x3 = 0x263,0x4
0264 e5fe | | Load 0x2,-0x2
0265 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0266 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0267 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x4 = 0x267,0x5
0268 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0269 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
026a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
026b 00db | | Load_Top At_Offset_3
026c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
026d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
026e 027e | ~ | Execute Discrete,Not_Equal
026f 6803 |h | Jump_Zero 0x273
0270 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x5 = 0x270,0x6
0271 a5fd | | Store_Unchecked 0x2,-0x3
0272 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0273 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x6 = 0x273,0x7
0274 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0275 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0276 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0277 00db | | Load_Top At_Offset_3
0278 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0279 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
027a 027d | } | Execute Discrete,Greater
027b 6803 |h | Jump_Zero 0x27f
027c 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x7 = 0x27c,0x8
027d e5fe | | Load 0x2,-0x2
027e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
027f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00db | | Load_Top At_Offset_3 ; Debug Table 0xb = .DEBUG 0x0283,0x04e8,0x0001,0x0000,0x005a,0x6655,0x0000,0x021a
; Debug Table 0xb.0x0 = 0x283,0x1
0284 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0285 0a01 | | Execute_Immediate Plus,0x1
0286 e5fe | | Load 0x2,-0x2
0287 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0288 00db | | Load_Top At_Offset_3 ; Debug Table 0xb.0x1 = 0x288,0x2
0289 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
028a e5fe | | Load 0x2,-0x2
028b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
028c 027f | | Execute Discrete,Equal
028d 680e |h | Jump_Zero 0x29c
028e 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x2 = 0x28e,0x3
028f 01db | | Execute Vector,Length
0290 e5fe | | Load 0x2,-0x2
0291 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0292 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x3 = 0x292,0x4
0293 4801 |H | Short_Literal 0x1
0294 e5fe | | Load 0x2,-0x2
0295 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0296 e5fe | | Load 0x2,-0x2
0297 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0298 01ce | | Execute Vector,Slice_Write
0299 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0x4 = 0x299,0x5
029a e5fe | | Load 0x2,-0x2
029b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
029c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029d 0000 0000 | | .XXX[0x3]
029f 0000 | |
02a0 0000 0000 | | .LITERAL {0x00000000, 0x005a6655}
02a4 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00db | | Load_Top At_Offset_3 ; Debug Table 0xc = .DEBUG 0x02ab,0x04f4,0x0001,0x0000,0x005a,0x6655,0x0000,0x0265
; Debug Table 0xc.0x0 = 0x2ab,0x1
02ac 01db | | Execute Vector,Length
02ad e5fd | | Load 0x2,-0x3
02ae 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02af 00db | | Load_Top At_Offset_3 ; Debug Table 0xc.0x1 = 0x2af,0x2
02b0 4801 |H | Short_Literal 0x1
02b1 e5fd | | Load 0x2,-0x3
02b2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02b3 e5fd | | Load 0x2,-0x3
02b4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b5 01ce | | Execute Vector,Slice_Write
02b6 4801 |H | Short_Literal 0x1 ; Debug Table 0xc.0x2 = 0x2b6,0x3
02b7 e5fd | | Load 0x2,-0x3
02b8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ba 0000 0000 | | .BLANK 0000[0x6]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02d1 | | .CONST 0x02d1 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0004 | | .CONST 0x0004 ; Number of locals
02c3 INIT_02c0:
02c3 e402 | | Load 0x2,0x2 ; Debug Table 0xd = .DEBUG 0x02c3,0x04fc,0x0004,0x0000,0x005a,0x6655,0x0000,0x01df
; Debug Table 0xd.0x0 = 0x2c3,0xffff
02c4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c5 00e4 | | Load_Encached Positive_Cache
02c6 025b | [ | Execute Discrete,Check_In_Type
02c7 e5ff | | Load 0x2,-0x1
02c8 e001 | | Load 0x0,0x1
02c9 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02ca 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02cb e402 | | Load 0x2,0x2 ; Debug Table 0xd.0x1 = 0x2cb,0xfffe
02cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02cd 00e3 | | Load_Encached Natural_Cache
02ce 03f1 | | Declare_Variable Discrete,With_Value
02cf 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call
02d1 BODY_02c0:
02d1 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0x2 = 0x2d1,0x1
02d2 00db | | Load_Top At_Offset_3
02d3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02d4 027d | } | Execute Discrete,Greater
02d5 6803 |h | Jump_Zero 0x2d9
02d6 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x3 = 0x2d6,0x2
02d7 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02d8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02d9 00cf | | Action Mark_Auxiliary
02da 780b |x | Jump 0x2e6
02db 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x4 = 0x2db,0x4
02dc e602 | | Load 0x3,0x2
02dd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02de 01d7 | | Execute Vector,Field_Read
02df e216 | | Load 0x1,0x16
02e0 01d7 | | Execute Vector,Field_Read
02e1 6807 |h | Jump_Zero 0x2e9
02e2 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x5 = 0x2e2,0x5
02e3 0aff | | Execute_Immediate Plus,-0x1
02e4 005b | [ | Store_Top Discrete,At_Offset_3
02e5 00c9 | | Action Pop_Auxiliary_Loop
02e6 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x6 = 0x2e6,0x3
02e7 0c01 | | Execute_Immediate Greater_Equal,0x1
02e8 77f2 |w | Jump_Nonzero 0x2db
02e9 00ce | | Action Pop_Auxiliary
02ea 8604 | | Call 0x3,0x4 ; Debug Table 0xd.0x7 = 0x2ea,0x6
02eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ec 0000 0000 | | .BLANK 0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02ff | | .CONST 0x02ff ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0003 | | .CONST 0x0003 ; Number of locals
02f3 INIT_02f0:
02f3 e5fc | | Load 0x2,-0x4 ; Debug Table 0xe = .DEBUG 0x02f3,0x050e,0x0004,0x0000,0x005a,0x6655,0x0000,0x01dc
; Debug Table 0xe.0x0 = 0x2f3,0xffff
02f4 e603 | | Load 0x3,0x3
02f5 e602 | | Load 0x3,0x2
02f6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02f7 e003 | | Load 0x0,0x3
02f8 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02f9 180e | | Execute Package,Field_Execute,Field_Number 0xe
02fa 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0x1 = 0x2fa,0xfffe
02fb 00d9 | | Load_Top At_Offset_1
02fc e003 | | Load 0x0,0x3
02fd 1b18 | | Execute Package,Field_Read,Field_Number 0x18
02fe 180f | | Execute Package,Field_Execute,Field_Number 0xf
02ff BODY_02f0:
02ff 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x2 = 0x2ff,0x1
0300 01dd | | Execute Vector,First
0301 e402 | | Load 0x2,0x2
0302 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0303 027e | ~ | Execute Discrete,Not_Equal
0304 680f |h | Jump_Zero 0x314
0305 e001 | | Load 0x0,0x1 ; Debug Table 0xe.0x3 = 0x305,0x2
0306 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0307 0322 | " | Declare_Variable Record
0308 e402 | | Load 0x2,0x2
0309 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
030a 00d9 | | Load_Top At_Offset_1
030b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
030c 00d9 | | Load_Top At_Offset_1
030d 01dd | | Execute Vector,First
030e 00d9 | | Load_Top At_Offset_1
030f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0310 e5ff | | Load 0x2,-0x1
0311 e001 | | Load 0x0,0x1
0312 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0313 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0314 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xe.0x4 = 0x314,0x3
0315 00cb | | Action Pop_Block_With_Result
0316 00cb | | Action Pop_Block_With_Result
0317 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0318 ; --------------------------------------------------------------------------------------
0318 ; STRING TABLE
0318 ; --------------------------------------------------------------------------------------
0318 0020 | | .STRTAB 0x0020->0x0328 ; "Can't find a valid token near the cursor."
0319 0047 | G | .STRTAB 0x0047->0x033c ; "\x22 isn't a valid token."
031a 005b | [ | .STRTAB 0x005b->0x0347 ; "looking for an automatic correction to \x22"
031b 0081 | | .STRTAB 0x0081->0x035b ; "looking for alternative"
031c 0096 | | .STRTAB 0x0096->0x0367 ; " to \x22"
031d 0099 | | .STRTAB 0x0099->0x0369 ; "There are only"
031e 00a5 | | .STRTAB 0x00a5->0x0370 ; " choices for \x22"
031f 00b1 | | .STRTAB 0x00b1->0x0377 ; "adding \x22"
0320 00b7 | | .STRTAB 0x00b7->0x037b ; "\x22 to dictionary"
0321 00c4 | | .STRTAB 0x00c4->0x0383 ; "Can't change \x22"
0322 00d0 | | .STRTAB 0x00d0->0x038a ; "\x22 to \x22"
0323 00d4 | | .STRTAB 0x00d4->0x038d ; "\x22 in a protected region."
0324 00ea | | .STRTAB 0x00ea->0x0399 ; "\x22 in a read-only image."
0325 00ff | | .STRTAB 0x00ff->0x03a4 ; "adding correction \x22"
0326 0110 | | .STRTAB 0x0110->0x03ae ; "\x22 => \x22"
0327 0114 | | .STREND 0x0114->0x03b1
0328 4361 6e27 |Can'| .STRTAB_STRINGS
03b1 0000 0000 | | .BLANK 0000[0x7]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; Debug Table
03b8 ; --------------------------------------------------------------------------------------
03b8 0003 000f | | .CONST 0x0003,0x000f
03ba 000b 0432 | 2| .DEBUG 0x000b,0x0432,0x8000,0x0000,0x005a,0x6635,0x0000,0x0007
03c2 0018 0440 | @| .DEBUG 0x0018,0x0440,0x8000,0x0000,0x005a,0x6655,0x0000,0x0015
03ca 0083 046a | j| .DEBUG 0x0083,0x046a,0x0001,0x0000,0x005a,0x6635,0x0000,0x0008
03d2 00a3 0476 | v| .DEBUG 0x00a3,0x0476,0x0002,0x0000,0x005a,0x6635,0x0000,0x001e
03da 00e3 048a | | .DEBUG 0x00e3,0x048a,0x0002,0x0000,0x005a,0x6635,0x0000,0x003d
03e2 0163 04a6 | c | .DEBUG 0x0163,0x04a6,0x0001,0x0000,0x005a,0x6635,0x0000,0x0052
03ea 0193 04b4 | | .DEBUG 0x0193,0x04b4,0x0001,0x0000,0x005a,0x6635,0x0000,0x0066
03f2 01f3 04c4 | | .DEBUG 0x01f3,0x04c4,0x0001,0x0000,0x005a,0x6635,0x0000,0x007a
03fa 022b 04d2 | + | .DEBUG 0x022b,0x04d2,0x0005,0x0000,0x005a,0x6655,0x0000,0x002a
0402 0243 04d4 | C | .DEBUG 0x0243,0x04d4,0x0005,0x0000,0x005a,0x6655,0x0000,0x004e
040a 025b 04d6 | [ | .DEBUG 0x025b,0x04d6,0x0001,0x0000,0x005a,0x6655,0x0000,0x0075
0412 0283 04e8 | | .DEBUG 0x0283,0x04e8,0x0001,0x0000,0x005a,0x6655,0x0000,0x021a
041a 02ab 04f4 | | .DEBUG 0x02ab,0x04f4,0x0001,0x0000,0x005a,0x6655,0x0000,0x0265
0422 02c3 04fc | | .DEBUG 0x02c3,0x04fc,0x0004,0x0000,0x005a,0x6655,0x0000,0x01df
042a 02f3 050e | | .DEBUG 0x02f3,0x050e,0x0004,0x0000,0x005a,0x6655,0x0000,0x01dc
0432 ; --------------------------------------------------------------------------------------
0432 ; Debug3 Subtable 0x0
0432 ; --------------------------------------------------------------------------------------
0432 0006 0000 | | .DBG3TAB 0x0006,0x0000
0434 000b ffff | | .CONST 0x000b,0xffff
0436 000d fffe | | .CONST 0x000d,0xfffe
0438 000f fffd | | .CONST 0x000f,0xfffd
043a 0011 fffc | | .CONST 0x0011,0xfffc
043c 0013 fffb | | .CONST 0x0013,0xfffb
043e 0015 fffa | | .CONST 0x0015,0xfffa
0440 ; --------------------------------------------------------------------------------------
0440 ; Debug3 Subtable 0x1
0440 ; --------------------------------------------------------------------------------------
0440 0012 0002 | | .DBG3TAB 0x0012,0x0002
0442 0018 ffff | | .CONST 0x0018,0xffff
0444 0019 fffe | | .CONST 0x0019,0xfffe
0446 001a fffd | | .CONST 0x001a,0xfffd
0448 0026 fffc | & | .CONST 0x0026,0xfffc
044a 002d fffb | - | .CONST 0x002d,0xfffb
044c 0033 fffa | 3 | .CONST 0x0033,0xfffa
044e 0040 fff9 | @ | .CONST 0x0040,0xfff9
0450 0042 fff8 | B | .CONST 0x0042,0xfff8
0452 004b fff7 | K | .CONST 0x004b,0xfff7
0454 004d fff6 | M | .CONST 0x004d,0xfff6
0456 004f fff5 | O | .CONST 0x004f,0xfff5
0458 0051 fff4 | Q | .CONST 0x0051,0xfff4
045a 005b fff3 | [ | .CONST 0x005b,0xfff3
045c 005d fff2 | ] | .CONST 0x005d,0xfff2
045e 0067 fff1 | g | .CONST 0x0067,0xfff1
0460 0069 fff0 | i | .CONST 0x0069,0xfff0
0462 006b ffef | k | .CONST 0x006b,0xffef
0464 006d ffee | m | .CONST 0x006d,0xffee
0466 0070 0001 | p | .CONST 0x0070,0x0001
0468 0074 0002 | t | .CONST 0x0074,0x0002
046a ; --------------------------------------------------------------------------------------
046a ; Debug3 Subtable 0x2
046a ; --------------------------------------------------------------------------------------
046a 0001 0004 | | .DBG3TAB 0x0001,0x0004
046c 0083 ffff | | .CONST 0x0083,0xffff
046e 0087 0001 | | .CONST 0x0087,0x0001
0470 0091 0002 | | .CONST 0x0091,0x0002
0472 0095 0003 | | .CONST 0x0095,0x0003
0474 0098 0004 | | .CONST 0x0098,0x0004
0476 ; --------------------------------------------------------------------------------------
0476 ; Debug3 Subtable 0x3
0476 ; --------------------------------------------------------------------------------------
0476 0001 0008 | | .DBG3TAB 0x0001,0x0008
0478 00a3 ffff | | .CONST 0x00a3,0xffff
047a 00ab 0001 | | .CONST 0x00ab,0x0001
047c 00ae 0002 | | .CONST 0x00ae,0x0002
047e 00b3 0003 | | .CONST 0x00b3,0x0003
0480 00b9 0004 | | .CONST 0x00b9,0x0004
0482 00bb 0005 | | .CONST 0x00bb,0x0005
0484 00c9 0006 | | .CONST 0x00c9,0x0006
0486 00cc 0007 | | .CONST 0x00cc,0x0007
0488 00d3 0008 | | .CONST 0x00d3,0x0008
048a ; --------------------------------------------------------------------------------------
048a ; Debug3 Subtable 0x4
048a ; --------------------------------------------------------------------------------------
048a 0003 000a | | .DBG3TAB 0x0003,0x000a
048c 00e3 ffff | | .CONST 0x00e3,0xffff
048e 00e8 fffe | | .CONST 0x00e8,0xfffe
0490 00ec fffd | | .CONST 0x00ec,0xfffd
0492 00ef 0001 | | .CONST 0x00ef,0x0001
0494 00f2 0002 | | .CONST 0x00f2,0x0002
0496 00ff 0003 | | .CONST 0x00ff,0x0003
0498 0102 0004 | | .CONST 0x0102,0x0004
049a 010d 0005 | | .CONST 0x010d,0x0005
049c 0118 0006 | | .CONST 0x0118,0x0006
049e 0125 0007 | % | .CONST 0x0125,0x0007
04a0 0128 0008 | ( | .CONST 0x0128,0x0008
04a2 0133 0009 | 3 | .CONST 0x0133,0x0009
04a4 0145 000a | E | .CONST 0x0145,0x000a
04a6 ; --------------------------------------------------------------------------------------
04a6 ; Debug3 Subtable 0x5
04a6 ; --------------------------------------------------------------------------------------
04a6 0002 0004 | | .DBG3TAB 0x0002,0x0004
04a8 0163 ffff | c | .CONST 0x0163,0xffff
04aa 0166 fffe | f | .CONST 0x0166,0xfffe
04ac 016b 0001 | k | .CONST 0x016b,0x0001
04ae 016f 0002 | o | .CONST 0x016f,0x0002
04b0 017b 0003 | { | .CONST 0x017b,0x0003
04b2 018b 0004 | | .CONST 0x018b,0x0004
04b4 ; --------------------------------------------------------------------------------------
04b4 ; Debug3 Subtable 0x6
04b4 ; --------------------------------------------------------------------------------------
04b4 0002 0005 | | .DBG3TAB 0x0002,0x0005
04b6 0193 ffff | | .CONST 0x0193,0xffff
04b8 0198 fffe | | .CONST 0x0198,0xfffe
04ba 019b 0001 | | .CONST 0x019b,0x0001
04bc 01a1 0002 | | .CONST 0x01a1,0x0002
04be 01b4 0003 | | .CONST 0x01b4,0x0003
04c0 01c8 0004 | | .CONST 0x01c8,0x0004
04c2 01dd 0005 | | .CONST 0x01dd,0x0005
04c4 ; --------------------------------------------------------------------------------------
04c4 ; Debug3 Subtable 0x7
04c4 ; --------------------------------------------------------------------------------------
04c4 0002 0004 | | .DBG3TAB 0x0002,0x0004
04c6 01f3 ffff | | .CONST 0x01f3,0xffff
04c8 01f6 fffe | | .CONST 0x01f6,0xfffe
04ca 01fb 0001 | | .CONST 0x01fb,0x0001
04cc 01ff 0002 | | .CONST 0x01ff,0x0002
04ce 020c 0003 | | .CONST 0x020c,0x0003
04d0 0221 0004 | ! | .CONST 0x0221,0x0004
04d2 ; --------------------------------------------------------------------------------------
04d2 ; Debug3 Subtable 0x8
04d2 ; --------------------------------------------------------------------------------------
04d2 0000 0000 | | .DBG3TAB 0x0000,0x0000
04d4 ; --------------------------------------------------------------------------------------
04d4 ; Debug3 Subtable 0x9
04d4 ; --------------------------------------------------------------------------------------
04d4 0000 0000 | | .DBG3TAB 0x0000,0x0000
04d6 ; --------------------------------------------------------------------------------------
04d6 ; Debug3 Subtable 0xa
04d6 ; --------------------------------------------------------------------------------------
04d6 0000 0008 | | .DBG3TAB 0x0000,0x0008
04d8 025b 0001 | [ | .CONST 0x025b,0x0001
04da 025d 0002 | ] | .CONST 0x025d,0x0002
04dc 0260 0003 | ` | .CONST 0x0260,0x0003
04de 0263 0004 | c | .CONST 0x0263,0x0004
04e0 0267 0005 | g | .CONST 0x0267,0x0005
04e2 0270 0006 | p | .CONST 0x0270,0x0006
04e4 0273 0007 | s | .CONST 0x0273,0x0007
04e6 027c 0008 | | | .CONST 0x027c,0x0008
04e8 ; --------------------------------------------------------------------------------------
04e8 ; Debug3 Subtable 0xb
04e8 ; --------------------------------------------------------------------------------------
04e8 0000 0005 | | .DBG3TAB 0x0000,0x0005
04ea 0283 0001 | | .CONST 0x0283,0x0001
04ec 0288 0002 | | .CONST 0x0288,0x0002
04ee 028e 0003 | | .CONST 0x028e,0x0003
04f0 0292 0004 | | .CONST 0x0292,0x0004
04f2 0299 0005 | | .CONST 0x0299,0x0005
04f4 ; --------------------------------------------------------------------------------------
04f4 ; Debug3 Subtable 0xc
04f4 ; --------------------------------------------------------------------------------------
04f4 0000 0003 | | .DBG3TAB 0x0000,0x0003
04f6 02ab 0001 | | .CONST 0x02ab,0x0001
04f8 02af 0002 | | .CONST 0x02af,0x0002
04fa 02b6 0003 | | .CONST 0x02b6,0x0003
04fc ; --------------------------------------------------------------------------------------
04fc ; Debug3 Subtable 0xd
04fc ; --------------------------------------------------------------------------------------
04fc 0002 0006 | | .DBG3TAB 0x0002,0x0006
04fe 02c3 ffff | | .CONST 0x02c3,0xffff
0500 02cb fffe | | .CONST 0x02cb,0xfffe
0502 02d1 0001 | | .CONST 0x02d1,0x0001
0504 02d6 0002 | | .CONST 0x02d6,0x0002
0506 02db 0004 | | .CONST 0x02db,0x0004
0508 02e2 0005 | | .CONST 0x02e2,0x0005
050a 02e6 0003 | | .CONST 0x02e6,0x0003
050c 02ea 0006 | | .CONST 0x02ea,0x0006
050e ; --------------------------------------------------------------------------------------
050e ; Debug3 Subtable 0xe
050e ; --------------------------------------------------------------------------------------
050e 0002 0003 | | .DBG3TAB 0x0002,0x0003
0510 02f3 ffff | | .CONST 0x02f3,0xffff
0512 02fa fffe | | .CONST 0x02fa,0xfffe
0514 02ff 0001 | | .CONST 0x02ff,0x0001
0516 0305 0002 | | .CONST 0x0305,0x0002
0518 0314 0003 | | .CONST 0x0314,0x0003
051a 0000 0000 | | .BLANK 0000[0xe6]