|
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 - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦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 03d8 | | .CONST 0x03d8 ; 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 006c | l | .CONST 0x006c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000f 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0011 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0013 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0015 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0017 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0019 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
001b 00bf | | Action Accept_Activation
001c 4801 |H | Short_Literal 0x1
001d 605a |`Z | Indirect_Literal Discrete,0x78,{0x00000000, 0x000012c0}
001e e002 | | Load 0x0,0x2
001f 02a0 | | Declare_Subprogram Null_Subprogram
0020 4801 |H | Short_Literal 0x1
0021 035d | ] | Declare_Type Array,Defined
0022 00d8 | | Load_Top At_Offset_0
0023 0337 | 7 | Declare_Variable Array
0024 00e3 | | Load_Encached Natural_Cache
0025 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0026 4801 |H | Short_Literal 0x1
0027 480a |H | Short_Literal 0xa
0028 00e9 | | Load_Encached String_Cache
0029 035b | [ | Declare_Type Array,Constrained
002a 0337 | 7 | Declare_Variable Array
002b 00d8 | | Load_Top At_Offset_0
002c 0335 | 5 | Declare_Variable Array,Duplicate
002d 00cd | | Action Spare6_Action
002e 4820 |H | Short_Literal 0x20
002f 4801 |H | Short_Literal 0x1
0030 e219 | | Load 0x1,0x19
0031 01d6 | | Execute Vector,Field_Write
0032 4820 |H | Short_Literal 0x20
0033 4802 |H | Short_Literal 0x2
0034 e219 | | Load 0x1,0x19
0035 01d6 | | Execute Vector,Field_Write
0036 4820 |H | Short_Literal 0x20
0037 4803 |H | Short_Literal 0x3
0038 e219 | | Load 0x1,0x19
0039 01d6 | | Execute Vector,Field_Write
003a 4820 |H | Short_Literal 0x20
003b 4804 |H | Short_Literal 0x4
003c e219 | | Load 0x1,0x19
003d 01d6 | | Execute Vector,Field_Write
003e 4820 |H | Short_Literal 0x20
003f 4805 |H | Short_Literal 0x5
0040 e219 | | Load 0x1,0x19
0041 01d6 | | Execute Vector,Field_Write
0042 4820 |H | Short_Literal 0x20
0043 4806 |H | Short_Literal 0x6
0044 e219 | | Load 0x1,0x19
0045 01d6 | | Execute Vector,Field_Write
0046 4820 |H | Short_Literal 0x20
0047 4807 |H | Short_Literal 0x7
0048 e219 | | Load 0x1,0x19
0049 01d6 | | Execute Vector,Field_Write
004a 4820 |H | Short_Literal 0x20
004b 4808 |H | Short_Literal 0x8
004c e219 | | Load 0x1,0x19
004d 01d6 | | Execute Vector,Field_Write
004e 4820 |H | Short_Literal 0x20
004f 4809 |H | Short_Literal 0x9
0050 e219 | | Load 0x1,0x19
0051 01d6 | | Execute Vector,Field_Write
0052 4820 |H | Short_Literal 0x20
0053 480a |H | Short_Literal 0xa
0054 e219 | | Load 0x1,0x19
0055 01d6 | | Execute Vector,Field_Write
0056 e218 | | Load 0x1,0x18
0057 01d4 | | Execute Vector,Structure_Write
0058 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0059 00c7 | | Action Elaborate_Subprogram
005a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
005b 00c7 | | Action Elaborate_Subprogram
005c 029d 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call
005e 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call
0060 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0061 00c7 | | Action Elaborate_Subprogram
0062 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0063 00c7 | | Action Elaborate_Subprogram
0064 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0065 00c7 | | Action Elaborate_Subprogram
0066 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0067 00c7 | | Action Elaborate_Subprogram
0068 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0069 00c7 | | Action Elaborate_Subprogram
006a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
006b 00c7 | | Action Elaborate_Subprogram
006c BODY_0008:
006c 00bc | | Action Signal_Activated
006d 00bb | | Action Signal_Completion
006e 0000 0000 | | .XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4801 |H | Short_Literal 0x1
0074 a217 | | Store_Unchecked 0x1,0x17
0075 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0076 0000 0000 | | .XXX[0x2]
0078 0000 0000 | | .LITERAL {0x00000000, 0x000012c0}
007c 0000 0000 | | .BLANK 0000[0x4]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4801 |H | Short_Literal 0x1
0084 a217 | | Store_Unchecked 0x1,0x17
0085 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008e | | .CONST 0x008e ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0003 | | .CONST 0x0003 ; Number of locals
008b INIT_0088:
008b 00e3 | | Load_Encached Natural_Cache
008c 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
008e BODY_0088:
008e e5ff | | Load 0x2,-0x1
008f 6814 |h | Jump_Zero 0xa4
0090 8403 | | Call 0x2,0x3
0091 00cf | | Action Mark_Auxiliary
0092 6039 |`9 | Indirect_Literal Discrete,0xcc,{0x00000000, 0x03840000}
0093 e5fb | | Load 0x2,-0x5
0094 e003 | | Load 0x0,0x3
0095 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0096 e004 | | Load 0x0,0x4
0097 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0098 e003 | | Load 0x0,0x3
0099 1816 | | Execute Package,Field_Execute,Field_Number 0x16
009a e5fb | | Load 0x2,-0x5
009b 017d | } | Execute Record,Structure_Write
009c e5fb | | Load 0x2,-0x5
009d e5fc | | Load 0x2,-0x4
009e 821a | | Call 0x1,0x1a
009f 7003 |p | Jump_Nonzero 0xa3
00a0 8403 | | Call 0x2,0x3
00a1 00c9 | | Action Pop_Auxiliary_Loop
00a2 7fef | | Jump 0x92
00a3 00ce | | Action Pop_Auxiliary
00a4 e5f9 | | Load 0x2,-0x7
00a5 6804 |h | Jump_Zero 0xaa
00a6 4800 |H | Short_Literal 0x0
00a7 a5fa | | Store_Unchecked 0x2,-0x6
00a8 4800 |H | Short_Literal 0x0
00a9 a5f9 | | Store_Unchecked 0x2,-0x7
00aa e5f7 | | Load 0x2,-0x9
00ab 681e |h | Jump_Zero 0xca
00ac 4800 |H | Short_Literal 0x0
00ad a5f8 | | Store_Unchecked 0x2,-0x8
00ae 4800 |H | Short_Literal 0x0
00af a5f7 | | Store_Unchecked 0x2,-0x9
00b0 e5ff | | Load 0x2,-0x1
00b1 6818 |h | Jump_Zero 0xca
00b2 e217 | | Load 0x1,0x17
00b3 0afe | | Execute_Immediate Plus,-0x2
00b4 c402 | | Store 0x2,0x2
00b5 00cf | | Action Mark_Auxiliary
00b6 e402 | | Load 0x2,0x2
00b7 6811 |h | Jump_Zero 0xc9
00b8 e5fd | | Load 0x2,-0x3
00b9 e402 | | Load 0x2,0x2
00ba e216 | | Load 0x1,0x16
00bb 01d5 | | Execute Vector,Field_Reference
00bc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00bd 821a | | Call 0x1,0x1a
00be 700a |p | Jump_Nonzero 0xc9
00bf 4801 |H | Short_Literal 0x1
00c0 e402 | | Load 0x2,0x2
00c1 e216 | | Load 0x1,0x16
00c2 01d5 | | Execute Vector,Field_Reference
00c3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00c4 e402 | | Load 0x2,0x2
00c5 0aff | | Execute_Immediate Plus,-0x1
00c6 c402 | | Store 0x2,0x2
00c7 00c9 | | Action Pop_Auxiliary_Loop
00c8 7fed | | Jump 0xb6
00c9 00ce | | Action Pop_Auxiliary
00ca 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00cb 0000 | | .XXX[0x1]
00cc 0000 0000 | | .LITERAL {0x00000000, 0x03840000}
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00ec | | .CONST 0x00ec ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0007 | | .CONST 0x0007 ; Number of locals
00d3 INIT_00d0:
00d3 4801 |H | Short_Literal 0x1
00d4 485a |HZ | Short_Literal 0x5a
00d5 00e9 | | Load_Encached String_Cache
00d6 035b | [ | Declare_Type Array,Constrained
00d7 0337 | 7 | Declare_Variable Array
00d8 00d8 | | Load_Top At_Offset_0
00d9 0335 | 5 | Declare_Variable Array,Duplicate
00da 00cd | | Action Spare6_Action
00db 485a |HZ | Short_Literal 0x5a
00dc 4801 |H | Short_Literal 0x1
00dd 4820 |H | Short_Literal 0x20
00de e405 | | Load 0x2,0x5
00df e403 | | Load 0x2,0x3
00e0 01d6 | | Execute Vector,Field_Write
00e1 3ffb |? | Loop_Increasing 0xdd
00e2 e402 | | Load 0x2,0x2
00e3 01d4 | | Execute Vector,Structure_Write
00e4 00e3 | | Load_Encached Natural_Cache
00e5 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00e6 00e3 | | Load_Encached Natural_Cache
00e7 00e3 | | Load_Encached Natural_Cache
00e8 0092 02e5 | | Action Push_String_Extended,0x2e5 ; " Monthly Usage Summary\x0aTime 00 02 04 06 08 10 12 14 16 18 20 22 23\x0a=============================================================================="
00ea 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call
00ec BODY_00d0:
00ec 4802 |H | Short_Literal 0x2
00ed e005 | | Load 0x0,0x5
00ee 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00ef 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "System usage report"
00f1 e005 | | Load 0x0,0x5
00f2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00f3 4802 |H | Short_Literal 0x2
00f4 e005 | | Load 0x0,0x5
00f5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00f6 0092 02e7 | | Action Push_String_Extended,0x2e7 ; "Display indicates number of users logged in for each day, ranging from"
00f8 e005 | | Load 0x0,0x5
00f9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00fa 0092 02e8 | | Action Push_String_Extended,0x2e8 ; "00:00 to 24:00 hours, in 1 hour increments. Disk Daemon execution is"
00fc e005 | | Load 0x0,0x5
00fd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00fe 0092 02e9 | | Action Push_String_Extended,0x2e9 ; "indicated by a '*' preceeding the user count. An '-' indicates a period"
0100 e005 | | Load 0x0,0x5
0101 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0102 0092 02ea | | Action Push_String_Extended,0x2ea ; "when the system is unavailable."
0104 e005 | | Load 0x0,0x5
0105 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0106 4802 |H | Short_Literal 0x2
0107 e005 | | Load 0x0,0x5
0108 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0109 e406 | | Load 0x2,0x6
010a e005 | | Load 0x0,0x5
010b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
010c 00cf | | Action Mark_Auxiliary
010d e217 | | Load 0x1,0x17
010e 0aff | | Execute_Immediate Plus,-0x1
010f 4801 |H | Short_Literal 0x1
0110 0263 | c | Execute Discrete,Above_Bound
0111 7101 |q | Jump_Nonzero 0x213
0112 00d8 | | Load_Top At_Offset_0
0113 0c02 | | Execute_Immediate Greater_Equal,0x2
0114 682c |h, | Jump_Zero 0x141
0115 00d8 | | Load_Top At_Offset_0
0116 e216 | | Load 0x1,0x16
0117 01d5 | | Execute Vector,Field_Reference
0118 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0119 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
011a e40a | | Load 0x2,0xa
011b 0aff | | Execute_Immediate Plus,-0x1
011c e216 | | Load 0x1,0x16
011d 01d5 | | Execute Vector,Field_Reference
011e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
011f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0120 027e | ~ | Execute Discrete,Not_Equal
0121 681f |h | Jump_Zero 0x141
0122 00d8 | | Load_Top At_Offset_0
0123 e216 | | Load 0x1,0x16
0124 01d5 | | Execute Vector,Field_Reference
0125 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0126 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0127 e40a | | Load 0x2,0xa
0128 0aff | | Execute_Immediate Plus,-0x1
0129 e216 | | Load 0x1,0x16
012a 01d5 | | Execute Vector,Field_Reference
012b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
012c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012d 027e | ~ | Execute Discrete,Not_Equal
012e e40a | | Load 0x2,0xa
012f 0aff | | Execute_Immediate Plus,-0x1
0130 e216 | | Load 0x1,0x16
0131 01d5 | | Execute Vector,Field_Reference
0132 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0133 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0134 e40a | | Load 0x2,0xa
0135 0aff | | Execute_Immediate Plus,-0x1
0136 e216 | | Load 0x1,0x16
0137 01d5 | | Execute Vector,Field_Reference
0138 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0139 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
013a 0a01 | | Execute_Immediate Plus,0x1
013b 00d8 | | Load_Top At_Offset_0
013c 00e2 | | Load_Encached Integer_Cache
013d 0260 | ` | Execute Discrete,In_Type
013e 7001 |p | Jump_Nonzero 0x140
013f 0801 | | Execute_Immediate Raise,0x1
0140 8407 | | Call 0x2,0x7
0141 00d8 | | Load_Top At_Offset_0
0142 e216 | | Load 0x1,0x16
0143 01d5 | | Execute Vector,Field_Reference
0144 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0145 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0146 a404 | | Store_Unchecked 0x2,0x4
0147 00d8 | | Load_Top At_Offset_0
0148 e216 | | Load 0x1,0x16
0149 01d5 | | Execute Vector,Field_Reference
014a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
014b 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
014c 0f01 | | Execute_Immediate Equal,0x1
014d 680b |h | Jump_Zero 0x159
014e 00d8 | | Load_Top At_Offset_0
014f e216 | | Load 0x1,0x16
0150 01d5 | | Execute Vector,Field_Reference
0151 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0152 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0153 0e0c | | Execute_Immediate Not_Equal,0xc
0154 6804 |h | Jump_Zero 0x159
0155 e404 | | Load 0x2,0x4
0156 0a0c | | Execute_Immediate Plus,0xc
0157 c404 | | Store 0x2,0x4
0158 7810 |x | Jump 0x169
0159 00d8 | | Load_Top At_Offset_0
015a e216 | | Load 0x1,0x16
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 0f0c | | Execute_Immediate Equal,0xc
015f e40a | | Load 0x2,0xa
0160 e216 | | Load 0x1,0x16
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 0f00 | | Execute_Immediate Equal,0x0
0165 0279 | y | Execute Discrete,And
0166 6802 |h | Jump_Zero 0x169
0167 4800 |H | Short_Literal 0x0
0168 a404 | | Store_Unchecked 0x2,0x4
0169 e404 | | Load 0x2,0x4
016a 4803 |H | Short_Literal 0x3
016b 0271 | q | Execute Discrete,Times
016c 0a01 | | Execute_Immediate Plus,0x1
016d 0237 | 7 | Execute Float,Convert_From_Discrete
016e 0235 | 5 | Execute Float,Round_To_Discrete
016f 00e3 | | Load_Encached Natural_Cache
0170 025e | ^ | Execute Discrete,Convert
0171 a403 | | Store_Unchecked 0x2,0x3
0172 00d8 | | Load_Top At_Offset_0
0173 0c02 | | Execute_Immediate Greater_Equal,0x2
0174 6819 |h | Jump_Zero 0x18e
0175 00d8 | | Load_Top At_Offset_0
0176 e216 | | Load 0x1,0x16
0177 01d5 | | Execute Vector,Field_Reference
0178 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0179 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
017a 0c1e | | Execute_Immediate Greater_Equal,0x1e
017b 6812 |h | Jump_Zero 0x18e
017c 00d8 | | Load_Top At_Offset_0
017d e216 | | Load 0x1,0x16
017e 01d5 | | Execute Vector,Field_Reference
017f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0180 e40a | | Load 0x2,0xa
0181 0aff | | Execute_Immediate Plus,-0x1
0182 e216 | | Load 0x1,0x16
0183 01d5 | | Execute Vector,Field_Reference
0184 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0185 027c | | | Execute Discrete,Less
0186 6807 |h | Jump_Zero 0x18e
0187 00d8 | | Load_Top At_Offset_0
0188 0aff | | Execute_Immediate Plus,-0x1
0189 e216 | | Load 0x1,0x16
018a 01d5 | | Execute Vector,Field_Reference
018b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
018c a405 | | Store_Unchecked 0x2,0x5
018d 7805 |x | Jump 0x193
018e 00d8 | | Load_Top At_Offset_0
018f e216 | | Load 0x1,0x16
0190 01d5 | | Execute Vector,Field_Reference
0191 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0192 a405 | | Store_Unchecked 0x2,0x5
0193 e405 | | Load 0x2,0x5
0194 6817 |h | Jump_Zero 0x1ac
0195 4820 |H | Short_Literal 0x20
0196 4802 |H | Short_Literal 0x2
0197 480a |H | Short_Literal 0xa
0198 e405 | | Load 0x2,0x5
0199 e006 | | Load 0x0,0x6
019a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
019b e403 | | Load 0x2,0x3
019c 0a01 | | Execute_Immediate Plus,0x1
019d 00d8 | | Load_Top At_Offset_0
019e 00e2 | | Load_Encached Integer_Cache
019f 0260 | ` | Execute Discrete,In_Type
01a0 7001 |p | Jump_Nonzero 0x1a2
01a1 0801 | | Execute_Immediate Raise,0x1
01a2 e403 | | Load 0x2,0x3
01a3 0a02 | | Execute_Immediate Plus,0x2
01a4 00d8 | | Load_Top At_Offset_0
01a5 00e2 | | Load_Encached Integer_Cache
01a6 0260 | ` | Execute Discrete,In_Type
01a7 7001 |p | Jump_Nonzero 0x1a9
01a8 0801 | | Execute_Immediate Raise,0x1
01a9 e402 | | Load 0x2,0x2
01aa 01ce | | Execute Vector,Slice_Write
01ab 7805 |x | Jump 0x1b1
01ac 482e |H. | Short_Literal 0x2e
01ad e403 | | Load 0x2,0x3
01ae 0a02 | | Execute_Immediate Plus,0x2
01af e402 | | Load 0x2,0x2
01b0 01d6 | | Execute Vector,Field_Write
01b1 00d8 | | Load_Top At_Offset_0
01b2 e216 | | Load 0x1,0x16
01b3 01d5 | | Execute Vector,Field_Reference
01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b5 6822 |h" | Jump_Zero 0x1d8
01b6 00d8 | | Load_Top At_Offset_0
01b7 e216 | | Load 0x1,0x16
01b8 01d5 | | Execute Vector,Field_Reference
01b9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01ba 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01bb 0d1e | | Execute_Immediate Less,0x1e
01bc e403 | | Load 0x2,0x3
01bd 0a01 | | Execute_Immediate Plus,0x1
01be e402 | | Load 0x2,0x2
01bf 01d7 | | Execute Vector,Field_Read
01c0 0e20 | | Execute_Immediate Not_Equal,0x20
01c1 0278 | x | Execute Discrete,Or
01c2 6805 |h | Jump_Zero 0x1c8
01c3 482a |H* | Short_Literal 0x2a
01c4 e403 | | Load 0x2,0x3
01c5 e402 | | Load 0x2,0x2
01c6 01d6 | | Execute Vector,Field_Write
01c7 7810 |x | Jump 0x1d8
01c8 482a |H* | Short_Literal 0x2a
01c9 e403 | | Load 0x2,0x3
01ca 0a01 | | Execute_Immediate Plus,0x1
01cb e402 | | Load 0x2,0x2
01cc 01d6 | | Execute Vector,Field_Write
01cd e403 | | Load 0x2,0x3
01ce 0a02 | | Execute_Immediate Plus,0x2
01cf e402 | | Load 0x2,0x2
01d0 01d7 | | Execute Vector,Field_Read
01d1 0f2e | . | Execute_Immediate Equal,0x2e
01d2 6805 |h | Jump_Zero 0x1d8
01d3 482a |H* | Short_Literal 0x2a
01d4 e403 | | Load 0x2,0x3
01d5 0a02 | | Execute_Immediate Plus,0x2
01d6 e402 | | Load 0x2,0x2
01d7 01d6 | | Execute Vector,Field_Write
01d8 00d8 | | Load_Top At_Offset_0
01d9 e216 | | Load 0x1,0x16
01da 01d5 | | Execute Vector,Field_Reference
01db 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01dc 6834 |h4 | Jump_Zero 0x211
01dd 00d8 | | Load_Top At_Offset_0
01de e216 | | Load 0x1,0x16
01df 01d5 | | Execute Vector,Field_Reference
01e0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01e2 0d1e | | Execute_Immediate Less,0x1e
01e3 6805 |h | Jump_Zero 0x1e9
01e4 482d |H- | Short_Literal 0x2d
01e5 e403 | | Load 0x2,0x3
01e6 e402 | | Load 0x2,0x2
01e7 01d6 | | Execute Vector,Field_Write
01e8 7828 |x( | Jump 0x211
01e9 e402 | | Load 0x2,0x2
01ea e403 | | Load 0x2,0x3
01eb 0a01 | | Execute_Immediate Plus,0x1
01ec 00d8 | | Load_Top At_Offset_0
01ed 00e2 | | Load_Encached Integer_Cache
01ee 0260 | ` | Execute Discrete,In_Type
01ef 7001 |p | Jump_Nonzero 0x1f1
01f0 0801 | | Execute_Immediate Raise,0x1
01f1 e403 | | Load 0x2,0x3
01f2 0a02 | | Execute_Immediate Plus,0x2
01f3 00d8 | | Load_Top At_Offset_0
01f4 00e2 | | Load_Encached Integer_Cache
01f5 0260 | ` | Execute Discrete,In_Type
01f6 7001 |p | Jump_Nonzero 0x1f8
01f7 0801 | | Execute_Immediate Raise,0x1
01f8 e40c | | Load 0x2,0xc
01f9 e40d | | Load 0x2,0xd
01fa e40b | | Load 0x2,0xb
01fb 035b | [ | Declare_Type Array,Constrained
01fc e40b | | Load 0x2,0xb
01fd 01cd | | Execute Vector,Slice_Reference
01fe 4801 |H | Short_Literal 0x1
01ff 4802 |H | Short_Literal 0x2
0200 00e9 | | Load_Encached String_Cache
0201 035b | [ | Declare_Type Array,Constrained
0202 0337 | 7 | Declare_Variable Array
0203 482d |H- | Short_Literal 0x2d
0204 4801 |H | Short_Literal 0x1
0205 e40f | | Load 0x2,0xf
0206 01d6 | | Execute Vector,Field_Write
0207 482d |H- | Short_Literal 0x2d
0208 4802 |H | Short_Literal 0x2
0209 e40f | | Load 0x2,0xf
020a 01d6 | | Execute Vector,Field_Write
020b 00cd | | Action Spare6_Action
020c e40c | | Load 0x2,0xc
020d e40d | | Load 0x2,0xd
020e e40b | | Load 0x2,0xb
020f 01ce | | Execute Vector,Slice_Write
0210 00d3 | | Pop_Control Pop_Count_3
0211 00c8 | | Action Pop_Auxiliary_Range
0212 3eff |> | Loop_Increasing 0x112
0213 00ce | | Action Pop_Auxiliary
0214 e403 | | Load 0x2,0x3
0215 0e01 | | Execute_Immediate Not_Equal,0x1
0216 6814 |h | Jump_Zero 0x22b
0217 4800 |H | Short_Literal 0x0
0218 e217 | | Load 0x1,0x17
0219 0aff | | Execute_Immediate Plus,-0x1
021a e216 | | Load 0x1,0x16
021b 01d5 | | Execute Vector,Field_Reference
021c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
021d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
021e e217 | | Load 0x1,0x17
021f 0aff | | Execute_Immediate Plus,-0x1
0220 e216 | | Load 0x1,0x16
0221 01d5 | | Execute Vector,Field_Reference
0222 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0223 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0224 0a01 | | Execute_Immediate Plus,0x1
0225 00d8 | | Load_Top At_Offset_0
0226 00e2 | | Load_Encached Integer_Cache
0227 0260 | ` | Execute Discrete,In_Type
0228 7001 |p | Jump_Nonzero 0x22a
0229 0801 | | Execute_Immediate Raise,0x1
022a 8407 | | Call 0x2,0x7
022b 0092 02eb | | Action Push_String_Extended,0x2eb ; "\x0c"
022d e005 | | Load 0x0,0x5
022e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
022f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 4801 |H | Short_Literal 0x1
0234 a5ff | | Store_Unchecked 0x2,-0x1
0235 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0236 0000 0000 | | .XXX[0x2]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b e5ff | | Load 0x2,-0x1
023c 0a01 | | Execute_Immediate Plus,0x1
023d c5ff | | Store 0x2,-0x1
023e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
023f 0000 | | .XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 e5ff | | Load 0x2,-0x1
0244 e217 | | Load 0x1,0x17
0245 027b | { | Execute Discrete,Greater_Equal
0246 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 e5ff | | Load 0x2,-0x1
024c e216 | | Load 0x1,0x16
024d 01d5 | | Execute Vector,Field_Reference
024e 0320 | | Declare_Variable Record,Duplicate
024f 00cd | | Action Spare6_Action
0250 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0251 0000 0000 | | .BLANK 0000[0x7]
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 6802 |h | Jump_Zero 0x25f
025d e5fe | | Load 0x2,-0x2
025e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
025f 4801 |H | Short_Literal 0x1
0260 e5fe | | Load 0x2,-0x2
0261 01db | | Execute Vector,Length
0262 00d8 | | Load_Top At_Offset_0
0263 00e2 | | Load_Encached Integer_Cache
0264 0260 | ` | Execute Discrete,In_Type
0265 7001 |p | Jump_Nonzero 0x267
0266 0801 | | Execute_Immediate Raise,0x1
0267 e218 | | Load 0x1,0x18
0268 01cf | | Execute Vector,Slice_Read
0269 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
026a 0000 0000 | | .BLANK 0000[0x6]
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 e5fe | | Load 0x2,-0x2
0274 e003 | | Load 0x0,0x3
0275 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0276 e5ff | | Load 0x2,-0x1
0277 e003 | | Load 0x0,0x3
0278 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0279 e004 | | Load 0x0,0x4
027a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
027b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
027c 0000 0000 | | .BLANK 0000[0x4]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 e5fb | | Load 0x2,-0x5
0284 e217 | | Load 0x1,0x17
0285 e216 | | Load 0x1,0x16
0286 01d5 | | Execute Vector,Field_Reference
0287 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0288 e5fe | | Load 0x2,-0x2
0289 e217 | | Load 0x1,0x17
028a e216 | | Load 0x1,0x16
028b 01d5 | | Execute Vector,Field_Reference
028c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
028d e5fa | | Load 0x2,-0x6
028e e217 | | Load 0x1,0x17
028f e216 | | Load 0x1,0x16
0290 01d5 | | Execute Vector,Field_Reference
0291 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0292 e5f8 | | Load 0x2,-0x8
0293 e217 | | Load 0x1,0x17
0294 e216 | | Load 0x1,0x16
0295 01d5 | | Execute Vector,Field_Reference
0296 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0297 e217 | | Load 0x1,0x17
0298 6007 |` | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x000012c0}
0299 027c | | | Execute Discrete,Less
029a 6803 |h | Jump_Zero 0x29e
029b e217 | | Load 0x1,0x17
029c 0a01 | | Execute_Immediate Plus,0x1
029d c217 | | Store 0x1,0x17
029e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
029f 0000 | | .XXX[0x1]
02a0 0000 0000 | | .LITERAL {0x00000000, 0x000012c0}
02a4 0000 0000 | | .BLANK 0000[0x4]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 482f |H/ | Short_Literal 0x2f
02ac 4830 |H0 | Short_Literal 0x30
02ad 4802 |H | Short_Literal 0x2
02ae 480a |H | Short_Literal 0xa
02af e7ff | | Load 0x3,-0x1
02b0 e006 | | Load 0x0,0x6
02b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02b2 01cb | | Execute Vector,Append
02b3 4830 |H0 | Short_Literal 0x30
02b4 4802 |H | Short_Literal 0x2
02b5 480a |H | Short_Literal 0xa
02b6 e7fe | | Load 0x3,-0x2
02b7 e006 | | Load 0x0,0x6
02b8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02b9 01cc | | Execute Vector,Catenate
02ba 0092 02ec | | Action Push_String_Extended,0x2ec ; " "
02bc 01cc | | Execute Vector,Catenate
02bd 4801 |H | Short_Literal 0x1
02be e403 | | Load 0x2,0x3
02bf 0a02 | | Execute_Immediate Plus,0x2
02c0 00d8 | | Load_Top At_Offset_0
02c1 00e2 | | Load_Encached Integer_Cache
02c2 0260 | ` | Execute Discrete,In_Type
02c3 7001 |p | Jump_Nonzero 0x2c5
02c4 0801 | | Execute_Immediate Raise,0x1
02c5 e402 | | Load 0x2,0x2
02c6 01cf | | Execute Vector,Slice_Read
02c7 01cc | | Execute Vector,Catenate
02c8 e005 | | Load 0x0,0x5
02c9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ca e7fd | | Load 0x3,-0x3
02cb 680a |h | Jump_Zero 0x2d6
02cc 0092 02eb | | Action Push_String_Extended,0x2eb ; "\x0c"
02ce e005 | | Load 0x0,0x5
02cf 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02d0 4803 |H | Short_Literal 0x3
02d1 e005 | | Load 0x0,0x5
02d2 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02d3 e406 | | Load 0x2,0x6
02d4 e005 | | Load 0x0,0x5
02d5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02d6 e402 | | Load 0x2,0x2
02d7 00d8 | | Load_Top At_Offset_0
02d8 0335 | 5 | Declare_Variable Array,Duplicate
02d9 00cd | | Action Spare6_Action
02da 485a |HZ | Short_Literal 0x5a
02db 4801 |H | Short_Literal 0x1
02dc 4820 |H | Short_Literal 0x20
02dd e605 | | Load 0x3,0x5
02de e603 | | Load 0x3,0x3
02df 01d6 | | Execute Vector,Field_Write
02e0 3ffb |? | Loop_Increasing 0x2dc
02e1 00cd | | Action Spare6_Action
02e2 e402 | | Load 0x2,0x2
02e3 01d4 | | Execute Vector,Structure_Write
02e4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02e5 ; --------------------------------------------------------------------------------------
02e5 ; STRING TABLE
02e5 ; --------------------------------------------------------------------------------------
02e5 0012 | | .STRTAB 0x0012->0x02ee ; " Monthly Usage Summary\x0aTime 00 02 04 06 08 10 12 14 16 18 20 22 23\x0a=============================================================================="
02e6 00dd | | .STRTAB 0x00dd->0x0354 ; "System usage report"
02e7 00ee | | .STRTAB 0x00ee->0x035e ; "Display indicates number of users logged in for each day, ranging from"
02e8 0132 | 2 | .STRTAB 0x0132->0x0381 ; "00:00 to 24:00 hours, in 1 hour increments. Disk Daemon execution is"
02e9 0175 | u | .STRTAB 0x0175->0x03a3 ; "indicated by a '*' preceeding the user count. An '-' indicates a period"
02ea 01bb | | .STRTAB 0x01bb->0x03c7 ; "when the system is unavailable."
02eb 01d8 | | .STRTAB 0x01d8->0x03d7 ; "\x0c"
02ec 01d7 | | .STRTAB 0x01d7->0x03d7 ; " "
02ed 01d6 | | .STREND 0x01d6->0x03d8
02ee 2020 2020 | | .STRTAB_STRINGS
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug Table
03d8 ; --------------------------------------------------------------------------------------
03d8 0004 0011 | | .DEBUG4 0x0004,0x0011,0x2373,0x0000,0x0001,0x0000
03de 0000 0000 | | .XXX[0x22]
03e0 2800 0000 |( |
03e2 3600 0000 |6 |
03e4 0400 0400 | |
03e6 0000 0000 | |
03e8 a400 0000 | |
03ea e000 0000 | |
03ec 1000 1000 | |
03ee 0000 0002 | |
03f0 a000 0003 | |
03f2 a000 0000 | |
03f4 4000 4000 |@ @ |
03f6 0000 000a | |
03f8 c000 000f | |
03fa 0000 0001 | |
03fc 0001 0000 | |
03fe 0000 002c | ,|