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

⟦d7e015887⟧

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

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 0400       |    |		.CONST	0x0400								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0045       | E  |		.CONST	0x0045								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 001a       |    |		.CONST	0x001a								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4808       |H   |		Short_Literal	0x8
000d 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 00e8       |    |		Load_Encached	Character_Cache
0011 0266       | f  |		Execute	Discrete,Bounds
0012 00da       |    |		Load_Top	At_Offset_2
0013 02a0       |    |		Declare_Subprogram	Null_Subprogram
0014 4801       |H   |		Short_Literal	0x1
0015 035e       | ^  |		Declare_Type	Array,Defined,Visible
0016 029a 0073  |   s|		Declare_Subprogram	INIT_0070,For_Outer_Call,Visible,Unelaborated
0018 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
001a 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
001c 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
001e 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0020 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0022 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0024 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
0026 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated
0028 029a 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call,Visible,Unelaborated
002a 029a 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call,Visible,Unelaborated
002c 00bf       |    |		Action	Accept_Activation
002d 029d 029b  |    |		Declare_Subprogram	INIT_0298,For_Outer_Call
002f 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0030 00c7       |    |		Action	Elaborate_Subprogram
0031 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0032 00c7       |    |		Action	Elaborate_Subprogram
0033 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
0034 00c7       |    |		Action	Elaborate_Subprogram
0035 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
0036 00c7       |    |		Action	Elaborate_Subprogram
0037 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0038 00c7       |    |		Action	Elaborate_Subprogram
0039 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
003a 00c7       |    |		Action	Elaborate_Subprogram
003b 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
003c 00c7       |    |		Action	Elaborate_Subprogram
003d 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
003e 00c7       |    |		Action	Elaborate_Subprogram
003f 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
0040 00c7       |    |		Action	Elaborate_Subprogram
0041 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0042 00c7       |    |		Action	Elaborate_Subprogram
0043 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0044 00c7       |    |		Action	Elaborate_Subprogram
0045			BODY_0008:
0045 00bc       |    |		Action	Signal_Activated
0046 00bb       |    |		Action	Signal_Completion
0047 0000       |    |		.XXX[0x1]
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 4607       |F   |		Jump_Case	0x8
004c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
004d 7807       |x   |		Jump	0x55								; case 0x1
004e 780a       |x   |		Jump	0x59								; case 0x2
004f 780e       |x   |		Jump	0x5e								; case 0x3
0050 7811       |x   |		Jump	0x62								; case 0x4
0051 7812       |x   |		Jump	0x64								; case 0x5
0052 7813       |x   |		Jump	0x66								; case 0x6
0053 7816       |x   |		Jump	0x6a								; case 0x7
0054 4302       |C   |		.XXX[0x1]
0055 00da       |    |		Load_Top	At_Offset_2
0056 0091 03b1  |    |		Action	Push_String_Extended_Indexed,0x3b1				; "SA_TRANSFER"
0058 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0059 00db       |    |		Load_Top	At_Offset_3
005a 00db       |    |		Load_Top	At_Offset_3
005b 00e0       |    |		Load_Encached	Standard_Cache
005c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
005d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
005e 00da       |    |		Load_Top	At_Offset_2
005f 00e0       |    |		Load_Encached	Standard_Cache
0060 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0061 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0062 00db       |    |		Load_Top	At_Offset_3
0063 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0064 00db       |    |		Load_Top	At_Offset_3
0065 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0066 e20d       |    |		Load	0x1,0xd
0067 00dc       |    |		Load_Top	At_Offset_4
0068 0267       | g  |		Execute	Discrete,Predecessor
0069 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006a e20d       |    |		Load	0x1,0xd
006b 00dc       |    |		Load_Top	At_Offset_4
006c 0268       | h  |		Execute	Discrete,Successor
006d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
006e 0000 0000  |    |		.XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073       | s  |		.CONST	0x0073								; Address of begin
0071 0004       |    |		.CONST	0x0004								; Address of exception handler
0072 0001       |    |		.CONST	0x0001								; Number of locals
0073			BODY_0070:
0073			INIT_0070:
0073 00e8       |    |		Load_Encached	Character_Cache
0074 e5fd       |    |		Load	0x2,-0x3
0075 e5fe       |    |		Load	0x2,-0x2
0076 e5ff       |    |		Load	0x2,-0x1
0077 4800       |H   |		Short_Literal	0x0
0078 821a       |    |		Call	0x1,0x1a
0079 00d2       |    |		Pop_Control	Pop_Count_2
007a c5fc       |    |		Store	0x2,-0x4
007b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
007c 0000 0000  |    |		.BLANK	0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00e8       |    |		Load_Encached	Character_Cache
0084 00db       |    |		Load_Top	At_Offset_3
0085 0229       | )  |		Execute	Access,All_Read
0086 e5fd       |    |		Load	0x2,-0x3
0087 e5fe       |    |		Load	0x2,-0x2
0088 4800       |H   |		Short_Literal	0x0
0089 821a       |    |		Call	0x1,0x1a
008a 00d2       |    |		Pop_Control	Pop_Count_2
008b c5fc       |    |		Store	0x2,-0x4
008c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
008d 0000 0000  |    |		.XXX[0x3]
008f 0000       |    |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 00e8       |    |		Load_Encached	Character_Cache
0094 e5fd       |    |		Load	0x2,-0x3
0095 e5ff       |    |		Load	0x2,-0x1
0096 0229       | )  |		Execute	Access,All_Read
0097 e5fe       |    |		Load	0x2,-0x2
0098 4800       |H   |		Short_Literal	0x0
0099 821a       |    |		Call	0x1,0x1a
009a 00d2       |    |		Pop_Control	Pop_Count_2
009b c5fc       |    |		Store	0x2,-0x4
009c 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
009d 0000 0000  |    |		.XXX[0x3]
009f 0000       |    |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 00e8       |    |		Load_Encached	Character_Cache
00a4 e5fe       |    |		Load	0x2,-0x2
00a5 0229       | )  |		Execute	Access,All_Read
00a6 e5ff       |    |		Load	0x2,-0x1
00a7 0229       | )  |		Execute	Access,All_Read
00a8 e5fd       |    |		Load	0x2,-0x3
00a9 4800       |H   |		Short_Literal	0x0
00aa 821a       |    |		Call	0x1,0x1a
00ab 00d2       |    |		Pop_Control	Pop_Count_2
00ac c5fc       |    |		Store	0x2,-0x4
00ad 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00ae 0000 0000  |    |		.XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3       |    |		.CONST	0x00b3								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0001       |    |		.CONST	0x0001								; Number of locals
00b3			BODY_00b0:
00b3			INIT_00b0:
00b3 00e8       |    |		Load_Encached	Character_Cache
00b4 e5fd       |    |		Load	0x2,-0x3
00b5 e5fe       |    |		Load	0x2,-0x2
00b6 e5ff       |    |		Load	0x2,-0x1
00b7 e5fe       |    |		Load	0x2,-0x2
00b8 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00b9 821a       |    |		Call	0x1,0x1a
00ba 00d2       |    |		Pop_Control	Pop_Count_2
00bb c5fc       |    |		Store	0x2,-0x4
00bc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00bd 0000 0000  |    |		.XXX[0x3]
00bf 0000       |    |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00e8       |    |		Load_Encached	Character_Cache
00c4 00db       |    |		Load_Top	At_Offset_3
00c5 0229       | )  |		Execute	Access,All_Read
00c6 e5fd       |    |		Load	0x2,-0x3
00c7 e5fe       |    |		Load	0x2,-0x2
00c8 e5fd       |    |		Load	0x2,-0x3
00c9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ca 821a       |    |		Call	0x1,0x1a
00cb 00d2       |    |		Pop_Control	Pop_Count_2
00cc c5fc       |    |		Store	0x2,-0x4
00cd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00ce 0000 0000  |    |		.XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 00db       |    |		Load_Top	At_Offset_3
00d4 0229       | )  |		Execute	Access,All_Read
00d5 00e8       |    |		Load_Encached	Character_Cache
00d6 e5fd       |    |		Load	0x2,-0x3
00d7 00da       |    |		Load_Top	At_Offset_2
00d8 e5ff       |    |		Load	0x2,-0x1
00d9 e5fe       |    |		Load	0x2,-0x2
00da 0227       | '  |		Execute	Access,All_Reference
00db 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00dc 821a       |    |		Call	0x1,0x1a
00dd 00d2       |    |		Pop_Control	Pop_Count_2
00de c5fc       |    |		Store	0x2,-0x4
00df 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 e5fd       |    |		Load	0x2,-0x3
00e4 0229       | )  |		Execute	Access,All_Read
00e5 00e8       |    |		Load_Encached	Character_Cache
00e6 e5ff       |    |		Load	0x2,-0x1
00e7 0229       | )  |		Execute	Access,All_Read
00e8 00da       |    |		Load_Top	At_Offset_2
00e9 e5fe       |    |		Load	0x2,-0x2
00ea e5fd       |    |		Load	0x2,-0x3
00eb 0227       | '  |		Execute	Access,All_Reference
00ec 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ed 821a       |    |		Call	0x1,0x1a
00ee 00d2       |    |		Pop_Control	Pop_Count_2
00ef c5fc       |    |		Store	0x2,-0x4
00f0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00f1 0000 0000  |    |		.BLANK	0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0101       |    |		.CONST	0x0101								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0003       |    |		.CONST	0x0003								; Number of locals
00fb			INIT_00f8:
00fb e002       |    |		Load	0x0,0x2
00fc 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
00fd e5fe       |    |		Load	0x2,-0x2
00fe 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ff e002       |    |		Load	0x0,0x2
0100 03f1       |    |		Declare_Variable	Discrete,With_Value
0101			BODY_00f8:
0101 4800       |H   |		Short_Literal	0x0
0102 a5fd       |    |		Store_Unchecked	0x2,-0x3
0103 00cf       |    |		Action	Mark_Auxiliary
0104 7846       |xF  |		Jump	0x14b
0105 00da       |    |		Load_Top	At_Offset_2
0106 e5fe       |    |		Load	0x2,-0x2
0107 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0108 01d7       |    |		Execute	Vector,Field_Read
0109 e5ff       |    |		Load	0x2,-0x1
010a 01d7       |    |		Execute	Vector,Field_Read
010b 4608       |F   |		Jump_Case	0x9
010c 780e       |x   |		Jump	0x11b								; case 0x0
010d 780f       |x   |		Jump	0x11d								; case 0x1
010e 7810       |x   |		Jump	0x11f								; case 0x2
010f 7811       |x   |		Jump	0x121								; case 0x3
0110 7812       |x   |		Jump	0x123								; case 0x4
0111 781a       |x   |		Jump	0x12c								; case 0x5
0112 7822       |x"  |		Jump	0x135								; case 0x6
0113 782a       |x*  |		Jump	0x13e								; case 0x7
0114 7800       |x   |		Jump	0x115								; case 0x8
0115 00da       |    |		Load_Top	At_Offset_2
0116 e5fe       |    |		Load	0x2,-0x2
0117 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0118 01d7       |    |		Execute	Vector,Field_Read
0119 a5fd       |    |		Store_Unchecked	0x2,-0x3
011a 7834       |x4  |		Jump	0x14f
011b 0008       |    |		Action	Idle
011c 782a       |x*  |		Jump	0x147
011d 0008       |    |		Action	Idle
011e 7828       |x(  |		Jump	0x147
011f 0008       |    |		Action	Idle
0120 7826       |x&  |		Jump	0x147
0121 0008       |    |		Action	Idle
0122 7824       |x$  |		Jump	0x147
0123 00da       |    |		Load_Top	At_Offset_2
0124 e5fe       |    |		Load	0x2,-0x2
0125 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0126 01d7       |    |		Execute	Vector,Field_Read
0127 a5fd       |    |		Store_Unchecked	0x2,-0x3
0128 00da       |    |		Load_Top	At_Offset_2
0129 0a01       |    |		Execute_Immediate	Plus,0x1
012a 005b       | [  |		Store_Top	Discrete,At_Offset_3
012b 7823       |x#  |		Jump	0x14f
012c 00da       |    |		Load_Top	At_Offset_2
012d e5fe       |    |		Load	0x2,-0x2
012e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
012f 01d7       |    |		Execute	Vector,Field_Read
0130 a5fd       |    |		Store_Unchecked	0x2,-0x3
0131 00da       |    |		Load_Top	At_Offset_2
0132 0a01       |    |		Execute_Immediate	Plus,0x1
0133 005b       | [  |		Store_Top	Discrete,At_Offset_3
0134 781a       |x   |		Jump	0x14f
0135 00da       |    |		Load_Top	At_Offset_2
0136 e5fe       |    |		Load	0x2,-0x2
0137 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0138 01d7       |    |		Execute	Vector,Field_Read
0139 a5fd       |    |		Store_Unchecked	0x2,-0x3
013a 00da       |    |		Load_Top	At_Offset_2
013b 0a01       |    |		Execute_Immediate	Plus,0x1
013c 005b       | [  |		Store_Top	Discrete,At_Offset_3
013d 7811       |x   |		Jump	0x14f
013e 00da       |    |		Load_Top	At_Offset_2
013f e5fe       |    |		Load	0x2,-0x2
0140 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0141 01d7       |    |		Execute	Vector,Field_Read
0142 a5fd       |    |		Store_Unchecked	0x2,-0x3
0143 00da       |    |		Load_Top	At_Offset_2
0144 0a01       |    |		Execute_Immediate	Plus,0x1
0145 005b       | [  |		Store_Top	Discrete,At_Offset_3
0146 7808       |x   |		Jump	0x14f
0147 00da       |    |		Load_Top	At_Offset_2
0148 0a01       |    |		Execute_Immediate	Plus,0x1
0149 005b       | [  |		Store_Top	Discrete,At_Offset_3
014a 00c9       |    |		Action	Pop_Auxiliary_Loop
014b 00da       |    |		Load_Top	At_Offset_2
014c 00da       |    |		Load_Top	At_Offset_2
014d 027a       | z  |		Execute	Discrete,Less_Equal
014e 77b6       |w   |		Jump_Nonzero	0x105
014f 00ce       |    |		Action	Pop_Auxiliary
0150 00d8       |    |		Load_Top	At_Offset_0
0151 00da       |    |		Load_Top	At_Offset_2
0152 0272       | r  |		Execute	Discrete,Minus
0153 0a01       |    |		Execute_Immediate	Plus,0x1
0154 e5fe       |    |		Load	0x2,-0x2
0155 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0156 00d9       |    |		Load_Top	At_Offset_1
0157 00d9       |    |		Load_Top	At_Offset_1
0158 e5fe       |    |		Load	0x2,-0x2
0159 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
015a 01cf       |    |		Execute	Vector,Slice_Read
015b 4801       |H   |		Short_Literal	0x1
015c e5fe       |    |		Load	0x2,-0x2
015d 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
015e e5fe       |    |		Load	0x2,-0x2
015f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0160 01ce       |    |		Execute	Vector,Slice_Write
0161 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0162 0000 0000  |    |		.BLANK	0000[0x6]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00e8       |    |		Load_Encached	Character_Cache
016c 00db       |    |		Load_Top	At_Offset_3
016d 0229       | )  |		Execute	Access,All_Read
016e e5fe       |    |		Load	0x2,-0x2
016f 8217       |    |		Call	0x1,0x17
0170 00d1       |    |		Pop_Control	Pop_Count_1
0171 c5fd       |    |		Store	0x2,-0x3
0172 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0173 0000 0000  |    |		.BLANK	0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0181       |    |		.CONST	0x0181								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0004       |    |		.CONST	0x0004								; Number of locals
017b			INIT_0178:
017b e20d       |    |		Load	0x1,0xd
017c 0607       |    |		Execute_Immediate	Set_Value_Unchecked,0x7
017d e20d       |    |		Load	0x1,0xd
017e 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
017f 00e1       |    |		Load_Encached	Boolean_Cache
0180 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0181			BODY_0178:
0181 00cf       |    |		Action	Mark_Auxiliary
0182 e5fd       |    |		Load	0x2,-0x3
0183 01d9       |    |		Execute	Vector,Reverse_Bounds
0184 0263       | c  |		Execute	Discrete,Above_Bound
0185 70be       |p   |		Jump_Nonzero	0x244
0186 00d8       |    |		Load_Top	At_Offset_0
0187 e5fd       |    |		Load	0x2,-0x3
0188 01d7       |    |		Execute	Vector,Field_Read
0189 467f       |F   |		Jump_Case	0x80
018a 787f       |x   |		Jump	0x20a								; case 0x0
018b 787e       |x~  |		Jump	0x20a								; case 0x1
018c 787d       |x}  |		Jump	0x20a								; case 0x2
018d 787c       |x|  |		Jump	0x20a								; case 0x3
018e 787b       |x{  |		Jump	0x20a								; case 0x4
018f 787a       |xz  |		Jump	0x20a								; case 0x5
0190 7879       |xy  |		Jump	0x20a								; case 0x6
0191 7878       |xx  |		Jump	0x20a								; case 0x7
0192 7877       |xw  |		Jump	0x20a								; case 0x8
0193 7876       |xv  |		Jump	0x20a								; case 0x9
0194 7875       |xu  |		Jump	0x20a								; case 0xa
0195 7874       |xt  |		Jump	0x20a								; case 0xb
0196 7873       |xs  |		Jump	0x20a								; case 0xc
0197 7872       |xr  |		Jump	0x20a								; case 0xd
0198 7871       |xq  |		Jump	0x20a								; case 0xe
0199 7870       |xp  |		Jump	0x20a								; case 0xf
019a 786f       |xo  |		Jump	0x20a								; case 0x10
019b 786e       |xn  |		Jump	0x20a								; case 0x11
019c 786d       |xm  |		Jump	0x20a								; case 0x12
019d 786c       |xl  |		Jump	0x20a								; case 0x13
019e 786b       |xk  |		Jump	0x20a								; case 0x14
019f 786a       |xj  |		Jump	0x20a								; case 0x15
01a0 7869       |xi  |		Jump	0x20a								; case 0x16
01a1 7868       |xh  |		Jump	0x20a								; case 0x17
01a2 7867       |xg  |		Jump	0x20a								; case 0x18
01a3 7866       |xf  |		Jump	0x20a								; case 0x19
01a4 7865       |xe  |		Jump	0x20a								; case 0x1a
01a5 7864       |xd  |		Jump	0x20a								; case 0x1b
01a6 7863       |xc  |		Jump	0x20a								; case 0x1c
01a7 7862       |xb  |		Jump	0x20a								; case 0x1d
01a8 7861       |xa  |		Jump	0x20a								; case 0x1e
01a9 7860       |x`  |		Jump	0x20a								; case 0x1f
01aa 785f       |x_  |		Jump	0x20a								; case 0x20
01ab 785e       |x^  |		Jump	0x20a								; case 0x21
01ac 785d       |x]  |		Jump	0x20a								; case 0x22
01ad 785c       |x\  |		Jump	0x20a								; case 0x23
01ae 785b       |x[  |		Jump	0x20a								; case 0x24
01af 785a       |xZ  |		Jump	0x20a								; case 0x25
01b0 7859       |xY  |		Jump	0x20a								; case 0x26
01b1 7858       |xX  |		Jump	0x20a								; case 0x27
01b2 7857       |xW  |		Jump	0x20a								; case 0x28
01b3 7856       |xV  |		Jump	0x20a								; case 0x29
01b4 7855       |xU  |		Jump	0x20a								; case 0x2a
01b5 7854       |xT  |		Jump	0x20a								; case 0x2b
01b6 7853       |xS  |		Jump	0x20a								; case 0x2c
01b7 7852       |xR  |		Jump	0x20a								; case 0x2d
01b8 7851       |xQ  |		Jump	0x20a								; case 0x2e
01b9 7850       |xP  |		Jump	0x20a								; case 0x2f
01ba 784f       |xO  |		Jump	0x20a								; case 0x30
01bb 784e       |xN  |		Jump	0x20a								; case 0x31
01bc 784d       |xM  |		Jump	0x20a								; case 0x32
01bd 784c       |xL  |		Jump	0x20a								; case 0x33
01be 784b       |xK  |		Jump	0x20a								; case 0x34
01bf 784a       |xJ  |		Jump	0x20a								; case 0x35
01c0 7849       |xI  |		Jump	0x20a								; case 0x36
01c1 7848       |xH  |		Jump	0x20a								; case 0x37
01c2 7847       |xG  |		Jump	0x20a								; case 0x38
01c3 7846       |xF  |		Jump	0x20a								; case 0x39
01c4 7845       |xE  |		Jump	0x20a								; case 0x3a
01c5 7844       |xD  |		Jump	0x20a								; case 0x3b
01c6 7843       |xC  |		Jump	0x20a								; case 0x3c
01c7 7842       |xB  |		Jump	0x20a								; case 0x3d
01c8 7841       |xA  |		Jump	0x20a								; case 0x3e
01c9 7840       |x@  |		Jump	0x20a								; case 0x3f
01ca 783f       |x?  |		Jump	0x20a								; case 0x40
01cb 7845       |xE  |		Jump	0x211								; case 0x41
01cc 783d       |x=  |		Jump	0x20a								; case 0x42
01cd 783c       |x<  |		Jump	0x20a								; case 0x43
01ce 783b       |x;  |		Jump	0x20a								; case 0x44
01cf 783a       |x:  |		Jump	0x20a								; case 0x45
01d0 7839       |x9  |		Jump	0x20a								; case 0x46
01d1 7838       |x8  |		Jump	0x20a								; case 0x47
01d2 7837       |x7  |		Jump	0x20a								; case 0x48
01d3 7837       |x7  |		Jump	0x20b								; case 0x49
01d4 7835       |x5  |		Jump	0x20a								; case 0x4a
01d5 7834       |x4  |		Jump	0x20a								; case 0x4b
01d6 7861       |xa  |		Jump	0x238								; case 0x4c
01d7 7832       |x2  |		Jump	0x20a								; case 0x4d
01d8 7831       |x1  |		Jump	0x20a								; case 0x4e
01d9 7830       |x0  |		Jump	0x20a								; case 0x4f
01da 782f       |x/  |		Jump	0x20a								; case 0x50
01db 782e       |x.  |		Jump	0x20a								; case 0x51
01dc 784a       |xJ  |		Jump	0x227								; case 0x52
01dd 784c       |xL  |		Jump	0x22a								; case 0x53
01de 782b       |x+  |		Jump	0x20a								; case 0x54
01df 784d       |xM  |		Jump	0x22d								; case 0x55
01e0 7829       |x)  |		Jump	0x20a								; case 0x56
01e1 7828       |x(  |		Jump	0x20a								; case 0x57
01e2 782b       |x+  |		Jump	0x20e								; case 0x58
01e3 7826       |x&  |		Jump	0x20a								; case 0x59
01e4 7825       |x%  |		Jump	0x20a								; case 0x5a
01e5 7824       |x$  |		Jump	0x20a								; case 0x5b
01e6 7823       |x#  |		Jump	0x20a								; case 0x5c
01e7 7822       |x"  |		Jump	0x20a								; case 0x5d
01e8 7821       |x!  |		Jump	0x20a								; case 0x5e
01e9 7820       |x   |		Jump	0x20a								; case 0x5f
01ea 781f       |x   |		Jump	0x20a								; case 0x60
01eb 7825       |x%  |		Jump	0x211								; case 0x61
01ec 781d       |x   |		Jump	0x20a								; case 0x62
01ed 781c       |x   |		Jump	0x20a								; case 0x63
01ee 781b       |x   |		Jump	0x20a								; case 0x64
01ef 781a       |x   |		Jump	0x20a								; case 0x65
01f0 7819       |x   |		Jump	0x20a								; case 0x66
01f1 7818       |x   |		Jump	0x20a								; case 0x67
01f2 7817       |x   |		Jump	0x20a								; case 0x68
01f3 7817       |x   |		Jump	0x20b								; case 0x69
01f4 7815       |x   |		Jump	0x20a								; case 0x6a
01f5 7814       |x   |		Jump	0x20a								; case 0x6b
01f6 7841       |xA  |		Jump	0x238								; case 0x6c
01f7 7812       |x   |		Jump	0x20a								; case 0x6d
01f8 7811       |x   |		Jump	0x20a								; case 0x6e
01f9 7810       |x   |		Jump	0x20a								; case 0x6f
01fa 780f       |x   |		Jump	0x20a								; case 0x70
01fb 780e       |x   |		Jump	0x20a								; case 0x71
01fc 782a       |x*  |		Jump	0x227								; case 0x72
01fd 782c       |x,  |		Jump	0x22a								; case 0x73
01fe 780b       |x   |		Jump	0x20a								; case 0x74
01ff 782d       |x-  |		Jump	0x22d								; case 0x75
0200 7809       |x   |		Jump	0x20a								; case 0x76
0201 7808       |x   |		Jump	0x20a								; case 0x77
0202 780b       |x   |		Jump	0x20e								; case 0x78
0203 7806       |x   |		Jump	0x20a								; case 0x79
0204 7805       |x   |		Jump	0x20a								; case 0x7a
0205 7804       |x   |		Jump	0x20a								; case 0x7b
0206 7803       |x   |		Jump	0x20a								; case 0x7c
0207 7802       |x   |		Jump	0x20a								; case 0x7d
0208 7801       |x   |		Jump	0x20a								; case 0x7e
0209 7800       |x   |		Jump	0x20a								; case 0x7f
020a 08e2       |    |		Execute_Immediate	Raise,0xe2
020b 4801       |H   |		Short_Literal	0x1
020c a404       |    |		Store_Unchecked	0x2,0x4
020d 7834       |x4  |		Jump	0x242
020e 4800       |H   |		Short_Literal	0x0
020f a404       |    |		Store_Unchecked	0x2,0x4
0210 7831       |x1  |		Jump	0x242
0211 e403       |    |		Load	0x2,0x3
0212 4608       |F   |		Jump_Case	0x9
0213 780a       |x   |		Jump	0x21e								; case 0x0
0214 7807       |x   |		Jump	0x21c								; case 0x1
0215 780b       |x   |		Jump	0x221								; case 0x2
0216 780d       |x   |		Jump	0x224								; case 0x3
0217 7804       |x   |		Jump	0x21c								; case 0x4
0218 7803       |x   |		Jump	0x21c								; case 0x5
0219 7802       |x   |		Jump	0x21c								; case 0x6
021a 7801       |x   |		Jump	0x21c								; case 0x7
021b 7800       |x   |		Jump	0x21c								; case 0x8
021c 0008       |    |		Action	Idle
021d 7824       |x$  |		Jump	0x242
021e 4804       |H   |		Short_Literal	0x4
021f a402       |    |		Store_Unchecked	0x2,0x2
0220 7821       |x!  |		Jump	0x242
0221 4805       |H   |		Short_Literal	0x5
0222 a402       |    |		Store_Unchecked	0x2,0x2
0223 781e       |x   |		Jump	0x242
0224 4806       |H   |		Short_Literal	0x6
0225 a402       |    |		Store_Unchecked	0x2,0x2
0226 781b       |x   |		Jump	0x242
0227 4808       |H   |		Short_Literal	0x8
0228 a402       |    |		Store_Unchecked	0x2,0x2
0229 7818       |x   |		Jump	0x242
022a 4807       |H   |		Short_Literal	0x7
022b a402       |    |		Store_Unchecked	0x2,0x2
022c 7815       |x   |		Jump	0x242
022d 4802       |H   |		Short_Literal	0x2
022e a403       |    |		Store_Unchecked	0x2,0x3
022f e402       |    |		Load	0x2,0x2
0230 0e08       |    |		Execute_Immediate	Not_Equal,0x8
0231 6810       |h   |		Jump_Zero	0x242
0232 e402       |    |		Load	0x2,0x2
0233 0e07       |    |		Execute_Immediate	Not_Equal,0x7
0234 680d       |h   |		Jump_Zero	0x242
0235 4805       |H   |		Short_Literal	0x5
0236 a402       |    |		Store_Unchecked	0x2,0x2
0237 780a       |x   |		Jump	0x242
0238 4803       |H   |		Short_Literal	0x3
0239 a403       |    |		Store_Unchecked	0x2,0x3
023a e402       |    |		Load	0x2,0x2
023b 0e08       |    |		Execute_Immediate	Not_Equal,0x8
023c 6805       |h   |		Jump_Zero	0x242
023d e402       |    |		Load	0x2,0x2
023e 0e07       |    |		Execute_Immediate	Not_Equal,0x7
023f 6802       |h   |		Jump_Zero	0x242
0240 4806       |H   |		Short_Literal	0x6
0241 a402       |    |		Store_Unchecked	0x2,0x2
0242 00c8       |    |		Action	Pop_Auxiliary_Range
0243 3f42       |?B  |		Loop_Increasing	0x186
0244 00ce       |    |		Action	Pop_Auxiliary
0245 00d8       |    |		Load_Top	At_Offset_0
0246 680f       |h   |		Jump_Zero	0x256
0247 e5fc       |    |		Load	0x2,-0x4
0248 00d8       |    |		Load_Top	At_Offset_0
0249 0335       | 5  |		Declare_Variable	Array,Duplicate
024a 00cd       |    |		Action	Spare6_Action
024b 487f       |H   |		Short_Literal	0x7f
024c 4800       |H   |		Short_Literal	0x0
024d e403       |    |		Load	0x2,0x3
024e 00d9       |    |		Load_Top	At_Offset_1
024f e406       |    |		Load	0x2,0x6
0250 01d6       |    |		Execute	Vector,Field_Write
0251 3ffb       |?   |		Loop_Increasing	0x24d
0252 00cd       |    |		Action	Spare6_Action
0253 e5fc       |    |		Load	0x2,-0x4
0254 01d4       |    |		Execute	Vector,Structure_Write
0255 780e       |x   |		Jump	0x264
0256 e5fc       |    |		Load	0x2,-0x4
0257 00d8       |    |		Load_Top	At_Offset_0
0258 0335       | 5  |		Declare_Variable	Array,Duplicate
0259 00cd       |    |		Action	Spare6_Action
025a 487f       |H   |		Short_Literal	0x7f
025b 4800       |H   |		Short_Literal	0x0
025c e402       |    |		Load	0x2,0x2
025d 00d9       |    |		Load_Top	At_Offset_1
025e e406       |    |		Load	0x2,0x6
025f 01d6       |    |		Execute	Vector,Field_Write
0260 3ffb       |?   |		Loop_Increasing	0x25c
0261 00cd       |    |		Action	Spare6_Action
0262 e5fc       |    |		Load	0x2,-0x4
0263 01d4       |    |		Execute	Vector,Structure_Write
0264 00cf       |    |		Action	Mark_Auxiliary
0265 e5fe       |    |		Load	0x2,-0x2
0266 01d9       |    |		Execute	Vector,Reverse_Bounds
0267 0263       | c  |		Execute	Discrete,Above_Bound
0268 7008       |p   |		Jump_Nonzero	0x271
0269 4801       |H   |		Short_Literal	0x1
026a 00d9       |    |		Load_Top	At_Offset_1
026b e5fe       |    |		Load	0x2,-0x2
026c 01d7       |    |		Execute	Vector,Field_Read
026d e5fc       |    |		Load	0x2,-0x4
026e 01d6       |    |		Execute	Vector,Field_Write
026f 00c8       |    |		Action	Pop_Auxiliary_Range
0270 3ff8       |?   |		Loop_Increasing	0x269
0271 00ce       |    |		Action	Pop_Auxiliary
0272 00d8       |    |		Load_Top	At_Offset_0
0273 680f       |h   |		Jump_Zero	0x283
0274 00cf       |    |		Action	Mark_Auxiliary
0275 e5ff       |    |		Load	0x2,-0x1
0276 01d9       |    |		Execute	Vector,Reverse_Bounds
0277 0263       | c  |		Execute	Discrete,Above_Bound
0278 7008       |p   |		Jump_Nonzero	0x281
0279 e402       |    |		Load	0x2,0x2
027a 00d9       |    |		Load_Top	At_Offset_1
027b e5ff       |    |		Load	0x2,-0x1
027c 01d7       |    |		Execute	Vector,Field_Read
027d e5fc       |    |		Load	0x2,-0x4
027e 01d6       |    |		Execute	Vector,Field_Write
027f 00c8       |    |		Action	Pop_Auxiliary_Range
0280 3ff8       |?   |		Loop_Increasing	0x279
0281 00ce       |    |		Action	Pop_Auxiliary
0282 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0283 00cf       |    |		Action	Mark_Auxiliary
0284 e5ff       |    |		Load	0x2,-0x1
0285 01d9       |    |		Execute	Vector,Reverse_Bounds
0286 0263       | c  |		Execute	Discrete,Above_Bound
0287 7008       |p   |		Jump_Nonzero	0x290
0288 e403       |    |		Load	0x2,0x3
0289 00d9       |    |		Load_Top	At_Offset_1
028a e5ff       |    |		Load	0x2,-0x1
028b 01d7       |    |		Execute	Vector,Field_Read
028c e5fc       |    |		Load	0x2,-0x4
028d 01d6       |    |		Execute	Vector,Field_Write
028e 00c8       |    |		Action	Pop_Auxiliary_Range
028f 3ff8       |?   |		Loop_Increasing	0x288
0290 00ce       |    |		Action	Pop_Auxiliary
0291 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0292 0000 0000  |    |		.BLANK	0000[0x6]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a4       |    |		.CONST	0x02a4								; Address of begin
0299 0004       |    |		.CONST	0x0004								; Address of exception handler
029a 0004       |    |		.CONST	0x0004								; Number of locals
029b			INIT_0298:
029b 00da       |    |		Load_Top	At_Offset_2
029c e002       |    |		Load	0x0,0x2
029d 03f1       |    |		Declare_Variable	Discrete,With_Value
029e e002       |    |		Load	0x0,0x2
029f 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
02a0 e5fc       |    |		Load	0x2,-0x4
02a1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02a2 e002       |    |		Load	0x0,0x2
02a3 03f1       |    |		Declare_Variable	Discrete,With_Value
02a4			BODY_0298:
02a4 4800       |H   |		Short_Literal	0x0
02a5 a5fb       |    |		Store_Unchecked	0x2,-0x5
02a6 00d8       |    |		Load_Top	At_Offset_0
02a7 e5fd       |    |		Load	0x2,-0x3
02a8 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02a9 027d       | }  |		Execute	Discrete,Greater
02aa 6803       |h   |		Jump_Zero	0x2ae
02ab e5fd       |    |		Load	0x2,-0x3
02ac 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02ad 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02ae 00cf       |    |		Action	Mark_Auxiliary
02af 7892       |x   |		Jump	0x342
02b0 00da       |    |		Load_Top	At_Offset_2
02b1 e5fc       |    |		Load	0x2,-0x4
02b2 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02b3 01d7       |    |		Execute	Vector,Field_Read
02b4 e5fe       |    |		Load	0x2,-0x2
02b5 01d7       |    |		Execute	Vector,Field_Read
02b6 4608       |F   |		Jump_Case	0x9
02b7 780f       |x   |		Jump	0x2c7								; case 0x0
02b8 781a       |x   |		Jump	0x2d3								; case 0x1
02b9 781b       |x   |		Jump	0x2d5								; case 0x2
02ba 7828       |x(  |		Jump	0x2e3								; case 0x3
02bb 7835       |x5  |		Jump	0x2f1								; case 0x4
02bc 7849       |xI  |		Jump	0x306								; case 0x5
02bd 785f       |x_  |		Jump	0x31d								; case 0x6
02be 7875       |xu  |		Jump	0x334								; case 0x7
02bf 7800       |x   |		Jump	0x2c0								; case 0x8
02c0 00da       |    |		Load_Top	At_Offset_2
02c1 e5fc       |    |		Load	0x2,-0x4
02c2 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02c3 01d7       |    |		Execute	Vector,Field_Read
02c4 a5fb       |    |		Store_Unchecked	0x2,-0x5
02c5 00ce       |    |		Action	Pop_Auxiliary
02c6 78d0       |x   |		Jump	0x397
02c7 00db       |    |		Load_Top	At_Offset_3
02c8 0a01       |    |		Execute_Immediate	Plus,0x1
02c9 c402       |    |		Store	0x2,0x2
02ca 00da       |    |		Load_Top	At_Offset_2
02cb e5fc       |    |		Load	0x2,-0x4
02cc 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02cd 01d7       |    |		Execute	Vector,Field_Read
02ce e402       |    |		Load	0x2,0x2
02cf e5fd       |    |		Load	0x2,-0x3
02d0 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02d1 01d6       |    |		Execute	Vector,Field_Write
02d2 786b       |xk  |		Jump	0x33e
02d3 0008       |    |		Action	Idle
02d4 7869       |xi  |		Jump	0x33e
02d5 00db       |    |		Load_Top	At_Offset_3
02d6 0a01       |    |		Execute_Immediate	Plus,0x1
02d7 c402       |    |		Store	0x2,0x2
02d8 00da       |    |		Load_Top	At_Offset_2
02d9 e5fc       |    |		Load	0x2,-0x4
02da 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02db 01d7       |    |		Execute	Vector,Field_Read
02dc e003       |    |		Load	0x0,0x3
02dd 01d7       |    |		Execute	Vector,Field_Read
02de e402       |    |		Load	0x2,0x2
02df e5fd       |    |		Load	0x2,-0x3
02e0 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02e1 01d6       |    |		Execute	Vector,Field_Write
02e2 785b       |x[  |		Jump	0x33e
02e3 00db       |    |		Load_Top	At_Offset_3
02e4 0a01       |    |		Execute_Immediate	Plus,0x1
02e5 c402       |    |		Store	0x2,0x2
02e6 00da       |    |		Load_Top	At_Offset_2
02e7 e5fc       |    |		Load	0x2,-0x4
02e8 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02e9 01d7       |    |		Execute	Vector,Field_Read
02ea e004       |    |		Load	0x0,0x4
02eb 01d7       |    |		Execute	Vector,Field_Read
02ec e402       |    |		Load	0x2,0x2
02ed e5fd       |    |		Load	0x2,-0x3
02ee 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02ef 01d6       |    |		Execute	Vector,Field_Write
02f0 784d       |xM  |		Jump	0x33e
02f1 00db       |    |		Load_Top	At_Offset_3
02f2 0a01       |    |		Execute_Immediate	Plus,0x1
02f3 c402       |    |		Store	0x2,0x2
02f4 00da       |    |		Load_Top	At_Offset_2
02f5 e5fc       |    |		Load	0x2,-0x4
02f6 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02f7 01d7       |    |		Execute	Vector,Field_Read
02f8 e402       |    |		Load	0x2,0x2
02f9 e5fd       |    |		Load	0x2,-0x3
02fa 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02fb 01d6       |    |		Execute	Vector,Field_Write
02fc 00da       |    |		Load_Top	At_Offset_2
02fd e5fc       |    |		Load	0x2,-0x4
02fe 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02ff 01d7       |    |		Execute	Vector,Field_Read
0300 a5fb       |    |		Store_Unchecked	0x2,-0x5
0301 00da       |    |		Load_Top	At_Offset_2
0302 0a01       |    |		Execute_Immediate	Plus,0x1
0303 005b       | [  |		Store_Top	Discrete,At_Offset_3
0304 00ce       |    |		Action	Pop_Auxiliary
0305 7891       |x   |		Jump	0x397
0306 00db       |    |		Load_Top	At_Offset_3
0307 0a01       |    |		Execute_Immediate	Plus,0x1
0308 c402       |    |		Store	0x2,0x2
0309 00da       |    |		Load_Top	At_Offset_2
030a e5fc       |    |		Load	0x2,-0x4
030b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
030c 01d7       |    |		Execute	Vector,Field_Read
030d e003       |    |		Load	0x0,0x3
030e 01d7       |    |		Execute	Vector,Field_Read
030f e402       |    |		Load	0x2,0x2
0310 e5fd       |    |		Load	0x2,-0x3
0311 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0312 01d6       |    |		Execute	Vector,Field_Write
0313 00da       |    |		Load_Top	At_Offset_2
0314 e5fc       |    |		Load	0x2,-0x4
0315 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0316 01d7       |    |		Execute	Vector,Field_Read
0317 a5fb       |    |		Store_Unchecked	0x2,-0x5
0318 00da       |    |		Load_Top	At_Offset_2
0319 0a01       |    |		Execute_Immediate	Plus,0x1
031a 005b       | [  |		Store_Top	Discrete,At_Offset_3
031b 00ce       |    |		Action	Pop_Auxiliary
031c 787a       |xz  |		Jump	0x397
031d 00db       |    |		Load_Top	At_Offset_3
031e 0a01       |    |		Execute_Immediate	Plus,0x1
031f c402       |    |		Store	0x2,0x2
0320 00da       |    |		Load_Top	At_Offset_2
0321 e5fc       |    |		Load	0x2,-0x4
0322 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0323 01d7       |    |		Execute	Vector,Field_Read
0324 e004       |    |		Load	0x0,0x4
0325 01d7       |    |		Execute	Vector,Field_Read
0326 e402       |    |		Load	0x2,0x2
0327 e5fd       |    |		Load	0x2,-0x3
0328 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0329 01d6       |    |		Execute	Vector,Field_Write
032a 00da       |    |		Load_Top	At_Offset_2
032b e5fc       |    |		Load	0x2,-0x4
032c 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
032d 01d7       |    |		Execute	Vector,Field_Read
032e a5fb       |    |		Store_Unchecked	0x2,-0x5
032f 00da       |    |		Load_Top	At_Offset_2
0330 0a01       |    |		Execute_Immediate	Plus,0x1
0331 005b       | [  |		Store_Top	Discrete,At_Offset_3
0332 00ce       |    |		Action	Pop_Auxiliary
0333 7863       |xc  |		Jump	0x397
0334 00da       |    |		Load_Top	At_Offset_2
0335 e5fc       |    |		Load	0x2,-0x4
0336 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0337 01d7       |    |		Execute	Vector,Field_Read
0338 a5fb       |    |		Store_Unchecked	0x2,-0x5
0339 00da       |    |		Load_Top	At_Offset_2
033a 0a01       |    |		Execute_Immediate	Plus,0x1
033b 005b       | [  |		Store_Top	Discrete,At_Offset_3
033c 00ce       |    |		Action	Pop_Auxiliary
033d 7859       |xY  |		Jump	0x397
033e 00da       |    |		Load_Top	At_Offset_2
033f 0a01       |    |		Execute_Immediate	Plus,0x1
0340 005b       | [  |		Store_Top	Discrete,At_Offset_3
0341 00c9       |    |		Action	Pop_Auxiliary_Loop
0342 00da       |    |		Load_Top	At_Offset_2
0343 00da       |    |		Load_Top	At_Offset_2
0344 027a       | z  |		Execute	Discrete,Less_Equal
0345 776a       |wj  |		Jump_Nonzero	0x2b0
0346 00ce       |    |		Action	Pop_Auxiliary
0347 e5fc       |    |		Load	0x2,-0x4
0348 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0349 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
034a 00cf       |    |		Action	Mark_Auxiliary
034b 7846       |xF  |		Jump	0x392
034c 00da       |    |		Load_Top	At_Offset_2
034d e5fc       |    |		Load	0x2,-0x4
034e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
034f 01d7       |    |		Execute	Vector,Field_Read
0350 e5fe       |    |		Load	0x2,-0x2
0351 01d7       |    |		Execute	Vector,Field_Read
0352 4608       |F   |		Jump_Case	0x9
0353 780e       |x   |		Jump	0x362								; case 0x0
0354 780f       |x   |		Jump	0x364								; case 0x1
0355 7810       |x   |		Jump	0x366								; case 0x2
0356 7811       |x   |		Jump	0x368								; case 0x3
0357 7812       |x   |		Jump	0x36a								; case 0x4
0358 781a       |x   |		Jump	0x373								; case 0x5
0359 7822       |x"  |		Jump	0x37c								; case 0x6
035a 782a       |x*  |		Jump	0x385								; case 0x7
035b 7800       |x   |		Jump	0x35c								; case 0x8
035c 00da       |    |		Load_Top	At_Offset_2
035d e5fc       |    |		Load	0x2,-0x4
035e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
035f 01d7       |    |		Execute	Vector,Field_Read
0360 a5fb       |    |		Store_Unchecked	0x2,-0x5
0361 7834       |x4  |		Jump	0x396
0362 0008       |    |		Action	Idle
0363 782a       |x*  |		Jump	0x38e
0364 0008       |    |		Action	Idle
0365 7828       |x(  |		Jump	0x38e
0366 0008       |    |		Action	Idle
0367 7826       |x&  |		Jump	0x38e
0368 0008       |    |		Action	Idle
0369 7824       |x$  |		Jump	0x38e
036a 00da       |    |		Load_Top	At_Offset_2
036b e5fc       |    |		Load	0x2,-0x4
036c 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
036d 01d7       |    |		Execute	Vector,Field_Read
036e a5fb       |    |		Store_Unchecked	0x2,-0x5
036f 00da       |    |		Load_Top	At_Offset_2
0370 0a01       |    |		Execute_Immediate	Plus,0x1
0371 005b       | [  |		Store_Top	Discrete,At_Offset_3
0372 7823       |x#  |		Jump	0x396
0373 00da       |    |		Load_Top	At_Offset_2
0374 e5fc       |    |		Load	0x2,-0x4
0375 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0376 01d7       |    |		Execute	Vector,Field_Read
0377 a5fb       |    |		Store_Unchecked	0x2,-0x5
0378 00da       |    |		Load_Top	At_Offset_2
0379 0a01       |    |		Execute_Immediate	Plus,0x1
037a 005b       | [  |		Store_Top	Discrete,At_Offset_3
037b 781a       |x   |		Jump	0x396
037c 00da       |    |		Load_Top	At_Offset_2
037d e5fc       |    |		Load	0x2,-0x4
037e 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
037f 01d7       |    |		Execute	Vector,Field_Read
0380 a5fb       |    |		Store_Unchecked	0x2,-0x5
0381 00da       |    |		Load_Top	At_Offset_2
0382 0a01       |    |		Execute_Immediate	Plus,0x1
0383 005b       | [  |		Store_Top	Discrete,At_Offset_3
0384 7811       |x   |		Jump	0x396
0385 00da       |    |		Load_Top	At_Offset_2
0386 e5fc       |    |		Load	0x2,-0x4
0387 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0388 01d7       |    |		Execute	Vector,Field_Read
0389 a5fb       |    |		Store_Unchecked	0x2,-0x5
038a 00da       |    |		Load_Top	At_Offset_2
038b 0a01       |    |		Execute_Immediate	Plus,0x1
038c 005b       | [  |		Store_Top	Discrete,At_Offset_3
038d 7808       |x   |		Jump	0x396
038e 00da       |    |		Load_Top	At_Offset_2
038f 0a01       |    |		Execute_Immediate	Plus,0x1
0390 005b       | [  |		Store_Top	Discrete,At_Offset_3
0391 00c9       |    |		Action	Pop_Auxiliary_Loop
0392 00da       |    |		Load_Top	At_Offset_2
0393 00da       |    |		Load_Top	At_Offset_2
0394 027a       | z  |		Execute	Discrete,Less_Equal
0395 77b6       |w   |		Jump_Nonzero	0x34c
0396 00ce       |    |		Action	Pop_Auxiliary
0397 0008       |    |		Action	Idle
0398 0007       |    |		Action	Break_Optional
0399 e5fc       |    |		Load	0x2,-0x4
039a 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
039b 00da       |    |		Load_Top	At_Offset_2
039c 0272       | r  |		Execute	Discrete,Minus
039d 0a01       |    |		Execute_Immediate	Plus,0x1
039e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
039f 00d9       |    |		Load_Top	At_Offset_1
03a0 e5fc       |    |		Load	0x2,-0x4
03a1 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
03a2 e5fc       |    |		Load	0x2,-0x4
03a3 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03a4 01cf       |    |		Execute	Vector,Slice_Read
03a5 4801       |H   |		Short_Literal	0x1
03a6 00da       |    |		Load_Top	At_Offset_2
03a7 e5fc       |    |		Load	0x2,-0x4
03a8 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
03a9 01ce       |    |		Execute	Vector,Slice_Write
03aa 00d8       |    |		Load_Top	At_Offset_0
03ab e5fc       |    |		Load	0x2,-0x4
03ac 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03ad 00da       |    |		Load_Top	At_Offset_2
03ae e5fd       |    |		Load	0x2,-0x3
03af 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
03b0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
03b1 ; --------------------------------------------------------------------------------------
03b1 ; STRING TABLE
03b1 ; --------------------------------------------------------------------------------------
03b1 0014       |    |		.STRTAB	0x0014->0x03bb							; "SA_TRANSFER"
03b2 001d       |    |		.STRTAB	0x001d->0x03c0							; "SA_SKIP"
03b3 0022       | "  |		.STRTAB	0x0022->0x03c4							; "SA_TRANSFER_UC"
03b4 002e       | .  |		.STRTAB	0x002e->0x03cb							; "SA_TRANSFER_LC"
03b5 003a       | :  |		.STRTAB	0x003a->0x03d2							; "SA_TRANSFER_BREAK"
03b6 0049       | I  |		.STRTAB	0x0049->0x03da							; "SA_TRANSFER_UC_BREAK"
03b7 005b       | [  |		.STRTAB	0x005b->0x03e4							; "SA_TRANSFER_LC_BREAK"
03b8 006d       | m  |		.STRTAB	0x006d->0x03ee							; "SA_SKIP_BREAK"
03b9 0078       | x  |		.STRTAB	0x0078->0x03f5							; "SA_RETAIN_BREAK"
03ba 0085       |    |		.STREND 0x0085->0x03fc
03bb 5341 5f54  |SA_T|		.STRTAB_STRINGS
03fd 0000 0000  |    |		.XXX[0x3]
03ff 0000       |    |
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug Table
0400 ; --------------------------------------------------------------------------------------
0400 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x4d23,0x0000,0x0001,0x000f
0406 000b 0442  |   B|		.DBG4T	0x000b,0x0442,0x8000,0x0000
040a 002d 0451  | - Q|		.DBG4T	0x002d,0x0451,0x8000,0x0000
040e 004b 0000  | K  |		.DBG4T	0x004b,0x0000,0x0005,0x0000
0412 0073 045f  | s _|		.DBG4T	0x0073,0x045f,0x0001,0x0000
0416 0083 0462  |   b|		.DBG4T	0x0083,0x0462,0x0001,0x0000
041a 0093 0465  |   e|		.DBG4T	0x0093,0x0465,0x0001,0x0000
041e 00a3 0468  |   h|		.DBG4T	0x00a3,0x0468,0x0001,0x0000
0422 00b3 046b  |   k|		.DBG4T	0x00b3,0x046b,0x0001,0x0000
0426 00c3 046e  |   n|		.DBG4T	0x00c3,0x046e,0x0001,0x0000
042a 00d3 0471  |   q|		.DBG4T	0x00d3,0x0471,0x0001,0x0000
042e 00e3 0474  |   t|		.DBG4T	0x00e3,0x0474,0x0001,0x0000
0432 00fb 0477  |   w|		.DBG4T	0x00fb,0x0477,0x0001,0x4000
0436 016b 04ab  | k  |		.DBG4T	0x016b,0x04ab,0x0001,0x0000
043a 017b 04ae  | {  |		.DBG4T	0x017b,0x04ae,0x0001,0x4000
043e 029b 04eb  |    |		.DBG4T	0x029b,0x04eb,0x0001,0x4000
0442 ; --------------------------------------------------------------------------------------
0442 ; Debug chain
0442 ; --------------------------------------------------------------------------------------
0442 000d 0000  |    |		.DBGLEN	0x000d,0x0000
0444 000b 0010  |    |		.DBGLNO	0x000b,0x0010,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a
0451 ; --------------------------------------------------------------------------------------
0451 ; Debug chain
0451 ; --------------------------------------------------------------------------------------
0451 000c 0000  |    |		.DBGLEN	0x000c,0x0000
0453 002d 002f  | - /|		.DBGLNO	0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043
045f ; --------------------------------------------------------------------------------------
045f ; Debug chain
045f ; --------------------------------------------------------------------------------------
045f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0461 0073       | s  |		.DBGLNO	0x0073
0462 ; --------------------------------------------------------------------------------------
0462 ; Debug chain
0462 ; --------------------------------------------------------------------------------------
0462 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0464 0083       |    |		.DBGLNO	0x0083
0465 ; --------------------------------------------------------------------------------------
0465 ; Debug chain
0465 ; --------------------------------------------------------------------------------------
0465 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0467 0093       |    |		.DBGLNO	0x0093
0468 ; --------------------------------------------------------------------------------------
0468 ; Debug chain
0468 ; --------------------------------------------------------------------------------------
0468 0000 0001  |    |		.DBGLEN	0x0000,0x0001
046a 00a3       |    |		.DBGLNO	0x00a3
046b ; --------------------------------------------------------------------------------------
046b ; Debug chain
046b ; --------------------------------------------------------------------------------------
046b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
046d 00b3       |    |		.DBGLNO	0x00b3
046e ; --------------------------------------------------------------------------------------
046e ; Debug chain
046e ; --------------------------------------------------------------------------------------
046e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0470 00c3       |    |		.DBGLNO	0x00c3
0471 ; --------------------------------------------------------------------------------------
0471 ; Debug chain
0471 ; --------------------------------------------------------------------------------------
0471 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0473 00d3       |    |		.DBGLNO	0x00d3
0474 ; --------------------------------------------------------------------------------------
0474 ; Debug chain
0474 ; --------------------------------------------------------------------------------------
0474 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0476 00e3       |    |		.DBGLNO	0x00e3
0477 ; --------------------------------------------------------------------------------------
0477 ; Debug chain
0477 ; --------------------------------------------------------------------------------------
0477 0002 0018  |    |		.DBGLEN	0x0002,0x0018
0479 00fb 00fd  |    |		.DBGLNO	0x00fb,0x00fd,0x0101,0x0105,0x0115,0x011a,0x011b,0x011d,0x011f,0x0121,0x0123,0x0128,0x012b,0x012c,0x0131,0x0134,0x0135,0x013a,0x013d,0x013e,0x0143,0x0146,0x0147,0x014b,0x0150,0x0156
0493 0001 0003  |    |		.XXX[0x18]
0495 0014 0015  |    |
0497 0004 0005  |    |
0499 0006 0007  |    |
049b 0008 0009  |    |
049d 000a 000b  |    |
049f 000c 000d  |    |
04a1 000e 000f  |    |
04a3 0010 0011  |    |
04a5 0012 0013  |    |
04a7 0016 0002  |    |
04a9 0017 0018  |    |
04ab ; --------------------------------------------------------------------------------------
04ab ; Debug chain
04ab ; --------------------------------------------------------------------------------------
04ab 0000 0001  |    |		.DBGLEN	0x0000,0x0001
04ad 016b       | k  |		.DBGLNO	0x016b
04ae ; --------------------------------------------------------------------------------------
04ae ; Debug chain
04ae ; --------------------------------------------------------------------------------------
04ae 0003 001c  |    |		.DBGLEN	0x0003,0x001c
04b0 017b 017d  | { }|		.DBGLNO	0x017b,0x017d,0x017f,0x0182,0x0186,0x020a,0x020b,0x020e,0x0211,0x021c,0x021e,0x0221,0x0224,0x0227,0x022a,0x022d,0x022f,0x0235,0x0238,0x023a,0x0240,0x0245,0x0247,0x0256,0x0265,0x0269,0x0272,0x0275,0x0279,0x0284,0x0288
04cf 0001 0002  |    |		.XXX[0x1c]
04d1 0012 0003  |    |
04d3 0004 0005  |    |
04d5 0009 0006  |    |
04d7 0007 0008  |    |
04d9 000a 000b  |    |
04db 000c 000d  |    |
04dd 000e 000f  |    |
04df 0010 0011  |    |
04e1 0013 0014  |    |
04e3 0015 0016  |    |
04e5 0017 0018  |    |
04e7 0019 001a  |    |
04e9 001b 001c  |    |
04eb ; --------------------------------------------------------------------------------------
04eb ; Debug chain
04eb ; --------------------------------------------------------------------------------------
04eb 0003 003c  |   <|		.DBGLEN	0x0003,0x003c
04ed 029b 029e  |    |		.DBGLNO	0x029b,0x029e,0x02a0,0x02a4,0x02a6,0x02ab,0x02b0,0x02c0,0x02c5,0x02c7,0x02ca,0x02d3,0x02d5,0x02d8,0x02e3,0x02e6,0x02f1,0x02f4,0x02fc,0x0301,0x0304,0x0306,0x0309,0x0313,0x0318,0x031b,0x031d,0x0320,0x032a,0x032f,0x0332,0x0334,0x0339,0x033c,0x033e,0x0342,0x0347,0x034c,0x035c,0x0361,0x0362,0x0364,0x0366,0x0368,0x036a,0x036f,0x0372,0x0373,0x0378,0x037b,0x037c,0x0381,0x0384,0x0385,0x038a,0x038d,0x038e,0x0392,0x0397,0x0399,0x039f,0x03aa,0x03ad
052c 0001 0002  |    |		.XXX[0x3c]
052e 0003 0005  |    |
0530 001f 0020  |    |
0532 0006 0007  |    |
0534 0008 0009  |    |
0536 000a 000b  |    |
0538 000c 000d  |    |
053a 000e 000f  |    |
053c 0010 0011  |    |
053e 0012 0013  |    |
0540 0014 0015  |    |
0542 0016 0017  |    |
0544 0018 0019  |    |
0546 001a 001b  |    |
0548 001c 001d  |    |
054a 001e 0021  |   !|
054c 0004 0022  |   "|
054e 0024 0035  | $ 5|
0550 0036 0025  | 6 %|
0552 0026 0027  | & '|
0554 0028 0029  | ( )|
0556 002a 002b  | * +|
0558 002c 002d  | , -|
055a 002e 002f  | . /|
055c 0030 0031  | 0 1|
055e 0032 0033  | 2 3|
0560 0034 0037  | 4 7|
0562 0023 0038  | # 8|
0564 0039 003a  | 9 :|
0566 003b 003c  | ; <|
0568 0000 0000  |    |		.BLANK	0000[0x98]