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

⟦ccbcd7f70⟧

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

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 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 0000 3fb2  |  ? |		.XXX[0x22]
0238 0d44 6404  | Dd |
023a 0800 0aff  |    |
023c 0d99 d80d  |    |
023e 0000 4a33  |  J3|
0240 0d44 6404  | Dd |
0242 0000 06cc  |    |
0244 0003 60ff  |  ` |
0246 0000 1b00  |    |
0248 000e 1c04  |    |
024a 4000 0300  |@   |
024c 0000 0000  |    |
024e 0000 005f  |   _|
0250 0d04 0008  |    |
0252 0000 0000  |    |
0254 0003 60ff  |  ` |
0256 0000 00ff  |    |
0258 0000 0000  |    |		.BLANK	0000[0x4]
025c 0d44 6404  | Dd |		.XXX[0xe]
025e 0000 0000  |    |
0260 0d44 6404  | Dd |
0262 0000 000b  |    |
0264 0099 d80d  |    |
0266 0000 4a82  |  J |
0268 0d0a 8c04  |    |
026a 0000 0000  |    |		.BLANK	0000[0x8]
0272 ec03 8005  |    |		.XXX[0x36]
0274 0d44 6804  | Dh |
0276 0000 04da  |    |
0278 0003 60ff  |  ` |
027a 0000 065a  |   Z|
027c 0003 60ff  |  ` |
027e 0000 065a  |   Z|
0280 0000 0e00  |    |
0282 9000 048b  |    |
0284 1a00 007f  |    |
0286 641a 88c8  |d   |
0288 0d42 3004  | B0 |
028a 0000 01a1  |    |
028c 0002 2f68  |  /h|
028e 0000 0000  |    |
0290 0d04 0000  |    |
0292 0000 0029  |   )|
0294 0d44 6404  | Dd |
0296 0000 0000  |    |
0298 f04d 1498  | M  |
029a 3974 0821  |9t !|
029c 3302 2350  |3 #P|
029e 3974 0821  |9t !|
02a0 38b6 13b7  |8   |
02a2 2352 2352  |#R#R|
02a4 384d cb17  |8M  |
02a6 384d 7976  |8Myv|
02a8 0000 0000  |    |		.BLANK	0000[0x58]
0300 0d44 5c04  | D\ |		.XXX[0x60]
0302 0000 0698  |    |
0304 0d44 6404  | Dd |
0306 0000 0000  |    |
0308 0200 0043  |   C|
030a 8000 025f  |   _|
030c 0003 60ff  |  ` |
030e 0000 00ff  |    |
0310 0d44 6404  | Dd |
0312 0800 0aff  |    |
0314 0099 d80d  |    |
0316 0000 4393  |  C |
0318 0d44 6404  | Dd |
031a 4000 003f  |@  ?|
031c 0001 5094  |  P |
031e 0000 05a5  |    |
0320 0d44 5c04  | D\ |
0322 0000 01c4  |    |
0324 0003 60ff  |  ` |
0326 0000 0681  |    |
0328 000e 3c04  |  < |
032a 0000 0444  |   D|
032c 0003 60ff  |  ` |
032e 0000 065a  |   Z|
0330 001f 5404  |  T |
0332 0000 0144  |   D|
0334 0003 60ff  |  ` |
0336 0000 06e0  |    |
0338 0001 b004  |    |
033a 0800 0280  |    |
033c 0000 0000  |    |
033e 0000 0023  |   #|
0340 0d44 6404  | Dd |
0342 0000 007f  |    |
0344 0099 d80d  |    |
0346 0000 4a82  |  J |
0348 0d44 6404  | Dd |
034a 0000 003f  |   ?|
034c 0001 e07f  |    |
034e 0000 05a5  |    |
0350 0001 9804  |    |
0352 0800 1384  |    |
0354 0003 60ff  |  ` |
0356 0000 065a  |   Z|
0358 0001 9804  |    |
035a 0800 1380  |    |
035c 0000 0000  |    |
035e 0000 0002  |    |
0360 0000 0000  |    |		.BLANK	0000[0x8c]
03ec 0d44 6804  | Dh |		.XXX[0x14]
03ee 0000 0005  |    |
03f0 0001 0404  |    |
03f2 0000 0700  |    |
03f4 0d44 6804  | Dh |
03f6 0000 1670  |   p|
03f8 ff60 0023  | ` #|
03fa 5000 0001  |P   |
03fc 0000 0000  |    |
03fe 0000 0003  |    |