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

⟦66dd24aaf⟧

    Length: 4096 (0x1000)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5

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 06f0       |    |		.CONST	0x06f0								; 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 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0084       |    |		.CONST	0x0084								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0032       | 2  |		.CONST	0x0032								; Number of locals
000b			INIT_0008:
000b 00bf       |    |		Action	Accept_Activation
000c e001       |    |		Load	0x0,0x1
000d 1b20       |    |		Execute	Package,Field_Read,Field_Number 0x20
000e 341b       |4   |		Execute	Record,Field_Reference,Field_Number 0x1b
000f 0007       |    |		Action	Break_Optional
0010 00e3       |    |		Load_Encached	Natural_Cache
0011 4801       |H   |		Short_Literal	0x1
0012 48a0       |H   |		Short_Literal	0xa0
0013 00e9       |    |		Load_Encached	String_Cache
0014 035b       | [  |		Declare_Type	Array,Constrained
0015 02a0       |    |		Declare_Subprogram	Null_Subprogram
0016 4802       |H   |		Short_Literal	0x2
0017 032d       | -  |		Declare_Type	Record,Defined
0018 4801       |H   |		Short_Literal	0x1
0019 4a94       |J   |		Short_Literal	0x294
001a e20e       |    |		Load	0x1,0xe
001b 02a0       |    |		Declare_Subprogram	Null_Subprogram
001c 4801       |H   |		Short_Literal	0x1
001d 035d       | ]  |		Declare_Type	Array,Defined
001e 00d8       |    |		Load_Top	At_Offset_0
001f 0337       | 7  |		Declare_Variable	Array
0020 00e1       |    |		Load_Encached	Boolean_Cache
0021 00e1       |    |		Load_Encached	Boolean_Cache
0022 00e3       |    |		Load_Encached	Natural_Cache
0023 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0024 00e3       |    |		Load_Encached	Natural_Cache
0025 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0026 00e3       |    |		Load_Encached	Natural_Cache
0027 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0028 00e1       |    |		Load_Encached	Boolean_Cache
0029 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
002a e002       |    |		Load	0x0,0x2
002b 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002c 02c7       |    |		Declare_Variable	Any
002d 00d8       |    |		Load_Top	At_Offset_0
002e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
002f 029d 008b  |    |		Declare_Subprogram	INIT_0088,For_Outer_Call
0031 029d 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call
0033 029d 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call
0035 029d 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call
0037 029d 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call
0039 029d 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call
003b 029d 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call
003d 029d 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call
003f 029d 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call
0041 029d 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call
0043 029d 011b  |    |		Declare_Subprogram	INIT_0118,For_Outer_Call
0045 029d 012b  |   +|		Declare_Subprogram	INIT_0128,For_Outer_Call
0047 029d 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Outer_Call
0049 029d 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call
004b 029d 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call
004d 029d 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call
004f 029d 01a3  |    |		Declare_Subprogram	INIT_01a0,For_Outer_Call
0051 029d 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call
0053 029d 01d3  |    |		Declare_Subprogram	INIT_01d0,For_Outer_Call
0055 029d 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call
0057 029d 020b  |    |		Declare_Subprogram	INIT_0208,For_Outer_Call
0059 029d 023b  |   ;|		Declare_Subprogram	INIT_0238,For_Outer_Call
005b 029d 0273  |   s|		Declare_Subprogram	INIT_0270,For_Outer_Call
005d 029d 0343  |   C|		Declare_Subprogram	INIT_0340,For_Outer_Call
005f 029d 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Outer_Call
0061 029d 05db  |    |		Declare_Subprogram	INIT_05d8,For_Outer_Call
0063 e003       |    |		Load	0x0,0x3
0064 e004       |    |		Load	0x0,0x4
0065 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0066 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0067 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0068 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0069 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
006a 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
006b 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
006c 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
006d 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
006e 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
006f 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
0070 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0071 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0072 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0073 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0074 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0075 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0076 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0077 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
0078 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
0079 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
007a 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
007b 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
007c 0092 060d  |    |		Action	Push_String_Extended,0x60d					; "OnLine"
007e e005       |    |		Load	0x0,0x5
007f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0080 1b17       |    |		Execute	Package,Field_Read,Field_Number 0x17
0081 0387       |    |		Declare_Variable	Package
0082 00d8       |    |		Load_Top	At_Offset_0
0083 020f       |    |		Execute	Module,Activate
0084			BODY_0008:
0084 00bc       |    |		Action	Signal_Activated
0085 00bb       |    |		Action	Signal_Completion
0086 0000 0000  |    |		.XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b       |    |		.CONST	0x008b								; Address of begin
0089 0004       |    |		.CONST	0x0004								; Address of exception handler
008a 0001       |    |		.CONST	0x0001								; Number of locals
008b			BODY_0088:
008b			INIT_0088:
008b 4800       |H   |		Short_Literal	0x0
008c 00ca       |    |		Action	Exit_Nullary_Function
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 e005       |    |		Load	0x0,0x5
0094 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0095 0322       | "  |		Declare_Variable	Record
0096 6015       |`   |		Indirect_Literal	Discrete,0xac,{0x00000000, 0x0078d980}
0097 e402       |    |		Load	0x2,0x2
0098 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0099 4800       |H   |		Short_Literal	0x0
009a e402       |    |		Load	0x2,0x2
009b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
009c 600b       |`   |		Indirect_Literal	Discrete,0xa8,{0x00000000, 0x00119400}
009d e402       |    |		Load	0x2,0x2
009e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
009f 4800       |H   |		Short_Literal	0x0
00a0 e402       |    |		Load	0x2,0x2
00a1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00a2 6009       |`   |		Indirect_Literal	Discrete,0xac,{0x00000000, 0x0078d980}
00a3 e402       |    |		Load	0x2,0x2
00a4 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00a5 e5fe       |    |		Load	0x2,-0x2
00a6 017d       | }  |		Execute	Record,Structure_Write
00a7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00a8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00119400}
00ac 0000 0000  |    |		.LITERAL	{0x00000000, 0x0078d980}
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 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
00b4 0000 0000  |    |		.BLANK	0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 0092 060e  |    |		Action	Push_String_Extended,0x60e					; "The OnLine device does not support defining forms"
00bd e006       |    |		Load	0x0,0x6
00be 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00bf 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00cc       |    |		.CONST	0x00cc								; Address of begin
00c1 00d1       |    |		.CONST	0x00d1								; Address of exception handler
00c2 0004       |    |		.CONST	0x0004								; Number of locals
00c3			INIT_00c0:
00c3 e007       |    |		Load	0x0,0x7
00c4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00c5 02c7       |    |		Declare_Variable	Any
00c6 00d8       |    |		Load_Top	At_Offset_0
00c7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c8 029f 05e3  |    |		Declare_Subprogram	INIT_05e0,For_Call
00ca 029f 0603  |    |		Declare_Subprogram	INIT_0600,For_Call
00cc			BODY_00c0:
00cc 8403       |    |		Call	0x2,0x3
00cd 00cf       |    |		Action	Mark_Auxiliary
00ce 8404       |    |		Call	0x2,0x4
00cf 00c9       |    |		Action	Pop_Auxiliary_Loop
00d0 7ffd       |    |		Jump	0xce
00d1			TRAP_00c0:
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 0107       |    |		Execute	Exception,Get_Name
00d3 4950       |IP  |		Short_Literal	0x150
00d4 495f       |I_  |		Short_Literal	0x15f
00d5 0262       | b  |		Execute	Discrete,In_Range
00d6 6805       |h   |		Jump_Zero	0xdc
00d7 e402       |    |		Load	0x2,0x2
00d8 e007       |    |		Load	0x0,0x7
00d9 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00da c402       |    |		Store	0x2,0x2
00db 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00dc e001       |    |		Load	0x0,0x1
00dd 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
00de 010f       |    |		Execute	Exception,Equal
00df 6802       |h   |		Jump_Zero	0xe2
00e0 00d8       |    |		Load_Top	At_Offset_0
00e1 0101       |    |		Execute	Exception,Reraise
00e2 0092 060f  |    |		Action	Push_String_Extended,0x60f					; "Could not define forms in "
00e4 e5ff       |    |		Load	0x2,-0x1
00e5 01cc       |    |		Execute	Vector,Catenate
00e6 e006       |    |		Load	0x0,0x6
00e7 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00e8 e001       |    |		Load	0x0,0x1
00e9 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
00ea 0257       | W  |		Execute	Discrete,Raise
00eb 0000 0000  |    |		.BLANK	0000[0x5]
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 0092 0610  |    |		Action	Push_String_Extended,0x610					; "The OnLine device does not support defining fonts"
00f5 e006       |    |		Load	0x0,0x6
00f6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00f7 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb       |    |		.CONST	0x00fb								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0001       |    |		.CONST	0x0001								; Number of locals
00fb			BODY_00f8:
00fb			INIT_00f8:
00fb 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00fc 0000 0000  |    |		.BLANK	0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 4801       |H   |		Short_Literal	0x1
0104 a5fe       |    |		Store_Unchecked	0x2,-0x2
0105 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0106 0000 0000  |    |		.XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 0092 0611  |    |		Action	Push_String_Extended,0x611					; "Standard"
010d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010e 0000 0000  |    |		.XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 480a       |H   |		Short_Literal	0xa
0114 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0115 0000 0000  |    |		.XXX[0x3]
0117 0000       |    |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b       |    |		.CONST	0x011b								; Address of begin
0119 0004       |    |		.CONST	0x0004								; Address of exception handler
011a 0001       |    |		.CONST	0x0001								; Number of locals
011b			BODY_0118:
011b			INIT_0118:
011b 6004       |`   |		Indirect_Literal	Discrete,0x120,{0x00000000, 0x00001c20}
011c 00ca       |    |		Action	Exit_Nullary_Function
011d 0000 0000  |    |		.XXX[0x3]
011f 0000       |    |
0120 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001c20}
0124 0000 0000  |    |		.BLANK	0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 6004       |`   |		Indirect_Literal	Discrete,0x130,{0x00000000, 0x00002ee0}
012c 00ca       |    |		Action	Exit_Nullary_Function
012d 0000 0000  |    |		.XXX[0x3]
012f 0000       |    |
0130 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002ee0}
0134 0000 0000  |    |		.BLANK	0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b       | ;  |		.CONST	0x013b								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0001       |    |		.CONST	0x0001								; Number of locals
013b			BODY_0138:
013b			INIT_0138:
013b e5ff       |    |		Load	0x2,-0x1
013c 600b       |`   |		Indirect_Literal	Discrete,0x148,{0x00000000, 0x00001c20}
013d 0270       | p  |		Execute	Discrete,Divide
013e 6009       |`   |		Indirect_Literal	Discrete,0x148,{0x00000000, 0x00001c20}
013f 0271       | q  |		Execute	Discrete,Times
0140 e001       |    |		Load	0x0,0x1
0141 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0142 00d9       |    |		Load_Top	At_Offset_1
0143 00d0       |    |		Action	Swap_Control
0144 0260       | `  |		Execute	Discrete,In_Type
0145 7001       |p   |		Jump_Nonzero	0x147
0146 0801       |    |		Execute_Immediate	Raise,0x1
0147 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0148 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001c20}
014c 0000 0000  |    |		.BLANK	0000[0x4]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 e5ff       |    |		Load	0x2,-0x1
0154 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
0155 680f       |h   |		Jump_Zero	0x165
0156 e5ff       |    |		Load	0x2,-0x1
0157 6024       |`$  |		Indirect_Literal	Discrete,0x17c,{0x00000000, 0x00002edf}
0158 0273       | s  |		Execute	Discrete,Plus
0159 601e       |`   |		Indirect_Literal	Discrete,0x178,{0x00000000, 0x00002ee0}
015a 0270       | p  |		Execute	Discrete,Divide
015b 601c       |`   |		Indirect_Literal	Discrete,0x178,{0x00000000, 0x00002ee0}
015c 0271       | q  |		Execute	Discrete,Times
015d e001       |    |		Load	0x0,0x1
015e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
015f 00d9       |    |		Load_Top	At_Offset_1
0160 00d0       |    |		Action	Swap_Control
0161 0260       | `  |		Execute	Discrete,In_Type
0162 7001       |p   |		Jump_Nonzero	0x164
0163 0801       |    |		Execute_Immediate	Raise,0x1
0164 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0165 e5ff       |    |		Load	0x2,-0x1
0166 600d       |`   |		Indirect_Literal	Discrete,0x174,{0xffffffff, 0xffffd121}
0167 0273       | s  |		Execute	Discrete,Plus
0168 600f       |`   |		Indirect_Literal	Discrete,0x178,{0x00000000, 0x00002ee0}
0169 0270       | p  |		Execute	Discrete,Divide
016a 600d       |`   |		Indirect_Literal	Discrete,0x178,{0x00000000, 0x00002ee0}
016b 0271       | q  |		Execute	Discrete,Times
016c e001       |    |		Load	0x0,0x1
016d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
016e 00d9       |    |		Load_Top	At_Offset_1
016f 00d0       |    |		Action	Swap_Control
0170 0260       | `  |		Execute	Discrete,In_Type
0171 7001       |p   |		Jump_Nonzero	0x173
0172 0801       |    |		Execute_Immediate	Raise,0x1
0173 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0174 ffff ffff  |    |		.LITERAL	{0xffffffff, 0xffffd121}
0178 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002ee0}
017c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002edf}
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 6004       |`   |		Indirect_Literal	Discrete,0x188,{0x00000000, 0x00001c20}
0184 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0185 0000 0000  |    |		.XXX[0x3]
0187 0000       |    |
0188 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001c20}
018c 0000 0000  |    |		.BLANK	0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 6004       |`   |		Indirect_Literal	Discrete,0x198,{0x00000000, 0x00002710}
0194 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0195 0000 0000  |    |		.XXX[0x3]
0197 0000       |    |
0198 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002710}
019c 0000 0000  |    |		.BLANK	0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ab       |    |		.CONST	0x01ab								; Address of begin
01a1 01b3       |    |		.CONST	0x01b3								; Address of exception handler
01a2 0002       |    |		.CONST	0x0002								; Number of locals
01a3			INIT_01a0:
01a3 e5ff       |    |		Load	0x2,-0x1
01a4 e008       |    |		Load	0x0,0x8
01a5 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
01a6 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
01a7 0092 0612  |    |		Action	Push_String_Extended,0x612					; "_ONLINE"
01a9 01cc       |    |		Execute	Vector,Catenate
01aa 0007       |    |		Action	Break_Optional
01ab			BODY_01a0:
01ab e217       |    |		Load	0x1,0x17
01ac e009       |    |		Load	0x0,0x9
01ad 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
01ae e402       |    |		Load	0x2,0x2
01af e002       |    |		Load	0x0,0x2
01b0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01b1 c217       |    |		Store	0x1,0x17
01b2 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01b3			TRAP_01a0:
01b3 0007       |    |		Action	Break_Optional
01b4 4829       |H)  |		Short_Literal	0x29
01b5 0092 0613  |    |		Action	Push_String_Extended,0x613					; "Cannot create output "
01b7 e402       |    |		Load	0x2,0x2
01b8 01cc       |    |		Execute	Vector,Catenate
01b9 0092 0614  |    |		Action	Push_String_Extended,0x614					; " ("
01bb 01cc       |    |		Execute	Vector,Catenate
01bc 4800       |H   |		Short_Literal	0x0
01bd 4801       |H   |		Short_Literal	0x1
01be e00a       |    |		Load	0x0,0xa
01bf 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01c0 01cc       |    |		Execute	Vector,Catenate
01c1 01cb       |    |		Execute	Vector,Append
01c2 e006       |    |		Load	0x0,0x6
01c3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
01c4 e001       |    |		Load	0x0,0x1
01c5 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
01c6 0257       | W  |		Execute	Discrete,Raise
01c7 0000       |    |		.XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb       |    |		.CONST	0x01cb								; Address of begin
01c9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ca 0001       |    |		.CONST	0x0001								; Number of locals
01cb			BODY_01c8:
01cb			INIT_01c8:
01cb e217       |    |		Load	0x1,0x17
01cc e002       |    |		Load	0x0,0x2
01cd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01ce c217       |    |		Store	0x1,0x17
01cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3       |    |		.CONST	0x01d3								; Address of begin
01d1 0004       |    |		.CONST	0x0004								; Address of exception handler
01d2 0001       |    |		.CONST	0x0001								; Number of locals
01d3			BODY_01d0:
01d3			INIT_01d0:
01d3 0092 0615  |    |		Action	Push_String_Extended,0x615					; "_ONLINE_AUX"
01d5 00ca       |    |		Action	Exit_Nullary_Function
01d6 0000 0000  |    |		.XXX[0x2]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db       |    |		.CONST	0x01db								; Address of begin
01d9 0004       |    |		.CONST	0x0004								; Address of exception handler
01da 0001       |    |		.CONST	0x0001								; Number of locals
01db			BODY_01d8:
01db			INIT_01d8:
01db e215       |    |		Load	0x1,0x15
01dc 4a94       |J   |		Short_Literal	0x294
01dd 027d       | }  |		Execute	Discrete,Greater
01de 6802       |h   |		Jump_Zero	0x1e1
01df 4a94       |J   |		Short_Literal	0x294
01e0 a215       |    |		Store_Unchecked	0x1,0x15
01e1 00cf       |    |		Action	Mark_Auxiliary
01e2 7804       |x   |		Jump	0x1e7
01e3 e215       |    |		Load	0x1,0x15
01e4 0aff       |    |		Execute_Immediate	Plus,-0x1
01e5 c215       |    |		Store	0x1,0x15
01e6 00c9       |    |		Action	Pop_Auxiliary_Loop
01e7 e215       |    |		Load	0x1,0x15
01e8 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
01e9 6805       |h   |		Jump_Zero	0x1ef
01ea e215       |    |		Load	0x1,0x15
01eb e210       |    |		Load	0x1,0x10
01ec 01d5       |    |		Execute	Vector,Field_Reference
01ed 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01ee 6ff4       |o   |		Jump_Zero	0x1e3
01ef 00c9       |    |		Action	Pop_Auxiliary_Loop
01f0 e215       |    |		Load	0x1,0x15
01f1 4801       |H   |		Short_Literal	0x1
01f2 0263       | c  |		Execute	Discrete,Above_Bound
01f3 700f       |p   |		Jump_Nonzero	0x203
01f4 4801       |H   |		Short_Literal	0x1
01f5 e404       |    |		Load	0x2,0x4
01f6 e210       |    |		Load	0x1,0x10
01f7 01d5       |    |		Execute	Vector,Field_Reference
01f8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01f9 e404       |    |		Load	0x2,0x4
01fa e210       |    |		Load	0x1,0x10
01fb 01d5       |    |		Execute	Vector,Field_Reference
01fc 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
01fd 01cf       |    |		Execute	Vector,Slice_Read
01fe e217       |    |		Load	0x1,0x17
01ff e002       |    |		Load	0x0,0x2
0200 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0201 00c8       |    |		Action	Pop_Auxiliary_Range
0202 3ff1       |?   |		Loop_Increasing	0x1f4
0203 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0204 0000 0000  |    |		.BLANK	0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b       |    |		.CONST	0x020b								; Address of begin
0209 0004       |    |		.CONST	0x0004								; Address of exception handler
020a 0001       |    |		.CONST	0x0001								; Number of locals
020b			BODY_0208:
020b			INIT_0208:
020b 00cf       |    |		Action	Mark_Auxiliary
020c e210       |    |		Load	0x1,0x10
020d 01d9       |    |		Execute	Vector,Reverse_Bounds
020e 0007       |    |		Action	Break_Optional
020f e20e       |    |		Load	0x1,0xe
0210 0322       | "  |		Declare_Variable	Record
0211 4800       |H   |		Short_Literal	0x0
0212 e405       |    |		Load	0x2,0x5
0213 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0214 4801       |H   |		Short_Literal	0x1
0215 48a0       |H   |		Short_Literal	0xa0
0216 00e9       |    |		Load_Encached	String_Cache
0217 0334       | 4  |		Declare_Variable	Array,With_Constraint
0218 48a0       |H   |		Short_Literal	0xa0
0219 4801       |H   |		Short_Literal	0x1
021a 4820       |H   |		Short_Literal	0x20
021b e408       |    |		Load	0x2,0x8
021c e406       |    |		Load	0x2,0x6
021d 01d6       |    |		Execute	Vector,Field_Write
021e 3ffb       |?   |		Loop_Increasing	0x21a
021f e20e       |    |		Load	0x1,0xe
0220 3001       |0   |		Execute	Record,Field_Type,Field_Number 0x1
0221 0119       |    |		Execute	Any,Check_In_Formal_Type
0222 e405       |    |		Load	0x2,0x5
0223 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0224 e404       |    |		Load	0x2,0x4
0225 e210       |    |		Load	0x1,0x10
0226 01d6       |    |		Execute	Vector,Field_Write
0227 00c8       |    |		Action	Pop_Auxiliary_Range
0228 3fe6       |?   |		Loop_Increasing	0x20f
0229 00ce       |    |		Action	Pop_Auxiliary
022a 4800       |H   |		Short_Literal	0x0
022b a211       |    |		Store_Unchecked	0x1,0x11
022c 4800       |H   |		Short_Literal	0x0
022d a212       |    |		Store_Unchecked	0x1,0x12
022e 4800       |H   |		Short_Literal	0x0
022f a215       |    |		Store_Unchecked	0x1,0x15
0230 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0231 0000 0000  |    |		.BLANK	0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023f       | ?  |		.CONST	0x023f								; Address of begin
0239 0004       |    |		.CONST	0x0004								; Address of exception handler
023a 0002       |    |		.CONST	0x0002								; Number of locals
023b			INIT_0238:
023b e214       |    |		Load	0x1,0x14
023c e210       |    |		Load	0x1,0x10
023d 01d5       |    |		Execute	Vector,Field_Reference
023e 0007       |    |		Action	Break_Optional
023f			BODY_0238:
023f e213       |    |		Load	0x1,0x13
0240 0a01       |    |		Execute_Immediate	Plus,0x1
0241 c213       |    |		Store	0x1,0x13
0242 e213       |    |		Load	0x1,0x13
0243 0ca1       |    |		Execute_Immediate	Greater_Equal,-0x5f
0244 6809       |h   |		Jump_Zero	0x24e
0245 e212       |    |		Load	0x1,0x12
0246 7006       |p   |		Jump_Nonzero	0x24d
0247 0092 0616  |    |		Action	Push_String_Extended,0x616					; "Characters beyond right edge of page ignored"
0249 e006       |    |		Load	0x0,0x6
024a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
024b 4801       |H   |		Short_Literal	0x1
024c a212       |    |		Store_Unchecked	0x1,0x12
024d 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
024e e5ff       |    |		Load	0x2,-0x1
024f e213       |    |		Load	0x1,0x13
0250 e402       |    |		Load	0x2,0x2
0251 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0252 01d6       |    |		Execute	Vector,Field_Write
0253 00d8       |    |		Load_Top	At_Offset_0
0254 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0255 e213       |    |		Load	0x1,0x13
0256 027c       | |  |		Execute	Discrete,Less
0257 6803       |h   |		Jump_Zero	0x25b
0258 e213       |    |		Load	0x1,0x13
0259 e402       |    |		Load	0x2,0x2
025a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
025b e5fe       |    |		Load	0x2,-0x2
025c 600b       |`   |		Indirect_Literal	Discrete,0x268,{0x00000000, 0x00001c20}
025d 027f       |    |		Execute	Discrete,Equal
025e 7007       |p   |		Jump_Nonzero	0x266
025f e213       |    |		Load	0x1,0x13
0260 e5fe       |    |		Load	0x2,-0x2
0261 6006       |`   |		Indirect_Literal	Discrete,0x268,{0x00000000, 0x00001c20}
0262 0270       | p  |		Execute	Discrete,Divide
0263 0aff       |    |		Execute_Immediate	Plus,-0x1
0264 0273       | s  |		Execute	Discrete,Plus
0265 c213       |    |		Store	0x1,0x13
0266 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0267 0000       |    |		.XXX[0x1]
0268 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001c20}
026c 0000 0000  |    |		.BLANK	0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0275       | u  |		.CONST	0x0275								; Address of begin
0271 0004       |    |		.CONST	0x0004								; Address of exception handler
0272 0003       |    |		.CONST	0x0003								; Number of locals
0273			INIT_0270:
0273 00e3       |    |		Load_Encached	Natural_Cache
0274 03e9       |    |		Declare_Variable	Discrete,Duplicate
0275			BODY_0270:
0275 e213       |    |		Load	0x1,0x13
0276 e5ff       |    |		Load	0x2,-0x1
0277 67f0       |g   |		Indirect_Literal	Discrete,0x268,{0x00000000, 0x00001c20}
0278 0270       | p  |		Execute	Discrete,Divide
0279 0273       | s  |		Execute	Discrete,Plus
027a c402       |    |		Store	0x2,0x2
027b e214       |    |		Load	0x1,0x14
027c e5fe       |    |		Load	0x2,-0x2
027d 60be       |`   |		Indirect_Literal	Discrete,0x33c,{0x00000000, 0x00002ee0}
027e 0270       | p  |		Execute	Discrete,Divide
027f 0273       | s  |		Execute	Discrete,Plus
0280 c403       |    |		Store	0x2,0x3
0281 e402       |    |		Load	0x2,0x2
0282 e213       |    |		Load	0x1,0x13
0283 027d       | }  |		Execute	Discrete,Greater
0284 e214       |    |		Load	0x1,0x14
0285 0e00       |    |		Execute_Immediate	Not_Equal,0x0
0286 0279       | y  |		Execute	Discrete,And
0287 6826       |h&  |		Jump_Zero	0x2ae
0288 00cf       |    |		Action	Mark_Auxiliary
0289 e402       |    |		Load	0x2,0x2
028a 0aff       |    |		Execute_Immediate	Plus,-0x1
028b e213       |    |		Load	0x1,0x13
028c 0a01       |    |		Execute_Immediate	Plus,0x1
028d 00d8       |    |		Load_Top	At_Offset_0
028e 00e2       |    |		Load_Encached	Integer_Cache
028f 0260       | `  |		Execute	Discrete,In_Type
0290 7001       |p   |		Jump_Nonzero	0x292
0291 0801       |    |		Execute_Immediate	Raise,0x1
0292 0263       | c  |		Execute	Discrete,Above_Bound
0293 700c       |p   |		Jump_Nonzero	0x2a0
0294 00d8       |    |		Load_Top	At_Offset_0
0295 0da0       |    |		Execute_Immediate	Less,-0x60
0296 6807       |h   |		Jump_Zero	0x29e
0297 482d       |H-  |		Short_Literal	0x2d
0298 e406       |    |		Load	0x2,0x6
0299 e214       |    |		Load	0x1,0x14
029a e210       |    |		Load	0x1,0x10
029b 01d5       |    |		Execute	Vector,Field_Reference
029c 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
029d 01d6       |    |		Execute	Vector,Field_Write
029e 00c8       |    |		Action	Pop_Auxiliary_Range
029f 3ff4       |?   |		Loop_Increasing	0x294
02a0 00ce       |    |		Action	Pop_Auxiliary
02a1 e402       |    |		Load	0x2,0x2
02a2 e214       |    |		Load	0x1,0x14
02a3 e210       |    |		Load	0x1,0x10
02a4 01d5       |    |		Execute	Vector,Field_Reference
02a5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02a6 027d       | }  |		Execute	Discrete,Greater
02a7 688e       |h   |		Jump_Zero	0x336
02a8 e402       |    |		Load	0x2,0x2
02a9 e214       |    |		Load	0x1,0x14
02aa e210       |    |		Load	0x1,0x10
02ab 01d5       |    |		Execute	Vector,Field_Reference
02ac 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02ad 7888       |x   |		Jump	0x336
02ae e213       |    |		Load	0x1,0x13
02af e402       |    |		Load	0x2,0x2
02b0 027d       | }  |		Execute	Discrete,Greater
02b1 e214       |    |		Load	0x1,0x14
02b2 0e00       |    |		Execute_Immediate	Not_Equal,0x0
02b3 0279       | y  |		Execute	Discrete,And
02b4 6826       |h&  |		Jump_Zero	0x2db
02b5 00cf       |    |		Action	Mark_Auxiliary
02b6 e213       |    |		Load	0x1,0x13
02b7 0aff       |    |		Execute_Immediate	Plus,-0x1
02b8 e402       |    |		Load	0x2,0x2
02b9 0a01       |    |		Execute_Immediate	Plus,0x1
02ba 00d8       |    |		Load_Top	At_Offset_0
02bb 00e2       |    |		Load_Encached	Integer_Cache
02bc 0260       | `  |		Execute	Discrete,In_Type
02bd 7001       |p   |		Jump_Nonzero	0x2bf
02be 0801       |    |		Execute_Immediate	Raise,0x1
02bf 0263       | c  |		Execute	Discrete,Above_Bound
02c0 700c       |p   |		Jump_Nonzero	0x2cd
02c1 00d8       |    |		Load_Top	At_Offset_0
02c2 0da0       |    |		Execute_Immediate	Less,-0x60
02c3 6807       |h   |		Jump_Zero	0x2cb
02c4 482d       |H-  |		Short_Literal	0x2d
02c5 e406       |    |		Load	0x2,0x6
02c6 e214       |    |		Load	0x1,0x14
02c7 e210       |    |		Load	0x1,0x10
02c8 01d5       |    |		Execute	Vector,Field_Reference
02c9 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02ca 01d6       |    |		Execute	Vector,Field_Write
02cb 00c8       |    |		Action	Pop_Auxiliary_Range
02cc 3ff4       |?   |		Loop_Increasing	0x2c1
02cd 00ce       |    |		Action	Pop_Auxiliary
02ce e213       |    |		Load	0x1,0x13
02cf e214       |    |		Load	0x1,0x14
02d0 e210       |    |		Load	0x1,0x10
02d1 01d5       |    |		Execute	Vector,Field_Reference
02d2 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02d3 027d       | }  |		Execute	Discrete,Greater
02d4 6861       |ha  |		Jump_Zero	0x336
02d5 e213       |    |		Load	0x1,0x13
02d6 e214       |    |		Load	0x1,0x14
02d7 e210       |    |		Load	0x1,0x10
02d8 01d5       |    |		Execute	Vector,Field_Reference
02d9 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02da 785b       |x[  |		Jump	0x336
02db 00d8       |    |		Load_Top	At_Offset_0
02dc e214       |    |		Load	0x1,0x14
02dd 027d       | }  |		Execute	Discrete,Greater
02de e213       |    |		Load	0x1,0x13
02df 0e00       |    |		Execute_Immediate	Not_Equal,0x0
02e0 0279       | y  |		Execute	Discrete,And
02e1 6827       |h'  |		Jump_Zero	0x309
02e2 00cf       |    |		Action	Mark_Auxiliary
02e3 e403       |    |		Load	0x2,0x3
02e4 0aff       |    |		Execute_Immediate	Plus,-0x1
02e5 e214       |    |		Load	0x1,0x14
02e6 0a01       |    |		Execute_Immediate	Plus,0x1
02e7 00d8       |    |		Load_Top	At_Offset_0
02e8 00e2       |    |		Load_Encached	Integer_Cache
02e9 0260       | `  |		Execute	Discrete,In_Type
02ea 7001       |p   |		Jump_Nonzero	0x2ec
02eb 0801       |    |		Execute_Immediate	Raise,0x1
02ec 0263       | c  |		Execute	Discrete,Above_Bound
02ed 7019       |p   |		Jump_Nonzero	0x307
02ee 00d8       |    |		Load_Top	At_Offset_0
02ef 4a94       |J   |		Short_Literal	0x294
02f0 027c       | |  |		Execute	Discrete,Less
02f1 6813       |h   |		Jump_Zero	0x305
02f2 487c       |H|  |		Short_Literal	0x7c
02f3 e213       |    |		Load	0x1,0x13
02f4 e406       |    |		Load	0x2,0x6
02f5 e210       |    |		Load	0x1,0x10
02f6 01d5       |    |		Execute	Vector,Field_Reference
02f7 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
02f8 01d6       |    |		Execute	Vector,Field_Write
02f9 00d8       |    |		Load_Top	At_Offset_0
02fa e210       |    |		Load	0x1,0x10
02fb 01d5       |    |		Execute	Vector,Field_Reference
02fc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02fd e213       |    |		Load	0x1,0x13
02fe 027c       | |  |		Execute	Discrete,Less
02ff 6805       |h   |		Jump_Zero	0x305
0300 e213       |    |		Load	0x1,0x13
0301 e406       |    |		Load	0x2,0x6
0302 e210       |    |		Load	0x1,0x10
0303 01d5       |    |		Execute	Vector,Field_Reference
0304 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0305 00c8       |    |		Action	Pop_Auxiliary_Range
0306 3fe7       |?   |		Loop_Increasing	0x2ee
0307 00ce       |    |		Action	Pop_Auxiliary
0308 782d       |x-  |		Jump	0x336
0309 e214       |    |		Load	0x1,0x14
030a e403       |    |		Load	0x2,0x3
030b 027d       | }  |		Execute	Discrete,Greater
030c e213       |    |		Load	0x1,0x13
030d 0e00       |    |		Execute_Immediate	Not_Equal,0x0
030e 0279       | y  |		Execute	Discrete,And
030f 6826       |h&  |		Jump_Zero	0x336
0310 00cf       |    |		Action	Mark_Auxiliary
0311 e214       |    |		Load	0x1,0x14
0312 0aff       |    |		Execute_Immediate	Plus,-0x1
0313 e403       |    |		Load	0x2,0x3
0314 0a01       |    |		Execute_Immediate	Plus,0x1
0315 00d8       |    |		Load_Top	At_Offset_0
0316 00e2       |    |		Load_Encached	Integer_Cache
0317 0260       | `  |		Execute	Discrete,In_Type
0318 7001       |p   |		Jump_Nonzero	0x31a
0319 0801       |    |		Execute_Immediate	Raise,0x1
031a 0263       | c  |		Execute	Discrete,Above_Bound
031b 7019       |p   |		Jump_Nonzero	0x335
031c 00d8       |    |		Load_Top	At_Offset_0
031d 4a94       |J   |		Short_Literal	0x294
031e 027c       | |  |		Execute	Discrete,Less
031f 6813       |h   |		Jump_Zero	0x333
0320 487c       |H|  |		Short_Literal	0x7c
0321 e213       |    |		Load	0x1,0x13
0322 e406       |    |		Load	0x2,0x6
0323 e210       |    |		Load	0x1,0x10
0324 01d5       |    |		Execute	Vector,Field_Reference
0325 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0326 01d6       |    |		Execute	Vector,Field_Write
0327 00d8       |    |		Load_Top	At_Offset_0
0328 e210       |    |		Load	0x1,0x10
0329 01d5       |    |		Execute	Vector,Field_Reference
032a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
032b e213       |    |		Load	0x1,0x13
032c 027c       | |  |		Execute	Discrete,Less
032d 6805       |h   |		Jump_Zero	0x333
032e e213       |    |		Load	0x1,0x13
032f e406       |    |		Load	0x2,0x6
0330 e210       |    |		Load	0x1,0x10
0331 01d5       |    |		Execute	Vector,Field_Reference
0332 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0333 00c8       |    |		Action	Pop_Auxiliary_Range
0334 3fe7       |?   |		Loop_Increasing	0x31c
0335 00ce       |    |		Action	Pop_Auxiliary
0336 e402       |    |		Load	0x2,0x2
0337 a213       |    |		Store_Unchecked	0x1,0x13
0338 00d8       |    |		Load_Top	At_Offset_0
0339 a214       |    |		Store_Unchecked	0x1,0x14
033a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
033b 0000       |    |		.XXX[0x1]
033c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002ee0}
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0347       | G  |		.CONST	0x0347								; Address of begin
0341 0004       |    |		.CONST	0x0004								; Address of exception handler
0342 0003       |    |		.CONST	0x0003								; Number of locals
0343			INIT_0340:
0343 e001       |    |		Load	0x0,0x1
0344 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0345 0322       | "  |		Declare_Variable	Record
0346 00e3       |    |		Load_Encached	Natural_Cache
0347			BODY_0340:
0347 e5ff       |    |		Load	0x2,-0x1
0348 0227       | '  |		Execute	Access,All_Reference
0349 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
034a 67f1       |g   |		Indirect_Literal	Discrete,0x33c,{0x00000000, 0x00002ee0}
034b 0270       | p  |		Execute	Discrete,Divide
034c 00d8       |    |		Load_Top	At_Offset_0
034d 00e3       |    |		Load_Encached	Natural_Cache
034e 0260       | `  |		Execute	Discrete,In_Type
034f 7001       |p   |		Jump_Nonzero	0x351
0350 0801       |    |		Execute_Immediate	Raise,0x1
0351 a214       |    |		Store_Unchecked	0x1,0x14
0352 e216       |    |		Load	0x1,0x16
0353 6806       |h   |		Jump_Zero	0x35a
0354 4800       |H   |		Short_Literal	0x0
0355 a213       |    |		Store_Unchecked	0x1,0x13
0356 00a2 05cc  |    |		Action	Push_Discrete_Extended
0358 487c       |H|  |		Short_Literal	0x7c
0359 822d       | -  |		Call	0x1,0x2d
035a e20d       |    |		Load	0x1,0xd
035b 00a2 05cc  |    |		Action	Push_Discrete_Extended
035d 0270       | p  |		Execute	Discrete,Divide
035e 00d8       |    |		Load_Top	At_Offset_0
035f 00e3       |    |		Load_Encached	Natural_Cache
0360 0260       | `  |		Execute	Discrete,In_Type
0361 7001       |p   |		Jump_Nonzero	0x363
0362 0801       |    |		Execute_Immediate	Raise,0x1
0363 a213       |    |		Store_Unchecked	0x1,0x13
0364 e5ff       |    |		Load	0x2,-0x1
0365 0227       | '  |		Execute	Access,All_Reference
0366 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0367 6893       |h   |		Jump_Zero	0x3fb
0368 00cf       |    |		Action	Mark_Auxiliary
0369 e5ff       |    |		Load	0x2,-0x1
036a 0227       | '  |		Execute	Access,All_Reference
036b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
036c 4801       |H   |		Short_Literal	0x1
036d 0263       | c  |		Execute	Discrete,Above_Bound
036e 7084       |p   |		Jump_Nonzero	0x3f3
036f 00d8       |    |		Load_Top	At_Offset_0
0370 e5ff       |    |		Load	0x2,-0x1
0371 0227       | '  |		Execute	Access,All_Reference
0372 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0373 01d5       |    |		Execute	Vector,Field_Reference
0374 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0375 00d8       |    |		Load_Top	At_Offset_0
0376 494e       |IN  |		Short_Literal	0x14e
0377 027c       | |  |		Execute	Discrete,Less
0378 700a       |p   |		Jump_Nonzero	0x383
0379 4eb2       |N   |		Short_Literal	-0x14e
037a 0273       | s  |		Execute	Discrete,Plus
037b 4606       |F   |		Jump_Case	0x7
037c 7864       |xd  |		Jump	0x3e1								; case 0x0
037d 7807       |x   |		Jump	0x385								; case 0x1
037e 7815       |x   |		Jump	0x394								; case 0x2
037f 7821       |x!  |		Jump	0x3a1								; case 0x3
0380 782c       |x,  |		Jump	0x3ad								; case 0x4
0381 783a       |x:  |		Jump	0x3bc								; case 0x5
0382 786e       |xn  |		Jump	0x3f1								; case 0x6
0383 00d1       |    |		Pop_Control	Pop_Count_1
0384 786c       |xl  |		Jump	0x3f1
0385 00d8       |    |		Load_Top	At_Offset_0
0386 e5ff       |    |		Load	0x2,-0x1
0387 0227       | '  |		Execute	Access,All_Reference
0388 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0389 01d5       |    |		Execute	Vector,Field_Reference
038a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
038b 67b0       |g   |		Indirect_Literal	Discrete,0x33c,{0x00000000, 0x00002ee0}
038c 0270       | p  |		Execute	Discrete,Divide
038d 00d8       |    |		Load_Top	At_Offset_0
038e 00e3       |    |		Load_Encached	Natural_Cache
038f 0260       | `  |		Execute	Discrete,In_Type
0390 7001       |p   |		Jump_Nonzero	0x392
0391 0801       |    |		Execute_Immediate	Raise,0x1
0392 a214       |    |		Store_Unchecked	0x1,0x14
0393 785d       |x]  |		Jump	0x3f1
0394 e213       |    |		Load	0x1,0x13
0395 e406       |    |		Load	0x2,0x6
0396 e5ff       |    |		Load	0x2,-0x1
0397 0227       | '  |		Execute	Access,All_Reference
0398 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0399 01d5       |    |		Execute	Vector,Field_Reference
039a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
039b 00a2 05cc  |    |		Action	Push_Discrete_Extended
039d 0270       | p  |		Execute	Discrete,Divide
039e 0273       | s  |		Execute	Discrete,Plus
039f c213       |    |		Store	0x1,0x13
03a0 7850       |xP  |		Jump	0x3f1
03a1 e214       |    |		Load	0x1,0x14
03a2 e406       |    |		Load	0x2,0x6
03a3 e5ff       |    |		Load	0x2,-0x1
03a4 0227       | '  |		Execute	Access,All_Reference
03a5 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03a6 01d5       |    |		Execute	Vector,Field_Reference
03a7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03a8 6793       |g   |		Indirect_Literal	Discrete,0x33c,{0x00000000, 0x00002ee0}
03a9 0270       | p  |		Execute	Discrete,Divide
03aa 0273       | s  |		Execute	Discrete,Plus
03ab c214       |    |		Store	0x1,0x14
03ac 7844       |xD  |		Jump	0x3f1
03ad 00d8       |    |		Load_Top	At_Offset_0
03ae 0a01       |    |		Execute_Immediate	Plus,0x1
03af e5ff       |    |		Load	0x2,-0x1
03b0 0227       | '  |		Execute	Access,All_Reference
03b1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03b2 01d5       |    |		Execute	Vector,Field_Reference
03b3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03b4 e406       |    |		Load	0x2,0x6
03b5 e5ff       |    |		Load	0x2,-0x1
03b6 0227       | '  |		Execute	Access,All_Reference
03b7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03b8 01d5       |    |		Execute	Vector,Field_Reference
03b9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03ba 822e       | .  |		Call	0x1,0x2e
03bb 7835       |x5  |		Jump	0x3f1
03bc 00d8       |    |		Load_Top	At_Offset_0
03bd 0a01       |    |		Execute_Immediate	Plus,0x1
03be e5ff       |    |		Load	0x2,-0x1
03bf 0227       | '  |		Execute	Access,All_Reference
03c0 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03c1 01d5       |    |		Execute	Vector,Field_Reference
03c2 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03c3 4800       |H   |		Short_Literal	0x0
03c4 822e       | .  |		Call	0x1,0x2e
03c5 4800       |H   |		Short_Literal	0x0
03c6 e406       |    |		Load	0x2,0x6
03c7 e5ff       |    |		Load	0x2,-0x1
03c8 0227       | '  |		Execute	Access,All_Reference
03c9 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03ca 01d5       |    |		Execute	Vector,Field_Reference
03cb 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03cc 822e       | .  |		Call	0x1,0x2e
03cd 00d8       |    |		Load_Top	At_Offset_0
03ce 0a01       |    |		Execute_Immediate	Plus,0x1
03cf e5ff       |    |		Load	0x2,-0x1
03d0 0227       | '  |		Execute	Access,All_Reference
03d1 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03d2 01d5       |    |		Execute	Vector,Field_Reference
03d3 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03d4 0275       | u  |		Execute	Discrete,Unary_Minus
03d5 4800       |H   |		Short_Literal	0x0
03d6 822e       | .  |		Call	0x1,0x2e
03d7 4800       |H   |		Short_Literal	0x0
03d8 e406       |    |		Load	0x2,0x6
03d9 e5ff       |    |		Load	0x2,-0x1
03da 0227       | '  |		Execute	Access,All_Reference
03db 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03dc 01d5       |    |		Execute	Vector,Field_Reference
03dd 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03de 0275       | u  |		Execute	Discrete,Unary_Minus
03df 822e       | .  |		Call	0x1,0x2e
03e0 7810       |x   |		Jump	0x3f1
03e1 00d8       |    |		Load_Top	At_Offset_0
03e2 e5ff       |    |		Load	0x2,-0x1
03e3 0227       | '  |		Execute	Access,All_Reference
03e4 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03e5 01d5       |    |		Execute	Vector,Field_Reference
03e6 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
03e7 e20d       |    |		Load	0x1,0xd
03e8 0273       | s  |		Execute	Discrete,Plus
03e9 61e2       |a   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
03ea 0270       | p  |		Execute	Discrete,Divide
03eb 00d8       |    |		Load_Top	At_Offset_0
03ec 00e3       |    |		Load_Encached	Natural_Cache
03ed 0260       | `  |		Execute	Discrete,In_Type
03ee 7001       |p   |		Jump_Nonzero	0x3f0
03ef 0801       |    |		Execute_Immediate	Raise,0x1
03f0 a213       |    |		Store_Unchecked	0x1,0x13
03f1 00c8       |    |		Action	Pop_Auxiliary_Range
03f2 3f7c       |?|  |		Loop_Increasing	0x36f
03f3 00ce       |    |		Action	Pop_Auxiliary
03f4 e214       |    |		Load	0x1,0x14
03f5 e215       |    |		Load	0x1,0x15
03f6 027d       | }  |		Execute	Discrete,Greater
03f7 6802       |h   |		Jump_Zero	0x3fa
03f8 e214       |    |		Load	0x1,0x14
03f9 a215       |    |		Store_Unchecked	0x1,0x15
03fa 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03fb e214       |    |		Load	0x1,0x14
03fc 7001       |p   |		Jump_Nonzero	0x3fe
03fd 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03fe e214       |    |		Load	0x1,0x14
03ff 4a94       |J   |		Short_Literal	0x294
0400 027d       | }  |		Execute	Discrete,Greater
0401 6809       |h   |		Jump_Zero	0x40b
0402 e211       |    |		Load	0x1,0x11
0403 7006       |p   |		Jump_Nonzero	0x40a
0404 0092 0617  |    |		Action	Push_String_Extended,0x617					; "Lines off bottom of page ignored"
0406 e006       |    |		Load	0x0,0x6
0407 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0408 4801       |H   |		Short_Literal	0x1
0409 a211       |    |		Store_Unchecked	0x1,0x11
040a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
040b e214       |    |		Load	0x1,0x14
040c e215       |    |		Load	0x1,0x15
040d 027d       | }  |		Execute	Discrete,Greater
040e 6802       |h   |		Jump_Zero	0x411
040f e214       |    |		Load	0x1,0x14
0410 a215       |    |		Store_Unchecked	0x1,0x15
0411 00cf       |    |		Action	Mark_Auxiliary
0412 e5ff       |    |		Load	0x2,-0x1
0413 0227       | '  |		Execute	Access,All_Reference
0414 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0415 0aff       |    |		Execute_Immediate	Plus,-0x1
0416 4801       |H   |		Short_Literal	0x1
0417 0263       | c  |		Execute	Discrete,Above_Bound
0418 71b2       |q   |		Jump_Nonzero	0x5cb
0419 00d8       |    |		Load_Top	At_Offset_0
041a e5ff       |    |		Load	0x2,-0x1
041b 0227       | '  |		Execute	Access,All_Reference
041c 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
041d 01d5       |    |		Execute	Vector,Field_Reference
041e e402       |    |		Load	0x2,0x2
041f 017d       | }  |		Execute	Record,Structure_Write
0420 e402       |    |		Load	0x2,0x2
0421 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0422 00d8       |    |		Load_Top	At_Offset_0
0423 0d7f       |    |		Execute_Immediate	Less,0x7f
0424 70dc       |p   |		Jump_Nonzero	0x501
0425 0a81       |    |		Execute_Immediate	Plus,-0x7f
0426 46d5       |F   |		Jump_Case	0xd6
0427 78d5       |x   |		Jump	0x4fd								; case 0x0
0428 78d4       |x   |		Jump	0x4fd								; case 0x1
0429 78d3       |x   |		Jump	0x4fd								; case 0x2
042a 78d2       |x   |		Jump	0x4fd								; case 0x3
042b 78d1       |x   |		Jump	0x4fd								; case 0x4
042c 78d0       |x   |		Jump	0x4fd								; case 0x5
042d 78cf       |x   |		Jump	0x4fd								; case 0x6
042e 78ce       |x   |		Jump	0x4fd								; case 0x7
042f 78cd       |x   |		Jump	0x4fd								; case 0x8
0430 78cc       |x   |		Jump	0x4fd								; case 0x9
0431 78cb       |x   |		Jump	0x4fd								; case 0xa
0432 78ca       |x   |		Jump	0x4fd								; case 0xb
0433 78c9       |x   |		Jump	0x4fd								; case 0xc
0434 78c8       |x   |		Jump	0x4fd								; case 0xd
0435 78c7       |x   |		Jump	0x4fd								; case 0xe
0436 78c6       |x   |		Jump	0x4fd								; case 0xf
0437 78c5       |x   |		Jump	0x4fd								; case 0x10
0438 78c4       |x   |		Jump	0x4fd								; case 0x11
0439 78c3       |x   |		Jump	0x4fd								; case 0x12
043a 78c2       |x   |		Jump	0x4fd								; case 0x13
043b 78c1       |x   |		Jump	0x4fd								; case 0x14
043c 78c0       |x   |		Jump	0x4fd								; case 0x15
043d 78bf       |x   |		Jump	0x4fd								; case 0x16
043e 78be       |x   |		Jump	0x4fd								; case 0x17
043f 78bd       |x   |		Jump	0x4fd								; case 0x18
0440 78bc       |x   |		Jump	0x4fd								; case 0x19
0441 78bb       |x   |		Jump	0x4fd								; case 0x1a
0442 78ba       |x   |		Jump	0x4fd								; case 0x1b
0443 78b9       |x   |		Jump	0x4fd								; case 0x1c
0444 78b8       |x   |		Jump	0x4fd								; case 0x1d
0445 78b7       |x   |		Jump	0x4fd								; case 0x1e
0446 78b6       |x   |		Jump	0x4fd								; case 0x1f
0447 78b5       |x   |		Jump	0x4fd								; case 0x20
0448 78b4       |x   |		Jump	0x4fd								; case 0x21
0449 78b3       |x   |		Jump	0x4fd								; case 0x22
044a 78b2       |x   |		Jump	0x4fd								; case 0x23
044b 78b1       |x   |		Jump	0x4fd								; case 0x24
044c 792c       |y,  |		Jump	0x579								; case 0x25
044d 78af       |x   |		Jump	0x4fd								; case 0x26
044e 78ae       |x   |		Jump	0x4fd								; case 0x27
044f 78ad       |x   |		Jump	0x4fd								; case 0x28
0450 78ac       |x   |		Jump	0x4fd								; case 0x29
0451 7967       |yg  |		Jump	0x5b9								; case 0x2a
0452 7962       |yb  |		Jump	0x5b5								; case 0x2b
0453 7929       |y)  |		Jump	0x57d								; case 0x2c
0454 7928       |y(  |		Jump	0x57d								; case 0x2d
0455 792b       |y+  |		Jump	0x581								; case 0x2e
0456 7966       |yf  |		Jump	0x5bd								; case 0x2f
0457 7916       |y   |		Jump	0x56e								; case 0x30
0458 78a4       |x   |		Jump	0x4fd								; case 0x31
0459 790c       |y   |		Jump	0x566								; case 0x32
045a 78a2       |x   |		Jump	0x4fd								; case 0x33
045b 78a1       |x   |		Jump	0x4fd								; case 0x34
045c 7954       |yT  |		Jump	0x5b1								; case 0x35
045d 789f       |x   |		Jump	0x4fd								; case 0x36
045e 789e       |x   |		Jump	0x4fd								; case 0x37
045f 78c8       |x   |		Jump	0x528								; case 0x38
0460 789c       |x   |		Jump	0x4fd								; case 0x39
0461 789b       |x   |		Jump	0x4fd								; case 0x3a
0462 7952       |yR  |		Jump	0x5b5								; case 0x3b
0463 791d       |y   |		Jump	0x581								; case 0x3c
0464 78f3       |x   |		Jump	0x558								; case 0x3d
0465 7897       |x   |		Jump	0x4fd								; case 0x3e
0466 7896       |x   |		Jump	0x4fd								; case 0x3f
0467 7895       |x   |		Jump	0x4fd								; case 0x40
0468 7894       |x   |		Jump	0x4fd								; case 0x41
0469 7893       |x   |		Jump	0x4fd								; case 0x42
046a 7892       |x   |		Jump	0x4fd								; case 0x43
046b 7891       |x   |		Jump	0x4fd								; case 0x44
046c 7890       |x   |		Jump	0x4fd								; case 0x45
046d 788f       |x   |		Jump	0x4fd								; case 0x46
046e 788e       |x   |		Jump	0x4fd								; case 0x47
046f 788d       |x   |		Jump	0x4fd								; case 0x48
0470 788c       |x   |		Jump	0x4fd								; case 0x49
0471 788b       |x   |		Jump	0x4fd								; case 0x4a
0472 788a       |x   |		Jump	0x4fd								; case 0x4b
0473 7889       |x   |		Jump	0x4fd								; case 0x4c
0474 7888       |x   |		Jump	0x4fd								; case 0x4d
0475 7887       |x   |		Jump	0x4fd								; case 0x4e
0476 7886       |x   |		Jump	0x4fd								; case 0x4f
0477 7885       |x   |		Jump	0x4fd								; case 0x50
0478 78ed       |x   |		Jump	0x566								; case 0x51
0479 7883       |x   |		Jump	0x4fd								; case 0x52
047a 7882       |x   |		Jump	0x4fd								; case 0x53
047b 7881       |x   |		Jump	0x4fd								; case 0x54
047c 7880       |x   |		Jump	0x4fd								; case 0x55
047d 787f       |x   |		Jump	0x4fd								; case 0x56
047e 787e       |x~  |		Jump	0x4fd								; case 0x57
047f 787d       |x}  |		Jump	0x4fd								; case 0x58
0480 787c       |x|  |		Jump	0x4fd								; case 0x59
0481 787b       |x{  |		Jump	0x4fd								; case 0x5a
0482 787a       |xz  |		Jump	0x4fd								; case 0x5b
0483 7879       |xy  |		Jump	0x4fd								; case 0x5c
0484 7878       |xx  |		Jump	0x4fd								; case 0x5d
0485 7877       |xw  |		Jump	0x4fd								; case 0x5e
0486 7876       |xv  |		Jump	0x4fd								; case 0x5f
0487 7875       |xu  |		Jump	0x4fd								; case 0x60
0488 7874       |xt  |		Jump	0x4fd								; case 0x61
0489 7873       |xs  |		Jump	0x4fd								; case 0x62
048a 7872       |xr  |		Jump	0x4fd								; case 0x63
048b 7871       |xq  |		Jump	0x4fd								; case 0x64
048c 7870       |xp  |		Jump	0x4fd								; case 0x65
048d 786f       |xo  |		Jump	0x4fd								; case 0x66
048e 786e       |xn  |		Jump	0x4fd								; case 0x67
048f 786d       |xm  |		Jump	0x4fd								; case 0x68
0490 786c       |xl  |		Jump	0x4fd								; case 0x69
0491 786b       |xk  |		Jump	0x4fd								; case 0x6a
0492 786a       |xj  |		Jump	0x4fd								; case 0x6b
0493 7869       |xi  |		Jump	0x4fd								; case 0x6c
0494 7868       |xh  |		Jump	0x4fd								; case 0x6d
0495 7867       |xg  |		Jump	0x4fd								; case 0x6e
0496 7866       |xf  |		Jump	0x4fd								; case 0x6f
0497 7865       |xe  |		Jump	0x4fd								; case 0x70
0498 7864       |xd  |		Jump	0x4fd								; case 0x71
0499 7863       |xc  |		Jump	0x4fd								; case 0x72
049a 7862       |xb  |		Jump	0x4fd								; case 0x73
049b 7861       |xa  |		Jump	0x4fd								; case 0x74
049c 7860       |x`  |		Jump	0x4fd								; case 0x75
049d 785f       |x_  |		Jump	0x4fd								; case 0x76
049e 785e       |x^  |		Jump	0x4fd								; case 0x77
049f 785d       |x]  |		Jump	0x4fd								; case 0x78
04a0 785c       |x\  |		Jump	0x4fd								; case 0x79
04a1 785b       |x[  |		Jump	0x4fd								; case 0x7a
04a2 785a       |xZ  |		Jump	0x4fd								; case 0x7b
04a3 7859       |xY  |		Jump	0x4fd								; case 0x7c
04a4 7858       |xX  |		Jump	0x4fd								; case 0x7d
04a5 7857       |xW  |		Jump	0x4fd								; case 0x7e
04a6 7856       |xV  |		Jump	0x4fd								; case 0x7f
04a7 7855       |xU  |		Jump	0x4fd								; case 0x80
04a8 7883       |x   |		Jump	0x52c								; case 0x81
04a9 7882       |x   |		Jump	0x52c								; case 0x82
04aa 7881       |x   |		Jump	0x52c								; case 0x83
04ab 7880       |x   |		Jump	0x52c								; case 0x84
04ac 787f       |x   |		Jump	0x52c								; case 0x85
04ad 787e       |x~  |		Jump	0x52c								; case 0x86
04ae 7881       |x   |		Jump	0x530								; case 0x87
04af 7884       |x   |		Jump	0x534								; case 0x88
04b0 7883       |x   |		Jump	0x534								; case 0x89
04b1 7882       |x   |		Jump	0x534								; case 0x8a
04b2 7881       |x   |		Jump	0x534								; case 0x8b
04b3 78b6       |x   |		Jump	0x56a								; case 0x8c
04b4 78b5       |x   |		Jump	0x56a								; case 0x8d
04b5 78b4       |x   |		Jump	0x56a								; case 0x8e
04b6 78b3       |x   |		Jump	0x56a								; case 0x8f
04b7 7888       |x   |		Jump	0x540								; case 0x90
04b8 788b       |x   |		Jump	0x544								; case 0x91
04b9 788a       |x   |		Jump	0x544								; case 0x92
04ba 7889       |x   |		Jump	0x544								; case 0x93
04bb 7888       |x   |		Jump	0x544								; case 0x94
04bc 7887       |x   |		Jump	0x544								; case 0x95
04bd 788a       |x   |		Jump	0x548								; case 0x96
04be 788d       |x   |		Jump	0x54c								; case 0x97
04bf 788c       |x   |		Jump	0x54c								; case 0x98
04c0 788b       |x   |		Jump	0x54c								; case 0x99
04c1 788a       |x   |		Jump	0x54c								; case 0x9a
04c2 788d       |x   |		Jump	0x550								; case 0x9b
04c3 7890       |x   |		Jump	0x554								; case 0x9c
04c4 78c4       |x   |		Jump	0x589								; case 0x9d
04c5 78c3       |x   |		Jump	0x589								; case 0x9e
04c6 78c2       |x   |		Jump	0x589								; case 0x9f
04c7 78c1       |x   |		Jump	0x589								; case 0xa0
04c8 78c0       |x   |		Jump	0x589								; case 0xa1
04c9 78bf       |x   |		Jump	0x589								; case 0xa2
04ca 78c2       |x   |		Jump	0x58d								; case 0xa3
04cb 78c5       |x   |		Jump	0x591								; case 0xa4
04cc 78c4       |x   |		Jump	0x591								; case 0xa5
04cd 78c3       |x   |		Jump	0x591								; case 0xa6
04ce 78c2       |x   |		Jump	0x591								; case 0xa7
04cf 78c5       |x   |		Jump	0x595								; case 0xa8
04d0 78c4       |x   |		Jump	0x595								; case 0xa9
04d1 78c3       |x   |		Jump	0x595								; case 0xaa
04d2 78c2       |x   |		Jump	0x595								; case 0xab
04d3 78c5       |x   |		Jump	0x599								; case 0xac
04d4 78c8       |x   |		Jump	0x59d								; case 0xad
04d5 78c7       |x   |		Jump	0x59d								; case 0xae
04d6 78c6       |x   |		Jump	0x59d								; case 0xaf
04d7 78c5       |x   |		Jump	0x59d								; case 0xb0
04d8 78c4       |x   |		Jump	0x59d								; case 0xb1
04d9 78c7       |x   |		Jump	0x5a1								; case 0xb2
04da 78ca       |x   |		Jump	0x5a5								; case 0xb3
04db 78c9       |x   |		Jump	0x5a5								; case 0xb4
04dc 78c8       |x   |		Jump	0x5a5								; case 0xb5
04dd 78c7       |x   |		Jump	0x5a5								; case 0xb6
04de 78ca       |x   |		Jump	0x5a9								; case 0xb7
04df 78cd       |x   |		Jump	0x5ad								; case 0xb8
04e0 78e7       |x   |		Jump	0x5c8								; case 0xb9
04e1 78e6       |x   |		Jump	0x5c8								; case 0xba
04e2 78e5       |x   |		Jump	0x5c8								; case 0xbb
04e3 78a1       |x   |		Jump	0x585								; case 0xbc
04e4 7881       |x   |		Jump	0x566								; case 0xbd
04e5 7817       |x   |		Jump	0x4fd								; case 0xbe
04e6 7816       |x   |		Jump	0x4fd								; case 0xbf
04e7 7815       |x   |		Jump	0x4fd								; case 0xc0
04e8 7814       |x   |		Jump	0x4fd								; case 0xc1
04e9 7813       |x   |		Jump	0x4fd								; case 0xc2
04ea 781b       |x   |		Jump	0x506								; case 0xc3
04eb 7826       |x&  |		Jump	0x512								; case 0xc4
04ec 7810       |x   |		Jump	0x4fd								; case 0xc5
04ed 784a       |xJ  |		Jump	0x538								; case 0xc6
04ee 7849       |xI  |		Jump	0x538								; case 0xc7
04ef 7848       |xH  |		Jump	0x538								; case 0xc8
04f0 7847       |xG  |		Jump	0x538								; case 0xc9
04f1 7846       |xF  |		Jump	0x538								; case 0xca
04f2 7845       |xE  |		Jump	0x538								; case 0xcb
04f3 7809       |x   |		Jump	0x4fd								; case 0xcc
04f4 7808       |x   |		Jump	0x4fd								; case 0xcd
04f5 781f       |x   |		Jump	0x515								; case 0xce
04f6 7806       |x   |		Jump	0x4fd								; case 0xcf
04f7 7805       |x   |		Jump	0x4fd								; case 0xd0
04f8 7804       |x   |		Jump	0x4fd								; case 0xd1
04f9 7803       |x   |		Jump	0x4fd								; case 0xd2
04fa 7802       |x   |		Jump	0x4fd								; case 0xd3
04fb 7801       |x   |		Jump	0x4fd								; case 0xd4
04fc 7800       |x   |		Jump	0x4fd								; case 0xd5
04fd 60ce       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
04fe 4823       |H#  |		Short_Literal	0x23
04ff 822d       | -  |		Call	0x1,0x2d
0500 78c7       |x   |		Jump	0x5c8
0501 4820       |H   |		Short_Literal	0x20
0502 487e       |H~  |		Short_Literal	0x7e
0503 0262       | b  |		Execute	Discrete,In_Range
0504 7018       |p   |		Jump_Nonzero	0x51d
0505 7ff7       |    |		Jump	0x4fd
0506 4801       |H   |		Short_Literal	0x1
0507 a216       |    |		Store_Unchecked	0x1,0x16
0508 e213       |    |		Load	0x1,0x13
0509 a403       |    |		Store_Unchecked	0x2,0x3
050a 4800       |H   |		Short_Literal	0x0
050b a213       |    |		Store_Unchecked	0x1,0x13
050c 60bf       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
050d 487c       |H|  |		Short_Literal	0x7c
050e 822d       | -  |		Call	0x1,0x2d
050f e403       |    |		Load	0x2,0x3
0510 a213       |    |		Store_Unchecked	0x1,0x13
0511 78b6       |x   |		Jump	0x5c8
0512 4800       |H   |		Short_Literal	0x0
0513 a216       |    |		Store_Unchecked	0x1,0x16
0514 78b3       |x   |		Jump	0x5c8
0515 e214       |    |		Load	0x1,0x14
0516 e402       |    |		Load	0x2,0x2
0517 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0518 6623       |f#  |		Indirect_Literal	Discrete,0x33c,{0x00000000, 0x00002ee0}
0519 0270       | p  |		Execute	Discrete,Divide
051a 0273       | s  |		Execute	Discrete,Plus
051b c214       |    |		Store	0x1,0x14
051c 78ab       |x   |		Jump	0x5c8
051d e402       |    |		Load	0x2,0x2
051e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
051f e402       |    |		Load	0x2,0x2
0520 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0521 00d8       |    |		Load_Top	At_Offset_0
0522 00e8       |    |		Load_Encached	Character_Cache
0523 0260       | `  |		Execute	Discrete,In_Type
0524 7001       |p   |		Jump_Nonzero	0x526
0525 0801       |    |		Execute_Immediate	Raise,0x1
0526 822d       | -  |		Call	0x1,0x2d
0527 78a0       |x   |		Jump	0x5c8
0528 60a3       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0529 482a       |H*  |		Short_Literal	0x2a
052a 822d       | -  |		Call	0x1,0x2d
052b 789c       |x   |		Jump	0x5c8
052c 609f       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
052d 4841       |HA  |		Short_Literal	0x41
052e 822d       | -  |		Call	0x1,0x2d
052f 7898       |x   |		Jump	0x5c8
0530 609b       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0531 4843       |HC  |		Short_Literal	0x43
0532 822d       | -  |		Call	0x1,0x2d
0533 7894       |x   |		Jump	0x5c8
0534 6097       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0535 4845       |HE  |		Short_Literal	0x45
0536 822d       | -  |		Call	0x1,0x2d
0537 7890       |x   |		Jump	0x5c8
0538 e213       |    |		Load	0x1,0x13
0539 e402       |    |		Load	0x2,0x2
053a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
053b 6090       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
053c 0270       | p  |		Execute	Discrete,Divide
053d 0273       | s  |		Execute	Discrete,Plus
053e c213       |    |		Store	0x1,0x13
053f 7888       |x   |		Jump	0x5c8
0540 608b       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0541 484e       |HN  |		Short_Literal	0x4e
0542 822d       | -  |		Call	0x1,0x2d
0543 7884       |x   |		Jump	0x5c8
0544 6087       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0545 484f       |HO  |		Short_Literal	0x4f
0546 822d       | -  |		Call	0x1,0x2d
0547 7880       |x   |		Jump	0x5c8
0548 6083       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0549 4853       |HS  |		Short_Literal	0x53
054a 822d       | -  |		Call	0x1,0x2d
054b 787c       |x|  |		Jump	0x5c8
054c 607f       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
054d 4855       |HU  |		Short_Literal	0x55
054e 822d       | -  |		Call	0x1,0x2d
054f 7878       |xx  |		Jump	0x5c8
0550 607b       |`{  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0551 4859       |HY  |		Short_Literal	0x59
0552 822d       | -  |		Call	0x1,0x2d
0553 7874       |xt  |		Jump	0x5c8
0554 6077       |`w  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0555 485a       |HZ  |		Short_Literal	0x5a
0556 822d       | -  |		Call	0x1,0x2d
0557 7870       |xp  |		Jump	0x5c8
0558 0092 0618  |    |		Action	Push_String_Extended,0x618					; "Expanding ellipsis"
055a e006       |    |		Load	0x0,0x6
055b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
055c 606f       |`o  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
055d 482e       |H.  |		Short_Literal	0x2e
055e 822d       | -  |		Call	0x1,0x2d
055f 606c       |`l  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0560 482e       |H.  |		Short_Literal	0x2e
0561 822d       | -  |		Call	0x1,0x2d
0562 6069       |`i  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0563 482e       |H.  |		Short_Literal	0x2e
0564 822d       | -  |		Call	0x1,0x2d
0565 7862       |xb  |		Jump	0x5c8
0566 6065       |`e  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0567 482d       |H-  |		Short_Literal	0x2d
0568 822d       | -  |		Call	0x1,0x2d
0569 785e       |x^  |		Jump	0x5c8
056a 6061       |`a  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
056b 4849       |HI  |		Short_Literal	0x49
056c 822d       | -  |		Call	0x1,0x2d
056d 785a       |xZ  |		Jump	0x5c8
056e 0092 0619  |    |		Action	Push_String_Extended,0x619					; "Expanding 'fl' ligature"
0570 e006       |    |		Load	0x0,0x6
0571 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0572 6059       |`Y  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0573 4866       |Hf  |		Short_Literal	0x66
0574 822d       | -  |		Call	0x1,0x2d
0575 6056       |`V  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0576 486c       |Hl  |		Short_Literal	0x6c
0577 822d       | -  |		Call	0x1,0x2d
0578 784f       |xO  |		Jump	0x5c8
0579 6052       |`R  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
057a 482f       |H/  |		Short_Literal	0x2f
057b 822d       | -  |		Call	0x1,0x2d
057c 784b       |xK  |		Jump	0x5c8
057d 604e       |`N  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
057e 483c       |H<  |		Short_Literal	0x3c
057f 822d       | -  |		Call	0x1,0x2d
0580 7847       |xG  |		Jump	0x5c8
0581 604a       |`J  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0582 483e       |H>  |		Short_Literal	0x3e
0583 822d       | -  |		Call	0x1,0x2d
0584 7843       |xC  |		Jump	0x5c8
0585 6046       |`F  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0586 487e       |H~  |		Short_Literal	0x7e
0587 822d       | -  |		Call	0x1,0x2d
0588 783f       |x?  |		Jump	0x5c8
0589 6042       |`B  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
058a 4861       |Ha  |		Short_Literal	0x61
058b 822d       | -  |		Call	0x1,0x2d
058c 783b       |x;  |		Jump	0x5c8
058d 603e       |`>  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
058e 4863       |Hc  |		Short_Literal	0x63
058f 822d       | -  |		Call	0x1,0x2d
0590 7837       |x7  |		Jump	0x5c8
0591 603a       |`:  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0592 4865       |He  |		Short_Literal	0x65
0593 822d       | -  |		Call	0x1,0x2d
0594 7833       |x3  |		Jump	0x5c8
0595 6036       |`6  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
0596 4869       |Hi  |		Short_Literal	0x69
0597 822d       | -  |		Call	0x1,0x2d
0598 782f       |x/  |		Jump	0x5c8
0599 6032       |`2  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
059a 486e       |Hn  |		Short_Literal	0x6e
059b 822d       | -  |		Call	0x1,0x2d
059c 782b       |x+  |		Jump	0x5c8
059d 602e       |`.  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
059e 486f       |Ho  |		Short_Literal	0x6f
059f 822d       | -  |		Call	0x1,0x2d
05a0 7827       |x'  |		Jump	0x5c8
05a1 602a       |`*  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
05a2 4873       |Hs  |		Short_Literal	0x73
05a3 822d       | -  |		Call	0x1,0x2d
05a4 7823       |x#  |		Jump	0x5c8
05a5 6026       |`&  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
05a6 4875       |Hu  |		Short_Literal	0x75
05a7 822d       | -  |		Call	0x1,0x2d
05a8 781f       |x   |		Jump	0x5c8
05a9 6022       |`"  |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
05aa 4879       |Hy  |		Short_Literal	0x79
05ab 822d       | -  |		Call	0x1,0x2d
05ac 781b       |x   |		Jump	0x5c8
05ad 601e       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
05ae 487a       |Hz  |		Short_Literal	0x7a
05af 822d       | -  |		Call	0x1,0x2d
05b0 7817       |x   |		Jump	0x5c8
05b1 601a       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
05b2 4858       |HX  |		Short_Literal	0x58
05b3 822d       | -  |		Call	0x1,0x2d
05b4 7813       |x   |		Jump	0x5c8
05b5 6016       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
05b6 4822       |H"  |		Short_Literal	0x22
05b7 822d       | -  |		Call	0x1,0x2d
05b8 780f       |x   |		Jump	0x5c8
05b9 6012       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
05ba 4827       |H'  |		Short_Literal	0x27
05bb 822d       | -  |		Call	0x1,0x2d
05bc 780b       |x   |		Jump	0x5c8
05bd 0092 061a  |    |		Action	Push_String_Extended,0x61a					; "Expanding 'fi' ligature"
05bf e006       |    |		Load	0x0,0x6
05c0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
05c1 600a       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
05c2 4866       |Hf  |		Short_Literal	0x66
05c3 822d       | -  |		Call	0x1,0x2d
05c4 6007       |`   |		Indirect_Literal	Discrete,0x5cc,{0x00000000, 0x00001c20}
05c5 4869       |Hi  |		Short_Literal	0x69
05c6 822d       | -  |		Call	0x1,0x2d
05c7 7800       |x   |		Jump	0x5c8
05c8 00c8       |    |		Action	Pop_Auxiliary_Range
05c9 00a4 0419  |    |		Action	Loop_Increasing_Extended,0x419
05cb 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
05cc 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001c20}
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3       |    |		.CONST	0x05d3								; Address of begin
05d1 0004       |    |		.CONST	0x0004								; Address of exception handler
05d2 0001       |    |		.CONST	0x0001								; Number of locals
05d3			BODY_05d0:
05d3			INIT_05d0:
05d3 0092 061b  |    |		Action	Push_String_Extended,0x61b					; "Cannot interpolate files when using the OnLine device"
05d5 e006       |    |		Load	0x0,0x6
05d6 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05d7 450b       |E   |		Exit_Suprogram	New_Top_Offset 0xb
05d8 ; --------------------------------------------------------------------------------------
05d8 ; SUBPROGRAM
05d8 ; --------------------------------------------------------------------------------------
05d8 05db       |    |		.CONST	0x05db								; Address of begin
05d9 0004       |    |		.CONST	0x0004								; Address of exception handler
05da 0001       |    |		.CONST	0x0001								; Number of locals
05db			BODY_05d8:
05db			INIT_05d8:
05db 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
05dc 0000 0000  |    |		.BLANK	0000[0x4]
05e0 ; --------------------------------------------------------------------------------------
05e0 ; SUBPROGRAM
05e0 ; --------------------------------------------------------------------------------------
05e0 05e3       |    |		.CONST	0x05e3								; Address of begin
05e1 05eb       |    |		.CONST	0x05eb								; Address of exception handler
05e2 0001       |    |		.CONST	0x0001								; Number of locals
05e3			BODY_05e0:
05e3			INIT_05e0:
05e3 e402       |    |		Load	0x2,0x2
05e4 00ea       |    |		Load_Encached	Null_String_Cache
05e5 e5ff       |    |		Load	0x2,-0x1
05e6 4800       |H   |		Short_Literal	0x0
05e7 e007       |    |		Load	0x0,0x7
05e8 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05e9 c402       |    |		Store	0x2,0x2
05ea 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05eb			TRAP_05e0:
05eb 0007       |    |		Action	Break_Optional
05ec 4829       |H)  |		Short_Literal	0x29
05ed 0092 061c  |    |		Action	Push_String_Extended,0x61c					; "Could not open the form setup file "
05ef e5ff       |    |		Load	0x2,-0x1
05f0 01cc       |    |		Execute	Vector,Catenate
05f1 0092 0614  |    |		Action	Push_String_Extended,0x614					; " ("
05f3 01cc       |    |		Execute	Vector,Catenate
05f4 4800       |H   |		Short_Literal	0x0
05f5 4801       |H   |		Short_Literal	0x1
05f6 e00a       |    |		Load	0x0,0xa
05f7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05f8 01cc       |    |		Execute	Vector,Catenate
05f9 01cb       |    |		Execute	Vector,Append
05fa e006       |    |		Load	0x0,0x6
05fb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05fc e001       |    |		Load	0x0,0x1
05fd 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
05fe 0257       | W  |		Execute	Discrete,Raise
05ff 0000       |    |		.XXX[0x1]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0606       |    |		.CONST	0x0606								; Address of begin
0601 0004       |    |		.CONST	0x0004								; Address of exception handler
0602 0002       |    |		.CONST	0x0002								; Number of locals
0603			INIT_0600:
0603 e402       |    |		Load	0x2,0x2
0604 e007       |    |		Load	0x0,0x7
0605 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
0606			BODY_0600:
0606 00d8       |    |		Load_Top	At_Offset_0
0607 01db       |    |		Execute	Vector,Length
0608 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0609 6802       |h   |		Jump_Zero	0x60c
060a 00d8       |    |		Load_Top	At_Offset_0
060b 821b       |    |		Call	0x1,0x1b
060c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
060d ; --------------------------------------------------------------------------------------
060d ; STRING TABLE
060d ; --------------------------------------------------------------------------------------
060d 0022       | "  |		.STRTAB	0x0022->0x061e							; "OnLine"
060e 0026       | &  |		.STRTAB	0x0026->0x0621							; "The OnLine device does not support defining forms"
060f 0055       | U  |		.STRTAB	0x0055->0x0639							; "Could not define forms in "
0610 006d       | m  |		.STRTAB	0x006d->0x0646							; "The OnLine device does not support defining fonts"
0611 009c       |    |		.STRTAB	0x009c->0x065f							; "Standard"
0612 00a2       |    |		.STRTAB	0x00a2->0x0663							; "_ONLINE"
0613 00a7       |    |		.STRTAB	0x00a7->0x0666							; "Cannot create output "
0614 00ba       |    |		.STRTAB	0x00ba->0x0671							; " ("
0615 00ba       |    |		.STRTAB	0x00ba->0x0672							; "_ONLINE_AUX"
0616 00c3       |    |		.STRTAB	0x00c3->0x0677							; "Characters beyond right edge of page ignored"
0617 00ed       |    |		.STRTAB	0x00ed->0x068d							; "Lines off bottom of page ignored"
0618 010b       |    |		.STRTAB	0x010b->0x069d							; "Expanding ellipsis"
0619 011b       |    |		.STRTAB	0x011b->0x06a6							; "Expanding 'fl' ligature"
061a 0130       | 0  |		.STRTAB	0x0130->0x06b2							; "Expanding 'fi' ligature"
061b 0145       | E  |		.STRTAB	0x0145->0x06bd							; "Cannot interpolate files when using the OnLine device"
061c 0178       | x  |		.STRTAB	0x0178->0x06d8							; "Could not open the form setup file "
061d 0199       |    |		.STREND 0x0199->0x06e9
061e 4f6e 4c69  |OnLi|		.STRTAB_STRINGS
06ea 0000 0000  |    |		.BLANK	0000[0x6]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; Debug Table
06f0 ; --------------------------------------------------------------------------------------
06f0 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x4310,0x0000,0x0001,0x0000
06f6 4255 160d  |BU  |		.XXX[0x10a]
06f8 3235 3432  |2542|
06fa ec38 29c2  | 8) |
06fc 896d a257  | m W|
06fe 6655 3cb1  |fU< |
0700 6e0c 45c0  |n E |
0702 cc31 8e0e  | 1  |
0704 0032 bd6d  | 2 m|
0706 e830 65c0  | 0e |
0708 a1c2 2032  |   2|
070a bd6d 80b2  | m  |
070c dd6e c833  | n 3|
070e 0117 ae55  |   U|
0710 4830 caa3  |H0  |
0712 a16f be57  | o W|
0714 9e55 660d  | Uf |
0716 c0b2 c832  |   2|
0718 e56d 0c39  | m 9|
071a b60f a255  |   U|
071c 74b3 4d17  |t M |
071e e657 2515  | W% |
0720 ce0e c831  |   1|
0722 6033 396d  |`39m|
0724 c831 de0c  | 1  |
0726 41c0 065b  |A  [|
0728 556f 0848  |Uo H|
072a 1258 59c2  | XY |
072c 120d 01c1  |    |
072e c9c3 cc28  |   (|
0730 0578 2e59  | x.Y|
0732 11c2 1e0c  |    |
0734 7dc2 9830  |}  0|
0736 425a 70b1  |BZp |
0738 2aa1 7aa2  |* z |
073a 2430 565b  |$0V[|
073c 340c 5e58  |4 ^X|
073e b037 916d  | 7 m|
0740 45c0 e682  |E   |
0742 10b2 b032  |   2|
0744 5e0d 75c1  |^ u |
0746 f8b2 2cb1  |  , |
0748 69c3 e914  |i   |
074a a659 f8b3  | Y  |
074c 4d14 a25a  |M  Z|
074e 8e0e ba0e  |    |
0750 960c 4040  |  @@|
0752 b65b 3e0e  | [> |
0754 78b1 a5c0  |x   |
0756 a051 adc0  | Q  |
0758 f1c3 2c32  |  ,2|
075a c20d c5c1  |    |
075c 66a0 e972  |f  r|
075e 2920 6518  |) e |
0760 ee5b b914  | [  |
0762 f65a ee0c  | Z  |
0764 fe58 7d73  | X}s|
0766 e8b0 7173  |  qs|
0768 8cb1 d65b  |   [|
076a 50b3 00b1  |P   |
076c 1e5b a8b3  | [  |
076e 420c ad1a  |B   |
0770 21c3 2a0d  |! * |
0772 8dc1 4258  |  BX|
0774 4436 39c2  |D69 |
0776 3434 1834  |44 4|
0778 d91b 4e0d  |  N |
077a 4971 b436  |Iq 6|
077c 5dc3 660e  |] f |
077e 62a3 b0b1  |b   |
0780 e435 7e5a  | 5~Z|
0782 79c3 9a0c  |y   |
0784 fd72 89c1  | r  |
0786 965a b6a0  | Z  |
0788 8414 b8b6  |    |
078a 99c1 bdf0  |    |
078c 9519 2c37  |  ,7|
078e a20d ba58  |   X|
0790 84b6 19c1  |    |
0792 ca58 94b6  | X  |
0794 daa2 ac41  |   A|
0796 e259 ce59  | Y Y|
0798 ba0f f60e  |    |
079a d9c1 fa5a  |   Z|
079c b06c 3a5a  | l:Z|
079e 0a59 bc36  | Y 6|
07a0 125a 71f2  | Zq |
07a2 6435 9436  |d5 6|
07a4 225b 0dc0  |"[  |
07a6 6259 a173  |bY s|
07a8 19c1 a970  |   p|
07aa 725a 3c36  |rZ<6|
07ac 465a 9d6c  |FZ l|
07ae a0b6 5659  |  VY|
07b0 6118 3a12  |a : |
07b2 5837 4dc0  |X7M |
07b4 58b5 b5c6  |X   |
07b6 7659 ed70  |vY p|
07b8 7a12 8659  |z  Y|
07ba fd71 84b6  | q  |
07bc 3118 c439  |1  9|
07be 3662 9e59  |6b Y|
07c0 9cb7 61c1  |  a |
07c2 24b6 511a  |$ Q |
07c4 891a dc34  |   4|
07c6 8a12 9d1a  |    |
07c8 3572 7434  |5rt4|
07ca 9a11 4cb6  |  L |
07cc 851a 5172  |  Qr|
07ce 5972 2522  |Yr%"|
07d0 a11a f259  |   Y|
07d2 8400 c448  |   H|
07d4 ea12 08b4  |    |
07d6 ce10 1e1b  |    |
07d8 e9c3 3973  |  9s|
07da 165b f9c0  | [  |
07dc 1aa4 c043  |   C|
07de 65c3 2a5a  |e *Z|
07e0 f11b 4658  |  FX|
07e2 b015 bcb6  |    |
07e4 c172 c971  | r q|
07e6 3e11 1a11  |>   |
07e8 9246 05f1  | F  |
07ea 643a f8b4  |d:  |
07ec 45c6 f172  |E  r|
07ee a8b7 e037  |   7|
07f0 7a59 4a11  |zYJ |
07f2 ee59 9c44  | Y D|
07f4 69c4 aa40  |i  @|
07f6 8893 9658  |   X|
07f8 ba63 9e59  | c Y|
07fa 7211 a212  |r   |
07fc fcb4 95c4  |    |
07fe 9039 8611  | 9  |