|
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_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 INIT_0088,For_Outer_Call,Visible,Unelaborated 000d 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 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 INIT_00a0,For_Outer_Call,Visible,Unelaborated 0019 c216 | | Store 0x1,0x16 001a 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 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 INIT_0248,For_Outer_Call,Visible,Unelaborated 0022 c212 | | Store 0x1,0x12 0023 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated 0025 c213 | | Store 0x1,0x13 0026 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated 0028 c214 | | Store 0x1,0x14 0029 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 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 INIT_0270,For_Outer_Call 0071 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 INIT_0298,For_Call 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_Suprogram New_Top_Offset 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 INIT_02c0,For_Call 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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" 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]