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

⟦fe7a37637⟧

    Length: 2048 (0x800)
    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 0248       | H  |		.CONST	0x0248								; 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 002b       | +  |		.CONST	0x002b								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0009       |    |		.CONST	0x0009								; Number of locals
000b			INIT_0008:
000b 0093 0000  |    |		push_full_address	0x0
000d 6122       |a"  |		Indirect_Literal	Discrete,0x130,{0x80000000, 0x00010000}
000e 0273       | s  |		Execute	Discrete,Plus
000f e014       |    |		Load	0x0,0x14
0010 0273       | s  |		Execute	Discrete,Plus
0011 e015       |    |		Load	0x0,0x15
0012 0273       | s  |		Execute	Discrete,Plus
0013 e402       |    |		Load	0x2,0x2
0014 e016       |    |		Load	0x0,0x16
0015 0387       |    |		Declare_Variable	Package
0016 00d8       |    |		Load_Top	At_Offset_0
0017 020f       |    |		Execute	Module,Activate
0018 e404       |    |		Load	0x2,0x4
0019 1b1b       |    |		Execute	Package,Field_Read,Field_Number 0x1b
001a 0322       | "  |		Declare_Variable	Record
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 00e3       |    |		Load_Encached	Natural_Cache
0020 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0021 e403       |    |		Load	0x2,0x3
0022 0322       | "  |		Declare_Variable	Record
0023 00d8       |    |		Load_Top	At_Offset_0
0024 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0025 00e7       |    |		Load_Encached	Duration_Cache
0026 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0027 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
0029 029f 0183  |    |		Declare_Subprogram	INIT_0180,For_Call
002b			BODY_0008:
002b e408       |    |		Load	0x2,0x8
002c e407       |    |		Load	0x2,0x7
002d 8608       |    |		Call	0x3,0x8
002e a607       |    |		Store_Unchecked	0x3,0x7
002f e603       |    |		Load	0x3,0x3
0030 e405       |    |		Load	0x2,0x5
0031 e404       |    |		Load	0x2,0x4
0032 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
0033 00d1       |    |		Pop_Control	Pop_Count_1
0034 e017       |    |		Load	0x0,0x17
0035 e602       |    |		Load	0x3,0x2
0036 0098       |    |		Execute	Package,Field_Read_Dynamic
0037 0337       | 7  |		Declare_Variable	Array
0038 4800       |H   |		Short_Literal	0x0
0039 4800       |H   |		Short_Literal	0x0
003a e60a       |    |		Load	0x3,0xa
003b 01d6       |    |		Execute	Vector,Field_Write
003c 4801       |H   |		Short_Literal	0x1
003d 4801       |H   |		Short_Literal	0x1
003e e60a       |    |		Load	0x3,0xa
003f 01d6       |    |		Execute	Vector,Field_Write
0040 4801       |H   |		Short_Literal	0x1
0041 4802       |H   |		Short_Literal	0x2
0042 e60a       |    |		Load	0x3,0xa
0043 01d6       |    |		Execute	Vector,Field_Write
0044 4801       |H   |		Short_Literal	0x1
0045 4803       |H   |		Short_Literal	0x3
0046 e60a       |    |		Load	0x3,0xa
0047 01d6       |    |		Execute	Vector,Field_Write
0048 4801       |H   |		Short_Literal	0x1
0049 4804       |H   |		Short_Literal	0x4
004a e60a       |    |		Load	0x3,0xa
004b 01d6       |    |		Execute	Vector,Field_Write
004c 4801       |H   |		Short_Literal	0x1
004d 4805       |H   |		Short_Literal	0x5
004e e60a       |    |		Load	0x3,0xa
004f 01d6       |    |		Execute	Vector,Field_Write
0050 4801       |H   |		Short_Literal	0x1
0051 4806       |H   |		Short_Literal	0x6
0052 e60a       |    |		Load	0x3,0xa
0053 01d6       |    |		Execute	Vector,Field_Write
0054 4801       |H   |		Short_Literal	0x1
0055 4807       |H   |		Short_Literal	0x7
0056 e60a       |    |		Load	0x3,0xa
0057 01d6       |    |		Execute	Vector,Field_Write
0058 e017       |    |		Load	0x0,0x17
0059 e602       |    |		Load	0x3,0x2
005a 0098       |    |		Execute	Package,Field_Read_Dynamic
005b 01c3       |    |		Execute	Vector,Check_In_Type
005c e018       |    |		Load	0x0,0x18
005d e602       |    |		Load	0x3,0x2
005e 0096       |    |		Execute	Package,Entry
005f 00cf       |    |		Action	Mark_Auxiliary
0060 781f       |x   |		Jump	0x80
0061 e603       |    |		Load	0x3,0x3
0062 e404       |    |		Load	0x2,0x4
0063 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0064 840d       |    |		Call	0x2,0xd
0065 6815       |h   |		Jump_Zero	0x7b
0066 e603       |    |		Load	0x3,0x3
0067 e404       |    |		Load	0x2,0x4
0068 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0069 e405       |    |		Load	0x2,0x5
006a e404       |    |		Load	0x2,0x4
006b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
006c e604       |    |		Load	0x3,0x4
006d 017d       | }  |		Execute	Record,Structure_Write
006e e604       |    |		Load	0x3,0x4
006f e606       |    |		Load	0x3,0x6
0070 8409       |    |		Call	0x2,0x9
0071 e606       |    |		Load	0x3,0x6
0072 017d       | }  |		Execute	Record,Structure_Write
0073 e604       |    |		Load	0x3,0x4
0074 e603       |    |		Load	0x3,0x3
0075 e404       |    |		Load	0x2,0x4
0076 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0077 8609       |    |		Call	0x3,0x9
0078 e605       |    |		Load	0x3,0x5
0079 0a01       |    |		Execute_Immediate	Plus,0x1
007a c605       |    |		Store	0x3,0x5
007b e603       |    |		Load	0x3,0x3
007c e404       |    |		Load	0x2,0x4
007d 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
007e 00d1       |    |		Pop_Control	Pop_Count_1
007f 00c9       |    |		Action	Pop_Auxiliary_Loop
0080 e603       |    |		Load	0x3,0x3
0081 e404       |    |		Load	0x2,0x4
0082 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0083 6fdd       |o   |		Jump_Zero	0x61
0084 00ce       |    |		Action	Pop_Auxiliary
0085 0092 01fc  |    |		Action	Push_String_Extended,0x1fc					; "Accounting Summary for Period "
0087 4802       |H   |		Short_Literal	0x2
0088 4800       |H   |		Short_Literal	0x0
0089 4802       |H   |		Short_Literal	0x2
008a e407       |    |		Load	0x2,0x7
008b e007       |    |		Load	0x0,0x7
008c 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
008d e007       |    |		Load	0x0,0x7
008e 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
008f 01cc       |    |		Execute	Vector,Catenate
0090 0092 01fd  |    |		Action	Push_String_Extended,0x1fd					; " to "
0092 01cc       |    |		Execute	Vector,Catenate
0093 4802       |H   |		Short_Literal	0x2
0094 4800       |H   |		Short_Literal	0x0
0095 4802       |H   |		Short_Literal	0x2
0096 e408       |    |		Load	0x2,0x8
0097 e007       |    |		Load	0x0,0x7
0098 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
0099 e007       |    |		Load	0x0,0x7
009a 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
009b 01cc       |    |		Execute	Vector,Catenate
009c 0092 01fe  |    |		Action	Push_String_Extended,0x1fe					; "."
009e 01cc       |    |		Execute	Vector,Catenate
009f e00b       |    |		Load	0x0,0xb
00a0 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00a1 0092 01ff  |    |		Action	Push_String_Extended,0x1ff					; "Total 'Work' Time for Period : "
00a3 e607       |    |		Load	0x3,0x7
00a4 0237       | 7  |		Execute	Float,Convert_From_Discrete
00a5 5886       |X   |		Indirect_Literal	Float,0x12c,3.0517578125e-05
00a6 023b       | ;  |		Execute	Float,Times
00a7 5880       |X   |		Indirect_Literal	Float,0x128,3600.0
00a8 023a       | :  |		Execute	Float,Divide
00a9 0235       | 5  |		Execute	Float,Round_To_Discrete
00aa 00e3       |    |		Load_Encached	Natural_Cache
00ab 025e       | ^  |		Execute	Discrete,Convert
00ac 00e0       |    |		Load_Encached	Standard_Cache
00ad 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00ae 01cc       |    |		Execute	Vector,Catenate
00af 0092 0200  |    |		Action	Push_String_Extended,0x200					; " hours ("
00b1 01cc       |    |		Execute	Vector,Catenate
00b2 e607       |    |		Load	0x3,0x7
00b3 0237       | 7  |		Execute	Float,Convert_From_Discrete
00b4 5877       |Xw  |		Indirect_Literal	Float,0x12c,3.0517578125e-05
00b5 023b       | ;  |		Execute	Float,Times
00b6 586d       |Xm  |		Indirect_Literal	Float,0x124,8.0
00b7 023a       | :  |		Execute	Float,Divide
00b8 586f       |Xo  |		Indirect_Literal	Float,0x128,3600.0
00b9 023a       | :  |		Execute	Float,Divide
00ba 0235       | 5  |		Execute	Float,Round_To_Discrete
00bb 00e3       |    |		Load_Encached	Natural_Cache
00bc 025e       | ^  |		Execute	Discrete,Convert
00bd 00e0       |    |		Load_Encached	Standard_Cache
00be 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00bf 01cc       |    |		Execute	Vector,Catenate
00c0 0092 0201  |    |		Action	Push_String_Extended,0x201					; " days )"
00c2 01cc       |    |		Execute	Vector,Catenate
00c3 e00b       |    |		Load	0x0,0xb
00c4 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00c5 4802       |H   |		Short_Literal	0x2
00c6 e00b       |    |		Load	0x0,0xb
00c7 1840       | @  |		Execute	Package,Field_Execute,Field_Number 0x40
00c8 e605       |    |		Load	0x3,0x5
00c9 6854       |hT  |		Jump_Zero	0x11e
00ca e019       |    |		Load	0x0,0x19
00cb e602       |    |		Load	0x3,0x2
00cc 0096       |    |		Execute	Package,Entry
00cd 00cf       |    |		Action	Mark_Auxiliary
00ce e402       |    |		Load	0x2,0x2
00cf 0265       | e  |		Execute	Discrete,Reverse_Bounds
00d0 0007       |    |		Action	Break_Optional
00d1 00d8       |    |		Load_Top	At_Offset_0
00d2 7005       |p   |		Jump_Nonzero	0xd8
00d3 00ea       |    |		Load_Encached	Null_String_Cache
00d4 e01a       |    |		Load	0x0,0x1a
00d5 e602       |    |		Load	0x3,0x2
00d6 0096       |    |		Execute	Package,Entry
00d7 7805       |x   |		Jump	0xdd
00d8 0092 0202  |    |		Action	Push_String_Extended,0x202					; "<Avg>"
00da e01a       |    |		Load	0x0,0x1a
00db e602       |    |		Load	0x3,0x2
00dc 0096       |    |		Execute	Package,Entry
00dd 00d8       |    |		Load_Top	At_Offset_0
00de 4607       |F   |		Jump_Case	0x8
00df 782a       |x*  |		Jump	0x10a								; case 0x0
00e0 7823       |x#  |		Jump	0x104								; case 0x1
00e1 7806       |x   |		Jump	0xe8								; case 0x2
00e2 780c       |x   |		Jump	0xef								; case 0x3
00e3 7812       |x   |		Jump	0xf6								; case 0x4
00e4 7818       |x   |		Jump	0xfd								; case 0x5
00e5 7824       |x$  |		Jump	0x10a								; case 0x6
00e6 7823       |x#  |		Jump	0x10a								; case 0x7
00e7 7822       |x"  |		.XXX[0x1]
00e8 e606       |    |		Load	0x3,0x6
00e9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00ea e605       |    |		Load	0x3,0x5
00eb 0270       | p  |		Execute	Discrete,Divide
00ec e606       |    |		Load	0x3,0x6
00ed 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00ee 781b       |x   |		Jump	0x10a
00ef e606       |    |		Load	0x3,0x6
00f0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00f1 e605       |    |		Load	0x3,0x5
00f2 0270       | p  |		Execute	Discrete,Divide
00f3 e606       |    |		Load	0x3,0x6
00f4 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
00f5 7814       |x   |		Jump	0x10a
00f6 e606       |    |		Load	0x3,0x6
00f7 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00f8 e605       |    |		Load	0x3,0x5
00f9 0270       | p  |		Execute	Discrete,Divide
00fa e606       |    |		Load	0x3,0x6
00fb 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
00fc 780d       |x   |		Jump	0x10a
00fd e606       |    |		Load	0x3,0x6
00fe 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00ff e605       |    |		Load	0x3,0x5
0100 0270       | p  |		Execute	Discrete,Divide
0101 e606       |    |		Load	0x3,0x6
0102 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0103 7806       |x   |		Jump	0x10a
0104 e606       |    |		Load	0x3,0x6
0105 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0106 e605       |    |		Load	0x3,0x5
0107 0270       | p  |		Execute	Discrete,Divide
0108 e606       |    |		Load	0x3,0x6
0109 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
010a 00c8       |    |		Action	Pop_Auxiliary_Range
010b 3fc5       |?   |		Loop_Increasing	0xd1
010c 00ce       |    |		Action	Pop_Auxiliary
010d e606       |    |		Load	0x3,0x6
010e 0092 0203  |    |		Action	Push_String_Extended,0x203					; "Total ("
0110 e605       |    |		Load	0x3,0x5
0111 00e0       |    |		Load_Encached	Standard_Cache
0112 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0113 01cc       |    |		Execute	Vector,Catenate
0114 0092 0204  |    |		Action	Push_String_Extended,0x204					; " )"
0116 01cc       |    |		Execute	Vector,Catenate
0117 8609       |    |		Call	0x3,0x9
0118 e00b       |    |		Load	0x0,0xb
0119 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
011a e01b       |    |		Load	0x0,0x1b
011b e602       |    |		Load	0x3,0x2
011c 0096       |    |		Execute	Package,Entry
011d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
011e 0092 0205  |    |		Action	Push_String_Extended,0x205					; "No users found for this period."
0120 e00b       |    |		Load	0x0,0xb
0121 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0122 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0123 0000       |    |		.XXX[0x1]
0124 4020 0000  |@   |		.DBL	8.0
0126 0000 0000  |    |
0128 40ac 2000  |@   |		.DBL	3600.0
012a 0000 0000  |    |
012c 3f00 0000  |?   |		.DBL	3.0517578125e-05
012e 0000 0000  |    |
0130 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
0134 0000 0000  |    |		.BLANK	0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 014e       | N  |		.CONST	0x014e								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0004       |    |		.CONST	0x0004								; Number of locals
013b			INIT_0138:
013b e9ff       |    |		Load	0x4,-0x1
013c e9fe       |    |		Load	0x4,-0x2
013d e006       |    |		Load	0x0,0x6
013e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
013f 0237       | 7  |		Execute	Float,Convert_From_Discrete
0140 5feb       |_   |		Indirect_Literal	Float,0x12c,3.0517578125e-05
0141 023b       | ;  |		Execute	Float,Times
0142 5835       |X5  |		Indirect_Literal	Float,0x178,86400.0
0143 023a       | :  |		Execute	Float,Divide
0144 00e6       |    |		Load_Encached	Float_Cache
0145 03df       |    |		Declare_Variable	Float,With_Value
0146 e9ff       |    |		Load	0x4,-0x1
0147 e007       |    |		Load	0x0,0x7
0148 182e       | .  |		Execute	Package,Field_Execute,Field_Number 0x2e
0149 e007       |    |		Load	0x0,0x7
014a 1b2d       | -  |		Execute	Package,Field_Read,Field_Number 0x2d
014b 03f1       |    |		Declare_Variable	Discrete,With_Value
014c 00e3       |    |		Load_Encached	Natural_Cache
014d 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
014e			BODY_0138:
014e 00cf       |    |		Action	Mark_Auxiliary
014f e802       |    |		Load	0x4,0x2
0150 0235       | 5  |		Execute	Float,Round_To_Discrete
0151 00e3       |    |		Load_Encached	Natural_Cache
0152 025e       | ^  |		Execute	Discrete,Convert
0153 4801       |H   |		Short_Literal	0x1
0154 0263       | c  |		Execute	Discrete,Above_Bound
0155 7012       |p   |		Jump_Nonzero	0x168
0156 e803       |    |		Load	0x4,0x3
0157 0d06       |    |		Execute_Immediate	Less,0x6
0158 6803       |h   |		Jump_Zero	0x15c
0159 e804       |    |		Load	0x4,0x4
015a 0a01       |    |		Execute_Immediate	Plus,0x1
015b c804       |    |		Store	0x4,0x4
015c e803       |    |		Load	0x4,0x3
015d 0f07       |    |		Execute_Immediate	Equal,0x7
015e 6803       |h   |		Jump_Zero	0x162
015f 4801       |H   |		Short_Literal	0x1
0160 a803       |    |		Store_Unchecked	0x4,0x3
0161 7804       |x   |		Jump	0x166
0162 00e2       |    |		Load_Encached	Integer_Cache
0163 e803       |    |		Load	0x4,0x3
0164 0268       | h  |		Execute	Discrete,Successor
0165 c803       |    |		Store	0x4,0x3
0166 00c8       |    |		Action	Pop_Auxiliary_Range
0167 3fee       |?   |		Loop_Increasing	0x156
0168 00ce       |    |		Action	Pop_Auxiliary
0169 00d8       |    |		Load_Top	At_Offset_0
016a 0237       | 7  |		Execute	Float,Convert_From_Discrete
016b 5fb8       |_   |		Indirect_Literal	Float,0x124,8.0
016c 023b       | ;  |		Execute	Float,Times
016d 5fba       |_   |		Indirect_Literal	Float,0x128,3600.0
016e 023b       | ;  |		Execute	Float,Times
016f 5fbc       |_   |		Indirect_Literal	Float,0x12c,3.0517578125e-05
0170 023a       | :  |		Execute	Float,Divide
0171 0235       | 5  |		Execute	Float,Round_To_Discrete
0172 00e7       |    |		Load_Encached	Duration_Cache
0173 025e       | ^  |		Execute	Discrete,Convert
0174 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0175 0000 0000  |    |		.XXX[0x3]
0177 0000       |    |
0178 40f5 1800  |@   |		.DBL	86400.0
017a 0000 0000  |    |
017c 0000 0000  |    |		.BLANK	0000[0x4]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 01a5       |    |		.CONST	0x01a5								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0003       |    |		.CONST	0x0003								; Number of locals
0183			INIT_0180:
0183 e9fe       |    |		Load	0x4,-0x2
0184 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0185 0237       | 7  |		Execute	Float,Convert_From_Discrete
0186 5871       |Xq  |		Indirect_Literal	Float,0x1f8,3.0517578125e-05
0187 023b       | ;  |		Execute	Float,Times
0188 586b       |Xk  |		Indirect_Literal	Float,0x1f4,100.0
0189 023b       | ;  |		Execute	Float,Times
018a e607       |    |		Load	0x3,0x7
018b 0237       | 7  |		Execute	Float,Convert_From_Discrete
018c 586b       |Xk  |		Indirect_Literal	Float,0x1f8,3.0517578125e-05
018d 023b       | ;  |		Execute	Float,Times
018e 023a       | :  |		Execute	Float,Divide
018f 0235       | 5  |		Execute	Float,Round_To_Discrete
0190 00e3       |    |		Load_Encached	Natural_Cache
0191 025e       | ^  |		Execute	Discrete,Convert
0192 00e3       |    |		Load_Encached	Natural_Cache
0193 03f1       |    |		Declare_Variable	Discrete,With_Value
0194 e9fe       |    |		Load	0x4,-0x2
0195 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0196 0237       | 7  |		Execute	Float,Convert_From_Discrete
0197 5860       |X`  |		Indirect_Literal	Float,0x1f8,3.0517578125e-05
0198 023b       | ;  |		Execute	Float,Times
0199 5856       |XV  |		Indirect_Literal	Float,0x1f0,1000.0
019a 023b       | ;  |		Execute	Float,Times
019b e607       |    |		Load	0x3,0x7
019c 0237       | 7  |		Execute	Float,Convert_From_Discrete
019d 585a       |XZ  |		Indirect_Literal	Float,0x1f8,3.0517578125e-05
019e 023b       | ;  |		Execute	Float,Times
019f 023a       | :  |		Execute	Float,Divide
01a0 0235       | 5  |		Execute	Float,Round_To_Discrete
01a1 00e3       |    |		Load_Encached	Natural_Cache
01a2 025e       | ^  |		Execute	Discrete,Convert
01a3 00e3       |    |		Load_Encached	Natural_Cache
01a4 03f1       |    |		Declare_Variable	Discrete,With_Value
01a5			BODY_0180:
01a5 00cf       |    |		Action	Mark_Auxiliary
01a6 e402       |    |		Load	0x2,0x2
01a7 0265       | e  |		Execute	Discrete,Reverse_Bounds
01a8 0007       |    |		Action	Break_Optional
01a9 00d8       |    |		Load_Top	At_Offset_0
01aa 4607       |F   |		Jump_Case	0x8
01ab 780e       |x   |		Jump	0x1ba								; case 0x0
01ac 7812       |x   |		Jump	0x1bf								; case 0x1
01ad 7819       |x   |		Jump	0x1c7								; case 0x2
01ae 7820       |x   |		Jump	0x1cf								; case 0x3
01af 7827       |x'  |		Jump	0x1d7								; case 0x4
01b0 782e       |x.  |		Jump	0x1df								; case 0x5
01b1 7835       |x5  |		Jump	0x1e7								; case 0x6
01b2 7800       |x   |		Jump	0x1b3								; case 0x7
01b3 e803       |    |		Load	0x4,0x3
01b4 00e0       |    |		Load_Encached	Standard_Cache
01b5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01b6 e01a       |    |		Load	0x0,0x1a
01b7 e602       |    |		Load	0x3,0x2
01b8 0096       |    |		Execute	Package,Entry
01b9 7833       |x3  |		Jump	0x1ed
01ba e9ff       |    |		Load	0x4,-0x1
01bb e01a       |    |		Load	0x0,0x1a
01bc e602       |    |		Load	0x3,0x2
01bd 0096       |    |		Execute	Package,Entry
01be 782e       |x.  |		Jump	0x1ed
01bf e9fe       |    |		Load	0x4,-0x2
01c0 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01c1 00e0       |    |		Load_Encached	Standard_Cache
01c2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01c3 e01a       |    |		Load	0x0,0x1a
01c4 e602       |    |		Load	0x3,0x2
01c5 0096       |    |		Execute	Package,Entry
01c6 7826       |x&  |		Jump	0x1ed
01c7 e9fe       |    |		Load	0x4,-0x2
01c8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01c9 e007       |    |		Load	0x0,0x7
01ca 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01cb e01a       |    |		Load	0x0,0x1a
01cc e602       |    |		Load	0x3,0x2
01cd 0096       |    |		Execute	Package,Entry
01ce 781e       |x   |		Jump	0x1ed
01cf e9fe       |    |		Load	0x4,-0x2
01d0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01d1 e007       |    |		Load	0x0,0x7
01d2 1829       | )  |		Execute	Package,Field_Execute,Field_Number 0x29
01d3 e01a       |    |		Load	0x0,0x1a
01d4 e602       |    |		Load	0x3,0x2
01d5 0096       |    |		Execute	Package,Entry
01d6 7816       |x   |		Jump	0x1ed
01d7 e9fe       |    |		Load	0x4,-0x2
01d8 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01d9 00e0       |    |		Load_Encached	Standard_Cache
01da 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01db e01a       |    |		Load	0x0,0x1a
01dc e602       |    |		Load	0x3,0x2
01dd 0096       |    |		Execute	Package,Entry
01de 780e       |x   |		Jump	0x1ed
01df e9fe       |    |		Load	0x4,-0x2
01e0 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01e1 00e0       |    |		Load_Encached	Standard_Cache
01e2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01e3 e01a       |    |		Load	0x0,0x1a
01e4 e602       |    |		Load	0x3,0x2
01e5 0096       |    |		Execute	Package,Entry
01e6 7806       |x   |		Jump	0x1ed
01e7 e802       |    |		Load	0x4,0x2
01e8 00e0       |    |		Load_Encached	Standard_Cache
01e9 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01ea e01a       |    |		Load	0x0,0x1a
01eb e602       |    |		Load	0x3,0x2
01ec 0096       |    |		Execute	Package,Entry
01ed 00c8       |    |		Action	Pop_Auxiliary_Range
01ee 3fba       |?   |		Loop_Increasing	0x1a9
01ef 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
01f0 408f 4000  |@ @ |		.DBL	1000.0
01f2 0000 0000  |    |
01f4 4059 0000  |@Y  |		.DBL	100.0
01f6 0000 0000  |    |
01f8 3f00 0000  |?   |		.DBL	3.0517578125e-05
01fa 0000 0000  |    |
01fc ; --------------------------------------------------------------------------------------
01fc ; STRING TABLE
01fc ; --------------------------------------------------------------------------------------
01fc 0016       |    |		.STRTAB	0x0016->0x0207							; "Accounting Summary for Period "
01fd 0032       | 2  |		.STRTAB	0x0032->0x0216							; " to "
01fe 0034       | 4  |		.STRTAB	0x0034->0x0218							; "."
01ff 0033       | 3  |		.STRTAB	0x0033->0x0218							; "Total 'Work' Time for Period : "
0200 0050       | P  |		.STRTAB	0x0050->0x0228							; " hours ("
0201 0056       | V  |		.STRTAB	0x0056->0x022c							; " days )"
0202 005b       | [  |		.STRTAB	0x005b->0x022f							; "<Avg>"
0203 005e       | ^  |		.STRTAB	0x005e->0x0232							; "Total ("
0204 0063       | c  |		.STRTAB	0x0063->0x0235							; " )"
0205 0063       | c  |		.STRTAB	0x0063->0x0236							; "No users found for this period."
0206 0080       |    |		.STREND 0x0080->0x0246
0207 4163 636f  |Acco|		.STRTAB_STRINGS
0246 0000 0000  |    |		.XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; Debug Table
0248 ; --------------------------------------------------------------------------------------
0248 0004 0011  |    |		.DEBUG4	0x0004,0x0011,0x2382,0x0000,0x0001,0x0000
024e 0000 0000  |    |		.BLANK	0000[0xc7]
0315 0020       |    |		.XXX[0x1]
0316 0000 0000  |    |		.BLANK	0000[0x5]
031b 0640 0000  | @  |		.XXX[0x48]
031d 0100 0000  |    |
031f 0100 0100  |    |
0321 0000 0000  |    |
0323 1000 0000  |    |
0325 0600 0000  |    |
0327 0400 0400  |    |
0329 0000 0000  |    |
032b 4400 0000  |D   |
032d 2000 0000  |    |
032f 1000 1000  |    |
0331 0000 0001  |    |
0333 2000 0000  |    |
0335 a000 0000  |    |
0337 4000 4000  |@ @ |
0339 0000 0004  |    |
033b c000 0003  |    |
033d 0000 0001  |    |
033f 0001 0000  |    |
0341 0000 0014  |    |
0343 0000 000e  |    |
0345 0000 0004  |    |
0347 0004 0000  |    |
0349 0000 0054  |   T|
034b 0000 0040  |   @|
034d 0000 0010  |    |
034f 0010 0000  |    |
0351 0000 0160  |   `|
0353 0000 0120  |    |
0355 0000 0040  |   @|
0357 0040 0000  | @  |
0359 0000 05c0  |    |
035b 0000 0500  |    |
035d 0000 0100  |    |
035f 0100 0000  |    |
0361 0000 1800  |    |
0363 0000 0000  |    |		.BLANK	0000[0x9d]