|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 07c8 | | .CONST 0x07c8 ; 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 006c | l | .CONST 0x006c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 029a 0073 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0070
000d 029a 0213 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0210
000f 029a 0303 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0300
0011 029a 0333 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0330
0013 029a 039b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0398
0015 029a 03ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03a8
0017 029a 03bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03b8
0019 029a 03c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03c0
001b 029a 03cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03c8
001d 029a 03d3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03d0
001f 00bf | | Action Accept_Activation
0020 029b 03e3 | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_03e0
0022 e002 | | Load 0x0,0x2
0023 e003 | | Load 0x0,0x3
0024 4861 |Ha | Short_Literal 0x61
0025 00e4 | | Load_Encached Positive_Cache
0026 e004 | | Load 0x0,0x4
0027 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0028 e005 | | Load 0x0,0x5
0029 0387 | | Declare_Variable Package
002a 00d8 | | Load_Top At_Offset_0
002b 020f | | Execute Module,Activate
002c 00d8 | | Load_Top At_Offset_0
002d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
002e 00e3 | | Load_Encached Natural_Cache
002f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0030 e006 | | Load 0x0,0x6
0031 e007 | | Load 0x0,0x7
0032 4806 |H | Short_Literal 0x6
0033 0092 05e0 | | Action Push_String_Extended,0x5e0 ; " "
0035 e008 | | Load 0x0,0x8
0036 0387 | | Declare_Variable Package
0037 00d8 | | Load_Top At_Offset_0
0038 020f | | Execute Module,Activate
0039 00e3 | | Load_Encached Natural_Cache
003a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003b 00e1 | | Load_Encached Boolean_Cache
003c e009 | | Load 0x0,0x9
003d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
003f 0322 | " | Declare_Variable Record
0040 e009 | | Load 0x0,0x9
0041 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0042 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0043 0322 | " | Declare_Variable Record
0044 4801 |H | Short_Literal 0x1
0045 4804 |H | Short_Literal 0x4
0046 00e3 | | Load_Encached Natural_Cache
0047 02a0 | | Declare_Subprogram Null_Subprogram
0048 4801 |H | Short_Literal 0x1
0049 035d | ] | Declare_Type Array,Defined
004a 00d8 | | Load_Top At_Offset_0
004b 0337 | 7 | Declare_Variable Array
004c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
004d 00c7 | | Action Elaborate_Subprogram
004e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
004f 00c7 | | Action Elaborate_Subprogram
0050 029d 03eb | | Declare_Subprogram For_Outer_Call,INIT_03e8
0052 029d 03fb | | Declare_Subprogram For_Outer_Call,INIT_03f8
0054 029d 040b | | Declare_Subprogram For_Outer_Call,INIT_0408
0056 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0057 00c7 | | Action Elaborate_Subprogram
0058 029d 044b | K| Declare_Subprogram For_Outer_Call,INIT_0448
005a 029d 0473 | s| Declare_Subprogram For_Outer_Call,INIT_0470
005c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
005d 00c7 | | Action Elaborate_Subprogram
005e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005f 00c7 | | Action Elaborate_Subprogram
0060 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0061 00c7 | | Action Elaborate_Subprogram
0062 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0063 00c7 | | Action Elaborate_Subprogram
0064 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0065 00c7 | | Action Elaborate_Subprogram
0066 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0067 00c7 | | Action Elaborate_Subprogram
0068 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0069 00c7 | | Action Elaborate_Subprogram
006a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006b 00c7 | | Action Elaborate_Subprogram
006c BODY_0008:
006c 00bc | | Action Signal_Activated
006d 00bb | | Action Signal_Completion
006e 0000 0000 | | .XXX[0x2]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 00b8 | | .CONST 0x00b8 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0026 | & | .CONST 0x0026 ; Number of locals
0073 INIT_0070:
0073 e00a | | Load 0x0,0xa
0074 e00b | | Load 0x0,0xb
0075 e21c | | Load 0x1,0x1c
0076 0a02 | | Execute_Immediate Plus,0x2
0077 00d8 | | Load_Top At_Offset_0
0078 00e4 | | Load_Encached Positive_Cache
0079 0260 | ` | Execute Discrete,In_Type
007a 7001 |p | Jump_Nonzero 0x7c
007b 0801 | | Execute_Immediate Raise,0x1
007c 0092 05e0 | | Action Push_String_Extended,0x5e0 ; " "
007e e008 | | Load 0x0,0x8
007f 0387 | | Declare_Variable Package
0080 00d8 | | Load_Top At_Offset_0
0081 020f | | Execute Module,Activate
0082 e004 | | Load 0x0,0x4
0083 0322 | " | Declare_Variable Record
0084 00d8 | | Load_Top At_Offset_0
0085 1c00 | | Execute_Immediate Run_Utility,0x0
0086 00e3 | | Load_Encached Natural_Cache
0087 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0088 03e9 | | Declare_Variable Discrete,Duplicate
0089 03e9 | | Declare_Variable Discrete,Duplicate
008a 00e3 | | Load_Encached Natural_Cache
008b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
008c 03e9 | | Declare_Variable Discrete,Duplicate
008d 03e9 | | Declare_Variable Discrete,Duplicate
008e 00e3 | | Load_Encached Natural_Cache
008f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0090 03e9 | | Declare_Variable Discrete,Duplicate
0091 03e9 | | Declare_Variable Discrete,Duplicate
0092 00e3 | | Load_Encached Natural_Cache
0093 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0094 03e9 | | Declare_Variable Discrete,Duplicate
0095 03e9 | | Declare_Variable Discrete,Duplicate
0096 00e3 | | Load_Encached Natural_Cache
0097 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0098 03e9 | | Declare_Variable Discrete,Duplicate
0099 03e9 | | Declare_Variable Discrete,Duplicate
009a 03e9 | | Declare_Variable Discrete,Duplicate
009b 00e3 | | Load_Encached Natural_Cache
009c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
009d 03e9 | | Declare_Variable Discrete,Duplicate
009e 03e9 | | Declare_Variable Discrete,Duplicate
009f 03e9 | | Declare_Variable Discrete,Duplicate
00a0 00e7 | | Load_Encached Duration_Cache
00a1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a2 03e9 | | Declare_Variable Discrete,Duplicate
00a3 03e9 | | Declare_Variable Discrete,Duplicate
00a4 00e7 | | Load_Encached Duration_Cache
00a5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a6 03e9 | | Declare_Variable Discrete,Duplicate
00a7 03e9 | | Declare_Variable Discrete,Duplicate
00a8 00e7 | | Load_Encached Duration_Cache
00a9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00aa 03e9 | | Declare_Variable Discrete,Duplicate
00ab 03e9 | | Declare_Variable Discrete,Duplicate
00ac 03e9 | | Declare_Variable Discrete,Duplicate
00ad e00c | | Load 0x0,0xc
00ae 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00af 0322 | " | Declare_Variable Record
00b0 e00d | | Load 0x0,0xd
00b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b2 029f 04ab | | Declare_Subprogram For_Call,INIT_04a8
00b4 029f 04c3 | | Declare_Subprogram For_Call,INIT_04c0
00b6 029f 04e3 | | Declare_Subprogram For_Call,INIT_04e0
00b8 BODY_0070:
00b8 4800 |H | Short_Literal 0x0
00b9 e21f | | Load 0x1,0x1f
00ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00bb 4800 |H | Short_Literal 0x0
00bc e21f | | Load 0x1,0x1f
00bd 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00be 00cf | | Action Mark_Auxiliary
00bf 481f |H | Short_Literal 0x1f
00c0 4800 |H | Short_Literal 0x0
00c1 0007 | | Action Break_Optional
00c2 e21e | | Load 0x1,0x1e
00c3 00e1 | | Load_Encached Boolean_Cache
00c4 e429 | ) | Load 0x2,0x29
00c5 e009 | | Load 0x0,0x9
00c6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00c8 c21d | | Store 0x1,0x1d
00c9 00d1 | | Pop_Control Pop_Count_1
00ca e21d | | Load 0x1,0x1d
00cb 680c |h | Jump_Zero 0xd8
00cc e21f | | Load 0x1,0x1f
00cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ce e21e | | Load 0x1,0x1e
00cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d0 0273 | s | Execute Discrete,Plus
00d1 e21f | | Load 0x1,0x1f
00d2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00d3 e21e | | Load 0x1,0x1e
00d4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d5 e429 | ) | Load 0x2,0x29
00d6 e221 | ! | Load 0x1,0x21
00d7 01d6 | | Execute Vector,Field_Write
00d8 00c8 | | Action Pop_Auxiliary_Range
00d9 3fe8 |? | Loop_Increasing 0xc2
00da 00ce | | Action Pop_Auxiliary
00db 4802 |H | Short_Literal 0x2
00dc 0092 05e1 | | Action Push_String_Extended,0x5e1 ; "Date"
00de e21b | | Load 0x1,0x1b
00df 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00e0 4802 |H | Short_Literal 0x2
00e1 0092 05e2 | | Action Push_String_Extended,0x5e2 ; "Ada"
00e3 e21b | | Load 0x1,0x1b
00e4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00e5 4802 |H | Short_Literal 0x2
00e6 0092 05e3 | | Action Push_String_Extended,0x5e3 ; "File"
00e8 e21b | | Load 0x1,0x1b
00e9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ea 4802 |H | Short_Literal 0x2
00eb 0092 05e4 | | Action Push_String_Extended,0x5e4 ; "Action"
00ed e21b | | Load 0x1,0x1b
00ee 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ef 4802 |H | Short_Literal 0x2
00f0 0092 05e5 | | Action Push_String_Extended,0x5e5 ; "Directory"
00f2 e21b | | Load 0x1,0x1b
00f3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f4 4802 |H | Short_Literal 0x2
00f5 0092 05e6 | | Action Push_String_Extended,0x5e6 ; "DDB"
00f7 e21b | | Load 0x1,0x1b
00f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f9 4800 |H | Short_Literal 0x0
00fa 0092 05e1 | | Action Push_String_Extended,0x5e1 ; "Date"
00fc e402 | | Load 0x2,0x2
00fd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00fe e21c | | Load 0x1,0x1c
00ff 0c01 | | Execute_Immediate Greater_Equal,0x1
0100 6805 |h | Jump_Zero 0x106
0101 4801 |H | Short_Literal 0x1
0102 0092 05e7 | | Action Push_String_Extended,0x5e7 ; "Volume 1"
0104 e402 | | Load 0x2,0x2
0105 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0106 e21c | | Load 0x1,0x1c
0107 0c02 | | Execute_Immediate Greater_Equal,0x2
0108 6805 |h | Jump_Zero 0x10e
0109 4801 |H | Short_Literal 0x1
010a 0092 05e8 | | Action Push_String_Extended,0x5e8 ; "Volume 2"
010c e402 | | Load 0x2,0x2
010d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
010e e21c | | Load 0x1,0x1c
010f 0c03 | | Execute_Immediate Greater_Equal,0x3
0110 6805 |h | Jump_Zero 0x116
0111 4801 |H | Short_Literal 0x1
0112 0092 05e9 | | Action Push_String_Extended,0x5e9 ; "Volume 3"
0114 e402 | | Load 0x2,0x2
0115 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0116 e21c | | Load 0x1,0x1c
0117 0c04 | | Execute_Immediate Greater_Equal,0x4
0118 6805 |h | Jump_Zero 0x11e
0119 4801 |H | Short_Literal 0x1
011a 0092 05ea | | Action Push_String_Extended,0x5ea ; "Volume 4"
011c e402 | | Load 0x2,0x2
011d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
011e 4801 |H | Short_Literal 0x1
011f 0092 05eb | | Action Push_String_Extended,0x5eb ; "Total %"
0121 e402 | | Load 0x2,0x2
0122 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0123 e21a | | Load 0x1,0x1a
0124 0c01 | | Execute_Immediate Greater_Equal,0x1
0125 6819 |h | Jump_Zero 0x13f
0126 4801 |H | Short_Literal 0x1
0127 e219 | | Load 0x1,0x19
0128 e218 | | Load 0x1,0x18
0129 1815 | | Execute Package,Field_Execute,Field_Number 0x15
012a e403 | | Load 0x2,0x3
012b 017d | } | Execute Record,Structure_Write
012c e403 | | Load 0x2,0x3
012d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
012e e422 | " | Load 0x2,0x22
012f 017d | } | Execute Record,Structure_Write
0130 e422 | " | Load 0x2,0x22
0131 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0132 a423 | # | Store_Unchecked 0x2,0x23
0133 480c |H | Short_Literal 0xc
0134 e422 | " | Load 0x2,0x22
0135 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0136 4800 |H | Short_Literal 0x0
0137 e422 | " | Load 0x2,0x22
0138 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0139 4800 |H | Short_Literal 0x0
013a e422 | " | Load 0x2,0x22
013b 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
013c 4800 |H | Short_Literal 0x0
013d e422 | " | Load 0x2,0x22
013e 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
013f 00cf | | Action Mark_Auxiliary
0140 e21a | | Load 0x1,0x1a
0141 4801 |H | Short_Literal 0x1
0142 0263 | c | Execute Discrete,Above_Bound
0143 7079 |py | Jump_Nonzero 0x1bd
0144 00d8 | | Load_Top At_Offset_0
0145 e219 | | Load 0x1,0x19
0146 e218 | | Load 0x1,0x18
0147 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0148 e403 | | Load 0x2,0x3
0149 017d | } | Execute Record,Structure_Write
014a e403 | | Load 0x2,0x3
014b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
014c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
014d e423 | # | Load 0x2,0x23
014e 027e | ~ | Execute Discrete,Not_Equal
014f 6816 |h | Jump_Zero 0x166
0150 e422 | " | Load 0x2,0x22
0151 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0152 60b5 |` | Indirect_Literal Discrete,0x208,{0x00000000, 0x0000076d}
0153 027e | ~ | Execute Discrete,Not_Equal
0154 6801 |h | Jump_Zero 0x156
0155 8426 | & | Call 0x2,0x26
0156 e403 | | Load 0x2,0x3
0157 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0158 e422 | " | Load 0x2,0x22
0159 017d | } | Execute Record,Structure_Write
015a 480c |H | Short_Literal 0xc
015b e422 | " | Load 0x2,0x22
015c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
015d 4800 |H | Short_Literal 0x0
015e e422 | " | Load 0x2,0x22
015f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0160 4800 |H | Short_Literal 0x0
0161 e422 | " | Load 0x2,0x22
0162 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0163 4800 |H | Short_Literal 0x0
0164 e422 | " | Load 0x2,0x22
0165 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0166 e418 | | Load 0x2,0x18
0167 e404 | | Load 0x2,0x4
0168 e40a | | Load 0x2,0xa
0169 0092 05e2 | | Action Push_String_Extended,0x5e2 ; "Ada"
016b 8424 | $ | Call 0x2,0x24
016c c40a | | Store 0x2,0xa
016d c404 | | Store 0x2,0x4
016e c418 | | Store 0x2,0x18
016f e419 | | Load 0x2,0x19
0170 e405 | | Load 0x2,0x5
0171 e40b | | Load 0x2,0xb
0172 0092 05e3 | | Action Push_String_Extended,0x5e3 ; "File"
0174 8424 | $ | Call 0x2,0x24
0175 c40b | | Store 0x2,0xb
0176 c405 | | Store 0x2,0x5
0177 c419 | | Store 0x2,0x19
0178 e41a | | Load 0x2,0x1a
0179 e406 | | Load 0x2,0x6
017a e40c | | Load 0x2,0xc
017b 0092 05e4 | | Action Push_String_Extended,0x5e4 ; "Action"
017d 8424 | $ | Call 0x2,0x24
017e c40c | | Store 0x2,0xc
017f c406 | | Store 0x2,0x6
0180 c41a | | Store 0x2,0x1a
0181 e41c | | Load 0x2,0x1c
0182 e40e | | Load 0x2,0xe
0183 e408 | | Load 0x2,0x8
0184 0092 05e5 | | Action Push_String_Extended,0x5e5 ; "Directory"
0186 8424 | $ | Call 0x2,0x24
0187 c408 | | Store 0x2,0x8
0188 c40e | | Store 0x2,0xe
0189 c41c | | Store 0x2,0x1c
018a e41d | | Load 0x2,0x1d
018b e40f | | Load 0x2,0xf
018c e409 | | Load 0x2,0x9
018d 0092 05ec | | Action Push_String_Extended,0x5ec ; "Ddb"
018f 8424 | $ | Call 0x2,0x24
0190 c409 | | Store 0x2,0x9
0191 c40f | | Store 0x2,0xf
0192 c41d | | Store 0x2,0x1d
0193 e41e | | Load 0x2,0x1e
0194 e410 | | Load 0x2,0x10
0195 e414 | | Load 0x2,0x14
0196 0092 05ed | | Action Push_String_Extended,0x5ed ; "Disk1"
0198 8424 | $ | Call 0x2,0x24
0199 c414 | | Store 0x2,0x14
019a c410 | | Store 0x2,0x10
019b c41e | | Store 0x2,0x1e
019c e41f | | Load 0x2,0x1f
019d e411 | | Load 0x2,0x11
019e e415 | | Load 0x2,0x15
019f 0092 05ee | | Action Push_String_Extended,0x5ee ; "Disk2"
01a1 8424 | $ | Call 0x2,0x24
01a2 c415 | | Store 0x2,0x15
01a3 c411 | | Store 0x2,0x11
01a4 c41f | | Store 0x2,0x1f
01a5 e420 | | Load 0x2,0x20
01a6 e412 | | Load 0x2,0x12
01a7 e416 | | Load 0x2,0x16
01a8 0092 05ef | | Action Push_String_Extended,0x5ef ; "Disk3"
01aa 8424 | $ | Call 0x2,0x24
01ab c416 | | Store 0x2,0x16
01ac c412 | | Store 0x2,0x12
01ad c420 | | Store 0x2,0x20
01ae e421 | ! | Load 0x2,0x21
01af e413 | | Load 0x2,0x13
01b0 e417 | | Load 0x2,0x17
01b1 0092 05f0 | | Action Push_String_Extended,0x5f0 ; "Disk4"
01b3 8424 | $ | Call 0x2,0x24
01b4 c417 | | Store 0x2,0x17
01b5 c413 | | Store 0x2,0x13
01b6 c421 | ! | Store 0x2,0x21
01b7 e403 | | Load 0x2,0x3
01b8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b9 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ba a423 | # | Store_Unchecked 0x2,0x23
01bb 00c8 | | Action Pop_Auxiliary_Range
01bc 3f87 |? | Loop_Increasing 0x144
01bd 00ce | | Action Pop_Auxiliary
01be 8426 | & | Call 0x2,0x26
01bf 4802 |H | Short_Literal 0x2
01c0 e00e | | Load 0x0,0xe
01c1 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01c2 0092 05f1 | | Action Push_String_Extended,0x5f1 ; "Daemon Information Display"
01c4 e00e | | Load 0x0,0xe
01c5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01c6 0092 05f2 | | Action Push_String_Extended,0x5f2 ; "--------------------------"
01c8 e00e | | Load 0x0,0xe
01c9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ca 4801 |H | Short_Literal 0x1
01cb e00e | | Load 0x0,0xe
01cc 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01cd 0092 05f3 | | Action Push_String_Extended,0x5f3 ; "Shows at end of day final run of daemon. This"
01cf e00e | | Load 0x0,0xe
01d0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d1 0092 05f4 | | Action Push_String_Extended,0x5f4 ; "indicates size before compaction and final size"
01d3 e00e | | Load 0x0,0xe
01d4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d5 0092 05f5 | | Action Push_String_Extended,0x5f5 ; "in pages."
01d7 e00e | | Load 0x0,0xe
01d8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d9 4802 |H | Short_Literal 0x2
01da e00e | | Load 0x0,0xe
01db 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01dc e00e | | Load 0x0,0xe
01dd 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01de e21b | | Load 0x1,0x1b
01df 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e0 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "\x0c"
01e2 e00e | | Load 0x0,0xe
01e3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01e4 4802 |H | Short_Literal 0x2
01e5 e00e | | Load 0x0,0xe
01e6 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01e7 0092 05f7 | | Action Push_String_Extended,0x5f7 ; "For each disk, this display indicates the amount of"
01e9 e00e | | Load 0x0,0xe
01ea 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01eb 0092 05f8 | | Action Push_String_Extended,0x5f8 ; "used space after garbage collection has finished that"
01ed e00e | | Load 0x0,0xe
01ee 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ef 0092 05f9 | | Action Push_String_Extended,0x5f9 ; "day, and the percentage of space used at that point."
01f1 e00e | | Load 0x0,0xe
01f2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01f3 0092 05fa | | Action Push_String_Extended,0x5fa ; "Note: percentages are based on the capacities of disks"
01f5 e00e | | Load 0x0,0xe
01f6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01f7 0092 05fb | | Action Push_String_Extended,0x5fb ; "of the machine when and where the report is run."
01f9 e00e | | Load 0x0,0xe
01fa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01fb 4802 |H | Short_Literal 0x2
01fc e00e | | Load 0x0,0xe
01fd 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01fe e00e | | Load 0x0,0xe
01ff 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0200 e402 | | Load 0x2,0x2
0201 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0202 0092 05f6 | | Action Push_String_Extended,0x5f6 ; "\x0c"
0204 e00e | | Load 0x0,0xe
0205 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0206 4502 |E | Exit_Subprogram 0x2
0207 0000 | | .XXX[0x1]
0208 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
020c 0000 0000 | | .BLANK 0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0240 | @ | .CONST 0x0240 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0014 | | .CONST 0x0014 ; Number of locals
0213 INIT_0210:
0213 e004 | | Load 0x0,0x4
0214 0322 | " | Declare_Variable Record
0215 00d8 | | Load_Top At_Offset_0
0216 1c00 | | Execute_Immediate Run_Utility,0x0
0217 e00f | | Load 0x0,0xf
0218 e010 | | Load 0x0,0x10
0219 e21c | | Load 0x1,0x1c
021a 0a01 | | Execute_Immediate Plus,0x1
021b 00d8 | | Load_Top At_Offset_0
021c 00e4 | | Load_Encached Positive_Cache
021d 0260 | ` | Execute Discrete,In_Type
021e 7001 |p | Jump_Nonzero 0x220
021f 0801 | | Execute_Immediate Raise,0x1
0220 0092 05e0 | | Action Push_String_Extended,0x5e0 ; " "
0222 e008 | | Load 0x0,0x8
0223 0387 | | Declare_Variable Package
0224 00d8 | | Load_Top At_Offset_0
0225 020f | | Execute Module,Activate
0226 00e3 | | Load_Encached Natural_Cache
0227 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0228 03e9 | | Declare_Variable Discrete,Duplicate
0229 03e9 | | Declare_Variable Discrete,Duplicate
022a 03e9 | | Declare_Variable Discrete,Duplicate
022b 00e3 | | Load_Encached Natural_Cache
022c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
022d 03e9 | | Declare_Variable Discrete,Duplicate
022e 03e9 | | Declare_Variable Discrete,Duplicate
022f 03e9 | | Declare_Variable Discrete,Duplicate
0230 00e7 | | Load_Encached Duration_Cache
0231 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0232 03e9 | | Declare_Variable Discrete,Duplicate
0233 03e9 | | Declare_Variable Discrete,Duplicate
0234 03e9 | | Declare_Variable Discrete,Duplicate
0235 e00c | | Load 0x0,0xc
0236 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0237 0322 | " | Declare_Variable Record
0238 e00d | | Load 0x0,0xd
0239 1b0f | | Execute Package,Field_Read,Field_Number 0xf
023a 029f 0503 | | Declare_Subprogram For_Call,INIT_0500
023c 029f 051b | | Declare_Subprogram For_Call,INIT_0518
023e 029f 0553 | S| Declare_Subprogram For_Call,INIT_0550
0240 BODY_0210:
0240 4800 |H | Short_Literal 0x0
0241 0092 05e1 | | Action Push_String_Extended,0x5e1 ; "Date"
0243 e403 | | Load 0x2,0x3
0244 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0245 e21c | | Load 0x1,0x1c
0246 0c01 | | Execute_Immediate Greater_Equal,0x1
0247 6805 |h | Jump_Zero 0x24d
0248 4800 |H | Short_Literal 0x0
0249 0092 05fc | | Action Push_String_Extended,0x5fc ; "Vol 1"
024b e403 | | Load 0x2,0x3
024c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
024d e21c | | Load 0x1,0x1c
024e 0c02 | | Execute_Immediate Greater_Equal,0x2
024f 6805 |h | Jump_Zero 0x255
0250 4800 |H | Short_Literal 0x0
0251 0092 05fd | | Action Push_String_Extended,0x5fd ; "Vol 2"
0253 e403 | | Load 0x2,0x3
0254 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0255 e21c | | Load 0x1,0x1c
0256 0c03 | | Execute_Immediate Greater_Equal,0x3
0257 6805 |h | Jump_Zero 0x25d
0258 4800 |H | Short_Literal 0x0
0259 0092 05fe | | Action Push_String_Extended,0x5fe ; "Vol 3"
025b e403 | | Load 0x2,0x3
025c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
025d e21c | | Load 0x1,0x1c
025e 0c04 | | Execute_Immediate Greater_Equal,0x4
025f 6805 |h | Jump_Zero 0x265
0260 4800 |H | Short_Literal 0x0
0261 0092 05ff | | Action Push_String_Extended,0x5ff ; "Vol 4"
0263 e403 | | Load 0x2,0x3
0264 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0265 e21a | | Load 0x1,0x1a
0266 0c01 | | Execute_Immediate Greater_Equal,0x1
0267 6819 |h | Jump_Zero 0x281
0268 4801 |H | Short_Literal 0x1
0269 e219 | | Load 0x1,0x19
026a e218 | | Load 0x1,0x18
026b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
026c e402 | | Load 0x2,0x2
026d 017d | } | Execute Record,Structure_Write
026e e402 | | Load 0x2,0x2
026f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0270 e410 | | Load 0x2,0x10
0271 017d | } | Execute Record,Structure_Write
0272 e410 | | Load 0x2,0x10
0273 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0274 a411 | | Store_Unchecked 0x2,0x11
0275 480c |H | Short_Literal 0xc
0276 e410 | | Load 0x2,0x10
0277 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0278 4800 |H | Short_Literal 0x0
0279 e410 | | Load 0x2,0x10
027a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
027b 4800 |H | Short_Literal 0x0
027c e410 | | Load 0x2,0x10
027d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
027e 4800 |H | Short_Literal 0x0
027f e410 | | Load 0x2,0x10
0280 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0281 00cf | | Action Mark_Auxiliary
0282 e21a | | Load 0x1,0x1a
0283 4801 |H | Short_Literal 0x1
0284 0263 | c | Execute Discrete,Above_Bound
0285 704c |pL | Jump_Nonzero 0x2d2
0286 00d8 | | Load_Top At_Offset_0
0287 e219 | | Load 0x1,0x19
0288 e218 | | Load 0x1,0x18
0289 1815 | | Execute Package,Field_Execute,Field_Number 0x15
028a e402 | | Load 0x2,0x2
028b 017d | } | Execute Record,Structure_Write
028c e402 | | Load 0x2,0x2
028d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
028e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
028f e411 | | Load 0x2,0x11
0290 027e | ~ | Execute Discrete,Not_Equal
0291 6816 |h | Jump_Zero 0x2a8
0292 e410 | | Load 0x2,0x10
0293 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0294 6773 |gs | Indirect_Literal Discrete,0x208,{0x00000000, 0x0000076d}
0295 027e | ~ | Execute Discrete,Not_Equal
0296 6801 |h | Jump_Zero 0x298
0297 8414 | | Call 0x2,0x14
0298 e402 | | Load 0x2,0x2
0299 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
029a e410 | | Load 0x2,0x10
029b 017d | } | Execute Record,Structure_Write
029c 480c |H | Short_Literal 0xc
029d e410 | | Load 0x2,0x10
029e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
029f 4800 |H | Short_Literal 0x0
02a0 e410 | | Load 0x2,0x10
02a1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02a2 4800 |H | Short_Literal 0x0
02a3 e410 | | Load 0x2,0x10
02a4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
02a5 4800 |H | Short_Literal 0x0
02a6 e410 | | Load 0x2,0x10
02a7 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
02a8 e40c | | Load 0x2,0xc
02a9 e404 | | Load 0x2,0x4
02aa e408 | | Load 0x2,0x8
02ab 0092 05ed | | Action Push_String_Extended,0x5ed ; "Disk1"
02ad 8412 | | Call 0x2,0x12
02ae c408 | | Store 0x2,0x8
02af c404 | | Store 0x2,0x4
02b0 c40c | | Store 0x2,0xc
02b1 e40d | | Load 0x2,0xd
02b2 e405 | | Load 0x2,0x5
02b3 e409 | | Load 0x2,0x9
02b4 0092 05ee | | Action Push_String_Extended,0x5ee ; "Disk2"
02b6 8412 | | Call 0x2,0x12
02b7 c409 | | Store 0x2,0x9
02b8 c405 | | Store 0x2,0x5
02b9 c40d | | Store 0x2,0xd
02ba e40e | | Load 0x2,0xe
02bb e406 | | Load 0x2,0x6
02bc e40a | | Load 0x2,0xa
02bd 0092 05ef | | Action Push_String_Extended,0x5ef ; "Disk3"
02bf 8412 | | Call 0x2,0x12
02c0 c40a | | Store 0x2,0xa
02c1 c406 | | Store 0x2,0x6
02c2 c40e | | Store 0x2,0xe
02c3 e40f | | Load 0x2,0xf
02c4 e407 | | Load 0x2,0x7
02c5 e40b | | Load 0x2,0xb
02c6 0092 05f0 | | Action Push_String_Extended,0x5f0 ; "Disk4"
02c8 8412 | | Call 0x2,0x12
02c9 c40b | | Store 0x2,0xb
02ca c407 | | Store 0x2,0x7
02cb c40f | | Store 0x2,0xf
02cc e402 | | Load 0x2,0x2
02cd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02cf a411 | | Store_Unchecked 0x2,0x11
02d0 00c8 | | Action Pop_Auxiliary_Range
02d1 3fb4 |? | Loop_Increasing 0x286
02d2 00ce | | Action Pop_Auxiliary
02d3 8414 | | Call 0x2,0x14
02d4 4802 |H | Short_Literal 0x2
02d5 e00e | | Load 0x0,0xe
02d6 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02d7 0092 0600 | | Action Push_String_Extended,0x600 ; "Disk Daemon Information"
02d9 e00e | | Load 0x0,0xe
02da 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02db 0092 0601 | | Action Push_String_Extended,0x601 ; "-----------------------"
02dd e00e | | Load 0x0,0xe
02de 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02df 4801 |H | Short_Literal 0x1
02e0 e00e | | Load 0x0,0xe
02e1 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02e2 0092 0602 | | Action Push_String_Extended,0x602 ; "Shows, for each day, last disk garbage collector"
02e4 e00e | | Load 0x0,0xe
02e5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02e6 0092 0603 | | Action Push_String_Extended,0x603 ; "run and amount of used space before and after the"
02e8 e00e | | Load 0x0,0xe
02e9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ea 0092 0604 | | Action Push_String_Extended,0x604 ; "collection in megabytes. The time in minutes to do"
02ec e00e | | Load 0x0,0xe
02ed 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ee 0092 0605 | | Action Push_String_Extended,0x605 ; "the collection is also shown."
02f0 e00e | | Load 0x0,0xe
02f1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02f2 4802 |H | Short_Literal 0x2
02f3 e00e | | Load 0x0,0xe
02f4 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02f5 e00e | | Load 0x0,0xe
02f6 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
02f7 e403 | | Load 0x2,0x3
02f8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02f9 4502 |E | Exit_Subprogram 0x2
02fa 0000 0000 | | .BLANK 0000[0x6]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 030a | | .CONST 0x030a ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0003 | | .CONST 0x0003 ; Number of locals
0303 INIT_0300:
0303 e004 | | Load 0x0,0x4
0304 0322 | " | Declare_Variable Record
0305 00d8 | | Load_Top At_Offset_0
0306 1c00 | | Execute_Immediate Run_Utility,0x0
0307 e5fd | | Load 0x2,-0x3
0308 e5fe | | Load 0x2,-0x2
0309 8224 | $ | Call 0x1,0x24
030a BODY_0300:
030a e21a | | Load 0x1,0x1a
030b 0a01 | | Execute_Immediate Plus,0x1
030c c21a | | Store 0x1,0x1a
030d e5ff | | Load 0x2,-0x1
030e e402 | | Load 0x2,0x2
030f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0310 e402 | | Load 0x2,0x2
0311 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0312 e403 | | Load 0x2,0x3
0313 e011 | | Load 0x0,0x11
0314 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0315 00d1 | | Pop_Control Pop_Count_1
0316 4800 |H | Short_Literal 0x0
0317 e402 | | Load 0x2,0x2
0318 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0319 4800 |H | Short_Literal 0x0
031a e402 | | Load 0x2,0x2
031b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
031c e5fd | | Load 0x2,-0x3
031d e012 | | Load 0x0,0x12
031e e013 | | Load 0x0,0x13
031f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0320 e402 | | Load 0x2,0x2
0321 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0322 e219 | | Load 0x1,0x19
0323 4800 |H | Short_Literal 0x0
0324 e402 | | Load 0x2,0x2
0325 e21a | | Load 0x1,0x1a
0326 00d8 | | Load_Top At_Offset_0
0327 00e4 | | Load_Encached Positive_Cache
0328 0260 | ` | Execute Discrete,In_Type
0329 7001 |p | Jump_Nonzero 0x32b
032a 0801 | | Execute_Immediate Raise,0x1
032b e218 | | Load 0x1,0x18
032c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
032d c219 | | Store 0x1,0x19
032e 4504 |E | Exit_Subprogram 0x4
032f 0000 | | .XXX[0x1]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 033b | ; | .CONST 0x033b ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0004 | | .CONST 0x0004 ; Number of locals
0333 INIT_0330:
0333 e004 | | Load 0x0,0x4
0334 0322 | " | Declare_Variable Record
0335 00d8 | | Load_Top At_Offset_0
0336 1c00 | | Execute_Immediate Run_Utility,0x0
0337 e5fd | | Load 0x2,-0x3
0338 e5fe | | Load 0x2,-0x2
0339 8224 | $ | Call 0x1,0x24
033a e21a | | Load 0x1,0x1a
033b BODY_0330:
033b 00cf | | Action Mark_Auxiliary
033c e404 | | Load 0x2,0x4
033d 00d8 | | Load_Top At_Offset_0
033e 00e4 | | Load_Encached Positive_Cache
033f 0260 | ` | Execute Discrete,In_Type
0340 7001 |p | Jump_Nonzero 0x342
0341 0801 | | Execute_Immediate Raise,0x1
0342 e219 | | Load 0x1,0x19
0343 e218 | | Load 0x1,0x18
0344 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0345 e402 | | Load 0x2,0x2
0346 017d | } | Execute Record,Structure_Write
0347 e402 | | Load 0x2,0x2
0348 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0349 e011 | | Load 0x0,0x11
034a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
034b e403 | | Load 0x2,0x3
034c 01df | | Execute Vector,Equal
034d 680a |h | Jump_Zero 0x358
034e e402 | | Load 0x2,0x2
034f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0350 6815 |h | Jump_Zero 0x366
0351 0092 0606 | | Action Push_String_Extended,0x606 ; "*** Inconsistent daemon entry: "
0353 e403 | | Load 0x2,0x3
0354 01cc | | Execute Vector,Catenate
0355 e00e | | Load 0x0,0xe
0356 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0357 4504 |E | Exit_Subprogram 0x4
0358 e404 | | Load 0x2,0x4
0359 0aff | | Execute_Immediate Plus,-0x1
035a c404 | | Store 0x2,0x4
035b e404 | | Load 0x2,0x4
035c 7007 |p | Jump_Nonzero 0x364
035d 0092 0607 | | Action Push_String_Extended,0x607 ; "*** Unbalanced daemon start/end: "
035f e403 | | Load 0x2,0x3
0360 01cc | | Execute Vector,Catenate
0361 e00e | | Load 0x0,0xe
0362 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0363 4504 |E | Exit_Subprogram 0x4
0364 00c9 | | Action Pop_Auxiliary_Loop
0365 7fd6 | | Jump 0x33c
0366 00ce | | Action Pop_Auxiliary
0367 e402 | | Load 0x2,0x2
0368 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0369 00e2 | | Load_Encached Integer_Cache
036a 025e | ^ | Execute Discrete,Convert
036b 0092 0608 | | Action Push_String_Extended,0x608 ; "new = "
036d e5fd | | Load 0x2,-0x3
036e 8226 | & | Call 0x1,0x26
036f e402 | | Load 0x2,0x2
0370 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0371 e402 | | Load 0x2,0x2
0372 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0373 00e2 | | Load_Encached Integer_Cache
0374 025e | ^ | Execute Discrete,Convert
0375 0092 0609 | | Action Push_String_Extended,0x609 ; "old = "
0377 e5fd | | Load 0x2,-0x3
0378 8226 | & | Call 0x1,0x26
0379 e402 | | Load 0x2,0x2
037a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
037b e402 | | Load 0x2,0x2
037c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
037d e00c | | Load 0x0,0xc
037e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
037f e5ff | | Load 0x2,-0x1
0380 e00c | | Load 0x0,0xc
0381 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0382 e014 | | Load 0x0,0x14
0383 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0384 e402 | | Load 0x2,0x2
0385 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0386 e219 | | Load 0x1,0x19
0387 4800 |H | Short_Literal 0x0
0388 e402 | | Load 0x2,0x2
0389 e21a | | Load 0x1,0x1a
038a 00d8 | | Load_Top At_Offset_0
038b 00e4 | | Load_Encached Positive_Cache
038c 0260 | ` | Execute Discrete,In_Type
038d 7001 |p | Jump_Nonzero 0x38f
038e 0801 | | Execute_Immediate Raise,0x1
038f e218 | | Load 0x1,0x18
0390 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0391 c219 | | Store 0x1,0x19
0392 4504 |E | Exit_Subprogram 0x4
0393 0000 0000 | | .BLANK 0000[0x5]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b e218 | | Load 0x1,0x18
039c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
039d 4861 |Ha | Short_Literal 0x61
039e e218 | | Load 0x1,0x18
039f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
03a0 c219 | | Store 0x1,0x19
03a1 4800 |H | Short_Literal 0x0
03a2 a21a | | Store_Unchecked 0x1,0x1a
03a3 4501 |E | Exit_Subprogram 0x1
03a4 0000 0000 | | .BLANK 0000[0x4]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab e219 | | Load 0x1,0x19
03ac e218 | | Load 0x1,0x18
03ad 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03ae c219 | | Store 0x1,0x19
03af 4800 |H | Short_Literal 0x0
03b0 a21a | | Store_Unchecked 0x1,0x1a
03b1 4501 |E | Exit_Subprogram 0x1
03b2 0000 0000 | | .BLANK 0000[0x6]
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 4801 |H | Short_Literal 0x1
03bc a5ff | | Store_Unchecked 0x2,-0x1
03bd 4501 |E | Exit_Subprogram 0x1
03be 0000 0000 | | .XXX[0x2]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03c3 | | .CONST 0x03c3 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0001 | | .CONST 0x0001 ; Number of locals
03c3 BODY_03c0:
03c3 INIT_03c0:
03c3 e5ff | | Load 0x2,-0x1
03c4 0a01 | | Execute_Immediate Plus,0x1
03c5 c5ff | | Store 0x2,-0x1
03c6 4501 |E | Exit_Subprogram 0x1
03c7 0000 | | .XXX[0x1]
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 e5ff | | Load 0x2,-0x1
03cc e21a | | Load 0x1,0x1a
03cd 027d | } | Execute Discrete,Greater
03ce 4401 |D | Exit_Subprogram With_Result,0x1
03cf 0000 | | .XXX[0x1]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d3 | | .CONST 0x03d3 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0001 | | .CONST 0x0001 ; Number of locals
03d3 BODY_03d0:
03d3 INIT_03d0:
03d3 e5ff | | Load 0x2,-0x1
03d4 00d8 | | Load_Top At_Offset_0
03d5 00e4 | | Load_Encached Positive_Cache
03d6 0260 | ` | Execute Discrete,In_Type
03d7 7001 |p | Jump_Nonzero 0x3d9
03d8 0801 | | Execute_Immediate Raise,0x1
03d9 e219 | | Load 0x1,0x19
03da e218 | | Load 0x1,0x18
03db 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03dc 4401 |D | Exit_Subprogram With_Result,0x1
03dd 0000 0000 | | .XXX[0x3]
03df 0000 | |
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 4401 |D | Exit_Subprogram With_Result,0x1
03e5 0000 0000 | | .XXX[0x3]
03e7 0000 | |
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 4801 |H | Short_Literal 0x1
03ec e5ff | | Load 0x2,-0x1
03ed e5fe | | Load 0x2,-0x2
03ee e015 | | Load 0x0,0x15
03ef 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03f0 0e00 | | Execute_Immediate Not_Equal,0x0
03f1 4402 |D | Exit_Subprogram With_Result,0x2
03f2 0000 0000 | | .BLANK 0000[0x6]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb e5ff | | Load 0x2,-0x1
03fc e5fe | | Load 0x2,-0x2
03fd 027d | } | Execute Discrete,Greater
03fe 6802 |h | Jump_Zero 0x401
03ff e5ff | | Load 0x2,-0x1
0400 4402 |D | Exit_Subprogram With_Result,0x2
0401 e5fe | | Load 0x2,-0x2
0402 4402 |D | Exit_Subprogram With_Result,0x2
0403 0000 0000 | | .BLANK 0000[0x5]
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 e5ff | | Load 0x2,-0x1
040c 0092 060a | | Action Push_String_Extended,0x60a ; "Disk"
040e 01de | | Execute Vector,Not_Equal
040f 6802 |h | Jump_Zero 0x412
0410 e5ff | | Load 0x2,-0x1
0411 4402 |D | Exit_Subprogram With_Result,0x2
0412 0092 060b | | Action Push_String_Extended,0x60b ; "volume 1"
0414 e5fe | | Load 0x2,-0x2
0415 8222 | " | Call 0x1,0x22
0416 6807 |h | Jump_Zero 0x41e
0417 4801 |H | Short_Literal 0x1
0418 e21c | | Load 0x1,0x1c
0419 8223 | # | Call 0x1,0x23
041a c21c | | Store 0x1,0x1c
041b 0092 05ed | | Action Push_String_Extended,0x5ed ; "Disk1"
041d 4402 |D | Exit_Subprogram With_Result,0x2
041e 0092 060c | | Action Push_String_Extended,0x60c ; "volume 2"
0420 e5fe | | Load 0x2,-0x2
0421 8222 | " | Call 0x1,0x22
0422 6807 |h | Jump_Zero 0x42a
0423 4802 |H | Short_Literal 0x2
0424 e21c | | Load 0x1,0x1c
0425 8223 | # | Call 0x1,0x23
0426 c21c | | Store 0x1,0x1c
0427 0092 05ee | | Action Push_String_Extended,0x5ee ; "Disk2"
0429 4402 |D | Exit_Subprogram With_Result,0x2
042a 0092 060d | | Action Push_String_Extended,0x60d ; "volume 3"
042c e5fe | | Load 0x2,-0x2
042d 8222 | " | Call 0x1,0x22
042e 6807 |h | Jump_Zero 0x436
042f 4803 |H | Short_Literal 0x3
0430 e21c | | Load 0x1,0x1c
0431 8223 | # | Call 0x1,0x23
0432 c21c | | Store 0x1,0x1c
0433 0092 05ef | | Action Push_String_Extended,0x5ef ; "Disk3"
0435 4402 |D | Exit_Subprogram With_Result,0x2
0436 0092 060e | | Action Push_String_Extended,0x60e ; "volume 4"
0438 e5fe | | Load 0x2,-0x2
0439 8222 | " | Call 0x1,0x22
043a 6807 |h | Jump_Zero 0x442
043b 4804 |H | Short_Literal 0x4
043c e21c | | Load 0x1,0x1c
043d 8223 | # | Call 0x1,0x23
043e c21c | | Store 0x1,0x1c
043f 0092 05f0 | | Action Push_String_Extended,0x5f0 ; "Disk4"
0441 4402 |D | Exit_Subprogram With_Result,0x2
0442 e5ff | | Load 0x2,-0x1
0443 4402 |D | Exit_Subprogram With_Result,0x2
0444 0000 0000 | | .BLANK 0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044c | L | .CONST 0x044c ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0002 | | .CONST 0x0002 ; Number of locals
044b INIT_0448:
044b 00e3 | | Load_Encached Natural_Cache
044c BODY_0448:
044c e5fe | | Load 0x2,-0x2
044d a402 | | Store_Unchecked 0x2,0x2
044e 00cf | | Action Mark_Auxiliary
044f 7812 |x | Jump 0x462
0450 e402 | | Load 0x2,0x2
0451 e5ff | | Load 0x2,-0x1
0452 01d7 | | Execute Vector,Field_Read
0453 e5fd | | Load 0x2,-0x3
0454 027f | | Execute Discrete,Equal
0455 6808 |h | Jump_Zero 0x45e
0456 e402 | | Load 0x2,0x2
0457 0aff | | Execute_Immediate Plus,-0x1
0458 00d8 | | Load_Top At_Offset_0
0459 00e3 | | Load_Encached Natural_Cache
045a 0260 | ` | Execute Discrete,In_Type
045b 7001 |p | Jump_Nonzero 0x45d
045c 0801 | | Execute_Immediate Raise,0x1
045d 4403 |D | Exit_Subprogram With_Result,0x3
045e e402 | | Load 0x2,0x2
045f 0a01 | | Execute_Immediate Plus,0x1
0460 c402 | | Store 0x2,0x2
0461 00c9 | | Action Pop_Auxiliary_Loop
0462 e402 | | Load 0x2,0x2
0463 e5ff | | Load 0x2,-0x1
0464 01dc | | Execute Vector,Last
0465 027a | z | Execute Discrete,Less_Equal
0466 77e9 |w | Jump_Nonzero 0x450
0467 00ce | | Action Pop_Auxiliary
0468 e5ff | | Load 0x2,-0x1
0469 01dc | | Execute Vector,Last
046a 00d8 | | Load_Top At_Offset_0
046b 00e3 | | Load_Encached Natural_Cache
046c 0260 | ` | Execute Discrete,In_Type
046d 7001 |p | Jump_Nonzero 0x46f
046e 0801 | | Execute_Immediate Raise,0x1
046f 4403 |D | Exit_Subprogram With_Result,0x3
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0475 | u | .CONST 0x0475 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0003 | | .CONST 0x0003 ; Number of locals
0473 INIT_0470:
0473 00e3 | | Load_Encached Natural_Cache
0474 03e9 | | Declare_Variable Discrete,Duplicate
0475 BODY_0470:
0475 4801 |H | Short_Literal 0x1
0476 e5ff | | Load 0x2,-0x1
0477 e5fe | | Load 0x2,-0x2
0478 e015 | | Load 0x0,0x15
0479 181d | | Execute Package,Field_Execute,Field_Number 0x1d
047a a402 | | Store_Unchecked 0x2,0x2
047b e402 | | Load 0x2,0x2
047c 6823 |h# | Jump_Zero 0x4a0
047d e402 | | Load 0x2,0x2
047e e5fe | | Load 0x2,-0x2
047f 01db | | Execute Vector,Length
0480 0273 | s | Execute Discrete,Plus
0481 c402 | | Store 0x2,0x2
0482 4820 |H | Short_Literal 0x20
0483 e402 | | Load 0x2,0x2
0484 00d8 | | Load_Top At_Offset_0
0485 00e4 | | Load_Encached Positive_Cache
0486 0260 | ` | Execute Discrete,In_Type
0487 7001 |p | Jump_Nonzero 0x489
0488 0801 | | Execute_Immediate Raise,0x1
0489 e5ff | | Load 0x2,-0x1
048a 8225 | % | Call 0x1,0x25
048b a403 | | Store_Unchecked 0x2,0x3
048c 00d8 | | Load_Top At_Offset_0
048d e402 | | Load 0x2,0x2
048e 027b | { | Execute Discrete,Greater_Equal
048f 6810 |h | Jump_Zero 0x4a0
0490 00d8 | | Load_Top At_Offset_0
0491 e5ff | | Load 0x2,-0x1
0492 01d7 | | Execute Vector,Field_Read
0493 0f3b | ; | Execute_Immediate Equal,0x3b
0494 6803 |h | Jump_Zero 0x498
0495 00d8 | | Load_Top At_Offset_0
0496 0aff | | Execute_Immediate Plus,-0x1
0497 c403 | | Store 0x2,0x3
0498 e402 | | Load 0x2,0x2
0499 e403 | | Load 0x2,0x3
049a e5ff | | Load 0x2,-0x1
049b 01cf | | Execute Vector,Slice_Read
049c 00e2 | | Load_Encached Integer_Cache
049d 00e0 | | Load_Encached Standard_Cache
049e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
049f a5fd | | Store_Unchecked 0x2,-0x3
04a0 4503 |E | Exit_Subprogram 0x3
04a1 0000 0000 | | .BLANK 0000[0x7]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab 4801 |H | Short_Literal 0x1
04ac e403 | | Load 0x2,0x3
04ad 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04ae e011 | | Load 0x0,0x11
04af 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04b0 e7ff | | Load 0x3,-0x1
04b1 e015 | | Load 0x0,0x15
04b2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
04b3 6809 |h | Jump_Zero 0x4bd
04b4 e403 | | Load 0x2,0x3
04b5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04b6 a7fe | | Store_Unchecked 0x3,-0x2
04b7 e403 | | Load 0x2,0x3
04b8 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04b9 a7fd | | Store_Unchecked 0x3,-0x3
04ba e403 | | Load 0x2,0x3
04bb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04bc a7fc | | Store_Unchecked 0x3,-0x4
04bd 4502 |E | Exit_Subprogram 0x2
04be 0000 0000 | | .XXX[0x2]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c3 | | .CONST 0x04c3 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0001 | | .CONST 0x0001 ; Number of locals
04c3 BODY_04c0:
04c3 INIT_04c0:
04c3 e7ff | | Load 0x3,-0x1
04c4 7006 |p | Jump_Nonzero 0x4cb
04c5 e7fe | | Load 0x3,-0x2
04c6 7004 |p | Jump_Nonzero 0x4cb
04c7 00ea | | Load_Encached Null_String_Cache
04c8 e21b | | Load 0x1,0x1b
04c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ca 4503 |E | Exit_Subprogram 0x3
04cb 4820 |H | Short_Literal 0x20
04cc 4800 |H | Short_Literal 0x0
04cd 480a |H | Short_Literal 0xa
04ce e7fe | | Load 0x3,-0x2
04cf e015 | | Load 0x0,0x15
04d0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04d1 0092 060f | | Action Push_String_Extended,0x60f ; " ->"
04d3 01cc | | Execute Vector,Catenate
04d4 e7ff | | Load 0x3,-0x1
04d5 00e0 | | Load_Encached Standard_Cache
04d6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04d7 01cc | | Execute Vector,Catenate
04d8 e21b | | Load 0x1,0x1b
04d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04da 4503 |E | Exit_Subprogram 0x3
04db 0000 0000 | | .BLANK 0000[0x5]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e5 | | .CONST 0x04e5 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0002 | | .CONST 0x0002 ; Number of locals
04e3 INIT_04e0:
04e3 029f 057b | {| Declare_Subprogram For_Call,INIT_0578
04e5 BODY_04e0:
04e5 e422 | " | Load 0x2,0x22
04e6 8016 | | Call 0x0,0x16
04e7 e21b | | Load 0x1,0x1b
04e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04e9 e40a | | Load 0x2,0xa
04ea e404 | | Load 0x2,0x4
04eb 8425 | % | Call 0x2,0x25
04ec e40b | | Load 0x2,0xb
04ed e405 | | Load 0x2,0x5
04ee 8425 | % | Call 0x2,0x25
04ef e40c | | Load 0x2,0xc
04f0 e406 | | Load 0x2,0x6
04f1 8425 | % | Call 0x2,0x25
04f2 e408 | | Load 0x2,0x8
04f3 e40e | | Load 0x2,0xe
04f4 8425 | % | Call 0x2,0x25
04f5 e409 | | Load 0x2,0x9
04f6 e40f | | Load 0x2,0xf
04f7 8425 | % | Call 0x2,0x25
04f8 e422 | " | Load 0x2,0x22
04f9 8016 | | Call 0x0,0x16
04fa e402 | | Load 0x2,0x2
04fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04fc 8602 | | Call 0x3,0x2
04fd 4501 |E | Exit_Subprogram 0x1
04fe 0000 0000 | | .XXX[0x2]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503 | | .CONST 0x0503 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0001 | | .CONST 0x0001 ; Number of locals
0503 BODY_0500:
0503 INIT_0500:
0503 4801 |H | Short_Literal 0x1
0504 e402 | | Load 0x2,0x2
0505 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0506 e011 | | Load 0x0,0x11
0507 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0508 e7ff | | Load 0x3,-0x1
0509 e015 | | Load 0x0,0x15
050a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
050b 6809 |h | Jump_Zero 0x515
050c e402 | | Load 0x2,0x2
050d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
050e a7fe | | Store_Unchecked 0x3,-0x2
050f e402 | | Load 0x2,0x2
0510 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0511 a7fd | | Store_Unchecked 0x3,-0x3
0512 e402 | | Load 0x2,0x2
0513 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0514 a7fc | | Store_Unchecked 0x3,-0x4
0515 4502 |E | Exit_Subprogram 0x2
0516 0000 0000 | | .XXX[0x2]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 051b | | .CONST 0x051b ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0001 | | .CONST 0x0001 ; Number of locals
051b BODY_0518:
051b INIT_0518:
051b e7fe | | Load 0x3,-0x2
051c 7006 |p | Jump_Nonzero 0x523
051d e7ff | | Load 0x3,-0x1
051e 7004 |p | Jump_Nonzero 0x523
051f 00ea | | Load_Encached Null_String_Cache
0520 e403 | | Load 0x2,0x3
0521 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0522 4504 |E | Exit_Subprogram 0x4
0523 4820 |H | Short_Literal 0x20
0524 4800 |H | Short_Literal 0x0
0525 480a |H | Short_Literal 0xa
0526 e7fe | | Load 0x3,-0x2
0527 49f4 |I | Short_Literal 0x1f4
0528 0273 | s | Execute Discrete,Plus
0529 4be8 |K | Short_Literal 0x3e8
052a 0270 | p | Execute Discrete,Divide
052b 00d8 | | Load_Top At_Offset_0
052c 00e2 | | Load_Encached Integer_Cache
052d 0260 | ` | Execute Discrete,In_Type
052e 7001 |p | Jump_Nonzero 0x530
052f 0801 | | Execute_Immediate Raise,0x1
0530 e015 | | Load 0x0,0x15
0531 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0532 0092 060f | | Action Push_String_Extended,0x60f ; " ->"
0534 01cc | | Execute Vector,Catenate
0535 e7ff | | Load 0x3,-0x1
0536 49f4 |I | Short_Literal 0x1f4
0537 0273 | s | Execute Discrete,Plus
0538 4be8 |K | Short_Literal 0x3e8
0539 0270 | p | Execute Discrete,Divide
053a 00d8 | | Load_Top At_Offset_0
053b 00e2 | | Load_Encached Integer_Cache
053c 0260 | ` | Execute Discrete,In_Type
053d 7001 |p | Jump_Nonzero 0x53f
053e 0801 | | Execute_Immediate Raise,0x1
053f 00e0 | | Load_Encached Standard_Cache
0540 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0541 01cc | | Execute Vector,Catenate
0542 0092 05e0 | | Action Push_String_Extended,0x5e0 ; " "
0544 01cc | | Execute Vector,Catenate
0545 e7fd | | Load 0x3,-0x3
0546 8017 | | Call 0x0,0x17
0547 01cc | | Execute Vector,Catenate
0548 e403 | | Load 0x2,0x3
0549 1813 | | Execute Package,Field_Execute,Field_Number 0x13
054a 4504 |E | Exit_Subprogram 0x4
054b 0000 0000 | | .BLANK 0000[0x5]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553 | S | .CONST 0x0553 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0001 | | .CONST 0x0001 ; Number of locals
0553 BODY_0550:
0553 INIT_0550:
0553 e410 | | Load 0x2,0x10
0554 8016 | | Call 0x0,0x16
0555 e403 | | Load 0x2,0x3
0556 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0557 e40c | | Load 0x2,0xc
0558 e408 | | Load 0x2,0x8
0559 e404 | | Load 0x2,0x4
055a 8413 | | Call 0x2,0x13
055b e21c | | Load 0x1,0x1c
055c 0c02 | | Execute_Immediate Greater_Equal,0x2
055d 6804 |h | Jump_Zero 0x562
055e e40d | | Load 0x2,0xd
055f e409 | | Load 0x2,0x9
0560 e405 | | Load 0x2,0x5
0561 8413 | | Call 0x2,0x13
0562 e21c | | Load 0x1,0x1c
0563 0c03 | | Execute_Immediate Greater_Equal,0x3
0564 6804 |h | Jump_Zero 0x569
0565 e40e | | Load 0x2,0xe
0566 e40a | | Load 0x2,0xa
0567 e406 | | Load 0x2,0x6
0568 8413 | | Call 0x2,0x13
0569 e21c | | Load 0x1,0x1c
056a 0c04 | | Execute_Immediate Greater_Equal,0x4
056b 6804 |h | Jump_Zero 0x570
056c e40f | | Load 0x2,0xf
056d e40b | | Load 0x2,0xb
056e e407 | | Load 0x2,0x7
056f 8413 | | Call 0x2,0x13
0570 4501 |E | Exit_Subprogram 0x1
0571 0000 0000 | | .BLANK 0000[0x7]
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057f | | .CONST 0x057f ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0003 | | .CONST 0x0003 ; Number of locals
057b INIT_0578:
057b 00e1 | | Load_Encached Boolean_Cache
057c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
057d 029f 05b3 | | Declare_Subprogram For_Call,INIT_05b0
057f BODY_0578:
057f 4801 |H | Short_Literal 0x1
0580 e410 | | Load 0x2,0x10
0581 8803 | | Call 0x4,0x3
0582 4802 |H | Short_Literal 0x2
0583 e411 | | Load 0x2,0x11
0584 8803 | | Call 0x4,0x3
0585 4803 |H | Short_Literal 0x3
0586 e412 | | Load 0x2,0x12
0587 8803 | | Call 0x4,0x3
0588 4804 |H | Short_Literal 0x4
0589 e413 | | Load 0x2,0x13
058a 8803 | | Call 0x4,0x3
058b e802 | | Load 0x4,0x2
058c 681c |h | Jump_Zero 0x5a9
058d 4820 |H | Short_Literal 0x20
058e 4802 |H | Short_Literal 0x2
058f 480a |H | Short_Literal 0xa
0590 e410 | | Load 0x2,0x10
0591 e411 | | Load 0x2,0x11
0592 0273 | s | Execute Discrete,Plus
0593 e412 | | Load 0x2,0x12
0594 0273 | s | Execute Discrete,Plus
0595 e413 | | Load 0x2,0x13
0596 0273 | s | Execute Discrete,Plus
0597 4864 |Hd | Short_Literal 0x64
0598 0271 | q | Execute Discrete,Times
0599 e21f | | Load 0x1,0x1f
059a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
059b 0270 | p | Execute Discrete,Divide
059c 00d8 | | Load_Top At_Offset_0
059d 00e2 | | Load_Encached Integer_Cache
059e 0260 | ` | Execute Discrete,In_Type
059f 7001 |p | Jump_Nonzero 0x5a1
05a0 0801 | | Execute_Immediate Raise,0x1
05a1 e015 | | Load 0x0,0x15
05a2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05a3 0092 0610 | | Action Push_String_Extended,0x610 ; "%"
05a5 01cc | | Execute Vector,Catenate
05a6 e402 | | Load 0x2,0x2
05a7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05a8 4501 |E | Exit_Subprogram 0x1
05a9 00ea | | Load_Encached Null_String_Cache
05aa e402 | | Load 0x2,0x2
05ab 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05ac 4501 |E | Exit_Subprogram 0x1
05ad 0000 0000 | | .XXX[0x3]
05af 0000 | |
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b3 | | .CONST 0x05b3 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0001 | | .CONST 0x0001 ; Number of locals
05b3 BODY_05b0:
05b3 INIT_05b0:
05b3 e21c | | Load 0x1,0x1c
05b4 ebfe | | Load 0x5,-0x2
05b5 027b | { | Execute Discrete,Greater_Equal
05b6 6828 |h( | Jump_Zero 0x5df
05b7 ebff | | Load 0x5,-0x1
05b8 7006 |p | Jump_Nonzero 0x5bf
05b9 00ea | | Load_Encached Null_String_Cache
05ba e402 | | Load 0x2,0x2
05bb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05bc 4800 |H | Short_Literal 0x0
05bd a802 | | Store_Unchecked 0x4,0x2
05be 4503 |E | Exit_Subprogram 0x3
05bf 4820 |H | Short_Literal 0x20
05c0 4800 |H | Short_Literal 0x0
05c1 480a |H | Short_Literal 0xa
05c2 ebff | | Load 0x5,-0x1
05c3 e015 | | Load 0x0,0x15
05c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05c5 0092 05e0 | | Action Push_String_Extended,0x5e0 ; " "
05c7 01cc | | Execute Vector,Catenate
05c8 4820 |H | Short_Literal 0x20
05c9 4802 |H | Short_Literal 0x2
05ca 480a |H | Short_Literal 0xa
05cb ebff | | Load 0x5,-0x1
05cc 4864 |Hd | Short_Literal 0x64
05cd 0271 | q | Execute Discrete,Times
05ce ebfe | | Load 0x5,-0x2
05cf e221 | ! | Load 0x1,0x21
05d0 01d7 | | Execute Vector,Field_Read
05d1 0270 | p | Execute Discrete,Divide
05d2 00d8 | | Load_Top At_Offset_0
05d3 00e2 | | Load_Encached Integer_Cache
05d4 0260 | ` | Execute Discrete,In_Type
05d5 7001 |p | Jump_Nonzero 0x5d7
05d6 0801 | | Execute_Immediate Raise,0x1
05d7 e015 | | Load 0x0,0x15
05d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05d9 01cc | | Execute Vector,Catenate
05da 0092 0610 | | Action Push_String_Extended,0x610 ; "%"
05dc 01cc | | Execute Vector,Catenate
05dd e402 | | Load 0x2,0x2
05de 1813 | | Execute Package,Field_Execute,Field_Number 0x13
05df 4503 |E | Exit_Subprogram 0x3
05e0 ; --------------------------------------------------------------------------------------
05e0 ; STRING TABLE
05e0 ; --------------------------------------------------------------------------------------
05e0 0064 | d | .STRTAB 0x0064->0x0612 ; " "
; " "
; " "
; " "
; " "
05e1 0063 | c | .STRTAB 0x0063->0x0612 ; "Date"
; "Date"
; "Date"
05e2 0065 | e | .STRTAB 0x0065->0x0614 ; "Ada"
; "Ada"
05e3 0066 | f | .STRTAB 0x0066->0x0616 ; "File"
; "File"
05e4 0068 | h | .STRTAB 0x0068->0x0618 ; "Action"
; "Action"
05e5 006c | l | .STRTAB 0x006c->0x061b ; "Directory"
; "Directory"
05e6 0073 | s | .STRTAB 0x0073->0x061f ; "DDB"
05e7 0074 | t | .STRTAB 0x0074->0x0621 ; "Volume 1"
05e8 007a | z | .STRTAB 0x007a->0x0625 ; "Volume 2"
05e9 0080 | | .STRTAB 0x0080->0x0629 ; "Volume 3"
05ea 0086 | | .STRTAB 0x0086->0x062d ; "Volume 4"
05eb 008c | | .STRTAB 0x008c->0x0631 ; "Total %"
05ec 0091 | | .STRTAB 0x0091->0x0634 ; "Ddb"
05ed 0092 | | .STRTAB 0x0092->0x0636 ; "Disk1"
; "Disk1"
; "Disk1"
05ee 0095 | | .STRTAB 0x0095->0x0638 ; "Disk2"
; "Disk2"
; "Disk2"
05ef 0098 | | .STRTAB 0x0098->0x063b ; "Disk3"
; "Disk3"
; "Disk3"
05f0 009b | | .STRTAB 0x009b->0x063d ; "Disk4"
; "Disk4"
; "Disk4"
05f1 009e | | .STRTAB 0x009e->0x0640 ; "Daemon Information Display"
05f2 00b6 | | .STRTAB 0x00b6->0x064d ; "--------------------------"
05f3 00ce | | .STRTAB 0x00ce->0x065a ; "Shows at end of day final run of daemon. This"
05f4 00fa | | .STRTAB 0x00fa->0x0671 ; "indicates size before compaction and final size"
05f5 0127 | ' | .STRTAB 0x0127->0x0688 ; "in pages."
05f6 012e | . | .STRTAB 0x012e->0x068d ; "\x0c"
; "\x0c"
05f7 012d | - | .STRTAB 0x012d->0x068d ; "For each disk, this display indicates the amount of"
05f8 015e | ^ | .STRTAB 0x015e->0x06a7 ; "used space after garbage collection has finished that"
05f9 0191 | | .STRTAB 0x0191->0x06c1 ; "day, and the percentage of space used at that point."
05fa 01c3 | | .STRTAB 0x01c3->0x06db ; "Note: percentages are based on the capacities of disks"
05fb 01f7 | | .STRTAB 0x01f7->0x06f6 ; "of the machine when and where the report is run."
05fc 0225 | % | .STRTAB 0x0225->0x070e ; "Vol 1"
05fd 0228 | ( | .STRTAB 0x0228->0x0711 ; "Vol 2"
05fe 022b | + | .STRTAB 0x022b->0x0713 ; "Vol 3"
05ff 022e | . | .STRTAB 0x022e->0x0716 ; "Vol 4"
0600 0231 | 1 | .STRTAB 0x0231->0x0718 ; "Disk Daemon Information"
0601 0246 | F | .STRTAB 0x0246->0x0724 ; "-----------------------"
0602 025b | [ | .STRTAB 0x025b->0x072f ; "Shows, for each day, last disk garbage collector"
0603 0289 | | .STRTAB 0x0289->0x0747 ; "run and amount of used space before and after the"
0604 02b8 | | .STRTAB 0x02b8->0x0760 ; "collection in megabytes. The time in minutes to do"
0605 02e9 | | .STRTAB 0x02e9->0x0779 ; "the collection is also shown."
0606 0304 | | .STRTAB 0x0304->0x0788 ; "*** Inconsistent daemon entry: "
0607 0321 | ! | .STRTAB 0x0321->0x0797 ; "*** Unbalanced daemon start/end: "
0608 0340 | @ | .STRTAB 0x0340->0x07a8 ; "new = "
0609 0344 | D | .STRTAB 0x0344->0x07ab ; "old = "
060a 0348 | H | .STRTAB 0x0348->0x07ae ; "Disk"
060b 034a | J | .STRTAB 0x034a->0x07b0 ; "volume 1"
060c 0350 | P | .STRTAB 0x0350->0x07b4 ; "volume 2"
060d 0356 | V | .STRTAB 0x0356->0x07b8 ; "volume 3"
060e 035c | \ | .STRTAB 0x035c->0x07bc ; "volume 4"
060f 0362 | b | .STRTAB 0x0362->0x07c0 ; " ->"
; " ->"
0610 0363 | c | .STRTAB 0x0363->0x07c1 ; "%"
; "%"
0611 0362 | b | .STREND 0x0362->0x07c2
0612 2044 6174 | Dat| .STRTAB_STRINGS
07c2 0000 0000 | | .BLANK 0000[0x6]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; Debug Table
07c8 ; --------------------------------------------------------------------------------------
07c8 0004 0011 | | .DEBUG4 0x0004,0x0011,0x9c85,0x0000,0x0001,0x0000
07ce 0000 0000 | | .BLANK 0000[0x32]