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

⟦36a4ea3d7⟧

    Length: 6144 (0x1800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦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 0870       | p  |		.CONST	0x0870								; 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 0005       |    |		.CONST	0x0005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 022b       | +  |		.CONST	0x022b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 004a       | J  |		.CONST	0x004a								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1
000c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
000d 0129       | )  |		Execute	Any,Make_Visible
000e 4800       |H   |		Short_Literal	0x0
000f 480b       |H   |		Short_Literal	0xb
0010 029f 0233  |   3|		Declare_Subprogram	INIT_0230,For_Call
0012 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0013 e001       |    |		Load	0x0,0x1
0014 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0015 0129       | )  |		Execute	Any,Make_Visible
0016 4801       |H   |		Short_Literal	0x1
0017 480c       |H   |		Short_Literal	0xc
0018 00e2       |    |		Load_Encached	Integer_Cache
0019 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001a 4800       |H   |		Short_Literal	0x0
001b 483b       |H;  |		Short_Literal	0x3b
001c 00e2       |    |		Load_Encached	Integer_Cache
001d 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001e 4800       |H   |		Short_Literal	0x0
001f 483b       |H;  |		Short_Literal	0x3b
0020 00e2       |    |		Load_Encached	Integer_Cache
0021 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0022 4800       |H   |		Short_Literal	0x0
0023 4801       |H   |		Short_Literal	0x1
0024 029f 0263  |   c|		Declare_Subprogram	INIT_0260,For_Call
0026 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0027 e20d       |    |		Load	0x1,0xd
0028 e20e       |    |		Load	0x1,0xe
0029 e20f       |    |		Load	0x1,0xf
002a e210       |    |		Load	0x1,0x10
002b e211       |    |		Load	0x1,0x11
002c e212       |    |		Load	0x1,0x12
002d e213       |    |		Load	0x1,0x13
002e 02a0       |    |		Declare_Subprogram	Null_Subprogram
002f 4807       |H   |		Short_Literal	0x7
0030 032e       | .  |		Declare_Type	Record,Defined,Visible
0031 029a 028b  |    |		Declare_Subprogram	INIT_0288,For_Outer_Call,Visible,Unelaborated
0033 029a 0293  |    |		Declare_Subprogram	INIT_0290,For_Outer_Call,Visible,Unelaborated
0035 029a 0323  |   #|		Declare_Subprogram	INIT_0320,For_Outer_Call,Visible,Unelaborated
0037 029a 0373  |   s|		Declare_Subprogram	INIT_0370,For_Outer_Call,Visible,Unelaborated
0039 029a 037b  |   {|		Declare_Subprogram	INIT_0378,For_Outer_Call,Visible,Unelaborated
003b 029a 0383  |    |		Declare_Subprogram	INIT_0380,For_Outer_Call,Visible,Unelaborated
003d 029a 0393  |    |		Declare_Subprogram	INIT_0390,For_Outer_Call,Visible,Unelaborated
003f 4800       |H   |		Short_Literal	0x0
0040 4803       |H   |		Short_Literal	0x3
0041 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call
0043 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0044 4800       |H   |		Short_Literal	0x0
0045 4804       |H   |		Short_Literal	0x4
0046 029f 03c3  |    |		Declare_Subprogram	INIT_03c0,For_Call
0048 03fe       |    |		Declare_Type	Discrete,Defined,Visible
0049 4800       |H   |		Short_Literal	0x0
004a 4802       |H   |		Short_Literal	0x2
004b 029f 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Call
004d 03fe       |    |		Declare_Type	Discrete,Defined,Visible
004e 029a 0413  |    |		Declare_Subprogram	INIT_0410,For_Outer_Call,Visible,Unelaborated
0050 029a 0433  |   3|		Declare_Subprogram	INIT_0430,For_Outer_Call,Visible,Unelaborated
0052 4800       |H   |		Short_Literal	0x0
0053 6208       |b   |		Indirect_Literal	Discrete,0x25c,{0x00000000, 0x7fffffff}
0054 00e2       |    |		Load_Encached	Integer_Cache
0055 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0056 4800       |H   |		Short_Literal	0x0
0057 4817       |H   |		Short_Literal	0x17
0058 00e2       |    |		Load_Encached	Integer_Cache
0059 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
005a 4800       |H   |		Short_Literal	0x0
005b 4be7       |K   |		Short_Literal	0x3e7
005c 00e2       |    |		Load_Encached	Integer_Cache
005d 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
005e 00da       |    |		Load_Top	At_Offset_2
005f 00da       |    |		Load_Top	At_Offset_2
0060 e211       |    |		Load	0x1,0x11
0061 e212       |    |		Load	0x1,0x12
0062 e223       | #  |		Load	0x1,0x23
0063 02a0       |    |		Declare_Subprogram	Null_Subprogram
0064 4805       |H   |		Short_Literal	0x5
0065 032e       | .  |		Declare_Type	Record,Defined,Visible
0066 029a 043b  |   ;|		Declare_Subprogram	INIT_0438,For_Outer_Call,Visible,Unelaborated
0068 029a 0483  |    |		Declare_Subprogram	INIT_0480,For_Outer_Call,Visible,Unelaborated
006a 029a 0503  |    |		Declare_Subprogram	INIT_0500,For_Outer_Call,Visible,Unelaborated
006c 029a 0593  |    |		Declare_Subprogram	INIT_0590,For_Outer_Call,Visible,Unelaborated
006e 029a 059b  |    |		Declare_Subprogram	INIT_0598,For_Outer_Call,Visible,Unelaborated
0070 029a 05a3  |    |		Declare_Subprogram	INIT_05a0,For_Outer_Call,Visible,Unelaborated
0072 029a 05ab  |    |		Declare_Subprogram	INIT_05a8,For_Outer_Call,Visible,Unelaborated
0074 029a 05bb  |    |		Declare_Subprogram	INIT_05b8,For_Outer_Call,Visible,Unelaborated
0076 4801       |H   |		Short_Literal	0x1
0077 4807       |H   |		Short_Literal	0x7
0078 00e4       |    |		Load_Encached	Positive_Cache
0079 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
007a 029a 05fb  |    |		Declare_Subprogram	INIT_05f8,For_Outer_Call,Visible,Unelaborated
007c 029a 0603  |    |		Declare_Subprogram	INIT_0600,For_Outer_Call,Visible,Unelaborated
007e 029a 0643  |   C|		Declare_Subprogram	INIT_0640,For_Outer_Call,Visible,Unelaborated
0080 029a 066b  |   k|		Declare_Subprogram	INIT_0668,For_Outer_Call,Visible,Unelaborated
0082 029a 067b  |   {|		Declare_Subprogram	INIT_0678,For_Outer_Call,Visible,Unelaborated
0084 00bf       |    |		Action	Accept_Activation
0085 e001       |    |		Load	0x0,0x1
0086 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0087 02c7       |    |		Declare_Variable	Any
0088 00d8       |    |		Load_Top	At_Offset_0
0089 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008a 00e4       |    |		Load_Encached	Positive_Cache
008b 0266       | f  |		Execute	Discrete,Bounds
008c 00e3       |    |		Load_Encached	Natural_Cache
008d 02a0       |    |		Declare_Subprogram	Null_Subprogram
008e 4801       |H   |		Short_Literal	0x1
008f 0350       | P  |		Declare_Type	Array,Defined,Bounds_With_Object
0090 00e8       |    |		Load_Encached	Character_Cache
0091 0266       | f  |		Execute	Discrete,Bounds
0092 00e1       |    |		Load_Encached	Boolean_Cache
0093 02a0       |    |		Declare_Subprogram	Null_Subprogram
0094 4801       |H   |		Short_Literal	0x1
0095 035d       | ]  |		Declare_Type	Array,Defined
0096 00d8       |    |		Load_Top	At_Offset_0
0097 0337       | 7  |		Declare_Variable	Array
0098 4801       |H   |		Short_Literal	0x1
0099 4830       |H0  |		Short_Literal	0x30
009a 00da       |    |		Load_Top	At_Offset_2
009b 01d6       |    |		Execute	Vector,Field_Write
009c 4801       |H   |		Short_Literal	0x1
009d 4831       |H1  |		Short_Literal	0x31
009e 00da       |    |		Load_Top	At_Offset_2
009f 01d6       |    |		Execute	Vector,Field_Write
00a0 4801       |H   |		Short_Literal	0x1
00a1 4832       |H2  |		Short_Literal	0x32
00a2 00da       |    |		Load_Top	At_Offset_2
00a3 01d6       |    |		Execute	Vector,Field_Write
00a4 4801       |H   |		Short_Literal	0x1
00a5 4833       |H3  |		Short_Literal	0x33
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 01d6       |    |		Execute	Vector,Field_Write
00a8 4801       |H   |		Short_Literal	0x1
00a9 4834       |H4  |		Short_Literal	0x34
00aa 00da       |    |		Load_Top	At_Offset_2
00ab 01d6       |    |		Execute	Vector,Field_Write
00ac 4801       |H   |		Short_Literal	0x1
00ad 4835       |H5  |		Short_Literal	0x35
00ae 00da       |    |		Load_Top	At_Offset_2
00af 01d6       |    |		Execute	Vector,Field_Write
00b0 4801       |H   |		Short_Literal	0x1
00b1 4836       |H6  |		Short_Literal	0x36
00b2 00da       |    |		Load_Top	At_Offset_2
00b3 01d6       |    |		Execute	Vector,Field_Write
00b4 4801       |H   |		Short_Literal	0x1
00b5 4837       |H7  |		Short_Literal	0x37
00b6 00da       |    |		Load_Top	At_Offset_2
00b7 01d6       |    |		Execute	Vector,Field_Write
00b8 4801       |H   |		Short_Literal	0x1
00b9 4838       |H8  |		Short_Literal	0x38
00ba 00da       |    |		Load_Top	At_Offset_2
00bb 01d6       |    |		Execute	Vector,Field_Write
00bc 4801       |H   |		Short_Literal	0x1
00bd 4839       |H9  |		Short_Literal	0x39
00be 00da       |    |		Load_Top	At_Offset_2
00bf 01d6       |    |		Execute	Vector,Field_Write
00c0 482f       |H/  |		Short_Literal	0x2f
00c1 4800       |H   |		Short_Literal	0x0
00c2 4800       |H   |		Short_Literal	0x0
00c3 00d9       |    |		Load_Top	At_Offset_1
00c4 e236       | 6  |		Load	0x1,0x36
00c5 01d6       |    |		Execute	Vector,Field_Write
00c6 3ffb       |?   |		Loop_Increasing	0xc2
00c7 487f       |H   |		Short_Literal	0x7f
00c8 483a       |H:  |		Short_Literal	0x3a
00c9 4800       |H   |		Short_Literal	0x0
00ca 00d9       |    |		Load_Top	At_Offset_1
00cb e236       | 6  |		Load	0x1,0x36
00cc 01d6       |    |		Execute	Vector,Field_Write
00cd 3ffb       |?   |		Loop_Increasing	0xc9
00ce 00d9       |    |		Load_Top	At_Offset_1
00cf 01c3       |    |		Execute	Vector,Check_In_Type
00d0 0007       |    |		Action	Break_Optional
00d1 00d9       |    |		Load_Top	At_Offset_1
00d2 0337       | 7  |		Declare_Variable	Array
00d3 487a       |Hz  |		Short_Literal	0x7a
00d4 4861       |Ha  |		Short_Literal	0x61
00d5 4801       |H   |		Short_Literal	0x1
00d6 00d9       |    |		Load_Top	At_Offset_1
00d7 e237       | 7  |		Load	0x1,0x37
00d8 01d6       |    |		Execute	Vector,Field_Write
00d9 3ffb       |?   |		Loop_Increasing	0xd5
00da 485a       |HZ  |		Short_Literal	0x5a
00db 4841       |HA  |		Short_Literal	0x41
00dc 4801       |H   |		Short_Literal	0x1
00dd 00d9       |    |		Load_Top	At_Offset_1
00de e237       | 7  |		Load	0x1,0x37
00df 01d6       |    |		Execute	Vector,Field_Write
00e0 3ffb       |?   |		Loop_Increasing	0xdc
00e1 4840       |H@  |		Short_Literal	0x40
00e2 4800       |H   |		Short_Literal	0x0
00e3 4800       |H   |		Short_Literal	0x0
00e4 00d9       |    |		Load_Top	At_Offset_1
00e5 e237       | 7  |		Load	0x1,0x37
00e6 01d6       |    |		Execute	Vector,Field_Write
00e7 3ffb       |?   |		Loop_Increasing	0xe3
00e8 4860       |H`  |		Short_Literal	0x60
00e9 485b       |H[  |		Short_Literal	0x5b
00ea 4800       |H   |		Short_Literal	0x0
00eb 00d9       |    |		Load_Top	At_Offset_1
00ec e237       | 7  |		Load	0x1,0x37
00ed 01d6       |    |		Execute	Vector,Field_Write
00ee 3ffb       |?   |		Loop_Increasing	0xea
00ef 487f       |H   |		Short_Literal	0x7f
00f0 487b       |H{  |		Short_Literal	0x7b
00f1 4800       |H   |		Short_Literal	0x0
00f2 00d9       |    |		Load_Top	At_Offset_1
00f3 e237       | 7  |		Load	0x1,0x37
00f4 01d6       |    |		Execute	Vector,Field_Write
00f5 3ffb       |?   |		Loop_Increasing	0xf1
00f6 00da       |    |		Load_Top	At_Offset_2
00f7 01c3       |    |		Execute	Vector,Check_In_Type
00f8 0007       |    |		Action	Break_Optional
00f9 e214       |    |		Load	0x1,0x14
00fa 0322       | "  |		Declare_Variable	Record
00fb 615c       |a\  |		Indirect_Literal	Discrete,0x258,{0x00000000, 0x0000076d}
00fc 00d9       |    |		Load_Top	At_Offset_1
00fd 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00fe 4800       |H   |		Short_Literal	0x0
00ff 00d9       |    |		Load_Top	At_Offset_1
0100 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0101 4801       |H   |		Short_Literal	0x1
0102 00d9       |    |		Load_Top	At_Offset_1
0103 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0104 4801       |H   |		Short_Literal	0x1
0105 00d9       |    |		Load_Top	At_Offset_1
0106 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0107 4800       |H   |		Short_Literal	0x0
0108 00d9       |    |		Load_Top	At_Offset_1
0109 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
010a 4800       |H   |		Short_Literal	0x0
010b 00d9       |    |		Load_Top	At_Offset_1
010c 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
010d 4800       |H   |		Short_Literal	0x0
010e 00d9       |    |		Load_Top	At_Offset_1
010f 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0110 e224       | $  |		Load	0x1,0x24
0111 0322       | "  |		Declare_Variable	Record
0112 4800       |H   |		Short_Literal	0x0
0113 00d9       |    |		Load_Top	At_Offset_1
0114 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0115 4800       |H   |		Short_Literal	0x0
0116 00d9       |    |		Load_Top	At_Offset_1
0117 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0118 4800       |H   |		Short_Literal	0x0
0119 00d9       |    |		Load_Top	At_Offset_1
011a 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
011b 4800       |H   |		Short_Literal	0x0
011c 00d9       |    |		Load_Top	At_Offset_1
011d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
011e 4800       |H   |		Short_Literal	0x0
011f 00d9       |    |		Load_Top	At_Offset_1
0120 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0121 e213       |    |		Load	0x1,0x13
0122 0266       | f  |		Execute	Discrete,Bounds
0123 4801       |H   |		Short_Literal	0x1
0124 480c       |H   |		Short_Literal	0xc
0125 e222       | "  |		Load	0x1,0x22
0126 02a0       |    |		Declare_Subprogram	Null_Subprogram
0127 4802       |H   |		Short_Literal	0x2
0128 035d       | ]  |		Declare_Type	Array,Defined
0129 00d8       |    |		Load_Top	At_Offset_0
012a 0337       | 7  |		Declare_Variable	Array
012b 00d8       |    |		Load_Top	At_Offset_0
012c 0335       | 5  |		Declare_Variable	Array,Duplicate
012d 00cd       |    |		Action	Spare6_Action
012e 4801       |H   |		Short_Literal	0x1
012f 4801       |H   |		Short_Literal	0x1
0130 4800       |H   |		Short_Literal	0x0
0131 00db       |    |		Load_Top	At_Offset_3
0132 01a6       |    |		Execute	Matrix,Field_Write
0133 4802       |H   |		Short_Literal	0x2
0134 4802       |H   |		Short_Literal	0x2
0135 4800       |H   |		Short_Literal	0x0
0136 00db       |    |		Load_Top	At_Offset_3
0137 01a6       |    |		Execute	Matrix,Field_Write
0138 4803       |H   |		Short_Literal	0x3
0139 4803       |H   |		Short_Literal	0x3
013a 4800       |H   |		Short_Literal	0x0
013b 00db       |    |		Load_Top	At_Offset_3
013c 01a6       |    |		Execute	Matrix,Field_Write
013d 4804       |H   |		Short_Literal	0x4
013e 4804       |H   |		Short_Literal	0x4
013f 4800       |H   |		Short_Literal	0x0
0140 00db       |    |		Load_Top	At_Offset_3
0141 01a6       |    |		Execute	Matrix,Field_Write
0142 4805       |H   |		Short_Literal	0x5
0143 4805       |H   |		Short_Literal	0x5
0144 4800       |H   |		Short_Literal	0x0
0145 00db       |    |		Load_Top	At_Offset_3
0146 01a6       |    |		Execute	Matrix,Field_Write
0147 4806       |H   |		Short_Literal	0x6
0148 4806       |H   |		Short_Literal	0x6
0149 4800       |H   |		Short_Literal	0x0
014a 00db       |    |		Load_Top	At_Offset_3
014b 01a6       |    |		Execute	Matrix,Field_Write
014c 4807       |H   |		Short_Literal	0x7
014d 4807       |H   |		Short_Literal	0x7
014e 4800       |H   |		Short_Literal	0x0
014f 00db       |    |		Load_Top	At_Offset_3
0150 01a6       |    |		Execute	Matrix,Field_Write
0151 4808       |H   |		Short_Literal	0x8
0152 4808       |H   |		Short_Literal	0x8
0153 4800       |H   |		Short_Literal	0x0
0154 00db       |    |		Load_Top	At_Offset_3
0155 01a6       |    |		Execute	Matrix,Field_Write
0156 4809       |H   |		Short_Literal	0x9
0157 4809       |H   |		Short_Literal	0x9
0158 4800       |H   |		Short_Literal	0x0
0159 00db       |    |		Load_Top	At_Offset_3
015a 01a6       |    |		Execute	Matrix,Field_Write
015b 480a       |H   |		Short_Literal	0xa
015c 480a       |H   |		Short_Literal	0xa
015d 4800       |H   |		Short_Literal	0x0
015e 00db       |    |		Load_Top	At_Offset_3
015f 01a6       |    |		Execute	Matrix,Field_Write
0160 480b       |H   |		Short_Literal	0xb
0161 480b       |H   |		Short_Literal	0xb
0162 4800       |H   |		Short_Literal	0x0
0163 00db       |    |		Load_Top	At_Offset_3
0164 01a6       |    |		Execute	Matrix,Field_Write
0165 4800       |H   |		Short_Literal	0x0
0166 480c       |H   |		Short_Literal	0xc
0167 4800       |H   |		Short_Literal	0x0
0168 00db       |    |		Load_Top	At_Offset_3
0169 01a6       |    |		Execute	Matrix,Field_Write
016a 480d       |H   |		Short_Literal	0xd
016b 4801       |H   |		Short_Literal	0x1
016c 4801       |H   |		Short_Literal	0x1
016d 00db       |    |		Load_Top	At_Offset_3
016e 01a6       |    |		Execute	Matrix,Field_Write
016f 480e       |H   |		Short_Literal	0xe
0170 4802       |H   |		Short_Literal	0x2
0171 4801       |H   |		Short_Literal	0x1
0172 00db       |    |		Load_Top	At_Offset_3
0173 01a6       |    |		Execute	Matrix,Field_Write
0174 480f       |H   |		Short_Literal	0xf
0175 4803       |H   |		Short_Literal	0x3
0176 4801       |H   |		Short_Literal	0x1
0177 00db       |    |		Load_Top	At_Offset_3
0178 01a6       |    |		Execute	Matrix,Field_Write
0179 4810       |H   |		Short_Literal	0x10
017a 4804       |H   |		Short_Literal	0x4
017b 4801       |H   |		Short_Literal	0x1
017c 00db       |    |		Load_Top	At_Offset_3
017d 01a6       |    |		Execute	Matrix,Field_Write
017e 4811       |H   |		Short_Literal	0x11
017f 4805       |H   |		Short_Literal	0x5
0180 4801       |H   |		Short_Literal	0x1
0181 00db       |    |		Load_Top	At_Offset_3
0182 01a6       |    |		Execute	Matrix,Field_Write
0183 4812       |H   |		Short_Literal	0x12
0184 4806       |H   |		Short_Literal	0x6
0185 4801       |H   |		Short_Literal	0x1
0186 00db       |    |		Load_Top	At_Offset_3
0187 01a6       |    |		Execute	Matrix,Field_Write
0188 4813       |H   |		Short_Literal	0x13
0189 4807       |H   |		Short_Literal	0x7
018a 4801       |H   |		Short_Literal	0x1
018b 00db       |    |		Load_Top	At_Offset_3
018c 01a6       |    |		Execute	Matrix,Field_Write
018d 4814       |H   |		Short_Literal	0x14
018e 4808       |H   |		Short_Literal	0x8
018f 4801       |H   |		Short_Literal	0x1
0190 00db       |    |		Load_Top	At_Offset_3
0191 01a6       |    |		Execute	Matrix,Field_Write
0192 4815       |H   |		Short_Literal	0x15
0193 4809       |H   |		Short_Literal	0x9
0194 4801       |H   |		Short_Literal	0x1
0195 00db       |    |		Load_Top	At_Offset_3
0196 01a6       |    |		Execute	Matrix,Field_Write
0197 4816       |H   |		Short_Literal	0x16
0198 480a       |H   |		Short_Literal	0xa
0199 4801       |H   |		Short_Literal	0x1
019a 00db       |    |		Load_Top	At_Offset_3
019b 01a6       |    |		Execute	Matrix,Field_Write
019c 4817       |H   |		Short_Literal	0x17
019d 480b       |H   |		Short_Literal	0xb
019e 4801       |H   |		Short_Literal	0x1
019f 00db       |    |		Load_Top	At_Offset_3
01a0 01a6       |    |		Execute	Matrix,Field_Write
01a1 480c       |H   |		Short_Literal	0xc
01a2 480c       |H   |		Short_Literal	0xc
01a3 4801       |H   |		Short_Literal	0x1
01a4 00db       |    |		Load_Top	At_Offset_3
01a5 01a6       |    |		Execute	Matrix,Field_Write
01a6 00d9       |    |		Load_Top	At_Offset_1
01a7 01a4       |    |		Execute	Matrix,Structure_Write
01a8 e20e       |    |		Load	0x1,0xe
01a9 0266       | f  |		Execute	Discrete,Bounds
01aa 00e2       |    |		Load_Encached	Integer_Cache
01ab 02a0       |    |		Declare_Subprogram	Null_Subprogram
01ac 4801       |H   |		Short_Literal	0x1
01ad 035d       | ]  |		Declare_Type	Array,Defined
01ae 00d8       |    |		Load_Top	At_Offset_0
01af 0337       | 7  |		Declare_Variable	Array
01b0 00d8       |    |		Load_Top	At_Offset_0
01b1 0335       | 5  |		Declare_Variable	Array,Duplicate
01b2 00cd       |    |		Action	Spare6_Action
01b3 481f       |H   |		Short_Literal	0x1f
01b4 4800       |H   |		Short_Literal	0x0
01b5 00da       |    |		Load_Top	At_Offset_2
01b6 01d6       |    |		Execute	Vector,Field_Write
01b7 481f       |H   |		Short_Literal	0x1f
01b8 4802       |H   |		Short_Literal	0x2
01b9 00da       |    |		Load_Top	At_Offset_2
01ba 01d6       |    |		Execute	Vector,Field_Write
01bb 481f       |H   |		Short_Literal	0x1f
01bc 4804       |H   |		Short_Literal	0x4
01bd 00da       |    |		Load_Top	At_Offset_2
01be 01d6       |    |		Execute	Vector,Field_Write
01bf 481f       |H   |		Short_Literal	0x1f
01c0 4806       |H   |		Short_Literal	0x6
01c1 00da       |    |		Load_Top	At_Offset_2
01c2 01d6       |    |		Execute	Vector,Field_Write
01c3 481f       |H   |		Short_Literal	0x1f
01c4 4807       |H   |		Short_Literal	0x7
01c5 00da       |    |		Load_Top	At_Offset_2
01c6 01d6       |    |		Execute	Vector,Field_Write
01c7 481f       |H   |		Short_Literal	0x1f
01c8 4809       |H   |		Short_Literal	0x9
01c9 00da       |    |		Load_Top	At_Offset_2
01ca 01d6       |    |		Execute	Vector,Field_Write
01cb 481f       |H   |		Short_Literal	0x1f
01cc 480b       |H   |		Short_Literal	0xb
01cd 00da       |    |		Load_Top	At_Offset_2
01ce 01d6       |    |		Execute	Vector,Field_Write
01cf 481e       |H   |		Short_Literal	0x1e
01d0 4803       |H   |		Short_Literal	0x3
01d1 00da       |    |		Load_Top	At_Offset_2
01d2 01d6       |    |		Execute	Vector,Field_Write
01d3 481e       |H   |		Short_Literal	0x1e
01d4 4805       |H   |		Short_Literal	0x5
01d5 00da       |    |		Load_Top	At_Offset_2
01d6 01d6       |    |		Execute	Vector,Field_Write
01d7 481e       |H   |		Short_Literal	0x1e
01d8 4808       |H   |		Short_Literal	0x8
01d9 00da       |    |		Load_Top	At_Offset_2
01da 01d6       |    |		Execute	Vector,Field_Write
01db 481e       |H   |		Short_Literal	0x1e
01dc 480a       |H   |		Short_Literal	0xa
01dd 00da       |    |		Load_Top	At_Offset_2
01de 01d6       |    |		Execute	Vector,Field_Write
01df 481c       |H   |		Short_Literal	0x1c
01e0 4801       |H   |		Short_Literal	0x1
01e1 00da       |    |		Load_Top	At_Offset_2
01e2 01d6       |    |		Execute	Vector,Field_Write
01e3 00d9       |    |		Load_Top	At_Offset_1
01e4 01d4       |    |		Execute	Vector,Structure_Write
01e5 e002       |    |		Load	0x0,0x2
01e6 1916       |    |		Execute	Package,Field_Reference,Field_Number 0x16
01e7 0007       |    |		Action	Break_Optional
01e8 a003       |    |		Store_Unchecked	0x0,0x3
01e9 00c6       |    |		Action	Check_Subprogram_Elaborated
01ea e20e       |    |		Load	0x1,0xe
01eb e004       |    |		Load	0x0,0x4
01ec e005       |    |		Load	0x0,0x5
01ed 4800       |H   |		Short_Literal	0x0
01ee 0007       |    |		Action	Break_Optional
01ef 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
01f0 00c7       |    |		Action	Elaborate_Subprogram
01f1 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
01f2 00c7       |    |		Action	Elaborate_Subprogram
01f3 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
01f4 00c7       |    |		Action	Elaborate_Subprogram
01f5 029d 068b  |    |		Declare_Subprogram	INIT_0688,For_Outer_Call
01f7 029d 06ab  |    |		Declare_Subprogram	INIT_06a8,For_Outer_Call
01f9 029d 070b  |    |		Declare_Subprogram	INIT_0708,For_Outer_Call
01fb 029d 078b  |    |		Declare_Subprogram	INIT_0788,For_Outer_Call
01fd 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
01fe 00c7       |    |		Action	Elaborate_Subprogram
01ff 029d 07a3  |    |		Declare_Subprogram	INIT_07a0,For_Outer_Call
0201 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0202 00c7       |    |		Action	Elaborate_Subprogram
0203 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
0204 00c7       |    |		Action	Elaborate_Subprogram
0205 e006       |    |		Load	0x0,0x6
0206 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
0207 1d28       | (  |		Execute_Immediate	Reference_Lex_1,0x28
0208 00c7       |    |		Action	Elaborate_Subprogram
0209 e007       |    |		Load	0x0,0x7
020a 02a5       |    |		Declare_Subprogram	For_Outer_Call,With_Address
020b 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
020c 00c7       |    |		Action	Elaborate_Subprogram
020d 1d29       | )  |		Execute_Immediate	Reference_Lex_1,0x29
020e 00c7       |    |		Action	Elaborate_Subprogram
020f 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
0210 00c7       |    |		Action	Elaborate_Subprogram
0211 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
0212 00c7       |    |		Action	Elaborate_Subprogram
0213 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0214 00c7       |    |		Action	Elaborate_Subprogram
0215 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0216 00c7       |    |		Action	Elaborate_Subprogram
0217 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0218 00c7       |    |		Action	Elaborate_Subprogram
0219 1d30       | 0  |		Execute_Immediate	Reference_Lex_1,0x30
021a 00c7       |    |		Action	Elaborate_Subprogram
021b 029d 07c3  |    |		Declare_Subprogram	INIT_07c0,For_Outer_Call
021d 1d2f       | /  |		Execute_Immediate	Reference_Lex_1,0x2f
021e 00c7       |    |		Action	Elaborate_Subprogram
021f 1d2e       | .  |		Execute_Immediate	Reference_Lex_1,0x2e
0220 00c7       |    |		Action	Elaborate_Subprogram
0221 1d31       | 1  |		Execute_Immediate	Reference_Lex_1,0x31
0222 00c7       |    |		Action	Elaborate_Subprogram
0223 1d32       | 2  |		Execute_Immediate	Reference_Lex_1,0x32
0224 00c7       |    |		Action	Elaborate_Subprogram
0225 1d2b       | +  |		Execute_Immediate	Reference_Lex_1,0x2b
0226 00c7       |    |		Action	Elaborate_Subprogram
0227 1d2a       | *  |		Execute_Immediate	Reference_Lex_1,0x2a
0228 00c7       |    |		Action	Elaborate_Subprogram
0229 1d2c       | ,  |		Execute_Immediate	Reference_Lex_1,0x2c
022a 00c7       |    |		Action	Elaborate_Subprogram
022b			BODY_0008:
022b e238       | 8  |		Load	0x1,0x38
022c 8217       |    |		Call	0x1,0x17
022d c233       | 3  |		Store	0x1,0x33
022e 00bc       |    |		Action	Signal_Activated
022f 00bb       |    |		Action	Signal_Completion
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233       | 3  |		.CONST	0x0233								; Address of begin
0231 0004       |    |		.CONST	0x0004								; Address of exception handler
0232 0001       |    |		.CONST	0x0001								; Number of locals
0233			BODY_0230:
0233			INIT_0230:
0233 4607       |F   |		Jump_Case	0x8
0234 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0235 7806       |x   |		Jump	0x23c								; case 0x1
0236 7809       |x   |		Jump	0x240								; case 0x2
0237 780d       |x   |		Jump	0x245								; case 0x3
0238 7810       |x   |		Jump	0x249								; case 0x4
0239 7811       |x   |		Jump	0x24b								; case 0x5
023a 7812       |x   |		Jump	0x24d								; case 0x6
023b 7815       |x   |		Jump	0x251								; case 0x7
023c 00da       |    |		Load_Top	At_Offset_2
023d 0091 07d3  |    |		Action	Push_String_Extended_Indexed,0x7d3				; "JANUARY"
023f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0240 00db       |    |		Load_Top	At_Offset_3
0241 00db       |    |		Load_Top	At_Offset_3
0242 00e0       |    |		Load_Encached	Standard_Cache
0243 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0244 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0245 00da       |    |		Load_Top	At_Offset_2
0246 00e0       |    |		Load_Encached	Standard_Cache
0247 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0248 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0249 00db       |    |		Load_Top	At_Offset_3
024a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024b 00db       |    |		Load_Top	At_Offset_3
024c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
024d e20e       |    |		Load	0x1,0xe
024e 00dc       |    |		Load_Top	At_Offset_4
024f 0267       | g  |		Execute	Discrete,Predecessor
0250 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0251 e20e       |    |		Load	0x1,0xe
0252 00dc       |    |		Load_Top	At_Offset_4
0253 0268       | h  |		Execute	Discrete,Successor
0254 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0255 0000 0000  |    |		.XXX[0x3]
0257 0000       |    |
0258 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000076d}
025c 0000 0000  |    |		.LITERAL	{0x00000000, 0x7fffffff}
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263       | c  |		.CONST	0x0263								; Address of begin
0261 0004       |    |		.CONST	0x0004								; Address of exception handler
0262 0001       |    |		.CONST	0x0001								; Number of locals
0263			BODY_0260:
0263			INIT_0260:
0263 4607       |F   |		Jump_Case	0x8
0264 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0265 7806       |x   |		Jump	0x26c								; case 0x1
0266 7809       |x   |		Jump	0x270								; case 0x2
0267 780d       |x   |		Jump	0x275								; case 0x3
0268 7810       |x   |		Jump	0x279								; case 0x4
0269 7811       |x   |		Jump	0x27b								; case 0x5
026a 7812       |x   |		Jump	0x27d								; case 0x6
026b 7815       |x   |		Jump	0x281								; case 0x7
026c 00da       |    |		Load_Top	At_Offset_2
026d 0091 07df  |    |		Action	Push_String_Extended_Indexed,0x7df				; "AM"
026f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0270 00db       |    |		Load_Top	At_Offset_3
0271 00db       |    |		Load_Top	At_Offset_3
0272 00e0       |    |		Load_Encached	Standard_Cache
0273 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0274 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0275 00da       |    |		Load_Top	At_Offset_2
0276 00e0       |    |		Load_Encached	Standard_Cache
0277 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0278 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0279 00db       |    |		Load_Top	At_Offset_3
027a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
027b 00db       |    |		Load_Top	At_Offset_3
027c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
027d e213       |    |		Load	0x1,0x13
027e 00dc       |    |		Load_Top	At_Offset_4
027f 0267       | g  |		Execute	Discrete,Predecessor
0280 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0281 e213       |    |		Load	0x1,0x13
0282 00dc       |    |		Load_Top	At_Offset_4
0283 0268       | h  |		Execute	Discrete,Successor
0284 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0285 0000 0000  |    |		.XXX[0x3]
0287 0000       |    |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b       |    |		.CONST	0x028b								; Address of begin
0289 0004       |    |		.CONST	0x0004								; Address of exception handler
028a 0001       |    |		.CONST	0x0001								; Number of locals
028b			BODY_0288:
028b			INIT_0288:
028b e001       |    |		Load	0x0,0x1
028c 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
028d 8216       |    |		Call	0x1,0x16
028e 00ca       |    |		Action	Exit_Nullary_Function
028f 0000       |    |		.XXX[0x1]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 02a2       |    |		.CONST	0x02a2								; Address of begin
0291 0004       |    |		.CONST	0x0004								; Address of exception handler
0292 000b       |    |		.CONST	0x000b								; Number of locals
0293			INIT_0290:
0293 e214       |    |		Load	0x1,0x14
0294 0322       | "  |		Declare_Variable	Record
0295 e001       |    |		Load	0x0,0x1
0296 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0297 e001       |    |		Load	0x0,0x1
0298 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0299 e001       |    |		Load	0x0,0x1
029a 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
029b e001       |    |		Load	0x0,0x1
029c 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
029d 00e2       |    |		Load_Encached	Integer_Cache
029e 00e2       |    |		Load_Encached	Integer_Cache
029f 00e2       |    |		Load_Encached	Integer_Cache
02a0 03e9       |    |		Declare_Variable	Discrete,Duplicate
02a1 03e9       |    |		Declare_Variable	Discrete,Duplicate
02a2			BODY_0290:
02a2 e001       |    |		Load	0x0,0x1
02a3 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
02a4 e001       |    |		Load	0x0,0x1
02a5 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
02a6 e001       |    |		Load	0x0,0x1
02a7 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
02a8 e001       |    |		Load	0x0,0x1
02a9 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02aa e5ff       |    |		Load	0x2,-0x1
02ab e001       |    |		Load	0x0,0x1
02ac 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
02ad c403       |    |		Store	0x2,0x3
02ae c404       |    |		Store	0x2,0x4
02af c405       |    |		Store	0x2,0x5
02b0 c406       |    |		Store	0x2,0x6
02b1 e403       |    |		Load	0x2,0x3
02b2 e402       |    |		Load	0x2,0x2
02b3 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
02b4 e404       |    |		Load	0x2,0x4
02b5 0aff       |    |		Execute_Immediate	Plus,-0x1
02b6 00d8       |    |		Load_Top	At_Offset_0
02b7 e20e       |    |		Load	0x1,0xe
02b8 0260       | `  |		Execute	Discrete,In_Type
02b9 7001       |p   |		Jump_Nonzero	0x2bb
02ba 0801       |    |		Execute_Immediate	Raise,0x1
02bb e402       |    |		Load	0x2,0x2
02bc 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
02bd e405       |    |		Load	0x2,0x5
02be e402       |    |		Load	0x2,0x2
02bf 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
02c0 e406       |    |		Load	0x2,0x6
02c1 00d8       |    |		Load_Top	At_Offset_0
02c2 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
02c3 7002       |p   |		Jump_Nonzero	0x2c6
02c4 6053       |`S  |		Indirect_Literal	Discrete,0x318,{0xffffffff, 0xffffc000}
02c5 7801       |x   |		Jump	0x2c7
02c6 604d       |`M  |		Indirect_Literal	Discrete,0x314,{0x00000000, 0x00004000}
02c7 0273       | s  |		Execute	Discrete,Plus
02c8 09f1       |    |		Execute_Immediate	Binary_Scale,-0xf
02c9 a407       |    |		Store_Unchecked	0x2,0x7
02ca e407       |    |		Load	0x2,0x7
02cb 6044       |`D  |		Indirect_Literal	Discrete,0x310,{0x00000000, 0x0000a8c0}
02cc 027c       | |  |		Execute	Discrete,Less
02cd 6804       |h   |		Jump_Zero	0x2d2
02ce 4800       |H   |		Short_Literal	0x0
02cf e402       |    |		Load	0x2,0x2
02d0 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02d1 7807       |x   |		Jump	0x2d9
02d2 4801       |H   |		Short_Literal	0x1
02d3 e402       |    |		Load	0x2,0x2
02d4 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
02d5 e407       |    |		Load	0x2,0x7
02d6 6035       |`5  |		Indirect_Literal	Discrete,0x30c,{0xffffffff, 0xffff5740}
02d7 0273       | s  |		Execute	Discrete,Plus
02d8 c407       |    |		Store	0x2,0x7
02d9 e407       |    |		Load	0x2,0x7
02da 602d       |`-  |		Indirect_Literal	Discrete,0x308,{0x00000000, 0x00000e10}
02db 0270       | p  |		Execute	Discrete,Divide
02dc a408       |    |		Store_Unchecked	0x2,0x8
02dd 00db       |    |		Load_Top	At_Offset_3
02de 7004       |p   |		Jump_Nonzero	0x2e3
02df 480c       |H   |		Short_Literal	0xc
02e0 e402       |    |		Load	0x2,0x2
02e1 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02e2 7808       |x   |		Jump	0x2eb
02e3 00db       |    |		Load_Top	At_Offset_3
02e4 00d8       |    |		Load_Top	At_Offset_0
02e5 e210       |    |		Load	0x1,0x10
02e6 0260       | `  |		Execute	Discrete,In_Type
02e7 7001       |p   |		Jump_Nonzero	0x2e9
02e8 0801       |    |		Execute_Immediate	Raise,0x1
02e9 e402       |    |		Load	0x2,0x2
02ea 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
02eb e407       |    |		Load	0x2,0x7
02ec 601b       |`   |		Indirect_Literal	Discrete,0x308,{0x00000000, 0x00000e10}
02ed 026f       | o  |		Execute	Discrete,Remainder
02ee a407       |    |		Store_Unchecked	0x2,0x7
02ef e407       |    |		Load	0x2,0x7
02f0 483c       |H<  |		Short_Literal	0x3c
02f1 0270       | p  |		Execute	Discrete,Divide
02f2 00d8       |    |		Load_Top	At_Offset_0
02f3 e211       |    |		Load	0x1,0x11
02f4 0260       | `  |		Execute	Discrete,In_Type
02f5 7001       |p   |		Jump_Nonzero	0x2f7
02f6 0801       |    |		Execute_Immediate	Raise,0x1
02f7 e402       |    |		Load	0x2,0x2
02f8 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
02f9 e407       |    |		Load	0x2,0x7
02fa 483c       |H<  |		Short_Literal	0x3c
02fb 026f       | o  |		Execute	Discrete,Remainder
02fc 00d8       |    |		Load_Top	At_Offset_0
02fd e212       |    |		Load	0x1,0x12
02fe 0260       | `  |		Execute	Discrete,In_Type
02ff 7001       |p   |		Jump_Nonzero	0x301
0300 0801       |    |		Execute_Immediate	Raise,0x1
0301 e402       |    |		Load	0x2,0x2
0302 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
0303 e402       |    |		Load	0x2,0x2
0304 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0305 0000 0000  |    |		.XXX[0x3]
0307 0000       |    |
0308 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000e10}
030c ffff ffff  |    |		.LITERAL	{0xffffffff, 0xffff5740}
0310 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000a8c0}
0314 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0318 ffff ffff  |    |		.LITERAL	{0xffffffff, 0xffffc000}
031c 0000 0000  |    |		.BLANK	0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 032a       | *  |		.CONST	0x032a								; Address of begin
0321 0364       | d  |		.CONST	0x0364								; Address of exception handler
0322 0005       |    |		.CONST	0x0005								; Number of locals
0323			INIT_0320:
0323 e001       |    |		Load	0x0,0x1
0324 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0325 e001       |    |		Load	0x0,0x1
0326 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0327 e001       |    |		Load	0x0,0x1
0328 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0329 00e2       |    |		Load_Encached	Integer_Cache
032a			BODY_0320:
032a e5ff       |    |		Load	0x2,-0x1
032b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
032c a402       |    |		Store_Unchecked	0x2,0x2
032d e5ff       |    |		Load	0x2,-0x1
032e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
032f 0a01       |    |		Execute_Immediate	Plus,0x1
0330 00d8       |    |		Load_Top	At_Offset_0
0331 e001       |    |		Load	0x0,0x1
0332 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0333 0260       | `  |		Execute	Discrete,In_Type
0334 7001       |p   |		Jump_Nonzero	0x336
0335 0801       |    |		Execute_Immediate	Raise,0x1
0336 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0337 e5ff       |    |		Load	0x2,-0x1
0338 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0339 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
033a e5ff       |    |		Load	0x2,-0x1
033b 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
033c e5ff       |    |		Load	0x2,-0x1
033d 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
033e 483c       |H<  |		Short_Literal	0x3c
033f 0271       | q  |		Execute	Discrete,Times
0340 0273       | s  |		Execute	Discrete,Plus
0341 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0342 e5ff       |    |		Load	0x2,-0x1
0343 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0344 0e0c       |    |		Execute_Immediate	Not_Equal,0xc
0345 6807       |h   |		Jump_Zero	0x34d
0346 00d8       |    |		Load_Top	At_Offset_0
0347 e5ff       |    |		Load	0x2,-0x1
0348 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0349 67be       |g   |		Indirect_Literal	Discrete,0x308,{0x00000000, 0x00000e10}
034a 0271       | q  |		Execute	Discrete,Times
034b 0273       | s  |		Execute	Discrete,Plus
034c 0059       | Y  |		Store_Top	Discrete,At_Offset_1
034d e5ff       |    |		Load	0x2,-0x1
034e 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
034f 0f01       |    |		Execute_Immediate	Equal,0x1
0350 6804       |h   |		Jump_Zero	0x355
0351 00d8       |    |		Load_Top	At_Offset_0
0352 67bd       |g   |		Indirect_Literal	Discrete,0x310,{0x00000000, 0x0000a8c0}
0353 0273       | s  |		Execute	Discrete,Plus
0354 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0355 00d8       |    |		Load_Top	At_Offset_0
0356 090f       |    |		Execute_Immediate	Binary_Scale,0xf
0357 e001       |    |		Load	0x0,0x1
0358 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0359 00d9       |    |		Load_Top	At_Offset_1
035a 00d0       |    |		Action	Swap_Control
035b 0260       | `  |		Execute	Discrete,In_Type
035c 7001       |p   |		Jump_Nonzero	0x35e
035d 0801       |    |		Execute_Immediate	Raise,0x1
035e 00da       |    |		Load_Top	At_Offset_2
035f e403       |    |		Load	0x2,0x3
0360 e402       |    |		Load	0x2,0x2
0361 e001       |    |		Load	0x0,0x1
0362 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0363 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0364			TRAP_0320:
0364 e001       |    |		Load	0x0,0x1
0365 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0366 010f       |    |		Execute	Exception,Equal
0367 6803       |h   |		Jump_Zero	0x36b
0368 e001       |    |		Load	0x0,0x1
0369 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
036a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
036b 0100       |    |		Execute	Exception,Raise
036c 0000 0000  |    |		.BLANK	0000[0x4]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373       | s  |		.CONST	0x0373								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0001       |    |		.CONST	0x0001								; Number of locals
0373			BODY_0370:
0373			INIT_0370:
0373 e238       | 8  |		Load	0x1,0x38
0374 00ca       |    |		Action	Exit_Nullary_Function
0375 0000 0000  |    |		.XXX[0x3]
0377 0000       |    |
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b       | {  |		.CONST	0x037b								; Address of begin
0379 0004       |    |		.CONST	0x0004								; Address of exception handler
037a 0001       |    |		.CONST	0x0001								; Number of locals
037b			BODY_0378:
037b			INIT_0378:
037b 00da       |    |		Load_Top	At_Offset_2
037c 8218       |    |		Call	0x1,0x18
037d 017f       |    |		Execute	Record,Equal
037e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
037f 0000       |    |		.XXX[0x1]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0004       |    |		.CONST	0x0004								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 e233       | 3  |		Load	0x1,0x33
0384 00d8       |    |		Load_Top	At_Offset_0
0385 0120       |    |		Execute	Any,Is_Value
0386 7002       |p   |		Jump_Nonzero	0x389
0387 00d8       |    |		Load_Top	At_Offset_0
0388 011e       |    |		Execute	Any,Convert
0389 00ca       |    |		Action	Exit_Nullary_Function
038a 0000 0000  |    |		.BLANK	0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393       |    |		.CONST	0x0393								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0001       |    |		.CONST	0x0001								; Number of locals
0393			BODY_0390:
0393			INIT_0390:
0393 00da       |    |		Load_Top	At_Offset_2
0394 821a       |    |		Call	0x1,0x1a
0395 012f       | /  |		Execute	Any,Equal
0396 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0397 0000       |    |		.XXX[0x1]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b       |    |		.CONST	0x039b								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0001       |    |		.CONST	0x0001								; Number of locals
039b			BODY_0398:
039b			INIT_0398:
039b 4607       |F   |		Jump_Case	0x8
039c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
039d 7806       |x   |		Jump	0x3a4								; case 0x1
039e 7809       |x   |		Jump	0x3a8								; case 0x2
039f 780d       |x   |		Jump	0x3ad								; case 0x3
03a0 7810       |x   |		Jump	0x3b1								; case 0x4
03a1 7811       |x   |		Jump	0x3b3								; case 0x5
03a2 7812       |x   |		Jump	0x3b5								; case 0x6
03a3 7815       |x   |		Jump	0x3b9								; case 0x7
03a4 00da       |    |		Load_Top	At_Offset_2
03a5 0091 07e1  |    |		Action	Push_String_Extended_Indexed,0x7e1				; "EXPANDED"
03a7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03a8 00db       |    |		Load_Top	At_Offset_3
03a9 00db       |    |		Load_Top	At_Offset_3
03aa 00e0       |    |		Load_Encached	Standard_Cache
03ab 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03ac 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03ad 00da       |    |		Load_Top	At_Offset_2
03ae 00e0       |    |		Load_Encached	Standard_Cache
03af 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03b0 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03b1 00db       |    |		Load_Top	At_Offset_3
03b2 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03b3 00db       |    |		Load_Top	At_Offset_3
03b4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03b5 e21c       |    |		Load	0x1,0x1c
03b6 00dc       |    |		Load_Top	At_Offset_4
03b7 0267       | g  |		Execute	Discrete,Predecessor
03b8 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03b9 e21c       |    |		Load	0x1,0x1c
03ba 00dc       |    |		Load_Top	At_Offset_4
03bb 0268       | h  |		Execute	Discrete,Successor
03bc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03bd 0000 0000  |    |		.XXX[0x3]
03bf 0000       |    |
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3       |    |		.CONST	0x03c3								; Address of begin
03c1 0004       |    |		.CONST	0x0004								; Address of exception handler
03c2 0001       |    |		.CONST	0x0001								; Number of locals
03c3			BODY_03c0:
03c3			INIT_03c0:
03c3 4607       |F   |		Jump_Case	0x8
03c4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03c5 7806       |x   |		Jump	0x3cc								; case 0x1
03c6 7809       |x   |		Jump	0x3d0								; case 0x2
03c7 780d       |x   |		Jump	0x3d5								; case 0x3
03c8 7810       |x   |		Jump	0x3d9								; case 0x4
03c9 7811       |x   |		Jump	0x3db								; case 0x5
03ca 7812       |x   |		Jump	0x3dd								; case 0x6
03cb 7815       |x   |		Jump	0x3e1								; case 0x7
03cc 00da       |    |		Load_Top	At_Offset_2
03cd 0091 07e5  |    |		Action	Push_String_Extended_Indexed,0x7e5				; "EXPANDED"
03cf 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03d0 00db       |    |		Load_Top	At_Offset_3
03d1 00db       |    |		Load_Top	At_Offset_3
03d2 00e0       |    |		Load_Encached	Standard_Cache
03d3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03d4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03d5 00da       |    |		Load_Top	At_Offset_2
03d6 00e0       |    |		Load_Encached	Standard_Cache
03d7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
03d8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03d9 00db       |    |		Load_Top	At_Offset_3
03da 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03db 00db       |    |		Load_Top	At_Offset_3
03dc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03dd e21d       |    |		Load	0x1,0x1d
03de 00dc       |    |		Load_Top	At_Offset_4
03df 0267       | g  |		Execute	Discrete,Predecessor
03e0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e1 e21d       |    |		Load	0x1,0x1d
03e2 00dc       |    |		Load_Top	At_Offset_4
03e3 0268       | h  |		Execute	Discrete,Successor
03e4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03e5 0000 0000  |    |		.XXX[0x3]
03e7 0000       |    |
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb       |    |		.CONST	0x03eb								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0001       |    |		.CONST	0x0001								; Number of locals
03eb			BODY_03e8:
03eb			INIT_03e8:
03eb 4607       |F   |		Jump_Case	0x8
03ec 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
03ed 7806       |x   |		Jump	0x3f4								; case 0x1
03ee 7809       |x   |		Jump	0x3f8								; case 0x2
03ef 780d       |x   |		Jump	0x3fd								; case 0x3
03f0 7810       |x   |		Jump	0x401								; case 0x4
03f1 7811       |x   |		Jump	0x403								; case 0x5
03f2 7812       |x   |		Jump	0x405								; case 0x6
03f3 7815       |x   |		Jump	0x409								; case 0x7
03f4 00da       |    |		Load_Top	At_Offset_2
03f5 0091 07ea  |    |		Action	Push_String_Extended_Indexed,0x7ea				; "BOTH"
03f7 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
03f8 00db       |    |		Load_Top	At_Offset_3
03f9 00db       |    |		Load_Top	At_Offset_3
03fa 00e0       |    |		Load_Encached	Standard_Cache
03fb 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
03fd 00da       |    |		Load_Top	At_Offset_2
03fe 00e0       |    |		Load_Encached	Standard_Cache
03ff 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0400 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0401 00db       |    |		Load_Top	At_Offset_3
0402 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0403 00db       |    |		Load_Top	At_Offset_3
0404 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0405 e21e       |    |		Load	0x1,0x1e
0406 00dc       |    |		Load_Top	At_Offset_4
0407 0267       | g  |		Execute	Discrete,Predecessor
0408 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0409 e21e       |    |		Load	0x1,0x1e
040a 00dc       |    |		Load_Top	At_Offset_4
040b 0268       | h  |		Execute	Discrete,Successor
040c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
040d 0000 0000  |    |		.XXX[0x3]
040f 0000       |    |
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0413       |    |		.CONST	0x0413								; Address of begin
0411 0004       |    |		.CONST	0x0004								; Address of exception handler
0412 0001       |    |		.CONST	0x0001								; Number of locals
0413			BODY_0410:
0413			INIT_0410:
0413 e5fc       |    |		Load	0x2,-0x4
0414 4602       |F   |		Jump_Case	0x3
0415 7806       |x   |		Jump	0x41c								; case 0x0
0416 7811       |x   |		Jump	0x428								; case 0x1
0417 7800       |x   |		Jump	0x418								; case 0x2
0418 00db       |    |		Load_Top	At_Offset_3
0419 00db       |    |		Load_Top	At_Offset_3
041a 8245       | E  |		Call	0x1,0x45
041b 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
041c 00db       |    |		Load_Top	At_Offset_3
041d 00db       |    |		Load_Top	At_Offset_3
041e 8245       | E  |		Call	0x1,0x45
041f e5fd       |    |		Load	0x2,-0x3
0420 e5fe       |    |		Load	0x2,-0x2
0421 8246       | F  |		Call	0x1,0x46
0422 01cc       |    |		Execute	Vector,Catenate
0423 e5fd       |    |		Load	0x2,-0x3
0424 e5ff       |    |		Load	0x2,-0x1
0425 8244       | D  |		Call	0x1,0x44
0426 01cc       |    |		Execute	Vector,Catenate
0427 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
0428 e5fd       |    |		Load	0x2,-0x3
0429 00db       |    |		Load_Top	At_Offset_3
042a 8244       | D  |		Call	0x1,0x44
042b 4404       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x4
042c 0000 0000  |    |		.BLANK	0000[0x4]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0433       | 3  |		.CONST	0x0433								; Address of begin
0431 0004       |    |		.CONST	0x0004								; Address of exception handler
0432 0001       |    |		.CONST	0x0001								; Number of locals
0433			BODY_0430:
0433			INIT_0430:
0433 00da       |    |		Load_Top	At_Offset_2
0434 8249       | I  |		Call	0x1,0x49
0435 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0436 0000 0000  |    |		.XXX[0x2]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0442       | B  |		.CONST	0x0442								; Address of begin
0439 0004       |    |		.CONST	0x0004								; Address of exception handler
043a 0002       |    |		.CONST	0x0002								; Number of locals
043b			INIT_0438:
043b 00da       |    |		Load_Top	At_Offset_2
043c 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
043d 090f       |    |		Execute_Immediate	Binary_Scale,0xf
043e 4be8       |K   |		Short_Literal	0x3e8
043f 0270       | p  |		Execute	Discrete,Divide
0440 00e7       |    |		Load_Encached	Duration_Cache
0441 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0442			BODY_0438:
0442 00db       |    |		Load_Top	At_Offset_3
0443 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0444 090f       |    |		Execute_Immediate	Binary_Scale,0xf
0445 00d9       |    |		Load_Top	At_Offset_1
0446 0273       | s  |		Execute	Discrete,Plus
0447 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0448 4ff1       |O   |		Short_Literal	-0xf
0449 e5ff       |    |		Load	0x2,-0x1
044a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
044b 090f       |    |		Execute_Immediate	Binary_Scale,0xf
044c 602f       |`/  |		Indirect_Literal	Discrete,0x47c,{0x00000000, 0x001e0000}
044d 0141       | A  |		Execute	Discrete,Multiply_And_Scale
044e 00d8       |    |		Load_Top	At_Offset_0
044f 00e7       |    |		Load_Encached	Duration_Cache
0450 0260       | `  |		Execute	Discrete,In_Type
0451 7001       |p   |		Jump_Nonzero	0x453
0452 0801       |    |		Execute_Immediate	Raise,0x1
0453 00d9       |    |		Load_Top	At_Offset_1
0454 0273       | s  |		Execute	Discrete,Plus
0455 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0456 4ff1       |O   |		Short_Literal	-0xf
0457 e5ff       |    |		Load	0x2,-0x1
0458 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0459 090f       |    |		Execute_Immediate	Binary_Scale,0xf
045a 601d       |`   |		Indirect_Literal	Discrete,0x478,{0x00000000, 0x07080000}
045b 0141       | A  |		Execute	Discrete,Multiply_And_Scale
045c 00d8       |    |		Load_Top	At_Offset_0
045d 00e7       |    |		Load_Encached	Duration_Cache
045e 0260       | `  |		Execute	Discrete,In_Type
045f 7001       |p   |		Jump_Nonzero	0x461
0460 0801       |    |		Execute_Immediate	Raise,0x1
0461 00d9       |    |		Load_Top	At_Offset_1
0462 0273       | s  |		Execute	Discrete,Plus
0463 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0464 4ff1       |O   |		Short_Literal	-0xf
0465 e5ff       |    |		Load	0x2,-0x1
0466 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0467 090f       |    |		Execute_Immediate	Binary_Scale,0xf
0468 600b       |`   |		Indirect_Literal	Discrete,0x474,{0x00000000, 0xa8c00000}
0469 0141       | A  |		Execute	Discrete,Multiply_And_Scale
046a 00d8       |    |		Load_Top	At_Offset_0
046b 00e7       |    |		Load_Encached	Duration_Cache
046c 0260       | `  |		Execute	Discrete,In_Type
046d 7001       |p   |		Jump_Nonzero	0x46f
046e 0801       |    |		Execute_Immediate	Raise,0x1
046f 00d9       |    |		Load_Top	At_Offset_1
0470 0273       | s  |		Execute	Discrete,Plus
0471 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0472 00d8       |    |		Load_Top	At_Offset_0
0473 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0474 0000 0000  |    |		.LITERAL	{0x00000000, 0xa8c00000}
0478 0000 0000  |    |		.LITERAL	{0x00000000, 0x07080000}
047c 0000 0000  |    |		.LITERAL	{0x00000000, 0x001e0000}
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0494       |    |		.CONST	0x0494								; Address of begin
0481 0004       |    |		.CONST	0x0004								; Address of exception handler
0482 0003       |    |		.CONST	0x0003								; Number of locals
0483			INIT_0480:
0483 e224       | $  |		Load	0x1,0x24
0484 0322       | "  |		Declare_Variable	Record
0485 00db       |    |		Load_Top	At_Offset_3
0486 00d8       |    |		Load_Top	At_Offset_0
0487 0c00       |    |		Execute_Immediate	Greater_Equal,0x0
0488 7002       |p   |		Jump_Nonzero	0x48b
0489 606e       |`n  |		Indirect_Literal	Discrete,0x4f8,{0xffffffff, 0xffffc000}
048a 7801       |x   |		Jump	0x48c
048b 6068       |`h  |		Indirect_Literal	Discrete,0x4f4,{0x00000000, 0x00004000}
048c 0273       | s  |		Execute	Discrete,Plus
048d 09f1       |    |		Execute_Immediate	Binary_Scale,-0xf
048e 00e2       |    |		Load_Encached	Integer_Cache
048f 025e       | ^  |		Execute	Discrete,Convert
0490 4be8       |K   |		Short_Literal	0x3e8
0491 0271       | q  |		Execute	Discrete,Times
0492 00e2       |    |		Load_Encached	Integer_Cache
0493 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0494			BODY_0480:
0494 e5ff       |    |		Load	0x2,-0x1
0495 0d00       |    |		Execute_Immediate	Less,0x0
0496 6802       |h   |		Jump_Zero	0x499
0497 e239       | 9  |		Load	0x1,0x39
0498 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0499 00d8       |    |		Load_Top	At_Offset_0
049a 6055       |`U  |		Indirect_Literal	Discrete,0x4f0,{0x00000000, 0x05265c00}
049b 0270       | p  |		Execute	Discrete,Divide
049c 00d8       |    |		Load_Top	At_Offset_0
049d e221       | !  |		Load	0x1,0x21
049e 0260       | `  |		Execute	Discrete,In_Type
049f 7001       |p   |		Jump_Nonzero	0x4a1
04a0 0801       |    |		Execute_Immediate	Raise,0x1
04a1 00da       |    |		Load_Top	At_Offset_2
04a2 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
04a3 00d8       |    |		Load_Top	At_Offset_0
04a4 00da       |    |		Load_Top	At_Offset_2
04a5 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
04a6 6049       |`I  |		Indirect_Literal	Discrete,0x4f0,{0x00000000, 0x05265c00}
04a7 0271       | q  |		Execute	Discrete,Times
04a8 0272       | r  |		Execute	Discrete,Minus
04a9 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04aa 00d8       |    |		Load_Top	At_Offset_0
04ab 6040       |`@  |		Indirect_Literal	Discrete,0x4ec,{0x00000000, 0x0036ee80}
04ac 0270       | p  |		Execute	Discrete,Divide
04ad 00d8       |    |		Load_Top	At_Offset_0
04ae e222       | "  |		Load	0x1,0x22
04af 0260       | `  |		Execute	Discrete,In_Type
04b0 7001       |p   |		Jump_Nonzero	0x4b2
04b1 0801       |    |		Execute_Immediate	Raise,0x1
04b2 00da       |    |		Load_Top	At_Offset_2
04b3 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
04b4 00d8       |    |		Load_Top	At_Offset_0
04b5 00da       |    |		Load_Top	At_Offset_2
04b6 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
04b7 6034       |`4  |		Indirect_Literal	Discrete,0x4ec,{0x00000000, 0x0036ee80}
04b8 0271       | q  |		Execute	Discrete,Times
04b9 0272       | r  |		Execute	Discrete,Minus
04ba 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04bb 00d8       |    |		Load_Top	At_Offset_0
04bc 602b       |`+  |		Indirect_Literal	Discrete,0x4e8,{0x00000000, 0x0000ea60}
04bd 0270       | p  |		Execute	Discrete,Divide
04be 00d8       |    |		Load_Top	At_Offset_0
04bf e211       |    |		Load	0x1,0x11
04c0 0260       | `  |		Execute	Discrete,In_Type
04c1 7001       |p   |		Jump_Nonzero	0x4c3
04c2 0801       |    |		Execute_Immediate	Raise,0x1
04c3 00da       |    |		Load_Top	At_Offset_2
04c4 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
04c5 00d8       |    |		Load_Top	At_Offset_0
04c6 00da       |    |		Load_Top	At_Offset_2
04c7 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
04c8 601f       |`   |		Indirect_Literal	Discrete,0x4e8,{0x00000000, 0x0000ea60}
04c9 0271       | q  |		Execute	Discrete,Times
04ca 0272       | r  |		Execute	Discrete,Minus
04cb 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04cc 00d8       |    |		Load_Top	At_Offset_0
04cd 4be8       |K   |		Short_Literal	0x3e8
04ce 0270       | p  |		Execute	Discrete,Divide
04cf 00d8       |    |		Load_Top	At_Offset_0
04d0 e212       |    |		Load	0x1,0x12
04d1 0260       | `  |		Execute	Discrete,In_Type
04d2 7001       |p   |		Jump_Nonzero	0x4d4
04d3 0801       |    |		Execute_Immediate	Raise,0x1
04d4 00da       |    |		Load_Top	At_Offset_2
04d5 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
04d6 00d8       |    |		Load_Top	At_Offset_0
04d7 00da       |    |		Load_Top	At_Offset_2
04d8 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
04d9 4be8       |K   |		Short_Literal	0x3e8
04da 0271       | q  |		Execute	Discrete,Times
04db 0272       | r  |		Execute	Discrete,Minus
04dc 0059       | Y  |		Store_Top	Discrete,At_Offset_1
04dd 00d8       |    |		Load_Top	At_Offset_0
04de 00d8       |    |		Load_Top	At_Offset_0
04df e223       | #  |		Load	0x1,0x23
04e0 0260       | `  |		Execute	Discrete,In_Type
04e1 7001       |p   |		Jump_Nonzero	0x4e3
04e2 0801       |    |		Execute_Immediate	Raise,0x1
04e3 00da       |    |		Load_Top	At_Offset_2
04e4 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
04e5 00d9       |    |		Load_Top	At_Offset_1
04e6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
04e7 0000       |    |		.XXX[0x1]
04e8 0000 0000  |    |		.LITERAL	{0x00000000, 0x0000ea60}
04ec 0000 0000  |    |		.LITERAL	{0x00000000, 0x0036ee80}
04f0 0000 0000  |    |		.LITERAL	{0x00000000, 0x05265c00}
04f4 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
04f8 ffff ffff  |    |		.LITERAL	{0xffffffff, 0xffffc000}
04fc 0000 0000  |    |		.BLANK	0000[0x4]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503       |    |		.CONST	0x0503								; Address of begin
0501 0004       |    |		.CONST	0x0004								; Address of exception handler
0502 0001       |    |		.CONST	0x0001								; Number of locals
0503			BODY_0500:
0503			INIT_0500:
0503 00da       |    |		Load_Top	At_Offset_2
0504 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0505 6086       |`   |		Indirect_Literal	Discrete,0x58c,{0x00000000, 0x0001869f}
0506 027d       | }  |		Execute	Discrete,Greater
0507 6809       |h   |		Jump_Zero	0x511
0508 4844       |HD  |		Short_Literal	0x44
0509 4830       |H0  |		Short_Literal	0x30
050a 4800       |H   |		Short_Literal	0x0
050b 480a       |H   |		Short_Literal	0xa
050c e5ff       |    |		Load	0x2,-0x1
050d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
050e 823e       | >  |		Call	0x1,0x3e
050f 01cb       |    |		Execute	Vector,Append
0510 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0511 00da       |    |		Load_Top	At_Offset_2
0512 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0513 0c64       | d  |		Execute_Immediate	Greater_Equal,0x64
0514 6810       |h   |		Jump_Zero	0x525
0515 482f       |H/  |		Short_Literal	0x2f
0516 4820       |H   |		Short_Literal	0x20
0517 4805       |H   |		Short_Literal	0x5
0518 480a       |H   |		Short_Literal	0xa
0519 e5ff       |    |		Load	0x2,-0x1
051a 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
051b 823e       | >  |		Call	0x1,0x3e
051c 01cb       |    |		Execute	Vector,Append
051d 4830       |H0  |		Short_Literal	0x30
051e 4802       |H   |		Short_Literal	0x2
051f 480a       |H   |		Short_Literal	0xa
0520 e5ff       |    |		Load	0x2,-0x1
0521 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0522 823e       | >  |		Call	0x1,0x3e
0523 01cc       |    |		Execute	Vector,Catenate
0524 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0525 00da       |    |		Load_Top	At_Offset_2
0526 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0527 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0528 6819       |h   |		Jump_Zero	0x542
0529 483a       |H:  |		Short_Literal	0x3a
052a 482f       |H/  |		Short_Literal	0x2f
052b 4820       |H   |		Short_Literal	0x20
052c 4802       |H   |		Short_Literal	0x2
052d 480a       |H   |		Short_Literal	0xa
052e e5ff       |    |		Load	0x2,-0x1
052f 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0530 823e       | >  |		Call	0x1,0x3e
0531 01cb       |    |		Execute	Vector,Append
0532 4830       |H0  |		Short_Literal	0x30
0533 4802       |H   |		Short_Literal	0x2
0534 480a       |H   |		Short_Literal	0xa
0535 e5ff       |    |		Load	0x2,-0x1
0536 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0537 823e       | >  |		Call	0x1,0x3e
0538 01cc       |    |		Execute	Vector,Catenate
0539 01cb       |    |		Execute	Vector,Append
053a 4830       |H0  |		Short_Literal	0x30
053b 4802       |H   |		Short_Literal	0x2
053c 480a       |H   |		Short_Literal	0xa
053d e5ff       |    |		Load	0x2,-0x1
053e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
053f 823e       | >  |		Call	0x1,0x3e
0540 01cc       |    |		Execute	Vector,Catenate
0541 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0542 00da       |    |		Load_Top	At_Offset_2
0543 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0544 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0545 6819       |h   |		Jump_Zero	0x55f
0546 483a       |H:  |		Short_Literal	0x3a
0547 483a       |H:  |		Short_Literal	0x3a
0548 4820       |H   |		Short_Literal	0x20
0549 4802       |H   |		Short_Literal	0x2
054a 480a       |H   |		Short_Literal	0xa
054b e5ff       |    |		Load	0x2,-0x1
054c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
054d 823e       | >  |		Call	0x1,0x3e
054e 01cb       |    |		Execute	Vector,Append
054f 4830       |H0  |		Short_Literal	0x30
0550 4802       |H   |		Short_Literal	0x2
0551 480a       |H   |		Short_Literal	0xa
0552 e5ff       |    |		Load	0x2,-0x1
0553 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0554 823e       | >  |		Call	0x1,0x3e
0555 01cc       |    |		Execute	Vector,Catenate
0556 01cb       |    |		Execute	Vector,Append
0557 4830       |H0  |		Short_Literal	0x30
0558 4802       |H   |		Short_Literal	0x2
0559 480a       |H   |		Short_Literal	0xa
055a e5ff       |    |		Load	0x2,-0x1
055b 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
055c 823e       | >  |		Call	0x1,0x3e
055d 01cc       |    |		Execute	Vector,Catenate
055e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
055f 00da       |    |		Load_Top	At_Offset_2
0560 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0561 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0562 6819       |h   |		Jump_Zero	0x57c
0563 482e       |H.  |		Short_Literal	0x2e
0564 483a       |H:  |		Short_Literal	0x3a
0565 4820       |H   |		Short_Literal	0x20
0566 4802       |H   |		Short_Literal	0x2
0567 480a       |H   |		Short_Literal	0xa
0568 e5ff       |    |		Load	0x2,-0x1
0569 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
056a 823e       | >  |		Call	0x1,0x3e
056b 01cb       |    |		Execute	Vector,Append
056c 4830       |H0  |		Short_Literal	0x30
056d 4802       |H   |		Short_Literal	0x2
056e 480a       |H   |		Short_Literal	0xa
056f e5ff       |    |		Load	0x2,-0x1
0570 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0571 823e       | >  |		Call	0x1,0x3e
0572 01cc       |    |		Execute	Vector,Catenate
0573 01cb       |    |		Execute	Vector,Append
0574 4830       |H0  |		Short_Literal	0x30
0575 4803       |H   |		Short_Literal	0x3
0576 480a       |H   |		Short_Literal	0xa
0577 e5ff       |    |		Load	0x2,-0x1
0578 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0579 823e       | >  |		Call	0x1,0x3e
057a 01cc       |    |		Execute	Vector,Catenate
057b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
057c 482e       |H.  |		Short_Literal	0x2e
057d 4820       |H   |		Short_Literal	0x20
057e 4802       |H   |		Short_Literal	0x2
057f 480a       |H   |		Short_Literal	0xa
0580 e5ff       |    |		Load	0x2,-0x1
0581 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0582 823e       | >  |		Call	0x1,0x3e
0583 01cb       |    |		Execute	Vector,Append
0584 4830       |H0  |		Short_Literal	0x30
0585 4803       |H   |		Short_Literal	0x3
0586 480a       |H   |		Short_Literal	0xa
0587 e5ff       |    |		Load	0x2,-0x1
0588 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0589 823e       | >  |		Call	0x1,0x3e
058a 01cc       |    |		Execute	Vector,Catenate
058b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
058c 0000 0000  |    |		.LITERAL	{0x00000000, 0x0001869f}
0590 ; --------------------------------------------------------------------------------------
0590 ; SUBPROGRAM
0590 ; --------------------------------------------------------------------------------------
0590 0593       |    |		.CONST	0x0593								; Address of begin
0591 0004       |    |		.CONST	0x0004								; Address of exception handler
0592 0001       |    |		.CONST	0x0001								; Number of locals
0593			BODY_0590:
0593			INIT_0590:
0593 00da       |    |		Load_Top	At_Offset_2
0594 8248       | H  |		Call	0x1,0x48
0595 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0596 0000 0000  |    |		.XXX[0x2]
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 00da       |    |		Load_Top	At_Offset_2
059c 8226       | &  |		Call	0x1,0x26
059d 8227       | '  |		Call	0x1,0x27
059e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
059f 0000       |    |		.XXX[0x1]
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a3       |    |		.CONST	0x05a3								; Address of begin
05a1 0004       |    |		.CONST	0x0004								; Address of exception handler
05a2 0001       |    |		.CONST	0x0001								; Number of locals
05a3			BODY_05a0:
05a3			INIT_05a0:
05a3 00da       |    |		Load_Top	At_Offset_2
05a4 8217       |    |		Call	0x1,0x17
05a5 822b       | +  |		Call	0x1,0x2b
05a6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05a7 0000       |    |		.XXX[0x1]
05a8 ; --------------------------------------------------------------------------------------
05a8 ; SUBPROGRAM
05a8 ; --------------------------------------------------------------------------------------
05a8 05ab       |    |		.CONST	0x05ab								; Address of begin
05a9 0004       |    |		.CONST	0x0004								; Address of exception handler
05aa 0001       |    |		.CONST	0x0001								; Number of locals
05ab			BODY_05a8:
05ab			INIT_05a8:
05ab e001       |    |		Load	0x0,0x1
05ac 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
05ad 00db       |    |		Load_Top	At_Offset_3
05ae e001       |    |		Load	0x0,0x1
05af 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
05b0 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05b1 0000 0000  |    |		.BLANK	0000[0x7]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05c4       |    |		.CONST	0x05c4								; Address of begin
05b9 0004       |    |		.CONST	0x0004								; Address of exception handler
05ba 0004       |    |		.CONST	0x0004								; Number of locals
05bb			INIT_05b8:
05bb e214       |    |		Load	0x1,0x14
05bc 0322       | "  |		Declare_Variable	Record
05bd 8215       |    |		Call	0x1,0x15
05be 00d9       |    |		Load_Top	At_Offset_1
05bf 017d       | }  |		Execute	Record,Structure_Write
05c0 00e7       |    |		Load_Encached	Duration_Cache
05c1 e5ff       |    |		Load	0x2,-0x1
05c2 00e3       |    |		Load_Encached	Natural_Cache
05c3 03f1       |    |		Declare_Variable	Discrete,With_Value
05c4			BODY_05b8:
05c4 e5fe       |    |		Load	0x2,-0x2
05c5 00db       |    |		Load_Top	At_Offset_3
05c6 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
05c7 e5fd       |    |		Load	0x2,-0x3
05c8 00db       |    |		Load_Top	At_Offset_3
05c9 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
05ca 00d8       |    |		Load_Top	At_Offset_0
05cb 0c0c       |    |		Execute_Immediate	Greater_Equal,0xc
05cc 6807       |h   |		Jump_Zero	0x5d4
05cd 4801       |H   |		Short_Literal	0x1
05ce 00db       |    |		Load_Top	At_Offset_3
05cf 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
05d0 00d8       |    |		Load_Top	At_Offset_0
05d1 0af4       |    |		Execute_Immediate	Plus,-0xc
05d2 0059       | Y  |		Store_Top	Discrete,At_Offset_1
05d3 7803       |x   |		Jump	0x5d7
05d4 4800       |H   |		Short_Literal	0x0
05d5 00db       |    |		Load_Top	At_Offset_3
05d6 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
05d7 00d8       |    |		Load_Top	At_Offset_0
05d8 7004       |p   |		Jump_Nonzero	0x5dd
05d9 480c       |H   |		Short_Literal	0xc
05da 00db       |    |		Load_Top	At_Offset_3
05db 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05dc 7808       |x   |		Jump	0x5e5
05dd 00d8       |    |		Load_Top	At_Offset_0
05de 00d8       |    |		Load_Top	At_Offset_0
05df e210       |    |		Load	0x1,0x10
05e0 0260       | `  |		Execute	Discrete,In_Type
05e1 7001       |p   |		Jump_Nonzero	0x5e3
05e2 0801       |    |		Execute_Immediate	Raise,0x1
05e3 00db       |    |		Load_Top	At_Offset_3
05e4 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
05e5 00da       |    |		Load_Top	At_Offset_2
05e6 822a       | *  |		Call	0x1,0x2a
05e7 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
05e8 00d9       |    |		Load_Top	At_Offset_1
05e9 0d00       |    |		Execute_Immediate	Less,0x0
05ea 6804       |h   |		Jump_Zero	0x5ef
05eb 00d9       |    |		Load_Top	At_Offset_1
05ec 6007       |`   |		Indirect_Literal	Discrete,0x5f4,{0x00000000, 0xa8c00000}
05ed 0273       | s  |		Execute	Discrete,Plus
05ee 005a       | Z  |		Store_Top	Discrete,At_Offset_2
05ef 00d9       |    |		Load_Top	At_Offset_1
05f0 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
05f1 0000 0000  |    |		.XXX[0x3]
05f3 0000       |    |
05f4 0000 0000  |    |		.LITERAL	{0x00000000, 0xa8c00000}
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb       |    |		.CONST	0x05fb								; Address of begin
05f9 0004       |    |		.CONST	0x0004								; Address of exception handler
05fa 0001       |    |		.CONST	0x0001								; Number of locals
05fb			BODY_05f8:
05fb			INIT_05f8:
05fb 00da       |    |		Load_Top	At_Offset_2
05fc 8216       |    |		Call	0x1,0x16
05fd 822f       | /  |		Call	0x1,0x2f
05fe 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
05ff 0000       |    |		.XXX[0x1]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0607       |    |		.CONST	0x0607								; Address of begin
0601 0004       |    |		.CONST	0x0004								; Address of exception handler
0602 0005       |    |		.CONST	0x0005								; Number of locals
0603			INIT_0600:
0603 00e2       |    |		Load_Encached	Integer_Cache
0604 03e9       |    |		Declare_Variable	Discrete,Duplicate
0605 03e9       |    |		Declare_Variable	Discrete,Duplicate
0606 03e9       |    |		Declare_Variable	Discrete,Duplicate
0607			BODY_0600:
0607 e5ff       |    |		Load	0x2,-0x1
0608 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0609 0c03       |    |		Execute_Immediate	Greater_Equal,0x3
060a 6808       |h   |		Jump_Zero	0x613
060b e5ff       |    |		Load	0x2,-0x1
060c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
060d a402       |    |		Store_Unchecked	0x2,0x2
060e e5ff       |    |		Load	0x2,-0x1
060f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0610 0aff       |    |		Execute_Immediate	Plus,-0x1
0611 005b       | [  |		Store_Top	Discrete,At_Offset_3
0612 7808       |x   |		Jump	0x61b
0613 e5ff       |    |		Load	0x2,-0x1
0614 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0615 0aff       |    |		Execute_Immediate	Plus,-0x1
0616 c402       |    |		Store	0x2,0x2
0617 e5ff       |    |		Load	0x2,-0x1
0618 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0619 0a0b       |    |		Execute_Immediate	Plus,0xb
061a 005b       | [  |		Store_Top	Discrete,At_Offset_3
061b 00db       |    |		Load_Top	At_Offset_3
061c 4864       |Hd  |		Short_Literal	0x64
061d 0270       | p  |		Execute	Discrete,Divide
061e 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
061f 00db       |    |		Load_Top	At_Offset_3
0620 4864       |Hd  |		Short_Literal	0x64
0621 026f       | o  |		Execute	Discrete,Remainder
0622 0051       | Q  |		Store_Top_Unchecked	Discrete,At_Offset_1
0623 481a       |H   |		Short_Literal	0x1a
0624 00db       |    |		Load_Top	At_Offset_3
0625 0271       | q  |		Execute	Discrete,Times
0626 0afe       |    |		Execute_Immediate	Plus,-0x2
0627 480a       |H   |		Short_Literal	0xa
0628 0270       | p  |		Execute	Discrete,Divide
0629 e5ff       |    |		Load	0x2,-0x1
062a 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
062b 0273       | s  |		Execute	Discrete,Plus
062c 00d9       |    |		Load_Top	At_Offset_1
062d 0273       | s  |		Execute	Discrete,Plus
062e 00d9       |    |		Load_Top	At_Offset_1
062f 09fe       |    |		Execute_Immediate	Binary_Scale,-0x2
0630 0273       | s  |		Execute	Discrete,Plus
0631 00da       |    |		Load_Top	At_Offset_2
0632 09fe       |    |		Execute_Immediate	Binary_Scale,-0x2
0633 0273       | s  |		Execute	Discrete,Plus
0634 00da       |    |		Load_Top	At_Offset_2
0635 0901       |    |		Execute_Immediate	Binary_Scale,0x1
0636 0272       | r  |		Execute	Discrete,Minus
0637 00d8       |    |		Load_Top	At_Offset_0
0638 00e2       |    |		Load_Encached	Integer_Cache
0639 0260       | `  |		Execute	Discrete,In_Type
063a 7001       |p   |		Jump_Nonzero	0x63c
063b 0801       |    |		Execute_Immediate	Raise,0x1
063c 824a       | J  |		Call	0x1,0x4a
063d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
063e 0000 0000  |    |		.XXX[0x2]
0640 ; --------------------------------------------------------------------------------------
0640 ; SUBPROGRAM
0640 ; --------------------------------------------------------------------------------------
0640 0643       | C  |		.CONST	0x0643								; Address of begin
0641 0004       |    |		.CONST	0x0004								; Address of exception handler
0642 0001       |    |		.CONST	0x0001								; Number of locals
0643			BODY_0640:
0643			INIT_0640:
0643 00da       |    |		Load_Top	At_Offset_2
0644 0aff       |    |		Execute_Immediate	Plus,-0x1
0645 4606       |F   |		Jump_Case	0x7
0646 7809       |x   |		Jump	0x650								; case 0x0
0647 780b       |x   |		Jump	0x653								; case 0x1
0648 780d       |x   |		Jump	0x656								; case 0x2
0649 780f       |x   |		Jump	0x659								; case 0x3
064a 7811       |x   |		Jump	0x65c								; case 0x4
064b 7813       |x   |		Jump	0x65f								; case 0x5
064c 7800       |x   |		Jump	0x64d								; case 0x6
064d 0092 07ed  |    |		Action	Push_String_Extended,0x7ed					; "Sunday"
064f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0650 0092 07ee  |    |		Action	Push_String_Extended,0x7ee					; "Monday"
0652 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0653 0092 07ef  |    |		Action	Push_String_Extended,0x7ef					; "Tuesday"
0655 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0656 0092 07f0  |    |		Action	Push_String_Extended,0x7f0					; "Wednesday"
0658 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0659 0092 07f1  |    |		Action	Push_String_Extended,0x7f1					; "Thursday"
065b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
065c 0092 07f2  |    |		Action	Push_String_Extended,0x7f2					; "Friday"
065e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
065f 0092 07f3  |    |		Action	Push_String_Extended,0x7f3					; "Saturday"
0661 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0662 0000 0000  |    |		.BLANK	0000[0x6]
0668 ; --------------------------------------------------------------------------------------
0668 ; SUBPROGRAM
0668 ; --------------------------------------------------------------------------------------
0668 066b       | k  |		.CONST	0x066b								; Address of begin
0669 0004       |    |		.CONST	0x0004								; Address of exception handler
066a 0001       |    |		.CONST	0x0001								; Number of locals
066b			BODY_0668:
066b			INIT_0668:
066b 00da       |    |		Load_Top	At_Offset_2
066c e5fe       |    |		Load	0x2,-0x2
066d 0273       | s  |		Execute	Discrete,Plus
066e 00d8       |    |		Load_Top	At_Offset_0
066f 00e2       |    |		Load_Encached	Integer_Cache
0670 0260       | `  |		Execute	Discrete,In_Type
0671 7001       |p   |		Jump_Nonzero	0x673
0672 0801       |    |		Execute_Immediate	Raise,0x1
0673 824a       | J  |		Call	0x1,0x4a
0674 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0675 0000 0000  |    |		.XXX[0x3]
0677 0000       |    |
0678 ; --------------------------------------------------------------------------------------
0678 ; SUBPROGRAM
0678 ; --------------------------------------------------------------------------------------
0678 067b       | {  |		.CONST	0x067b								; Address of begin
0679 0004       |    |		.CONST	0x0004								; Address of exception handler
067a 0001       |    |		.CONST	0x0001								; Number of locals
067b			BODY_0678:
067b			INIT_0678:
067b 00da       |    |		Load_Top	At_Offset_2
067c e5fe       |    |		Load	0x2,-0x2
067d 0272       | r  |		Execute	Discrete,Minus
067e 00d8       |    |		Load_Top	At_Offset_0
067f 00e2       |    |		Load_Encached	Integer_Cache
0680 0260       | `  |		Execute	Discrete,In_Type
0681 7001       |p   |		Jump_Nonzero	0x683
0682 0801       |    |		Execute_Immediate	Raise,0x1
0683 824a       | J  |		Call	0x1,0x4a
0684 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0685 0000 0000  |    |		.XXX[0x3]
0687 0000       |    |
0688 ; --------------------------------------------------------------------------------------
0688 ; SUBPROGRAM
0688 ; --------------------------------------------------------------------------------------
0688 068f       |    |		.CONST	0x068f								; Address of begin
0689 0004       |    |		.CONST	0x0004								; Address of exception handler
068a 0002       |    |		.CONST	0x0002								; Number of locals
068b			INIT_0688:
068b 00da       |    |		Load_Top	At_Offset_2
068c e20e       |    |		Load	0x1,0xe
068d 011c       |    |		Execute	Any,Convert_Unchecked
068e 1c01       |    |		Execute_Immediate	Run_Utility,0x1
068f			BODY_0688:
068f e5fe       |    |		Load	0x2,-0x2
0690 6804       |h   |		Jump_Zero	0x695
0691 00d8       |    |		Load_Top	At_Offset_0
0692 e002       |    |		Load	0x0,0x2
0693 1823       | #  |		Execute	Package,Field_Execute,Field_Number 0x23
0694 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0695 00d8       |    |		Load_Top	At_Offset_0
0696 01dd       |    |		Execute	Vector,First
0697 00d9       |    |		Load_Top	At_Offset_1
0698 01dd       |    |		Execute	Vector,First
0699 0a02       |    |		Execute_Immediate	Plus,0x2
069a 00d8       |    |		Load_Top	At_Offset_0
069b 00e2       |    |		Load_Encached	Integer_Cache
069c 0260       | `  |		Execute	Discrete,In_Type
069d 7001       |p   |		Jump_Nonzero	0x69f
069e 0801       |    |		Execute_Immediate	Raise,0x1
069f 00da       |    |		Load_Top	At_Offset_2
06a0 01cf       |    |		Execute	Vector,Slice_Read
06a1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06a2 0000 0000  |    |		.BLANK	0000[0x6]
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06b5       |    |		.CONST	0x06b5								; Address of begin
06a9 0004       |    |		.CONST	0x0004								; Address of exception handler
06aa 0003       |    |		.CONST	0x0003								; Number of locals
06ab			INIT_06a8:
06ab 00e8       |    |		Load_Encached	Character_Cache
06ac 063a       | :  |		Execute_Immediate	Set_Value_Unchecked,0x3a
06ad 00db       |    |		Load_Top	At_Offset_3
06ae 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
06af e5ff       |    |		Load	0x2,-0x1
06b0 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
06b1 e23b       | ;  |		Load	0x1,0x3b
06b2 01a7       |    |		Execute	Matrix,Field_Read
06b3 00e2       |    |		Load_Encached	Integer_Cache
06b4 03f1       |    |		Declare_Variable	Discrete,With_Value
06b5			BODY_06a8:
06b5 e5fe       |    |		Load	0x2,-0x2
06b6 4603       |F   |		Jump_Case	0x4
06b7 7820       |x   |		Jump	0x6d8								; case 0x0
06b8 7802       |x   |		Jump	0x6bb								; case 0x1
06b9 783f       |x?  |		Jump	0x6f9								; case 0x2
06ba 7800       |x   |		Jump	0x6bb								; case 0x3
06bb e5fe       |    |		Load	0x2,-0x2
06bc 0f03       |    |		Execute_Immediate	Equal,0x3
06bd 6802       |h   |		Jump_Zero	0x6c0
06be 485f       |H_  |		Short_Literal	0x5f
06bf 0052       | R  |		Store_Top_Unchecked	Discrete,At_Offset_2
06c0 00d9       |    |		Load_Top	At_Offset_1
06c1 00da       |    |		Load_Top	At_Offset_2
06c2 4830       |H0  |		Short_Literal	0x30
06c3 4802       |H   |		Short_Literal	0x2
06c4 480a       |H   |		Short_Literal	0xa
06c5 e403       |    |		Load	0x2,0x3
06c6 823e       | >  |		Call	0x1,0x3e
06c7 01cb       |    |		Execute	Vector,Append
06c8 4830       |H0  |		Short_Literal	0x30
06c9 4802       |H   |		Short_Literal	0x2
06ca 480a       |H   |		Short_Literal	0xa
06cb e5ff       |    |		Load	0x2,-0x1
06cc 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
06cd 823e       | >  |		Call	0x1,0x3e
06ce 01cc       |    |		Execute	Vector,Catenate
06cf 01cb       |    |		Execute	Vector,Append
06d0 4830       |H0  |		Short_Literal	0x30
06d1 4802       |H   |		Short_Literal	0x2
06d2 480a       |H   |		Short_Literal	0xa
06d3 e5ff       |    |		Load	0x2,-0x1
06d4 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
06d5 823e       | >  |		Call	0x1,0x3e
06d6 01cc       |    |		Execute	Vector,Catenate
06d7 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06d8 4820       |H   |		Short_Literal	0x20
06d9 00da       |    |		Load_Top	At_Offset_2
06da 00db       |    |		Load_Top	At_Offset_3
06db 4830       |H0  |		Short_Literal	0x30
06dc 4800       |H   |		Short_Literal	0x0
06dd 480a       |H   |		Short_Literal	0xa
06de e5ff       |    |		Load	0x2,-0x1
06df 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
06e0 823e       | >  |		Call	0x1,0x3e
06e1 01cb       |    |		Execute	Vector,Append
06e2 4830       |H0  |		Short_Literal	0x30
06e3 4802       |H   |		Short_Literal	0x2
06e4 480a       |H   |		Short_Literal	0xa
06e5 e5ff       |    |		Load	0x2,-0x1
06e6 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
06e7 823e       | >  |		Call	0x1,0x3e
06e8 01cc       |    |		Execute	Vector,Catenate
06e9 01cb       |    |		Execute	Vector,Append
06ea 4830       |H0  |		Short_Literal	0x30
06eb 4802       |H   |		Short_Literal	0x2
06ec 480a       |H   |		Short_Literal	0xa
06ed e5ff       |    |		Load	0x2,-0x1
06ee 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
06ef 823e       | >  |		Call	0x1,0x3e
06f0 01cc       |    |		Execute	Vector,Catenate
06f1 01cb       |    |		Execute	Vector,Append
06f2 e5ff       |    |		Load	0x2,-0x1
06f3 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
06f4 e213       |    |		Load	0x1,0x13
06f5 011c       |    |		Execute	Any,Convert_Unchecked
06f6 1c01       |    |		Execute_Immediate	Run_Utility,0x1
06f7 01cc       |    |		Execute	Vector,Catenate
06f8 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
06f9 00d9       |    |		Load_Top	At_Offset_1
06fa 4830       |H0  |		Short_Literal	0x30
06fb 4802       |H   |		Short_Literal	0x2
06fc 480a       |H   |		Short_Literal	0xa
06fd e403       |    |		Load	0x2,0x3
06fe 823e       | >  |		Call	0x1,0x3e
06ff 01cb       |    |		Execute	Vector,Append
0700 4830       |H0  |		Short_Literal	0x30
0701 4802       |H   |		Short_Literal	0x2
0702 480a       |H   |		Short_Literal	0xa
0703 e5ff       |    |		Load	0x2,-0x1
0704 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0705 823e       | >  |		Call	0x1,0x3e
0706 01cc       |    |		Execute	Vector,Catenate
0707 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0708 ; --------------------------------------------------------------------------------------
0708 ; SUBPROGRAM
0708 ; --------------------------------------------------------------------------------------
0708 0718       |    |		.CONST	0x0718								; Address of begin
0709 0004       |    |		.CONST	0x0004								; Address of exception handler
070a 0004       |    |		.CONST	0x0004								; Number of locals
070b			INIT_0708:
070b 00e8       |    |		Load_Encached	Character_Cache
070c 062f       | /  |		Execute_Immediate	Set_Value_Unchecked,0x2f
070d 00db       |    |		Load_Top	At_Offset_3
070e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
070f 4864       |Hd  |		Short_Literal	0x64
0710 026e       | n  |		Execute	Discrete,Modulo
0711 00e2       |    |		Load_Encached	Integer_Cache
0712 03f1       |    |		Declare_Variable	Discrete,With_Value
0713 e5ff       |    |		Load	0x2,-0x1
0714 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0715 0a01       |    |		Execute_Immediate	Plus,0x1
0716 00e2       |    |		Load_Encached	Integer_Cache
0717 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0718			BODY_0708:
0718 e5fe       |    |		Load	0x2,-0x2
0719 4604       |F   |		Jump_Case	0x5
071a 7820       |x   |		Jump	0x73b								; case 0x0
071b 7836       |x6  |		Jump	0x752								; case 0x1
071c 784c       |xL  |		Jump	0x769								; case 0x2
071d 7801       |x   |		Jump	0x71f								; case 0x3
071e 7800       |x   |		Jump	0x71f								; case 0x4
071f e5fe       |    |		Load	0x2,-0x2
0720 0f04       |    |		Execute_Immediate	Equal,0x4
0721 6802       |h   |		Jump_Zero	0x724
0722 485f       |H_  |		Short_Literal	0x5f
0723 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0724 00da       |    |		Load_Top	At_Offset_2
0725 00db       |    |		Load_Top	At_Offset_3
0726 4830       |H0  |		Short_Literal	0x30
0727 4802       |H   |		Short_Literal	0x2
0728 480a       |H   |		Short_Literal	0xa
0729 e403       |    |		Load	0x2,0x3
072a 823e       | >  |		Call	0x1,0x3e
072b 01cb       |    |		Execute	Vector,Append
072c 4830       |H0  |		Short_Literal	0x30
072d 4802       |H   |		Short_Literal	0x2
072e 480a       |H   |		Short_Literal	0xa
072f e404       |    |		Load	0x2,0x4
0730 823e       | >  |		Call	0x1,0x3e
0731 01cc       |    |		Execute	Vector,Catenate
0732 01cb       |    |		Execute	Vector,Append
0733 4830       |H0  |		Short_Literal	0x30
0734 4802       |H   |		Short_Literal	0x2
0735 480a       |H   |		Short_Literal	0xa
0736 e5ff       |    |		Load	0x2,-0x1
0737 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0738 823e       | >  |		Call	0x1,0x3e
0739 01cc       |    |		Execute	Vector,Catenate
073a 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
073b 482c       |H,  |		Short_Literal	0x2c
073c 4820       |H   |		Short_Literal	0x20
073d 4801       |H   |		Short_Literal	0x1
073e e5ff       |    |		Load	0x2,-0x1
073f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0740 8243       | C  |		Call	0x1,0x43
0741 01cb       |    |		Execute	Vector,Append
0742 4830       |H0  |		Short_Literal	0x30
0743 4800       |H   |		Short_Literal	0x0
0744 480a       |H   |		Short_Literal	0xa
0745 e5ff       |    |		Load	0x2,-0x1
0746 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0747 823e       | >  |		Call	0x1,0x3e
0748 01cc       |    |		Execute	Vector,Catenate
0749 01cb       |    |		Execute	Vector,Append
074a 4820       |H   |		Short_Literal	0x20
074b 4805       |H   |		Short_Literal	0x5
074c 480a       |H   |		Short_Literal	0xa
074d e5ff       |    |		Load	0x2,-0x1
074e 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
074f 823e       | >  |		Call	0x1,0x3e
0750 01cc       |    |		Execute	Vector,Catenate
0751 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0752 00da       |    |		Load_Top	At_Offset_2
0753 00db       |    |		Load_Top	At_Offset_3
0754 4820       |H   |		Short_Literal	0x20
0755 4802       |H   |		Short_Literal	0x2
0756 480a       |H   |		Short_Literal	0xa
0757 e404       |    |		Load	0x2,0x4
0758 823e       | >  |		Call	0x1,0x3e
0759 01cb       |    |		Execute	Vector,Append
075a 4830       |H0  |		Short_Literal	0x30
075b 4802       |H   |		Short_Literal	0x2
075c 480a       |H   |		Short_Literal	0xa
075d e5ff       |    |		Load	0x2,-0x1
075e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
075f 823e       | >  |		Call	0x1,0x3e
0760 01cc       |    |		Execute	Vector,Catenate
0761 01cb       |    |		Execute	Vector,Append
0762 4830       |H0  |		Short_Literal	0x30
0763 4802       |H   |		Short_Literal	0x2
0764 480a       |H   |		Short_Literal	0xa
0765 e403       |    |		Load	0x2,0x3
0766 823e       | >  |		Call	0x1,0x3e
0767 01cc       |    |		Execute	Vector,Catenate
0768 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0769 482d       |H-  |		Short_Literal	0x2d
076a 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
076b 00da       |    |		Load_Top	At_Offset_2
076c 00db       |    |		Load_Top	At_Offset_3
076d 4820       |H   |		Short_Literal	0x20
076e 4802       |H   |		Short_Literal	0x2
076f 480a       |H   |		Short_Literal	0xa
0770 e5ff       |    |		Load	0x2,-0x1
0771 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0772 823e       | >  |		Call	0x1,0x3e
0773 01cb       |    |		Execute	Vector,Append
0774 4800       |H   |		Short_Literal	0x0
0775 e5ff       |    |		Load	0x2,-0x1
0776 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0777 8243       | C  |		Call	0x1,0x43
0778 01cc       |    |		Execute	Vector,Catenate
0779 01cb       |    |		Execute	Vector,Append
077a 4830       |H0  |		Short_Literal	0x30
077b 4802       |H   |		Short_Literal	0x2
077c 480a       |H   |		Short_Literal	0xa
077d e403       |    |		Load	0x2,0x3
077e 823e       | >  |		Call	0x1,0x3e
077f 01cc       |    |		Execute	Vector,Catenate
0780 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0781 0000 0000  |    |		.BLANK	0000[0x7]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 078b       |    |		.CONST	0x078b								; Address of begin
0789 0004       |    |		.CONST	0x0004								; Address of exception handler
078a 0001       |    |		.CONST	0x0001								; Number of locals
078b			BODY_0788:
078b			INIT_0788:
078b 00da       |    |		Load_Top	At_Offset_2
078c 0f04       |    |		Execute_Immediate	Equal,0x4
078d 6806       |h   |		Jump_Zero	0x794
078e 00db       |    |		Load_Top	At_Offset_3
078f 0f03       |    |		Execute_Immediate	Equal,0x3
0790 6803       |h   |		Jump_Zero	0x794
0791 0092 07f4  |    |		Action	Push_String_Extended,0x7f4					; "_at_"
0793 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0794 00da       |    |		Load_Top	At_Offset_2
0795 7003       |p   |		Jump_Nonzero	0x799
0796 0092 07f5  |    |		Action	Push_String_Extended,0x7f5					; " at "
0798 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0799 0092 07f6  |    |		Action	Push_String_Extended,0x7f6					; " "
079b 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
079c 0000 0000  |    |		.BLANK	0000[0x4]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07a3       |    |		.CONST	0x07a3								; Address of begin
07a1 0004       |    |		.CONST	0x0004								; Address of exception handler
07a2 0001       |    |		.CONST	0x0001								; Number of locals
07a3			BODY_07a0:
07a3			INIT_07a0:
07a3 00db       |    |		Load_Top	At_Offset_3
07a4 0f02       |    |		Execute_Immediate	Equal,0x2
07a5 6810       |h   |		Jump_Zero	0x7b6
07a6 483a       |H:  |		Short_Literal	0x3a
07a7 4830       |H0  |		Short_Literal	0x30
07a8 4802       |H   |		Short_Literal	0x2
07a9 480a       |H   |		Short_Literal	0xa
07aa e5ff       |    |		Load	0x2,-0x1
07ab 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
07ac 823e       | >  |		Call	0x1,0x3e
07ad 01cb       |    |		Execute	Vector,Append
07ae 4830       |H0  |		Short_Literal	0x30
07af 4802       |H   |		Short_Literal	0x2
07b0 480a       |H   |		Short_Literal	0xa
07b1 e5ff       |    |		Load	0x2,-0x1
07b2 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
07b3 823e       | >  |		Call	0x1,0x3e
07b4 01cc       |    |		Execute	Vector,Catenate
07b5 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07b6 00db       |    |		Load_Top	At_Offset_3
07b7 00db       |    |		Load_Top	At_Offset_3
07b8 8244       | D  |		Call	0x1,0x44
07b9 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
07ba 0000 0000  |    |		.BLANK	0000[0x6]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c8       |    |		.CONST	0x07c8								; Address of begin
07c1 0004       |    |		.CONST	0x0004								; Address of exception handler
07c2 0002       |    |		.CONST	0x0002								; Number of locals
07c3			INIT_07c0:
07c3 00da       |    |		Load_Top	At_Offset_2
07c4 4807       |H   |		Short_Literal	0x7
07c5 026e       | n  |		Execute	Discrete,Modulo
07c6 00e2       |    |		Load_Encached	Integer_Cache
07c7 03f1       |    |		Declare_Variable	Discrete,With_Value
07c8			BODY_07c0:
07c8 00d8       |    |		Load_Top	At_Offset_0
07c9 7002       |p   |		Jump_Nonzero	0x7cc
07ca 4807       |H   |		Short_Literal	0x7
07cb 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07cc 00d8       |    |		Load_Top	At_Offset_0
07cd 00d8       |    |		Load_Top	At_Offset_0
07ce e22d       | -  |		Load	0x1,0x2d
07cf 0260       | `  |		Execute	Discrete,In_Type
07d0 7001       |p   |		Jump_Nonzero	0x7d2
07d1 0801       |    |		Execute_Immediate	Raise,0x1
07d2 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
07d3 ; --------------------------------------------------------------------------------------
07d3 ; STRING TABLE
07d3 ; --------------------------------------------------------------------------------------
07d3 004a       | J  |		.STRTAB	0x004a->0x07f8							; "JANUARY"
07d4 004f       | O  |		.STRTAB	0x004f->0x07fb							; "FEBRUARY"
07d5 0055       | U  |		.STRTAB	0x0055->0x07ff							; "MARCH"
07d6 0058       | X  |		.STRTAB	0x0058->0x0802							; "APRIL"
07d7 005b       | [  |		.STRTAB	0x005b->0x0804							; "MAY"
07d8 005c       | \  |		.STRTAB	0x005c->0x0806							; "JUNE"
07d9 005e       | ^  |		.STRTAB	0x005e->0x0808							; "JULY"
07da 0060       | `  |		.STRTAB	0x0060->0x080a							; "AUGUST"
07db 0064       | d  |		.STRTAB	0x0064->0x080d							; "SEPTEMBER"
07dc 006b       | k  |		.STRTAB	0x006b->0x0811							; "OCTOBER"
07dd 0070       | p  |		.STRTAB	0x0070->0x0815							; "NOVEMBER"
07de 0076       | v  |		.STRTAB	0x0076->0x0819							; "DECEMBER"
07df 007c       | |  |		.STRTAB	0x007c->0x081d							; "AM"
07e0 007c       | |  |		.STRTAB	0x007c->0x081e							; "PM"
07e1 007c       | |  |		.STRTAB	0x007c->0x081f							; "EXPANDED"
07e2 0082       |    |		.STRTAB	0x0082->0x0823							; "MILITARY"
07e3 0088       |    |		.STRTAB	0x0088->0x0827							; "SHORT"
07e4 008b       |    |		.STRTAB	0x008b->0x0829							; "ADA"
07e5 008c       |    |		.STRTAB	0x008c->0x082b							; "EXPANDED"
07e6 0092       |    |		.STRTAB	0x0092->0x082f							; "MONTH_DAY_YEAR"
07e7 009e       |    |		.STRTAB	0x009e->0x0836							; "DAY_MONTH_YEAR"
07e8 00aa       |    |		.STRTAB	0x00aa->0x083d							; "YEAR_MONTH_DAY"
07e9 00b6       |    |		.STRTAB	0x00b6->0x0844							; "ADA"
07ea 00b7       |    |		.STRTAB	0x00b7->0x0845							; "BOTH"
07eb 00b9       |    |		.STRTAB	0x00b9->0x0847							; "TIME_ONLY"
07ec 00c0       |    |		.STRTAB	0x00c0->0x084c							; "DATE_ONLY"
07ed 00c7       |    |		.STRTAB	0x00c7->0x0850							; "Sunday"
07ee 00cb       |    |		.STRTAB	0x00cb->0x0853							; "Monday"
07ef 00cf       |    |		.STRTAB	0x00cf->0x0856							; "Tuesday"
07f0 00d4       |    |		.STRTAB	0x00d4->0x085a							; "Wednesday"
07f1 00db       |    |		.STRTAB	0x00db->0x085e							; "Thursday"
07f2 00e1       |    |		.STRTAB	0x00e1->0x0862							; "Friday"
07f3 00e5       |    |		.STRTAB	0x00e5->0x0865							; "Saturday"
07f4 00eb       |    |		.STRTAB	0x00eb->0x0869							; "_at_"
07f5 00ed       |    |		.STRTAB	0x00ed->0x086b							; " at "
07f6 00ef       |    |		.STRTAB	0x00ef->0x086d							; " "
07f7 00ee       |    |		.STREND 0x00ee->0x086e
07f8 4a41 4e55  |JANU|		.STRTAB_STRINGS
086e 0000 0000  |    |		.XXX[0x2]
0870 ; --------------------------------------------------------------------------------------
0870 ; Debug Table
0870 ; --------------------------------------------------------------------------------------
0870 0004 0001  |    |		.DEBUG4	0x0004,0x0001,0x2e9d,0x0000,0x0001,0x0023
0876 000b 0902  |    |		.DBG4T	0x000b,0x0902,0x8000,0x8000
087a 0085 0950  |   P|		.DBG4T	0x0085,0x0950,0x8000,0x8000
087e 0233 0000  | 3  |		.DBG4T	0x0233,0x0000,0x0005,0x0000
0882 0263 0000  | c  |		.DBG4T	0x0263,0x0000,0x0005,0x0000
0886 028b 09a5  |    |		.DBG4T	0x028b,0x09a5,0x0002,0x0000
088a 0293 09a8  |    |		.DBG4T	0x0293,0x09a8,0x0002,0x0000
088e 0323 09c3  | #  |		.DBG4T	0x0323,0x09c3,0x0002,0x0000
0892 0373 09d3  | s  |		.DBG4T	0x0373,0x09d3,0x0002,0x0000
0896 037b 09d6  | {  |		.DBG4T	0x037b,0x09d6,0x0002,0x0000
089a 0383 09d9  |    |		.DBG4T	0x0383,0x09d9,0x0002,0x0000
089e 0393 09dc  |    |		.DBG4T	0x0393,0x09dc,0x0002,0x0000
08a2 039b 0000  |    |		.DBG4T	0x039b,0x0000,0x0005,0x0000
08a6 03c3 0000  |    |		.DBG4T	0x03c3,0x0000,0x0005,0x0000
08aa 03eb 0000  |    |		.DBG4T	0x03eb,0x0000,0x0005,0x0000
08ae 0413 09df  |    |		.DBG4T	0x0413,0x09df,0x0002,0x4000
08b2 0433 09e9  | 3  |		.DBG4T	0x0433,0x09e9,0x0002,0x0000
08b6 043b 09ec  | ;  |		.DBG4T	0x043b,0x09ec,0x0002,0x0000
08ba 0483 09f4  |    |		.DBG4T	0x0483,0x09f4,0x0002,0x8000
08be 0503 0a06  |    |		.DBG4T	0x0503,0x0a06,0x0002,0x0000
08c2 0593 0a13  |    |		.DBG4T	0x0593,0x0a13,0x0002,0x0000
08c6 059b 0a16  |    |		.DBG4T	0x059b,0x0a16,0x0002,0x0000
08ca 05a3 0a19  |    |		.DBG4T	0x05a3,0x0a19,0x0002,0x0000
08ce 05ab 0a1c  |    |		.DBG4T	0x05ab,0x0a1c,0x0002,0x0000
08d2 05bb 0a1f  |    |		.DBG4T	0x05bb,0x0a1f,0x0002,0x0000
08d6 05fb 0a31  |   1|		.DBG4T	0x05fb,0x0a31,0x0002,0x0000
08da 0603 0a34  |   4|		.DBG4T	0x0603,0x0a34,0x0002,0x0000
08de 0643 0a3f  | C ?|		.DBG4T	0x0643,0x0a3f,0x0002,0x4000
08e2 066b 0a51  | k Q|		.DBG4T	0x066b,0x0a51,0x0002,0x0000
08e6 067b 0a54  | { T|		.DBG4T	0x067b,0x0a54,0x0002,0x0000
08ea 068b 0a57  |   W|		.DBG4T	0x068b,0x0a57,0x0002,0x0000
08ee 06ab 0a5d  |   ]|		.DBG4T	0x06ab,0x0a5d,0x0002,0x4000
08f2 070b 0a6d  |   m|		.DBG4T	0x070b,0x0a6d,0x0002,0x4000
08f6 078b 0a82  |    |		.DBG4T	0x078b,0x0a82,0x0002,0x0000
08fa 07a3 0a89  |    |		.DBG4T	0x07a3,0x0a89,0x0002,0x0000
08fe 07c3 0a8e  |    |		.DBG4T	0x07c3,0x0a8e,0x0002,0x0000
0902 ; --------------------------------------------------------------------------------------
0902 ; Debug chain
0902 ; --------------------------------------------------------------------------------------
0902 0026 0000  | &  |		.DBGLEN	0x0026,0x0000
0904 000b 000e  |    |		.DBGLNO	0x000b,0x000e,0x0013,0x0016,0x001a,0x001e,0x0022,0x0027,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0044,0x0049,0x004e,0x0050,0x0052,0x0056,0x005a,0x005e,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x007a,0x007c,0x007e,0x0080,0x0082
092a 0004 0005  |    |		.XXX[0x26]
092c 0006 0007  |    |
092e 0008 0009  |    |
0930 000a 000b  |    |
0932 000c 000d  |    |
0934 000e 000f  |    |
0936 0010 0011  |    |
0938 0012 0013  |    |
093a 0014 0015  |    |
093c 0016 0017  |    |
093e 0018 0019  |    |
0940 001a 001b  |    |
0942 001c 001d  |    |
0944 001e 001f  |    |
0946 0020 0021  |   !|
0948 0022 0023  | " #|
094a 0024 0025  | $ %|
094c 0026 0027  | & '|
094e 0028 0029  | ( )|
0950 ; --------------------------------------------------------------------------------------
0950 ; Debug chain
0950 ; --------------------------------------------------------------------------------------
0950 0029 0001  | )  |		.DBGLEN	0x0029,0x0001
0952 0085 008a  |    |		.DBGLNO	0x0085,0x008a,0x0090,0x0096,0x00d1,0x00f9,0x0110,0x0121,0x01a8,0x01e5,0x01e8,0x01ef,0x01f1,0x01f3,0x01f5,0x01f7,0x01f9,0x01fb,0x01fd,0x01ff,0x0201,0x0203,0x0205,0x0207,0x0209,0x020b,0x020d,0x020f,0x0211,0x0213,0x0215,0x0217,0x0219,0x021b,0x021d,0x021f,0x0221,0x0223,0x0225,0x0227,0x0229,0x022b
097c 0004 0005  |    |		.XXX[0x29]
097e 0006 0007  |    |
0980 0008 0009  |    |
0982 000a 000b  |    |
0984 000c 000d  |    |
0986 000e 000f  |    |
0988 0010 0011  |    |
098a 0012 0013  |    |
098c 0014 0015  |    |
098e 0016 0017  |    |
0990 0018 0019  |    |
0992 001a 001b  |    |
0994 001c 001d  |    |
0996 001e 001f  |    |
0998 0020 0021  |   !|
099a 0022 0023  | " #|
099c 0024 0025  | $ %|
099e 0027 0028  | ' (|
09a0 0029 002a  | ) *|
09a2 002b 002c  | + ,|
09a4 002d       | -  |
09a5 ; --------------------------------------------------------------------------------------
09a5 ; Debug chain
09a5 ; --------------------------------------------------------------------------------------
09a5 0000 0001  |    |		.DBGLEN	0x0000,0x0001
09a7 028b       |    |		.DBGLNO	0x028b
09a8 ; --------------------------------------------------------------------------------------
09a8 ; Debug chain
09a8 ; --------------------------------------------------------------------------------------
09a8 0008 0011  |    |		.DBGLEN	0x0008,0x0011
09aa 0293 0295  |    |		.DBGLNO	0x0293,0x0295,0x0297,0x0299,0x029b,0x029d,0x029e,0x029f,0x02a2,0x02b1,0x02b4,0x02bd,0x02c0,0x02ca,0x02ce,0x02d2,0x02d5,0x02d9,0x02dd,0x02df,0x02e3,0x02eb,0x02ef,0x02f9,0x0303
09c3 ; --------------------------------------------------------------------------------------
09c3 ; Debug chain
09c3 ; --------------------------------------------------------------------------------------
09c3 0004 000a  |    |		.DBGLEN	0x0004,0x000a
09c5 0323 0325  | # %|		.DBGLNO	0x0323,0x0325,0x0327,0x0329,0x032a,0x032d,0x0337,0x033a,0x0342,0x0346,0x034d,0x0351,0x0355,0x0368
09d3 ; --------------------------------------------------------------------------------------
09d3 ; Debug chain
09d3 ; --------------------------------------------------------------------------------------
09d3 0000 0001  |    |		.DBGLEN	0x0000,0x0001
09d5 0373       | s  |		.DBGLNO	0x0373
09d6 ; --------------------------------------------------------------------------------------
09d6 ; Debug chain
09d6 ; --------------------------------------------------------------------------------------
09d6 0000 0001  |    |		.DBGLEN	0x0000,0x0001
09d8 037b       | {  |		.DBGLNO	0x037b
09d9 ; --------------------------------------------------------------------------------------
09d9 ; Debug chain
09d9 ; --------------------------------------------------------------------------------------
09d9 0000 0001  |    |		.DBGLEN	0x0000,0x0001
09db 0383       |    |		.DBGLNO	0x0383
09dc ; --------------------------------------------------------------------------------------
09dc ; Debug chain
09dc ; --------------------------------------------------------------------------------------
09dc 0000 0001  |    |		.DBGLEN	0x0000,0x0001
09de 0393       |    |		.DBGLNO	0x0393
09df ; --------------------------------------------------------------------------------------
09df ; Debug chain
09df ; --------------------------------------------------------------------------------------
09df 0000 0004  |    |		.DBGLEN	0x0000,0x0004
09e1 0413 0418  |    |		.DBGLNO	0x0413,0x0418,0x041c,0x0428
09e5 0001 0003  |    |		.XXX[0x4]
09e7 0002 0004  |    |
09e9 ; --------------------------------------------------------------------------------------
09e9 ; Debug chain
09e9 ; --------------------------------------------------------------------------------------
09e9 0000 0001  |    |		.DBGLEN	0x0000,0x0001
09eb 0433       | 3  |		.DBGLNO	0x0433
09ec ; --------------------------------------------------------------------------------------
09ec ; Debug chain
09ec ; --------------------------------------------------------------------------------------
09ec 0001 0005  |    |		.DBGLEN	0x0001,0x0005
09ee 043b 0442  | ; B|		.DBGLNO	0x043b,0x0442,0x0448,0x0456,0x0464,0x0472
09f4 ; --------------------------------------------------------------------------------------
09f4 ; Debug chain
09f4 ; --------------------------------------------------------------------------------------
09f4 0002 000c  |    |		.DBGLEN	0x0002,0x000c
09f6 0483 0485  |    |		.DBGLNO	0x0483,0x0485,0x0494,0x0497,0x0499,0x04a3,0x04aa,0x04b4,0x04bb,0x04c5,0x04cc,0x04d6,0x04dd,0x04e5
0a04 0001 0006  |    |		.XXX[0x2]
0a06 ; --------------------------------------------------------------------------------------
0a06 ; Debug chain
0a06 ; --------------------------------------------------------------------------------------
0a06 0000 000b  |    |		.DBGLEN	0x0000,0x000b
0a08 0503 0508  |    |		.DBGLNO	0x0503,0x0508,0x0511,0x0515,0x0525,0x0529,0x0542,0x0546,0x055f,0x0563,0x057c
0a13 ; --------------------------------------------------------------------------------------
0a13 ; Debug chain
0a13 ; --------------------------------------------------------------------------------------
0a13 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0a15 0593       |    |		.DBGLNO	0x0593
0a16 ; --------------------------------------------------------------------------------------
0a16 ; Debug chain
0a16 ; --------------------------------------------------------------------------------------
0a16 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0a18 059b       |    |		.DBGLNO	0x059b
0a19 ; --------------------------------------------------------------------------------------
0a19 ; Debug chain
0a19 ; --------------------------------------------------------------------------------------
0a19 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0a1b 05a3       |    |		.DBGLNO	0x05a3
0a1c ; --------------------------------------------------------------------------------------
0a1c ; Debug chain
0a1c ; --------------------------------------------------------------------------------------
0a1c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0a1e 05ab       |    |		.DBGLNO	0x05ab
0a1f ; --------------------------------------------------------------------------------------
0a1f ; Debug chain
0a1f ; --------------------------------------------------------------------------------------
0a1f 0003 000d  |    |		.DBGLEN	0x0003,0x000d
0a21 05bb 05c0  |    |		.DBGLNO	0x05bb,0x05c0,0x05c1,0x05c4,0x05c7,0x05ca,0x05cd,0x05d0,0x05d4,0x05d7,0x05d9,0x05dd,0x05e5,0x05e8,0x05eb,0x05ef
0a31 ; --------------------------------------------------------------------------------------
0a31 ; Debug chain
0a31 ; --------------------------------------------------------------------------------------
0a31 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0a33 05fb       |    |		.DBGLNO	0x05fb
0a34 ; --------------------------------------------------------------------------------------
0a34 ; Debug chain
0a34 ; --------------------------------------------------------------------------------------
0a34 0001 0008  |    |		.DBGLEN	0x0001,0x0008
0a36 0603 0607  |    |		.DBGLNO	0x0603,0x0607,0x060b,0x060e,0x0613,0x0617,0x061b,0x061f,0x0623
0a3f ; --------------------------------------------------------------------------------------
0a3f ; Debug chain
0a3f ; --------------------------------------------------------------------------------------
0a3f 0000 0008  |    |		.DBGLEN	0x0000,0x0008
0a41 0643 064d  | C M|		.DBGLNO	0x0643,0x064d,0x0650,0x0653,0x0656,0x0659,0x065c,0x065f
0a49 0001 0008  |    |		.XXX[0x8]
0a4b 0002 0003  |    |
0a4d 0004 0005  |    |
0a4f 0006 0007  |    |
0a51 ; --------------------------------------------------------------------------------------
0a51 ; Debug chain
0a51 ; --------------------------------------------------------------------------------------
0a51 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0a53 066b       | k  |		.DBGLNO	0x066b
0a54 ; --------------------------------------------------------------------------------------
0a54 ; Debug chain
0a54 ; --------------------------------------------------------------------------------------
0a54 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0a56 067b       | {  |		.DBGLNO	0x067b
0a57 ; --------------------------------------------------------------------------------------
0a57 ; Debug chain
0a57 ; --------------------------------------------------------------------------------------
0a57 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0a59 068b 068f  |    |		.DBGLNO	0x068b,0x068f,0x0691,0x0695
0a5d ; --------------------------------------------------------------------------------------
0a5d ; Debug chain
0a5d ; --------------------------------------------------------------------------------------
0a5d 0002 0006  |    |		.DBGLEN	0x0002,0x0006
0a5f 06ab 06ad  |    |		.DBGLNO	0x06ab,0x06ad,0x06b5,0x06bb,0x06be,0x06c0,0x06d8,0x06f9
0a67 0001 0003  |    |		.XXX[0x6]
0a69 0004 0005  |    |
0a6b 0002 0006  |    |
0a6d ; --------------------------------------------------------------------------------------
0a6d ; Debug chain
0a6d ; --------------------------------------------------------------------------------------
0a6d 0003 0008  |    |		.DBGLEN	0x0003,0x0008
0a6f 070b 070d  |    |		.DBGLNO	0x070b,0x070d,0x0713,0x0718,0x071f,0x0722,0x0724,0x073b,0x0752,0x0769,0x076b
0a7a 0001 0006  |    |		.XXX[0x8]
0a7c 0007 0008  |    |
0a7e 0002 0003  |    |
0a80 0004 0005  |    |
0a82 ; --------------------------------------------------------------------------------------
0a82 ; Debug chain
0a82 ; --------------------------------------------------------------------------------------
0a82 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0a84 078b 0791  |    |		.DBGLNO	0x078b,0x0791,0x0794,0x0796,0x0799
0a89 ; --------------------------------------------------------------------------------------
0a89 ; Debug chain
0a89 ; --------------------------------------------------------------------------------------
0a89 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0a8b 07a3 07a6  |    |		.DBGLNO	0x07a3,0x07a6,0x07b6
0a8e ; --------------------------------------------------------------------------------------
0a8e ; Debug chain
0a8e ; --------------------------------------------------------------------------------------
0a8e 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0a90 07c3 07c8  |    |		.DBGLNO	0x07c3,0x07c8,0x07ca,0x07cc
0a94 0000 0000  |    |		.BLANK	0000[0x16c]