|
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: 6144 (0x1800)
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
└─ ⟦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 0bd0 | | .CONST 0x0bd0 ; 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 8007 | | .CONST 0x8007 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 00e9 | | .CONST 0x00e9 ; Address of begin
0019 0111 | | .CONST 0x0111 ; Address of exception handler
001a 0029 | ) | .CONST 0x0029 ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
001d 0337 | 7 | Declare_Variable Array
001e 480d |H | Short_Literal 0xd
001f 0092 08cf | | Action Push_String_Extended,0x8cf ; "BACKUP"
0021 e003 | | Load 0x0,0x3
0022 180d | | Execute Package,Field_Execute,Field_Number 0xd
0023 e402 | | Load 0x2,0x2
0024 01d4 | | Execute Vector,Structure_Write
0025 4801 |H | Short_Literal 0x1
0026 4806 |H | Short_Literal 0x6
0027 e002 | | Load 0x0,0x2
0028 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0029 02a0 | | Declare_Subprogram Null_Subprogram
002a 4801 |H | Short_Literal 0x1
002b 035d | ] | Declare_Type Array,Defined
002c 00d8 | | Load_Top At_Offset_0
002d 0337 | 7 | Declare_Variable Array
002e 00d8 | | Load_Top At_Offset_0
002f 0335 | 5 | Declare_Variable Array,Duplicate
0030 00cd | | Action Spare6_Action
0031 4811 |H | Short_Literal 0x11
0032 0092 08d0 | | Action Push_String_Extended,0x8d0 ; "Vol Info"
0034 e003 | | Load 0x0,0x3
0035 180d | | Execute Package,Field_Execute,Field_Number 0xd
0036 e004 | | Load 0x0,0x4
0037 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0038 01c7 | | Execute Vector,Convert
0039 e004 | | Load 0x0,0x4
003a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
003b 0119 | | Execute Any,Check_In_Formal_Type
003c 4801 |H | Short_Literal 0x1
003d e405 | | Load 0x2,0x5
003e 01d6 | | Execute Vector,Field_Write
003f 4811 |H | Short_Literal 0x11
0040 0092 08d1 | | Action Push_String_Extended,0x8d1 ; "VP Info"
0042 e003 | | Load 0x0,0x3
0043 180d | | Execute Package,Field_Execute,Field_Number 0xd
0044 e004 | | Load 0x0,0x4
0045 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0046 01c7 | | Execute Vector,Convert
0047 e004 | | Load 0x0,0x4
0048 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0049 0119 | | Execute Any,Check_In_Formal_Type
004a 4802 |H | Short_Literal 0x2
004b e405 | | Load 0x2,0x5
004c 01d6 | | Execute Vector,Field_Write
004d 4811 |H | Short_Literal 0x11
004e 0092 08d2 | | Action Push_String_Extended,0x8d2 ; "DB Backups"
0050 e003 | | Load 0x0,0x3
0051 180d | | Execute Package,Field_Execute,Field_Number 0xd
0052 e004 | | Load 0x0,0x4
0053 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0054 01c7 | | Execute Vector,Convert
0055 e004 | | Load 0x0,0x4
0056 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0057 0119 | | Execute Any,Check_In_Formal_Type
0058 4803 |H | Short_Literal 0x3
0059 e405 | | Load 0x2,0x5
005a 01d6 | | Execute Vector,Field_Write
005b 4811 |H | Short_Literal 0x11
005c 0092 08d3 | | Action Push_String_Extended,0x8d3 ; "DB Processors"
005e e003 | | Load 0x0,0x3
005f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0060 e004 | | Load 0x0,0x4
0061 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0062 01c7 | | Execute Vector,Convert
0063 e004 | | Load 0x0,0x4
0064 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0065 0119 | | Execute Any,Check_In_Formal_Type
0066 4804 |H | Short_Literal 0x4
0067 e405 | | Load 0x2,0x5
0068 01d6 | | Execute Vector,Field_Write
0069 4811 |H | Short_Literal 0x11
006a 0092 08d4 | | Action Push_String_Extended,0x8d4 ; "DB Disk Volumes"
006c e003 | | Load 0x0,0x3
006d 180d | | Execute Package,Field_Execute,Field_Number 0xd
006e e004 | | Load 0x0,0x4
006f 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0070 01c7 | | Execute Vector,Convert
0071 e004 | | Load 0x0,0x4
0072 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0073 0119 | | Execute Any,Check_In_Formal_Type
0074 4805 |H | Short_Literal 0x5
0075 e405 | | Load 0x2,0x5
0076 01d6 | | Execute Vector,Field_Write
0077 4811 |H | Short_Literal 0x11
0078 0092 08d5 | | Action Push_String_Extended,0x8d5 ; "DB Tape Volumes"
007a e003 | | Load 0x0,0x3
007b 180d | | Execute Package,Field_Execute,Field_Number 0xd
007c e004 | | Load 0x0,0x4
007d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
007e 01c7 | | Execute Vector,Convert
007f e004 | | Load 0x0,0x4
0080 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0081 0119 | | Execute Any,Check_In_Formal_Type
0082 4806 |H | Short_Literal 0x6
0083 e405 | | Load 0x2,0x5
0084 01d6 | | Execute Vector,Field_Write
0085 e404 | | Load 0x2,0x4
0086 01d4 | | Execute Vector,Structure_Write
0087 4801 |H | Short_Literal 0x1
0088 e404 | | Load 0x2,0x4
0089 01d5 | | Execute Vector,Field_Reference
008a 0007 | | Action Break_Optional
008b 4802 |H | Short_Literal 0x2
008c e404 | | Load 0x2,0x4
008d 01d5 | | Execute Vector,Field_Reference
008e 0007 | | Action Break_Optional
008f 4803 |H | Short_Literal 0x3
0090 e404 | | Load 0x2,0x4
0091 01d5 | | Execute Vector,Field_Reference
0092 0007 | | Action Break_Optional
0093 4804 |H | Short_Literal 0x4
0094 e404 | | Load 0x2,0x4
0095 01d5 | | Execute Vector,Field_Reference
0096 0007 | | Action Break_Optional
0097 4805 |H | Short_Literal 0x5
0098 e404 | | Load 0x2,0x4
0099 01d5 | | Execute Vector,Field_Reference
009a 0007 | | Action Break_Optional
009b 4806 |H | Short_Literal 0x6
009c e404 | | Load 0x2,0x4
009d 01d5 | | Execute Vector,Field_Reference
009e 0007 | | Action Break_Optional
009f 00e7 | | Load_Encached Duration_Cache
00a0 e005 | | Load 0x0,0x5
00a1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00a2 0322 | " | Declare_Variable Record
00a3 00e3 | | Load_Encached Natural_Cache
00a4 e006 | | Load 0x0,0x6
00a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a6 02c7 | | Declare_Variable Any
00a7 00d8 | | Load_Top At_Offset_0
00a8 1c00 | | Execute_Immediate Run_Utility,0x0
00a9 e007 | | Load 0x0,0x7
00aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ab 00e4 | | Load_Encached Positive_Cache
00ac e002 | | Load 0x0,0x2
00ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ae 0322 | " | Declare_Variable Record
00af e008 | | Load 0x0,0x8
00b0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00b1 e411 | | Load 0x2,0x11
00b2 017d | } | Execute Record,Structure_Write
00b3 00e1 | | Load_Encached Boolean_Cache
00b4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b5 00e1 | | Load_Encached Boolean_Cache
00b6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b7 00e1 | | Load_Encached Boolean_Cache
00b8 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00b9 e009 | | Load 0x0,0x9
00ba 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00bb 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00bc e007 | | Load 0x0,0x7
00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00be e002 | | Load 0x0,0x2
00bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c0 0322 | " | Declare_Variable Record
00c1 029f 022b | +| Declare_Subprogram INIT_0228,For_Call
00c3 029f 023b | ;| Declare_Subprogram INIT_0238,For_Call
00c5 e00a | | Load 0x0,0xa
00c6 190f | | Execute Package,Field_Reference,Field_Number 0xf
00c7 00c6 | | Action Check_Subprogram_Elaborated
00c8 e00b | | Load 0x0,0xb
00c9 1964 | d | Execute Package,Field_Reference,Field_Number 0x64
00ca e00c | | Load 0x0,0xc
00cb e00d | | Load 0x0,0xd
00cc 481d |H | Short_Literal 0x1d
00cd 0007 | | Action Break_Optional
00ce 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
00d0 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
00d2 e009 | | Load 0x0,0x9
00d3 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00d4 1946 | F | Execute Package,Field_Reference,Field_Number 0x46
00d5 00c6 | | Action Check_Subprogram_Elaborated
00d6 481e |H | Short_Literal 0x1e
00d7 4802 |H | Short_Literal 0x2
00d8 0099 | | Action Reference_Dynamic
00d9 e00e | | Load 0x0,0xe
00da e00f | | Load 0x0,0xf
00db 4823 |H# | Short_Literal 0x23
00dc 0007 | | Action Break_Optional
00dd 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
00df 029f 02a3 | | Declare_Subprogram INIT_02a0,For_Call
00e1 029f 032b | +| Declare_Subprogram INIT_0328,For_Call
00e3 029f 047b | {| Declare_Subprogram INIT_0478,For_Call
00e5 029f 0653 | S| Declare_Subprogram INIT_0650,For_Call
00e7 029f 0803 | | Declare_Subprogram INIT_0800,For_Call
00e9 BODY_0018:
00e9 e5ff | | Load 0x2,-0x1
00ea 01db | | Execute Vector,Length
00eb 6801 |h | Jump_Zero 0xed
00ec 8429 | ) | Call 0x2,0x29
00ed e009 | | Load 0x0,0x9
00ee 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00ef 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00f0 e010 | | Load 0x0,0x10
00f1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f2 e011 | | Load 0x0,0x11
00f3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f4 e009 | | Load 0x0,0x9
00f5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00f6 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00f7 c415 | | Store 0x2,0x15
00f8 8427 | ' | Call 0x2,0x27
00f9 e413 | | Load 0x2,0x13
00fa 6804 |h | Jump_Zero 0xff
00fb e411 | | Load 0x2,0x11
00fc e417 | | Load 0x2,0x17
00fd 017d | } | Execute Record,Structure_Write
00fe 7808 |x | Jump 0x107
00ff e008 | | Load 0x0,0x8
0100 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0101 e417 | | Load 0x2,0x17
0102 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0103 e008 | | Load 0x0,0x8
0104 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0105 e417 | | Load 0x2,0x17
0106 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0107 e417 | | Load 0x2,0x17
0108 8428 | ( | Call 0x2,0x28
0109 4801 |H | Short_Literal 0x1
010a e00b | | Load 0x0,0xb
010b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
010c 0092 08d6 | | Action Push_String_Extended,0x8d6 ; "Successfully completed scan of backup tape."
010e e00b | | Load 0x0,0xb
010f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0110 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0111 TRAP_0018:
0111 e012 | | Load 0x0,0x12
0112 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0113 010f | | Execute Exception,Equal
0114 6805 |h | Jump_Zero 0x11a
0115 4801 |H | Short_Literal 0x1
0116 0092 08d7 | | Action Push_String_Extended,0x8d7 ; "Vol_Set_Already_Open_Or_Created"
0118 8424 | $ | Call 0x2,0x24
0119 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011a e002 | | Load 0x0,0x2
011b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
011c 010f | | Execute Exception,Equal
011d 6805 |h | Jump_Zero 0x123
011e 4801 |H | Short_Literal 0x1
011f 0092 08d8 | | Action Push_String_Extended,0x8d8 ; "Not_Rational_Vol_Set"
0121 8424 | $ | Call 0x2,0x24
0122 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0123 e004 | | Load 0x0,0x4
0124 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0125 010f | | Execute Exception,Equal
0126 6805 |h | Jump_Zero 0x12c
0127 4801 |H | Short_Literal 0x1
0128 0092 08d9 | | Action Push_String_Extended,0x8d9 ; "Vol_Set_Not_Open_Or_Created"
012a 8424 | $ | Call 0x2,0x24
012b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012c e004 | | Load 0x0,0x4
012d 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
012e 010f | | Execute Exception,Equal
012f 6805 |h | Jump_Zero 0x135
0130 4801 |H | Short_Literal 0x1
0131 0092 08da | | Action Push_String_Extended,0x8da ; "End_Of_Vol_Set_Encountered"
0133 8424 | $ | Call 0x2,0x24
0134 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0135 e004 | | Load 0x0,0x4
0136 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0137 010f | | Execute Exception,Equal
0138 6805 |h | Jump_Zero 0x13e
0139 4801 |H | Short_Literal 0x1
013a 0092 08db | | Action Push_String_Extended,0x8db ; "Not_Initialized"
013c 8424 | $ | Call 0x2,0x24
013d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013e e004 | | Load 0x0,0x4
013f 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0140 010f | | Execute Exception,Equal
0141 6805 |h | Jump_Zero 0x147
0142 4801 |H | Short_Literal 0x1
0143 0092 08dc | | Action Push_String_Extended,0x8dc ; "Not_Original_Client"
0145 8424 | $ | Call 0x2,0x24
0146 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0147 e004 | | Load 0x0,0x4
0148 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0149 010f | | Execute Exception,Equal
014a 6805 |h | Jump_Zero 0x150
014b 4801 |H | Short_Literal 0x1
014c 0092 08dd | | Action Push_String_Extended,0x8dd ; "Read_While_Writing"
014e 8424 | $ | Call 0x2,0x24
014f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0150 e004 | | Load 0x0,0x4
0151 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
0152 010f | | Execute Exception,Equal
0153 6805 |h | Jump_Zero 0x159
0154 4801 |H | Short_Literal 0x1
0155 0092 08de | | Action Push_String_Extended,0x8de ; "Write_While_Reading"
0157 8424 | $ | Call 0x2,0x24
0158 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0159 e004 | | Load 0x0,0x4
015a 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
015b 010f | | Execute Exception,Equal
015c 6805 |h | Jump_Zero 0x162
015d 4801 |H | Short_Literal 0x1
015e 0092 08df | | Action Push_String_Extended,0x8df ; "Position_While_Writing"
0160 8424 | $ | Call 0x2,0x24
0161 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0162 e004 | | Load 0x0,0x4
0163 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0164 010f | | Execute Exception,Equal
0165 6805 |h | Jump_Zero 0x16b
0166 4801 |H | Short_Literal 0x1
0167 0092 08e0 | | Action Push_String_Extended,0x8e0 ; "Previous_Fatal_Error"
0169 8424 | $ | Call 0x2,0x24
016a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016b e004 | | Load 0x0,0x4
016c 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
016d 010f | | Execute Exception,Equal
016e 6805 |h | Jump_Zero 0x174
016f 4801 |H | Short_Literal 0x1
0170 0092 08e1 | | Action Push_String_Extended,0x8e1 ; "File_Still_Being_Written"
0172 8424 | $ | Call 0x2,0x24
0173 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0174 e004 | | Load 0x0,0x4
0175 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0176 010f | | Execute Exception,Equal
0177 6805 |h | Jump_Zero 0x17d
0178 4801 |H | Short_Literal 0x1
0179 0092 08e2 | | Action Push_String_Extended,0x8e2 ; "File_Still_Being_Read"
017b 8424 | $ | Call 0x2,0x24
017c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017d e004 | | Load 0x0,0x4
017e 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
017f 010f | | Execute Exception,Equal
0180 6805 |h | Jump_Zero 0x186
0181 4801 |H | Short_Literal 0x1
0182 0092 08e3 | | Action Push_String_Extended,0x8e3 ; "File_Not_Created"
0184 8424 | $ | Call 0x2,0x24
0185 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0186 e004 | | Load 0x0,0x4
0187 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0188 010f | | Execute Exception,Equal
0189 6805 |h | Jump_Zero 0x18f
018a 4801 |H | Short_Literal 0x1
018b 0092 08e4 | | Action Push_String_Extended,0x8e4 ; "File_Not_Open"
018d 8424 | $ | Call 0x2,0x24
018e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018f e004 | | Load 0x0,0x4
0190 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
0191 010f | | Execute Exception,Equal
0192 6805 |h | Jump_Zero 0x198
0193 4801 |H | Short_Literal 0x1
0194 0092 08e5 | | Action Push_String_Extended,0x8e5 ; "Retry_Count_Exhausted"
0196 8424 | $ | Call 0x2,0x24
0197 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0198 e004 | | Load 0x0,0x4
0199 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
019a 010f | | Execute Exception,Equal
019b 6805 |h | Jump_Zero 0x1a1
019c 4801 |H | Short_Literal 0x1
019d 0092 08e6 | | Action Push_String_Extended,0x8e6 ; "Vol_Set_Error"
019f 8424 | $ | Call 0x2,0x24
01a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a1 e004 | | Load 0x0,0x4
01a2 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
01a3 010f | | Execute Exception,Equal
01a4 6805 |h | Jump_Zero 0x1aa
01a5 4801 |H | Short_Literal 0x1
01a6 0092 08e7 | | Action Push_String_Extended,0x8e7 ; "Unexpected_Tape_Error"
01a8 8424 | $ | Call 0x2,0x24
01a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01aa e004 | | Load 0x0,0x4
01ab 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
01ac 010f | | Execute Exception,Equal
01ad 6805 |h | Jump_Zero 0x1b3
01ae 4801 |H | Short_Literal 0x1
01af 0092 08e8 | | Action Push_String_Extended,0x8e8 ; "No_Drive_Available"
01b1 8424 | $ | Call 0x2,0x24
01b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b3 e004 | | Load 0x0,0x4
01b4 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01b5 010f | | Execute Exception,Equal
01b6 6805 |h | Jump_Zero 0x1bc
01b7 4801 |H | Short_Literal 0x1
01b8 0092 08e9 | | Action Push_String_Extended,0x8e9 ; "Desired_Drive_Unavailable"
01ba 8424 | $ | Call 0x2,0x24
01bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01bc e004 | | Load 0x0,0x4
01bd 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
01be 010f | | Execute Exception,Equal
01bf 6805 |h | Jump_Zero 0x1c5
01c0 4801 |H | Short_Literal 0x1
01c1 0092 08ea | | Action Push_String_Extended,0x8ea ; "Desired_Volume_Not_Found"
01c3 8424 | $ | Call 0x2,0x24
01c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c5 e004 | | Load 0x0,0x4
01c6 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
01c7 010f | | Execute Exception,Equal
01c8 6805 |h | Jump_Zero 0x1ce
01c9 4801 |H | Short_Literal 0x1
01ca 0092 08eb | | Action Push_String_Extended,0x8eb ; "Vol_Access_Denied"
01cc 8424 | $ | Call 0x2,0x24
01cd 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ce e004 | | Load 0x0,0x4
01cf 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
01d0 010f | | Execute Exception,Equal
01d1 6805 |h | Jump_Zero 0x1d7
01d2 4801 |H | Short_Literal 0x1
01d3 0092 08ec | | Action Push_String_Extended,0x8ec ; "File_Access_Denied"
01d5 8424 | $ | Call 0x2,0x24
01d6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d7 e004 | | Load 0x0,0x4
01d8 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c
01d9 010f | | Execute Exception,Equal
01da 6805 |h | Jump_Zero 0x1e0
01db 4801 |H | Short_Literal 0x1
01dc 0092 08ed | | Action Push_String_Extended,0x8ed ; "File_Expired"
01de 8424 | $ | Call 0x2,0x24
01df 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e0 e004 | | Load 0x0,0x4
01e1 1b41 | A | Execute Package,Field_Read,Field_Number 0x41
01e2 010f | | Execute Exception,Equal
01e3 6805 |h | Jump_Zero 0x1e9
01e4 4801 |H | Short_Literal 0x1
01e5 0092 08ee | | Action Push_String_Extended,0x8ee ; "Not_At_EOF"
01e7 8424 | $ | Call 0x2,0x24
01e8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01e9 e004 | | Load 0x0,0x4
01ea 1b43 | C | Execute Package,Field_Read,Field_Number 0x43
01eb 010f | | Execute Exception,Equal
01ec 6805 |h | Jump_Zero 0x1f2
01ed 4801 |H | Short_Literal 0x1
01ee 0092 08ef | | Action Push_String_Extended,0x8ef ; "Not_At_EOVS"
01f0 8424 | $ | Call 0x2,0x24
01f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01f2 e012 | | Load 0x0,0x12
01f3 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
01f4 010f | | Execute Exception,Equal
01f5 6805 |h | Jump_Zero 0x1fb
01f6 4801 |H | Short_Literal 0x1
01f7 0092 08f0 | | Action Push_String_Extended,0x8f0 ; "File_Not_In_Vol_Set"
01f9 8424 | $ | Call 0x2,0x24
01fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01fb e012 | | Load 0x0,0x12
01fc 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
01fd 010f | | Execute Exception,Equal
01fe 6805 |h | Jump_Zero 0x204
01ff 4801 |H | Short_Literal 0x1
0200 0092 08f1 | | Action Push_String_Extended,0x8f1 ; "Record_Not_In_File"
0202 8424 | $ | Call 0x2,0x24
0203 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0204 e004 | | Load 0x0,0x4
0205 1b44 | D | Execute Package,Field_Read,Field_Number 0x44
0206 010f | | Execute Exception,Equal
0207 6805 |h | Jump_Zero 0x20d
0208 4801 |H | Short_Literal 0x1
0209 0092 08f2 | | Action Push_String_Extended,0x8f2 ; "Incorrect_Buffer_Size"
020b 8424 | $ | Call 0x2,0x24
020c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020d e004 | | Load 0x0,0x4
020e 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
020f 010f | | Execute Exception,Equal
0210 6805 |h | Jump_Zero 0x216
0211 4801 |H | Short_Literal 0x1
0212 0092 08f3 | | Action Push_String_Extended,0x8f3 ; "Block_Length_Too_Short"
0214 8424 | $ | Call 0x2,0x24
0215 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0216 e004 | | Load 0x0,0x4
0217 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
0218 010f | | Execute Exception,Equal
0219 6805 |h | Jump_Zero 0x21f
021a 4801 |H | Short_Literal 0x1
021b 0092 08f4 | | Action Push_String_Extended,0x8f4 ; "Block_Length_Too_Long"
021d 8424 | $ | Call 0x2,0x24
021e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
021f 4800 |H | Short_Literal 0x0
0220 e013 | | Load 0x0,0x13
0221 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0222 8424 | $ | Call 0x2,0x24
0223 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0224 0000 0000 | | .BLANK 0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b e006 | | Load 0x0,0x6
022c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
022d e7ff | | Load 0x3,-0x1
022e e006 | | Load 0x0,0x6
022f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0230 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b e7ff | | Load 0x3,-0x1
023c e005 | | Load 0x0,0x5
023d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
023e 8418 | | Call 0x2,0x18
023f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 0092 08f5 | | Action Push_String_Extended,0x8f5 ; "*** "
0245 e7ff | | Load 0x3,-0x1
0246 01cc | | Execute Vector,Catenate
0247 e00b | | Load 0x0,0xb
0248 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0249 e7fe | | Load 0x3,-0x2
024a 01db | | Execute Vector,Length
024b 0c01 | | Execute_Immediate Greater_Equal,0x1
024c 6810 |h | Jump_Zero 0x25d
024d 0092 08f6 | | Action Push_String_Extended,0x8f6 ; "*** Tape Data => "
024f e00b | | Load 0x0,0xb
0250 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0251 4801 |H | Short_Literal 0x1
0252 4801 |H | Short_Literal 0x1
0253 480a |H | Short_Literal 0xa
0254 e7fe | | Load 0x3,-0x2
0255 481a |H | Short_Literal 0x1a
0256 4802 |H | Short_Literal 0x2
0257 0099 | | Action Reference_Dynamic
0258 481b |H | Short_Literal 0x1b
0259 4802 |H | Short_Literal 0x2
025a 0099 | | Action Reference_Dynamic
025b e00a | | Load 0x0,0xa
025c 180f | | Execute Package,Field_Execute,Field_Number 0xf
025d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
025e 0000 0000 | | .XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 026b | k | .CONST 0x026b ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0005 | | .CONST 0x0005 ; Number of locals
0263 INIT_0260:
0263 e014 | | Load 0x0,0x14
0264 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0265 0092 08f7 | | Action Push_String_Extended,0x8f7 ; "D_10_20_0S"
0267 0092 08f8 | | Action Push_String_Extended,0x8f8 ; "D_10_20_0"
0269 029f 081b | | Declare_Subprogram INIT_0818,For_Call
026b BODY_0260:
026b e602 | | Load 0x3,0x2
026c e604 | | Load 0x3,0x4
026d 8605 | | Call 0x3,0x5
026e e602 | | Load 0x3,0x2
026f e603 | | Load 0x3,0x3
0270 8605 | | Call 0x3,0x5
0271 0f00 | | Execute_Immediate Equal,0x0
0272 0279 | y | Execute Discrete,And
0273 6802 |h | Jump_Zero 0x276
0274 4800 |H | Short_Literal 0x0
0275 00ca | | Action Exit_Nullary_Function
0276 4801 |H | Short_Literal 0x1
0277 00ca | | Action Exit_Nullary_Function
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 4801 |H | Short_Literal 0x1
027c e00b | | Load 0x0,0xb
027d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
027e 0092 08f9 | | Action Push_String_Extended,0x8f9 ; "*** Unexpected Exception: "
0280 e7ff | | Load 0x3,-0x1
0281 01cc | | Execute Vector,Catenate
0282 e00b | | Load 0x0,0xb
0283 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0284 e7fe | | Load 0x3,-0x2
0285 680a |h | Jump_Zero 0x290
0286 e415 | | Load 0x2,0x15
0287 4820 |H | Short_Literal 0x20
0288 4802 |H | Short_Literal 0x2
0289 0099 | | Action Reference_Dynamic
028a 4821 |H! | Short_Literal 0x21
028b 4802 |H | Short_Literal 0x2
028c 0099 | | Action Reference_Dynamic
028d e009 | | Load 0x0,0x9
028e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
028f 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0290 0092 08fa | | Action Push_String_Extended,0x8fa ; "***"
0292 e00b | | Load 0x0,0xb
0293 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0294 0092 08fb | | Action Push_String_Extended,0x8fb ; "*** Verify_Backup DID NOT complete"
0296 e00b | | Load 0x0,0xb
0297 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0298 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0299 0000 0000 | | .BLANK 0000[0x7]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02cd | | .CONST 0x02cd ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0010 | | .CONST 0x0010 ; Number of locals
02a3 INIT_02a0:
02a3 4801 |H | Short_Literal 0x1
02a4 607f |` | Indirect_Literal Discrete,0x324,{0x00000000, 0x00000c00}
02a5 e015 | | Load 0x0,0x15
02a6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02a7 035b | [ | Declare_Type Array,Constrained
02a8 0337 | 7 | Declare_Variable Array
02a9 00e1 | | Load_Encached Boolean_Cache
02aa 00e3 | | Load_Encached Natural_Cache
02ab 00e3 | | Load_Encached Natural_Cache
02ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02ad e002 | | Load 0x0,0x2
02ae 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02af 0337 | 7 | Declare_Variable Array
02b0 4801 |H | Short_Literal 0x1
02b1 4832 |H2 | Short_Literal 0x32
02b2 e002 | | Load 0x0,0x2
02b3 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
02b4 035b | [ | Declare_Type Array,Constrained
02b5 0337 | 7 | Declare_Variable Array
02b6 e002 | | Load 0x0,0x2
02b7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02b8 e006 | | Load 0x0,0x6
02b9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ba 02c7 | | Declare_Variable Any
02bb 00d8 | | Load_Top At_Offset_0
02bc 1c00 | | Execute_Immediate Run_Utility,0x0
02bd 00e1 | | Load_Encached Boolean_Cache
02be e006 | | Load 0x0,0x6
02bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c0 02c7 | | Declare_Variable Any
02c1 00d8 | | Load_Top At_Offset_0
02c2 1c00 | | Execute_Immediate Run_Utility,0x0
02c3 e015 | | Load 0x0,0x15
02c4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02c5 e002 | | Load 0x0,0x2
02c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c7 e007 | | Load 0x0,0x7
02c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c9 e002 | | Load 0x0,0x2
02ca 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02cb e007 | | Load 0x0,0x7
02cc 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02cd BODY_02a0:
02cd e007 | | Load 0x0,0x7
02ce 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02cf e002 | | Load 0x0,0x2
02d0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02d1 e007 | | Load 0x0,0x7
02d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d3 e002 | | Load 0x0,0x2
02d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d5 e015 | | Load 0x0,0x15
02d6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02d7 e60b | | Load 0x3,0xb
02d8 0120 | | Execute Any,Is_Value
02d9 6803 |h | Jump_Zero 0x2dd
02da e006 | | Load 0x0,0x6
02db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02dc 7801 |x | Jump 0x2de
02dd e60b | | Load 0x3,0xb
02de 00e1 | | Load_Encached Boolean_Cache
02df e609 | | Load 0x3,0x9
02e0 0120 | | Execute Any,Is_Value
02e1 6803 |h | Jump_Zero 0x2e5
02e2 e006 | | Load 0x0,0x6
02e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e4 7801 |x | Jump 0x2e6
02e5 e609 | | Load 0x3,0x9
02e6 e002 | | Load 0x0,0x2
02e7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02e8 e607 | | Load 0x3,0x7
02e9 e606 | | Load 0x3,0x6
02ea e7ff | | Load 0x3,-0x1
02eb e009 | | Load 0x0,0x9
02ec 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02ed 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
02ee 00d2 | | Pop_Control Pop_Count_2
02ef c608 | | Store 0x3,0x8
02f0 c609 | | Store 0x3,0x9
02f1 c60a | | Store 0x3,0xa
02f2 c60b | | Store 0x3,0xb
02f3 c60c | | Store 0x3,0xc
02f4 c60d | | Store 0x3,0xd
02f5 c60e | | Store 0x3,0xe
02f6 c60f | | Store 0x3,0xf
02f7 c610 | | Store 0x3,0x10
02f8 0092 08fc | | Action Push_String_Extended,0x8fc ; " ... Reading File: "
02fa e606 | | Load 0x3,0x6
02fb e003 | | Load 0x0,0x3
02fc 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02fd 01cc | | Execute Vector,Catenate
02fe e00b | | Load 0x0,0xb
02ff 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0300 00cf | | Action Mark_Auxiliary
0301 00e3 | | Load_Encached Natural_Cache
0302 00e1 | | Load_Encached Boolean_Cache
0303 e602 | | Load 0x3,0x2
0304 e7ff | | Load 0x3,-0x1
0305 e009 | | Load 0x0,0x9
0306 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0307 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0308 00d1 | | Pop_Control Pop_Count_1
0309 c603 | | Store 0x3,0x3
030a c604 | | Store 0x3,0x4
030b e603 | | Load 0x3,0x3
030c 7005 |p | Jump_Nonzero 0x312
030d e605 | | Load 0x3,0x5
030e 0a01 | | Execute_Immediate Plus,0x1
030f c605 | | Store 0x3,0x5
0310 00c9 | | Action Pop_Auxiliary_Loop
0311 7fef | | Jump 0x301
0312 00ce | | Action Pop_Auxiliary
0313 480a |H | Short_Literal 0xa
0314 4820 |H | Short_Literal 0x20
0315 480a |H | Short_Literal 0xa
0316 480a |H | Short_Literal 0xa
0317 e605 | | Load 0x3,0x5
0318 e016 | | Load 0x0,0x16
0319 1816 | | Execute Package,Field_Execute,Field_Number 0x16
031a 0092 08fd | | Action Push_String_Extended,0x8fd ; " blocks"
031c 01cc | | Execute Vector,Catenate
031d 01cb | | Execute Vector,Append
031e e00b | | Load 0x0,0xb
031f 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0320 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0321 0000 0000 | | .XXX[0x3]
0323 0000 | |
0324 0000 0000 | | .LITERAL {0x00000000, 0x00000c00}
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0349 | I | .CONST 0x0349 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 000d | | .CONST 0x000d ; Number of locals
032b INIT_0328:
032b e002 | | Load 0x0,0x2
032c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
032d 0337 | 7 | Declare_Variable Array
032e 4801 |H | Short_Literal 0x1
032f 4850 |HP | Short_Literal 0x50
0330 e002 | | Load 0x0,0x2
0331 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0332 035b | [ | Declare_Type Array,Constrained
0333 0337 | 7 | Declare_Variable Array
0334 e006 | | Load 0x0,0x6
0335 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0336 02c7 | | Declare_Variable Any
0337 00d8 | | Load_Top At_Offset_0
0338 1c00 | | Execute_Immediate Run_Utility,0x0
0339 00e1 | | Load_Encached Boolean_Cache
033a e006 | | Load 0x0,0x6
033b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033c 02c7 | | Declare_Variable Any
033d 00d8 | | Load_Top At_Offset_0
033e 1c00 | | Execute_Immediate Run_Utility,0x0
033f e015 | | Load 0x0,0x15
0340 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0341 e002 | | Load 0x0,0x2
0342 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0343 00e3 | | Load_Encached Natural_Cache
0344 00e3 | | Load_Encached Natural_Cache
0345 00e3 | | Load_Encached Natural_Cache
0346 00e3 | | Load_Encached Natural_Cache
0347 029f 082b | +| Declare_Subprogram INIT_0828,For_Call
0349 BODY_0328:
0349 00e3 | | Load_Encached Natural_Cache
034a e002 | | Load 0x0,0x2
034b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
034c e007 | | Load 0x0,0x7
034d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034e e002 | | Load 0x0,0x2
034f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0350 e015 | | Load 0x0,0x15
0351 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0352 e606 | | Load 0x3,0x6
0353 0120 | | Execute Any,Is_Value
0354 6803 |h | Jump_Zero 0x358
0355 e006 | | Load 0x0,0x6
0356 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0357 7801 |x | Jump 0x359
0358 e606 | | Load 0x3,0x6
0359 00e1 | | Load_Encached Boolean_Cache
035a e604 | | Load 0x3,0x4
035b 0120 | | Execute Any,Is_Value
035c 6803 |h | Jump_Zero 0x360
035d e006 | | Load 0x0,0x6
035e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035f 7801 |x | Jump 0x361
0360 e604 | | Load 0x3,0x4
0361 e603 | | Load 0x3,0x3
0362 e602 | | Load 0x3,0x2
0363 4808 |H | Short_Literal 0x8
0364 e7ff | | Load 0x3,-0x1
0365 e009 | | Load 0x0,0x9
0366 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0367 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0368 00d2 | | Pop_Control Pop_Count_2
0369 c604 | | Store 0x3,0x4
036a c605 | | Store 0x3,0x5
036b c606 | | Store 0x3,0x6
036c c607 | | Store 0x3,0x7
036d c608 | | Store 0x3,0x8
036e c40f | | Store 0x2,0xf
036f c609 | | Store 0x3,0x9
0370 c60b | | Store 0x3,0xb
0371 e607 | | Load 0x3,0x7
0372 0f20 | | Execute_Immediate Equal,0x20
0373 7001 |p | Jump_Nonzero 0x375
0374 0887 | | Execute_Immediate Raise,0x87
0375 e605 | | Load 0x3,0x5
0376 6801 |h | Jump_Zero 0x378
0377 0887 | | Execute_Immediate Raise,0x87
0378 e608 | | Load 0x3,0x8
0379 0f03 | | Execute_Immediate Equal,0x3
037a 7001 |p | Jump_Nonzero 0x37c
037b 0887 | | Execute_Immediate Raise,0x87
037c e60b | | Load 0x3,0xb
037d 6801 |h | Jump_Zero 0x37f
037e 0887 | | Execute_Immediate Raise,0x87
037f e609 | | Load 0x3,0x9
0380 6801 |h | Jump_Zero 0x382
0381 0887 | | Execute_Immediate Raise,0x87
0382 e602 | | Load 0x3,0x2
0383 e407 | | Load 0x2,0x7
0384 01df | | Execute Vector,Equal
0385 7001 |p | Jump_Nonzero 0x387
0386 0887 | | Execute_Immediate Raise,0x87
0387 860d | | Call 0x3,0xd
0388 a40d | | Store_Unchecked 0x2,0xd
0389 e7ff | | Load 0x3,-0x1
038a 8425 | % | Call 0x2,0x25
038b 00e3 | | Load_Encached Natural_Cache
038c 00e3 | | Load_Encached Natural_Cache
038d e7ff | | Load 0x3,-0x1
038e e009 | | Load 0x0,0x9
038f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0390 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0391 c60a | | Store 0x3,0xa
0392 c60c | | Store 0x3,0xc
0393 00e3 | | Load_Encached Natural_Cache
0394 e002 | | Load 0x0,0x2
0395 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0396 e007 | | Load 0x0,0x7
0397 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0398 e002 | | Load 0x0,0x2
0399 1b0d | | Execute Package,Field_Read,Field_Number 0xd
039a e015 | | Load 0x0,0x15
039b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
039c e606 | | Load 0x3,0x6
039d 0120 | | Execute Any,Is_Value
039e 6803 |h | Jump_Zero 0x3a2
039f e006 | | Load 0x0,0x6
03a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a1 7801 |x | Jump 0x3a3
03a2 e606 | | Load 0x3,0x6
03a3 00e1 | | Load_Encached Boolean_Cache
03a4 e604 | | Load 0x3,0x4
03a5 0120 | | Execute Any,Is_Value
03a6 6803 |h | Jump_Zero 0x3aa
03a7 e006 | | Load 0x0,0x6
03a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a9 7801 |x | Jump 0x3ab
03aa e604 | | Load 0x3,0x4
03ab e603 | | Load 0x3,0x3
03ac e602 | | Load 0x3,0x2
03ad 4808 |H | Short_Literal 0x8
03ae e7ff | | Load 0x3,-0x1
03af e009 | | Load 0x0,0x9
03b0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03b1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03b2 00d2 | | Pop_Control Pop_Count_2
03b3 c604 | | Store 0x3,0x4
03b4 c605 | | Store 0x3,0x5
03b5 c606 | | Store 0x3,0x6
03b6 c607 | | Store 0x3,0x7
03b7 c608 | | Store 0x3,0x8
03b8 c40f | | Store 0x2,0xf
03b9 c609 | | Store 0x3,0x9
03ba c60b | | Store 0x3,0xb
03bb e607 | | Load 0x3,0x7
03bc 0f20 | | Execute_Immediate Equal,0x20
03bd 7001 |p | Jump_Nonzero 0x3bf
03be 0887 | | Execute_Immediate Raise,0x87
03bf e605 | | Load 0x3,0x5
03c0 6801 |h | Jump_Zero 0x3c2
03c1 0887 | | Execute_Immediate Raise,0x87
03c2 e608 | | Load 0x3,0x8
03c3 0f03 | | Execute_Immediate Equal,0x3
03c4 7001 |p | Jump_Nonzero 0x3c6
03c5 0887 | | Execute_Immediate Raise,0x87
03c6 e60b | | Load 0x3,0xb
03c7 6801 |h | Jump_Zero 0x3c9
03c8 0887 | | Execute_Immediate Raise,0x87
03c9 e609 | | Load 0x3,0x9
03ca 6801 |h | Jump_Zero 0x3cc
03cb 0887 | | Execute_Immediate Raise,0x87
03cc e602 | | Load 0x3,0x2
03cd e408 | | Load 0x2,0x8
03ce 01df | | Execute Vector,Equal
03cf 7001 |p | Jump_Nonzero 0x3d1
03d0 0887 | | Execute_Immediate Raise,0x87
03d1 e7ff | | Load 0x3,-0x1
03d2 8425 | % | Call 0x2,0x25
03d3 00e3 | | Load_Encached Natural_Cache
03d4 00e3 | | Load_Encached Natural_Cache
03d5 e7ff | | Load 0x3,-0x1
03d6 e009 | | Load 0x0,0x9
03d7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03d8 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
03d9 c60a | | Store 0x3,0xa
03da c60c | | Store 0x3,0xc
03db e60c | | Load 0x3,0xc
03dc 6801 |h | Jump_Zero 0x3de
03dd 0887 | | Execute_Immediate Raise,0x87
03de 00e3 | | Load_Encached Natural_Cache
03df e002 | | Load 0x0,0x2
03e0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03e1 e007 | | Load 0x0,0x7
03e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e3 e002 | | Load 0x0,0x2
03e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03e5 e015 | | Load 0x0,0x15
03e6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03e7 e606 | | Load 0x3,0x6
03e8 0120 | | Execute Any,Is_Value
03e9 6803 |h | Jump_Zero 0x3ed
03ea e006 | | Load 0x0,0x6
03eb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ec 7801 |x | Jump 0x3ee
03ed e606 | | Load 0x3,0x6
03ee 00e1 | | Load_Encached Boolean_Cache
03ef e604 | | Load 0x3,0x4
03f0 0120 | | Execute Any,Is_Value
03f1 6803 |h | Jump_Zero 0x3f5
03f2 e006 | | Load 0x0,0x6
03f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03f4 7801 |x | Jump 0x3f6
03f5 e604 | | Load 0x3,0x4
03f6 e603 | | Load 0x3,0x3
03f7 e602 | | Load 0x3,0x2
03f8 4808 |H | Short_Literal 0x8
03f9 e7ff | | Load 0x3,-0x1
03fa e009 | | Load 0x0,0x9
03fb 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03fc 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03fd 00d2 | | Pop_Control Pop_Count_2
03fe c604 | | Store 0x3,0x4
03ff c605 | | Store 0x3,0x5
0400 c606 | | Store 0x3,0x6
0401 c607 | | Store 0x3,0x7
0402 c608 | | Store 0x3,0x8
0403 c40f | | Store 0x2,0xf
0404 c609 | | Store 0x3,0x9
0405 c60b | | Store 0x3,0xb
0406 e607 | | Load 0x3,0x7
0407 0f20 | | Execute_Immediate Equal,0x20
0408 7001 |p | Jump_Nonzero 0x40a
0409 0887 | | Execute_Immediate Raise,0x87
040a e605 | | Load 0x3,0x5
040b 6801 |h | Jump_Zero 0x40d
040c 0887 | | Execute_Immediate Raise,0x87
040d e608 | | Load 0x3,0x8
040e 0f03 | | Execute_Immediate Equal,0x3
040f 7001 |p | Jump_Nonzero 0x411
0410 0887 | | Execute_Immediate Raise,0x87
0411 e60b | | Load 0x3,0xb
0412 6801 |h | Jump_Zero 0x414
0413 0887 | | Execute_Immediate Raise,0x87
0414 e609 | | Load 0x3,0x9
0415 6801 |h | Jump_Zero 0x417
0416 0887 | | Execute_Immediate Raise,0x87
0417 e602 | | Load 0x3,0x2
0418 e409 | | Load 0x2,0x9
0419 01df | | Execute Vector,Equal
041a 7001 |p | Jump_Nonzero 0x41c
041b 0887 | | Execute_Immediate Raise,0x87
041c e7ff | | Load 0x3,-0x1
041d 8425 | % | Call 0x2,0x25
041e 00e3 | | Load_Encached Natural_Cache
041f 00e3 | | Load_Encached Natural_Cache
0420 e7ff | | Load 0x3,-0x1
0421 e009 | | Load 0x0,0x9
0422 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0423 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0424 c60a | | Store 0x3,0xa
0425 c60c | | Store 0x3,0xc
0426 e60c | | Load 0x3,0xc
0427 6801 |h | Jump_Zero 0x429
0428 0887 | | Execute_Immediate Raise,0x87
0429 00e3 | | Load_Encached Natural_Cache
042a e002 | | Load 0x0,0x2
042b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
042c e007 | | Load 0x0,0x7
042d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
042e e002 | | Load 0x0,0x2
042f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0430 e015 | | Load 0x0,0x15
0431 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0432 e606 | | Load 0x3,0x6
0433 0120 | | Execute Any,Is_Value
0434 6803 |h | Jump_Zero 0x438
0435 e006 | | Load 0x0,0x6
0436 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0437 7801 |x | Jump 0x439
0438 e606 | | Load 0x3,0x6
0439 00e1 | | Load_Encached Boolean_Cache
043a e604 | | Load 0x3,0x4
043b 0120 | | Execute Any,Is_Value
043c 6803 |h | Jump_Zero 0x440
043d e006 | | Load 0x0,0x6
043e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043f 7801 |x | Jump 0x441
0440 e604 | | Load 0x3,0x4
0441 e603 | | Load 0x3,0x3
0442 e602 | | Load 0x3,0x2
0443 4808 |H | Short_Literal 0x8
0444 e7ff | | Load 0x3,-0x1
0445 e009 | | Load 0x0,0x9
0446 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0447 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0448 00d2 | | Pop_Control Pop_Count_2
0449 c604 | | Store 0x3,0x4
044a c605 | | Store 0x3,0x5
044b c606 | | Store 0x3,0x6
044c c607 | | Store 0x3,0x7
044d c608 | | Store 0x3,0x8
044e c40f | | Store 0x2,0xf
044f c609 | | Store 0x3,0x9
0450 c60b | | Store 0x3,0xb
0451 e607 | | Load 0x3,0x7
0452 0f20 | | Execute_Immediate Equal,0x20
0453 7001 |p | Jump_Nonzero 0x455
0454 0887 | | Execute_Immediate Raise,0x87
0455 e605 | | Load 0x3,0x5
0456 6801 |h | Jump_Zero 0x458
0457 0887 | | Execute_Immediate Raise,0x87
0458 e608 | | Load 0x3,0x8
0459 0f03 | | Execute_Immediate Equal,0x3
045a 7001 |p | Jump_Nonzero 0x45c
045b 0887 | | Execute_Immediate Raise,0x87
045c e60b | | Load 0x3,0xb
045d 6801 |h | Jump_Zero 0x45f
045e 0887 | | Execute_Immediate Raise,0x87
045f e609 | | Load 0x3,0x9
0460 6801 |h | Jump_Zero 0x462
0461 0887 | | Execute_Immediate Raise,0x87
0462 e602 | | Load 0x3,0x2
0463 e40a | | Load 0x2,0xa
0464 01df | | Execute Vector,Equal
0465 7001 |p | Jump_Nonzero 0x467
0466 0887 | | Execute_Immediate Raise,0x87
0467 e7ff | | Load 0x3,-0x1
0468 8425 | % | Call 0x2,0x25
0469 00e3 | | Load_Encached Natural_Cache
046a 00e3 | | Load_Encached Natural_Cache
046b e7ff | | Load 0x3,-0x1
046c e009 | | Load 0x0,0x9
046d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
046e 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
046f c60a | | Store 0x3,0xa
0470 c60c | | Store 0x3,0xc
0471 e60c | | Load 0x3,0xc
0472 6801 |h | Jump_Zero 0x474
0473 0887 | | Execute_Immediate Raise,0x87
0474 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0475 0000 0000 | | .XXX[0x3]
0477 0000 | |
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 04dc | | .CONST 0x04dc ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0019 | | .CONST 0x0019 ; Number of locals
047b INIT_0478:
047b e015 | | Load 0x0,0x15
047c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
047d e002 | | Load 0x0,0x2
047e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
047f 0337 | 7 | Declare_Variable Array
0480 e002 | | Load 0x0,0x2
0481 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0482 0337 | 7 | Declare_Variable Array
0483 4801 |H | Short_Literal 0x1
0484 4850 |HP | Short_Literal 0x50
0485 e002 | | Load 0x0,0x2
0486 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0487 035b | [ | Declare_Type Array,Constrained
0488 0337 | 7 | Declare_Variable Array
0489 e006 | | Load 0x0,0x6
048a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048b 02c7 | | Declare_Variable Any
048c 00d8 | | Load_Top At_Offset_0
048d 1c00 | | Execute_Immediate Run_Utility,0x0
048e 00e1 | | Load_Encached Boolean_Cache
048f e006 | | Load 0x0,0x6
0490 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0491 02c7 | | Declare_Variable Any
0492 00d8 | | Load_Top At_Offset_0
0493 1c00 | | Execute_Immediate Run_Utility,0x0
0494 e002 | | Load 0x0,0x2
0495 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0496 00e3 | | Load_Encached Natural_Cache
0497 00e3 | | Load_Encached Natural_Cache
0498 00e3 | | Load_Encached Natural_Cache
0499 00e3 | | Load_Encached Natural_Cache
049a 4800 |H | Short_Literal 0x0
049b 4800 |H | Short_Literal 0x0
049c e002 | | Load 0x0,0x2
049d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
049e 035b | [ | Declare_Type Array,Constrained
049f 0337 | 7 | Declare_Variable Array
04a0 0092 08fe | | Action Push_String_Extended,0x8fe ; "BACKUP BLUE TAPE, "
04a2 4800 |H | Short_Literal 0x0
04a3 4811 |H | Short_Literal 0x11
04a4 e015 | | Load 0x0,0x15
04a5 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04a6 035b | [ | Declare_Type Array,Constrained
04a7 0337 | 7 | Declare_Variable Array
04a8 e60f | | Load 0x3,0xf
04a9 e003 | | Load 0x0,0x3
04aa 180f | | Execute Package,Field_Execute,Field_Number 0xf
04ab e610 | | Load 0x3,0x10
04ac 01d4 | | Execute Vector,Structure_Write
04ad 4812 |H | Short_Literal 0x12
04ae e017 | | Load 0x0,0x17
04af 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04b0 0a11 | | Execute_Immediate Plus,0x11
04b1 00e3 | | Load_Encached Natural_Cache
04b2 03f8 | | Declare_Type Discrete,Constrained
04b3 e017 | | Load 0x0,0x17
04b4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04b5 0a12 | | Execute_Immediate Plus,0x12
04b6 484b |HK | Short_Literal 0x4b
04b7 00e3 | | Load_Encached Natural_Cache
04b8 03f8 | | Declare_Type Discrete,Constrained
04b9 0092 08ff | | Action Push_String_Extended,0x8ff ; "BACKUP, "
04bb 4800 |H | Short_Literal 0x0
04bc 4807 |H | Short_Literal 0x7
04bd e015 | | Load 0x0,0x15
04be 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04bf 035b | [ | Declare_Type Array,Constrained
04c0 0337 | 7 | Declare_Variable Array
04c1 e613 | | Load 0x3,0x13
04c2 e003 | | Load 0x0,0x3
04c3 180f | | Execute Package,Field_Execute,Field_Number 0xf
04c4 e614 | | Load 0x3,0x14
04c5 01d4 | | Execute Vector,Structure_Write
04c6 4808 |H | Short_Literal 0x8
04c7 e017 | | Load 0x0,0x17
04c8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04c9 0a07 | | Execute_Immediate Plus,0x7
04ca 00e3 | | Load_Encached Natural_Cache
04cb 03f8 | | Declare_Type Discrete,Constrained
04cc e017 | | Load 0x0,0x17
04cd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04ce 0a08 | | Execute_Immediate Plus,0x8
04cf 484b |HK | Short_Literal 0x4b
04d0 00e3 | | Load_Encached Natural_Cache
04d1 03f8 | | Declare_Type Discrete,Constrained
04d2 0092 0900 | | Action Push_String_Extended,0x900 ; "Retained Snapshot Time: "
04d4 4818 |H | Short_Literal 0x18
04d5 e017 | | Load 0x0,0x17
04d6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04d7 0a17 | | Execute_Immediate Plus,0x17
04d8 00e3 | | Load_Encached Natural_Cache
04d9 03f8 | | Declare_Type Discrete,Constrained
04da 029f 0863 | c| Declare_Subprogram INIT_0860,For_Call
04dc BODY_0478:
04dc 00cf | | Action Mark_Auxiliary
04dd 8619 | | Call 0x3,0x19
04de 00c9 | | Action Pop_Auxiliary_Loop
04df 7ffd | | Jump 0x4dd
04e0 00ce | | Action Pop_Auxiliary
04e1 e5ff | | Load 0x2,-0x1
04e2 01db | | Execute Vector,Length
04e3 6819 |h | Jump_Zero 0x4fd
04e4 e5ff | | Load 0x2,-0x1
04e5 e005 | | Load 0x0,0x5
04e6 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
04e7 e40c | | Load 0x2,0xc
04e8 017d | } | Execute Record,Structure_Write
04e9 e40c | | Load 0x2,0xc
04ea 8419 | | Call 0x2,0x19
04eb a40b | | Store_Unchecked 0x2,0xb
04ec e40b | | Load 0x2,0xb
04ed 0c01 | | Execute_Immediate Greater_Equal,0x1
04ee 680e |h | Jump_Zero 0x4fd
04ef 0092 0901 | | Action Push_String_Extended,0x901 ; "Verify_Backup will now pause until "
04f1 e40b | | Load 0x2,0xb
04f2 e006 | | Load 0x0,0x6
04f3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04f4 e006 | | Load 0x0,0x6
04f5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04f6 e017 | | Load 0x0,0x17
04f7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04f8 01cc | | Execute Vector,Catenate
04f9 e00b | | Load 0x0,0xb
04fa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04fb e40b | | Load 0x2,0xb
04fc 00ba | | Action Initiate_Delay
04fd 4803 |H | Short_Literal 0x3
04fe e00b | | Load 0x0,0xb
04ff 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0500 e413 | | Load 0x2,0x13
0501 6818 |h | Jump_Zero 0x51a
0502 4808 |H | Short_Literal 0x8
0503 e615 | | Load 0x3,0x15
0504 0269 | i | Execute Discrete,Last
0505 e411 | | Load 0x2,0x11
0506 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0507 01cf | | Execute Vector,Slice_Read
0508 e003 | | Load 0x0,0x3
0509 1811 | | Execute Package,Field_Execute,Field_Number 0x11
050a e017 | | Load 0x0,0x17
050b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
050c c40e | | Store 0x2,0xe
050d e616 | | Load 0x3,0x16
050e 026a | j | Execute Discrete,First
050f 484b |HK | Short_Literal 0x4b
0510 e411 | | Load 0x2,0x11
0511 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0512 01cf | | Execute Vector,Slice_Read
0513 e003 | | Load 0x0,0x3
0514 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0515 00e2 | | Load_Encached Integer_Cache
0516 00e0 | | Load_Encached Standard_Cache
0517 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0518 c410 | | Store 0x2,0x10
0519 7817 |x | Jump 0x531
051a 4812 |H | Short_Literal 0x12
051b e611 | | Load 0x3,0x11
051c 0269 | i | Execute Discrete,Last
051d e411 | | Load 0x2,0x11
051e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
051f 01cf | | Execute Vector,Slice_Read
0520 e003 | | Load 0x0,0x3
0521 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0522 e017 | | Load 0x0,0x17
0523 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0524 c40e | | Store 0x2,0xe
0525 e612 | | Load 0x3,0x12
0526 026a | j | Execute Discrete,First
0527 484b |HK | Short_Literal 0x4b
0528 e411 | | Load 0x2,0x11
0529 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
052a 01cf | | Execute Vector,Slice_Read
052b e003 | | Load 0x0,0x3
052c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
052d 00e2 | | Load_Encached Integer_Cache
052e 00e0 | | Load_Encached Standard_Cache
052f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0530 c410 | | Store 0x2,0x10
0531 0092 0902 | | Action Push_String_Extended,0x902 ; " Backup_Time: "
0533 e40e | | Load 0x2,0xe
0534 e017 | | Load 0x0,0x17
0535 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0536 01cc | | Execute Vector,Catenate
0537 e00b | | Load 0x0,0xb
0538 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0539 0092 0903 | | Action Push_String_Extended,0x903 ; " Backup_Version:"
053b e410 | | Load 0x2,0x10
053c 00e0 | | Load_Encached Standard_Cache
053d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
053e 01cc | | Execute Vector,Catenate
053f e00b | | Load 0x0,0xb
0540 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0541 0092 0904 | | Action Push_String_Extended,0x904 ; "Exabyte_Recovery: "
0543 e413 | | Load 0x2,0x13
0544 00e1 | | Load_Encached Boolean_Cache
0545 011c | | Execute Any,Convert_Unchecked
0546 1c01 | | Execute_Immediate Run_Utility,0x1
0547 01cc | | Execute Vector,Catenate
0548 e00b | | Load 0x0,0xb
0549 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
054a 4802 |H | Short_Literal 0x2
054b e00b | | Load 0x0,0xb
054c 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
054d 0092 0905 | | Action Push_String_Extended,0x905 ; "Positioning tape to Backup Index"
054f e00b | | Load 0x0,0xb
0550 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0551 00cf | | Action Mark_Auxiliary
0552 00e3 | | Load_Encached Natural_Cache
0553 e002 | | Load 0x0,0x2
0554 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0555 e007 | | Load 0x0,0x7
0556 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0557 e002 | | Load 0x0,0x2
0558 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0559 e015 | | Load 0x0,0x15
055a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
055b e608 | | Load 0x3,0x8
055c 0120 | | Execute Any,Is_Value
055d 6803 |h | Jump_Zero 0x561
055e e006 | | Load 0x0,0x6
055f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0560 7801 |x | Jump 0x562
0561 e608 | | Load 0x3,0x8
0562 00e1 | | Load_Encached Boolean_Cache
0563 e606 | | Load 0x3,0x6
0564 0120 | | Execute Any,Is_Value
0565 6803 |h | Jump_Zero 0x569
0566 e006 | | Load 0x0,0x6
0567 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0568 7801 |x | Jump 0x56a
0569 e606 | | Load 0x3,0x6
056a e605 | | Load 0x3,0x5
056b e604 | | Load 0x3,0x4
056c 4808 |H | Short_Literal 0x8
056d e415 | | Load 0x2,0x15
056e e009 | | Load 0x0,0x9
056f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0570 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0571 00d2 | | Pop_Control Pop_Count_2
0572 c606 | | Store 0x3,0x6
0573 c607 | | Store 0x3,0x7
0574 c608 | | Store 0x3,0x8
0575 c602 | | Store 0x3,0x2
0576 c609 | | Store 0x3,0x9
0577 c40f | | Store 0x2,0xf
0578 c60a | | Store 0x3,0xa
0579 c60c | | Store 0x3,0xc
057a e602 | | Load 0x3,0x2
057b 0f20 | | Execute_Immediate Equal,0x20
057c 7001 |p | Jump_Nonzero 0x57e
057d 0887 | | Execute_Immediate Raise,0x87
057e e607 | | Load 0x3,0x7
057f 6801 |h | Jump_Zero 0x581
0580 0887 | | Execute_Immediate Raise,0x87
0581 e609 | | Load 0x3,0x9
0582 0f03 | | Execute_Immediate Equal,0x3
0583 7001 |p | Jump_Nonzero 0x585
0584 0887 | | Execute_Immediate Raise,0x87
0585 e60a | | Load 0x3,0xa
0586 6801 |h | Jump_Zero 0x588
0587 0887 | | Execute_Immediate Raise,0x87
0588 e604 | | Load 0x3,0x4
0589 e405 | | Load 0x2,0x5
058a 01df | | Execute Vector,Equal
058b 700f |p | Jump_Nonzero 0x59b
058c 0092 0906 | | Action Push_String_Extended,0x906 ; " ... Skipping File: "
058e e604 | | Load 0x3,0x4
058f e003 | | Load 0x0,0x3
0590 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0591 01cc | | Execute Vector,Catenate
0592 e00b | | Load 0x0,0xb
0593 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0594 4801 |H | Short_Literal 0x1
0595 e415 | | Load 0x2,0x15
0596 e009 | | Load 0x0,0x9
0597 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0598 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0599 00c9 | | Action Pop_Auxiliary_Loop
059a 7fb7 | | Jump 0x552
059b 00ce | | Action Pop_Auxiliary
059c 4801 |H | Short_Literal 0x1
059d e00b | | Load 0x0,0xb
059e 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
059f 0092 0907 | | Action Push_String_Extended,0x907 ; "Processing Backup Index"
05a1 e00b | | Load 0x0,0xb
05a2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
05a3 4801 |H | Short_Literal 0x1
05a4 e00b | | Load 0x0,0xb
05a5 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
05a6 e60c | | Load 0x3,0xc
05a7 6819 |h | Jump_Zero 0x5c1
05a8 e60c | | Load 0x3,0xc
05a9 0f01 | | Execute_Immediate Equal,0x1
05aa 7001 |p | Jump_Nonzero 0x5ac
05ab 0887 | | Execute_Immediate Raise,0x87
05ac e415 | | Load 0x2,0x15
05ad e009 | | Load 0x0,0x9
05ae 1b16 | | Execute Package,Field_Read,Field_Number 0x16
05af 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
05b0 e60e | | Load 0x3,0xe
05b1 01d4 | | Execute Vector,Structure_Write
05b2 4818 |H | Short_Literal 0x18
05b3 e618 | | Load 0x3,0x18
05b4 0269 | i | Execute Discrete,Last
05b5 4800 |H | Short_Literal 0x0
05b6 e60e | | Load 0x3,0xe
05b7 01d5 | | Execute Vector,Field_Reference
05b8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
05b9 01cf | | Execute Vector,Slice_Read
05ba e003 | | Load 0x0,0x3
05bb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05bc e017 | | Load 0x0,0x17
05bd 181f | | Execute Package,Field_Execute,Field_Number 0x1f
05be c40e | | Store 0x2,0xe
05bf 4801 |H | Short_Literal 0x1
05c0 a412 | | Store_Unchecked 0x2,0x12
05c1 e415 | | Load 0x2,0x15
05c2 8425 | % | Call 0x2,0x25
05c3 00e3 | | Load_Encached Natural_Cache
05c4 00e3 | | Load_Encached Natural_Cache
05c5 e415 | | Load 0x2,0x15
05c6 e009 | | Load 0x0,0x9
05c7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
05c8 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
05c9 c60b | | Store 0x3,0xb
05ca c60d | | Store 0x3,0xd
05cb e60d | | Load 0x3,0xd
05cc 6801 |h | Jump_Zero 0x5ce
05cd 0887 | | Execute_Immediate Raise,0x87
05ce 00e3 | | Load_Encached Natural_Cache
05cf e002 | | Load 0x0,0x2
05d0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
05d1 e007 | | Load 0x0,0x7
05d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05d3 e002 | | Load 0x0,0x2
05d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d5 e015 | | Load 0x0,0x15
05d6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
05d7 e608 | | Load 0x3,0x8
05d8 0120 | | Execute Any,Is_Value
05d9 6803 |h | Jump_Zero 0x5dd
05da e006 | | Load 0x0,0x6
05db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05dc 7801 |x | Jump 0x5de
05dd e608 | | Load 0x3,0x8
05de 00e1 | | Load_Encached Boolean_Cache
05df e606 | | Load 0x3,0x6
05e0 0120 | | Execute Any,Is_Value
05e1 6803 |h | Jump_Zero 0x5e5
05e2 e006 | | Load 0x0,0x6
05e3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05e4 7801 |x | Jump 0x5e6
05e5 e606 | | Load 0x3,0x6
05e6 e605 | | Load 0x3,0x5
05e7 e604 | | Load 0x3,0x4
05e8 4808 |H | Short_Literal 0x8
05e9 e415 | | Load 0x2,0x15
05ea e009 | | Load 0x0,0x9
05eb 1b16 | | Execute Package,Field_Read,Field_Number 0x16
05ec 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
05ed 00d2 | | Pop_Control Pop_Count_2
05ee c606 | | Store 0x3,0x6
05ef c607 | | Store 0x3,0x7
05f0 c608 | | Store 0x3,0x8
05f1 c602 | | Store 0x3,0x2
05f2 c609 | | Store 0x3,0x9
05f3 c40f | | Store 0x2,0xf
05f4 c60a | | Store 0x3,0xa
05f5 c60c | | Store 0x3,0xc
05f6 e602 | | Load 0x3,0x2
05f7 0f20 | | Execute_Immediate Equal,0x20
05f8 7001 |p | Jump_Nonzero 0x5fa
05f9 0887 | | Execute_Immediate Raise,0x87
05fa e607 | | Load 0x3,0x7
05fb 6801 |h | Jump_Zero 0x5fd
05fc 0887 | | Execute_Immediate Raise,0x87
05fd e609 | | Load 0x3,0x9
05fe 0f03 | | Execute_Immediate Equal,0x3
05ff 7001 |p | Jump_Nonzero 0x601
0600 0887 | | Execute_Immediate Raise,0x87
0601 e60c | | Load 0x3,0xc
0602 6801 |h | Jump_Zero 0x604
0603 0887 | | Execute_Immediate Raise,0x87
0604 e60a | | Load 0x3,0xa
0605 6801 |h | Jump_Zero 0x607
0606 0887 | | Execute_Immediate Raise,0x87
0607 e604 | | Load 0x3,0x4
0608 e406 | | Load 0x2,0x6
0609 01df | | Execute Vector,Equal
060a 7001 |p | Jump_Nonzero 0x60c
060b 0887 | | Execute_Immediate Raise,0x87
060c e415 | | Load 0x2,0x15
060d 8425 | % | Call 0x2,0x25
060e 00e3 | | Load_Encached Natural_Cache
060f 00e3 | | Load_Encached Natural_Cache
0610 e415 | | Load 0x2,0x15
0611 e009 | | Load 0x0,0x9
0612 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0613 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0614 c60b | | Store 0x3,0xb
0615 c60d | | Store 0x3,0xd
0616 e60d | | Load 0x3,0xd
0617 6801 |h | Jump_Zero 0x619
0618 0887 | | Execute_Immediate Raise,0x87
0619 e415 | | Load 0x2,0x15
061a 8426 | & | Call 0x2,0x26
061b 4801 |H | Short_Literal 0x1
061c e00b | | Load 0x0,0xb
061d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
061e e412 | | Load 0x2,0x12
061f 6808 |h | Jump_Zero 0x628
0620 0092 0908 | | Action Push_String_Extended,0x908 ; " Backup_Time changed to "
0622 e40e | | Load 0x2,0xe
0623 e017 | | Load 0x0,0x17
0624 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0625 01cc | | Execute Vector,Catenate
0626 e00b | | Load 0x0,0xb
0627 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0628 0092 0909 | | Action Push_String_Extended,0x909 ; " Number_Of_Backups set to"
062a e40d | | Load 0x2,0xd
062b 00e0 | | Load_Encached Standard_Cache
062c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
062d 01cc | | Execute Vector,Catenate
062e e00b | | Load 0x0,0xb
062f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0630 4802 |H | Short_Literal 0x2
0631 e00b | | Load 0x0,0xb
0632 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0633 e413 | | Load 0x2,0x13
0634 6811 |h | Jump_Zero 0x646
0635 0092 090a | | Action Push_String_Extended,0x90a ; "Positioning tape to Backup Data"
0637 e00b | | Load 0x0,0xb
0638 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0639 4801 |H | Short_Literal 0x1
063a e415 | | Load 0x2,0x15
063b e009 | | Load 0x0,0x9
063c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
063d 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
063e 0092 090b | | Action Push_String_Extended,0x90b ; "Processing Backup Data"
0640 e00b | | Load 0x0,0xb
0641 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0642 4801 |H | Short_Literal 0x1
0643 e00b | | Load 0x0,0xb
0644 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0645 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0646 0092 090c | | Action Push_String_Extended,0x90c ; "Unloading Backup Index tape"
0648 e00b | | Load 0x0,0xb
0649 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
064a e415 | | Load 0x2,0x15
064b e009 | | Load 0x0,0x9
064c 1b16 | | Execute Package,Field_Read,Field_Number 0x16
064d 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
064e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
064f 0000 | | .XXX[0x1]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 067e | ~ | .CONST 0x067e ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0011 | | .CONST 0x0011 ; Number of locals
0653 INIT_0650:
0653 e002 | | Load 0x0,0x2
0654 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0655 0322 | " | Declare_Variable Record
0656 e7ff | | Load 0x3,-0x1
0657 e602 | | Load 0x3,0x2
0658 017d | } | Execute Record,Structure_Write
0659 e015 | | Load 0x0,0x15
065a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
065b e002 | | Load 0x0,0x2
065c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
065d 0337 | 7 | Declare_Variable Array
065e e002 | | Load 0x0,0x2
065f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0660 0337 | 7 | Declare_Variable Array
0661 4801 |H | Short_Literal 0x1
0662 4850 |HP | Short_Literal 0x50
0663 e002 | | Load 0x0,0x2
0664 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0665 035b | [ | Declare_Type Array,Constrained
0666 0337 | 7 | Declare_Variable Array
0667 e006 | | Load 0x0,0x6
0668 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0669 02c7 | | Declare_Variable Any
066a 00d8 | | Load_Top At_Offset_0
066b 1c00 | | Execute_Immediate Run_Utility,0x0
066c 00e1 | | Load_Encached Boolean_Cache
066d e006 | | Load 0x0,0x6
066e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
066f 02c7 | | Declare_Variable Any
0670 00d8 | | Load_Top At_Offset_0
0671 1c00 | | Execute_Immediate Run_Utility,0x0
0672 e002 | | Load 0x0,0x2
0673 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0674 00e3 | | Load_Encached Natural_Cache
0675 00e3 | | Load_Encached Natural_Cache
0676 00e3 | | Load_Encached Natural_Cache
0677 00e3 | | Load_Encached Natural_Cache
0678 00e3 | | Load_Encached Natural_Cache
0679 0092 090d | | Action Push_String_Extended,0x90d ; "Space Info Vol"
067b 00d8 | | Load_Top At_Offset_0
067c e003 | | Load 0x0,0x3
067d 180f | | Execute Package,Field_Execute,Field_Number 0xf
067e BODY_0650:
067e e7ff | | Load 0x3,-0x1
067f e411 | | Load 0x2,0x11
0680 017f | | Execute Record,Equal
0681 6803 |h | Jump_Zero 0x685
0682 e413 | | Load 0x2,0x13
0683 7029 |p) | Jump_Nonzero 0x6ad
0684 0887 | | Execute_Immediate Raise,0x87
0685 e413 | | Load 0x2,0x13
0686 6804 |h | Jump_Zero 0x68b
0687 e415 | | Load 0x2,0x15
0688 e009 | | Load 0x0,0x9
0689 1b16 | | Execute Package,Field_Read,Field_Number 0x16
068a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
068b 0092 090e | | Action Push_String_Extended,0x90e ; "Requesting operator to mount 1st Backup Data tape"
068d e00b | | Load 0x0,0xb
068e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
068f e015 | | Load 0x0,0x15
0690 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0691 e604 | | Load 0x3,0x4
0692 e602 | | Load 0x3,0x2
0693 0092 090f | | Action Push_String_Extended,0x90f ; "1ST BACKUP DATA TAPE "
0695 e003 | | Load 0x0,0x3
0696 180f | | Execute Package,Field_Execute,Field_Number 0xf
0697 e415 | | Load 0x2,0x15
0698 e009 | | Load 0x0,0x9
0699 1b16 | | Execute Package,Field_Read,Field_Number 0x16
069a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
069b 00d2 | | Pop_Control Pop_Count_2
069c c603 | | Store 0x3,0x3
069d 0092 090b | | Action Push_String_Extended,0x90b ; "Processing Backup Data"
069f e00b | | Load 0x0,0xb
06a0 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
06a1 4801 |H | Short_Literal 0x1
06a2 e00b | | Load 0x0,0xb
06a3 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
06a4 e603 | | Load 0x3,0x3
06a5 0f20 | | Execute_Immediate Equal,0x20
06a6 7001 |p | Jump_Nonzero 0x6a8
06a7 0887 | | Execute_Immediate Raise,0x87
06a8 e604 | | Load 0x3,0x4
06a9 e402 | | Load 0x2,0x2
06aa 01df | | Execute Vector,Equal
06ab 7001 |p | Jump_Nonzero 0x6ad
06ac 0887 | | Execute_Immediate Raise,0x87
06ad 00cf | | Action Mark_Auxiliary
06ae 00cf | | Action Mark_Auxiliary
06af e415 | | Load 0x2,0x15
06b0 e009 | | Load 0x0,0x9
06b1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
06b2 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
06b3 7054 |pT | Jump_Nonzero 0x708
06b4 00e3 | | Load_Encached Natural_Cache
06b5 e002 | | Load 0x0,0x2
06b6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
06b7 e007 | | Load 0x0,0x7
06b8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
06b9 e002 | | Load 0x0,0x2
06ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06bb e015 | | Load 0x0,0x15
06bc 1b11 | | Execute Package,Field_Read,Field_Number 0x11
06bd e609 | | Load 0x3,0x9
06be 0120 | | Execute Any,Is_Value
06bf 6803 |h | Jump_Zero 0x6c3
06c0 e006 | | Load 0x0,0x6
06c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06c2 7801 |x | Jump 0x6c4
06c3 e609 | | Load 0x3,0x9
06c4 00e1 | | Load_Encached Boolean_Cache
06c5 e607 | | Load 0x3,0x7
06c6 0120 | | Execute Any,Is_Value
06c7 6803 |h | Jump_Zero 0x6cb
06c8 e006 | | Load 0x0,0x6
06c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06ca 7801 |x | Jump 0x6cc
06cb e607 | | Load 0x3,0x7
06cc e606 | | Load 0x3,0x6
06cd e605 | | Load 0x3,0x5
06ce 4808 |H | Short_Literal 0x8
06cf e415 | | Load 0x2,0x15
06d0 e009 | | Load 0x0,0x9
06d1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
06d2 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
06d3 00d2 | | Pop_Control Pop_Count_2
06d4 c607 | | Store 0x3,0x7
06d5 c608 | | Store 0x3,0x8
06d6 c609 | | Store 0x3,0x9
06d7 c603 | | Store 0x3,0x3
06d8 c60a | | Store 0x3,0xa
06d9 c40f | | Store 0x2,0xf
06da c60b | | Store 0x3,0xb
06db c60d | | Store 0x3,0xd
06dc 4800 |H | Short_Literal 0x0
06dd 480d |H | Short_Literal 0xd
06de e605 | | Load 0x3,0x5
06df 01cf | | Execute Vector,Slice_Read
06e0 e611 | | Load 0x3,0x11
06e1 01df | | Execute Vector,Equal
06e2 7025 |p% | Jump_Nonzero 0x708
06e3 e413 | | Load 0x2,0x13
06e4 6814 |h | Jump_Zero 0x6f9
06e5 00cf | | Action Mark_Auxiliary
06e6 e404 | | Load 0x2,0x4
06e7 01d9 | | Execute Vector,Reverse_Bounds
06e8 0007 | | Action Break_Optional
06e9 e605 | | Load 0x3,0x5
06ea e616 | | Load 0x3,0x16
06eb e404 | | Load 0x2,0x4
06ec 01d5 | | Execute Vector,Field_Reference
06ed 01df | | Execute Vector,Equal
06ee 6807 |h | Jump_Zero 0x6f6
06ef e415 | | Load 0x2,0x15
06f0 e009 | | Load 0x0,0x9
06f1 1b16 | | Execute Package,Field_Read,Field_Number 0x16
06f2 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
06f3 4800 |H | Short_Literal 0x0
06f4 a414 | | Store_Unchecked 0x2,0x14
06f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06f6 00c8 | | Action Pop_Auxiliary_Range
06f7 3ff1 |? | Loop_Increasing 0x6e9
06f8 00ce | | Action Pop_Auxiliary
06f9 0092 0906 | | Action Push_String_Extended,0x906 ; " ... Skipping File: "
06fb e605 | | Load 0x3,0x5
06fc e003 | | Load 0x0,0x3
06fd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06fe 01cc | | Execute Vector,Catenate
06ff e00b | | Load 0x0,0xb
0700 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0701 4801 |H | Short_Literal 0x1
0702 e415 | | Load 0x2,0x15
0703 e009 | | Load 0x0,0x9
0704 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0705 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0706 00c9 | | Action Pop_Auxiliary_Loop
0707 7fa7 | | Jump 0x6af
0708 00ce | | Action Pop_Auxiliary
0709 e415 | | Load 0x2,0x15
070a e009 | | Load 0x0,0x9
070b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
070c 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
070d 70e7 |p | Jump_Nonzero 0x7f5
070e 480e |H | Short_Literal 0xe
070f 4810 |H | Short_Literal 0x10
0710 e605 | | Load 0x3,0x5
0711 01cf | | Execute Vector,Slice_Read
0712 e003 | | Load 0x0,0x3
0713 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0714 00e2 | | Load_Encached Integer_Cache
0715 00e0 | | Load_Encached Standard_Cache
0716 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0717 c60f | | Store 0x3,0xf
0718 e603 | | Load 0x3,0x3
0719 0f20 | | Execute_Immediate Equal,0x20
071a 7001 |p | Jump_Nonzero 0x71c
071b 0887 | | Execute_Immediate Raise,0x87
071c e608 | | Load 0x3,0x8
071d 6801 |h | Jump_Zero 0x71f
071e 0887 | | Execute_Immediate Raise,0x87
071f e60a | | Load 0x3,0xa
0720 0f03 | | Execute_Immediate Equal,0x3
0721 7001 |p | Jump_Nonzero 0x723
0722 0887 | | Execute_Immediate Raise,0x87
0723 e60d | | Load 0x3,0xd
0724 6801 |h | Jump_Zero 0x726
0725 0887 | | Execute_Immediate Raise,0x87
0726 e60b | | Load 0x3,0xb
0727 6801 |h | Jump_Zero 0x729
0728 0887 | | Execute_Immediate Raise,0x87
0729 e605 | | Load 0x3,0x5
072a 4811 |H | Short_Literal 0x11
072b 0092 090d | | Action Push_String_Extended,0x90d ; "Space Info Vol"
072d e60f | | Load 0x3,0xf
072e 00e0 | | Load_Encached Standard_Cache
072f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0730 01cc | | Execute Vector,Catenate
0731 e003 | | Load 0x0,0x3
0732 180d | | Execute Package,Field_Execute,Field_Number 0xd
0733 01df | | Execute Vector,Equal
0734 7001 |p | Jump_Nonzero 0x736
0735 0887 | | Execute_Immediate Raise,0x87
0736 e414 | | Load 0x2,0x14
0737 680d |h | Jump_Zero 0x745
0738 e415 | | Load 0x2,0x15
0739 8425 | % | Call 0x2,0x25
073a 00e3 | | Load_Encached Natural_Cache
073b 00e3 | | Load_Encached Natural_Cache
073c e415 | | Load 0x2,0x15
073d e009 | | Load 0x0,0x9
073e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
073f 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0740 c60c | | Store 0x3,0xc
0741 c60e | | Store 0x3,0xe
0742 e60e | | Load 0x3,0xe
0743 6806 |h | Jump_Zero 0x74a
0744 0887 | | Execute_Immediate Raise,0x87
0745 4801 |H | Short_Literal 0x1
0746 e415 | | Load 0x2,0x15
0747 e009 | | Load 0x0,0x9
0748 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0749 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
074a 00e3 | | Load_Encached Natural_Cache
074b e002 | | Load 0x0,0x2
074c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
074d e007 | | Load 0x0,0x7
074e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
074f e002 | | Load 0x0,0x2
0750 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0751 e015 | | Load 0x0,0x15
0752 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0753 e609 | | Load 0x3,0x9
0754 0120 | | Execute Any,Is_Value
0755 6803 |h | Jump_Zero 0x759
0756 e006 | | Load 0x0,0x6
0757 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0758 7801 |x | Jump 0x75a
0759 e609 | | Load 0x3,0x9
075a 00e1 | | Load_Encached Boolean_Cache
075b e607 | | Load 0x3,0x7
075c 0120 | | Execute Any,Is_Value
075d 6803 |h | Jump_Zero 0x761
075e e006 | | Load 0x0,0x6
075f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0760 7801 |x | Jump 0x762
0761 e607 | | Load 0x3,0x7
0762 e606 | | Load 0x3,0x6
0763 e605 | | Load 0x3,0x5
0764 4808 |H | Short_Literal 0x8
0765 e415 | | Load 0x2,0x15
0766 e009 | | Load 0x0,0x9
0767 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0768 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0769 00d2 | | Pop_Control Pop_Count_2
076a c607 | | Store 0x3,0x7
076b c608 | | Store 0x3,0x8
076c c609 | | Store 0x3,0x9
076d c603 | | Store 0x3,0x3
076e c60a | | Store 0x3,0xa
076f c40f | | Store 0x2,0xf
0770 c60b | | Store 0x3,0xb
0771 c60d | | Store 0x3,0xd
0772 e603 | | Load 0x3,0x3
0773 0f20 | | Execute_Immediate Equal,0x20
0774 7001 |p | Jump_Nonzero 0x776
0775 0887 | | Execute_Immediate Raise,0x87
0776 e608 | | Load 0x3,0x8
0777 6801 |h | Jump_Zero 0x779
0778 0887 | | Execute_Immediate Raise,0x87
0779 e60a | | Load 0x3,0xa
077a 0f03 | | Execute_Immediate Equal,0x3
077b 7001 |p | Jump_Nonzero 0x77d
077c 0887 | | Execute_Immediate Raise,0x87
077d e60d | | Load 0x3,0xd
077e 6801 |h | Jump_Zero 0x780
077f 0887 | | Execute_Immediate Raise,0x87
0780 e60b | | Load 0x3,0xb
0781 6801 |h | Jump_Zero 0x783
0782 0887 | | Execute_Immediate Raise,0x87
0783 e605 | | Load 0x3,0x5
0784 4811 |H | Short_Literal 0x11
0785 0092 0910 | | Action Push_String_Extended,0x910 ; "Block Info Vol"
0787 e60f | | Load 0x3,0xf
0788 00e0 | | Load_Encached Standard_Cache
0789 1818 | | Execute Package,Field_Execute,Field_Number 0x18
078a 01cc | | Execute Vector,Catenate
078b e003 | | Load 0x0,0x3
078c 180d | | Execute Package,Field_Execute,Field_Number 0xd
078d 01df | | Execute Vector,Equal
078e 7001 |p | Jump_Nonzero 0x790
078f 0887 | | Execute_Immediate Raise,0x87
0790 e415 | | Load 0x2,0x15
0791 8425 | % | Call 0x2,0x25
0792 00e3 | | Load_Encached Natural_Cache
0793 00e3 | | Load_Encached Natural_Cache
0794 e415 | | Load 0x2,0x15
0795 e009 | | Load 0x0,0x9
0796 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0797 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0798 c60c | | Store 0x3,0xc
0799 c60e | | Store 0x3,0xe
079a e60e | | Load 0x3,0xe
079b 6801 |h | Jump_Zero 0x79d
079c 0887 | | Execute_Immediate Raise,0x87
079d 00e3 | | Load_Encached Natural_Cache
079e e002 | | Load 0x0,0x2
079f 1b13 | | Execute Package,Field_Read,Field_Number 0x13
07a0 e007 | | Load 0x0,0x7
07a1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
07a2 e002 | | Load 0x0,0x2
07a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07a4 e015 | | Load 0x0,0x15
07a5 1b11 | | Execute Package,Field_Read,Field_Number 0x11
07a6 e609 | | Load 0x3,0x9
07a7 0120 | | Execute Any,Is_Value
07a8 6803 |h | Jump_Zero 0x7ac
07a9 e006 | | Load 0x0,0x6
07aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07ab 7801 |x | Jump 0x7ad
07ac e609 | | Load 0x3,0x9
07ad 00e1 | | Load_Encached Boolean_Cache
07ae e607 | | Load 0x3,0x7
07af 0120 | | Execute Any,Is_Value
07b0 6803 |h | Jump_Zero 0x7b4
07b1 e006 | | Load 0x0,0x6
07b2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
07b3 7801 |x | Jump 0x7b5
07b4 e607 | | Load 0x3,0x7
07b5 e606 | | Load 0x3,0x6
07b6 e605 | | Load 0x3,0x5
07b7 4808 |H | Short_Literal 0x8
07b8 e415 | | Load 0x2,0x15
07b9 e009 | | Load 0x0,0x9
07ba 1b16 | | Execute Package,Field_Read,Field_Number 0x16
07bb 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
07bc 00d2 | | Pop_Control Pop_Count_2
07bd c607 | | Store 0x3,0x7
07be c608 | | Store 0x3,0x8
07bf c609 | | Store 0x3,0x9
07c0 c603 | | Store 0x3,0x3
07c1 c60a | | Store 0x3,0xa
07c2 c40f | | Store 0x2,0xf
07c3 c60b | | Store 0x3,0xb
07c4 c60d | | Store 0x3,0xd
07c5 e603 | | Load 0x3,0x3
07c6 0f20 | | Execute_Immediate Equal,0x20
07c7 7001 |p | Jump_Nonzero 0x7c9
07c8 0887 | | Execute_Immediate Raise,0x87
07c9 e608 | | Load 0x3,0x8
07ca 6801 |h | Jump_Zero 0x7cc
07cb 0887 | | Execute_Immediate Raise,0x87
07cc e60a | | Load 0x3,0xa
07cd 0f03 | | Execute_Immediate Equal,0x3
07ce 7001 |p | Jump_Nonzero 0x7d0
07cf 0887 | | Execute_Immediate Raise,0x87
07d0 e60d | | Load 0x3,0xd
07d1 6801 |h | Jump_Zero 0x7d3
07d2 0887 | | Execute_Immediate Raise,0x87
07d3 e60b | | Load 0x3,0xb
07d4 6801 |h | Jump_Zero 0x7d6
07d5 0887 | | Execute_Immediate Raise,0x87
07d6 e605 | | Load 0x3,0x5
07d7 4811 |H | Short_Literal 0x11
07d8 0092 0911 | | Action Push_String_Extended,0x911 ; "Block Data Vol"
07da e60f | | Load 0x3,0xf
07db 00e0 | | Load_Encached Standard_Cache
07dc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07dd 01cc | | Execute Vector,Catenate
07de e003 | | Load 0x0,0x3
07df 180d | | Execute Package,Field_Execute,Field_Number 0xd
07e0 01df | | Execute Vector,Equal
07e1 7001 |p | Jump_Nonzero 0x7e3
07e2 0887 | | Execute_Immediate Raise,0x87
07e3 e415 | | Load 0x2,0x15
07e4 8425 | % | Call 0x2,0x25
07e5 00e3 | | Load_Encached Natural_Cache
07e6 00e3 | | Load_Encached Natural_Cache
07e7 e415 | | Load 0x2,0x15
07e8 e009 | | Load 0x0,0x9
07e9 1b16 | | Execute Package,Field_Read,Field_Number 0x16
07ea 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
07eb c60c | | Store 0x3,0xc
07ec c60e | | Store 0x3,0xe
07ed e60e | | Load 0x3,0xe
07ee 6801 |h | Jump_Zero 0x7f0
07ef 0887 | | Execute_Immediate Raise,0x87
07f0 4801 |H | Short_Literal 0x1
07f1 e00b | | Load 0x0,0xb
07f2 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
07f3 00c9 | | Action Pop_Auxiliary_Loop
07f4 7eb9 |~ | Jump 0x6ae
07f5 00ce | | Action Pop_Auxiliary
07f6 e415 | | Load 0x2,0x15
07f7 e009 | | Load 0x0,0x9
07f8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
07f9 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
07fa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07fb 0000 0000 | | .BLANK 0000[0x5]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803 | | .CONST 0x0803 ; Address of begin
0801 080c | | .CONST 0x080c ; Address of exception handler
0802 0001 | | .CONST 0x0001 ; Number of locals
0803 BODY_0800:
0803 INIT_0800:
0803 e5ff | | Load 0x2,-0x1
0804 e005 | | Load 0x0,0x5
0805 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0806 e40c | | Load 0x2,0xc
0807 017d | } | Execute Record,Structure_Write
0808 e40c | | Load 0x2,0xc
0809 8419 | | Call 0x2,0x19
080a a40b | | Store_Unchecked 0x2,0xb
080b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
080c TRAP_0800:
080c 0007 | | Action Break_Optional
080d 0092 0912 | | Action Push_String_Extended,0x912 ; "Invalid start time specified."
080f e00b | | Load 0x0,0xb
0810 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0811 00cc | | Action Pop_Block
0812 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0813 0000 0000 | | .BLANK 0000[0x5]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b | | .CONST 0x081b ; Address of begin
0819 0004 | | .CONST 0x0004 ; Address of exception handler
081a 0001 | | .CONST 0x0001 ; Number of locals
081b BODY_0818:
081b INIT_0818:
081b 4801 |H | Short_Literal 0x1
081c e9fe | | Load 0x4,-0x2
081d e9ff | | Load 0x4,-0x1
081e e016 | | Load 0x0,0x16
081f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0820 0e00 | | Execute_Immediate Not_Equal,0x0
0821 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0822 0000 0000 | | .BLANK 0000[0x6]
0828 ; --------------------------------------------------------------------------------------
0828 ; SUBPROGRAM
0828 ; --------------------------------------------------------------------------------------
0828 082d | - | .CONST 0x082d ; Address of begin
0829 0004 | | .CONST 0x0004 ; Address of exception handler
082a 0002 | | .CONST 0x0002 ; Number of locals
082b INIT_0828:
082b 00e3 | | Load_Encached Natural_Cache
082c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
082d BODY_0828:
082d 00cf | | Action Mark_Auxiliary
082e 7804 |x | Jump 0x833
082f e802 | | Load 0x4,0x2
0830 0a01 | | Execute_Immediate Plus,0x1
0831 c802 | | Store 0x4,0x2
0832 00c9 | | Action Pop_Auxiliary_Loop
0833 e802 | | Load 0x4,0x2
0834 0a01 | | Execute_Immediate Plus,0x1
0835 e603 | | Load 0x3,0x3
0836 01d7 | | Execute Vector,Field_Read
0837 0e20 | | Execute_Immediate Not_Equal,0x20
0838 77f6 |w | Jump_Nonzero 0x82f
0839 00ce | | Action Pop_Auxiliary
083a 4801 |H | Short_Literal 0x1
083b e802 | | Load 0x4,0x2
083c e603 | | Load 0x3,0x3
083d 01cf | | Execute Vector,Slice_Read
083e 00d8 | | Load_Top At_Offset_0
083f 01da | | Execute Vector,Bounds
0840 00e9 | | Load_Encached String_Cache
0841 0334 | 4 | Declare_Variable Array,With_Constraint
0842 00d0 | | Action Swap_Control
0843 00d8 | | Load_Top At_Offset_0
0844 01dd | | Execute Vector,First
0845 e803 | | Load 0x4,0x3
0846 01dd | | Execute Vector,First
0847 0272 | r | Execute Discrete,Minus
0848 e803 | | Load 0x4,0x3
0849 01d9 | | Execute Vector,Reverse_Bounds
084a 0263 | c | Execute Discrete,Above_Bound
084b 700a |p | Jump_Nonzero 0x856
084c 00d8 | | Load_Top At_Offset_0
084d e805 | | Load 0x4,0x5
084e 0273 | s | Execute Discrete,Plus
084f e804 | | Load 0x4,0x4
0850 01d7 | | Execute Vector,Field_Read
0851 e807 | | Load 0x4,0x7
0852 e803 | | Load 0x4,0x3
0853 01d5 | | Execute Vector,Field_Reference
0854 0118 | | Execute Any,Write_Unchecked
0855 3ff6 |? | Loop_Increasing 0x84c
0856 00d2 | | Pop_Control Pop_Count_2
0857 00e2 | | Load_Encached Integer_Cache
0858 00e0 | | Load_Encached Standard_Cache
0859 1819 | | Execute Package,Field_Execute,Field_Number 0x19
085a 00d8 | | Load_Top At_Offset_0
085b 00e3 | | Load_Encached Natural_Cache
085c 0260 | ` | Execute Discrete,In_Type
085d 7001 |p | Jump_Nonzero 0x85f
085e 0801 | | Execute_Immediate Raise,0x1
085f 00ca | | Action Exit_Nullary_Function
0860 ; --------------------------------------------------------------------------------------
0860 ; SUBPROGRAM
0860 ; --------------------------------------------------------------------------------------
0860 0863 | c | .CONST 0x0863 ; Address of begin
0861 08bd | | .CONST 0x08bd ; Address of exception handler
0862 0001 | | .CONST 0x0001 ; Number of locals
0863 BODY_0860:
0863 INIT_0860:
0863 e008 | | Load 0x0,0x8
0864 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0865 e411 | | Load 0x2,0x11
0866 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0867 e008 | | Load 0x0,0x8
0868 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0869 e411 | | Load 0x2,0x11
086a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
086b e015 | | Load 0x0,0x15
086c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
086d e603 | | Load 0x3,0x3
086e e411 | | Load 0x2,0x11
086f 0092 0913 | | Action Push_String_Extended,0x913 ; "BACKUP INDEX TAPE (blue tape) "
0871 e003 | | Load 0x0,0x3
0872 180f | | Execute Package,Field_Execute,Field_Number 0xf
0873 e415 | | Load 0x2,0x15
0874 e009 | | Load 0x0,0x9
0875 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0876 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0877 00d2 | | Pop_Control Pop_Count_2
0878 c602 | | Store 0x3,0x2
0879 e415 | | Load 0x2,0x15
087a e009 | | Load 0x0,0x9
087b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
087c 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
087d e018 | | Load 0x0,0x18
087e 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
087f e018 | | Load 0x0,0x18
0880 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0881 a416 | | Store_Unchecked 0x2,0x16
0882 841f | | Call 0x2,0x1f
0883 7003 |p | Jump_Nonzero 0x887
0884 4800 |H | Short_Literal 0x0
0885 a413 | | Store_Unchecked 0x2,0x13
0886 7804 |x | Jump 0x88b
0887 e416 | | Load 0x2,0x16
0888 e019 | | Load 0x0,0x19
0889 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
088a a413 | | Store_Unchecked 0x2,0x13
088b e413 | | Load 0x2,0x13
088c e602 | | Load 0x3,0x2
088d 0f20 | | Execute_Immediate Equal,0x20
088e 0279 | y | Execute Discrete,And
088f e603 | | Load 0x3,0x3
0890 e402 | | Load 0x2,0x2
0891 01df | | Execute Vector,Equal
0892 0279 | y | Execute Discrete,And
0893 e614 | | Load 0x3,0x14
0894 01da | | Execute Vector,Bounds
0895 e411 | | Load 0x2,0x11
0896 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0897 01cf | | Execute Vector,Slice_Read
0898 e614 | | Load 0x3,0x14
0899 01df | | Execute Vector,Equal
089a 0279 | y | Execute Discrete,And
089b 6803 |h | Jump_Zero 0x89f
089c 00cc | | Action Pop_Block
089d 00a7 04e0 | | Action Jump_Extended,0x4e0
089f e413 | | Load 0x2,0x13
08a0 0f00 | | Execute_Immediate Equal,0x0
08a1 e602 | | Load 0x3,0x2
08a2 0f20 | | Execute_Immediate Equal,0x20
08a3 0279 | y | Execute Discrete,And
08a4 e603 | | Load 0x3,0x3
08a5 e402 | | Load 0x2,0x2
08a6 01df | | Execute Vector,Equal
08a7 0279 | y | Execute Discrete,And
08a8 e610 | | Load 0x3,0x10
08a9 01da | | Execute Vector,Bounds
08aa e411 | | Load 0x2,0x11
08ab 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
08ac 01cf | | Execute Vector,Slice_Read
08ad e610 | | Load 0x3,0x10
08ae 01df | | Execute Vector,Equal
08af 0279 | y | Execute Discrete,And
08b0 6803 |h | Jump_Zero 0x8b4
08b1 00cc | | Action Pop_Block
08b2 00a7 04e0 | | Action Jump_Extended,0x4e0
08b4 0092 0914 | | Action Push_String_Extended,0x914 ; "Not a Backup Index Tape"
08b6 e00b | | Load 0x0,0xb
08b7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
08b8 e415 | | Load 0x2,0x15
08b9 e009 | | Load 0x0,0x9
08ba 1b16 | | Execute Package,Field_Read,Field_Number 0x16
08bb 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
08bc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08bd TRAP_0860:
08bd e004 | | Load 0x0,0x4
08be 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
08bf 010f | | Execute Exception,Equal
08c0 700c |p | Jump_Nonzero 0x8cd
08c1 e004 | | Load 0x0,0x4
08c2 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
08c3 010f | | Execute Exception,Equal
08c4 7008 |p | Jump_Nonzero 0x8cd
08c5 e004 | | Load 0x0,0x4
08c6 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
08c7 010f | | Execute Exception,Equal
08c8 7004 |p | Jump_Nonzero 0x8cd
08c9 e004 | | Load 0x0,0x4
08ca 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
08cb 010f | | Execute Exception,Equal
08cc 6801 |h | Jump_Zero 0x8ce
08cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
08ce 0100 | | Execute Exception,Raise
08cf ; --------------------------------------------------------------------------------------
08cf ; STRING TABLE
08cf ; --------------------------------------------------------------------------------------
08cf 008e | | .STRTAB 0x008e->0x0916 ; "BACKUP"
08d0 0092 | | .STRTAB 0x0092->0x0919 ; "Vol Info"
08d1 0098 | | .STRTAB 0x0098->0x091d ; "VP Info"
08d2 009d | | .STRTAB 0x009d->0x0920 ; "DB Backups"
08d3 00a5 | | .STRTAB 0x00a5->0x0925 ; "DB Processors"
08d4 00b0 | | .STRTAB 0x00b0->0x092c ; "DB Disk Volumes"
08d5 00bd | | .STRTAB 0x00bd->0x0933 ; "DB Tape Volumes"
08d6 00ca | | .STRTAB 0x00ca->0x093b ; "Successfully completed scan of backup tape."
08d7 00f3 | | .STRTAB 0x00f3->0x0950 ; "Vol_Set_Already_Open_Or_Created"
08d8 0110 | | .STRTAB 0x0110->0x0960 ; "Not_Rational_Vol_Set"
08d9 0122 | " | .STRTAB 0x0122->0x096a ; "Vol_Set_Not_Open_Or_Created"
08da 013b | ; | .STRTAB 0x013b->0x0977 ; "End_Of_Vol_Set_Encountered"
08db 0153 | S | .STRTAB 0x0153->0x0984 ; "Not_Initialized"
08dc 0160 | ` | .STRTAB 0x0160->0x098c ; "Not_Original_Client"
08dd 0171 | q | .STRTAB 0x0171->0x0995 ; "Read_While_Writing"
08de 0181 | | .STRTAB 0x0181->0x099e ; "Write_While_Reading"
08df 0192 | | .STRTAB 0x0192->0x09a8 ; "Position_While_Writing"
08e0 01a6 | | .STRTAB 0x01a6->0x09b3 ; "Previous_Fatal_Error"
08e1 01b8 | | .STRTAB 0x01b8->0x09bd ; "File_Still_Being_Written"
08e2 01ce | | .STRTAB 0x01ce->0x09c9 ; "File_Still_Being_Read"
08e3 01e1 | | .STRTAB 0x01e1->0x09d3 ; "File_Not_Created"
08e4 01ef | | .STRTAB 0x01ef->0x09db ; "File_Not_Open"
08e5 01fa | | .STRTAB 0x01fa->0x09e2 ; "Retry_Count_Exhausted"
08e6 020d | | .STRTAB 0x020d->0x09ec ; "Vol_Set_Error"
08e7 0218 | | .STRTAB 0x0218->0x09f3 ; "Unexpected_Tape_Error"
08e8 022b | + | .STRTAB 0x022b->0x09fd ; "No_Drive_Available"
08e9 023b | ; | .STRTAB 0x023b->0x0a06 ; "Desired_Drive_Unavailable"
08ea 0252 | R | .STRTAB 0x0252->0x0a13 ; "Desired_Volume_Not_Found"
08eb 0268 | h | .STRTAB 0x0268->0x0a1f ; "Vol_Access_Denied"
08ec 0277 | w | .STRTAB 0x0277->0x0a27 ; "File_Access_Denied"
08ed 0287 | | .STRTAB 0x0287->0x0a30 ; "File_Expired"
08ee 0291 | | .STRTAB 0x0291->0x0a36 ; "Not_At_EOF"
08ef 0299 | | .STRTAB 0x0299->0x0a3b ; "Not_At_EOVS"
08f0 02a2 | | .STRTAB 0x02a2->0x0a41 ; "File_Not_In_Vol_Set"
08f1 02b3 | | .STRTAB 0x02b3->0x0a4a ; "Record_Not_In_File"
08f2 02c3 | | .STRTAB 0x02c3->0x0a53 ; "Incorrect_Buffer_Size"
08f3 02d6 | | .STRTAB 0x02d6->0x0a5e ; "Block_Length_Too_Short"
08f4 02ea | | .STRTAB 0x02ea->0x0a69 ; "Block_Length_Too_Long"
08f5 02fd | | .STRTAB 0x02fd->0x0a73 ; "*** "
08f6 0304 | | .STRTAB 0x0304->0x0a78 ; "*** Tape Data => "
08f7 0318 | | .STRTAB 0x0318->0x0a83 ; "D_10_20_0S"
08f8 0320 | | .STRTAB 0x0320->0x0a88 ; "D_10_20_0"
08f9 0327 | ' | .STRTAB 0x0327->0x0a8c ; "*** Unexpected Exception: "
08fa 033f | ? | .STRTAB 0x033f->0x0a99 ; "***"
08fb 0340 | @ | .STRTAB 0x0340->0x0a9b ; "*** Verify_Backup DID NOT complete"
08fc 0360 | ` | .STRTAB 0x0360->0x0aac ; " ... Reading File: "
08fd 0375 | u | .STRTAB 0x0375->0x0ab7 ; " blocks"
08fe 037a | z | .STRTAB 0x037a->0x0abb ; "BACKUP BLUE TAPE, "
08ff 038a | | .STRTAB 0x038a->0x0ac4 ; "BACKUP, "
0900 0390 | | .STRTAB 0x0390->0x0ac8 ; "Retained Snapshot Time: "
0901 03a6 | | .STRTAB 0x03a6->0x0ad4 ; "Verify_Backup will now pause until "
0902 03c7 | | .STRTAB 0x03c7->0x0ae5 ; " Backup_Time: "
0903 03d7 | | .STRTAB 0x03d7->0x0aee ; " Backup_Version:"
0904 03e6 | | .STRTAB 0x03e6->0x0af7 ; "Exabyte_Recovery: "
0905 03f6 | | .STRTAB 0x03f6->0x0b00 ; "Positioning tape to Backup Index"
0906 0414 | | .STRTAB 0x0414->0x0b10 ; " ... Skipping File: "
0907 0429 | ) | .STRTAB 0x0429->0x0b1b ; "Processing Backup Index"
0908 043e | > | .STRTAB 0x043e->0x0b27 ; " Backup_Time changed to "
0909 0458 | X | .STRTAB 0x0458->0x0b35 ; " Number_Of_Backups set to"
090a 0473 | s | .STRTAB 0x0473->0x0b43 ; "Positioning tape to Backup Data"
090b 0490 | | .STRTAB 0x0490->0x0b53 ; "Processing Backup Data"
090c 04a4 | | .STRTAB 0x04a4->0x0b5e ; "Unloading Backup Index tape"
090d 04bd | | .STRTAB 0x04bd->0x0b6b ; "Space Info Vol"
090e 04c9 | | .STRTAB 0x04c9->0x0b72 ; "Requesting operator to mount 1st Backup Data tape"
090f 04f8 | | .STRTAB 0x04f8->0x0b8b ; "1ST BACKUP DATA TAPE "
0910 050d | | .STRTAB 0x050d->0x0b96 ; "Block Info Vol"
0911 0519 | | .STRTAB 0x0519->0x0b9d ; "Block Data Vol"
0912 0525 | % | .STRTAB 0x0525->0x0ba4 ; "Invalid start time specified."
0913 0540 | @ | .STRTAB 0x0540->0x0bb3 ; "BACKUP INDEX TAPE (blue tape) "
0914 055e | ^ | .STRTAB 0x055e->0x0bc3 ; "Not a Backup Index Tape"
0915 0573 | s | .STREND 0x0573->0x0bce
0916 4241 434b |BACK| .STRTAB_STRINGS
0bcf 0000 | | .XXX[0x1]
0bd0 ; --------------------------------------------------------------------------------------
0bd0 ; Debug Table
0bd0 ; --------------------------------------------------------------------------------------
0bd0 0004 0011 | | .DEBUG4 0x0004,0x0011,0x97a8,0x0000,0x0001,0x0000
0bd6 0000 0000 | | .BLANK 0000[0x2a]