|
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_0698fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0718 | | .CONST 0x0718 ; 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 0077 | w | .CONST 0x0077 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
001b c214 | | Store 0x1,0x14
001c 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
001e c212 | | Store 0x1,0x12
001f 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0021 c213 | | Store 0x1,0x13
0022 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
0024 c210 | | Store 0x1,0x10
0025 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated
0027 c211 | | Store 0x1,0x11
0028 00e2 | | Load_Encached Integer_Cache
0029 0129 | ) | Execute Any,Make_Visible
002a c215 | | Store 0x1,0x15
002b 029a 039b | | Declare_Subprogram INIT_0398,For_Outer_Call,Visible,Unelaborated
002d c216 | | Store 0x1,0x16
002e 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated
0030 c217 | | Store 0x1,0x17
0031 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0033 c218 | | Store 0x1,0x18
0034 029a 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call,Visible,Unelaborated
0036 c219 | | Store 0x1,0x19
0037 00bf | | Action Accept_Activation
0038 029b 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Unelaborated
003a e001 | | Load 0x0,0x1
003b 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
003c e001 | | Load 0x0,0x1
003d 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
003e e002 | | Load 0x0,0x2
003f e003 | | Load 0x0,0x3
0040 4861 |Ha | Short_Literal 0x61
0041 00e4 | | Load_Encached Positive_Cache
0042 e21c | | Load 0x1,0x1c
0043 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0044 e004 | | Load 0x0,0x4
0045 0387 | | Declare_Variable Package
0046 00d8 | | Load_Top At_Offset_0
0047 020f | | Execute Module,Activate
0048 00d8 | | Load_Top At_Offset_0
0049 1b13 | | Execute Package,Field_Read,Field_Number 0x13
004a 00e3 | | Load_Encached Natural_Cache
004b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
004c e005 | | Load 0x0,0x5
004d e006 | | Load 0x0,0x6
004e 4806 |H | Short_Literal 0x6
004f 0092 0586 | | Action Push_String_Extended,0x586 ; " "
0051 e007 | | Load 0x0,0x7
0052 0387 | | Declare_Variable Package
0053 00d8 | | Load_Top At_Offset_0
0054 020f | | Execute Module,Activate
0055 00e3 | | Load_Encached Natural_Cache
0056 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0057 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0058 00c7 | | Action Elaborate_Subprogram
0059 1d0d | | Execute_Immediate Reference_Lex_1,0xd
005a 00c7 | | Action Elaborate_Subprogram
005b 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call
005d 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call
005f 029d 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call
0061 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0062 00c7 | | Action Elaborate_Subprogram
0063 029d 042b | +| Declare_Subprogram INIT_0428,For_Outer_Call
0065 029d 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call
0067 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0068 00c7 | | Action Elaborate_Subprogram
0069 1d10 | | Execute_Immediate Reference_Lex_1,0x10
006a 00c7 | | Action Elaborate_Subprogram
006b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
006c 00c7 | | Action Elaborate_Subprogram
006d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
006e 00c7 | | Action Elaborate_Subprogram
006f 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0070 00c7 | | Action Elaborate_Subprogram
0071 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0072 00c7 | | Action Elaborate_Subprogram
0073 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0074 00c7 | | Action Elaborate_Subprogram
0075 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0076 00c7 | | Action Elaborate_Subprogram
0077 BODY_0008:
0077 00bc | | Action Signal_Activated
0078 00bb | | Action Signal_Completion
0079 0000 0000 | | .BLANK 0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 00c8 | | .CONST 0x00c8 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0026 | & | .CONST 0x0026 ; Number of locals
0083 INIT_0080:
0083 e008 | | Load 0x0,0x8
0084 e009 | | Load 0x0,0x9
0085 e221 | ! | Load 0x1,0x21
0086 0a01 | | Execute_Immediate Plus,0x1
0087 00d8 | | Load_Top At_Offset_0
0088 00e4 | | Load_Encached Positive_Cache
0089 0260 | ` | Execute Discrete,In_Type
008a 7001 |p | Jump_Nonzero 0x8c
008b 0801 | | Execute_Immediate Raise,0x1
008c 0092 0586 | | Action Push_String_Extended,0x586 ; " "
008e e007 | | Load 0x0,0x7
008f 0387 | | Declare_Variable Package
0090 00d8 | | Load_Top At_Offset_0
0091 020f | | Execute Module,Activate
0092 e21c | | Load 0x1,0x1c
0093 0322 | " | Declare_Variable Record
0094 00d8 | | Load_Top At_Offset_0
0095 1c00 | | Execute_Immediate Run_Utility,0x0
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 00e3 | | Load_Encached Natural_Cache
009b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
009c 03e9 | | Declare_Variable Discrete,Duplicate
009d 03e9 | | Declare_Variable Discrete,Duplicate
009e 00e3 | | Load_Encached Natural_Cache
009f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a0 03e9 | | Declare_Variable Discrete,Duplicate
00a1 03e9 | | Declare_Variable Discrete,Duplicate
00a2 00e3 | | Load_Encached Natural_Cache
00a3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a4 03e9 | | Declare_Variable Discrete,Duplicate
00a5 03e9 | | Declare_Variable Discrete,Duplicate
00a6 00e3 | | Load_Encached Natural_Cache
00a7 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a8 03e9 | | Declare_Variable Discrete,Duplicate
00a9 03e9 | | Declare_Variable Discrete,Duplicate
00aa 03e9 | | Declare_Variable Discrete,Duplicate
00ab 00e3 | | Load_Encached Natural_Cache
00ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ad 03e9 | | Declare_Variable Discrete,Duplicate
00ae 03e9 | | Declare_Variable Discrete,Duplicate
00af 03e9 | | Declare_Variable Discrete,Duplicate
00b0 00e7 | | Load_Encached Duration_Cache
00b1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b2 03e9 | | Declare_Variable Discrete,Duplicate
00b3 03e9 | | Declare_Variable Discrete,Duplicate
00b4 00e7 | | Load_Encached Duration_Cache
00b5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b6 03e9 | | Declare_Variable Discrete,Duplicate
00b7 03e9 | | Declare_Variable Discrete,Duplicate
00b8 00e7 | | Load_Encached Duration_Cache
00b9 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ba 03e9 | | Declare_Variable Discrete,Duplicate
00bb 03e9 | | Declare_Variable Discrete,Duplicate
00bc 03e9 | | Declare_Variable Discrete,Duplicate
00bd e00a | | Load 0x0,0xa
00be 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00bf 0322 | " | Declare_Variable Record
00c0 e00b | | Load 0x0,0xb
00c1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c2 029f 048b | | Declare_Subprogram INIT_0488,For_Call
00c4 029f 04a3 | | Declare_Subprogram INIT_04a0,For_Call
00c6 029f 04c3 | | Declare_Subprogram INIT_04c0,For_Call
00c8 BODY_0080:
00c8 4802 |H | Short_Literal 0x2
00c9 0092 0587 | | Action Push_String_Extended,0x587 ; "Date"
00cb e220 | | Load 0x1,0x20
00cc 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00cd 4802 |H | Short_Literal 0x2
00ce 0092 0588 | | Action Push_String_Extended,0x588 ; "Ada"
00d0 e220 | | Load 0x1,0x20
00d1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00d2 4802 |H | Short_Literal 0x2
00d3 0092 0589 | | Action Push_String_Extended,0x589 ; "File"
00d5 e220 | | Load 0x1,0x20
00d6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00d7 4802 |H | Short_Literal 0x2
00d8 0092 058a | | Action Push_String_Extended,0x58a ; "Action"
00da e220 | | Load 0x1,0x20
00db 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00dc 4802 |H | Short_Literal 0x2
00dd 0092 058b | | Action Push_String_Extended,0x58b ; "Directory"
00df e220 | | Load 0x1,0x20
00e0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00e1 4802 |H | Short_Literal 0x2
00e2 0092 058c | | Action Push_String_Extended,0x58c ; "DDB"
00e4 e220 | | Load 0x1,0x20
00e5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00e6 4800 |H | Short_Literal 0x0
00e7 0092 0587 | | Action Push_String_Extended,0x587 ; "Date"
00e9 e402 | | Load 0x2,0x2
00ea 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00eb e221 | ! | Load 0x1,0x21
00ec 0c01 | | Execute_Immediate Greater_Equal,0x1
00ed 6805 |h | Jump_Zero 0xf3
00ee 4801 |H | Short_Literal 0x1
00ef 0092 058d | | Action Push_String_Extended,0x58d ; "Volume 1"
00f1 e402 | | Load 0x2,0x2
00f2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f3 e221 | ! | Load 0x1,0x21
00f4 0c02 | | Execute_Immediate Greater_Equal,0x2
00f5 6805 |h | Jump_Zero 0xfb
00f6 4801 |H | Short_Literal 0x1
00f7 0092 058e | | Action Push_String_Extended,0x58e ; "Volume 2"
00f9 e402 | | Load 0x2,0x2
00fa 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00fb e221 | ! | Load 0x1,0x21
00fc 0c03 | | Execute_Immediate Greater_Equal,0x3
00fd 6805 |h | Jump_Zero 0x103
00fe 4801 |H | Short_Literal 0x1
00ff 0092 058f | | Action Push_String_Extended,0x58f ; "Volume 3"
0101 e402 | | Load 0x2,0x2
0102 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0103 e221 | ! | Load 0x1,0x21
0104 0c04 | | Execute_Immediate Greater_Equal,0x4
0105 6805 |h | Jump_Zero 0x10b
0106 4801 |H | Short_Literal 0x1
0107 0092 0590 | | Action Push_String_Extended,0x590 ; "Volume 4"
0109 e402 | | Load 0x2,0x2
010a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
010b e21f | | Load 0x1,0x1f
010c 0c01 | | Execute_Immediate Greater_Equal,0x1
010d 6819 |h | Jump_Zero 0x127
010e 4801 |H | Short_Literal 0x1
010f e21e | | Load 0x1,0x1e
0110 e21d | | Load 0x1,0x1d
0111 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0112 e403 | | Load 0x2,0x3
0113 017d | } | Execute Record,Structure_Write
0114 e403 | | Load 0x2,0x3
0115 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0116 e422 | " | Load 0x2,0x22
0117 017d | } | Execute Record,Structure_Write
0118 e422 | " | Load 0x2,0x22
0119 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
011a a423 | # | Store_Unchecked 0x2,0x23
011b 480c |H | Short_Literal 0xc
011c e422 | " | Load 0x2,0x22
011d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
011e 4800 |H | Short_Literal 0x0
011f e422 | " | Load 0x2,0x22
0120 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0121 4800 |H | Short_Literal 0x0
0122 e422 | " | Load 0x2,0x22
0123 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0124 4800 |H | Short_Literal 0x0
0125 e422 | " | Load 0x2,0x22
0126 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0127 00cf | | Action Mark_Auxiliary
0128 e21f | | Load 0x1,0x1f
0129 4801 |H | Short_Literal 0x1
012a 0263 | c | Execute Discrete,Above_Bound
012b 7079 |py | Jump_Nonzero 0x1a5
012c 00d8 | | Load_Top At_Offset_0
012d e21e | | Load 0x1,0x1e
012e e21d | | Load 0x1,0x1d
012f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0130 e403 | | Load 0x2,0x3
0131 017d | } | Execute Record,Structure_Write
0132 e403 | | Load 0x2,0x3
0133 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0134 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0135 e423 | # | Load 0x2,0x23
0136 027e | ~ | Execute Discrete,Not_Equal
0137 6816 |h | Jump_Zero 0x14e
0138 e422 | " | Load 0x2,0x22
0139 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013a 60ad |` | Indirect_Literal Discrete,0x1e8,{0x00000000, 0x0000076d}
013b 027e | ~ | Execute Discrete,Not_Equal
013c 6801 |h | Jump_Zero 0x13e
013d 8426 | & | Call 0x2,0x26
013e e403 | | Load 0x2,0x3
013f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0140 e422 | " | Load 0x2,0x22
0141 017d | } | Execute Record,Structure_Write
0142 480c |H | Short_Literal 0xc
0143 e422 | " | Load 0x2,0x22
0144 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0145 4800 |H | Short_Literal 0x0
0146 e422 | " | Load 0x2,0x22
0147 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0148 4800 |H | Short_Literal 0x0
0149 e422 | " | Load 0x2,0x22
014a 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
014b 4800 |H | Short_Literal 0x0
014c e422 | " | Load 0x2,0x22
014d 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
014e e418 | | Load 0x2,0x18
014f e404 | | Load 0x2,0x4
0150 e40a | | Load 0x2,0xa
0151 0092 0588 | | Action Push_String_Extended,0x588 ; "Ada"
0153 8424 | $ | Call 0x2,0x24
0154 c40a | | Store 0x2,0xa
0155 c404 | | Store 0x2,0x4
0156 c418 | | Store 0x2,0x18
0157 e419 | | Load 0x2,0x19
0158 e405 | | Load 0x2,0x5
0159 e40b | | Load 0x2,0xb
015a 0092 0589 | | Action Push_String_Extended,0x589 ; "File"
015c 8424 | $ | Call 0x2,0x24
015d c40b | | Store 0x2,0xb
015e c405 | | Store 0x2,0x5
015f c419 | | Store 0x2,0x19
0160 e41a | | Load 0x2,0x1a
0161 e406 | | Load 0x2,0x6
0162 e40c | | Load 0x2,0xc
0163 0092 058a | | Action Push_String_Extended,0x58a ; "Action"
0165 8424 | $ | Call 0x2,0x24
0166 c40c | | Store 0x2,0xc
0167 c406 | | Store 0x2,0x6
0168 c41a | | Store 0x2,0x1a
0169 e41c | | Load 0x2,0x1c
016a e40e | | Load 0x2,0xe
016b e408 | | Load 0x2,0x8
016c 0092 058b | | Action Push_String_Extended,0x58b ; "Directory"
016e 8424 | $ | Call 0x2,0x24
016f c408 | | Store 0x2,0x8
0170 c40e | | Store 0x2,0xe
0171 c41c | | Store 0x2,0x1c
0172 e41d | | Load 0x2,0x1d
0173 e40f | | Load 0x2,0xf
0174 e409 | | Load 0x2,0x9
0175 0092 0591 | | Action Push_String_Extended,0x591 ; "Ddb"
0177 8424 | $ | Call 0x2,0x24
0178 c409 | | Store 0x2,0x9
0179 c40f | | Store 0x2,0xf
017a c41d | | Store 0x2,0x1d
017b e41e | | Load 0x2,0x1e
017c e410 | | Load 0x2,0x10
017d e414 | | Load 0x2,0x14
017e 0092 0592 | | Action Push_String_Extended,0x592 ; "Disk1"
0180 8424 | $ | Call 0x2,0x24
0181 c414 | | Store 0x2,0x14
0182 c410 | | Store 0x2,0x10
0183 c41e | | Store 0x2,0x1e
0184 e41f | | Load 0x2,0x1f
0185 e411 | | Load 0x2,0x11
0186 e415 | | Load 0x2,0x15
0187 0092 0593 | | Action Push_String_Extended,0x593 ; "Disk2"
0189 8424 | $ | Call 0x2,0x24
018a c415 | | Store 0x2,0x15
018b c411 | | Store 0x2,0x11
018c c41f | | Store 0x2,0x1f
018d e420 | | Load 0x2,0x20
018e e412 | | Load 0x2,0x12
018f e416 | | Load 0x2,0x16
0190 0092 0594 | | Action Push_String_Extended,0x594 ; "Disk3"
0192 8424 | $ | Call 0x2,0x24
0193 c416 | | Store 0x2,0x16
0194 c412 | | Store 0x2,0x12
0195 c420 | | Store 0x2,0x20
0196 e421 | ! | Load 0x2,0x21
0197 e413 | | Load 0x2,0x13
0198 e417 | | Load 0x2,0x17
0199 0092 0595 | | Action Push_String_Extended,0x595 ; "Disk4"
019b 8424 | $ | Call 0x2,0x24
019c c417 | | Store 0x2,0x17
019d c413 | | Store 0x2,0x13
019e c421 | ! | Store 0x2,0x21
019f e403 | | Load 0x2,0x3
01a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01a1 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01a2 a423 | # | Store_Unchecked 0x2,0x23
01a3 00c8 | | Action Pop_Auxiliary_Range
01a4 3f87 |? | Loop_Increasing 0x12c
01a5 00ce | | Action Pop_Auxiliary
01a6 8426 | & | Call 0x2,0x26
01a7 4802 |H | Short_Literal 0x2
01a8 e00c | | Load 0x0,0xc
01a9 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01aa 0092 0596 | | Action Push_String_Extended,0x596 ; "Daemon Information Display"
01ac e00c | | Load 0x0,0xc
01ad 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ae 0092 0597 | | Action Push_String_Extended,0x597 ; "--------------------------"
01b0 e00c | | Load 0x0,0xc
01b1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01b2 4801 |H | Short_Literal 0x1
01b3 e00c | | Load 0x0,0xc
01b4 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01b5 0092 0598 | | Action Push_String_Extended,0x598 ; "Shows at end of day final run of daemon. This"
01b7 e00c | | Load 0x0,0xc
01b8 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01b9 0092 0599 | | Action Push_String_Extended,0x599 ; "indicates size before compaction and final size"
01bb e00c | | Load 0x0,0xc
01bc 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01bd 0092 059a | | Action Push_String_Extended,0x59a ; "in pages."
01bf e00c | | Load 0x0,0xc
01c0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01c1 4802 |H | Short_Literal 0x2
01c2 e00c | | Load 0x0,0xc
01c3 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01c4 e00c | | Load 0x0,0xc
01c5 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01c6 e220 | | Load 0x1,0x20
01c7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01c8 0092 059b | | Action Push_String_Extended,0x59b ; "\x0c"
01ca e00c | | Load 0x0,0xc
01cb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01cc 4802 |H | Short_Literal 0x2
01cd e00c | | Load 0x0,0xc
01ce 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01cf 0092 059c | | Action Push_String_Extended,0x59c ; "For each disk, this display indicates the amount of"
01d1 e00c | | Load 0x0,0xc
01d2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d3 0092 059d | | Action Push_String_Extended,0x59d ; "used space after garbage collection has finished that"
01d5 e00c | | Load 0x0,0xc
01d6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d7 0092 059e | | Action Push_String_Extended,0x59e ; "day."
01d9 e00c | | Load 0x0,0xc
01da 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01db 4802 |H | Short_Literal 0x2
01dc e00c | | Load 0x0,0xc
01dd 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
01de e00c | | Load 0x0,0xc
01df 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01e0 e402 | | Load 0x2,0x2
01e1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e2 0092 059b | | Action Push_String_Extended,0x59b ; "\x0c"
01e4 e00c | | Load 0x0,0xc
01e5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e7 0000 | | .XXX[0x1]
01e8 0000 0000 | | .LITERAL {0x00000000, 0x0000076d}
01ec 0000 0000 | | .BLANK 0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0220 | | .CONST 0x0220 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0014 | | .CONST 0x0014 ; Number of locals
01f3 INIT_01f0:
01f3 e21c | | Load 0x1,0x1c
01f4 0322 | " | Declare_Variable Record
01f5 00d8 | | Load_Top At_Offset_0
01f6 1c00 | | Execute_Immediate Run_Utility,0x0
01f7 e00d | | Load 0x0,0xd
01f8 e00e | | Load 0x0,0xe
01f9 e221 | ! | Load 0x1,0x21
01fa 0a01 | | Execute_Immediate Plus,0x1
01fb 00d8 | | Load_Top At_Offset_0
01fc 00e4 | | Load_Encached Positive_Cache
01fd 0260 | ` | Execute Discrete,In_Type
01fe 7001 |p | Jump_Nonzero 0x200
01ff 0801 | | Execute_Immediate Raise,0x1
0200 0092 0586 | | Action Push_String_Extended,0x586 ; " "
0202 e007 | | Load 0x0,0x7
0203 0387 | | Declare_Variable Package
0204 00d8 | | Load_Top At_Offset_0
0205 020f | | Execute Module,Activate
0206 00e3 | | Load_Encached Natural_Cache
0207 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0208 03e9 | | Declare_Variable Discrete,Duplicate
0209 03e9 | | Declare_Variable Discrete,Duplicate
020a 03e9 | | Declare_Variable Discrete,Duplicate
020b 00e3 | | Load_Encached Natural_Cache
020c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
020d 03e9 | | Declare_Variable Discrete,Duplicate
020e 03e9 | | Declare_Variable Discrete,Duplicate
020f 03e9 | | Declare_Variable Discrete,Duplicate
0210 00e7 | | Load_Encached Duration_Cache
0211 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0212 03e9 | | Declare_Variable Discrete,Duplicate
0213 03e9 | | Declare_Variable Discrete,Duplicate
0214 03e9 | | Declare_Variable Discrete,Duplicate
0215 e00a | | Load 0x0,0xa
0216 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0217 0322 | " | Declare_Variable Record
0218 e00b | | Load 0x0,0xb
0219 1b0f | | Execute Package,Field_Read,Field_Number 0xf
021a 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
021c 029f 04fb | | Declare_Subprogram INIT_04f8,For_Call
021e 029f 0533 | 3| Declare_Subprogram INIT_0530,For_Call
0220 BODY_01f0:
0220 4800 |H | Short_Literal 0x0
0221 0092 0587 | | Action Push_String_Extended,0x587 ; "Date"
0223 e403 | | Load 0x2,0x3
0224 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0225 e221 | ! | Load 0x1,0x21
0226 0c01 | | Execute_Immediate Greater_Equal,0x1
0227 6805 |h | Jump_Zero 0x22d
0228 4800 |H | Short_Literal 0x0
0229 0092 059f | | Action Push_String_Extended,0x59f ; "Vol 1"
022b e403 | | Load 0x2,0x3
022c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
022d e221 | ! | Load 0x1,0x21
022e 0c02 | | Execute_Immediate Greater_Equal,0x2
022f 6805 |h | Jump_Zero 0x235
0230 4800 |H | Short_Literal 0x0
0231 0092 05a0 | | Action Push_String_Extended,0x5a0 ; "Vol 2"
0233 e403 | | Load 0x2,0x3
0234 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0235 e221 | ! | Load 0x1,0x21
0236 0c03 | | Execute_Immediate Greater_Equal,0x3
0237 6805 |h | Jump_Zero 0x23d
0238 4800 |H | Short_Literal 0x0
0239 0092 05a1 | | Action Push_String_Extended,0x5a1 ; "Vol 3"
023b e403 | | Load 0x2,0x3
023c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
023d e221 | ! | Load 0x1,0x21
023e 0c04 | | Execute_Immediate Greater_Equal,0x4
023f 6805 |h | Jump_Zero 0x245
0240 4800 |H | Short_Literal 0x0
0241 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "Vol 4"
0243 e403 | | Load 0x2,0x3
0244 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0245 e21f | | Load 0x1,0x1f
0246 0c01 | | Execute_Immediate Greater_Equal,0x1
0247 6819 |h | Jump_Zero 0x261
0248 4801 |H | Short_Literal 0x1
0249 e21e | | Load 0x1,0x1e
024a e21d | | Load 0x1,0x1d
024b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
024c e402 | | Load 0x2,0x2
024d 017d | } | Execute Record,Structure_Write
024e e402 | | Load 0x2,0x2
024f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0250 e410 | | Load 0x2,0x10
0251 017d | } | Execute Record,Structure_Write
0252 e410 | | Load 0x2,0x10
0253 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0254 a411 | | Store_Unchecked 0x2,0x11
0255 480c |H | Short_Literal 0xc
0256 e410 | | Load 0x2,0x10
0257 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0258 4800 |H | Short_Literal 0x0
0259 e410 | | Load 0x2,0x10
025a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
025b 4800 |H | Short_Literal 0x0
025c e410 | | Load 0x2,0x10
025d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
025e 4800 |H | Short_Literal 0x0
025f e410 | | Load 0x2,0x10
0260 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0261 00cf | | Action Mark_Auxiliary
0262 e21f | | Load 0x1,0x1f
0263 4801 |H | Short_Literal 0x1
0264 0263 | c | Execute Discrete,Above_Bound
0265 704c |pL | Jump_Nonzero 0x2b2
0266 00d8 | | Load_Top At_Offset_0
0267 e21e | | Load 0x1,0x1e
0268 e21d | | Load 0x1,0x1d
0269 1815 | | Execute Package,Field_Execute,Field_Number 0x15
026a e402 | | Load 0x2,0x2
026b 017d | } | Execute Record,Structure_Write
026c e402 | | Load 0x2,0x2
026d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
026e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
026f e411 | | Load 0x2,0x11
0270 027e | ~ | Execute Discrete,Not_Equal
0271 6816 |h | Jump_Zero 0x288
0272 e410 | | Load 0x2,0x10
0273 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0274 6773 |gs | Indirect_Literal Discrete,0x1e8,{0x00000000, 0x0000076d}
0275 027e | ~ | Execute Discrete,Not_Equal
0276 6801 |h | Jump_Zero 0x278
0277 8414 | | Call 0x2,0x14
0278 e402 | | Load 0x2,0x2
0279 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
027a e410 | | Load 0x2,0x10
027b 017d | } | Execute Record,Structure_Write
027c 480c |H | Short_Literal 0xc
027d e410 | | Load 0x2,0x10
027e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
027f 4800 |H | Short_Literal 0x0
0280 e410 | | Load 0x2,0x10
0281 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0282 4800 |H | Short_Literal 0x0
0283 e410 | | Load 0x2,0x10
0284 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0285 4800 |H | Short_Literal 0x0
0286 e410 | | Load 0x2,0x10
0287 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0288 e40c | | Load 0x2,0xc
0289 e404 | | Load 0x2,0x4
028a e408 | | Load 0x2,0x8
028b 0092 0592 | | Action Push_String_Extended,0x592 ; "Disk1"
028d 8412 | | Call 0x2,0x12
028e c408 | | Store 0x2,0x8
028f c404 | | Store 0x2,0x4
0290 c40c | | Store 0x2,0xc
0291 e40d | | Load 0x2,0xd
0292 e405 | | Load 0x2,0x5
0293 e409 | | Load 0x2,0x9
0294 0092 0593 | | Action Push_String_Extended,0x593 ; "Disk2"
0296 8412 | | Call 0x2,0x12
0297 c409 | | Store 0x2,0x9
0298 c405 | | Store 0x2,0x5
0299 c40d | | Store 0x2,0xd
029a e40e | | Load 0x2,0xe
029b e406 | | Load 0x2,0x6
029c e40a | | Load 0x2,0xa
029d 0092 0594 | | Action Push_String_Extended,0x594 ; "Disk3"
029f 8412 | | Call 0x2,0x12
02a0 c40a | | Store 0x2,0xa
02a1 c406 | | Store 0x2,0x6
02a2 c40e | | Store 0x2,0xe
02a3 e40f | | Load 0x2,0xf
02a4 e407 | | Load 0x2,0x7
02a5 e40b | | Load 0x2,0xb
02a6 0092 0595 | | Action Push_String_Extended,0x595 ; "Disk4"
02a8 8412 | | Call 0x2,0x12
02a9 c40b | | Store 0x2,0xb
02aa c407 | | Store 0x2,0x7
02ab c40f | | Store 0x2,0xf
02ac e402 | | Load 0x2,0x2
02ad 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ae 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02af a411 | | Store_Unchecked 0x2,0x11
02b0 00c8 | | Action Pop_Auxiliary_Range
02b1 3fb4 |? | Loop_Increasing 0x266
02b2 00ce | | Action Pop_Auxiliary
02b3 8414 | | Call 0x2,0x14
02b4 4802 |H | Short_Literal 0x2
02b5 e00c | | Load 0x0,0xc
02b6 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02b7 0092 05a3 | | Action Push_String_Extended,0x5a3 ; "Disk Daemon Information"
02b9 e00c | | Load 0x0,0xc
02ba 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02bb 0092 05a4 | | Action Push_String_Extended,0x5a4 ; "-----------------------"
02bd e00c | | Load 0x0,0xc
02be 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02bf 4801 |H | Short_Literal 0x1
02c0 e00c | | Load 0x0,0xc
02c1 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02c2 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "Shows, for each day, last disk garbage collector"
02c4 e00c | | Load 0x0,0xc
02c5 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02c6 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "run and amount of used space before and after the"
02c8 e00c | | Load 0x0,0xc
02c9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ca 0092 05a7 | | Action Push_String_Extended,0x5a7 ; "collection in megabytes. The time in minutes to do"
02cc e00c | | Load 0x0,0xc
02cd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ce 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "the collection is also shown."
02d0 e00c | | Load 0x0,0xc
02d1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02d2 4802 |H | Short_Literal 0x2
02d3 e00c | | Load 0x0,0xc
02d4 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02d5 e00c | | Load 0x0,0xc
02d6 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
02d7 e403 | | Load 0x2,0x3
02d8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02da 0000 0000 | | .BLANK 0000[0x6]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02ea | | .CONST 0x02ea ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0003 | | .CONST 0x0003 ; Number of locals
02e3 INIT_02e0:
02e3 e21c | | Load 0x1,0x1c
02e4 0322 | " | Declare_Variable Record
02e5 00d8 | | Load_Top At_Offset_0
02e6 1c00 | | Execute_Immediate Run_Utility,0x0
02e7 e5fd | | Load 0x2,-0x3
02e8 e5fe | | Load 0x2,-0x2
02e9 8224 | $ | Call 0x1,0x24
02ea BODY_02e0:
02ea e21f | | Load 0x1,0x1f
02eb 0a01 | | Execute_Immediate Plus,0x1
02ec c21f | | Store 0x1,0x1f
02ed e5ff | | Load 0x2,-0x1
02ee e402 | | Load 0x2,0x2
02ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02f0 e402 | | Load 0x2,0x2
02f1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02f2 e403 | | Load 0x2,0x3
02f3 e00f | | Load 0x0,0xf
02f4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02f5 00d1 | | Pop_Control Pop_Count_1
02f6 4800 |H | Short_Literal 0x0
02f7 e402 | | Load 0x2,0x2
02f8 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02f9 4800 |H | Short_Literal 0x0
02fa e402 | | Load 0x2,0x2
02fb 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02fc e5fd | | Load 0x2,-0x3
02fd e001 | | Load 0x0,0x1
02fe 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
02ff 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0300 e402 | | Load 0x2,0x2
0301 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0302 e21e | | Load 0x1,0x1e
0303 4800 |H | Short_Literal 0x0
0304 e402 | | Load 0x2,0x2
0305 e21f | | Load 0x1,0x1f
0306 00d8 | | Load_Top At_Offset_0
0307 00e4 | | Load_Encached Positive_Cache
0308 0260 | ` | Execute Discrete,In_Type
0309 7001 |p | Jump_Nonzero 0x30b
030a 0801 | | Execute_Immediate Raise,0x1
030b e21d | | Load 0x1,0x1d
030c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
030d c21e | | Store 0x1,0x1e
030e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
030f 0000 | | .XXX[0x1]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 031b | | .CONST 0x031b ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0004 | | .CONST 0x0004 ; Number of locals
0313 INIT_0310:
0313 e21c | | Load 0x1,0x1c
0314 0322 | " | Declare_Variable Record
0315 00d8 | | Load_Top At_Offset_0
0316 1c00 | | Execute_Immediate Run_Utility,0x0
0317 e5fd | | Load 0x2,-0x3
0318 e5fe | | Load 0x2,-0x2
0319 8224 | $ | Call 0x1,0x24
031a e21f | | Load 0x1,0x1f
031b BODY_0310:
031b 00cf | | Action Mark_Auxiliary
031c e404 | | Load 0x2,0x4
031d 00d8 | | Load_Top At_Offset_0
031e 00e4 | | Load_Encached Positive_Cache
031f 0260 | ` | Execute Discrete,In_Type
0320 7001 |p | Jump_Nonzero 0x322
0321 0801 | | Execute_Immediate Raise,0x1
0322 e21e | | Load 0x1,0x1e
0323 e21d | | Load 0x1,0x1d
0324 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0325 e402 | | Load 0x2,0x2
0326 017d | } | Execute Record,Structure_Write
0327 e402 | | Load 0x2,0x2
0328 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0329 e00f | | Load 0x0,0xf
032a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
032b e403 | | Load 0x2,0x3
032c 01df | | Execute Vector,Equal
032d 680a |h | Jump_Zero 0x338
032e e402 | | Load 0x2,0x2
032f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0330 6815 |h | Jump_Zero 0x346
0331 0092 05a9 | | Action Push_String_Extended,0x5a9 ; "*** Inconsistent daemon entry: "
0333 e403 | | Load 0x2,0x3
0334 01cc | | Execute Vector,Catenate
0335 e00c | | Load 0x0,0xc
0336 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0337 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0338 e404 | | Load 0x2,0x4
0339 0aff | | Execute_Immediate Plus,-0x1
033a c404 | | Store 0x2,0x4
033b e404 | | Load 0x2,0x4
033c 7007 |p | Jump_Nonzero 0x344
033d 0092 05aa | | Action Push_String_Extended,0x5aa ; "*** Unbalanced daemon start/end: "
033f e403 | | Load 0x2,0x3
0340 01cc | | Execute Vector,Catenate
0341 e00c | | Load 0x0,0xc
0342 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0343 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0344 00c9 | | Action Pop_Auxiliary_Loop
0345 7fd6 | | Jump 0x31c
0346 00ce | | Action Pop_Auxiliary
0347 e402 | | Load 0x2,0x2
0348 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0349 00e2 | | Load_Encached Integer_Cache
034a 025e | ^ | Execute Discrete,Convert
034b 0092 05ab | | Action Push_String_Extended,0x5ab ; "new = "
034d e5fd | | Load 0x2,-0x3
034e 8226 | & | Call 0x1,0x26
034f e402 | | Load 0x2,0x2
0350 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0351 e402 | | Load 0x2,0x2
0352 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0353 00e2 | | Load_Encached Integer_Cache
0354 025e | ^ | Execute Discrete,Convert
0355 0092 05ac | | Action Push_String_Extended,0x5ac ; "old = "
0357 e5fd | | Load 0x2,-0x3
0358 8226 | & | Call 0x1,0x26
0359 e402 | | Load 0x2,0x2
035a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
035b e402 | | Load 0x2,0x2
035c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
035d e00a | | Load 0x0,0xa
035e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
035f e5ff | | Load 0x2,-0x1
0360 e00a | | Load 0x0,0xa
0361 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0362 e010 | | Load 0x0,0x10
0363 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0364 e402 | | Load 0x2,0x2
0365 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0366 e21e | | Load 0x1,0x1e
0367 4800 |H | Short_Literal 0x0
0368 e402 | | Load 0x2,0x2
0369 e21f | | Load 0x1,0x1f
036a 00d8 | | Load_Top At_Offset_0
036b 00e4 | | Load_Encached Positive_Cache
036c 0260 | ` | Execute Discrete,In_Type
036d 7001 |p | Jump_Nonzero 0x36f
036e 0801 | | Execute_Immediate Raise,0x1
036f e21d | | Load 0x1,0x1d
0370 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0371 c21e | | Store 0x1,0x1e
0372 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0373 0000 0000 | | .BLANK 0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b e21d | | Load 0x1,0x1d
037c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
037d 4861 |Ha | Short_Literal 0x61
037e e21d | | Load 0x1,0x1d
037f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0380 c21e | | Store 0x1,0x1e
0381 4800 |H | Short_Literal 0x0
0382 a21f | | Store_Unchecked 0x1,0x1f
0383 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0384 0000 0000 | | .BLANK 0000[0x4]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b e21e | | Load 0x1,0x1e
038c e21d | | Load 0x1,0x1d
038d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
038e c21e | | Store 0x1,0x1e
038f 4800 |H | Short_Literal 0x0
0390 a21f | | Store_Unchecked 0x1,0x1f
0391 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0392 0000 0000 | | .BLANK 0000[0x6]
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 4801 |H | Short_Literal 0x1
039c a5ff | | Store_Unchecked 0x2,-0x1
039d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
039e 0000 0000 | | .XXX[0x2]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 e5ff | | Load 0x2,-0x1
03a4 0a01 | | Execute_Immediate Plus,0x1
03a5 c5ff | | Store 0x2,-0x1
03a6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03a7 0000 | | .XXX[0x1]
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 e5ff | | Load 0x2,-0x1
03ac e21f | | Load 0x1,0x1f
03ad 027d | } | Execute Discrete,Greater
03ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03af 0000 | | .XXX[0x1]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b3 | | .CONST 0x03b3 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0001 | | .CONST 0x0001 ; Number of locals
03b3 BODY_03b0:
03b3 INIT_03b0:
03b3 e5ff | | Load 0x2,-0x1
03b4 00d8 | | Load_Top At_Offset_0
03b5 00e4 | | Load_Encached Positive_Cache
03b6 0260 | ` | Execute Discrete,In_Type
03b7 7001 |p | Jump_Nonzero 0x3b9
03b8 0801 | | Execute_Immediate Raise,0x1
03b9 e21e | | Load 0x1,0x1e
03ba e21d | | Load 0x1,0x1d
03bb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03bd 0000 0000 | | .XXX[0x3]
03bf 0000 | |
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 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c5 0000 0000 | | .XXX[0x3]
03c7 0000 | |
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 4801 |H | Short_Literal 0x1
03cc e5ff | | Load 0x2,-0x1
03cd e5fe | | Load 0x2,-0x2
03ce e011 | | Load 0x0,0x11
03cf 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03d0 0e00 | | Execute_Immediate Not_Equal,0x0
03d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03d2 0000 0000 | | .BLANK 0000[0x6]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db e5ff | | Load 0x2,-0x1
03dc e5fe | | Load 0x2,-0x2
03dd 027d | } | Execute Discrete,Greater
03de 6802 |h | Jump_Zero 0x3e1
03df e5ff | | Load 0x2,-0x1
03e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e1 e5fe | | Load 0x2,-0x2
03e2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e3 0000 0000 | | .BLANK 0000[0x5]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb e5ff | | Load 0x2,-0x1
03ec 0092 05ad | | Action Push_String_Extended,0x5ad ; "Disk"
03ee 01de | | Execute Vector,Not_Equal
03ef 6802 |h | Jump_Zero 0x3f2
03f0 e5ff | | Load 0x2,-0x1
03f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03f2 0092 05ae | | Action Push_String_Extended,0x5ae ; "volume 1"
03f4 e5fe | | Load 0x2,-0x2
03f5 8222 | " | Call 0x1,0x22
03f6 6807 |h | Jump_Zero 0x3fe
03f7 4801 |H | Short_Literal 0x1
03f8 e221 | ! | Load 0x1,0x21
03f9 8223 | # | Call 0x1,0x23
03fa c221 | ! | Store 0x1,0x21
03fb 0092 0592 | | Action Push_String_Extended,0x592 ; "Disk1"
03fd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03fe 0092 05af | | Action Push_String_Extended,0x5af ; "volume 2"
0400 e5fe | | Load 0x2,-0x2
0401 8222 | " | Call 0x1,0x22
0402 6807 |h | Jump_Zero 0x40a
0403 4802 |H | Short_Literal 0x2
0404 e221 | ! | Load 0x1,0x21
0405 8223 | # | Call 0x1,0x23
0406 c221 | ! | Store 0x1,0x21
0407 0092 0593 | | Action Push_String_Extended,0x593 ; "Disk2"
0409 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
040a 0092 05b0 | | Action Push_String_Extended,0x5b0 ; "volume 3"
040c e5fe | | Load 0x2,-0x2
040d 8222 | " | Call 0x1,0x22
040e 6807 |h | Jump_Zero 0x416
040f 4803 |H | Short_Literal 0x3
0410 e221 | ! | Load 0x1,0x21
0411 8223 | # | Call 0x1,0x23
0412 c221 | ! | Store 0x1,0x21
0413 0092 0594 | | Action Push_String_Extended,0x594 ; "Disk3"
0415 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0416 0092 05b1 | | Action Push_String_Extended,0x5b1 ; "volume 4"
0418 e5fe | | Load 0x2,-0x2
0419 8222 | " | Call 0x1,0x22
041a 6807 |h | Jump_Zero 0x422
041b 4804 |H | Short_Literal 0x4
041c e221 | ! | Load 0x1,0x21
041d 8223 | # | Call 0x1,0x23
041e c221 | ! | Store 0x1,0x21
041f 0092 0595 | | Action Push_String_Extended,0x595 ; "Disk4"
0421 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0422 e5ff | | Load 0x2,-0x1
0423 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0424 0000 0000 | | .BLANK 0000[0x4]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042c | , | .CONST 0x042c ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0002 | | .CONST 0x0002 ; Number of locals
042b INIT_0428:
042b 00e3 | | Load_Encached Natural_Cache
042c BODY_0428:
042c e5fe | | Load 0x2,-0x2
042d a402 | | Store_Unchecked 0x2,0x2
042e 00cf | | Action Mark_Auxiliary
042f 7812 |x | Jump 0x442
0430 e402 | | Load 0x2,0x2
0431 e5ff | | Load 0x2,-0x1
0432 01d7 | | Execute Vector,Field_Read
0433 e5fd | | Load 0x2,-0x3
0434 027f | | Execute Discrete,Equal
0435 6808 |h | Jump_Zero 0x43e
0436 e402 | | Load 0x2,0x2
0437 0aff | | Execute_Immediate Plus,-0x1
0438 00d8 | | Load_Top At_Offset_0
0439 00e3 | | Load_Encached Natural_Cache
043a 0260 | ` | Execute Discrete,In_Type
043b 7001 |p | Jump_Nonzero 0x43d
043c 0801 | | Execute_Immediate Raise,0x1
043d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
043e e402 | | Load 0x2,0x2
043f 0a01 | | Execute_Immediate Plus,0x1
0440 c402 | | Store 0x2,0x2
0441 00c9 | | Action Pop_Auxiliary_Loop
0442 e402 | | Load 0x2,0x2
0443 e5ff | | Load 0x2,-0x1
0444 01dc | | Execute Vector,Last
0445 027a | z | Execute Discrete,Less_Equal
0446 77e9 |w | Jump_Nonzero 0x430
0447 00ce | | Action Pop_Auxiliary
0448 e5ff | | Load 0x2,-0x1
0449 01dc | | Execute Vector,Last
044a 00d8 | | Load_Top At_Offset_0
044b 00e3 | | Load_Encached Natural_Cache
044c 0260 | ` | Execute Discrete,In_Type
044d 7001 |p | Jump_Nonzero 0x44f
044e 0801 | | Execute_Immediate Raise,0x1
044f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0455 | U | .CONST 0x0455 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0003 | | .CONST 0x0003 ; Number of locals
0453 INIT_0450:
0453 00e3 | | Load_Encached Natural_Cache
0454 03e9 | | Declare_Variable Discrete,Duplicate
0455 BODY_0450:
0455 4801 |H | Short_Literal 0x1
0456 e5ff | | Load 0x2,-0x1
0457 e5fe | | Load 0x2,-0x2
0458 e011 | | Load 0x0,0x11
0459 181d | | Execute Package,Field_Execute,Field_Number 0x1d
045a a402 | | Store_Unchecked 0x2,0x2
045b e402 | | Load 0x2,0x2
045c 6823 |h# | Jump_Zero 0x480
045d e402 | | Load 0x2,0x2
045e e5fe | | Load 0x2,-0x2
045f 01db | | Execute Vector,Length
0460 0273 | s | Execute Discrete,Plus
0461 c402 | | Store 0x2,0x2
0462 4820 |H | Short_Literal 0x20
0463 e402 | | Load 0x2,0x2
0464 00d8 | | Load_Top At_Offset_0
0465 00e4 | | Load_Encached Positive_Cache
0466 0260 | ` | Execute Discrete,In_Type
0467 7001 |p | Jump_Nonzero 0x469
0468 0801 | | Execute_Immediate Raise,0x1
0469 e5ff | | Load 0x2,-0x1
046a 8225 | % | Call 0x1,0x25
046b a403 | | Store_Unchecked 0x2,0x3
046c 00d8 | | Load_Top At_Offset_0
046d e402 | | Load 0x2,0x2
046e 027b | { | Execute Discrete,Greater_Equal
046f 6810 |h | Jump_Zero 0x480
0470 00d8 | | Load_Top At_Offset_0
0471 e5ff | | Load 0x2,-0x1
0472 01d7 | | Execute Vector,Field_Read
0473 0f3b | ; | Execute_Immediate Equal,0x3b
0474 6803 |h | Jump_Zero 0x478
0475 00d8 | | Load_Top At_Offset_0
0476 0aff | | Execute_Immediate Plus,-0x1
0477 c403 | | Store 0x2,0x3
0478 e402 | | Load 0x2,0x2
0479 e403 | | Load 0x2,0x3
047a e5ff | | Load 0x2,-0x1
047b 01cf | | Execute Vector,Slice_Read
047c 00e2 | | Load_Encached Integer_Cache
047d 00e0 | | Load_Encached Standard_Cache
047e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
047f a5fd | | Store_Unchecked 0x2,-0x3
0480 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0481 0000 0000 | | .BLANK 0000[0x7]
0488 ; --------------------------------------------------------------------------------------
0488 ; SUBPROGRAM
0488 ; --------------------------------------------------------------------------------------
0488 048b | | .CONST 0x048b ; Address of begin
0489 0004 | | .CONST 0x0004 ; Address of exception handler
048a 0001 | | .CONST 0x0001 ; Number of locals
048b BODY_0488:
048b INIT_0488:
048b 4801 |H | Short_Literal 0x1
048c e403 | | Load 0x2,0x3
048d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
048e e00f | | Load 0x0,0xf
048f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0490 e7ff | | Load 0x3,-0x1
0491 e011 | | Load 0x0,0x11
0492 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0493 6809 |h | Jump_Zero 0x49d
0494 e403 | | Load 0x2,0x3
0495 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0496 a7fe | | Store_Unchecked 0x3,-0x2
0497 e403 | | Load 0x2,0x3
0498 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0499 a7fd | | Store_Unchecked 0x3,-0x3
049a e403 | | Load 0x2,0x3
049b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
049c a7fc | | Store_Unchecked 0x3,-0x4
049d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
049e 0000 0000 | | .XXX[0x2]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 e7ff | | Load 0x3,-0x1
04a4 7006 |p | Jump_Nonzero 0x4ab
04a5 e7fe | | Load 0x3,-0x2
04a6 7004 |p | Jump_Nonzero 0x4ab
04a7 00ea | | Load_Encached Null_String_Cache
04a8 e220 | | Load 0x1,0x20
04a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04aa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04ab 4820 |H | Short_Literal 0x20
04ac 4800 |H | Short_Literal 0x0
04ad 480a |H | Short_Literal 0xa
04ae e7fe | | Load 0x3,-0x2
04af e011 | | Load 0x0,0x11
04b0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
04b1 0092 05b2 | | Action Push_String_Extended,0x5b2 ; " ->"
04b3 01cc | | Execute Vector,Catenate
04b4 e7ff | | Load 0x3,-0x1
04b5 00e0 | | Load_Encached Standard_Cache
04b6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04b7 01cc | | Execute Vector,Catenate
04b8 e220 | | Load 0x1,0x20
04b9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ba 4503 |E | Exit_Suprogram New_Top_Offset 0x3
04bb 0000 0000 | | .BLANK 0000[0x5]
04c0 ; --------------------------------------------------------------------------------------
04c0 ; SUBPROGRAM
04c0 ; --------------------------------------------------------------------------------------
04c0 04c5 | | .CONST 0x04c5 ; Address of begin
04c1 0004 | | .CONST 0x0004 ; Address of exception handler
04c2 0002 | | .CONST 0x0002 ; Number of locals
04c3 INIT_04c0:
04c3 029f 055b | [| Declare_Subprogram INIT_0558,For_Call
04c5 BODY_04c0:
04c5 e422 | " | Load 0x2,0x22
04c6 e012 | | Load 0x0,0x12
04c7 180f | | Execute Package,Field_Execute,Field_Number 0xf
04c8 e220 | | Load 0x1,0x20
04c9 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04ca e40a | | Load 0x2,0xa
04cb e404 | | Load 0x2,0x4
04cc 8425 | % | Call 0x2,0x25
04cd e40b | | Load 0x2,0xb
04ce e405 | | Load 0x2,0x5
04cf 8425 | % | Call 0x2,0x25
04d0 e40c | | Load 0x2,0xc
04d1 e406 | | Load 0x2,0x6
04d2 8425 | % | Call 0x2,0x25
04d3 e408 | | Load 0x2,0x8
04d4 e40e | | Load 0x2,0xe
04d5 8425 | % | Call 0x2,0x25
04d6 e409 | | Load 0x2,0x9
04d7 e40f | | Load 0x2,0xf
04d8 8425 | % | Call 0x2,0x25
04d9 e422 | " | Load 0x2,0x22
04da e012 | | Load 0x0,0x12
04db 180f | | Execute Package,Field_Execute,Field_Number 0xf
04dc e402 | | Load 0x2,0x2
04dd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04de 8602 | | Call 0x3,0x2
04df 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 4801 |H | Short_Literal 0x1
04e4 e402 | | Load 0x2,0x2
04e5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04e6 e00f | | Load 0x0,0xf
04e7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
04e8 e7ff | | Load 0x3,-0x1
04e9 e011 | | Load 0x0,0x11
04ea 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
04eb 6809 |h | Jump_Zero 0x4f5
04ec e402 | | Load 0x2,0x2
04ed 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04ee a7fe | | Store_Unchecked 0x3,-0x2
04ef e402 | | Load 0x2,0x2
04f0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
04f1 a7fd | | Store_Unchecked 0x3,-0x3
04f2 e402 | | Load 0x2,0x2
04f3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04f4 a7fc | | Store_Unchecked 0x3,-0x4
04f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04f6 0000 0000 | | .XXX[0x2]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb | | .CONST 0x04fb ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0001 | | .CONST 0x0001 ; Number of locals
04fb BODY_04f8:
04fb INIT_04f8:
04fb e7fe | | Load 0x3,-0x2
04fc 7006 |p | Jump_Nonzero 0x503
04fd e7ff | | Load 0x3,-0x1
04fe 7004 |p | Jump_Nonzero 0x503
04ff 00ea | | Load_Encached Null_String_Cache
0500 e403 | | Load 0x2,0x3
0501 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0502 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0503 4820 |H | Short_Literal 0x20
0504 4800 |H | Short_Literal 0x0
0505 480a |H | Short_Literal 0xa
0506 e7fe | | Load 0x3,-0x2
0507 49f4 |I | Short_Literal 0x1f4
0508 0273 | s | Execute Discrete,Plus
0509 4be8 |K | Short_Literal 0x3e8
050a 0270 | p | Execute Discrete,Divide
050b 00d8 | | Load_Top At_Offset_0
050c 00e2 | | Load_Encached Integer_Cache
050d 0260 | ` | Execute Discrete,In_Type
050e 7001 |p | Jump_Nonzero 0x510
050f 0801 | | Execute_Immediate Raise,0x1
0510 e011 | | Load 0x0,0x11
0511 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0512 0092 05b2 | | Action Push_String_Extended,0x5b2 ; " ->"
0514 01cc | | Execute Vector,Catenate
0515 e7ff | | Load 0x3,-0x1
0516 49f4 |I | Short_Literal 0x1f4
0517 0273 | s | Execute Discrete,Plus
0518 4be8 |K | Short_Literal 0x3e8
0519 0270 | p | Execute Discrete,Divide
051a 00d8 | | Load_Top At_Offset_0
051b 00e2 | | Load_Encached Integer_Cache
051c 0260 | ` | Execute Discrete,In_Type
051d 7001 |p | Jump_Nonzero 0x51f
051e 0801 | | Execute_Immediate Raise,0x1
051f 00e0 | | Load_Encached Standard_Cache
0520 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0521 01cc | | Execute Vector,Catenate
0522 0092 0586 | | Action Push_String_Extended,0x586 ; " "
0524 01cc | | Execute Vector,Catenate
0525 e7fd | | Load 0x3,-0x3
0526 e012 | | Load 0x0,0x12
0527 180e | | Execute Package,Field_Execute,Field_Number 0xe
0528 01cc | | Execute Vector,Catenate
0529 e403 | | Load 0x2,0x3
052a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
052b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
052c 0000 0000 | | .BLANK 0000[0x4]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533 | 3 | .CONST 0x0533 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0001 | | .CONST 0x0001 ; Number of locals
0533 BODY_0530:
0533 INIT_0530:
0533 e410 | | Load 0x2,0x10
0534 e012 | | Load 0x0,0x12
0535 180f | | Execute Package,Field_Execute,Field_Number 0xf
0536 e403 | | Load 0x2,0x3
0537 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0538 e40c | | Load 0x2,0xc
0539 e408 | | Load 0x2,0x8
053a e404 | | Load 0x2,0x4
053b 8413 | | Call 0x2,0x13
053c e221 | ! | Load 0x1,0x21
053d 0c02 | | Execute_Immediate Greater_Equal,0x2
053e 6804 |h | Jump_Zero 0x543
053f e40d | | Load 0x2,0xd
0540 e409 | | Load 0x2,0x9
0541 e405 | | Load 0x2,0x5
0542 8413 | | Call 0x2,0x13
0543 e221 | ! | Load 0x1,0x21
0544 0c03 | | Execute_Immediate Greater_Equal,0x3
0545 6804 |h | Jump_Zero 0x54a
0546 e40e | | Load 0x2,0xe
0547 e40a | | Load 0x2,0xa
0548 e406 | | Load 0x2,0x6
0549 8413 | | Call 0x2,0x13
054a e221 | ! | Load 0x1,0x21
054b 0c04 | | Execute_Immediate Greater_Equal,0x4
054c 6804 |h | Jump_Zero 0x551
054d e40f | | Load 0x2,0xf
054e e40b | | Load 0x2,0xb
054f e407 | | Load 0x2,0x7
0550 8413 | | Call 0x2,0x13
0551 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0552 0000 0000 | | .BLANK 0000[0x6]
0558 ; --------------------------------------------------------------------------------------
0558 ; SUBPROGRAM
0558 ; --------------------------------------------------------------------------------------
0558 055d | ] | .CONST 0x055d ; Address of begin
0559 0004 | | .CONST 0x0004 ; Address of exception handler
055a 0002 | | .CONST 0x0002 ; Number of locals
055b INIT_0558:
055b 029f 0573 | s| Declare_Subprogram INIT_0570,For_Call
055d BODY_0558:
055d 4801 |H | Short_Literal 0x1
055e e410 | | Load 0x2,0x10
055f 8802 | | Call 0x4,0x2
0560 4802 |H | Short_Literal 0x2
0561 e411 | | Load 0x2,0x11
0562 8802 | | Call 0x4,0x2
0563 4803 |H | Short_Literal 0x3
0564 e412 | | Load 0x2,0x12
0565 8802 | | Call 0x4,0x2
0566 4804 |H | Short_Literal 0x4
0567 e413 | | Load 0x2,0x13
0568 8802 | | Call 0x4,0x2
0569 4501 |E | Exit_Suprogram New_Top_Offset 0x1
056a 0000 0000 | | .BLANK 0000[0x6]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573 | s | .CONST 0x0573 ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 0001 | | .CONST 0x0001 ; Number of locals
0573 BODY_0570:
0573 INIT_0570:
0573 e221 | ! | Load 0x1,0x21
0574 ebfe | | Load 0x5,-0x2
0575 027b | { | Execute Discrete,Greater_Equal
0576 680e |h | Jump_Zero 0x585
0577 ebff | | Load 0x5,-0x1
0578 7004 |p | Jump_Nonzero 0x57d
0579 00ea | | Load_Encached Null_String_Cache
057a e402 | | Load 0x2,0x2
057b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
057c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
057d 4820 |H | Short_Literal 0x20
057e 4800 |H | Short_Literal 0x0
057f 480a |H | Short_Literal 0xa
0580 ebff | | Load 0x5,-0x1
0581 e011 | | Load 0x0,0x11
0582 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0583 e402 | | Load 0x2,0x2
0584 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0585 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0586 ; --------------------------------------------------------------------------------------
0586 ; STRING TABLE
0586 ; --------------------------------------------------------------------------------------
0586 005c | \ | .STRTAB 0x005c->0x05b4 ; " "
0587 005b | [ | .STRTAB 0x005b->0x05b4 ; "Date"
0588 005d | ] | .STRTAB 0x005d->0x05b6 ; "Ada"
0589 005e | ^ | .STRTAB 0x005e->0x05b8 ; "File"
058a 0060 | ` | .STRTAB 0x0060->0x05ba ; "Action"
058b 0064 | d | .STRTAB 0x0064->0x05bd ; "Directory"
058c 006b | k | .STRTAB 0x006b->0x05c1 ; "DDB"
058d 006c | l | .STRTAB 0x006c->0x05c3 ; "Volume 1"
058e 0072 | r | .STRTAB 0x0072->0x05c7 ; "Volume 2"
058f 0078 | x | .STRTAB 0x0078->0x05cb ; "Volume 3"
0590 007e | ~ | .STRTAB 0x007e->0x05cf ; "Volume 4"
0591 0084 | | .STRTAB 0x0084->0x05d3 ; "Ddb"
0592 0085 | | .STRTAB 0x0085->0x05d4 ; "Disk1"
0593 0088 | | .STRTAB 0x0088->0x05d7 ; "Disk2"
0594 008b | | .STRTAB 0x008b->0x05d9 ; "Disk3"
0595 008e | | .STRTAB 0x008e->0x05dc ; "Disk4"
0596 0091 | | .STRTAB 0x0091->0x05de ; "Daemon Information Display"
0597 00a9 | | .STRTAB 0x00a9->0x05eb ; "--------------------------"
0598 00c1 | | .STRTAB 0x00c1->0x05f8 ; "Shows at end of day final run of daemon. This"
0599 00ed | | .STRTAB 0x00ed->0x060f ; "indicates size before compaction and final size"
059a 011a | | .STRTAB 0x011a->0x0627 ; "in pages."
059b 0121 | ! | .STRTAB 0x0121->0x062b ; "\x0c"
059c 0120 | | .STRTAB 0x0120->0x062c ; "For each disk, this display indicates the amount of"
059d 0151 | Q | .STRTAB 0x0151->0x0645 ; "used space after garbage collection has finished that"
059e 0184 | | .STRTAB 0x0184->0x0660 ; "day."
059f 0186 | | .STRTAB 0x0186->0x0662 ; "Vol 1"
05a0 0189 | | .STRTAB 0x0189->0x0664 ; "Vol 2"
05a1 018c | | .STRTAB 0x018c->0x0667 ; "Vol 3"
05a2 018f | | .STRTAB 0x018f->0x0669 ; "Vol 4"
05a3 0192 | | .STRTAB 0x0192->0x066c ; "Disk Daemon Information"
05a4 01a7 | | .STRTAB 0x01a7->0x0677 ; "-----------------------"
05a5 01bc | | .STRTAB 0x01bc->0x0683 ; "Shows, for each day, last disk garbage collector"
05a6 01ea | | .STRTAB 0x01ea->0x069b ; "run and amount of used space before and after the"
05a7 0219 | | .STRTAB 0x0219->0x06b3 ; "collection in megabytes. The time in minutes to do"
05a8 024a | J | .STRTAB 0x024a->0x06cd ; "the collection is also shown."
05a9 0265 | e | .STRTAB 0x0265->0x06db ; "*** Inconsistent daemon entry: "
05aa 0282 | | .STRTAB 0x0282->0x06eb ; "*** Unbalanced daemon start/end: "
05ab 02a1 | | .STRTAB 0x02a1->0x06fb ; "new = "
05ac 02a5 | | .STRTAB 0x02a5->0x06fe ; "old = "
05ad 02a9 | | .STRTAB 0x02a9->0x0701 ; "Disk"
05ae 02ab | | .STRTAB 0x02ab->0x0703 ; "volume 1"
05af 02b1 | | .STRTAB 0x02b1->0x0707 ; "volume 2"
05b0 02b7 | | .STRTAB 0x02b7->0x070b ; "volume 3"
05b1 02bd | | .STRTAB 0x02bd->0x070f ; "volume 4"
05b2 02c3 | | .STRTAB 0x02c3->0x0713 ; " ->"
05b3 02c4 | | .STREND 0x02c4->0x0715
05b4 2044 6174 | Dat| .STRTAB_STRINGS
0715 0000 0000 | | .XXX[0x3]
0717 0000 | |
0718 ; --------------------------------------------------------------------------------------
0718 ; Debug Table
0718 ; --------------------------------------------------------------------------------------
0718 0004 000d | | .DEBUG4 0x0004,0x000d,0x4014,0x0000,0x0001,0x0000
071e 0000 0000 | | .BLANK 0000[0xe2]