|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0fe0f5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0470 | p | .CONST 0x0470 ; 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 01ec | | .CONST 0x01ec ; Address of exception handler
000a 0006 | | .CONST 0x0006 ; Number of locals
000b INIT_0008:
000b 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
000d 029f 030b | | Declare_Subprogram INIT_0308,For_Call
000f 029f 032b | +| Declare_Subprogram INIT_0328,For_Call
0011 029f 034b | K| Declare_Subprogram INIT_0348,For_Call
0013 029f 0373 | s| Declare_Subprogram INIT_0370,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 680c |h | Jump_Zero 0x36
002a 4801 |H | Short_Literal 0x1
002b 4801 |H | Short_Literal 0x1
002c 00e9 | | Load_Encached String_Cache
002d 035b | [ | Declare_Type Array,Constrained
002e 0337 | 7 | Declare_Variable Array
002f 4807 |H | Short_Literal 0x7
0030 4801 |H | Short_Literal 0x1
0031 00da | | Load_Top At_Offset_2
0032 01d6 | | Execute Vector,Field_Write
0033 00e9 | | Load_Encached String_Cache
0034 01c6 | | Execute Vector,Convert_To_Formal
0035 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0036 e5ff | | Load 0x2,-0x1
0037 e212 | | Load 0x1,0x12
0038 01df | | Execute Vector,Equal
0039 680c |h | Jump_Zero 0x46
003a 4801 |H | Short_Literal 0x1
003b 4801 |H | Short_Literal 0x1
003c 00e9 | | Load_Encached String_Cache
003d 035b | [ | Declare_Type Array,Constrained
003e 0337 | 7 | Declare_Variable Array
003f 481b |H | Short_Literal 0x1b
0040 4801 |H | Short_Literal 0x1
0041 00da | | Load_Top At_Offset_2
0042 01d6 | | Execute Vector,Field_Write
0043 00e9 | | Load_Encached String_Cache
0044 01c6 | | Execute Vector,Convert_To_Formal
0045 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0046 e5ff | | Load 0x2,-0x1
0047 01db | | Execute Vector,Length
0048 0f03 | | Execute_Immediate Equal,0x3
0049 6821 |h! | Jump_Zero 0x6b
004a e5ff | | Load 0x2,-0x1
004b 01dd | | Execute Vector,First
004c e5ff | | Load 0x2,-0x1
004d 01d7 | | Execute Vector,Field_Read
004e 0f27 | ' | Execute_Immediate Equal,0x27
004f 681b |h | Jump_Zero 0x6b
0050 e5ff | | Load 0x2,-0x1
0051 01dc | | Execute Vector,Last
0052 e5ff | | Load 0x2,-0x1
0053 01d7 | | Execute Vector,Field_Read
0054 0f27 | ' | Execute_Immediate Equal,0x27
0055 6815 |h | Jump_Zero 0x6b
0056 e5ff | | Load 0x2,-0x1
0057 01dd | | Execute Vector,First
0058 0a01 | | Execute_Immediate Plus,0x1
0059 00d8 | | Load_Top At_Offset_0
005a 00e2 | | Load_Encached Integer_Cache
005b 0260 | ` | Execute Discrete,In_Type
005c 7001 |p | Jump_Nonzero 0x5e
005d 0801 | | Execute_Immediate Raise,0x1
005e e5ff | | Load 0x2,-0x1
005f 01dd | | Execute Vector,First
0060 0a01 | | Execute_Immediate Plus,0x1
0061 00d8 | | Load_Top At_Offset_0
0062 00e2 | | Load_Encached Integer_Cache
0063 0260 | ` | Execute Discrete,In_Type
0064 7001 |p | Jump_Nonzero 0x66
0065 0801 | | Execute_Immediate Raise,0x1
0066 e5ff | | Load 0x2,-0x1
0067 01cf | | Execute Vector,Slice_Read
0068 0335 | 5 | Declare_Variable Array,Duplicate
0069 00cd | | Action Spare6_Action
006a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
006b e5ff | | Load 0x2,-0x1
006c 0092 0388 | | Action Push_String_Extended,0x388 ; "UP"
006e 01df | | Execute Vector,Equal
006f 6804 |h | Jump_Zero 0x74
0070 4841 |HA | Short_Literal 0x41
0071 e5fe | | Load 0x2,-0x2
0072 8403 | | Call 0x2,0x3
0073 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0074 e5ff | | Load 0x2,-0x1
0075 0092 0389 | | Action Push_String_Extended,0x389 ; "DOWN"
0077 01df | | Execute Vector,Equal
0078 6804 |h | Jump_Zero 0x7d
0079 4842 |HB | Short_Literal 0x42
007a e5fe | | Load 0x2,-0x2
007b 8403 | | Call 0x2,0x3
007c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
007d e5ff | | Load 0x2,-0x1
007e 0092 038a | | Action Push_String_Extended,0x38a ; "RIGHT"
0080 01df | | Execute Vector,Equal
0081 6804 |h | Jump_Zero 0x86
0082 4843 |HC | Short_Literal 0x43
0083 e5fe | | Load 0x2,-0x2
0084 8403 | | Call 0x2,0x3
0085 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0086 e5ff | | Load 0x2,-0x1
0087 0092 038b | | Action Push_String_Extended,0x38b ; "LEFT"
0089 01df | | Execute Vector,Equal
008a 6804 |h | Jump_Zero 0x8f
008b 4844 |HD | Short_Literal 0x44
008c e5fe | | Load 0x2,-0x2
008d 8403 | | Call 0x2,0x3
008e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
008f e5ff | | Load 0x2,-0x1
0090 01db | | Execute Vector,Length
0091 0f03 | | Execute_Immediate Equal,0x3
0092 6817 |h | Jump_Zero 0xaa
0093 e5ff | | Load 0x2,-0x1
0094 01dd | | Execute Vector,First
0095 e5ff | | Load 0x2,-0x1
0096 01dd | | Execute Vector,First
0097 0a01 | | Execute_Immediate Plus,0x1
0098 00d8 | | Load_Top At_Offset_0
0099 00e2 | | Load_Encached Integer_Cache
009a 0260 | ` | Execute Discrete,In_Type
009b 7001 |p | Jump_Nonzero 0x9d
009c 0801 | | Execute_Immediate Raise,0x1
009d e5ff | | Load 0x2,-0x1
009e 01cf | | Execute Vector,Slice_Read
009f 0092 038c | | Action Push_String_Extended,0x38c ; "PF"
00a1 01df | | Execute Vector,Equal
00a2 6807 |h | Jump_Zero 0xaa
00a3 e5ff | | Load 0x2,-0x1
00a4 01dc | | Execute Vector,Last
00a5 e5ff | | Load 0x2,-0x1
00a6 01d7 | | Execute Vector,Field_Read
00a7 e5fe | | Load 0x2,-0x2
00a8 8405 | | Call 0x2,0x5
00a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00aa e5ff | | Load 0x2,-0x1
00ab 01db | | Execute Vector,Length
00ac 0f02 | | Execute_Immediate Equal,0x2
00ad 6815 |h | Jump_Zero 0xc3
00ae e5ff | | Load 0x2,-0x1
00af 01dd | | Execute Vector,First
00b0 e5ff | | Load 0x2,-0x1
00b1 01d7 | | Execute Vector,Field_Read
00b2 0f46 | F | Execute_Immediate Equal,0x46
00b3 680f |h | Jump_Zero 0xc3
00b4 e5ff | | Load 0x2,-0x1
00b5 01dc | | Execute Vector,Last
00b6 e5ff | | Load 0x2,-0x1
00b7 01d7 | | Execute Vector,Field_Read
00b8 4831 |H1 | Short_Literal 0x31
00b9 4834 |H4 | Short_Literal 0x34
00ba 0262 | b | Execute Discrete,In_Range
00bb 6807 |h | Jump_Zero 0xc3
00bc e5ff | | Load 0x2,-0x1
00bd 01dc | | Execute Vector,Last
00be e5ff | | Load 0x2,-0x1
00bf 01d7 | | Execute Vector,Field_Read
00c0 e5fe | | Load 0x2,-0x2
00c1 8405 | | Call 0x2,0x5
00c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c3 e5ff | | Load 0x2,-0x1
00c4 0092 038d | | Action Push_String_Extended,0x38d ; "IMAGE"
00c6 01df | | Execute Vector,Equal
00c7 6804 |h | Jump_Zero 0xcc
00c8 4831 |H1 | Short_Literal 0x31
00c9 e5fe | | Load 0x2,-0x2
00ca 8405 | | Call 0x2,0x5
00cb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00cc e5ff | | Load 0x2,-0x1
00cd 0092 038e | | Action Push_String_Extended,0x38e ; "LINE"
00cf 01df | | Execute Vector,Equal
00d0 6804 |h | Jump_Zero 0xd5
00d1 4832 |H2 | Short_Literal 0x32
00d2 e5fe | | Load 0x2,-0x2
00d3 8405 | | Call 0x2,0x5
00d4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d5 e5ff | | Load 0x2,-0x1
00d6 0092 038f | | Action Push_String_Extended,0x38f ; "WORD"
00d8 01df | | Execute Vector,Equal
00d9 6804 |h | Jump_Zero 0xde
00da 4833 |H3 | Short_Literal 0x33
00db e5fe | | Load 0x2,-0x2
00dc 8405 | | Call 0x2,0x5
00dd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00de e5ff | | Load 0x2,-0x1
00df 0092 0390 | | Action Push_String_Extended,0x390 ; "MARK"
00e1 01df | | Execute Vector,Equal
00e2 6804 |h | Jump_Zero 0xe7
00e3 4834 |H4 | Short_Literal 0x34
00e4 e5fe | | Load 0x2,-0x2
00e5 8405 | | Call 0x2,0x5
00e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00e7 e5ff | | Load 0x2,-0x1
00e8 01db | | Execute Vector,Length
00e9 0f09 | | Execute_Immediate Equal,0x9
00ea 681f |h | Jump_Zero 0x10a
00eb e5ff | | Load 0x2,-0x1
00ec 01dd | | Execute Vector,First
00ed e5ff | | Load 0x2,-0x1
00ee 01dd | | Execute Vector,First
00ef 0a07 | | Execute_Immediate Plus,0x7
00f0 00d8 | | Load_Top At_Offset_0
00f1 00e2 | | Load_Encached Integer_Cache
00f2 0260 | ` | Execute Discrete,In_Type
00f3 7001 |p | Jump_Nonzero 0xf5
00f4 0801 | | Execute_Immediate Raise,0x1
00f5 e5ff | | Load 0x2,-0x1
00f6 01cf | | Execute Vector,Slice_Read
00f7 0092 0391 | | Action Push_String_Extended,0x391 ; "NUMERIC_"
00f9 01df | | Execute Vector,Equal
00fa 680f |h | Jump_Zero 0x10a
00fb 4830 |H0 | Short_Literal 0x30
00fc e5ff | | Load 0x2,-0x1
00fd 01dc | | Execute Vector,Last
00fe e5ff | | Load 0x2,-0x1
00ff 01d7 | | Execute Vector,Field_Read
0100 8230 | 0 | Call 0x1,0x30
0101 4870 |Hp | Short_Literal 0x70
0102 8231 | 1 | Call 0x1,0x31
0103 e5ff | | Load 0x2,-0x1
0104 01dc | | Execute Vector,Last
0105 e5ff | | Load 0x2,-0x1
0106 01d7 | | Execute Vector,Field_Read
0107 e5fe | | Load 0x2,-0x2
0108 8404 | | Call 0x2,0x4
0109 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
010a e5ff | | Load 0x2,-0x1
010b 0092 0392 | | Action Push_String_Extended,0x392 ; "DASH"
010d 01df | | Execute Vector,Equal
010e 6805 |h | Jump_Zero 0x114
010f 486d |Hm | Short_Literal 0x6d
0110 482d |H- | Short_Literal 0x2d
0111 e5fe | | Load 0x2,-0x2
0112 8404 | | Call 0x2,0x4
0113 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0114 e5ff | | Load 0x2,-0x1
0115 0092 0393 | | Action Push_String_Extended,0x393 ; "NUMERIC_COMMA"
0117 01df | | Execute Vector,Equal
0118 6805 |h | Jump_Zero 0x11e
0119 486c |Hl | Short_Literal 0x6c
011a 482c |H, | Short_Literal 0x2c
011b e5fe | | Load 0x2,-0x2
011c 8404 | | Call 0x2,0x4
011d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011e e5ff | | Load 0x2,-0x1
011f 0092 0394 | | Action Push_String_Extended,0x394 ; "ENTER"
0121 01df | | Execute Vector,Equal
0122 6805 |h | Jump_Zero 0x128
0123 484d |HM | Short_Literal 0x4d
0124 480d |H | Short_Literal 0xd
0125 e5fe | | Load 0x2,-0x2
0126 8404 | | Call 0x2,0x4
0127 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0128 e5ff | | Load 0x2,-0x1
0129 0092 0395 | | Action Push_String_Extended,0x395 ; "DOT"
012b 01df | | Execute Vector,Equal
012c 6805 |h | Jump_Zero 0x132
012d 486e |Hn | Short_Literal 0x6e
012e 482e |H. | Short_Literal 0x2e
012f e5fe | | Load 0x2,-0x2
0130 8404 | | Call 0x2,0x4
0131 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0132 e5ff | | Load 0x2,-0x1
0133 01db | | Execute Vector,Length
0134 0c03 | | Execute_Immediate Greater_Equal,0x3
0135 682a |h* | Jump_Zero 0x160
0136 e5ff | | Load 0x2,-0x1
0137 01dd | | Execute Vector,First
0138 e5ff | | Load 0x2,-0x1
0139 01dd | | Execute Vector,First
013a 0a01 | | Execute_Immediate Plus,0x1
013b 00d8 | | Load_Top At_Offset_0
013c 00e2 | | Load_Encached Integer_Cache
013d 0260 | ` | Execute Discrete,In_Type
013e 7001 |p | Jump_Nonzero 0x140
013f 0801 | | Execute_Immediate Raise,0x1
0140 e5ff | | Load 0x2,-0x1
0141 01cf | | Execute Vector,Slice_Read
0142 0092 0396 | | Action Push_String_Extended,0x396 ; "S_"
0144 01df | | Execute Vector,Equal
0145 681a |h | Jump_Zero 0x160
0146 4801 |H | Short_Literal 0x1
0147 4801 |H | Short_Literal 0x1
0148 00e9 | | Load_Encached String_Cache
0149 035b | [ | Declare_Type Array,Constrained
014a 0337 | 7 | Declare_Variable Array
014b e5ff | | Load 0x2,-0x1
014c 01dd | | Execute Vector,First
014d 0a02 | | Execute_Immediate Plus,0x2
014e 00d8 | | Load_Top At_Offset_0
014f 00e2 | | Load_Encached Integer_Cache
0150 0260 | ` | Execute Discrete,In_Type
0151 7001 |p | Jump_Nonzero 0x153
0152 0801 | | Execute_Immediate Raise,0x1
0153 e5ff | | Load 0x2,-0x1
0154 01dc | | Execute Vector,Last
0155 e5ff | | Load 0x2,-0x1
0156 01cf | | Execute Vector,Slice_Read
0157 8402 | | Call 0x2,0x2
0158 e006 | | Load 0x0,0x6
0159 1810 | | Execute Package,Field_Execute,Field_Number 0x10
015a 4801 |H | Short_Literal 0x1
015b 00da | | Load_Top At_Offset_2
015c 01d6 | | Execute Vector,Field_Write
015d 00e9 | | Load_Encached String_Cache
015e 01c6 | | Execute Vector,Convert_To_Formal
015f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0160 e5ff | | Load 0x2,-0x1
0161 01db | | Execute Vector,Length
0162 0c03 | | Execute_Immediate Greater_Equal,0x3
0163 6829 |h) | Jump_Zero 0x18d
0164 e5ff | | Load 0x2,-0x1
0165 01dd | | Execute Vector,First
0166 e5ff | | Load 0x2,-0x1
0167 01dd | | Execute Vector,First
0168 0a01 | | Execute_Immediate Plus,0x1
0169 00d8 | | Load_Top At_Offset_0
016a 00e2 | | Load_Encached Integer_Cache
016b 0260 | ` | Execute Discrete,In_Type
016c 7001 |p | Jump_Nonzero 0x16e
016d 0801 | | Execute_Immediate Raise,0x1
016e e5ff | | Load 0x2,-0x1
016f 01cf | | Execute Vector,Slice_Read
0170 0092 0397 | | Action Push_String_Extended,0x397 ; "C_"
0172 01df | | Execute Vector,Equal
0173 6819 |h | Jump_Zero 0x18d
0174 4801 |H | Short_Literal 0x1
0175 4801 |H | Short_Literal 0x1
0176 00e9 | | Load_Encached String_Cache
0177 035b | [ | Declare_Type Array,Constrained
0178 0337 | 7 | Declare_Variable Array
0179 e5ff | | Load 0x2,-0x1
017a 01dd | | Execute Vector,First
017b 0a02 | | Execute_Immediate Plus,0x2
017c 00d8 | | Load_Top At_Offset_0
017d 00e2 | | Load_Encached Integer_Cache
017e 0260 | ` | Execute Discrete,In_Type
017f 7001 |p | Jump_Nonzero 0x181
0180 0801 | | Execute_Immediate Raise,0x1
0181 e5ff | | Load 0x2,-0x1
0182 01dc | | Execute Vector,Last
0183 e5ff | | Load 0x2,-0x1
0184 01cf | | Execute Vector,Slice_Read
0185 8402 | | Call 0x2,0x2
0186 8406 | | Call 0x2,0x6
0187 4801 |H | Short_Literal 0x1
0188 00da | | Load_Top At_Offset_2
0189 01d6 | | Execute Vector,Field_Write
018a 00e9 | | Load_Encached String_Cache
018b 01c6 | | Execute Vector,Convert_To_Formal
018c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
018d e5ff | | Load 0x2,-0x1
018e 01db | | Execute Vector,Length
018f 0c04 | | Execute_Immediate Greater_Equal,0x4
0190 6829 |h) | Jump_Zero 0x1ba
0191 e5ff | | Load 0x2,-0x1
0192 01dd | | Execute Vector,First
0193 e5ff | | Load 0x2,-0x1
0194 01dd | | Execute Vector,First
0195 0a02 | | Execute_Immediate Plus,0x2
0196 00d8 | | Load_Top At_Offset_0
0197 00e2 | | Load_Encached Integer_Cache
0198 0260 | ` | Execute Discrete,In_Type
0199 7001 |p | Jump_Nonzero 0x19b
019a 0801 | | Execute_Immediate Raise,0x1
019b e5ff | | Load 0x2,-0x1
019c 01cf | | Execute Vector,Slice_Read
019d 0092 0398 | | Action Push_String_Extended,0x398 ; "CS_"
019f 01df | | Execute Vector,Equal
01a0 6819 |h | Jump_Zero 0x1ba
01a1 4801 |H | Short_Literal 0x1
01a2 4801 |H | Short_Literal 0x1
01a3 00e9 | | Load_Encached String_Cache
01a4 035b | [ | Declare_Type Array,Constrained
01a5 0337 | 7 | Declare_Variable Array
01a6 e5ff | | Load 0x2,-0x1
01a7 01dd | | Execute Vector,First
01a8 0a03 | | Execute_Immediate Plus,0x3
01a9 00d8 | | Load_Top At_Offset_0
01aa 00e2 | | Load_Encached Integer_Cache
01ab 0260 | ` | Execute Discrete,In_Type
01ac 7001 |p | Jump_Nonzero 0x1ae
01ad 0801 | | Execute_Immediate Raise,0x1
01ae e5ff | | Load 0x2,-0x1
01af 01dc | | Execute Vector,Last
01b0 e5ff | | Load 0x2,-0x1
01b1 01cf | | Execute Vector,Slice_Read
01b2 8402 | | Call 0x2,0x2
01b3 8406 | | Call 0x2,0x6
01b4 4801 |H | Short_Literal 0x1
01b5 00da | | Load_Top At_Offset_2
01b6 01d6 | | Execute Vector,Field_Write
01b7 00e9 | | Load_Encached String_Cache
01b8 01c6 | | Execute Vector,Convert_To_Formal
01b9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ba e5ff | | Load 0x2,-0x1
01bb 01db | | Execute Vector,Length
01bc 0c05 | | Execute_Immediate Greater_Equal,0x5
01bd 6821 |h! | Jump_Zero 0x1df
01be e5ff | | Load 0x2,-0x1
01bf 01dd | | Execute Vector,First
01c0 e5ff | | Load 0x2,-0x1
01c1 01dd | | Execute Vector,First
01c2 0a03 | | Execute_Immediate Plus,0x3
01c3 00d8 | | Load_Top At_Offset_0
01c4 00e2 | | Load_Encached Integer_Cache
01c5 0260 | ` | Execute Discrete,In_Type
01c6 7001 |p | Jump_Nonzero 0x1c8
01c7 0801 | | Execute_Immediate Raise,0x1
01c8 e5ff | | Load 0x2,-0x1
01c9 01cf | | Execute Vector,Slice_Read
01ca 0092 0399 | | Action Push_String_Extended,0x399 ; "ESC_"
01cc 01df | | Execute Vector,Equal
01cd 6811 |h | Jump_Zero 0x1df
01ce 481b |H | Short_Literal 0x1b
01cf e5fe | | Load 0x2,-0x2
01d0 e5ff | | Load 0x2,-0x1
01d1 01dd | | Execute Vector,First
01d2 0a04 | | Execute_Immediate Plus,0x4
01d3 00d8 | | Load_Top At_Offset_0
01d4 00e2 | | Load_Encached Integer_Cache
01d5 0260 | ` | Execute Discrete,In_Type
01d6 7001 |p | Jump_Nonzero 0x1d8
01d7 0801 | | Execute_Immediate Raise,0x1
01d8 e5ff | | Load 0x2,-0x1
01d9 01dc | | Execute Vector,Last
01da e5ff | | Load 0x2,-0x1
01db 01cf | | Execute Vector,Slice_Read
01dc 822d | - | Call 0x1,0x2d
01dd 01ca | | Execute Vector,Prepend
01de 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01df 4801 |H | Short_Literal 0x1
01e0 4801 |H | Short_Literal 0x1
01e1 00e9 | | Load_Encached String_Cache
01e2 035b | [ | Declare_Type Array,Constrained
01e3 0337 | 7 | Declare_Variable Array
01e4 e5ff | | Load 0x2,-0x1
01e5 8402 | | Call 0x2,0x2
01e6 4801 |H | Short_Literal 0x1
01e7 00da | | Load_Top At_Offset_2
01e8 01d6 | | Execute Vector,Field_Write
01e9 00e9 | | Load_Encached String_Cache
01ea 01c6 | | Execute Vector,Convert_To_Formal
01eb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ec TRAP_0008:
01ec e007 | | Load 0x0,0x7
01ed 010f | | Execute Exception,Equal
01ee 6802 |h | Jump_Zero 0x1f1
01ef 00ea | | Load_Encached Null_String_Cache
01f0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f1 0100 | | Execute Exception,Raise
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc 01db | | Execute Vector,Length
01fd 0f01 | | Execute_Immediate Equal,0x1
01fe 6805 |h | Jump_Zero 0x204
01ff 00da | | Load_Top At_Offset_2
0200 01dd | | Execute Vector,First
0201 00db | | Load_Top At_Offset_3
0202 01d7 | | Execute Vector,Field_Read
0203 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0204 00da | | Load_Top At_Offset_2
0205 0092 039a | | Action Push_String_Extended,0x39a ; "NUL"
0207 01df | | Execute Vector,Equal
0208 6802 |h | Jump_Zero 0x20b
0209 4800 |H | Short_Literal 0x0
020a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020b 00da | | Load_Top At_Offset_2
020c 0092 039b | | Action Push_String_Extended,0x39b ; "CARRIAGE_RETURN"
020e 01df | | Execute Vector,Equal
020f 6802 |h | Jump_Zero 0x212
0210 480d |H | Short_Literal 0xd
0211 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0212 00da | | Load_Top At_Offset_2
0213 0092 039c | | Action Push_String_Extended,0x39c ; "SPACE"
0215 01df | | Execute Vector,Equal
0216 6802 |h | Jump_Zero 0x219
0217 4820 |H | Short_Literal 0x20
0218 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0219 00da | | Load_Top At_Offset_2
021a 0092 039d | | Action Push_String_Extended,0x39d ; "EXCLAM"
021c 01df | | Execute Vector,Equal
021d 6802 |h | Jump_Zero 0x220
021e 4821 |H! | Short_Literal 0x21
021f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0220 00da | | Load_Top At_Offset_2
0221 0092 039e | | Action Push_String_Extended,0x39e ; "AT_SIGN"
0223 01df | | Execute Vector,Equal
0224 6802 |h | Jump_Zero 0x227
0225 4840 |H@ | Short_Literal 0x40
0226 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0227 00da | | Load_Top At_Offset_2
0228 0092 039f | | Action Push_String_Extended,0x39f ; "LEFT_BRACKET"
022a 01df | | Execute Vector,Equal
022b 6802 |h | Jump_Zero 0x22e
022c 485b |H[ | Short_Literal 0x5b
022d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022e 00da | | Load_Top At_Offset_2
022f 0092 03a0 | | Action Push_String_Extended,0x3a0 ; "BACKSLASH"
0231 01df | | Execute Vector,Equal
0232 6802 |h | Jump_Zero 0x235
0233 485c |H\ | Short_Literal 0x5c
0234 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0235 00da | | Load_Top At_Offset_2
0236 0092 03a1 | | Action Push_String_Extended,0x3a1 ; "RIGHT_BRACKET"
0238 01df | | Execute Vector,Equal
0239 6802 |h | Jump_Zero 0x23c
023a 485d |H] | Short_Literal 0x5d
023b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023c 00da | | Load_Top At_Offset_2
023d 0092 03a2 | | Action Push_String_Extended,0x3a2 ; "CIRCUMFLEX"
023f 01df | | Execute Vector,Equal
0240 6802 |h | Jump_Zero 0x243
0241 485e |H^ | Short_Literal 0x5e
0242 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0243 00da | | Load_Top At_Offset_2
0244 0092 03a3 | | Action Push_String_Extended,0x3a3 ; "UNDERLINE"
0246 01df | | Execute Vector,Equal
0247 6802 |h | Jump_Zero 0x24a
0248 485f |H_ | Short_Literal 0x5f
0249 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024a 00da | | Load_Top At_Offset_2
024b 0092 03a4 | | Action Push_String_Extended,0x3a4 ; "GRAVE"
024d 01df | | Execute Vector,Equal
024e 6802 |h | Jump_Zero 0x251
024f 4860 |H` | Short_Literal 0x60
0250 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0251 00da | | Load_Top At_Offset_2
0252 0092 03a5 | | Action Push_String_Extended,0x3a5 ; "QUOTATION"
0254 01df | | Execute Vector,Equal
0255 6802 |h | Jump_Zero 0x258
0256 4822 |H" | Short_Literal 0x22
0257 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0258 00da | | Load_Top At_Offset_2
0259 0092 03a6 | | Action Push_String_Extended,0x3a6 ; "SHARP"
025b 01df | | Execute Vector,Equal
025c 6802 |h | Jump_Zero 0x25f
025d 4823 |H# | Short_Literal 0x23
025e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025f 00da | | Load_Top At_Offset_2
0260 0092 03a7 | | Action Push_String_Extended,0x3a7 ; "DOLLAR"
0262 01df | | Execute Vector,Equal
0263 6802 |h | Jump_Zero 0x266
0264 4824 |H$ | Short_Literal 0x24
0265 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0266 00da | | Load_Top At_Offset_2
0267 0092 03a8 | | Action Push_String_Extended,0x3a8 ; "PERCENT"
0269 01df | | Execute Vector,Equal
026a 6802 |h | Jump_Zero 0x26d
026b 4825 |H% | Short_Literal 0x25
026c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026d 00da | | Load_Top At_Offset_2
026e 0092 03a9 | | Action Push_String_Extended,0x3a9 ; "AMPERSAND"
0270 01df | | Execute Vector,Equal
0271 6802 |h | Jump_Zero 0x274
0272 4826 |H& | Short_Literal 0x26
0273 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0274 00da | | Load_Top At_Offset_2
0275 0092 03aa | | Action Push_String_Extended,0x3aa ; "TICK"
0277 01df | | Execute Vector,Equal
0278 6802 |h | Jump_Zero 0x27b
0279 4827 |H' | Short_Literal 0x27
027a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027b 00da | | Load_Top At_Offset_2
027c 0092 03ab | | Action Push_String_Extended,0x3ab ; "LEFT_PAREN"
027e 01df | | Execute Vector,Equal
027f 6802 |h | Jump_Zero 0x282
0280 4828 |H( | Short_Literal 0x28
0281 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0282 00da | | Load_Top At_Offset_2
0283 0092 03ac | | Action Push_String_Extended,0x3ac ; "RIGHT_PAREN"
0285 01df | | Execute Vector,Equal
0286 6802 |h | Jump_Zero 0x289
0287 4829 |H) | Short_Literal 0x29
0288 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0289 00da | | Load_Top At_Offset_2
028a 0092 03ad | | Action Push_String_Extended,0x3ad ; "STAR"
028c 01df | | Execute Vector,Equal
028d 6802 |h | Jump_Zero 0x290
028e 482a |H* | Short_Literal 0x2a
028f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0290 00da | | Load_Top At_Offset_2
0291 0092 03ae | | Action Push_String_Extended,0x3ae ; "PLUS"
0293 01df | | Execute Vector,Equal
0294 6802 |h | Jump_Zero 0x297
0295 482b |H+ | Short_Literal 0x2b
0296 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0297 00da | | Load_Top At_Offset_2
0298 0092 03af | | Action Push_String_Extended,0x3af ; "COMMA"
029a 01df | | Execute Vector,Equal
029b 6802 |h | Jump_Zero 0x29e
029c 482c |H, | Short_Literal 0x2c
029d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029e 00da | | Load_Top At_Offset_2
029f 0092 03b0 | | Action Push_String_Extended,0x3b0 ; "MINUS"
02a1 01df | | Execute Vector,Equal
02a2 6802 |h | Jump_Zero 0x2a5
02a3 482d |H- | Short_Literal 0x2d
02a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a5 00da | | Load_Top At_Offset_2
02a6 0092 03b1 | | Action Push_String_Extended,0x3b1 ; "PERIOD"
02a8 01df | | Execute Vector,Equal
02a9 6802 |h | Jump_Zero 0x2ac
02aa 482e |H. | Short_Literal 0x2e
02ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ac 00da | | Load_Top At_Offset_2
02ad 0092 03b2 | | Action Push_String_Extended,0x3b2 ; "SLASH"
02af 01df | | Execute Vector,Equal
02b0 6802 |h | Jump_Zero 0x2b3
02b1 482f |H/ | Short_Literal 0x2f
02b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b3 00da | | Load_Top At_Offset_2
02b4 0092 03b3 | | Action Push_String_Extended,0x3b3 ; "COLON"
02b6 01df | | Execute Vector,Equal
02b7 6802 |h | Jump_Zero 0x2ba
02b8 483a |H: | Short_Literal 0x3a
02b9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ba 00da | | Load_Top At_Offset_2
02bb 0092 03b4 | | Action Push_String_Extended,0x3b4 ; "SEMICOLON"
02bd 01df | | Execute Vector,Equal
02be 6802 |h | Jump_Zero 0x2c1
02bf 483b |H; | Short_Literal 0x3b
02c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c1 00da | | Load_Top At_Offset_2
02c2 0092 03b5 | | Action Push_String_Extended,0x3b5 ; "LESS_THAN"
02c4 01df | | Execute Vector,Equal
02c5 6802 |h | Jump_Zero 0x2c8
02c6 483c |H< | Short_Literal 0x3c
02c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c8 00da | | Load_Top At_Offset_2
02c9 0092 03b6 | | Action Push_String_Extended,0x3b6 ; "EQUAL"
02cb 01df | | Execute Vector,Equal
02cc 6802 |h | Jump_Zero 0x2cf
02cd 483d |H= | Short_Literal 0x3d
02ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02cf 00da | | Load_Top At_Offset_2
02d0 0092 03b7 | | Action Push_String_Extended,0x3b7 ; "GREATER_THAN"
02d2 01df | | Execute Vector,Equal
02d3 6802 |h | Jump_Zero 0x2d6
02d4 483e |H> | Short_Literal 0x3e
02d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d6 00da | | Load_Top At_Offset_2
02d7 0092 03b8 | | Action Push_String_Extended,0x3b8 ; "QUERY"
02d9 01df | | Execute Vector,Equal
02da 6802 |h | Jump_Zero 0x2dd
02db 483f |H? | Short_Literal 0x3f
02dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02dd 00da | | Load_Top At_Offset_2
02de 0092 03b9 | | Action Push_String_Extended,0x3b9 ; "LEFT_BRACE"
02e0 01df | | Execute Vector,Equal
02e1 6802 |h | Jump_Zero 0x2e4
02e2 487b |H{ | Short_Literal 0x7b
02e3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e4 00da | | Load_Top At_Offset_2
02e5 0092 03ba | | Action Push_String_Extended,0x3ba ; "BAR"
02e7 01df | | Execute Vector,Equal
02e8 6802 |h | Jump_Zero 0x2eb
02e9 487c |H| | Short_Literal 0x7c
02ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02eb 00da | | Load_Top At_Offset_2
02ec 0092 03bb | | Action Push_String_Extended,0x3bb ; "RIGHT_BRACE"
02ee 01df | | Execute Vector,Equal
02ef 6802 |h | Jump_Zero 0x2f2
02f0 487d |H} | Short_Literal 0x7d
02f1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f2 00da | | Load_Top At_Offset_2
02f3 0092 03bc | | Action Push_String_Extended,0x3bc ; "TILDE"
02f5 01df | | Execute Vector,Equal
02f6 6802 |h | Jump_Zero 0x2f9
02f7 487e |H~ | Short_Literal 0x7e
02f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f9 00da | | Load_Top At_Offset_2
02fa 0092 03bd | | Action Push_String_Extended,0x3bd ; "DELETE"
02fc 01df | | Execute Vector,Equal
02fd 6802 |h | Jump_Zero 0x300
02fe 487f |H | Short_Literal 0x7f
02ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0300 e007 | | Load 0x0,0x7
0301 0257 | W | Execute Discrete,Raise
0302 0000 0000 | | .BLANK 0000[0x6]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
030d 680d |h | Jump_Zero 0x31b
030e 4801 |H | Short_Literal 0x1
030f 4802 |H | Short_Literal 0x2
0310 00e9 | | Load_Encached String_Cache
0311 0334 | 4 | Declare_Variable Array,With_Constraint
0312 481b |H | Short_Literal 0x1b
0313 4801 |H | Short_Literal 0x1
0314 00da | | Load_Top At_Offset_2
0315 01d6 | | Execute Vector,Field_Write
0316 e7fe | | Load 0x3,-0x2
0317 4802 |H | Short_Literal 0x2
0318 00da | | Load_Top At_Offset_2
0319 01d6 | | Execute Vector,Field_Write
031a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
031b 00da | | Load_Top At_Offset_2
031c 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
031d 6804 |h | Jump_Zero 0x322
031e 00db | | Load_Top At_Offset_3
031f e22c | , | Load 0x1,0x2c
0320 01cb | | Execute Vector,Append
0321 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0322 00db | | Load_Top At_Offset_3
0323 0092 03be | | Action Push_String_Extended,0x3be ; "\x1b["
0325 01cb | | Execute Vector,Append
0326 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0327 0000 | | .XXX[0x1]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa
032d 0f01 | | Execute_Immediate Equal,0x1
032e 700d |p | Jump_Nonzero 0x33c
032f 7800 |x | Jump 0x330
0330 4801 |H | Short_Literal 0x1
0331 4801 |H | Short_Literal 0x1
0332 00e9 | | Load_Encached String_Cache
0333 035b | [ | Declare_Type Array,Constrained
0334 0337 | 7 | Declare_Variable Array
0335 e7fe | | Load 0x3,-0x2
0336 4801 |H | Short_Literal 0x1
0337 00da | | Load_Top At_Offset_2
0338 01d6 | | Execute Vector,Field_Write
0339 00e9 | | Load_Encached String_Cache
033a 01c6 | | Execute Vector,Convert_To_Formal
033b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
033c 00da | | Load_Top At_Offset_2
033d 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
033e 6805 |h | Jump_Zero 0x344
033f e7fd | | Load 0x3,-0x3
0340 0092 03bf | | Action Push_String_Extended,0x3bf ; "\x1b?"
0342 01cb | | Execute Vector,Append
0343 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0344 e7fd | | Load 0x3,-0x3
0345 e22c | , | Load 0x1,0x2c
0346 01cb | | Execute Vector,Append
0347 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00da | | Load_Top At_Offset_2
034c 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
034d 6813 |h | Jump_Zero 0x361
034e 4831 |H1 | Short_Literal 0x31
034f e7fe | | Load 0x3,-0x2
0350 8230 | 0 | Call 0x1,0x30
0351 4850 |HP | Short_Literal 0x50
0352 8231 | 1 | Call 0x1,0x31
0353 4801 |H | Short_Literal 0x1
0354 4802 |H | Short_Literal 0x2
0355 00e9 | | Load_Encached String_Cache
0356 0334 | 4 | Declare_Variable Array,With_Constraint
0357 481b |H | Short_Literal 0x1b
0358 4801 |H | Short_Literal 0x1
0359 00da | | Load_Top At_Offset_2
035a 01d6 | | Execute Vector,Field_Write
035b 00d9 | | Load_Top At_Offset_1
035c 4802 |H | Short_Literal 0x2
035d 00da | | Load_Top At_Offset_2
035e 01d6 | | Execute Vector,Field_Write
035f 00cd | | Action Spare6_Action
0360 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0361 4831 |H1 | Short_Literal 0x31
0362 e7fe | | Load 0x3,-0x2
0363 8230 | 0 | Call 0x1,0x30
0364 4850 |HP | Short_Literal 0x50
0365 8231 | 1 | Call 0x1,0x31
0366 e22c | , | Load 0x1,0x2c
0367 01cb | | Execute Vector,Append
0368 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0369 0000 0000 | | .BLANK 0000[0x7]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 00d8 | | Load_Top At_Offset_0
0375 4840 |H@ | Short_Literal 0x40
0376 485f |H_ | Short_Literal 0x5f
0377 0262 | b | Execute Discrete,In_Range
0378 7004 |p | Jump_Nonzero 0x37d
0379 0f3f | ? | Execute_Immediate Equal,0x3f
037a 700b |p | Jump_Nonzero 0x386
037b 00da | | Load_Top At_Offset_2
037c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037d 00d1 | | Pop_Control Pop_Count_1
037e 00da | | Load_Top At_Offset_2
037f 0ac0 | | Execute_Immediate Plus,-0x40
0380 00d8 | | Load_Top At_Offset_0
0381 00e8 | | Load_Encached Character_Cache
0382 0260 | ` | Execute Discrete,In_Type
0383 7001 |p | Jump_Nonzero 0x385
0384 0801 | | Execute_Immediate Raise,0x1
0385 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0386 487f |H | Short_Literal 0x7f
0387 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0388 ; --------------------------------------------------------------------------------------
0388 ; STRING TABLE
0388 ; --------------------------------------------------------------------------------------
0388 0072 | r | .STRTAB 0x0072->0x03c1 ; "UP"
0389 0072 | r | .STRTAB 0x0072->0x03c2 ; "DOWN"
038a 0074 | t | .STRTAB 0x0074->0x03c4 ; "RIGHT"
038b 0077 | w | .STRTAB 0x0077->0x03c6 ; "LEFT"
038c 0079 | y | .STRTAB 0x0079->0x03c8 ; "PF"
038d 0079 | y | .STRTAB 0x0079->0x03c9 ; "IMAGE"
038e 007c | | | .STRTAB 0x007c->0x03cc ; "LINE"
038f 007e | ~ | .STRTAB 0x007e->0x03ce ; "WORD"
0390 0080 | | .STRTAB 0x0080->0x03d0 ; "MARK"
0391 0082 | | .STRTAB 0x0082->0x03d2 ; "NUMERIC_"
0392 0088 | | .STRTAB 0x0088->0x03d6 ; "DASH"
0393 008a | | .STRTAB 0x008a->0x03d8 ; "NUMERIC_COMMA"
0394 0095 | | .STRTAB 0x0095->0x03de ; "ENTER"
0395 0098 | | .STRTAB 0x0098->0x03e1 ; "DOT"
0396 0099 | | .STRTAB 0x0099->0x03e2 ; "S_"
0397 0099 | | .STRTAB 0x0099->0x03e3 ; "C_"
0398 0099 | | .STRTAB 0x0099->0x03e4 ; "CS_"
0399 009a | | .STRTAB 0x009a->0x03e6 ; "ESC_"
039a 009c | | .STRTAB 0x009c->0x03e8 ; "NUL"
039b 009d | | .STRTAB 0x009d->0x03e9 ; "CARRIAGE_RETURN"
039c 00aa | | .STRTAB 0x00aa->0x03f1 ; "SPACE"
039d 00ad | | .STRTAB 0x00ad->0x03f3 ; "EXCLAM"
039e 00b1 | | .STRTAB 0x00b1->0x03f6 ; "AT_SIGN"
039f 00b6 | | .STRTAB 0x00b6->0x03fa ; "LEFT_BRACKET"
03a0 00c0 | | .STRTAB 0x00c0->0x0400 ; "BACKSLASH"
03a1 00c7 | | .STRTAB 0x00c7->0x0404 ; "RIGHT_BRACKET"
03a2 00d2 | | .STRTAB 0x00d2->0x040b ; "CIRCUMFLEX"
03a3 00da | | .STRTAB 0x00da->0x0410 ; "UNDERLINE"
03a4 00e1 | | .STRTAB 0x00e1->0x0414 ; "GRAVE"
03a5 00e4 | | .STRTAB 0x00e4->0x0417 ; "QUOTATION"
03a6 00eb | | .STRTAB 0x00eb->0x041b ; "SHARP"
03a7 00ee | | .STRTAB 0x00ee->0x041e ; "DOLLAR"
03a8 00f2 | | .STRTAB 0x00f2->0x0421 ; "PERCENT"
03a9 00f7 | | .STRTAB 0x00f7->0x0424 ; "AMPERSAND"
03aa 00fe | | .STRTAB 0x00fe->0x0429 ; "TICK"
03ab 0100 | | .STRTAB 0x0100->0x042b ; "LEFT_PAREN"
03ac 0108 | | .STRTAB 0x0108->0x0430 ; "RIGHT_PAREN"
03ad 0111 | | .STRTAB 0x0111->0x0435 ; "STAR"
03ae 0113 | | .STRTAB 0x0113->0x0437 ; "PLUS"
03af 0115 | | .STRTAB 0x0115->0x0439 ; "COMMA"
03b0 0118 | | .STRTAB 0x0118->0x043c ; "MINUS"
03b1 011b | | .STRTAB 0x011b->0x043e ; "PERIOD"
03b2 011f | | .STRTAB 0x011f->0x0441 ; "SLASH"
03b3 0122 | " | .STRTAB 0x0122->0x0444 ; "COLON"
03b4 0125 | % | .STRTAB 0x0125->0x0446 ; "SEMICOLON"
03b5 012c | , | .STRTAB 0x012c->0x044b ; "LESS_THAN"
03b6 0133 | 3 | .STRTAB 0x0133->0x044f ; "EQUAL"
03b7 0136 | 6 | .STRTAB 0x0136->0x0452 ; "GREATER_THAN"
03b8 0140 | @ | .STRTAB 0x0140->0x0458 ; "QUERY"
03b9 0143 | C | .STRTAB 0x0143->0x045a ; "LEFT_BRACE"
03ba 014b | K | .STRTAB 0x014b->0x045f ; "BAR"
03bb 014c | L | .STRTAB 0x014c->0x0461 ; "RIGHT_BRACE"
03bc 0155 | U | .STRTAB 0x0155->0x0466 ; "TILDE"
03bd 0158 | X | .STRTAB 0x0158->0x0469 ; "DELETE"
03be 015c | \ | .STRTAB 0x015c->0x046c ; "\x1b["
03bf 015c | \ | .STRTAB 0x015c->0x046d ; "\x1b?"
03c0 015c | \ | .STREND 0x015c->0x046e
03c1 5550 444f |UPDO| .STRTAB_STRINGS
046e 0000 0000 | | .XXX[0x2]
0470 ; --------------------------------------------------------------------------------------
0470 ; Debug Table
0470 ; --------------------------------------------------------------------------------------
0470 0004 000d | | .DEBUG4 0x0004,0x000d,0x91d3,0x0000,0x0001,0x0000
0476 2202 4000 |" @ | .XXX[0x18a]
0478 748a 0000 |t |
047a cee8 4080 | @ |
047c 0100 0001 | |
047e d240 4000 | @@ |
0480 7484 001d |t |
0482 cf40 1080 | @ |
0484 e348 1080 | H |
0486 e240 8880 | @ |
0488 05ff ffd3 | |
048a f240 1800 | @ |
048c 21ff ffdb |! |
048e 8b48 1080 | H |
0490 e2c0 4000 | @ |
0492 22e0 4000 |" @ |
0494 6100 0144 |a D|
0496 6240 4000 |b@@ |
0498 72e8 4000 |r @ |
049a 2202 9dff |" |
049c fcca 0000 | |
049e 1064 001d | d |
04a0 cc42 0000 | B |
04a2 7ee8 4080 |~ @ |
04a4 0360 0c82 | ` |
04a6 0202 4000 | @ |
04a8 30ca 0000 |0 |
04aa 1444 001d | D |
04ac cc6c 001d | l |
04ae cfe8 8d82 | |
04b0 0044 001d | D |
04b2 cee0 1d00 | |
04b4 73e0 8882 |s |
04b6 13c0 9d00 | |
04b8 0340 0882 | @ |
04ba 1094 001d | |
04bc cf90 1282 | |
04be 0290 8800 | |
04c0 4844 001d |HD |
04c2 ce40 4880 | @H |
04c4 f390 8880 | |
04c6 03a8 0880 | |
04c8 d2a8 1500 | |
04ca 63a8 8880 |c |
04cc d3b8 0880 | |
04ce 12b8 1780 | |
04d0 07b8 8880 | |
04d2 13d0 0880 | |
04d4 e2d0 1a80 | |
04d6 07d0 8880 | |
04d8 e1ff fff9 | |
04da d240 1d80 | @ |
04dc 22e8 4080 |" @ |
04de 0607 1f80 | |
04e0 2247 a000 |"G |
04e2 7677 8efe |vw |
04e4 8044 001d | D |
04e6 cf40 0882 | @ |
04e8 4202 4000 |B @ |
04ea 208a 0000 | |
04ec 206c 001d | l |
04ee cc44 001d | D |
04f0 cfe8 0882 | |
04f2 4350 0882 |CP |
04f4 4350 0a00 |CP |
04f6 0042 0000 | B |
04f8 d750 8882 | P |
04fa 4368 0d82 |Ch |
04fc 3202 4000 |2 @ |
04fe 34d2 0000 |4 |
0500 a844 001d | D |
0502 cc7c 0000 | | |
0504 22e0 0f80 |" |
0506 2100 0143 |! C|
0508 7e40 4000 |~@@ |
050a 72e8 4000 |r @ |
050c 2202 9dff |" |
050e fcca 0000 | |
0510 1c84 001d | |
0512 cc44 001d | D |
0514 cd00 0000 | |
0516 b640 4889 | @H |
0518 1442 0000 | B |
051a 92e8 4080 | @ |
051c 0380 1082 | |
051e 0202 4000 | @ |
0520 40ca 0000 |@ |
0522 1690 1d80 | |
0524 208c 001d | |
0526 cfe8 9182 | |
0528 0290 1d80 | |
052a 23e0 9d00 |# |
052c 009c 001d | |
052e cf90 9382 | |
0530 20ac 001d | |
0532 cea0 4088 | @ |
0534 03a0 9582 | |
0536 32e8 1d00 |2 |
0538 7044 001d |pD |
053a cfe8 8882 | |
053c 1340 0882 | @ |
053e 10cc 001d | |
0540 cfc8 1982 | |
0542 0054 001d | T |
0544 ce50 4a80 | PJ |
0546 f240 8800 | @ |
0548 6740 8a80 |g@ |
054a 0340 0a80 | @ |
054c f240 0800 | @ |
054e 7340 8a80 |s@ |
0550 f044 001d | D |
0552 cf50 0882 | P |
0554 3250 8a80 |2P |
0556 0750 8882 | P |
0558 3044 001d |0D |
055a cfe8 0882 | |
055c 2268 1d80 |"h |
055e 4368 8882 |Ch |
0560 2207 1f80 |" |
0562 2247 a000 |"G |
0564 744c 001d |tL |
0566 cf50 0982 | P |
0568 4350 8800 |CP |
056a 0207 0f80 | |
056c 2340 8982 |#@ |
056e 404c 001d |@L |
0570 e640 4080 | @@ |
0572 5a07 0f80 |Z |
0574 2340 898a |#@ |
0576 0000 0000 | |
0578 0277 8efe | w |
057a 8044 001f | D |
057c 0b40 088a | @ |
057e 2202 4000 |" @ |
0580 20ca 0000 | |
0582 405c 001f |@\ |
0584 0a48 4094 | H@ |
0586 d1ff fff3 | |
0588 c640 4080 | @@ |
058a 06e8 4000 | @ |
058c 2202 4000 |" @ |
058e 74ca 0000 |t |
0590 104c 001d | L |
0592 cc42 0000 | B |
0594 22e8 4080 |" @ |
0596 0248 4989 | HI |
0598 a748 9d91 | H |
059a a054 001f | T |
059c 0be8 8a8a | |
059e 205c 001f | \ |
05a0 0be8 0b8a | |
05a2 2207 1f80 |" |
05a4 2247 a000 |"G |
05a6 7677 8eee |vw |
05a8 01ff ffff | |
05aa a004 0000 | |
05ac 02e8 4000 | @ |
05ae 2202 4000 |" @ |
05b0 740a 0001 |t |
05b2 9700 9eff | |
05b4 f100 0003 | |
05b6 4c04 0000 |L |
05b8 0340 1d80 | @ |
05ba 9202 4000 | @ |
05bc 208a 0001 | |
05be 82e8 4080 | @ |
05c0 0350 1d80 | P |
05c2 9248 4090 | H@ |
05c4 0100 0121 | !|
05c6 e240 1eef | @ |
05c8 e202 4000 | @ |
05ca 200a 0001 | |
05cc 46e0 4080 |F @ |
05ce 0248 4080 | H@ |
05d0 2900 002c |) ,|
05d2 1a40 1eef | @ |
05d4 e202 4000 | @ |
05d6 204a 0000 | J |
05d8 7650 4080 |vP@ |
05da 5248 1eef |RH |
05dc e1ff ffed | |
05de 4a40 1eef |J@ |
05e0 93e0 beef | |
05e2 dd00 0004 | |
05e4 1640 1eef | @ |
05e6 904c 001d | L |
05e8 ce48 4989 | HI |
05ea d640 4080 | @@ |
05ec 9a50 4090 | P@ |
05ee 0100 0031 | 1|
05f0 0658 4000 | X@ |
05f2 6300 9eff |c |
05f4 f248 4080 | H@ |
05f6 2900 002b |) +|
05f8 ce40 1eef | @ |
05fa e202 4000 | @ |
05fc 204a 0000 | J |
05fe cb50 1d80 | P |