|
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: 4096 (0x1000)
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 07e8 | | .CONST 0x07e8 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0088 | | .CONST 0x0088 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002b | + | .CONST 0x002b ; Number of locals
000b INIT_0008:
000b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
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 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
001b c214 | | Store 0x1,0x14
001c 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
001e c212 | | Store 0x1,0x12
001f 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
0021 c213 | | Store 0x1,0x13
0022 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated
0024 c210 | | Store 0x1,0x10
0025 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated
0027 c211 | | Store 0x1,0x11
0028 00e2 | | Load_Encached Integer_Cache
0029 0129 | ) | Execute Any,Make_Visible
002a c215 | | Store 0x1,0x15
002b 029a 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call,Visible,Unelaborated
002d c216 | | Store 0x1,0x16
002e 029a 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Visible,Unelaborated
0030 c217 | | Store 0x1,0x17
0031 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
0033 c218 | | Store 0x1,0x18
0034 029a 03f3 | | Declare_Subprogram INIT_03f0,For_Outer_Call,Visible,Unelaborated
0036 c219 | | Store 0x1,0x19
0037 00bf | | Action Accept_Activation
0038 029b 0403 | | Declare_Subprogram INIT_0400,For_Outer_Call,Unelaborated
003a e001 | | Load 0x0,0x1
003b 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
003c e001 | | Load 0x0,0x1
003d 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
003e e002 | | Load 0x0,0x2
003f e003 | | Load 0x0,0x3
0040 4861 |Ha | Short_Literal 0x61
0041 00e4 | | Load_Encached Positive_Cache
0042 e21c | | Load 0x1,0x1c
0043 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0044 e004 | | Load 0x0,0x4
0045 0387 | | Declare_Variable Package
0046 00d8 | | Load_Top At_Offset_0
0047 020f | | Execute Module,Activate
0048 00d8 | | Load_Top At_Offset_0
0049 1b13 | | Execute Package,Field_Read,Field_Number 0x13
004a 00e3 | | Load_Encached Natural_Cache
004b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
004c e005 | | Load 0x0,0x5
004d e006 | | Load 0x0,0x6
004e 4806 |H | Short_Literal 0x6
004f 0092 0600 | | Action Push_String_Extended,0x600 ; " "
0051 e007 | | Load 0x0,0x7
0052 0387 | | Declare_Variable Package
0053 00d8 | | Load_Top At_Offset_0
0054 020f | | Execute Module,Activate
0055 00e3 | | Load_Encached Natural_Cache
0056 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0057 00e1 | | Load_Encached Boolean_Cache
0058 e008 | | Load 0x0,0x8
0059 1b0f | | Execute Package,Field_Read,Field_Number 0xf
005a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
005b 0322 | " | Declare_Variable Record
005c e008 | | Load 0x0,0x8
005d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
005e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
005f 0322 | " | Declare_Variable Record
0060 4801 |H | Short_Literal 0x1
0061 4804 |H | Short_Literal 0x4
0062 00e3 | | Load_Encached Natural_Cache
0063 02a0 | | Declare_Subprogram Null_Subprogram
0064 4801 |H | Short_Literal 0x1
0065 035d | ] | Declare_Type Array,Defined
0066 00d8 | | Load_Top At_Offset_0
0067 0337 | 7 | Declare_Variable Array
0068 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0069 00c7 | | Action Elaborate_Subprogram
006a 1d0d | | Execute_Immediate Reference_Lex_1,0xd
006b 00c7 | | Action Elaborate_Subprogram
006c 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call
006e 029d 041b | | Declare_Subprogram INIT_0418,For_Outer_Call
0070 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call
0072 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0073 00c7 | | Action Elaborate_Subprogram
0074 029d 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call
0076 029d 0493 | | Declare_Subprogram INIT_0490,For_Outer_Call
0078 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0079 00c7 | | Action Elaborate_Subprogram
007a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
007b 00c7 | | Action Elaborate_Subprogram
007c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
007d 00c7 | | Action Elaborate_Subprogram
007e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
007f 00c7 | | Action Elaborate_Subprogram
0080 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0081 00c7 | | Action Elaborate_Subprogram
0082 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0083 00c7 | | Action Elaborate_Subprogram
0084 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0085 00c7 | | Action Elaborate_Subprogram
0086 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0087 00c7 | | Action Elaborate_Subprogram
0088 BODY_0008:
0088 00bc | | Action Signal_Activated
0089 00bb | | Action Signal_Completion
008a 0000 0000 | | .BLANK 0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00d8 | | .CONST 0x00d8 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0026 | & | .CONST 0x0026 ; Number of locals
0093 INIT_0090:
0093 e009 | | Load 0x0,0x9
0094 e00a | | Load 0x0,0xa
0095 e221 | ! | Load 0x1,0x21
0096 0a02 | | Execute_Immediate Plus,0x2
0097 00d8 | | Load_Top At_Offset_0
0098 00e4 | | Load_Encached Positive_Cache
0099 0260 | ` | Execute Discrete,In_Type
009a 7001 |p | Jump_Nonzero 0x9c
009b 0801 | | Execute_Immediate Raise,0x1
009c 0092 0600 | | Action Push_String_Extended,0x600 ; " "
009e e007 | | Load 0x0,0x7
009f 0387 | | Declare_Variable Package
00a0 00d8 | | Load_Top At_Offset_0
00a1 020f | | Execute Module,Activate
00a2 e21c | | Load 0x1,0x1c
00a3 0322 | " | Declare_Variable Record
00a4 00d8 | | Load_Top At_Offset_0
00a5 1c00 | | Execute_Immediate Run_Utility,0x0
00a6 00e3 | | Load_Encached Natural_Cache
00a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a8 03e9 | | Declare_Variable Discrete,Duplicate
00a9 03e9 | | Declare_Variable Discrete,Duplicate
00aa 00e3 | | Load_Encached Natural_Cache
00ab 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ac 03e9 | | Declare_Variable Discrete,Duplicate
00ad 03e9 | | Declare_Variable Discrete,Duplicate
00ae 00e3 | | Load_Encached Natural_Cache
00af 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b0 03e9 | | Declare_Variable Discrete,Duplicate
00b1 03e9 | | Declare_Variable Discrete,Duplicate
00b2 00e3 | | Load_Encached Natural_Cache
00b3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b4 03e9 | | Declare_Variable Discrete,Duplicate
00b5 03e9 | | Declare_Variable Discrete,Duplicate
00b6 00e3 | | Load_Encached Natural_Cache
00b7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b8 03e9 | | Declare_Variable Discrete,Duplicate
00b9 03e9 | | Declare_Variable Discrete,Duplicate
00ba 03e9 | | Declare_Variable Discrete,Duplicate
00bb 00e3 | | Load_Encached Natural_Cache
00bc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00bd 03e9 | | Declare_Variable Discrete,Duplicate
00be 03e9 | | Declare_Variable Discrete,Duplicate
00bf 03e9 | | Declare_Variable Discrete,Duplicate
00c0 00e7 | | Load_Encached Duration_Cache
00c1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00c2 03e9 | | Declare_Variable Discrete,Duplicate
00c3 03e9 | | Declare_Variable Discrete,Duplicate
00c4 00e7 | | Load_Encached Duration_Cache
00c5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00c6 03e9 | | Declare_Variable Discrete,Duplicate
00c7 03e9 | | Declare_Variable Discrete,Duplicate
00c8 00e7 | | Load_Encached Duration_Cache
00c9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ca 03e9 | | Declare_Variable Discrete,Duplicate
00cb 03e9 | | Declare_Variable Discrete,Duplicate
00cc 03e9 | | Declare_Variable Discrete,Duplicate
00cd e00b | | Load 0x0,0xb
00ce 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00cf 0322 | " | Declare_Variable Record
00d0 e00c | | Load 0x0,0xc
00d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d2 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call
00d4 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
00d6 029f 0503 | | Declare_Subprogram INIT_0500,For_Call
00d8 BODY_0090:
00d8 4800 |H | Short_Literal 0x0
00d9 e224 | $ | Load 0x1,0x24
00da 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00db 4800 |H | Short_Literal 0x0
00dc e224 | $ | Load 0x1,0x24
00dd 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00de 00cf | | Action Mark_Auxiliary
00df 481f |H | Short_Literal 0x1f
00e0 4800 |H | Short_Literal 0x0
00e1 0007 | | Action Break_Optional
00e2 e223 | # | Load 0x1,0x23
00e3 00e1 | | Load_Encached Boolean_Cache
00e4 e429 | ) | Load 0x2,0x29
00e5 e008 | | Load 0x0,0x8
00e6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00e8 c222 | " | Store 0x1,0x22
00e9 00d1 | | Pop_Control Pop_Count_1
00ea e222 | " | Load 0x1,0x22
00eb 680c |h | Jump_Zero 0xf8
00ec e224 | $ | Load 0x1,0x24
00ed 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ee e223 | # | Load 0x1,0x23
00ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f0 0273 | s | Execute Discrete,Plus
00f1 e224 | $ | Load 0x1,0x24
00f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f3 e223 | # | Load 0x1,0x23
00f4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f5 e429 | ) | Load 0x2,0x29
00f6 e226 | & | Load 0x1,0x26
00f7 01d6 | | Execute Vector,Field_Write
00f8 00c8 | | Action Pop_Auxiliary_Range
00f9 3fe8 |? | Loop_Increasing 0xe2
00fa 00ce | | Action Pop_Auxiliary
00fb 4802 |H | Short_Literal 0x2
00fc 0092 0601 | | Action Push_String_Extended,0x601 ; "Date"
00fe e220 | | Load 0x1,0x20
00ff 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0100 4802 |H | Short_Literal 0x2
0101 0092 0602 | | Action Push_String_Extended,0x602 ; "Ada"
0103 e220 | | Load 0x1,0x20
0104 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0105 4802 |H | Short_Literal 0x2
0106 0092 0603 | | Action Push_String_Extended,0x603 ; "File"
0108 e220 | | Load 0x1,0x20
0109 1812 | | Execute Package,Field_Execute,Field_Number 0x12
010a 4802 |H | Short_Literal 0x2
010b 0092 0604 | | Action Push_String_Extended,0x604 ; "Action"
010d e220 | | Load 0x1,0x20
010e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
010f 4802 |H | Short_Literal 0x2
0110 0092 0605 | | Action Push_String_Extended,0x605 ; "Directory"
0112 e220 | | Load 0x1,0x20
0113 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0114 4802 |H | Short_Literal 0x2
0115 0092 0606 | | Action Push_String_Extended,0x606 ; "DDB"
0117 e220 | | Load 0x1,0x20
0118 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0119 4800 |H | Short_Literal 0x0
011a 0092 0601 | | Action Push_String_Extended,0x601 ; "Date"
011c e402 | | Load 0x2,0x2
011d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
011e e221 | ! | Load 0x1,0x21
011f 0c01 | | Execute_Immediate Greater_Equal,0x1
0120 6805 |h | Jump_Zero 0x126
0121 4801 |H | Short_Literal 0x1
0122 0092 0607 | | Action Push_String_Extended,0x607 ; "Volume 1"
0124 e402 | | Load 0x2,0x2
0125 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0126 e221 | ! | Load 0x1,0x21
0127 0c02 | | Execute_Immediate Greater_Equal,0x2
0128 6805 |h | Jump_Zero 0x12e
0129 4801 |H | Short_Literal 0x1
012a 0092 0608 | | Action Push_String_Extended,0x608 ; "Volume 2"
012c e402 | | Load 0x2,0x2
012d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
012e e221 | ! | Load 0x1,0x21
012f 0c03 | | Execute_Immediate Greater_Equal,0x3
0130 6805 |h | Jump_Zero 0x136
0131 4801 |H | Short_Literal 0x1
0132 0092 0609 | | Action Push_String_Extended,0x609 ; "Volume 3"
0134 e402 | | Load 0x2,0x2
0135 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0136 e221 | ! | Load 0x1,0x21
0137 0c04 | | Execute_Immediate Greater_Equal,0x4
0138 6805 |h | Jump_Zero 0x13e
0139 4801 |H | Short_Literal 0x1
013a 0092 060a | | Action Push_String_Extended,0x60a ; "Volume 4"
013c e402 | | Load 0x2,0x2
013d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
013e 4801 |H | Short_Literal 0x1
013f 0092 060b | | Action Push_String_Extended,0x60b ; "Total %"
0141 e402 | | Load 0x2,0x2
0142 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0143 e21f | | Load 0x1,0x1f
0144 0c01 | | Execute_Immediate Greater_Equal,0x1
0145 6819 |h | Jump_Zero 0x15f
0146 4801 |H | Short_Literal 0x1
0147 e21e | | Load 0x1,0x1e
0148 e21d | | Load 0x1,0x1d
0149 1815 | | Execute Package,Field_Execute,Field_Number 0x15
014a e403 | | Load 0x2,0x3
014b 017d | } | Execute Record,Structure_Write
014c e403 | | Load 0x2,0x3
014d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
014e e422 | " | Load 0x2,0x22
014f 017d | } | Execute Record,Structure_Write
0150 e422 | " | Load 0x2,0x22
0151 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0152 a423 | # | Store_Unchecked 0x2,0x23
0153 480c |H | Short_Literal 0xc
0154 e422 | " | Load 0x2,0x22
0155 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0156 4800 |H | Short_Literal 0x0
0157 e422 | " | Load 0x2,0x22
0158 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0159 4800 |H | Short_Literal 0x0
015a e422 | " | Load 0x2,0x22
015b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
015c 4800 |H | Short_Literal 0x0
015d e422 | " | Load 0x2,0x22
015e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
015f 00cf | | Action Mark_Auxiliary
0160 e21f | | Load 0x1,0x1f
0161 4801 |H | Short_Literal 0x1
0162 0263 | c | Execute Discrete,Above_Bound
0163 7079 |py | Jump_Nonzero 0x1dd
0164 00d8 | | Load_Top At_Offset_0
0165 e21e | | Load 0x1,0x1e
0166 e21d | | Load 0x1,0x1d
0167 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0168 e403 | | Load 0x2,0x3
0169 017d | } | Execute Record,Structure_Write
016a e403 | | Load 0x2,0x3
016b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
016c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
016d e423 | # | Load 0x2,0x23
016e 027e | ~ | Execute Discrete,Not_Equal
016f 6816 |h | Jump_Zero 0x186
0170 e422 | " | Load 0x2,0x22
0171 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0172 60b5 |` | Indirect_Literal Discrete,0x228,{0x00000000, 0x0000076d}
0173 027e | ~ | Execute Discrete,Not_Equal
0174 6801 |h | Jump_Zero 0x176
0175 8426 | & | Call 0x2,0x26
0176 e403 | | Load 0x2,0x3
0177 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0178 e422 | " | Load 0x2,0x22
0179 017d | } | Execute Record,Structure_Write
017a 480c |H | Short_Literal 0xc
017b e422 | " | Load 0x2,0x22
017c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
017d 4800 |H | Short_Literal 0x0
017e e422 | " | Load 0x2,0x22
017f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0180 4800 |H | Short_Literal 0x0
0181 e422 | " | Load 0x2,0x22
0182 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0183 4800 |H | Short_Literal 0x0
0184 e422 | " | Load 0x2,0x22
0185 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0186 e418 | | Load 0x2,0x18
0187 e404 | | Load 0x2,0x4
0188 e40a | | Load 0x2,0xa
0189 0092 0602 | | Action Push_String_Extended,0x602 ; "Ada"
018b 8424 | $ | Call 0x2,0x24
018c c40a | | Store 0x2,0xa
018d c404 | | Store 0x2,0x4
018e c418 | | Store 0x2,0x18
018f e419 | | Load 0x2,0x19
0190 e405 | | Load 0x2,0x5
0191 e40b | | Load 0x2,0xb
0192 0092 0603 | | Action Push_String_Extended,0x603 ; "File"
0194 8424 | $ | Call 0x2,0x24
0195 c40b | | Store 0x2,0xb
0196 c405 | | Store 0x2,0x5
0197 c419 | | Store 0x2,0x19
0198 e41a | | Load 0x2,0x1a
0199 e406 | | Load 0x2,0x6
019a e40c | | Load 0x2,0xc
019b 0092 0604 | | Action Push_String_Extended,0x604 ; "Action"
019d 8424 | $ | Call 0x2,0x24
019e c40c | | Store 0x2,0xc
019f c406 | | Store 0x2,0x6
01a0 c41a | | Store 0x2,0x1a
01a1 e41c | | Load 0x2,0x1c
01a2 e40e | | Load 0x2,0xe
01a3 e408 | | Load 0x2,0x8
01a4 0092 0605 | | Action Push_String_Extended,0x605 ; "Directory"
01a6 8424 | $ | Call 0x2,0x24
01a7 c408 | | Store 0x2,0x8
01a8 c40e | | Store 0x2,0xe
01a9 c41c | | Store 0x2,0x1c
01aa e41d | | Load 0x2,0x1d
01ab e40f | | Load 0x2,0xf
01ac e409 | | Load 0x2,0x9
01ad 0092 060c | | Action Push_String_Extended,0x60c ; "Ddb"
01af 8424 | $ | Call 0x2,0x24
01b0 c409 | | Store 0x2,0x9
01b1 c40f | | Store 0x2,0xf
01b2 c41d | | Store 0x2,0x1d
01b3 e41e | | Load 0x2,0x1e
01b4 e410 | | Load 0x2,0x10
01b5 e414 | | Load 0x2,0x14
01b6 0092 060d | | Action Push_String_Extended,0x60d ; "Disk1"
01b8 8424 | $ | Call 0x2,0x24
01b9 c414 | | Store 0x2,0x14
01ba c410 | | Store 0x2,0x10
01bb c41e | | Store 0x2,0x1e
01bc e41f | | Load 0x2,0x1f
01bd e411 | | Load 0x2,0x11
01be e415 | | Load 0x2,0x15
01bf 0092 060e | | Action Push_String_Extended,0x60e ; "Disk2"
01c1 8424 | $ | Call 0x2,0x24
01c2 c415 | | Store 0x2,0x15
01c3 c411 | | Store 0x2,0x11
01c4 c41f | | Store 0x2,0x1f
01c5 e420 | | Load 0x2,0x20
01c6 e412 | | Load 0x2,0x12
01c7 e416 | | Load 0x2,0x16
01c8 0092 060f | | Action Push_String_Extended,0x60f ; "Disk3"
01ca 8424 | $ | Call 0x2,0x24
01cb c416 | | Store 0x2,0x16
01cc c412 | | Store 0x2,0x12
01cd c420 | | Store 0x2,0x20
01ce e421 | ! | Load 0x2,0x21
01cf e413 | | Load 0x2,0x13
01d0 e417 | | Load 0x2,0x17
01d1 0092 0610 | | Action Push_String_Extended,0x610 ; "Disk4"
01d3 8424 | $ | Call 0x2,0x24
01d4 c417 | | Store 0x2,0x17
01d5 c413 | | Store 0x2,0x13
01d6 c421 | ! | Store 0x2,0x21
01d7 e403 | | Load 0x2,0x3
01d8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01d9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01da a423 | # | Store_Unchecked 0x2,0x23
01db 00c8 | | Action Pop_Auxiliary_Range
01dc 3f87 |? | Loop_Increasing 0x164
01dd 00ce | | Action Pop_Auxiliary
01de 8426 | & | Call 0x2,0x26
01df 4802 |H | Short_Literal 0x2
01e0 e00d | | Load 0x0,0xd
01e1 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01e2 0092 0611 | | Action Push_String_Extended,0x611 ; "Daemon Information Display"
01e4 e00d | | Load 0x0,0xd
01e5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01e6 0092 0612 | | Action Push_String_Extended,0x612 ; "--------------------------"
01e8 e00d | | Load 0x0,0xd
01e9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ea 4801 |H | Short_Literal 0x1
01eb e00d | | Load 0x0,0xd
01ec 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01ed 0092 0613 | | Action Push_String_Extended,0x613 ; "Shows at end of day final run of daemon. This"
01ef e00d | | Load 0x0,0xd
01f0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01f1 0092 0614 | | Action Push_String_Extended,0x614 ; "indicates size before compaction and final size"
01f3 e00d | | Load 0x0,0xd
01f4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01f5 0092 0615 | | Action Push_String_Extended,0x615 ; "in pages."
01f7 e00d | | Load 0x0,0xd
01f8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01f9 4802 |H | Short_Literal 0x2
01fa e00d | | Load 0x0,0xd
01fb 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01fc e00d | | Load 0x0,0xd
01fd 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01fe e220 | | Load 0x1,0x20
01ff 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0200 0092 0616 | | Action Push_String_Extended,0x616 ; "\x0c"
0202 e00d | | Load 0x0,0xd
0203 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0204 4802 |H | Short_Literal 0x2
0205 e00d | | Load 0x0,0xd
0206 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0207 0092 0617 | | Action Push_String_Extended,0x617 ; "For each disk, this display indicates the amount of"
0209 e00d | | Load 0x0,0xd
020a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
020b 0092 0618 | | Action Push_String_Extended,0x618 ; "used space after garbage collection has finished that"
020d e00d | | Load 0x0,0xd
020e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
020f 0092 0619 | | Action Push_String_Extended,0x619 ; "day, and the percentage of space used at that point."
0211 e00d | | Load 0x0,0xd
0212 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0213 0092 061a | | Action Push_String_Extended,0x61a ; "Note: percentages are based on the capacities of disks"
0215 e00d | | Load 0x0,0xd
0216 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0217 0092 061b | | Action Push_String_Extended,0x61b ; "of the machine when and where the report is run."
0219 e00d | | Load 0x0,0xd
021a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
021b 4802 |H | Short_Literal 0x2
021c e00d | | Load 0x0,0xd
021d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
021e e00d | | Load 0x0,0xd
021f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0220 e402 | | Load 0x2,0x2
0221 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0222 0092 0616 | | Action Push_String_Extended,0x616 ; "\x0c"
0224 e00d | | Load 0x0,0xd
0225 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0226 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0227 0000 | | .XXX[0x1]
0228 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
022c 0000 0000 | | .BLANK 0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0260 | ` | .CONST 0x0260 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0014 | | .CONST 0x0014 ; Number of locals
0233 INIT_0230:
0233 e21c | | Load 0x1,0x1c
0234 0322 | " | Declare_Variable Record
0235 00d8 | | Load_Top At_Offset_0
0236 1c00 | | Execute_Immediate Run_Utility,0x0
0237 e00e | | Load 0x0,0xe
0238 e00f | | Load 0x0,0xf
0239 e221 | ! | Load 0x1,0x21
023a 0a01 | | Execute_Immediate Plus,0x1
023b 00d8 | | Load_Top At_Offset_0
023c 00e4 | | Load_Encached Positive_Cache
023d 0260 | ` | Execute Discrete,In_Type
023e 7001 |p | Jump_Nonzero 0x240
023f 0801 | | Execute_Immediate Raise,0x1
0240 0092 0600 | | Action Push_String_Extended,0x600 ; " "
0242 e007 | | Load 0x0,0x7
0243 0387 | | Declare_Variable Package
0244 00d8 | | Load_Top At_Offset_0
0245 020f | | Execute Module,Activate
0246 00e3 | | Load_Encached Natural_Cache
0247 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0248 03e9 | | Declare_Variable Discrete,Duplicate
0249 03e9 | | Declare_Variable Discrete,Duplicate
024a 03e9 | | Declare_Variable Discrete,Duplicate
024b 00e3 | | Load_Encached Natural_Cache
024c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
024d 03e9 | | Declare_Variable Discrete,Duplicate
024e 03e9 | | Declare_Variable Discrete,Duplicate
024f 03e9 | | Declare_Variable Discrete,Duplicate
0250 00e7 | | Load_Encached Duration_Cache
0251 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0252 03e9 | | Declare_Variable Discrete,Duplicate
0253 03e9 | | Declare_Variable Discrete,Duplicate
0254 03e9 | | Declare_Variable Discrete,Duplicate
0255 e00b | | Load 0x0,0xb
0256 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0257 0322 | " | Declare_Variable Record
0258 e00c | | Load 0x0,0xc
0259 1b0f | | Execute Package,Field_Read,Field_Number 0xf
025a 029f 0523 | #| Declare_Subprogram INIT_0520,For_Call
025c 029f 053b | ;| Declare_Subprogram INIT_0538,For_Call
025e 029f 0573 | s| Declare_Subprogram INIT_0570,For_Call
0260 BODY_0230:
0260 4800 |H | Short_Literal 0x0
0261 0092 0601 | | Action Push_String_Extended,0x601 ; "Date"
0263 e403 | | Load 0x2,0x3
0264 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0265 e221 | ! | Load 0x1,0x21
0266 0c01 | | Execute_Immediate Greater_Equal,0x1
0267 6805 |h | Jump_Zero 0x26d
0268 4800 |H | Short_Literal 0x0
0269 0092 061c | | Action Push_String_Extended,0x61c ; "Vol 1"
026b e403 | | Load 0x2,0x3
026c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
026d e221 | ! | Load 0x1,0x21
026e 0c02 | | Execute_Immediate Greater_Equal,0x2
026f 6805 |h | Jump_Zero 0x275
0270 4800 |H | Short_Literal 0x0
0271 0092 061d | | Action Push_String_Extended,0x61d ; "Vol 2"
0273 e403 | | Load 0x2,0x3
0274 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0275 e221 | ! | Load 0x1,0x21
0276 0c03 | | Execute_Immediate Greater_Equal,0x3
0277 6805 |h | Jump_Zero 0x27d
0278 4800 |H | Short_Literal 0x0
0279 0092 061e | | Action Push_String_Extended,0x61e ; "Vol 3"
027b e403 | | Load 0x2,0x3
027c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
027d e221 | ! | Load 0x1,0x21
027e 0c04 | | Execute_Immediate Greater_Equal,0x4
027f 6805 |h | Jump_Zero 0x285
0280 4800 |H | Short_Literal 0x0
0281 0092 061f | | Action Push_String_Extended,0x61f ; "Vol 4"
0283 e403 | | Load 0x2,0x3
0284 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0285 e21f | | Load 0x1,0x1f
0286 0c01 | | Execute_Immediate Greater_Equal,0x1
0287 6819 |h | Jump_Zero 0x2a1
0288 4801 |H | Short_Literal 0x1
0289 e21e | | Load 0x1,0x1e
028a e21d | | Load 0x1,0x1d
028b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
028c e402 | | Load 0x2,0x2
028d 017d | } | Execute Record,Structure_Write
028e e402 | | Load 0x2,0x2
028f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0290 e410 | | Load 0x2,0x10
0291 017d | } | Execute Record,Structure_Write
0292 e410 | | Load 0x2,0x10
0293 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0294 a411 | | Store_Unchecked 0x2,0x11
0295 480c |H | Short_Literal 0xc
0296 e410 | | Load 0x2,0x10
0297 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0298 4800 |H | Short_Literal 0x0
0299 e410 | | Load 0x2,0x10
029a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
029b 4800 |H | Short_Literal 0x0
029c e410 | | Load 0x2,0x10
029d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
029e 4800 |H | Short_Literal 0x0
029f e410 | | Load 0x2,0x10
02a0 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
02a1 00cf | | Action Mark_Auxiliary
02a2 e21f | | Load 0x1,0x1f
02a3 4801 |H | Short_Literal 0x1
02a4 0263 | c | Execute Discrete,Above_Bound
02a5 704c |pL | Jump_Nonzero 0x2f2
02a6 00d8 | | Load_Top At_Offset_0
02a7 e21e | | Load 0x1,0x1e
02a8 e21d | | Load 0x1,0x1d
02a9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02aa e402 | | Load 0x2,0x2
02ab 017d | } | Execute Record,Structure_Write
02ac e402 | | Load 0x2,0x2
02ad 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ae 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02af e411 | | Load 0x2,0x11
02b0 027e | ~ | Execute Discrete,Not_Equal
02b1 6816 |h | Jump_Zero 0x2c8
02b2 e410 | | Load 0x2,0x10
02b3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02b4 6773 |gs | Indirect_Literal Discrete,0x228,{0x00000000, 0x0000076d}
02b5 027e | ~ | Execute Discrete,Not_Equal
02b6 6801 |h | Jump_Zero 0x2b8
02b7 8414 | | Call 0x2,0x14
02b8 e402 | | Load 0x2,0x2
02b9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ba e410 | | Load 0x2,0x10
02bb 017d | } | Execute Record,Structure_Write
02bc 480c |H | Short_Literal 0xc
02bd e410 | | Load 0x2,0x10
02be 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02bf 4800 |H | Short_Literal 0x0
02c0 e410 | | Load 0x2,0x10
02c1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02c2 4800 |H | Short_Literal 0x0
02c3 e410 | | Load 0x2,0x10
02c4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02c5 4800 |H | Short_Literal 0x0
02c6 e410 | | Load 0x2,0x10
02c7 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
02c8 e40c | | Load 0x2,0xc
02c9 e404 | | Load 0x2,0x4
02ca e408 | | Load 0x2,0x8
02cb 0092 060d | | Action Push_String_Extended,0x60d ; "Disk1"
02cd 8412 | | Call 0x2,0x12
02ce c408 | | Store 0x2,0x8
02cf c404 | | Store 0x2,0x4
02d0 c40c | | Store 0x2,0xc
02d1 e40d | | Load 0x2,0xd
02d2 e405 | | Load 0x2,0x5
02d3 e409 | | Load 0x2,0x9
02d4 0092 060e | | Action Push_String_Extended,0x60e ; "Disk2"
02d6 8412 | | Call 0x2,0x12
02d7 c409 | | Store 0x2,0x9
02d8 c405 | | Store 0x2,0x5
02d9 c40d | | Store 0x2,0xd
02da e40e | | Load 0x2,0xe
02db e406 | | Load 0x2,0x6
02dc e40a | | Load 0x2,0xa
02dd 0092 060f | | Action Push_String_Extended,0x60f ; "Disk3"
02df 8412 | | Call 0x2,0x12
02e0 c40a | | Store 0x2,0xa
02e1 c406 | | Store 0x2,0x6
02e2 c40e | | Store 0x2,0xe
02e3 e40f | | Load 0x2,0xf
02e4 e407 | | Load 0x2,0x7
02e5 e40b | | Load 0x2,0xb
02e6 0092 0610 | | Action Push_String_Extended,0x610 ; "Disk4"
02e8 8412 | | Call 0x2,0x12
02e9 c40b | | Store 0x2,0xb
02ea c407 | | Store 0x2,0x7
02eb c40f | | Store 0x2,0xf
02ec e402 | | Load 0x2,0x2
02ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ee 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02ef a411 | | Store_Unchecked 0x2,0x11
02f0 00c8 | | Action Pop_Auxiliary_Range
02f1 3fb4 |? | Loop_Increasing 0x2a6
02f2 00ce | | Action Pop_Auxiliary
02f3 8414 | | Call 0x2,0x14
02f4 4802 |H | Short_Literal 0x2
02f5 e00d | | Load 0x0,0xd
02f6 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02f7 0092 0620 | | Action Push_String_Extended,0x620 ; "Disk Daemon Information"
02f9 e00d | | Load 0x0,0xd
02fa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02fb 0092 0621 | !| Action Push_String_Extended,0x621 ; "-----------------------"
02fd e00d | | Load 0x0,0xd
02fe 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ff 4801 |H | Short_Literal 0x1
0300 e00d | | Load 0x0,0xd
0301 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0302 0092 0622 | "| Action Push_String_Extended,0x622 ; "Shows, for each day, last disk garbage collector"
0304 e00d | | Load 0x0,0xd
0305 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0306 0092 0623 | #| Action Push_String_Extended,0x623 ; "run and amount of used space before and after the"
0308 e00d | | Load 0x0,0xd
0309 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
030a 0092 0624 | $| Action Push_String_Extended,0x624 ; "collection in megabytes. The time in minutes to do"
030c e00d | | Load 0x0,0xd
030d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
030e 0092 0625 | %| Action Push_String_Extended,0x625 ; "the collection is also shown."
0310 e00d | | Load 0x0,0xd
0311 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0312 4802 |H | Short_Literal 0x2
0313 e00d | | Load 0x0,0xd
0314 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0315 e00d | | Load 0x0,0xd
0316 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0317 e403 | | Load 0x2,0x3
0318 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0319 4502 |E | Exit_Suprogram New_Top_Offset 0x2
031a 0000 0000 | | .BLANK 0000[0x6]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 032a | * | .CONST 0x032a ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0003 | | .CONST 0x0003 ; Number of locals
0323 INIT_0320:
0323 e21c | | Load 0x1,0x1c
0324 0322 | " | Declare_Variable Record
0325 00d8 | | Load_Top At_Offset_0
0326 1c00 | | Execute_Immediate Run_Utility,0x0
0327 e5fd | | Load 0x2,-0x3
0328 e5fe | | Load 0x2,-0x2
0329 8229 | ) | Call 0x1,0x29
032a BODY_0320:
032a e21f | | Load 0x1,0x1f
032b 0a01 | | Execute_Immediate Plus,0x1
032c c21f | | Store 0x1,0x1f
032d e5ff | | Load 0x2,-0x1
032e e402 | | Load 0x2,0x2
032f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0330 e402 | | Load 0x2,0x2
0331 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0332 e403 | | Load 0x2,0x3
0333 e010 | | Load 0x0,0x10
0334 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0335 00d1 | | Pop_Control Pop_Count_1
0336 4800 |H | Short_Literal 0x0
0337 e402 | | Load 0x2,0x2
0338 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0339 4800 |H | Short_Literal 0x0
033a e402 | | Load 0x2,0x2
033b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
033c e5fd | | Load 0x2,-0x3
033d e001 | | Load 0x0,0x1
033e 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
033f 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0340 e402 | | Load 0x2,0x2
0341 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0342 e21e | | Load 0x1,0x1e
0343 4800 |H | Short_Literal 0x0
0344 e402 | | Load 0x2,0x2
0345 e21f | | Load 0x1,0x1f
0346 00d8 | | Load_Top At_Offset_0
0347 00e4 | | Load_Encached Positive_Cache
0348 0260 | ` | Execute Discrete,In_Type
0349 7001 |p | Jump_Nonzero 0x34b
034a 0801 | | Execute_Immediate Raise,0x1
034b e21d | | Load 0x1,0x1d
034c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
034d c21e | | Store 0x1,0x1e
034e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
034f 0000 | | .XXX[0x1]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 035b | [ | .CONST 0x035b ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0004 | | .CONST 0x0004 ; Number of locals
0353 INIT_0350:
0353 e21c | | Load 0x1,0x1c
0354 0322 | " | Declare_Variable Record
0355 00d8 | | Load_Top At_Offset_0
0356 1c00 | | Execute_Immediate Run_Utility,0x0
0357 e5fd | | Load 0x2,-0x3
0358 e5fe | | Load 0x2,-0x2
0359 8229 | ) | Call 0x1,0x29
035a e21f | | Load 0x1,0x1f
035b BODY_0350:
035b 00cf | | Action Mark_Auxiliary
035c e404 | | Load 0x2,0x4
035d 00d8 | | Load_Top At_Offset_0
035e 00e4 | | Load_Encached Positive_Cache
035f 0260 | ` | Execute Discrete,In_Type
0360 7001 |p | Jump_Nonzero 0x362
0361 0801 | | Execute_Immediate Raise,0x1
0362 e21e | | Load 0x1,0x1e
0363 e21d | | Load 0x1,0x1d
0364 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0365 e402 | | Load 0x2,0x2
0366 017d | } | Execute Record,Structure_Write
0367 e402 | | Load 0x2,0x2
0368 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0369 e010 | | Load 0x0,0x10
036a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
036b e403 | | Load 0x2,0x3
036c 01df | | Execute Vector,Equal
036d 680a |h | Jump_Zero 0x378
036e e402 | | Load 0x2,0x2
036f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0370 6815 |h | Jump_Zero 0x386
0371 0092 0626 | &| Action Push_String_Extended,0x626 ; "*** Inconsistent daemon entry: "
0373 e403 | | Load 0x2,0x3
0374 01cc | | Execute Vector,Catenate
0375 e00d | | Load 0x0,0xd
0376 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0377 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0378 e404 | | Load 0x2,0x4
0379 0aff | | Execute_Immediate Plus,-0x1
037a c404 | | Store 0x2,0x4
037b e404 | | Load 0x2,0x4
037c 7007 |p | Jump_Nonzero 0x384
037d 0092 0627 | '| Action Push_String_Extended,0x627 ; "*** Unbalanced daemon start/end: "
037f e403 | | Load 0x2,0x3
0380 01cc | | Execute Vector,Catenate
0381 e00d | | Load 0x0,0xd
0382 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0383 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0384 00c9 | | Action Pop_Auxiliary_Loop
0385 7fd6 | | Jump 0x35c
0386 00ce | | Action Pop_Auxiliary
0387 e402 | | Load 0x2,0x2
0388 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0389 00e2 | | Load_Encached Integer_Cache
038a 025e | ^ | Execute Discrete,Convert
038b 0092 0628 | (| Action Push_String_Extended,0x628 ; "new = "
038d e5fd | | Load 0x2,-0x3
038e 822b | + | Call 0x1,0x2b
038f e402 | | Load 0x2,0x2
0390 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0391 e402 | | Load 0x2,0x2
0392 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0393 00e2 | | Load_Encached Integer_Cache
0394 025e | ^ | Execute Discrete,Convert
0395 0092 0629 | )| Action Push_String_Extended,0x629 ; "old = "
0397 e5fd | | Load 0x2,-0x3
0398 822b | + | Call 0x1,0x2b
0399 e402 | | Load 0x2,0x2
039a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
039b e402 | | Load 0x2,0x2
039c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
039d e00b | | Load 0x0,0xb
039e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
039f e5ff | | Load 0x2,-0x1
03a0 e00b | | Load 0x0,0xb
03a1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03a2 e011 | | Load 0x0,0x11
03a3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03a4 e402 | | Load 0x2,0x2
03a5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03a6 e21e | | Load 0x1,0x1e
03a7 4800 |H | Short_Literal 0x0
03a8 e402 | | Load 0x2,0x2
03a9 e21f | | Load 0x1,0x1f
03aa 00d8 | | Load_Top At_Offset_0
03ab 00e4 | | Load_Encached Positive_Cache
03ac 0260 | ` | Execute Discrete,In_Type
03ad 7001 |p | Jump_Nonzero 0x3af
03ae 0801 | | Execute_Immediate Raise,0x1
03af e21d | | Load 0x1,0x1d
03b0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03b1 c21e | | Store 0x1,0x1e
03b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03b3 0000 0000 | | .BLANK 0000[0x5]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb e21d | | Load 0x1,0x1d
03bc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03bd 4861 |Ha | Short_Literal 0x61
03be e21d | | Load 0x1,0x1d
03bf 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03c0 c21e | | Store 0x1,0x1e
03c1 4800 |H | Short_Literal 0x0
03c2 a21f | | Store_Unchecked 0x1,0x1f
03c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c4 0000 0000 | | .BLANK 0000[0x4]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cb | | .CONST 0x03cb ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0001 | | .CONST 0x0001 ; Number of locals
03cb BODY_03c8:
03cb INIT_03c8:
03cb e21e | | Load 0x1,0x1e
03cc e21d | | Load 0x1,0x1d
03cd 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03ce c21e | | Store 0x1,0x1e
03cf 4800 |H | Short_Literal 0x0
03d0 a21f | | Store_Unchecked 0x1,0x1f
03d1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03d2 0000 0000 | | .BLANK 0000[0x6]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 4801 |H | Short_Literal 0x1
03dc a5ff | | Store_Unchecked 0x2,-0x1
03dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03de 0000 0000 | | .XXX[0x2]
03e0 ; --------------------------------------------------------------------------------------
03e0 ; SUBPROGRAM
03e0 ; --------------------------------------------------------------------------------------
03e0 03e3 | | .CONST 0x03e3 ; Address of begin
03e1 0004 | | .CONST 0x0004 ; Address of exception handler
03e2 0001 | | .CONST 0x0001 ; Number of locals
03e3 BODY_03e0:
03e3 INIT_03e0:
03e3 e5ff | | Load 0x2,-0x1
03e4 0a01 | | Execute_Immediate Plus,0x1
03e5 c5ff | | Store 0x2,-0x1
03e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e7 0000 | | .XXX[0x1]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb e5ff | | Load 0x2,-0x1
03ec e21f | | Load 0x1,0x1f
03ed 027d | } | Execute Discrete,Greater
03ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03ef 0000 | | .XXX[0x1]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 03f3 | | .CONST 0x03f3 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0001 | | .CONST 0x0001 ; Number of locals
03f3 BODY_03f0:
03f3 INIT_03f0:
03f3 e5ff | | Load 0x2,-0x1
03f4 00d8 | | Load_Top At_Offset_0
03f5 00e4 | | Load_Encached Positive_Cache
03f6 0260 | ` | Execute Discrete,In_Type
03f7 7001 |p | Jump_Nonzero 0x3f9
03f8 0801 | | Execute_Immediate Raise,0x1
03f9 e21e | | Load 0x1,0x1e
03fa e21d | | Load 0x1,0x1d
03fb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03fd 0000 0000 | | .XXX[0x3]
03ff 0000 | |
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0403 | | .CONST 0x0403 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0001 | | .CONST 0x0001 ; Number of locals
0403 BODY_0400:
0403 INIT_0400:
0403 e5ff | | Load 0x2,-0x1
0404 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0405 0000 0000 | | .XXX[0x3]
0407 0000 | |
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040b | | .CONST 0x040b ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0001 | | .CONST 0x0001 ; Number of locals
040b BODY_0408:
040b INIT_0408:
040b 4801 |H | Short_Literal 0x1
040c e5ff | | Load 0x2,-0x1
040d e5fe | | Load 0x2,-0x2
040e e012 | | Load 0x0,0x12
040f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0410 0e00 | | Execute_Immediate Not_Equal,0x0
0411 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0412 0000 0000 | | .BLANK 0000[0x6]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b e5ff | | Load 0x2,-0x1
041c e5fe | | Load 0x2,-0x2
041d 027d | } | Execute Discrete,Greater
041e 6802 |h | Jump_Zero 0x421
041f e5ff | | Load 0x2,-0x1
0420 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0421 e5fe | | Load 0x2,-0x2
0422 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0423 0000 0000 | | .BLANK 0000[0x5]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b e5ff | | Load 0x2,-0x1
042c 0092 062a | *| Action Push_String_Extended,0x62a ; "Disk"
042e 01de | | Execute Vector,Not_Equal
042f 6802 |h | Jump_Zero 0x432
0430 e5ff | | Load 0x2,-0x1
0431 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0432 0092 062b | +| Action Push_String_Extended,0x62b ; "volume 1"
0434 e5fe | | Load 0x2,-0x2
0435 8227 | ' | Call 0x1,0x27
0436 6807 |h | Jump_Zero 0x43e
0437 4801 |H | Short_Literal 0x1
0438 e221 | ! | Load 0x1,0x21
0439 8228 | ( | Call 0x1,0x28
043a c221 | ! | Store 0x1,0x21
043b 0092 060d | | Action Push_String_Extended,0x60d ; "Disk1"
043d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
043e 0092 062c | ,| Action Push_String_Extended,0x62c ; "volume 2"
0440 e5fe | | Load 0x2,-0x2
0441 8227 | ' | Call 0x1,0x27
0442 6807 |h | Jump_Zero 0x44a
0443 4802 |H | Short_Literal 0x2
0444 e221 | ! | Load 0x1,0x21
0445 8228 | ( | Call 0x1,0x28
0446 c221 | ! | Store 0x1,0x21
0447 0092 060e | | Action Push_String_Extended,0x60e ; "Disk2"
0449 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
044a 0092 062d | -| Action Push_String_Extended,0x62d ; "volume 3"
044c e5fe | | Load 0x2,-0x2
044d 8227 | ' | Call 0x1,0x27
044e 6807 |h | Jump_Zero 0x456
044f 4803 |H | Short_Literal 0x3
0450 e221 | ! | Load 0x1,0x21
0451 8228 | ( | Call 0x1,0x28
0452 c221 | ! | Store 0x1,0x21
0453 0092 060f | | Action Push_String_Extended,0x60f ; "Disk3"
0455 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0456 0092 062e | .| Action Push_String_Extended,0x62e ; "volume 4"
0458 e5fe | | Load 0x2,-0x2
0459 8227 | ' | Call 0x1,0x27
045a 6807 |h | Jump_Zero 0x462
045b 4804 |H | Short_Literal 0x4
045c e221 | ! | Load 0x1,0x21
045d 8228 | ( | Call 0x1,0x28
045e c221 | ! | Store 0x1,0x21
045f 0092 0610 | | Action Push_String_Extended,0x610 ; "Disk4"
0461 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0462 e5ff | | Load 0x2,-0x1
0463 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0464 0000 0000 | | .BLANK 0000[0x4]
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046c | l | .CONST 0x046c ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0002 | | .CONST 0x0002 ; Number of locals
046b INIT_0468:
046b 00e3 | | Load_Encached Natural_Cache
046c BODY_0468:
046c e5fe | | Load 0x2,-0x2
046d a402 | | Store_Unchecked 0x2,0x2
046e 00cf | | Action Mark_Auxiliary
046f 7812 |x | Jump 0x482
0470 e402 | | Load 0x2,0x2
0471 e5ff | | Load 0x2,-0x1
0472 01d7 | | Execute Vector,Field_Read
0473 e5fd | | Load 0x2,-0x3
0474 027f | | Execute Discrete,Equal
0475 6808 |h | Jump_Zero 0x47e
0476 e402 | | Load 0x2,0x2
0477 0aff | | Execute_Immediate Plus,-0x1
0478 00d8 | | Load_Top At_Offset_0
0479 00e3 | | Load_Encached Natural_Cache
047a 0260 | ` | Execute Discrete,In_Type
047b 7001 |p | Jump_Nonzero 0x47d
047c 0801 | | Execute_Immediate Raise,0x1
047d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
047e e402 | | Load 0x2,0x2
047f 0a01 | | Execute_Immediate Plus,0x1
0480 c402 | | Store 0x2,0x2
0481 00c9 | | Action Pop_Auxiliary_Loop
0482 e402 | | Load 0x2,0x2
0483 e5ff | | Load 0x2,-0x1
0484 01dc | | Execute Vector,Last
0485 027a | z | Execute Discrete,Less_Equal
0486 77e9 |w | Jump_Nonzero 0x470
0487 00ce | | Action Pop_Auxiliary
0488 e5ff | | Load 0x2,-0x1
0489 01dc | | Execute Vector,Last
048a 00d8 | | Load_Top At_Offset_0
048b 00e3 | | Load_Encached Natural_Cache
048c 0260 | ` | Execute Discrete,In_Type
048d 7001 |p | Jump_Nonzero 0x48f
048e 0801 | | Execute_Immediate Raise,0x1
048f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0490 ; --------------------------------------------------------------------------------------
0490 ; SUBPROGRAM
0490 ; --------------------------------------------------------------------------------------
0490 0495 | | .CONST 0x0495 ; Address of begin
0491 0004 | | .CONST 0x0004 ; Address of exception handler
0492 0003 | | .CONST 0x0003 ; Number of locals
0493 INIT_0490:
0493 00e3 | | Load_Encached Natural_Cache
0494 03e9 | | Declare_Variable Discrete,Duplicate
0495 BODY_0490:
0495 4801 |H | Short_Literal 0x1
0496 e5ff | | Load 0x2,-0x1
0497 e5fe | | Load 0x2,-0x2
0498 e012 | | Load 0x0,0x12
0499 181d | | Execute Package,Field_Execute,Field_Number 0x1d
049a a402 | | Store_Unchecked 0x2,0x2
049b e402 | | Load 0x2,0x2
049c 6823 |h# | Jump_Zero 0x4c0
049d e402 | | Load 0x2,0x2
049e e5fe | | Load 0x2,-0x2
049f 01db | | Execute Vector,Length
04a0 0273 | s | Execute Discrete,Plus
04a1 c402 | | Store 0x2,0x2
04a2 4820 |H | Short_Literal 0x20
04a3 e402 | | Load 0x2,0x2
04a4 00d8 | | Load_Top At_Offset_0
04a5 00e4 | | Load_Encached Positive_Cache
04a6 0260 | ` | Execute Discrete,In_Type
04a7 7001 |p | Jump_Nonzero 0x4a9
04a8 0801 | | Execute_Immediate Raise,0x1
04a9 e5ff | | Load 0x2,-0x1
04aa 822a | * | Call 0x1,0x2a
04ab a403 | | Store_Unchecked 0x2,0x3
04ac 00d8 | | Load_Top At_Offset_0
04ad e402 | | Load 0x2,0x2
04ae 027b | { | Execute Discrete,Greater_Equal
04af 6810 |h | Jump_Zero 0x4c0
04b0 00d8 | | Load_Top At_Offset_0
04b1 e5ff | | Load 0x2,-0x1
04b2 01d7 | | Execute Vector,Field_Read
04b3 0f3b | ; | Execute_Immediate Equal,0x3b
04b4 6803 |h | Jump_Zero 0x4b8
04b5 00d8 | | Load_Top At_Offset_0
04b6 0aff | | Execute_Immediate Plus,-0x1
04b7 c403 | | Store 0x2,0x3
04b8 e402 | | Load 0x2,0x2
04b9 e403 | | Load 0x2,0x3
04ba e5ff | | Load 0x2,-0x1
04bb 01cf | | Execute Vector,Slice_Read
04bc 00e2 | | Load_Encached Integer_Cache
04bd 00e0 | | Load_Encached Standard_Cache
04be 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04bf a5fd | | Store_Unchecked 0x2,-0x3
04c0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04c1 0000 0000 | | .BLANK 0000[0x7]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 4801 |H | Short_Literal 0x1
04cc e403 | | Load 0x2,0x3
04cd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04ce e010 | | Load 0x0,0x10
04cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04d0 e7ff | | Load 0x3,-0x1
04d1 e012 | | Load 0x0,0x12
04d2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
04d3 6809 |h | Jump_Zero 0x4dd
04d4 e403 | | Load 0x2,0x3
04d5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04d6 a7fe | | Store_Unchecked 0x3,-0x2
04d7 e403 | | Load 0x2,0x3
04d8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04d9 a7fd | | Store_Unchecked 0x3,-0x3
04da e403 | | Load 0x2,0x3
04db 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04dc a7fc | | Store_Unchecked 0x3,-0x4
04dd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04de 0000 0000 | | .XXX[0x2]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 e7ff | | Load 0x3,-0x1
04e4 7006 |p | Jump_Nonzero 0x4eb
04e5 e7fe | | Load 0x3,-0x2
04e6 7004 |p | Jump_Nonzero 0x4eb
04e7 00ea | | Load_Encached Null_String_Cache
04e8 e220 | | Load 0x1,0x20
04e9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04eb 4820 |H | Short_Literal 0x20
04ec 4800 |H | Short_Literal 0x0
04ed 480a |H | Short_Literal 0xa
04ee e7fe | | Load 0x3,-0x2
04ef e012 | | Load 0x0,0x12
04f0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04f1 0092 062f | /| Action Push_String_Extended,0x62f ; " ->"
04f3 01cc | | Execute Vector,Catenate
04f4 e7ff | | Load 0x3,-0x1
04f5 00e0 | | Load_Encached Standard_Cache
04f6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04f7 01cc | | Execute Vector,Catenate
04f8 e220 | | Load 0x1,0x20
04f9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04fb 0000 0000 | | .BLANK 0000[0x5]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0505 | | .CONST 0x0505 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0002 | | .CONST 0x0002 ; Number of locals
0503 INIT_0500:
0503 029f 059b | | Declare_Subprogram INIT_0598,For_Call
0505 BODY_0500:
0505 e422 | " | Load 0x2,0x22
0506 e013 | | Load 0x0,0x13
0507 180f | | Execute Package,Field_Execute,Field_Number 0xf
0508 e220 | | Load 0x1,0x20
0509 1813 | | Execute Package,Field_Execute,Field_Number 0x13
050a e40a | | Load 0x2,0xa
050b e404 | | Load 0x2,0x4
050c 8425 | % | Call 0x2,0x25
050d e40b | | Load 0x2,0xb
050e e405 | | Load 0x2,0x5
050f 8425 | % | Call 0x2,0x25
0510 e40c | | Load 0x2,0xc
0511 e406 | | Load 0x2,0x6
0512 8425 | % | Call 0x2,0x25
0513 e408 | | Load 0x2,0x8
0514 e40e | | Load 0x2,0xe
0515 8425 | % | Call 0x2,0x25
0516 e409 | | Load 0x2,0x9
0517 e40f | | Load 0x2,0xf
0518 8425 | % | Call 0x2,0x25
0519 e422 | " | Load 0x2,0x22
051a e013 | | Load 0x0,0x13
051b 180f | | Execute Package,Field_Execute,Field_Number 0xf
051c e402 | | Load 0x2,0x2
051d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
051e 8602 | | Call 0x3,0x2
051f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0520 ; --------------------------------------------------------------------------------------
0520 ; SUBPROGRAM
0520 ; --------------------------------------------------------------------------------------
0520 0523 | # | .CONST 0x0523 ; Address of begin
0521 0004 | | .CONST 0x0004 ; Address of exception handler
0522 0001 | | .CONST 0x0001 ; Number of locals
0523 BODY_0520:
0523 INIT_0520:
0523 4801 |H | Short_Literal 0x1
0524 e402 | | Load 0x2,0x2
0525 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0526 e010 | | Load 0x0,0x10
0527 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0528 e7ff | | Load 0x3,-0x1
0529 e012 | | Load 0x0,0x12
052a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
052b 6809 |h | Jump_Zero 0x535
052c e402 | | Load 0x2,0x2
052d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
052e a7fe | | Store_Unchecked 0x3,-0x2
052f e402 | | Load 0x2,0x2
0530 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0531 a7fd | | Store_Unchecked 0x3,-0x3
0532 e402 | | Load 0x2,0x2
0533 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0534 a7fc | | Store_Unchecked 0x3,-0x4
0535 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0536 0000 0000 | | .XXX[0x2]
0538 ; --------------------------------------------------------------------------------------
0538 ; SUBPROGRAM
0538 ; --------------------------------------------------------------------------------------
0538 053b | ; | .CONST 0x053b ; Address of begin
0539 0004 | | .CONST 0x0004 ; Address of exception handler
053a 0001 | | .CONST 0x0001 ; Number of locals
053b BODY_0538:
053b INIT_0538:
053b e7fe | | Load 0x3,-0x2
053c 7006 |p | Jump_Nonzero 0x543
053d e7ff | | Load 0x3,-0x1
053e 7004 |p | Jump_Nonzero 0x543
053f 00ea | | Load_Encached Null_String_Cache
0540 e403 | | Load 0x2,0x3
0541 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0542 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0543 4820 |H | Short_Literal 0x20
0544 4800 |H | Short_Literal 0x0
0545 480a |H | Short_Literal 0xa
0546 e7fe | | Load 0x3,-0x2
0547 49f4 |I | Short_Literal 0x1f4
0548 0273 | s | Execute Discrete,Plus
0549 4be8 |K | Short_Literal 0x3e8
054a 0270 | p | Execute Discrete,Divide
054b 00d8 | | Load_Top At_Offset_0
054c 00e2 | | Load_Encached Integer_Cache
054d 0260 | ` | Execute Discrete,In_Type
054e 7001 |p | Jump_Nonzero 0x550
054f 0801 | | Execute_Immediate Raise,0x1
0550 e012 | | Load 0x0,0x12
0551 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0552 0092 062f | /| Action Push_String_Extended,0x62f ; " ->"
0554 01cc | | Execute Vector,Catenate
0555 e7ff | | Load 0x3,-0x1
0556 49f4 |I | Short_Literal 0x1f4
0557 0273 | s | Execute Discrete,Plus
0558 4be8 |K | Short_Literal 0x3e8
0559 0270 | p | Execute Discrete,Divide
055a 00d8 | | Load_Top At_Offset_0
055b 00e2 | | Load_Encached Integer_Cache
055c 0260 | ` | Execute Discrete,In_Type
055d 7001 |p | Jump_Nonzero 0x55f
055e 0801 | | Execute_Immediate Raise,0x1
055f 00e0 | | Load_Encached Standard_Cache
0560 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0561 01cc | | Execute Vector,Catenate
0562 0092 0600 | | Action Push_String_Extended,0x600 ; " "
0564 01cc | | Execute Vector,Catenate
0565 e7fd | | Load 0x3,-0x3
0566 e013 | | Load 0x0,0x13
0567 180e | | Execute Package,Field_Execute,Field_Number 0xe
0568 01cc | | Execute Vector,Catenate
0569 e403 | | Load 0x2,0x3
056a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
056b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
056c 0000 0000 | | .BLANK 0000[0x4]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573 | s | .CONST 0x0573 ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 0001 | | .CONST 0x0001 ; Number of locals
0573 BODY_0570:
0573 INIT_0570:
0573 e410 | | Load 0x2,0x10
0574 e013 | | Load 0x0,0x13
0575 180f | | Execute Package,Field_Execute,Field_Number 0xf
0576 e403 | | Load 0x2,0x3
0577 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0578 e40c | | Load 0x2,0xc
0579 e408 | | Load 0x2,0x8
057a e404 | | Load 0x2,0x4
057b 8413 | | Call 0x2,0x13
057c e221 | ! | Load 0x1,0x21
057d 0c02 | | Execute_Immediate Greater_Equal,0x2
057e 6804 |h | Jump_Zero 0x583
057f e40d | | Load 0x2,0xd
0580 e409 | | Load 0x2,0x9
0581 e405 | | Load 0x2,0x5
0582 8413 | | Call 0x2,0x13
0583 e221 | ! | Load 0x1,0x21
0584 0c03 | | Execute_Immediate Greater_Equal,0x3
0585 6804 |h | Jump_Zero 0x58a
0586 e40e | | Load 0x2,0xe
0587 e40a | | Load 0x2,0xa
0588 e406 | | Load 0x2,0x6
0589 8413 | | Call 0x2,0x13
058a e221 | ! | Load 0x1,0x21
058b 0c04 | | Execute_Immediate Greater_Equal,0x4
058c 6804 |h | Jump_Zero 0x591
058d e40f | | Load 0x2,0xf
058e e40b | | Load 0x2,0xb
058f e407 | | Load 0x2,0x7
0590 8413 | | Call 0x2,0x13
0591 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0592 0000 0000 | | .BLANK 0000[0x6]
0598 ; --------------------------------------------------------------------------------------
0598 ; SUBPROGRAM
0598 ; --------------------------------------------------------------------------------------
0598 059f | | .CONST 0x059f ; Address of begin
0599 0004 | | .CONST 0x0004 ; Address of exception handler
059a 0003 | | .CONST 0x0003 ; Number of locals
059b INIT_0598:
059b 00e1 | | Load_Encached Boolean_Cache
059c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
059d 029f 05d3 | | Declare_Subprogram INIT_05d0,For_Call
059f BODY_0598:
059f 4801 |H | Short_Literal 0x1
05a0 e410 | | Load 0x2,0x10
05a1 8803 | | Call 0x4,0x3
05a2 4802 |H | Short_Literal 0x2
05a3 e411 | | Load 0x2,0x11
05a4 8803 | | Call 0x4,0x3
05a5 4803 |H | Short_Literal 0x3
05a6 e412 | | Load 0x2,0x12
05a7 8803 | | Call 0x4,0x3
05a8 4804 |H | Short_Literal 0x4
05a9 e413 | | Load 0x2,0x13
05aa 8803 | | Call 0x4,0x3
05ab e802 | | Load 0x4,0x2
05ac 681c |h | Jump_Zero 0x5c9
05ad 4820 |H | Short_Literal 0x20
05ae 4802 |H | Short_Literal 0x2
05af 480a |H | Short_Literal 0xa
05b0 e410 | | Load 0x2,0x10
05b1 e411 | | Load 0x2,0x11
05b2 0273 | s | Execute Discrete,Plus
05b3 e412 | | Load 0x2,0x12
05b4 0273 | s | Execute Discrete,Plus
05b5 e413 | | Load 0x2,0x13
05b6 0273 | s | Execute Discrete,Plus
05b7 4864 |Hd | Short_Literal 0x64
05b8 0271 | q | Execute Discrete,Times
05b9 e224 | $ | Load 0x1,0x24
05ba 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05bb 0270 | p | Execute Discrete,Divide
05bc 00d8 | | Load_Top At_Offset_0
05bd 00e2 | | Load_Encached Integer_Cache
05be 0260 | ` | Execute Discrete,In_Type
05bf 7001 |p | Jump_Nonzero 0x5c1
05c0 0801 | | Execute_Immediate Raise,0x1
05c1 e012 | | Load 0x0,0x12
05c2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05c3 0092 0630 | 0| Action Push_String_Extended,0x630 ; "%"
05c5 01cc | | Execute Vector,Catenate
05c6 e402 | | Load 0x2,0x2
05c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05c9 00ea | | Load_Encached Null_String_Cache
05ca e402 | | Load 0x2,0x2
05cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05cc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05cd 0000 0000 | | .XXX[0x3]
05cf 0000 | |
05d0 ; --------------------------------------------------------------------------------------
05d0 ; SUBPROGRAM
05d0 ; --------------------------------------------------------------------------------------
05d0 05d3 | | .CONST 0x05d3 ; Address of begin
05d1 0004 | | .CONST 0x0004 ; Address of exception handler
05d2 0001 | | .CONST 0x0001 ; Number of locals
05d3 BODY_05d0:
05d3 INIT_05d0:
05d3 e221 | ! | Load 0x1,0x21
05d4 ebfe | | Load 0x5,-0x2
05d5 027b | { | Execute Discrete,Greater_Equal
05d6 6828 |h( | Jump_Zero 0x5ff
05d7 ebff | | Load 0x5,-0x1
05d8 7006 |p | Jump_Nonzero 0x5df
05d9 00ea | | Load_Encached Null_String_Cache
05da e402 | | Load 0x2,0x2
05db 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05dc 4800 |H | Short_Literal 0x0
05dd a802 | | Store_Unchecked 0x4,0x2
05de 4503 |E | Exit_Suprogram New_Top_Offset 0x3
05df 4820 |H | Short_Literal 0x20
05e0 4800 |H | Short_Literal 0x0
05e1 480a |H | Short_Literal 0xa
05e2 ebff | | Load 0x5,-0x1
05e3 e012 | | Load 0x0,0x12
05e4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05e5 0092 0600 | | Action Push_String_Extended,0x600 ; " "
05e7 01cc | | Execute Vector,Catenate
05e8 4820 |H | Short_Literal 0x20
05e9 4802 |H | Short_Literal 0x2
05ea 480a |H | Short_Literal 0xa
05eb ebff | | Load 0x5,-0x1
05ec 4864 |Hd | Short_Literal 0x64
05ed 0271 | q | Execute Discrete,Times
05ee ebfe | | Load 0x5,-0x2
05ef e226 | & | Load 0x1,0x26
05f0 01d7 | | Execute Vector,Field_Read
05f1 0270 | p | Execute Discrete,Divide
05f2 00d8 | | Load_Top At_Offset_0
05f3 00e2 | | Load_Encached Integer_Cache
05f4 0260 | ` | Execute Discrete,In_Type
05f5 7001 |p | Jump_Nonzero 0x5f7
05f6 0801 | | Execute_Immediate Raise,0x1
05f7 e012 | | Load 0x0,0x12
05f8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05f9 01cc | | Execute Vector,Catenate
05fa 0092 0630 | 0| Action Push_String_Extended,0x630 ; "%"
05fc 01cc | | Execute Vector,Catenate
05fd e402 | | Load 0x2,0x2
05fe 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0600 ; --------------------------------------------------------------------------------------
0600 ; STRING TABLE
0600 ; --------------------------------------------------------------------------------------
0600 0064 | d | .STRTAB 0x0064->0x0632 ; " "
0601 0063 | c | .STRTAB 0x0063->0x0632 ; "Date"
0602 0065 | e | .STRTAB 0x0065->0x0634 ; "Ada"
0603 0066 | f | .STRTAB 0x0066->0x0636 ; "File"
0604 0068 | h | .STRTAB 0x0068->0x0638 ; "Action"
0605 006c | l | .STRTAB 0x006c->0x063b ; "Directory"
0606 0073 | s | .STRTAB 0x0073->0x063f ; "DDB"
0607 0074 | t | .STRTAB 0x0074->0x0641 ; "Volume 1"
0608 007a | z | .STRTAB 0x007a->0x0645 ; "Volume 2"
0609 0080 | | .STRTAB 0x0080->0x0649 ; "Volume 3"
060a 0086 | | .STRTAB 0x0086->0x064d ; "Volume 4"
060b 008c | | .STRTAB 0x008c->0x0651 ; "Total %"
060c 0091 | | .STRTAB 0x0091->0x0654 ; "Ddb"
060d 0092 | | .STRTAB 0x0092->0x0656 ; "Disk1"
060e 0095 | | .STRTAB 0x0095->0x0658 ; "Disk2"
060f 0098 | | .STRTAB 0x0098->0x065b ; "Disk3"
0610 009b | | .STRTAB 0x009b->0x065d ; "Disk4"
0611 009e | | .STRTAB 0x009e->0x0660 ; "Daemon Information Display"
0612 00b6 | | .STRTAB 0x00b6->0x066d ; "--------------------------"
0613 00ce | | .STRTAB 0x00ce->0x067a ; "Shows at end of day final run of daemon. This"
0614 00fa | | .STRTAB 0x00fa->0x0691 ; "indicates size before compaction and final size"
0615 0127 | ' | .STRTAB 0x0127->0x06a8 ; "in pages."
0616 012e | . | .STRTAB 0x012e->0x06ad ; "\x0c"
0617 012d | - | .STRTAB 0x012d->0x06ad ; "For each disk, this display indicates the amount of"
0618 015e | ^ | .STRTAB 0x015e->0x06c7 ; "used space after garbage collection has finished that"
0619 0191 | | .STRTAB 0x0191->0x06e1 ; "day, and the percentage of space used at that point."
061a 01c3 | | .STRTAB 0x01c3->0x06fb ; "Note: percentages are based on the capacities of disks"
061b 01f7 | | .STRTAB 0x01f7->0x0716 ; "of the machine when and where the report is run."
061c 0225 | % | .STRTAB 0x0225->0x072e ; "Vol 1"
061d 0228 | ( | .STRTAB 0x0228->0x0731 ; "Vol 2"
061e 022b | + | .STRTAB 0x022b->0x0733 ; "Vol 3"
061f 022e | . | .STRTAB 0x022e->0x0736 ; "Vol 4"
0620 0231 | 1 | .STRTAB 0x0231->0x0738 ; "Disk Daemon Information"
0621 0246 | F | .STRTAB 0x0246->0x0744 ; "-----------------------"
0622 025b | [ | .STRTAB 0x025b->0x074f ; "Shows, for each day, last disk garbage collector"
0623 0289 | | .STRTAB 0x0289->0x0767 ; "run and amount of used space before and after the"
0624 02b8 | | .STRTAB 0x02b8->0x0780 ; "collection in megabytes. The time in minutes to do"
0625 02e9 | | .STRTAB 0x02e9->0x0799 ; "the collection is also shown."
0626 0304 | | .STRTAB 0x0304->0x07a8 ; "*** Inconsistent daemon entry: "
0627 0321 | ! | .STRTAB 0x0321->0x07b7 ; "*** Unbalanced daemon start/end: "
0628 0340 | @ | .STRTAB 0x0340->0x07c8 ; "new = "
0629 0344 | D | .STRTAB 0x0344->0x07cb ; "old = "
062a 0348 | H | .STRTAB 0x0348->0x07ce ; "Disk"
062b 034a | J | .STRTAB 0x034a->0x07d0 ; "volume 1"
062c 0350 | P | .STRTAB 0x0350->0x07d4 ; "volume 2"
062d 0356 | V | .STRTAB 0x0356->0x07d8 ; "volume 3"
062e 035c | \ | .STRTAB 0x035c->0x07dc ; "volume 4"
062f 0362 | b | .STRTAB 0x0362->0x07e0 ; " ->"
0630 0363 | c | .STRTAB 0x0363->0x07e1 ; "%"
0631 0362 | b | .STREND 0x0362->0x07e2
0632 2044 6174 | Dat| .STRTAB_STRINGS
07e2 0000 0000 | | .BLANK 0000[0x6]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; Debug Table
07e8 ; --------------------------------------------------------------------------------------
07e8 0004 000e | | .DEBUG4 0x0004,0x000e,0x6e61,0x0000,0x0001,0x0000
07ee 0000 0000 | | .BLANK 0000[0x12]