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

⟦5d7d38f66⟧

    Length: 5120 (0x1400)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0698fd

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 09f8       |    |		.CONST	0x09f8								; 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 8005       |    |		.CONST	0x8005								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 00a0       |    |		.CONST	0x00a0								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 001a       |    |		.CONST	0x001a								; Number of locals
001b			INIT_0018:
001b e001       |    |		Load	0x0,0x1
001c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001d 02c7       |    |		Declare_Variable	Any
001e 60bd       |`   |		Indirect_Literal	Discrete,0xdc,{0x00000013, 0xc6800000}
001f e001       |    |		Load	0x0,0x1
0020 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0021 e001       |    |		Load	0x0,0x1
0022 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0023 0092 089a  |    |		Action	Push_String_Extended,0x89a					; "<MINUS_30_DAYS>"
0025 e5ff       |    |		Load	0x2,-0x1
0026 e002       |    |		Load	0x0,0x2
0027 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0028 e003       |    |		Load	0x0,0x3
0029 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
002a a402       |    |		Store_Unchecked	0x2,0x2
002b e001       |    |		Load	0x0,0x1
002c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002d 02c7       |    |		Declare_Variable	Any
002e e001       |    |		Load	0x0,0x1
002f 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0030 0092 089b  |    |		Action	Push_String_Extended,0x89b					; "<TODAY>"
0032 e5fe       |    |		Load	0x2,-0x2
0033 e002       |    |		Load	0x0,0x2
0034 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0035 e003       |    |		Load	0x0,0x3
0036 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0037 a403       |    |		Store_Unchecked	0x2,0x3
0038 00e7       |    |		Load_Encached	Duration_Cache
0039 e004       |    |		Load	0x0,0x4
003a 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
003b 02c7       |    |		Declare_Variable	Any
003c 00d8       |    |		Load_Top	At_Offset_0
003d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003e e005       |    |		Load	0x0,0x5
003f 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0040 e005       |    |		Load	0x0,0x5
0041 1b24       | $  |		Execute	Package,Field_Read,Field_Number 0x24
0042 0322       | "  |		Declare_Variable	Record
0043 4800       |H   |		Short_Literal	0x0
0044 4807       |H   |		Short_Literal	0x7
0045 029f 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Call
0047 03fd       |    |		Declare_Type	Discrete,Defined
0048 4800       |H   |		Short_Literal	0x0
0049 480b       |H   |		Short_Literal	0xb
004a 029f 010b  |    |		Declare_Subprogram	INIT_0108,For_Call
004c 03fd       |    |		Declare_Type	Discrete,Defined
004d 4809       |H   |		Short_Literal	0x9
004e 480b       |H   |		Short_Literal	0xb
004f e409       |    |		Load	0x2,0x9
0050 03f8       |    |		Declare_Type	Discrete,Constrained
0051 4800       |H   |		Short_Literal	0x0
0052 4808       |H   |		Short_Literal	0x8
0053 e409       |    |		Load	0x2,0x9
0054 03f8       |    |		Declare_Type	Discrete,Constrained
0055 4800       |H   |		Short_Literal	0x0
0056 4801       |H   |		Short_Literal	0x1
0057 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
0059 03fd       |    |		Declare_Type	Discrete,Defined
005a 00d8       |    |		Load_Top	At_Offset_0
005b 0266       | f  |		Execute	Discrete,Bounds
005c 00e7       |    |		Load_Encached	Duration_Cache
005d 02a0       |    |		Declare_Subprogram	Null_Subprogram
005e 4801       |H   |		Short_Literal	0x1
005f 035d       | ]  |		Declare_Type	Array,Defined
0060 e409       |    |		Load	0x2,0x9
0061 0266       | f  |		Execute	Discrete,Bounds
0062 e40d       |    |		Load	0x2,0xd
0063 02a0       |    |		Declare_Subprogram	Null_Subprogram
0064 4801       |H   |		Short_Literal	0x1
0065 035d       | ]  |		Declare_Type	Array,Defined
0066 00e7       |    |		Load_Encached	Duration_Cache
0067 00e7       |    |		Load_Encached	Duration_Cache
0068 029f 015b  |   [|		Declare_Subprogram	INIT_0158,For_Call
006a 4802       |H   |		Short_Literal	0x2
006b 032d       | -  |		Declare_Type	Record,Defined
006c 4801       |H   |		Short_Literal	0x1
006d 4807       |H   |		Short_Literal	0x7
006e e40f       |    |		Load	0x2,0xf
006f 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
0071 4801       |H   |		Short_Literal	0x1
0072 035d       | ]  |		Declare_Type	Array,Defined
0073 e40e       |    |		Load	0x2,0xe
0074 0337       | 7  |		Declare_Variable	Array
0075 00d8       |    |		Load_Top	At_Offset_0
0076 0335       | 5  |		Declare_Variable	Array,Duplicate
0077 00cd       |    |		Action	Spare6_Action
0078 480b       |H   |		Short_Literal	0xb
0079 4800       |H   |		Short_Literal	0x0
007a e40d       |    |		Load	0x2,0xd
007b 0337       | 7  |		Declare_Variable	Array
007c 4800       |H   |		Short_Literal	0x0
007d 4800       |H   |		Short_Literal	0x0
007e e415       |    |		Load	0x2,0x15
007f 01d6       |    |		Execute	Vector,Field_Write
0080 4800       |H   |		Short_Literal	0x0
0081 4801       |H   |		Short_Literal	0x1
0082 e415       |    |		Load	0x2,0x15
0083 01d6       |    |		Execute	Vector,Field_Write
0084 e40d       |    |		Load	0x2,0xd
0085 0119       |    |		Execute	Any,Check_In_Formal_Type
0086 e414       |    |		Load	0x2,0x14
0087 e412       |    |		Load	0x2,0x12
0088 01d6       |    |		Execute	Vector,Field_Write
0089 3ff0       |?   |		Loop_Increasing	0x7a
008a e411       |    |		Load	0x2,0x11
008b 01d4       |    |		Execute	Vector,Structure_Write
008c e410       |    |		Load	0x2,0x10
008d 0337       | 7  |		Declare_Variable	Array
008e 00d8       |    |		Load_Top	At_Offset_0
008f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0090 029f 018b  |    |		Declare_Subprogram	INIT_0188,For_Call
0092 029f 0283  |    |		Declare_Subprogram	INIT_0280,For_Call
0094 029f 0373  |   s|		Declare_Subprogram	INIT_0370,For_Call
0096 029f 038b  |    |		Declare_Subprogram	INIT_0388,For_Call
0098 029f 039b  |    |		Declare_Subprogram	INIT_0398,For_Call
009a 029f 03bb  |    |		Declare_Subprogram	INIT_03b8,For_Call
009c 029f 03eb  |    |		Declare_Subprogram	INIT_03e8,For_Call
009e 029f 062b  |   +|		Declare_Subprogram	INIT_0628,For_Call
00a0			BODY_0018:
00a0 8413       |    |		Call	0x2,0x13
00a1 e412       |    |		Load	0x2,0x12
00a2 01d4       |    |		Execute	Vector,Structure_Write
00a3 e402       |    |		Load	0x2,0x2
00a4 e403       |    |		Load	0x2,0x3
00a5 e001       |    |		Load	0x0,0x1
00a6 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00a7 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00a8 682a       |h*  |		Jump_Zero	0xd3
00a9 e405       |    |		Load	0x2,0x5
00aa 00e7       |    |		Load_Encached	Duration_Cache
00ab e5fc       |    |		Load	0x2,-0x4
00ac 4802       |H   |		Short_Literal	0x2
00ad 4801       |H   |		Short_Literal	0x1
00ae 4802       |H   |		Short_Literal	0x2
00af e403       |    |		Load	0x2,0x3
00b0 e003       |    |		Load	0x0,0x3
00b1 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00b2 4802       |H   |		Short_Literal	0x2
00b3 4801       |H   |		Short_Literal	0x1
00b4 4802       |H   |		Short_Literal	0x2
00b5 e402       |    |		Load	0x2,0x2
00b6 e003       |    |		Load	0x0,0x3
00b7 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00b8 e005       |    |		Load	0x0,0x5
00b9 1830       | 0  |		Execute	Package,Field_Execute,Field_Number 0x30
00ba c404       |    |		Store	0x2,0x4
00bb c405       |    |		Store	0x2,0x5
00bc e005       |    |		Load	0x0,0x5
00bd 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00be e005       |    |		Load	0x0,0x5
00bf 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00c0 c406       |    |		Store	0x2,0x6
00c1 00cf       |    |		Action	Mark_Auxiliary
00c2 7809       |x   |		Jump	0xcc
00c3 e406       |    |		Load	0x2,0x6
00c4 e005       |    |		Load	0x0,0x5
00c5 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
00c6 8417       |    |		Call	0x2,0x17
00c7 e406       |    |		Load	0x2,0x6
00c8 e005       |    |		Load	0x0,0x5
00c9 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00ca c406       |    |		Store	0x2,0x6
00cb 00c9       |    |		Action	Pop_Auxiliary_Loop
00cc e406       |    |		Load	0x2,0x6
00cd e005       |    |		Load	0x0,0x5
00ce 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
00cf 6ff3       |o   |		Jump_Zero	0xc3
00d0 00ce       |    |		Action	Pop_Auxiliary
00d1 8419       |    |		Call	0x2,0x19
00d2 7804       |x   |		Jump	0xd7
00d3 0092 089c  |    |		Action	Push_String_Extended,0x89c					; "Cannot calculate Availability, Starting Date = Ending Date"
00d5 e006       |    |		Load	0x0,0x6
00d6 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00d7 e5fd       |    |		Load	0x2,-0x3
00d8 6802       |h   |		Jump_Zero	0xdb
00d9 e412       |    |		Load	0x2,0x12
00da 841a       |    |		Call	0x2,0x1a
00db 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00dc 0000 0013  |    |		.LITERAL	{0x00000013, 0xc6800000}
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 4607       |F   |		Jump_Case	0x8
00e4 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00e5 7806       |x   |		Jump	0xec								; case 0x1
00e6 7809       |x   |		Jump	0xf0								; case 0x2
00e7 780d       |x   |		Jump	0xf5								; case 0x3
00e8 7810       |x   |		Jump	0xf9								; case 0x4
00e9 7811       |x   |		Jump	0xfb								; case 0x5
00ea 7812       |x   |		Jump	0xfd								; case 0x6
00eb 7815       |x   |		Jump	0x101								; case 0x7
00ec 00da       |    |		Load_Top	At_Offset_2
00ed 0091 087c  |   ||		Action	Push_String_Extended_Indexed,0x87c				; "NONE"
00ef 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f0 00db       |    |		Load_Top	At_Offset_3
00f1 00db       |    |		Load_Top	At_Offset_3
00f2 00e0       |    |		Load_Encached	Standard_Cache
00f3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00f4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f5 00da       |    |		Load_Top	At_Offset_2
00f6 00e0       |    |		Load_Encached	Standard_Cache
00f7 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f9 00db       |    |		Load_Top	At_Offset_3
00fa 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fb 00db       |    |		Load_Top	At_Offset_3
00fc 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fd e408       |    |		Load	0x2,0x8
00fe 00dc       |    |		Load_Top	At_Offset_4
00ff 0267       | g  |		Execute	Discrete,Predecessor
0100 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0101 e408       |    |		Load	0x2,0x8
0102 00dc       |    |		Load_Top	At_Offset_4
0103 0268       | h  |		Execute	Discrete,Successor
0104 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0105 0000 0000  |    |		.XXX[0x3]
0107 0000       |    |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b       |    |		.CONST	0x010b								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0001       |    |		.CONST	0x0001								; Number of locals
010b			BODY_0108:
010b			INIT_0108:
010b 4607       |F   |		Jump_Case	0x8
010c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
010d 7806       |x   |		Jump	0x114								; case 0x1
010e 7809       |x   |		Jump	0x118								; case 0x2
010f 780d       |x   |		Jump	0x11d								; case 0x3
0110 7810       |x   |		Jump	0x121								; case 0x4
0111 7811       |x   |		Jump	0x123								; case 0x5
0112 7812       |x   |		Jump	0x125								; case 0x6
0113 7815       |x   |		Jump	0x129								; case 0x7
0114 00da       |    |		Load_Top	At_Offset_2
0115 0091 0884  |    |		Action	Push_String_Extended_Indexed,0x884				; "PMH"
0117 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0118 00db       |    |		Load_Top	At_Offset_3
0119 00db       |    |		Load_Top	At_Offset_3
011a 00e0       |    |		Load_Encached	Standard_Cache
011b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
011c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011d 00da       |    |		Load_Top	At_Offset_2
011e 00e0       |    |		Load_Encached	Standard_Cache
011f 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0120 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0121 00db       |    |		Load_Top	At_Offset_3
0122 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0123 00db       |    |		Load_Top	At_Offset_3
0124 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0125 e409       |    |		Load	0x2,0x9
0126 00dc       |    |		Load_Top	At_Offset_4
0127 0267       | g  |		Execute	Discrete,Predecessor
0128 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0129 e409       |    |		Load	0x2,0x9
012a 00dc       |    |		Load_Top	At_Offset_4
012b 0268       | h  |		Execute	Discrete,Successor
012c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
012d 0000 0000  |    |		.XXX[0x3]
012f 0000       |    |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 4607       |F   |		Jump_Case	0x8
0134 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0135 7806       |x   |		Jump	0x13c								; case 0x1
0136 7809       |x   |		Jump	0x140								; case 0x2
0137 780d       |x   |		Jump	0x145								; case 0x3
0138 7810       |x   |		Jump	0x149								; case 0x4
0139 7811       |x   |		Jump	0x14b								; case 0x5
013a 7812       |x   |		Jump	0x14d								; case 0x6
013b 7815       |x   |		Jump	0x151								; case 0x7
013c 00da       |    |		Load_Top	At_Offset_2
013d 0091 0890  |    |		Action	Push_String_Extended_Indexed,0x890				; "CONTRACT"
013f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0140 00db       |    |		Load_Top	At_Offset_3
0141 00db       |    |		Load_Top	At_Offset_3
0142 00e0       |    |		Load_Encached	Standard_Cache
0143 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0144 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0145 00da       |    |		Load_Top	At_Offset_2
0146 00e0       |    |		Load_Encached	Standard_Cache
0147 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0148 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0149 00db       |    |		Load_Top	At_Offset_3
014a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014b 00db       |    |		Load_Top	At_Offset_3
014c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014d e40c       |    |		Load	0x2,0xc
014e 00dc       |    |		Load_Top	At_Offset_4
014f 0267       | g  |		Execute	Discrete,Predecessor
0150 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0151 e40c       |    |		Load	0x2,0xc
0152 00dc       |    |		Load_Top	At_Offset_4
0153 0268       | h  |		Execute	Discrete,Successor
0154 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0155 0000 0000  |    |		.XXX[0x3]
0157 0000       |    |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0004       |    |		.CONST	0x0004								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 4608       |F   |		Jump_Case	0x9
015c 7808       |x   |		Jump	0x165								; case 0x0
015d 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
015e 780d       |x   |		Jump	0x16c								; case 0x2
015f 780c       |x   |		Jump	0x16c								; case 0x3
0160 780b       |x   |		Jump	0x16c								; case 0x4
0161 780a       |x   |		Jump	0x16c								; case 0x5
0162 7809       |x   |		Jump	0x16c								; case 0x6
0163 7808       |x   |		Jump	0x16c								; case 0x7
0164 7807       |x   |		Jump	0x16c								; case 0x8
0165 4800       |H   |		Short_Literal	0x0
0166 e7ff       |    |		Load	0x3,-0x1
0167 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0168 4800       |H   |		Short_Literal	0x0
0169 e7ff       |    |		Load	0x3,-0x1
016a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
016b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
016c 0869       | i  |		Execute_Immediate	Raise,0x69
016d 0000 0000  |    |		.XXX[0x3]
016f 0000       |    |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 00d1       |    |		Pop_Control	Pop_Count_1
0174 e7ff       |    |		Load	0x3,-0x1
0175 01d8       |    |		Execute	Vector,Element_Type
0176 0322       | "  |		Declare_Variable	Record
0177 00d8       |    |		Load_Top	At_Offset_0
0178 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0179 e7ff       |    |		Load	0x3,-0x1
017a 01dc       |    |		Execute	Vector,Last
017b e7ff       |    |		Load	0x3,-0x1
017c 01dd       |    |		Execute	Vector,First
017d 0263       | c  |		Execute	Discrete,Above_Bound
017e 7006       |p   |		Jump_Nonzero	0x185
017f e602       |    |		Load	0x3,0x2
0180 e604       |    |		Load	0x3,0x4
0181 e7ff       |    |		Load	0x3,-0x1
0182 01d6       |    |		Execute	Vector,Field_Write
0183 0a01       |    |		Execute_Immediate	Plus,0x1
0184 7ff8       |    |		Jump	0x17d
0185 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0186 0000 0000  |    |		.XXX[0x2]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 01d9       |    |		.CONST	0x01d9								; Address of begin
0189 0258       | X  |		.CONST	0x0258								; Address of exception handler
018a 000b       |    |		.CONST	0x000b								; Number of locals
018b			INIT_0188:
018b e410       |    |		Load	0x2,0x10
018c 0337       | 7  |		Declare_Variable	Array
018d 00d8       |    |		Load_Top	At_Offset_0
018e 0335       | 5  |		Declare_Variable	Array,Duplicate
018f 00cd       |    |		Action	Spare6_Action
0190 4805       |H   |		Short_Literal	0x5
0191 4801       |H   |		Short_Literal	0x1
0192 e40f       |    |		Load	0x2,0xf
0193 0322       | "  |		Declare_Variable	Record
0194 60e7       |`   |		Indirect_Literal	Discrete,0x27c,{0x00000000, 0x38400000}
0195 e606       |    |		Load	0x3,0x6
0196 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0197 60e0       |`   |		Indirect_Literal	Discrete,0x278,{0x00000000, 0x7e900000}
0198 e606       |    |		Load	0x3,0x6
0199 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
019a e605       |    |		Load	0x3,0x5
019b e603       |    |		Load	0x3,0x3
019c 01d6       |    |		Execute	Vector,Field_Write
019d 3ff4       |?   |		Loop_Increasing	0x192
019e 4807       |H   |		Short_Literal	0x7
019f 4806       |H   |		Short_Literal	0x6
01a0 e40f       |    |		Load	0x2,0xf
01a1 0322       | "  |		Declare_Variable	Record
01a2 4800       |H   |		Short_Literal	0x0
01a3 e606       |    |		Load	0x3,0x6
01a4 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
01a5 4800       |H   |		Short_Literal	0x0
01a6 e606       |    |		Load	0x3,0x6
01a7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
01a8 e605       |    |		Load	0x3,0x5
01a9 e603       |    |		Load	0x3,0x3
01aa 01d6       |    |		Execute	Vector,Field_Write
01ab 3ff4       |?   |		Loop_Increasing	0x1a0
01ac e602       |    |		Load	0x3,0x2
01ad 01d4       |    |		Execute	Vector,Structure_Write
01ae e410       |    |		Load	0x2,0x10
01af 0337       | 7  |		Declare_Variable	Array
01b0 e602       |    |		Load	0x3,0x2
01b1 e603       |    |		Load	0x3,0x3
01b2 01d4       |    |		Execute	Vector,Structure_Write
01b3 0092 089d  |    |		Action	Push_String_Extended,0x89d					; "!Machine.Contract_Hours"
01b5 e006       |    |		Load	0x0,0x6
01b6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01b7 02c7       |    |		Declare_Variable	Any
01b8 00d8       |    |		Load_Top	At_Offset_0
01b9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01ba 4800       |H   |		Short_Literal	0x0
01bb 4807       |H   |		Short_Literal	0x7
01bc 029f 0683  |    |		Declare_Subprogram	INIT_0680,For_Call
01be 03fd       |    |		Declare_Type	Discrete,Defined
01bf e007       |    |		Load	0x0,0x7
01c0 e008       |    |		Load	0x0,0x8
01c1 e606       |    |		Load	0x3,0x6
01c2 4800       |H   |		Short_Literal	0x0
01c3 4801       |H   |		Short_Literal	0x1
01c4 4807       |H   |		Short_Literal	0x7
01c5 0092 089e  |    |		Action	Push_String_Extended,0x89e					; "others => Unspecified"
01c7 00ea       |    |		Load_Encached	Null_String_Cache
01c8 00ea       |    |		Load_Encached	Null_String_Cache
01c9 4801       |H   |		Short_Literal	0x1
01ca 4807       |H   |		Short_Literal	0x7
01cb e009       |    |		Load	0x0,0x9
01cc 0387       |    |		Declare_Variable	Package
01cd 00d8       |    |		Load_Top	At_Offset_0
01ce 020f       |    |		Execute	Module,Activate
01cf 00d8       |    |		Load_Top	At_Offset_0
01d0 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
01d1 e607       |    |		Load	0x3,0x7
01d2 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
01d3 e40f       |    |		Load	0x2,0xf
01d4 0322       | "  |		Declare_Variable	Record
01d5 00d8       |    |		Load_Top	At_Offset_0
01d6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01d7 e00a       |    |		Load	0x0,0xa
01d8 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
01d9			BODY_0188:
01d9 e605       |    |		Load	0x3,0x5
01da 00ea       |    |		Load_Encached	Null_String_Cache
01db e604       |    |		Load	0x3,0x4
01dc 4800       |H   |		Short_Literal	0x0
01dd e006       |    |		Load	0x0,0x6
01de 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01df c605       |    |		Store	0x3,0x5
01e0 00cf       |    |		Action	Mark_Auxiliary
01e1 786b       |xk  |		Jump	0x24d
01e2 e605       |    |		Load	0x3,0x5
01e3 e006       |    |		Load	0x0,0x6
01e4 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01e5 e607       |    |		Load	0x3,0x7
01e6 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01e7 a608       |    |		Store_Unchecked	0x3,0x8
01e8 e608       |    |		Load	0x3,0x8
01e9 e607       |    |		Load	0x3,0x7
01ea 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01eb 7002       |p   |		Jump_Nonzero	0x1ee
01ec e00b       |    |		Load	0x0,0xb
01ed 0257       | W  |		Execute	Discrete,Raise
01ee 00cf       |    |		Action	Mark_Auxiliary
01ef 7857       |xW  |		Jump	0x247
01f0 e608       |    |		Load	0x3,0x8
01f1 e607       |    |		Load	0x3,0x7
01f2 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01f3 00d8       |    |		Load_Top	At_Offset_0
01f4 e00a       |    |		Load	0x0,0xa
01f5 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
01f6 0260       | `  |		Execute	Discrete,In_Type
01f7 7001       |p   |		Jump_Nonzero	0x1f9
01f8 0801       |    |		Execute_Immediate	Raise,0x1
01f9 a60b       |    |		Store_Unchecked	0x3,0xb
01fa 00ea       |    |		Load_Encached	Null_String_Cache
01fb 4800       |H   |		Short_Literal	0x0
01fc e608       |    |		Load	0x3,0x8
01fd e607       |    |		Load	0x3,0x7
01fe 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01ff e607       |    |		Load	0x3,0x7
0200 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
0201 a609       |    |		Store_Unchecked	0x3,0x9
0202 e609       |    |		Load	0x3,0x9
0203 e607       |    |		Load	0x3,0x7
0204 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0205 6802       |h   |		Jump_Zero	0x208
0206 e00b       |    |		Load	0x0,0xb
0207 0257       | W  |		Execute	Discrete,Raise
0208 4800       |H   |		Short_Literal	0x0
0209 e609       |    |		Load	0x3,0x9
020a e607       |    |		Load	0x3,0x7
020b 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
020c e00a       |    |		Load	0x0,0xa
020d 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
020e e00a       |    |		Load	0x0,0xa
020f 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0210 e001       |    |		Load	0x0,0x1
0211 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0212 e60a       |    |		Load	0x3,0xa
0213 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0214 e609       |    |		Load	0x3,0x9
0215 e607       |    |		Load	0x3,0x7
0216 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0217 c609       |    |		Store	0x3,0x9
0218 e609       |    |		Load	0x3,0x9
0219 e607       |    |		Load	0x3,0x7
021a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
021b 6802       |h   |		Jump_Zero	0x21e
021c e00b       |    |		Load	0x0,0xb
021d 0257       | W  |		Execute	Discrete,Raise
021e 4800       |H   |		Short_Literal	0x0
021f e609       |    |		Load	0x3,0x9
0220 e607       |    |		Load	0x3,0x7
0221 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0222 0092 089f  |    |		Action	Push_String_Extended,0x89f					; "24:00"
0224 01df       |    |		Execute	Vector,Equal
0225 6804       |h   |		Jump_Zero	0x22a
0226 604d       |`M  |		Indirect_Literal	Discrete,0x274,{0x00000000, 0xa8c00000}
0227 e60a       |    |		Load	0x3,0xa
0228 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0229 780c       |x   |		Jump	0x236
022a 4800       |H   |		Short_Literal	0x0
022b e609       |    |		Load	0x3,0x9
022c e607       |    |		Load	0x3,0x7
022d 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
022e e00a       |    |		Load	0x0,0xa
022f 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0230 e00a       |    |		Load	0x0,0xa
0231 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0232 e001       |    |		Load	0x0,0x1
0233 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0234 e60a       |    |		Load	0x3,0xa
0235 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0236 e60a       |    |		Load	0x3,0xa
0237 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0238 e60a       |    |		Load	0x3,0xa
0239 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
023a 027d       | }  |		Execute	Discrete,Greater
023b 6802       |h   |		Jump_Zero	0x23e
023c e00b       |    |		Load	0x0,0xb
023d 0257       | W  |		Execute	Discrete,Raise
023e e60a       |    |		Load	0x3,0xa
023f e60b       |    |		Load	0x3,0xb
0240 e603       |    |		Load	0x3,0x3
0241 01d6       |    |		Execute	Vector,Field_Write
0242 e608       |    |		Load	0x3,0x8
0243 e607       |    |		Load	0x3,0x7
0244 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0245 c608       |    |		Store	0x3,0x8
0246 00c9       |    |		Action	Pop_Auxiliary_Loop
0247 e608       |    |		Load	0x3,0x8
0248 e607       |    |		Load	0x3,0x7
0249 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
024a 6fa5       |o   |		Jump_Zero	0x1f0
024b 00ce       |    |		Action	Pop_Auxiliary
024c 00c9       |    |		Action	Pop_Auxiliary_Loop
024d e605       |    |		Load	0x3,0x5
024e e006       |    |		Load	0x0,0x6
024f 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0250 6f91       |o   |		Jump_Zero	0x1e2
0251 00ce       |    |		Action	Pop_Auxiliary
0252 e605       |    |		Load	0x3,0x5
0253 e006       |    |		Load	0x0,0x6
0254 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0255 c605       |    |		Store	0x3,0x5
0256 e603       |    |		Load	0x3,0x3
0257 00ca       |    |		Action	Exit_Nullary_Function
0258			TRAP_0188:
0258 00d8       |    |		Load_Top	At_Offset_0
0259 0107       |    |		Execute	Exception,Get_Name
025a 4920       |I   |		Short_Literal	0x120
025b 492f       |I/  |		Short_Literal	0x12f
025c 0262       | b  |		Execute	Discrete,In_Range
025d 6802       |h   |		Jump_Zero	0x260
025e e602       |    |		Load	0x3,0x2
025f 00ca       |    |		Action	Exit_Nullary_Function
0260 e605       |    |		Load	0x3,0x5
0261 e006       |    |		Load	0x0,0x6
0262 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0263 6804       |h   |		Jump_Zero	0x268
0264 e605       |    |		Load	0x3,0x5
0265 e006       |    |		Load	0x0,0x6
0266 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0267 c605       |    |		Store	0x3,0x5
0268 0092 08a0  |    |		Action	Push_String_Extended,0x8a0					; "*** Error Parsing !Machine.Contract_Hours"
026a e006       |    |		Load	0x0,0x6
026b 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
026c 0092 08a1  |    |		Action	Push_String_Extended,0x8a1					; "    Using default contract hours."
026e e006       |    |		Load	0x0,0x6
026f 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0270 e602       |    |		Load	0x3,0x2
0271 00ca       |    |		Action	Exit_Nullary_Function
0272 0000 0000  |    |		.XXX[0x2]
0274 0000 0000  |    |		.LITERAL	{0x00000000, 0xa8c00000}
0278 0000 0000  |    |		.LITERAL	{0x00000000, 0x7e900000}
027c 0000 0000  |    |		.LITERAL	{0x00000000, 0x38400000}
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 02aa       |    |		.CONST	0x02aa								; Address of begin
0281 0004       |    |		.CONST	0x0004								; Address of exception handler
0282 0007       |    |		.CONST	0x0007								; Number of locals
0283			INIT_0280:
0283 e7ff       |    |		Load	0x3,-0x1
0284 e00a       |    |		Load	0x0,0xa
0285 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0286 e00a       |    |		Load	0x0,0xa
0287 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0288 03f1       |    |		Declare_Variable	Discrete,With_Value
0289 e001       |    |		Load	0x0,0x1
028a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
028b 02c7       |    |		Declare_Variable	Any
028c e7ff       |    |		Load	0x3,-0x1
028d a603       |    |		Store_Unchecked	0x3,0x3
028e e7fe       |    |		Load	0x3,-0x2
028f 00e7       |    |		Load_Encached	Duration_Cache
0290 03f1       |    |		Declare_Variable	Discrete,With_Value
0291 e7ff       |    |		Load	0x3,-0x1
0292 e001       |    |		Load	0x0,0x1
0293 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0294 00e7       |    |		Load_Encached	Duration_Cache
0295 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0296 00d8       |    |		Load_Top	At_Offset_0
0297 e604       |    |		Load	0x3,0x4
0298 0273       | s  |		Execute	Discrete,Plus
0299 00e7       |    |		Load_Encached	Duration_Cache
029a 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
029b e40d       |    |		Load	0x2,0xd
029c 0337       | 7  |		Declare_Variable	Array
029d 00d8       |    |		Load_Top	At_Offset_0
029e 0335       | 5  |		Declare_Variable	Array,Duplicate
029f 00cd       |    |		Action	Spare6_Action
02a0 4800       |H   |		Short_Literal	0x0
02a1 4800       |H   |		Short_Literal	0x0
02a2 e608       |    |		Load	0x3,0x8
02a3 01d6       |    |		Execute	Vector,Field_Write
02a4 4800       |H   |		Short_Literal	0x0
02a5 4801       |H   |		Short_Literal	0x1
02a6 e608       |    |		Load	0x3,0x8
02a7 01d6       |    |		Execute	Vector,Field_Write
02a8 e607       |    |		Load	0x3,0x7
02a9 01d4       |    |		Execute	Vector,Structure_Write
02aa			BODY_0280:
02aa 00cf       |    |		Action	Mark_Auxiliary
02ab e604       |    |		Load	0x3,0x4
02ac 0d01       |    |		Execute_Immediate	Less,0x1
02ad 70bd       |p   |		Jump_Nonzero	0x36b
02ae e605       |    |		Load	0x3,0x5
02af e602       |    |		Load	0x3,0x2
02b0 e7fd       |    |		Load	0x3,-0x3
02b1 01d5       |    |		Execute	Vector,Field_Reference
02b2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02b3 027a       | z  |		Execute	Discrete,Less_Equal
02b4 e606       |    |		Load	0x3,0x6
02b5 e602       |    |		Load	0x3,0x2
02b6 e7fd       |    |		Load	0x3,-0x3
02b7 01d5       |    |		Execute	Vector,Field_Reference
02b8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b9 027b       | {  |		Execute	Discrete,Greater_Equal
02ba 0279       | y  |		Execute	Discrete,And
02bb 6875       |hu  |		Jump_Zero	0x331
02bc e605       |    |		Load	0x3,0x5
02bd e602       |    |		Load	0x3,0x2
02be e7fd       |    |		Load	0x3,-0x3
02bf 01d5       |    |		Execute	Vector,Field_Reference
02c0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c1 027c       | |  |		Execute	Discrete,Less
02c2 681b       |h   |		Jump_Zero	0x2de
02c3 4801       |H   |		Short_Literal	0x1
02c4 e607       |    |		Load	0x3,0x7
02c5 01d7       |    |		Execute	Vector,Field_Read
02c6 e602       |    |		Load	0x3,0x2
02c7 e7fd       |    |		Load	0x3,-0x3
02c8 01d5       |    |		Execute	Vector,Field_Reference
02c9 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02ca e605       |    |		Load	0x3,0x5
02cb 0272       | r  |		Execute	Discrete,Minus
02cc 0273       | s  |		Execute	Discrete,Plus
02cd 4801       |H   |		Short_Literal	0x1
02ce e607       |    |		Load	0x3,0x7
02cf 01d6       |    |		Execute	Vector,Field_Write
02d0 e604       |    |		Load	0x3,0x4
02d1 e602       |    |		Load	0x3,0x2
02d2 e7fd       |    |		Load	0x3,-0x3
02d3 01d5       |    |		Execute	Vector,Field_Reference
02d4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02d5 e605       |    |		Load	0x3,0x5
02d6 0272       | r  |		Execute	Discrete,Minus
02d7 0272       | r  |		Execute	Discrete,Minus
02d8 c604       |    |		Store	0x3,0x4
02d9 e602       |    |		Load	0x3,0x2
02da e7fd       |    |		Load	0x3,-0x3
02db 01d5       |    |		Execute	Vector,Field_Reference
02dc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02dd a605       |    |		Store_Unchecked	0x3,0x5
02de e606       |    |		Load	0x3,0x6
02df e602       |    |		Load	0x3,0x2
02e0 e7fd       |    |		Load	0x3,-0x3
02e1 01d5       |    |		Execute	Vector,Field_Reference
02e2 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e3 027d       | }  |		Execute	Discrete,Greater
02e4 6843       |hC  |		Jump_Zero	0x328
02e5 4800       |H   |		Short_Literal	0x0
02e6 e607       |    |		Load	0x3,0x7
02e7 01d7       |    |		Execute	Vector,Field_Read
02e8 e602       |    |		Load	0x3,0x2
02e9 e7fd       |    |		Load	0x3,-0x3
02ea 01d5       |    |		Execute	Vector,Field_Reference
02eb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ec e605       |    |		Load	0x3,0x5
02ed 0272       | r  |		Execute	Discrete,Minus
02ee 0273       | s  |		Execute	Discrete,Plus
02ef 4800       |H   |		Short_Literal	0x0
02f0 e607       |    |		Load	0x3,0x7
02f1 01d6       |    |		Execute	Vector,Field_Write
02f2 e606       |    |		Load	0x3,0x6
02f3 6780       |g   |		Indirect_Literal	Discrete,0x274,{0x00000000, 0xa8c00000}
02f4 027d       | }  |		Execute	Discrete,Greater
02f5 6824       |h$  |		Jump_Zero	0x31a
02f6 4801       |H   |		Short_Literal	0x1
02f7 e607       |    |		Load	0x3,0x7
02f8 01d7       |    |		Execute	Vector,Field_Read
02f9 677a       |gz  |		Indirect_Literal	Discrete,0x274,{0x00000000, 0xa8c00000}
02fa e602       |    |		Load	0x3,0x2
02fb e7fd       |    |		Load	0x3,-0x3
02fc 01d5       |    |		Execute	Vector,Field_Reference
02fd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02fe 0272       | r  |		Execute	Discrete,Minus
02ff 0273       | s  |		Execute	Discrete,Plus
0300 4801       |H   |		Short_Literal	0x1
0301 e607       |    |		Load	0x3,0x7
0302 01d6       |    |		Execute	Vector,Field_Write
0303 6770       |gp  |		Indirect_Literal	Discrete,0x274,{0x00000000, 0xa8c00000}
0304 e605       |    |		Load	0x3,0x5
0305 0272       | r  |		Execute	Discrete,Minus
0306 00d8       |    |		Load_Top	At_Offset_0
0307 00e7       |    |		Load_Encached	Duration_Cache
0308 0260       | `  |		Execute	Discrete,In_Type
0309 7001       |p   |		Jump_Nonzero	0x30b
030a 0801       |    |		Execute_Immediate	Raise,0x1
030b e603       |    |		Load	0x3,0x3
030c e001       |    |		Load	0x0,0x1
030d 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
030e c603       |    |		Store	0x3,0x3
030f e604       |    |		Load	0x3,0x4
0310 6763       |gc  |		Indirect_Literal	Discrete,0x274,{0x00000000, 0xa8c00000}
0311 e605       |    |		Load	0x3,0x5
0312 0272       | r  |		Execute	Discrete,Minus
0313 0272       | r  |		Execute	Discrete,Minus
0314 c604       |    |		Store	0x3,0x4
0315 4800       |H   |		Short_Literal	0x0
0316 a605       |    |		Store_Unchecked	0x3,0x5
0317 e604       |    |		Load	0x3,0x4
0318 a606       |    |		Store_Unchecked	0x3,0x6
0319 784b       |xK  |		Jump	0x365
031a 4801       |H   |		Short_Literal	0x1
031b e607       |    |		Load	0x3,0x7
031c 01d7       |    |		Execute	Vector,Field_Read
031d e606       |    |		Load	0x3,0x6
031e 0273       | s  |		Execute	Discrete,Plus
031f e602       |    |		Load	0x3,0x2
0320 e7fd       |    |		Load	0x3,-0x3
0321 01d5       |    |		Execute	Vector,Field_Reference
0322 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0323 0272       | r  |		Execute	Discrete,Minus
0324 4801       |H   |		Short_Literal	0x1
0325 e607       |    |		Load	0x3,0x7
0326 01d6       |    |		Execute	Vector,Field_Write
0327 7843       |xC  |		Jump	0x36b
0328 4800       |H   |		Short_Literal	0x0
0329 e607       |    |		Load	0x3,0x7
032a 01d7       |    |		Execute	Vector,Field_Read
032b e604       |    |		Load	0x3,0x4
032c 0273       | s  |		Execute	Discrete,Plus
032d 4800       |H   |		Short_Literal	0x0
032e e607       |    |		Load	0x3,0x7
032f 01d6       |    |		Execute	Vector,Field_Write
0330 783a       |x:  |		Jump	0x36b
0331 e605       |    |		Load	0x3,0x5
0332 e602       |    |		Load	0x3,0x2
0333 e7fd       |    |		Load	0x3,-0x3
0334 01d5       |    |		Execute	Vector,Field_Reference
0335 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0336 027a       | z  |		Execute	Discrete,Less_Equal
0337 e606       |    |		Load	0x3,0x6
0338 673b       |g;  |		Indirect_Literal	Discrete,0x274,{0x00000000, 0xa8c00000}
0339 027a       | z  |		Execute	Discrete,Less_Equal
033a 0278       | x  |		Execute	Discrete,Or
033b 6809       |h   |		Jump_Zero	0x345
033c 4801       |H   |		Short_Literal	0x1
033d e607       |    |		Load	0x3,0x7
033e 01d7       |    |		Execute	Vector,Field_Read
033f e604       |    |		Load	0x3,0x4
0340 0273       | s  |		Execute	Discrete,Plus
0341 4801       |H   |		Short_Literal	0x1
0342 e607       |    |		Load	0x3,0x7
0343 01d6       |    |		Execute	Vector,Field_Write
0344 7826       |x&  |		Jump	0x36b
0345 4801       |H   |		Short_Literal	0x1
0346 e607       |    |		Load	0x3,0x7
0347 01d7       |    |		Execute	Vector,Field_Read
0348 672b       |g+  |		Indirect_Literal	Discrete,0x274,{0x00000000, 0xa8c00000}
0349 e605       |    |		Load	0x3,0x5
034a 0272       | r  |		Execute	Discrete,Minus
034b 0273       | s  |		Execute	Discrete,Plus
034c 4801       |H   |		Short_Literal	0x1
034d e607       |    |		Load	0x3,0x7
034e 01d6       |    |		Execute	Vector,Field_Write
034f 6724       |g$  |		Indirect_Literal	Discrete,0x274,{0x00000000, 0xa8c00000}
0350 e605       |    |		Load	0x3,0x5
0351 0272       | r  |		Execute	Discrete,Minus
0352 00d8       |    |		Load_Top	At_Offset_0
0353 00e7       |    |		Load_Encached	Duration_Cache
0354 0260       | `  |		Execute	Discrete,In_Type
0355 7001       |p   |		Jump_Nonzero	0x357
0356 0801       |    |		Execute_Immediate	Raise,0x1
0357 e603       |    |		Load	0x3,0x3
0358 e001       |    |		Load	0x0,0x1
0359 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
035a c603       |    |		Store	0x3,0x3
035b e604       |    |		Load	0x3,0x4
035c 6717       |g   |		Indirect_Literal	Discrete,0x274,{0x00000000, 0xa8c00000}
035d e605       |    |		Load	0x3,0x5
035e 0272       | r  |		Execute	Discrete,Minus
035f 0272       | r  |		Execute	Discrete,Minus
0360 c604       |    |		Store	0x3,0x4
0361 4800       |H   |		Short_Literal	0x0
0362 a605       |    |		Store_Unchecked	0x3,0x5
0363 e604       |    |		Load	0x3,0x4
0364 a606       |    |		Store_Unchecked	0x3,0x6
0365 e603       |    |		Load	0x3,0x3
0366 e00a       |    |		Load	0x0,0xa
0367 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0368 a602       |    |		Store_Unchecked	0x3,0x2
0369 00c9       |    |		Action	Pop_Auxiliary_Loop
036a 7f40       | @  |		Jump	0x2ab
036b 00ce       |    |		Action	Pop_Auxiliary
036c 00d8       |    |		Load_Top	At_Offset_0
036d 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
036e 0000 0000  |    |		.XXX[0x2]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0375       | u  |		.CONST	0x0375								; Address of begin
0371 0004       |    |		.CONST	0x0004								; Address of exception handler
0372 0002       |    |		.CONST	0x0002								; Number of locals
0373			INIT_0370:
0373 e40d       |    |		Load	0x2,0xd
0374 0337       | 7  |		Declare_Variable	Array
0375			BODY_0370:
0375 00cf       |    |		Action	Mark_Auxiliary
0376 e40c       |    |		Load	0x2,0xc
0377 0265       | e  |		Execute	Discrete,Reverse_Bounds
0378 0007       |    |		Action	Break_Optional
0379 00d8       |    |		Load_Top	At_Offset_0
037a e7ff       |    |		Load	0x3,-0x1
037b 01d7       |    |		Execute	Vector,Field_Read
037c e605       |    |		Load	0x3,0x5
037d e7fe       |    |		Load	0x3,-0x2
037e 01d7       |    |		Execute	Vector,Field_Read
037f 0273       | s  |		Execute	Discrete,Plus
0380 e605       |    |		Load	0x3,0x5
0381 e602       |    |		Load	0x3,0x2
0382 01d6       |    |		Execute	Vector,Field_Write
0383 00c8       |    |		Action	Pop_Auxiliary_Range
0384 3ff4       |?   |		Loop_Increasing	0x379
0385 00ce       |    |		Action	Pop_Auxiliary
0386 00d8       |    |		Load_Top	At_Offset_0
0387 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b       |    |		.CONST	0x038b								; Address of begin
0389 038f       |    |		.CONST	0x038f								; Address of exception handler
038a 0001       |    |		.CONST	0x0001								; Number of locals
038b			BODY_0388:
038b			INIT_0388:
038b e7ff       |    |		Load	0x3,-0x1
038c e409       |    |		Load	0x2,0x9
038d 1c02       |    |		Execute_Immediate	Run_Utility,0x2
038e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
038f			TRAP_0388:
038f 0007       |    |		Action	Break_Optional
0390 480b       |H   |		Short_Literal	0xb
0391 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0392 0000 0000  |    |		.BLANK	0000[0x6]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 03a1       |    |		.CONST	0x03a1								; Address of begin
0399 0004       |    |		.CONST	0x0004								; Address of exception handler
039a 0002       |    |		.CONST	0x0002								; Number of locals
039b			INIT_0398:
039b e7ff       |    |		Load	0x3,-0x1
039c 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
039d 0227       | '  |		Execute	Access,All_Reference
039e 8416       |    |		Call	0x2,0x16
039f e409       |    |		Load	0x2,0x9
03a0 03f1       |    |		Declare_Variable	Discrete,With_Value
03a1			BODY_0398:
03a1 e412       |    |		Load	0x2,0x12
03a2 e7ff       |    |		Load	0x3,-0x1
03a3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03a4 e7ff       |    |		Load	0x3,-0x1
03a5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
03a6 e7ff       |    |		Load	0x3,-0x1
03a7 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03a8 e00c       |    |		Load	0x0,0xc
03a9 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03aa e001       |    |		Load	0x0,0x1
03ab 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03ac 8414       |    |		Call	0x2,0x14
03ad e602       |    |		Load	0x3,0x2
03ae e411       |    |		Load	0x2,0x11
03af 01d5       |    |		Execute	Vector,Field_Reference
03b0 8415       |    |		Call	0x2,0x15
03b1 e602       |    |		Load	0x3,0x2
03b2 e411       |    |		Load	0x2,0x11
03b3 01d6       |    |		Execute	Vector,Field_Write
03b4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03b5 0000 0000  |    |		.XXX[0x3]
03b7 0000       |    |
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03c1       |    |		.CONST	0x03c1								; Address of begin
03b9 03e4       |    |		.CONST	0x03e4								; Address of exception handler
03ba 0002       |    |		.CONST	0x0002								; Number of locals
03bb			INIT_03b8:
03bb e7fe       |    |		Load	0x3,-0x2
03bc e7ff       |    |		Load	0x3,-0x1
03bd 01db       |    |		Execute	Vector,Length
03be 0272       | r  |		Execute	Discrete,Minus
03bf 00e2       |    |		Load_Encached	Integer_Cache
03c0 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
03c1			BODY_03b8:
03c1 00d8       |    |		Load_Top	At_Offset_0
03c2 0d00       |    |		Execute_Immediate	Less,0x0
03c3 680f       |h   |		Jump_Zero	0x3d3
03c4 e7ff       |    |		Load	0x3,-0x1
03c5 01dd       |    |		Execute	Vector,First
03c6 e7ff       |    |		Load	0x3,-0x1
03c7 01dd       |    |		Execute	Vector,First
03c8 e7fe       |    |		Load	0x3,-0x2
03c9 0273       | s  |		Execute	Discrete,Plus
03ca 0aff       |    |		Execute_Immediate	Plus,-0x1
03cb 00d8       |    |		Load_Top	At_Offset_0
03cc 00e2       |    |		Load_Encached	Integer_Cache
03cd 0260       | `  |		Execute	Discrete,In_Type
03ce 7001       |p   |		Jump_Nonzero	0x3d0
03cf 0801       |    |		Execute_Immediate	Raise,0x1
03d0 e7ff       |    |		Load	0x3,-0x1
03d1 01cf       |    |		Execute	Vector,Slice_Read
03d2 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03d3 4801       |H   |		Short_Literal	0x1
03d4 e602       |    |		Load	0x3,0x2
03d5 00e9       |    |		Load_Encached	String_Cache
03d6 0334       | 4  |		Declare_Variable	Array,With_Constraint
03d7 00d8       |    |		Load_Top	At_Offset_0
03d8 01dc       |    |		Execute	Vector,Last
03d9 4801       |H   |		Short_Literal	0x1
03da 0263       | c  |		Execute	Discrete,Above_Bound
03db 7005       |p   |		Jump_Nonzero	0x3e1
03dc 4820       |H   |		Short_Literal	0x20
03dd e605       |    |		Load	0x3,0x5
03de e603       |    |		Load	0x3,0x3
03df 01d6       |    |		Execute	Vector,Field_Write
03e0 3ffb       |?   |		Loop_Increasing	0x3dc
03e1 e7ff       |    |		Load	0x3,-0x1
03e2 01cc       |    |		Execute	Vector,Catenate
03e3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e4			TRAP_03b8:
03e4 0007       |    |		Action	Break_Optional
03e5 e7ff       |    |		Load	0x3,-0x1
03e6 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e7 0000       |    |		.XXX[0x1]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 0430       | 0  |		.CONST	0x0430								; Address of begin
03e9 0004       |    |		.CONST	0x0004								; Address of exception handler
03ea 0011       |    |		.CONST	0x0011								; Number of locals
03eb			INIT_03e8:
03eb e40d       |    |		Load	0x2,0xd
03ec 0337       | 7  |		Declare_Variable	Array
03ed 00d8       |    |		Load_Top	At_Offset_0
03ee 0335       | 5  |		Declare_Variable	Array,Duplicate
03ef 00cd       |    |		Action	Spare6_Action
03f0 4800       |H   |		Short_Literal	0x0
03f1 4800       |H   |		Short_Literal	0x0
03f2 e603       |    |		Load	0x3,0x3
03f3 01d6       |    |		Execute	Vector,Field_Write
03f4 4800       |H   |		Short_Literal	0x0
03f5 4801       |H   |		Short_Literal	0x1
03f6 e603       |    |		Load	0x3,0x3
03f7 01d6       |    |		Execute	Vector,Field_Write
03f8 e602       |    |		Load	0x3,0x2
03f9 01d4       |    |		Execute	Vector,Structure_Write
03fa 00d8       |    |		Load_Top	At_Offset_0
03fb 0337       | 7  |		Declare_Variable	Array
03fc 00d8       |    |		Load_Top	At_Offset_0
03fd 0335       | 5  |		Declare_Variable	Array,Duplicate
03fe 00cd       |    |		Action	Spare6_Action
03ff 4800       |H   |		Short_Literal	0x0
0400 4800       |H   |		Short_Literal	0x0
0401 e604       |    |		Load	0x3,0x4
0402 01d6       |    |		Execute	Vector,Field_Write
0403 4800       |H   |		Short_Literal	0x0
0404 4801       |H   |		Short_Literal	0x1
0405 e604       |    |		Load	0x3,0x4
0406 01d6       |    |		Execute	Vector,Field_Write
0407 e603       |    |		Load	0x3,0x3
0408 01d4       |    |		Execute	Vector,Structure_Write
0409 00d8       |    |		Load_Top	At_Offset_0
040a 0337       | 7  |		Declare_Variable	Array
040b 00d8       |    |		Load_Top	At_Offset_0
040c 0335       | 5  |		Declare_Variable	Array,Duplicate
040d 00cd       |    |		Action	Spare6_Action
040e 4800       |H   |		Short_Literal	0x0
040f 4800       |H   |		Short_Literal	0x0
0410 e605       |    |		Load	0x3,0x5
0411 01d6       |    |		Execute	Vector,Field_Write
0412 4800       |H   |		Short_Literal	0x0
0413 4801       |H   |		Short_Literal	0x1
0414 e605       |    |		Load	0x3,0x5
0415 01d6       |    |		Execute	Vector,Field_Write
0416 e604       |    |		Load	0x3,0x4
0417 01d4       |    |		Execute	Vector,Structure_Write
0418 00e7       |    |		Load_Encached	Duration_Cache
0419 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
041a 03e9       |    |		Declare_Variable	Discrete,Duplicate
041b 03e9       |    |		Declare_Variable	Discrete,Duplicate
041c 029f 06ab  |    |		Declare_Subprogram	INIT_06a8,For_Call
041e 029f 06f3  |    |		Declare_Subprogram	INIT_06f0,For_Call
0420 029f 0723  |   #|		Declare_Subprogram	INIT_0720,For_Call
0422 029f 074b  |   K|		Declare_Subprogram	INIT_0748,For_Call
0424 029f 077b  |   {|		Declare_Subprogram	INIT_0778,For_Call
0426 029f 07a3  |    |		Declare_Subprogram	INIT_07a0,For_Call
0428 029f 07d3  |    |		Declare_Subprogram	INIT_07d0,For_Call
042a 029f 07fb  |    |		Declare_Subprogram	INIT_07f8,For_Call
042c 029f 082b  |   +|		Declare_Subprogram	INIT_0828,For_Call
042e 029f 0853  |   S|		Declare_Subprogram	INIT_0850,For_Call
0430			BODY_03e8:
0430 8608       |    |		Call	0x3,0x8
0431 4802       |H   |		Short_Literal	0x2
0432 e006       |    |		Load	0x0,0x6
0433 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0434 0092 08a2  |    |		Action	Push_String_Extended,0x8a2					; "System  Availability Report from "
0436 4802       |H   |		Short_Literal	0x2
0437 4801       |H   |		Short_Literal	0x1
0438 4802       |H   |		Short_Literal	0x2
0439 e402       |    |		Load	0x2,0x2
043a e003       |    |		Load	0x0,0x3
043b 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
043c 01cc       |    |		Execute	Vector,Catenate
043d 0092 08a3  |    |		Action	Push_String_Extended,0x8a3					; " to "
043f 01cc       |    |		Execute	Vector,Catenate
0440 4802       |H   |		Short_Literal	0x2
0441 4801       |H   |		Short_Literal	0x1
0442 4802       |H   |		Short_Literal	0x2
0443 e403       |    |		Load	0x2,0x3
0444 e003       |    |		Load	0x0,0x3
0445 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0446 01cc       |    |		Execute	Vector,Catenate
0447 e006       |    |		Load	0x0,0x6
0448 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0449 4801       |H   |		Short_Literal	0x1
044a e006       |    |		Load	0x0,0x6
044b 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
044c 485d       |H]  |		Short_Literal	0x5d
044d 483a       |H:  |		Short_Literal	0x3a
044e e00d       |    |		Load	0x0,0xd
044f 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0450 0092 08a4  |    |		Action	Push_String_Extended,0x8a4					; " ["
0452 01cc       |    |		Execute	Vector,Catenate
0453 e00d       |    |		Load	0x0,0xd
0454 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0455 01cc       |    |		Execute	Vector,Catenate
0456 01cb       |    |		Execute	Vector,Append
0457 e00d       |    |		Load	0x0,0xd
0458 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0459 01cc       |    |		Execute	Vector,Catenate
045a 01cb       |    |		Execute	Vector,Append
045b e006       |    |		Load	0x0,0x6
045c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
045d 4801       |H   |		Short_Literal	0x1
045e e006       |    |		Load	0x0,0x6
045f 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0460 0092 08a5  |    |		Action	Push_String_Extended,0x8a5					; "Total Contract Hours     :"
0462 480b       |H   |		Short_Literal	0xb
0463 4800       |H   |		Short_Literal	0x0
0464 4800       |H   |		Short_Literal	0x0
0465 e603       |    |		Load	0x3,0x3
0466 01d7       |    |		Execute	Vector,Field_Read
0467 e003       |    |		Load	0x0,0x3
0468 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0469 8418       |    |		Call	0x2,0x18
046a 01cc       |    |		Execute	Vector,Catenate
046b e006       |    |		Load	0x0,0x6
046c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
046d 0092 08a6  |    |		Action	Push_String_Extended,0x8a6					; "Total Non Contract Hours :"
046f 480b       |H   |		Short_Literal	0xb
0470 4800       |H   |		Short_Literal	0x0
0471 4801       |H   |		Short_Literal	0x1
0472 e603       |    |		Load	0x3,0x3
0473 01d7       |    |		Execute	Vector,Field_Read
0474 e003       |    |		Load	0x0,0x3
0475 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0476 8418       |    |		Call	0x2,0x18
0477 01cc       |    |		Execute	Vector,Catenate
0478 e006       |    |		Load	0x0,0x6
0479 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
047a 0092 08a7  |    |		Action	Push_String_Extended,0x8a7					; "                           =========="
047c e006       |    |		Load	0x0,0x6
047d 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
047e 0092 08a8  |    |		Action	Push_String_Extended,0x8a8					; "Total Hours              :"
0480 480b       |H   |		Short_Literal	0xb
0481 4800       |H   |		Short_Literal	0x0
0482 4800       |H   |		Short_Literal	0x0
0483 e603       |    |		Load	0x3,0x3
0484 01d7       |    |		Execute	Vector,Field_Read
0485 4801       |H   |		Short_Literal	0x1
0486 e603       |    |		Load	0x3,0x3
0487 01d7       |    |		Execute	Vector,Field_Read
0488 0273       | s  |		Execute	Discrete,Plus
0489 00d8       |    |		Load_Top	At_Offset_0
048a 00e7       |    |		Load_Encached	Duration_Cache
048b 0260       | `  |		Execute	Discrete,In_Type
048c 7001       |p   |		Jump_Nonzero	0x48e
048d 0801       |    |		Execute_Immediate	Raise,0x1
048e e003       |    |		Load	0x0,0x3
048f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0490 8418       |    |		Call	0x2,0x18
0491 01cc       |    |		Execute	Vector,Catenate
0492 e006       |    |		Load	0x0,0x6
0493 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0494 4801       |H   |		Short_Literal	0x1
0495 e006       |    |		Load	0x0,0x6
0496 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0497 480c       |H   |		Short_Literal	0xc
0498 00ea       |    |		Load_Encached	Null_String_Cache
0499 8418       |    |		Call	0x2,0x18
049a 480c       |H   |		Short_Literal	0xc
049b 0092 08a9  |    |		Action	Push_String_Extended,0x8a9					; "Contract"
049d 8418       |    |		Call	0x2,0x18
049e 01cc       |    |		Execute	Vector,Catenate
049f 480c       |H   |		Short_Literal	0xc
04a0 0092 08aa  |    |		Action	Push_String_Extended,0x8aa					; "Non Con"
04a2 8418       |    |		Call	0x2,0x18
04a3 01cc       |    |		Execute	Vector,Catenate
04a4 480c       |H   |		Short_Literal	0xc
04a5 0092 08ab  |    |		Action	Push_String_Extended,0x8ab					; "Total"
04a7 8418       |    |		Call	0x2,0x18
04a8 01cc       |    |		Execute	Vector,Catenate
04a9 e006       |    |		Load	0x0,0x6
04aa 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
04ab 4801       |H   |		Short_Literal	0x1
04ac e006       |    |		Load	0x0,0x6
04ad 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
04ae 00cf       |    |		Action	Mark_Auxiliary
04af 4808       |H   |		Short_Literal	0x8
04b0 4800       |H   |		Short_Literal	0x0
04b1 0007       |    |		Action	Break_Optional
04b2 480c       |H   |		Short_Literal	0xc
04b3 e614       |    |		Load	0x3,0x14
04b4 e409       |    |		Load	0x2,0x9
04b5 011c       |    |		Execute	Any,Convert_Unchecked
04b6 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04b7 0092 08ac  |    |		Action	Push_String_Extended,0x8ac					; " :"
04b9 01cc       |    |		Execute	Vector,Catenate
04ba 8418       |    |		Call	0x2,0x18
04bb e006       |    |		Load	0x0,0x6
04bc 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
04bd 4800       |H   |		Short_Literal	0x0
04be a606       |    |		Store_Unchecked	0x3,0x6
04bf 00cf       |    |		Action	Mark_Auxiliary
04c0 e40c       |    |		Load	0x2,0xc
04c1 0265       | e  |		Execute	Discrete,Reverse_Bounds
04c2 0007       |    |		Action	Break_Optional
04c3 480c       |H   |		Short_Literal	0xc
04c4 4800       |H   |		Short_Literal	0x0
04c5 e617       |    |		Load	0x3,0x17
04c6 e614       |    |		Load	0x3,0x14
04c7 e411       |    |		Load	0x2,0x11
04c8 01d5       |    |		Execute	Vector,Field_Reference
04c9 01d7       |    |		Execute	Vector,Field_Read
04ca e003       |    |		Load	0x0,0x3
04cb 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04cc 8418       |    |		Call	0x2,0x18
04cd e006       |    |		Load	0x0,0x6
04ce 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
04cf e606       |    |		Load	0x3,0x6
04d0 e617       |    |		Load	0x3,0x17
04d1 e614       |    |		Load	0x3,0x14
04d2 e411       |    |		Load	0x2,0x11
04d3 01d5       |    |		Execute	Vector,Field_Reference
04d4 01d7       |    |		Execute	Vector,Field_Read
04d5 0273       | s  |		Execute	Discrete,Plus
04d6 c606       |    |		Store	0x3,0x6
04d7 00d8       |    |		Load_Top	At_Offset_0
04d8 e604       |    |		Load	0x3,0x4
04d9 01d7       |    |		Execute	Vector,Field_Read
04da e617       |    |		Load	0x3,0x17
04db e614       |    |		Load	0x3,0x14
04dc e411       |    |		Load	0x2,0x11
04dd 01d5       |    |		Execute	Vector,Field_Reference
04de 01d7       |    |		Execute	Vector,Field_Read
04df 0273       | s  |		Execute	Discrete,Plus
04e0 e617       |    |		Load	0x3,0x17
04e1 e604       |    |		Load	0x3,0x4
04e2 01d6       |    |		Execute	Vector,Field_Write
04e3 00c8       |    |		Action	Pop_Auxiliary_Range
04e4 3fde       |?   |		Loop_Increasing	0x4c3
04e5 00ce       |    |		Action	Pop_Auxiliary
04e6 480c       |H   |		Short_Literal	0xc
04e7 4800       |H   |		Short_Literal	0x0
04e8 e606       |    |		Load	0x3,0x6
04e9 e003       |    |		Load	0x0,0x3
04ea 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
04eb 8418       |    |		Call	0x2,0x18
04ec e006       |    |		Load	0x0,0x6
04ed 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
04ee e607       |    |		Load	0x3,0x7
04ef e606       |    |		Load	0x3,0x6
04f0 0273       | s  |		Execute	Discrete,Plus
04f1 c607       |    |		Store	0x3,0x7
04f2 00c8       |    |		Action	Pop_Auxiliary_Range
04f3 3fbe       |?   |		Loop_Increasing	0x4b2
04f4 00ce       |    |		Action	Pop_Auxiliary
04f5 480c       |H   |		Short_Literal	0xc
04f6 0092 08ad  |    |		Action	Push_String_Extended,0x8ad					; "========"
04f8 8418       |    |		Call	0x2,0x18
04f9 480c       |H   |		Short_Literal	0xc
04fa 0092 08ad  |    |		Action	Push_String_Extended,0x8ad					; "========"
04fc 8418       |    |		Call	0x2,0x18
04fd 01cc       |    |		Execute	Vector,Catenate
04fe 480c       |H   |		Short_Literal	0xc
04ff 0092 08ad  |    |		Action	Push_String_Extended,0x8ad					; "========"
0501 8418       |    |		Call	0x2,0x18
0502 01cc       |    |		Execute	Vector,Catenate
0503 480c       |H   |		Short_Literal	0xc
0504 0092 08ad  |    |		Action	Push_String_Extended,0x8ad					; "========"
0506 8418       |    |		Call	0x2,0x18
0507 01cc       |    |		Execute	Vector,Catenate
0508 e006       |    |		Load	0x0,0x6
0509 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
050a 480c       |H   |		Short_Literal	0xc
050b 0092 08ae  |    |		Action	Push_String_Extended,0x8ae					; "Total :"
050d 8418       |    |		Call	0x2,0x18
050e 480c       |H   |		Short_Literal	0xc
050f 4800       |H   |		Short_Literal	0x0
0510 4800       |H   |		Short_Literal	0x0
0511 e604       |    |		Load	0x3,0x4
0512 01d7       |    |		Execute	Vector,Field_Read
0513 e003       |    |		Load	0x0,0x3
0514 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0515 8418       |    |		Call	0x2,0x18
0516 01cc       |    |		Execute	Vector,Catenate
0517 480c       |H   |		Short_Literal	0xc
0518 4800       |H   |		Short_Literal	0x0
0519 4801       |H   |		Short_Literal	0x1
051a e604       |    |		Load	0x3,0x4
051b 01d7       |    |		Execute	Vector,Field_Read
051c e003       |    |		Load	0x0,0x3
051d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
051e 8418       |    |		Call	0x2,0x18
051f 01cc       |    |		Execute	Vector,Catenate
0520 480c       |H   |		Short_Literal	0xc
0521 4800       |H   |		Short_Literal	0x0
0522 e607       |    |		Load	0x3,0x7
0523 e003       |    |		Load	0x0,0x3
0524 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0525 8418       |    |		Call	0x2,0x18
0526 01cc       |    |		Execute	Vector,Catenate
0527 e006       |    |		Load	0x0,0x6
0528 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0529 480c       |H   |		Short_Literal	0xc
052a 0092 08af  |    |		Action	Push_String_Extended,0x8af					; "Available :"
052c 8418       |    |		Call	0x2,0x18
052d e006       |    |		Load	0x0,0x6
052e 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
052f 8609       |    |		Call	0x3,0x9
0530 4825       |H%  |		Short_Literal	0x25
0531 e006       |    |		Load	0x0,0x6
0532 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0533 860a       |    |		Call	0x3,0xa
0534 4825       |H%  |		Short_Literal	0x25
0535 e006       |    |		Load	0x0,0x6
0536 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0537 860b       |    |		Call	0x3,0xb
0538 4825       |H%  |		Short_Literal	0x25
0539 e006       |    |		Load	0x0,0x6
053a 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
053b 4802       |H   |		Short_Literal	0x2
053c e006       |    |		Load	0x0,0x6
053d 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
053e e604       |    |		Load	0x3,0x4
053f e602       |    |		Load	0x3,0x2
0540 01d4       |    |		Execute	Vector,Structure_Write
0541 e604       |    |		Load	0x3,0x4
0542 00d8       |    |		Load_Top	At_Offset_0
0543 0335       | 5  |		Declare_Variable	Array,Duplicate
0544 00cd       |    |		Action	Spare6_Action
0545 4800       |H   |		Short_Literal	0x0
0546 4800       |H   |		Short_Literal	0x0
0547 e613       |    |		Load	0x3,0x13
0548 01d6       |    |		Execute	Vector,Field_Write
0549 4800       |H   |		Short_Literal	0x0
054a 4801       |H   |		Short_Literal	0x1
054b e613       |    |		Load	0x3,0x13
054c 01d6       |    |		Execute	Vector,Field_Write
054d 00cd       |    |		Action	Spare6_Action
054e e604       |    |		Load	0x3,0x4
054f 01d4       |    |		Execute	Vector,Structure_Write
0550 e607       |    |		Load	0x3,0x7
0551 a605       |    |		Store_Unchecked	0x3,0x5
0552 4800       |H   |		Short_Literal	0x0
0553 a607       |    |		Store_Unchecked	0x3,0x7
0554 00cf       |    |		Action	Mark_Auxiliary
0555 480b       |H   |		Short_Literal	0xb
0556 4809       |H   |		Short_Literal	0x9
0557 0007       |    |		Action	Break_Optional
0558 480c       |H   |		Short_Literal	0xc
0559 e614       |    |		Load	0x3,0x14
055a e409       |    |		Load	0x2,0x9
055b 011c       |    |		Execute	Any,Convert_Unchecked
055c 1c01       |    |		Execute_Immediate	Run_Utility,0x1
055d 0092 08ac  |    |		Action	Push_String_Extended,0x8ac					; " :"
055f 01cc       |    |		Execute	Vector,Catenate
0560 8418       |    |		Call	0x2,0x18
0561 e006       |    |		Load	0x0,0x6
0562 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0563 4800       |H   |		Short_Literal	0x0
0564 a606       |    |		Store_Unchecked	0x3,0x6
0565 00cf       |    |		Action	Mark_Auxiliary
0566 e40c       |    |		Load	0x2,0xc
0567 0265       | e  |		Execute	Discrete,Reverse_Bounds
0568 0007       |    |		Action	Break_Optional
0569 480c       |H   |		Short_Literal	0xc
056a 4800       |H   |		Short_Literal	0x0
056b e617       |    |		Load	0x3,0x17
056c e614       |    |		Load	0x3,0x14
056d e411       |    |		Load	0x2,0x11
056e 01d5       |    |		Execute	Vector,Field_Reference
056f 01d7       |    |		Execute	Vector,Field_Read
0570 e003       |    |		Load	0x0,0x3
0571 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0572 8418       |    |		Call	0x2,0x18
0573 e006       |    |		Load	0x0,0x6
0574 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0575 e606       |    |		Load	0x3,0x6
0576 e617       |    |		Load	0x3,0x17
0577 e614       |    |		Load	0x3,0x14
0578 e411       |    |		Load	0x2,0x11
0579 01d5       |    |		Execute	Vector,Field_Reference
057a 01d7       |    |		Execute	Vector,Field_Read
057b 0273       | s  |		Execute	Discrete,Plus
057c c606       |    |		Store	0x3,0x6
057d 00d8       |    |		Load_Top	At_Offset_0
057e e604       |    |		Load	0x3,0x4
057f 01d7       |    |		Execute	Vector,Field_Read
0580 e617       |    |		Load	0x3,0x17
0581 e614       |    |		Load	0x3,0x14
0582 e411       |    |		Load	0x2,0x11
0583 01d5       |    |		Execute	Vector,Field_Reference
0584 01d7       |    |		Execute	Vector,Field_Read
0585 0273       | s  |		Execute	Discrete,Plus
0586 e617       |    |		Load	0x3,0x17
0587 e604       |    |		Load	0x3,0x4
0588 01d6       |    |		Execute	Vector,Field_Write
0589 00c8       |    |		Action	Pop_Auxiliary_Range
058a 3fde       |?   |		Loop_Increasing	0x569
058b 00ce       |    |		Action	Pop_Auxiliary
058c 480c       |H   |		Short_Literal	0xc
058d 4800       |H   |		Short_Literal	0x0
058e e606       |    |		Load	0x3,0x6
058f e003       |    |		Load	0x0,0x3
0590 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0591 8418       |    |		Call	0x2,0x18
0592 e006       |    |		Load	0x0,0x6
0593 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0594 e607       |    |		Load	0x3,0x7
0595 e606       |    |		Load	0x3,0x6
0596 0273       | s  |		Execute	Discrete,Plus
0597 c607       |    |		Store	0x3,0x7
0598 00c8       |    |		Action	Pop_Auxiliary_Range
0599 3fbe       |?   |		Loop_Increasing	0x558
059a 00ce       |    |		Action	Pop_Auxiliary
059b 480c       |H   |		Short_Literal	0xc
059c 0092 08ad  |    |		Action	Push_String_Extended,0x8ad					; "========"
059e 8418       |    |		Call	0x2,0x18
059f 480c       |H   |		Short_Literal	0xc
05a0 0092 08ad  |    |		Action	Push_String_Extended,0x8ad					; "========"
05a2 8418       |    |		Call	0x2,0x18
05a3 01cc       |    |		Execute	Vector,Catenate
05a4 480c       |H   |		Short_Literal	0xc
05a5 0092 08ad  |    |		Action	Push_String_Extended,0x8ad					; "========"
05a7 8418       |    |		Call	0x2,0x18
05a8 01cc       |    |		Execute	Vector,Catenate
05a9 480c       |H   |		Short_Literal	0xc
05aa 0092 08ad  |    |		Action	Push_String_Extended,0x8ad					; "========"
05ac 8418       |    |		Call	0x2,0x18
05ad 01cc       |    |		Execute	Vector,Catenate
05ae e006       |    |		Load	0x0,0x6
05af 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
05b0 480c       |H   |		Short_Literal	0xc
05b1 0092 08ae  |    |		Action	Push_String_Extended,0x8ae					; "Total :"
05b3 8418       |    |		Call	0x2,0x18
05b4 480c       |H   |		Short_Literal	0xc
05b5 4800       |H   |		Short_Literal	0x0
05b6 4800       |H   |		Short_Literal	0x0
05b7 e604       |    |		Load	0x3,0x4
05b8 01d7       |    |		Execute	Vector,Field_Read
05b9 e003       |    |		Load	0x0,0x3
05ba 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05bb 8418       |    |		Call	0x2,0x18
05bc 01cc       |    |		Execute	Vector,Catenate
05bd 480c       |H   |		Short_Literal	0xc
05be 4800       |H   |		Short_Literal	0x0
05bf 4801       |H   |		Short_Literal	0x1
05c0 e604       |    |		Load	0x3,0x4
05c1 01d7       |    |		Execute	Vector,Field_Read
05c2 e003       |    |		Load	0x0,0x3
05c3 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05c4 8418       |    |		Call	0x2,0x18
05c5 01cc       |    |		Execute	Vector,Catenate
05c6 480c       |H   |		Short_Literal	0xc
05c7 4800       |H   |		Short_Literal	0x0
05c8 e607       |    |		Load	0x3,0x7
05c9 e003       |    |		Load	0x0,0x3
05ca 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05cb 8418       |    |		Call	0x2,0x18
05cc 01cc       |    |		Execute	Vector,Catenate
05cd e006       |    |		Load	0x0,0x6
05ce 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
05cf 480c       |H   |		Short_Literal	0xc
05d0 0092 08af  |    |		Action	Push_String_Extended,0x8af					; "Available :"
05d2 8418       |    |		Call	0x2,0x18
05d3 e006       |    |		Load	0x0,0x6
05d4 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
05d5 860c       |    |		Call	0x3,0xc
05d6 4825       |H%  |		Short_Literal	0x25
05d7 e006       |    |		Load	0x0,0x6
05d8 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
05d9 860d       |    |		Call	0x3,0xd
05da 4825       |H%  |		Short_Literal	0x25
05db e006       |    |		Load	0x0,0x6
05dc 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
05dd 860e       |    |		Call	0x3,0xe
05de 4825       |H%  |		Short_Literal	0x25
05df e006       |    |		Load	0x0,0x6
05e0 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
05e1 4802       |H   |		Short_Literal	0x2
05e2 e006       |    |		Load	0x0,0x6
05e3 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
05e4 e604       |    |		Load	0x3,0x4
05e5 e602       |    |		Load	0x3,0x2
05e6 8415       |    |		Call	0x2,0x15
05e7 e602       |    |		Load	0x3,0x2
05e8 01d4       |    |		Execute	Vector,Structure_Write
05e9 e605       |    |		Load	0x3,0x5
05ea e607       |    |		Load	0x3,0x7
05eb 0273       | s  |		Execute	Discrete,Plus
05ec c605       |    |		Store	0x3,0x5
05ed 480c       |H   |		Short_Literal	0xc
05ee 0092 08b0  |    |		Action	Push_String_Extended,0x8b0					; "Grand Total"
05f0 8418       |    |		Call	0x2,0x18
05f1 480c       |H   |		Short_Literal	0xc
05f2 4800       |H   |		Short_Literal	0x0
05f3 4800       |H   |		Short_Literal	0x0
05f4 e602       |    |		Load	0x3,0x2
05f5 01d7       |    |		Execute	Vector,Field_Read
05f6 e003       |    |		Load	0x0,0x3
05f7 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
05f8 8418       |    |		Call	0x2,0x18
05f9 01cc       |    |		Execute	Vector,Catenate
05fa 480c       |H   |		Short_Literal	0xc
05fb 4800       |H   |		Short_Literal	0x0
05fc 4801       |H   |		Short_Literal	0x1
05fd e602       |    |		Load	0x3,0x2
05fe 01d7       |    |		Execute	Vector,Field_Read
05ff e003       |    |		Load	0x0,0x3
0600 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0601 8418       |    |		Call	0x2,0x18
0602 01cc       |    |		Execute	Vector,Catenate
0603 480c       |H   |		Short_Literal	0xc
0604 4800       |H   |		Short_Literal	0x0
0605 e607       |    |		Load	0x3,0x7
0606 e003       |    |		Load	0x0,0x3
0607 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0608 8418       |    |		Call	0x2,0x18
0609 01cc       |    |		Execute	Vector,Catenate
060a e006       |    |		Load	0x0,0x6
060b 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
060c 480c       |H   |		Short_Literal	0xc
060d 0092 08b1  |    |		Action	Push_String_Extended,0x8b1					; "Uptime :"
060f 8418       |    |		Call	0x2,0x18
0610 e006       |    |		Load	0x0,0x6
0611 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
0612 860f       |    |		Call	0x3,0xf
0613 4825       |H%  |		Short_Literal	0x25
0614 e006       |    |		Load	0x0,0x6
0615 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0616 8610       |    |		Call	0x3,0x10
0617 4825       |H%  |		Short_Literal	0x25
0618 e006       |    |		Load	0x0,0x6
0619 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
061a 8611       |    |		Call	0x3,0x11
061b 4825       |H%  |		Short_Literal	0x25
061c e006       |    |		Load	0x0,0x6
061d 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
061e 4802       |H   |		Short_Literal	0x2
061f e006       |    |		Load	0x0,0x6
0620 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0621 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0622 0000 0000  |    |		.BLANK	0000[0x6]
0628 ; --------------------------------------------------------------------------------------
0628 ; SUBPROGRAM
0628 ; --------------------------------------------------------------------------------------
0628 062b       | +  |		.CONST	0x062b								; Address of begin
0629 0004       |    |		.CONST	0x0004								; Address of exception handler
062a 0001       |    |		.CONST	0x0001								; Number of locals
062b			BODY_0628:
062b			INIT_0628:
062b 4802       |H   |		Short_Literal	0x2
062c e006       |    |		Load	0x0,0x6
062d 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
062e 0092 08b2  |    |		Action	Push_String_Extended,0x8b2					; "Contract Hours"
0630 e006       |    |		Load	0x0,0x6
0631 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0632 0092 08b3  |    |		Action	Push_String_Extended,0x8b3					; "=============="
0634 e006       |    |		Load	0x0,0x6
0635 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0636 00cf       |    |		Action	Mark_Auxiliary
0637 4807       |H   |		Short_Literal	0x7
0638 4801       |H   |		Short_Literal	0x1
0639 0007       |    |		Action	Break_Optional
063a 0092 08b4  |    |		Action	Push_String_Extended,0x8b4					; "    "
063c 480c       |H   |		Short_Literal	0xc
063d e604       |    |		Load	0x3,0x4
063e 00d8       |    |		Load_Top	At_Offset_0
063f e408       |    |		Load	0x2,0x8
0640 0260       | `  |		Execute	Discrete,In_Type
0641 7001       |p   |		Jump_Nonzero	0x643
0642 0801       |    |		Execute_Immediate	Raise,0x1
0643 e408       |    |		Load	0x2,0x8
0644 011c       |    |		Execute	Any,Convert_Unchecked
0645 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0646 e00e       |    |		Load	0x0,0xe
0647 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0648 0092 08b5  |    |		Action	Push_String_Extended,0x8b5					; " : "
064a 01cc       |    |		Execute	Vector,Catenate
064b 8418       |    |		Call	0x2,0x18
064c 01cc       |    |		Execute	Vector,Catenate
064d e006       |    |		Load	0x0,0x6
064e 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
064f 00d8       |    |		Load_Top	At_Offset_0
0650 e7ff       |    |		Load	0x3,-0x1
0651 01d5       |    |		Execute	Vector,Field_Reference
0652 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0653 e604       |    |		Load	0x3,0x4
0654 e7ff       |    |		Load	0x3,-0x1
0655 01d5       |    |		Execute	Vector,Field_Reference
0656 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0657 027f       |    |		Execute	Discrete,Equal
0658 6805       |h   |		Jump_Zero	0x65e
0659 0092 08b6  |    |		Action	Push_String_Extended,0x8b6					; "None"
065b e006       |    |		Load	0x0,0x6
065c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
065d 7814       |x   |		Jump	0x672
065e 4800       |H   |		Short_Literal	0x0
065f e604       |    |		Load	0x3,0x4
0660 e7ff       |    |		Load	0x3,-0x1
0661 01d5       |    |		Execute	Vector,Field_Reference
0662 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0663 e003       |    |		Load	0x0,0x3
0664 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0665 0092 08a3  |    |		Action	Push_String_Extended,0x8a3					; " to "
0667 01cc       |    |		Execute	Vector,Catenate
0668 4800       |H   |		Short_Literal	0x0
0669 e604       |    |		Load	0x3,0x4
066a e7ff       |    |		Load	0x3,-0x1
066b 01d5       |    |		Execute	Vector,Field_Reference
066c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
066d e003       |    |		Load	0x0,0x3
066e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
066f 01cc       |    |		Execute	Vector,Catenate
0670 e006       |    |		Load	0x0,0x6
0671 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0672 00c8       |    |		Action	Pop_Auxiliary_Range
0673 3fc6       |?   |		Loop_Increasing	0x63a
0674 00ce       |    |		Action	Pop_Auxiliary
0675 4801       |H   |		Short_Literal	0x1
0676 e006       |    |		Load	0x0,0x6
0677 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0678 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0679 0000 0000  |    |		.BLANK	0000[0x7]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0683       |    |		.CONST	0x0683								; Address of begin
0681 0004       |    |		.CONST	0x0004								; Address of exception handler
0682 0001       |    |		.CONST	0x0001								; Number of locals
0683			BODY_0680:
0683			INIT_0680:
0683 4607       |F   |		Jump_Case	0x8
0684 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0685 7806       |x   |		Jump	0x68c								; case 0x1
0686 7809       |x   |		Jump	0x690								; case 0x2
0687 780d       |x   |		Jump	0x695								; case 0x3
0688 7810       |x   |		Jump	0x699								; case 0x4
0689 7811       |x   |		Jump	0x69b								; case 0x5
068a 7812       |x   |		Jump	0x69d								; case 0x6
068b 7815       |x   |		Jump	0x6a1								; case 0x7
068c 00da       |    |		Load_Top	At_Offset_2
068d 0091 0892  |    |		Action	Push_String_Extended_Indexed,0x892				; "NONE"
068f 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0690 00db       |    |		Load_Top	At_Offset_3
0691 00db       |    |		Load_Top	At_Offset_3
0692 00e0       |    |		Load_Encached	Standard_Cache
0693 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0694 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0695 00da       |    |		Load_Top	At_Offset_2
0696 00e0       |    |		Load_Encached	Standard_Cache
0697 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0698 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0699 00db       |    |		Load_Top	At_Offset_3
069a 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
069b 00db       |    |		Load_Top	At_Offset_3
069c 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
069d e606       |    |		Load	0x3,0x6
069e 00dc       |    |		Load_Top	At_Offset_4
069f 0267       | g  |		Execute	Discrete,Predecessor
06a0 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06a1 e606       |    |		Load	0x3,0x6
06a2 00dc       |    |		Load_Top	At_Offset_4
06a3 0268       | h  |		Execute	Discrete,Successor
06a4 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
06a5 0000 0000  |    |		.XXX[0x3]
06a7 0000       |    |
06a8 ; --------------------------------------------------------------------------------------
06a8 ; SUBPROGRAM
06a8 ; --------------------------------------------------------------------------------------
06a8 06b4       |    |		.CONST	0x06b4								; Address of begin
06a9 0004       |    |		.CONST	0x0004								; Address of exception handler
06aa 0004       |    |		.CONST	0x0004								; Number of locals
06ab			INIT_06a8:
06ab e001       |    |		Load	0x0,0x1
06ac 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
06ad 02c7       |    |		Declare_Variable	Any
06ae e402       |    |		Load	0x2,0x2
06af a802       |    |		Store_Unchecked	0x4,0x2
06b0 e00a       |    |		Load	0x0,0xa
06b1 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
06b2 e40d       |    |		Load	0x2,0xd
06b3 0337       | 7  |		Declare_Variable	Array
06b4			BODY_06a8:
06b4 00cf       |    |		Action	Mark_Auxiliary
06b5 782f       |x/  |		Jump	0x6e5
06b6 e802       |    |		Load	0x4,0x2
06b7 e00a       |    |		Load	0x0,0xa
06b8 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
06b9 a803       |    |		Store_Unchecked	0x4,0x3
06ba e803       |    |		Load	0x4,0x3
06bb e412       |    |		Load	0x2,0x12
06bc 01d5       |    |		Execute	Vector,Field_Reference
06bd 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
06be e803       |    |		Load	0x4,0x3
06bf e412       |    |		Load	0x2,0x12
06c0 01d5       |    |		Execute	Vector,Field_Reference
06c1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
06c2 0272       | r  |		Execute	Discrete,Minus
06c3 4800       |H   |		Short_Literal	0x0
06c4 e804       |    |		Load	0x4,0x4
06c5 01d6       |    |		Execute	Vector,Field_Write
06c6 6025       |`%  |		Indirect_Literal	Discrete,0x6ec,{0x00000000, 0xa8c00000}
06c7 4800       |H   |		Short_Literal	0x0
06c8 e804       |    |		Load	0x4,0x4
06c9 01d7       |    |		Execute	Vector,Field_Read
06ca 0272       | r  |		Execute	Discrete,Minus
06cb 4801       |H   |		Short_Literal	0x1
06cc e804       |    |		Load	0x4,0x4
06cd 01d6       |    |		Execute	Vector,Field_Write
06ce 00cf       |    |		Action	Mark_Auxiliary
06cf e40c       |    |		Load	0x2,0xc
06d0 0265       | e  |		Execute	Discrete,Reverse_Bounds
06d1 0007       |    |		Action	Break_Optional
06d2 00d8       |    |		Load_Top	At_Offset_0
06d3 e603       |    |		Load	0x3,0x3
06d4 01d7       |    |		Execute	Vector,Field_Read
06d5 e808       |    |		Load	0x4,0x8
06d6 e804       |    |		Load	0x4,0x4
06d7 01d7       |    |		Execute	Vector,Field_Read
06d8 0273       | s  |		Execute	Discrete,Plus
06d9 e808       |    |		Load	0x4,0x8
06da e603       |    |		Load	0x3,0x3
06db 01d6       |    |		Execute	Vector,Field_Write
06dc 00c8       |    |		Action	Pop_Auxiliary_Range
06dd 3ff4       |?   |		Loop_Increasing	0x6d2
06de 00ce       |    |		Action	Pop_Auxiliary
06df 600c       |`   |		Indirect_Literal	Discrete,0x6ec,{0x00000000, 0xa8c00000}
06e0 e802       |    |		Load	0x4,0x2
06e1 e001       |    |		Load	0x0,0x1
06e2 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
06e3 c802       |    |		Store	0x4,0x2
06e4 00c9       |    |		Action	Pop_Auxiliary_Loop
06e5 e403       |    |		Load	0x2,0x3
06e6 e802       |    |		Load	0x4,0x2
06e7 e001       |    |		Load	0x0,0x1
06e8 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
06e9 77cc       |w   |		Jump_Nonzero	0x6b6
06ea 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06eb 0000       |    |		.XXX[0x1]
06ec 0000 0000  |    |		.LITERAL	{0x00000000, 0xa8c00000}
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f3       |    |		.CONST	0x06f3								; Address of begin
06f1 070a       |    |		.CONST	0x070a								; Address of exception handler
06f2 0001       |    |		.CONST	0x0001								; Number of locals
06f3			BODY_06f0:
06f3			INIT_06f0:
06f3 4800       |H   |		Short_Literal	0x0
06f4 4801       |H   |		Short_Literal	0x1
06f5 4809       |H   |		Short_Literal	0x9
06f6 5821       |X!  |		Indirect_Literal	Float,0x718,100.0
06f7 4800       |H   |		Short_Literal	0x0
06f8 e604       |    |		Load	0x3,0x4
06f9 01d7       |    |		Execute	Vector,Field_Read
06fa 0237       | 7  |		Execute	Float,Convert_From_Discrete
06fb 5818       |X   |		Indirect_Literal	Float,0x714,3.0517578125e-05
06fc 023b       | ;  |		Execute	Float,Times
06fd 581a       |X   |		Indirect_Literal	Float,0x718,100.0
06fe 023b       | ;  |		Execute	Float,Times
06ff 4800       |H   |		Short_Literal	0x0
0700 e603       |    |		Load	0x3,0x3
0701 01d7       |    |		Execute	Vector,Field_Read
0702 0237       | 7  |		Execute	Float,Convert_From_Discrete
0703 5810       |X   |		Indirect_Literal	Float,0x714,3.0517578125e-05
0704 023b       | ;  |		Execute	Float,Times
0705 023a       | :  |		Execute	Float,Divide
0706 023c       | <  |		Execute	Float,Minus
0707 e006       |    |		Load	0x0,0x6
0708 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0709 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
070a			TRAP_06f0:
070a 0007       |    |		Action	Break_Optional
070b 4800       |H   |		Short_Literal	0x0
070c 4801       |H   |		Short_Literal	0x1
070d 4809       |H   |		Short_Literal	0x9
070e 5809       |X   |		Indirect_Literal	Float,0x718,100.0
070f e006       |    |		Load	0x0,0x6
0710 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0711 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0712 0000 0000  |    |		.XXX[0x2]
0714 3f00 0000  |?   |		.DBL	3.0517578125e-05
0716 0000 0000  |    |
0718 4059 0000  |@Y  |		.DBL	100.0
071a 0000 0000  |    |
071c 0000 0000  |    |		.BLANK	0000[0x4]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723       | #  |		.CONST	0x0723								; Address of begin
0721 073a       | :  |		.CONST	0x073a								; Address of exception handler
0722 0001       |    |		.CONST	0x0001								; Number of locals
0723			BODY_0720:
0723			INIT_0720:
0723 4800       |H   |		Short_Literal	0x0
0724 4801       |H   |		Short_Literal	0x1
0725 4809       |H   |		Short_Literal	0x9
0726 5ff1       |_   |		Indirect_Literal	Float,0x718,100.0
0727 4801       |H   |		Short_Literal	0x1
0728 e604       |    |		Load	0x3,0x4
0729 01d7       |    |		Execute	Vector,Field_Read
072a 0237       | 7  |		Execute	Float,Convert_From_Discrete
072b 5fe8       |_   |		Indirect_Literal	Float,0x714,3.0517578125e-05
072c 023b       | ;  |		Execute	Float,Times
072d 5fea       |_   |		Indirect_Literal	Float,0x718,100.0
072e 023b       | ;  |		Execute	Float,Times
072f 4801       |H   |		Short_Literal	0x1
0730 e603       |    |		Load	0x3,0x3
0731 01d7       |    |		Execute	Vector,Field_Read
0732 0237       | 7  |		Execute	Float,Convert_From_Discrete
0733 5fe0       |_   |		Indirect_Literal	Float,0x714,3.0517578125e-05
0734 023b       | ;  |		Execute	Float,Times
0735 023a       | :  |		Execute	Float,Divide
0736 023c       | <  |		Execute	Float,Minus
0737 e006       |    |		Load	0x0,0x6
0738 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0739 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
073a			TRAP_0720:
073a 0007       |    |		Action	Break_Optional
073b 4800       |H   |		Short_Literal	0x0
073c 4801       |H   |		Short_Literal	0x1
073d 4809       |H   |		Short_Literal	0x9
073e 5fd9       |_   |		Indirect_Literal	Float,0x718,100.0
073f e006       |    |		Load	0x0,0x6
0740 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0741 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0742 0000 0000  |    |		.BLANK	0000[0x6]
0748 ; --------------------------------------------------------------------------------------
0748 ; SUBPROGRAM
0748 ; --------------------------------------------------------------------------------------
0748 074b       | K  |		.CONST	0x074b								; Address of begin
0749 0764       | d  |		.CONST	0x0764								; Address of exception handler
074a 0001       |    |		.CONST	0x0001								; Number of locals
074b			BODY_0748:
074b			INIT_0748:
074b 4800       |H   |		Short_Literal	0x0
074c 4801       |H   |		Short_Literal	0x1
074d 4809       |H   |		Short_Literal	0x9
074e 5821       |X!  |		Indirect_Literal	Float,0x770,100.0
074f e607       |    |		Load	0x3,0x7
0750 0237       | 7  |		Execute	Float,Convert_From_Discrete
0751 581a       |X   |		Indirect_Literal	Float,0x76c,3.0517578125e-05
0752 023b       | ;  |		Execute	Float,Times
0753 581c       |X   |		Indirect_Literal	Float,0x770,100.0
0754 023b       | ;  |		Execute	Float,Times
0755 4800       |H   |		Short_Literal	0x0
0756 e603       |    |		Load	0x3,0x3
0757 01d7       |    |		Execute	Vector,Field_Read
0758 4801       |H   |		Short_Literal	0x1
0759 e603       |    |		Load	0x3,0x3
075a 01d7       |    |		Execute	Vector,Field_Read
075b 0273       | s  |		Execute	Discrete,Plus
075c 0237       | 7  |		Execute	Float,Convert_From_Discrete
075d 580e       |X   |		Indirect_Literal	Float,0x76c,3.0517578125e-05
075e 023b       | ;  |		Execute	Float,Times
075f 023a       | :  |		Execute	Float,Divide
0760 023c       | <  |		Execute	Float,Minus
0761 e006       |    |		Load	0x0,0x6
0762 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0763 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0764			TRAP_0748:
0764 0007       |    |		Action	Break_Optional
0765 4800       |H   |		Short_Literal	0x0
0766 4801       |H   |		Short_Literal	0x1
0767 4809       |H   |		Short_Literal	0x9
0768 5807       |X   |		Indirect_Literal	Float,0x770,100.0
0769 e006       |    |		Load	0x0,0x6
076a 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
076b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
076c 3f00 0000  |?   |		.DBL	3.0517578125e-05
076e 0000 0000  |    |
0770 4059 0000  |@Y  |		.DBL	100.0
0772 0000 0000  |    |
0774 0000 0000  |    |		.BLANK	0000[0x4]
0778 ; --------------------------------------------------------------------------------------
0778 ; SUBPROGRAM
0778 ; --------------------------------------------------------------------------------------
0778 077b       | {  |		.CONST	0x077b								; Address of begin
0779 0792       |    |		.CONST	0x0792								; Address of exception handler
077a 0001       |    |		.CONST	0x0001								; Number of locals
077b			BODY_0778:
077b			INIT_0778:
077b 4800       |H   |		Short_Literal	0x0
077c 4801       |H   |		Short_Literal	0x1
077d 4809       |H   |		Short_Literal	0x9
077e 5ff1       |_   |		Indirect_Literal	Float,0x770,100.0
077f 4800       |H   |		Short_Literal	0x0
0780 e604       |    |		Load	0x3,0x4
0781 01d7       |    |		Execute	Vector,Field_Read
0782 0237       | 7  |		Execute	Float,Convert_From_Discrete
0783 5fe8       |_   |		Indirect_Literal	Float,0x76c,3.0517578125e-05
0784 023b       | ;  |		Execute	Float,Times
0785 5fea       |_   |		Indirect_Literal	Float,0x770,100.0
0786 023b       | ;  |		Execute	Float,Times
0787 4800       |H   |		Short_Literal	0x0
0788 e603       |    |		Load	0x3,0x3
0789 01d7       |    |		Execute	Vector,Field_Read
078a 0237       | 7  |		Execute	Float,Convert_From_Discrete
078b 5fe0       |_   |		Indirect_Literal	Float,0x76c,3.0517578125e-05
078c 023b       | ;  |		Execute	Float,Times
078d 023a       | :  |		Execute	Float,Divide
078e 023c       | <  |		Execute	Float,Minus
078f e006       |    |		Load	0x0,0x6
0790 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0791 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0792			TRAP_0778:
0792 0007       |    |		Action	Break_Optional
0793 4800       |H   |		Short_Literal	0x0
0794 4801       |H   |		Short_Literal	0x1
0795 4809       |H   |		Short_Literal	0x9
0796 5fd9       |_   |		Indirect_Literal	Float,0x770,100.0
0797 e006       |    |		Load	0x0,0x6
0798 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0799 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
079a 0000 0000  |    |		.BLANK	0000[0x6]
07a0 ; --------------------------------------------------------------------------------------
07a0 ; SUBPROGRAM
07a0 ; --------------------------------------------------------------------------------------
07a0 07a3       |    |		.CONST	0x07a3								; Address of begin
07a1 07ba       |    |		.CONST	0x07ba								; Address of exception handler
07a2 0001       |    |		.CONST	0x0001								; Number of locals
07a3			BODY_07a0:
07a3			INIT_07a0:
07a3 4800       |H   |		Short_Literal	0x0
07a4 4801       |H   |		Short_Literal	0x1
07a5 4809       |H   |		Short_Literal	0x9
07a6 5821       |X!  |		Indirect_Literal	Float,0x7c8,100.0
07a7 4801       |H   |		Short_Literal	0x1
07a8 e604       |    |		Load	0x3,0x4
07a9 01d7       |    |		Execute	Vector,Field_Read
07aa 0237       | 7  |		Execute	Float,Convert_From_Discrete
07ab 5818       |X   |		Indirect_Literal	Float,0x7c4,3.0517578125e-05
07ac 023b       | ;  |		Execute	Float,Times
07ad 581a       |X   |		Indirect_Literal	Float,0x7c8,100.0
07ae 023b       | ;  |		Execute	Float,Times
07af 4801       |H   |		Short_Literal	0x1
07b0 e603       |    |		Load	0x3,0x3
07b1 01d7       |    |		Execute	Vector,Field_Read
07b2 0237       | 7  |		Execute	Float,Convert_From_Discrete
07b3 5810       |X   |		Indirect_Literal	Float,0x7c4,3.0517578125e-05
07b4 023b       | ;  |		Execute	Float,Times
07b5 023a       | :  |		Execute	Float,Divide
07b6 023c       | <  |		Execute	Float,Minus
07b7 e006       |    |		Load	0x0,0x6
07b8 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
07b9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07ba			TRAP_07a0:
07ba 0007       |    |		Action	Break_Optional
07bb 4800       |H   |		Short_Literal	0x0
07bc 4801       |H   |		Short_Literal	0x1
07bd 4809       |H   |		Short_Literal	0x9
07be 5809       |X   |		Indirect_Literal	Float,0x7c8,100.0
07bf e006       |    |		Load	0x0,0x6
07c0 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
07c1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07c2 0000 0000  |    |		.XXX[0x2]
07c4 3f00 0000  |?   |		.DBL	3.0517578125e-05
07c6 0000 0000  |    |
07c8 4059 0000  |@Y  |		.DBL	100.0
07ca 0000 0000  |    |
07cc 0000 0000  |    |		.BLANK	0000[0x4]
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d3       |    |		.CONST	0x07d3								; Address of begin
07d1 07ec       |    |		.CONST	0x07ec								; Address of exception handler
07d2 0001       |    |		.CONST	0x0001								; Number of locals
07d3			BODY_07d0:
07d3			INIT_07d0:
07d3 4800       |H   |		Short_Literal	0x0
07d4 4801       |H   |		Short_Literal	0x1
07d5 4809       |H   |		Short_Literal	0x9
07d6 5ff1       |_   |		Indirect_Literal	Float,0x7c8,100.0
07d7 e607       |    |		Load	0x3,0x7
07d8 0237       | 7  |		Execute	Float,Convert_From_Discrete
07d9 5fea       |_   |		Indirect_Literal	Float,0x7c4,3.0517578125e-05
07da 023b       | ;  |		Execute	Float,Times
07db 5fec       |_   |		Indirect_Literal	Float,0x7c8,100.0
07dc 023b       | ;  |		Execute	Float,Times
07dd 4800       |H   |		Short_Literal	0x0
07de e603       |    |		Load	0x3,0x3
07df 01d7       |    |		Execute	Vector,Field_Read
07e0 4801       |H   |		Short_Literal	0x1
07e1 e603       |    |		Load	0x3,0x3
07e2 01d7       |    |		Execute	Vector,Field_Read
07e3 0273       | s  |		Execute	Discrete,Plus
07e4 0237       | 7  |		Execute	Float,Convert_From_Discrete
07e5 5fde       |_   |		Indirect_Literal	Float,0x7c4,3.0517578125e-05
07e6 023b       | ;  |		Execute	Float,Times
07e7 023a       | :  |		Execute	Float,Divide
07e8 023c       | <  |		Execute	Float,Minus
07e9 e006       |    |		Load	0x0,0x6
07ea 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
07eb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07ec			TRAP_07d0:
07ec 0007       |    |		Action	Break_Optional
07ed 4800       |H   |		Short_Literal	0x0
07ee 4801       |H   |		Short_Literal	0x1
07ef 4809       |H   |		Short_Literal	0x9
07f0 5fd7       |_   |		Indirect_Literal	Float,0x7c8,100.0
07f1 e006       |    |		Load	0x0,0x6
07f2 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
07f3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07f4 0000 0000  |    |		.BLANK	0000[0x4]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb       |    |		.CONST	0x07fb								; Address of begin
07f9 0812       |    |		.CONST	0x0812								; Address of exception handler
07fa 0001       |    |		.CONST	0x0001								; Number of locals
07fb			BODY_07f8:
07fb			INIT_07f8:
07fb 4800       |H   |		Short_Literal	0x0
07fc 4801       |H   |		Short_Literal	0x1
07fd 4809       |H   |		Short_Literal	0x9
07fe 5821       |X!  |		Indirect_Literal	Float,0x820,100.0
07ff 4800       |H   |		Short_Literal	0x0
0800 e602       |    |		Load	0x3,0x2
0801 01d7       |    |		Execute	Vector,Field_Read
0802 0237       | 7  |		Execute	Float,Convert_From_Discrete
0803 5818       |X   |		Indirect_Literal	Float,0x81c,3.0517578125e-05
0804 023b       | ;  |		Execute	Float,Times
0805 581a       |X   |		Indirect_Literal	Float,0x820,100.0
0806 023b       | ;  |		Execute	Float,Times
0807 4800       |H   |		Short_Literal	0x0
0808 e603       |    |		Load	0x3,0x3
0809 01d7       |    |		Execute	Vector,Field_Read
080a 0237       | 7  |		Execute	Float,Convert_From_Discrete
080b 5810       |X   |		Indirect_Literal	Float,0x81c,3.0517578125e-05
080c 023b       | ;  |		Execute	Float,Times
080d 023a       | :  |		Execute	Float,Divide
080e 023c       | <  |		Execute	Float,Minus
080f e006       |    |		Load	0x0,0x6
0810 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0811 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0812			TRAP_07f8:
0812 0007       |    |		Action	Break_Optional
0813 4800       |H   |		Short_Literal	0x0
0814 4801       |H   |		Short_Literal	0x1
0815 4809       |H   |		Short_Literal	0x9
0816 5809       |X   |		Indirect_Literal	Float,0x820,100.0
0817 e006       |    |		Load	0x0,0x6
0818 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0819 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
081a 0000 0000  |    |		.XXX[0x2]
081c 3f00 0000  |?   |		.DBL	3.0517578125e-05
081e 0000 0000  |    |
0820 4059 0000  |@Y  |		.DBL	100.0
0822 0000 0000  |    |
0824 0000 0000  |    |		.BLANK	0000[0x4]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b       | +  |		.CONST	0x082b								; Address of begin
0829 0842       | B  |		.CONST	0x0842								; Address of exception handler
082a 0001       |    |		.CONST	0x0001								; Number of locals
082b			BODY_0828:
082b			INIT_0828:
082b 4800       |H   |		Short_Literal	0x0
082c 4801       |H   |		Short_Literal	0x1
082d 4809       |H   |		Short_Literal	0x9
082e 5ff1       |_   |		Indirect_Literal	Float,0x820,100.0
082f 4801       |H   |		Short_Literal	0x1
0830 e602       |    |		Load	0x3,0x2
0831 01d7       |    |		Execute	Vector,Field_Read
0832 0237       | 7  |		Execute	Float,Convert_From_Discrete
0833 5fe8       |_   |		Indirect_Literal	Float,0x81c,3.0517578125e-05
0834 023b       | ;  |		Execute	Float,Times
0835 5fea       |_   |		Indirect_Literal	Float,0x820,100.0
0836 023b       | ;  |		Execute	Float,Times
0837 4801       |H   |		Short_Literal	0x1
0838 e603       |    |		Load	0x3,0x3
0839 01d7       |    |		Execute	Vector,Field_Read
083a 0237       | 7  |		Execute	Float,Convert_From_Discrete
083b 5fe0       |_   |		Indirect_Literal	Float,0x81c,3.0517578125e-05
083c 023b       | ;  |		Execute	Float,Times
083d 023a       | :  |		Execute	Float,Divide
083e 023c       | <  |		Execute	Float,Minus
083f e006       |    |		Load	0x0,0x6
0840 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0841 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0842			TRAP_0828:
0842 0007       |    |		Action	Break_Optional
0843 4800       |H   |		Short_Literal	0x0
0844 4801       |H   |		Short_Literal	0x1
0845 4809       |H   |		Short_Literal	0x9
0846 5fd9       |_   |		Indirect_Literal	Float,0x820,100.0
0847 e006       |    |		Load	0x0,0x6
0848 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0849 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
084a 0000 0000  |    |		.BLANK	0000[0x6]
0850 ; --------------------------------------------------------------------------------------
0850 ; SUBPROGRAM
0850 ; --------------------------------------------------------------------------------------
0850 0853       | S  |		.CONST	0x0853								; Address of begin
0851 086c       | l  |		.CONST	0x086c								; Address of exception handler
0852 0001       |    |		.CONST	0x0001								; Number of locals
0853			BODY_0850:
0853			INIT_0850:
0853 4800       |H   |		Short_Literal	0x0
0854 4801       |H   |		Short_Literal	0x1
0855 4809       |H   |		Short_Literal	0x9
0856 5821       |X!  |		Indirect_Literal	Float,0x878,100.0
0857 e605       |    |		Load	0x3,0x5
0858 0237       | 7  |		Execute	Float,Convert_From_Discrete
0859 581a       |X   |		Indirect_Literal	Float,0x874,3.0517578125e-05
085a 023b       | ;  |		Execute	Float,Times
085b 581c       |X   |		Indirect_Literal	Float,0x878,100.0
085c 023b       | ;  |		Execute	Float,Times
085d 4800       |H   |		Short_Literal	0x0
085e e603       |    |		Load	0x3,0x3
085f 01d7       |    |		Execute	Vector,Field_Read
0860 4801       |H   |		Short_Literal	0x1
0861 e603       |    |		Load	0x3,0x3
0862 01d7       |    |		Execute	Vector,Field_Read
0863 0273       | s  |		Execute	Discrete,Plus
0864 0237       | 7  |		Execute	Float,Convert_From_Discrete
0865 580e       |X   |		Indirect_Literal	Float,0x874,3.0517578125e-05
0866 023b       | ;  |		Execute	Float,Times
0867 023a       | :  |		Execute	Float,Divide
0868 023c       | <  |		Execute	Float,Minus
0869 e006       |    |		Load	0x0,0x6
086a 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
086b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
086c			TRAP_0850:
086c 0007       |    |		Action	Break_Optional
086d 4800       |H   |		Short_Literal	0x0
086e 4801       |H   |		Short_Literal	0x1
086f 4809       |H   |		Short_Literal	0x9
0870 5807       |X   |		Indirect_Literal	Float,0x878,100.0
0871 e006       |    |		Load	0x0,0x6
0872 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0873 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0874 3f00 0000  |?   |		.DBL	3.0517578125e-05
0876 0000 0000  |    |
0878 4059 0000  |@Y  |		.DBL	100.0
087a 0000 0000  |    |
087c ; --------------------------------------------------------------------------------------
087c ; STRING TABLE
087c ; --------------------------------------------------------------------------------------
087c 0078       | x  |		.STRTAB	0x0078->0x08b8							; "NONE"
087d 007a       | z  |		.STRTAB	0x007a->0x08ba							; "MONDAY"
087e 007e       | ~  |		.STRTAB	0x007e->0x08bd							; "TUESDAY"
087f 0083       |    |		.STRTAB	0x0083->0x08c0							; "WEDNESDAY"
0880 008a       |    |		.STRTAB	0x008a->0x08c5							; "THURSDAY"
0881 0090       |    |		.STRTAB	0x0090->0x08c9							; "FRIDAY"
0882 0094       |    |		.STRTAB	0x0094->0x08cc							; "SATURDAY"
0883 009a       |    |		.STRTAB	0x009a->0x08d0							; "SUNDAY"
0884 009e       |    |		.STRTAB	0x009e->0x08d3							; "PMH"
0885 009f       |    |		.STRTAB	0x009f->0x08d4							; "PMS"
0886 00a0       |    |		.STRTAB	0x00a0->0x08d6							; "HWC"
0887 00a1       |    |		.STRTAB	0x00a1->0x08d7							; "SWC"
0888 00a2       |    |		.STRTAB	0x00a2->0x08d9							; "CRASH"
0889 00a5       |    |		.STRTAB	0x00a5->0x08db							; "HANG"
088a 00a7       |    |		.STRTAB	0x00a7->0x08dd							; "MAINT"
088b 00aa       |    |		.STRTAB	0x00aa->0x08e0							; "RELEASE"
088c 00af       |    |		.STRTAB	0x00af->0x08e3							; "UCC"
088d 00b0       |    |		.STRTAB	0x00b0->0x08e5							; "COPS"
088e 00b2       |    |		.STRTAB	0x00b2->0x08e7							; "CSD"
088f 00b3       |    |		.STRTAB	0x00b3->0x08e8							; "OTHER"
0890 00b6       |    |		.STRTAB	0x00b6->0x08eb							; "CONTRACT"
0891 00bc       |    |		.STRTAB	0x00bc->0x08ef							; "NON_CONTRACT"
0892 00c6       |    |		.STRTAB	0x00c6->0x08f5							; "NONE"
0893 00c8       |    |		.STRTAB	0x00c8->0x08f7							; "MONDAY"
0894 00cc       |    |		.STRTAB	0x00cc->0x08fa							; "TUESDAY"
0895 00d1       |    |		.STRTAB	0x00d1->0x08fd							; "WEDNESDAY"
0896 00d8       |    |		.STRTAB	0x00d8->0x0902							; "THURSDAY"
0897 00de       |    |		.STRTAB	0x00de->0x0906							; "FRIDAY"
0898 00e2       |    |		.STRTAB	0x00e2->0x0909							; "SATURDAY"
0899 00e8       |    |		.STRTAB	0x00e8->0x090d							; "SUNDAY"
089a 00ec       |    |		.STRTAB	0x00ec->0x0910							; "<MINUS_30_DAYS>"
089b 00f9       |    |		.STRTAB	0x00f9->0x0917							; "<TODAY>"
089c 00fe       |    |		.STRTAB	0x00fe->0x091b							; "Cannot calculate Availability, Starting Date = Ending Date"
089d 0136       | 6  |		.STRTAB	0x0136->0x0938							; "!Machine.Contract_Hours"
089e 014b       | K  |		.STRTAB	0x014b->0x0943							; "others => Unspecified"
089f 015e       | ^  |		.STRTAB	0x015e->0x094e							; "24:00"
08a0 0161       | a  |		.STRTAB	0x0161->0x0950							; "*** Error Parsing !Machine.Contract_Hours"
08a1 0188       |    |		.STRTAB	0x0188->0x0965							; "    Using default contract hours."
08a2 01a7       |    |		.STRTAB	0x01a7->0x0975							; "System  Availability Report from "
08a3 01c6       |    |		.STRTAB	0x01c6->0x0986							; " to "
08a4 01c8       |    |		.STRTAB	0x01c8->0x0988							; " ["
08a5 01c8       |    |		.STRTAB	0x01c8->0x0989							; "Total Contract Hours     :"
08a6 01e0       |    |		.STRTAB	0x01e0->0x0996							; "Total Non Contract Hours :"
08a7 01f8       |    |		.STRTAB	0x01f8->0x09a3							; "                           =========="
08a8 021b       |    |		.STRTAB	0x021b->0x09b5							; "Total Hours              :"
08a9 0233       | 3  |		.STRTAB	0x0233->0x09c2							; "Contract"
08aa 0239       | 9  |		.STRTAB	0x0239->0x09c6							; "Non Con"
08ab 023e       | >  |		.STRTAB	0x023e->0x09ca							; "Total"
08ac 0241       | A  |		.STRTAB	0x0241->0x09cc							; " :"
08ad 0241       | A  |		.STRTAB	0x0241->0x09cd							; "========"
08ae 0247       | G  |		.STRTAB	0x0247->0x09d1							; "Total :"
08af 024c       | L  |		.STRTAB	0x024c->0x09d5							; "Available :"
08b0 0255       | U  |		.STRTAB	0x0255->0x09da							; "Grand Total"
08b1 025e       | ^  |		.STRTAB	0x025e->0x09e0							; "Uptime :"
08b2 0264       | d  |		.STRTAB	0x0264->0x09e4							; "Contract Hours"
08b3 0270       | p  |		.STRTAB	0x0270->0x09eb							; "=============="
08b4 027c       | |  |		.STRTAB	0x027c->0x09f2							; "    "
08b5 027e       | ~  |		.STRTAB	0x027e->0x09f4							; " : "
08b6 027f       |    |		.STRTAB	0x027f->0x09f5							; "None"
08b7 0281       |    |		.STREND 0x0281->0x09f7
08b8 4e4f 4e45  |NONE|		.STRTAB_STRINGS
09f8 ; --------------------------------------------------------------------------------------
09f8 ; Debug Table
09f8 ; --------------------------------------------------------------------------------------
09f8 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x402f,0x0000,0x0001,0x0000
09fe 29a8 a00f  |)   |		.XXX[0x2]