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

⟦534c07622⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 09d0       |    |		.CONST	0x09d0								; 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 009b       |    |		.CONST	0x009b								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 001a       |    |		.CONST	0x001a								; Number of locals
001b			INIT_0018:
001b e002       |    |		Load	0x0,0x2
001c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001d 02c7       |    |		Declare_Variable	Any
001e 60b1       |`   |		Indirect_Literal	Discrete,0xd0,{0x00000013, 0xc6800000}
001f e002       |    |		Load	0x0,0x2
0020 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0021 e002       |    |		Load	0x0,0x2
0022 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0023 0092 0872  |   r|		Action	Push_String_Extended,0x872					; "<MINUS_30_DAYS>"
0025 e5ff       |    |		Load	0x2,-0x1
0026 8003       |    |		Call	0x0,0x3
0027 8004       |    |		Call	0x0,0x4
0028 a402       |    |		Store_Unchecked	0x2,0x2
0029 e002       |    |		Load	0x0,0x2
002a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002b 02c7       |    |		Declare_Variable	Any
002c e002       |    |		Load	0x0,0x2
002d 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
002e 0092 0873  |   s|		Action	Push_String_Extended,0x873					; "<TODAY>"
0030 e5fe       |    |		Load	0x2,-0x2
0031 8003       |    |		Call	0x0,0x3
0032 8004       |    |		Call	0x0,0x4
0033 a403       |    |		Store_Unchecked	0x2,0x3
0034 00e7       |    |		Load_Encached	Duration_Cache
0035 e005       |    |		Load	0x0,0x5
0036 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0037 02c7       |    |		Declare_Variable	Any
0038 00d8       |    |		Load_Top	At_Offset_0
0039 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003a e006       |    |		Load	0x0,0x6
003b 0007       |    |		Action	Break_Optional
003c e007       |    |		Load	0x0,0x7
003d 0322       | "  |		Declare_Variable	Record
003e 4800       |H   |		Short_Literal	0x0
003f 4807       |H   |		Short_Literal	0x7
0040 029f 00db  |    |		Declare_Subprogram	INIT_00d8,For_Call
0042 03fd       |    |		Declare_Type	Discrete,Defined
0043 4800       |H   |		Short_Literal	0x0
0044 480b       |H   |		Short_Literal	0xb
0045 029f 0103  |    |		Declare_Subprogram	INIT_0100,For_Call
0047 03fd       |    |		Declare_Type	Discrete,Defined
0048 4809       |H   |		Short_Literal	0x9
0049 480b       |H   |		Short_Literal	0xb
004a e409       |    |		Load	0x2,0x9
004b 03f8       |    |		Declare_Type	Discrete,Constrained
004c 4800       |H   |		Short_Literal	0x0
004d 4808       |H   |		Short_Literal	0x8
004e e409       |    |		Load	0x2,0x9
004f 03f8       |    |		Declare_Type	Discrete,Constrained
0050 4800       |H   |		Short_Literal	0x0
0051 4801       |H   |		Short_Literal	0x1
0052 029f 012b  |   +|		Declare_Subprogram	INIT_0128,For_Call
0054 03fd       |    |		Declare_Type	Discrete,Defined
0055 00d8       |    |		Load_Top	At_Offset_0
0056 0266       | f  |		Execute	Discrete,Bounds
0057 00e7       |    |		Load_Encached	Duration_Cache
0058 02a0       |    |		Declare_Subprogram	Null_Subprogram
0059 4801       |H   |		Short_Literal	0x1
005a 035d       | ]  |		Declare_Type	Array,Defined
005b e409       |    |		Load	0x2,0x9
005c 0266       | f  |		Execute	Discrete,Bounds
005d e40d       |    |		Load	0x2,0xd
005e 02a0       |    |		Declare_Subprogram	Null_Subprogram
005f 4801       |H   |		Short_Literal	0x1
0060 035d       | ]  |		Declare_Type	Array,Defined
0061 00e7       |    |		Load_Encached	Duration_Cache
0062 00e7       |    |		Load_Encached	Duration_Cache
0063 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
0065 4802       |H   |		Short_Literal	0x2
0066 032d       | -  |		Declare_Type	Record,Defined
0067 4801       |H   |		Short_Literal	0x1
0068 4807       |H   |		Short_Literal	0x7
0069 e40f       |    |		Load	0x2,0xf
006a 029f 0163  |   c|		Declare_Subprogram	INIT_0160,For_Call
006c 4801       |H   |		Short_Literal	0x1
006d 035d       | ]  |		Declare_Type	Array,Defined
006e e40e       |    |		Load	0x2,0xe
006f 0337       | 7  |		Declare_Variable	Array
0070 00d8       |    |		Load_Top	At_Offset_0
0071 0335       | 5  |		Declare_Variable	Array,Duplicate
0072 00cd       |    |		Action	Spare6_Action
0073 480b       |H   |		Short_Literal	0xb
0074 4800       |H   |		Short_Literal	0x0
0075 e40d       |    |		Load	0x2,0xd
0076 0337       | 7  |		Declare_Variable	Array
0077 4800       |H   |		Short_Literal	0x0
0078 4800       |H   |		Short_Literal	0x0
0079 e415       |    |		Load	0x2,0x15
007a 01d6       |    |		Execute	Vector,Field_Write
007b 4800       |H   |		Short_Literal	0x0
007c 4801       |H   |		Short_Literal	0x1
007d e415       |    |		Load	0x2,0x15
007e 01d6       |    |		Execute	Vector,Field_Write
007f e40d       |    |		Load	0x2,0xd
0080 0119       |    |		Execute	Any,Check_In_Formal_Type
0081 e414       |    |		Load	0x2,0x14
0082 e412       |    |		Load	0x2,0x12
0083 01d6       |    |		Execute	Vector,Field_Write
0084 3ff0       |?   |		Loop_Increasing	0x75
0085 e411       |    |		Load	0x2,0x11
0086 01d4       |    |		Execute	Vector,Structure_Write
0087 e410       |    |		Load	0x2,0x10
0088 0337       | 7  |		Declare_Variable	Array
0089 00d8       |    |		Load_Top	At_Offset_0
008a 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008b 029f 017b  |   {|		Declare_Subprogram	INIT_0178,For_Call
008d 029f 027b  |   {|		Declare_Subprogram	INIT_0278,For_Call
008f 029f 036b  |   k|		Declare_Subprogram	INIT_0368,For_Call
0091 029f 0383  |    |		Declare_Subprogram	INIT_0380,For_Call
0093 029f 0393  |    |		Declare_Subprogram	INIT_0390,For_Call
0095 029f 03b3  |    |		Declare_Subprogram	INIT_03b0,For_Call
0097 029f 03e3  |    |		Declare_Subprogram	INIT_03e0,For_Call
0099 029f 060b  |    |		Declare_Subprogram	INIT_0608,For_Call
009b			BODY_0018:
009b 8413       |    |		Call	0x2,0x13
009c e412       |    |		Load	0x2,0x12
009d 01d4       |    |		Execute	Vector,Structure_Write
009e e402       |    |		Load	0x2,0x2
009f e403       |    |		Load	0x2,0x3
00a0 e002       |    |		Load	0x0,0x2
00a1 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00a2 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
00a3 6822       |h"  |		Jump_Zero	0xc6
00a4 e405       |    |		Load	0x2,0x5
00a5 00e7       |    |		Load_Encached	Duration_Cache
00a6 e5fc       |    |		Load	0x2,-0x4
00a7 4802       |H   |		Short_Literal	0x2
00a8 4801       |H   |		Short_Literal	0x1
00a9 4802       |H   |		Short_Literal	0x2
00aa e403       |    |		Load	0x2,0x3
00ab 8008       |    |		Call	0x0,0x8
00ac 4802       |H   |		Short_Literal	0x2
00ad 4801       |H   |		Short_Literal	0x1
00ae 4802       |H   |		Short_Literal	0x2
00af e402       |    |		Load	0x2,0x2
00b0 8008       |    |		Call	0x0,0x8
00b1 8009       |    |		Call	0x0,0x9
00b2 c404       |    |		Store	0x2,0x4
00b3 c405       |    |		Store	0x2,0x5
00b4 e006       |    |		Load	0x0,0x6
00b5 800a       |    |		Call	0x0,0xa
00b6 c406       |    |		Store	0x2,0x6
00b7 00cf       |    |		Action	Mark_Auxiliary
00b8 7807       |x   |		Jump	0xc0
00b9 e406       |    |		Load	0x2,0x6
00ba 800b       |    |		Call	0x0,0xb
00bb 8417       |    |		Call	0x2,0x17
00bc e406       |    |		Load	0x2,0x6
00bd 800c       |    |		Call	0x0,0xc
00be c406       |    |		Store	0x2,0x6
00bf 00c9       |    |		Action	Pop_Auxiliary_Loop
00c0 e406       |    |		Load	0x2,0x6
00c1 800d       |    |		Call	0x0,0xd
00c2 6ff6       |o   |		Jump_Zero	0xb9
00c3 00ce       |    |		Action	Pop_Auxiliary
00c4 8419       |    |		Call	0x2,0x19
00c5 7804       |x   |		Jump	0xca
00c6 0092 0874  |   t|		Action	Push_String_Extended,0x874					; "Cannot calculate Availability, Starting Date = Ending Date"
00c8 e00e       |    |		Load	0x0,0xe
00c9 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00ca e5fd       |    |		Load	0x2,-0x3
00cb 6802       |h   |		Jump_Zero	0xce
00cc e412       |    |		Load	0x2,0x12
00cd 841a       |    |		Call	0x2,0x1a
00ce 4505       |E   |		Exit_Suprogram	New_Top_Offset 0x5
00cf 0000       |    |		.XXX[0x1]
00d0 0000 0013  |    |		.LITERAL	{0x00000013, 0xc6800000}
00d4 0000 0000  |    |		.BLANK	0000[0x4]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 4607       |F   |		Jump_Case	0x8
00dc 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
00dd 7807       |x   |		Jump	0xe5								; case 0x1
00de 780a       |x   |		Jump	0xe9								; case 0x2
00df 780e       |x   |		Jump	0xee								; case 0x3
00e0 7811       |x   |		Jump	0xf2								; case 0x4
00e1 7812       |x   |		Jump	0xf4								; case 0x5
00e2 7813       |x   |		Jump	0xf6								; case 0x6
00e3 7816       |x   |		Jump	0xfa								; case 0x7
00e4 4302       |C   |		.XXX[0x1]
00e5 00da       |    |		Load_Top	At_Offset_2
00e6 0091 0854  |   T|		Action	Push_String_Extended_Indexed,0x854				; "NONE"
00e8 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00e9 00db       |    |		Load_Top	At_Offset_3
00ea 00db       |    |		Load_Top	At_Offset_3
00eb 00e0       |    |		Load_Encached	Standard_Cache
00ec 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00ed 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00ee 00da       |    |		Load_Top	At_Offset_2
00ef 00e0       |    |		Load_Encached	Standard_Cache
00f0 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00f1 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
00f2 00db       |    |		Load_Top	At_Offset_3
00f3 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f4 00db       |    |		Load_Top	At_Offset_3
00f5 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00f6 e408       |    |		Load	0x2,0x8
00f7 00dc       |    |		Load_Top	At_Offset_4
00f8 0267       | g  |		Execute	Discrete,Predecessor
00f9 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fa e408       |    |		Load	0x2,0x8
00fb 00dc       |    |		Load_Top	At_Offset_4
00fc 0268       | h  |		Execute	Discrete,Successor
00fd 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
00fe 0000 0000  |    |		.XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 4607       |F   |		Jump_Case	0x8
0104 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
0105 7807       |x   |		Jump	0x10d								; case 0x1
0106 780a       |x   |		Jump	0x111								; case 0x2
0107 780e       |x   |		Jump	0x116								; case 0x3
0108 7811       |x   |		Jump	0x11a								; case 0x4
0109 7812       |x   |		Jump	0x11c								; case 0x5
010a 7813       |x   |		Jump	0x11e								; case 0x6
010b 7816       |x   |		Jump	0x122								; case 0x7
010c 4302       |C   |		.XXX[0x1]
010d 00da       |    |		Load_Top	At_Offset_2
010e 0091 085c  |   \|		Action	Push_String_Extended_Indexed,0x85c				; "PMH"
0110 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0111 00db       |    |		Load_Top	At_Offset_3
0112 00db       |    |		Load_Top	At_Offset_3
0113 00e0       |    |		Load_Encached	Standard_Cache
0114 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0115 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0116 00da       |    |		Load_Top	At_Offset_2
0117 00e0       |    |		Load_Encached	Standard_Cache
0118 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0119 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
011a 00db       |    |		Load_Top	At_Offset_3
011b 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011c 00db       |    |		Load_Top	At_Offset_3
011d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
011e e409       |    |		Load	0x2,0x9
011f 00dc       |    |		Load_Top	At_Offset_4
0120 0267       | g  |		Execute	Discrete,Predecessor
0121 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0122 e409       |    |		Load	0x2,0x9
0123 00dc       |    |		Load_Top	At_Offset_4
0124 0268       | h  |		Execute	Discrete,Successor
0125 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0126 0000 0000  |    |		.XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b       | +  |		.CONST	0x012b								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0001       |    |		.CONST	0x0001								; Number of locals
012b			BODY_0128:
012b			INIT_0128:
012b 4607       |F   |		Jump_Case	0x8
012c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
012d 7807       |x   |		Jump	0x135								; case 0x1
012e 780a       |x   |		Jump	0x139								; case 0x2
012f 780e       |x   |		Jump	0x13e								; case 0x3
0130 7811       |x   |		Jump	0x142								; case 0x4
0131 7812       |x   |		Jump	0x144								; case 0x5
0132 7813       |x   |		Jump	0x146								; case 0x6
0133 7816       |x   |		Jump	0x14a								; case 0x7
0134 4302       |C   |		.XXX[0x1]
0135 00da       |    |		Load_Top	At_Offset_2
0136 0091 0868  |   h|		Action	Push_String_Extended_Indexed,0x868				; "CONTRACT"
0138 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0139 00db       |    |		Load_Top	At_Offset_3
013a 00db       |    |		Load_Top	At_Offset_3
013b 00e0       |    |		Load_Encached	Standard_Cache
013c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
013d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
013e 00da       |    |		Load_Top	At_Offset_2
013f 00e0       |    |		Load_Encached	Standard_Cache
0140 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0141 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0142 00db       |    |		Load_Top	At_Offset_3
0143 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0144 00db       |    |		Load_Top	At_Offset_3
0145 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0146 e40c       |    |		Load	0x2,0xc
0147 00dc       |    |		Load_Top	At_Offset_4
0148 0267       | g  |		Execute	Discrete,Predecessor
0149 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014a e40c       |    |		Load	0x2,0xc
014b 00dc       |    |		Load_Top	At_Offset_4
014c 0268       | h  |		Execute	Discrete,Successor
014d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
014e 0000 0000  |    |		.XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 4601       |F   |		Jump_Case	0x2
0154 7801       |x   |		Jump	0x156								; case 0x0
0155 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x1
0156 4800       |H   |		Short_Literal	0x0
0157 e7ff       |    |		Load	0x3,-0x1
0158 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0159 4800       |H   |		Short_Literal	0x0
015a e7ff       |    |		Load	0x3,-0x1
015b 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
015c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
015d 0000 0000  |    |		.XXX[0x3]
015f 0000       |    |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00d1       |    |		Pop_Control	Pop_Count_1
0164 e7ff       |    |		Load	0x3,-0x1
0165 01d8       |    |		Execute	Vector,Element_Type
0166 0322       | "  |		Declare_Variable	Record
0167 00d8       |    |		Load_Top	At_Offset_0
0168 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0169 e7ff       |    |		Load	0x3,-0x1
016a 01dc       |    |		Execute	Vector,Last
016b e7ff       |    |		Load	0x3,-0x1
016c 01dd       |    |		Execute	Vector,First
016d 0263       | c  |		Execute	Discrete,Above_Bound
016e 7006       |p   |		Jump_Nonzero	0x175
016f e602       |    |		Load	0x3,0x2
0170 e604       |    |		Load	0x3,0x4
0171 e7ff       |    |		Load	0x3,-0x1
0172 01d6       |    |		Execute	Vector,Field_Write
0173 0a01       |    |		Execute_Immediate	Plus,0x1
0174 7ff8       |    |		Jump	0x16d
0175 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0176 0000 0000  |    |		.XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 01ce       |    |		.CONST	0x01ce								; Address of begin
0179 024d       | M  |		.CONST	0x024d								; Address of exception handler
017a 000c       |    |		.CONST	0x000c								; Number of locals
017b			INIT_0178:
017b e410       |    |		Load	0x2,0x10
017c 0337       | 7  |		Declare_Variable	Array
017d 00d8       |    |		Load_Top	At_Offset_0
017e 0335       | 5  |		Declare_Variable	Array,Duplicate
017f 00cd       |    |		Action	Spare6_Action
0180 4805       |H   |		Short_Literal	0x5
0181 4801       |H   |		Short_Literal	0x1
0182 e40f       |    |		Load	0x2,0xf
0183 0322       | "  |		Declare_Variable	Record
0184 60ef       |`   |		Indirect_Literal	Discrete,0x274,{0x00000000, 0x38400000}
0185 e606       |    |		Load	0x3,0x6
0186 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0187 60e8       |`   |		Indirect_Literal	Discrete,0x270,{0x00000000, 0x7e900000}
0188 e606       |    |		Load	0x3,0x6
0189 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
018a e605       |    |		Load	0x3,0x5
018b e603       |    |		Load	0x3,0x3
018c 01d6       |    |		Execute	Vector,Field_Write
018d 3ff4       |?   |		Loop_Increasing	0x182
018e 4807       |H   |		Short_Literal	0x7
018f 4806       |H   |		Short_Literal	0x6
0190 e40f       |    |		Load	0x2,0xf
0191 0322       | "  |		Declare_Variable	Record
0192 4800       |H   |		Short_Literal	0x0
0193 e606       |    |		Load	0x3,0x6
0194 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0195 4800       |H   |		Short_Literal	0x0
0196 e606       |    |		Load	0x3,0x6
0197 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0198 e605       |    |		Load	0x3,0x5
0199 e603       |    |		Load	0x3,0x3
019a 01d6       |    |		Execute	Vector,Field_Write
019b 3ff4       |?   |		Loop_Increasing	0x190
019c e602       |    |		Load	0x3,0x2
019d 01d4       |    |		Execute	Vector,Structure_Write
019e e410       |    |		Load	0x2,0x10
019f 0337       | 7  |		Declare_Variable	Array
01a0 e602       |    |		Load	0x3,0x2
01a1 e603       |    |		Load	0x3,0x3
01a2 01d4       |    |		Execute	Vector,Structure_Write
01a3 0092 0875  |   u|		Action	Push_String_Extended,0x875					; "!Machine.Contract_Hours"
01a5 e00e       |    |		Load	0x0,0xe
01a6 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a7 02c7       |    |		Declare_Variable	Any
01a8 00d8       |    |		Load_Top	At_Offset_0
01a9 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01aa 4800       |H   |		Short_Literal	0x0
01ab 4807       |H   |		Short_Literal	0x7
01ac 029f 065b  |   [|		Declare_Subprogram	INIT_0658,For_Call
01ae 03fd       |    |		Declare_Type	Discrete,Defined
01af e00f       |    |		Load	0x0,0xf
01b0 e010       |    |		Load	0x0,0x10
01b1 e606       |    |		Load	0x3,0x6
01b2 4800       |H   |		Short_Literal	0x0
01b3 4801       |H   |		Short_Literal	0x1
01b4 4807       |H   |		Short_Literal	0x7
01b5 0092 0876  |   v|		Action	Push_String_Extended,0x876					; "others => Unspecified"
01b7 00ea       |    |		Load_Encached	Null_String_Cache
01b8 00ea       |    |		Load_Encached	Null_String_Cache
01b9 4801       |H   |		Short_Literal	0x1
01ba 4807       |H   |		Short_Literal	0x7
01bb e011       |    |		Load	0x0,0x11
01bc 0387       |    |		Declare_Variable	Package
01bd 00d8       |    |		Load_Top	At_Offset_0
01be 020f       |    |		Execute	Module,Activate
01bf 00d8       |    |		Load_Top	At_Offset_0
01c0 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
01c1 e607       |    |		Load	0x3,0x7
01c2 1b1e       |    |		Execute	Package,Field_Read,Field_Number 0x1e
01c3 e40f       |    |		Load	0x2,0xf
01c4 0322       | "  |		Declare_Variable	Record
01c5 00d8       |    |		Load_Top	At_Offset_0
01c6 1c00       |    |		Execute_Immediate	Run_Utility,0x0
01c7 e012       |    |		Load	0x0,0x12
01c8 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
01c9 0093 0000  |    |		push_full_address	0x0
01cb 60a0       |`   |		Indirect_Literal	Discrete,0x26c,{0x80000000, 0x00010000}
01cc 0273       | s  |		Execute	Discrete,Plus
01cd 0007       |    |		Action	Break_Optional
01ce			BODY_0178:
01ce e605       |    |		Load	0x3,0x5
01cf 00ea       |    |		Load_Encached	Null_String_Cache
01d0 e604       |    |		Load	0x3,0x4
01d1 4800       |H   |		Short_Literal	0x0
01d2 e00e       |    |		Load	0x0,0xe
01d3 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01d4 c605       |    |		Store	0x3,0x5
01d5 00cf       |    |		Action	Mark_Auxiliary
01d6 786b       |xk  |		Jump	0x242
01d7 e605       |    |		Load	0x3,0x5
01d8 e00e       |    |		Load	0x0,0xe
01d9 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
01da e607       |    |		Load	0x3,0x7
01db 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01dc a608       |    |		Store_Unchecked	0x3,0x8
01dd e608       |    |		Load	0x3,0x8
01de e607       |    |		Load	0x3,0x7
01df 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
01e0 7002       |p   |		Jump_Nonzero	0x1e3
01e1 e60c       |    |		Load	0x3,0xc
01e2 0257       | W  |		Execute	Discrete,Raise
01e3 00cf       |    |		Action	Mark_Auxiliary
01e4 7857       |xW  |		Jump	0x23c
01e5 e608       |    |		Load	0x3,0x8
01e6 e607       |    |		Load	0x3,0x7
01e7 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
01e8 00d8       |    |		Load_Top	At_Offset_0
01e9 e012       |    |		Load	0x0,0x12
01ea 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
01eb 0260       | `  |		Execute	Discrete,In_Type
01ec 7001       |p   |		Jump_Nonzero	0x1ee
01ed 0801       |    |		Execute_Immediate	Raise,0x1
01ee a60b       |    |		Store_Unchecked	0x3,0xb
01ef 00ea       |    |		Load_Encached	Null_String_Cache
01f0 4800       |H   |		Short_Literal	0x0
01f1 e608       |    |		Load	0x3,0x8
01f2 e607       |    |		Load	0x3,0x7
01f3 182b       | +  |		Execute	Package,Field_Execute,Field_Number 0x2b
01f4 e607       |    |		Load	0x3,0x7
01f5 1820       |    |		Execute	Package,Field_Execute,Field_Number 0x20
01f6 a609       |    |		Store_Unchecked	0x3,0x9
01f7 e609       |    |		Load	0x3,0x9
01f8 e607       |    |		Load	0x3,0x7
01f9 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
01fa 6802       |h   |		Jump_Zero	0x1fd
01fb e60c       |    |		Load	0x3,0xc
01fc 0257       | W  |		Execute	Discrete,Raise
01fd 4800       |H   |		Short_Literal	0x0
01fe e609       |    |		Load	0x3,0x9
01ff e607       |    |		Load	0x3,0x7
0200 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0201 e012       |    |		Load	0x0,0x12
0202 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0203 e012       |    |		Load	0x0,0x12
0204 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0205 e002       |    |		Load	0x0,0x2
0206 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0207 e60a       |    |		Load	0x3,0xa
0208 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0209 e609       |    |		Load	0x3,0x9
020a e607       |    |		Load	0x3,0x7
020b 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
020c c609       |    |		Store	0x3,0x9
020d e609       |    |		Load	0x3,0x9
020e e607       |    |		Load	0x3,0x7
020f 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0210 6802       |h   |		Jump_Zero	0x213
0211 e60c       |    |		Load	0x3,0xc
0212 0257       | W  |		Execute	Discrete,Raise
0213 4800       |H   |		Short_Literal	0x0
0214 e609       |    |		Load	0x3,0x9
0215 e607       |    |		Load	0x3,0x7
0216 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0217 0092 0877  |   w|		Action	Push_String_Extended,0x877					; "24:00"
0219 01df       |    |		Execute	Vector,Equal
021a 6804       |h   |		Jump_Zero	0x21f
021b 604c       |`L  |		Indirect_Literal	Discrete,0x268,{0x00000000, 0xa8c00000}
021c e60a       |    |		Load	0x3,0xa
021d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
021e 780c       |x   |		Jump	0x22b
021f 4800       |H   |		Short_Literal	0x0
0220 e609       |    |		Load	0x3,0x9
0221 e607       |    |		Load	0x3,0x7
0222 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
0223 e012       |    |		Load	0x0,0x12
0224 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0225 e012       |    |		Load	0x0,0x12
0226 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0227 e002       |    |		Load	0x0,0x2
0228 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0229 e60a       |    |		Load	0x3,0xa
022a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
022b e60a       |    |		Load	0x3,0xa
022c 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
022d e60a       |    |		Load	0x3,0xa
022e 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
022f 027d       | }  |		Execute	Discrete,Greater
0230 6802       |h   |		Jump_Zero	0x233
0231 e60c       |    |		Load	0x3,0xc
0232 0257       | W  |		Execute	Discrete,Raise
0233 e60a       |    |		Load	0x3,0xa
0234 e60b       |    |		Load	0x3,0xb
0235 e603       |    |		Load	0x3,0x3
0236 01d6       |    |		Execute	Vector,Field_Write
0237 e608       |    |		Load	0x3,0x8
0238 e607       |    |		Load	0x3,0x7
0239 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
023a c608       |    |		Store	0x3,0x8
023b 00c9       |    |		Action	Pop_Auxiliary_Loop
023c e608       |    |		Load	0x3,0x8
023d e607       |    |		Load	0x3,0x7
023e 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
023f 6fa5       |o   |		Jump_Zero	0x1e5
0240 00ce       |    |		Action	Pop_Auxiliary
0241 00c9       |    |		Action	Pop_Auxiliary_Loop
0242 e605       |    |		Load	0x3,0x5
0243 e00e       |    |		Load	0x0,0xe
0244 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0245 6f91       |o   |		Jump_Zero	0x1d7
0246 00ce       |    |		Action	Pop_Auxiliary
0247 e605       |    |		Load	0x3,0x5
0248 e00e       |    |		Load	0x0,0xe
0249 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
024a c605       |    |		Store	0x3,0x5
024b e603       |    |		Load	0x3,0x3
024c 00ca       |    |		Action	Exit_Nullary_Function
024d			TRAP_0178:
024d 00d8       |    |		Load_Top	At_Offset_0
024e 0107       |    |		Execute	Exception,Get_Name
024f 4920       |I   |		Short_Literal	0x120
0250 492f       |I/  |		Short_Literal	0x12f
0251 0262       | b  |		Execute	Discrete,In_Range
0252 6802       |h   |		Jump_Zero	0x255
0253 e602       |    |		Load	0x3,0x2
0254 00ca       |    |		Action	Exit_Nullary_Function
0255 e605       |    |		Load	0x3,0x5
0256 e00e       |    |		Load	0x0,0xe
0257 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0258 6804       |h   |		Jump_Zero	0x25d
0259 e605       |    |		Load	0x3,0x5
025a e00e       |    |		Load	0x0,0xe
025b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
025c c605       |    |		Store	0x3,0x5
025d 0092 0878  |   x|		Action	Push_String_Extended,0x878					; "*** Error Parsing !Machine.Contract_Hours"
025f e00e       |    |		Load	0x0,0xe
0260 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0261 0092 0879  |   y|		Action	Push_String_Extended,0x879					; "    Using default contract hours."
0263 e00e       |    |		Load	0x0,0xe
0264 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0265 e602       |    |		Load	0x3,0x2
0266 00ca       |    |		Action	Exit_Nullary_Function
0267 0000       |    |		.XXX[0x1]
0268 0000 0000  |    |		.LITERAL	{0x00000000, 0xa8c00000}
026c 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0270 0000 0000  |    |		.LITERAL	{0x00000000, 0x7e900000}
0274 0000 0000  |    |		.LITERAL	{0x00000000, 0x38400000}
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 02a2       |    |		.CONST	0x02a2								; Address of begin
0279 0004       |    |		.CONST	0x0004								; Address of exception handler
027a 0007       |    |		.CONST	0x0007								; Number of locals
027b			INIT_0278:
027b e7ff       |    |		Load	0x3,-0x1
027c e012       |    |		Load	0x0,0x12
027d 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
027e e012       |    |		Load	0x0,0x12
027f 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
0280 03f1       |    |		Declare_Variable	Discrete,With_Value
0281 e002       |    |		Load	0x0,0x2
0282 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0283 02c7       |    |		Declare_Variable	Any
0284 e7ff       |    |		Load	0x3,-0x1
0285 a603       |    |		Store_Unchecked	0x3,0x3
0286 e7fe       |    |		Load	0x3,-0x2
0287 00e7       |    |		Load_Encached	Duration_Cache
0288 03f1       |    |		Declare_Variable	Discrete,With_Value
0289 e7ff       |    |		Load	0x3,-0x1
028a e002       |    |		Load	0x0,0x2
028b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
028c 00e7       |    |		Load_Encached	Duration_Cache
028d 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
028e 00d8       |    |		Load_Top	At_Offset_0
028f e604       |    |		Load	0x3,0x4
0290 0273       | s  |		Execute	Discrete,Plus
0291 00e7       |    |		Load_Encached	Duration_Cache
0292 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0293 e40d       |    |		Load	0x2,0xd
0294 0337       | 7  |		Declare_Variable	Array
0295 00d8       |    |		Load_Top	At_Offset_0
0296 0335       | 5  |		Declare_Variable	Array,Duplicate
0297 00cd       |    |		Action	Spare6_Action
0298 4800       |H   |		Short_Literal	0x0
0299 4800       |H   |		Short_Literal	0x0
029a e608       |    |		Load	0x3,0x8
029b 01d6       |    |		Execute	Vector,Field_Write
029c 4800       |H   |		Short_Literal	0x0
029d 4801       |H   |		Short_Literal	0x1
029e e608       |    |		Load	0x3,0x8
029f 01d6       |    |		Execute	Vector,Field_Write
02a0 e607       |    |		Load	0x3,0x7
02a1 01d4       |    |		Execute	Vector,Structure_Write
02a2			BODY_0278:
02a2 00cf       |    |		Action	Mark_Auxiliary
02a3 e604       |    |		Load	0x3,0x4
02a4 0d01       |    |		Execute_Immediate	Less,0x1
02a5 70bd       |p   |		Jump_Nonzero	0x363
02a6 e605       |    |		Load	0x3,0x5
02a7 e602       |    |		Load	0x3,0x2
02a8 e7fd       |    |		Load	0x3,-0x3
02a9 01d5       |    |		Execute	Vector,Field_Reference
02aa 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02ab 027a       | z  |		Execute	Discrete,Less_Equal
02ac e606       |    |		Load	0x3,0x6
02ad e602       |    |		Load	0x3,0x2
02ae e7fd       |    |		Load	0x3,-0x3
02af 01d5       |    |		Execute	Vector,Field_Reference
02b0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02b1 027b       | {  |		Execute	Discrete,Greater_Equal
02b2 0279       | y  |		Execute	Discrete,And
02b3 6875       |hu  |		Jump_Zero	0x329
02b4 e605       |    |		Load	0x3,0x5
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 027c       | |  |		Execute	Discrete,Less
02ba 681b       |h   |		Jump_Zero	0x2d6
02bb 4801       |H   |		Short_Literal	0x1
02bc e607       |    |		Load	0x3,0x7
02bd 01d7       |    |		Execute	Vector,Field_Read
02be e602       |    |		Load	0x3,0x2
02bf e7fd       |    |		Load	0x3,-0x3
02c0 01d5       |    |		Execute	Vector,Field_Reference
02c1 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02c2 e605       |    |		Load	0x3,0x5
02c3 0272       | r  |		Execute	Discrete,Minus
02c4 0273       | s  |		Execute	Discrete,Plus
02c5 4801       |H   |		Short_Literal	0x1
02c6 e607       |    |		Load	0x3,0x7
02c7 01d6       |    |		Execute	Vector,Field_Write
02c8 e604       |    |		Load	0x3,0x4
02c9 e602       |    |		Load	0x3,0x2
02ca e7fd       |    |		Load	0x3,-0x3
02cb 01d5       |    |		Execute	Vector,Field_Reference
02cc 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
02cd e605       |    |		Load	0x3,0x5
02ce 0272       | r  |		Execute	Discrete,Minus
02cf 0272       | r  |		Execute	Discrete,Minus
02d0 c604       |    |		Store	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 a605       |    |		Store_Unchecked	0x3,0x5
02d6 e606       |    |		Load	0x3,0x6
02d7 e602       |    |		Load	0x3,0x2
02d8 e7fd       |    |		Load	0x3,-0x3
02d9 01d5       |    |		Execute	Vector,Field_Reference
02da 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02db 027d       | }  |		Execute	Discrete,Greater
02dc 6843       |hC  |		Jump_Zero	0x320
02dd 4800       |H   |		Short_Literal	0x0
02de e607       |    |		Load	0x3,0x7
02df 01d7       |    |		Execute	Vector,Field_Read
02e0 e602       |    |		Load	0x3,0x2
02e1 e7fd       |    |		Load	0x3,-0x3
02e2 01d5       |    |		Execute	Vector,Field_Reference
02e3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02e4 e605       |    |		Load	0x3,0x5
02e5 0272       | r  |		Execute	Discrete,Minus
02e6 0273       | s  |		Execute	Discrete,Plus
02e7 4800       |H   |		Short_Literal	0x0
02e8 e607       |    |		Load	0x3,0x7
02e9 01d6       |    |		Execute	Vector,Field_Write
02ea e606       |    |		Load	0x3,0x6
02eb 677c       |g|  |		Indirect_Literal	Discrete,0x268,{0x00000000, 0xa8c00000}
02ec 027d       | }  |		Execute	Discrete,Greater
02ed 6824       |h$  |		Jump_Zero	0x312
02ee 4801       |H   |		Short_Literal	0x1
02ef e607       |    |		Load	0x3,0x7
02f0 01d7       |    |		Execute	Vector,Field_Read
02f1 6776       |gv  |		Indirect_Literal	Discrete,0x268,{0x00000000, 0xa8c00000}
02f2 e602       |    |		Load	0x3,0x2
02f3 e7fd       |    |		Load	0x3,-0x3
02f4 01d5       |    |		Execute	Vector,Field_Reference
02f5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
02f6 0272       | r  |		Execute	Discrete,Minus
02f7 0273       | s  |		Execute	Discrete,Plus
02f8 4801       |H   |		Short_Literal	0x1
02f9 e607       |    |		Load	0x3,0x7
02fa 01d6       |    |		Execute	Vector,Field_Write
02fb 676c       |gl  |		Indirect_Literal	Discrete,0x268,{0x00000000, 0xa8c00000}
02fc e605       |    |		Load	0x3,0x5
02fd 0272       | r  |		Execute	Discrete,Minus
02fe 00d8       |    |		Load_Top	At_Offset_0
02ff 00e7       |    |		Load_Encached	Duration_Cache
0300 0260       | `  |		Execute	Discrete,In_Type
0301 7001       |p   |		Jump_Nonzero	0x303
0302 0801       |    |		Execute_Immediate	Raise,0x1
0303 e603       |    |		Load	0x3,0x3
0304 e002       |    |		Load	0x0,0x2
0305 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0306 c603       |    |		Store	0x3,0x3
0307 e604       |    |		Load	0x3,0x4
0308 675f       |g_  |		Indirect_Literal	Discrete,0x268,{0x00000000, 0xa8c00000}
0309 e605       |    |		Load	0x3,0x5
030a 0272       | r  |		Execute	Discrete,Minus
030b 0272       | r  |		Execute	Discrete,Minus
030c c604       |    |		Store	0x3,0x4
030d 4800       |H   |		Short_Literal	0x0
030e a605       |    |		Store_Unchecked	0x3,0x5
030f e604       |    |		Load	0x3,0x4
0310 a606       |    |		Store_Unchecked	0x3,0x6
0311 784b       |xK  |		Jump	0x35d
0312 4801       |H   |		Short_Literal	0x1
0313 e607       |    |		Load	0x3,0x7
0314 01d7       |    |		Execute	Vector,Field_Read
0315 e606       |    |		Load	0x3,0x6
0316 0273       | s  |		Execute	Discrete,Plus
0317 e602       |    |		Load	0x3,0x2
0318 e7fd       |    |		Load	0x3,-0x3
0319 01d5       |    |		Execute	Vector,Field_Reference
031a 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
031b 0272       | r  |		Execute	Discrete,Minus
031c 4801       |H   |		Short_Literal	0x1
031d e607       |    |		Load	0x3,0x7
031e 01d6       |    |		Execute	Vector,Field_Write
031f 7843       |xC  |		Jump	0x363
0320 4800       |H   |		Short_Literal	0x0
0321 e607       |    |		Load	0x3,0x7
0322 01d7       |    |		Execute	Vector,Field_Read
0323 e604       |    |		Load	0x3,0x4
0324 0273       | s  |		Execute	Discrete,Plus
0325 4800       |H   |		Short_Literal	0x0
0326 e607       |    |		Load	0x3,0x7
0327 01d6       |    |		Execute	Vector,Field_Write
0328 783a       |x:  |		Jump	0x363
0329 e605       |    |		Load	0x3,0x5
032a e602       |    |		Load	0x3,0x2
032b e7fd       |    |		Load	0x3,-0x3
032c 01d5       |    |		Execute	Vector,Field_Reference
032d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
032e 027a       | z  |		Execute	Discrete,Less_Equal
032f e606       |    |		Load	0x3,0x6
0330 6737       |g7  |		Indirect_Literal	Discrete,0x268,{0x00000000, 0xa8c00000}
0331 027a       | z  |		Execute	Discrete,Less_Equal
0332 0278       | x  |		Execute	Discrete,Or
0333 6809       |h   |		Jump_Zero	0x33d
0334 4801       |H   |		Short_Literal	0x1
0335 e607       |    |		Load	0x3,0x7
0336 01d7       |    |		Execute	Vector,Field_Read
0337 e604       |    |		Load	0x3,0x4
0338 0273       | s  |		Execute	Discrete,Plus
0339 4801       |H   |		Short_Literal	0x1
033a e607       |    |		Load	0x3,0x7
033b 01d6       |    |		Execute	Vector,Field_Write
033c 7826       |x&  |		Jump	0x363
033d 4801       |H   |		Short_Literal	0x1
033e e607       |    |		Load	0x3,0x7
033f 01d7       |    |		Execute	Vector,Field_Read
0340 6727       |g'  |		Indirect_Literal	Discrete,0x268,{0x00000000, 0xa8c00000}
0341 e605       |    |		Load	0x3,0x5
0342 0272       | r  |		Execute	Discrete,Minus
0343 0273       | s  |		Execute	Discrete,Plus
0344 4801       |H   |		Short_Literal	0x1
0345 e607       |    |		Load	0x3,0x7
0346 01d6       |    |		Execute	Vector,Field_Write
0347 6720       |g   |		Indirect_Literal	Discrete,0x268,{0x00000000, 0xa8c00000}
0348 e605       |    |		Load	0x3,0x5
0349 0272       | r  |		Execute	Discrete,Minus
034a 00d8       |    |		Load_Top	At_Offset_0
034b 00e7       |    |		Load_Encached	Duration_Cache
034c 0260       | `  |		Execute	Discrete,In_Type
034d 7001       |p   |		Jump_Nonzero	0x34f
034e 0801       |    |		Execute_Immediate	Raise,0x1
034f e603       |    |		Load	0x3,0x3
0350 e002       |    |		Load	0x0,0x2
0351 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
0352 c603       |    |		Store	0x3,0x3
0353 e604       |    |		Load	0x3,0x4
0354 6713       |g   |		Indirect_Literal	Discrete,0x268,{0x00000000, 0xa8c00000}
0355 e605       |    |		Load	0x3,0x5
0356 0272       | r  |		Execute	Discrete,Minus
0357 0272       | r  |		Execute	Discrete,Minus
0358 c604       |    |		Store	0x3,0x4
0359 4800       |H   |		Short_Literal	0x0
035a a605       |    |		Store_Unchecked	0x3,0x5
035b e604       |    |		Load	0x3,0x4
035c a606       |    |		Store_Unchecked	0x3,0x6
035d e603       |    |		Load	0x3,0x3
035e e012       |    |		Load	0x0,0x12
035f 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0360 a602       |    |		Store_Unchecked	0x3,0x2
0361 00c9       |    |		Action	Pop_Auxiliary_Loop
0362 7f40       | @  |		Jump	0x2a3
0363 00ce       |    |		Action	Pop_Auxiliary
0364 00d8       |    |		Load_Top	At_Offset_0
0365 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0366 0000 0000  |    |		.XXX[0x2]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036d       | m  |		.CONST	0x036d								; Address of begin
0369 0004       |    |		.CONST	0x0004								; Address of exception handler
036a 0002       |    |		.CONST	0x0002								; Number of locals
036b			INIT_0368:
036b e40d       |    |		Load	0x2,0xd
036c 0337       | 7  |		Declare_Variable	Array
036d			BODY_0368:
036d 00cf       |    |		Action	Mark_Auxiliary
036e e40c       |    |		Load	0x2,0xc
036f 0265       | e  |		Execute	Discrete,Reverse_Bounds
0370 0007       |    |		Action	Break_Optional
0371 00d8       |    |		Load_Top	At_Offset_0
0372 e7ff       |    |		Load	0x3,-0x1
0373 01d7       |    |		Execute	Vector,Field_Read
0374 e605       |    |		Load	0x3,0x5
0375 e7fe       |    |		Load	0x3,-0x2
0376 01d7       |    |		Execute	Vector,Field_Read
0377 0273       | s  |		Execute	Discrete,Plus
0378 e605       |    |		Load	0x3,0x5
0379 e602       |    |		Load	0x3,0x2
037a 01d6       |    |		Execute	Vector,Field_Write
037b 00c8       |    |		Action	Pop_Auxiliary_Range
037c 3ff4       |?   |		Loop_Increasing	0x371
037d 00ce       |    |		Action	Pop_Auxiliary
037e 00d8       |    |		Load_Top	At_Offset_0
037f 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0383       |    |		.CONST	0x0383								; Address of begin
0381 0387       |    |		.CONST	0x0387								; Address of exception handler
0382 0001       |    |		.CONST	0x0001								; Number of locals
0383			BODY_0380:
0383			INIT_0380:
0383 e7ff       |    |		Load	0x3,-0x1
0384 e409       |    |		Load	0x2,0x9
0385 1c02       |    |		Execute_Immediate	Run_Utility,0x2
0386 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0387			TRAP_0380:
0387 0007       |    |		Action	Break_Optional
0388 480b       |H   |		Short_Literal	0xb
0389 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
038a 0000 0000  |    |		.BLANK	0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0399       |    |		.CONST	0x0399								; Address of begin
0391 0004       |    |		.CONST	0x0004								; Address of exception handler
0392 0002       |    |		.CONST	0x0002								; Number of locals
0393			INIT_0390:
0393 e7ff       |    |		Load	0x3,-0x1
0394 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0395 0217       |    |		Execute	Heap_Access,All_Reference
0396 8416       |    |		Call	0x2,0x16
0397 e409       |    |		Load	0x2,0x9
0398 03f1       |    |		Declare_Variable	Discrete,With_Value
0399			BODY_0390:
0399 e412       |    |		Load	0x2,0x12
039a e7ff       |    |		Load	0x3,-0x1
039b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
039c e7ff       |    |		Load	0x3,-0x1
039d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
039e e7ff       |    |		Load	0x3,-0x1
039f 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
03a0 e013       |    |		Load	0x0,0x13
03a1 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
03a2 e002       |    |		Load	0x0,0x2
03a3 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
03a4 8414       |    |		Call	0x2,0x14
03a5 e602       |    |		Load	0x3,0x2
03a6 e411       |    |		Load	0x2,0x11
03a7 01d5       |    |		Execute	Vector,Field_Reference
03a8 8415       |    |		Call	0x2,0x15
03a9 e602       |    |		Load	0x3,0x2
03aa e411       |    |		Load	0x2,0x11
03ab 01d6       |    |		Execute	Vector,Field_Write
03ac 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
03ad 0000 0000  |    |		.XXX[0x3]
03af 0000       |    |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b9       |    |		.CONST	0x03b9								; Address of begin
03b1 03dd       |    |		.CONST	0x03dd								; Address of exception handler
03b2 0002       |    |		.CONST	0x0002								; Number of locals
03b3			INIT_03b0:
03b3 e7fe       |    |		Load	0x3,-0x2
03b4 e7ff       |    |		Load	0x3,-0x1
03b5 01db       |    |		Execute	Vector,Length
03b6 0272       | r  |		Execute	Discrete,Minus
03b7 00e2       |    |		Load_Encached	Integer_Cache
03b8 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
03b9			BODY_03b0:
03b9 00d8       |    |		Load_Top	At_Offset_0
03ba 0d00       |    |		Execute_Immediate	Less,0x0
03bb 680f       |h   |		Jump_Zero	0x3cb
03bc e7ff       |    |		Load	0x3,-0x1
03bd 01dd       |    |		Execute	Vector,First
03be e7ff       |    |		Load	0x3,-0x1
03bf 01dd       |    |		Execute	Vector,First
03c0 e7fe       |    |		Load	0x3,-0x2
03c1 0273       | s  |		Execute	Discrete,Plus
03c2 0aff       |    |		Execute_Immediate	Plus,-0x1
03c3 00d8       |    |		Load_Top	At_Offset_0
03c4 00e2       |    |		Load_Encached	Integer_Cache
03c5 0260       | `  |		Execute	Discrete,In_Type
03c6 7001       |p   |		Jump_Nonzero	0x3c8
03c7 0801       |    |		Execute_Immediate	Raise,0x1
03c8 e7ff       |    |		Load	0x3,-0x1
03c9 01cf       |    |		Execute	Vector,Slice_Read
03ca 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03cb 4801       |H   |		Short_Literal	0x1
03cc e602       |    |		Load	0x3,0x2
03cd 00e9       |    |		Load_Encached	String_Cache
03ce 035b       | [  |		Declare_Type	Array,Constrained
03cf 0337       | 7  |		Declare_Variable	Array
03d0 00d8       |    |		Load_Top	At_Offset_0
03d1 01dc       |    |		Execute	Vector,Last
03d2 4801       |H   |		Short_Literal	0x1
03d3 0263       | c  |		Execute	Discrete,Above_Bound
03d4 7005       |p   |		Jump_Nonzero	0x3da
03d5 4820       |H   |		Short_Literal	0x20
03d6 e605       |    |		Load	0x3,0x5
03d7 e603       |    |		Load	0x3,0x3
03d8 01d6       |    |		Execute	Vector,Field_Write
03d9 3ffb       |?   |		Loop_Increasing	0x3d5
03da e7ff       |    |		Load	0x3,-0x1
03db 01cc       |    |		Execute	Vector,Catenate
03dc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03dd			TRAP_03b0:
03dd 0007       |    |		Action	Break_Optional
03de e7ff       |    |		Load	0x3,-0x1
03df 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 0428       | (  |		.CONST	0x0428								; Address of begin
03e1 0004       |    |		.CONST	0x0004								; Address of exception handler
03e2 0011       |    |		.CONST	0x0011								; Number of locals
03e3			INIT_03e0:
03e3 e40d       |    |		Load	0x2,0xd
03e4 0337       | 7  |		Declare_Variable	Array
03e5 00d8       |    |		Load_Top	At_Offset_0
03e6 0335       | 5  |		Declare_Variable	Array,Duplicate
03e7 00cd       |    |		Action	Spare6_Action
03e8 4800       |H   |		Short_Literal	0x0
03e9 4800       |H   |		Short_Literal	0x0
03ea e603       |    |		Load	0x3,0x3
03eb 01d6       |    |		Execute	Vector,Field_Write
03ec 4800       |H   |		Short_Literal	0x0
03ed 4801       |H   |		Short_Literal	0x1
03ee e603       |    |		Load	0x3,0x3
03ef 01d6       |    |		Execute	Vector,Field_Write
03f0 e602       |    |		Load	0x3,0x2
03f1 01d4       |    |		Execute	Vector,Structure_Write
03f2 00d8       |    |		Load_Top	At_Offset_0
03f3 0337       | 7  |		Declare_Variable	Array
03f4 00d8       |    |		Load_Top	At_Offset_0
03f5 0335       | 5  |		Declare_Variable	Array,Duplicate
03f6 00cd       |    |		Action	Spare6_Action
03f7 4800       |H   |		Short_Literal	0x0
03f8 4800       |H   |		Short_Literal	0x0
03f9 e604       |    |		Load	0x3,0x4
03fa 01d6       |    |		Execute	Vector,Field_Write
03fb 4800       |H   |		Short_Literal	0x0
03fc 4801       |H   |		Short_Literal	0x1
03fd e604       |    |		Load	0x3,0x4
03fe 01d6       |    |		Execute	Vector,Field_Write
03ff e603       |    |		Load	0x3,0x3
0400 01d4       |    |		Execute	Vector,Structure_Write
0401 00d8       |    |		Load_Top	At_Offset_0
0402 0337       | 7  |		Declare_Variable	Array
0403 00d8       |    |		Load_Top	At_Offset_0
0404 0335       | 5  |		Declare_Variable	Array,Duplicate
0405 00cd       |    |		Action	Spare6_Action
0406 4800       |H   |		Short_Literal	0x0
0407 4800       |H   |		Short_Literal	0x0
0408 e605       |    |		Load	0x3,0x5
0409 01d6       |    |		Execute	Vector,Field_Write
040a 4800       |H   |		Short_Literal	0x0
040b 4801       |H   |		Short_Literal	0x1
040c e605       |    |		Load	0x3,0x5
040d 01d6       |    |		Execute	Vector,Field_Write
040e e604       |    |		Load	0x3,0x4
040f 01d4       |    |		Execute	Vector,Structure_Write
0410 00e7       |    |		Load_Encached	Duration_Cache
0411 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0412 03e9       |    |		Declare_Variable	Discrete,Duplicate
0413 03e9       |    |		Declare_Variable	Discrete,Duplicate
0414 029f 0683  |    |		Declare_Subprogram	INIT_0680,For_Call
0416 029f 06cb  |    |		Declare_Subprogram	INIT_06c8,For_Call
0418 029f 06fb  |    |		Declare_Subprogram	INIT_06f8,For_Call
041a 029f 0723  |   #|		Declare_Subprogram	INIT_0720,For_Call
041c 029f 0753  |   S|		Declare_Subprogram	INIT_0750,For_Call
041e 029f 077b  |   {|		Declare_Subprogram	INIT_0778,For_Call
0420 029f 07ab  |    |		Declare_Subprogram	INIT_07a8,For_Call
0422 029f 07d3  |    |		Declare_Subprogram	INIT_07d0,For_Call
0424 029f 0803  |    |		Declare_Subprogram	INIT_0800,For_Call
0426 029f 082b  |   +|		Declare_Subprogram	INIT_0828,For_Call
0428			BODY_03e0:
0428 8608       |    |		Call	0x3,0x8
0429 4802       |H   |		Short_Literal	0x2
042a e00e       |    |		Load	0x0,0xe
042b 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
042c 0092 087a  |   z|		Action	Push_String_Extended,0x87a					; "System  Availability Report from "
042e 4802       |H   |		Short_Literal	0x2
042f 4801       |H   |		Short_Literal	0x1
0430 4802       |H   |		Short_Literal	0x2
0431 e402       |    |		Load	0x2,0x2
0432 8008       |    |		Call	0x0,0x8
0433 01cc       |    |		Execute	Vector,Catenate
0434 0092 087b  |   {|		Action	Push_String_Extended,0x87b					; " to "
0436 01cc       |    |		Execute	Vector,Catenate
0437 4802       |H   |		Short_Literal	0x2
0438 4801       |H   |		Short_Literal	0x1
0439 4802       |H   |		Short_Literal	0x2
043a e403       |    |		Load	0x2,0x3
043b 8008       |    |		Call	0x0,0x8
043c 01cc       |    |		Execute	Vector,Catenate
043d e00e       |    |		Load	0x0,0xe
043e 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
043f 4801       |H   |		Short_Literal	0x1
0440 e00e       |    |		Load	0x0,0xe
0441 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0442 485d       |H]  |		Short_Literal	0x5d
0443 483a       |H:  |		Short_Literal	0x3a
0444 8014       |    |		Call	0x0,0x14
0445 0092 087c  |   ||		Action	Push_String_Extended,0x87c					; " ["
0447 01cc       |    |		Execute	Vector,Catenate
0448 8015       |    |		Call	0x0,0x15
0449 01cc       |    |		Execute	Vector,Catenate
044a 01cb       |    |		Execute	Vector,Append
044b 8016       |    |		Call	0x0,0x16
044c 01cc       |    |		Execute	Vector,Catenate
044d 01cb       |    |		Execute	Vector,Append
044e e00e       |    |		Load	0x0,0xe
044f 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0450 4801       |H   |		Short_Literal	0x1
0451 e00e       |    |		Load	0x0,0xe
0452 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0453 0092 087d  |   }|		Action	Push_String_Extended,0x87d					; "Total Contract Hours     :"
0455 480b       |H   |		Short_Literal	0xb
0456 4800       |H   |		Short_Literal	0x0
0457 4800       |H   |		Short_Literal	0x0
0458 e603       |    |		Load	0x3,0x3
0459 01d7       |    |		Execute	Vector,Field_Read
045a 8017       |    |		Call	0x0,0x17
045b 8418       |    |		Call	0x2,0x18
045c 01cc       |    |		Execute	Vector,Catenate
045d e00e       |    |		Load	0x0,0xe
045e 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
045f 0092 087e  |   ~|		Action	Push_String_Extended,0x87e					; "Total Non Contract Hours :"
0461 480b       |H   |		Short_Literal	0xb
0462 4800       |H   |		Short_Literal	0x0
0463 4801       |H   |		Short_Literal	0x1
0464 e603       |    |		Load	0x3,0x3
0465 01d7       |    |		Execute	Vector,Field_Read
0466 8017       |    |		Call	0x0,0x17
0467 8418       |    |		Call	0x2,0x18
0468 01cc       |    |		Execute	Vector,Catenate
0469 e00e       |    |		Load	0x0,0xe
046a 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
046b 0092 087f  |    |		Action	Push_String_Extended,0x87f					; "                           =========="
046d e00e       |    |		Load	0x0,0xe
046e 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
046f 0092 0880  |    |		Action	Push_String_Extended,0x880					; "Total Hours              :"
0471 480b       |H   |		Short_Literal	0xb
0472 4800       |H   |		Short_Literal	0x0
0473 4800       |H   |		Short_Literal	0x0
0474 e603       |    |		Load	0x3,0x3
0475 01d7       |    |		Execute	Vector,Field_Read
0476 4801       |H   |		Short_Literal	0x1
0477 e603       |    |		Load	0x3,0x3
0478 01d7       |    |		Execute	Vector,Field_Read
0479 0273       | s  |		Execute	Discrete,Plus
047a 00d8       |    |		Load_Top	At_Offset_0
047b 00e7       |    |		Load_Encached	Duration_Cache
047c 0260       | `  |		Execute	Discrete,In_Type
047d 7001       |p   |		Jump_Nonzero	0x47f
047e 0801       |    |		Execute_Immediate	Raise,0x1
047f 8017       |    |		Call	0x0,0x17
0480 8418       |    |		Call	0x2,0x18
0481 01cc       |    |		Execute	Vector,Catenate
0482 e00e       |    |		Load	0x0,0xe
0483 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0484 4801       |H   |		Short_Literal	0x1
0485 e00e       |    |		Load	0x0,0xe
0486 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0487 480c       |H   |		Short_Literal	0xc
0488 00ea       |    |		Load_Encached	Null_String_Cache
0489 8418       |    |		Call	0x2,0x18
048a 480c       |H   |		Short_Literal	0xc
048b 0092 0881  |    |		Action	Push_String_Extended,0x881					; "Contract"
048d 8418       |    |		Call	0x2,0x18
048e 01cc       |    |		Execute	Vector,Catenate
048f 480c       |H   |		Short_Literal	0xc
0490 0092 0882  |    |		Action	Push_String_Extended,0x882					; "Non Con"
0492 8418       |    |		Call	0x2,0x18
0493 01cc       |    |		Execute	Vector,Catenate
0494 480c       |H   |		Short_Literal	0xc
0495 0092 0883  |    |		Action	Push_String_Extended,0x883					; "Total"
0497 8418       |    |		Call	0x2,0x18
0498 01cc       |    |		Execute	Vector,Catenate
0499 e00e       |    |		Load	0x0,0xe
049a 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
049b 4801       |H   |		Short_Literal	0x1
049c e00e       |    |		Load	0x0,0xe
049d 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
049e 00cf       |    |		Action	Mark_Auxiliary
049f 4808       |H   |		Short_Literal	0x8
04a0 4800       |H   |		Short_Literal	0x0
04a1 0007       |    |		Action	Break_Optional
04a2 480c       |H   |		Short_Literal	0xc
04a3 e614       |    |		Load	0x3,0x14
04a4 e409       |    |		Load	0x2,0x9
04a5 011c       |    |		Execute	Any,Convert_Unchecked
04a6 1c01       |    |		Execute_Immediate	Run_Utility,0x1
04a7 0092 0884  |    |		Action	Push_String_Extended,0x884					; " :"
04a9 01cc       |    |		Execute	Vector,Catenate
04aa 8418       |    |		Call	0x2,0x18
04ab e00e       |    |		Load	0x0,0xe
04ac 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
04ad 4800       |H   |		Short_Literal	0x0
04ae a606       |    |		Store_Unchecked	0x3,0x6
04af 00cf       |    |		Action	Mark_Auxiliary
04b0 e40c       |    |		Load	0x2,0xc
04b1 0265       | e  |		Execute	Discrete,Reverse_Bounds
04b2 0007       |    |		Action	Break_Optional
04b3 480c       |H   |		Short_Literal	0xc
04b4 4800       |H   |		Short_Literal	0x0
04b5 e617       |    |		Load	0x3,0x17
04b6 e614       |    |		Load	0x3,0x14
04b7 e411       |    |		Load	0x2,0x11
04b8 01d5       |    |		Execute	Vector,Field_Reference
04b9 01d7       |    |		Execute	Vector,Field_Read
04ba 8017       |    |		Call	0x0,0x17
04bb 8418       |    |		Call	0x2,0x18
04bc e00e       |    |		Load	0x0,0xe
04bd 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
04be e606       |    |		Load	0x3,0x6
04bf e617       |    |		Load	0x3,0x17
04c0 e614       |    |		Load	0x3,0x14
04c1 e411       |    |		Load	0x2,0x11
04c2 01d5       |    |		Execute	Vector,Field_Reference
04c3 01d7       |    |		Execute	Vector,Field_Read
04c4 0273       | s  |		Execute	Discrete,Plus
04c5 c606       |    |		Store	0x3,0x6
04c6 00d8       |    |		Load_Top	At_Offset_0
04c7 e604       |    |		Load	0x3,0x4
04c8 01d7       |    |		Execute	Vector,Field_Read
04c9 e617       |    |		Load	0x3,0x17
04ca e614       |    |		Load	0x3,0x14
04cb e411       |    |		Load	0x2,0x11
04cc 01d5       |    |		Execute	Vector,Field_Reference
04cd 01d7       |    |		Execute	Vector,Field_Read
04ce 0273       | s  |		Execute	Discrete,Plus
04cf e617       |    |		Load	0x3,0x17
04d0 e604       |    |		Load	0x3,0x4
04d1 01d6       |    |		Execute	Vector,Field_Write
04d2 00c8       |    |		Action	Pop_Auxiliary_Range
04d3 3fdf       |?   |		Loop_Increasing	0x4b3
04d4 00ce       |    |		Action	Pop_Auxiliary
04d5 480c       |H   |		Short_Literal	0xc
04d6 4800       |H   |		Short_Literal	0x0
04d7 e606       |    |		Load	0x3,0x6
04d8 8017       |    |		Call	0x0,0x17
04d9 8418       |    |		Call	0x2,0x18
04da e00e       |    |		Load	0x0,0xe
04db 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
04dc e607       |    |		Load	0x3,0x7
04dd e606       |    |		Load	0x3,0x6
04de 0273       | s  |		Execute	Discrete,Plus
04df c607       |    |		Store	0x3,0x7
04e0 00c8       |    |		Action	Pop_Auxiliary_Range
04e1 3fc0       |?   |		Loop_Increasing	0x4a2
04e2 00ce       |    |		Action	Pop_Auxiliary
04e3 480c       |H   |		Short_Literal	0xc
04e4 0092 0885  |    |		Action	Push_String_Extended,0x885					; "========"
04e6 8418       |    |		Call	0x2,0x18
04e7 480c       |H   |		Short_Literal	0xc
04e8 0092 0885  |    |		Action	Push_String_Extended,0x885					; "========"
04ea 8418       |    |		Call	0x2,0x18
04eb 01cc       |    |		Execute	Vector,Catenate
04ec 480c       |H   |		Short_Literal	0xc
04ed 0092 0885  |    |		Action	Push_String_Extended,0x885					; "========"
04ef 8418       |    |		Call	0x2,0x18
04f0 01cc       |    |		Execute	Vector,Catenate
04f1 480c       |H   |		Short_Literal	0xc
04f2 0092 0885  |    |		Action	Push_String_Extended,0x885					; "========"
04f4 8418       |    |		Call	0x2,0x18
04f5 01cc       |    |		Execute	Vector,Catenate
04f6 e00e       |    |		Load	0x0,0xe
04f7 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
04f8 480c       |H   |		Short_Literal	0xc
04f9 0092 0886  |    |		Action	Push_String_Extended,0x886					; "Total :"
04fb 8418       |    |		Call	0x2,0x18
04fc 480c       |H   |		Short_Literal	0xc
04fd 4800       |H   |		Short_Literal	0x0
04fe 4800       |H   |		Short_Literal	0x0
04ff e604       |    |		Load	0x3,0x4
0500 01d7       |    |		Execute	Vector,Field_Read
0501 8017       |    |		Call	0x0,0x17
0502 8418       |    |		Call	0x2,0x18
0503 01cc       |    |		Execute	Vector,Catenate
0504 480c       |H   |		Short_Literal	0xc
0505 4800       |H   |		Short_Literal	0x0
0506 4801       |H   |		Short_Literal	0x1
0507 e604       |    |		Load	0x3,0x4
0508 01d7       |    |		Execute	Vector,Field_Read
0509 8017       |    |		Call	0x0,0x17
050a 8418       |    |		Call	0x2,0x18
050b 01cc       |    |		Execute	Vector,Catenate
050c 480c       |H   |		Short_Literal	0xc
050d 4800       |H   |		Short_Literal	0x0
050e e607       |    |		Load	0x3,0x7
050f 8017       |    |		Call	0x0,0x17
0510 8418       |    |		Call	0x2,0x18
0511 01cc       |    |		Execute	Vector,Catenate
0512 e00e       |    |		Load	0x0,0xe
0513 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0514 480c       |H   |		Short_Literal	0xc
0515 0092 0887  |    |		Action	Push_String_Extended,0x887					; "Available :"
0517 8418       |    |		Call	0x2,0x18
0518 e00e       |    |		Load	0x0,0xe
0519 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
051a 8609       |    |		Call	0x3,0x9
051b 4825       |H%  |		Short_Literal	0x25
051c e00e       |    |		Load	0x0,0xe
051d 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
051e 860a       |    |		Call	0x3,0xa
051f 4825       |H%  |		Short_Literal	0x25
0520 e00e       |    |		Load	0x0,0xe
0521 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0522 860b       |    |		Call	0x3,0xb
0523 4825       |H%  |		Short_Literal	0x25
0524 e00e       |    |		Load	0x0,0xe
0525 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0526 4802       |H   |		Short_Literal	0x2
0527 e00e       |    |		Load	0x0,0xe
0528 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0529 e604       |    |		Load	0x3,0x4
052a e602       |    |		Load	0x3,0x2
052b 01d4       |    |		Execute	Vector,Structure_Write
052c e604       |    |		Load	0x3,0x4
052d 00d8       |    |		Load_Top	At_Offset_0
052e 0335       | 5  |		Declare_Variable	Array,Duplicate
052f 00cd       |    |		Action	Spare6_Action
0530 4800       |H   |		Short_Literal	0x0
0531 4800       |H   |		Short_Literal	0x0
0532 e613       |    |		Load	0x3,0x13
0533 01d6       |    |		Execute	Vector,Field_Write
0534 4800       |H   |		Short_Literal	0x0
0535 4801       |H   |		Short_Literal	0x1
0536 e613       |    |		Load	0x3,0x13
0537 01d6       |    |		Execute	Vector,Field_Write
0538 00cd       |    |		Action	Spare6_Action
0539 e604       |    |		Load	0x3,0x4
053a 01d4       |    |		Execute	Vector,Structure_Write
053b e607       |    |		Load	0x3,0x7
053c a605       |    |		Store_Unchecked	0x3,0x5
053d 4800       |H   |		Short_Literal	0x0
053e a607       |    |		Store_Unchecked	0x3,0x7
053f 00cf       |    |		Action	Mark_Auxiliary
0540 480b       |H   |		Short_Literal	0xb
0541 4809       |H   |		Short_Literal	0x9
0542 0007       |    |		Action	Break_Optional
0543 480c       |H   |		Short_Literal	0xc
0544 e614       |    |		Load	0x3,0x14
0545 e409       |    |		Load	0x2,0x9
0546 011c       |    |		Execute	Any,Convert_Unchecked
0547 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0548 0092 0884  |    |		Action	Push_String_Extended,0x884					; " :"
054a 01cc       |    |		Execute	Vector,Catenate
054b 8418       |    |		Call	0x2,0x18
054c e00e       |    |		Load	0x0,0xe
054d 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
054e 4800       |H   |		Short_Literal	0x0
054f a606       |    |		Store_Unchecked	0x3,0x6
0550 00cf       |    |		Action	Mark_Auxiliary
0551 e40c       |    |		Load	0x2,0xc
0552 0265       | e  |		Execute	Discrete,Reverse_Bounds
0553 0007       |    |		Action	Break_Optional
0554 480c       |H   |		Short_Literal	0xc
0555 4800       |H   |		Short_Literal	0x0
0556 e617       |    |		Load	0x3,0x17
0557 e614       |    |		Load	0x3,0x14
0558 e411       |    |		Load	0x2,0x11
0559 01d5       |    |		Execute	Vector,Field_Reference
055a 01d7       |    |		Execute	Vector,Field_Read
055b 8017       |    |		Call	0x0,0x17
055c 8418       |    |		Call	0x2,0x18
055d e00e       |    |		Load	0x0,0xe
055e 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
055f e606       |    |		Load	0x3,0x6
0560 e617       |    |		Load	0x3,0x17
0561 e614       |    |		Load	0x3,0x14
0562 e411       |    |		Load	0x2,0x11
0563 01d5       |    |		Execute	Vector,Field_Reference
0564 01d7       |    |		Execute	Vector,Field_Read
0565 0273       | s  |		Execute	Discrete,Plus
0566 c606       |    |		Store	0x3,0x6
0567 00d8       |    |		Load_Top	At_Offset_0
0568 e604       |    |		Load	0x3,0x4
0569 01d7       |    |		Execute	Vector,Field_Read
056a e617       |    |		Load	0x3,0x17
056b e614       |    |		Load	0x3,0x14
056c e411       |    |		Load	0x2,0x11
056d 01d5       |    |		Execute	Vector,Field_Reference
056e 01d7       |    |		Execute	Vector,Field_Read
056f 0273       | s  |		Execute	Discrete,Plus
0570 e617       |    |		Load	0x3,0x17
0571 e604       |    |		Load	0x3,0x4
0572 01d6       |    |		Execute	Vector,Field_Write
0573 00c8       |    |		Action	Pop_Auxiliary_Range
0574 3fdf       |?   |		Loop_Increasing	0x554
0575 00ce       |    |		Action	Pop_Auxiliary
0576 480c       |H   |		Short_Literal	0xc
0577 4800       |H   |		Short_Literal	0x0
0578 e606       |    |		Load	0x3,0x6
0579 8017       |    |		Call	0x0,0x17
057a 8418       |    |		Call	0x2,0x18
057b e00e       |    |		Load	0x0,0xe
057c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
057d e607       |    |		Load	0x3,0x7
057e e606       |    |		Load	0x3,0x6
057f 0273       | s  |		Execute	Discrete,Plus
0580 c607       |    |		Store	0x3,0x7
0581 00c8       |    |		Action	Pop_Auxiliary_Range
0582 3fc0       |?   |		Loop_Increasing	0x543
0583 00ce       |    |		Action	Pop_Auxiliary
0584 480c       |H   |		Short_Literal	0xc
0585 0092 0885  |    |		Action	Push_String_Extended,0x885					; "========"
0587 8418       |    |		Call	0x2,0x18
0588 480c       |H   |		Short_Literal	0xc
0589 0092 0885  |    |		Action	Push_String_Extended,0x885					; "========"
058b 8418       |    |		Call	0x2,0x18
058c 01cc       |    |		Execute	Vector,Catenate
058d 480c       |H   |		Short_Literal	0xc
058e 0092 0885  |    |		Action	Push_String_Extended,0x885					; "========"
0590 8418       |    |		Call	0x2,0x18
0591 01cc       |    |		Execute	Vector,Catenate
0592 480c       |H   |		Short_Literal	0xc
0593 0092 0885  |    |		Action	Push_String_Extended,0x885					; "========"
0595 8418       |    |		Call	0x2,0x18
0596 01cc       |    |		Execute	Vector,Catenate
0597 e00e       |    |		Load	0x0,0xe
0598 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0599 480c       |H   |		Short_Literal	0xc
059a 0092 0886  |    |		Action	Push_String_Extended,0x886					; "Total :"
059c 8418       |    |		Call	0x2,0x18
059d 480c       |H   |		Short_Literal	0xc
059e 4800       |H   |		Short_Literal	0x0
059f 4800       |H   |		Short_Literal	0x0
05a0 e604       |    |		Load	0x3,0x4
05a1 01d7       |    |		Execute	Vector,Field_Read
05a2 8017       |    |		Call	0x0,0x17
05a3 8418       |    |		Call	0x2,0x18
05a4 01cc       |    |		Execute	Vector,Catenate
05a5 480c       |H   |		Short_Literal	0xc
05a6 4800       |H   |		Short_Literal	0x0
05a7 4801       |H   |		Short_Literal	0x1
05a8 e604       |    |		Load	0x3,0x4
05a9 01d7       |    |		Execute	Vector,Field_Read
05aa 8017       |    |		Call	0x0,0x17
05ab 8418       |    |		Call	0x2,0x18
05ac 01cc       |    |		Execute	Vector,Catenate
05ad 480c       |H   |		Short_Literal	0xc
05ae 4800       |H   |		Short_Literal	0x0
05af e607       |    |		Load	0x3,0x7
05b0 8017       |    |		Call	0x0,0x17
05b1 8418       |    |		Call	0x2,0x18
05b2 01cc       |    |		Execute	Vector,Catenate
05b3 e00e       |    |		Load	0x0,0xe
05b4 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
05b5 480c       |H   |		Short_Literal	0xc
05b6 0092 0887  |    |		Action	Push_String_Extended,0x887					; "Available :"
05b8 8418       |    |		Call	0x2,0x18
05b9 e00e       |    |		Load	0x0,0xe
05ba 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
05bb 860c       |    |		Call	0x3,0xc
05bc 4825       |H%  |		Short_Literal	0x25
05bd e00e       |    |		Load	0x0,0xe
05be 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
05bf 860d       |    |		Call	0x3,0xd
05c0 4825       |H%  |		Short_Literal	0x25
05c1 e00e       |    |		Load	0x0,0xe
05c2 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
05c3 860e       |    |		Call	0x3,0xe
05c4 4825       |H%  |		Short_Literal	0x25
05c5 e00e       |    |		Load	0x0,0xe
05c6 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
05c7 4802       |H   |		Short_Literal	0x2
05c8 e00e       |    |		Load	0x0,0xe
05c9 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
05ca e604       |    |		Load	0x3,0x4
05cb e602       |    |		Load	0x3,0x2
05cc 8415       |    |		Call	0x2,0x15
05cd e602       |    |		Load	0x3,0x2
05ce 01d4       |    |		Execute	Vector,Structure_Write
05cf e605       |    |		Load	0x3,0x5
05d0 e607       |    |		Load	0x3,0x7
05d1 0273       | s  |		Execute	Discrete,Plus
05d2 c605       |    |		Store	0x3,0x5
05d3 480c       |H   |		Short_Literal	0xc
05d4 0092 0888  |    |		Action	Push_String_Extended,0x888					; "Grand Total"
05d6 8418       |    |		Call	0x2,0x18
05d7 480c       |H   |		Short_Literal	0xc
05d8 4800       |H   |		Short_Literal	0x0
05d9 4800       |H   |		Short_Literal	0x0
05da e602       |    |		Load	0x3,0x2
05db 01d7       |    |		Execute	Vector,Field_Read
05dc 8017       |    |		Call	0x0,0x17
05dd 8418       |    |		Call	0x2,0x18
05de 01cc       |    |		Execute	Vector,Catenate
05df 480c       |H   |		Short_Literal	0xc
05e0 4800       |H   |		Short_Literal	0x0
05e1 4801       |H   |		Short_Literal	0x1
05e2 e602       |    |		Load	0x3,0x2
05e3 01d7       |    |		Execute	Vector,Field_Read
05e4 8017       |    |		Call	0x0,0x17
05e5 8418       |    |		Call	0x2,0x18
05e6 01cc       |    |		Execute	Vector,Catenate
05e7 480c       |H   |		Short_Literal	0xc
05e8 4800       |H   |		Short_Literal	0x0
05e9 e607       |    |		Load	0x3,0x7
05ea 8017       |    |		Call	0x0,0x17
05eb 8418       |    |		Call	0x2,0x18
05ec 01cc       |    |		Execute	Vector,Catenate
05ed e00e       |    |		Load	0x0,0xe
05ee 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
05ef 480c       |H   |		Short_Literal	0xc
05f0 0092 0889  |    |		Action	Push_String_Extended,0x889					; "Uptime :"
05f2 8418       |    |		Call	0x2,0x18
05f3 e00e       |    |		Load	0x0,0xe
05f4 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
05f5 860f       |    |		Call	0x3,0xf
05f6 4825       |H%  |		Short_Literal	0x25
05f7 e00e       |    |		Load	0x0,0xe
05f8 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
05f9 8610       |    |		Call	0x3,0x10
05fa 4825       |H%  |		Short_Literal	0x25
05fb e00e       |    |		Load	0x0,0xe
05fc 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
05fd 8611       |    |		Call	0x3,0x11
05fe 4825       |H%  |		Short_Literal	0x25
05ff e00e       |    |		Load	0x0,0xe
0600 185a       | Z  |		Execute	Package,Field_Execute,Field_Number 0x5a
0601 4802       |H   |		Short_Literal	0x2
0602 e00e       |    |		Load	0x0,0xe
0603 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0604 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0605 0000 0000  |    |		.XXX[0x3]
0607 0000       |    |
0608 ; --------------------------------------------------------------------------------------
0608 ; SUBPROGRAM
0608 ; --------------------------------------------------------------------------------------
0608 060b       |    |		.CONST	0x060b								; Address of begin
0609 0004       |    |		.CONST	0x0004								; Address of exception handler
060a 0001       |    |		.CONST	0x0001								; Number of locals
060b			BODY_0608:
060b			INIT_0608:
060b 4802       |H   |		Short_Literal	0x2
060c e00e       |    |		Load	0x0,0xe
060d 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
060e 0092 088a  |    |		Action	Push_String_Extended,0x88a					; "Contract Hours"
0610 e00e       |    |		Load	0x0,0xe
0611 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0612 0092 088b  |    |		Action	Push_String_Extended,0x88b					; "=============="
0614 e00e       |    |		Load	0x0,0xe
0615 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0616 00cf       |    |		Action	Mark_Auxiliary
0617 4807       |H   |		Short_Literal	0x7
0618 4801       |H   |		Short_Literal	0x1
0619 0007       |    |		Action	Break_Optional
061a 0092 088c  |    |		Action	Push_String_Extended,0x88c					; "    "
061c 480c       |H   |		Short_Literal	0xc
061d e604       |    |		Load	0x3,0x4
061e 00d8       |    |		Load_Top	At_Offset_0
061f e408       |    |		Load	0x2,0x8
0620 0260       | `  |		Execute	Discrete,In_Type
0621 7001       |p   |		Jump_Nonzero	0x623
0622 0801       |    |		Execute_Immediate	Raise,0x1
0623 e408       |    |		Load	0x2,0x8
0624 011c       |    |		Execute	Any,Convert_Unchecked
0625 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0626 e018       |    |		Load	0x0,0x18
0627 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
0628 0092 088d  |    |		Action	Push_String_Extended,0x88d					; " : "
062a 01cc       |    |		Execute	Vector,Catenate
062b 8418       |    |		Call	0x2,0x18
062c 01cc       |    |		Execute	Vector,Catenate
062d e00e       |    |		Load	0x0,0xe
062e 185f       | _  |		Execute	Package,Field_Execute,Field_Number 0x5f
062f 00d8       |    |		Load_Top	At_Offset_0
0630 e7ff       |    |		Load	0x3,-0x1
0631 01d5       |    |		Execute	Vector,Field_Reference
0632 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0633 e604       |    |		Load	0x3,0x4
0634 e7ff       |    |		Load	0x3,-0x1
0635 01d5       |    |		Execute	Vector,Field_Reference
0636 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0637 027f       |    |		Execute	Discrete,Equal
0638 6805       |h   |		Jump_Zero	0x63e
0639 0092 088e  |    |		Action	Push_String_Extended,0x88e					; "None"
063b e00e       |    |		Load	0x0,0xe
063c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
063d 7812       |x   |		Jump	0x650
063e 4800       |H   |		Short_Literal	0x0
063f e604       |    |		Load	0x3,0x4
0640 e7ff       |    |		Load	0x3,-0x1
0641 01d5       |    |		Execute	Vector,Field_Reference
0642 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0643 8017       |    |		Call	0x0,0x17
0644 0092 087b  |   {|		Action	Push_String_Extended,0x87b					; " to "
0646 01cc       |    |		Execute	Vector,Catenate
0647 4800       |H   |		Short_Literal	0x0
0648 e604       |    |		Load	0x3,0x4
0649 e7ff       |    |		Load	0x3,-0x1
064a 01d5       |    |		Execute	Vector,Field_Reference
064b 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
064c 8017       |    |		Call	0x0,0x17
064d 01cc       |    |		Execute	Vector,Catenate
064e e00e       |    |		Load	0x0,0xe
064f 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0650 00c8       |    |		Action	Pop_Auxiliary_Range
0651 3fc8       |?   |		Loop_Increasing	0x61a
0652 00ce       |    |		Action	Pop_Auxiliary
0653 4801       |H   |		Short_Literal	0x1
0654 e00e       |    |		Load	0x0,0xe
0655 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
0656 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0657 0000       |    |		.XXX[0x1]
0658 ; --------------------------------------------------------------------------------------
0658 ; SUBPROGRAM
0658 ; --------------------------------------------------------------------------------------
0658 065b       | [  |		.CONST	0x065b								; Address of begin
0659 0004       |    |		.CONST	0x0004								; Address of exception handler
065a 0001       |    |		.CONST	0x0001								; Number of locals
065b			BODY_0658:
065b			INIT_0658:
065b 4607       |F   |		Jump_Case	0x8
065c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x0
065d 7807       |x   |		Jump	0x665								; case 0x1
065e 780a       |x   |		Jump	0x669								; case 0x2
065f 780e       |x   |		Jump	0x66e								; case 0x3
0660 7811       |x   |		Jump	0x672								; case 0x4
0661 7812       |x   |		Jump	0x674								; case 0x5
0662 7813       |x   |		Jump	0x676								; case 0x6
0663 7816       |x   |		Jump	0x67a								; case 0x7
0664 4302       |C   |		.XXX[0x1]
0665 00da       |    |		Load_Top	At_Offset_2
0666 0091 086a  |   j|		Action	Push_String_Extended_Indexed,0x86a				; "NONE"
0668 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0669 00db       |    |		Load_Top	At_Offset_3
066a 00db       |    |		Load_Top	At_Offset_3
066b 00e0       |    |		Load_Encached	Standard_Cache
066c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
066d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
066e 00da       |    |		Load_Top	At_Offset_2
066f 00e0       |    |		Load_Encached	Standard_Cache
0670 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0671 4201       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x1
0672 00db       |    |		Load_Top	At_Offset_3
0673 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0674 00db       |    |		Load_Top	At_Offset_3
0675 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
0676 e606       |    |		Load	0x3,0x6
0677 00dc       |    |		Load_Top	At_Offset_4
0678 0267       | g  |		Execute	Discrete,Predecessor
0679 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
067a e606       |    |		Load	0x3,0x6
067b 00dc       |    |		Load_Top	At_Offset_4
067c 0268       | h  |		Execute	Discrete,Successor
067d 4202       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x2
067e 0000 0000  |    |		.XXX[0x2]
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 068c       |    |		.CONST	0x068c								; Address of begin
0681 0004       |    |		.CONST	0x0004								; Address of exception handler
0682 0004       |    |		.CONST	0x0004								; Number of locals
0683			INIT_0680:
0683 e002       |    |		Load	0x0,0x2
0684 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0685 02c7       |    |		Declare_Variable	Any
0686 e402       |    |		Load	0x2,0x2
0687 a802       |    |		Store_Unchecked	0x4,0x2
0688 e012       |    |		Load	0x0,0x12
0689 1b2c       | ,  |		Execute	Package,Field_Read,Field_Number 0x2c
068a e40d       |    |		Load	0x2,0xd
068b 0337       | 7  |		Declare_Variable	Array
068c			BODY_0680:
068c 00cf       |    |		Action	Mark_Auxiliary
068d 782f       |x/  |		Jump	0x6bd
068e e802       |    |		Load	0x4,0x2
068f e012       |    |		Load	0x0,0x12
0690 182d       | -  |		Execute	Package,Field_Execute,Field_Number 0x2d
0691 a803       |    |		Store_Unchecked	0x4,0x3
0692 e803       |    |		Load	0x4,0x3
0693 e412       |    |		Load	0x2,0x12
0694 01d5       |    |		Execute	Vector,Field_Reference
0695 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0696 e803       |    |		Load	0x4,0x3
0697 e412       |    |		Load	0x2,0x12
0698 01d5       |    |		Execute	Vector,Field_Reference
0699 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
069a 0272       | r  |		Execute	Discrete,Minus
069b 4800       |H   |		Short_Literal	0x0
069c e804       |    |		Load	0x4,0x4
069d 01d6       |    |		Execute	Vector,Field_Write
069e 6025       |`%  |		Indirect_Literal	Discrete,0x6c4,{0x00000000, 0xa8c00000}
069f 4800       |H   |		Short_Literal	0x0
06a0 e804       |    |		Load	0x4,0x4
06a1 01d7       |    |		Execute	Vector,Field_Read
06a2 0272       | r  |		Execute	Discrete,Minus
06a3 4801       |H   |		Short_Literal	0x1
06a4 e804       |    |		Load	0x4,0x4
06a5 01d6       |    |		Execute	Vector,Field_Write
06a6 00cf       |    |		Action	Mark_Auxiliary
06a7 e40c       |    |		Load	0x2,0xc
06a8 0265       | e  |		Execute	Discrete,Reverse_Bounds
06a9 0007       |    |		Action	Break_Optional
06aa 00d8       |    |		Load_Top	At_Offset_0
06ab e603       |    |		Load	0x3,0x3
06ac 01d7       |    |		Execute	Vector,Field_Read
06ad e808       |    |		Load	0x4,0x8
06ae e804       |    |		Load	0x4,0x4
06af 01d7       |    |		Execute	Vector,Field_Read
06b0 0273       | s  |		Execute	Discrete,Plus
06b1 e808       |    |		Load	0x4,0x8
06b2 e603       |    |		Load	0x3,0x3
06b3 01d6       |    |		Execute	Vector,Field_Write
06b4 00c8       |    |		Action	Pop_Auxiliary_Range
06b5 3ff4       |?   |		Loop_Increasing	0x6aa
06b6 00ce       |    |		Action	Pop_Auxiliary
06b7 600c       |`   |		Indirect_Literal	Discrete,0x6c4,{0x00000000, 0xa8c00000}
06b8 e802       |    |		Load	0x4,0x2
06b9 e002       |    |		Load	0x0,0x2
06ba 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
06bb c802       |    |		Store	0x4,0x2
06bc 00c9       |    |		Action	Pop_Auxiliary_Loop
06bd e403       |    |		Load	0x2,0x3
06be e802       |    |		Load	0x4,0x2
06bf e002       |    |		Load	0x0,0x2
06c0 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
06c1 77cc       |w   |		Jump_Nonzero	0x68e
06c2 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06c3 0000       |    |		.XXX[0x1]
06c4 0000 0000  |    |		.LITERAL	{0x00000000, 0xa8c00000}
06c8 ; --------------------------------------------------------------------------------------
06c8 ; SUBPROGRAM
06c8 ; --------------------------------------------------------------------------------------
06c8 06cb       |    |		.CONST	0x06cb								; Address of begin
06c9 06e2       |    |		.CONST	0x06e2								; Address of exception handler
06ca 0001       |    |		.CONST	0x0001								; Number of locals
06cb			BODY_06c8:
06cb			INIT_06c8:
06cb 4800       |H   |		Short_Literal	0x0
06cc 4801       |H   |		Short_Literal	0x1
06cd 4809       |H   |		Short_Literal	0x9
06ce 5821       |X!  |		Indirect_Literal	Float,0x6f0,100.0
06cf 4800       |H   |		Short_Literal	0x0
06d0 e604       |    |		Load	0x3,0x4
06d1 01d7       |    |		Execute	Vector,Field_Read
06d2 0237       | 7  |		Execute	Float,Convert_From_Discrete
06d3 5818       |X   |		Indirect_Literal	Float,0x6ec,3.0517578125e-05
06d4 023b       | ;  |		Execute	Float,Times
06d5 581a       |X   |		Indirect_Literal	Float,0x6f0,100.0
06d6 023b       | ;  |		Execute	Float,Times
06d7 4800       |H   |		Short_Literal	0x0
06d8 e603       |    |		Load	0x3,0x3
06d9 01d7       |    |		Execute	Vector,Field_Read
06da 0237       | 7  |		Execute	Float,Convert_From_Discrete
06db 5810       |X   |		Indirect_Literal	Float,0x6ec,3.0517578125e-05
06dc 023b       | ;  |		Execute	Float,Times
06dd 023a       | :  |		Execute	Float,Divide
06de 023c       | <  |		Execute	Float,Minus
06df e00e       |    |		Load	0x0,0xe
06e0 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
06e1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06e2			TRAP_06c8:
06e2 0007       |    |		Action	Break_Optional
06e3 4800       |H   |		Short_Literal	0x0
06e4 4801       |H   |		Short_Literal	0x1
06e5 4809       |H   |		Short_Literal	0x9
06e6 5809       |X   |		Indirect_Literal	Float,0x6f0,100.0
06e7 e00e       |    |		Load	0x0,0xe
06e8 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
06e9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
06ea 0000 0000  |    |		.XXX[0x2]
06ec 3f00 0000  |?   |		.DBL	3.0517578125e-05
06ee 0000 0000  |    |
06f0 4059 0000  |@Y  |		.DBL	100.0
06f2 0000 0000  |    |
06f4 0000 0000  |    |		.BLANK	0000[0x4]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; SUBPROGRAM
06f8 ; --------------------------------------------------------------------------------------
06f8 06fb       |    |		.CONST	0x06fb								; Address of begin
06f9 0712       |    |		.CONST	0x0712								; Address of exception handler
06fa 0001       |    |		.CONST	0x0001								; Number of locals
06fb			BODY_06f8:
06fb			INIT_06f8:
06fb 4800       |H   |		Short_Literal	0x0
06fc 4801       |H   |		Short_Literal	0x1
06fd 4809       |H   |		Short_Literal	0x9
06fe 5ff1       |_   |		Indirect_Literal	Float,0x6f0,100.0
06ff 4801       |H   |		Short_Literal	0x1
0700 e604       |    |		Load	0x3,0x4
0701 01d7       |    |		Execute	Vector,Field_Read
0702 0237       | 7  |		Execute	Float,Convert_From_Discrete
0703 5fe8       |_   |		Indirect_Literal	Float,0x6ec,3.0517578125e-05
0704 023b       | ;  |		Execute	Float,Times
0705 5fea       |_   |		Indirect_Literal	Float,0x6f0,100.0
0706 023b       | ;  |		Execute	Float,Times
0707 4801       |H   |		Short_Literal	0x1
0708 e603       |    |		Load	0x3,0x3
0709 01d7       |    |		Execute	Vector,Field_Read
070a 0237       | 7  |		Execute	Float,Convert_From_Discrete
070b 5fe0       |_   |		Indirect_Literal	Float,0x6ec,3.0517578125e-05
070c 023b       | ;  |		Execute	Float,Times
070d 023a       | :  |		Execute	Float,Divide
070e 023c       | <  |		Execute	Float,Minus
070f e00e       |    |		Load	0x0,0xe
0710 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0711 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0712			TRAP_06f8:
0712 0007       |    |		Action	Break_Optional
0713 4800       |H   |		Short_Literal	0x0
0714 4801       |H   |		Short_Literal	0x1
0715 4809       |H   |		Short_Literal	0x9
0716 5fd9       |_   |		Indirect_Literal	Float,0x6f0,100.0
0717 e00e       |    |		Load	0x0,0xe
0718 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0719 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
071a 0000 0000  |    |		.BLANK	0000[0x6]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723       | #  |		.CONST	0x0723								; Address of begin
0721 073c       | <  |		.CONST	0x073c								; 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 5821       |X!  |		Indirect_Literal	Float,0x748,100.0
0727 e607       |    |		Load	0x3,0x7
0728 0237       | 7  |		Execute	Float,Convert_From_Discrete
0729 581a       |X   |		Indirect_Literal	Float,0x744,3.0517578125e-05
072a 023b       | ;  |		Execute	Float,Times
072b 581c       |X   |		Indirect_Literal	Float,0x748,100.0
072c 023b       | ;  |		Execute	Float,Times
072d 4800       |H   |		Short_Literal	0x0
072e e603       |    |		Load	0x3,0x3
072f 01d7       |    |		Execute	Vector,Field_Read
0730 4801       |H   |		Short_Literal	0x1
0731 e603       |    |		Load	0x3,0x3
0732 01d7       |    |		Execute	Vector,Field_Read
0733 0273       | s  |		Execute	Discrete,Plus
0734 0237       | 7  |		Execute	Float,Convert_From_Discrete
0735 580e       |X   |		Indirect_Literal	Float,0x744,3.0517578125e-05
0736 023b       | ;  |		Execute	Float,Times
0737 023a       | :  |		Execute	Float,Divide
0738 023c       | <  |		Execute	Float,Minus
0739 e00e       |    |		Load	0x0,0xe
073a 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
073b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
073c			TRAP_0720:
073c 0007       |    |		Action	Break_Optional
073d 4800       |H   |		Short_Literal	0x0
073e 4801       |H   |		Short_Literal	0x1
073f 4809       |H   |		Short_Literal	0x9
0740 5807       |X   |		Indirect_Literal	Float,0x748,100.0
0741 e00e       |    |		Load	0x0,0xe
0742 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0743 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0744 3f00 0000  |?   |		.DBL	3.0517578125e-05
0746 0000 0000  |    |
0748 4059 0000  |@Y  |		.DBL	100.0
074a 0000 0000  |    |
074c 0000 0000  |    |		.BLANK	0000[0x4]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753       | S  |		.CONST	0x0753								; Address of begin
0751 076a       | j  |		.CONST	0x076a								; Address of exception handler
0752 0001       |    |		.CONST	0x0001								; Number of locals
0753			BODY_0750:
0753			INIT_0750:
0753 4800       |H   |		Short_Literal	0x0
0754 4801       |H   |		Short_Literal	0x1
0755 4809       |H   |		Short_Literal	0x9
0756 5ff1       |_   |		Indirect_Literal	Float,0x748,100.0
0757 4800       |H   |		Short_Literal	0x0
0758 e604       |    |		Load	0x3,0x4
0759 01d7       |    |		Execute	Vector,Field_Read
075a 0237       | 7  |		Execute	Float,Convert_From_Discrete
075b 5fe8       |_   |		Indirect_Literal	Float,0x744,3.0517578125e-05
075c 023b       | ;  |		Execute	Float,Times
075d 5fea       |_   |		Indirect_Literal	Float,0x748,100.0
075e 023b       | ;  |		Execute	Float,Times
075f 4800       |H   |		Short_Literal	0x0
0760 e603       |    |		Load	0x3,0x3
0761 01d7       |    |		Execute	Vector,Field_Read
0762 0237       | 7  |		Execute	Float,Convert_From_Discrete
0763 5fe0       |_   |		Indirect_Literal	Float,0x744,3.0517578125e-05
0764 023b       | ;  |		Execute	Float,Times
0765 023a       | :  |		Execute	Float,Divide
0766 023c       | <  |		Execute	Float,Minus
0767 e00e       |    |		Load	0x0,0xe
0768 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0769 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
076a			TRAP_0750:
076a 0007       |    |		Action	Break_Optional
076b 4800       |H   |		Short_Literal	0x0
076c 4801       |H   |		Short_Literal	0x1
076d 4809       |H   |		Short_Literal	0x9
076e 5fd9       |_   |		Indirect_Literal	Float,0x748,100.0
076f e00e       |    |		Load	0x0,0xe
0770 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0771 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0772 0000 0000  |    |		.BLANK	0000[0x6]
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 5821       |X!  |		Indirect_Literal	Float,0x7a0,100.0
077f 4801       |H   |		Short_Literal	0x1
0780 e604       |    |		Load	0x3,0x4
0781 01d7       |    |		Execute	Vector,Field_Read
0782 0237       | 7  |		Execute	Float,Convert_From_Discrete
0783 5818       |X   |		Indirect_Literal	Float,0x79c,3.0517578125e-05
0784 023b       | ;  |		Execute	Float,Times
0785 581a       |X   |		Indirect_Literal	Float,0x7a0,100.0
0786 023b       | ;  |		Execute	Float,Times
0787 4801       |H   |		Short_Literal	0x1
0788 e603       |    |		Load	0x3,0x3
0789 01d7       |    |		Execute	Vector,Field_Read
078a 0237       | 7  |		Execute	Float,Convert_From_Discrete
078b 5810       |X   |		Indirect_Literal	Float,0x79c,3.0517578125e-05
078c 023b       | ;  |		Execute	Float,Times
078d 023a       | :  |		Execute	Float,Divide
078e 023c       | <  |		Execute	Float,Minus
078f e00e       |    |		Load	0x0,0xe
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 5809       |X   |		Indirect_Literal	Float,0x7a0,100.0
0797 e00e       |    |		Load	0x0,0xe
0798 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0799 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
079a 0000 0000  |    |		.XXX[0x2]
079c 3f00 0000  |?   |		.DBL	3.0517578125e-05
079e 0000 0000  |    |
07a0 4059 0000  |@Y  |		.DBL	100.0
07a2 0000 0000  |    |
07a4 0000 0000  |    |		.BLANK	0000[0x4]
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab       |    |		.CONST	0x07ab								; Address of begin
07a9 07c4       |    |		.CONST	0x07c4								; Address of exception handler
07aa 0001       |    |		.CONST	0x0001								; Number of locals
07ab			BODY_07a8:
07ab			INIT_07a8:
07ab 4800       |H   |		Short_Literal	0x0
07ac 4801       |H   |		Short_Literal	0x1
07ad 4809       |H   |		Short_Literal	0x9
07ae 5ff1       |_   |		Indirect_Literal	Float,0x7a0,100.0
07af e607       |    |		Load	0x3,0x7
07b0 0237       | 7  |		Execute	Float,Convert_From_Discrete
07b1 5fea       |_   |		Indirect_Literal	Float,0x79c,3.0517578125e-05
07b2 023b       | ;  |		Execute	Float,Times
07b3 5fec       |_   |		Indirect_Literal	Float,0x7a0,100.0
07b4 023b       | ;  |		Execute	Float,Times
07b5 4800       |H   |		Short_Literal	0x0
07b6 e603       |    |		Load	0x3,0x3
07b7 01d7       |    |		Execute	Vector,Field_Read
07b8 4801       |H   |		Short_Literal	0x1
07b9 e603       |    |		Load	0x3,0x3
07ba 01d7       |    |		Execute	Vector,Field_Read
07bb 0273       | s  |		Execute	Discrete,Plus
07bc 0237       | 7  |		Execute	Float,Convert_From_Discrete
07bd 5fde       |_   |		Indirect_Literal	Float,0x79c,3.0517578125e-05
07be 023b       | ;  |		Execute	Float,Times
07bf 023a       | :  |		Execute	Float,Divide
07c0 023c       | <  |		Execute	Float,Minus
07c1 e00e       |    |		Load	0x0,0xe
07c2 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
07c3 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07c4			TRAP_07a8:
07c4 0007       |    |		Action	Break_Optional
07c5 4800       |H   |		Short_Literal	0x0
07c6 4801       |H   |		Short_Literal	0x1
07c7 4809       |H   |		Short_Literal	0x9
07c8 5fd7       |_   |		Indirect_Literal	Float,0x7a0,100.0
07c9 e00e       |    |		Load	0x0,0xe
07ca 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
07cb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07cc 0000 0000  |    |		.BLANK	0000[0x4]
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d3       |    |		.CONST	0x07d3								; Address of begin
07d1 07ea       |    |		.CONST	0x07ea								; 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 5821       |X!  |		Indirect_Literal	Float,0x7f8,100.0
07d7 4800       |H   |		Short_Literal	0x0
07d8 e602       |    |		Load	0x3,0x2
07d9 01d7       |    |		Execute	Vector,Field_Read
07da 0237       | 7  |		Execute	Float,Convert_From_Discrete
07db 5818       |X   |		Indirect_Literal	Float,0x7f4,3.0517578125e-05
07dc 023b       | ;  |		Execute	Float,Times
07dd 581a       |X   |		Indirect_Literal	Float,0x7f8,100.0
07de 023b       | ;  |		Execute	Float,Times
07df 4800       |H   |		Short_Literal	0x0
07e0 e603       |    |		Load	0x3,0x3
07e1 01d7       |    |		Execute	Vector,Field_Read
07e2 0237       | 7  |		Execute	Float,Convert_From_Discrete
07e3 5810       |X   |		Indirect_Literal	Float,0x7f4,3.0517578125e-05
07e4 023b       | ;  |		Execute	Float,Times
07e5 023a       | :  |		Execute	Float,Divide
07e6 023c       | <  |		Execute	Float,Minus
07e7 e00e       |    |		Load	0x0,0xe
07e8 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
07e9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07ea			TRAP_07d0:
07ea 0007       |    |		Action	Break_Optional
07eb 4800       |H   |		Short_Literal	0x0
07ec 4801       |H   |		Short_Literal	0x1
07ed 4809       |H   |		Short_Literal	0x9
07ee 5809       |X   |		Indirect_Literal	Float,0x7f8,100.0
07ef e00e       |    |		Load	0x0,0xe
07f0 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
07f1 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
07f2 0000 0000  |    |		.XXX[0x2]
07f4 3f00 0000  |?   |		.DBL	3.0517578125e-05
07f6 0000 0000  |    |
07f8 4059 0000  |@Y  |		.DBL	100.0
07fa 0000 0000  |    |
07fc 0000 0000  |    |		.BLANK	0000[0x4]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803       |    |		.CONST	0x0803								; Address of begin
0801 081a       |    |		.CONST	0x081a								; Address of exception handler
0802 0001       |    |		.CONST	0x0001								; Number of locals
0803			BODY_0800:
0803			INIT_0800:
0803 4800       |H   |		Short_Literal	0x0
0804 4801       |H   |		Short_Literal	0x1
0805 4809       |H   |		Short_Literal	0x9
0806 5ff1       |_   |		Indirect_Literal	Float,0x7f8,100.0
0807 4801       |H   |		Short_Literal	0x1
0808 e602       |    |		Load	0x3,0x2
0809 01d7       |    |		Execute	Vector,Field_Read
080a 0237       | 7  |		Execute	Float,Convert_From_Discrete
080b 5fe8       |_   |		Indirect_Literal	Float,0x7f4,3.0517578125e-05
080c 023b       | ;  |		Execute	Float,Times
080d 5fea       |_   |		Indirect_Literal	Float,0x7f8,100.0
080e 023b       | ;  |		Execute	Float,Times
080f 4801       |H   |		Short_Literal	0x1
0810 e603       |    |		Load	0x3,0x3
0811 01d7       |    |		Execute	Vector,Field_Read
0812 0237       | 7  |		Execute	Float,Convert_From_Discrete
0813 5fe0       |_   |		Indirect_Literal	Float,0x7f4,3.0517578125e-05
0814 023b       | ;  |		Execute	Float,Times
0815 023a       | :  |		Execute	Float,Divide
0816 023c       | <  |		Execute	Float,Minus
0817 e00e       |    |		Load	0x0,0xe
0818 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0819 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
081a			TRAP_0800:
081a 0007       |    |		Action	Break_Optional
081b 4800       |H   |		Short_Literal	0x0
081c 4801       |H   |		Short_Literal	0x1
081d 4809       |H   |		Short_Literal	0x9
081e 5fd9       |_   |		Indirect_Literal	Float,0x7f8,100.0
081f e00e       |    |		Load	0x0,0xe
0820 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0821 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0822 0000 0000  |    |		.BLANK	0000[0x6]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082b       | +  |		.CONST	0x082b								; Address of begin
0829 0844       | D  |		.CONST	0x0844								; 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 5821       |X!  |		Indirect_Literal	Float,0x850,100.0
082f e605       |    |		Load	0x3,0x5
0830 0237       | 7  |		Execute	Float,Convert_From_Discrete
0831 581a       |X   |		Indirect_Literal	Float,0x84c,3.0517578125e-05
0832 023b       | ;  |		Execute	Float,Times
0833 581c       |X   |		Indirect_Literal	Float,0x850,100.0
0834 023b       | ;  |		Execute	Float,Times
0835 4800       |H   |		Short_Literal	0x0
0836 e603       |    |		Load	0x3,0x3
0837 01d7       |    |		Execute	Vector,Field_Read
0838 4801       |H   |		Short_Literal	0x1
0839 e603       |    |		Load	0x3,0x3
083a 01d7       |    |		Execute	Vector,Field_Read
083b 0273       | s  |		Execute	Discrete,Plus
083c 0237       | 7  |		Execute	Float,Convert_From_Discrete
083d 580e       |X   |		Indirect_Literal	Float,0x84c,3.0517578125e-05
083e 023b       | ;  |		Execute	Float,Times
083f 023a       | :  |		Execute	Float,Divide
0840 023c       | <  |		Execute	Float,Minus
0841 e00e       |    |		Load	0x0,0xe
0842 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
0843 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0844			TRAP_0828:
0844 0007       |    |		Action	Break_Optional
0845 4800       |H   |		Short_Literal	0x0
0846 4801       |H   |		Short_Literal	0x1
0847 4809       |H   |		Short_Literal	0x9
0848 5807       |X   |		Indirect_Literal	Float,0x850,100.0
0849 e00e       |    |		Load	0x0,0xe
084a 1871       | q  |		Execute	Package,Field_Execute,Field_Number 0x71
084b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
084c 3f00 0000  |?   |		.DBL	3.0517578125e-05
084e 0000 0000  |    |
0850 4059 0000  |@Y  |		.DBL	100.0
0852 0000 0000  |    |
0854 ; --------------------------------------------------------------------------------------
0854 ; STRING TABLE
0854 ; --------------------------------------------------------------------------------------
0854 0078       | x  |		.STRTAB	0x0078->0x0890							; "NONE"
0855 007a       | z  |		.STRTAB	0x007a->0x0892							; "MONDAY"
0856 007e       | ~  |		.STRTAB	0x007e->0x0895							; "TUESDAY"
0857 0083       |    |		.STRTAB	0x0083->0x0898							; "WEDNESDAY"
0858 008a       |    |		.STRTAB	0x008a->0x089d							; "THURSDAY"
0859 0090       |    |		.STRTAB	0x0090->0x08a1							; "FRIDAY"
085a 0094       |    |		.STRTAB	0x0094->0x08a4							; "SATURDAY"
085b 009a       |    |		.STRTAB	0x009a->0x08a8							; "SUNDAY"
085c 009e       |    |		.STRTAB	0x009e->0x08ab							; "PMH"
085d 009f       |    |		.STRTAB	0x009f->0x08ac							; "PMS"
085e 00a0       |    |		.STRTAB	0x00a0->0x08ae							; "HWC"
085f 00a1       |    |		.STRTAB	0x00a1->0x08af							; "SWC"
0860 00a2       |    |		.STRTAB	0x00a2->0x08b1							; "CRASH"
0861 00a5       |    |		.STRTAB	0x00a5->0x08b3							; "HANG"
0862 00a7       |    |		.STRTAB	0x00a7->0x08b5							; "MAINT"
0863 00aa       |    |		.STRTAB	0x00aa->0x08b8							; "RELEASE"
0864 00af       |    |		.STRTAB	0x00af->0x08bb							; "UCC"
0865 00b0       |    |		.STRTAB	0x00b0->0x08bd							; "COPS"
0866 00b2       |    |		.STRTAB	0x00b2->0x08bf							; "CSD"
0867 00b3       |    |		.STRTAB	0x00b3->0x08c0							; "OTHER"
0868 00b6       |    |		.STRTAB	0x00b6->0x08c3							; "CONTRACT"
0869 00bc       |    |		.STRTAB	0x00bc->0x08c7							; "NON_CONTRACT"
086a 00c6       |    |		.STRTAB	0x00c6->0x08cd							; "NONE"
086b 00c8       |    |		.STRTAB	0x00c8->0x08cf							; "MONDAY"
086c 00cc       |    |		.STRTAB	0x00cc->0x08d2							; "TUESDAY"
086d 00d1       |    |		.STRTAB	0x00d1->0x08d5							; "WEDNESDAY"
086e 00d8       |    |		.STRTAB	0x00d8->0x08da							; "THURSDAY"
086f 00de       |    |		.STRTAB	0x00de->0x08de							; "FRIDAY"
0870 00e2       |    |		.STRTAB	0x00e2->0x08e1							; "SATURDAY"
0871 00e8       |    |		.STRTAB	0x00e8->0x08e5							; "SUNDAY"
0872 00ec       |    |		.STRTAB	0x00ec->0x08e8							; "<MINUS_30_DAYS>"
0873 00f9       |    |		.STRTAB	0x00f9->0x08ef							; "<TODAY>"
0874 00fe       |    |		.STRTAB	0x00fe->0x08f3							; "Cannot calculate Availability, Starting Date = Ending Date"
0875 0136       | 6  |		.STRTAB	0x0136->0x0910							; "!Machine.Contract_Hours"
0876 014b       | K  |		.STRTAB	0x014b->0x091b							; "others => Unspecified"
0877 015e       | ^  |		.STRTAB	0x015e->0x0926							; "24:00"
0878 0161       | a  |		.STRTAB	0x0161->0x0928							; "*** Error Parsing !Machine.Contract_Hours"
0879 0188       |    |		.STRTAB	0x0188->0x093d							; "    Using default contract hours."
087a 01a7       |    |		.STRTAB	0x01a7->0x094d							; "System  Availability Report from "
087b 01c6       |    |		.STRTAB	0x01c6->0x095e							; " to "
087c 01c8       |    |		.STRTAB	0x01c8->0x0960							; " ["
087d 01c8       |    |		.STRTAB	0x01c8->0x0961							; "Total Contract Hours     :"
087e 01e0       |    |		.STRTAB	0x01e0->0x096e							; "Total Non Contract Hours :"
087f 01f8       |    |		.STRTAB	0x01f8->0x097b							; "                           =========="
0880 021b       |    |		.STRTAB	0x021b->0x098d							; "Total Hours              :"
0881 0233       | 3  |		.STRTAB	0x0233->0x099a							; "Contract"
0882 0239       | 9  |		.STRTAB	0x0239->0x099e							; "Non Con"
0883 023e       | >  |		.STRTAB	0x023e->0x09a2							; "Total"
0884 0241       | A  |		.STRTAB	0x0241->0x09a4							; " :"
0885 0241       | A  |		.STRTAB	0x0241->0x09a5							; "========"
0886 0247       | G  |		.STRTAB	0x0247->0x09a9							; "Total :"
0887 024c       | L  |		.STRTAB	0x024c->0x09ad							; "Available :"
0888 0255       | U  |		.STRTAB	0x0255->0x09b2							; "Grand Total"
0889 025e       | ^  |		.STRTAB	0x025e->0x09b8							; "Uptime :"
088a 0264       | d  |		.STRTAB	0x0264->0x09bc							; "Contract Hours"
088b 0270       | p  |		.STRTAB	0x0270->0x09c3							; "=============="
088c 027c       | |  |		.STRTAB	0x027c->0x09ca							; "    "
088d 027e       | ~  |		.STRTAB	0x027e->0x09cc							; " : "
088e 027f       |    |		.STRTAB	0x027f->0x09cd							; "None"
088f 0281       |    |		.STREND 0x0281->0x09cf
0890 4e4f 4e45  |NONE|		.STRTAB_STRINGS
09d0 ; --------------------------------------------------------------------------------------
09d0 ; Debug Table
09d0 ; --------------------------------------------------------------------------------------
09d0 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x2387,0x0000,0x0001,0x0000
09d6 0000 0000  |    |		.XXX[0x7]
09d8 0001 0404  |    |
09da 0000 0280  |    |
09dc 8000       |    |
09dd 0000 0000  |    |		.BLANK	0000[0x9]
09e6 0057 26c5  | W& |		.XXX[0x2]
09e8 0000 0000  |    |		.BLANK	0000[0x7]
09ef 006c       | l  |		.XXX[0x1]
09f0 0000 0000  |    |		.BLANK	0000[0x8]
09f8 0001 0404  |    |		.XXX[0x8]
09fa 0000 0700  |    |
09fc 8000 0000  |    |
09fe 0000 0000  |    |