|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
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 03f0 | | .CONST 0x03f0 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 007f | | .CONST 0x007f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001d | | .CONST 0x001d ; Number of locals
000b INIT_0008:
000b 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088
000d 029a 009b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0098
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 029a 00a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a0
0019 c216 | | Store 0x1,0x16
001a 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
001c c210 | | Store 0x1,0x10
001d 00e2 | | Load_Encached Integer_Cache
001e 0129 | ) | Execute Any,Make_Visible
001f c211 | | Store 0x1,0x11
0020 029a 024b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0248
0022 c212 | | Store 0x1,0x12
0023 029a 0253 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0250
0025 c213 | | Store 0x1,0x13
0026 029a 025b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0258
0028 c214 | | Store 0x1,0x14
0029 029a 0263 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0260
002b c215 | | Store 0x1,0x15
002c 00bf | | Action Accept_Activation
002d e001 | | Load 0x0,0x1
002e 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
002f 4801 |H | Short_Literal 0x1
0030 605f |`_ | Indirect_Literal Discrete,0x90,{0x00000000, 0x000012c0}
0031 e217 | | Load 0x1,0x17
0032 02a0 | | Declare_Subprogram Null_Subprogram
0033 4801 |H | Short_Literal 0x1
0034 035d | ] | Declare_Type Array,Defined
0035 00d8 | | Load_Top At_Offset_0
0036 0337 | 7 | Declare_Variable Array
0037 00e3 | | Load_Encached Natural_Cache
0038 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0039 4801 |H | Short_Literal 0x1
003a 480a |H | Short_Literal 0xa
003b 00e9 | | Load_Encached String_Cache
003c 035b | [ | Declare_Type Array,Constrained
003d 0337 | 7 | Declare_Variable Array
003e 00d8 | | Load_Top At_Offset_0
003f 0335 | 5 | Declare_Variable Array,Duplicate
0040 00cd | | Action Spare6_Action
0041 4820 |H | Short_Literal 0x20
0042 4801 |H | Short_Literal 0x1
0043 e21c | | Load 0x1,0x1c
0044 01d6 | | Execute Vector,Field_Write
0045 4820 |H | Short_Literal 0x20
0046 4802 |H | Short_Literal 0x2
0047 e21c | | Load 0x1,0x1c
0048 01d6 | | Execute Vector,Field_Write
0049 4820 |H | Short_Literal 0x20
004a 4803 |H | Short_Literal 0x3
004b e21c | | Load 0x1,0x1c
004c 01d6 | | Execute Vector,Field_Write
004d 4820 |H | Short_Literal 0x20
004e 4804 |H | Short_Literal 0x4
004f e21c | | Load 0x1,0x1c
0050 01d6 | | Execute Vector,Field_Write
0051 4820 |H | Short_Literal 0x20
0052 4805 |H | Short_Literal 0x5
0053 e21c | | Load 0x1,0x1c
0054 01d6 | | Execute Vector,Field_Write
0055 4820 |H | Short_Literal 0x20
0056 4806 |H | Short_Literal 0x6
0057 e21c | | Load 0x1,0x1c
0058 01d6 | | Execute Vector,Field_Write
0059 4820 |H | Short_Literal 0x20
005a 4807 |H | Short_Literal 0x7
005b e21c | | Load 0x1,0x1c
005c 01d6 | | Execute Vector,Field_Write
005d 4820 |H | Short_Literal 0x20
005e 4808 |H | Short_Literal 0x8
005f e21c | | Load 0x1,0x1c
0060 01d6 | | Execute Vector,Field_Write
0061 4820 |H | Short_Literal 0x20
0062 4809 |H | Short_Literal 0x9
0063 e21c | | Load 0x1,0x1c
0064 01d6 | | Execute Vector,Field_Write
0065 4820 |H | Short_Literal 0x20
0066 480a |H | Short_Literal 0xa
0067 e21c | | Load 0x1,0x1c
0068 01d6 | | Execute Vector,Field_Write
0069 e21b | | Load 0x1,0x1b
006a 01d4 | | Execute Vector,Structure_Write
006b 1d0d | | Execute_Immediate Reference_Lex_1,0xd
006c 00c7 | | Action Elaborate_Subprogram
006d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
006e 00c7 | | Action Elaborate_Subprogram
006f 029d 0273 | s| Declare_Subprogram For_Outer_Call,INIT_0270
0071 029d 028b | | Declare_Subprogram For_Outer_Call,INIT_0288
0073 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0074 00c7 | | Action Elaborate_Subprogram
0075 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0076 00c7 | | Action Elaborate_Subprogram
0077 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0078 00c7 | | Action Elaborate_Subprogram
0079 1d13 | | Execute_Immediate Reference_Lex_1,0x13
007a 00c7 | | Action Elaborate_Subprogram
007b 1d14 | | Execute_Immediate Reference_Lex_1,0x14
007c 00c7 | | Action Elaborate_Subprogram
007d 1d15 | | Execute_Immediate Reference_Lex_1,0x15
007e 00c7 | | Action Elaborate_Subprogram
007f BODY_0008:
007f 00bc | | Action Signal_Activated
0080 00bb | | Action Signal_Completion
0081 0000 0000 | | .BLANK 0000[0x7]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 4801 |H | Short_Literal 0x1
008c a21a | | Store_Unchecked 0x1,0x1a
008d 4501 |E | Exit_Subprogram 0x1
008e 0000 0000 | | .XXX[0x2]
0090 0000 0000 | | .LITERAL {0x00000000, 0x000012c0}
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 4801 |H | Short_Literal 0x1
009c a21a | | Store_Unchecked 0x1,0x1a
009d 4501 |E | Exit_Subprogram 0x1
009e 0000 0000 | | .XXX[0x2]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a6 | | .CONST 0x00a6 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 00e3 | | Load_Encached Natural_Cache
00a4 029f 029b | | Declare_Subprogram For_Call,INIT_0298
00a6 BODY_00a0:
00a6 e5ff | | Load 0x2,-0x1
00a7 6814 |h | Jump_Zero 0xbc
00a8 8403 | | Call 0x2,0x3
00a9 00cf | | Action Mark_Auxiliary
00aa 6039 |`9 | Indirect_Literal Discrete,0xe4,{0x00000000, 0x03840000}
00ab e5fb | | Load 0x2,-0x5
00ac e002 | | Load 0x0,0x2
00ad 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00ae e003 | | Load 0x0,0x3
00af 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00b0 e002 | | Load 0x0,0x2
00b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b2 e5fb | | Load 0x2,-0x5
00b3 017d | } | Execute Record,Structure_Write
00b4 e5fb | | Load 0x2,-0x5
00b5 e5fc | | Load 0x2,-0x4
00b6 821d | | Call 0x1,0x1d
00b7 7003 |p | Jump_Nonzero 0xbb
00b8 8403 | | Call 0x2,0x3
00b9 00c9 | | Action Pop_Auxiliary_Loop
00ba 7fef | | Jump 0xaa
00bb 00ce | | Action Pop_Auxiliary
00bc e5f9 | | Load 0x2,-0x7
00bd 6804 |h | Jump_Zero 0xc2
00be 4800 |H | Short_Literal 0x0
00bf a5fa | | Store_Unchecked 0x2,-0x6
00c0 4800 |H | Short_Literal 0x0
00c1 a5f9 | | Store_Unchecked 0x2,-0x7
00c2 e5f7 | | Load 0x2,-0x9
00c3 681e |h | Jump_Zero 0xe2
00c4 4800 |H | Short_Literal 0x0
00c5 a5f8 | | Store_Unchecked 0x2,-0x8
00c6 4800 |H | Short_Literal 0x0
00c7 a5f7 | | Store_Unchecked 0x2,-0x9
00c8 e5ff | | Load 0x2,-0x1
00c9 6818 |h | Jump_Zero 0xe2
00ca e21a | | Load 0x1,0x1a
00cb 0afe | | Execute_Immediate Plus,-0x2
00cc c402 | | Store 0x2,0x2
00cd 00cf | | Action Mark_Auxiliary
00ce e402 | | Load 0x2,0x2
00cf 6811 |h | Jump_Zero 0xe1
00d0 e5fd | | Load 0x2,-0x3
00d1 e402 | | Load 0x2,0x2
00d2 e219 | | Load 0x1,0x19
00d3 01d5 | | Execute Vector,Field_Reference
00d4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00d5 821d | | Call 0x1,0x1d
00d6 700a |p | Jump_Nonzero 0xe1
00d7 4801 |H | Short_Literal 0x1
00d8 e402 | | Load 0x2,0x2
00d9 e219 | | Load 0x1,0x19
00da 01d5 | | Execute Vector,Field_Reference
00db 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00dc e402 | | Load 0x2,0x2
00dd 0aff | | Execute_Immediate Plus,-0x1
00de c402 | | Store 0x2,0x2
00df 00c9 | | Action Pop_Auxiliary_Loop
00e0 7fed | | Jump 0xce
00e1 00ce | | Action Pop_Auxiliary
00e2 4505 |E | Exit_Subprogram 0x5
00e3 0000 | | .XXX[0x1]
00e4 0000 0000 | | .LITERAL {0x00000000, 0x03840000}
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 0104 | | .CONST 0x0104 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0007 | | .CONST 0x0007 ; Number of locals
00eb INIT_00e8:
00eb 4801 |H | Short_Literal 0x1
00ec 485a |HZ | Short_Literal 0x5a
00ed 00e9 | | Load_Encached String_Cache
00ee 035b | [ | Declare_Type Array,Constrained
00ef 0337 | 7 | Declare_Variable Array
00f0 00d8 | | Load_Top At_Offset_0
00f1 0335 | 5 | Declare_Variable Array,Duplicate
00f2 00cd | | Action Spare6_Action
00f3 485a |HZ | Short_Literal 0x5a
00f4 4801 |H | Short_Literal 0x1
00f5 4820 |H | Short_Literal 0x20
00f6 e405 | | Load 0x2,0x5
00f7 e403 | | Load 0x2,0x3
00f8 01d6 | | Execute Vector,Field_Write
00f9 3ffb |? | Loop_Increasing 0xf5
00fa e402 | | Load 0x2,0x2
00fb 01d4 | | Execute Vector,Structure_Write
00fc 00e3 | | Load_Encached Natural_Cache
00fd 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00fe 00e3 | | Load_Encached Natural_Cache
00ff 00e3 | | Load_Encached Natural_Cache
0100 0092 02fd | | Action Push_String_Extended,0x2fd ; " Monthly Usage Summary\x0aTime 00 02 04 06 08 10 12 14 16 18 20 22 23\x0a=============================================================================="
0102 029f 02c3 | | Declare_Subprogram For_Call,INIT_02c0
0104 BODY_00e8:
0104 4802 |H | Short_Literal 0x2
0105 e004 | | Load 0x0,0x4
0106 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0107 0092 02fe | | Action Push_String_Extended,0x2fe ; "System usage report"
0109 e004 | | Load 0x0,0x4
010a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
010b 4802 |H | Short_Literal 0x2
010c e004 | | Load 0x0,0x4
010d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
010e 0092 02ff | | Action Push_String_Extended,0x2ff ; "Display indicates number of users logged in for each day, ranging from"
0110 e004 | | Load 0x0,0x4
0111 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0112 0092 0300 | | Action Push_String_Extended,0x300 ; "00:00 to 24:00 hours, in 1 hour increments. Disk Daemon execution is"
0114 e004 | | Load 0x0,0x4
0115 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0116 0092 0301 | | Action Push_String_Extended,0x301 ; "indicated by a '*' preceeding the user count. An '-' indicates a period"
0118 e004 | | Load 0x0,0x4
0119 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
011a 0092 0302 | | Action Push_String_Extended,0x302 ; "when the system is unavailable."
011c e004 | | Load 0x0,0x4
011d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
011e 4802 |H | Short_Literal 0x2
011f e004 | | Load 0x0,0x4
0120 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0121 e406 | | Load 0x2,0x6
0122 e004 | | Load 0x0,0x4
0123 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0124 00cf | | Action Mark_Auxiliary
0125 e21a | | Load 0x1,0x1a
0126 0aff | | Execute_Immediate Plus,-0x1
0127 4801 |H | Short_Literal 0x1
0128 0263 | c | Execute Discrete,Above_Bound
0129 7100 |q | Jump_Nonzero 0x22a
012a 00d8 | | Load_Top At_Offset_0
012b 0c02 | | Execute_Immediate Greater_Equal,0x2
012c 682c |h, | Jump_Zero 0x159
012d 00d8 | | Load_Top At_Offset_0
012e e219 | | Load 0x1,0x19
012f 01d5 | | Execute Vector,Field_Reference
0130 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0131 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0132 e40a | | Load 0x2,0xa
0133 0aff | | Execute_Immediate Plus,-0x1
0134 e219 | | Load 0x1,0x19
0135 01d5 | | Execute Vector,Field_Reference
0136 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0137 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0138 027e | ~ | Execute Discrete,Not_Equal
0139 681f |h | Jump_Zero 0x159
013a 00d8 | | Load_Top At_Offset_0
013b e219 | | Load 0x1,0x19
013c 01d5 | | Execute Vector,Field_Reference
013d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
013e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
013f e40a | | Load 0x2,0xa
0140 0aff | | Execute_Immediate Plus,-0x1
0141 e219 | | Load 0x1,0x19
0142 01d5 | | Execute Vector,Field_Reference
0143 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0144 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0145 027e | ~ | Execute Discrete,Not_Equal
0146 e40a | | Load 0x2,0xa
0147 0aff | | Execute_Immediate Plus,-0x1
0148 e219 | | Load 0x1,0x19
0149 01d5 | | Execute Vector,Field_Reference
014a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
014b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
014c e40a | | Load 0x2,0xa
014d 0aff | | Execute_Immediate Plus,-0x1
014e e219 | | Load 0x1,0x19
014f 01d5 | | Execute Vector,Field_Reference
0150 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0151 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0152 0a01 | | Execute_Immediate Plus,0x1
0153 00d8 | | Load_Top At_Offset_0
0154 00e2 | | Load_Encached Integer_Cache
0155 0260 | ` | Execute Discrete,In_Type
0156 7001 |p | Jump_Nonzero 0x158
0157 0801 | | Execute_Immediate Raise,0x1
0158 8407 | | Call 0x2,0x7
0159 00d8 | | Load_Top At_Offset_0
015a e219 | | Load 0x1,0x19
015b 01d5 | | Execute Vector,Field_Reference
015c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
015d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
015e a404 | | Store_Unchecked 0x2,0x4
015f 00d8 | | Load_Top At_Offset_0
0160 e219 | | Load 0x1,0x19
0161 01d5 | | Execute Vector,Field_Reference
0162 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0163 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0164 0f01 | | Execute_Immediate Equal,0x1
0165 680b |h | Jump_Zero 0x171
0166 00d8 | | Load_Top At_Offset_0
0167 e219 | | Load 0x1,0x19
0168 01d5 | | Execute Vector,Field_Reference
0169 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
016a 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
016b 0e0c | | Execute_Immediate Not_Equal,0xc
016c 6804 |h | Jump_Zero 0x171
016d e404 | | Load 0x2,0x4
016e 0a0c | | Execute_Immediate Plus,0xc
016f c404 | | Store 0x2,0x4
0170 7810 |x | Jump 0x181
0171 00d8 | | Load_Top At_Offset_0
0172 e219 | | Load 0x1,0x19
0173 01d5 | | Execute Vector,Field_Reference
0174 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0175 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0176 0f0c | | Execute_Immediate Equal,0xc
0177 e40a | | Load 0x2,0xa
0178 e219 | | Load 0x1,0x19
0179 01d5 | | Execute Vector,Field_Reference
017a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
017b 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
017c 0f00 | | Execute_Immediate Equal,0x0
017d 0279 | y | Execute Discrete,And
017e 6802 |h | Jump_Zero 0x181
017f 4800 |H | Short_Literal 0x0
0180 a404 | | Store_Unchecked 0x2,0x4
0181 e404 | | Load 0x2,0x4
0182 4803 |H | Short_Literal 0x3
0183 0271 | q | Execute Discrete,Times
0184 0a01 | | Execute_Immediate Plus,0x1
0185 0237 | 7 | Execute Float,Convert_From_Discrete
0186 0235 | 5 | Execute Float,Round_To_Discrete
0187 00e3 | | Load_Encached Natural_Cache
0188 025e | ^ | Execute Discrete,Convert
0189 a403 | | Store_Unchecked 0x2,0x3
018a 00d8 | | Load_Top At_Offset_0
018b 0c02 | | Execute_Immediate Greater_Equal,0x2
018c 6819 |h | Jump_Zero 0x1a6
018d 00d8 | | Load_Top At_Offset_0
018e e219 | | Load 0x1,0x19
018f 01d5 | | Execute Vector,Field_Reference
0190 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0191 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0192 0c1e | | Execute_Immediate Greater_Equal,0x1e
0193 6812 |h | Jump_Zero 0x1a6
0194 00d8 | | Load_Top At_Offset_0
0195 e219 | | Load 0x1,0x19
0196 01d5 | | Execute Vector,Field_Reference
0197 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0198 e40a | | Load 0x2,0xa
0199 0aff | | Execute_Immediate Plus,-0x1
019a e219 | | Load 0x1,0x19
019b 01d5 | | Execute Vector,Field_Reference
019c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019d 027c | | | Execute Discrete,Less
019e 6807 |h | Jump_Zero 0x1a6
019f 00d8 | | Load_Top At_Offset_0
01a0 0aff | | Execute_Immediate Plus,-0x1
01a1 e219 | | Load 0x1,0x19
01a2 01d5 | | Execute Vector,Field_Reference
01a3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a4 a405 | | Store_Unchecked 0x2,0x5
01a5 7805 |x | Jump 0x1ab
01a6 00d8 | | Load_Top At_Offset_0
01a7 e219 | | Load 0x1,0x19
01a8 01d5 | | Execute Vector,Field_Reference
01a9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01aa a405 | | Store_Unchecked 0x2,0x5
01ab e405 | | Load 0x2,0x5
01ac 6817 |h | Jump_Zero 0x1c4
01ad 4820 |H | Short_Literal 0x20
01ae 4802 |H | Short_Literal 0x2
01af 480a |H | Short_Literal 0xa
01b0 e405 | | Load 0x2,0x5
01b1 e005 | | Load 0x0,0x5
01b2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01b3 e403 | | Load 0x2,0x3
01b4 0a01 | | Execute_Immediate Plus,0x1
01b5 00d8 | | Load_Top At_Offset_0
01b6 00e2 | | Load_Encached Integer_Cache
01b7 0260 | ` | Execute Discrete,In_Type
01b8 7001 |p | Jump_Nonzero 0x1ba
01b9 0801 | | Execute_Immediate Raise,0x1
01ba e403 | | Load 0x2,0x3
01bb 0a02 | | Execute_Immediate Plus,0x2
01bc 00d8 | | Load_Top At_Offset_0
01bd 00e2 | | Load_Encached Integer_Cache
01be 0260 | ` | Execute Discrete,In_Type
01bf 7001 |p | Jump_Nonzero 0x1c1
01c0 0801 | | Execute_Immediate Raise,0x1
01c1 e402 | | Load 0x2,0x2
01c2 01ce | | Execute Vector,Slice_Write
01c3 7805 |x | Jump 0x1c9
01c4 482e |H. | Short_Literal 0x2e
01c5 e403 | | Load 0x2,0x3
01c6 0a02 | | Execute_Immediate Plus,0x2
01c7 e402 | | Load 0x2,0x2
01c8 01d6 | | Execute Vector,Field_Write
01c9 00d8 | | Load_Top At_Offset_0
01ca e219 | | Load 0x1,0x19
01cb 01d5 | | Execute Vector,Field_Reference
01cc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01cd 6822 |h" | Jump_Zero 0x1f0
01ce 00d8 | | Load_Top At_Offset_0
01cf e219 | | Load 0x1,0x19
01d0 01d5 | | Execute Vector,Field_Reference
01d1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01d2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01d3 0d1e | | Execute_Immediate Less,0x1e
01d4 e403 | | Load 0x2,0x3
01d5 0a01 | | Execute_Immediate Plus,0x1
01d6 e402 | | Load 0x2,0x2
01d7 01d7 | | Execute Vector,Field_Read
01d8 0e20 | | Execute_Immediate Not_Equal,0x20
01d9 0278 | x | Execute Discrete,Or
01da 6805 |h | Jump_Zero 0x1e0
01db 482a |H* | Short_Literal 0x2a
01dc e403 | | Load 0x2,0x3
01dd e402 | | Load 0x2,0x2
01de 01d6 | | Execute Vector,Field_Write
01df 7810 |x | Jump 0x1f0
01e0 482a |H* | Short_Literal 0x2a
01e1 e403 | | Load 0x2,0x3
01e2 0a01 | | Execute_Immediate Plus,0x1
01e3 e402 | | Load 0x2,0x2
01e4 01d6 | | Execute Vector,Field_Write
01e5 e403 | | Load 0x2,0x3
01e6 0a02 | | Execute_Immediate Plus,0x2
01e7 e402 | | Load 0x2,0x2
01e8 01d7 | | Execute Vector,Field_Read
01e9 0f2e | . | Execute_Immediate Equal,0x2e
01ea 6805 |h | Jump_Zero 0x1f0
01eb 482a |H* | Short_Literal 0x2a
01ec e403 | | Load 0x2,0x3
01ed 0a02 | | Execute_Immediate Plus,0x2
01ee e402 | | Load 0x2,0x2
01ef 01d6 | | Execute Vector,Field_Write
01f0 00d8 | | Load_Top At_Offset_0
01f1 e219 | | Load 0x1,0x19
01f2 01d5 | | Execute Vector,Field_Reference
01f3 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01f4 6833 |h3 | Jump_Zero 0x228
01f5 00d8 | | Load_Top At_Offset_0
01f6 e219 | | Load 0x1,0x19
01f7 01d5 | | Execute Vector,Field_Reference
01f8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01fa 0d1e | | Execute_Immediate Less,0x1e
01fb 6805 |h | Jump_Zero 0x201
01fc 482d |H- | Short_Literal 0x2d
01fd e403 | | Load 0x2,0x3
01fe e402 | | Load 0x2,0x2
01ff 01d6 | | Execute Vector,Field_Write
0200 7827 |x' | Jump 0x228
0201 e402 | | Load 0x2,0x2
0202 e403 | | Load 0x2,0x3
0203 0a01 | | Execute_Immediate Plus,0x1
0204 00d8 | | Load_Top At_Offset_0
0205 00e2 | | Load_Encached Integer_Cache
0206 0260 | ` | Execute Discrete,In_Type
0207 7001 |p | Jump_Nonzero 0x209
0208 0801 | | Execute_Immediate Raise,0x1
0209 e403 | | Load 0x2,0x3
020a 0a02 | | Execute_Immediate Plus,0x2
020b 00d8 | | Load_Top At_Offset_0
020c 00e2 | | Load_Encached Integer_Cache
020d 0260 | ` | Execute Discrete,In_Type
020e 7001 |p | Jump_Nonzero 0x210
020f 0801 | | Execute_Immediate Raise,0x1
0210 e40c | | Load 0x2,0xc
0211 e40d | | Load 0x2,0xd
0212 e40b | | Load 0x2,0xb
0213 035b | [ | Declare_Type Array,Constrained
0214 e40b | | Load 0x2,0xb
0215 01cd | | Execute Vector,Slice_Reference
0216 4801 |H | Short_Literal 0x1
0217 4802 |H | Short_Literal 0x2
0218 00e9 | | Load_Encached String_Cache
0219 0334 | 4 | Declare_Variable Array,With_Constraint
021a 482d |H- | Short_Literal 0x2d
021b 4801 |H | Short_Literal 0x1
021c e40f | | Load 0x2,0xf
021d 01d6 | | Execute Vector,Field_Write
021e 482d |H- | Short_Literal 0x2d
021f 4802 |H | Short_Literal 0x2
0220 e40f | | Load 0x2,0xf
0221 01d6 | | Execute Vector,Field_Write
0222 00cd | | Action Spare6_Action
0223 e40c | | Load 0x2,0xc
0224 e40d | | Load 0x2,0xd
0225 e40b | | Load 0x2,0xb
0226 01ce | | Execute Vector,Slice_Write
0227 00d3 | | Pop_Control Pop_Count_3
0228 00c8 | | Action Pop_Auxiliary_Range
0229 3f00 |? | Loop_Increasing 0x12a
022a 00ce | | Action Pop_Auxiliary
022b e403 | | Load 0x2,0x3
022c 0e01 | | Execute_Immediate Not_Equal,0x1
022d 6814 |h | Jump_Zero 0x242
022e 4800 |H | Short_Literal 0x0
022f e21a | | Load 0x1,0x1a
0230 0aff | | Execute_Immediate Plus,-0x1
0231 e219 | | Load 0x1,0x19
0232 01d5 | | Execute Vector,Field_Reference
0233 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0234 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0235 e21a | | Load 0x1,0x1a
0236 0aff | | Execute_Immediate Plus,-0x1
0237 e219 | | Load 0x1,0x19
0238 01d5 | | Execute Vector,Field_Reference
0239 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
023a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
023b 0a01 | | Execute_Immediate Plus,0x1
023c 00d8 | | Load_Top At_Offset_0
023d 00e2 | | Load_Encached Integer_Cache
023e 0260 | ` | Execute Discrete,In_Type
023f 7001 |p | Jump_Nonzero 0x241
0240 0801 | | Execute_Immediate Raise,0x1
0241 8407 | | Call 0x2,0x7
0242 0092 0303 | | Action Push_String_Extended,0x303 ; "\x0c"
0244 e004 | | Load 0x0,0x4
0245 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0246 4502 |E | Exit_Subprogram 0x2
0247 0000 | | .XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 4801 |H | Short_Literal 0x1
024c a5ff | | Store_Unchecked 0x2,-0x1
024d 4501 |E | Exit_Subprogram 0x1
024e 0000 0000 | | .XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 e5ff | | Load 0x2,-0x1
0254 0a01 | | Execute_Immediate Plus,0x1
0255 c5ff | | Store 0x2,-0x1
0256 4501 |E | Exit_Subprogram 0x1
0257 0000 | | .XXX[0x1]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e5ff | | Load 0x2,-0x1
025c e21a | | Load 0x1,0x1a
025d 027b | { | Execute Discrete,Greater_Equal
025e 4401 |D | Exit_Subprogram With_Result,0x1
025f 0000 | | .XXX[0x1]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 e5ff | | Load 0x2,-0x1
0264 e219 | | Load 0x1,0x19
0265 01d5 | | Execute Vector,Field_Reference
0266 0320 | | Declare_Variable Record,Duplicate
0267 00cd | | Action Spare6_Action
0268 4401 |D | Exit_Subprogram With_Result,0x1
0269 0000 0000 | | .BLANK 0000[0x7]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 e5ff | | Load 0x2,-0x1
0274 6802 |h | Jump_Zero 0x277
0275 e5fe | | Load 0x2,-0x2
0276 4402 |D | Exit_Subprogram With_Result,0x2
0277 4801 |H | Short_Literal 0x1
0278 e5fe | | Load 0x2,-0x2
0279 01db | | Execute Vector,Length
027a 00d8 | | Load_Top At_Offset_0
027b 00e2 | | Load_Encached Integer_Cache
027c 0260 | ` | Execute Discrete,In_Type
027d 7001 |p | Jump_Nonzero 0x27f
027e 0801 | | Execute_Immediate Raise,0x1
027f e21b | | Load 0x1,0x1b
0280 01cf | | Execute Vector,Slice_Read
0281 4402 |D | Exit_Subprogram With_Result,0x2
0282 0000 0000 | | .BLANK 0000[0x6]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b e5fe | | Load 0x2,-0x2
028c e002 | | Load 0x0,0x2
028d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
028e e5ff | | Load 0x2,-0x1
028f e002 | | Load 0x0,0x2
0290 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0291 e003 | | Load 0x0,0x3
0292 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0293 4402 |D | Exit_Subprogram With_Result,0x2
0294 0000 0000 | | .BLANK 0000[0x4]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b e5fb | | Load 0x2,-0x5
029c e21a | | Load 0x1,0x1a
029d e219 | | Load 0x1,0x19
029e 01d5 | | Execute Vector,Field_Reference
029f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02a0 e5fe | | Load 0x2,-0x2
02a1 e21a | | Load 0x1,0x1a
02a2 e219 | | Load 0x1,0x19
02a3 01d5 | | Execute Vector,Field_Reference
02a4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02a5 e5fa | | Load 0x2,-0x6
02a6 e21a | | Load 0x1,0x1a
02a7 e219 | | Load 0x1,0x19
02a8 01d5 | | Execute Vector,Field_Reference
02a9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02aa e5f8 | | Load 0x2,-0x8
02ab e21a | | Load 0x1,0x1a
02ac e219 | | Load 0x1,0x19
02ad 01d5 | | Execute Vector,Field_Reference
02ae 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02af e21a | | Load 0x1,0x1a
02b0 6007 |` | Indirect_Literal Discrete,0x2b8,{0x00000000, 0x000012c0}
02b1 027c | | | Execute Discrete,Less
02b2 6803 |h | Jump_Zero 0x2b6
02b3 e21a | | Load 0x1,0x1a
02b4 0a01 | | Execute_Immediate Plus,0x1
02b5 c21a | | Store 0x1,0x1a
02b6 4501 |E | Exit_Subprogram 0x1
02b7 0000 | | .XXX[0x1]
02b8 0000 0000 | | .LITERAL {0x00000000, 0x000012c0}
02bc 0000 0000 | | .BLANK 0000[0x4]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 482f |H/ | Short_Literal 0x2f
02c4 4830 |H0 | Short_Literal 0x30
02c5 4802 |H | Short_Literal 0x2
02c6 480a |H | Short_Literal 0xa
02c7 e7ff | | Load 0x3,-0x1
02c8 e005 | | Load 0x0,0x5
02c9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ca 01cb | | Execute Vector,Append
02cb 4830 |H0 | Short_Literal 0x30
02cc 4802 |H | Short_Literal 0x2
02cd 480a |H | Short_Literal 0xa
02ce e7fe | | Load 0x3,-0x2
02cf e005 | | Load 0x0,0x5
02d0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02d1 01cc | | Execute Vector,Catenate
02d2 0092 0304 | | Action Push_String_Extended,0x304 ; " "
02d4 01cc | | Execute Vector,Catenate
02d5 4801 |H | Short_Literal 0x1
02d6 e403 | | Load 0x2,0x3
02d7 0a02 | | Execute_Immediate Plus,0x2
02d8 00d8 | | Load_Top At_Offset_0
02d9 00e2 | | Load_Encached Integer_Cache
02da 0260 | ` | Execute Discrete,In_Type
02db 7001 |p | Jump_Nonzero 0x2dd
02dc 0801 | | Execute_Immediate Raise,0x1
02dd e402 | | Load 0x2,0x2
02de 01cf | | Execute Vector,Slice_Read
02df 01cc | | Execute Vector,Catenate
02e0 e004 | | Load 0x0,0x4
02e1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02e2 e7fd | | Load 0x3,-0x3
02e3 680a |h | Jump_Zero 0x2ee
02e4 0092 0303 | | Action Push_String_Extended,0x303 ; "\x0c"
02e6 e004 | | Load 0x0,0x4
02e7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02e8 4803 |H | Short_Literal 0x3
02e9 e004 | | Load 0x0,0x4
02ea 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02eb e406 | | Load 0x2,0x6
02ec e004 | | Load 0x0,0x4
02ed 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ee e402 | | Load 0x2,0x2
02ef 00d8 | | Load_Top At_Offset_0
02f0 0335 | 5 | Declare_Variable Array,Duplicate
02f1 00cd | | Action Spare6_Action
02f2 485a |HZ | Short_Literal 0x5a
02f3 4801 |H | Short_Literal 0x1
02f4 4820 |H | Short_Literal 0x20
02f5 e605 | | Load 0x3,0x5
02f6 e603 | | Load 0x3,0x3
02f7 01d6 | | Execute Vector,Field_Write
02f8 3ffb |? | Loop_Increasing 0x2f4
02f9 00cd | | Action Spare6_Action
02fa e402 | | Load 0x2,0x2
02fb 01d4 | | Execute Vector,Structure_Write
02fc 4504 |E | Exit_Subprogram 0x4
02fd ; --------------------------------------------------------------------------------------
02fd ; STRING TABLE
02fd ; --------------------------------------------------------------------------------------
02fd 0012 | | .STRTAB 0x0012->0x0306 ; " Monthly Usage Summary\x0aTime 00 02 04 06 08 10 12 14 16 18 20 22 23\x0a=============================================================================="
02fe 00dd | | .STRTAB 0x00dd->0x036c ; "System usage report"
02ff 00ee | | .STRTAB 0x00ee->0x0376 ; "Display indicates number of users logged in for each day, ranging from"
0300 0132 | 2 | .STRTAB 0x0132->0x0399 ; "00:00 to 24:00 hours, in 1 hour increments. Disk Daemon execution is"
0301 0175 | u | .STRTAB 0x0175->0x03bb ; "indicated by a '*' preceeding the user count. An '-' indicates a period"
0302 01bb | | .STRTAB 0x01bb->0x03df ; "when the system is unavailable."
0303 01d8 | | .STRTAB 0x01d8->0x03ef ; "\x0c"
; "\x0c"
0304 01d7 | | .STRTAB 0x01d7->0x03ef ; " "
0305 01d6 | | .STREND 0x01d6->0x03f0
0306 2020 2020 | | .STRTAB_STRINGS
03f0 ; --------------------------------------------------------------------------------------
03f0 ; Debug Table
03f0 ; --------------------------------------------------------------------------------------
03f0 0004 000d | | .DEBUG4 0x0004,0x000d,0x4021,0x0000,0x0001,0x0000
03f6 0000 0000 | | .BLANK 0000[0xa]