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

⟦298f947f4⟧

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

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 03a0       |    |		.CONST	0x03a0								; 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 0061       | a  |		.CONST	0x0061								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0022       | "  |		.CONST	0x0022								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4808       |H   |		Short_Literal	0x8
000d 029f 006b  |   k|		Declare_Subprogram	INIT_0068,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 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
002c c21b       |    |		Store	0x1,0x1b
002d 029a 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Outer_Call,Visible,Unelaborated
002f c21c       |    |		Store	0x1,0x1c
0030 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated
0032 c21d       |    |		Store	0x1,0x1d
0033 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0035 c213       |    |		Store	0x1,0x13
0036 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0038 c21e       |    |		Store	0x1,0x1e
0039 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
003b c215       |    |		Store	0x1,0x15
003c 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
003e c221       | !  |		Store	0x1,0x21
003f 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated
0041 c217       |    |		Store	0x1,0x17
0042 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0044 c218       |    |		Store	0x1,0x18
0045 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
0047 c219       |    |		Store	0x1,0x19
0048 00bf       |    |		Action	Accept_Activation
0049 029d 0243  |   C|		Declare_Subprogram	INIT_0240,For_Outer_Call
004b 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
004c 00c7       |    |		Action	Elaborate_Subprogram
004d 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
004e 00c7       |    |		Action	Elaborate_Subprogram
004f 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0050 00c7       |    |		Action	Elaborate_Subprogram
0051 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0052 00c7       |    |		Action	Elaborate_Subprogram
0053 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0054 00c7       |    |		Action	Elaborate_Subprogram
0055 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0060 00c7       |    |		Action	Elaborate_Subprogram
0061			BODY_0008:
0061 00bc       |    |		Action	Signal_Activated
0062 00bb       |    |		Action	Signal_Completion
0063 0000 0000  |    |		.BLANK	0000[0x5]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b       | k  |		.CONST	0x006b								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0001       |    |		.CONST	0x0001								; Number of locals
006b			BODY_0068:
006b			INIT_0068:
006b 4603       |F   |		Jump_Case	0x4
006c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
006d 7802       |x   |		Jump	0x70								; case 0x1
006e 7805       |x   |		Jump	0x74								; case 0x2
006f 7809       |x   |		Jump	0x79								; case 0x3
0070 00da       |    |		Load_Top	At_Offset_2
0071 0091 0352  |   R|		Action	Push_String_Extended_Indexed,0x352				; "SA_TRANSFER"
0073 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0074 00db       |    |		Load_Top	At_Offset_3
0075 00db       |    |		Load_Top	At_Offset_3
0076 00e0       |    |		Load_Encached	Standard_Cache
0077 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0078 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0079 00da       |    |		Load_Top	At_Offset_2
007a 00e0       |    |		Load_Encached	Standard_Cache
007b 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
007c 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
007d 0000 0000  |    |		.XXX[0x3]
007f 0000       |    |
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 e5fd       |    |		Load	0x2,-0x3
0085 e5fe       |    |		Load	0x2,-0x2
0086 e5ff       |    |		Load	0x2,-0x1
0087 4800       |H   |		Short_Literal	0x0
0088 8222       | "  |		Call	0x1,0x22
0089 00d2       |    |		Pop_Control	Pop_Count_2
008a c5fc       |    |		Store	0x2,-0x4
008b 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
008c 0000 0000  |    |		.BLANK	0000[0x4]
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 00db       |    |		Load_Top	At_Offset_3
0095 0229       | )  |		Execute	Access,All_Read
0096 e5fd       |    |		Load	0x2,-0x3
0097 e5fe       |    |		Load	0x2,-0x2
0098 4800       |H   |		Short_Literal	0x0
0099 8222       | "  |		Call	0x1,0x22
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 e5fd       |    |		Load	0x2,-0x3
00a5 e5ff       |    |		Load	0x2,-0x1
00a6 0229       | )  |		Execute	Access,All_Read
00a7 e5fe       |    |		Load	0x2,-0x2
00a8 4800       |H   |		Short_Literal	0x0
00a9 8222       | "  |		Call	0x1,0x22
00aa 00d2       |    |		Pop_Control	Pop_Count_2
00ab c5fc       |    |		Store	0x2,-0x4
00ac 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00ad 0000 0000  |    |		.XXX[0x3]
00af 0000       |    |
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 e5fe       |    |		Load	0x2,-0x2
00b5 0229       | )  |		Execute	Access,All_Read
00b6 e5ff       |    |		Load	0x2,-0x1
00b7 0229       | )  |		Execute	Access,All_Read
00b8 e5fd       |    |		Load	0x2,-0x3
00b9 4800       |H   |		Short_Literal	0x0
00ba 8222       | "  |		Call	0x1,0x22
00bb 00d2       |    |		Pop_Control	Pop_Count_2
00bc c5fc       |    |		Store	0x2,-0x4
00bd 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00be 0000 0000  |    |		.XXX[0x2]
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 e5fd       |    |		Load	0x2,-0x3
00c5 e5fe       |    |		Load	0x2,-0x2
00c6 e5ff       |    |		Load	0x2,-0x1
00c7 e5fe       |    |		Load	0x2,-0x2
00c8 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00c9 8222       | "  |		Call	0x1,0x22
00ca 00d2       |    |		Pop_Control	Pop_Count_2
00cb c5fc       |    |		Store	0x2,-0x4
00cc 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00cd 0000 0000  |    |		.XXX[0x3]
00cf 0000       |    |
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 00e8       |    |		Load_Encached	Character_Cache
00d4 00db       |    |		Load_Top	At_Offset_3
00d5 0229       | )  |		Execute	Access,All_Read
00d6 e5fd       |    |		Load	0x2,-0x3
00d7 e5fe       |    |		Load	0x2,-0x2
00d8 e5fd       |    |		Load	0x2,-0x3
00d9 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00da 8222       | "  |		Call	0x1,0x22
00db 00d2       |    |		Pop_Control	Pop_Count_2
00dc c5fc       |    |		Store	0x2,-0x4
00dd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00de 0000 0000  |    |		.XXX[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 00db       |    |		Load_Top	At_Offset_3
00e4 0229       | )  |		Execute	Access,All_Read
00e5 00e8       |    |		Load_Encached	Character_Cache
00e6 e5fd       |    |		Load	0x2,-0x3
00e7 00da       |    |		Load_Top	At_Offset_2
00e8 e5ff       |    |		Load	0x2,-0x1
00e9 e5fe       |    |		Load	0x2,-0x2
00ea 0227       | '  |		Execute	Access,All_Reference
00eb 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ec 8222       | "  |		Call	0x1,0x22
00ed 00d2       |    |		Pop_Control	Pop_Count_2
00ee c5fc       |    |		Store	0x2,-0x4
00ef 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 e5fd       |    |		Load	0x2,-0x3
00f4 0229       | )  |		Execute	Access,All_Read
00f5 00e8       |    |		Load_Encached	Character_Cache
00f6 e5ff       |    |		Load	0x2,-0x1
00f7 0229       | )  |		Execute	Access,All_Read
00f8 00da       |    |		Load_Top	At_Offset_2
00f9 e5fe       |    |		Load	0x2,-0x2
00fa e5fd       |    |		Load	0x2,-0x3
00fb 0227       | '  |		Execute	Access,All_Reference
00fc 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00fd 8222       | "  |		Call	0x1,0x22
00fe 00d2       |    |		Pop_Control	Pop_Count_2
00ff c5fc       |    |		Store	0x2,-0x4
0100 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0101 0000 0000  |    |		.BLANK	0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0111       |    |		.CONST	0x0111								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0003       |    |		.CONST	0x0003								; Number of locals
010b			INIT_0108:
010b 00e3       |    |		Load_Encached	Natural_Cache
010c 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
010d e5fe       |    |		Load	0x2,-0x2
010e 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
010f 00e3       |    |		Load_Encached	Natural_Cache
0110 03f1       |    |		Declare_Variable	Discrete,With_Value
0111			BODY_0108:
0111 4800       |H   |		Short_Literal	0x0
0112 a5fd       |    |		Store_Unchecked	0x2,-0x3
0113 00cf       |    |		Action	Mark_Auxiliary
0114 783e       |x>  |		Jump	0x153
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 e5ff       |    |		Load	0x2,-0x1
011a 01d7       |    |		Execute	Vector,Field_Read
011b 4608       |F   |		Jump_Case	0x9
011c 7832       |x2  |		Jump	0x14f								; case 0x0
011d 7831       |x1  |		Jump	0x14f								; case 0x1
011e 7830       |x0  |		Jump	0x14f								; case 0x2
011f 782f       |x/  |		Jump	0x14f								; case 0x3
0120 7804       |x   |		Jump	0x125								; case 0x4
0121 780c       |x   |		Jump	0x12e								; case 0x5
0122 7814       |x   |		Jump	0x137								; case 0x6
0123 781c       |x   |		Jump	0x140								; case 0x7
0124 7824       |x$  |		Jump	0x149								; case 0x8
0125 00da       |    |		Load_Top	At_Offset_2
0126 e5fe       |    |		Load	0x2,-0x2
0127 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0128 01d7       |    |		Execute	Vector,Field_Read
0129 a5fd       |    |		Store_Unchecked	0x2,-0x3
012a 00da       |    |		Load_Top	At_Offset_2
012b 0a01       |    |		Execute_Immediate	Plus,0x1
012c 005b       | [  |		Store_Top	Discrete,At_Offset_3
012d 7829       |x)  |		Jump	0x157
012e 00da       |    |		Load_Top	At_Offset_2
012f e5fe       |    |		Load	0x2,-0x2
0130 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0131 01d7       |    |		Execute	Vector,Field_Read
0132 a5fd       |    |		Store_Unchecked	0x2,-0x3
0133 00da       |    |		Load_Top	At_Offset_2
0134 0a01       |    |		Execute_Immediate	Plus,0x1
0135 005b       | [  |		Store_Top	Discrete,At_Offset_3
0136 7820       |x   |		Jump	0x157
0137 00da       |    |		Load_Top	At_Offset_2
0138 e5fe       |    |		Load	0x2,-0x2
0139 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
013a 01d7       |    |		Execute	Vector,Field_Read
013b a5fd       |    |		Store_Unchecked	0x2,-0x3
013c 00da       |    |		Load_Top	At_Offset_2
013d 0a01       |    |		Execute_Immediate	Plus,0x1
013e 005b       | [  |		Store_Top	Discrete,At_Offset_3
013f 7817       |x   |		Jump	0x157
0140 00da       |    |		Load_Top	At_Offset_2
0141 e5fe       |    |		Load	0x2,-0x2
0142 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0143 01d7       |    |		Execute	Vector,Field_Read
0144 a5fd       |    |		Store_Unchecked	0x2,-0x3
0145 00da       |    |		Load_Top	At_Offset_2
0146 0a01       |    |		Execute_Immediate	Plus,0x1
0147 005b       | [  |		Store_Top	Discrete,At_Offset_3
0148 780e       |x   |		Jump	0x157
0149 00da       |    |		Load_Top	At_Offset_2
014a e5fe       |    |		Load	0x2,-0x2
014b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
014c 01d7       |    |		Execute	Vector,Field_Read
014d a5fd       |    |		Store_Unchecked	0x2,-0x3
014e 7808       |x   |		Jump	0x157
014f 00da       |    |		Load_Top	At_Offset_2
0150 0a01       |    |		Execute_Immediate	Plus,0x1
0151 005b       | [  |		Store_Top	Discrete,At_Offset_3
0152 00c9       |    |		Action	Pop_Auxiliary_Loop
0153 00da       |    |		Load_Top	At_Offset_2
0154 00da       |    |		Load_Top	At_Offset_2
0155 027a       | z  |		Execute	Discrete,Less_Equal
0156 77be       |w   |		Jump_Nonzero	0x115
0157 00ce       |    |		Action	Pop_Auxiliary
0158 00d8       |    |		Load_Top	At_Offset_0
0159 00da       |    |		Load_Top	At_Offset_2
015a 0272       | r  |		Execute	Discrete,Minus
015b 0a01       |    |		Execute_Immediate	Plus,0x1
015c e5fe       |    |		Load	0x2,-0x2
015d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
015e 00d9       |    |		Load_Top	At_Offset_1
015f 00d9       |    |		Load_Top	At_Offset_1
0160 e5fe       |    |		Load	0x2,-0x2
0161 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0162 01cf       |    |		Execute	Vector,Slice_Read
0163 4801       |H   |		Short_Literal	0x1
0164 e5fe       |    |		Load	0x2,-0x2
0165 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0166 e5fe       |    |		Load	0x2,-0x2
0167 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0168 01ce       |    |		Execute	Vector,Slice_Write
0169 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
016a 0000 0000  |    |		.BLANK	0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 00e8       |    |		Load_Encached	Character_Cache
0174 00db       |    |		Load_Top	At_Offset_3
0175 0229       | )  |		Execute	Access,All_Read
0176 e5fe       |    |		Load	0x2,-0x2
0177 8217       |    |		Call	0x1,0x17
0178 00d1       |    |		Pop_Control	Pop_Count_1
0179 c5fd       |    |		Store	0x2,-0x3
017a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
017b 0000 0000  |    |		.BLANK	0000[0x5]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0189       |    |		.CONST	0x0189								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0004       |    |		.CONST	0x0004								; Number of locals
0183			INIT_0180:
0183 e20d       |    |		Load	0x1,0xd
0184 0607       |    |		Execute_Immediate	Set_Value_Unchecked,0x7
0185 e20d       |    |		Load	0x1,0xd
0186 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0187 00e1       |    |		Load_Encached	Boolean_Cache
0188 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0189			BODY_0180:
0189 00cf       |    |		Action	Mark_Auxiliary
018a e5fd       |    |		Load	0x2,-0x3
018b 01d9       |    |		Execute	Vector,Reverse_Bounds
018c 0263       | c  |		Execute	Discrete,Above_Bound
018d 7059       |pY  |		Jump_Nonzero	0x1e7
018e 00d8       |    |		Load_Top	At_Offset_0
018f e5fd       |    |		Load	0x2,-0x3
0190 01d7       |    |		Execute	Vector,Field_Read
0191 0b49       | I  |		Execute_Immediate	Case_Compare,0x49
0192 701c       |p   |		Jump_Nonzero	0x1af
0193 0b69       | i  |		Execute_Immediate	Case_Compare,0x69
0194 701a       |p   |		Jump_Nonzero	0x1af
0195 0b58       | X  |		Execute_Immediate	Case_Compare,0x58
0196 701b       |p   |		Jump_Nonzero	0x1b2
0197 0b78       | x  |		Execute_Immediate	Case_Compare,0x78
0198 7019       |p   |		Jump_Nonzero	0x1b2
0199 0b41       | A  |		Execute_Immediate	Case_Compare,0x41
019a 701a       |p   |		Jump_Nonzero	0x1b5
019b 0b61       | a  |		Execute_Immediate	Case_Compare,0x61
019c 7018       |p   |		Jump_Nonzero	0x1b5
019d 0b52       | R  |		Execute_Immediate	Case_Compare,0x52
019e 702a       |p*  |		Jump_Nonzero	0x1c9
019f 0b72       | r  |		Execute_Immediate	Case_Compare,0x72
01a0 7028       |p(  |		Jump_Nonzero	0x1c9
01a1 0b53       | S  |		Execute_Immediate	Case_Compare,0x53
01a2 7029       |p)  |		Jump_Nonzero	0x1cc
01a3 0b73       | s  |		Execute_Immediate	Case_Compare,0x73
01a4 7027       |p'  |		Jump_Nonzero	0x1cc
01a5 0b55       | U  |		Execute_Immediate	Case_Compare,0x55
01a6 7028       |p(  |		Jump_Nonzero	0x1cf
01a7 0b75       | u  |		Execute_Immediate	Case_Compare,0x75
01a8 7026       |p&  |		Jump_Nonzero	0x1cf
01a9 0b4c       | L  |		Execute_Immediate	Case_Compare,0x4c
01aa 702f       |p/  |		Jump_Nonzero	0x1da
01ab 0b6c       | l  |		Execute_Immediate	Case_Compare,0x6c
01ac 702d       |p-  |		Jump_Nonzero	0x1da
01ad 08e2       |    |		Execute_Immediate	Raise,0xe2
01ae 7835       |x5  |		.XXX[0x1]
01af 4801       |H   |		Short_Literal	0x1
01b0 a404       |    |		Store_Unchecked	0x2,0x4
01b1 7832       |x2  |		Jump	0x1e4
01b2 4800       |H   |		Short_Literal	0x0
01b3 a404       |    |		Store_Unchecked	0x2,0x4
01b4 782f       |x/  |		Jump	0x1e4
01b5 e403       |    |		Load	0x2,0x3
01b6 4608       |F   |		Jump_Case	0x9
01b7 7808       |x   |		Jump	0x1c0								; case 0x0
01b8 782b       |x+  |		Jump	0x1e4								; case 0x1
01b9 7809       |x   |		Jump	0x1c3								; case 0x2
01ba 780b       |x   |		Jump	0x1c6								; case 0x3
01bb 7828       |x(  |		Jump	0x1e4								; case 0x4
01bc 7827       |x'  |		Jump	0x1e4								; case 0x5
01bd 7826       |x&  |		Jump	0x1e4								; case 0x6
01be 7825       |x%  |		Jump	0x1e4								; case 0x7
01bf 7824       |x$  |		Jump	0x1e4								; case 0x8
01c0 4804       |H   |		Short_Literal	0x4
01c1 a402       |    |		Store_Unchecked	0x2,0x2
01c2 7821       |x!  |		Jump	0x1e4
01c3 4805       |H   |		Short_Literal	0x5
01c4 a402       |    |		Store_Unchecked	0x2,0x2
01c5 781e       |x   |		Jump	0x1e4
01c6 4806       |H   |		Short_Literal	0x6
01c7 a402       |    |		Store_Unchecked	0x2,0x2
01c8 781b       |x   |		Jump	0x1e4
01c9 4808       |H   |		Short_Literal	0x8
01ca a402       |    |		Store_Unchecked	0x2,0x2
01cb 7818       |x   |		Jump	0x1e4
01cc 4807       |H   |		Short_Literal	0x7
01cd a402       |    |		Store_Unchecked	0x2,0x2
01ce 7815       |x   |		Jump	0x1e4
01cf 4802       |H   |		Short_Literal	0x2
01d0 a403       |    |		Store_Unchecked	0x2,0x3
01d1 e402       |    |		Load	0x2,0x2
01d2 0e08       |    |		Execute_Immediate	Not_Equal,0x8
01d3 6810       |h   |		Jump_Zero	0x1e4
01d4 e402       |    |		Load	0x2,0x2
01d5 0e07       |    |		Execute_Immediate	Not_Equal,0x7
01d6 680d       |h   |		Jump_Zero	0x1e4
01d7 4805       |H   |		Short_Literal	0x5
01d8 a402       |    |		Store_Unchecked	0x2,0x2
01d9 780a       |x   |		Jump	0x1e4
01da 4803       |H   |		Short_Literal	0x3
01db a403       |    |		Store_Unchecked	0x2,0x3
01dc e402       |    |		Load	0x2,0x2
01dd 0e08       |    |		Execute_Immediate	Not_Equal,0x8
01de 6805       |h   |		Jump_Zero	0x1e4
01df e402       |    |		Load	0x2,0x2
01e0 0e07       |    |		Execute_Immediate	Not_Equal,0x7
01e1 6802       |h   |		Jump_Zero	0x1e4
01e2 4806       |H   |		Short_Literal	0x6
01e3 a402       |    |		Store_Unchecked	0x2,0x2
01e4 00d1       |    |		Pop_Control	Pop_Count_1
01e5 00c8       |    |		Action	Pop_Auxiliary_Range
01e6 3fa7       |?   |		Loop_Increasing	0x18e
01e7 00ce       |    |		Action	Pop_Auxiliary
01e8 00d8       |    |		Load_Top	At_Offset_0
01e9 6811       |h   |		Jump_Zero	0x1fb
01ea e5fc       |    |		Load	0x2,-0x4
01eb 00d8       |    |		Load_Top	At_Offset_0
01ec 0335       | 5  |		Declare_Variable	Array,Duplicate
01ed 00d0       |    |		Action	Swap_Control
01ee 00d1       |    |		Pop_Control	Pop_Count_1
01ef 487f       |H   |		Short_Literal	0x7f
01f0 4800       |H   |		Short_Literal	0x0
01f1 e403       |    |		Load	0x2,0x3
01f2 00d9       |    |		Load_Top	At_Offset_1
01f3 e406       |    |		Load	0x2,0x6
01f4 01d6       |    |		Execute	Vector,Field_Write
01f5 3ffb       |?   |		Loop_Increasing	0x1f1
01f6 00d0       |    |		Action	Swap_Control
01f7 00d1       |    |		Pop_Control	Pop_Count_1
01f8 e5fc       |    |		Load	0x2,-0x4
01f9 01d4       |    |		Execute	Vector,Structure_Write
01fa 7810       |x   |		Jump	0x20b
01fb e5fc       |    |		Load	0x2,-0x4
01fc 00d8       |    |		Load_Top	At_Offset_0
01fd 0335       | 5  |		Declare_Variable	Array,Duplicate
01fe 00d0       |    |		Action	Swap_Control
01ff 00d1       |    |		Pop_Control	Pop_Count_1
0200 487f       |H   |		Short_Literal	0x7f
0201 4800       |H   |		Short_Literal	0x0
0202 e402       |    |		Load	0x2,0x2
0203 00d9       |    |		Load_Top	At_Offset_1
0204 e406       |    |		Load	0x2,0x6
0205 01d6       |    |		Execute	Vector,Field_Write
0206 3ffb       |?   |		Loop_Increasing	0x202
0207 00d0       |    |		Action	Swap_Control
0208 00d1       |    |		Pop_Control	Pop_Count_1
0209 e5fc       |    |		Load	0x2,-0x4
020a 01d4       |    |		Execute	Vector,Structure_Write
020b 00cf       |    |		Action	Mark_Auxiliary
020c e5fe       |    |		Load	0x2,-0x2
020d 01d9       |    |		Execute	Vector,Reverse_Bounds
020e 0263       | c  |		Execute	Discrete,Above_Bound
020f 7008       |p   |		Jump_Nonzero	0x218
0210 4801       |H   |		Short_Literal	0x1
0211 00d9       |    |		Load_Top	At_Offset_1
0212 e5fe       |    |		Load	0x2,-0x2
0213 01d7       |    |		Execute	Vector,Field_Read
0214 e5fc       |    |		Load	0x2,-0x4
0215 01d6       |    |		Execute	Vector,Field_Write
0216 00c8       |    |		Action	Pop_Auxiliary_Range
0217 3ff8       |?   |		Loop_Increasing	0x210
0218 00ce       |    |		Action	Pop_Auxiliary
0219 00d8       |    |		Load_Top	At_Offset_0
021a 680f       |h   |		Jump_Zero	0x22a
021b 00cf       |    |		Action	Mark_Auxiliary
021c e5ff       |    |		Load	0x2,-0x1
021d 01d9       |    |		Execute	Vector,Reverse_Bounds
021e 0263       | c  |		Execute	Discrete,Above_Bound
021f 7008       |p   |		Jump_Nonzero	0x228
0220 e402       |    |		Load	0x2,0x2
0221 00d9       |    |		Load_Top	At_Offset_1
0222 e5ff       |    |		Load	0x2,-0x1
0223 01d7       |    |		Execute	Vector,Field_Read
0224 e5fc       |    |		Load	0x2,-0x4
0225 01d6       |    |		Execute	Vector,Field_Write
0226 00c8       |    |		Action	Pop_Auxiliary_Range
0227 3ff8       |?   |		Loop_Increasing	0x220
0228 00ce       |    |		Action	Pop_Auxiliary
0229 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
022a 00cf       |    |		Action	Mark_Auxiliary
022b e5ff       |    |		Load	0x2,-0x1
022c 01d9       |    |		Execute	Vector,Reverse_Bounds
022d 0263       | c  |		Execute	Discrete,Above_Bound
022e 7008       |p   |		Jump_Nonzero	0x237
022f e403       |    |		Load	0x2,0x3
0230 00d9       |    |		Load_Top	At_Offset_1
0231 e5ff       |    |		Load	0x2,-0x1
0232 01d7       |    |		Execute	Vector,Field_Read
0233 e5fc       |    |		Load	0x2,-0x4
0234 01d6       |    |		Execute	Vector,Field_Write
0235 00c8       |    |		Action	Pop_Auxiliary_Range
0236 3ff8       |?   |		Loop_Increasing	0x22f
0237 00ce       |    |		Action	Pop_Auxiliary
0238 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0239 0000 0000  |    |		.BLANK	0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 024c       | L  |		.CONST	0x024c								; Address of begin
0241 0004       |    |		.CONST	0x0004								; Address of exception handler
0242 0004       |    |		.CONST	0x0004								; Number of locals
0243			INIT_0240:
0243 00da       |    |		Load_Top	At_Offset_2
0244 00e3       |    |		Load_Encached	Natural_Cache
0245 03f1       |    |		Declare_Variable	Discrete,With_Value
0246 00e3       |    |		Load_Encached	Natural_Cache
0247 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0248 e5fc       |    |		Load	0x2,-0x4
0249 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
024a 00e3       |    |		Load_Encached	Natural_Cache
024b 03f1       |    |		Declare_Variable	Discrete,With_Value
024c			BODY_0240:
024c 4800       |H   |		Short_Literal	0x0
024d a5fb       |    |		Store_Unchecked	0x2,-0x5
024e 00d8       |    |		Load_Top	At_Offset_0
024f e5fd       |    |		Load	0x2,-0x3
0250 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0251 027d       | }  |		Execute	Discrete,Greater
0252 6803       |h   |		Jump_Zero	0x256
0253 e5fd       |    |		Load	0x2,-0x3
0254 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0255 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0256 00cf       |    |		Action	Mark_Auxiliary
0257 7894       |x   |		Jump	0x2ec
0258 00da       |    |		Load_Top	At_Offset_2
0259 e5fc       |    |		Load	0x2,-0x4
025a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
025b 01d7       |    |		Execute	Vector,Field_Read
025c e5fe       |    |		Load	0x2,-0x2
025d 01d7       |    |		Execute	Vector,Field_Read
025e 4608       |F   |		Jump_Case	0x9
025f 7808       |x   |		Jump	0x268								; case 0x0
0260 7887       |x   |		Jump	0x2e8								; case 0x1
0261 7812       |x   |		Jump	0x274								; case 0x2
0262 7820       |x   |		Jump	0x283								; case 0x3
0263 782e       |x.  |		Jump	0x292								; case 0x4
0264 7842       |xB  |		Jump	0x2a7								; case 0x5
0265 7859       |xY  |		Jump	0x2bf								; case 0x6
0266 7870       |xp  |		Jump	0x2d7								; case 0x7
0267 7879       |xy  |		Jump	0x2e1								; case 0x8
0268 00db       |    |		Load_Top	At_Offset_3
0269 0a01       |    |		Execute_Immediate	Plus,0x1
026a c402       |    |		Store	0x2,0x2
026b 00da       |    |		Load_Top	At_Offset_2
026c e5fc       |    |		Load	0x2,-0x4
026d 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
026e 01d7       |    |		Execute	Vector,Field_Read
026f e402       |    |		Load	0x2,0x2
0270 e5fd       |    |		Load	0x2,-0x3
0271 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0272 01d6       |    |		Execute	Vector,Field_Write
0273 7874       |xt  |		Jump	0x2e8
0274 00db       |    |		Load_Top	At_Offset_3
0275 0a01       |    |		Execute_Immediate	Plus,0x1
0276 c402       |    |		Store	0x2,0x2
0277 00da       |    |		Load_Top	At_Offset_2
0278 e5fc       |    |		Load	0x2,-0x4
0279 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
027a 01d7       |    |		Execute	Vector,Field_Read
027b e001       |    |		Load	0x0,0x1
027c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
027d 01d7       |    |		Execute	Vector,Field_Read
027e e402       |    |		Load	0x2,0x2
027f e5fd       |    |		Load	0x2,-0x3
0280 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0281 01d6       |    |		Execute	Vector,Field_Write
0282 7865       |xe  |		Jump	0x2e8
0283 00db       |    |		Load_Top	At_Offset_3
0284 0a01       |    |		Execute_Immediate	Plus,0x1
0285 c402       |    |		Store	0x2,0x2
0286 00da       |    |		Load_Top	At_Offset_2
0287 e5fc       |    |		Load	0x2,-0x4
0288 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0289 01d7       |    |		Execute	Vector,Field_Read
028a e001       |    |		Load	0x0,0x1
028b 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
028c 01d7       |    |		Execute	Vector,Field_Read
028d e402       |    |		Load	0x2,0x2
028e e5fd       |    |		Load	0x2,-0x3
028f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0290 01d6       |    |		Execute	Vector,Field_Write
0291 7856       |xV  |		Jump	0x2e8
0292 00db       |    |		Load_Top	At_Offset_3
0293 0a01       |    |		Execute_Immediate	Plus,0x1
0294 c402       |    |		Store	0x2,0x2
0295 00da       |    |		Load_Top	At_Offset_2
0296 e5fc       |    |		Load	0x2,-0x4
0297 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0298 01d7       |    |		Execute	Vector,Field_Read
0299 e402       |    |		Load	0x2,0x2
029a e5fd       |    |		Load	0x2,-0x3
029b 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
029c 01d6       |    |		Execute	Vector,Field_Write
029d 00da       |    |		Load_Top	At_Offset_2
029e e5fc       |    |		Load	0x2,-0x4
029f 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02a0 01d7       |    |		Execute	Vector,Field_Read
02a1 a5fb       |    |		Store_Unchecked	0x2,-0x5
02a2 00da       |    |		Load_Top	At_Offset_2
02a3 0a01       |    |		Execute_Immediate	Plus,0x1
02a4 005b       | [  |		Store_Top	Discrete,At_Offset_3
02a5 00ce       |    |		Action	Pop_Auxiliary
02a6 7893       |x   |		Jump	0x33a
02a7 00db       |    |		Load_Top	At_Offset_3
02a8 0a01       |    |		Execute_Immediate	Plus,0x1
02a9 c402       |    |		Store	0x2,0x2
02aa 00da       |    |		Load_Top	At_Offset_2
02ab e5fc       |    |		Load	0x2,-0x4
02ac 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02ad 01d7       |    |		Execute	Vector,Field_Read
02ae e001       |    |		Load	0x0,0x1
02af 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02b0 01d7       |    |		Execute	Vector,Field_Read
02b1 e402       |    |		Load	0x2,0x2
02b2 e5fd       |    |		Load	0x2,-0x3
02b3 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02b4 01d6       |    |		Execute	Vector,Field_Write
02b5 00da       |    |		Load_Top	At_Offset_2
02b6 e5fc       |    |		Load	0x2,-0x4
02b7 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02b8 01d7       |    |		Execute	Vector,Field_Read
02b9 a5fb       |    |		Store_Unchecked	0x2,-0x5
02ba 00da       |    |		Load_Top	At_Offset_2
02bb 0a01       |    |		Execute_Immediate	Plus,0x1
02bc 005b       | [  |		Store_Top	Discrete,At_Offset_3
02bd 00ce       |    |		Action	Pop_Auxiliary
02be 787b       |x{  |		Jump	0x33a
02bf 00db       |    |		Load_Top	At_Offset_3
02c0 0a01       |    |		Execute_Immediate	Plus,0x1
02c1 c402       |    |		Store	0x2,0x2
02c2 00da       |    |		Load_Top	At_Offset_2
02c3 e5fc       |    |		Load	0x2,-0x4
02c4 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02c5 01d7       |    |		Execute	Vector,Field_Read
02c6 e001       |    |		Load	0x0,0x1
02c7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02c8 01d7       |    |		Execute	Vector,Field_Read
02c9 e402       |    |		Load	0x2,0x2
02ca e5fd       |    |		Load	0x2,-0x3
02cb 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02cc 01d6       |    |		Execute	Vector,Field_Write
02cd 00da       |    |		Load_Top	At_Offset_2
02ce e5fc       |    |		Load	0x2,-0x4
02cf 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02d0 01d7       |    |		Execute	Vector,Field_Read
02d1 a5fb       |    |		Store_Unchecked	0x2,-0x5
02d2 00da       |    |		Load_Top	At_Offset_2
02d3 0a01       |    |		Execute_Immediate	Plus,0x1
02d4 005b       | [  |		Store_Top	Discrete,At_Offset_3
02d5 00ce       |    |		Action	Pop_Auxiliary
02d6 7863       |xc  |		Jump	0x33a
02d7 00da       |    |		Load_Top	At_Offset_2
02d8 e5fc       |    |		Load	0x2,-0x4
02d9 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02da 01d7       |    |		Execute	Vector,Field_Read
02db a5fb       |    |		Store_Unchecked	0x2,-0x5
02dc 00da       |    |		Load_Top	At_Offset_2
02dd 0a01       |    |		Execute_Immediate	Plus,0x1
02de 005b       | [  |		Store_Top	Discrete,At_Offset_3
02df 00ce       |    |		Action	Pop_Auxiliary
02e0 7859       |xY  |		Jump	0x33a
02e1 00da       |    |		Load_Top	At_Offset_2
02e2 e5fc       |    |		Load	0x2,-0x4
02e3 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02e4 01d7       |    |		Execute	Vector,Field_Read
02e5 a5fb       |    |		Store_Unchecked	0x2,-0x5
02e6 00ce       |    |		Action	Pop_Auxiliary
02e7 7852       |xR  |		Jump	0x33a
02e8 00da       |    |		Load_Top	At_Offset_2
02e9 0a01       |    |		Execute_Immediate	Plus,0x1
02ea 005b       | [  |		Store_Top	Discrete,At_Offset_3
02eb 00c9       |    |		Action	Pop_Auxiliary_Loop
02ec 00da       |    |		Load_Top	At_Offset_2
02ed 00da       |    |		Load_Top	At_Offset_2
02ee 027a       | z  |		Execute	Discrete,Less_Equal
02ef 7768       |wh  |		Jump_Nonzero	0x258
02f0 00ce       |    |		Action	Pop_Auxiliary
02f1 e5fc       |    |		Load	0x2,-0x4
02f2 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02f3 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
02f4 00cf       |    |		Action	Mark_Auxiliary
02f5 783e       |x>  |		Jump	0x334
02f6 00da       |    |		Load_Top	At_Offset_2
02f7 e5fc       |    |		Load	0x2,-0x4
02f8 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02f9 01d7       |    |		Execute	Vector,Field_Read
02fa e5fe       |    |		Load	0x2,-0x2
02fb 01d7       |    |		Execute	Vector,Field_Read
02fc 4608       |F   |		Jump_Case	0x9
02fd 7832       |x2  |		Jump	0x330								; case 0x0
02fe 7831       |x1  |		Jump	0x330								; case 0x1
02ff 7830       |x0  |		Jump	0x330								; case 0x2
0300 782f       |x/  |		Jump	0x330								; case 0x3
0301 7804       |x   |		Jump	0x306								; case 0x4
0302 780c       |x   |		Jump	0x30f								; case 0x5
0303 7814       |x   |		Jump	0x318								; case 0x6
0304 781c       |x   |		Jump	0x321								; case 0x7
0305 7824       |x$  |		Jump	0x32a								; case 0x8
0306 00da       |    |		Load_Top	At_Offset_2
0307 e5fc       |    |		Load	0x2,-0x4
0308 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0309 01d7       |    |		Execute	Vector,Field_Read
030a a5fb       |    |		Store_Unchecked	0x2,-0x5
030b 00da       |    |		Load_Top	At_Offset_2
030c 0a01       |    |		Execute_Immediate	Plus,0x1
030d 005b       | [  |		Store_Top	Discrete,At_Offset_3
030e 7829       |x)  |		Jump	0x338
030f 00da       |    |		Load_Top	At_Offset_2
0310 e5fc       |    |		Load	0x2,-0x4
0311 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0312 01d7       |    |		Execute	Vector,Field_Read
0313 a5fb       |    |		Store_Unchecked	0x2,-0x5
0314 00da       |    |		Load_Top	At_Offset_2
0315 0a01       |    |		Execute_Immediate	Plus,0x1
0316 005b       | [  |		Store_Top	Discrete,At_Offset_3
0317 7820       |x   |		Jump	0x338
0318 00da       |    |		Load_Top	At_Offset_2
0319 e5fc       |    |		Load	0x2,-0x4
031a 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
031b 01d7       |    |		Execute	Vector,Field_Read
031c a5fb       |    |		Store_Unchecked	0x2,-0x5
031d 00da       |    |		Load_Top	At_Offset_2
031e 0a01       |    |		Execute_Immediate	Plus,0x1
031f 005b       | [  |		Store_Top	Discrete,At_Offset_3
0320 7817       |x   |		Jump	0x338
0321 00da       |    |		Load_Top	At_Offset_2
0322 e5fc       |    |		Load	0x2,-0x4
0323 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0324 01d7       |    |		Execute	Vector,Field_Read
0325 a5fb       |    |		Store_Unchecked	0x2,-0x5
0326 00da       |    |		Load_Top	At_Offset_2
0327 0a01       |    |		Execute_Immediate	Plus,0x1
0328 005b       | [  |		Store_Top	Discrete,At_Offset_3
0329 780e       |x   |		Jump	0x338
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 7808       |x   |		Jump	0x338
0330 00da       |    |		Load_Top	At_Offset_2
0331 0a01       |    |		Execute_Immediate	Plus,0x1
0332 005b       | [  |		Store_Top	Discrete,At_Offset_3
0333 00c9       |    |		Action	Pop_Auxiliary_Loop
0334 00da       |    |		Load_Top	At_Offset_2
0335 00da       |    |		Load_Top	At_Offset_2
0336 027a       | z  |		Execute	Discrete,Less_Equal
0337 77be       |w   |		Jump_Nonzero	0x2f6
0338 00ce       |    |		Action	Pop_Auxiliary
0339 0007       |    |		Action	Break_Optional
033a e5fc       |    |		Load	0x2,-0x4
033b 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
033c 00da       |    |		Load_Top	At_Offset_2
033d 0272       | r  |		Execute	Discrete,Minus
033e 0a01       |    |		Execute_Immediate	Plus,0x1
033f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0340 00d9       |    |		Load_Top	At_Offset_1
0341 e5fc       |    |		Load	0x2,-0x4
0342 2c02       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0343 e5fc       |    |		Load	0x2,-0x4
0344 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0345 01cf       |    |		Execute	Vector,Slice_Read
0346 4801       |H   |		Short_Literal	0x1
0347 00da       |    |		Load_Top	At_Offset_2
0348 e5fc       |    |		Load	0x2,-0x4
0349 2503       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x3
034a 01ce       |    |		Execute	Vector,Slice_Write
034b 00d8       |    |		Load_Top	At_Offset_0
034c e5fc       |    |		Load	0x2,-0x4
034d 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
034e 00da       |    |		Load_Top	At_Offset_2
034f e5fd       |    |		Load	0x2,-0x3
0350 2802       |(   |		Execute	Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0351 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0352 ; --------------------------------------------------------------------------------------
0352 ; STRING TABLE
0352 ; --------------------------------------------------------------------------------------
0352 0014       |    |		.STRTAB	0x0014->0x035c							; "SA_TRANSFER"
0353 001d       |    |		.STRTAB	0x001d->0x0361							; "SA_SKIP"
0354 0022       | "  |		.STRTAB	0x0022->0x0365							; "SA_TRANSFER_UC"
0355 002e       | .  |		.STRTAB	0x002e->0x036c							; "SA_TRANSFER_LC"
0356 003a       | :  |		.STRTAB	0x003a->0x0373							; "SA_TRANSFER_BREAK"
0357 0049       | I  |		.STRTAB	0x0049->0x037b							; "SA_TRANSFER_UC_BREAK"
0358 005b       | [  |		.STRTAB	0x005b->0x0385							; "SA_TRANSFER_LC_BREAK"
0359 006d       | m  |		.STRTAB	0x006d->0x038f							; "SA_SKIP_BREAK"
035a 0078       | x  |		.STRTAB	0x0078->0x0396							; "SA_RETAIN_BREAK"
035b 0085       |    |		.STREND 0x0085->0x039d
035c 5341 5f54  |SA_T|		.STRTAB_STRINGS
039e 0000 0000  |    |		.XXX[0x2]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; Debug Table
03a0 ; --------------------------------------------------------------------------------------
03a0 0004 0004  |    |		.DEBUG4	0x0004,0x0004,0xa8ed,0x0000,0x0001,0x0000
03a6 6e67 652e  |nge.|		.XXX[0x2e]
03a8 466c 6f61  |Floa|
03aa 7429 3b47  |t);G|
03ac 0000 0000  |    |
03ae 4820 2020  |H   |
03b0 2020 2020  |    |
03b2 2070 726f  | pro|
03b4 6365 6475  |cedu|
03b6 7265 2050  |re P|
03b8 7574 2028  |ut (|
03ba 496e 746f  |Into|
03bc 203a 2053  | : S|
03be 7472 6561  |trea|
03c0 6d5f 4964  |m_Id|
03c2 3b20 4461  |; Da|
03c4 7461 203a  |ta :|
03c6 2049 6e74  | Int|
03c8 6572 6368  |erch|
03ca 616e 6765  |ange|
03cc 2e4c 6f6e  |.Lon|
03ce 675f 466c  |g_Fl|
03d0 6f61 7429  |oat)|
03d2 3b48 004c  |;H L|
03d4 2020 2020  |    |		.BLANK	2020[0x4]
03d8 7072 6f63  |proc|		.XXX[0x28]
03da 6564 7572  |edur|
03dc 6520 4765  |e Ge|
03de 7420 2846  |t (F|
03e0 726f 6d20  |rom |
03e2 3a20 5374  |: St|
03e4 7265 616d  |ream|
03e6 5f49 643b  |_Id;|
03e8 2044 6174  | Dat|
03ea 6120 3a20  |a : |
03ec 6f75 7420  |out |
03ee 496e 7465  |Inte|
03f0 7263 6861  |rcha|
03f2 6e67 652e  |nge.|
03f4 4c6f 6e67  |Long|
03f6 5f46 6c6f  |_Flo|
03f8 6174 293b  |at);|
03fa 4c00 0000  |L   |
03fc 0000 0000  |    |
03fe 0220 2002  |    |