|
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_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 0328 | ( | .CONST 0x0328 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0080 | | .CONST 0x0080 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0026 | & | .CONST 0x0026 ; Number of locals
001b INIT_0018:
001b 4800 |H | Short_Literal 0x0
001c 481f |H | Short_Literal 0x1f
001d 00e3 | | Load_Encached Natural_Cache
001e 02a0 | | Declare_Subprogram Null_Subprogram
001f 4801 |H | Short_Literal 0x1
0020 035d | ] | Declare_Type Array,Defined
0021 e001 | | Load 0x0,0x1
0022 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0023 00e5 | | Load_Encached Long_Integer_Cache
0024 e402 | | Load 0x2,0x2
0025 00e3 | | Load_Encached Natural_Cache
0026 00e3 | | Load_Encached Natural_Cache
0027 02a0 | | Declare_Subprogram Null_Subprogram
0028 4805 |H | Short_Literal 0x5
0029 032d | - | Declare_Type Record,Defined
002a e002 | | Load 0x0,0x2
002b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002c 02c7 | | Declare_Variable Any
002d 00d8 | | Load_Top At_Offset_0
002e 1c00 | | Execute_Immediate Run_Utility,0x0
002f e001 | | Load 0x0,0x1
0030 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0031 00e5 | | Load_Encached Long_Integer_Cache
0032 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0033 00e5 | | Load_Encached Long_Integer_Cache
0034 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0035 00e3 | | Load_Encached Natural_Cache
0036 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0037 e001 | | Load 0x0,0x1
0038 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0039 00e5 | | Load_Encached Long_Integer_Cache
003a 00e2 | | Load_Encached Integer_Cache
003b 00e2 | | Load_Encached Integer_Cache
003c 00e2 | | Load_Encached Integer_Cache
003d e5fe | | Load 0x2,-0x2
003e 4be8 |K | Short_Literal 0x3e8
003f 0271 | q | Execute Discrete,Times
0040 00d8 | | Load_Top At_Offset_0
0041 0c00 | | Execute_Immediate Greater_Equal,0x0
0042 7002 |p | Jump_Nonzero 0x45
0043 6108 |a | Indirect_Literal Discrete,0x14c,{0xffffffff, 0xffffc000}
0044 7801 |x | Jump 0x46
0045 6102 |a | Indirect_Literal Discrete,0x148,{0x00000000, 0x00004000}
0046 0273 | s | Execute Discrete,Plus
0047 09f1 | | Execute_Immediate Binary_Scale,-0xf
0048 e001 | | Load 0x0,0x1
0049 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
004a 03f1 | | Declare_Variable Discrete,With_Value
004b e001 | | Load 0x0,0x1
004c 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
004d 03e9 | | Declare_Variable Discrete,Duplicate
004e 03e9 | | Declare_Variable Discrete,Duplicate
004f 03e9 | | Declare_Variable Discrete,Duplicate
0050 e001 | | Load 0x0,0x1
0051 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0052 03e9 | | Declare_Variable Discrete,Duplicate
0053 03e9 | | Declare_Variable Discrete,Duplicate
0054 03e9 | | Declare_Variable Discrete,Duplicate
0055 e001 | | Load 0x0,0x1
0056 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0057 03e9 | | Declare_Variable Discrete,Duplicate
0058 03e9 | | Declare_Variable Discrete,Duplicate
0059 03e9 | | Declare_Variable Discrete,Duplicate
005a e403 | | Load 0x2,0x3
005b 0322 | " | Declare_Variable Record
005c 00d8 | | Load_Top At_Offset_0
005d 0322 | " | Declare_Variable Record
005e e003 | | Load 0x0,0x3
005f 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0060 02c7 | | Declare_Variable Any
0061 00d8 | | Load_Top At_Offset_0
0062 1c00 | | Execute_Immediate Run_Utility,0x0
0063 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call
0065 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
0067 e004 | | Load 0x0,0x4
0068 e005 | | Load 0x0,0x5
0069 481e |H | Short_Literal 0x1e
006a 4802 |H | Short_Literal 0x2
006b 0099 | | Action Reference_Dynamic
006c 481f |H | Short_Literal 0x1f
006d 4802 |H | Short_Literal 0x2
006e 0099 | | Action Reference_Dynamic
006f e003 | | Load 0x0,0x3
0070 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0071 0387 | | Declare_Variable Package
0072 00d8 | | Load_Top At_Offset_0
0073 020f | | Execute Module,Activate
0074 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0076 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
0078 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
007a 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
007c 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
007e 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
0080 BODY_0018:
0080 00be | | Action Activate_Tasks
0081 e5fc | | Load 0x2,-0x4
0082 6807 |h | Jump_Zero 0x8a
0083 e404 | | Load 0x2,0x4
0084 00ea | | Load_Encached Null_String_Cache
0085 e5fd | | Load 0x2,-0x3
0086 e002 | | Load 0x0,0x2
0087 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0088 c404 | | Store 0x2,0x4
0089 7807 |x | Jump 0x91
008a e404 | | Load 0x2,0x4
008b 00ea | | Load_Encached Null_String_Cache
008c e5fd | | Load 0x2,-0x3
008d 4801 |H | Short_Literal 0x1
008e e002 | | Load 0x0,0x2
008f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0090 c404 | | Store 0x2,0x4
0091 e5fb | | Load 0x2,-0x5
0092 e404 | | Load 0x2,0x4
0093 e002 | | Load 0x0,0x2
0094 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
0095 e5ff | | Load 0x2,-0x1
0096 00e0 | | Load_Encached Standard_Cache
0097 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0098 0092 02c2 | | Action Push_String_Extended,0x2c2 ; " samples, start at "
009a 01cc | | Execute Vector,Catenate
009b 8422 | " | Call 0x2,0x22
009c 01cc | | Execute Vector,Catenate
009d e404 | | Load 0x2,0x4
009e e002 | | Load 0x0,0x2
009f 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00a0 4802 |H | Short_Literal 0x2
00a1 e404 | | Load 0x2,0x4
00a2 e002 | | Load 0x0,0x2
00a3 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
00a4 0092 02c3 | | Action Push_String_Extended,0x2c3 ; "Time Cpu DiskW Disk Users Jobs Jobs_T Load15 Disk15 Whld15"
00a6 e404 | | Load 0x2,0x4
00a7 e002 | | Load 0x0,0x2
00a8 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00a9 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "----------------- ---- ------ ------- ----- ---- ------ ------ ------ ------"
00ab e404 | | Load 0x2,0x4
00ac e002 | | Load 0x0,0x2
00ad 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
00ae e41b | | Load 0x2,0x1b
00af 8421 | ! | Call 0x2,0x21
00b0 00d1 | | Pop_Control Pop_Count_1
00b1 e41d | | Load 0x2,0x1d
00b2 4800 |H | Short_Literal 0x0
00b3 e003 | | Load 0x0,0x3
00b4 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
00b5 c41d | | Store 0x2,0x1d
00b6 00cf | | Action Mark_Auxiliary
00b7 7808 |x | Jump 0xc0
00b8 e408 | | Load 0x2,0x8
00b9 0a01 | | Execute_Immediate Plus,0x1
00ba c408 | | Store 0x2,0x8
00bb e41d | | Load 0x2,0x1d
00bc e003 | | Load 0x0,0x3
00bd 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
00be c41d | | Store 0x2,0x1d
00bf 00c9 | | Action Pop_Auxiliary_Loop
00c0 e41d | | Load 0x2,0x1d
00c1 e003 | | Load 0x0,0x3
00c2 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
00c3 6ff4 |o | Jump_Zero 0xb8
00c4 00c9 | | Action Pop_Auxiliary_Loop
00c5 e5ff | | Load 0x2,-0x1
00c6 4801 |H | Short_Literal 0x1
00c7 0263 | c | Execute Discrete,Above_Bound
00c8 7079 |py | Jump_Nonzero 0x142
00c9 e5fe | | Load 0x2,-0x2
00ca 00ba | | Action Initiate_Delay
00cb e41c | | Load 0x2,0x1c
00cc 8421 | ! | Call 0x2,0x21
00cd 00d1 | | Pop_Control Pop_Count_1
00ce e41c | | Load 0x2,0x1c
00cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d0 e41b | | Load 0x2,0x1b
00d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d2 0272 | r | Execute Discrete,Minus
00d3 a409 | | Store_Unchecked 0x2,0x9
00d4 e41c | | Load 0x2,0x1c
00d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d6 e41b | | Load 0x2,0x1b
00d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d8 0272 | r | Execute Discrete,Minus
00d9 a40a | | Store_Unchecked 0x2,0xa
00da e41c | | Load 0x2,0x1c
00db 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00dc e41b | | Load 0x2,0x1b
00dd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00de 0272 | r | Execute Discrete,Minus
00df a40b | | Store_Unchecked 0x2,0xb
00e0 0092 02c5 | | Action Push_String_Extended,0x2c5 ; "Login"
00e2 e006 | | Load 0x0,0x6
00e3 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00e4 a40c | | Store_Unchecked 0x2,0xc
00e5 e41c | | Load 0x2,0x1c
00e6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00e7 e41b | | Load 0x2,0x1b
00e8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00e9 0272 | r | Execute Discrete,Minus
00ea a40d | | Store_Unchecked 0x2,0xd
00eb 4811 |H | Short_Literal 0x11
00ec 8422 | " | Call 0x2,0x22
00ed 8423 | # | Call 0x2,0x23
00ee 0092 02c6 | | Action Push_String_Extended,0x2c6 ; " "
00f0 01cc | | Execute Vector,Catenate
00f1 4804 |H | Short_Literal 0x4
00f2 e409 | | Load 0x2,0x9
00f3 4864 |Hd | Short_Literal 0x64
00f4 0271 | q | Execute Discrete,Times
00f5 e40e | | Load 0x2,0xe
00f6 0270 | p | Execute Discrete,Divide
00f7 8425 | % | Call 0x2,0x25
00f8 8423 | # | Call 0x2,0x23
00f9 01cc | | Execute Vector,Catenate
00fa 0092 02c6 | | Action Push_String_Extended,0x2c6 ; " "
00fc 01cc | | Execute Vector,Catenate
00fd 4806 |H | Short_Literal 0x6
00fe e40a | | Load 0x2,0xa
00ff 8425 | % | Call 0x2,0x25
0100 8423 | # | Call 0x2,0x23
0101 01cc | | Execute Vector,Catenate
0102 0092 02c6 | | Action Push_String_Extended,0x2c6 ; " "
0104 01cc | | Execute Vector,Catenate
0105 4807 |H | Short_Literal 0x7
0106 e40b | | Load 0x2,0xb
0107 8424 | $ | Call 0x2,0x24
0108 8423 | # | Call 0x2,0x23
0109 01cc | | Execute Vector,Catenate
010a 0092 02c6 | | Action Push_String_Extended,0x2c6 ; " "
010c 01cc | | Execute Vector,Catenate
010d 4805 |H | Short_Literal 0x5
010e e40c | | Load 0x2,0xc
010f 8424 | $ | Call 0x2,0x24
0110 8423 | # | Call 0x2,0x23
0111 01cc | | Execute Vector,Catenate
0112 0092 02c6 | | Action Push_String_Extended,0x2c6 ; " "
0114 01cc | | Execute Vector,Catenate
0115 4804 |H | Short_Literal 0x4
0116 e408 | | Load 0x2,0x8
0117 8424 | $ | Call 0x2,0x24
0118 8423 | # | Call 0x2,0x23
0119 01cc | | Execute Vector,Catenate
011a 0092 02c6 | | Action Push_String_Extended,0x2c6 ; " "
011c 01cc | | Execute Vector,Catenate
011d 4806 |H | Short_Literal 0x6
011e e40d | | Load 0x2,0xd
011f 8424 | $ | Call 0x2,0x24
0120 8423 | # | Call 0x2,0x23
0121 01cc | | Execute Vector,Catenate
0122 0092 02c6 | | Action Push_String_Extended,0x2c6 ; " "
0124 01cc | | Execute Vector,Catenate
0125 4806 |H | Short_Literal 0x6
0126 e412 | | Load 0x2,0x12
0127 8426 | & | Call 0x2,0x26
0128 8423 | # | Call 0x2,0x23
0129 01cc | | Execute Vector,Catenate
012a 0092 02c6 | | Action Push_String_Extended,0x2c6 ; " "
012c 01cc | | Execute Vector,Catenate
012d 4806 |H | Short_Literal 0x6
012e e416 | | Load 0x2,0x16
012f 8426 | & | Call 0x2,0x26
0130 8423 | # | Call 0x2,0x23
0131 01cc | | Execute Vector,Catenate
0132 0092 02c6 | | Action Push_String_Extended,0x2c6 ; " "
0134 01cc | | Execute Vector,Catenate
0135 4806 |H | Short_Literal 0x6
0136 e41a | | Load 0x2,0x1a
0137 8426 | & | Call 0x2,0x26
0138 8423 | # | Call 0x2,0x23
0139 01cc | | Execute Vector,Catenate
013a e404 | | Load 0x2,0x4
013b e002 | | Load 0x0,0x2
013c 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
013d e41c | | Load 0x2,0x1c
013e e41b | | Load 0x2,0x1b
013f 017d | } | Execute Record,Structure_Write
0140 00c8 | | Action Pop_Auxiliary_Range
0141 3f87 |? | Loop_Increasing 0xc9
0142 00ce | | Action Pop_Auxiliary
0143 e404 | | Load 0x2,0x4
0144 e002 | | Load 0x0,0x2
0145 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0146 c404 | | Store 0x2,0x4
0147 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0148 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
014c ffff ffff | | .LITERAL {0xffffffff, 0xffffc000}
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 e408 | | Load 0x2,0x8
0154 0a01 | | Execute_Immediate Plus,0x1
0155 c408 | | Store 0x2,0x8
0156 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0157 0000 | | .XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e407 | | Load 0x2,0x7
015c 0a01 | | Execute_Immediate Plus,0x1
015d a407 | | Store_Unchecked 0x2,0x7
015e e408 | | Load 0x2,0x8
015f 0aff | | Execute_Immediate Plus,-0x1
0160 c408 | | Store 0x2,0x8
0161 e405 | | Load 0x2,0x5
0162 e7ff | | Load 0x3,-0x1
0163 e001 | | Load 0x0,0x1
0164 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0165 0273 | s | Execute Discrete,Plus
0166 a405 | | Store_Unchecked 0x2,0x5
0167 e406 | | Load 0x2,0x6
0168 e7ff | | Load 0x3,-0x1
0169 e001 | | Load 0x0,0x1
016a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
016b 0273 | s | Execute Discrete,Plus
016c a406 | | Store_Unchecked 0x2,0x6
016d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016e 0000 0000 | | .XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0187 | | .CONST 0x0187 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 000a | | .CONST 0x000a ; Number of locals
0173 INIT_0170:
0173 00e1 | | Load_Encached Boolean_Cache
0174 e007 | | Load 0x0,0x7
0175 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0176 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0177 0322 | " | Declare_Variable Record
0178 e001 | | Load 0x0,0x1
0179 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
017a 00e5 | | Load_Encached Long_Integer_Cache
017b 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call
017d e001 | | Load 0x0,0x1
017e 1930 | 0 | Execute Package,Field_Reference,Field_Number 0x30
017f 00c6 | | Action Check_Subprogram_Elaborated
0180 4806 |H | Short_Literal 0x6
0181 4803 |H | Short_Literal 0x3
0182 0099 | | Action Reference_Dynamic
0183 e008 | | Load 0x0,0x8
0184 e009 | | Load 0x0,0x9
0185 480a |H | Short_Literal 0xa
0186 0007 | | Action Break_Optional
0187 BODY_0170:
0187 e405 | | Load 0x2,0x5
0188 a604 | | Store_Unchecked 0x3,0x4
0189 e406 | | Load 0x2,0x6
018a a605 | | Store_Unchecked 0x3,0x5
018b 48ff |H | Short_Literal 0xff
018c 4804 |H | Short_Literal 0x4
018d 4807 |H | Short_Literal 0x7
018e 4803 |H | Short_Literal 0x3
018f 0099 | | Action Reference_Dynamic
0190 4808 |H | Short_Literal 0x8
0191 4803 |H | Short_Literal 0x3
0192 0099 | | Action Reference_Dynamic
0193 e001 | | Load 0x0,0x1
0194 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0195 e604 | | Load 0x3,0x4
0196 e7ff | | Load 0x3,-0x1
0197 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0198 e605 | | Load 0x3,0x5
0199 e7ff | | Load 0x3,-0x1
019a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
019b e407 | | Load 0x2,0x7
019c 00d8 | | Load_Top At_Offset_0
019d 00e2 | | Load_Encached Integer_Cache
019e 0260 | ` | Execute Discrete,In_Type
019f 7001 |p | Jump_Nonzero 0x1a1
01a0 0801 | | Execute_Immediate Raise,0x1
01a1 e7ff | | Load 0x3,-0x1
01a2 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01a3 4800 |H | Short_Literal 0x0
01a4 e7ff | | Load 0x3,-0x1
01a5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01a6 00cf | | Action Mark_Auxiliary
01a7 481f |H | Short_Literal 0x1f
01a8 4800 |H | Short_Literal 0x0
01a9 0007 | | Action Break_Optional
01aa e603 | | Load 0x3,0x3
01ab 00e1 | | Load_Encached Boolean_Cache
01ac e60d | | Load 0x3,0xd
01ad e007 | | Load 0x0,0x7
01ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01af 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b0 c602 | | Store 0x3,0x2
01b1 00d1 | | Pop_Control Pop_Count_1
01b2 e602 | | Load 0x3,0x2
01b3 6812 |h | Jump_Zero 0x1c6
01b4 e603 | | Load 0x3,0x3
01b5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b6 e603 | | Load 0x3,0x3
01b7 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01b8 0272 | r | Execute Discrete,Minus
01b9 e60d | | Load 0x3,0xd
01ba e7ff | | Load 0x3,-0x1
01bb 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01bc 01d6 | | Execute Vector,Field_Write
01bd e7ff | | Load 0x3,-0x1
01be 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01bf e60d | | Load 0x3,0xd
01c0 e7ff | | Load 0x3,-0x1
01c1 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01c2 01d7 | | Execute Vector,Field_Read
01c3 0273 | s | Execute Discrete,Plus
01c4 e7ff | | Load 0x3,-0x1
01c5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01c6 00c8 | | Action Pop_Auxiliary_Range
01c7 3fe2 |? | Loop_Increasing 0x1aa
01c8 00ce | | Action Pop_Auxiliary
01c9 e001 | | Load 0x0,0x1
01ca 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
01cb e001 | | Load 0x0,0x1
01cc 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
01cd e001 | | Load 0x0,0x1
01ce 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
01cf e001 | | Load 0x0,0x1
01d0 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
01d1 e001 | | Load 0x0,0x1
01d2 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01d3 c40f | | Store 0x2,0xf
01d4 c410 | | Store 0x2,0x10
01d5 c411 | | Store 0x2,0x11
01d6 c412 | | Store 0x2,0x12
01d7 e001 | | Load 0x0,0x1
01d8 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
01d9 e001 | | Load 0x0,0x1
01da 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
01db e001 | | Load 0x0,0x1
01dc 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
01dd e001 | | Load 0x0,0x1
01de 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
01df e001 | | Load 0x0,0x1
01e0 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
01e1 c413 | | Store 0x2,0x13
01e2 c414 | | Store 0x2,0x14
01e3 c415 | | Store 0x2,0x15
01e4 c416 | | Store 0x2,0x16
01e5 e001 | | Load 0x0,0x1
01e6 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
01e7 e001 | | Load 0x0,0x1
01e8 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
01e9 e001 | | Load 0x0,0x1
01ea 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
01eb e001 | | Load 0x0,0x1
01ec 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
01ed e001 | | Load 0x0,0x1
01ee 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
01ef c417 | | Store 0x2,0x17
01f0 c418 | | Store 0x2,0x18
01f1 c419 | | Store 0x2,0x19
01f2 c41a | | Store 0x2,0x1a
01f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f4 0000 0000 | | .BLANK 0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0201 | | .CONST 0x0201 ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb e00a | | Load 0x0,0xa
01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fd 02c7 | | Declare_Variable Any
01fe e00a | | Load 0x0,0xa
01ff 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0200 a602 | | Store_Unchecked 0x3,0x2
0201 BODY_01f8:
0201 4800 |H | Short_Literal 0x0
0202 4801 |H | Short_Literal 0x1
0203 4803 |H | Short_Literal 0x3
0204 e602 | | Load 0x3,0x2
0205 e00b | | Load 0x0,0xb
0206 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0207 e00b | | Load 0x0,0xb
0208 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0209 00ca | | Action Exit_Nullary_Function
020a 0000 0000 | | .BLANK 0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 e7ff | | Load 0x3,-0x1
0214 01db | | Execute Vector,Length
0215 e7fe | | Load 0x3,-0x2
0216 027b | { | Execute Discrete,Greater_Equal
0217 680f |h | Jump_Zero 0x227
0218 e7ff | | Load 0x3,-0x1
0219 01dd | | Execute Vector,First
021a e7ff | | Load 0x3,-0x1
021b 01dd | | Execute Vector,First
021c e7fe | | Load 0x3,-0x2
021d 0273 | s | Execute Discrete,Plus
021e 0aff | | Execute_Immediate Plus,-0x1
021f 00d8 | | Load_Top At_Offset_0
0220 00e2 | | Load_Encached Integer_Cache
0221 0260 | ` | Execute Discrete,In_Type
0222 7001 |p | Jump_Nonzero 0x224
0223 0801 | | Execute_Immediate Raise,0x1
0224 e7ff | | Load 0x3,-0x1
0225 01cf | | Execute Vector,Slice_Read
0226 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0227 e7ff | | Load 0x3,-0x1
0228 4801 |H | Short_Literal 0x1
0229 e7fe | | Load 0x3,-0x2
022a e7ff | | Load 0x3,-0x1
022b 01db | | Execute Vector,Length
022c 0272 | r | Execute Discrete,Minus
022d 00e9 | | Load_Encached String_Cache
022e 0334 | 4 | Declare_Variable Array,With_Constraint
022f 00d8 | | Load_Top At_Offset_0
0230 01dc | | Execute Vector,Last
0231 4801 |H | Short_Literal 0x1
0232 0263 | c | Execute Discrete,Above_Bound
0233 7005 |p | Jump_Nonzero 0x239
0234 4820 |H | Short_Literal 0x20
0235 e605 | | Load 0x3,0x5
0236 e603 | | Load 0x3,0x3
0237 01d6 | | Execute Vector,Field_Write
0238 3ffb |? | Loop_Increasing 0x234
0239 01cc | | Execute Vector,Catenate
023a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
023b 0000 0000 | | .BLANK 0000[0x5]
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 4820 |H | Short_Literal 0x20
0244 4800 |H | Short_Literal 0x0
0245 480a |H | Short_Literal 0xa
0246 e7ff | | Load 0x3,-0x1
0247 e00c | | Load 0x0,0xc
0248 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0249 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024a 0000 0000 | | .BLANK 0000[0x6]
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 4820 |H | Short_Literal 0x20
0254 4800 |H | Short_Literal 0x0
0255 480a |H | Short_Literal 0xa
0256 e7ff | | Load 0x3,-0x1
0257 e00c | | Load 0x0,0xc
0258 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0259 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 026d | m | .CONST 0x026d ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0003 | | .CONST 0x0003 ; Number of locals
0263 INIT_0260:
0263 e7ff | | Load 0x3,-0x1
0264 4864 |Hd | Short_Literal 0x64
0265 0270 | p | Execute Discrete,Divide
0266 00e0 | | Load_Encached Standard_Cache
0267 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0268 e7ff | | Load 0x3,-0x1
0269 4864 |Hd | Short_Literal 0x64
026a 026e | n | Execute Discrete,Modulo
026b 00e0 | | Load_Encached Standard_Cache
026c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026d BODY_0260:
026d e7ff | | Load 0x3,-0x1
026e 4864 |Hd | Short_Literal 0x64
026f 026e | n | Execute Discrete,Modulo
0270 0d0a | | Execute_Immediate Less,0xa
0271 681d |h | Jump_Zero 0x28f
0272 e602 | | Load 0x3,0x2
0273 01dd | | Execute Vector,First
0274 0a01 | | Execute_Immediate Plus,0x1
0275 00d8 | | Load_Top At_Offset_0
0276 00e2 | | Load_Encached Integer_Cache
0277 0260 | ` | Execute Discrete,In_Type
0278 7001 |p | Jump_Nonzero 0x27a
0279 0801 | | Execute_Immediate Raise,0x1
027a e602 | | Load 0x3,0x2
027b 01dc | | Execute Vector,Last
027c e602 | | Load 0x3,0x2
027d 01cf | | Execute Vector,Slice_Read
027e 0092 02c7 | | Action Push_String_Extended,0x2c7 ; ".0"
0280 01cc | | Execute Vector,Catenate
0281 e603 | | Load 0x3,0x3
0282 01dd | | Execute Vector,First
0283 0a01 | | Execute_Immediate Plus,0x1
0284 00d8 | | Load_Top At_Offset_0
0285 00e2 | | Load_Encached Integer_Cache
0286 0260 | ` | Execute Discrete,In_Type
0287 7001 |p | Jump_Nonzero 0x289
0288 0801 | | Execute_Immediate Raise,0x1
0289 e603 | | Load 0x3,0x3
028a 01dc | | Execute Vector,Last
028b e603 | | Load 0x3,0x3
028c 01cf | | Execute Vector,Slice_Read
028d 01cc | | Execute Vector,Catenate
028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028f e602 | | Load 0x3,0x2
0290 01dd | | Execute Vector,First
0291 0a01 | | Execute_Immediate Plus,0x1
0292 00d8 | | Load_Top At_Offset_0
0293 00e2 | | Load_Encached Integer_Cache
0294 0260 | ` | Execute Discrete,In_Type
0295 7001 |p | Jump_Nonzero 0x297
0296 0801 | | Execute_Immediate Raise,0x1
0297 e602 | | Load 0x3,0x2
0298 01dc | | Execute Vector,Last
0299 e602 | | Load 0x3,0x2
029a 01cf | | Execute Vector,Slice_Read
029b 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "."
029d 01cc | | Execute Vector,Catenate
029e e603 | | Load 0x3,0x3
029f 01dd | | Execute Vector,First
02a0 0a01 | | Execute_Immediate Plus,0x1
02a1 00d8 | | Load_Top At_Offset_0
02a2 00e2 | | Load_Encached Integer_Cache
02a3 0260 | ` | Execute Discrete,In_Type
02a4 7001 |p | Jump_Nonzero 0x2a6
02a5 0801 | | Execute_Immediate Raise,0x1
02a6 e603 | | Load 0x3,0x3
02a7 01dc | | Execute Vector,Last
02a8 e603 | | Load 0x3,0x3
02a9 01cf | | Execute Vector,Slice_Read
02aa 01cc | | Execute Vector,Catenate
02ab 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ac 0000 0000 | | .BLANK 0000[0x4]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 e9ff | | Load 0x4,-0x1
02b4 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
02b5 0f05 | | Execute_Immediate Equal,0x5
02b6 700a |p | Jump_Nonzero 0x2c1
02b7 e604 | | Load 0x3,0x4
02b8 e9ff | | Load 0x4,-0x1
02b9 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02ba 0273 | s | Execute Discrete,Plus
02bb a604 | | Store_Unchecked 0x3,0x4
02bc e605 | | Load 0x3,0x5
02bd e9ff | | Load 0x4,-0x1
02be 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02bf 0273 | s | Execute Discrete,Plus
02c0 a605 | | Store_Unchecked 0x3,0x5
02c1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02c2 ; --------------------------------------------------------------------------------------
02c2 ; STRING TABLE
02c2 ; --------------------------------------------------------------------------------------
02c2 0010 | | .STRTAB 0x0010->0x02ca ; " samples, start at "
02c3 0021 | ! | .STRTAB 0x0021->0x02d3 ; "Time Cpu DiskW Disk Users Jobs Jobs_T Load15 Disk15 Whld15"
02c4 006b | k | .STRTAB 0x006b->0x02f9 ; "----------------- ---- ------ ------- ----- ---- ------ ------ ------ ------"
02c5 00b5 | | .STRTAB 0x00b5->0x031f ; "Login"
02c6 00b8 | | .STRTAB 0x00b8->0x0322 ; " "
02c7 00b7 | | .STRTAB 0x00b7->0x0322 ; ".0"
02c8 00b7 | | .STRTAB 0x00b7->0x0323 ; "."
02c9 00b6 | | .STREND 0x00b6->0x0324
02ca 2073 616d | sam| .STRTAB_STRINGS
0324 0000 0000 | | .BLANK 0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug Table
0328 ; --------------------------------------------------------------------------------------
0328 0004 000d | | .DEBUG4 0x0004,0x000d,0x5ba8,0x0000,0x0001,0x0000
032e 0000 0000 | | .BLANK 0000[0xd2]