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

⟦194ef0840⟧

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

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 0698       |    |		.CONST	0x0698								; 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 8003       |    |		.CONST	0x8003								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 019f       |    |		.CONST	0x019f								; Address of begin
0019 027b       | {  |		.CONST	0x027b								; Address of exception handler
001a 0076       | v  |		.CONST	0x0076								; Number of locals
001b			INIT_0018:
001b 00e9       |    |		Load_Encached	String_Cache
001c 02a0       |    |		Declare_Subprogram	Null_Subprogram
001d 4818       |H   |		Short_Literal	0x18
001e 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
001f 4801       |H   |		Short_Literal	0x1
0020 4802       |H   |		Short_Literal	0x2
0021 e002       |    |		Load	0x0,0x2
0022 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0023 035b       | [  |		Declare_Type	Array,Constrained
0024 e003       |    |		Load	0x0,0x3
0025 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0026 02c7       |    |		Declare_Variable	Any
0027 00d8       |    |		Load_Top	At_Offset_0
0028 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0029 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
002b 029f 02cb  |    |		Declare_Subprogram	INIT_02c8,For_Call
002d 029f 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Call
002f 029e 0313  |    |		Declare_Subprogram	INIT_0310,For_Call,Unelaborated
0031 4808       |H   |		Short_Literal	0x8
0032 4802       |H   |		Short_Literal	0x2
0033 0099       |    |		Action	Reference_Dynamic
0034 00c7       |    |		Action	Elaborate_Subprogram
0035 029f 042b  |   +|		Declare_Subprogram	INIT_0428,For_Call
0037 029f 0433  |   3|		Declare_Subprogram	INIT_0430,For_Call
0039 029f 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Call
003b 029f 044b  |   K|		Declare_Subprogram	INIT_0448,For_Call
003d 029f 0453  |   S|		Declare_Subprogram	INIT_0450,For_Call
003f 029f 045b  |   [|		Declare_Subprogram	INIT_0458,For_Call
0041 029f 0463  |   c|		Declare_Subprogram	INIT_0460,For_Call
0043 4808       |H   |		Short_Literal	0x8
0044 4802       |H   |		Short_Literal	0x2
0045 0099       |    |		Action	Reference_Dynamic
0046 00c6       |    |		Action	Check_Subprogram_Elaborated
0047 00e1       |    |		Load_Encached	Boolean_Cache
0048 0092 05de  |    |		Action	Push_String_Extended,0x5de					; "Enable"
004a 4800       |H   |		Short_Literal	0x0
004b 480e       |H   |		Short_Literal	0xe
004c 4802       |H   |		Short_Literal	0x2
004d 0099       |    |		Action	Reference_Dynamic
004e 480f       |H   |		Short_Literal	0xf
004f 4802       |H   |		Short_Literal	0x2
0050 0099       |    |		Action	Reference_Dynamic
0051 480c       |H   |		Short_Literal	0xc
0052 4802       |H   |		Short_Literal	0x2
0053 0099       |    |		Action	Reference_Dynamic
0054 0093 0000  |    |		push_full_address	0x0
0056 625d       |b]  |		Indirect_Literal	Discrete,0x2b4,{0x80000000, 0x000a0000}
0057 0273       | s  |		Execute	Discrete,Plus
0058 e004       |    |		Load	0x0,0x4
0059 0273       | s  |		Execute	Discrete,Plus
005a e005       |    |		Load	0x0,0x5
005b 0273       | s  |		Execute	Discrete,Plus
005c 4817       |H   |		Short_Literal	0x17
005d 0007       |    |		Action	Break_Optional
005e 029f 0473  |   s|		Declare_Subprogram	INIT_0470,For_Call
0060 029f 0483  |    |		Declare_Subprogram	INIT_0480,For_Call
0062 4808       |H   |		Short_Literal	0x8
0063 4802       |H   |		Short_Literal	0x2
0064 0099       |    |		Action	Reference_Dynamic
0065 00c6       |    |		Action	Check_Subprogram_Elaborated
0066 e402       |    |		Load	0x2,0x2
0067 0092 05df  |    |		Action	Push_String_Extended,0x5df					; "Input_Rate"
0069 0092 05e0  |    |		Action	Push_String_Extended,0x5e0					; "Baud_9600"
006b 8409       |    |		Call	0x2,0x9
006c 480a       |H   |		Short_Literal	0xa
006d 4802       |H   |		Short_Literal	0x2
006e 0099       |    |		Action	Reference_Dynamic
006f 4819       |H   |		Short_Literal	0x19
0070 4802       |H   |		Short_Literal	0x2
0071 0099       |    |		Action	Reference_Dynamic
0072 480b       |H   |		Short_Literal	0xb
0073 4802       |H   |		Short_Literal	0x2
0074 0099       |    |		Action	Reference_Dynamic
0075 0093 0000  |    |		push_full_address	0x0
0077 6238       |b8  |		Indirect_Literal	Discrete,0x2b0,{0x80000000, 0x00090000}
0078 0273       | s  |		Execute	Discrete,Plus
0079 e004       |    |		Load	0x0,0x4
007a 0273       | s  |		Execute	Discrete,Plus
007b e006       |    |		Load	0x0,0x6
007c 0273       | s  |		Execute	Discrete,Plus
007d 4821       |H!  |		Short_Literal	0x21
007e 0007       |    |		Action	Break_Optional
007f 029f 0493  |    |		Declare_Subprogram	INIT_0490,For_Call
0081 029f 04a3  |    |		Declare_Subprogram	INIT_04a0,For_Call
0083 4808       |H   |		Short_Literal	0x8
0084 4802       |H   |		Short_Literal	0x2
0085 0099       |    |		Action	Reference_Dynamic
0086 00c6       |    |		Action	Check_Subprogram_Elaborated
0087 e402       |    |		Load	0x2,0x2
0088 0092 05e1  |    |		Action	Push_String_Extended,0x5e1					; "Output_Rate"
008a 0092 05e0  |    |		Action	Push_String_Extended,0x5e0					; "Baud_9600"
008c 8409       |    |		Call	0x2,0x9
008d 480a       |H   |		Short_Literal	0xa
008e 4802       |H   |		Short_Literal	0x2
008f 0099       |    |		Action	Reference_Dynamic
0090 4823       |H#  |		Short_Literal	0x23
0091 4802       |H   |		Short_Literal	0x2
0092 0099       |    |		Action	Reference_Dynamic
0093 480b       |H   |		Short_Literal	0xb
0094 4802       |H   |		Short_Literal	0x2
0095 0099       |    |		Action	Reference_Dynamic
0096 0093 0000  |    |		push_full_address	0x0
0098 6213       |b   |		Indirect_Literal	Discrete,0x2ac,{0x80000000, 0x00080000}
0099 0273       | s  |		Execute	Discrete,Plus
009a e004       |    |		Load	0x0,0x4
009b 0273       | s  |		Execute	Discrete,Plus
009c e007       |    |		Load	0x0,0x7
009d 0273       | s  |		Execute	Discrete,Plus
009e 482b       |H+  |		Short_Literal	0x2b
009f 0007       |    |		Action	Break_Optional
00a0 029f 04b3  |    |		Declare_Subprogram	INIT_04b0,For_Call
00a2 029f 04c3  |    |		Declare_Subprogram	INIT_04c0,For_Call
00a4 4808       |H   |		Short_Literal	0x8
00a5 4802       |H   |		Short_Literal	0x2
00a6 0099       |    |		Action	Reference_Dynamic
00a7 00c6       |    |		Action	Check_Subprogram_Elaborated
00a8 e002       |    |		Load	0x0,0x2
00a9 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
00aa 0092 05e2  |    |		Action	Push_String_Extended,0x5e2					; "Parity"
00ac 4800       |H   |		Short_Literal	0x0
00ad 482c       |H,  |		Short_Literal	0x2c
00ae 4802       |H   |		Short_Literal	0x2
00af 0099       |    |		Action	Reference_Dynamic
00b0 482d       |H-  |		Short_Literal	0x2d
00b1 4802       |H   |		Short_Literal	0x2
00b2 0099       |    |		Action	Reference_Dynamic
00b3 00e0       |    |		Load_Encached	Standard_Cache
00b4 1923       | #  |		Execute	Package,Field_Reference,Field_Number 0x23
00b5 0093 0000  |    |		push_full_address	0x0
00b7 61f0       |a   |		Indirect_Literal	Discrete,0x2a8,{0x80000000, 0x00070000}
00b8 0273       | s  |		Execute	Discrete,Plus
00b9 e004       |    |		Load	0x0,0x4
00ba 0273       | s  |		Execute	Discrete,Plus
00bb e008       |    |		Load	0x0,0x8
00bc 0273       | s  |		Execute	Discrete,Plus
00bd 4835       |H5  |		Short_Literal	0x35
00be 0007       |    |		Action	Break_Optional
00bf 029f 04d3  |    |		Declare_Subprogram	INIT_04d0,For_Call
00c1 029f 04eb  |    |		Declare_Subprogram	INIT_04e8,For_Call
00c3 4808       |H   |		Short_Literal	0x8
00c4 4802       |H   |		Short_Literal	0x2
00c5 0099       |    |		Action	Reference_Dynamic
00c6 00c6       |    |		Action	Check_Subprogram_Elaborated
00c7 e402       |    |		Load	0x2,0x2
00c8 0092 05e3  |    |		Action	Push_String_Extended,0x5e3					; "Bits_Per_Char"
00ca 0092 05e4  |    |		Action	Push_String_Extended,0x5e4					; "Char_8"
00cc 8409       |    |		Call	0x2,0x9
00cd 480a       |H   |		Short_Literal	0xa
00ce 4802       |H   |		Short_Literal	0x2
00cf 0099       |    |		Action	Reference_Dynamic
00d0 4837       |H7  |		Short_Literal	0x37
00d1 4802       |H   |		Short_Literal	0x2
00d2 0099       |    |		Action	Reference_Dynamic
00d3 480b       |H   |		Short_Literal	0xb
00d4 4802       |H   |		Short_Literal	0x2
00d5 0099       |    |		Action	Reference_Dynamic
00d6 0093 0000  |    |		push_full_address	0x0
00d8 61cb       |a   |		Indirect_Literal	Discrete,0x2a4,{0x80000000, 0x00060000}
00d9 0273       | s  |		Execute	Discrete,Plus
00da e004       |    |		Load	0x0,0x4
00db 0273       | s  |		Execute	Discrete,Plus
00dc e009       |    |		Load	0x0,0x9
00dd 0273       | s  |		Execute	Discrete,Plus
00de 483f       |H?  |		Short_Literal	0x3f
00df 0007       |    |		Action	Break_Optional
00e0 029f 04fb  |    |		Declare_Subprogram	INIT_04f8,For_Call
00e2 029f 050b  |    |		Declare_Subprogram	INIT_0508,For_Call
00e4 029f 051b  |    |		Declare_Subprogram	INIT_0518,For_Call
00e6 4808       |H   |		Short_Literal	0x8
00e7 4802       |H   |		Short_Literal	0x2
00e8 0099       |    |		Action	Reference_Dynamic
00e9 00c6       |    |		Action	Check_Subprogram_Elaborated
00ea 00e3       |    |		Load_Encached	Natural_Cache
00eb 0092 05e5  |    |		Action	Push_String_Extended,0x5e5					; "Stop_Bits"
00ed 4802       |H   |		Short_Literal	0x2
00ee 4840       |H@  |		Short_Literal	0x40
00ef 4802       |H   |		Short_Literal	0x2
00f0 0099       |    |		Action	Reference_Dynamic
00f1 4841       |HA  |		Short_Literal	0x41
00f2 4802       |H   |		Short_Literal	0x2
00f3 0099       |    |		Action	Reference_Dynamic
00f4 4842       |HB  |		Short_Literal	0x42
00f5 4802       |H   |		Short_Literal	0x2
00f6 0099       |    |		Action	Reference_Dynamic
00f7 0093 0000  |    |		push_full_address	0x0
00f9 61a6       |a   |		Indirect_Literal	Discrete,0x2a0,{0x80000000, 0x00050000}
00fa 0273       | s  |		Execute	Discrete,Plus
00fb e004       |    |		Load	0x0,0x4
00fc 0273       | s  |		Execute	Discrete,Plus
00fd e00a       |    |		Load	0x0,0xa
00fe 0273       | s  |		Execute	Discrete,Plus
00ff 484a       |HJ  |		Short_Literal	0x4a
0100 0007       |    |		Action	Break_Optional
0101 029f 0533  |   3|		Declare_Subprogram	INIT_0530,For_Call
0103 029f 0543  |   C|		Declare_Subprogram	INIT_0540,For_Call
0105 4808       |H   |		Short_Literal	0x8
0106 4802       |H   |		Short_Literal	0x2
0107 0099       |    |		Action	Reference_Dynamic
0108 00c6       |    |		Action	Check_Subprogram_Elaborated
0109 e402       |    |		Load	0x2,0x2
010a 0092 05e6  |    |		Action	Push_String_Extended,0x5e6					; "Flow_Control"
010c 0092 05e7  |    |		Action	Push_String_Extended,0x5e7					; "None"
010e 8409       |    |		Call	0x2,0x9
010f 480a       |H   |		Short_Literal	0xa
0110 4802       |H   |		Short_Literal	0x2
0111 0099       |    |		Action	Reference_Dynamic
0112 484c       |HL  |		Short_Literal	0x4c
0113 4802       |H   |		Short_Literal	0x2
0114 0099       |    |		Action	Reference_Dynamic
0115 480b       |H   |		Short_Literal	0xb
0116 4802       |H   |		Short_Literal	0x2
0117 0099       |    |		Action	Reference_Dynamic
0118 0093 0000  |    |		push_full_address	0x0
011a 6181       |a   |		Indirect_Literal	Discrete,0x29c,{0x80000000, 0x00040000}
011b 0273       | s  |		Execute	Discrete,Plus
011c e004       |    |		Load	0x0,0x4
011d 0273       | s  |		Execute	Discrete,Plus
011e e00b       |    |		Load	0x0,0xb
011f 0273       | s  |		Execute	Discrete,Plus
0120 4854       |HT  |		Short_Literal	0x54
0121 0007       |    |		Action	Break_Optional
0122 029f 0553  |   S|		Declare_Subprogram	INIT_0550,For_Call
0124 029f 0563  |   c|		Declare_Subprogram	INIT_0560,For_Call
0126 4808       |H   |		Short_Literal	0x8
0127 4802       |H   |		Short_Literal	0x2
0128 0099       |    |		Action	Reference_Dynamic
0129 00c6       |    |		Action	Check_Subprogram_Elaborated
012a e402       |    |		Load	0x2,0x2
012b 0092 05e8  |    |		Action	Push_String_Extended,0x5e8					; "Receive_Flow_Control"
012d 0092 05e7  |    |		Action	Push_String_Extended,0x5e7					; "None"
012f 8409       |    |		Call	0x2,0x9
0130 480a       |H   |		Short_Literal	0xa
0131 4802       |H   |		Short_Literal	0x2
0132 0099       |    |		Action	Reference_Dynamic
0133 4856       |HV  |		Short_Literal	0x56
0134 4802       |H   |		Short_Literal	0x2
0135 0099       |    |		Action	Reference_Dynamic
0136 480b       |H   |		Short_Literal	0xb
0137 4802       |H   |		Short_Literal	0x2
0138 0099       |    |		Action	Reference_Dynamic
0139 0093 0000  |    |		push_full_address	0x0
013b 615c       |a\  |		Indirect_Literal	Discrete,0x298,{0x80000000, 0x00030000}
013c 0273       | s  |		Execute	Discrete,Plus
013d e004       |    |		Load	0x0,0x4
013e 0273       | s  |		Execute	Discrete,Plus
013f e00c       |    |		Load	0x0,0xc
0140 0273       | s  |		Execute	Discrete,Plus
0141 485e       |H^  |		Short_Literal	0x5e
0142 0007       |    |		Action	Break_Optional
0143 029f 0573  |   s|		Declare_Subprogram	INIT_0570,For_Call
0145 029f 0593  |    |		Declare_Subprogram	INIT_0590,For_Call
0147 029f 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Call
0149 029f 05b3  |    |		Declare_Subprogram	INIT_05b0,For_Call
014b 029f 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Call
014d 4808       |H   |		Short_Literal	0x8
014e 4802       |H   |		Short_Literal	0x2
014f 0099       |    |		Action	Reference_Dynamic
0150 00c6       |    |		Action	Check_Subprogram_Elaborated
0151 e403       |    |		Load	0x2,0x3
0152 0092 05e9  |    |		Action	Push_String_Extended,0x5e9					; "Xon_Xoff"
0154 e403       |    |		Load	0x2,0x3
0155 0337       | 7  |		Declare_Variable	Array
0156 4811       |H   |		Short_Literal	0x11
0157 4801       |H   |		Short_Literal	0x1
0158 00da       |    |		Load_Top	At_Offset_2
0159 01d6       |    |		Execute	Vector,Field_Write
015a 4813       |H   |		Short_Literal	0x13
015b 4802       |H   |		Short_Literal	0x2
015c 00da       |    |		Load_Top	At_Offset_2
015d 01d6       |    |		Execute	Vector,Field_Write
015e e403       |    |		Load	0x2,0x3
015f 01c3       |    |		Execute	Vector,Check_In_Type
0160 4861       |Ha  |		Short_Literal	0x61
0161 4802       |H   |		Short_Literal	0x2
0162 0099       |    |		Action	Reference_Dynamic
0163 4862       |Hb  |		Short_Literal	0x62
0164 4802       |H   |		Short_Literal	0x2
0165 0099       |    |		Action	Reference_Dynamic
0166 4863       |Hc  |		Short_Literal	0x63
0167 4802       |H   |		Short_Literal	0x2
0168 0099       |    |		Action	Reference_Dynamic
0169 0093 0000  |    |		push_full_address	0x0
016b 6128       |a(  |		Indirect_Literal	Discrete,0x294,{0x80000000, 0x00020000}
016c 0273       | s  |		Execute	Discrete,Plus
016d e004       |    |		Load	0x0,0x4
016e 0273       | s  |		Execute	Discrete,Plus
016f e00d       |    |		Load	0x0,0xd
0170 0273       | s  |		Execute	Discrete,Plus
0171 486b       |Hk  |		Short_Literal	0x6b
0172 0007       |    |		Action	Break_Optional
0173 029f 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Call
0175 029f 05d3  |    |		Declare_Subprogram	INIT_05d0,For_Call
0177 029f 05c3  |    |		Declare_Subprogram	INIT_05c0,For_Call
0179 4808       |H   |		Short_Literal	0x8
017a 4802       |H   |		Short_Literal	0x2
017b 0099       |    |		Action	Reference_Dynamic
017c 00c6       |    |		Action	Check_Subprogram_Elaborated
017d e403       |    |		Load	0x2,0x3
017e 0092 05ea  |    |		Action	Push_String_Extended,0x5ea					; "Receive_Xon_Xoff"
0180 e403       |    |		Load	0x2,0x3
0181 0337       | 7  |		Declare_Variable	Array
0182 4811       |H   |		Short_Literal	0x11
0183 4801       |H   |		Short_Literal	0x1
0184 00da       |    |		Load_Top	At_Offset_2
0185 01d6       |    |		Execute	Vector,Field_Write
0186 4813       |H   |		Short_Literal	0x13
0187 4802       |H   |		Short_Literal	0x2
0188 00da       |    |		Load_Top	At_Offset_2
0189 01d6       |    |		Execute	Vector,Field_Write
018a e403       |    |		Load	0x2,0x3
018b 01c3       |    |		Execute	Vector,Check_In_Type
018c 486c       |Hl  |		Short_Literal	0x6c
018d 4802       |H   |		Short_Literal	0x2
018e 0099       |    |		Action	Reference_Dynamic
018f 486d       |Hm  |		Short_Literal	0x6d
0190 4802       |H   |		Short_Literal	0x2
0191 0099       |    |		Action	Reference_Dynamic
0192 486e       |Hn  |		Short_Literal	0x6e
0193 4802       |H   |		Short_Literal	0x2
0194 0099       |    |		Action	Reference_Dynamic
0195 0093 0000  |    |		push_full_address	0x0
0197 60f8       |`   |		Indirect_Literal	Discrete,0x290,{0x80000000, 0x00010000}
0198 0273       | s  |		Execute	Discrete,Plus
0199 e004       |    |		Load	0x0,0x4
019a 0273       | s  |		Execute	Discrete,Plus
019b e00e       |    |		Load	0x0,0xe
019c 0273       | s  |		Execute	Discrete,Plus
019d 4876       |Hv  |		Short_Literal	0x76
019e 0007       |    |		Action	Break_Optional
019f			BODY_0018:
019f e5fe       |    |		Load	0x2,-0x2
01a0 7008       |p   |		Jump_Nonzero	0x1a9
01a1 e404       |    |		Load	0x2,0x4
01a2 00ea       |    |		Load_Encached	Null_String_Cache
01a3 e5ff       |    |		Load	0x2,-0x1
01a4 4801       |H   |		Short_Literal	0x1
01a5 e003       |    |		Load	0x0,0x3
01a6 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01a7 c404       |    |		Store	0x2,0x4
01a8 7803       |x   |		Jump	0x1ac
01a9 e003       |    |		Load	0x0,0x3
01aa 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
01ab c404       |    |		Store	0x2,0x4
01ac 4800       |H   |		Short_Literal	0x0
01ad 48ff       |H   |		Short_Literal	0xff
01ae 4810       |H   |		Short_Literal	0x10
01af e404       |    |		Load	0x2,0x4
01b0 e410       |    |		Load	0x2,0x10
01b1 e411       |    |		Load	0x2,0x11
01b2 e412       |    |		Load	0x2,0x12
01b3 4813       |H   |		Short_Literal	0x13
01b4 4802       |H   |		Short_Literal	0x2
01b5 0099       |    |		Action	Reference_Dynamic
01b6 4814       |H   |		Short_Literal	0x14
01b7 4802       |H   |		Short_Literal	0x2
01b8 0099       |    |		Action	Reference_Dynamic
01b9 4815       |H   |		Short_Literal	0x15
01ba 4802       |H   |		Short_Literal	0x2
01bb 0099       |    |		Action	Reference_Dynamic
01bc 4816       |H   |		Short_Literal	0x16
01bd 4802       |H   |		Short_Literal	0x2
01be 0099       |    |		Action	Reference_Dynamic
01bf 8408       |    |		Call	0x2,0x8
01c0 4801       |H   |		Short_Literal	0x1
01c1 48ff       |H   |		Short_Literal	0xff
01c2 4810       |H   |		Short_Literal	0x10
01c3 e404       |    |		Load	0x2,0x4
01c4 e41a       |    |		Load	0x2,0x1a
01c5 e41b       |    |		Load	0x2,0x1b
01c6 e41c       |    |		Load	0x2,0x1c
01c7 481d       |H   |		Short_Literal	0x1d
01c8 4802       |H   |		Short_Literal	0x2
01c9 0099       |    |		Action	Reference_Dynamic
01ca 481e       |H   |		Short_Literal	0x1e
01cb 4802       |H   |		Short_Literal	0x2
01cc 0099       |    |		Action	Reference_Dynamic
01cd 481f       |H   |		Short_Literal	0x1f
01ce 4802       |H   |		Short_Literal	0x2
01cf 0099       |    |		Action	Reference_Dynamic
01d0 4820       |H   |		Short_Literal	0x20
01d1 4802       |H   |		Short_Literal	0x2
01d2 0099       |    |		Action	Reference_Dynamic
01d3 8408       |    |		Call	0x2,0x8
01d4 4801       |H   |		Short_Literal	0x1
01d5 48ff       |H   |		Short_Literal	0xff
01d6 4810       |H   |		Short_Literal	0x10
01d7 e404       |    |		Load	0x2,0x4
01d8 e424       | $  |		Load	0x2,0x24
01d9 e425       | %  |		Load	0x2,0x25
01da e426       | &  |		Load	0x2,0x26
01db 4827       |H'  |		Short_Literal	0x27
01dc 4802       |H   |		Short_Literal	0x2
01dd 0099       |    |		Action	Reference_Dynamic
01de 4828       |H(  |		Short_Literal	0x28
01df 4802       |H   |		Short_Literal	0x2
01e0 0099       |    |		Action	Reference_Dynamic
01e1 4829       |H)  |		Short_Literal	0x29
01e2 4802       |H   |		Short_Literal	0x2
01e3 0099       |    |		Action	Reference_Dynamic
01e4 482a       |H*  |		Short_Literal	0x2a
01e5 4802       |H   |		Short_Literal	0x2
01e6 0099       |    |		Action	Reference_Dynamic
01e7 8408       |    |		Call	0x2,0x8
01e8 4801       |H   |		Short_Literal	0x1
01e9 48ff       |H   |		Short_Literal	0xff
01ea 4810       |H   |		Short_Literal	0x10
01eb e404       |    |		Load	0x2,0x4
01ec e42e       | .  |		Load	0x2,0x2e
01ed e42f       | /  |		Load	0x2,0x2f
01ee e430       | 0  |		Load	0x2,0x30
01ef 4831       |H1  |		Short_Literal	0x31
01f0 4802       |H   |		Short_Literal	0x2
01f1 0099       |    |		Action	Reference_Dynamic
01f2 4832       |H2  |		Short_Literal	0x32
01f3 4802       |H   |		Short_Literal	0x2
01f4 0099       |    |		Action	Reference_Dynamic
01f5 4833       |H3  |		Short_Literal	0x33
01f6 4802       |H   |		Short_Literal	0x2
01f7 0099       |    |		Action	Reference_Dynamic
01f8 4834       |H4  |		Short_Literal	0x34
01f9 4802       |H   |		Short_Literal	0x2
01fa 0099       |    |		Action	Reference_Dynamic
01fb 8408       |    |		Call	0x2,0x8
01fc 4801       |H   |		Short_Literal	0x1
01fd 48ff       |H   |		Short_Literal	0xff
01fe 4810       |H   |		Short_Literal	0x10
01ff e404       |    |		Load	0x2,0x4
0200 e438       | 8  |		Load	0x2,0x38
0201 e439       | 9  |		Load	0x2,0x39
0202 e43a       | :  |		Load	0x2,0x3a
0203 483b       |H;  |		Short_Literal	0x3b
0204 4802       |H   |		Short_Literal	0x2
0205 0099       |    |		Action	Reference_Dynamic
0206 483c       |H<  |		Short_Literal	0x3c
0207 4802       |H   |		Short_Literal	0x2
0208 0099       |    |		Action	Reference_Dynamic
0209 483d       |H=  |		Short_Literal	0x3d
020a 4802       |H   |		Short_Literal	0x2
020b 0099       |    |		Action	Reference_Dynamic
020c 483e       |H>  |		Short_Literal	0x3e
020d 4802       |H   |		Short_Literal	0x2
020e 0099       |    |		Action	Reference_Dynamic
020f 8408       |    |		Call	0x2,0x8
0210 4801       |H   |		Short_Literal	0x1
0211 48ff       |H   |		Short_Literal	0xff
0212 4810       |H   |		Short_Literal	0x10
0213 e404       |    |		Load	0x2,0x4
0214 e443       | C  |		Load	0x2,0x43
0215 e444       | D  |		Load	0x2,0x44
0216 e445       | E  |		Load	0x2,0x45
0217 4846       |HF  |		Short_Literal	0x46
0218 4802       |H   |		Short_Literal	0x2
0219 0099       |    |		Action	Reference_Dynamic
021a 4847       |HG  |		Short_Literal	0x47
021b 4802       |H   |		Short_Literal	0x2
021c 0099       |    |		Action	Reference_Dynamic
021d 4848       |HH  |		Short_Literal	0x48
021e 4802       |H   |		Short_Literal	0x2
021f 0099       |    |		Action	Reference_Dynamic
0220 4849       |HI  |		Short_Literal	0x49
0221 4802       |H   |		Short_Literal	0x2
0222 0099       |    |		Action	Reference_Dynamic
0223 8408       |    |		Call	0x2,0x8
0224 4801       |H   |		Short_Literal	0x1
0225 48ff       |H   |		Short_Literal	0xff
0226 4810       |H   |		Short_Literal	0x10
0227 e404       |    |		Load	0x2,0x4
0228 e44d       | M  |		Load	0x2,0x4d
0229 e44e       | N  |		Load	0x2,0x4e
022a e44f       | O  |		Load	0x2,0x4f
022b 4850       |HP  |		Short_Literal	0x50
022c 4802       |H   |		Short_Literal	0x2
022d 0099       |    |		Action	Reference_Dynamic
022e 4851       |HQ  |		Short_Literal	0x51
022f 4802       |H   |		Short_Literal	0x2
0230 0099       |    |		Action	Reference_Dynamic
0231 4852       |HR  |		Short_Literal	0x52
0232 4802       |H   |		Short_Literal	0x2
0233 0099       |    |		Action	Reference_Dynamic
0234 4853       |HS  |		Short_Literal	0x53
0235 4802       |H   |		Short_Literal	0x2
0236 0099       |    |		Action	Reference_Dynamic
0237 8408       |    |		Call	0x2,0x8
0238 4801       |H   |		Short_Literal	0x1
0239 48ff       |H   |		Short_Literal	0xff
023a 4810       |H   |		Short_Literal	0x10
023b e404       |    |		Load	0x2,0x4
023c e457       | W  |		Load	0x2,0x57
023d e458       | X  |		Load	0x2,0x58
023e e459       | Y  |		Load	0x2,0x59
023f 485a       |HZ  |		Short_Literal	0x5a
0240 4802       |H   |		Short_Literal	0x2
0241 0099       |    |		Action	Reference_Dynamic
0242 485b       |H[  |		Short_Literal	0x5b
0243 4802       |H   |		Short_Literal	0x2
0244 0099       |    |		Action	Reference_Dynamic
0245 485c       |H\  |		Short_Literal	0x5c
0246 4802       |H   |		Short_Literal	0x2
0247 0099       |    |		Action	Reference_Dynamic
0248 485d       |H]  |		Short_Literal	0x5d
0249 4802       |H   |		Short_Literal	0x2
024a 0099       |    |		Action	Reference_Dynamic
024b 8408       |    |		Call	0x2,0x8
024c 4801       |H   |		Short_Literal	0x1
024d 48ff       |H   |		Short_Literal	0xff
024e 4810       |H   |		Short_Literal	0x10
024f e404       |    |		Load	0x2,0x4
0250 e464       | d  |		Load	0x2,0x64
0251 e465       | e  |		Load	0x2,0x65
0252 e466       | f  |		Load	0x2,0x66
0253 4867       |Hg  |		Short_Literal	0x67
0254 4802       |H   |		Short_Literal	0x2
0255 0099       |    |		Action	Reference_Dynamic
0256 4868       |Hh  |		Short_Literal	0x68
0257 4802       |H   |		Short_Literal	0x2
0258 0099       |    |		Action	Reference_Dynamic
0259 4869       |Hi  |		Short_Literal	0x69
025a 4802       |H   |		Short_Literal	0x2
025b 0099       |    |		Action	Reference_Dynamic
025c 486a       |Hj  |		Short_Literal	0x6a
025d 4802       |H   |		Short_Literal	0x2
025e 0099       |    |		Action	Reference_Dynamic
025f 8408       |    |		Call	0x2,0x8
0260 4801       |H   |		Short_Literal	0x1
0261 48ff       |H   |		Short_Literal	0xff
0262 4810       |H   |		Short_Literal	0x10
0263 e404       |    |		Load	0x2,0x4
0264 e46f       | o  |		Load	0x2,0x6f
0265 e470       | p  |		Load	0x2,0x70
0266 e471       | q  |		Load	0x2,0x71
0267 4872       |Hr  |		Short_Literal	0x72
0268 4802       |H   |		Short_Literal	0x2
0269 0099       |    |		Action	Reference_Dynamic
026a 4873       |Hs  |		Short_Literal	0x73
026b 4802       |H   |		Short_Literal	0x2
026c 0099       |    |		Action	Reference_Dynamic
026d 4874       |Ht  |		Short_Literal	0x74
026e 4802       |H   |		Short_Literal	0x2
026f 0099       |    |		Action	Reference_Dynamic
0270 4875       |Hu  |		Short_Literal	0x75
0271 4802       |H   |		Short_Literal	0x2
0272 0099       |    |		Action	Reference_Dynamic
0273 8408       |    |		Call	0x2,0x8
0274 e5fe       |    |		Load	0x2,-0x2
0275 7004       |p   |		Jump_Nonzero	0x27a
0276 e404       |    |		Load	0x2,0x4
0277 e003       |    |		Load	0x0,0x3
0278 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0279 c404       |    |		Store	0x2,0x4
027a 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
027b			TRAP_0018:
027b 0007       |    |		Action	Break_Optional
027c e5fe       |    |		Load	0x2,-0x2
027d 0f00       |    |		Execute_Immediate	Equal,0x0
027e e404       |    |		Load	0x2,0x4
027f e003       |    |		Load	0x0,0x3
0280 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0281 0279       | y  |		Execute	Discrete,And
0282 6804       |h   |		Jump_Zero	0x287
0283 e404       |    |		Load	0x2,0x4
0284 e003       |    |		Load	0x0,0x3
0285 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0286 c404       |    |		Store	0x2,0x4
0287 e00f       |    |		Load	0x0,0xf
0288 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0289 4807       |H   |		Short_Literal	0x7
028a 0092 05eb  |    |		Action	Push_String_Extended,0x5eb					; "An error occured creating the terminal configuration file, please check and correct by hand."
028c e010       |    |		Load	0x0,0x10
028d 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
028e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
028f 0000       |    |		.XXX[0x1]
0290 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0294 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
0298 8000 0000  |    |		.LITERAL	{0x80000000, 0x00030000}
029c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00040000}
02a0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00050000}
02a4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00060000}
02a8 8000 0000  |    |		.LITERAL	{0x80000000, 0x00070000}
02ac 8000 0000  |    |		.LITERAL	{0x80000000, 0x00080000}
02b0 8000 0000  |    |		.LITERAL	{0x80000000, 0x00090000}
02b4 8000 0000  |    |		.LITERAL	{0x80000000, 0x000a0000}
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb       |    |		.CONST	0x02bb								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0001       |    |		.CONST	0x0001								; Number of locals
02bb			BODY_02b8:
02bb			INIT_02b8:
02bb 00da       |    |		Load_Top	At_Offset_2
02bc 0ce1       |    |		Execute_Immediate	Greater_Equal,-0x1f
02bd 00db       |    |		Load_Top	At_Offset_3
02be 48ff       |H   |		Short_Literal	0xff
02bf 027a       | z  |		Execute	Discrete,Less_Equal
02c0 0279       | y  |		Execute	Discrete,And
02c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02c2 0000 0000  |    |		.BLANK	0000[0x6]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb       |    |		.CONST	0x02cb								; Address of begin
02c9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ca 0001       |    |		.CONST	0x0001								; Number of locals
02cb			BODY_02c8:
02cb			INIT_02c8:
02cb 00da       |    |		Load_Top	At_Offset_2
02cc e7fe       |    |		Load	0x3,-0x2
02cd 027b       | {  |		Execute	Discrete,Greater_Equal
02ce 6804       |h   |		Jump_Zero	0x2d3
02cf 00da       |    |		Load_Top	At_Offset_2
02d0 00e0       |    |		Load_Encached	Standard_Cache
02d1 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02d2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02d3 00da       |    |		Load_Top	At_Offset_2
02d4 00e0       |    |		Load_Encached	Standard_Cache
02d5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02d6 0092 05ec  |    |		Action	Push_String_Extended,0x5ec					; " .."
02d8 01cc       |    |		Execute	Vector,Catenate
02d9 e7fe       |    |		Load	0x3,-0x2
02da 00e0       |    |		Load_Encached	Standard_Cache
02db 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02dc 01cc       |    |		Execute	Vector,Catenate
02dd 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
02de 0000 0000  |    |		.XXX[0x2]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 e5fe       |    |		Load	0x2,-0x2
02e4 7025       |p%  |		Jump_Nonzero	0x30a
02e5 00db       |    |		Load_Top	At_Offset_3
02e6 00db       |    |		Load_Top	At_Offset_3
02e7 027d       | }  |		Execute	Discrete,Greater
02e8 6811       |h   |		Jump_Zero	0x2fa
02e9 e00f       |    |		Load	0x0,0xf
02ea 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02eb 4803       |H   |		Short_Literal	0x3
02ec 0092 05ed  |    |		Action	Push_String_Extended,0x5ed					; "The ports"
02ee e7fe       |    |		Load	0x3,-0x2
02ef e7ff       |    |		Load	0x3,-0x1
02f0 8406       |    |		Call	0x2,0x6
02f1 01cc       |    |		Execute	Vector,Catenate
02f2 0092 05ee  |    |		Action	Push_String_Extended,0x5ee					; " have been set to "
02f4 01cc       |    |		Execute	Vector,Catenate
02f5 e7fd       |    |		Load	0x3,-0x3
02f6 01cc       |    |		Execute	Vector,Catenate
02f7 e010       |    |		Load	0x0,0x10
02f8 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02f9 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02fa e00f       |    |		Load	0x0,0xf
02fb 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
02fc 4803       |H   |		Short_Literal	0x3
02fd 0092 05ef  |    |		Action	Push_String_Extended,0x5ef					; "The port"
02ff e7fe       |    |		Load	0x3,-0x2
0300 e7ff       |    |		Load	0x3,-0x1
0301 8406       |    |		Call	0x2,0x6
0302 01cc       |    |		Execute	Vector,Catenate
0303 0092 05f0  |    |		Action	Push_String_Extended,0x5f0					; " has been set to "
0305 01cc       |    |		Execute	Vector,Catenate
0306 e7fd       |    |		Load	0x3,-0x3
0307 01cc       |    |		Execute	Vector,Catenate
0308 e010       |    |		Load	0x0,0x10
0309 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
030a 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
030b 0000 0000  |    |		.BLANK	0000[0x5]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0325       | %  |		.CONST	0x0325								; Address of begin
0311 041b       |    |		.CONST	0x041b								; Address of exception handler
0312 0007       |    |		.CONST	0x0007								; Number of locals
0313			INIT_0310:
0313 e002       |    |		Load	0x0,0x2
0314 1b50       | P  |		Execute	Package,Field_Read,Field_Number 0x50
0315 02c7       |    |		Declare_Variable	Any
0316 00d8       |    |		Load_Top	At_Offset_0
0317 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0318 e7f9       |    |		Load	0x3,-0x7
0319 02c7       |    |		Declare_Variable	Any
031a 00d8       |    |		Load_Top	At_Offset_0
031b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
031c e7f9       |    |		Load	0x3,-0x7
031d 02c7       |    |		Declare_Variable	Any
031e 00d8       |    |		Load_Top	At_Offset_0
031f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0320 00e2       |    |		Load_Encached	Integer_Cache
0321 4fff       |O   |		Short_Literal	-0x1
0322 00e2       |    |		Load_Encached	Integer_Cache
0323 03f1       |    |		Declare_Variable	Discrete,With_Value
0324 00e2       |    |		Load_Encached	Integer_Cache
0325			BODY_0310:
0325 00be       |    |		Action	Activate_Tasks
0326 e602       |    |		Load	0x3,0x2
0327 0120       |    |		Execute	Any,Is_Value
0328 6803       |h   |		Jump_Zero	0x32c
0329 e002       |    |		Load	0x0,0x2
032a 1b50       | P  |		Execute	Package,Field_Read,Field_Number 0x50
032b 7801       |x   |		Jump	0x32d
032c e602       |    |		Load	0x3,0x2
032d e002       |    |		Load	0x0,0x2
032e 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
032f c602       |    |		Store	0x3,0x2
0330 00cf       |    |		Action	Mark_Auxiliary
0331 78ad       |x   |		Jump	0x3df
0332 e602       |    |		Load	0x3,0x2
0333 e002       |    |		Load	0x0,0x2
0334 1852       | R  |		Execute	Package,Field_Execute,Field_Number 0x52
0335 a605       |    |		Store_Unchecked	0x3,0x5
0336 00db       |    |		Load_Top	At_Offset_3
0337 e7f7       |    |		Load	0x3,-0x9
0338 027b       | {  |		Execute	Discrete,Greater_Equal
0339 e605       |    |		Load	0x3,0x5
033a e7f6       |    |		Load	0x3,-0xa
033b 027a       | z  |		Execute	Discrete,Less_Equal
033c 0279       | y  |		Execute	Discrete,And
033d 689c       |h   |		Jump_Zero	0x3da
033e e7f5       |    |		Load	0x3,-0xb
033f 6808       |h   |		Jump_Zero	0x348
0340 00db       |    |		Load_Top	At_Offset_3
0341 00d8       |    |		Load_Top	At_Offset_0
0342 00e3       |    |		Load_Encached	Natural_Cache
0343 0260       | `  |		Execute	Discrete,In_Type
0344 7001       |p   |		Jump_Nonzero	0x346
0345 0801       |    |		Execute_Immediate	Raise,0x1
0346 8405       |    |		Call	0x2,0x5
0347 7092       |p   |		Jump_Nonzero	0x3da
0348 00db       |    |		Load_Top	At_Offset_3
0349 87fd       |    |		Call	0x3,-0x3
034a c603       |    |		Store	0x3,0x3
034b 00da       |    |		Load_Top	At_Offset_2
034c 4fff       |O   |		Short_Literal	-0x1
034d 027f       |    |		Execute	Discrete,Equal
034e 6807       |h   |		Jump_Zero	0x356
034f 00db       |    |		Load_Top	At_Offset_3
0350 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0351 00db       |    |		Load_Top	At_Offset_3
0352 0aff       |    |		Execute_Immediate	Plus,-0x1
0353 005a       | Z  |		Store_Top	Discrete,At_Offset_2
0354 e603       |    |		Load	0x3,0x3
0355 c604       |    |		Store	0x3,0x4
0356 e7fb       |    |		Load	0x3,-0x5
0357 e603       |    |		Load	0x3,0x3
0358 87fe       |    |		Call	0x3,-0x2
0359 7044       |pD  |		Jump_Nonzero	0x39e
035a 00db       |    |		Load_Top	At_Offset_3
035b 00da       |    |		Load_Top	At_Offset_2
035c 0a01       |    |		Execute_Immediate	Plus,0x1
035d 027e       | ~  |		Execute	Discrete,Not_Equal
035e 7004       |p   |		Jump_Nonzero	0x363
035f e604       |    |		Load	0x3,0x4
0360 e603       |    |		Load	0x3,0x3
0361 87fe       |    |		Call	0x3,-0x2
0362 7075       |pu  |		Jump_Nonzero	0x3d8
0363 e7fb       |    |		Load	0x3,-0x5
0364 e604       |    |		Load	0x3,0x4
0365 87fe       |    |		Call	0x3,-0x2
0366 7032       |p2  |		Jump_Nonzero	0x399
0367 00d9       |    |		Load_Top	At_Offset_1
0368 00d8       |    |		Load_Top	At_Offset_0
0369 00e3       |    |		Load_Encached	Natural_Cache
036a 0260       | `  |		Execute	Discrete,In_Type
036b 7001       |p   |		Jump_Nonzero	0x36d
036c 0801       |    |		Execute_Immediate	Raise,0x1
036d 00db       |    |		Load_Top	At_Offset_3
036e 00d8       |    |		Load_Top	At_Offset_0
036f 00e3       |    |		Load_Encached	Natural_Cache
0370 0260       | `  |		Execute	Discrete,In_Type
0371 7001       |p   |		Jump_Nonzero	0x373
0372 0801       |    |		Execute_Immediate	Raise,0x1
0373 8406       |    |		Call	0x2,0x6
0374 0092 05f1  |    |		Action	Push_String_Extended,0x5f1					; " => ("
0376 01cc       |    |		Execute	Vector,Catenate
0377 e7fa       |    |		Load	0x3,-0x6
0378 01cc       |    |		Execute	Vector,Catenate
0379 0092 05f2  |    |		Action	Push_String_Extended,0x5f2					; " => "
037b 01cc       |    |		Execute	Vector,Catenate
037c e604       |    |		Load	0x3,0x4
037d 87fc       |    |		Call	0x3,-0x4
037e 01cc       |    |		Execute	Vector,Catenate
037f 0092 05f3  |    |		Action	Push_String_Extended,0x5f3					; ")"
0381 01cc       |    |		Execute	Vector,Catenate
0382 e7f8       |    |		Load	0x3,-0x8
0383 e003       |    |		Load	0x0,0x3
0384 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0385 e7fa       |    |		Load	0x3,-0x6
0386 0092 05f2  |    |		Action	Push_String_Extended,0x5f2					; " => "
0388 01cc       |    |		Execute	Vector,Catenate
0389 e604       |    |		Load	0x3,0x4
038a 87fc       |    |		Call	0x3,-0x4
038b 01cc       |    |		Execute	Vector,Catenate
038c 00da       |    |		Load_Top	At_Offset_2
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 e606       |    |		Load	0x3,0x6
0393 00d8       |    |		Load_Top	At_Offset_0
0394 00e3       |    |		Load_Encached	Natural_Cache
0395 0260       | `  |		Execute	Discrete,In_Type
0396 7001       |p   |		Jump_Nonzero	0x398
0397 0801       |    |		Execute_Immediate	Raise,0x1
0398 8407       |    |		Call	0x2,0x7
0399 e603       |    |		Load	0x3,0x3
039a c604       |    |		Store	0x3,0x4
039b 00db       |    |		Load_Top	At_Offset_3
039c 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
039d 783a       |x:  |		Jump	0x3d8
039e e604       |    |		Load	0x3,0x4
039f e603       |    |		Load	0x3,0x3
03a0 87fe       |    |		Call	0x3,-0x2
03a1 7036       |p6  |		Jump_Nonzero	0x3d8
03a2 00d9       |    |		Load_Top	At_Offset_1
03a3 00d8       |    |		Load_Top	At_Offset_0
03a4 00e3       |    |		Load_Encached	Natural_Cache
03a5 0260       | `  |		Execute	Discrete,In_Type
03a6 7001       |p   |		Jump_Nonzero	0x3a8
03a7 0801       |    |		Execute_Immediate	Raise,0x1
03a8 00db       |    |		Load_Top	At_Offset_3
03a9 00d8       |    |		Load_Top	At_Offset_0
03aa 00e3       |    |		Load_Encached	Natural_Cache
03ab 0260       | `  |		Execute	Discrete,In_Type
03ac 7001       |p   |		Jump_Nonzero	0x3ae
03ad 0801       |    |		Execute_Immediate	Raise,0x1
03ae 8406       |    |		Call	0x2,0x6
03af 0092 05f1  |    |		Action	Push_String_Extended,0x5f1					; " => ("
03b1 01cc       |    |		Execute	Vector,Catenate
03b2 e7fa       |    |		Load	0x3,-0x6
03b3 01cc       |    |		Execute	Vector,Catenate
03b4 0092 05f2  |    |		Action	Push_String_Extended,0x5f2					; " => "
03b6 01cc       |    |		Execute	Vector,Catenate
03b7 e604       |    |		Load	0x3,0x4
03b8 87fc       |    |		Call	0x3,-0x4
03b9 01cc       |    |		Execute	Vector,Catenate
03ba 0092 05f3  |    |		Action	Push_String_Extended,0x5f3					; ")"
03bc 01cc       |    |		Execute	Vector,Catenate
03bd e7f8       |    |		Load	0x3,-0x8
03be e003       |    |		Load	0x0,0x3
03bf 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
03c0 e7fa       |    |		Load	0x3,-0x6
03c1 0092 05f2  |    |		Action	Push_String_Extended,0x5f2					; " => "
03c3 01cc       |    |		Execute	Vector,Catenate
03c4 e604       |    |		Load	0x3,0x4
03c5 87fc       |    |		Call	0x3,-0x4
03c6 01cc       |    |		Execute	Vector,Catenate
03c7 00da       |    |		Load_Top	At_Offset_2
03c8 00d8       |    |		Load_Top	At_Offset_0
03c9 00e3       |    |		Load_Encached	Natural_Cache
03ca 0260       | `  |		Execute	Discrete,In_Type
03cb 7001       |p   |		Jump_Nonzero	0x3cd
03cc 0801       |    |		Execute_Immediate	Raise,0x1
03cd e606       |    |		Load	0x3,0x6
03ce 00d8       |    |		Load_Top	At_Offset_0
03cf 00e3       |    |		Load_Encached	Natural_Cache
03d0 0260       | `  |		Execute	Discrete,In_Type
03d1 7001       |p   |		Jump_Nonzero	0x3d3
03d2 0801       |    |		Execute_Immediate	Raise,0x1
03d3 8407       |    |		Call	0x2,0x7
03d4 e603       |    |		Load	0x3,0x3
03d5 c604       |    |		Store	0x3,0x4
03d6 00db       |    |		Load_Top	At_Offset_3
03d7 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
03d8 00db       |    |		Load_Top	At_Offset_3
03d9 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
03da e602       |    |		Load	0x3,0x2
03db e002       |    |		Load	0x0,0x2
03dc 1854       | T  |		Execute	Package,Field_Execute,Field_Number 0x54
03dd c602       |    |		Store	0x3,0x2
03de 00c9       |    |		Action	Pop_Auxiliary_Loop
03df e602       |    |		Load	0x3,0x2
03e0 e002       |    |		Load	0x0,0x2
03e1 1853       | S  |		Execute	Package,Field_Execute,Field_Number 0x53
03e2 6f4f       |oO  |		Jump_Zero	0x332
03e3 00ce       |    |		Action	Pop_Auxiliary
03e4 e7fb       |    |		Load	0x3,-0x5
03e5 e604       |    |		Load	0x3,0x4
03e6 87fe       |    |		Call	0x3,-0x2
03e7 7032       |p2  |		Jump_Nonzero	0x41a
03e8 00d8       |    |		Load_Top	At_Offset_0
03e9 00d8       |    |		Load_Top	At_Offset_0
03ea 00e3       |    |		Load_Encached	Natural_Cache
03eb 0260       | `  |		Execute	Discrete,In_Type
03ec 7001       |p   |		Jump_Nonzero	0x3ee
03ed 0801       |    |		Execute_Immediate	Raise,0x1
03ee 00da       |    |		Load_Top	At_Offset_2
03ef 00d8       |    |		Load_Top	At_Offset_0
03f0 00e3       |    |		Load_Encached	Natural_Cache
03f1 0260       | `  |		Execute	Discrete,In_Type
03f2 7001       |p   |		Jump_Nonzero	0x3f4
03f3 0801       |    |		Execute_Immediate	Raise,0x1
03f4 8406       |    |		Call	0x2,0x6
03f5 0092 05f1  |    |		Action	Push_String_Extended,0x5f1					; " => ("
03f7 01cc       |    |		Execute	Vector,Catenate
03f8 e7fa       |    |		Load	0x3,-0x6
03f9 01cc       |    |		Execute	Vector,Catenate
03fa 0092 05f2  |    |		Action	Push_String_Extended,0x5f2					; " => "
03fc 01cc       |    |		Execute	Vector,Catenate
03fd e604       |    |		Load	0x3,0x4
03fe 87fc       |    |		Call	0x3,-0x4
03ff 01cc       |    |		Execute	Vector,Catenate
0400 0092 05f3  |    |		Action	Push_String_Extended,0x5f3					; ")"
0402 01cc       |    |		Execute	Vector,Catenate
0403 e7f8       |    |		Load	0x3,-0x8
0404 e003       |    |		Load	0x0,0x3
0405 1863       | c  |		Execute	Package,Field_Execute,Field_Number 0x63
0406 e7fa       |    |		Load	0x3,-0x6
0407 0092 05f2  |    |		Action	Push_String_Extended,0x5f2					; " => "
0409 01cc       |    |		Execute	Vector,Catenate
040a e604       |    |		Load	0x3,0x4
040b 87fc       |    |		Call	0x3,-0x4
040c 01cc       |    |		Execute	Vector,Catenate
040d 00d9       |    |		Load_Top	At_Offset_1
040e 00d8       |    |		Load_Top	At_Offset_0
040f 00e3       |    |		Load_Encached	Natural_Cache
0410 0260       | `  |		Execute	Discrete,In_Type
0411 7001       |p   |		Jump_Nonzero	0x413
0412 0801       |    |		Execute_Immediate	Raise,0x1
0413 00db       |    |		Load_Top	At_Offset_3
0414 00d8       |    |		Load_Top	At_Offset_0
0415 00e3       |    |		Load_Encached	Natural_Cache
0416 0260       | `  |		Execute	Discrete,In_Type
0417 7001       |p   |		Jump_Nonzero	0x419
0418 0801       |    |		Execute_Immediate	Raise,0x1
0419 8407       |    |		Call	0x2,0x7
041a 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
041b			TRAP_0310:
041b 0007       |    |		Action	Break_Optional
041c e00f       |    |		Load	0x0,0xf
041d 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
041e 4807       |H   |		Short_Literal	0x7
041f e7fa       |    |		Load	0x3,-0x6
0420 0092 05f4  |    |		Action	Push_String_Extended,0x5f4					; " could not be set."
0422 01cc       |    |		Execute	Vector,Catenate
0423 e010       |    |		Load	0x0,0x10
0424 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0425 450c       |E   |		Exit_Suprogram	New_Top_Offset 0xc
0426 0000 0000  |    |		.XXX[0x2]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0004       |    |		.CONST	0x0004								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 00da       |    |		Load_Top	At_Offset_2
042c e402       |    |		Load	0x2,0x2
042d 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
042e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
042f 0000       |    |		.XXX[0x1]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 00da       |    |		Load_Top	At_Offset_2
0434 0227       | '  |		Execute	Access,All_Reference
0435 0335       | 5  |		Declare_Variable	Array,Duplicate
0436 00cd       |    |		Action	Spare6_Action
0437 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b       | ;  |		.CONST	0x043b								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0001       |    |		.CONST	0x0001								; Number of locals
043b			BODY_0438:
043b			INIT_0438:
043b 4801       |H   |		Short_Literal	0x1
043c e7fe       |    |		Load	0x3,-0x2
043d 0227       | '  |		Execute	Access,All_Reference
043e e7ff       |    |		Load	0x3,-0x1
043f 0227       | '  |		Execute	Access,All_Reference
0440 e011       |    |		Load	0x0,0x11
0441 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0442 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0443 0000 0000  |    |		.BLANK	0000[0x5]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b       | K  |		.CONST	0x044b								; Address of begin
0449 0004       |    |		.CONST	0x0004								; Address of exception handler
044a 0001       |    |		.CONST	0x0001								; Number of locals
044b			BODY_0448:
044b			INIT_0448:
044b 00da       |    |		Load_Top	At_Offset_2
044c e7fe       |    |		Load	0x3,-0x2
044d 027f       |    |		Execute	Discrete,Equal
044e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
044f 0000       |    |		.XXX[0x1]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0453       | S  |		.CONST	0x0453								; Address of begin
0451 0004       |    |		.CONST	0x0004								; Address of exception handler
0452 0001       |    |		.CONST	0x0001								; Number of locals
0453			BODY_0450:
0453			INIT_0450:
0453 00da       |    |		Load_Top	At_Offset_2
0454 e7fe       |    |		Load	0x3,-0x2
0455 027f       |    |		Execute	Discrete,Equal
0456 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0457 0000       |    |		.XXX[0x1]
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 045b       | [  |		.CONST	0x045b								; Address of begin
0459 0004       |    |		.CONST	0x0004								; Address of exception handler
045a 0001       |    |		.CONST	0x0001								; Number of locals
045b			BODY_0458:
045b			INIT_0458:
045b 00da       |    |		Load_Top	At_Offset_2
045c 00e1       |    |		Load_Encached	Boolean_Cache
045d 011c       |    |		Execute	Any,Convert_Unchecked
045e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
045f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0463       | c  |		.CONST	0x0463								; Address of begin
0461 0004       |    |		.CONST	0x0004								; Address of exception handler
0462 0001       |    |		.CONST	0x0001								; Number of locals
0463			BODY_0460:
0463			INIT_0460:
0463 00da       |    |		Load_Top	At_Offset_2
0464 e002       |    |		Load	0x0,0x2
0465 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0466 00d9       |    |		Load_Top	At_Offset_1
0467 00d0       |    |		Action	Swap_Control
0468 0260       | `  |		Execute	Discrete,In_Type
0469 7001       |p   |		Jump_Nonzero	0x46b
046a 0801       |    |		Execute_Immediate	Raise,0x1
046b e002       |    |		Load	0x0,0x2
046c 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
046d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
046e 0000 0000  |    |		.XXX[0x2]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473       | s  |		.CONST	0x0473								; Address of begin
0471 0004       |    |		.CONST	0x0004								; Address of exception handler
0472 0001       |    |		.CONST	0x0001								; Number of locals
0473			BODY_0470:
0473			INIT_0470:
0473 00da       |    |		Load_Top	At_Offset_2
0474 e002       |    |		Load	0x0,0x2
0475 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0476 00d9       |    |		Load_Top	At_Offset_1
0477 00d0       |    |		Action	Swap_Control
0478 0260       | `  |		Execute	Discrete,In_Type
0479 7001       |p   |		Jump_Nonzero	0x47b
047a 0801       |    |		Execute_Immediate	Raise,0x1
047b e002       |    |		Load	0x0,0x2
047c 1833       | 3  |		Execute	Package,Field_Execute,Field_Number 0x33
047d 8409       |    |		Call	0x2,0x9
047e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
047f 0000       |    |		.XXX[0x1]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483       |    |		.CONST	0x0483								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0001       |    |		.CONST	0x0001								; Number of locals
0483			BODY_0480:
0483			INIT_0480:
0483 00da       |    |		Load_Top	At_Offset_2
0484 00d8       |    |		Load_Top	At_Offset_0
0485 00e3       |    |		Load_Encached	Natural_Cache
0486 0260       | `  |		Execute	Discrete,In_Type
0487 7001       |p   |		Jump_Nonzero	0x489
0488 0801       |    |		Execute_Immediate	Raise,0x1
0489 8418       |    |		Call	0x2,0x18
048a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
048b 0000 0000  |    |		.BLANK	0000[0x5]
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0493       |    |		.CONST	0x0493								; Address of begin
0491 0004       |    |		.CONST	0x0004								; Address of exception handler
0492 0001       |    |		.CONST	0x0001								; Number of locals
0493			BODY_0490:
0493			INIT_0490:
0493 00da       |    |		Load_Top	At_Offset_2
0494 e002       |    |		Load	0x0,0x2
0495 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0496 00d9       |    |		Load_Top	At_Offset_1
0497 00d0       |    |		Action	Swap_Control
0498 0260       | `  |		Execute	Discrete,In_Type
0499 7001       |p   |		Jump_Nonzero	0x49b
049a 0801       |    |		Execute_Immediate	Raise,0x1
049b e002       |    |		Load	0x0,0x2
049c 1834       | 4  |		Execute	Package,Field_Execute,Field_Number 0x34
049d 8409       |    |		Call	0x2,0x9
049e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
049f 0000       |    |		.XXX[0x1]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3       |    |		.CONST	0x04a3								; Address of begin
04a1 0004       |    |		.CONST	0x0004								; Address of exception handler
04a2 0001       |    |		.CONST	0x0001								; Number of locals
04a3			BODY_04a0:
04a3			INIT_04a0:
04a3 00da       |    |		Load_Top	At_Offset_2
04a4 00d8       |    |		Load_Top	At_Offset_0
04a5 00e3       |    |		Load_Encached	Natural_Cache
04a6 0260       | `  |		Execute	Discrete,In_Type
04a7 7001       |p   |		Jump_Nonzero	0x4a9
04a8 0801       |    |		Execute_Immediate	Raise,0x1
04a9 8422       | "  |		Call	0x2,0x22
04aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04ab 0000 0000  |    |		.BLANK	0000[0x5]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3       |    |		.CONST	0x04b3								; Address of begin
04b1 0004       |    |		.CONST	0x0004								; Address of exception handler
04b2 0001       |    |		.CONST	0x0001								; Number of locals
04b3			BODY_04b0:
04b3			INIT_04b0:
04b3 00da       |    |		Load_Top	At_Offset_2
04b4 e002       |    |		Load	0x0,0x2
04b5 1b2e       | .  |		Execute	Package,Field_Read,Field_Number 0x2e
04b6 011c       |    |		Execute	Any,Convert_Unchecked
04b7 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04b8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04b9 0000 0000  |    |		.BLANK	0000[0x7]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3       |    |		.CONST	0x04c3								; Address of begin
04c1 0004       |    |		.CONST	0x0004								; Address of exception handler
04c2 0001       |    |		.CONST	0x0001								; Number of locals
04c3			BODY_04c0:
04c3			INIT_04c0:
04c3 00da       |    |		Load_Top	At_Offset_2
04c4 e002       |    |		Load	0x0,0x2
04c5 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
04c6 00d9       |    |		Load_Top	At_Offset_1
04c7 00d0       |    |		Action	Swap_Control
04c8 0260       | `  |		Execute	Discrete,In_Type
04c9 7001       |p   |		Jump_Nonzero	0x4cb
04ca 0801       |    |		Execute_Immediate	Raise,0x1
04cb e002       |    |		Load	0x0,0x2
04cc 1835       | 5  |		Execute	Package,Field_Execute,Field_Number 0x35
04cd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04ce 0000 0000  |    |		.XXX[0x2]
04d0 ; --------------------------------------------------------------------------------------
04d0 ; SUBPROGRAM
04d0 ; --------------------------------------------------------------------------------------
04d0 04d3       |    |		.CONST	0x04d3								; Address of begin
04d1 0004       |    |		.CONST	0x0004								; Address of exception handler
04d2 0001       |    |		.CONST	0x0001								; Number of locals
04d3			BODY_04d0:
04d3			INIT_04d0:
04d3 0092 05f5  |    |		Action	Push_String_Extended,0x5f5					; "Char_"
04d5 4820       |H   |		Short_Literal	0x20
04d6 4800       |H   |		Short_Literal	0x0
04d7 480a       |H   |		Short_Literal	0xa
04d8 e7ff       |    |		Load	0x3,-0x1
04d9 e002       |    |		Load	0x0,0x2
04da 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
04db 00d9       |    |		Load_Top	At_Offset_1
04dc 00d0       |    |		Action	Swap_Control
04dd 0260       | `  |		Execute	Discrete,In_Type
04de 7001       |p   |		Jump_Nonzero	0x4e0
04df 0801       |    |		Execute_Immediate	Raise,0x1
04e0 e002       |    |		Load	0x0,0x2
04e1 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
04e2 e011       |    |		Load	0x0,0x11
04e3 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
04e4 01cc       |    |		Execute	Vector,Catenate
04e5 8409       |    |		Call	0x2,0x9
04e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e7 0000       |    |		.XXX[0x1]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb       |    |		.CONST	0x04eb								; Address of begin
04e9 0004       |    |		.CONST	0x0004								; Address of exception handler
04ea 0001       |    |		.CONST	0x0001								; Number of locals
04eb			BODY_04e8:
04eb			INIT_04e8:
04eb 00da       |    |		Load_Top	At_Offset_2
04ec 00d8       |    |		Load_Top	At_Offset_0
04ed 00e3       |    |		Load_Encached	Natural_Cache
04ee 0260       | `  |		Execute	Discrete,In_Type
04ef 7001       |p   |		Jump_Nonzero	0x4f1
04f0 0801       |    |		Execute_Immediate	Raise,0x1
04f1 8436       | 6  |		Call	0x2,0x36
04f2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04f3 0000 0000  |    |		.BLANK	0000[0x5]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb       |    |		.CONST	0x04fb								; Address of begin
04f9 0004       |    |		.CONST	0x0004								; Address of exception handler
04fa 0001       |    |		.CONST	0x0001								; Number of locals
04fb			BODY_04f8:
04fb			INIT_04f8:
04fb 00da       |    |		Load_Top	At_Offset_2
04fc 00d8       |    |		Load_Top	At_Offset_0
04fd 00e2       |    |		Load_Encached	Integer_Cache
04fe 0260       | `  |		Execute	Discrete,In_Type
04ff 7001       |p   |		Jump_Nonzero	0x501
0500 0801       |    |		Execute_Immediate	Raise,0x1
0501 00e0       |    |		Load_Encached	Standard_Cache
0502 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0503 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0504 0000 0000  |    |		.BLANK	0000[0x4]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b       |    |		.CONST	0x050b								; Address of begin
0509 0004       |    |		.CONST	0x0004								; Address of exception handler
050a 0001       |    |		.CONST	0x0001								; Number of locals
050b			BODY_0508:
050b			INIT_0508:
050b 00da       |    |		Load_Top	At_Offset_2
050c e002       |    |		Load	0x0,0x2
050d 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
050e 00d9       |    |		Load_Top	At_Offset_1
050f 00d0       |    |		Action	Swap_Control
0510 0260       | `  |		Execute	Discrete,In_Type
0511 7001       |p   |		Jump_Nonzero	0x513
0512 0801       |    |		Execute_Immediate	Raise,0x1
0513 e002       |    |		Load	0x0,0x2
0514 1836       | 6  |		Execute	Package,Field_Execute,Field_Number 0x36
0515 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0516 0000 0000  |    |		.XXX[0x2]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b       |    |		.CONST	0x051b								; Address of begin
0519 0004       |    |		.CONST	0x0004								; Address of exception handler
051a 0001       |    |		.CONST	0x0001								; Number of locals
051b			BODY_0518:
051b			INIT_0518:
051b 00db       |    |		Load_Top	At_Offset_3
051c 00d8       |    |		Load_Top	At_Offset_0
051d 00e3       |    |		Load_Encached	Natural_Cache
051e 0260       | `  |		Execute	Discrete,In_Type
051f 7001       |p   |		Jump_Nonzero	0x521
0520 0801       |    |		Execute_Immediate	Raise,0x1
0521 00db       |    |		Load_Top	At_Offset_3
0522 00d8       |    |		Load_Top	At_Offset_0
0523 00e3       |    |		Load_Encached	Natural_Cache
0524 0260       | `  |		Execute	Discrete,In_Type
0525 7001       |p   |		Jump_Nonzero	0x527
0526 0801       |    |		Execute_Immediate	Raise,0x1
0527 840d       |    |		Call	0x2,0xd
0528 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0529 0000 0000  |    |		.BLANK	0000[0x7]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533       | 3  |		.CONST	0x0533								; Address of begin
0531 0004       |    |		.CONST	0x0004								; Address of exception handler
0532 0001       |    |		.CONST	0x0001								; Number of locals
0533			BODY_0530:
0533			INIT_0530:
0533 00da       |    |		Load_Top	At_Offset_2
0534 e002       |    |		Load	0x0,0x2
0535 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0536 00d9       |    |		Load_Top	At_Offset_1
0537 00d0       |    |		Action	Swap_Control
0538 0260       | `  |		Execute	Discrete,In_Type
0539 7001       |p   |		Jump_Nonzero	0x53b
053a 0801       |    |		Execute_Immediate	Raise,0x1
053b e002       |    |		Load	0x0,0x2
053c 183c       | <  |		Execute	Package,Field_Execute,Field_Number 0x3c
053d 8409       |    |		Call	0x2,0x9
053e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
053f 0000       |    |		.XXX[0x1]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0543       | C  |		.CONST	0x0543								; Address of begin
0541 0004       |    |		.CONST	0x0004								; Address of exception handler
0542 0001       |    |		.CONST	0x0001								; Number of locals
0543			BODY_0540:
0543			INIT_0540:
0543 00da       |    |		Load_Top	At_Offset_2
0544 00d8       |    |		Load_Top	At_Offset_0
0545 00e3       |    |		Load_Encached	Natural_Cache
0546 0260       | `  |		Execute	Discrete,In_Type
0547 7001       |p   |		Jump_Nonzero	0x549
0548 0801       |    |		Execute_Immediate	Raise,0x1
0549 844b       | K  |		Call	0x2,0x4b
054a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
054b 0000 0000  |    |		.BLANK	0000[0x5]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553       | S  |		.CONST	0x0553								; Address of begin
0551 0004       |    |		.CONST	0x0004								; Address of exception handler
0552 0001       |    |		.CONST	0x0001								; Number of locals
0553			BODY_0550:
0553			INIT_0550:
0553 00da       |    |		Load_Top	At_Offset_2
0554 e002       |    |		Load	0x0,0x2
0555 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0556 00d9       |    |		Load_Top	At_Offset_1
0557 00d0       |    |		Action	Swap_Control
0558 0260       | `  |		Execute	Discrete,In_Type
0559 7001       |p   |		Jump_Nonzero	0x55b
055a 0801       |    |		Execute_Immediate	Raise,0x1
055b e002       |    |		Load	0x0,0x2
055c 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
055d 8409       |    |		Call	0x2,0x9
055e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
055f 0000       |    |		.XXX[0x1]
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 0563       | c  |		.CONST	0x0563								; Address of begin
0561 0004       |    |		.CONST	0x0004								; Address of exception handler
0562 0001       |    |		.CONST	0x0001								; Number of locals
0563			BODY_0560:
0563			INIT_0560:
0563 00da       |    |		Load_Top	At_Offset_2
0564 00d8       |    |		Load_Top	At_Offset_0
0565 00e3       |    |		Load_Encached	Natural_Cache
0566 0260       | `  |		Execute	Discrete,In_Type
0567 7001       |p   |		Jump_Nonzero	0x569
0568 0801       |    |		Execute_Immediate	Raise,0x1
0569 8455       | U  |		Call	0x2,0x55
056a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
056b 0000 0000  |    |		.BLANK	0000[0x5]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573       | s  |		.CONST	0x0573								; Address of begin
0571 0004       |    |		.CONST	0x0004								; Address of exception handler
0572 0001       |    |		.CONST	0x0001								; Number of locals
0573			BODY_0570:
0573			INIT_0570:
0573 0092 05f6  |    |		Action	Push_String_Extended,0x5f6					; "("
0575 4820       |H   |		Short_Literal	0x20
0576 4800       |H   |		Short_Literal	0x0
0577 480a       |H   |		Short_Literal	0xa
0578 4801       |H   |		Short_Literal	0x1
0579 e7ff       |    |		Load	0x3,-0x1
057a 01d7       |    |		Execute	Vector,Field_Read
057b e011       |    |		Load	0x0,0x11
057c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
057d 01cc       |    |		Execute	Vector,Catenate
057e 0092 05f7  |    |		Action	Push_String_Extended,0x5f7					; ","
0580 01cc       |    |		Execute	Vector,Catenate
0581 4820       |H   |		Short_Literal	0x20
0582 4800       |H   |		Short_Literal	0x0
0583 480a       |H   |		Short_Literal	0xa
0584 4802       |H   |		Short_Literal	0x2
0585 e7ff       |    |		Load	0x3,-0x1
0586 01d7       |    |		Execute	Vector,Field_Read
0587 e011       |    |		Load	0x0,0x11
0588 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0589 01cc       |    |		Execute	Vector,Catenate
058a 0092 05f3  |    |		Action	Push_String_Extended,0x5f3					; ")"
058c 01cc       |    |		Execute	Vector,Catenate
058d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
058e 0000 0000  |    |		.XXX[0x2]
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593       |    |		.CONST	0x0593								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0001       |    |		.CONST	0x0001								; Number of locals
0593			BODY_0590:
0593			INIT_0590:
0593 4801       |H   |		Short_Literal	0x1
0594 00db       |    |		Load_Top	At_Offset_3
0595 01d7       |    |		Execute	Vector,Field_Read
0596 4801       |H   |		Short_Literal	0x1
0597 e7fe       |    |		Load	0x3,-0x2
0598 01d7       |    |		Execute	Vector,Field_Read
0599 027f       |    |		Execute	Discrete,Equal
059a 6808       |h   |		Jump_Zero	0x5a3
059b 4802       |H   |		Short_Literal	0x2
059c 00db       |    |		Load_Top	At_Offset_3
059d 01d7       |    |		Execute	Vector,Field_Read
059e 4802       |H   |		Short_Literal	0x2
059f e7fe       |    |		Load	0x3,-0x2
05a0 01d7       |    |		Execute	Vector,Field_Read
05a1 027f       |    |		Execute	Discrete,Equal
05a2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05a3 4800       |H   |		Short_Literal	0x0
05a4 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05a5 0000 0000  |    |		.XXX[0x3]
05a7 0000       |    |
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab       |    |		.CONST	0x05ab								; Address of begin
05a9 0004       |    |		.CONST	0x0004								; Address of exception handler
05aa 0001       |    |		.CONST	0x0001								; Number of locals
05ab			BODY_05a8:
05ab			BODY_05a8:
05ab			INIT_05a8:
05ab			INIT_05a8:
05ab 00da       |    |		Load_Top	At_Offset_2
05ac e403       |    |		Load	0x2,0x3
05ad 01c3       |    |		Execute	Vector,Check_In_Type
05ae 845f       | _  |		Call	0x2,0x5f
05af 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3       |    |		.CONST	0x05b3								; Address of begin
05b1 0004       |    |		.CONST	0x0004								; Address of exception handler
05b2 0001       |    |		.CONST	0x0001								; Number of locals
05b3			BODY_05b0:
05b3			INIT_05b0:
05b3 00da       |    |		Load_Top	At_Offset_2
05b4 e002       |    |		Load	0x0,0x2
05b5 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
05b6 00d9       |    |		Load_Top	At_Offset_1
05b7 00d0       |    |		Action	Swap_Control
05b8 0260       | `  |		Execute	Discrete,In_Type
05b9 7001       |p   |		Jump_Nonzero	0x5bb
05ba 0801       |    |		Execute_Immediate	Raise,0x1
05bb e002       |    |		Load	0x0,0x2
05bc 1839       | 9  |		Execute	Package,Field_Execute,Field_Number 0x39
05bd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05be 0000 0000  |    |		.XXX[0x2]
05c0 ; --------------------------------------------------------------------------------------
05c0 ; SUBPROGRAM
05c0 ; SUBPROGRAM
05c0 ; --------------------------------------------------------------------------------------
05c0 05c3       |    |		.CONST	0x05c3								; Address of begin
05c1 0004       |    |		.CONST	0x0004								; Address of exception handler
05c2 0001       |    |		.CONST	0x0001								; Number of locals
05c3			BODY_05c0:
05c3			BODY_05c0:
05c3			INIT_05c0:
05c3			INIT_05c0:
05c3 00db       |    |		Load_Top	At_Offset_3
05c4 e403       |    |		Load	0x2,0x3
05c5 01c3       |    |		Execute	Vector,Check_In_Type
05c6 00db       |    |		Load_Top	At_Offset_3
05c7 e403       |    |		Load	0x2,0x3
05c8 01c3       |    |		Execute	Vector,Check_In_Type
05c9 8460       | `  |		Call	0x2,0x60
05ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
05cb 0000 0000  |    |		.BLANK	0000[0x5]
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 00da       |    |		Load_Top	At_Offset_2
05d4 e002       |    |		Load	0x0,0x2
05d5 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
05d6 00d9       |    |		Load_Top	At_Offset_1
05d7 00d0       |    |		Action	Swap_Control
05d8 0260       | `  |		Execute	Discrete,In_Type
05d9 7001       |p   |		Jump_Nonzero	0x5db
05da 0801       |    |		Execute_Immediate	Raise,0x1
05db e002       |    |		Load	0x0,0x2
05dc 183b       | ;  |		Execute	Package,Field_Execute,Field_Number 0x3b
05dd 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05de ; --------------------------------------------------------------------------------------
05de ; STRING TABLE
05de ; --------------------------------------------------------------------------------------
05de 0036       | 6  |		.STRTAB	0x0036->0x05f9							; "Enable"
05df 003a       | :  |		.STRTAB	0x003a->0x05fc							; "Input_Rate"
05e0 0042       | B  |		.STRTAB	0x0042->0x0601							; "Baud_9600"
05e1 0049       | I  |		.STRTAB	0x0049->0x0605							; "Output_Rate"
05e2 0052       | R  |		.STRTAB	0x0052->0x060b							; "Parity"
05e3 0056       | V  |		.STRTAB	0x0056->0x060e							; "Bits_Per_Char"
05e4 0061       | a  |		.STRTAB	0x0061->0x0614							; "Char_8"
05e5 0065       | e  |		.STRTAB	0x0065->0x0617							; "Stop_Bits"
05e6 006c       | l  |		.STRTAB	0x006c->0x061c							; "Flow_Control"
05e7 0076       | v  |		.STRTAB	0x0076->0x0622							; "None"
05e8 0078       | x  |		.STRTAB	0x0078->0x0624							; "Receive_Flow_Control"
05e9 008a       |    |		.STRTAB	0x008a->0x062e							; "Xon_Xoff"
05ea 0090       |    |		.STRTAB	0x0090->0x0632							; "Receive_Xon_Xoff"
05eb 009e       |    |		.STRTAB	0x009e->0x063a							; "An error occured creating the terminal configuration file, please check and correct by hand."
05ec 00f8       |    |		.STRTAB	0x00f8->0x0668							; " .."
05ed 00f9       |    |		.STRTAB	0x00f9->0x0669							; "The ports"
05ee 0100       |    |		.STRTAB	0x0100->0x066e							; " have been set to "
05ef 0110       |    |		.STRTAB	0x0110->0x0677							; "The port"
05f0 0116       |    |		.STRTAB	0x0116->0x067b							; " has been set to "
05f1 0125       | %  |		.STRTAB	0x0125->0x0683							; " => ("
05f2 0128       | (  |		.STRTAB	0x0128->0x0686							; " => "
05f3 012a       | *  |		.STRTAB	0x012a->0x0688							; ")"
05f4 0129       | )  |		.STRTAB	0x0129->0x0688							; " could not be set."
05f5 0139       | 9  |		.STRTAB	0x0139->0x0691							; "Char_"
05f6 013c       | <  |		.STRTAB	0x013c->0x0694							; "("
05f7 013b       | ;  |		.STRTAB	0x013b->0x0694							; ","
05f8 013a       | :  |		.STREND 0x013a->0x0695
05f9 456e 6162  |Enab|		.STRTAB_STRINGS
0695 0000 0000  |    |		.XXX[0x3]
0697 0000       |    |
0698 ; --------------------------------------------------------------------------------------
0698 ; Debug Table
0698 ; --------------------------------------------------------------------------------------
0698 0004 0002  |    |		.DEBUG4	0x0004,0x0002,0x0b8d,0x0000,0x0001,0x0000
069e 0000 0000  |    |		.BLANK	0000[0x1d]
06bb 4826 ad00  |H&  |		.XXX[0x1c]
06bd 000c 4e89  |  N |
06bf 0000 1000  |    |
06c1 c000 bd00  |    |
06c3 0000 020a  |    |
06c5 c000 0200  |    |
06c7 0000 0300  |    |
06c9 2800 0000  |(   |
06cb 0800 0002  |    |
06cd 0000 0011  |    |
06cf 0000 0000  |    |
06d1 0800 0000  |    |
06d3 5200 0010  |R   |
06d5 12ed 3000  |  0 |
06d7 0000 0000  |    |		.BLANK	0000[0x2a]
0701 0020 0500  |    |		.XXX[0xc]
0703 0000 0000  |    |
0705 0000 4000  |  @ |
0707 0002 2000  |    |
0709 0000 0100  |    |
070b 0000 0a00  |    |
070d 0000 0000  |    |		.BLANK	0000[0x2d]
073a 0004 00a0  |    |		.XXX[0xc]
073c 0000 0000  |    |
073e 0000 0800  |    |
0740 0000 4400  |  D |
0742 0000 0020  |    |
0744 0000 0140  |   @|
0746 0000 0000  |    |		.BLANK	0000[0x2e]
0774 8014 0000  |    |		.XXX[0xb]
0776 0000 0000  |    |
0778 0100 0000  |    |
077a 0880 0000  |    |
077c 0004 0000  |    |
077e 0028       | (  |
077f 0000 0000  |    |		.BLANK	0000[0x2e]
07ad 1002 8000  |    |		.XXX[0xb]
07af 0000 0000  |    |
07b1 0020 0000  |    |
07b3 0110 0000  |    |
07b5 0000 8000  |    |
07b7 0005       |    |
07b8 0000 0000  |    |		.BLANK	0000[0x48]