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

⟦29197e392⟧

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

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 03c8       |    |		.CONST	0x03c8								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8002       |    |		.CONST	0x8002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0091       |    |		.CONST	0x0091								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002d       | -  |		.CONST	0x002d								; Number of locals
000b			INIT_0008:
000b 00c4       |    |		Action	Make_Default
000c 00c4       |    |		Action	Make_Default
000d 00c4       |    |		Action	Make_Default
000e 00c4       |    |		Action	Make_Default
000f 00c4       |    |		Action	Make_Default
0010 00c4       |    |		Action	Make_Default
0011 00c4       |    |		Action	Make_Default
0012 00c4       |    |		Action	Make_Default
0013 00c4       |    |		Action	Make_Default
0014 00c4       |    |		Action	Make_Default
0015 00c4       |    |		Action	Make_Default
0016 00c4       |    |		Action	Make_Default
0017 00c4       |    |		Action	Make_Default
0018 00c4       |    |		Action	Make_Default
0019 00c4       |    |		Action	Make_Default
001a 00c4       |    |		Action	Make_Default
001b 00c4       |    |		Action	Make_Default
001c 00c4       |    |		Action	Make_Default
001d 00c4       |    |		Action	Make_Default
001e 00c4       |    |		Action	Make_Default
001f 00c4       |    |		Action	Make_Default
0020 00c4       |    |		Action	Make_Default
0021 00c4       |    |		Action	Make_Default
0022 00c4       |    |		Action	Make_Default
0023 00c4       |    |		Action	Make_Default
0024 00c4       |    |		Action	Make_Default
0025 00c4       |    |		Action	Make_Default
0026 00c4       |    |		Action	Make_Default
0027 00c4       |    |		Action	Make_Default
0028 00c4       |    |		Action	Make_Default
0029 00c4       |    |		Action	Make_Default
002a 00e9       |    |		Load_Encached	String_Cache
002b 02a0       |    |		Declare_Subprogram	Null_Subprogram
002c 4818       |H   |		Short_Literal	0x18
002d 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
002e c220       |    |		Store	0x1,0x20
002f e001       |    |		Load	0x0,0x1
0030 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0031 0129       | )  |		Execute	Any,Make_Visible
0032 c20e       |    |		Store	0x1,0xe
0033 e001       |    |		Load	0x0,0x1
0034 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0035 0129       | )  |		Execute	Any,Make_Visible
0036 c20f       |    |		Store	0x1,0xf
0037 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
0039 c210       |    |		Store	0x1,0x10
003a 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
003c c211       |    |		Store	0x1,0x11
003d 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
003f c22b       | +  |		Store	0x1,0x2b
0040 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0042 c212       |    |		Store	0x1,0x12
0043 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0045 c213       |    |		Store	0x1,0x13
0046 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0048 c224       | $  |		Store	0x1,0x24
0049 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
004b c225       | %  |		Store	0x1,0x25
004c 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
004e c216       |    |		Store	0x1,0x16
004f 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0051 c218       |    |		Store	0x1,0x18
0052 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0054 c21c       |    |		Store	0x1,0x1c
0055 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0057 c21d       |    |		Store	0x1,0x1d
0058 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
005a c22a       | *  |		Store	0x1,0x2a
005b 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
005d c229       | )  |		Store	0x1,0x29
005e 00bf       |    |		Action	Accept_Activation
005f e002       |    |		Load	0x0,0x2
0060 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0061 02c7       |    |		Declare_Variable	Any
0062 00d8       |    |		Load_Top	At_Offset_0
0063 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0064 4801       |H   |		Short_Literal	0x1
0065 4802       |H   |		Short_Literal	0x2
0066 e003       |    |		Load	0x0,0x3
0067 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0068 035b       | [  |		Declare_Type	Array,Constrained
0069 0337       | 7  |		Declare_Variable	Array
006a 00d8       |    |		Load_Top	At_Offset_0
006b 0335       | 5  |		Declare_Variable	Array,Duplicate
006c 00cd       |    |		Action	Spare6_Action
006d 4800       |H   |		Short_Literal	0x0
006e 4801       |H   |		Short_Literal	0x1
006f 00da       |    |		Load_Top	At_Offset_2
0070 01d6       |    |		Execute	Vector,Field_Write
0071 4800       |H   |		Short_Literal	0x0
0072 4802       |H   |		Short_Literal	0x2
0073 00da       |    |		Load_Top	At_Offset_2
0074 01d6       |    |		Execute	Vector,Field_Write
0075 00d9       |    |		Load_Top	At_Offset_1
0076 01d4       |    |		Execute	Vector,Structure_Write
0077 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
007c 00c7       |    |		Action	Elaborate_Subprogram
007d 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
007e 00c7       |    |		Action	Elaborate_Subprogram
007f 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0080 00c7       |    |		Action	Elaborate_Subprogram
0081 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0082 00c7       |    |		Action	Elaborate_Subprogram
0083 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0084 00c7       |    |		Action	Elaborate_Subprogram
0085 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0086 00c7       |    |		Action	Elaborate_Subprogram
0087 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0088 00c7       |    |		Action	Elaborate_Subprogram
0089 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
008a 00c7       |    |		Action	Elaborate_Subprogram
008b 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
008c 00c7       |    |		Action	Elaborate_Subprogram
008d 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
008e 00c7       |    |		Action	Elaborate_Subprogram
008f 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
0090 00c7       |    |		Action	Elaborate_Subprogram
0091			BODY_0008:
0091 00bc       |    |		Action	Signal_Activated
0092 00bb       |    |		Action	Signal_Completion
0093 0000 0000  |    |		.BLANK	0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a1       |    |		.CONST	0x00a1								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0003       |    |		.CONST	0x0003								; Number of locals
009b			INIT_0098:
009b 00da       |    |		Load_Top	At_Offset_2
009c 01da       |    |		Execute	Vector,Bounds
009d 00e9       |    |		Load_Encached	String_Cache
009e 035b       | [  |		Declare_Type	Array,Constrained
009f 0337       | 7  |		Declare_Variable	Array
00a0 00e3       |    |		Load_Encached	Natural_Cache
00a1			BODY_0098:
00a1 00cf       |    |		Action	Mark_Auxiliary
00a2 e5ff       |    |		Load	0x2,-0x1
00a3 01d9       |    |		Execute	Vector,Reverse_Bounds
00a4 0263       | c  |		Execute	Discrete,Above_Bound
00a5 7017       |p   |		Jump_Nonzero	0xbd
00a6 00d8       |    |		Load_Top	At_Offset_0
00a7 e5ff       |    |		Load	0x2,-0x1
00a8 01d7       |    |		Execute	Vector,Field_Read
00a9 a403       |    |		Store_Unchecked	0x2,0x3
00aa 00db       |    |		Load_Top	At_Offset_3
00ab 0d80       |    |		Execute_Immediate	Less,-0x80
00ac 680a       |h   |		Jump_Zero	0xb7
00ad 00db       |    |		Load_Top	At_Offset_3
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 00e8       |    |		Load_Encached	Character_Cache
00b0 0260       | `  |		Execute	Discrete,In_Type
00b1 7001       |p   |		Jump_Nonzero	0xb3
00b2 0801       |    |		Execute_Immediate	Raise,0x1
00b3 00d9       |    |		Load_Top	At_Offset_1
00b4 e402       |    |		Load	0x2,0x2
00b5 01d6       |    |		Execute	Vector,Field_Write
00b6 7804       |x   |		Jump	0xbb
00b7 4823       |H#  |		Short_Literal	0x23
00b8 00d9       |    |		Load_Top	At_Offset_1
00b9 e402       |    |		Load	0x2,0x2
00ba 01d6       |    |		Execute	Vector,Field_Write
00bb 00c8       |    |		Action	Pop_Auxiliary_Range
00bc 3fe9       |?   |		Loop_Increasing	0xa6
00bd 00ce       |    |		Action	Pop_Auxiliary
00be 00d9       |    |		Load_Top	At_Offset_1
00bf 00e9       |    |		Load_Encached	String_Cache
00c0 01c6       |    |		Execute	Vector,Convert_To_Formal
00c1 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c2 0000 0000  |    |		.BLANK	0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d0       |    |		.CONST	0x00d0								; Address of begin
00c9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ca 0002       |    |		.CONST	0x0002								; Number of locals
00cb			INIT_00c8:
00cb 00da       |    |		Load_Top	At_Offset_2
00cc 01da       |    |		Execute	Vector,Bounds
00cd e20f       |    |		Load	0x1,0xf
00ce 035b       | [  |		Declare_Type	Array,Constrained
00cf 0337       | 7  |		Declare_Variable	Array
00d0			BODY_00c8:
00d0 00cf       |    |		Action	Mark_Auxiliary
00d1 e5ff       |    |		Load	0x2,-0x1
00d2 01d9       |    |		Execute	Vector,Reverse_Bounds
00d3 0263       | c  |		Execute	Discrete,Above_Bound
00d4 700e       |p   |		Jump_Nonzero	0xe3
00d5 00d8       |    |		Load_Top	At_Offset_0
00d6 e5ff       |    |		Load	0x2,-0x1
00d7 01d7       |    |		Execute	Vector,Field_Read
00d8 00d8       |    |		Load_Top	At_Offset_0
00d9 e004       |    |		Load	0x0,0x4
00da 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00db 0260       | `  |		Execute	Discrete,In_Type
00dc 7001       |p   |		Jump_Nonzero	0xde
00dd 0801       |    |		Execute_Immediate	Raise,0x1
00de 00d9       |    |		Load_Top	At_Offset_1
00df e402       |    |		Load	0x2,0x2
00e0 01d6       |    |		Execute	Vector,Field_Write
00e1 00c8       |    |		Action	Pop_Auxiliary_Range
00e2 3ff2       |?   |		Loop_Increasing	0xd5
00e3 00ce       |    |		Action	Pop_Auxiliary
00e4 00d8       |    |		Load_Top	At_Offset_0
00e5 e004       |    |		Load	0x0,0x4
00e6 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00e7 01c6       |    |		Execute	Vector,Convert_To_Formal
00e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e9 0000 0000  |    |		.BLANK	0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00fe       |    |		.CONST	0x00fe								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0003       |    |		.CONST	0x0003								; Number of locals
00f3			INIT_00f0:
00f3 4801       |H   |		Short_Literal	0x1
00f4 4802       |H   |		Short_Literal	0x2
00f5 e003       |    |		Load	0x0,0x3
00f6 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00f7 035b       | [  |		Declare_Type	Array,Constrained
00f8 0337       | 7  |		Declare_Variable	Array
00f9 e005       |    |		Load	0x0,0x5
00fa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fb 02c7       |    |		Declare_Variable	Any
00fc 00d8       |    |		Load_Top	At_Offset_0
00fd 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00fe			BODY_00f0:
00fe 00d8       |    |		Load_Top	At_Offset_0
00ff 0120       |    |		Execute	Any,Is_Value
0100 6803       |h   |		Jump_Zero	0x104
0101 e005       |    |		Load	0x0,0x5
0102 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0103 7801       |x   |		Jump	0x105
0104 00d8       |    |		Load_Top	At_Offset_0
0105 e004       |    |		Load	0x0,0x4
0106 1b23       | #  |		Execute	Package,Field_Read,Field_Number 0x23
0107 e005       |    |		Load	0x0,0x5
0108 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0109 e005       |    |		Load	0x0,0x5
010a 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
010b c403       |    |		Store	0x2,0x3
010c 4801       |H   |		Short_Literal	0x1
010d 00d9       |    |		Load_Top	At_Offset_1
010e e005       |    |		Load	0x0,0x5
010f 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0110 0a02       |    |		Execute_Immediate	Plus,0x2
0111 00d8       |    |		Load_Top	At_Offset_0
0112 e004       |    |		Load	0x0,0x4
0113 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0114 0260       | `  |		Execute	Discrete,In_Type
0115 7001       |p   |		Jump_Nonzero	0x117
0116 0801       |    |		Execute_Immediate	Raise,0x1
0117 4801       |H   |		Short_Literal	0x1
0118 00db       |    |		Load_Top	At_Offset_3
0119 01d6       |    |		Execute	Vector,Field_Write
011a 48ff       |H   |		Short_Literal	0xff
011b 00d9       |    |		Load_Top	At_Offset_1
011c e005       |    |		Load	0x0,0x5
011d 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
011e 00d8       |    |		Load_Top	At_Offset_0
011f e004       |    |		Load	0x0,0x4
0120 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0121 0260       | `  |		Execute	Discrete,In_Type
0122 7001       |p   |		Jump_Nonzero	0x124
0123 0801       |    |		Execute_Immediate	Raise,0x1
0124 4802       |H   |		Short_Literal	0x2
0125 00db       |    |		Load_Top	At_Offset_3
0126 01d6       |    |		Execute	Vector,Field_Write
0127 00d9       |    |		Load_Top	At_Offset_1
0128 e22d       | -  |		Load	0x1,0x2d
0129 01d4       |    |		Execute	Vector,Structure_Write
012a 00d9       |    |		Load_Top	At_Offset_1
012b e003       |    |		Load	0x0,0x3
012c 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
012d 01c6       |    |		Execute	Vector,Convert_To_Formal
012e 00ca       |    |		Action	Exit_Nullary_Function
012f 0000       |    |		.XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0135       | 5  |		.CONST	0x0135								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0002       |    |		.CONST	0x0002								; Number of locals
0133			INIT_0130:
0133 e20e       |    |		Load	0x1,0xe
0134 0007       |    |		Action	Break_Optional
0135			BODY_0130:
0135 00db       |    |		Load_Top	At_Offset_3
0136 01dc       |    |		Execute	Vector,Last
0137 e5ff       |    |		Load	0x2,-0x1
0138 01d7       |    |		Execute	Vector,Field_Read
0139 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
013a 00d8       |    |		Load_Top	At_Offset_0
013b 0dff       |    |		Execute_Immediate	Less,-0x1
013c 6809       |h   |		Jump_Zero	0x146
013d 00d8       |    |		Load_Top	At_Offset_0
013e 0a01       |    |		Execute_Immediate	Plus,0x1
013f 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0140 00d8       |    |		Load_Top	At_Offset_0
0141 e5ff       |    |		Load	0x2,-0x1
0142 01dc       |    |		Execute	Vector,Last
0143 e5ff       |    |		Load	0x2,-0x1
0144 01d6       |    |		Execute	Vector,Field_Write
0145 781b       |x   |		Jump	0x161
0146 4800       |H   |		Short_Literal	0x0
0147 e5ff       |    |		Load	0x2,-0x1
0148 01dc       |    |		Execute	Vector,Last
0149 e5ff       |    |		Load	0x2,-0x1
014a 01d6       |    |		Execute	Vector,Field_Write
014b 00db       |    |		Load_Top	At_Offset_3
014c 01dd       |    |		Execute	Vector,First
014d e5ff       |    |		Load	0x2,-0x1
014e 01d7       |    |		Execute	Vector,Field_Read
014f 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0150 00d8       |    |		Load_Top	At_Offset_0
0151 0d03       |    |		Execute_Immediate	Less,0x3
0152 6809       |h   |		Jump_Zero	0x15c
0153 00d8       |    |		Load_Top	At_Offset_0
0154 0a01       |    |		Execute_Immediate	Plus,0x1
0155 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0156 00d8       |    |		Load_Top	At_Offset_0
0157 e5ff       |    |		Load	0x2,-0x1
0158 01dd       |    |		Execute	Vector,First
0159 e5ff       |    |		Load	0x2,-0x1
015a 01d6       |    |		Execute	Vector,Field_Write
015b 7805       |x   |		Jump	0x161
015c 4802       |H   |		Short_Literal	0x2
015d e5ff       |    |		Load	0x2,-0x1
015e 01dd       |    |		Execute	Vector,First
015f e5ff       |    |		Load	0x2,-0x1
0160 01d6       |    |		Execute	Vector,Field_Write
0161 00db       |    |		Load_Top	At_Offset_3
0162 e22d       | -  |		Load	0x1,0x2d
0163 01df       |    |		Execute	Vector,Equal
0164 6803       |h   |		Jump_Zero	0x168
0165 4802       |H   |		Short_Literal	0x2
0166 a5fe       |    |		Store_Unchecked	0x2,-0x2
0167 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0168 4800       |H   |		Short_Literal	0x0
0169 a5fe       |    |		Store_Unchecked	0x2,-0x2
016a 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
016b 0000 0000  |    |		.BLANK	0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0177       | w  |		.CONST	0x0177								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0003       |    |		.CONST	0x0003								; Number of locals
0173			INIT_0170:
0173 00e5       |    |		Load_Encached	Long_Integer_Cache
0174 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0175 029f 033b  |   ;|		Declare_Subprogram	INIT_0338,For_Call
0177			BODY_0170:
0177 00cf       |    |		Action	Mark_Auxiliary
0178 e5ff       |    |		Load	0x2,-0x1
0179 01d9       |    |		Execute	Vector,Reverse_Bounds
017a 0263       | c  |		Execute	Discrete,Above_Bound
017b 7009       |p   |		Jump_Nonzero	0x185
017c e402       |    |		Load	0x2,0x2
017d 0908       |    |		Execute_Immediate	Binary_Scale,0x8
017e 00d9       |    |		Load_Top	At_Offset_1
017f e5ff       |    |		Load	0x2,-0x1
0180 01d7       |    |		Execute	Vector,Field_Read
0181 0273       | s  |		Execute	Discrete,Plus
0182 a402       |    |		Store_Unchecked	0x2,0x2
0183 00c8       |    |		Action	Pop_Auxiliary_Range
0184 3ff7       |?   |		Loop_Increasing	0x17c
0185 00ce       |    |		Action	Pop_Auxiliary
0186 8403       |    |		Call	0x2,0x3
0187 0831       | 1  |		Execute_Immediate	Raise,0x31
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 0191       |    |		.CONST	0x0191								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0002       |    |		.CONST	0x0002								; Number of locals
018b			INIT_0188:
018b e006       |    |		Load	0x0,0x6
018c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018e 02c7       |    |		Declare_Variable	Any
018f 00d8       |    |		Load_Top	At_Offset_0
0190 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0191			BODY_0188:
0191 e5fe       |    |		Load	0x2,-0x2
0192 01db       |    |		Execute	Vector,Length
0193 6804       |h   |		Jump_Zero	0x198
0194 e5fe       |    |		Load	0x2,-0x2
0195 0335       | 5  |		Declare_Variable	Array,Duplicate
0196 00cd       |    |		Action	Spare6_Action
0197 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0198 4801       |H   |		Short_Literal	0x1
0199 e006       |    |		Load	0x0,0x6
019a 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
019b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
019c e5ff       |    |		Load	0x2,-0x1
019d e006       |    |		Load	0x0,0x6
019e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
019f 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01a0 c402       |    |		Store	0x2,0x2
01a1 00d8       |    |		Load_Top	At_Offset_0
01a2 e006       |    |		Load	0x0,0x6
01a3 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a4 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
01a5 6805       |h   |		Jump_Zero	0x1ab
01a6 00d8       |    |		Load_Top	At_Offset_0
01a7 e006       |    |		Load	0x0,0x6
01a8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01a9 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
01aa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ab 00ea       |    |		Load_Encached	Null_String_Cache
01ac 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01ad 0000 0000  |    |		.XXX[0x3]
01af 0000       |    |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3       |    |		.CONST	0x01b3								; Address of begin
01b1 0004       |    |		.CONST	0x0004								; Address of exception handler
01b2 0001       |    |		.CONST	0x0001								; Number of locals
01b3			BODY_01b0:
01b3			INIT_01b0:
01b3 0092 034f  |   O|		Action	Push_String_Extended,0x34f					; "cd "
01b5 e5fe       |    |		Load	0x2,-0x2
01b6 01cc       |    |		Execute	Vector,Catenate
01b7 0092 0350  |   P|		Action	Push_String_Extended,0x350					; "; "
01b9 01cc       |    |		Execute	Vector,Catenate
01ba 00db       |    |		Load_Top	At_Offset_3
01bb 01cc       |    |		Execute	Vector,Catenate
01bc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01bd 0000 0000  |    |		.XXX[0x3]
01bf 0000       |    |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3       |    |		.CONST	0x01c3								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0001       |    |		.CONST	0x0001								; Number of locals
01c3			BODY_01c0:
01c3			INIT_01c0:
01c3 00da       |    |		Load_Top	At_Offset_2
01c4 4801       |H   |		Short_Literal	0x1
01c5 e007       |    |		Load	0x0,0x7
01c6 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
01c7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 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 00da       |    |		Load_Top	At_Offset_2
01cc e007       |    |		Load	0x0,0x7
01cd 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01ce 6803       |h   |		Jump_Zero	0x1d2
01cf e007       |    |		Load	0x0,0x7
01d0 1b47       | G  |		Execute	Package,Field_Read,Field_Number 0x47
01d1 0257       | W  |		Execute	Discrete,Raise
01d2 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01d3 0000 0000  |    |		.BLANK	0000[0x5]
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 4801       |H   |		Short_Literal	0x1
01dc e5fe       |    |		Load	0x2,-0x2
01dd e5ff       |    |		Load	0x2,-0x1
01de e008       |    |		Load	0x0,0x8
01df 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01e0 6804       |h   |		Jump_Zero	0x1e5
01e1 e5fd       |    |		Load	0x2,-0x3
01e2 0335       | 5  |		Declare_Variable	Array,Duplicate
01e3 00cd       |    |		Action	Spare6_Action
01e4 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01e5 00ea       |    |		Load_Encached	Null_String_Cache
01e6 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
01e7 0000       |    |		.XXX[0x1]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb       |    |		.CONST	0x01eb								; Address of begin
01e9 0004       |    |		.CONST	0x0004								; Address of exception handler
01ea 0001       |    |		.CONST	0x0001								; Number of locals
01eb			BODY_01e8:
01eb			INIT_01e8:
01eb 4801       |H   |		Short_Literal	0x1
01ec 0092 0351  |   Q|		Action	Push_String_Extended,0x351					; "<WINDOW>"
01ee e5ff       |    |		Load	0x2,-0x1
01ef e008       |    |		Load	0x0,0x8
01f0 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01f1 6818       |h   |		Jump_Zero	0x20a
01f2 0092 0352  |   R|		Action	Push_String_Extended,0x352					; "Input_"
01f4 0092 0351  |   Q|		Action	Push_String_Extended,0x351					; "<WINDOW>"
01f6 e5fe       |    |		Load	0x2,-0x2
01f7 821c       |    |		Call	0x1,0x1c
01f8 0092 0353  |   S|		Action	Push_String_Extended,0x353					; "Output_"
01fa 0092 0351  |   Q|		Action	Push_String_Extended,0x351					; "<WINDOW>"
01fc e5fd       |    |		Load	0x2,-0x3
01fd 821c       |    |		Call	0x1,0x1c
01fe 01cc       |    |		Execute	Vector,Catenate
01ff 0092 0354  |   T|		Action	Push_String_Extended,0x354					; "Error_"
0201 0092 0351  |   Q|		Action	Push_String_Extended,0x351					; "<WINDOW>"
0203 e5fc       |    |		Load	0x2,-0x4
0204 821c       |    |		Call	0x1,0x1c
0205 01cc       |    |		Execute	Vector,Catenate
0206 0092 0355  |   U|		Action	Push_String_Extended,0x355					; "Window"
0208 01cc       |    |		Execute	Vector,Catenate
0209 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
020a 4801       |H   |		Short_Literal	0x1
020b 0092 0356  |   V|		Action	Push_String_Extended,0x356					; "<WINDOW_A>"
020d e5ff       |    |		Load	0x2,-0x1
020e e008       |    |		Load	0x0,0x8
020f 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0210 6818       |h   |		Jump_Zero	0x229
0211 0092 0352  |   R|		Action	Push_String_Extended,0x352					; "Input_"
0213 0092 0356  |   V|		Action	Push_String_Extended,0x356					; "<WINDOW_A>"
0215 e5fe       |    |		Load	0x2,-0x2
0216 821c       |    |		Call	0x1,0x1c
0217 0092 0353  |   S|		Action	Push_String_Extended,0x353					; "Output_"
0219 0092 0356  |   V|		Action	Push_String_Extended,0x356					; "<WINDOW_A>"
021b e5fd       |    |		Load	0x2,-0x3
021c 821c       |    |		Call	0x1,0x1c
021d 01cc       |    |		Execute	Vector,Catenate
021e 0092 0354  |   T|		Action	Push_String_Extended,0x354					; "Error_"
0220 0092 0356  |   V|		Action	Push_String_Extended,0x356					; "<WINDOW_A>"
0222 e5fc       |    |		Load	0x2,-0x4
0223 821c       |    |		Call	0x1,0x1c
0224 01cc       |    |		Execute	Vector,Catenate
0225 0092 0357  |   W|		Action	Push_String_Extended,0x357					; "Window_A"
0227 01cc       |    |		Execute	Vector,Catenate
0228 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0229 4801       |H   |		Short_Literal	0x1
022a 0092 0358  |   X|		Action	Push_String_Extended,0x358					; "<WINDOW_B>"
022c e5ff       |    |		Load	0x2,-0x1
022d e008       |    |		Load	0x0,0x8
022e 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
022f 6818       |h   |		Jump_Zero	0x248
0230 0092 0352  |   R|		Action	Push_String_Extended,0x352					; "Input_"
0232 0092 0358  |   X|		Action	Push_String_Extended,0x358					; "<WINDOW_B>"
0234 e5fe       |    |		Load	0x2,-0x2
0235 821c       |    |		Call	0x1,0x1c
0236 0092 0353  |   S|		Action	Push_String_Extended,0x353					; "Output_"
0238 0092 0358  |   X|		Action	Push_String_Extended,0x358					; "<WINDOW_B>"
023a e5fd       |    |		Load	0x2,-0x3
023b 821c       |    |		Call	0x1,0x1c
023c 01cc       |    |		Execute	Vector,Catenate
023d 0092 0354  |   T|		Action	Push_String_Extended,0x354					; "Error_"
023f 0092 0358  |   X|		Action	Push_String_Extended,0x358					; "<WINDOW_B>"
0241 e5fc       |    |		Load	0x2,-0x4
0242 821c       |    |		Call	0x1,0x1c
0243 01cc       |    |		Execute	Vector,Catenate
0244 0092 0359  |   Y|		Action	Push_String_Extended,0x359					; "Window_B"
0246 01cc       |    |		Execute	Vector,Catenate
0247 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0248 00ea       |    |		Load_Encached	Null_String_Cache
0249 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
024a 0000 0000  |    |		.BLANK	0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0259       | Y  |		.CONST	0x0259								; Address of begin
0251 0299       |    |		.CONST	0x0299								; Address of exception handler
0252 0002       |    |		.CONST	0x0002								; Number of locals
0253			INIT_0250:
0253 e006       |    |		Load	0x0,0x6
0254 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0255 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0256 02c7       |    |		Declare_Variable	Any
0257 00d8       |    |		Load_Top	At_Offset_0
0258 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0259			BODY_0250:
0259 e220       |    |		Load	0x1,0x20
025a a5fc       |    |		Store_Unchecked	0x2,-0x4
025b 00db       |    |		Load_Top	At_Offset_3
025c 01db       |    |		Execute	Vector,Length
025d 7038       |p8  |		Jump_Nonzero	0x296
025e e5fe       |    |		Load	0x2,-0x2
025f 01db       |    |		Execute	Vector,Length
0260 680e       |h   |		Jump_Zero	0x26f
0261 4801       |H   |		Short_Literal	0x1
0262 0092 035a  |   Z|		Action	Push_String_Extended,0x35a					; "<NONE>"
0264 e5fe       |    |		Load	0x2,-0x2
0265 e008       |    |		Load	0x0,0x8
0266 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
0267 7007       |p   |		Jump_Nonzero	0x26f
0268 4801       |H   |		Short_Literal	0x1
0269 0092 035b  |   [|		Action	Push_String_Extended,0x35b					; "<DEFAULT>"
026b e5fe       |    |		Load	0x2,-0x2
026c e008       |    |		Load	0x0,0x8
026d 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
026e 6803       |h   |		Jump_Zero	0x272
026f e22c       | ,  |		Load	0x1,0x2c
0270 c5fb       |    |		Store	0x2,-0x5
0271 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0272 4801       |H   |		Short_Literal	0x1
0273 e006       |    |		Load	0x0,0x6
0274 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0275 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0276 e5fe       |    |		Load	0x2,-0x2
0277 e006       |    |		Load	0x0,0x6
0278 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0279 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
027a c402       |    |		Store	0x2,0x2
027b 00d8       |    |		Load_Top	At_Offset_0
027c e006       |    |		Load	0x0,0x6
027d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
027e 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
027f 680e       |h   |		Jump_Zero	0x28e
0280 e5fb       |    |		Load	0x2,-0x5
0281 e5fd       |    |		Load	0x2,-0x3
0282 e009       |    |		Load	0x0,0x9
0283 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0284 00ea       |    |		Load_Encached	Null_String_Cache
0285 e402       |    |		Load	0x2,0x2
0286 e006       |    |		Load	0x0,0x6
0287 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0288 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0289 4800       |H   |		Short_Literal	0x0
028a e002       |    |		Load	0x0,0x2
028b 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
028c c5fb       |    |		Store	0x2,-0x5
028d 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
028e 0092 035c  |   \|		Action	Push_String_Extended,0x35c					; "input file does not exist: "
0290 e5fe       |    |		Load	0x2,-0x2
0291 01cc       |    |		Execute	Vector,Catenate
0292 e220       |    |		Load	0x1,0x20
0293 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0294 a5fc       |    |		Store_Unchecked	0x2,-0x4
0295 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0296 e22c       | ,  |		Load	0x1,0x2c
0297 c5fb       |    |		Store	0x2,-0x5
0298 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0299			TRAP_0250:
0299 0007       |    |		Action	Break_Optional
029a 0092 035d  |   ]|		Action	Push_String_Extended,0x35d					; "unable to open input file "
029c e5fe       |    |		Load	0x2,-0x2
029d 01cc       |    |		Execute	Vector,Catenate
029e 0092 035e  |   ^|		Action	Push_String_Extended,0x35e					; " -- "
02a0 01cc       |    |		Execute	Vector,Catenate
02a1 4800       |H   |		Short_Literal	0x0
02a2 4801       |H   |		Short_Literal	0x1
02a3 e00a       |    |		Load	0x0,0xa
02a4 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
02a5 01cc       |    |		Execute	Vector,Catenate
02a6 0092 035f  |   _|		Action	Push_String_Extended,0x35f					; " raised"
02a8 01cc       |    |		Execute	Vector,Catenate
02a9 e220       |    |		Load	0x1,0x20
02aa 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
02ab a5fc       |    |		Store_Unchecked	0x2,-0x4
02ac 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02ad 0000 0000  |    |		.XXX[0x3]
02af 0000       |    |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b9       |    |		.CONST	0x02b9								; Address of begin
02b1 031d       |    |		.CONST	0x031d								; Address of exception handler
02b2 0002       |    |		.CONST	0x0002								; Number of locals
02b3			INIT_02b0:
02b3 e006       |    |		Load	0x0,0x6
02b4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02b5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02b6 02c7       |    |		Declare_Variable	Any
02b7 00d8       |    |		Load_Top	At_Offset_0
02b8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02b9			BODY_02b0:
02b9 e220       |    |		Load	0x1,0x20
02ba a5fc       |    |		Store_Unchecked	0x2,-0x4
02bb 00db       |    |		Load_Top	At_Offset_3
02bc 01db       |    |		Execute	Vector,Length
02bd 705c       |p\  |		Jump_Nonzero	0x31a
02be e5fe       |    |		Load	0x2,-0x2
02bf 01db       |    |		Execute	Vector,Length
02c0 680e       |h   |		Jump_Zero	0x2cf
02c1 4801       |H   |		Short_Literal	0x1
02c2 0092 035a  |   Z|		Action	Push_String_Extended,0x35a					; "<NONE>"
02c4 e5fe       |    |		Load	0x2,-0x2
02c5 e008       |    |		Load	0x0,0x8
02c6 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02c7 7007       |p   |		Jump_Nonzero	0x2cf
02c8 4801       |H   |		Short_Literal	0x1
02c9 0092 035b  |   [|		Action	Push_String_Extended,0x35b					; "<DEFAULT>"
02cb e5fe       |    |		Load	0x2,-0x2
02cc e008       |    |		Load	0x0,0x8
02cd 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
02ce 6803       |h   |		Jump_Zero	0x2d2
02cf e22c       | ,  |		Load	0x1,0x2c
02d0 c5fb       |    |		Store	0x2,-0x5
02d1 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02d2 4801       |H   |		Short_Literal	0x1
02d3 e006       |    |		Load	0x0,0x6
02d4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02d5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02d6 e5fe       |    |		Load	0x2,-0x2
02d7 e006       |    |		Load	0x0,0x6
02d8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02d9 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
02da c402       |    |		Store	0x2,0x2
02db 00d8       |    |		Load_Top	At_Offset_0
02dc e006       |    |		Load	0x0,0x6
02dd 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
02de 1837       | 7  |		Execute	Package,Field_Execute,Field_Number 0x37
02df 681f       |h   |		Jump_Zero	0x2ff
02e0 e5fd       |    |		Load	0x2,-0x3
02e1 680e       |h   |		Jump_Zero	0x2f0
02e2 e5fb       |    |		Load	0x2,-0x5
02e3 e00b       |    |		Load	0x0,0xb
02e4 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02e5 e009       |    |		Load	0x0,0x9
02e6 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02e7 00ea       |    |		Load_Encached	Null_String_Cache
02e8 e402       |    |		Load	0x2,0x2
02e9 e006       |    |		Load	0x0,0x6
02ea 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02eb 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
02ec e002       |    |		Load	0x0,0x2
02ed 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02ee c5fb       |    |		Store	0x2,-0x5
02ef 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02f0 e5fb       |    |		Load	0x2,-0x5
02f1 e00b       |    |		Load	0x0,0xb
02f2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02f3 e009       |    |		Load	0x0,0x9
02f4 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02f5 00ea       |    |		Load_Encached	Null_String_Cache
02f6 e402       |    |		Load	0x2,0x2
02f7 e006       |    |		Load	0x0,0x6
02f8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02f9 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
02fa 4801       |H   |		Short_Literal	0x1
02fb e002       |    |		Load	0x0,0x2
02fc 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02fd c5fb       |    |		Store	0x2,-0x5
02fe 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
02ff e5fe       |    |		Load	0x2,-0x2
0300 e006       |    |		Load	0x0,0x6
0301 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0302 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0303 680e       |h   |		Jump_Zero	0x312
0304 e5fb       |    |		Load	0x2,-0x5
0305 e00b       |    |		Load	0x0,0xb
0306 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0307 e009       |    |		Load	0x0,0x9
0308 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0309 e009       |    |		Load	0x0,0x9
030a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
030b 00ea       |    |		Load_Encached	Null_String_Cache
030c e5fe       |    |		Load	0x2,-0x2
030d 4801       |H   |		Short_Literal	0x1
030e e002       |    |		Load	0x0,0x2
030f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0310 c5fb       |    |		Store	0x2,-0x5
0311 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0312 0092 0360  |   `|		Action	Push_String_Extended,0x360					; "Ill formed name: "
0314 e5fe       |    |		Load	0x2,-0x2
0315 01cc       |    |		Execute	Vector,Catenate
0316 e220       |    |		Load	0x1,0x20
0317 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0318 a5fc       |    |		Store_Unchecked	0x2,-0x4
0319 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
031a e22c       | ,  |		Load	0x1,0x2c
031b c5fb       |    |		Store	0x2,-0x5
031c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
031d			TRAP_02b0:
031d 0007       |    |		Action	Break_Optional
031e 0092 0361  |   a|		Action	Push_String_Extended,0x361					; "unable to open file "
0320 e5fe       |    |		Load	0x2,-0x2
0321 01cc       |    |		Execute	Vector,Catenate
0322 0092 0362  |   b|		Action	Push_String_Extended,0x362					; " --- "
0324 01cc       |    |		Execute	Vector,Catenate
0325 4800       |H   |		Short_Literal	0x0
0326 4801       |H   |		Short_Literal	0x1
0327 e00a       |    |		Load	0x0,0xa
0328 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0329 01cc       |    |		Execute	Vector,Catenate
032a 0092 035f  |   _|		Action	Push_String_Extended,0x35f					; " raised"
032c 01cc       |    |		Execute	Vector,Catenate
032d e220       |    |		Load	0x1,0x20
032e 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
032f a5fc       |    |		Store_Unchecked	0x2,-0x4
0330 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0331 0000 0000  |    |		.BLANK	0000[0x7]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033e       | >  |		.CONST	0x033e								; Address of begin
0339 0004       |    |		.CONST	0x0004								; Address of exception handler
033a 0002       |    |		.CONST	0x0002								; Number of locals
033b			INIT_0338:
033b e402       |    |		Load	0x2,0x2
033c 00e0       |    |		Load_Encached	Standard_Cache
033d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
033e			BODY_0338:
033e 4800       |H   |		Short_Literal	0x0
033f 00d9       |    |		Load_Top	At_Offset_1
0340 01dd       |    |		Execute	Vector,First
0341 0a01       |    |		Execute_Immediate	Plus,0x1
0342 00d8       |    |		Load_Top	At_Offset_0
0343 00e2       |    |		Load_Encached	Integer_Cache
0344 0260       | `  |		Execute	Discrete,In_Type
0345 7001       |p   |		Jump_Nonzero	0x347
0346 0801       |    |		Execute_Immediate	Raise,0x1
0347 00da       |    |		Load_Top	At_Offset_2
0348 01dc       |    |		Execute	Vector,Last
0349 00db       |    |		Load_Top	At_Offset_3
034a 01cf       |    |		Execute	Vector,Slice_Read
034b 01cb       |    |		Execute	Vector,Append
034c 8211       |    |		Call	0x1,0x11
034d 00cb       |    |		Action	Pop_Block_With_Result
034e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
034f ; --------------------------------------------------------------------------------------
034f ; STRING TABLE
034f ; --------------------------------------------------------------------------------------
034f 002a       | *  |		.STRTAB	0x002a->0x0364							; "cd "
0350 002b       | +  |		.STRTAB	0x002b->0x0365							; "; "
0351 002b       | +  |		.STRTAB	0x002b->0x0366							; "<WINDOW>"
0352 0031       | 1  |		.STRTAB	0x0031->0x036a							; "Input_"
0353 0035       | 5  |		.STRTAB	0x0035->0x036d							; "Output_"
0354 003a       | :  |		.STRTAB	0x003a->0x0371							; "Error_"
0355 003e       | >  |		.STRTAB	0x003e->0x0374							; "Window"
0356 0042       | B  |		.STRTAB	0x0042->0x0377							; "<WINDOW_A>"
0357 004a       | J  |		.STRTAB	0x004a->0x037c							; "Window_A"
0358 0050       | P  |		.STRTAB	0x0050->0x0380							; "<WINDOW_B>"
0359 0058       | X  |		.STRTAB	0x0058->0x0385							; "Window_B"
035a 005e       | ^  |		.STRTAB	0x005e->0x0389							; "<NONE>"
035b 0062       | b  |		.STRTAB	0x0062->0x038c							; "<DEFAULT>"
035c 0069       | i  |		.STRTAB	0x0069->0x0390							; "input file does not exist: "
035d 0082       |    |		.STRTAB	0x0082->0x039e							; "unable to open input file "
035e 009a       |    |		.STRTAB	0x009a->0x03ab							; " -- "
035f 009c       |    |		.STRTAB	0x009c->0x03ad							; " raised"
0360 00a1       |    |		.STRTAB	0x00a1->0x03b0							; "Ill formed name: "
0361 00b0       |    |		.STRTAB	0x00b0->0x03b9							; "unable to open file "
0362 00c2       |    |		.STRTAB	0x00c2->0x03c3							; " --- "
0363 00c5       |    |		.STREND 0x00c5->0x03c5
0364 6364 203b  |cd ;|		.STRTAB_STRINGS
03c6 0000 0000  |    |		.XXX[0x2]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug Table
03c8 ; --------------------------------------------------------------------------------------
03c8 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x8024,0x0000,0x0001,0x0000
03ce 0000 0000  |    |		.XXX[0x3]
03d0 0000       |    |
03d1 a76c 0308  | l  |		.XXX[0x2]
03d3 0000 0000  |    |		.BLANK	0000[0x4]
03d7 a76c 6f08  | lo |		.XXX[0x2]
03d9 0000 0000  |    |		.BLANK	0000[0x4]
03dd a76d 6308  | mc |		.XXX[0x2]
03df 0000 0000  |    |		.BLANK	0000[0x4]
03e3 a76d b708  | m  |		.XXX[0x2]
03e5 0000 0000  |    |		.BLANK	0000[0x4]
03e9 a76e 0308  | n  |		.XXX[0x2]
03eb 0000 0000  |    |		.BLANK	0000[0x4]
03ef a76e 5308  | nS |		.XXX[0x2]
03f1 0000 0000  |    |		.BLANK	0000[0x4]
03f5 a76e a308  | n  |		.XXX[0x2]
03f7 0000 0000  |    |		.BLANK	0000[0x4]
03fb a76e ef08  | n  |		.XXX[0x5]
03fd 0000 0000  |    |
03ff 0000       |    |