DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦a1f63b87b⟧

    Length: 3072 (0xc00)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_11cacfe

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

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 0458       | X  |		.CONST	0x0458								; 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 0015       |    |		.CONST	0x0015								; Address of begin
0009 01da       |    |		.CONST	0x01da								; Address of exception handler
000a 0006       |    |		.CONST	0x0006								; Number of locals
000b			INIT_0008:
000b 029f 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Call
000d 029f 02f3  |    |		Declare_Subprogram	INIT_02f0,For_Call
000f 029f 0313  |    |		Declare_Subprogram	INIT_0310,For_Call
0011 029f 0333  |   3|		Declare_Subprogram	INIT_0330,For_Call
0013 029f 035b  |   [|		Declare_Subprogram	INIT_0358,For_Call
0015			BODY_0008:
0015 e5ff       |    |		Load	0x2,-0x1
0016 01db       |    |		Execute	Vector,Length
0017 7002       |p   |		Jump_Nonzero	0x1a
0018 00ea       |    |		Load_Encached	Null_String_Cache
0019 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
001a e5ff       |    |		Load	0x2,-0x1
001b e20f       |    |		Load	0x1,0xf
001c 01df       |    |		Execute	Vector,Equal
001d 6802       |h   |		Jump_Zero	0x20
001e e21e       |    |		Load	0x1,0x1e
001f 0257       | W  |		Execute	Discrete,Raise
0020 e5ff       |    |		Load	0x2,-0x1
0021 e210       |    |		Load	0x1,0x10
0022 01df       |    |		Execute	Vector,Equal
0023 6802       |h   |		Jump_Zero	0x26
0024 e21f       |    |		Load	0x1,0x1f
0025 0257       | W  |		Execute	Discrete,Raise
0026 e5ff       |    |		Load	0x2,-0x1
0027 e211       |    |		Load	0x1,0x11
0028 01df       |    |		Execute	Vector,Equal
0029 6809       |h   |		Jump_Zero	0x33
002a 4801       |H   |		Short_Literal	0x1
002b 4801       |H   |		Short_Literal	0x1
002c 00e9       |    |		Load_Encached	String_Cache
002d 0334       | 4  |		Declare_Variable	Array,With_Constraint
002e 4807       |H   |		Short_Literal	0x7
002f 4801       |H   |		Short_Literal	0x1
0030 00da       |    |		Load_Top	At_Offset_2
0031 01d6       |    |		Execute	Vector,Field_Write
0032 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0033 e5ff       |    |		Load	0x2,-0x1
0034 e212       |    |		Load	0x1,0x12
0035 01df       |    |		Execute	Vector,Equal
0036 6809       |h   |		Jump_Zero	0x40
0037 4801       |H   |		Short_Literal	0x1
0038 4801       |H   |		Short_Literal	0x1
0039 00e9       |    |		Load_Encached	String_Cache
003a 0334       | 4  |		Declare_Variable	Array,With_Constraint
003b 481b       |H   |		Short_Literal	0x1b
003c 4801       |H   |		Short_Literal	0x1
003d 00da       |    |		Load_Top	At_Offset_2
003e 01d6       |    |		Execute	Vector,Field_Write
003f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0040 e5ff       |    |		Load	0x2,-0x1
0041 01db       |    |		Execute	Vector,Length
0042 0f03       |    |		Execute_Immediate	Equal,0x3
0043 6821       |h!  |		Jump_Zero	0x65
0044 e5ff       |    |		Load	0x2,-0x1
0045 01dd       |    |		Execute	Vector,First
0046 e5ff       |    |		Load	0x2,-0x1
0047 01d7       |    |		Execute	Vector,Field_Read
0048 0f27       | '  |		Execute_Immediate	Equal,0x27
0049 681b       |h   |		Jump_Zero	0x65
004a e5ff       |    |		Load	0x2,-0x1
004b 01dc       |    |		Execute	Vector,Last
004c e5ff       |    |		Load	0x2,-0x1
004d 01d7       |    |		Execute	Vector,Field_Read
004e 0f27       | '  |		Execute_Immediate	Equal,0x27
004f 6815       |h   |		Jump_Zero	0x65
0050 e5ff       |    |		Load	0x2,-0x1
0051 01dd       |    |		Execute	Vector,First
0052 0a01       |    |		Execute_Immediate	Plus,0x1
0053 00d8       |    |		Load_Top	At_Offset_0
0054 00e2       |    |		Load_Encached	Integer_Cache
0055 0260       | `  |		Execute	Discrete,In_Type
0056 7001       |p   |		Jump_Nonzero	0x58
0057 0801       |    |		Execute_Immediate	Raise,0x1
0058 e5ff       |    |		Load	0x2,-0x1
0059 01dd       |    |		Execute	Vector,First
005a 0a01       |    |		Execute_Immediate	Plus,0x1
005b 00d8       |    |		Load_Top	At_Offset_0
005c 00e2       |    |		Load_Encached	Integer_Cache
005d 0260       | `  |		Execute	Discrete,In_Type
005e 7001       |p   |		Jump_Nonzero	0x60
005f 0801       |    |		Execute_Immediate	Raise,0x1
0060 e5ff       |    |		Load	0x2,-0x1
0061 01cf       |    |		Execute	Vector,Slice_Read
0062 0335       | 5  |		Declare_Variable	Array,Duplicate
0063 00cd       |    |		Action	Spare6_Action
0064 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0065 e5ff       |    |		Load	0x2,-0x1
0066 0092 0370  |   p|		Action	Push_String_Extended,0x370					; "UP"
0068 01df       |    |		Execute	Vector,Equal
0069 6804       |h   |		Jump_Zero	0x6e
006a 4841       |HA  |		Short_Literal	0x41
006b e5fe       |    |		Load	0x2,-0x2
006c 8403       |    |		Call	0x2,0x3
006d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
006e e5ff       |    |		Load	0x2,-0x1
006f 0092 0371  |   q|		Action	Push_String_Extended,0x371					; "DOWN"
0071 01df       |    |		Execute	Vector,Equal
0072 6804       |h   |		Jump_Zero	0x77
0073 4842       |HB  |		Short_Literal	0x42
0074 e5fe       |    |		Load	0x2,-0x2
0075 8403       |    |		Call	0x2,0x3
0076 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0077 e5ff       |    |		Load	0x2,-0x1
0078 0092 0372  |   r|		Action	Push_String_Extended,0x372					; "RIGHT"
007a 01df       |    |		Execute	Vector,Equal
007b 6804       |h   |		Jump_Zero	0x80
007c 4843       |HC  |		Short_Literal	0x43
007d e5fe       |    |		Load	0x2,-0x2
007e 8403       |    |		Call	0x2,0x3
007f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0080 e5ff       |    |		Load	0x2,-0x1
0081 0092 0373  |   s|		Action	Push_String_Extended,0x373					; "LEFT"
0083 01df       |    |		Execute	Vector,Equal
0084 6804       |h   |		Jump_Zero	0x89
0085 4844       |HD  |		Short_Literal	0x44
0086 e5fe       |    |		Load	0x2,-0x2
0087 8403       |    |		Call	0x2,0x3
0088 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0089 e5ff       |    |		Load	0x2,-0x1
008a 01db       |    |		Execute	Vector,Length
008b 0f03       |    |		Execute_Immediate	Equal,0x3
008c 6817       |h   |		Jump_Zero	0xa4
008d e5ff       |    |		Load	0x2,-0x1
008e 01dd       |    |		Execute	Vector,First
008f e5ff       |    |		Load	0x2,-0x1
0090 01dd       |    |		Execute	Vector,First
0091 0a01       |    |		Execute_Immediate	Plus,0x1
0092 00d8       |    |		Load_Top	At_Offset_0
0093 00e2       |    |		Load_Encached	Integer_Cache
0094 0260       | `  |		Execute	Discrete,In_Type
0095 7001       |p   |		Jump_Nonzero	0x97
0096 0801       |    |		Execute_Immediate	Raise,0x1
0097 e5ff       |    |		Load	0x2,-0x1
0098 01cf       |    |		Execute	Vector,Slice_Read
0099 0092 0374  |   t|		Action	Push_String_Extended,0x374					; "PF"
009b 01df       |    |		Execute	Vector,Equal
009c 6807       |h   |		Jump_Zero	0xa4
009d e5ff       |    |		Load	0x2,-0x1
009e 01dc       |    |		Execute	Vector,Last
009f e5ff       |    |		Load	0x2,-0x1
00a0 01d7       |    |		Execute	Vector,Field_Read
00a1 e5fe       |    |		Load	0x2,-0x2
00a2 8405       |    |		Call	0x2,0x5
00a3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00a4 e5ff       |    |		Load	0x2,-0x1
00a5 01db       |    |		Execute	Vector,Length
00a6 0f02       |    |		Execute_Immediate	Equal,0x2
00a7 6815       |h   |		Jump_Zero	0xbd
00a8 e5ff       |    |		Load	0x2,-0x1
00a9 01dd       |    |		Execute	Vector,First
00aa e5ff       |    |		Load	0x2,-0x1
00ab 01d7       |    |		Execute	Vector,Field_Read
00ac 0f46       | F  |		Execute_Immediate	Equal,0x46
00ad 680f       |h   |		Jump_Zero	0xbd
00ae e5ff       |    |		Load	0x2,-0x1
00af 01dc       |    |		Execute	Vector,Last
00b0 e5ff       |    |		Load	0x2,-0x1
00b1 01d7       |    |		Execute	Vector,Field_Read
00b2 4831       |H1  |		Short_Literal	0x31
00b3 4834       |H4  |		Short_Literal	0x34
00b4 0262       | b  |		Execute	Discrete,In_Range
00b5 6807       |h   |		Jump_Zero	0xbd
00b6 e5ff       |    |		Load	0x2,-0x1
00b7 01dc       |    |		Execute	Vector,Last
00b8 e5ff       |    |		Load	0x2,-0x1
00b9 01d7       |    |		Execute	Vector,Field_Read
00ba e5fe       |    |		Load	0x2,-0x2
00bb 8405       |    |		Call	0x2,0x5
00bc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00bd e5ff       |    |		Load	0x2,-0x1
00be 0092 0375  |   u|		Action	Push_String_Extended,0x375					; "IMAGE"
00c0 01df       |    |		Execute	Vector,Equal
00c1 6804       |h   |		Jump_Zero	0xc6
00c2 4831       |H1  |		Short_Literal	0x31
00c3 e5fe       |    |		Load	0x2,-0x2
00c4 8405       |    |		Call	0x2,0x5
00c5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00c6 e5ff       |    |		Load	0x2,-0x1
00c7 0092 0376  |   v|		Action	Push_String_Extended,0x376					; "LINE"
00c9 01df       |    |		Execute	Vector,Equal
00ca 6804       |h   |		Jump_Zero	0xcf
00cb 4832       |H2  |		Short_Literal	0x32
00cc e5fe       |    |		Load	0x2,-0x2
00cd 8405       |    |		Call	0x2,0x5
00ce 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00cf e5ff       |    |		Load	0x2,-0x1
00d0 0092 0377  |   w|		Action	Push_String_Extended,0x377					; "WORD"
00d2 01df       |    |		Execute	Vector,Equal
00d3 6804       |h   |		Jump_Zero	0xd8
00d4 4833       |H3  |		Short_Literal	0x33
00d5 e5fe       |    |		Load	0x2,-0x2
00d6 8405       |    |		Call	0x2,0x5
00d7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00d8 e5ff       |    |		Load	0x2,-0x1
00d9 0092 0378  |   x|		Action	Push_String_Extended,0x378					; "MARK"
00db 01df       |    |		Execute	Vector,Equal
00dc 6804       |h   |		Jump_Zero	0xe1
00dd 4834       |H4  |		Short_Literal	0x34
00de e5fe       |    |		Load	0x2,-0x2
00df 8405       |    |		Call	0x2,0x5
00e0 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
00e1 e5ff       |    |		Load	0x2,-0x1
00e2 01db       |    |		Execute	Vector,Length
00e3 0f09       |    |		Execute_Immediate	Equal,0x9
00e4 681f       |h   |		Jump_Zero	0x104
00e5 e5ff       |    |		Load	0x2,-0x1
00e6 01dd       |    |		Execute	Vector,First
00e7 e5ff       |    |		Load	0x2,-0x1
00e8 01dd       |    |		Execute	Vector,First
00e9 0a07       |    |		Execute_Immediate	Plus,0x7
00ea 00d8       |    |		Load_Top	At_Offset_0
00eb 00e2       |    |		Load_Encached	Integer_Cache
00ec 0260       | `  |		Execute	Discrete,In_Type
00ed 7001       |p   |		Jump_Nonzero	0xef
00ee 0801       |    |		Execute_Immediate	Raise,0x1
00ef e5ff       |    |		Load	0x2,-0x1
00f0 01cf       |    |		Execute	Vector,Slice_Read
00f1 0092 0379  |   y|		Action	Push_String_Extended,0x379					; "NUMERIC_"
00f3 01df       |    |		Execute	Vector,Equal
00f4 680f       |h   |		Jump_Zero	0x104
00f5 4830       |H0  |		Short_Literal	0x30
00f6 e5ff       |    |		Load	0x2,-0x1
00f7 01dc       |    |		Execute	Vector,Last
00f8 e5ff       |    |		Load	0x2,-0x1
00f9 01d7       |    |		Execute	Vector,Field_Read
00fa 8230       | 0  |		Call	0x1,0x30
00fb 4870       |Hp  |		Short_Literal	0x70
00fc 8231       | 1  |		Call	0x1,0x31
00fd e5ff       |    |		Load	0x2,-0x1
00fe 01dc       |    |		Execute	Vector,Last
00ff e5ff       |    |		Load	0x2,-0x1
0100 01d7       |    |		Execute	Vector,Field_Read
0101 e5fe       |    |		Load	0x2,-0x2
0102 8404       |    |		Call	0x2,0x4
0103 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0104 e5ff       |    |		Load	0x2,-0x1
0105 0092 037a  |   z|		Action	Push_String_Extended,0x37a					; "DASH"
0107 01df       |    |		Execute	Vector,Equal
0108 6805       |h   |		Jump_Zero	0x10e
0109 486d       |Hm  |		Short_Literal	0x6d
010a 482d       |H-  |		Short_Literal	0x2d
010b e5fe       |    |		Load	0x2,-0x2
010c 8404       |    |		Call	0x2,0x4
010d 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
010e e5ff       |    |		Load	0x2,-0x1
010f 0092 037b  |   {|		Action	Push_String_Extended,0x37b					; "NUMERIC_COMMA"
0111 01df       |    |		Execute	Vector,Equal
0112 6805       |h   |		Jump_Zero	0x118
0113 486c       |Hl  |		Short_Literal	0x6c
0114 482c       |H,  |		Short_Literal	0x2c
0115 e5fe       |    |		Load	0x2,-0x2
0116 8404       |    |		Call	0x2,0x4
0117 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0118 e5ff       |    |		Load	0x2,-0x1
0119 0092 037c  |   ||		Action	Push_String_Extended,0x37c					; "ENTER"
011b 01df       |    |		Execute	Vector,Equal
011c 6805       |h   |		Jump_Zero	0x122
011d 484d       |HM  |		Short_Literal	0x4d
011e 480d       |H   |		Short_Literal	0xd
011f e5fe       |    |		Load	0x2,-0x2
0120 8404       |    |		Call	0x2,0x4
0121 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0122 e5ff       |    |		Load	0x2,-0x1
0123 0092 037d  |   }|		Action	Push_String_Extended,0x37d					; "DOT"
0125 01df       |    |		Execute	Vector,Equal
0126 6805       |h   |		Jump_Zero	0x12c
0127 486e       |Hn  |		Short_Literal	0x6e
0128 482e       |H.  |		Short_Literal	0x2e
0129 e5fe       |    |		Load	0x2,-0x2
012a 8404       |    |		Call	0x2,0x4
012b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
012c e5ff       |    |		Load	0x2,-0x1
012d 01db       |    |		Execute	Vector,Length
012e 0c03       |    |		Execute_Immediate	Greater_Equal,0x3
012f 6827       |h'  |		Jump_Zero	0x157
0130 e5ff       |    |		Load	0x2,-0x1
0131 01dd       |    |		Execute	Vector,First
0132 e5ff       |    |		Load	0x2,-0x1
0133 01dd       |    |		Execute	Vector,First
0134 0a01       |    |		Execute_Immediate	Plus,0x1
0135 00d8       |    |		Load_Top	At_Offset_0
0136 00e2       |    |		Load_Encached	Integer_Cache
0137 0260       | `  |		Execute	Discrete,In_Type
0138 7001       |p   |		Jump_Nonzero	0x13a
0139 0801       |    |		Execute_Immediate	Raise,0x1
013a e5ff       |    |		Load	0x2,-0x1
013b 01cf       |    |		Execute	Vector,Slice_Read
013c 0092 037e  |   ~|		Action	Push_String_Extended,0x37e					; "S_"
013e 01df       |    |		Execute	Vector,Equal
013f 6817       |h   |		Jump_Zero	0x157
0140 4801       |H   |		Short_Literal	0x1
0141 4801       |H   |		Short_Literal	0x1
0142 00e9       |    |		Load_Encached	String_Cache
0143 0334       | 4  |		Declare_Variable	Array,With_Constraint
0144 e5ff       |    |		Load	0x2,-0x1
0145 01dd       |    |		Execute	Vector,First
0146 0a02       |    |		Execute_Immediate	Plus,0x2
0147 00d8       |    |		Load_Top	At_Offset_0
0148 00e2       |    |		Load_Encached	Integer_Cache
0149 0260       | `  |		Execute	Discrete,In_Type
014a 7001       |p   |		Jump_Nonzero	0x14c
014b 0801       |    |		Execute_Immediate	Raise,0x1
014c e5ff       |    |		Load	0x2,-0x1
014d 01dc       |    |		Execute	Vector,Last
014e e5ff       |    |		Load	0x2,-0x1
014f 01cf       |    |		Execute	Vector,Slice_Read
0150 8402       |    |		Call	0x2,0x2
0151 e006       |    |		Load	0x0,0x6
0152 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0153 4801       |H   |		Short_Literal	0x1
0154 00da       |    |		Load_Top	At_Offset_2
0155 01d6       |    |		Execute	Vector,Field_Write
0156 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0157 e5ff       |    |		Load	0x2,-0x1
0158 01db       |    |		Execute	Vector,Length
0159 0c03       |    |		Execute_Immediate	Greater_Equal,0x3
015a 6826       |h&  |		Jump_Zero	0x181
015b e5ff       |    |		Load	0x2,-0x1
015c 01dd       |    |		Execute	Vector,First
015d e5ff       |    |		Load	0x2,-0x1
015e 01dd       |    |		Execute	Vector,First
015f 0a01       |    |		Execute_Immediate	Plus,0x1
0160 00d8       |    |		Load_Top	At_Offset_0
0161 00e2       |    |		Load_Encached	Integer_Cache
0162 0260       | `  |		Execute	Discrete,In_Type
0163 7001       |p   |		Jump_Nonzero	0x165
0164 0801       |    |		Execute_Immediate	Raise,0x1
0165 e5ff       |    |		Load	0x2,-0x1
0166 01cf       |    |		Execute	Vector,Slice_Read
0167 0092 037f  |    |		Action	Push_String_Extended,0x37f					; "C_"
0169 01df       |    |		Execute	Vector,Equal
016a 6816       |h   |		Jump_Zero	0x181
016b 4801       |H   |		Short_Literal	0x1
016c 4801       |H   |		Short_Literal	0x1
016d 00e9       |    |		Load_Encached	String_Cache
016e 0334       | 4  |		Declare_Variable	Array,With_Constraint
016f e5ff       |    |		Load	0x2,-0x1
0170 01dd       |    |		Execute	Vector,First
0171 0a02       |    |		Execute_Immediate	Plus,0x2
0172 00d8       |    |		Load_Top	At_Offset_0
0173 00e2       |    |		Load_Encached	Integer_Cache
0174 0260       | `  |		Execute	Discrete,In_Type
0175 7001       |p   |		Jump_Nonzero	0x177
0176 0801       |    |		Execute_Immediate	Raise,0x1
0177 e5ff       |    |		Load	0x2,-0x1
0178 01dc       |    |		Execute	Vector,Last
0179 e5ff       |    |		Load	0x2,-0x1
017a 01cf       |    |		Execute	Vector,Slice_Read
017b 8402       |    |		Call	0x2,0x2
017c 8406       |    |		Call	0x2,0x6
017d 4801       |H   |		Short_Literal	0x1
017e 00da       |    |		Load_Top	At_Offset_2
017f 01d6       |    |		Execute	Vector,Field_Write
0180 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0181 e5ff       |    |		Load	0x2,-0x1
0182 01db       |    |		Execute	Vector,Length
0183 0c04       |    |		Execute_Immediate	Greater_Equal,0x4
0184 6826       |h&  |		Jump_Zero	0x1ab
0185 e5ff       |    |		Load	0x2,-0x1
0186 01dd       |    |		Execute	Vector,First
0187 e5ff       |    |		Load	0x2,-0x1
0188 01dd       |    |		Execute	Vector,First
0189 0a02       |    |		Execute_Immediate	Plus,0x2
018a 00d8       |    |		Load_Top	At_Offset_0
018b 00e2       |    |		Load_Encached	Integer_Cache
018c 0260       | `  |		Execute	Discrete,In_Type
018d 7001       |p   |		Jump_Nonzero	0x18f
018e 0801       |    |		Execute_Immediate	Raise,0x1
018f e5ff       |    |		Load	0x2,-0x1
0190 01cf       |    |		Execute	Vector,Slice_Read
0191 0092 0380  |    |		Action	Push_String_Extended,0x380					; "CS_"
0193 01df       |    |		Execute	Vector,Equal
0194 6816       |h   |		Jump_Zero	0x1ab
0195 4801       |H   |		Short_Literal	0x1
0196 4801       |H   |		Short_Literal	0x1
0197 00e9       |    |		Load_Encached	String_Cache
0198 0334       | 4  |		Declare_Variable	Array,With_Constraint
0199 e5ff       |    |		Load	0x2,-0x1
019a 01dd       |    |		Execute	Vector,First
019b 0a03       |    |		Execute_Immediate	Plus,0x3
019c 00d8       |    |		Load_Top	At_Offset_0
019d 00e2       |    |		Load_Encached	Integer_Cache
019e 0260       | `  |		Execute	Discrete,In_Type
019f 7001       |p   |		Jump_Nonzero	0x1a1
01a0 0801       |    |		Execute_Immediate	Raise,0x1
01a1 e5ff       |    |		Load	0x2,-0x1
01a2 01dc       |    |		Execute	Vector,Last
01a3 e5ff       |    |		Load	0x2,-0x1
01a4 01cf       |    |		Execute	Vector,Slice_Read
01a5 8402       |    |		Call	0x2,0x2
01a6 8406       |    |		Call	0x2,0x6
01a7 4801       |H   |		Short_Literal	0x1
01a8 00da       |    |		Load_Top	At_Offset_2
01a9 01d6       |    |		Execute	Vector,Field_Write
01aa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ab e5ff       |    |		Load	0x2,-0x1
01ac 01db       |    |		Execute	Vector,Length
01ad 0c05       |    |		Execute_Immediate	Greater_Equal,0x5
01ae 6821       |h!  |		Jump_Zero	0x1d0
01af e5ff       |    |		Load	0x2,-0x1
01b0 01dd       |    |		Execute	Vector,First
01b1 e5ff       |    |		Load	0x2,-0x1
01b2 01dd       |    |		Execute	Vector,First
01b3 0a03       |    |		Execute_Immediate	Plus,0x3
01b4 00d8       |    |		Load_Top	At_Offset_0
01b5 00e2       |    |		Load_Encached	Integer_Cache
01b6 0260       | `  |		Execute	Discrete,In_Type
01b7 7001       |p   |		Jump_Nonzero	0x1b9
01b8 0801       |    |		Execute_Immediate	Raise,0x1
01b9 e5ff       |    |		Load	0x2,-0x1
01ba 01cf       |    |		Execute	Vector,Slice_Read
01bb 0092 0381  |    |		Action	Push_String_Extended,0x381					; "ESC_"
01bd 01df       |    |		Execute	Vector,Equal
01be 6811       |h   |		Jump_Zero	0x1d0
01bf 481b       |H   |		Short_Literal	0x1b
01c0 e5fe       |    |		Load	0x2,-0x2
01c1 e5ff       |    |		Load	0x2,-0x1
01c2 01dd       |    |		Execute	Vector,First
01c3 0a04       |    |		Execute_Immediate	Plus,0x4
01c4 00d8       |    |		Load_Top	At_Offset_0
01c5 00e2       |    |		Load_Encached	Integer_Cache
01c6 0260       | `  |		Execute	Discrete,In_Type
01c7 7001       |p   |		Jump_Nonzero	0x1c9
01c8 0801       |    |		Execute_Immediate	Raise,0x1
01c9 e5ff       |    |		Load	0x2,-0x1
01ca 01dc       |    |		Execute	Vector,Last
01cb e5ff       |    |		Load	0x2,-0x1
01cc 01cf       |    |		Execute	Vector,Slice_Read
01cd 822d       | -  |		Call	0x1,0x2d
01ce 01ca       |    |		Execute	Vector,Prepend
01cf 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01d0 4801       |H   |		Short_Literal	0x1
01d1 4801       |H   |		Short_Literal	0x1
01d2 00e9       |    |		Load_Encached	String_Cache
01d3 0334       | 4  |		Declare_Variable	Array,With_Constraint
01d4 e5ff       |    |		Load	0x2,-0x1
01d5 8402       |    |		Call	0x2,0x2
01d6 4801       |H   |		Short_Literal	0x1
01d7 00da       |    |		Load_Top	At_Offset_2
01d8 01d6       |    |		Execute	Vector,Field_Write
01d9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01da			TRAP_0008:
01da e007       |    |		Load	0x0,0x7
01db 010f       |    |		Execute	Exception,Equal
01dc 6802       |h   |		Jump_Zero	0x1df
01dd 00ea       |    |		Load_Encached	Null_String_Cache
01de 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01df 0100       |    |		Execute	Exception,Raise
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00da       |    |		Load_Top	At_Offset_2
01e4 01db       |    |		Execute	Vector,Length
01e5 0f01       |    |		Execute_Immediate	Equal,0x1
01e6 6805       |h   |		Jump_Zero	0x1ec
01e7 00da       |    |		Load_Top	At_Offset_2
01e8 01dd       |    |		Execute	Vector,First
01e9 00db       |    |		Load_Top	At_Offset_3
01ea 01d7       |    |		Execute	Vector,Field_Read
01eb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01ec 00da       |    |		Load_Top	At_Offset_2
01ed 0092 0382  |    |		Action	Push_String_Extended,0x382					; "NUL"
01ef 01df       |    |		Execute	Vector,Equal
01f0 6802       |h   |		Jump_Zero	0x1f3
01f1 4800       |H   |		Short_Literal	0x0
01f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01f3 00da       |    |		Load_Top	At_Offset_2
01f4 0092 0383  |    |		Action	Push_String_Extended,0x383					; "CARRIAGE_RETURN"
01f6 01df       |    |		Execute	Vector,Equal
01f7 6802       |h   |		Jump_Zero	0x1fa
01f8 480d       |H   |		Short_Literal	0xd
01f9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01fa 00da       |    |		Load_Top	At_Offset_2
01fb 0092 0384  |    |		Action	Push_String_Extended,0x384					; "SPACE"
01fd 01df       |    |		Execute	Vector,Equal
01fe 6802       |h   |		Jump_Zero	0x201
01ff 4820       |H   |		Short_Literal	0x20
0200 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0201 00da       |    |		Load_Top	At_Offset_2
0202 0092 0385  |    |		Action	Push_String_Extended,0x385					; "EXCLAM"
0204 01df       |    |		Execute	Vector,Equal
0205 6802       |h   |		Jump_Zero	0x208
0206 4821       |H!  |		Short_Literal	0x21
0207 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0208 00da       |    |		Load_Top	At_Offset_2
0209 0092 0386  |    |		Action	Push_String_Extended,0x386					; "AT_SIGN"
020b 01df       |    |		Execute	Vector,Equal
020c 6802       |h   |		Jump_Zero	0x20f
020d 4840       |H@  |		Short_Literal	0x40
020e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
020f 00da       |    |		Load_Top	At_Offset_2
0210 0092 0387  |    |		Action	Push_String_Extended,0x387					; "LEFT_BRACKET"
0212 01df       |    |		Execute	Vector,Equal
0213 6802       |h   |		Jump_Zero	0x216
0214 485b       |H[  |		Short_Literal	0x5b
0215 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0216 00da       |    |		Load_Top	At_Offset_2
0217 0092 0388  |    |		Action	Push_String_Extended,0x388					; "BACKSLASH"
0219 01df       |    |		Execute	Vector,Equal
021a 6802       |h   |		Jump_Zero	0x21d
021b 485c       |H\  |		Short_Literal	0x5c
021c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
021d 00da       |    |		Load_Top	At_Offset_2
021e 0092 0389  |    |		Action	Push_String_Extended,0x389					; "RIGHT_BRACKET"
0220 01df       |    |		Execute	Vector,Equal
0221 6802       |h   |		Jump_Zero	0x224
0222 485d       |H]  |		Short_Literal	0x5d
0223 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0224 00da       |    |		Load_Top	At_Offset_2
0225 0092 038a  |    |		Action	Push_String_Extended,0x38a					; "CIRCUMFLEX"
0227 01df       |    |		Execute	Vector,Equal
0228 6802       |h   |		Jump_Zero	0x22b
0229 485e       |H^  |		Short_Literal	0x5e
022a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
022b 00da       |    |		Load_Top	At_Offset_2
022c 0092 038b  |    |		Action	Push_String_Extended,0x38b					; "UNDERLINE"
022e 01df       |    |		Execute	Vector,Equal
022f 6802       |h   |		Jump_Zero	0x232
0230 485f       |H_  |		Short_Literal	0x5f
0231 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0232 00da       |    |		Load_Top	At_Offset_2
0233 0092 038c  |    |		Action	Push_String_Extended,0x38c					; "GRAVE"
0235 01df       |    |		Execute	Vector,Equal
0236 6802       |h   |		Jump_Zero	0x239
0237 4860       |H`  |		Short_Literal	0x60
0238 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0239 00da       |    |		Load_Top	At_Offset_2
023a 0092 038d  |    |		Action	Push_String_Extended,0x38d					; "QUOTATION"
023c 01df       |    |		Execute	Vector,Equal
023d 6802       |h   |		Jump_Zero	0x240
023e 4822       |H"  |		Short_Literal	0x22
023f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0240 00da       |    |		Load_Top	At_Offset_2
0241 0092 038e  |    |		Action	Push_String_Extended,0x38e					; "SHARP"
0243 01df       |    |		Execute	Vector,Equal
0244 6802       |h   |		Jump_Zero	0x247
0245 4823       |H#  |		Short_Literal	0x23
0246 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0247 00da       |    |		Load_Top	At_Offset_2
0248 0092 038f  |    |		Action	Push_String_Extended,0x38f					; "DOLLAR"
024a 01df       |    |		Execute	Vector,Equal
024b 6802       |h   |		Jump_Zero	0x24e
024c 4824       |H$  |		Short_Literal	0x24
024d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
024e 00da       |    |		Load_Top	At_Offset_2
024f 0092 0390  |    |		Action	Push_String_Extended,0x390					; "PERCENT"
0251 01df       |    |		Execute	Vector,Equal
0252 6802       |h   |		Jump_Zero	0x255
0253 4825       |H%  |		Short_Literal	0x25
0254 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0255 00da       |    |		Load_Top	At_Offset_2
0256 0092 0391  |    |		Action	Push_String_Extended,0x391					; "AMPERSAND"
0258 01df       |    |		Execute	Vector,Equal
0259 6802       |h   |		Jump_Zero	0x25c
025a 4826       |H&  |		Short_Literal	0x26
025b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
025c 00da       |    |		Load_Top	At_Offset_2
025d 0092 0392  |    |		Action	Push_String_Extended,0x392					; "TICK"
025f 01df       |    |		Execute	Vector,Equal
0260 6802       |h   |		Jump_Zero	0x263
0261 4827       |H'  |		Short_Literal	0x27
0262 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0263 00da       |    |		Load_Top	At_Offset_2
0264 0092 0393  |    |		Action	Push_String_Extended,0x393					; "LEFT_PAREN"
0266 01df       |    |		Execute	Vector,Equal
0267 6802       |h   |		Jump_Zero	0x26a
0268 4828       |H(  |		Short_Literal	0x28
0269 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
026a 00da       |    |		Load_Top	At_Offset_2
026b 0092 0394  |    |		Action	Push_String_Extended,0x394					; "RIGHT_PAREN"
026d 01df       |    |		Execute	Vector,Equal
026e 6802       |h   |		Jump_Zero	0x271
026f 4829       |H)  |		Short_Literal	0x29
0270 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0271 00da       |    |		Load_Top	At_Offset_2
0272 0092 0395  |    |		Action	Push_String_Extended,0x395					; "STAR"
0274 01df       |    |		Execute	Vector,Equal
0275 6802       |h   |		Jump_Zero	0x278
0276 482a       |H*  |		Short_Literal	0x2a
0277 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0278 00da       |    |		Load_Top	At_Offset_2
0279 0092 0396  |    |		Action	Push_String_Extended,0x396					; "PLUS"
027b 01df       |    |		Execute	Vector,Equal
027c 6802       |h   |		Jump_Zero	0x27f
027d 482b       |H+  |		Short_Literal	0x2b
027e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
027f 00da       |    |		Load_Top	At_Offset_2
0280 0092 0397  |    |		Action	Push_String_Extended,0x397					; "COMMA"
0282 01df       |    |		Execute	Vector,Equal
0283 6802       |h   |		Jump_Zero	0x286
0284 482c       |H,  |		Short_Literal	0x2c
0285 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0286 00da       |    |		Load_Top	At_Offset_2
0287 0092 0398  |    |		Action	Push_String_Extended,0x398					; "MINUS"
0289 01df       |    |		Execute	Vector,Equal
028a 6802       |h   |		Jump_Zero	0x28d
028b 482d       |H-  |		Short_Literal	0x2d
028c 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
028d 00da       |    |		Load_Top	At_Offset_2
028e 0092 0399  |    |		Action	Push_String_Extended,0x399					; "PERIOD"
0290 01df       |    |		Execute	Vector,Equal
0291 6802       |h   |		Jump_Zero	0x294
0292 482e       |H.  |		Short_Literal	0x2e
0293 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0294 00da       |    |		Load_Top	At_Offset_2
0295 0092 039a  |    |		Action	Push_String_Extended,0x39a					; "SLASH"
0297 01df       |    |		Execute	Vector,Equal
0298 6802       |h   |		Jump_Zero	0x29b
0299 482f       |H/  |		Short_Literal	0x2f
029a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
029b 00da       |    |		Load_Top	At_Offset_2
029c 0092 039b  |    |		Action	Push_String_Extended,0x39b					; "COLON"
029e 01df       |    |		Execute	Vector,Equal
029f 6802       |h   |		Jump_Zero	0x2a2
02a0 483a       |H:  |		Short_Literal	0x3a
02a1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a2 00da       |    |		Load_Top	At_Offset_2
02a3 0092 039c  |    |		Action	Push_String_Extended,0x39c					; "SEMICOLON"
02a5 01df       |    |		Execute	Vector,Equal
02a6 6802       |h   |		Jump_Zero	0x2a9
02a7 483b       |H;  |		Short_Literal	0x3b
02a8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02a9 00da       |    |		Load_Top	At_Offset_2
02aa 0092 039d  |    |		Action	Push_String_Extended,0x39d					; "LESS_THAN"
02ac 01df       |    |		Execute	Vector,Equal
02ad 6802       |h   |		Jump_Zero	0x2b0
02ae 483c       |H<  |		Short_Literal	0x3c
02af 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b0 00da       |    |		Load_Top	At_Offset_2
02b1 0092 039e  |    |		Action	Push_String_Extended,0x39e					; "EQUAL"
02b3 01df       |    |		Execute	Vector,Equal
02b4 6802       |h   |		Jump_Zero	0x2b7
02b5 483d       |H=  |		Short_Literal	0x3d
02b6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02b7 00da       |    |		Load_Top	At_Offset_2
02b8 0092 039f  |    |		Action	Push_String_Extended,0x39f					; "GREATER_THAN"
02ba 01df       |    |		Execute	Vector,Equal
02bb 6802       |h   |		Jump_Zero	0x2be
02bc 483e       |H>  |		Short_Literal	0x3e
02bd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02be 00da       |    |		Load_Top	At_Offset_2
02bf 0092 03a0  |    |		Action	Push_String_Extended,0x3a0					; "QUERY"
02c1 01df       |    |		Execute	Vector,Equal
02c2 6802       |h   |		Jump_Zero	0x2c5
02c3 483f       |H?  |		Short_Literal	0x3f
02c4 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c5 00da       |    |		Load_Top	At_Offset_2
02c6 0092 03a1  |    |		Action	Push_String_Extended,0x3a1					; "LEFT_BRACE"
02c8 01df       |    |		Execute	Vector,Equal
02c9 6802       |h   |		Jump_Zero	0x2cc
02ca 487b       |H{  |		Short_Literal	0x7b
02cb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02cc 00da       |    |		Load_Top	At_Offset_2
02cd 0092 03a2  |    |		Action	Push_String_Extended,0x3a2					; "BAR"
02cf 01df       |    |		Execute	Vector,Equal
02d0 6802       |h   |		Jump_Zero	0x2d3
02d1 487c       |H|  |		Short_Literal	0x7c
02d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02d3 00da       |    |		Load_Top	At_Offset_2
02d4 0092 03a3  |    |		Action	Push_String_Extended,0x3a3					; "RIGHT_BRACE"
02d6 01df       |    |		Execute	Vector,Equal
02d7 6802       |h   |		Jump_Zero	0x2da
02d8 487d       |H}  |		Short_Literal	0x7d
02d9 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02da 00da       |    |		Load_Top	At_Offset_2
02db 0092 03a4  |    |		Action	Push_String_Extended,0x3a4					; "TILDE"
02dd 01df       |    |		Execute	Vector,Equal
02de 6802       |h   |		Jump_Zero	0x2e1
02df 487e       |H~  |		Short_Literal	0x7e
02e0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e1 00da       |    |		Load_Top	At_Offset_2
02e2 0092 03a5  |    |		Action	Push_String_Extended,0x3a5					; "DELETE"
02e4 01df       |    |		Execute	Vector,Equal
02e5 6802       |h   |		Jump_Zero	0x2e8
02e6 487f       |H   |		Short_Literal	0x7f
02e7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e8 e007       |    |		Load	0x0,0x7
02e9 0257       | W  |		Execute	Discrete,Raise
02ea 0000 0000  |    |		.BLANK	0000[0x6]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3       |    |		.CONST	0x02f3								; Address of begin
02f1 0004       |    |		.CONST	0x0004								; Address of exception handler
02f2 0001       |    |		.CONST	0x0001								; Number of locals
02f3			BODY_02f0:
02f3			INIT_02f0:
02f3 00da       |    |		Load_Top	At_Offset_2
02f4 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
02f5 680d       |h   |		Jump_Zero	0x303
02f6 4801       |H   |		Short_Literal	0x1
02f7 4802       |H   |		Short_Literal	0x2
02f8 00e9       |    |		Load_Encached	String_Cache
02f9 0334       | 4  |		Declare_Variable	Array,With_Constraint
02fa 481b       |H   |		Short_Literal	0x1b
02fb 4801       |H   |		Short_Literal	0x1
02fc 00da       |    |		Load_Top	At_Offset_2
02fd 01d6       |    |		Execute	Vector,Field_Write
02fe e7fe       |    |		Load	0x3,-0x2
02ff 4802       |H   |		Short_Literal	0x2
0300 00da       |    |		Load_Top	At_Offset_2
0301 01d6       |    |		Execute	Vector,Field_Write
0302 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0303 00da       |    |		Load_Top	At_Offset_2
0304 2c09       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
0305 6804       |h   |		Jump_Zero	0x30a
0306 00db       |    |		Load_Top	At_Offset_3
0307 e22c       | ,  |		Load	0x1,0x2c
0308 01cb       |    |		Execute	Vector,Append
0309 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
030a 00db       |    |		Load_Top	At_Offset_3
030b 0092 03a6  |    |		Action	Push_String_Extended,0x3a6					; "\x1b["
030d 01cb       |    |		Execute	Vector,Append
030e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
030f 0000       |    |		.XXX[0x1]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313       |    |		.CONST	0x0313								; Address of begin
0311 0004       |    |		.CONST	0x0004								; Address of exception handler
0312 0001       |    |		.CONST	0x0001								; Number of locals
0313			BODY_0310:
0313			INIT_0310:
0313 00da       |    |		Load_Top	At_Offset_2
0314 2c0a       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa
0315 0f01       |    |		Execute_Immediate	Equal,0x1
0316 700a       |p   |		Jump_Nonzero	0x321
0317 7800       |x   |		Jump	0x318
0318 4801       |H   |		Short_Literal	0x1
0319 4801       |H   |		Short_Literal	0x1
031a 00e9       |    |		Load_Encached	String_Cache
031b 0334       | 4  |		Declare_Variable	Array,With_Constraint
031c e7fe       |    |		Load	0x3,-0x2
031d 4801       |H   |		Short_Literal	0x1
031e 00da       |    |		Load_Top	At_Offset_2
031f 01d6       |    |		Execute	Vector,Field_Write
0320 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0321 00da       |    |		Load_Top	At_Offset_2
0322 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0323 6805       |h   |		Jump_Zero	0x329
0324 e7fd       |    |		Load	0x3,-0x3
0325 0092 03a7  |    |		Action	Push_String_Extended,0x3a7					; "\x1b?"
0327 01cb       |    |		Execute	Vector,Append
0328 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0329 e7fd       |    |		Load	0x3,-0x3
032a e22c       | ,  |		Load	0x1,0x2c
032b 01cb       |    |		Execute	Vector,Append
032c 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
032d 0000 0000  |    |		.XXX[0x3]
032f 0000       |    |
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333       | 3  |		.CONST	0x0333								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0001       |    |		.CONST	0x0001								; Number of locals
0333			BODY_0330:
0333			INIT_0330:
0333 00da       |    |		Load_Top	At_Offset_2
0334 2c06       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0335 6813       |h   |		Jump_Zero	0x349
0336 4831       |H1  |		Short_Literal	0x31
0337 e7fe       |    |		Load	0x3,-0x2
0338 8230       | 0  |		Call	0x1,0x30
0339 4850       |HP  |		Short_Literal	0x50
033a 8231       | 1  |		Call	0x1,0x31
033b 4801       |H   |		Short_Literal	0x1
033c 4802       |H   |		Short_Literal	0x2
033d 00e9       |    |		Load_Encached	String_Cache
033e 0334       | 4  |		Declare_Variable	Array,With_Constraint
033f 481b       |H   |		Short_Literal	0x1b
0340 4801       |H   |		Short_Literal	0x1
0341 00da       |    |		Load_Top	At_Offset_2
0342 01d6       |    |		Execute	Vector,Field_Write
0343 00d9       |    |		Load_Top	At_Offset_1
0344 4802       |H   |		Short_Literal	0x2
0345 00da       |    |		Load_Top	At_Offset_2
0346 01d6       |    |		Execute	Vector,Field_Write
0347 00cd       |    |		Action	Spare6_Action
0348 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0349 4831       |H1  |		Short_Literal	0x31
034a e7fe       |    |		Load	0x3,-0x2
034b 8230       | 0  |		Call	0x1,0x30
034c 4850       |HP  |		Short_Literal	0x50
034d 8231       | 1  |		Call	0x1,0x31
034e e22c       | ,  |		Load	0x1,0x2c
034f 01cb       |    |		Execute	Vector,Append
0350 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0351 0000 0000  |    |		.BLANK	0000[0x7]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b       | [  |		.CONST	0x035b								; Address of begin
0359 0004       |    |		.CONST	0x0004								; Address of exception handler
035a 0001       |    |		.CONST	0x0001								; Number of locals
035b			BODY_0358:
035b			INIT_0358:
035b 00da       |    |		Load_Top	At_Offset_2
035c 00d8       |    |		Load_Top	At_Offset_0
035d 4840       |H@  |		Short_Literal	0x40
035e 485f       |H_  |		Short_Literal	0x5f
035f 0262       | b  |		Execute	Discrete,In_Range
0360 7004       |p   |		Jump_Nonzero	0x365
0361 0f3f       | ?  |		Execute_Immediate	Equal,0x3f
0362 700b       |p   |		Jump_Nonzero	0x36e
0363 00da       |    |		Load_Top	At_Offset_2
0364 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0365 00d1       |    |		Pop_Control	Pop_Count_1
0366 00da       |    |		Load_Top	At_Offset_2
0367 0ac0       |    |		Execute_Immediate	Plus,-0x40
0368 00d8       |    |		Load_Top	At_Offset_0
0369 00e8       |    |		Load_Encached	Character_Cache
036a 0260       | `  |		Execute	Discrete,In_Type
036b 7001       |p   |		Jump_Nonzero	0x36d
036c 0801       |    |		Execute_Immediate	Raise,0x1
036d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
036e 487f       |H   |		Short_Literal	0x7f
036f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0370 ; --------------------------------------------------------------------------------------
0370 ; STRING TABLE
0370 ; --------------------------------------------------------------------------------------
0370 0072       | r  |		.STRTAB	0x0072->0x03a9							; "UP"
0371 0072       | r  |		.STRTAB	0x0072->0x03aa							; "DOWN"
0372 0074       | t  |		.STRTAB	0x0074->0x03ac							; "RIGHT"
0373 0077       | w  |		.STRTAB	0x0077->0x03ae							; "LEFT"
0374 0079       | y  |		.STRTAB	0x0079->0x03b0							; "PF"
0375 0079       | y  |		.STRTAB	0x0079->0x03b1							; "IMAGE"
0376 007c       | |  |		.STRTAB	0x007c->0x03b4							; "LINE"
0377 007e       | ~  |		.STRTAB	0x007e->0x03b6							; "WORD"
0378 0080       |    |		.STRTAB	0x0080->0x03b8							; "MARK"
0379 0082       |    |		.STRTAB	0x0082->0x03ba							; "NUMERIC_"
037a 0088       |    |		.STRTAB	0x0088->0x03be							; "DASH"
037b 008a       |    |		.STRTAB	0x008a->0x03c0							; "NUMERIC_COMMA"
037c 0095       |    |		.STRTAB	0x0095->0x03c6							; "ENTER"
037d 0098       |    |		.STRTAB	0x0098->0x03c9							; "DOT"
037e 0099       |    |		.STRTAB	0x0099->0x03ca							; "S_"
037f 0099       |    |		.STRTAB	0x0099->0x03cb							; "C_"
0380 0099       |    |		.STRTAB	0x0099->0x03cc							; "CS_"
0381 009a       |    |		.STRTAB	0x009a->0x03ce							; "ESC_"
0382 009c       |    |		.STRTAB	0x009c->0x03d0							; "NUL"
0383 009d       |    |		.STRTAB	0x009d->0x03d1							; "CARRIAGE_RETURN"
0384 00aa       |    |		.STRTAB	0x00aa->0x03d9							; "SPACE"
0385 00ad       |    |		.STRTAB	0x00ad->0x03db							; "EXCLAM"
0386 00b1       |    |		.STRTAB	0x00b1->0x03de							; "AT_SIGN"
0387 00b6       |    |		.STRTAB	0x00b6->0x03e2							; "LEFT_BRACKET"
0388 00c0       |    |		.STRTAB	0x00c0->0x03e8							; "BACKSLASH"
0389 00c7       |    |		.STRTAB	0x00c7->0x03ec							; "RIGHT_BRACKET"
038a 00d2       |    |		.STRTAB	0x00d2->0x03f3							; "CIRCUMFLEX"
038b 00da       |    |		.STRTAB	0x00da->0x03f8							; "UNDERLINE"
038c 00e1       |    |		.STRTAB	0x00e1->0x03fc							; "GRAVE"
038d 00e4       |    |		.STRTAB	0x00e4->0x03ff							; "QUOTATION"
038e 00eb       |    |		.STRTAB	0x00eb->0x0403							; "SHARP"
038f 00ee       |    |		.STRTAB	0x00ee->0x0406							; "DOLLAR"
0390 00f2       |    |		.STRTAB	0x00f2->0x0409							; "PERCENT"
0391 00f7       |    |		.STRTAB	0x00f7->0x040c							; "AMPERSAND"
0392 00fe       |    |		.STRTAB	0x00fe->0x0411							; "TICK"
0393 0100       |    |		.STRTAB	0x0100->0x0413							; "LEFT_PAREN"
0394 0108       |    |		.STRTAB	0x0108->0x0418							; "RIGHT_PAREN"
0395 0111       |    |		.STRTAB	0x0111->0x041d							; "STAR"
0396 0113       |    |		.STRTAB	0x0113->0x041f							; "PLUS"
0397 0115       |    |		.STRTAB	0x0115->0x0421							; "COMMA"
0398 0118       |    |		.STRTAB	0x0118->0x0424							; "MINUS"
0399 011b       |    |		.STRTAB	0x011b->0x0426							; "PERIOD"
039a 011f       |    |		.STRTAB	0x011f->0x0429							; "SLASH"
039b 0122       | "  |		.STRTAB	0x0122->0x042c							; "COLON"
039c 0125       | %  |		.STRTAB	0x0125->0x042e							; "SEMICOLON"
039d 012c       | ,  |		.STRTAB	0x012c->0x0433							; "LESS_THAN"
039e 0133       | 3  |		.STRTAB	0x0133->0x0437							; "EQUAL"
039f 0136       | 6  |		.STRTAB	0x0136->0x043a							; "GREATER_THAN"
03a0 0140       | @  |		.STRTAB	0x0140->0x0440							; "QUERY"
03a1 0143       | C  |		.STRTAB	0x0143->0x0442							; "LEFT_BRACE"
03a2 014b       | K  |		.STRTAB	0x014b->0x0447							; "BAR"
03a3 014c       | L  |		.STRTAB	0x014c->0x0449							; "RIGHT_BRACE"
03a4 0155       | U  |		.STRTAB	0x0155->0x044e							; "TILDE"
03a5 0158       | X  |		.STRTAB	0x0158->0x0451							; "DELETE"
03a6 015c       | \  |		.STRTAB	0x015c->0x0454							; "\x1b["
03a7 015c       | \  |		.STRTAB	0x015c->0x0455							; "\x1b?"
03a8 015c       | \  |		.STREND 0x015c->0x0456
03a9 5550 444f  |UPDO|		.STRTAB_STRINGS
0456 0000 0000  |    |		.XXX[0x2]
0458 ; --------------------------------------------------------------------------------------
0458 ; Debug Table
0458 ; --------------------------------------------------------------------------------------
0458 0004 000a  |    |		.DEBUG4	0x0004,0x000a,0xf535,0x0000,0x0001,0x0000
045e c0bd a5b9  |    |		.XXX[0x1a2]
0460 8db1 d591  |    |
0462 94bd bdcd  |    |
0464 998d b8b9  |    |
0466 a000 bdd9  |    |
0468 95b9 91bd  |    |
046a c8bd 4d85  |  M |
046c 8995 c8bd  |    |
046e 89a5 b8bc  |    |
0470 b8b8 bd8c  |    |
0472 acad 7cc4  |  | |
0474 b8c0 b8c8  |    |
0476 b5c8 c4b8  |    |
0478 c0bd cdd5  |    |
047a b8d0 b4d0  |    |
047c c0bd a5b9  |    |
047e 8db1 d591  |    |
0480 94bd cde5  |    |
0482 ccbd d1e5  |    |
0484 c195 ccb9  |    |
0486 a000 bdd5  |    |
0488 cdc8 bda5  |    |
048a b98d b1d5  |    |
048c 9194 bdcd  |    |
048e e5cc bdcd  |    |
0490 e5cd b585  |    |
0492 8dc9 bdcc  |    |
0494 b9a0 00bd  |    |
0496 d995 b991  |    |
0498 bdc8 bd4d  |   M|
049a 8589 95c8  |    |
049c bd89 a5b8  |    |
049e bcb8 b8bd  |    |
04a0 8cac ad7c  |   ||
04a2 c4b8 c0b8  |    |
04a4 c8b5 c8c4  |    |
04a6 b8c0 bdcd  |    |
04a8 d5b8 d0b4  |    |
04aa d0c0 bda5  |    |
04ac b98d b1d5  |    |
04ae 9194 bdcd  |    |
04b0 e5cc bdc1  |    |
04b2 d1c9 858d  |    |
04b4 94b9 a000  |    |
04b6 bdd5 cdc8  |    |
04b8 bda5 b98d  |    |
04ba b1d5 9194  |    |
04bc bdcd e5cd  |    |
04be 95e1 a5d1  |    |
04c0 ccb9 a000  |    |
04c2 bdd9 95b9  |    |
04c4 91bd c8bd  |    |
04c6 4d85 8995  |M   |
04c8 c8bd 89a5  |    |
04ca b8bc b8b8  |    |
04cc bd8c acad  |    |
04ce 7cc4 b8c0  ||   |
04d0 b8c8 b5c8  |    |
04d2 c4b8 c0bd  |    |
04d4 cdd5 b8d0  |    |
04d6 b4d0 c0bd  |    |
04d8 a5b9 8db1  |    |
04da d591 94bd  |    |
04dc a5bd cdd1  |    |
04de c995 85b4  |    |
04e0 b9a0 00bd  |    |
04e2 d995 b991  |    |
04e4 bdc8 bd4d  |   M|
04e6 8589 95c8  |    |
04e8 bd89 a5b8  |    |
04ea bcb8 b8bd  |    |
04ec 8cac ad7c  |   ||
04ee c4b8 c0b8  |    |
04f0 c8b5 c8c4  |    |
04f2 b8c0 bdcd  |    |
04f4 d5b8 d0b4  |    |
04f6 d0c0 bda5  |    |
04f8 b98d b1d5  |    |
04fa 9194 bdb5  |    |
04fc 95b5 bdc9  |    |
04fe e4b9 a000  |    |
0500 b8b8 bdcd  |    |
0502 d5c1 c1bd  |    |
0504 c9d0 bdb1  |    |
0506 a589 c985  |    |
0508 c9e4 b9a1  |    |
050a a000 b8b8  |    |
050c bdcd d5c1  |    |
050e c1bd c9d0  |    |
0510 bdd1 e5c1  |    |
0512 95cc b9a1  |    |
0514 a000 b8b8  |    |
0516 bd95 e18d  |    |
0518 95c1 d0bd  |    |
051a 95e1 8d95  |    |
051c c1d0 b9a1  |    |
051e a000 bdd9  |    |
0520 95b9 91bd  |    |
0522 c8bd 4d85  |  M |
0524 8995 c8bd  |    |
0526 89a5 b8bc  |    |
0528 b8b8 bd8c  |    |
052a acad 7cc4  |  | |
052c b8c0 b8c8  |    |
052e b5c8 c4b8  |    |
0530 c0bd cdd5  |    |
0532 b8d0 b4d0  |    |
0534 c0bd a5b9  |    |
0536 8db1 d591  |    |
0538 94bd cd95  |    |
053a d1a9 b5c0  |    |
053c b9a0 00bd  |    |
053e d5cd c8bd  |    |
0540 a5b9 8db1  |    |
0542 d591 94bd  |    |
0544 cdd5 b8d0  |    |
0546 bdcd 95d1  |    |
0548 a9b5 c0b9  |    |
054a a000 bdd9  |    |
054c 95b9 91bd  |    |
054e c8bd 4d85  |  M |
0550 8995 c8bd  |    |
0552 89a5 b8bc  |    |
0554 b8b8 bd8c  |    |
0556 acad 7cc4  |  | |
0558 b8c0 b8c8  |    |
055a b5c8 c4b8  |    |
055c c0bd cdd5  |    |
055e b8d0 b4d0  |    |
0560 c0bd a5b9  |    |
0562 8db1 d591  |    |
0564 94bd cdd1  |    |
0566 9191 9598  |    |
0568 b9a0 00b8  |    |
056a b8bd cdd5  |    |
056c c1c1 bdc9  |    |
056e d0bd b585  |    |
0570 8dc9 bdcc  |    |
0572 b9a1 a001  |    |
0574 9dc9 85c1  |    |
0576 a17d a4b9  | }  |
0578 bc01 7d89  |  } |
057a 85cd 957d  |   }|
057c 8591 c97d  |   }|
057e 7cc4 c559  ||  Y|
0580 95c9 d195  |    |
0582 e17d 25b5  | }% |
0584 c1b1 0d19  |    |
0586 d801 7d39  |  }9|
0588 3d7d 4d0d  |=}M |
058a 0531 2539  | 1%9|
058c 1c01 7dcd  |  } |
058e a5e9 957d  |   }|
0590 bd99 7d7c  |  }||
0592 c8d5 05c9  |    |
0594 8d7d 25b5  | }% |
0596 c1b1 7d41  |  }A|
0598 85cd cda5  |    |
059a d995 7d25  |  }%|
059c d195 c985  |    |
059e d1bd c90d  |    |
05a0 19d8 017d  |   }|
05a2 cda5 e995  |    |
05a4 7dbd 997d  |}  }|
05a6 7ce1 05c9  ||   |
05a8 8d7d 25b5  | }% |
05aa c1b1 0d19  |    |
05ac d801 7dcd  |  } |
05ae a5e9 957d  |   }|
05b0 bd99 7d7c  |  }||
05b2 c4c5 5995  |  Y |
05b4 c9d1 95e1  |    |
05b6 7d25 b5c1  |}%  |
05b8 b10d 19d8  |    |
05ba 017d 5539  | }U9|
05bc 1115 1925  |   %|
05be 3915 117d  |9  }|
05c0 4d0d 0531  |M  1|
05c2 2539 1c01  |%9  |
05c4 7d4d 0d0d  |}M  |
05c6 4d7d 2510  |M}% |
05c8 017d 8985  | }  |
05ca cd95 7d85  |  } |
05cc 91c9 7d7c  |  }||
05ce c8dd 5995  |  Y |
05d0 c9d1 95e1  |    |
05d2 7d25 b5c1  |}%  |
05d4 b17d 058d  | }  |
05d6 d1a5 d995  |    |
05d8 7d25 d195  |}%  |
05da c985 d1bd  |    |
05dc c90d 19d8  |    |
05de 017d cda5  | }  |
05e0 e995 7dbd  |  } |
05e2 997d 7cc8  | }| |
05e4 dd59 95c9  | Y  |
05e6 d195 e17d  |   }|
05e8 25b5 c1b1  |%   |
05ea 7d05 8dd1  |}   |
05ec a5d9 957d  |   }|
05ee 25d1 95c9  |%   |
05f0 85d1 bdc9  |    |
05f2 0d19 d801  |    |
05f4 7d89 85cd  |}   |
05f6 957d 8591  | }  |
05f8 c97d 7cc8  | }| |
05fa d105 c98d  |    |
05fc 7d25 b5c1  |}%  |
05fe b17d 058d  | }  |