|
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_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 INIT_0070,For_Outer_Call,Visible,Unelaborated 000d 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated 000f 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated 0011 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated 0013 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated 0015 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated 0017 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated 0019 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated 001b 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated 001d 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated 001f 00bf | | Action Accept_Activation 0020 029b 03e3 | | Declare_Subprogram INIT_03e0,For_Outer_Call,Unelaborated 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 INIT_03e8,For_Outer_Call 0052 029d 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call 0054 029d 040b | | Declare_Subprogram INIT_0408,For_Outer_Call 0056 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0057 00c7 | | Action Elaborate_Subprogram 0058 029d 044b | K| Declare_Subprogram INIT_0448,For_Outer_Call 005a 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call 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 INIT_04a8,For_Call 00b4 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call 00b6 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call 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_Suprogram New_Top_Offset 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 INIT_0500,For_Call 023c 029f 051b | | Declare_Subprogram INIT_0518,For_Call 023e 029f 0553 | S| Declare_Subprogram INIT_0550,For_Call 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 0x2 0401 e5fe | | Load 0x2,-0x2 0402 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 0x2 0442 e5ff | | Load 0x2,-0x1 0443 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 INIT_0578,For_Call 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 INIT_05b0,For_Call 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x3 05e0 ; -------------------------------------------------------------------------------------- 05e0 ; STRING TABLE 05e0 ; -------------------------------------------------------------------------------------- 05e0 0064 | d | .STRTAB 0x0064->0x0612 ; " " 05e1 0063 | c | .STRTAB 0x0063->0x0612 ; "Date" 05e2 0065 | e | .STRTAB 0x0065->0x0614 ; "Ada" 05e3 0066 | f | .STRTAB 0x0066->0x0616 ; "File" 05e4 0068 | h | .STRTAB 0x0068->0x0618 ; "Action" 05e5 006c | l | .STRTAB 0x006c->0x061b ; "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" 05ee 0095 | | .STRTAB 0x0095->0x0638 ; "Disk2" 05ef 0098 | | .STRTAB 0x0098->0x063b ; "Disk3" 05f0 009b | | .STRTAB 0x009b->0x063d ; "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" 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]