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

⟦e0dfe499d⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6148f2

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 0218       |    |		.CONST	0x0218								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 002e       | .  |		.CONST	0x002e								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0012       |    |		.CONST	0x0012								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4814       |H   |		Short_Literal	0x14
000d 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 4800       |H   |		Short_Literal	0x0
0011 4801       |H   |		Short_Literal	0x1
0012 029f 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call
0014 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0015 00d8       |    |		Load_Top	At_Offset_0
0016 00e1       |    |		Load_Encached	Boolean_Cache
0017 4801       |H   |		Short_Literal	0x1
0018 e20d       |    |		Load	0x1,0xd
0019 4801       |H   |		Short_Literal	0x1
001a 00e1       |    |		Load_Encached	Boolean_Cache
001b 029f 007b  |   {|		Declare_Subprogram	INIT_0078,For_Call
001d 4802       |H   |		Short_Literal	0x2
001e 4801       |H   |		Short_Literal	0x1
001f 4802       |H   |		Short_Literal	0x2
0020 4800       |H   |		Short_Literal	0x0
0021 4801       |H   |		Short_Literal	0x1
0022 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0023 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0025 00bf       |    |		Action	Accept_Activation
0026 e001       |    |		Load	0x0,0x1
0027 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0028 0337       | 7  |		Declare_Variable	Array
0029 e001       |    |		Load	0x0,0x1
002a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
002b 0337       | 7  |		Declare_Variable	Array
002c 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
002d 00c7       |    |		Action	Elaborate_Subprogram
002e			BODY_0008:
002e 00d9       |    |		Load_Top	At_Offset_1
002f 0092 0193  |    |		Action	Push_String_Extended,0x193					; "XR"
0031 00ea       |    |		Load_Encached	Null_String_Cache
0032 0092 0194  |    |		Action	Push_String_Extended,0x194					; "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_"
0034 e001       |    |		Load	0x0,0x1
0035 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0036 00d1       |    |		Pop_Control	Pop_Count_1
0037 00d8       |    |		Load_Top	At_Offset_0
0038 0092 0193  |    |		Action	Push_String_Extended,0x193					; "XR"
003a 00ea       |    |		Load_Encached	Null_String_Cache
003b 0092 0195  |    |		Action	Push_String_Extended,0x195					; " \x09\x0d\x0a\x0c\x0b\x00"
003d e001       |    |		Load	0x0,0x1
003e 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
003f 00d1       |    |		Pop_Control	Pop_Count_1
0040 00bc       |    |		Action	Signal_Activated
0041 00bb       |    |		Action	Signal_Completion
0042 0000 0000  |    |		.BLANK	0000[0x6]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 4603       |F   |		Jump_Case	0x4
004c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
004d 7802       |x   |		Jump	0x50								; case 0x1
004e 7805       |x   |		Jump	0x54								; case 0x2
004f 7809       |x   |		Jump	0x59								; case 0x3
0050 00da       |    |		Load_Top	At_Offset_2
0051 0091 017c  |   ||		Action	Push_String_Extended_Indexed,0x17c				; "LK_IF"
0053 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0054 00db       |    |		Load_Top	At_Offset_3
0055 00db       |    |		Load_Top	At_Offset_3
0056 00e0       |    |		Load_Encached	Standard_Cache
0057 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0058 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0059 00da       |    |		Load_Top	At_Offset_2
005a 00e0       |    |		Load_Encached	Standard_Cache
005b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
005c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
005d 0000 0000  |    |		.XXX[0x3]
005f 0000       |    |
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 4603       |F   |		Jump_Case	0x4
0064 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0065 7802       |x   |		Jump	0x68								; case 0x1
0066 7805       |x   |		Jump	0x6c								; case 0x2
0067 7809       |x   |		Jump	0x71								; case 0x3
0068 00da       |    |		Load_Top	At_Offset_2
0069 0091 0191  |    |		Action	Push_String_Extended_Indexed,0x191				; "SK_KEYWORD"
006b 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
006c 00db       |    |		Load_Top	At_Offset_3
006d 00db       |    |		Load_Top	At_Offset_3
006e 00e0       |    |		Load_Encached	Standard_Cache
006f 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0070 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0071 00da       |    |		Load_Top	At_Offset_2
0072 00e0       |    |		Load_Encached	Standard_Cache
0073 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0074 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0075 0000 0000  |    |		.XXX[0x3]
0077 0000       |    |
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 4608       |F   |		Jump_Case	0x9
007c 7808       |x   |		Jump	0x85								; case 0x0
007d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
007e 7831       |x1  |		Jump	0xb0								; case 0x2
007f 7830       |x0  |		Jump	0xb0								; case 0x3
0080 782f       |x/  |		Jump	0xb0								; case 0x4
0081 782e       |x.  |		Jump	0xb0								; case 0x5
0082 7813       |x   |		Jump	0x96								; case 0x6
0083 781a       |x   |		Jump	0x9e								; case 0x7
0084 7824       |x$  |		Jump	0xa9								; case 0x8
0085 00da       |    |		Load_Top	At_Offset_2
0086 016c       | l  |		Execute	Variant_Record,Is_Constrained
0087 7009       |p   |		Jump_Nonzero	0x91
0088 00cf       |    |		Action	Mark_Auxiliary
0089 4801       |H   |		Short_Literal	0x1
008a e5ff       |    |		Load	0x2,-0x1
008b 1c08       |    |		Execute_Immediate	Run_Utility,0x8
008c 00d8       |    |		Load_Top	At_Offset_0
008d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008e c5ff       |    |		Store	0x2,-0x1
008f 00ce       |    |		Action	Pop_Auxiliary
0090 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0091 00da       |    |		Load_Top	At_Offset_2
0092 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0093 4601       |F   |		Jump_Case	0x2
0094 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0095 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0096 00db       |    |		Load_Top	At_Offset_3
0097 4601       |F   |		Jump_Case	0x2
0098 7801       |x   |		Jump	0x9a								; case 0x0
0099 7802       |x   |		Jump	0x9c								; case 0x1
009a 4801       |H   |		Short_Literal	0x1
009b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
009c 4802       |H   |		Short_Literal	0x2
009d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
009e 00db       |    |		Load_Top	At_Offset_3
009f e5fe       |    |		Load	0x2,-0x2
00a0 4601       |F   |		Jump_Case	0x2
00a1 7801       |x   |		Jump	0xa3								; case 0x0
00a2 7802       |x   |		Jump	0xa5								; case 0x1
00a3 4801       |H   |		Short_Literal	0x1
00a4 7801       |x   |		Jump	0xa6
00a5 4802       |H   |		Short_Literal	0x2
00a6 e5ff       |    |		Load	0x2,-0x1
00a7 031b       |    |		Declare_Type	Variant_Record,Constrained
00a8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00a9 00db       |    |		Load_Top	At_Offset_3
00aa e5fe       |    |		Load	0x2,-0x2
00ab e5ff       |    |		Load	0x2,-0x1
00ac 1c06       |    |		Execute_Immediate	Run_Utility,0x6
00ad e5ff       |    |		Load	0x2,-0x1
00ae 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
00af 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00b0 0869       | i  |		Execute_Immediate	Raise,0x69
00b1 0000 0000  |    |		.BLANK	0000[0x7]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bd       |    |		.CONST	0x00bd								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0003       |    |		.CONST	0x0003								; Number of locals
00bb			INIT_00b8:
00bb 00e8       |    |		Load_Encached	Character_Cache
00bc 00e1       |    |		Load_Encached	Boolean_Cache
00bd			BODY_00b8:
00bd e5fd       |    |		Load	0x2,-0x3
00be e002       |    |		Load	0x0,0x2
00bf 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00c0 00e8       |    |		Load_Encached	Character_Cache
00c1 e212       |    |		Load	0x1,0x12
00c2 e5ff       |    |		Load	0x2,-0x1
00c3 e001       |    |		Load	0x0,0x1
00c4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00c5 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00c6 00d9       |    |		Load_Top	At_Offset_1
00c7 0b00       |    |		Execute_Immediate	Case_Compare,0x0
00c8 701d       |p   |		Jump_Nonzero	0xe6
00c9 00d8       |    |		Load_Top	At_Offset_0
00ca 4841       |HA  |		Short_Literal	0x41
00cb 485a       |HZ  |		Short_Literal	0x5a
00cc 0262       | b  |		Execute	Discrete,In_Range
00cd 7022       |p"  |		Jump_Nonzero	0xf0
00ce 00d8       |    |		Load_Top	At_Offset_0
00cf 4861       |Ha  |		Short_Literal	0x61
00d0 487a       |Hz  |		Short_Literal	0x7a
00d1 0262       | b  |		Execute	Discrete,In_Range
00d2 701d       |p   |		Jump_Nonzero	0xf0
00d3 0b7c       | |  |		Execute_Immediate	Case_Compare,0x7c
00d4 703d       |p=  |		Jump_Nonzero	0x112
00d5 0b2c       | ,  |		Execute_Immediate	Case_Compare,0x2c
00d6 7042       |pB  |		Jump_Nonzero	0x119
00d7 0b3b       | ;  |		Execute_Immediate	Case_Compare,0x3b
00d8 7047       |pG  |		Jump_Nonzero	0x120
00d9 0b28       | (  |		Execute_Immediate	Case_Compare,0x28
00da 704c       |pL  |		Jump_Nonzero	0x127
00db 0b29       | )  |		Execute_Immediate	Case_Compare,0x29
00dc 7051       |pQ  |		Jump_Nonzero	0x12e
00dd 0b3d       | =  |		Execute_Immediate	Case_Compare,0x3d
00de 7056       |pV  |		Jump_Nonzero	0x135
00df 0b2f       | /  |		Execute_Immediate	Case_Compare,0x2f
00e0 706f       |po  |		Jump_Nonzero	0x150
00e1 0b2d       | -  |		Execute_Immediate	Case_Compare,0x2d
00e2 707e       |p~  |		Jump_Nonzero	0x161
00e3 4813       |H   |		Short_Literal	0x13
00e4 a5fe       |    |		Store_Unchecked	0x2,-0x2
00e5 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e6 e5ff       |    |		Load	0x2,-0x1
00e7 0227       | '  |		Execute	Access,All_Reference
00e8 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00e9 7003       |p   |		Jump_Nonzero	0xed
00ea 4814       |H   |		Short_Literal	0x14
00eb a5fe       |    |		Store_Unchecked	0x2,-0x2
00ec 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00ed 4813       |H   |		Short_Literal	0x13
00ee a5fe       |    |		Store_Unchecked	0x2,-0x2
00ef 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f0 00e8       |    |		Load_Encached	Character_Cache
00f1 e211       |    |		Load	0x1,0x11
00f2 e5ff       |    |		Load	0x2,-0x1
00f3 e5fd       |    |		Load	0x2,-0x3
00f4 e001       |    |		Load	0x0,0x1
00f5 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
00f6 005b       | [  |		Store_Top	Discrete,At_Offset_3
00f7 00e1       |    |		Load_Encached	Boolean_Cache
00f8 e5fc       |    |		Load	0x2,-0x4
00f9 e5fd       |    |		Load	0x2,-0x3
00fa e002       |    |		Load	0x0,0x2
00fb 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
00fc e003       |    |		Load	0x0,0x3
00fd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00fe e003       |    |		Load	0x0,0x3
00ff 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0100 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0101 00d1       |    |		Pop_Control	Pop_Count_1
0102 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0103 00d9       |    |		Load_Top	At_Offset_1
0104 7003       |p   |		Jump_Nonzero	0x108
0105 4806       |H   |		Short_Literal	0x6
0106 a5fe       |    |		Store_Unchecked	0x2,-0x2
0107 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0108 e5fc       |    |		Load	0x2,-0x4
0109 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
010a 7004       |p   |		Jump_Nonzero	0x10f
010b e5fc       |    |		Load	0x2,-0x4
010c 2e03       |.   |		Execute	Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
010d a5fe       |    |		Store_Unchecked	0x2,-0x2
010e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
010f 4805       |H   |		Short_Literal	0x5
0110 a5fe       |    |		Store_Unchecked	0x2,-0x2
0111 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0112 e5ff       |    |		Load	0x2,-0x1
0113 e002       |    |		Load	0x0,0x2
0114 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0115 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0116 480d       |H   |		Short_Literal	0xd
0117 a5fe       |    |		Store_Unchecked	0x2,-0x2
0118 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0119 e5ff       |    |		Load	0x2,-0x1
011a e002       |    |		Load	0x0,0x2
011b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
011c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
011d 480f       |H   |		Short_Literal	0xf
011e a5fe       |    |		Store_Unchecked	0x2,-0x2
011f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0120 e5ff       |    |		Load	0x2,-0x1
0121 e002       |    |		Load	0x0,0x2
0122 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0123 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0124 4810       |H   |		Short_Literal	0x10
0125 a5fe       |    |		Store_Unchecked	0x2,-0x2
0126 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0127 e5ff       |    |		Load	0x2,-0x1
0128 e002       |    |		Load	0x0,0x2
0129 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
012a 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
012b 4811       |H   |		Short_Literal	0x11
012c a5fe       |    |		Store_Unchecked	0x2,-0x2
012d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
012e e5ff       |    |		Load	0x2,-0x1
012f e002       |    |		Load	0x0,0x2
0130 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0131 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0132 4812       |H   |		Short_Literal	0x12
0133 a5fe       |    |		Store_Unchecked	0x2,-0x2
0134 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0135 e5ff       |    |		Load	0x2,-0x1
0136 0227       | '  |		Execute	Access,All_Reference
0137 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0138 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
0139 680f       |h   |		Jump_Zero	0x149
013a 4802       |H   |		Short_Literal	0x2
013b e5ff       |    |		Load	0x2,-0x1
013c 0227       | '  |		Execute	Access,All_Reference
013d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
013e 01d7       |    |		Execute	Vector,Field_Read
013f 0f3e       | >  |		Execute_Immediate	Equal,0x3e
0140 6808       |h   |		Jump_Zero	0x149
0141 480e       |H   |		Short_Literal	0xe
0142 a5fe       |    |		Store_Unchecked	0x2,-0x2
0143 6034       |`4  |		Indirect_Literal	Discrete,0x178,{0x00000000, 0x7fffffff}
0144 4803       |H   |		Short_Literal	0x3
0145 e5ff       |    |		Load	0x2,-0x1
0146 e002       |    |		Load	0x0,0x2
0147 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0148 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0149 e5ff       |    |		Load	0x2,-0x1
014a e002       |    |		Load	0x0,0x2
014b 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
014c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
014d 480b       |H   |		Short_Literal	0xb
014e a5fe       |    |		Store_Unchecked	0x2,-0x2
014f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0150 0092 0196  |    |		Action	Push_String_Extended,0x196					; "/="
0152 e5ff       |    |		Load	0x2,-0x1
0153 e004       |    |		Load	0x0,0x4
0154 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0155 6808       |h   |		Jump_Zero	0x15e
0156 480c       |H   |		Short_Literal	0xc
0157 a5fe       |    |		Store_Unchecked	0x2,-0x2
0158 601f       |`   |		Indirect_Literal	Discrete,0x178,{0x00000000, 0x7fffffff}
0159 4803       |H   |		Short_Literal	0x3
015a e5ff       |    |		Load	0x2,-0x1
015b e002       |    |		Load	0x0,0x2
015c 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
015d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
015e 4813       |H   |		Short_Literal	0x13
015f a5fe       |    |		Store_Unchecked	0x2,-0x2
0160 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0161 e5ff       |    |		Load	0x2,-0x1
0162 0227       | '  |		Execute	Access,All_Reference
0163 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0164 0d02       |    |		Execute_Immediate	Less,0x2
0165 7007       |p   |		Jump_Nonzero	0x16d
0166 4802       |H   |		Short_Literal	0x2
0167 e5ff       |    |		Load	0x2,-0x1
0168 0227       | '  |		Execute	Access,All_Reference
0169 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
016a 01d7       |    |		Execute	Vector,Field_Read
016b 0e2d       | -  |		Execute_Immediate	Not_Equal,0x2d
016c 6803       |h   |		Jump_Zero	0x170
016d 4813       |H   |		Short_Literal	0x13
016e a5fe       |    |		Store_Unchecked	0x2,-0x2
016f 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0170 e5ff       |    |		Load	0x2,-0x1
0171 e002       |    |		Load	0x0,0x2
0172 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0173 4814       |H   |		Short_Literal	0x14
0174 a5fe       |    |		Store_Unchecked	0x2,-0x2
0175 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0176 0000 0000  |    |		.XXX[0x2]
0178 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
017c ; --------------------------------------------------------------------------------------
017c ; STRING TABLE
017c ; --------------------------------------------------------------------------------------
017c 0038       | 8  |		.STRTAB	0x0038->0x0198							; "LK_IF"
017d 003b       | ;  |		.STRTAB	0x003b->0x019a							; "LK_THEN"
017e 0040       | @  |		.STRTAB	0x0040->0x019e							; "LK_ELSIF"
017f 0046       | F  |		.STRTAB	0x0046->0x01a2							; "LK_ELSE"
0180 004b       | K  |		.STRTAB	0x004b->0x01a5							; "LK_END"
0181 004f       | O  |		.STRTAB	0x004f->0x01a8							; "LK_IDENTIFIER"
0182 005a       | Z  |		.STRTAB	0x005a->0x01af							; "LK_UNKNOWN"
0183 0062       | b  |		.STRTAB	0x0062->0x01b4							; "LK_NOT"
0184 0066       | f  |		.STRTAB	0x0066->0x01b7							; "LK_AND"
0185 006a       | j  |		.STRTAB	0x006a->0x01ba							; "LK_OR"
0186 006d       | m  |		.STRTAB	0x006d->0x01bc							; "LK_XOR"
0187 0071       | q  |		.STRTAB	0x0071->0x01bf							; "LK_EQL"
0188 0075       | u  |		.STRTAB	0x0075->0x01c2							; "LK_NEQ"
0189 0079       | y  |		.STRTAB	0x0079->0x01c5							; "LK_VBAR"
018a 007e       | ~  |		.STRTAB	0x007e->0x01c9							; "LK_ARROW"
018b 0084       |    |		.STRTAB	0x0084->0x01cd							; "LK_COMMA"
018c 008a       |    |		.STRTAB	0x008a->0x01d1							; "LK_SEMICOLON"
018d 0094       |    |		.STRTAB	0x0094->0x01d7							; "LK_LPAREN"
018e 009b       |    |		.STRTAB	0x009b->0x01db							; "LK_RPAREN"
018f 00a2       |    |		.STRTAB	0x00a2->0x01e0							; "LK_ERROR"
0190 00a8       |    |		.STRTAB	0x00a8->0x01e4							; "LK_EOL"
0191 00ac       |    |		.STRTAB	0x00ac->0x01e7							; "SK_KEYWORD"
0192 00b4       |    |		.STRTAB	0x00b4->0x01ec							; "SK_BOOLEAN"
0193 00bc       |    |		.STRTAB	0x00bc->0x01f1							; "XR"
0194 00bc       |    |		.STRTAB	0x00bc->0x01f2							; "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_"
0195 00f9       |    |		.STRTAB	0x00f9->0x0211							; " \x09\x0d\x0a\x0c\x0b\x00"
0196 00fe       |    |		.STRTAB	0x00fe->0x0215							; "/="
0197 00fe       |    |		.STREND 0x00fe->0x0216
0198 4c4b 5f49  |LK_I|		.STRTAB_STRINGS
0216 0000 0000  |    |		.XXX[0x2]
0218 ; --------------------------------------------------------------------------------------
0218 ; Debug Table
0218 ; --------------------------------------------------------------------------------------
0218 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0xa93b,0x0000,0x0001,0x0000
021e 340b 1c03  |4   |		.XXX[0x1e2]
0220 6070 0380  |`p  |
0222 146c 4380  | lC |
0224 106c 4c6c  | lLl|
0226 340b 1c03  |4   |
0228 6070 0380  |`p  |
022a 046c 3780  | l7 |
022c 046c 3403  | l4 |
022e b397 fc00  |    |
0230 c403 b003  |    |
0232 8418 0003  |    |
0234 8418 0380  |    |
0236 046c e06c  | l l|
0238 380b 1c03  |8   |
023a 6070 0380  |`p  |
023c 046c cc18  | l  |
023e 0380 046c  |   l|
0240 d06c 340b  | l4 |
0242 1f80 046c  |   l|
0244 d06c 3b10  | l; |
0246 5120 0297  |Q   |
0248 e003 ac60  |   `|
024a 4a97 f380  |J   |
024c 0860 6f17  | `o |
024e ec03 ac61  |   a|
0250 c297 e803  |    |
0252 ac61 c297  | a  |
0254 e790 0c04  |    |
0256 81a0 1380  |    |
0258 106c 4c6c  | lLl|
025a 35e0 0790  |5   |
025c 0f90 0920  |    |
025e 0b89 cc5c  |   \|
0260 4710 0f90  |G   |
0262 0f90 3b80  |  ; |
0264 106c 4c60  | lL`|
0266 4804 bda0  |H   |
0268 2f89 2802  |/ ( |
026a 48a8 7007  |H p |
026c 3002 48a8  |0 H |
026e 7609 a920  |v   |
0270 1a97 dd88  |    |
0272 f409 5f80  |  _ |
0274 046c 3790  | l7 |
0276 1780 346c  |  4l|
0278 3c05 8b90  |<   |
027a 3b80 046c  |;  l|
027c e060 6c03  | `l |
027e 4710 3390  |G 3 |
0280 3209 8780  |2   |
0282 146c 4390  | lC |
0284 2404 81a0  |$   |
0286 0f80 146c  |   l|
0288 35e0 0790  |5   |
028a 2790 2c04  |' , |
028c 81a0 1380  |    |
028e 106c 4c6c  | lLl|
0290 35e0 0790  |5   |
0292 2f90 1790  |/   |
0294 0920 1789  |    |
0296 cc5c 4f10  | \O |
0298 2f10 2710  |/ ' |
029a 2b90 2780  |+ ' |
029c 146c 3804  | l8 |
029e bdc0 a390  |    |
02a0 2520 0520  |%   |
02a2 0380 1460  |   `|
02a4 6310 2790  |c ' |
02a6 1790 0920  |    |
02a8 0b89 cc5c  |   \|
02aa 5780 046c  |W  l|
02ac 3790 1004  |7   |
02ae 81a0 1380  |    |
02b0 046c e06c  | l l|
02b2 85e0 0790  |    |
02b4 1380 046c  |   l|
02b6 e06c 5b90  | l[ |
02b8 159c d920  |    |
02ba 0520 0380  |    |
02bc 146c 3920  | l9 |
02be 0380 046c  |   l|
02c0 e060 a003  | `  |
02c2 4710 3b10  |G ; |
02c4 1310 3390  |  3 |
02c6 3209 8780  |2   |
02c8 046c 3790  | l7 |
02ca 1804 81a0  |    |
02cc 1380 046c  |   l|
02ce e06c 39e0  | l9 |
02d0 0790 1b90  |    |
02d2 3b80 046c  |;  l|
02d4 e060 7310  | `s |
02d6 1b10 3390  |  3 |
02d8 3209 8790  |2   |
02da 3803 ac63  |8  c|
02dc b290 3f90  |  ? |
02de 3c03 ac60  |<  `|
02e0 4da0 1b90  |M   |
02e2 3b80 046c  |;  l|
02e4 e860 4da0  | `M |
02e6 05e0 6f90  |  o |
02e8 3b80 046c  |;  l|
02ea e860 51a0  | `Q |
02ec 5b97 f834  |[  4|
02ee 0da0 4f90  |  O |
02f0 1b80 046c  |   l|
02f2 f460 49c0  | `I |
02f4 3920 0697  |9   |
02f6 e390 3390  |  3 |
02f8 4120 0790  |A   |
02fa 0b90 1a09  |    |
02fc c710 4310  |  C |
02fe 3390 4297  |3 B |
0300 e390 3209  |  2 |
0302 8520 0c01  |    |
0304 4803 6004  |H ` |
0306 81a0 1380  |    |
0308 046c d06c  | l l|
030a 35e0 0403  |5   |
030c 6380 6060  |c ``|
030e 4780 6460  |G d`|
0310 4780 046c  |G  l|
0312 d060 3f10  | `? |
0314 5380 046c  |S  l|
0316 3403 6c04  |4 l |
0318 81a0 1380  |    |
031a 046c f46c  | l l|
031c 35e0 0403  |5   |
031e 6f90 1b80  |o   |
0320 046c e060  | l `|
0322 4b80 046c  |K  l|
0324 f460 7310  | `s |
0326 4b10 3390  |K 3 |
0328 3209 8403  |2   |
032a 6b80 046c  |k  l|
032c e060 4803  | `H |
032e 6780 046c  |g  l|
0330 d060 5797  | `W |
0332 f9c0 bb90  |    |
0334 3c03 ac60  |<  `|
0336 4da0 a803  |M   |
0338 ac60 4a90  | `J |
033a 2380 046c  |#  l|
033c 3403 c780  |4   |
033e 046c e06c  | l l|
0340 5f97 ec04  |_   |
0342 81a0 0f80  |    |
0344 086c 35e0  | l5 |
0346 1397 ef80  |    |
0348 086c 3404  | l4 |
034a 799a 9380  |y   |
034c 146c 3b90  | l; |
034e 4f90 5380  |O S |
0350 0460 5780  | `W |
0352 0460 5790  | `W |
0354 1b80 046c  |   l|
0356 e060 4b80  | `K |
0358 046c ec60  | l `|
035a 8388 5004  |  P |
035c 7b17 ef17  |{   |
035e eb17 e710  |    |
0360 31e1 ef97  |1   |
0362 f9c1 5390  |  S |
0364 1b80 046c  |   l|
0366 f460 49a1  | `I |
0368 3f90 3e90  |? > |
036a 21e0 3390  |! 3 |
036c 2003 ac60  |   `|
036e 4da0 1120  |M   |
0370 1697 dd84  |    |
0372 f409 5f90  |  _ |
0374 2003 ac63  |   c|
0376 b290 2390  |  # |
0378 2003 ac60  |   `|
037a 503e 45bf  |P>E |
037c bf80 046c  |   l|
037e 3790 1c04  |7   |
0380 81a0 0f80  |    |
0382 046c 3de0  | l= |
0384 0790 1d99  |    |
0386 a780 146c  |   l|
0388 3920 0380  |9   |
038a 0460 7b90  | `{ |
038c 3b80 046c  |;  l|
038e e460 5b10  | `[ |
0390 1f10 3390  |  3 |
0392 3209 8780  |2   |
0394 046c 3403  | l4 |
0396 c780 046c  |   l|
0398 e06c 5f97  | l_ |
039a ec04 81a0  |    |
039c 0f80 086c  |   l|
039e 35e0 1397  |5   |
03a0 ef80 086c  |   l|
03a2 3404 7999  |4 y |
03a4 2f80 146c  |/  l|
03a6 3b90 4f90  |; O |
03a8 5380 0460  |S  `|
03aa 5780 0460  |W  `|
03ac 5790 1f80  |W   |
03ae 046c ec60  | l `|
03b0 8388 5004  |  P |
03b2 7b17 ef17  |{   |
03b4 eb17 e710  |    |
03b6 31e0 9780  |1   |
03b8 046c 3403  | l4 |
03ba c780 046c  |   l|
03bc e06c 5c03  | l\ |
03be b397 ec04  |    |
03c0 81a0 0f80  |    |
03c2 086c 35e0  | l5 |
03c4 1397 ef80  |    |
03c6 086c 3404  | l4 |
03c8 7998 9b80  |y   |
03ca 146c 3b90  | l; |
03cc 4f90 5380  |O S |
03ce 0460 5797  | `W |
03d0 fb97 f790  |    |
03d2 3b80 046c  |;  l|
03d4 e860 5b88  | `[ |
03d6 5004 7b17  |P { |
03d8 ef10 2317  |  # |
03da eb17 e710  |    |
03dc 3390 2297  |3 " |
03de f390 3209  |  2 |
03e0 8520 0297  |    |
03e2 dd14 1198  |    |
03e4 3c04 3da0  |< = |
03e6 0f90 3297  |  2 |
03e8 dd14 1183  |    |
03ea 1404 3da0  |  = |
03ec 0514 1380  |    |
03ee 046c 3789  | l7 |
03f0 2802 48a8  |( H |
03f2 7007 3209  |p 2 |
03f4 af17 dd14  |    |
03f6 1000 004e  |   N|
03f8 cc00 1000  |    |
03fa 0780 0460  |   `|
03fc 4003 2800  |@ ( |
03fe 0000 004e  |   N|