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

⟦82a196cdc⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0230       | 0  |		.CONST	0x0230								; 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 8001       |    |		.CONST	0x8001								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0025       | %  |		.CONST	0x0025								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0009       |    |		.CONST	0x0009								; Number of locals
000b			INIT_0008:
000b e00e       |    |		Load	0x0,0xe
000c e00f       |    |		Load	0x0,0xf
000d e402       |    |		Load	0x2,0x2
000e e010       |    |		Load	0x0,0x10
000f 0387       |    |		Declare_Variable	Package
0010 00d8       |    |		Load_Top	At_Offset_0
0011 020f       |    |		Execute	Module,Activate
0012 e404       |    |		Load	0x2,0x4
0013 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
0014 0322       | "  |		Declare_Variable	Record
0015 e403       |    |		Load	0x2,0x3
0016 0322       | "  |		Declare_Variable	Record
0017 00d8       |    |		Load_Top	At_Offset_0
0018 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0019 00e3       |    |		Load_Encached	Natural_Cache
001a 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
001b e403       |    |		Load	0x2,0x3
001c 0322       | "  |		Declare_Variable	Record
001d 00d8       |    |		Load_Top	At_Offset_0
001e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
001f 00e7       |    |		Load_Encached	Duration_Cache
0020 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0021 029f 012b  |   +|		Declare_Subprogram	INIT_0128,For_Call
0023 029f 0173  |   s|		Declare_Subprogram	INIT_0170,For_Call
0025			BODY_0008:
0025 e408       |    |		Load	0x2,0x8
0026 e407       |    |		Load	0x2,0x7
0027 8608       |    |		Call	0x3,0x8
0028 a607       |    |		Store_Unchecked	0x3,0x7
0029 e603       |    |		Load	0x3,0x3
002a e405       |    |		Load	0x2,0x5
002b e404       |    |		Load	0x2,0x4
002c 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
002d 00d1       |    |		Pop_Control	Pop_Count_1
002e e602       |    |		Load	0x3,0x2
002f 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0030 0337       | 7  |		Declare_Variable	Array
0031 4800       |H   |		Short_Literal	0x0
0032 4800       |H   |		Short_Literal	0x0
0033 e60a       |    |		Load	0x3,0xa
0034 01d6       |    |		Execute	Vector,Field_Write
0035 4801       |H   |		Short_Literal	0x1
0036 4801       |H   |		Short_Literal	0x1
0037 e60a       |    |		Load	0x3,0xa
0038 01d6       |    |		Execute	Vector,Field_Write
0039 4801       |H   |		Short_Literal	0x1
003a 4802       |H   |		Short_Literal	0x2
003b e60a       |    |		Load	0x3,0xa
003c 01d6       |    |		Execute	Vector,Field_Write
003d 4801       |H   |		Short_Literal	0x1
003e 4803       |H   |		Short_Literal	0x3
003f e60a       |    |		Load	0x3,0xa
0040 01d6       |    |		Execute	Vector,Field_Write
0041 4801       |H   |		Short_Literal	0x1
0042 4804       |H   |		Short_Literal	0x4
0043 e60a       |    |		Load	0x3,0xa
0044 01d6       |    |		Execute	Vector,Field_Write
0045 4801       |H   |		Short_Literal	0x1
0046 4805       |H   |		Short_Literal	0x5
0047 e60a       |    |		Load	0x3,0xa
0048 01d6       |    |		Execute	Vector,Field_Write
0049 4801       |H   |		Short_Literal	0x1
004a 4806       |H   |		Short_Literal	0x6
004b e60a       |    |		Load	0x3,0xa
004c 01d6       |    |		Execute	Vector,Field_Write
004d 4801       |H   |		Short_Literal	0x1
004e 4807       |H   |		Short_Literal	0x7
004f e60a       |    |		Load	0x3,0xa
0050 01d6       |    |		Execute	Vector,Field_Write
0051 e602       |    |		Load	0x3,0x2
0052 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0053 01c3       |    |		Execute	Vector,Check_In_Type
0054 e602       |    |		Load	0x3,0x2
0055 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0056 00cf       |    |		Action	Mark_Auxiliary
0057 781f       |x   |		Jump	0x77
0058 e603       |    |		Load	0x3,0x3
0059 e404       |    |		Load	0x2,0x4
005a 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
005b 840d       |    |		Call	0x2,0xd
005c 6815       |h   |		Jump_Zero	0x72
005d e603       |    |		Load	0x3,0x3
005e e404       |    |		Load	0x2,0x4
005f 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0060 e405       |    |		Load	0x2,0x5
0061 e404       |    |		Load	0x2,0x4
0062 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0063 e604       |    |		Load	0x3,0x4
0064 017d       | }  |		Execute	Record,Structure_Write
0065 e604       |    |		Load	0x3,0x4
0066 e606       |    |		Load	0x3,0x6
0067 8409       |    |		Call	0x2,0x9
0068 e606       |    |		Load	0x3,0x6
0069 017d       | }  |		Execute	Record,Structure_Write
006a e604       |    |		Load	0x3,0x4
006b e603       |    |		Load	0x3,0x3
006c e404       |    |		Load	0x2,0x4
006d 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
006e 8609       |    |		Call	0x3,0x9
006f e605       |    |		Load	0x3,0x5
0070 0a01       |    |		Execute_Immediate	Plus,0x1
0071 c605       |    |		Store	0x3,0x5
0072 e603       |    |		Load	0x3,0x3
0073 e404       |    |		Load	0x2,0x4
0074 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0075 00d1       |    |		Pop_Control	Pop_Count_1
0076 00c9       |    |		Action	Pop_Auxiliary_Loop
0077 e603       |    |		Load	0x3,0x3
0078 e404       |    |		Load	0x2,0x4
0079 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
007a 6fdd       |o   |		Jump_Zero	0x58
007b 00ce       |    |		Action	Pop_Auxiliary
007c 0092 01e4  |    |		Action	Push_String_Extended,0x1e4					; "Accounting Summary for Period "
007e 4802       |H   |		Short_Literal	0x2
007f 4800       |H   |		Short_Literal	0x0
0080 4802       |H   |		Short_Literal	0x2
0081 e407       |    |		Load	0x2,0x7
0082 e00b       |    |		Load	0x0,0xb
0083 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0084 e00b       |    |		Load	0x0,0xb
0085 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0086 01cc       |    |		Execute	Vector,Catenate
0087 0092 01e5  |    |		Action	Push_String_Extended,0x1e5					; " to "
0089 01cc       |    |		Execute	Vector,Catenate
008a 4802       |H   |		Short_Literal	0x2
008b 4800       |H   |		Short_Literal	0x0
008c 4802       |H   |		Short_Literal	0x2
008d e408       |    |		Load	0x2,0x8
008e e00b       |    |		Load	0x0,0xb
008f 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0090 e00b       |    |		Load	0x0,0xb
0091 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0092 01cc       |    |		Execute	Vector,Catenate
0093 0092 01e6  |    |		Action	Push_String_Extended,0x1e6					; "."
0095 01cc       |    |		Execute	Vector,Catenate
0096 e00c       |    |		Load	0x0,0xc
0097 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0098 0092 01e7  |    |		Action	Push_String_Extended,0x1e7					; "Total 'Work' Time for Period : "
009a e607       |    |		Load	0x3,0x7
009b 0237       | 7  |		Execute	Float,Convert_From_Discrete
009c 5883       |X   |		Indirect_Literal	Float,0x120,3.0517578125e-05
009d 023b       | ;  |		Execute	Float,Times
009e 587d       |X}  |		Indirect_Literal	Float,0x11c,3600.0
009f 023a       | :  |		Execute	Float,Divide
00a0 0235       | 5  |		Execute	Float,Round_To_Discrete
00a1 00e3       |    |		Load_Encached	Natural_Cache
00a2 025e       | ^  |		Execute	Discrete,Convert
00a3 00e0       |    |		Load_Encached	Standard_Cache
00a4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00a5 01cc       |    |		Execute	Vector,Catenate
00a6 0092 01e8  |    |		Action	Push_String_Extended,0x1e8					; " hours ("
00a8 01cc       |    |		Execute	Vector,Catenate
00a9 e607       |    |		Load	0x3,0x7
00aa 0237       | 7  |		Execute	Float,Convert_From_Discrete
00ab 5874       |Xt  |		Indirect_Literal	Float,0x120,3.0517578125e-05
00ac 023b       | ;  |		Execute	Float,Times
00ad 586a       |Xj  |		Indirect_Literal	Float,0x118,8.0
00ae 023a       | :  |		Execute	Float,Divide
00af 586c       |Xl  |		Indirect_Literal	Float,0x11c,3600.0
00b0 023a       | :  |		Execute	Float,Divide
00b1 0235       | 5  |		Execute	Float,Round_To_Discrete
00b2 00e3       |    |		Load_Encached	Natural_Cache
00b3 025e       | ^  |		Execute	Discrete,Convert
00b4 00e0       |    |		Load_Encached	Standard_Cache
00b5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00b6 01cc       |    |		Execute	Vector,Catenate
00b7 0092 01e9  |    |		Action	Push_String_Extended,0x1e9					; " days )"
00b9 01cc       |    |		Execute	Vector,Catenate
00ba e00c       |    |		Load	0x0,0xc
00bb 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00bc 4802       |H   |		Short_Literal	0x2
00bd e00c       |    |		Load	0x0,0xc
00be 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
00bf e605       |    |		Load	0x3,0x5
00c0 684f       |hO  |		Jump_Zero	0x110
00c1 e602       |    |		Load	0x3,0x2
00c2 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
00c3 00cf       |    |		Action	Mark_Auxiliary
00c4 e402       |    |		Load	0x2,0x2
00c5 0265       | e  |		Execute	Discrete,Reverse_Bounds
00c6 0007       |    |		Action	Break_Optional
00c7 00d8       |    |		Load_Top	At_Offset_0
00c8 7004       |p   |		Jump_Nonzero	0xcd
00c9 00ea       |    |		Load_Encached	Null_String_Cache
00ca e602       |    |		Load	0x3,0x2
00cb 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00cc 7804       |x   |		Jump	0xd1
00cd 0092 01ea  |    |		Action	Push_String_Extended,0x1ea					; "<Avg>"
00cf e602       |    |		Load	0x3,0x2
00d0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 4607       |F   |		Jump_Case	0x8
00d3 7829       |x)  |		Jump	0xfd								; case 0x0
00d4 7822       |x"  |		Jump	0xf7								; case 0x1
00d5 7805       |x   |		Jump	0xdb								; case 0x2
00d6 780b       |x   |		Jump	0xe2								; case 0x3
00d7 7811       |x   |		Jump	0xe9								; case 0x4
00d8 7817       |x   |		Jump	0xf0								; case 0x5
00d9 7823       |x#  |		Jump	0xfd								; case 0x6
00da 7822       |x"  |		Jump	0xfd								; case 0x7
00db e606       |    |		Load	0x3,0x6
00dc 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00dd e605       |    |		Load	0x3,0x5
00de 0270       | p  |		Execute	Discrete,Divide
00df e606       |    |		Load	0x3,0x6
00e0 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00e1 781b       |x   |		Jump	0xfd
00e2 e606       |    |		Load	0x3,0x6
00e3 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00e4 e605       |    |		Load	0x3,0x5
00e5 0270       | p  |		Execute	Discrete,Divide
00e6 e606       |    |		Load	0x3,0x6
00e7 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00e8 7814       |x   |		Jump	0xfd
00e9 e606       |    |		Load	0x3,0x6
00ea 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00eb e605       |    |		Load	0x3,0x5
00ec 0270       | p  |		Execute	Discrete,Divide
00ed e606       |    |		Load	0x3,0x6
00ee 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00ef 780d       |x   |		Jump	0xfd
00f0 e606       |    |		Load	0x3,0x6
00f1 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00f2 e605       |    |		Load	0x3,0x5
00f3 0270       | p  |		Execute	Discrete,Divide
00f4 e606       |    |		Load	0x3,0x6
00f5 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00f6 7806       |x   |		Jump	0xfd
00f7 e606       |    |		Load	0x3,0x6
00f8 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f9 e605       |    |		Load	0x3,0x5
00fa 0270       | p  |		Execute	Discrete,Divide
00fb e606       |    |		Load	0x3,0x6
00fc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00fd 00c8       |    |		Action	Pop_Auxiliary_Range
00fe 3fc8       |?   |		Loop_Increasing	0xc7
00ff 00ce       |    |		Action	Pop_Auxiliary
0100 e606       |    |		Load	0x3,0x6
0101 0092 01eb  |    |		Action	Push_String_Extended,0x1eb					; "Total ("
0103 e605       |    |		Load	0x3,0x5
0104 00e0       |    |		Load_Encached	Standard_Cache
0105 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0106 01cc       |    |		Execute	Vector,Catenate
0107 0092 01ec  |    |		Action	Push_String_Extended,0x1ec					; " )"
0109 01cc       |    |		Execute	Vector,Catenate
010a 8609       |    |		Call	0x3,0x9
010b e00c       |    |		Load	0x0,0xc
010c 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
010d e602       |    |		Load	0x3,0x2
010e 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
010f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0110 0092 01ed  |    |		Action	Push_String_Extended,0x1ed					; "No users found for this period."
0112 e00c       |    |		Load	0x0,0xc
0113 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0114 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0115 0000 0000  |    |		.XXX[0x3]
0117 0000       |    |
0118 4020 0000  |@   |		.DBL	8.0
011a 0000 0000  |    |
011c 40ac 2000  |@   |		.DBL	3600.0
011e 0000 0000  |    |
0120 3f00 0000  |?   |		.DBL	3.0517578125e-05
0122 0000 0000  |    |
0124 0000 0000  |    |		.BLANK	0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 013e       | >  |		.CONST	0x013e								; Address of begin
0129 0004       |    |		.CONST	0x0004								; Address of exception handler
012a 0004       |    |		.CONST	0x0004								; Number of locals
012b			INIT_0128:
012b e9ff       |    |		Load	0x4,-0x1
012c e9fe       |    |		Load	0x4,-0x2
012d e005       |    |		Load	0x0,0x5
012e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
012f 0237       | 7  |		Execute	Float,Convert_From_Discrete
0130 5fef       |_   |		Indirect_Literal	Float,0x120,3.0517578125e-05
0131 023b       | ;  |		Execute	Float,Times
0132 5835       |X5  |		Indirect_Literal	Float,0x168,86400.0
0133 023a       | :  |		Execute	Float,Divide
0134 00e6       |    |		Load_Encached	Float_Cache
0135 03df       |    |		Declare_Variable	Float,With_Value
0136 e9ff       |    |		Load	0x4,-0x1
0137 e00b       |    |		Load	0x0,0xb
0138 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0139 e00b       |    |		Load	0x0,0xb
013a 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
013b 03f1       |    |		Declare_Variable	Discrete,With_Value
013c 00e3       |    |		Load_Encached	Natural_Cache
013d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
013e			BODY_0128:
013e 00cf       |    |		Action	Mark_Auxiliary
013f e802       |    |		Load	0x4,0x2
0140 0235       | 5  |		Execute	Float,Round_To_Discrete
0141 00e3       |    |		Load_Encached	Natural_Cache
0142 025e       | ^  |		Execute	Discrete,Convert
0143 4801       |H   |		Short_Literal	0x1
0144 0263       | c  |		Execute	Discrete,Above_Bound
0145 7012       |p   |		Jump_Nonzero	0x158
0146 e803       |    |		Load	0x4,0x3
0147 0d06       |    |		Execute_Immediate	Less,0x6
0148 6803       |h   |		Jump_Zero	0x14c
0149 e804       |    |		Load	0x4,0x4
014a 0a01       |    |		Execute_Immediate	Plus,0x1
014b c804       |    |		Store	0x4,0x4
014c e803       |    |		Load	0x4,0x3
014d 0f07       |    |		Execute_Immediate	Equal,0x7
014e 6803       |h   |		Jump_Zero	0x152
014f 4801       |H   |		Short_Literal	0x1
0150 a803       |    |		Store_Unchecked	0x4,0x3
0151 7804       |x   |		Jump	0x156
0152 00e2       |    |		Load_Encached	Integer_Cache
0153 e803       |    |		Load	0x4,0x3
0154 0268       | h  |		Execute	Discrete,Successor
0155 c803       |    |		Store	0x4,0x3
0156 00c8       |    |		Action	Pop_Auxiliary_Range
0157 3fee       |?   |		Loop_Increasing	0x146
0158 00ce       |    |		Action	Pop_Auxiliary
0159 00d8       |    |		Load_Top	At_Offset_0
015a 0237       | 7  |		Execute	Float,Convert_From_Discrete
015b 5fbc       |_   |		Indirect_Literal	Float,0x118,8.0
015c 023b       | ;  |		Execute	Float,Times
015d 5fbe       |_   |		Indirect_Literal	Float,0x11c,3600.0
015e 023b       | ;  |		Execute	Float,Times
015f 5fc0       |_   |		Indirect_Literal	Float,0x120,3.0517578125e-05
0160 023a       | :  |		Execute	Float,Divide
0161 0235       | 5  |		Execute	Float,Round_To_Discrete
0162 00e7       |    |		Load_Encached	Duration_Cache
0163 025e       | ^  |		Execute	Discrete,Convert
0164 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0165 0000 0000  |    |		.XXX[0x3]
0167 0000       |    |
0168 40f5 1800  |@   |		.DBL	86400.0
016a 0000 0000  |    |
016c 0000 0000  |    |		.BLANK	0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0195       |    |		.CONST	0x0195								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0003       |    |		.CONST	0x0003								; Number of locals
0173			INIT_0170:
0173 e9fe       |    |		Load	0x4,-0x2
0174 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0175 0237       | 7  |		Execute	Float,Convert_From_Discrete
0176 5869       |Xi  |		Indirect_Literal	Float,0x1e0,3.0517578125e-05
0177 023b       | ;  |		Execute	Float,Times
0178 5863       |Xc  |		Indirect_Literal	Float,0x1dc,100.0
0179 023b       | ;  |		Execute	Float,Times
017a e607       |    |		Load	0x3,0x7
017b 0237       | 7  |		Execute	Float,Convert_From_Discrete
017c 5863       |Xc  |		Indirect_Literal	Float,0x1e0,3.0517578125e-05
017d 023b       | ;  |		Execute	Float,Times
017e 023a       | :  |		Execute	Float,Divide
017f 0235       | 5  |		Execute	Float,Round_To_Discrete
0180 00e3       |    |		Load_Encached	Natural_Cache
0181 025e       | ^  |		Execute	Discrete,Convert
0182 00e3       |    |		Load_Encached	Natural_Cache
0183 03f1       |    |		Declare_Variable	Discrete,With_Value
0184 e9fe       |    |		Load	0x4,-0x2
0185 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0186 0237       | 7  |		Execute	Float,Convert_From_Discrete
0187 5858       |XX  |		Indirect_Literal	Float,0x1e0,3.0517578125e-05
0188 023b       | ;  |		Execute	Float,Times
0189 584e       |XN  |		Indirect_Literal	Float,0x1d8,1000.0
018a 023b       | ;  |		Execute	Float,Times
018b e607       |    |		Load	0x3,0x7
018c 0237       | 7  |		Execute	Float,Convert_From_Discrete
018d 5852       |XR  |		Indirect_Literal	Float,0x1e0,3.0517578125e-05
018e 023b       | ;  |		Execute	Float,Times
018f 023a       | :  |		Execute	Float,Divide
0190 0235       | 5  |		Execute	Float,Round_To_Discrete
0191 00e3       |    |		Load_Encached	Natural_Cache
0192 025e       | ^  |		Execute	Discrete,Convert
0193 00e3       |    |		Load_Encached	Natural_Cache
0194 03f1       |    |		Declare_Variable	Discrete,With_Value
0195			BODY_0170:
0195 00cf       |    |		Action	Mark_Auxiliary
0196 e402       |    |		Load	0x2,0x2
0197 0265       | e  |		Execute	Discrete,Reverse_Bounds
0198 0007       |    |		Action	Break_Optional
0199 00d8       |    |		Load_Top	At_Offset_0
019a 4607       |F   |		Jump_Case	0x8
019b 780d       |x   |		Jump	0x1a9								; case 0x0
019c 7810       |x   |		Jump	0x1ad								; case 0x1
019d 7816       |x   |		Jump	0x1b4								; case 0x2
019e 781c       |x   |		Jump	0x1bb								; case 0x3
019f 7822       |x"  |		Jump	0x1c2								; case 0x4
01a0 7828       |x(  |		Jump	0x1c9								; case 0x5
01a1 782e       |x.  |		Jump	0x1d0								; case 0x6
01a2 7800       |x   |		Jump	0x1a3								; case 0x7
01a3 e803       |    |		Load	0x4,0x3
01a4 00e0       |    |		Load_Encached	Standard_Cache
01a5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01a6 e602       |    |		Load	0x3,0x2
01a7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01a8 782c       |x,  |		Jump	0x1d5
01a9 e9ff       |    |		Load	0x4,-0x1
01aa e602       |    |		Load	0x3,0x2
01ab 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01ac 7828       |x(  |		Jump	0x1d5
01ad e9fe       |    |		Load	0x4,-0x2
01ae 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01af 00e0       |    |		Load_Encached	Standard_Cache
01b0 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01b1 e602       |    |		Load	0x3,0x2
01b2 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01b3 7821       |x!  |		Jump	0x1d5
01b4 e9fe       |    |		Load	0x4,-0x2
01b5 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b6 e00b       |    |		Load	0x0,0xb
01b7 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01b8 e602       |    |		Load	0x3,0x2
01b9 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01ba 781a       |x   |		Jump	0x1d5
01bb e9fe       |    |		Load	0x4,-0x2
01bc 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01bd e00b       |    |		Load	0x0,0xb
01be 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01bf e602       |    |		Load	0x3,0x2
01c0 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01c1 7813       |x   |		Jump	0x1d5
01c2 e9fe       |    |		Load	0x4,-0x2
01c3 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01c4 00e0       |    |		Load_Encached	Standard_Cache
01c5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01c6 e602       |    |		Load	0x3,0x2
01c7 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01c8 780c       |x   |		Jump	0x1d5
01c9 e9fe       |    |		Load	0x4,-0x2
01ca 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01cb 00e0       |    |		Load_Encached	Standard_Cache
01cc 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01cd e602       |    |		Load	0x3,0x2
01ce 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01cf 7805       |x   |		Jump	0x1d5
01d0 e802       |    |		Load	0x4,0x2
01d1 00e0       |    |		Load_Encached	Standard_Cache
01d2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01d3 e602       |    |		Load	0x3,0x2
01d4 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01d5 00c8       |    |		Action	Pop_Auxiliary_Range
01d6 3fc2       |?   |		Loop_Increasing	0x199
01d7 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01d8 408f 4000  |@ @ |		.DBL	1000.0
01da 0000 0000  |    |
01dc 4059 0000  |@Y  |		.DBL	100.0
01de 0000 0000  |    |
01e0 3f00 0000  |?   |		.DBL	3.0517578125e-05
01e2 0000 0000  |    |
01e4 ; --------------------------------------------------------------------------------------
01e4 ; STRING TABLE
01e4 ; --------------------------------------------------------------------------------------
01e4 0016       |    |		.STRTAB	0x0016->0x01ef							; "Accounting Summary for Period "
01e5 0032       | 2  |		.STRTAB	0x0032->0x01fe							; " to "
01e6 0034       | 4  |		.STRTAB	0x0034->0x0200							; "."
01e7 0033       | 3  |		.STRTAB	0x0033->0x0200							; "Total 'Work' Time for Period : "
01e8 0050       | P  |		.STRTAB	0x0050->0x0210							; " hours ("
01e9 0056       | V  |		.STRTAB	0x0056->0x0214							; " days )"
01ea 005b       | [  |		.STRTAB	0x005b->0x0217							; "<Avg>"
01eb 005e       | ^  |		.STRTAB	0x005e->0x021a							; "Total ("
01ec 0063       | c  |		.STRTAB	0x0063->0x021d							; " )"
01ed 0063       | c  |		.STRTAB	0x0063->0x021e							; "No users found for this period."
01ee 0080       |    |		.STREND 0x0080->0x022e
01ef 4163 636f  |Acco|		.STRTAB_STRINGS
022e 0000 0000  |    |		.XXX[0x2]
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug Table
0230 ; --------------------------------------------------------------------------------------
0230 0004 000d  |    |		.DEBUG4	0x0004,0x000d,0x4029,0x0000,0x0001,0x0000
0236 6578 745f  |ext_|		.XXX[0x1ca]
0238 496f 2e49  |Io.I|
023a 6e74 6567  |nteg|
023c 6572 5f49  |er_I|
023e 6f2e 4465  |o.De|
0240 6661 756c  |faul|
0242 745f 4261  |t_Ba|
0244 7365 0000  |se  |
0246 0009 0000  |    |
0248 0016 2149  |  !I|
024a 6f2e 5465  |o.Te|
024c 7874 5f49  |xt_I|
024e 6f2e 496e  |o.In|
0250 7465 6765  |tege|
0252 725f 496f  |r_Io|
0254 0000 0009  |    |
0256 0000 0015  |    |
0258 2149 6f2e  |!Io.|
025a 496f 2e49  |Io.I|
025c 6e74 6567  |nteg|
025e 6572 5f49  |er_I|
0260 6f2e 5075  |o.Pu|
0262 7400 0000  |t   |
0264 0900 0000  |    |
0266 1521 496f  | !Io|
0268 2e49 6f2e  |.Io.|
026a 496e 7465  |Inte|
026c 6765 725f  |ger_|
026e 496f 2e4e  |Io.N|
0270 756d 0000  |um  |
0272 0009 0000  |    |
0274 0015 2149  |  !I|
0276 6f2e 496f  |o.Io|
0278 2e49 6e74  |.Int|
027a 6567 6572  |eger|
027c 5f49 6f2e  |_Io.|
027e 4765 7400  |Get |
0280 0000 0900  |    |
0282 0000 1f21  |   !|
0284 496f 2e49  |Io.I|
0286 6f2e 496e  |o.In|
0288 7465 6765  |tege|
028a 725f 496f  |r_Io|
028c 2e44 6566  |.Def|
028e 6175 6c74  |ault|
0290 5f57 6964  |_Wid|
0292 7468 0000  |th  |
0294 0009 0000  |    |
0296 001e 2149  |  !I|
0298 6f2e 496f  |o.Io|
029a 2e49 6e74  |.Int|
029c 6567 6572  |eger|
029e 5f49 6f2e  |_Io.|
02a0 4465 6661  |Defa|
02a2 756c 745f  |ult_|
02a4 4261 7365  |Base|
02a6 0000 0009  |    |
02a8 0000 0011  |    |
02aa 2149 6f2e  |!Io.|
02ac 496f 2e49  |Io.I|
02ae 6e74 6567  |nteg|
02b0 6572 5f49  |er_I|
02b2 6f00 0000  |o   |
02b4 1b00 0000  |    |
02b6 1869 6e74  | int|
02b8 6572 6368  |erch|
02ba 616e 6765  |ange|
02bc 2e64 6179  |.day|
02be 5f64 7572  |_dur|
02c0 6174 696f  |atio|
02c2 6e00 0000  |n   |
02c4 0200 0000  |    |
02c6 1200 0000  |    |
02c8 5442 a8de  |TB  |
02ca ded8 e65c  |   \|
02cc 9cca e8ee  |    |
02ce dee4 d6d2  |    |
02d0 dcce 5c92  |  \ |
02d2 dce8 cae4  |    |
02d4 c6d0 c2dc  |    |
02d6 ceca 5c88  |  \ |
02d8 c2f2 be88  |    |
02da eae4 c2e8  |    |
02dc d2de dc00  |    |
02de 0000 3600  |  6 |
02e0 0000 32d2  |  2 |
02e2 dce8 cae4  |    |
02e4 c6d0 c2dc  |    |
02e6 ceca 5ce6  |  \ |
02e8 d0de e4e8  |    |
02ea bedc c2e8  |    |
02ec eae4 c2d8  |    |
02ee 0000 0004  |    |
02f0 0000 0024  |   $|
02f2 0000 00ac  |    |
02f4 8551 bdbd  | Q  |
02f6 b1cc b939  |   9|
02f8 95d1 ddbd  |    |
02fa c9ad a5b9  |    |
02fc 9cb9 25b9  |  % |
02fe d195 c98d  |    |
0300 a185 b99d  |    |
0302 94b9 4da1  |  M |
0304 bdc9 d17d  |   }|
0306 3985 d1d5  |9   |
0308 c985 b000  |    |
030a 0000 6c00  |  l |
030c 0000 55a5  |  U |
030e b9d1 95c9  |    |
0310 8da1 85b9  |    |
0312 9d95 7d91  |  } |
0314 9599 ccb8  |    |
0316 88f0 f488  |    |
0318 0000 0008  |    |
031a 0000 0048  |   H|
031c 0000 0139  |   9|
031e 0aa3 7b7b  |  {{|
0320 6399 7273  |c rs|
0322 2ba3 bb7b  |+  {|
0324 935b 4b73  | [Ks|
0326 3972 4b73  |9rKs|
0328 a32b 931b  | +  |
032a 430b 733b  |C s;|
032c 2afa 232b  |* #+|
032e 3399 7111  |3 q |
0330 e1e9 1000  |    |
0332 0002 3000  |  0 |
0334 0000 4b4b  |  KK|
0336 73a3 2b93  |s + |
0338 93ab 83a0  |    |
033a 0000 0010  |    |
033c 0000 0380  |    |
033e 0000 0172  |   r|
0340 1436 f6d6  | 6  |
0342 d616 e647  |   G|
0344 32e4 a6f6  |2   |
0346 22e4 96e7  |"   |
0348 4657 2727  |FW''|
034a 5707 4000  |W @ |
034c 0001 b000  |    |
034e 0002 0696  |    |
0350 e746 5726  | FW&|
0352 3686 16e6  |6   |
0354 7655 f646  |vU F|
0356 5667 32e6  |Vg2 |
0358 c6f6 e676  |   v|
035a 5737 45f6  |W7E |
035c 96e7 4656  |  FV|
035e 7657 2000  |vW  |
0360 0000 2000  |    |
0362 0001 2000  |    |
0364 0006 442a  |  D*|
0366 8ded ed8e  |    |
0368 65c9 ccae  |e   |
036a 8eed ee4d  |   M|
036c 6d2d cce5  |m-  |
036e c92d ce8c  | -  |
0370 ae4c 6d0c  | Lm |
0372 2dcc ecab  |-   |
0374 e88c acce  |    |
0376 65c9 8ded  |e   |
0378 ccec ae6e  |   n|
037a 8be9 2dce  |  - |
037c 8cac ecae  |    |
037e 4000 0001  |@   |
0380 a000 0000  |    |
0382 cd2d e5c4  | -  |
0384 47a4 4000  |G @ |
0386 0000 4000  |  @ |
0388 0002 4000  |  @ |
038a 0002 8852  |   R|
038c 5bcb 925b  |[  [|
038e cb88 8f48  |   H|
0390 8000 0003  |    |
0392 4000 0005  |@   |
0394 5a5b cb99  |Z[  |
0396 5b9d 5b59  |[ [Y|
0398 5c98 5d1a  |\ ] |
039a 5bdb 97da  |[   |
039c 5bcb 9c1d  |[   |
039e 5d00 0000  |]   |
03a0 0080 0000  |    |
03a2 0480 0000  |    |
03a4 0c90 a4b7  |    |
03a6 9724 b797  | $  |
03a8 22b7 3ab6  |" : |
03aa b2b9 30ba  |  0 |
03ac 34b7 b72f  |4  /|
03ae a4b7 9728  |   (|
03b0 3aba 0000  |:   |
03b2 0005 0000  |    |
03b4 0009 34b7  |  4 |
03b6 9732 34b9  | 24 |
03b8 32b1 ba2f  |2  /|
03ba b4b7 9734  |   4|
03bc b732 32bc  | 22 |
03be 0000 0001  |    |
03c0 0000 0009  |    |
03c2 0000 0013  |    |
03c4 2149 6f2e  |!Io.|
03c6 4469 7265  |Dire|
03c8 6374 5f49  |ct_I|
03ca 6f2e 496e  |o.In|
03cc 6465 7800  |dex |
03ce 0000 0d00  |    |
03d0 0000 1169  |   i|
03d2 6f2e 6375  |o.cu|
03d4 7272 656e  |rren|
03d6 745f 6f75  |t_ou|
03d8 7470 7574  |tput|
03da 0000 0002  |    |
03dc 0000 0012  |    |
03de 0000 002a  |   *|
03e0 4292 de5c  |B  \|
03e2 92de 5c86  |  \ |
03e4 eae4 e4ca  |    |
03e6 dce8 be9e  |    |
03e8 eae8 e0ea  |    |
03ea e800 0000  |    |
03ec 1400 0000  |    |
03ee 2cd2 de5c  |,  \|
03f0 c8d2 e4ca  |    |
03f2 c6e8 bed2  |    |
03f4 de5c ccd2  | \  |
03f6 d8ca bee8  |    |
03f8 f2e0 ca00  |    |
03fa 0000 0400  |    |
03fc 0000 2400  |  $ |
03fe 0000 5c85  |  \ |