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

⟦88e25c29c⟧

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

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 0728       | (  |		.CONST	0x0728								; Offset of debug table
0004 0100       |    |		.CONST	0x0100								; Default exception handler - raise instruction
0005 00bb       |    |		.CONST	0x00bb								; Module termination instruction - signal completion
0006 0000       |    |		.CONST	0x0000								; Offset to segment table (only in elab segments)
0007 8004       |    |		.CONST	0x8004								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 029b       |    |		.CONST	0x029b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0025       | %  |		.CONST	0x0025								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 4809       |H   |		Short_Literal	0x9
000d 029f 02a3  |    |		Declare_Subprogram	INIT_02a0,For_Call
000f 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0010 00d8       |    |		Load_Top	At_Offset_0
0011 0266       | f  |		Execute	Discrete,Bounds
0012 00e1       |    |		Load_Encached	Boolean_Cache
0013 02a0       |    |		Declare_Subprogram	Null_Subprogram
0014 4801       |H   |		Short_Literal	0x1
0015 035e       | ^  |		Declare_Type	Array,Defined,Visible
0016 029a 02d3  |    |		Declare_Subprogram	INIT_02d0,For_Outer_Call,Visible,Unelaborated
0018 00d9       |    |		Load_Top	At_Offset_1
0019 0336       | 6  |		Declare_Variable	Array,Visible
001a 00d8       |    |		Load_Top	At_Offset_0
001b 0335       | 5  |		Declare_Variable	Array,Duplicate
001c 00cd       |    |		Action	Spare6_Action
001d 4809       |H   |		Short_Literal	0x9
001e 4800       |H   |		Short_Literal	0x0
001f 4801       |H   |		Short_Literal	0x1
0020 00d9       |    |		Load_Top	At_Offset_1
0021 e211       |    |		Load	0x1,0x11
0022 01d6       |    |		Execute	Vector,Field_Write
0023 3ffb       |?   |		Loop_Increasing	0x1f
0024 00d9       |    |		Load_Top	At_Offset_1
0025 01d4       |    |		Execute	Vector,Structure_Write
0026 00da       |    |		Load_Top	At_Offset_2
0027 0336       | 6  |		Declare_Variable	Array,Visible
0028 00d8       |    |		Load_Top	At_Offset_0
0029 0335       | 5  |		Declare_Variable	Array,Duplicate
002a 00cd       |    |		Action	Spare6_Action
002b 4801       |H   |		Short_Literal	0x1
002c 4800       |H   |		Short_Literal	0x0
002d 00da       |    |		Load_Top	At_Offset_2
002e 01d6       |    |		Execute	Vector,Field_Write
002f 4801       |H   |		Short_Literal	0x1
0030 4801       |H   |		Short_Literal	0x1
0031 00da       |    |		Load_Top	At_Offset_2
0032 01d6       |    |		Execute	Vector,Field_Write
0033 4801       |H   |		Short_Literal	0x1
0034 4802       |H   |		Short_Literal	0x2
0035 00da       |    |		Load_Top	At_Offset_2
0036 01d6       |    |		Execute	Vector,Field_Write
0037 4801       |H   |		Short_Literal	0x1
0038 4803       |H   |		Short_Literal	0x3
0039 00da       |    |		Load_Top	At_Offset_2
003a 01d6       |    |		Execute	Vector,Field_Write
003b 4801       |H   |		Short_Literal	0x1
003c 4804       |H   |		Short_Literal	0x4
003d 00da       |    |		Load_Top	At_Offset_2
003e 01d6       |    |		Execute	Vector,Field_Write
003f 4801       |H   |		Short_Literal	0x1
0040 4805       |H   |		Short_Literal	0x5
0041 00da       |    |		Load_Top	At_Offset_2
0042 01d6       |    |		Execute	Vector,Field_Write
0043 4800       |H   |		Short_Literal	0x0
0044 4806       |H   |		Short_Literal	0x6
0045 00da       |    |		Load_Top	At_Offset_2
0046 01d6       |    |		Execute	Vector,Field_Write
0047 4800       |H   |		Short_Literal	0x0
0048 4807       |H   |		Short_Literal	0x7
0049 00da       |    |		Load_Top	At_Offset_2
004a 01d6       |    |		Execute	Vector,Field_Write
004b 4800       |H   |		Short_Literal	0x0
004c 4808       |H   |		Short_Literal	0x8
004d 00da       |    |		Load_Top	At_Offset_2
004e 01d6       |    |		Execute	Vector,Field_Write
004f 4800       |H   |		Short_Literal	0x0
0050 4809       |H   |		Short_Literal	0x9
0051 00da       |    |		Load_Top	At_Offset_2
0052 01d6       |    |		Execute	Vector,Field_Write
0053 00d9       |    |		Load_Top	At_Offset_1
0054 01d4       |    |		Execute	Vector,Structure_Write
0055 00db       |    |		Load_Top	At_Offset_3
0056 0336       | 6  |		Declare_Variable	Array,Visible
0057 00d8       |    |		Load_Top	At_Offset_0
0058 0335       | 5  |		Declare_Variable	Array,Duplicate
0059 00cd       |    |		Action	Spare6_Action
005a 4800       |H   |		Short_Literal	0x0
005b 4800       |H   |		Short_Literal	0x0
005c 00da       |    |		Load_Top	At_Offset_2
005d 01d6       |    |		Execute	Vector,Field_Write
005e 4800       |H   |		Short_Literal	0x0
005f 4801       |H   |		Short_Literal	0x1
0060 00da       |    |		Load_Top	At_Offset_2
0061 01d6       |    |		Execute	Vector,Field_Write
0062 4800       |H   |		Short_Literal	0x0
0063 4802       |H   |		Short_Literal	0x2
0064 00da       |    |		Load_Top	At_Offset_2
0065 01d6       |    |		Execute	Vector,Field_Write
0066 4800       |H   |		Short_Literal	0x0
0067 4803       |H   |		Short_Literal	0x3
0068 00da       |    |		Load_Top	At_Offset_2
0069 01d6       |    |		Execute	Vector,Field_Write
006a 4800       |H   |		Short_Literal	0x0
006b 4804       |H   |		Short_Literal	0x4
006c 00da       |    |		Load_Top	At_Offset_2
006d 01d6       |    |		Execute	Vector,Field_Write
006e 4800       |H   |		Short_Literal	0x0
006f 4805       |H   |		Short_Literal	0x5
0070 00da       |    |		Load_Top	At_Offset_2
0071 01d6       |    |		Execute	Vector,Field_Write
0072 4801       |H   |		Short_Literal	0x1
0073 4806       |H   |		Short_Literal	0x6
0074 00da       |    |		Load_Top	At_Offset_2
0075 01d6       |    |		Execute	Vector,Field_Write
0076 4800       |H   |		Short_Literal	0x0
0077 4807       |H   |		Short_Literal	0x7
0078 00da       |    |		Load_Top	At_Offset_2
0079 01d6       |    |		Execute	Vector,Field_Write
007a 4800       |H   |		Short_Literal	0x0
007b 4808       |H   |		Short_Literal	0x8
007c 00da       |    |		Load_Top	At_Offset_2
007d 01d6       |    |		Execute	Vector,Field_Write
007e 4800       |H   |		Short_Literal	0x0
007f 4809       |H   |		Short_Literal	0x9
0080 00da       |    |		Load_Top	At_Offset_2
0081 01d6       |    |		Execute	Vector,Field_Write
0082 00d9       |    |		Load_Top	At_Offset_1
0083 01d4       |    |		Execute	Vector,Structure_Write
0084 029a 02fb  |    |		Declare_Subprogram	INIT_02f8,For_Outer_Call,Visible,Unelaborated
0086 00bf       |    |		Action	Accept_Activation
0087 0093 0000  |    |		push_full_address	0x0
0089 6242       |bB  |		Indirect_Literal	Discrete,0x2cc,{0x80000000, 0x00010000}
008a 0273       | s  |		Execute	Discrete,Plus
008b 0007       |    |		Action	Break_Optional
008c e002       |    |		Load	0x0,0x2
008d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
008e 02c7       |    |		Declare_Variable	Any
008f 00d8       |    |		Load_Top	At_Offset_0
0090 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0091 e003       |    |		Load	0x0,0x3
0092 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0093 02c7       |    |		Declare_Variable	Any
0094 00d8       |    |		Load_Top	At_Offset_0
0095 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0096 00e1       |    |		Load_Encached	Boolean_Cache
0097 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0098 00e9       |    |		Load_Encached	String_Cache
0099 02a0       |    |		Declare_Subprogram	Null_Subprogram
009a 480d       |H   |		Short_Literal	0xd
009b 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
009c 622b       |b+  |		Indirect_Literal	Discrete,0x2c8,{0x00000000, 0x00001400}
009d 0aff       |    |		Execute_Immediate	Plus,-0x1
009e 4800       |H   |		Short_Literal	0x0
009f 026b       | k  |		Execute	Discrete,Maximum
00a0 00d9       |    |		Load_Top	At_Offset_1
00a1 0082       |    |		QQucode_0x0082
00a2 e20d       |    |		Load	0x1,0xd
00a3 0266       | f  |		Execute	Discrete,Bounds
00a4 00da       |    |		Load_Top	At_Offset_2
00a5 02a0       |    |		Declare_Subprogram	Null_Subprogram
00a6 4801       |H   |		Short_Literal	0x1
00a7 035d       | ]  |		Declare_Type	Array,Defined
00a8 00d8       |    |		Load_Top	At_Offset_0
00a9 0337       | 7  |		Declare_Variable	Array
00aa 00d8       |    |		Load_Top	At_Offset_0
00ab 0335       | 5  |		Declare_Variable	Array,Duplicate
00ac 00cd       |    |		Action	Spare6_Action
00ad 0092 05f7  |    |		Action	Push_String_Extended,0x5f7					; "COMMENTS"
00af e218       |    |		Load	0x1,0x18
00b0 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00b1 4800       |H   |		Short_Literal	0x0
00b2 00da       |    |		Load_Top	At_Offset_2
00b3 01d6       |    |		Execute	Vector,Field_Write
00b4 0092 05f8  |    |		Action	Push_String_Extended,0x5f8					; "IOP_DUMP0"
00b6 e218       |    |		Load	0x1,0x18
00b7 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00b8 4801       |H   |		Short_Literal	0x1
00b9 00da       |    |		Load_Top	At_Offset_2
00ba 01d6       |    |		Execute	Vector,Field_Write
00bb 0092 05f9  |    |		Action	Push_String_Extended,0x5f9					; "IOP_DUMP1"
00bd e218       |    |		Load	0x1,0x18
00be 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00bf 4802       |H   |		Short_Literal	0x2
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 01d6       |    |		Execute	Vector,Field_Write
00c2 0092 05fa  |    |		Action	Push_String_Extended,0x5fa					; "IOP_DUMP2"
00c4 e218       |    |		Load	0x1,0x18
00c5 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00c6 4803       |H   |		Short_Literal	0x3
00c7 00da       |    |		Load_Top	At_Offset_2
00c8 01d6       |    |		Execute	Vector,Field_Write
00c9 0092 05fb  |    |		Action	Push_String_Extended,0x5fb					; "IOP_DUMP3"
00cb e218       |    |		Load	0x1,0x18
00cc 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00cd 4804       |H   |		Short_Literal	0x4
00ce 00da       |    |		Load_Top	At_Offset_2
00cf 01d6       |    |		Execute	Vector,Field_Write
00d0 0092 05fc  |    |		Action	Push_String_Extended,0x5fc					; "IOP_DUMP4"
00d2 e218       |    |		Load	0x1,0x18
00d3 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00d4 4805       |H   |		Short_Literal	0x5
00d5 00da       |    |		Load_Top	At_Offset_2
00d6 01d6       |    |		Execute	Vector,Field_Write
00d7 0092 05fd  |    |		Action	Push_String_Extended,0x5fd					; "SAVED_STATE"
00d9 e218       |    |		Load	0x1,0x18
00da 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00db 4806       |H   |		Short_Literal	0x6
00dc 00da       |    |		Load_Top	At_Offset_2
00dd 01d6       |    |		Execute	Vector,Field_Write
00de 0092 05fe  |    |		Action	Push_String_Extended,0x5fe					; "REGISTERS"
00e0 e218       |    |		Load	0x1,0x18
00e1 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00e2 4807       |H   |		Short_Literal	0x7
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 01d6       |    |		Execute	Vector,Field_Write
00e5 0092 05ff  |    |		Action	Push_String_Extended,0x5ff					; "TAG_STORE"
00e7 e218       |    |		Load	0x1,0x18
00e8 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00e9 4808       |H   |		Short_Literal	0x8
00ea 00da       |    |		Load_Top	At_Offset_2
00eb 01d6       |    |		Execute	Vector,Field_Write
00ec 0092 0600  |    |		Action	Push_String_Extended,0x600					; "MEMORY"
00ee e218       |    |		Load	0x1,0x18
00ef 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
00f0 4809       |H   |		Short_Literal	0x9
00f1 00da       |    |		Load_Top	At_Offset_2
00f2 01d6       |    |		Execute	Vector,Field_Write
00f3 00d9       |    |		Load_Top	At_Offset_1
00f4 01d4       |    |		Execute	Vector,Structure_Write
00f5 e20d       |    |		Load	0x1,0xd
00f6 0266       | f  |		Execute	Discrete,Bounds
00f7 00e1       |    |		Load_Encached	Boolean_Cache
00f8 02a0       |    |		Declare_Subprogram	Null_Subprogram
00f9 4801       |H   |		Short_Literal	0x1
00fa 035d       | ]  |		Declare_Type	Array,Defined
00fb 00d8       |    |		Load_Top	At_Offset_0
00fc 0337       | 7  |		Declare_Variable	Array
00fd 00d8       |    |		Load_Top	At_Offset_0
00fe 0335       | 5  |		Declare_Variable	Array,Duplicate
00ff 00cd       |    |		Action	Spare6_Action
0100 4800       |H   |		Short_Literal	0x0
0101 4800       |H   |		Short_Literal	0x0
0102 00da       |    |		Load_Top	At_Offset_2
0103 01d6       |    |		Execute	Vector,Field_Write
0104 4801       |H   |		Short_Literal	0x1
0105 4801       |H   |		Short_Literal	0x1
0106 00da       |    |		Load_Top	At_Offset_2
0107 01d6       |    |		Execute	Vector,Field_Write
0108 4800       |H   |		Short_Literal	0x0
0109 4802       |H   |		Short_Literal	0x2
010a 00da       |    |		Load_Top	At_Offset_2
010b 01d6       |    |		Execute	Vector,Field_Write
010c 4800       |H   |		Short_Literal	0x0
010d 4803       |H   |		Short_Literal	0x3
010e 00da       |    |		Load_Top	At_Offset_2
010f 01d6       |    |		Execute	Vector,Field_Write
0110 4801       |H   |		Short_Literal	0x1
0111 4804       |H   |		Short_Literal	0x4
0112 00da       |    |		Load_Top	At_Offset_2
0113 01d6       |    |		Execute	Vector,Field_Write
0114 4801       |H   |		Short_Literal	0x1
0115 4805       |H   |		Short_Literal	0x5
0116 00da       |    |		Load_Top	At_Offset_2
0117 01d6       |    |		Execute	Vector,Field_Write
0118 4800       |H   |		Short_Literal	0x0
0119 4806       |H   |		Short_Literal	0x6
011a 00da       |    |		Load_Top	At_Offset_2
011b 01d6       |    |		Execute	Vector,Field_Write
011c 4800       |H   |		Short_Literal	0x0
011d 4807       |H   |		Short_Literal	0x7
011e 00da       |    |		Load_Top	At_Offset_2
011f 01d6       |    |		Execute	Vector,Field_Write
0120 4800       |H   |		Short_Literal	0x0
0121 4808       |H   |		Short_Literal	0x8
0122 00da       |    |		Load_Top	At_Offset_2
0123 01d6       |    |		Execute	Vector,Field_Write
0124 4800       |H   |		Short_Literal	0x0
0125 4809       |H   |		Short_Literal	0x9
0126 00da       |    |		Load_Top	At_Offset_2
0127 01d6       |    |		Execute	Vector,Field_Write
0128 00d9       |    |		Load_Top	At_Offset_1
0129 01d4       |    |		Execute	Vector,Structure_Write
012a 0092 0601  |    |		Action	Push_String_Extended,0x601					; "LABELS"
012c 4801       |H   |		Short_Literal	0x1
012d 4850       |HP  |		Short_Literal	0x50
012e e004       |    |		Load	0x0,0x4
012f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0130 035b       | [  |		Declare_Type	Array,Constrained
0131 4801       |H   |		Short_Literal	0x1
0132 4851       |HQ  |		Short_Literal	0x51
0133 e004       |    |		Load	0x0,0x4
0134 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0135 035b       | [  |		Declare_Type	Array,Constrained
0136 4801       |H   |		Short_Literal	0x1
0137 4850       |HP  |		Short_Literal	0x50
0138 00e9       |    |		Load_Encached	String_Cache
0139 035b       | [  |		Declare_Type	Array,Constrained
013a 0337       | 7  |		Declare_Variable	Array
013b 00d8       |    |		Load_Top	At_Offset_0
013c 0335       | 5  |		Declare_Variable	Array,Duplicate
013d 00cd       |    |		Action	Spare6_Action
013e 482a       |H*  |		Short_Literal	0x2a
013f 4801       |H   |		Short_Literal	0x1
0140 00da       |    |		Load_Top	At_Offset_2
0141 01d6       |    |		Execute	Vector,Field_Write
0142 482a       |H*  |		Short_Literal	0x2a
0143 4802       |H   |		Short_Literal	0x2
0144 00da       |    |		Load_Top	At_Offset_2
0145 01d6       |    |		Execute	Vector,Field_Write
0146 482a       |H*  |		Short_Literal	0x2a
0147 4803       |H   |		Short_Literal	0x3
0148 00da       |    |		Load_Top	At_Offset_2
0149 01d6       |    |		Execute	Vector,Field_Write
014a 484d       |HM  |		Short_Literal	0x4d
014b 4804       |H   |		Short_Literal	0x4
014c 00da       |    |		Load_Top	At_Offset_2
014d 01d6       |    |		Execute	Vector,Field_Write
014e 4841       |HA  |		Short_Literal	0x41
014f 4805       |H   |		Short_Literal	0x5
0150 00da       |    |		Load_Top	At_Offset_2
0151 01d6       |    |		Execute	Vector,Field_Write
0152 4852       |HR  |		Short_Literal	0x52
0153 4806       |H   |		Short_Literal	0x6
0154 00da       |    |		Load_Top	At_Offset_2
0155 01d6       |    |		Execute	Vector,Field_Write
0156 484b       |HK  |		Short_Literal	0x4b
0157 4807       |H   |		Short_Literal	0x7
0158 00da       |    |		Load_Top	At_Offset_2
0159 01d6       |    |		Execute	Vector,Field_Write
015a 482a       |H*  |		Short_Literal	0x2a
015b 4808       |H   |		Short_Literal	0x8
015c 00da       |    |		Load_Top	At_Offset_2
015d 01d6       |    |		Execute	Vector,Field_Write
015e 482a       |H*  |		Short_Literal	0x2a
015f 4809       |H   |		Short_Literal	0x9
0160 00da       |    |		Load_Top	At_Offset_2
0161 01d6       |    |		Execute	Vector,Field_Write
0162 482a       |H*  |		Short_Literal	0x2a
0163 480a       |H   |		Short_Literal	0xa
0164 00da       |    |		Load_Top	At_Offset_2
0165 01d6       |    |		Execute	Vector,Field_Write
0166 4820       |H   |		Short_Literal	0x20
0167 480b       |H   |		Short_Literal	0xb
0168 00da       |    |		Load_Top	At_Offset_2
0169 01d6       |    |		Execute	Vector,Field_Write
016a 4820       |H   |		Short_Literal	0x20
016b 480c       |H   |		Short_Literal	0xc
016c 00da       |    |		Load_Top	At_Offset_2
016d 01d6       |    |		Execute	Vector,Field_Write
016e 4820       |H   |		Short_Literal	0x20
016f 480d       |H   |		Short_Literal	0xd
0170 00da       |    |		Load_Top	At_Offset_2
0171 01d6       |    |		Execute	Vector,Field_Write
0172 4820       |H   |		Short_Literal	0x20
0173 480e       |H   |		Short_Literal	0xe
0174 00da       |    |		Load_Top	At_Offset_2
0175 01d6       |    |		Execute	Vector,Field_Write
0176 4820       |H   |		Short_Literal	0x20
0177 480f       |H   |		Short_Literal	0xf
0178 00da       |    |		Load_Top	At_Offset_2
0179 01d6       |    |		Execute	Vector,Field_Write
017a 4820       |H   |		Short_Literal	0x20
017b 4810       |H   |		Short_Literal	0x10
017c 00da       |    |		Load_Top	At_Offset_2
017d 01d6       |    |		Execute	Vector,Field_Write
017e 4820       |H   |		Short_Literal	0x20
017f 4811       |H   |		Short_Literal	0x11
0180 00da       |    |		Load_Top	At_Offset_2
0181 01d6       |    |		Execute	Vector,Field_Write
0182 4820       |H   |		Short_Literal	0x20
0183 4812       |H   |		Short_Literal	0x12
0184 00da       |    |		Load_Top	At_Offset_2
0185 01d6       |    |		Execute	Vector,Field_Write
0186 4820       |H   |		Short_Literal	0x20
0187 4813       |H   |		Short_Literal	0x13
0188 00da       |    |		Load_Top	At_Offset_2
0189 01d6       |    |		Execute	Vector,Field_Write
018a 4820       |H   |		Short_Literal	0x20
018b 4814       |H   |		Short_Literal	0x14
018c 00da       |    |		Load_Top	At_Offset_2
018d 01d6       |    |		Execute	Vector,Field_Write
018e 4820       |H   |		Short_Literal	0x20
018f 4815       |H   |		Short_Literal	0x15
0190 00da       |    |		Load_Top	At_Offset_2
0191 01d6       |    |		Execute	Vector,Field_Write
0192 4820       |H   |		Short_Literal	0x20
0193 4816       |H   |		Short_Literal	0x16
0194 00da       |    |		Load_Top	At_Offset_2
0195 01d6       |    |		Execute	Vector,Field_Write
0196 4820       |H   |		Short_Literal	0x20
0197 4817       |H   |		Short_Literal	0x17
0198 00da       |    |		Load_Top	At_Offset_2
0199 01d6       |    |		Execute	Vector,Field_Write
019a 4820       |H   |		Short_Literal	0x20
019b 4818       |H   |		Short_Literal	0x18
019c 00da       |    |		Load_Top	At_Offset_2
019d 01d6       |    |		Execute	Vector,Field_Write
019e 4820       |H   |		Short_Literal	0x20
019f 4819       |H   |		Short_Literal	0x19
01a0 00da       |    |		Load_Top	At_Offset_2
01a1 01d6       |    |		Execute	Vector,Field_Write
01a2 4820       |H   |		Short_Literal	0x20
01a3 481a       |H   |		Short_Literal	0x1a
01a4 00da       |    |		Load_Top	At_Offset_2
01a5 01d6       |    |		Execute	Vector,Field_Write
01a6 4820       |H   |		Short_Literal	0x20
01a7 481b       |H   |		Short_Literal	0x1b
01a8 00da       |    |		Load_Top	At_Offset_2
01a9 01d6       |    |		Execute	Vector,Field_Write
01aa 4820       |H   |		Short_Literal	0x20
01ab 481c       |H   |		Short_Literal	0x1c
01ac 00da       |    |		Load_Top	At_Offset_2
01ad 01d6       |    |		Execute	Vector,Field_Write
01ae 4820       |H   |		Short_Literal	0x20
01af 481d       |H   |		Short_Literal	0x1d
01b0 00da       |    |		Load_Top	At_Offset_2
01b1 01d6       |    |		Execute	Vector,Field_Write
01b2 4820       |H   |		Short_Literal	0x20
01b3 481e       |H   |		Short_Literal	0x1e
01b4 00da       |    |		Load_Top	At_Offset_2
01b5 01d6       |    |		Execute	Vector,Field_Write
01b6 4820       |H   |		Short_Literal	0x20
01b7 481f       |H   |		Short_Literal	0x1f
01b8 00da       |    |		Load_Top	At_Offset_2
01b9 01d6       |    |		Execute	Vector,Field_Write
01ba 4820       |H   |		Short_Literal	0x20
01bb 4820       |H   |		Short_Literal	0x20
01bc 00da       |    |		Load_Top	At_Offset_2
01bd 01d6       |    |		Execute	Vector,Field_Write
01be 4820       |H   |		Short_Literal	0x20
01bf 4821       |H!  |		Short_Literal	0x21
01c0 00da       |    |		Load_Top	At_Offset_2
01c1 01d6       |    |		Execute	Vector,Field_Write
01c2 4820       |H   |		Short_Literal	0x20
01c3 4822       |H"  |		Short_Literal	0x22
01c4 00da       |    |		Load_Top	At_Offset_2
01c5 01d6       |    |		Execute	Vector,Field_Write
01c6 4820       |H   |		Short_Literal	0x20
01c7 4823       |H#  |		Short_Literal	0x23
01c8 00da       |    |		Load_Top	At_Offset_2
01c9 01d6       |    |		Execute	Vector,Field_Write
01ca 4820       |H   |		Short_Literal	0x20
01cb 4824       |H$  |		Short_Literal	0x24
01cc 00da       |    |		Load_Top	At_Offset_2
01cd 01d6       |    |		Execute	Vector,Field_Write
01ce 4820       |H   |		Short_Literal	0x20
01cf 4825       |H%  |		Short_Literal	0x25
01d0 00da       |    |		Load_Top	At_Offset_2
01d1 01d6       |    |		Execute	Vector,Field_Write
01d2 4820       |H   |		Short_Literal	0x20
01d3 4826       |H&  |		Short_Literal	0x26
01d4 00da       |    |		Load_Top	At_Offset_2
01d5 01d6       |    |		Execute	Vector,Field_Write
01d6 4820       |H   |		Short_Literal	0x20
01d7 4827       |H'  |		Short_Literal	0x27
01d8 00da       |    |		Load_Top	At_Offset_2
01d9 01d6       |    |		Execute	Vector,Field_Write
01da 4820       |H   |		Short_Literal	0x20
01db 4828       |H(  |		Short_Literal	0x28
01dc 00da       |    |		Load_Top	At_Offset_2
01dd 01d6       |    |		Execute	Vector,Field_Write
01de 4820       |H   |		Short_Literal	0x20
01df 4829       |H)  |		Short_Literal	0x29
01e0 00da       |    |		Load_Top	At_Offset_2
01e1 01d6       |    |		Execute	Vector,Field_Write
01e2 4820       |H   |		Short_Literal	0x20
01e3 482a       |H*  |		Short_Literal	0x2a
01e4 00da       |    |		Load_Top	At_Offset_2
01e5 01d6       |    |		Execute	Vector,Field_Write
01e6 4820       |H   |		Short_Literal	0x20
01e7 482b       |H+  |		Short_Literal	0x2b
01e8 00da       |    |		Load_Top	At_Offset_2
01e9 01d6       |    |		Execute	Vector,Field_Write
01ea 4820       |H   |		Short_Literal	0x20
01eb 482c       |H,  |		Short_Literal	0x2c
01ec 00da       |    |		Load_Top	At_Offset_2
01ed 01d6       |    |		Execute	Vector,Field_Write
01ee 4820       |H   |		Short_Literal	0x20
01ef 482d       |H-  |		Short_Literal	0x2d
01f0 00da       |    |		Load_Top	At_Offset_2
01f1 01d6       |    |		Execute	Vector,Field_Write
01f2 4820       |H   |		Short_Literal	0x20
01f3 482e       |H.  |		Short_Literal	0x2e
01f4 00da       |    |		Load_Top	At_Offset_2
01f5 01d6       |    |		Execute	Vector,Field_Write
01f6 4820       |H   |		Short_Literal	0x20
01f7 482f       |H/  |		Short_Literal	0x2f
01f8 00da       |    |		Load_Top	At_Offset_2
01f9 01d6       |    |		Execute	Vector,Field_Write
01fa 4820       |H   |		Short_Literal	0x20
01fb 4830       |H0  |		Short_Literal	0x30
01fc 00da       |    |		Load_Top	At_Offset_2
01fd 01d6       |    |		Execute	Vector,Field_Write
01fe 4820       |H   |		Short_Literal	0x20
01ff 4831       |H1  |		Short_Literal	0x31
0200 00da       |    |		Load_Top	At_Offset_2
0201 01d6       |    |		Execute	Vector,Field_Write
0202 4820       |H   |		Short_Literal	0x20
0203 4832       |H2  |		Short_Literal	0x32
0204 00da       |    |		Load_Top	At_Offset_2
0205 01d6       |    |		Execute	Vector,Field_Write
0206 4820       |H   |		Short_Literal	0x20
0207 4833       |H3  |		Short_Literal	0x33
0208 00da       |    |		Load_Top	At_Offset_2
0209 01d6       |    |		Execute	Vector,Field_Write
020a 4820       |H   |		Short_Literal	0x20
020b 4834       |H4  |		Short_Literal	0x34
020c 00da       |    |		Load_Top	At_Offset_2
020d 01d6       |    |		Execute	Vector,Field_Write
020e 4820       |H   |		Short_Literal	0x20
020f 4835       |H5  |		Short_Literal	0x35
0210 00da       |    |		Load_Top	At_Offset_2
0211 01d6       |    |		Execute	Vector,Field_Write
0212 4820       |H   |		Short_Literal	0x20
0213 4836       |H6  |		Short_Literal	0x36
0214 00da       |    |		Load_Top	At_Offset_2
0215 01d6       |    |		Execute	Vector,Field_Write
0216 4820       |H   |		Short_Literal	0x20
0217 4837       |H7  |		Short_Literal	0x37
0218 00da       |    |		Load_Top	At_Offset_2
0219 01d6       |    |		Execute	Vector,Field_Write
021a 4820       |H   |		Short_Literal	0x20
021b 4838       |H8  |		Short_Literal	0x38
021c 00da       |    |		Load_Top	At_Offset_2
021d 01d6       |    |		Execute	Vector,Field_Write
021e 4820       |H   |		Short_Literal	0x20
021f 4839       |H9  |		Short_Literal	0x39
0220 00da       |    |		Load_Top	At_Offset_2
0221 01d6       |    |		Execute	Vector,Field_Write
0222 4820       |H   |		Short_Literal	0x20
0223 483a       |H:  |		Short_Literal	0x3a
0224 00da       |    |		Load_Top	At_Offset_2
0225 01d6       |    |		Execute	Vector,Field_Write
0226 4820       |H   |		Short_Literal	0x20
0227 483b       |H;  |		Short_Literal	0x3b
0228 00da       |    |		Load_Top	At_Offset_2
0229 01d6       |    |		Execute	Vector,Field_Write
022a 4820       |H   |		Short_Literal	0x20
022b 483c       |H<  |		Short_Literal	0x3c
022c 00da       |    |		Load_Top	At_Offset_2
022d 01d6       |    |		Execute	Vector,Field_Write
022e 4820       |H   |		Short_Literal	0x20
022f 483d       |H=  |		Short_Literal	0x3d
0230 00da       |    |		Load_Top	At_Offset_2
0231 01d6       |    |		Execute	Vector,Field_Write
0232 4820       |H   |		Short_Literal	0x20
0233 483e       |H>  |		Short_Literal	0x3e
0234 00da       |    |		Load_Top	At_Offset_2
0235 01d6       |    |		Execute	Vector,Field_Write
0236 4820       |H   |		Short_Literal	0x20
0237 483f       |H?  |		Short_Literal	0x3f
0238 00da       |    |		Load_Top	At_Offset_2
0239 01d6       |    |		Execute	Vector,Field_Write
023a 4820       |H   |		Short_Literal	0x20
023b 4840       |H@  |		Short_Literal	0x40
023c 00da       |    |		Load_Top	At_Offset_2
023d 01d6       |    |		Execute	Vector,Field_Write
023e 4820       |H   |		Short_Literal	0x20
023f 4841       |HA  |		Short_Literal	0x41
0240 00da       |    |		Load_Top	At_Offset_2
0241 01d6       |    |		Execute	Vector,Field_Write
0242 4820       |H   |		Short_Literal	0x20
0243 4842       |HB  |		Short_Literal	0x42
0244 00da       |    |		Load_Top	At_Offset_2
0245 01d6       |    |		Execute	Vector,Field_Write
0246 4820       |H   |		Short_Literal	0x20
0247 4843       |HC  |		Short_Literal	0x43
0248 00da       |    |		Load_Top	At_Offset_2
0249 01d6       |    |		Execute	Vector,Field_Write
024a 4820       |H   |		Short_Literal	0x20
024b 4844       |HD  |		Short_Literal	0x44
024c 00da       |    |		Load_Top	At_Offset_2
024d 01d6       |    |		Execute	Vector,Field_Write
024e 4820       |H   |		Short_Literal	0x20
024f 4845       |HE  |		Short_Literal	0x45
0250 00da       |    |		Load_Top	At_Offset_2
0251 01d6       |    |		Execute	Vector,Field_Write
0252 4820       |H   |		Short_Literal	0x20
0253 4846       |HF  |		Short_Literal	0x46
0254 00da       |    |		Load_Top	At_Offset_2
0255 01d6       |    |		Execute	Vector,Field_Write
0256 4820       |H   |		Short_Literal	0x20
0257 4847       |HG  |		Short_Literal	0x47
0258 00da       |    |		Load_Top	At_Offset_2
0259 01d6       |    |		Execute	Vector,Field_Write
025a 4820       |H   |		Short_Literal	0x20
025b 4848       |HH  |		Short_Literal	0x48
025c 00da       |    |		Load_Top	At_Offset_2
025d 01d6       |    |		Execute	Vector,Field_Write
025e 4820       |H   |		Short_Literal	0x20
025f 4849       |HI  |		Short_Literal	0x49
0260 00da       |    |		Load_Top	At_Offset_2
0261 01d6       |    |		Execute	Vector,Field_Write
0262 4820       |H   |		Short_Literal	0x20
0263 484a       |HJ  |		Short_Literal	0x4a
0264 00da       |    |		Load_Top	At_Offset_2
0265 01d6       |    |		Execute	Vector,Field_Write
0266 4820       |H   |		Short_Literal	0x20
0267 484b       |HK  |		Short_Literal	0x4b
0268 00da       |    |		Load_Top	At_Offset_2
0269 01d6       |    |		Execute	Vector,Field_Write
026a 4820       |H   |		Short_Literal	0x20
026b 484c       |HL  |		Short_Literal	0x4c
026c 00da       |    |		Load_Top	At_Offset_2
026d 01d6       |    |		Execute	Vector,Field_Write
026e 4820       |H   |		Short_Literal	0x20
026f 484d       |HM  |		Short_Literal	0x4d
0270 00da       |    |		Load_Top	At_Offset_2
0271 01d6       |    |		Execute	Vector,Field_Write
0272 4820       |H   |		Short_Literal	0x20
0273 484e       |HN  |		Short_Literal	0x4e
0274 00da       |    |		Load_Top	At_Offset_2
0275 01d6       |    |		Execute	Vector,Field_Write
0276 4820       |H   |		Short_Literal	0x20
0277 484f       |HO  |		Short_Literal	0x4f
0278 00da       |    |		Load_Top	At_Offset_2
0279 01d6       |    |		Execute	Vector,Field_Write
027a 4820       |H   |		Short_Literal	0x20
027b 4850       |HP  |		Short_Literal	0x50
027c 00da       |    |		Load_Top	At_Offset_2
027d 01d6       |    |		Execute	Vector,Field_Write
027e 00d9       |    |		Load_Top	At_Offset_1
027f 01d4       |    |		Execute	Vector,Structure_Write
0280 00da       |    |		Load_Top	At_Offset_2
0281 0337       | 7  |		Declare_Variable	Array
0282 00d9       |    |		Load_Top	At_Offset_1
0283 e005       |    |		Load	0x0,0x5
0284 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0285 00d9       |    |		Load_Top	At_Offset_1
0286 01d4       |    |		Execute	Vector,Structure_Write
0287 e006       |    |		Load	0x0,0x6
0288 e007       |    |		Load	0x0,0x7
0289 e21f       |    |		Load	0x1,0x1f
028a e002       |    |		Load	0x0,0x2
028b 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
028c 0387       |    |		Declare_Variable	Package
028d 00d8       |    |		Load_Top	At_Offset_0
028e 020f       |    |		Execute	Module,Activate
028f 029d 032b  |   +|		Declare_Subprogram	INIT_0328,For_Outer_Call
0291 029d 038b  |    |		Declare_Subprogram	INIT_0388,For_Outer_Call
0293 029b 039b  |    |		Declare_Subprogram	INIT_0398,For_Outer_Call,Unelaborated
0295 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0296 00c7       |    |		Action	Elaborate_Subprogram
0297 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf
0298 00c7       |    |		Action	Elaborate_Subprogram
0299 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13
029a 00c7       |    |		Action	Elaborate_Subprogram
029b			BODY_0008:
029b 00bc       |    |		Action	Signal_Activated
029c 00bb       |    |		Action	Signal_Completion
029d 0000 0000  |    |		.XXX[0x3]
029f 0000       |    |
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3       |    |		.CONST	0x02a3								; Address of begin
02a1 0004       |    |		.CONST	0x0004								; Address of exception handler
02a2 0001       |    |		.CONST	0x0001								; Number of locals
02a3			BODY_02a0:
02a3			INIT_02a0:
02a3 4607       |F   |		Jump_Case	0x8
02a4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
02a5 7807       |x   |		Jump	0x2ad								; case 0x1
02a6 780a       |x   |		Jump	0x2b1								; case 0x2
02a7 780e       |x   |		Jump	0x2b6								; case 0x3
02a8 7811       |x   |		Jump	0x2ba								; case 0x4
02a9 7812       |x   |		Jump	0x2bc								; case 0x5
02aa 7813       |x   |		Jump	0x2be								; case 0x6
02ab 7816       |x   |		Jump	0x2c2								; case 0x7
02ac 4302       |C   |		.XXX[0x1]
02ad 00da       |    |		Load_Top	At_Offset_2
02ae 0091 05f7  |    |		Action	Push_String_Extended_Indexed,0x5f7				; "COMMENTS"
02b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02b1 00db       |    |		Load_Top	At_Offset_3
02b2 00db       |    |		Load_Top	At_Offset_3
02b3 00e0       |    |		Load_Encached	Standard_Cache
02b4 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
02b5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02b6 00da       |    |		Load_Top	At_Offset_2
02b7 00e0       |    |		Load_Encached	Standard_Cache
02b8 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
02b9 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
02ba 00db       |    |		Load_Top	At_Offset_3
02bb 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02bc 00db       |    |		Load_Top	At_Offset_3
02bd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02be e20d       |    |		Load	0x1,0xd
02bf 00dc       |    |		Load_Top	At_Offset_4
02c0 0267       | g  |		Execute	Discrete,Predecessor
02c1 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c2 e20d       |    |		Load	0x1,0xd
02c3 00dc       |    |		Load_Top	At_Offset_4
02c4 0268       | h  |		Execute	Discrete,Successor
02c5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
02c6 0000 0000  |    |		.XXX[0x2]
02c8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00001400}
02cc 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02e4       |    |		.CONST	0x02e4								; Address of begin
02d1 0004       |    |		.CONST	0x0004								; Address of exception handler
02d2 0005       |    |		.CONST	0x0005								; Number of locals
02d3			INIT_02d0:
02d3 029f 03fb  |    |		Declare_Subprogram	INIT_03f8,For_Call
02d5 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
02d6 00c6       |    |		Action	Check_Subprogram_Elaborated
02d7 4802       |H   |		Short_Literal	0x2
02d8 4802       |H   |		Short_Literal	0x2
02d9 0099       |    |		Action	Reference_Dynamic
02da 0093 0000  |    |		push_full_address	0x0
02dc 6017       |`   |		Indirect_Literal	Discrete,0x2f4,{0x80000000, 0x00020000}
02dd 0273       | s  |		Execute	Discrete,Plus
02de e008       |    |		Load	0x0,0x8
02df 0273       | s  |		Execute	Discrete,Plus
02e0 e009       |    |		Load	0x0,0x9
02e1 0273       | s  |		Execute	Discrete,Plus
02e2 4805       |H   |		Short_Literal	0x5
02e3 0007       |    |		Action	Break_Optional
02e4			BODY_02d0:
02e4 e5fb       |    |		Load	0x2,-0x5
02e5 e5fc       |    |		Load	0x2,-0x4
02e6 e5fd       |    |		Load	0x2,-0x3
02e7 e5fe       |    |		Load	0x2,-0x2
02e8 4800       |H   |		Short_Literal	0x0
02e9 e5ff       |    |		Load	0x2,-0x1
02ea 4803       |H   |		Short_Literal	0x3
02eb 4802       |H   |		Short_Literal	0x2
02ec 0099       |    |		Action	Reference_Dynamic
02ed 4804       |H   |		Short_Literal	0x4
02ee 4802       |H   |		Short_Literal	0x2
02ef 0099       |    |		Action	Reference_Dynamic
02f0 8225       | %  |		Call	0x1,0x25
02f1 4506       |E   |		Exit_Suprogram	New_Top_Offset 0x6
02f2 0000 0000  |    |		.XXX[0x2]
02f4 8000 0000  |    |		.LITERAL	{0x80000000, 0x00020000}
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 030c       |    |		.CONST	0x030c								; Address of begin
02f9 0004       |    |		.CONST	0x0004								; Address of exception handler
02fa 0004       |    |		.CONST	0x0004								; Number of locals
02fb			INIT_02f8:
02fb 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
02fc 00c6       |    |		Action	Check_Subprogram_Elaborated
02fd 4ffe       |O   |		Short_Literal	-0x2
02fe 4802       |H   |		Short_Literal	0x2
02ff 0099       |    |		Action	Reference_Dynamic
0300 0093 0000  |    |		push_full_address	0x0
0302 601d       |`   |		Indirect_Literal	Discrete,0x320,{0x80000000, 0x00010000}
0303 0273       | s  |		Execute	Discrete,Plus
0304 e5ff       |    |		Load	0x2,-0x1
0305 6016       |`   |		Indirect_Literal	Discrete,0x31c,{0x00000000, 0x0000ffff}
0306 0279       | y  |		Execute	Discrete,And
0307 0273       | s  |		Execute	Discrete,Plus
0308 e00a       |    |		Load	0x0,0xa
0309 0273       | s  |		Execute	Discrete,Plus
030a 4804       |H   |		Short_Literal	0x4
030b 0007       |    |		Action	Break_Optional
030c			BODY_02f8:
030c e5f9       |    |		Load	0x2,-0x7
030d e5fa       |    |		Load	0x2,-0x6
030e e5fb       |    |		Load	0x2,-0x5
030f e5fc       |    |		Load	0x2,-0x4
0310 4800       |H   |		Short_Literal	0x0
0311 e5fd       |    |		Load	0x2,-0x3
0312 4802       |H   |		Short_Literal	0x2
0313 4802       |H   |		Short_Literal	0x2
0314 0099       |    |		Action	Reference_Dynamic
0315 4803       |H   |		Short_Literal	0x3
0316 4802       |H   |		Short_Literal	0x2
0317 0099       |    |		Action	Reference_Dynamic
0318 8225       | %  |		Call	0x1,0x25
0319 4508       |E   |		Exit_Suprogram	New_Top_Offset 0x8
031a 0000 0000  |    |		.XXX[0x2]
031c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ffff}
0320 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0324 0000 0000  |    |		.BLANK	0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0330       | 0  |		.CONST	0x0330								; Address of begin
0329 0004       |    |		.CONST	0x0004								; Address of exception handler
032a 0002       |    |		.CONST	0x0002								; Number of locals
032b			INIT_0328:
032b e21e       |    |		Load	0x1,0x1e
032c 01da       |    |		Execute	Vector,Bounds
032d 00e9       |    |		Load_Encached	String_Cache
032e 035b       | [  |		Declare_Type	Array,Constrained
032f 0337       | 7  |		Declare_Variable	Array
0330			BODY_0328:
0330 00d8       |    |		Load_Top	At_Offset_0
0331 4801       |H   |		Short_Literal	0x1
0332 4803       |H   |		Short_Literal	0x3
0333 00da       |    |		Load_Top	At_Offset_2
0334 035b       | [  |		Declare_Type	Array,Constrained
0335 00d9       |    |		Load_Top	At_Offset_1
0336 01cd       |    |		Execute	Vector,Slice_Reference
0337 4801       |H   |		Short_Literal	0x1
0338 4803       |H   |		Short_Literal	0x3
0339 00e9       |    |		Load_Encached	String_Cache
033a 035b       | [  |		Declare_Type	Array,Constrained
033b 0337       | 7  |		Declare_Variable	Array
033c 482a       |H*  |		Short_Literal	0x2a
033d 4801       |H   |		Short_Literal	0x1
033e 00da       |    |		Load_Top	At_Offset_2
033f 01d6       |    |		Execute	Vector,Field_Write
0340 482a       |H*  |		Short_Literal	0x2a
0341 4802       |H   |		Short_Literal	0x2
0342 00da       |    |		Load_Top	At_Offset_2
0343 01d6       |    |		Execute	Vector,Field_Write
0344 482a       |H*  |		Short_Literal	0x2a
0345 4803       |H   |		Short_Literal	0x3
0346 00da       |    |		Load_Top	At_Offset_2
0347 01d6       |    |		Execute	Vector,Field_Write
0348 00cd       |    |		Action	Spare6_Action
0349 4801       |H   |		Short_Literal	0x1
034a 4803       |H   |		Short_Literal	0x3
034b 00db       |    |		Load_Top	At_Offset_3
034c 01ce       |    |		Execute	Vector,Slice_Write
034d 00d1       |    |		Pop_Control	Pop_Count_1
034e 00db       |    |		Load_Top	At_Offset_3
034f 01db       |    |		Execute	Vector,Length
0350 0d4e       | N  |		Execute_Immediate	Less,0x4e
0351 6819       |h   |		Jump_Zero	0x36b
0352 00db       |    |		Load_Top	At_Offset_3
0353 4801       |H   |		Short_Literal	0x1
0354 484d       |HM  |		Short_Literal	0x4d
0355 e5ff       |    |		Load	0x2,-0x1
0356 01db       |    |		Execute	Vector,Length
0357 0272       | r  |		Execute	Discrete,Minus
0358 00e9       |    |		Load_Encached	String_Cache
0359 035b       | [  |		Declare_Type	Array,Constrained
035a 0337       | 7  |		Declare_Variable	Array
035b 00d8       |    |		Load_Top	At_Offset_0
035c 01dc       |    |		Execute	Vector,Last
035d 4801       |H   |		Short_Literal	0x1
035e 0263       | c  |		Execute	Discrete,Above_Bound
035f 7005       |p   |		Jump_Nonzero	0x365
0360 4820       |H   |		Short_Literal	0x20
0361 00d9       |    |		Load_Top	At_Offset_1
0362 e404       |    |		Load	0x2,0x4
0363 01d6       |    |		Execute	Vector,Field_Write
0364 3ffb       |?   |		Loop_Increasing	0x360
0365 01cc       |    |		Execute	Vector,Catenate
0366 4804       |H   |		Short_Literal	0x4
0367 4850       |HP  |		Short_Literal	0x50
0368 00db       |    |		Load_Top	At_Offset_3
0369 01ce       |    |		Execute	Vector,Slice_Write
036a 7811       |x   |		Jump	0x37c
036b 00db       |    |		Load_Top	At_Offset_3
036c 01dd       |    |		Execute	Vector,First
036d e5ff       |    |		Load	0x2,-0x1
036e 01dd       |    |		Execute	Vector,First
036f 0a4f       | O  |		Execute_Immediate	Plus,0x4f
0370 0afd       |    |		Execute_Immediate	Plus,-0x3
0371 00d8       |    |		Load_Top	At_Offset_0
0372 00e2       |    |		Load_Encached	Integer_Cache
0373 0260       | `  |		Execute	Discrete,In_Type
0374 7001       |p   |		Jump_Nonzero	0x376
0375 0801       |    |		Execute_Immediate	Raise,0x1
0376 e5ff       |    |		Load	0x2,-0x1
0377 01cf       |    |		Execute	Vector,Slice_Read
0378 4804       |H   |		Short_Literal	0x4
0379 4850       |HP  |		Short_Literal	0x50
037a 00db       |    |		Load_Top	At_Offset_3
037b 01ce       |    |		Execute	Vector,Slice_Write
037c 00d8       |    |		Load_Top	At_Offset_0
037d e005       |    |		Load	0x0,0x5
037e 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
037f e21e       |    |		Load	0x1,0x1e
0380 01c6       |    |		Execute	Vector,Convert_To_Formal
0381 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0382 0000 0000  |    |		.BLANK	0000[0x6]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 0004       |    |		.CONST	0x0004								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b 480a       |H   |		Short_Literal	0xa
038c 00db       |    |		Load_Top	At_Offset_3
038d 01cb       |    |		Execute	Vector,Append
038e e21f       |    |		Load	0x1,0x1f
038f 01c3       |    |		Execute	Vector,Check_In_Type
0390 e215       |    |		Load	0x1,0x15
0391 e222       | "  |		Load	0x1,0x22
0392 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0393 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0394 0000 0000  |    |		.BLANK	0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03b8       |    |		.CONST	0x03b8								; Address of begin
0399 03eb       |    |		.CONST	0x03eb								; Address of exception handler
039a 000b       |    |		.CONST	0x000b								; Number of locals
039b			INIT_0398:
039b 4801       |H   |		Short_Literal	0x1
039c e5f8       |    |		Load	0x2,-0x8
039d e004       |    |		Load	0x0,0x4
039e 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
039f 035b       | [  |		Declare_Type	Array,Constrained
03a0 e00b       |    |		Load	0x0,0xb
03a1 e00c       |    |		Load	0x0,0xc
03a2 00da       |    |		Load_Top	At_Offset_2
03a3 e002       |    |		Load	0x0,0x2
03a4 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
03a5 0387       |    |		Declare_Variable	Package
03a6 00d8       |    |		Load_Top	At_Offset_0
03a7 020f       |    |		Execute	Module,Activate
03a8 029f 0403  |    |		Declare_Subprogram	INIT_0400,For_Call
03aa 029f 042b  |   +|		Declare_Subprogram	INIT_0428,For_Call
03ac 029f 0443  |   C|		Declare_Subprogram	INIT_0440,For_Call
03ae 029f 047b  |   {|		Declare_Subprogram	INIT_0478,For_Call
03b0 029f 04cb  |    |		Declare_Subprogram	INIT_04c8,For_Call
03b2 029f 0533  |   3|		Declare_Subprogram	INIT_0530,For_Call
03b4 029f 0573  |   s|		Declare_Subprogram	INIT_0570,For_Call
03b6 029f 059b  |    |		Declare_Subprogram	INIT_0598,For_Call
03b8			BODY_0398:
03b8 8409       |    |		Call	0x2,0x9
03b9 00cf       |    |		Action	Mark_Auxiliary
03ba e20d       |    |		Load	0x1,0xd
03bb 0265       | e  |		Execute	Discrete,Reverse_Bounds
03bc 0007       |    |		Action	Break_Optional
03bd 00d8       |    |		Load_Top	At_Offset_0
03be 840b       |    |		Call	0x2,0xb
03bf 7002       |p   |		Jump_Nonzero	0x3c2
03c0 00d2       |    |		Pop_Control	Pop_Count_2
03c1 7826       |x&  |		Jump	0x3e8
03c2 e217       |    |		Load	0x1,0x17
03c3 00d9       |    |		Load_Top	At_Offset_1
03c4 e21c       |    |		Load	0x1,0x1c
03c5 01d7       |    |		Execute	Vector,Field_Read
03c6 0f00       |    |		Execute_Immediate	Equal,0x0
03c7 0278       | x  |		Execute	Discrete,Or
03c8 681d       |h   |		Jump_Zero	0x3e6
03c9 00d8       |    |		Load_Top	At_Offset_0
03ca e5fb       |    |		Load	0x2,-0x5
03cb 01d7       |    |		Execute	Vector,Field_Read
03cc 6814       |h   |		Jump_Zero	0x3e1
03cd 00d8       |    |		Load_Top	At_Offset_0
03ce 85fe       |    |		Call	0x2,-0x2
03cf 7002       |p   |		Jump_Nonzero	0x3d2
03d0 00d2       |    |		Pop_Control	Pop_Count_2
03d1 7816       |x   |		Jump	0x3e8
03d2 6021       |`!  |		Indirect_Literal	Discrete,0x3f4,{0x00000000, 0x7fffffff}
03d3 8406       |    |		Call	0x2,0x6
03d4 00d8       |    |		Load_Top	At_Offset_0
03d5 e21a       |    |		Load	0x1,0x1a
03d6 01d7       |    |		Execute	Vector,Field_Read
03d7 0227       | '  |		Execute	Access,All_Reference
03d8 8408       |    |		Call	0x2,0x8
03d9 601a       |`   |		Indirect_Literal	Discrete,0x3f4,{0x00000000, 0x7fffffff}
03da 8406       |    |		Call	0x2,0x6
03db 00d8       |    |		Load_Top	At_Offset_0
03dc 0f09       |    |		Execute_Immediate	Equal,0x9
03dd 6808       |h   |		Jump_Zero	0x3e6
03de 6015       |`   |		Indirect_Literal	Discrete,0x3f4,{0x00000000, 0x7fffffff}
03df 8406       |    |		Call	0x2,0x6
03e0 7805       |x   |		Jump	0x3e6
03e1 00d8       |    |		Load_Top	At_Offset_0
03e2 e21a       |    |		Load	0x1,0x1a
03e3 01d7       |    |		Execute	Vector,Field_Read
03e4 0227       | '  |		Execute	Access,All_Reference
03e5 8407       |    |		Call	0x2,0x7
03e6 00c8       |    |		Action	Pop_Auxiliary_Range
03e7 3fd5       |?   |		Loop_Increasing	0x3bd
03e8 00ce       |    |		Action	Pop_Auxiliary
03e9 840a       |    |		Call	0x2,0xa
03ea 4509       |E   |		Exit_Suprogram	New_Top_Offset 0x9
03eb			TRAP_0398:
03eb 0007       |    |		Action	Break_Optional
03ec e215       |    |		Load	0x1,0x15
03ed e002       |    |		Load	0x0,0x2
03ee 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
03ef c215       |    |		Store	0x1,0x15
03f0 00d8       |    |		Load_Top	At_Offset_0
03f1 0101       |    |		Execute	Exception,Reraise
03f2 0000 0000  |    |		.XXX[0x2]
03f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb       |    |		.CONST	0x03fb								; Address of begin
03f9 0004       |    |		.CONST	0x0004								; Address of exception handler
03fa 0001       |    |		.CONST	0x0001								; Number of locals
03fb			BODY_03f8:
03fb			INIT_03f8:
03fb 4801       |H   |		Short_Literal	0x1
03fc 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
03fd 0000 0000  |    |		.XXX[0x3]
03ff 0000       |    |
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403       |    |		.CONST	0x0403								; Address of begin
0401 0415       |    |		.CONST	0x0415								; Address of exception handler
0402 0001       |    |		.CONST	0x0001								; Number of locals
0403			BODY_0400:
0403			INIT_0400:
0403 00da       |    |		Load_Top	At_Offset_2
0404 00d8       |    |		Load_Top	At_Offset_0
0405 e00d       |    |		Load	0x0,0xd
0406 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0407 0260       | `  |		Execute	Discrete,In_Type
0408 7001       |p   |		Jump_Nonzero	0x40a
0409 0801       |    |		Execute_Immediate	Raise,0x1
040a e216       |    |		Load	0x1,0x16
040b e00e       |    |		Load	0x0,0xe
040c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
040d 00da       |    |		Load_Top	At_Offset_2
040e 0e50       | P  |		Execute_Immediate	Not_Equal,0x50
040f 6804       |h   |		Jump_Zero	0x414
0410 4800       |H   |		Short_Literal	0x0
0411 e216       |    |		Load	0x1,0x16
0412 e00e       |    |		Load	0x0,0xe
0413 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0414 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0415			TRAP_0400:
0415 0007       |    |		Action	Break_Optional
0416 e00f       |    |		Load	0x0,0xf
0417 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0418 4808       |H   |		Short_Literal	0x8
0419 0092 0602  |    |		Action	Push_String_Extended,0x602					; "unexpected exception from Set_Block_Size or Set_Streaming_Mode(On):"
041b 4801       |H   |		Short_Literal	0x1
041c 4801       |H   |		Short_Literal	0x1
041d e010       |    |		Load	0x0,0x10
041e 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
041f 01cc       |    |		Execute	Vector,Catenate
0420 e011       |    |		Load	0x0,0x11
0421 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0422 00d8       |    |		Load_Top	At_Offset_0
0423 0101       |    |		Execute	Exception,Reraise
0424 0000 0000  |    |		.BLANK	0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b       | +  |		.CONST	0x042b								; Address of begin
0429 0430       | 0  |		.CONST	0x0430								; Address of exception handler
042a 0001       |    |		.CONST	0x0001								; Number of locals
042b			BODY_0428:
042b			INIT_0428:
042b 4801       |H   |		Short_Literal	0x1
042c e216       |    |		Load	0x1,0x16
042d e00e       |    |		Load	0x0,0xe
042e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
042f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0430			TRAP_0428:
0430 0007       |    |		Action	Break_Optional
0431 e00f       |    |		Load	0x0,0xf
0432 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0433 4808       |H   |		Short_Literal	0x8
0434 0092 0603  |    |		Action	Push_String_Extended,0x603					; "unexpected exception from Set_Streaming_Mode(Off):"
0436 4801       |H   |		Short_Literal	0x1
0437 4801       |H   |		Short_Literal	0x1
0438 e010       |    |		Load	0x0,0x10
0439 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
043a 01cc       |    |		Execute	Vector,Catenate
043b e011       |    |		Load	0x0,0x11
043c 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
043d 00d8       |    |		Load_Top	At_Offset_0
043e 0101       |    |		Execute	Exception,Reraise
043f 0000       |    |		.XXX[0x1]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0448       | H  |		.CONST	0x0448								; Address of begin
0441 0469       | i  |		.CONST	0x0469								; Address of exception handler
0442 0004       |    |		.CONST	0x0004								; Number of locals
0443			INIT_0440:
0443 00e3       |    |		Load_Encached	Natural_Cache
0444 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0445 00e3       |    |		Load_Encached	Natural_Cache
0446 e21e       |    |		Load	0x1,0x1e
0447 0337       | 7  |		Declare_Variable	Array
0448			BODY_0440:
0448 4850       |HP  |		Short_Literal	0x50
0449 8404       |    |		Call	0x2,0x4
044a 00cf       |    |		Action	Mark_Auxiliary
044b 7816       |x   |		Jump	0x462
044c 00e3       |    |		Load_Encached	Natural_Cache
044d 00da       |    |		Load_Top	At_Offset_2
044e e216       |    |		Load	0x1,0x16
044f e00e       |    |		Load	0x0,0xe
0450 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0451 00d1       |    |		Pop_Control	Pop_Count_1
0452 005b       | [  |		Store_Top	Discrete,At_Offset_3
0453 00da       |    |		Load_Top	At_Offset_2
0454 7003       |p   |		Jump_Nonzero	0x458
0455 e221       | !  |		Load	0x1,0x21
0456 8224       | $  |		Call	0x1,0x24
0457 780e       |x   |		Jump	0x466
0458 00da       |    |		Load_Top	At_Offset_2
0459 0f50       | P  |		Execute_Immediate	Equal,0x50
045a 7001       |p   |		Jump_Nonzero	0x45c
045b 0887       |    |		Execute_Immediate	Raise,0x87
045c 00d9       |    |		Load_Top	At_Offset_1
045d 8224       | $  |		Call	0x1,0x24
045e 00db       |    |		Load_Top	At_Offset_3
045f 0a01       |    |		Execute_Immediate	Plus,0x1
0460 c602       |    |		Store	0x3,0x2
0461 00c9       |    |		Action	Pop_Auxiliary_Loop
0462 00db       |    |		Load_Top	At_Offset_3
0463 e7ff       |    |		Load	0x3,-0x1
0464 027c       | |  |		Execute	Discrete,Less
0465 77e6       |w   |		Jump_Nonzero	0x44c
0466 00ce       |    |		Action	Pop_Auxiliary
0467 8405       |    |		Call	0x2,0x5
0468 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0469			TRAP_0440:
0469 0007       |    |		Action	Break_Optional
046a e00f       |    |		Load	0x0,0xf
046b 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
046c 4808       |H   |		Short_Literal	0x8
046d 0092 0604  |    |		Action	Push_String_Extended,0x604					; "unexpected exception reading labels: "
046f 4801       |H   |		Short_Literal	0x1
0470 4801       |H   |		Short_Literal	0x1
0471 e010       |    |		Load	0x0,0x10
0472 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0473 01cc       |    |		Execute	Vector,Catenate
0474 e011       |    |		Load	0x0,0x11
0475 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0476 00d8       |    |		Load_Top	At_Offset_0
0477 0101       |    |		Execute	Exception,Reraise
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 047e       | ~  |		.CONST	0x047e								; Address of begin
0479 04b2       |    |		.CONST	0x04b2								; Address of exception handler
047a 0003       |    |		.CONST	0x0003								; Number of locals
047b			INIT_0478:
047b e00e       |    |		Load	0x0,0xe
047c 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
047d 00e3       |    |		Load_Encached	Natural_Cache
047e			BODY_0478:
047e e7ff       |    |		Load	0x3,-0x1
047f 0092 0605  |    |		Action	Push_String_Extended,0x605					; " Skipped"
0481 01cc       |    |		Execute	Vector,Catenate
0482 8223       | #  |		Call	0x1,0x23
0483 8224       | $  |		Call	0x1,0x24
0484 00e3       |    |		Load_Encached	Natural_Cache
0485 e00e       |    |		Load	0x0,0xe
0486 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
0487 4803       |H   |		Short_Literal	0x3
0488 e216       |    |		Load	0x1,0x16
0489 e00e       |    |		Load	0x0,0xe
048a 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
048b 005b       | [  |		Store_Top	Discrete,At_Offset_3
048c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
048d 00d8       |    |		Load_Top	At_Offset_0
048e 0e03       |    |		Execute_Immediate	Not_Equal,0x3
048f 6821       |h!  |		Jump_Zero	0x4b1
0490 e00f       |    |		Load	0x0,0xf
0491 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0492 4807       |H   |		Short_Literal	0x7
0493 0092 0606  |    |		Action	Push_String_Extended,0x606					; "skipping "
0495 e7ff       |    |		Load	0x3,-0x1
0496 01cc       |    |		Execute	Vector,Catenate
0497 0092 0607  |    |		Action	Push_String_Extended,0x607					; " file skipped"
0499 01cc       |    |		Execute	Vector,Catenate
049a 00db       |    |		Load_Top	At_Offset_3
049b 00e0       |    |		Load_Encached	Standard_Cache
049c 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
049d 01cc       |    |		Execute	Vector,Catenate
049e 0092 0608  |    |		Action	Push_String_Extended,0x608					; " instead of"
04a0 01cc       |    |		Execute	Vector,Catenate
04a1 0092 0609  |    |		Action	Push_String_Extended,0x609					; " 3"
04a3 01cc       |    |		Execute	Vector,Catenate
04a4 0092 060a  |    |		Action	Push_String_Extended,0x60a					; " marks; obstacle encountered => "
04a6 01cc       |    |		Execute	Vector,Catenate
04a7 e602       |    |		Load	0x3,0x2
04a8 e00e       |    |		Load	0x0,0xe
04a9 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
04aa 011c       |    |		Execute	Any,Convert_Unchecked
04ab 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04ac 01cc       |    |		Execute	Vector,Catenate
04ad e011       |    |		Load	0x0,0x11
04ae 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04af e214       |    |		Load	0x1,0x14
04b0 0257       | W  |		Execute	Discrete,Raise
04b1 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
04b2			TRAP_0478:
04b2 0007       |    |		Action	Break_Optional
04b3 e00f       |    |		Load	0x0,0xf
04b4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04b5 4808       |H   |		Short_Literal	0x8
04b6 0092 060b  |    |		Action	Push_String_Extended,0x60b					; "unexpected exception skipping "
04b8 e7ff       |    |		Load	0x3,-0x1
04b9 01cc       |    |		Execute	Vector,Catenate
04ba 0092 060c  |    |		Action	Push_String_Extended,0x60c					; ": "
04bc 01cc       |    |		Execute	Vector,Catenate
04bd 4801       |H   |		Short_Literal	0x1
04be 4801       |H   |		Short_Literal	0x1
04bf e010       |    |		Load	0x0,0x10
04c0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
04c1 01cc       |    |		Execute	Vector,Catenate
04c2 e011       |    |		Load	0x0,0x11
04c3 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
04c4 00d8       |    |		Load_Top	At_Offset_0
04c5 0101       |    |		Execute	Exception,Reraise
04c6 0000 0000  |    |		.XXX[0x2]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d5       |    |		.CONST	0x04d5								; Address of begin
04c9 0518       |    |		.CONST	0x0518								; Address of exception handler
04ca 0005       |    |		.CONST	0x0005								; Number of locals
04cb			INIT_04c8:
04cb e002       |    |		Load	0x0,0x2
04cc 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
04cd 02c7       |    |		Declare_Variable	Any
04ce 00d8       |    |		Load_Top	At_Offset_0
04cf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
04d0 00e3       |    |		Load_Encached	Natural_Cache
04d1 e402       |    |		Load	0x2,0x2
04d2 0337       | 7  |		Declare_Variable	Array
04d3 e00e       |    |		Load	0x0,0xe
04d4 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
04d5			BODY_04c8:
04d5 e5f8       |    |		Load	0x2,-0x8
04d6 8404       |    |		Call	0x2,0x4
04d7 00db       |    |		Load_Top	At_Offset_3
04d8 00ea       |    |		Load_Encached	Null_String_Cache
04d9 482e       |H.  |		Short_Literal	0x2e
04da e5fd       |    |		Load	0x2,-0x3
04db 01cb       |    |		Execute	Vector,Append
04dc e7ff       |    |		Load	0x3,-0x1
04dd 01cc       |    |		Execute	Vector,Catenate
04de 4801       |H   |		Short_Literal	0x1
04df e002       |    |		Load	0x0,0x2
04e0 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
04e1 c602       |    |		Store	0x3,0x2
04e2 e7ff       |    |		Load	0x3,-0x1
04e3 8223       | #  |		Call	0x1,0x23
04e4 8224       | $  |		Call	0x1,0x24
04e5 00cf       |    |		Action	Mark_Auxiliary
04e6 e00e       |    |		Load	0x0,0xe
04e7 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
04e8 00e3       |    |		Load_Encached	Natural_Cache
04e9 e604       |    |		Load	0x3,0x4
04ea e216       |    |		Load	0x1,0x16
04eb e00e       |    |		Load	0x0,0xe
04ec 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
04ed 00d1       |    |		Pop_Control	Pop_Count_1
04ee c603       |    |		Store	0x3,0x3
04ef 005a       | Z  |		Store_Top	Discrete,At_Offset_2
04f0 00d9       |    |		Load_Top	At_Offset_1
04f1 6814       |h   |		Jump_Zero	0x506
04f2 e00f       |    |		Load	0x0,0xf
04f3 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
04f4 4807       |H   |		Short_Literal	0x7
04f5 0092 060d  |    |		Action	Push_String_Extended,0x60d					; "failed to read "
04f7 e7ff       |    |		Load	0x3,-0x1
04f8 01cc       |    |		Execute	Vector,Catenate
04f9 0092 060e  |    |		Action	Push_String_Extended,0x60e					; " from tape because "
04fb 01cc       |    |		Execute	Vector,Catenate
04fc e605       |    |		Load	0x3,0x5
04fd e00e       |    |		Load	0x0,0xe
04fe 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
04ff 011c       |    |		Execute	Any,Convert_Unchecked
0500 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0501 01cc       |    |		Execute	Vector,Catenate
0502 e011       |    |		Load	0x0,0x11
0503 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0504 e214       |    |		Load	0x1,0x14
0505 0257       | W  |		Execute	Discrete,Raise
0506 00db       |    |		Load_Top	At_Offset_3
0507 7003       |p   |		Jump_Nonzero	0x50b
0508 e221       | !  |		Load	0x1,0x21
0509 8224       | $  |		Call	0x1,0x24
050a 7806       |x   |		Jump	0x511
050b 00da       |    |		Load_Top	At_Offset_2
050c e602       |    |		Load	0x3,0x2
050d e403       |    |		Load	0x2,0x3
050e 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
050f 00c9       |    |		Action	Pop_Auxiliary_Loop
0510 7fd5       |    |		Jump	0x4e6
0511 00ce       |    |		Action	Pop_Auxiliary
0512 00db       |    |		Load_Top	At_Offset_3
0513 e002       |    |		Load	0x0,0x2
0514 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0515 c602       |    |		Store	0x3,0x2
0516 8405       |    |		Call	0x2,0x5
0517 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0518			TRAP_04c8:
0518 0007       |    |		Action	Break_Optional
0519 e00f       |    |		Load	0x0,0xf
051a 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
051b 4808       |H   |		Short_Literal	0x8
051c 0092 060f  |    |		Action	Push_String_Extended,0x60f					; "unexpected exception reading "
051e e7ff       |    |		Load	0x3,-0x1
051f 01cc       |    |		Execute	Vector,Catenate
0520 0092 0610  |    |		Action	Push_String_Extended,0x610					; " from tape: "
0522 01cc       |    |		Execute	Vector,Catenate
0523 4801       |H   |		Short_Literal	0x1
0524 4801       |H   |		Short_Literal	0x1
0525 e010       |    |		Load	0x0,0x10
0526 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0527 01cc       |    |		Execute	Vector,Catenate
0528 e011       |    |		Load	0x0,0x11
0529 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
052a 00d8       |    |		Load_Top	At_Offset_0
052b 0101       |    |		Execute	Exception,Reraise
052c 0000 0000  |    |		.BLANK	0000[0x4]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0535       | 5  |		.CONST	0x0535								; Address of begin
0531 0556       | V  |		.CONST	0x0556								; Address of exception handler
0532 0002       |    |		.CONST	0x0002								; Number of locals
0533			INIT_0530:
0533 029f 05b3  |    |		Declare_Subprogram	INIT_05b0,For_Call
0535			BODY_0530:
0535 e215       |    |		Load	0x1,0x15
0536 00ea       |    |		Load_Encached	Null_String_Cache
0537 482e       |H.  |		Short_Literal	0x2e
0538 e5fd       |    |		Load	0x2,-0x3
0539 01cb       |    |		Execute	Vector,Append
053a e21d       |    |		Load	0x1,0x1d
053b 01cc       |    |		Execute	Vector,Catenate
053c 4801       |H   |		Short_Literal	0x1
053d e002       |    |		Load	0x0,0x2
053e 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
053f c215       |    |		Store	0x1,0x15
0540 e216       |    |		Load	0x1,0x16
0541 e012       |    |		Load	0x0,0x12
0542 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0543 e013       |    |		Load	0x0,0x13
0544 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0545 00ea       |    |		Load_Encached	Null_String_Cache
0546 e5f9       |    |		Load	0x2,-0x7
0547 e014       |    |		Load	0x0,0x14
0548 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0549 00d9       |    |		Load_Top	At_Offset_1
054a 00d0       |    |		Action	Swap_Control
054b 0260       | `  |		Execute	Discrete,In_Type
054c 7001       |p   |		Jump_Nonzero	0x54e
054d 0801       |    |		Execute_Immediate	Raise,0x1
054e e014       |    |		Load	0x0,0x14
054f 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
0550 4800       |H   |		Short_Literal	0x0
0551 e003       |    |		Load	0x0,0x3
0552 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0553 c216       |    |		Store	0x1,0x16
0554 8602       |    |		Call	0x3,0x2
0555 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0556			TRAP_0530:
0556 e214       |    |		Load	0x1,0x14
0557 010f       |    |		Execute	Exception,Equal
0558 6802       |h   |		Jump_Zero	0x55b
0559 00d8       |    |		Load_Top	At_Offset_0
055a 0101       |    |		Execute	Exception,Reraise
055b e00f       |    |		Load	0x0,0xf
055c 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
055d 4808       |H   |		Short_Literal	0x8
055e 0092 0611  |    |		Action	Push_String_Extended,0x611					; "unexpected exception opening tape: "
0560 4801       |H   |		Short_Literal	0x1
0561 4801       |H   |		Short_Literal	0x1
0562 e010       |    |		Load	0x0,0x10
0563 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0564 01cc       |    |		Execute	Vector,Catenate
0565 e011       |    |		Load	0x0,0x11
0566 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0567 00d8       |    |		Load_Top	At_Offset_0
0568 0101       |    |		Execute	Exception,Reraise
0569 0000 0000  |    |		.BLANK	0000[0x7]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573       | s  |		.CONST	0x0573								; Address of begin
0571 0582       |    |		.CONST	0x0582								; Address of exception handler
0572 0001       |    |		.CONST	0x0001								; Number of locals
0573			BODY_0570:
0573			INIT_0570:
0573 e215       |    |		Load	0x1,0x15
0574 e002       |    |		Load	0x0,0x2
0575 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0576 c215       |    |		Store	0x1,0x15
0577 e5fa       |    |		Load	0x2,-0x6
0578 6804       |h   |		Jump_Zero	0x57d
0579 e216       |    |		Load	0x1,0x16
057a e00e       |    |		Load	0x0,0xe
057b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
057c 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
057d e216       |    |		Load	0x1,0x16
057e e003       |    |		Load	0x0,0x3
057f 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0580 c216       |    |		Store	0x1,0x16
0581 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0582			TRAP_0570:
0582 0007       |    |		Action	Break_Optional
0583 e00f       |    |		Load	0x0,0xf
0584 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0585 4808       |H   |		Short_Literal	0x8
0586 0092 0612  |    |		Action	Push_String_Extended,0x612					; "unexpected exception closing tape: "
0588 4801       |H   |		Short_Literal	0x1
0589 4801       |H   |		Short_Literal	0x1
058a e010       |    |		Load	0x0,0x10
058b 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
058c 01cc       |    |		Execute	Vector,Catenate
058d e011       |    |		Load	0x0,0x11
058e 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
058f 00d8       |    |		Load_Top	At_Offset_0
0590 0101       |    |		Execute	Exception,Reraise
0591 0000 0000  |    |		.BLANK	0000[0x7]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059b       |    |		.CONST	0x059b								; Address of begin
0599 0004       |    |		.CONST	0x0004								; Address of exception handler
059a 0001       |    |		.CONST	0x0001								; Number of locals
059b			BODY_0598:
059b			INIT_0598:
059b 00cf       |    |		Action	Mark_Auxiliary
059c 4809       |H   |		Short_Literal	0x9
059d e7ff       |    |		Load	0x3,-0x1
059e 0263       | c  |		Execute	Discrete,Above_Bound
059f 7008       |p   |		Jump_Nonzero	0x5a8
05a0 00d8       |    |		Load_Top	At_Offset_0
05a1 e5fb       |    |		Load	0x2,-0x5
05a2 01d7       |    |		Execute	Vector,Field_Read
05a3 6802       |h   |		Jump_Zero	0x5a6
05a4 4801       |H   |		Short_Literal	0x1
05a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a6 00c8       |    |		Action	Pop_Auxiliary_Range
05a7 3ff8       |?   |		Loop_Increasing	0x5a0
05a8 00ce       |    |		Action	Pop_Auxiliary
05a9 4800       |H   |		Short_Literal	0x0
05aa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05ab 0000 0000  |    |		.BLANK	0000[0x5]
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b6       |    |		.CONST	0x05b6								; Address of begin
05b1 05e8       |    |		.CONST	0x05e8								; Address of exception handler
05b2 0003       |    |		.CONST	0x0003								; Number of locals
05b3			INIT_05b0:
05b3 00e3       |    |		Load_Encached	Natural_Cache
05b4 e21e       |    |		Load	0x1,0x1e
05b5 0337       | 7  |		Declare_Variable	Array
05b6			BODY_05b0:
05b6 4802       |H   |		Short_Literal	0x2
05b7 8406       |    |		Call	0x2,0x6
05b8 4850       |HP  |		Short_Literal	0x50
05b9 8404       |    |		Call	0x2,0x4
05ba 00e3       |    |		Load_Encached	Natural_Cache
05bb 00d9       |    |		Load_Top	At_Offset_1
05bc e216       |    |		Load	0x1,0x16
05bd e00e       |    |		Load	0x0,0xe
05be 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
05bf 00d1       |    |		Pop_Control	Pop_Count_1
05c0 005a       | Z  |		Store_Top	Discrete,At_Offset_2
05c1 00d9       |    |		Load_Top	At_Offset_1
05c2 0f50       | P  |		Execute_Immediate	Equal,0x50
05c3 7001       |p   |		Jump_Nonzero	0x5c5
05c4 0887       |    |		Execute_Immediate	Raise,0x87
05c5 00d8       |    |		Load_Top	At_Offset_0
05c6 8224       | $  |		Call	0x1,0x24
05c7 8405       |    |		Call	0x2,0x5
05c8 4850       |HP  |		Short_Literal	0x50
05c9 00d9       |    |		Load_Top	At_Offset_1
05ca 01d7       |    |		Execute	Vector,Field_Read
05cb 0f31       | 1  |		Execute_Immediate	Equal,0x31
05cc 6803       |h   |		Jump_Zero	0x5d0
05cd 4800       |H   |		Short_Literal	0x0
05ce a217       |    |		Store_Unchecked	0x1,0x17
05cf 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05d0 4850       |HP  |		Short_Literal	0x50
05d1 00d9       |    |		Load_Top	At_Offset_1
05d2 01d7       |    |		Execute	Vector,Field_Read
05d3 0f32       | 2  |		Execute_Immediate	Equal,0x32
05d4 6803       |h   |		Jump_Zero	0x5d8
05d5 4801       |H   |		Short_Literal	0x1
05d6 a217       |    |		Store_Unchecked	0x1,0x17
05d7 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
05d8 e00f       |    |		Load	0x0,0xf
05d9 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05da 4807       |H   |		Short_Literal	0x7
05db 0092 0613  |    |		Action	Push_String_Extended,0x613					; "unexpected tape format; UVL2 label = \x22"
05dd 00db       |    |		Load_Top	At_Offset_3
05de e005       |    |		Load	0x0,0x5
05df 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
05e0 01cc       |    |		Execute	Vector,Catenate
05e1 0092 0614  |    |		Action	Push_String_Extended,0x614					; "\x22"
05e3 01cc       |    |		Execute	Vector,Catenate
05e4 e011       |    |		Load	0x0,0x11
05e5 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05e6 e214       |    |		Load	0x1,0x14
05e7 0257       | W  |		Execute	Discrete,Raise
05e8			TRAP_05b0:
05e8 0007       |    |		Action	Break_Optional
05e9 e00f       |    |		Load	0x0,0xf
05ea 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
05eb 4808       |H   |		Short_Literal	0x8
05ec 0092 0604  |    |		Action	Push_String_Extended,0x604					; "unexpected exception reading labels: "
05ee 4801       |H   |		Short_Literal	0x1
05ef 4801       |H   |		Short_Literal	0x1
05f0 e010       |    |		Load	0x0,0x10
05f1 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
05f2 01cc       |    |		Execute	Vector,Catenate
05f3 e011       |    |		Load	0x0,0x11
05f4 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
05f5 e214       |    |		Load	0x1,0x14
05f6 0257       | W  |		Execute	Discrete,Raise
05f7 ; --------------------------------------------------------------------------------------
05f7 ; STRING TABLE
05f7 ; --------------------------------------------------------------------------------------
05f7 003e       | >  |		.STRTAB	0x003e->0x0616							; "COMMENTS"
05f8 0044       | D  |		.STRTAB	0x0044->0x061a							; "IOP_DUMP0"
05f9 004b       | K  |		.STRTAB	0x004b->0x061e							; "IOP_DUMP1"
05fa 0052       | R  |		.STRTAB	0x0052->0x0623							; "IOP_DUMP2"
05fb 0059       | Y  |		.STRTAB	0x0059->0x0627							; "IOP_DUMP3"
05fc 0060       | `  |		.STRTAB	0x0060->0x062c							; "IOP_DUMP4"
05fd 0067       | g  |		.STRTAB	0x0067->0x0630							; "SAVED_STATE"
05fe 0070       | p  |		.STRTAB	0x0070->0x0636							; "REGISTERS"
05ff 0077       | w  |		.STRTAB	0x0077->0x063a							; "TAG_STORE"
0600 007e       | ~  |		.STRTAB	0x007e->0x063f							; "MEMORY"
0601 0082       |    |		.STRTAB	0x0082->0x0642							; "LABELS"
0602 0086       |    |		.STRTAB	0x0086->0x0645							; "unexpected exception from Set_Block_Size or Set_Streaming_Mode(On):"
0603 00c7       |    |		.STRTAB	0x00c7->0x0666							; "unexpected exception from Set_Streaming_Mode(Off):"
0604 00f7       |    |		.STRTAB	0x00f7->0x067f							; "unexpected exception reading labels: "
0605 011a       |    |		.STRTAB	0x011a->0x0692							; " Skipped"
0606 0120       |    |		.STRTAB	0x0120->0x0696							; "skipping "
0607 0127       | '  |		.STRTAB	0x0127->0x069a							; " file skipped"
0608 0132       | 2  |		.STRTAB	0x0132->0x06a1							; " instead of"
0609 013b       | ;  |		.STRTAB	0x013b->0x06a6							; " 3"
060a 013b       | ;  |		.STRTAB	0x013b->0x06a7							; " marks; obstacle encountered => "
060b 0159       | Y  |		.STRTAB	0x0159->0x06b7							; "unexpected exception skipping "
060c 0175       | u  |		.STRTAB	0x0175->0x06c6							; ": "
060d 0175       | u  |		.STRTAB	0x0175->0x06c7							; "failed to read "
060e 0182       |    |		.STRTAB	0x0182->0x06cf							; " from tape because "
060f 0193       |    |		.STRTAB	0x0193->0x06d8							; "unexpected exception reading "
0610 01ae       |    |		.STRTAB	0x01ae->0x06e7							; " from tape: "
0611 01b8       |    |		.STRTAB	0x01b8->0x06ed							; "unexpected exception opening tape: "
0612 01d9       |    |		.STRTAB	0x01d9->0x06fe							; "unexpected exception closing tape: "
0613 01fa       |    |		.STRTAB	0x01fa->0x0710							; "unexpected tape format; UVL2 label = \x22"
0614 021e       |    |		.STRTAB	0x021e->0x0723							; "\x22"
0615 021d       |    |		.STREND 0x021d->0x0723
0616 434f 4d4d  |COMM|		.STRTAB_STRINGS
0724 0000 0000  |    |		.BLANK	0000[0x4]
0728 ; --------------------------------------------------------------------------------------
0728 ; Debug Table
0728 ; --------------------------------------------------------------------------------------
0728 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0xf1ee,0x0000,0x0001,0x0000
072e 0000 0000  |    |		.BLANK	0000[0xd2]