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

⟦51f711873⟧

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 03c0       |    |		.CONST	0x03c0								; 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 0092       |    |		.CONST	0x0092								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 002e       | .  |		.CONST	0x002e								; 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 00c4       |    |		Action	Make_Default
002b 00e9       |    |		Load_Encached	String_Cache
002c 02a0       |    |		Declare_Subprogram	Null_Subprogram
002d 4818       |H   |		Short_Literal	0x18
002e 03d4       |    |		Declare_Type	Access,Defined,Visible,Accesses_Protected
002f c220       |    |		Store	0x1,0x20
0030 e001       |    |		Load	0x0,0x1
0031 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0032 0129       | )  |		Execute	Any,Make_Visible
0033 c20e       |    |		Store	0x1,0xe
0034 e001       |    |		Load	0x0,0x1
0035 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0036 0129       | )  |		Execute	Any,Make_Visible
0037 c20f       |    |		Store	0x1,0xf
0038 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
003a c210       |    |		Store	0x1,0x10
003b 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
003d c211       |    |		Store	0x1,0x11
003e 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
0040 c22b       | +  |		Store	0x1,0x2b
0041 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0043 c212       |    |		Store	0x1,0x12
0044 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
0046 c213       |    |		Store	0x1,0x13
0047 029a 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call,Visible,Unelaborated
0049 c224       | $  |		Store	0x1,0x24
004a 029a 01b3  |    |		Declare_Subprogram	INIT_01b0,For_Outer_Call,Visible,Unelaborated
004c c225       | %  |		Store	0x1,0x25
004d 029a 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call,Visible,Unelaborated
004f c216       |    |		Store	0x1,0x16
0050 029a 01cb  |    |		Declare_Subprogram	INIT_01c8,For_Outer_Call,Visible,Unelaborated
0052 c218       |    |		Store	0x1,0x18
0053 029a 01db  |    |		Declare_Subprogram	INIT_01d8,For_Outer_Call,Visible,Unelaborated
0055 c21c       |    |		Store	0x1,0x1c
0056 029a 01eb  |    |		Declare_Subprogram	INIT_01e8,For_Outer_Call,Visible,Unelaborated
0058 c21d       |    |		Store	0x1,0x1d
0059 029a 0253  |   S|		Declare_Subprogram	INIT_0250,For_Outer_Call,Visible,Unelaborated
005b c22a       | *  |		Store	0x1,0x2a
005c 029a 02b3  |    |		Declare_Subprogram	INIT_02b0,For_Outer_Call,Visible,Unelaborated
005e c22c       | ,  |		Store	0x1,0x2c
005f 00bf       |    |		Action	Accept_Activation
0060 e002       |    |		Load	0x0,0x2
0061 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0062 02c7       |    |		Declare_Variable	Any
0063 00d8       |    |		Load_Top	At_Offset_0
0064 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0065 4801       |H   |		Short_Literal	0x1
0066 4802       |H   |		Short_Literal	0x2
0067 e003       |    |		Load	0x0,0x3
0068 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0069 035b       | [  |		Declare_Type	Array,Constrained
006a 0337       | 7  |		Declare_Variable	Array
006b 00d8       |    |		Load_Top	At_Offset_0
006c 0335       | 5  |		Declare_Variable	Array,Duplicate
006d 00cd       |    |		Action	Spare6_Action
006e 4800       |H   |		Short_Literal	0x0
006f 4801       |H   |		Short_Literal	0x1
0070 00da       |    |		Load_Top	At_Offset_2
0071 01d6       |    |		Execute	Vector,Field_Write
0072 4800       |H   |		Short_Literal	0x0
0073 4802       |H   |		Short_Literal	0x2
0074 00da       |    |		Load_Top	At_Offset_2
0075 01d6       |    |		Execute	Vector,Field_Write
0076 00d9       |    |		Load_Top	At_Offset_1
0077 01d4       |    |		Execute	Vector,Structure_Write
0078 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10
0079 00c7       |    |		Action	Elaborate_Subprogram
007a 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11
007b 00c7       |    |		Action	Elaborate_Subprogram
007c 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
007d 00c7       |    |		Action	Elaborate_Subprogram
007e 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12
007f 00c7       |    |		Action	Elaborate_Subprogram
0080 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
0081 00c7       |    |		Action	Elaborate_Subprogram
0082 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0083 00c7       |    |		Action	Elaborate_Subprogram
0084 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0085 00c7       |    |		Action	Elaborate_Subprogram
0086 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
0087 00c7       |    |		Action	Elaborate_Subprogram
0088 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0089 00c7       |    |		Action	Elaborate_Subprogram
008a 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
008b 00c7       |    |		Action	Elaborate_Subprogram
008c 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
008d 00c7       |    |		Action	Elaborate_Subprogram
008e 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
008f 00c7       |    |		Action	Elaborate_Subprogram
0090 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
0091 00c7       |    |		Action	Elaborate_Subprogram
0092			BODY_0008:
0092 00bc       |    |		Action	Signal_Activated
0093 00bb       |    |		Action	Signal_Completion
0094 0000 0000  |    |		.BLANK	0000[0x4]
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 e22e       | .  |		Load	0x1,0x2e
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 e22e       | .  |		Load	0x1,0x2e
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 0333  |   3|		Declare_Subprogram	INIT_0330,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 0347  |   G|		Action	Push_String_Extended,0x347					; "chdir "
01b5 e5fe       |    |		Load	0x2,-0x2
01b6 01cc       |    |		Execute	Vector,Catenate
01b7 0092 0348  |   H|		Action	Push_String_Extended,0x348					; "; "
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 0349  |   I|		Action	Push_String_Extended,0x349					; "<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 034a  |   J|		Action	Push_String_Extended,0x34a					; "Input_"
01f4 0092 0349  |   I|		Action	Push_String_Extended,0x349					; "<WINDOW>"
01f6 e5fe       |    |		Load	0x2,-0x2
01f7 821c       |    |		Call	0x1,0x1c
01f8 0092 034b  |   K|		Action	Push_String_Extended,0x34b					; "Output_"
01fa 0092 0349  |   I|		Action	Push_String_Extended,0x349					; "<WINDOW>"
01fc e5fd       |    |		Load	0x2,-0x3
01fd 821c       |    |		Call	0x1,0x1c
01fe 01cc       |    |		Execute	Vector,Catenate
01ff 0092 034c  |   L|		Action	Push_String_Extended,0x34c					; "Error_"
0201 0092 0349  |   I|		Action	Push_String_Extended,0x349					; "<WINDOW>"
0203 e5fc       |    |		Load	0x2,-0x4
0204 821c       |    |		Call	0x1,0x1c
0205 01cc       |    |		Execute	Vector,Catenate
0206 0092 034d  |   M|		Action	Push_String_Extended,0x34d					; "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 034e  |   N|		Action	Push_String_Extended,0x34e					; "<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 034a  |   J|		Action	Push_String_Extended,0x34a					; "Input_"
0213 0092 034e  |   N|		Action	Push_String_Extended,0x34e					; "<WINDOW_A>"
0215 e5fe       |    |		Load	0x2,-0x2
0216 821c       |    |		Call	0x1,0x1c
0217 0092 034b  |   K|		Action	Push_String_Extended,0x34b					; "Output_"
0219 0092 034e  |   N|		Action	Push_String_Extended,0x34e					; "<WINDOW_A>"
021b e5fd       |    |		Load	0x2,-0x3
021c 821c       |    |		Call	0x1,0x1c
021d 01cc       |    |		Execute	Vector,Catenate
021e 0092 034c  |   L|		Action	Push_String_Extended,0x34c					; "Error_"
0220 0092 034e  |   N|		Action	Push_String_Extended,0x34e					; "<WINDOW_A>"
0222 e5fc       |    |		Load	0x2,-0x4
0223 821c       |    |		Call	0x1,0x1c
0224 01cc       |    |		Execute	Vector,Catenate
0225 0092 034f  |   O|		Action	Push_String_Extended,0x34f					; "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 0350  |   P|		Action	Push_String_Extended,0x350					; "<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 034a  |   J|		Action	Push_String_Extended,0x34a					; "Input_"
0232 0092 0350  |   P|		Action	Push_String_Extended,0x350					; "<WINDOW_B>"
0234 e5fe       |    |		Load	0x2,-0x2
0235 821c       |    |		Call	0x1,0x1c
0236 0092 034b  |   K|		Action	Push_String_Extended,0x34b					; "Output_"
0238 0092 0350  |   P|		Action	Push_String_Extended,0x350					; "<WINDOW_B>"
023a e5fd       |    |		Load	0x2,-0x3
023b 821c       |    |		Call	0x1,0x1c
023c 01cc       |    |		Execute	Vector,Catenate
023d 0092 034c  |   L|		Action	Push_String_Extended,0x34c					; "Error_"
023f 0092 0350  |   P|		Action	Push_String_Extended,0x350					; "<WINDOW_B>"
0241 e5fc       |    |		Load	0x2,-0x4
0242 821c       |    |		Call	0x1,0x1c
0243 01cc       |    |		Execute	Vector,Catenate
0244 0092 0351  |   Q|		Action	Push_String_Extended,0x351					; "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 0352  |   R|		Action	Push_String_Extended,0x352					; "<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 0353  |   S|		Action	Push_String_Extended,0x353					; "<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 e22d       | -  |		Load	0x1,0x2d
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 0354  |   T|		Action	Push_String_Extended,0x354					; "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 e22d       | -  |		Load	0x1,0x2d
0297 c5fb       |    |		Store	0x2,-0x5
0298 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0299			TRAP_0250:
0299 0007       |    |		Action	Break_Optional
029a 0092 0355  |   U|		Action	Push_String_Extended,0x355					; "unable to open input file "
029c e5fe       |    |		Load	0x2,-0x2
029d 01cc       |    |		Execute	Vector,Catenate
029e 0092 0356  |   V|		Action	Push_String_Extended,0x356					; " -- "
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 0357  |   W|		Action	Push_String_Extended,0x357					; " 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 031a       |    |		.CONST	0x031a								; 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 a5fb       |    |		Store_Unchecked	0x2,-0x5
02bb 00db       |    |		Load_Top	At_Offset_3
02bc 01db       |    |		Execute	Vector,Length
02bd 7059       |pY  |		Jump_Nonzero	0x317
02be e5fe       |    |		Load	0x2,-0x2
02bf 01db       |    |		Execute	Vector,Length
02c0 680e       |h   |		Jump_Zero	0x2cf
02c1 4801       |H   |		Short_Literal	0x1
02c2 0092 0352  |   R|		Action	Push_String_Extended,0x352					; "<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 0353  |   S|		Action	Push_String_Extended,0x353					; "<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 e22d       | -  |		Load	0x1,0x2d
02d0 c5fa       |    |		Store	0x2,-0x6
02d1 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
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 681d       |h   |		Jump_Zero	0x2fd
02e0 e5fd       |    |		Load	0x2,-0x3
02e1 680d       |h   |		Jump_Zero	0x2ef
02e2 e5fa       |    |		Load	0x2,-0x6
02e3 e5fc       |    |		Load	0x2,-0x4
02e4 e009       |    |		Load	0x0,0x9
02e5 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02e6 00ea       |    |		Load_Encached	Null_String_Cache
02e7 e402       |    |		Load	0x2,0x2
02e8 e006       |    |		Load	0x0,0x6
02e9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02ea 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
02eb e002       |    |		Load	0x0,0x2
02ec 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
02ed c5fa       |    |		Store	0x2,-0x6
02ee 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02ef e5fa       |    |		Load	0x2,-0x6
02f0 e5fc       |    |		Load	0x2,-0x4
02f1 e009       |    |		Load	0x0,0x9
02f2 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
02f3 00ea       |    |		Load_Encached	Null_String_Cache
02f4 e402       |    |		Load	0x2,0x2
02f5 e006       |    |		Load	0x0,0x6
02f6 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02f7 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
02f8 4801       |H   |		Short_Literal	0x1
02f9 e002       |    |		Load	0x0,0x2
02fa 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
02fb c5fa       |    |		Store	0x2,-0x6
02fc 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
02fd e5fe       |    |		Load	0x2,-0x2
02fe e006       |    |		Load	0x0,0x6
02ff 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0300 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0301 680d       |h   |		Jump_Zero	0x30f
0302 e5fa       |    |		Load	0x2,-0x6
0303 e5fc       |    |		Load	0x2,-0x4
0304 e009       |    |		Load	0x0,0x9
0305 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0306 e009       |    |		Load	0x0,0x9
0307 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0308 00ea       |    |		Load_Encached	Null_String_Cache
0309 e5fe       |    |		Load	0x2,-0x2
030a 4801       |H   |		Short_Literal	0x1
030b e002       |    |		Load	0x0,0x2
030c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
030d c5fa       |    |		Store	0x2,-0x6
030e 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
030f 0092 0358  |   X|		Action	Push_String_Extended,0x358					; "Ill formed name: "
0311 e5fe       |    |		Load	0x2,-0x2
0312 01cc       |    |		Execute	Vector,Catenate
0313 e220       |    |		Load	0x1,0x20
0314 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
0315 a5fb       |    |		Store_Unchecked	0x2,-0x5
0316 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
0317 e22d       | -  |		Load	0x1,0x2d
0318 c5fa       |    |		Store	0x2,-0x6
0319 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
031a			TRAP_02b0:
031a 0007       |    |		Action	Break_Optional
031b 0092 0359  |   Y|		Action	Push_String_Extended,0x359					; "unable to open file "
031d e5fe       |    |		Load	0x2,-0x2
031e 01cc       |    |		Execute	Vector,Catenate
031f 0092 035a  |   Z|		Action	Push_String_Extended,0x35a					; " --- "
0321 01cc       |    |		Execute	Vector,Catenate
0322 4800       |H   |		Short_Literal	0x0
0323 4801       |H   |		Short_Literal	0x1
0324 e00a       |    |		Load	0x0,0xa
0325 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0326 01cc       |    |		Execute	Vector,Catenate
0327 0092 0357  |   W|		Action	Push_String_Extended,0x357					; " raised"
0329 01cc       |    |		Execute	Vector,Catenate
032a e220       |    |		Load	0x1,0x20
032b 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
032c a5fb       |    |		Store_Unchecked	0x2,-0x5
032d 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
032e 0000 0000  |    |		.XXX[0x2]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0336       | 6  |		.CONST	0x0336								; Address of begin
0331 0004       |    |		.CONST	0x0004								; Address of exception handler
0332 0002       |    |		.CONST	0x0002								; Number of locals
0333			INIT_0330:
0333 e402       |    |		Load	0x2,0x2
0334 00e0       |    |		Load_Encached	Standard_Cache
0335 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0336			BODY_0330:
0336 4800       |H   |		Short_Literal	0x0
0337 00d9       |    |		Load_Top	At_Offset_1
0338 01dd       |    |		Execute	Vector,First
0339 0a01       |    |		Execute_Immediate	Plus,0x1
033a 00d8       |    |		Load_Top	At_Offset_0
033b 00e2       |    |		Load_Encached	Integer_Cache
033c 0260       | `  |		Execute	Discrete,In_Type
033d 7001       |p   |		Jump_Nonzero	0x33f
033e 0801       |    |		Execute_Immediate	Raise,0x1
033f 00da       |    |		Load_Top	At_Offset_2
0340 01dc       |    |		Execute	Vector,Last
0341 00db       |    |		Load_Top	At_Offset_3
0342 01cf       |    |		Execute	Vector,Slice_Read
0343 01cb       |    |		Execute	Vector,Append
0344 8211       |    |		Call	0x1,0x11
0345 00cb       |    |		Action	Pop_Block_With_Result
0346 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0347 ; --------------------------------------------------------------------------------------
0347 ; STRING TABLE
0347 ; --------------------------------------------------------------------------------------
0347 002a       | *  |		.STRTAB	0x002a->0x035c							; "chdir "
0348 002e       | .  |		.STRTAB	0x002e->0x035f							; "; "
0349 002e       | .  |		.STRTAB	0x002e->0x0360							; "<WINDOW>"
034a 0034       | 4  |		.STRTAB	0x0034->0x0364							; "Input_"
034b 0038       | 8  |		.STRTAB	0x0038->0x0367							; "Output_"
034c 003d       | =  |		.STRTAB	0x003d->0x036a							; "Error_"
034d 0041       | A  |		.STRTAB	0x0041->0x036d							; "Window"
034e 0045       | E  |		.STRTAB	0x0045->0x0370							; "<WINDOW_A>"
034f 004d       | M  |		.STRTAB	0x004d->0x0375							; "Window_A"
0350 0053       | S  |		.STRTAB	0x0053->0x0379							; "<WINDOW_B>"
0351 005b       | [  |		.STRTAB	0x005b->0x037e							; "Window_B"
0352 0061       | a  |		.STRTAB	0x0061->0x0382							; "<NONE>"
0353 0065       | e  |		.STRTAB	0x0065->0x0385							; "<DEFAULT>"
0354 006c       | l  |		.STRTAB	0x006c->0x038a							; "input file does not exist: "
0355 0085       |    |		.STRTAB	0x0085->0x0397							; "unable to open input file "
0356 009d       |    |		.STRTAB	0x009d->0x03a4							; " -- "
0357 009f       |    |		.STRTAB	0x009f->0x03a6							; " raised"
0358 00a4       |    |		.STRTAB	0x00a4->0x03aa							; "Ill formed name: "
0359 00b3       |    |		.STRTAB	0x00b3->0x03b2							; "unable to open file "
035a 00c5       |    |		.STRTAB	0x00c5->0x03bc							; " --- "
035b 00c8       |    |		.STREND 0x00c8->0x03bf
035c 6368 6469  |chdi|		.STRTAB_STRINGS
03bf 0000       |    |		.XXX[0x1]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; Debug Table
03c0 ; --------------------------------------------------------------------------------------
03c0 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0xdde1,0x0000,0x0001,0x0000
03c6 0000 0000  |    |		.BLANK	0000[0x3a]