|
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_03b8fe
└─⟦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 0b50 | P | .CONST 0x0b50 ; 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 8006 | | .CONST 0x8006 ; 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 00e7 | | .CONST 0x00e7 ; Address of begin
0019 010b | | .CONST 0x010b ; Address of exception handler
001a 002a | * | .CONST 0x002a ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
001c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
001d e001 | | Load 0x0,0x1
001e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
001f 00e3 | | Load_Encached Natural_Cache
0020 e002 | | Load 0x0,0x2
0021 190d | | Execute Package,Field_Reference,Field_Number 0xd
0022 0007 | | Action Break_Optional
0023 e002 | | Load 0x0,0x2
0024 190f | | Execute Package,Field_Reference,Field_Number 0xf
0025 0007 | | Action Break_Optional
0026 e002 | | Load 0x0,0x2
0027 1911 | | Execute Package,Field_Reference,Field_Number 0x11
0028 0007 | | Action Break_Optional
0029 e003 | | Load 0x0,0x3
002a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
002b 0337 | 7 | Declare_Variable Array
002c 480d |H | Short_Literal 0xd
002d 0092 086c | l| Action Push_String_Extended,0x86c ; "BACKUP"
002f e002 | | Load 0x0,0x2
0030 180d | | Execute Package,Field_Execute,Field_Number 0xd
0031 e408 | | Load 0x2,0x8
0032 01d4 | | Execute Vector,Structure_Write
0033 4801 |H | Short_Literal 0x1
0034 4806 |H | Short_Literal 0x6
0035 e003 | | Load 0x0,0x3
0036 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0037 02a0 | | Declare_Subprogram Null_Subprogram
0038 4801 |H | Short_Literal 0x1
0039 035d | ] | Declare_Type Array,Defined
003a 00d8 | | Load_Top At_Offset_0
003b 0337 | 7 | Declare_Variable Array
003c 00d8 | | Load_Top At_Offset_0
003d 0335 | 5 | Declare_Variable Array,Duplicate
003e 00cd | | Action Spare6_Action
003f 4811 |H | Short_Literal 0x11
0040 0092 086d | m| Action Push_String_Extended,0x86d ; "Vol Info"
0042 8405 | | Call 0x2,0x5
0043 e004 | | Load 0x0,0x4
0044 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0045 01c7 | | Execute Vector,Convert
0046 e004 | | Load 0x0,0x4
0047 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0048 0119 | | Execute Any,Check_In_Formal_Type
0049 4801 |H | Short_Literal 0x1
004a e40b | | Load 0x2,0xb
004b 01d6 | | Execute Vector,Field_Write
004c 4811 |H | Short_Literal 0x11
004d 0092 086e | n| Action Push_String_Extended,0x86e ; "VP Info"
004f 8405 | | Call 0x2,0x5
0050 e004 | | Load 0x0,0x4
0051 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0052 01c7 | | Execute Vector,Convert
0053 e004 | | Load 0x0,0x4
0054 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0055 0119 | | Execute Any,Check_In_Formal_Type
0056 4802 |H | Short_Literal 0x2
0057 e40b | | Load 0x2,0xb
0058 01d6 | | Execute Vector,Field_Write
0059 4811 |H | Short_Literal 0x11
005a 0092 086f | o| Action Push_String_Extended,0x86f ; "DB Backups"
005c 8405 | | Call 0x2,0x5
005d e004 | | Load 0x0,0x4
005e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
005f 01c7 | | Execute Vector,Convert
0060 e004 | | Load 0x0,0x4
0061 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0062 0119 | | Execute Any,Check_In_Formal_Type
0063 4803 |H | Short_Literal 0x3
0064 e40b | | Load 0x2,0xb
0065 01d6 | | Execute Vector,Field_Write
0066 4811 |H | Short_Literal 0x11
0067 0092 0870 | p| Action Push_String_Extended,0x870 ; "DB Processors"
0069 8405 | | Call 0x2,0x5
006a e004 | | Load 0x0,0x4
006b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
006c 01c7 | | Execute Vector,Convert
006d e004 | | Load 0x0,0x4
006e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
006f 0119 | | Execute Any,Check_In_Formal_Type
0070 4804 |H | Short_Literal 0x4
0071 e40b | | Load 0x2,0xb
0072 01d6 | | Execute Vector,Field_Write
0073 4811 |H | Short_Literal 0x11
0074 0092 0871 | q| Action Push_String_Extended,0x871 ; "DB Disk Volumes"
0076 8405 | | Call 0x2,0x5
0077 e004 | | Load 0x0,0x4
0078 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0079 01c7 | | Execute Vector,Convert
007a e004 | | Load 0x0,0x4
007b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
007c 0119 | | Execute Any,Check_In_Formal_Type
007d 4805 |H | Short_Literal 0x5
007e e40b | | Load 0x2,0xb
007f 01d6 | | Execute Vector,Field_Write
0080 4811 |H | Short_Literal 0x11
0081 0092 0872 | r| Action Push_String_Extended,0x872 ; "DB Tape Volumes"
0083 8405 | | Call 0x2,0x5
0084 e004 | | Load 0x0,0x4
0085 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0086 01c7 | | Execute Vector,Convert
0087 e004 | | Load 0x0,0x4
0088 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0089 0119 | | Execute Any,Check_In_Formal_Type
008a 4806 |H | Short_Literal 0x6
008b e40b | | Load 0x2,0xb
008c 01d6 | | Execute Vector,Field_Write
008d e40a | | Load 0x2,0xa
008e 01d4 | | Execute Vector,Structure_Write
008f 4801 |H | Short_Literal 0x1
0090 e40a | | Load 0x2,0xa
0091 01d5 | | Execute Vector,Field_Reference
0092 0007 | | Action Break_Optional
0093 4802 |H | Short_Literal 0x2
0094 e40a | | Load 0x2,0xa
0095 01d5 | | Execute Vector,Field_Reference
0096 0007 | | Action Break_Optional
0097 4803 |H | Short_Literal 0x3
0098 e40a | | Load 0x2,0xa
0099 01d5 | | Execute Vector,Field_Reference
009a 0007 | | Action Break_Optional
009b 4804 |H | Short_Literal 0x4
009c e40a | | Load 0x2,0xa
009d 01d5 | | Execute Vector,Field_Reference
009e 0007 | | Action Break_Optional
009f 4805 |H | Short_Literal 0x5
00a0 e40a | | Load 0x2,0xa
00a1 01d5 | | Execute Vector,Field_Reference
00a2 0007 | | Action Break_Optional
00a3 4806 |H | Short_Literal 0x6
00a4 e40a | | Load 0x2,0xa
00a5 01d5 | | Execute Vector,Field_Reference
00a6 0007 | | Action Break_Optional
00a7 00e3 | | Load_Encached Natural_Cache
00a8 e005 | | Load 0x0,0x5
00a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00aa 02c7 | | Declare_Variable Any
00ab 00d8 | | Load_Top At_Offset_0
00ac 1c00 | | Execute_Immediate Run_Utility,0x0
00ad e006 | | Load 0x0,0x6
00ae 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00af 00e4 | | Load_Encached Positive_Cache
00b0 e003 | | Load 0x0,0x3
00b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b2 0322 | " | Declare_Variable Record
00b3 e007 | | Load 0x0,0x7
00b4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00b5 e415 | | Load 0x2,0x15
00b6 017d | } | Execute Record,Structure_Write
00b7 00e1 | | Load_Encached Boolean_Cache
00b8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00b9 00e1 | | Load_Encached Boolean_Cache
00ba 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00bb 00e1 | | Load_Encached Boolean_Cache
00bc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
00bd e008 | | Load 0x0,0x8
00be 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00bf 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00c0 e006 | | Load 0x0,0x6
00c1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c2 e003 | | Load 0x0,0x3
00c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c4 0322 | " | Declare_Variable Record
00c5 e009 | | Load 0x0,0x9
00c6 190f | | Execute Package,Field_Reference,Field_Number 0xf
00c7 00c6 | | Action Check_Subprogram_Elaborated
00c8 e00a | | Load 0x0,0xa
00c9 1964 | d | Execute Package,Field_Reference,Field_Number 0x64
00ca e00b | | Load 0x0,0xb
00cb e00c | | Load 0x0,0xc
00cc 481f |H | Short_Literal 0x1f
00cd 0007 | | Action Break_Optional
00ce 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
00d0 029f 0243 | C| Declare_Subprogram INIT_0240,For_Call
00d2 e008 | | Load 0x0,0x8
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 4820 |H | Short_Literal 0x20
00d7 4802 |H | Short_Literal 0x2
00d8 0099 | | Action Reference_Dynamic
00d9 e00d | | Load 0x0,0xd
00da e00e | | Load 0x0,0xe
00db 4825 |H% | Short_Literal 0x25
00dc 0007 | | Action Break_Optional
00dd 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
00df 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
00e1 029f 030b | | Declare_Subprogram INIT_0308,For_Call
00e3 029f 045b | [| Declare_Subprogram INIT_0458,For_Call
00e5 029f 0613 | | Declare_Subprogram INIT_0610,For_Call
00e7 BODY_0018:
00e7 e008 | | Load 0x0,0x8
00e8 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00e9 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00ea e00f | | Load 0x0,0xf
00eb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ec e010 | | Load 0x0,0x10
00ed 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00ee e008 | | Load 0x0,0x8
00ef 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00f0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00f1 c419 | | Store 0x2,0x19
00f2 8429 | ) | Call 0x2,0x29
00f3 e417 | | Load 0x2,0x17
00f4 6804 |h | Jump_Zero 0xf9
00f5 e415 | | Load 0x2,0x15
00f6 e41b | | Load 0x2,0x1b
00f7 017d | } | Execute Record,Structure_Write
00f8 7808 |x | Jump 0x101
00f9 e007 | | Load 0x0,0x7
00fa 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00fb e41b | | Load 0x2,0x1b
00fc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00fd e007 | | Load 0x0,0x7
00fe 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ff e41b | | Load 0x2,0x1b
0100 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0101 e41b | | Load 0x2,0x1b
0102 842a | * | Call 0x2,0x2a
0103 4801 |H | Short_Literal 0x1
0104 e00a | | Load 0x0,0xa
0105 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0106 0092 0873 | s| Action Push_String_Extended,0x873 ; "Successfully completed scan of backup tape."
0108 e00a | | Load 0x0,0xa
0109 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
010a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
010b TRAP_0018:
010b e011 | | Load 0x0,0x11
010c 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
010d 010f | | Execute Exception,Equal
010e 6805 |h | Jump_Zero 0x114
010f 4801 |H | Short_Literal 0x1
0110 0092 0874 | t| Action Push_String_Extended,0x874 ; "Vol_Set_Already_Open_Or_Created"
0112 8426 | & | Call 0x2,0x26
0113 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0114 e003 | | Load 0x0,0x3
0115 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0116 010f | | Execute Exception,Equal
0117 6805 |h | Jump_Zero 0x11d
0118 4801 |H | Short_Literal 0x1
0119 0092 0875 | u| Action Push_String_Extended,0x875 ; "Not_Rational_Vol_Set"
011b 8426 | & | Call 0x2,0x26
011c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
011d e004 | | Load 0x0,0x4
011e 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
011f 010f | | Execute Exception,Equal
0120 6805 |h | Jump_Zero 0x126
0121 4801 |H | Short_Literal 0x1
0122 0092 0876 | v| Action Push_String_Extended,0x876 ; "Vol_Set_Not_Open_Or_Created"
0124 8426 | & | Call 0x2,0x26
0125 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0126 e004 | | Load 0x0,0x4
0127 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0128 010f | | Execute Exception,Equal
0129 6805 |h | Jump_Zero 0x12f
012a 4801 |H | Short_Literal 0x1
012b 0092 0877 | w| Action Push_String_Extended,0x877 ; "End_Of_Vol_Set_Encountered"
012d 8426 | & | Call 0x2,0x26
012e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
012f e004 | | Load 0x0,0x4
0130 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a
0131 010f | | Execute Exception,Equal
0132 6805 |h | Jump_Zero 0x138
0133 4801 |H | Short_Literal 0x1
0134 0092 0878 | x| Action Push_String_Extended,0x878 ; "Not_Initialized"
0136 8426 | & | Call 0x2,0x26
0137 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0138 e004 | | Load 0x0,0x4
0139 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
013a 010f | | Execute Exception,Equal
013b 6805 |h | Jump_Zero 0x141
013c 4801 |H | Short_Literal 0x1
013d 0092 0879 | y| Action Push_String_Extended,0x879 ; "Not_Original_Client"
013f 8426 | & | Call 0x2,0x26
0140 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0141 e004 | | Load 0x0,0x4
0142 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0143 010f | | Execute Exception,Equal
0144 6805 |h | Jump_Zero 0x14a
0145 4801 |H | Short_Literal 0x1
0146 0092 087a | z| Action Push_String_Extended,0x87a ; "Read_While_Writing"
0148 8426 | & | Call 0x2,0x26
0149 4501 |E | Exit_Suprogram New_Top_Offset 0x1
014a e004 | | Load 0x0,0x4
014b 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
014c 010f | | Execute Exception,Equal
014d 6805 |h | Jump_Zero 0x153
014e 4801 |H | Short_Literal 0x1
014f 0092 087b | {| Action Push_String_Extended,0x87b ; "Write_While_Reading"
0151 8426 | & | Call 0x2,0x26
0152 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0153 e004 | | Load 0x0,0x4
0154 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0155 010f | | Execute Exception,Equal
0156 6805 |h | Jump_Zero 0x15c
0157 4801 |H | Short_Literal 0x1
0158 0092 087c | || Action Push_String_Extended,0x87c ; "Position_While_Writing"
015a 8426 | & | Call 0x2,0x26
015b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
015c e004 | | Load 0x0,0x4
015d 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
015e 010f | | Execute Exception,Equal
015f 6805 |h | Jump_Zero 0x165
0160 4801 |H | Short_Literal 0x1
0161 0092 087d | }| Action Push_String_Extended,0x87d ; "Previous_Fatal_Error"
0163 8426 | & | Call 0x2,0x26
0164 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0165 e004 | | Load 0x0,0x4
0166 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
0167 010f | | Execute Exception,Equal
0168 6805 |h | Jump_Zero 0x16e
0169 4801 |H | Short_Literal 0x1
016a 0092 087e | ~| Action Push_String_Extended,0x87e ; "File_Still_Being_Written"
016c 8426 | & | Call 0x2,0x26
016d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
016e e004 | | Load 0x0,0x4
016f 1b31 | 1 | Execute Package,Field_Read,Field_Number 0x31
0170 010f | | Execute Exception,Equal
0171 6805 |h | Jump_Zero 0x177
0172 4801 |H | Short_Literal 0x1
0173 0092 087f | | Action Push_String_Extended,0x87f ; "File_Still_Being_Read"
0175 8426 | & | Call 0x2,0x26
0176 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0177 e004 | | Load 0x0,0x4
0178 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0179 010f | | Execute Exception,Equal
017a 6805 |h | Jump_Zero 0x180
017b 4801 |H | Short_Literal 0x1
017c 0092 0880 | | Action Push_String_Extended,0x880 ; "File_Not_Created"
017e 8426 | & | Call 0x2,0x26
017f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0180 e004 | | Load 0x0,0x4
0181 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0182 010f | | Execute Exception,Equal
0183 6805 |h | Jump_Zero 0x189
0184 4801 |H | Short_Literal 0x1
0185 0092 0881 | | Action Push_String_Extended,0x881 ; "File_Not_Open"
0187 8426 | & | Call 0x2,0x26
0188 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0189 e004 | | Load 0x0,0x4
018a 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
018b 010f | | Execute Exception,Equal
018c 6805 |h | Jump_Zero 0x192
018d 4801 |H | Short_Literal 0x1
018e 0092 0882 | | Action Push_String_Extended,0x882 ; "Retry_Count_Exhausted"
0190 8426 | & | Call 0x2,0x26
0191 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0192 e004 | | Load 0x0,0x4
0193 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0194 010f | | Execute Exception,Equal
0195 6805 |h | Jump_Zero 0x19b
0196 4801 |H | Short_Literal 0x1
0197 0092 0883 | | Action Push_String_Extended,0x883 ; "Vol_Set_Error"
0199 8426 | & | Call 0x2,0x26
019a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
019b e004 | | Load 0x0,0x4
019c 1b36 | 6 | Execute Package,Field_Read,Field_Number 0x36
019d 010f | | Execute Exception,Equal
019e 6805 |h | Jump_Zero 0x1a4
019f 4801 |H | Short_Literal 0x1
01a0 0092 0884 | | Action Push_String_Extended,0x884 ; "Unexpected_Tape_Error"
01a2 8426 | & | Call 0x2,0x26
01a3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01a4 e004 | | Load 0x0,0x4
01a5 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
01a6 010f | | Execute Exception,Equal
01a7 6805 |h | Jump_Zero 0x1ad
01a8 4801 |H | Short_Literal 0x1
01a9 0092 0885 | | Action Push_String_Extended,0x885 ; "No_Drive_Available"
01ab 8426 | & | Call 0x2,0x26
01ac 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ad e004 | | Load 0x0,0x4
01ae 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
01af 010f | | Execute Exception,Equal
01b0 6805 |h | Jump_Zero 0x1b6
01b1 4801 |H | Short_Literal 0x1
01b2 0092 0886 | | Action Push_String_Extended,0x886 ; "Desired_Drive_Unavailable"
01b4 8426 | & | Call 0x2,0x26
01b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b6 e004 | | Load 0x0,0x4
01b7 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
01b8 010f | | Execute Exception,Equal
01b9 6805 |h | Jump_Zero 0x1bf
01ba 4801 |H | Short_Literal 0x1
01bb 0092 0887 | | Action Push_String_Extended,0x887 ; "Desired_Volume_Not_Found"
01bd 8426 | & | Call 0x2,0x26
01be 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01bf e004 | | Load 0x0,0x4
01c0 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
01c1 010f | | Execute Exception,Equal
01c2 6805 |h | Jump_Zero 0x1c8
01c3 4801 |H | Short_Literal 0x1
01c4 0092 0888 | | Action Push_String_Extended,0x888 ; "Vol_Access_Denied"
01c6 8426 | & | Call 0x2,0x26
01c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c8 e004 | | Load 0x0,0x4
01c9 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
01ca 010f | | Execute Exception,Equal
01cb 6805 |h | Jump_Zero 0x1d1
01cc 4801 |H | Short_Literal 0x1
01cd 0092 0889 | | Action Push_String_Extended,0x889 ; "File_Access_Denied"
01cf 8426 | & | Call 0x2,0x26
01d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d1 e004 | | Load 0x0,0x4
01d2 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c
01d3 010f | | Execute Exception,Equal
01d4 6805 |h | Jump_Zero 0x1da
01d5 4801 |H | Short_Literal 0x1
01d6 0092 088a | | Action Push_String_Extended,0x88a ; "File_Expired"
01d8 8426 | & | Call 0x2,0x26
01d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01da e004 | | Load 0x0,0x4
01db 1b41 | A | Execute Package,Field_Read,Field_Number 0x41
01dc 010f | | Execute Exception,Equal
01dd 6805 |h | Jump_Zero 0x1e3
01de 4801 |H | Short_Literal 0x1
01df 0092 088b | | Action Push_String_Extended,0x88b ; "Not_At_EOF"
01e1 8426 | & | Call 0x2,0x26
01e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e3 e004 | | Load 0x0,0x4
01e4 1b43 | C | Execute Package,Field_Read,Field_Number 0x43
01e5 010f | | Execute Exception,Equal
01e6 6805 |h | Jump_Zero 0x1ec
01e7 4801 |H | Short_Literal 0x1
01e8 0092 088c | | Action Push_String_Extended,0x88c ; "Not_At_EOVS"
01ea 8426 | & | Call 0x2,0x26
01eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ec e011 | | Load 0x0,0x11
01ed 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
01ee 010f | | Execute Exception,Equal
01ef 6805 |h | Jump_Zero 0x1f5
01f0 4801 |H | Short_Literal 0x1
01f1 0092 088d | | Action Push_String_Extended,0x88d ; "File_Not_In_Vol_Set"
01f3 8426 | & | Call 0x2,0x26
01f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f5 e011 | | Load 0x0,0x11
01f6 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
01f7 010f | | Execute Exception,Equal
01f8 6805 |h | Jump_Zero 0x1fe
01f9 4801 |H | Short_Literal 0x1
01fa 0092 088e | | Action Push_String_Extended,0x88e ; "Record_Not_In_File"
01fc 8426 | & | Call 0x2,0x26
01fd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01fe e004 | | Load 0x0,0x4
01ff 1b44 | D | Execute Package,Field_Read,Field_Number 0x44
0200 010f | | Execute Exception,Equal
0201 6805 |h | Jump_Zero 0x207
0202 4801 |H | Short_Literal 0x1
0203 0092 088f | | Action Push_String_Extended,0x88f ; "Incorrect_Buffer_Size"
0205 8426 | & | Call 0x2,0x26
0206 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0207 e004 | | Load 0x0,0x4
0208 1b45 | E | Execute Package,Field_Read,Field_Number 0x45
0209 010f | | Execute Exception,Equal
020a 6805 |h | Jump_Zero 0x210
020b 4801 |H | Short_Literal 0x1
020c 0092 0890 | | Action Push_String_Extended,0x890 ; "Block_Length_Too_Short"
020e 8426 | & | Call 0x2,0x26
020f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0210 e004 | | Load 0x0,0x4
0211 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
0212 010f | | Execute Exception,Equal
0213 6805 |h | Jump_Zero 0x219
0214 4801 |H | Short_Literal 0x1
0215 0092 0891 | | Action Push_String_Extended,0x891 ; "Block_Length_Too_Long"
0217 8426 | & | Call 0x2,0x26
0218 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0219 4800 |H | Short_Literal 0x0
021a e012 | | Load 0x0,0x12
021b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
021c 8426 | & | Call 0x2,0x26
021d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
021e 0000 0000 | | .XXX[0x2]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 0092 0892 | | Action Push_String_Extended,0x892 ; "*** "
0225 e7ff | | Load 0x3,-0x1
0226 01cc | | Execute Vector,Catenate
0227 e00a | | Load 0x0,0xa
0228 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0229 e7fe | | Load 0x3,-0x2
022a 01db | | Execute Vector,Length
022b 0c01 | | Execute_Immediate Greater_Equal,0x1
022c 6810 |h | Jump_Zero 0x23d
022d 0092 0893 | | Action Push_String_Extended,0x893 ; "*** Tape Data => "
022f e00a | | Load 0x0,0xa
0230 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0231 4801 |H | Short_Literal 0x1
0232 4801 |H | Short_Literal 0x1
0233 480a |H | Short_Literal 0xa
0234 e7fe | | Load 0x3,-0x2
0235 481c |H | Short_Literal 0x1c
0236 4802 |H | Short_Literal 0x2
0237 0099 | | Action Reference_Dynamic
0238 481d |H | Short_Literal 0x1d
0239 4802 |H | Short_Literal 0x2
023a 0099 | | Action Reference_Dynamic
023b e009 | | Load 0x0,0x9
023c 180f | | Execute Package,Field_Execute,Field_Number 0xf
023d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
023e 0000 0000 | | .XXX[0x2]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 024b | K | .CONST 0x024b ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0005 | | .CONST 0x0005 ; Number of locals
0243 INIT_0240:
0243 e013 | | Load 0x0,0x13
0244 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
0245 0092 0894 | | Action Push_String_Extended,0x894 ; "D_10_20_0S"
0247 0092 0895 | | Action Push_String_Extended,0x895 ; "D_10_20_0"
0249 029f 07bb | | Declare_Subprogram INIT_07b8,For_Call
024b BODY_0240:
024b e602 | | Load 0x3,0x2
024c e604 | | Load 0x3,0x4
024d 8605 | | Call 0x3,0x5
024e e602 | | Load 0x3,0x2
024f e603 | | Load 0x3,0x3
0250 8605 | | Call 0x3,0x5
0251 0f00 | | Execute_Immediate Equal,0x0
0252 0279 | y | Execute Discrete,And
0253 6802 |h | Jump_Zero 0x256
0254 4800 |H | Short_Literal 0x0
0255 00ca | | Action Exit_Nullary_Function
0256 4801 |H | Short_Literal 0x1
0257 00ca | | Action Exit_Nullary_Function
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 4801 |H | Short_Literal 0x1
025c e00a | | Load 0x0,0xa
025d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
025e 0092 0896 | | Action Push_String_Extended,0x896 ; "*** Unexpected Exception: "
0260 e7ff | | Load 0x3,-0x1
0261 01cc | | Execute Vector,Catenate
0262 e00a | | Load 0x0,0xa
0263 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0264 e7fe | | Load 0x3,-0x2
0265 680a |h | Jump_Zero 0x270
0266 e419 | | Load 0x2,0x19
0267 4822 |H" | Short_Literal 0x22
0268 4802 |H | Short_Literal 0x2
0269 0099 | | Action Reference_Dynamic
026a 4823 |H# | Short_Literal 0x23
026b 4802 |H | Short_Literal 0x2
026c 0099 | | Action Reference_Dynamic
026d e008 | | Load 0x0,0x8
026e 1b16 | | Execute Package,Field_Read,Field_Number 0x16
026f 1846 | F | Execute Package,Field_Execute,Field_Number 0x46
0270 0092 0897 | | Action Push_String_Extended,0x897 ; "***"
0272 e00a | | Load 0x0,0xa
0273 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0274 0092 0898 | | Action Push_String_Extended,0x898 ; "*** Verify_Backup DID NOT complete"
0276 e00a | | Load 0x0,0xa
0277 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0278 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0279 0000 0000 | | .BLANK 0000[0x7]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 02ad | | .CONST 0x02ad ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0010 | | .CONST 0x0010 ; Number of locals
0283 INIT_0280:
0283 4801 |H | Short_Literal 0x1
0284 607b |`{ | Indirect_Literal Discrete,0x300,{0x00000000, 0x00000c00}
0285 e001 | | Load 0x0,0x1
0286 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0287 035b | [ | Declare_Type Array,Constrained
0288 0337 | 7 | Declare_Variable Array
0289 00e1 | | Load_Encached Boolean_Cache
028a 00e3 | | Load_Encached Natural_Cache
028b 00e3 | | Load_Encached Natural_Cache
028c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
028d e003 | | Load 0x0,0x3
028e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
028f 0337 | 7 | Declare_Variable Array
0290 4801 |H | Short_Literal 0x1
0291 4832 |H2 | Short_Literal 0x32
0292 e003 | | Load 0x0,0x3
0293 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0294 035b | [ | Declare_Type Array,Constrained
0295 0337 | 7 | Declare_Variable Array
0296 e003 | | Load 0x0,0x3
0297 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0298 e005 | | Load 0x0,0x5
0299 1b0d | | Execute Package,Field_Read,Field_Number 0xd
029a 02c7 | | Declare_Variable Any
029b 00d8 | | Load_Top At_Offset_0
029c 1c00 | | Execute_Immediate Run_Utility,0x0
029d 00e1 | | Load_Encached Boolean_Cache
029e e005 | | Load 0x0,0x5
029f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a0 02c7 | | Declare_Variable Any
02a1 00d8 | | Load_Top At_Offset_0
02a2 1c00 | | Execute_Immediate Run_Utility,0x0
02a3 e001 | | Load 0x0,0x1
02a4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02a5 e003 | | Load 0x0,0x3
02a6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a7 e006 | | Load 0x0,0x6
02a8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a9 e003 | | Load 0x0,0x3
02aa 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02ab e006 | | Load 0x0,0x6
02ac 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02ad BODY_0280:
02ad e006 | | Load 0x0,0x6
02ae 1b15 | | Execute Package,Field_Read,Field_Number 0x15
02af e003 | | Load 0x0,0x3
02b0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02b1 e006 | | Load 0x0,0x6
02b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02b3 e003 | | Load 0x0,0x3
02b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b5 e001 | | Load 0x0,0x1
02b6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
02b7 e60b | | Load 0x3,0xb
02b8 0120 | | Execute Any,Is_Value
02b9 6803 |h | Jump_Zero 0x2bd
02ba e005 | | Load 0x0,0x5
02bb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02bc 7801 |x | Jump 0x2be
02bd e60b | | Load 0x3,0xb
02be 00e1 | | Load_Encached Boolean_Cache
02bf e609 | | Load 0x3,0x9
02c0 0120 | | Execute Any,Is_Value
02c1 6803 |h | Jump_Zero 0x2c5
02c2 e005 | | Load 0x0,0x5
02c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c4 7801 |x | Jump 0x2c6
02c5 e609 | | Load 0x3,0x9
02c6 e003 | | Load 0x0,0x3
02c7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
02c8 e607 | | Load 0x3,0x7
02c9 e606 | | Load 0x3,0x6
02ca e7ff | | Load 0x3,-0x1
02cb e008 | | Load 0x0,0x8
02cc 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02cd 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
02ce 00d2 | | Pop_Control Pop_Count_2
02cf c608 | | Store 0x3,0x8
02d0 c609 | | Store 0x3,0x9
02d1 c60a | | Store 0x3,0xa
02d2 c60b | | Store 0x3,0xb
02d3 c60c | | Store 0x3,0xc
02d4 c60d | | Store 0x3,0xd
02d5 c60e | | Store 0x3,0xe
02d6 c60f | | Store 0x3,0xf
02d7 c610 | | Store 0x3,0x10
02d8 0092 0899 | | Action Push_String_Extended,0x899 ; " ... Reading File: "
02da e606 | | Load 0x3,0x6
02db 8407 | | Call 0x2,0x7
02dc 01cc | | Execute Vector,Catenate
02dd e00a | | Load 0x0,0xa
02de 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
02df 00cf | | Action Mark_Auxiliary
02e0 00e3 | | Load_Encached Natural_Cache
02e1 00e1 | | Load_Encached Boolean_Cache
02e2 e602 | | Load 0x3,0x2
02e3 e7ff | | Load 0x3,-0x1
02e4 e008 | | Load 0x0,0x8
02e5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
02e6 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
02e7 00d1 | | Pop_Control Pop_Count_1
02e8 c603 | | Store 0x3,0x3
02e9 c604 | | Store 0x3,0x4
02ea e603 | | Load 0x3,0x3
02eb 7005 |p | Jump_Nonzero 0x2f1
02ec e605 | | Load 0x3,0x5
02ed 0a01 | | Execute_Immediate Plus,0x1
02ee c605 | | Store 0x3,0x5
02ef 00c9 | | Action Pop_Auxiliary_Loop
02f0 7fef | | Jump 0x2e0
02f1 00ce | | Action Pop_Auxiliary
02f2 480a |H | Short_Literal 0xa
02f3 4820 |H | Short_Literal 0x20
02f4 480a |H | Short_Literal 0xa
02f5 480a |H | Short_Literal 0xa
02f6 e605 | | Load 0x3,0x5
02f7 e014 | | Load 0x0,0x14
02f8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02f9 0092 089a | | Action Push_String_Extended,0x89a ; " blocks"
02fb 01cc | | Execute Vector,Catenate
02fc 01cb | | Execute Vector,Append
02fd e00a | | Load 0x0,0xa
02fe 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
02ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0300 0000 0000 | | .LITERAL {0x00000000, 0x00000c00}
0304 0000 0000 | | .BLANK 0000[0x4]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0329 | ) | .CONST 0x0329 ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 000d | | .CONST 0x000d ; Number of locals
030b INIT_0308:
030b e003 | | Load 0x0,0x3
030c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
030d 0337 | 7 | Declare_Variable Array
030e 4801 |H | Short_Literal 0x1
030f 4850 |HP | Short_Literal 0x50
0310 e003 | | Load 0x0,0x3
0311 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0312 035b | [ | Declare_Type Array,Constrained
0313 0337 | 7 | Declare_Variable Array
0314 e005 | | Load 0x0,0x5
0315 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0316 02c7 | | Declare_Variable Any
0317 00d8 | | Load_Top At_Offset_0
0318 1c00 | | Execute_Immediate Run_Utility,0x0
0319 00e1 | | Load_Encached Boolean_Cache
031a e005 | | Load 0x0,0x5
031b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031c 02c7 | | Declare_Variable Any
031d 00d8 | | Load_Top At_Offset_0
031e 1c00 | | Execute_Immediate Run_Utility,0x0
031f e402 | | Load 0x2,0x2
0320 0007 | | Action Break_Optional
0321 e003 | | Load 0x0,0x3
0322 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0323 00e3 | | Load_Encached Natural_Cache
0324 00e3 | | Load_Encached Natural_Cache
0325 00e3 | | Load_Encached Natural_Cache
0326 00e3 | | Load_Encached Natural_Cache
0327 029f 07cb | | Declare_Subprogram INIT_07c8,For_Call
0329 BODY_0308:
0329 00e3 | | Load_Encached Natural_Cache
032a e003 | | Load 0x0,0x3
032b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
032c e006 | | Load 0x0,0x6
032d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
032e e003 | | Load 0x0,0x3
032f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0330 e001 | | Load 0x0,0x1
0331 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0332 e606 | | Load 0x3,0x6
0333 0120 | | Execute Any,Is_Value
0334 6803 |h | Jump_Zero 0x338
0335 e005 | | Load 0x0,0x5
0336 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0337 7801 |x | Jump 0x339
0338 e606 | | Load 0x3,0x6
0339 00e1 | | Load_Encached Boolean_Cache
033a e604 | | Load 0x3,0x4
033b 0120 | | Execute Any,Is_Value
033c 6803 |h | Jump_Zero 0x340
033d e005 | | Load 0x0,0x5
033e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033f 7801 |x | Jump 0x341
0340 e604 | | Load 0x3,0x4
0341 e603 | | Load 0x3,0x3
0342 e602 | | Load 0x3,0x2
0343 4808 |H | Short_Literal 0x8
0344 e7ff | | Load 0x3,-0x1
0345 e008 | | Load 0x0,0x8
0346 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0347 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0348 00d2 | | Pop_Control Pop_Count_2
0349 c604 | | Store 0x3,0x4
034a c605 | | Store 0x3,0x5
034b c606 | | Store 0x3,0x6
034c c607 | | Store 0x3,0x7
034d c608 | | Store 0x3,0x8
034e c413 | | Store 0x2,0x13
034f c609 | | Store 0x3,0x9
0350 c60b | | Store 0x3,0xb
0351 e607 | | Load 0x3,0x7
0352 0f20 | | Execute_Immediate Equal,0x20
0353 7001 |p | Jump_Nonzero 0x355
0354 0887 | | Execute_Immediate Raise,0x87
0355 e605 | | Load 0x3,0x5
0356 6801 |h | Jump_Zero 0x358
0357 0887 | | Execute_Immediate Raise,0x87
0358 e608 | | Load 0x3,0x8
0359 0f03 | | Execute_Immediate Equal,0x3
035a 7001 |p | Jump_Nonzero 0x35c
035b 0887 | | Execute_Immediate Raise,0x87
035c e60b | | Load 0x3,0xb
035d 6801 |h | Jump_Zero 0x35f
035e 0887 | | Execute_Immediate Raise,0x87
035f e609 | | Load 0x3,0x9
0360 6801 |h | Jump_Zero 0x362
0361 0887 | | Execute_Immediate Raise,0x87
0362 e602 | | Load 0x3,0x2
0363 e40d | | Load 0x2,0xd
0364 01df | | Execute Vector,Equal
0365 7001 |p | Jump_Nonzero 0x367
0366 0887 | | Execute_Immediate Raise,0x87
0367 860d | | Call 0x3,0xd
0368 a411 | | Store_Unchecked 0x2,0x11
0369 e7ff | | Load 0x3,-0x1
036a 8427 | ' | Call 0x2,0x27
036b 00e3 | | Load_Encached Natural_Cache
036c 00e3 | | Load_Encached Natural_Cache
036d e7ff | | Load 0x3,-0x1
036e e008 | | Load 0x0,0x8
036f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0370 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0371 c60a | | Store 0x3,0xa
0372 c60c | | Store 0x3,0xc
0373 00e3 | | Load_Encached Natural_Cache
0374 e003 | | Load 0x0,0x3
0375 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0376 e006 | | Load 0x0,0x6
0377 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0378 e003 | | Load 0x0,0x3
0379 1b0d | | Execute Package,Field_Read,Field_Number 0xd
037a e001 | | Load 0x0,0x1
037b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
037c e606 | | Load 0x3,0x6
037d 0120 | | Execute Any,Is_Value
037e 6803 |h | Jump_Zero 0x382
037f e005 | | Load 0x0,0x5
0380 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0381 7801 |x | Jump 0x383
0382 e606 | | Load 0x3,0x6
0383 00e1 | | Load_Encached Boolean_Cache
0384 e604 | | Load 0x3,0x4
0385 0120 | | Execute Any,Is_Value
0386 6803 |h | Jump_Zero 0x38a
0387 e005 | | Load 0x0,0x5
0388 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0389 7801 |x | Jump 0x38b
038a e604 | | Load 0x3,0x4
038b e603 | | Load 0x3,0x3
038c e602 | | Load 0x3,0x2
038d 4808 |H | Short_Literal 0x8
038e e7ff | | Load 0x3,-0x1
038f e008 | | Load 0x0,0x8
0390 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0391 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0392 00d2 | | Pop_Control Pop_Count_2
0393 c604 | | Store 0x3,0x4
0394 c605 | | Store 0x3,0x5
0395 c606 | | Store 0x3,0x6
0396 c607 | | Store 0x3,0x7
0397 c608 | | Store 0x3,0x8
0398 c413 | | Store 0x2,0x13
0399 c609 | | Store 0x3,0x9
039a c60b | | Store 0x3,0xb
039b e607 | | Load 0x3,0x7
039c 0f20 | | Execute_Immediate Equal,0x20
039d 7001 |p | Jump_Nonzero 0x39f
039e 0887 | | Execute_Immediate Raise,0x87
039f e605 | | Load 0x3,0x5
03a0 6801 |h | Jump_Zero 0x3a2
03a1 0887 | | Execute_Immediate Raise,0x87
03a2 e608 | | Load 0x3,0x8
03a3 0f03 | | Execute_Immediate Equal,0x3
03a4 7001 |p | Jump_Nonzero 0x3a6
03a5 0887 | | Execute_Immediate Raise,0x87
03a6 e60b | | Load 0x3,0xb
03a7 6801 |h | Jump_Zero 0x3a9
03a8 0887 | | Execute_Immediate Raise,0x87
03a9 e609 | | Load 0x3,0x9
03aa 6801 |h | Jump_Zero 0x3ac
03ab 0887 | | Execute_Immediate Raise,0x87
03ac e602 | | Load 0x3,0x2
03ad e40e | | Load 0x2,0xe
03ae 01df | | Execute Vector,Equal
03af 7001 |p | Jump_Nonzero 0x3b1
03b0 0887 | | Execute_Immediate Raise,0x87
03b1 e7ff | | Load 0x3,-0x1
03b2 8427 | ' | Call 0x2,0x27
03b3 00e3 | | Load_Encached Natural_Cache
03b4 00e3 | | Load_Encached Natural_Cache
03b5 e7ff | | Load 0x3,-0x1
03b6 e008 | | Load 0x0,0x8
03b7 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03b8 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
03b9 c60a | | Store 0x3,0xa
03ba c60c | | Store 0x3,0xc
03bb e60c | | Load 0x3,0xc
03bc 6801 |h | Jump_Zero 0x3be
03bd 0887 | | Execute_Immediate Raise,0x87
03be 00e3 | | Load_Encached Natural_Cache
03bf e003 | | Load 0x0,0x3
03c0 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03c1 e006 | | Load 0x0,0x6
03c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c3 e003 | | Load 0x0,0x3
03c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c5 e001 | | Load 0x0,0x1
03c6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03c7 e606 | | Load 0x3,0x6
03c8 0120 | | Execute Any,Is_Value
03c9 6803 |h | Jump_Zero 0x3cd
03ca e005 | | Load 0x0,0x5
03cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03cc 7801 |x | Jump 0x3ce
03cd e606 | | Load 0x3,0x6
03ce 00e1 | | Load_Encached Boolean_Cache
03cf e604 | | Load 0x3,0x4
03d0 0120 | | Execute Any,Is_Value
03d1 6803 |h | Jump_Zero 0x3d5
03d2 e005 | | Load 0x0,0x5
03d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d4 7801 |x | Jump 0x3d6
03d5 e604 | | Load 0x3,0x4
03d6 e603 | | Load 0x3,0x3
03d7 e602 | | Load 0x3,0x2
03d8 4808 |H | Short_Literal 0x8
03d9 e7ff | | Load 0x3,-0x1
03da e008 | | Load 0x0,0x8
03db 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03dc 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
03dd 00d2 | | Pop_Control Pop_Count_2
03de c604 | | Store 0x3,0x4
03df c605 | | Store 0x3,0x5
03e0 c606 | | Store 0x3,0x6
03e1 c607 | | Store 0x3,0x7
03e2 c608 | | Store 0x3,0x8
03e3 c413 | | Store 0x2,0x13
03e4 c609 | | Store 0x3,0x9
03e5 c60b | | Store 0x3,0xb
03e6 e607 | | Load 0x3,0x7
03e7 0f20 | | Execute_Immediate Equal,0x20
03e8 7001 |p | Jump_Nonzero 0x3ea
03e9 0887 | | Execute_Immediate Raise,0x87
03ea e605 | | Load 0x3,0x5
03eb 6801 |h | Jump_Zero 0x3ed
03ec 0887 | | Execute_Immediate Raise,0x87
03ed e608 | | Load 0x3,0x8
03ee 0f03 | | Execute_Immediate Equal,0x3
03ef 7001 |p | Jump_Nonzero 0x3f1
03f0 0887 | | Execute_Immediate Raise,0x87
03f1 e60b | | Load 0x3,0xb
03f2 6801 |h | Jump_Zero 0x3f4
03f3 0887 | | Execute_Immediate Raise,0x87
03f4 e609 | | Load 0x3,0x9
03f5 6801 |h | Jump_Zero 0x3f7
03f6 0887 | | Execute_Immediate Raise,0x87
03f7 e602 | | Load 0x3,0x2
03f8 e40f | | Load 0x2,0xf
03f9 01df | | Execute Vector,Equal
03fa 7001 |p | Jump_Nonzero 0x3fc
03fb 0887 | | Execute_Immediate Raise,0x87
03fc e7ff | | Load 0x3,-0x1
03fd 8427 | ' | Call 0x2,0x27
03fe 00e3 | | Load_Encached Natural_Cache
03ff 00e3 | | Load_Encached Natural_Cache
0400 e7ff | | Load 0x3,-0x1
0401 e008 | | Load 0x0,0x8
0402 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0403 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0404 c60a | | Store 0x3,0xa
0405 c60c | | Store 0x3,0xc
0406 e60c | | Load 0x3,0xc
0407 6801 |h | Jump_Zero 0x409
0408 0887 | | Execute_Immediate Raise,0x87
0409 00e3 | | Load_Encached Natural_Cache
040a e003 | | Load 0x0,0x3
040b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
040c e006 | | Load 0x0,0x6
040d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
040e e003 | | Load 0x0,0x3
040f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0410 e001 | | Load 0x0,0x1
0411 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0412 e606 | | Load 0x3,0x6
0413 0120 | | Execute Any,Is_Value
0414 6803 |h | Jump_Zero 0x418
0415 e005 | | Load 0x0,0x5
0416 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0417 7801 |x | Jump 0x419
0418 e606 | | Load 0x3,0x6
0419 00e1 | | Load_Encached Boolean_Cache
041a e604 | | Load 0x3,0x4
041b 0120 | | Execute Any,Is_Value
041c 6803 |h | Jump_Zero 0x420
041d e005 | | Load 0x0,0x5
041e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
041f 7801 |x | Jump 0x421
0420 e604 | | Load 0x3,0x4
0421 e603 | | Load 0x3,0x3
0422 e602 | | Load 0x3,0x2
0423 4808 |H | Short_Literal 0x8
0424 e7ff | | Load 0x3,-0x1
0425 e008 | | Load 0x0,0x8
0426 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0427 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0428 00d2 | | Pop_Control Pop_Count_2
0429 c604 | | Store 0x3,0x4
042a c605 | | Store 0x3,0x5
042b c606 | | Store 0x3,0x6
042c c607 | | Store 0x3,0x7
042d c608 | | Store 0x3,0x8
042e c413 | | Store 0x2,0x13
042f c609 | | Store 0x3,0x9
0430 c60b | | Store 0x3,0xb
0431 e607 | | Load 0x3,0x7
0432 0f20 | | Execute_Immediate Equal,0x20
0433 7001 |p | Jump_Nonzero 0x435
0434 0887 | | Execute_Immediate Raise,0x87
0435 e605 | | Load 0x3,0x5
0436 6801 |h | Jump_Zero 0x438
0437 0887 | | Execute_Immediate Raise,0x87
0438 e608 | | Load 0x3,0x8
0439 0f03 | | Execute_Immediate Equal,0x3
043a 7001 |p | Jump_Nonzero 0x43c
043b 0887 | | Execute_Immediate Raise,0x87
043c e60b | | Load 0x3,0xb
043d 6801 |h | Jump_Zero 0x43f
043e 0887 | | Execute_Immediate Raise,0x87
043f e609 | | Load 0x3,0x9
0440 6801 |h | Jump_Zero 0x442
0441 0887 | | Execute_Immediate Raise,0x87
0442 e602 | | Load 0x3,0x2
0443 e410 | | Load 0x2,0x10
0444 01df | | Execute Vector,Equal
0445 7001 |p | Jump_Nonzero 0x447
0446 0887 | | Execute_Immediate Raise,0x87
0447 e7ff | | Load 0x3,-0x1
0448 8427 | ' | Call 0x2,0x27
0449 00e3 | | Load_Encached Natural_Cache
044a 00e3 | | Load_Encached Natural_Cache
044b e7ff | | Load 0x3,-0x1
044c e008 | | Load 0x0,0x8
044d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
044e 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
044f c60a | | Store 0x3,0xa
0450 c60c | | Store 0x3,0xc
0451 e60c | | Load 0x3,0xc
0452 6801 |h | Jump_Zero 0x454
0453 0887 | | Execute_Immediate Raise,0x87
0454 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0455 0000 0000 | | .XXX[0x3]
0457 0000 | |
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 04b8 | | .CONST 0x04b8 ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0019 | | .CONST 0x0019 ; Number of locals
045b INIT_0458:
045b e402 | | Load 0x2,0x2
045c 0007 | | Action Break_Optional
045d e003 | | Load 0x0,0x3
045e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
045f 0337 | 7 | Declare_Variable Array
0460 e003 | | Load 0x0,0x3
0461 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0462 0337 | 7 | Declare_Variable Array
0463 4801 |H | Short_Literal 0x1
0464 4850 |HP | Short_Literal 0x50
0465 e003 | | Load 0x0,0x3
0466 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0467 035b | [ | Declare_Type Array,Constrained
0468 0337 | 7 | Declare_Variable Array
0469 e005 | | Load 0x0,0x5
046a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046b 02c7 | | Declare_Variable Any
046c 00d8 | | Load_Top At_Offset_0
046d 1c00 | | Execute_Immediate Run_Utility,0x0
046e 00e1 | | Load_Encached Boolean_Cache
046f e005 | | Load 0x0,0x5
0470 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0471 02c7 | | Declare_Variable Any
0472 00d8 | | Load_Top At_Offset_0
0473 1c00 | | Execute_Immediate Run_Utility,0x0
0474 e003 | | Load 0x0,0x3
0475 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0476 00e3 | | Load_Encached Natural_Cache
0477 00e3 | | Load_Encached Natural_Cache
0478 00e3 | | Load_Encached Natural_Cache
0479 00e3 | | Load_Encached Natural_Cache
047a 4800 |H | Short_Literal 0x0
047b 4800 |H | Short_Literal 0x0
047c e003 | | Load 0x0,0x3
047d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
047e 035b | [ | Declare_Type Array,Constrained
047f 0337 | 7 | Declare_Variable Array
0480 0092 089b | | Action Push_String_Extended,0x89b ; "BACKUP BLUE TAPE, "
0482 4800 |H | Short_Literal 0x0
0483 4811 |H | Short_Literal 0x11
0484 e403 | | Load 0x2,0x3
0485 035b | [ | Declare_Type Array,Constrained
0486 0337 | 7 | Declare_Variable Array
0487 e60f | | Load 0x3,0xf
0488 8406 | | Call 0x2,0x6
0489 e610 | | Load 0x3,0x10
048a 01d4 | | Execute Vector,Structure_Write
048b 4812 |H | Short_Literal 0x12
048c e015 | | Load 0x0,0x15
048d 181d | | Execute Package,Field_Execute,Field_Number 0x1d
048e 0a11 | | Execute_Immediate Plus,0x11
048f 00e3 | | Load_Encached Natural_Cache
0490 03f8 | | Declare_Type Discrete,Constrained
0491 e015 | | Load 0x0,0x15
0492 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0493 0a12 | | Execute_Immediate Plus,0x12
0494 484b |HK | Short_Literal 0x4b
0495 00e3 | | Load_Encached Natural_Cache
0496 03f8 | | Declare_Type Discrete,Constrained
0497 0092 089c | | Action Push_String_Extended,0x89c ; "BACKUP, "
0499 4800 |H | Short_Literal 0x0
049a 4807 |H | Short_Literal 0x7
049b e403 | | Load 0x2,0x3
049c 035b | [ | Declare_Type Array,Constrained
049d 0337 | 7 | Declare_Variable Array
049e e613 | | Load 0x3,0x13
049f 8406 | | Call 0x2,0x6
04a0 e614 | | Load 0x3,0x14
04a1 01d4 | | Execute Vector,Structure_Write
04a2 4808 |H | Short_Literal 0x8
04a3 e015 | | Load 0x0,0x15
04a4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04a5 0a07 | | Execute_Immediate Plus,0x7
04a6 00e3 | | Load_Encached Natural_Cache
04a7 03f8 | | Declare_Type Discrete,Constrained
04a8 e015 | | Load 0x0,0x15
04a9 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04aa 0a08 | | Execute_Immediate Plus,0x8
04ab 484b |HK | Short_Literal 0x4b
04ac 00e3 | | Load_Encached Natural_Cache
04ad 03f8 | | Declare_Type Discrete,Constrained
04ae 0092 089d | | Action Push_String_Extended,0x89d ; "Retained Snapshot Time: "
04b0 4818 |H | Short_Literal 0x18
04b1 e015 | | Load 0x0,0x15
04b2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04b3 0a17 | | Execute_Immediate Plus,0x17
04b4 00e3 | | Load_Encached Natural_Cache
04b5 03f8 | | Declare_Type Discrete,Constrained
04b6 029f 0803 | | Declare_Subprogram INIT_0800,For_Call
04b8 BODY_0458:
04b8 00cf | | Action Mark_Auxiliary
04b9 8619 | | Call 0x3,0x19
04ba 00c9 | | Action Pop_Auxiliary_Loop
04bb 7ffd | | Jump 0x4b9
04bc 00ce | | Action Pop_Auxiliary
04bd 4803 |H | Short_Literal 0x3
04be e00a | | Load 0x0,0xa
04bf 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
04c0 e417 | | Load 0x2,0x17
04c1 6816 |h | Jump_Zero 0x4d8
04c2 4808 |H | Short_Literal 0x8
04c3 e615 | | Load 0x3,0x15
04c4 0269 | i | Execute Discrete,Last
04c5 e415 | | Load 0x2,0x15
04c6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04c7 01cf | | Execute Vector,Slice_Read
04c8 8407 | | Call 0x2,0x7
04c9 e015 | | Load 0x0,0x15
04ca 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04cb c412 | | Store 0x2,0x12
04cc e616 | | Load 0x3,0x16
04cd 026a | j | Execute Discrete,First
04ce 484b |HK | Short_Literal 0x4b
04cf e415 | | Load 0x2,0x15
04d0 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04d1 01cf | | Execute Vector,Slice_Read
04d2 8407 | | Call 0x2,0x7
04d3 00e2 | | Load_Encached Integer_Cache
04d4 00e0 | | Load_Encached Standard_Cache
04d5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04d6 c414 | | Store 0x2,0x14
04d7 7815 |x | Jump 0x4ed
04d8 4812 |H | Short_Literal 0x12
04d9 e611 | | Load 0x3,0x11
04da 0269 | i | Execute Discrete,Last
04db e415 | | Load 0x2,0x15
04dc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04dd 01cf | | Execute Vector,Slice_Read
04de 8407 | | Call 0x2,0x7
04df e015 | | Load 0x0,0x15
04e0 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04e1 c412 | | Store 0x2,0x12
04e2 e612 | | Load 0x3,0x12
04e3 026a | j | Execute Discrete,First
04e4 484b |HK | Short_Literal 0x4b
04e5 e415 | | Load 0x2,0x15
04e6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
04e7 01cf | | Execute Vector,Slice_Read
04e8 8407 | | Call 0x2,0x7
04e9 00e2 | | Load_Encached Integer_Cache
04ea 00e0 | | Load_Encached Standard_Cache
04eb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04ec c414 | | Store 0x2,0x14
04ed 0092 089e | | Action Push_String_Extended,0x89e ; " Backup_Time: "
04ef e412 | | Load 0x2,0x12
04f0 e015 | | Load 0x0,0x15
04f1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04f2 01cc | | Execute Vector,Catenate
04f3 e00a | | Load 0x0,0xa
04f4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04f5 0092 089f | | Action Push_String_Extended,0x89f ; " Backup_Version:"
04f7 e414 | | Load 0x2,0x14
04f8 00e0 | | Load_Encached Standard_Cache
04f9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04fa 01cc | | Execute Vector,Catenate
04fb e00a | | Load 0x0,0xa
04fc 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
04fd 0092 08a0 | | Action Push_String_Extended,0x8a0 ; "Exabyte_Recovery: "
04ff e417 | | Load 0x2,0x17
0500 00e1 | | Load_Encached Boolean_Cache
0501 011c | | Execute Any,Convert_Unchecked
0502 1c01 | | Execute_Immediate Run_Utility,0x1
0503 01cc | | Execute Vector,Catenate
0504 e00a | | Load 0x0,0xa
0505 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0506 4802 |H | Short_Literal 0x2
0507 e00a | | Load 0x0,0xa
0508 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0509 0092 08a1 | | Action Push_String_Extended,0x8a1 ; "Positioning tape to Backup Index"
050b e00a | | Load 0x0,0xa
050c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
050d 00cf | | Action Mark_Auxiliary
050e 00e3 | | Load_Encached Natural_Cache
050f e003 | | Load 0x0,0x3
0510 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0511 e006 | | Load 0x0,0x6
0512 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0513 e003 | | Load 0x0,0x3
0514 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0515 e001 | | Load 0x0,0x1
0516 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0517 e608 | | Load 0x3,0x8
0518 0120 | | Execute Any,Is_Value
0519 6803 |h | Jump_Zero 0x51d
051a e005 | | Load 0x0,0x5
051b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
051c 7801 |x | Jump 0x51e
051d e608 | | Load 0x3,0x8
051e 00e1 | | Load_Encached Boolean_Cache
051f e606 | | Load 0x3,0x6
0520 0120 | | Execute Any,Is_Value
0521 6803 |h | Jump_Zero 0x525
0522 e005 | | Load 0x0,0x5
0523 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0524 7801 |x | Jump 0x526
0525 e606 | | Load 0x3,0x6
0526 e605 | | Load 0x3,0x5
0527 e604 | | Load 0x3,0x4
0528 4808 |H | Short_Literal 0x8
0529 e419 | | Load 0x2,0x19
052a e008 | | Load 0x0,0x8
052b 1b16 | | Execute Package,Field_Read,Field_Number 0x16
052c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
052d 00d2 | | Pop_Control Pop_Count_2
052e c606 | | Store 0x3,0x6
052f c607 | | Store 0x3,0x7
0530 c608 | | Store 0x3,0x8
0531 c602 | | Store 0x3,0x2
0532 c609 | | Store 0x3,0x9
0533 c413 | | Store 0x2,0x13
0534 c60a | | Store 0x3,0xa
0535 c60c | | Store 0x3,0xc
0536 e602 | | Load 0x3,0x2
0537 0f20 | | Execute_Immediate Equal,0x20
0538 7001 |p | Jump_Nonzero 0x53a
0539 0887 | | Execute_Immediate Raise,0x87
053a e607 | | Load 0x3,0x7
053b 6801 |h | Jump_Zero 0x53d
053c 0887 | | Execute_Immediate Raise,0x87
053d e609 | | Load 0x3,0x9
053e 0f03 | | Execute_Immediate Equal,0x3
053f 7001 |p | Jump_Nonzero 0x541
0540 0887 | | Execute_Immediate Raise,0x87
0541 e60a | | Load 0x3,0xa
0542 6801 |h | Jump_Zero 0x544
0543 0887 | | Execute_Immediate Raise,0x87
0544 e604 | | Load 0x3,0x4
0545 e40b | | Load 0x2,0xb
0546 01df | | Execute Vector,Equal
0547 700e |p | Jump_Nonzero 0x556
0548 0092 08a2 | | Action Push_String_Extended,0x8a2 ; " ... Skipping File: "
054a e604 | | Load 0x3,0x4
054b 8407 | | Call 0x2,0x7
054c 01cc | | Execute Vector,Catenate
054d e00a | | Load 0x0,0xa
054e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
054f 4801 |H | Short_Literal 0x1
0550 e419 | | Load 0x2,0x19
0551 e008 | | Load 0x0,0x8
0552 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0553 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0554 00c9 | | Action Pop_Auxiliary_Loop
0555 7fb8 | | Jump 0x50e
0556 00ce | | Action Pop_Auxiliary
0557 4801 |H | Short_Literal 0x1
0558 e00a | | Load 0x0,0xa
0559 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
055a 0092 08a3 | | Action Push_String_Extended,0x8a3 ; "Processing Backup Index"
055c e00a | | Load 0x0,0xa
055d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
055e 4801 |H | Short_Literal 0x1
055f e00a | | Load 0x0,0xa
0560 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0561 e60c | | Load 0x3,0xc
0562 6818 |h | Jump_Zero 0x57b
0563 e60c | | Load 0x3,0xc
0564 0f01 | | Execute_Immediate Equal,0x1
0565 7001 |p | Jump_Nonzero 0x567
0566 0887 | | Execute_Immediate Raise,0x87
0567 e419 | | Load 0x2,0x19
0568 e008 | | Load 0x0,0x8
0569 1b16 | | Execute Package,Field_Read,Field_Number 0x16
056a 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
056b e60e | | Load 0x3,0xe
056c 01d4 | | Execute Vector,Structure_Write
056d 4818 |H | Short_Literal 0x18
056e e618 | | Load 0x3,0x18
056f 0269 | i | Execute Discrete,Last
0570 4800 |H | Short_Literal 0x0
0571 e60e | | Load 0x3,0xe
0572 01d5 | | Execute Vector,Field_Reference
0573 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0574 01cf | | Execute Vector,Slice_Read
0575 8407 | | Call 0x2,0x7
0576 e015 | | Load 0x0,0x15
0577 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0578 c412 | | Store 0x2,0x12
0579 4801 |H | Short_Literal 0x1
057a a416 | | Store_Unchecked 0x2,0x16
057b e419 | | Load 0x2,0x19
057c 8427 | ' | Call 0x2,0x27
057d 00e3 | | Load_Encached Natural_Cache
057e 00e3 | | Load_Encached Natural_Cache
057f e419 | | Load 0x2,0x19
0580 e008 | | Load 0x0,0x8
0581 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0582 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0583 c60b | | Store 0x3,0xb
0584 c60d | | Store 0x3,0xd
0585 e60d | | Load 0x3,0xd
0586 6801 |h | Jump_Zero 0x588
0587 0887 | | Execute_Immediate Raise,0x87
0588 00e3 | | Load_Encached Natural_Cache
0589 e003 | | Load 0x0,0x3
058a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
058b e006 | | Load 0x0,0x6
058c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
058d e003 | | Load 0x0,0x3
058e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
058f e001 | | Load 0x0,0x1
0590 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0591 e608 | | Load 0x3,0x8
0592 0120 | | Execute Any,Is_Value
0593 6803 |h | Jump_Zero 0x597
0594 e005 | | Load 0x0,0x5
0595 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0596 7801 |x | Jump 0x598
0597 e608 | | Load 0x3,0x8
0598 00e1 | | Load_Encached Boolean_Cache
0599 e606 | | Load 0x3,0x6
059a 0120 | | Execute Any,Is_Value
059b 6803 |h | Jump_Zero 0x59f
059c e005 | | Load 0x0,0x5
059d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
059e 7801 |x | Jump 0x5a0
059f e606 | | Load 0x3,0x6
05a0 e605 | | Load 0x3,0x5
05a1 e604 | | Load 0x3,0x4
05a2 4808 |H | Short_Literal 0x8
05a3 e419 | | Load 0x2,0x19
05a4 e008 | | Load 0x0,0x8
05a5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
05a6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
05a7 00d2 | | Pop_Control Pop_Count_2
05a8 c606 | | Store 0x3,0x6
05a9 c607 | | Store 0x3,0x7
05aa c608 | | Store 0x3,0x8
05ab c602 | | Store 0x3,0x2
05ac c609 | | Store 0x3,0x9
05ad c413 | | Store 0x2,0x13
05ae c60a | | Store 0x3,0xa
05af c60c | | Store 0x3,0xc
05b0 e602 | | Load 0x3,0x2
05b1 0f20 | | Execute_Immediate Equal,0x20
05b2 7001 |p | Jump_Nonzero 0x5b4
05b3 0887 | | Execute_Immediate Raise,0x87
05b4 e607 | | Load 0x3,0x7
05b5 6801 |h | Jump_Zero 0x5b7
05b6 0887 | | Execute_Immediate Raise,0x87
05b7 e609 | | Load 0x3,0x9
05b8 0f03 | | Execute_Immediate Equal,0x3
05b9 7001 |p | Jump_Nonzero 0x5bb
05ba 0887 | | Execute_Immediate Raise,0x87
05bb e60c | | Load 0x3,0xc
05bc 6801 |h | Jump_Zero 0x5be
05bd 0887 | | Execute_Immediate Raise,0x87
05be e60a | | Load 0x3,0xa
05bf 6801 |h | Jump_Zero 0x5c1
05c0 0887 | | Execute_Immediate Raise,0x87
05c1 e604 | | Load 0x3,0x4
05c2 e40c | | Load 0x2,0xc
05c3 01df | | Execute Vector,Equal
05c4 7001 |p | Jump_Nonzero 0x5c6
05c5 0887 | | Execute_Immediate Raise,0x87
05c6 e419 | | Load 0x2,0x19
05c7 8427 | ' | Call 0x2,0x27
05c8 00e3 | | Load_Encached Natural_Cache
05c9 00e3 | | Load_Encached Natural_Cache
05ca e419 | | Load 0x2,0x19
05cb e008 | | Load 0x0,0x8
05cc 1b16 | | Execute Package,Field_Read,Field_Number 0x16
05cd 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
05ce c60b | | Store 0x3,0xb
05cf c60d | | Store 0x3,0xd
05d0 e60d | | Load 0x3,0xd
05d1 6801 |h | Jump_Zero 0x5d3
05d2 0887 | | Execute_Immediate Raise,0x87
05d3 e419 | | Load 0x2,0x19
05d4 8428 | ( | Call 0x2,0x28
05d5 4801 |H | Short_Literal 0x1
05d6 e00a | | Load 0x0,0xa
05d7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
05d8 e416 | | Load 0x2,0x16
05d9 6808 |h | Jump_Zero 0x5e2
05da 0092 08a4 | | Action Push_String_Extended,0x8a4 ; " Backup_Time changed to "
05dc e412 | | Load 0x2,0x12
05dd e015 | | Load 0x0,0x15
05de 181e | | Execute Package,Field_Execute,Field_Number 0x1e
05df 01cc | | Execute Vector,Catenate
05e0 e00a | | Load 0x0,0xa
05e1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
05e2 0092 08a5 | | Action Push_String_Extended,0x8a5 ; " Number_Of_Backups set to"
05e4 e411 | | Load 0x2,0x11
05e5 00e0 | | Load_Encached Standard_Cache
05e6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
05e7 01cc | | Execute Vector,Catenate
05e8 e00a | | Load 0x0,0xa
05e9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
05ea 4802 |H | Short_Literal 0x2
05eb e00a | | Load 0x0,0xa
05ec 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
05ed e417 | | Load 0x2,0x17
05ee 6811 |h | Jump_Zero 0x600
05ef 0092 08a6 | | Action Push_String_Extended,0x8a6 ; "Positioning tape to Backup Data"
05f1 e00a | | Load 0x0,0xa
05f2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
05f3 4801 |H | Short_Literal 0x1
05f4 e419 | | Load 0x2,0x19
05f5 e008 | | Load 0x0,0x8
05f6 1b16 | | Execute Package,Field_Read,Field_Number 0x16
05f7 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
05f8 0092 08a7 | | Action Push_String_Extended,0x8a7 ; "Processing Backup Data"
05fa e00a | | Load 0x0,0xa
05fb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
05fc 4801 |H | Short_Literal 0x1
05fd e00a | | Load 0x0,0xa
05fe 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
05ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0600 0092 08a8 | | Action Push_String_Extended,0x8a8 ; "Unloading Backup Index tape"
0602 e00a | | Load 0x0,0xa
0603 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0604 e419 | | Load 0x2,0x19
0605 e008 | | Load 0x0,0x8
0606 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0607 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0608 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0609 0000 0000 | | .BLANK 0000[0x7]
0610 ; --------------------------------------------------------------------------------------
0610 ; SUBPROGRAM
0610 ; --------------------------------------------------------------------------------------
0610 063e | > | .CONST 0x063e ; Address of begin
0611 0004 | | .CONST 0x0004 ; Address of exception handler
0612 0011 | | .CONST 0x0011 ; Number of locals
0613 INIT_0610:
0613 e003 | | Load 0x0,0x3
0614 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0615 0322 | " | Declare_Variable Record
0616 e7ff | | Load 0x3,-0x1
0617 e602 | | Load 0x3,0x2
0618 017d | } | Execute Record,Structure_Write
0619 e402 | | Load 0x2,0x2
061a 0007 | | Action Break_Optional
061b e003 | | Load 0x0,0x3
061c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
061d 0337 | 7 | Declare_Variable Array
061e e003 | | Load 0x0,0x3
061f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0620 0337 | 7 | Declare_Variable Array
0621 4801 |H | Short_Literal 0x1
0622 4850 |HP | Short_Literal 0x50
0623 e003 | | Load 0x0,0x3
0624 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
0625 035b | [ | Declare_Type Array,Constrained
0626 0337 | 7 | Declare_Variable Array
0627 e005 | | Load 0x0,0x5
0628 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0629 02c7 | | Declare_Variable Any
062a 00d8 | | Load_Top At_Offset_0
062b 1c00 | | Execute_Immediate Run_Utility,0x0
062c 00e1 | | Load_Encached Boolean_Cache
062d e005 | | Load 0x0,0x5
062e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
062f 02c7 | | Declare_Variable Any
0630 00d8 | | Load_Top At_Offset_0
0631 1c00 | | Execute_Immediate Run_Utility,0x0
0632 e003 | | Load 0x0,0x3
0633 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0634 00e3 | | Load_Encached Natural_Cache
0635 00e3 | | Load_Encached Natural_Cache
0636 00e3 | | Load_Encached Natural_Cache
0637 00e3 | | Load_Encached Natural_Cache
0638 e404 | | Load 0x2,0x4
0639 0007 | | Action Break_Optional
063a 0092 08a9 | | Action Push_String_Extended,0x8a9 ; "Space Info Vol"
063c 00d8 | | Load_Top At_Offset_0
063d 8406 | | Call 0x2,0x6
063e BODY_0610:
063e e7ff | | Load 0x3,-0x1
063f e415 | | Load 0x2,0x15
0640 017f | | Execute Record,Equal
0641 6803 |h | Jump_Zero 0x645
0642 e417 | | Load 0x2,0x17
0643 7028 |p( | Jump_Nonzero 0x66c
0644 0887 | | Execute_Immediate Raise,0x87
0645 e417 | | Load 0x2,0x17
0646 6804 |h | Jump_Zero 0x64b
0647 e419 | | Load 0x2,0x19
0648 e008 | | Load 0x0,0x8
0649 1b16 | | Execute Package,Field_Read,Field_Number 0x16
064a 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
064b 0092 08aa | | Action Push_String_Extended,0x8aa ; "Requesting operator to mount 1st Backup Data tape"
064d e00a | | Load 0x0,0xa
064e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
064f e001 | | Load 0x0,0x1
0650 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0651 e604 | | Load 0x3,0x4
0652 e602 | | Load 0x3,0x2
0653 0092 08ab | | Action Push_String_Extended,0x8ab ; "1ST BACKUP DATA TAPE "
0655 8406 | | Call 0x2,0x6
0656 e419 | | Load 0x2,0x19
0657 e008 | | Load 0x0,0x8
0658 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0659 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
065a 00d2 | | Pop_Control Pop_Count_2
065b c603 | | Store 0x3,0x3
065c 0092 08a7 | | Action Push_String_Extended,0x8a7 ; "Processing Backup Data"
065e e00a | | Load 0x0,0xa
065f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0660 4801 |H | Short_Literal 0x1
0661 e00a | | Load 0x0,0xa
0662 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0663 e603 | | Load 0x3,0x3
0664 0f20 | | Execute_Immediate Equal,0x20
0665 7001 |p | Jump_Nonzero 0x667
0666 0887 | | Execute_Immediate Raise,0x87
0667 e604 | | Load 0x3,0x4
0668 e408 | | Load 0x2,0x8
0669 01df | | Execute Vector,Equal
066a 7001 |p | Jump_Nonzero 0x66c
066b 0887 | | Execute_Immediate Raise,0x87
066c 00cf | | Action Mark_Auxiliary
066d 00cf | | Action Mark_Auxiliary
066e e419 | | Load 0x2,0x19
066f e008 | | Load 0x0,0x8
0670 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0671 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
0672 7053 |pS | Jump_Nonzero 0x6c6
0673 00e3 | | Load_Encached Natural_Cache
0674 e003 | | Load 0x0,0x3
0675 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0676 e006 | | Load 0x0,0x6
0677 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0678 e003 | | Load 0x0,0x3
0679 1b0d | | Execute Package,Field_Read,Field_Number 0xd
067a e001 | | Load 0x0,0x1
067b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
067c e609 | | Load 0x3,0x9
067d 0120 | | Execute Any,Is_Value
067e 6803 |h | Jump_Zero 0x682
067f e005 | | Load 0x0,0x5
0680 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0681 7801 |x | Jump 0x683
0682 e609 | | Load 0x3,0x9
0683 00e1 | | Load_Encached Boolean_Cache
0684 e607 | | Load 0x3,0x7
0685 0120 | | Execute Any,Is_Value
0686 6803 |h | Jump_Zero 0x68a
0687 e005 | | Load 0x0,0x5
0688 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0689 7801 |x | Jump 0x68b
068a e607 | | Load 0x3,0x7
068b e606 | | Load 0x3,0x6
068c e605 | | Load 0x3,0x5
068d 4808 |H | Short_Literal 0x8
068e e419 | | Load 0x2,0x19
068f e008 | | Load 0x0,0x8
0690 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0691 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0692 00d2 | | Pop_Control Pop_Count_2
0693 c607 | | Store 0x3,0x7
0694 c608 | | Store 0x3,0x8
0695 c609 | | Store 0x3,0x9
0696 c603 | | Store 0x3,0x3
0697 c60a | | Store 0x3,0xa
0698 c413 | | Store 0x2,0x13
0699 c60b | | Store 0x3,0xb
069a c60d | | Store 0x3,0xd
069b 4800 |H | Short_Literal 0x0
069c 480d |H | Short_Literal 0xd
069d e605 | | Load 0x3,0x5
069e 01cf | | Execute Vector,Slice_Read
069f e611 | | Load 0x3,0x11
06a0 01df | | Execute Vector,Equal
06a1 7024 |p$ | Jump_Nonzero 0x6c6
06a2 e417 | | Load 0x2,0x17
06a3 6814 |h | Jump_Zero 0x6b8
06a4 00cf | | Action Mark_Auxiliary
06a5 e40a | | Load 0x2,0xa
06a6 01d9 | | Execute Vector,Reverse_Bounds
06a7 0007 | | Action Break_Optional
06a8 e605 | | Load 0x3,0x5
06a9 e616 | | Load 0x3,0x16
06aa e40a | | Load 0x2,0xa
06ab 01d5 | | Execute Vector,Field_Reference
06ac 01df | | Execute Vector,Equal
06ad 6807 |h | Jump_Zero 0x6b5
06ae e419 | | Load 0x2,0x19
06af e008 | | Load 0x0,0x8
06b0 1b16 | | Execute Package,Field_Read,Field_Number 0x16
06b1 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
06b2 4800 |H | Short_Literal 0x0
06b3 a418 | | Store_Unchecked 0x2,0x18
06b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06b5 00c8 | | Action Pop_Auxiliary_Range
06b6 3ff1 |? | Loop_Increasing 0x6a8
06b7 00ce | | Action Pop_Auxiliary
06b8 0092 08a2 | | Action Push_String_Extended,0x8a2 ; " ... Skipping File: "
06ba e605 | | Load 0x3,0x5
06bb 8407 | | Call 0x2,0x7
06bc 01cc | | Execute Vector,Catenate
06bd e00a | | Load 0x0,0xa
06be 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
06bf 4801 |H | Short_Literal 0x1
06c0 e419 | | Load 0x2,0x19
06c1 e008 | | Load 0x0,0x8
06c2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
06c3 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
06c4 00c9 | | Action Pop_Auxiliary_Loop
06c5 7fa8 | | Jump 0x66e
06c6 00ce | | Action Pop_Auxiliary
06c7 e419 | | Load 0x2,0x19
06c8 e008 | | Load 0x0,0x8
06c9 1b16 | | Execute Package,Field_Read,Field_Number 0x16
06ca 1841 | A | Execute Package,Field_Execute,Field_Number 0x41
06cb 70e3 |p | Jump_Nonzero 0x7af
06cc 480e |H | Short_Literal 0xe
06cd 4810 |H | Short_Literal 0x10
06ce e605 | | Load 0x3,0x5
06cf 01cf | | Execute Vector,Slice_Read
06d0 8407 | | Call 0x2,0x7
06d1 00e2 | | Load_Encached Integer_Cache
06d2 00e0 | | Load_Encached Standard_Cache
06d3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
06d4 c60f | | Store 0x3,0xf
06d5 e603 | | Load 0x3,0x3
06d6 0f20 | | Execute_Immediate Equal,0x20
06d7 7001 |p | Jump_Nonzero 0x6d9
06d8 0887 | | Execute_Immediate Raise,0x87
06d9 e608 | | Load 0x3,0x8
06da 6801 |h | Jump_Zero 0x6dc
06db 0887 | | Execute_Immediate Raise,0x87
06dc e60a | | Load 0x3,0xa
06dd 0f03 | | Execute_Immediate Equal,0x3
06de 7001 |p | Jump_Nonzero 0x6e0
06df 0887 | | Execute_Immediate Raise,0x87
06e0 e60d | | Load 0x3,0xd
06e1 6801 |h | Jump_Zero 0x6e3
06e2 0887 | | Execute_Immediate Raise,0x87
06e3 e60b | | Load 0x3,0xb
06e4 6801 |h | Jump_Zero 0x6e6
06e5 0887 | | Execute_Immediate Raise,0x87
06e6 e605 | | Load 0x3,0x5
06e7 4811 |H | Short_Literal 0x11
06e8 0092 08a9 | | Action Push_String_Extended,0x8a9 ; "Space Info Vol"
06ea e60f | | Load 0x3,0xf
06eb 00e0 | | Load_Encached Standard_Cache
06ec 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06ed 01cc | | Execute Vector,Catenate
06ee 8405 | | Call 0x2,0x5
06ef 01df | | Execute Vector,Equal
06f0 7001 |p | Jump_Nonzero 0x6f2
06f1 0887 | | Execute_Immediate Raise,0x87
06f2 e418 | | Load 0x2,0x18
06f3 680d |h | Jump_Zero 0x701
06f4 e419 | | Load 0x2,0x19
06f5 8427 | ' | Call 0x2,0x27
06f6 00e3 | | Load_Encached Natural_Cache
06f7 00e3 | | Load_Encached Natural_Cache
06f8 e419 | | Load 0x2,0x19
06f9 e008 | | Load 0x0,0x8
06fa 1b16 | | Execute Package,Field_Read,Field_Number 0x16
06fb 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
06fc c60c | | Store 0x3,0xc
06fd c60e | | Store 0x3,0xe
06fe e60e | | Load 0x3,0xe
06ff 6806 |h | Jump_Zero 0x706
0700 0887 | | Execute_Immediate Raise,0x87
0701 4801 |H | Short_Literal 0x1
0702 e419 | | Load 0x2,0x19
0703 e008 | | Load 0x0,0x8
0704 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0705 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0706 00e3 | | Load_Encached Natural_Cache
0707 e003 | | Load 0x0,0x3
0708 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0709 e006 | | Load 0x0,0x6
070a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
070b e003 | | Load 0x0,0x3
070c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
070d e001 | | Load 0x0,0x1
070e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
070f e609 | | Load 0x3,0x9
0710 0120 | | Execute Any,Is_Value
0711 6803 |h | Jump_Zero 0x715
0712 e005 | | Load 0x0,0x5
0713 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0714 7801 |x | Jump 0x716
0715 e609 | | Load 0x3,0x9
0716 00e1 | | Load_Encached Boolean_Cache
0717 e607 | | Load 0x3,0x7
0718 0120 | | Execute Any,Is_Value
0719 6803 |h | Jump_Zero 0x71d
071a e005 | | Load 0x0,0x5
071b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
071c 7801 |x | Jump 0x71e
071d e607 | | Load 0x3,0x7
071e e606 | | Load 0x3,0x6
071f e605 | | Load 0x3,0x5
0720 4808 |H | Short_Literal 0x8
0721 e419 | | Load 0x2,0x19
0722 e008 | | Load 0x0,0x8
0723 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0724 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0725 00d2 | | Pop_Control Pop_Count_2
0726 c607 | | Store 0x3,0x7
0727 c608 | | Store 0x3,0x8
0728 c609 | | Store 0x3,0x9
0729 c603 | | Store 0x3,0x3
072a c60a | | Store 0x3,0xa
072b c413 | | Store 0x2,0x13
072c c60b | | Store 0x3,0xb
072d c60d | | Store 0x3,0xd
072e e603 | | Load 0x3,0x3
072f 0f20 | | Execute_Immediate Equal,0x20
0730 7001 |p | Jump_Nonzero 0x732
0731 0887 | | Execute_Immediate Raise,0x87
0732 e608 | | Load 0x3,0x8
0733 6801 |h | Jump_Zero 0x735
0734 0887 | | Execute_Immediate Raise,0x87
0735 e60a | | Load 0x3,0xa
0736 0f03 | | Execute_Immediate Equal,0x3
0737 7001 |p | Jump_Nonzero 0x739
0738 0887 | | Execute_Immediate Raise,0x87
0739 e60d | | Load 0x3,0xd
073a 6801 |h | Jump_Zero 0x73c
073b 0887 | | Execute_Immediate Raise,0x87
073c e60b | | Load 0x3,0xb
073d 6801 |h | Jump_Zero 0x73f
073e 0887 | | Execute_Immediate Raise,0x87
073f e605 | | Load 0x3,0x5
0740 4811 |H | Short_Literal 0x11
0741 0092 08ac | | Action Push_String_Extended,0x8ac ; "Block Info Vol"
0743 e60f | | Load 0x3,0xf
0744 00e0 | | Load_Encached Standard_Cache
0745 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0746 01cc | | Execute Vector,Catenate
0747 8405 | | Call 0x2,0x5
0748 01df | | Execute Vector,Equal
0749 7001 |p | Jump_Nonzero 0x74b
074a 0887 | | Execute_Immediate Raise,0x87
074b e419 | | Load 0x2,0x19
074c 8427 | ' | Call 0x2,0x27
074d 00e3 | | Load_Encached Natural_Cache
074e 00e3 | | Load_Encached Natural_Cache
074f e419 | | Load 0x2,0x19
0750 e008 | | Load 0x0,0x8
0751 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0752 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0753 c60c | | Store 0x3,0xc
0754 c60e | | Store 0x3,0xe
0755 e60e | | Load 0x3,0xe
0756 6801 |h | Jump_Zero 0x758
0757 0887 | | Execute_Immediate Raise,0x87
0758 00e3 | | Load_Encached Natural_Cache
0759 e003 | | Load 0x0,0x3
075a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
075b e006 | | Load 0x0,0x6
075c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
075d e003 | | Load 0x0,0x3
075e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
075f e001 | | Load 0x0,0x1
0760 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0761 e609 | | Load 0x3,0x9
0762 0120 | | Execute Any,Is_Value
0763 6803 |h | Jump_Zero 0x767
0764 e005 | | Load 0x0,0x5
0765 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0766 7801 |x | Jump 0x768
0767 e609 | | Load 0x3,0x9
0768 00e1 | | Load_Encached Boolean_Cache
0769 e607 | | Load 0x3,0x7
076a 0120 | | Execute Any,Is_Value
076b 6803 |h | Jump_Zero 0x76f
076c e005 | | Load 0x0,0x5
076d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
076e 7801 |x | Jump 0x770
076f e607 | | Load 0x3,0x7
0770 e606 | | Load 0x3,0x6
0771 e605 | | Load 0x3,0x5
0772 4808 |H | Short_Literal 0x8
0773 e419 | | Load 0x2,0x19
0774 e008 | | Load 0x0,0x8
0775 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0776 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0777 00d2 | | Pop_Control Pop_Count_2
0778 c607 | | Store 0x3,0x7
0779 c608 | | Store 0x3,0x8
077a c609 | | Store 0x3,0x9
077b c603 | | Store 0x3,0x3
077c c60a | | Store 0x3,0xa
077d c413 | | Store 0x2,0x13
077e c60b | | Store 0x3,0xb
077f c60d | | Store 0x3,0xd
0780 e603 | | Load 0x3,0x3
0781 0f20 | | Execute_Immediate Equal,0x20
0782 7001 |p | Jump_Nonzero 0x784
0783 0887 | | Execute_Immediate Raise,0x87
0784 e608 | | Load 0x3,0x8
0785 6801 |h | Jump_Zero 0x787
0786 0887 | | Execute_Immediate Raise,0x87
0787 e60a | | Load 0x3,0xa
0788 0f03 | | Execute_Immediate Equal,0x3
0789 7001 |p | Jump_Nonzero 0x78b
078a 0887 | | Execute_Immediate Raise,0x87
078b e60d | | Load 0x3,0xd
078c 6801 |h | Jump_Zero 0x78e
078d 0887 | | Execute_Immediate Raise,0x87
078e e60b | | Load 0x3,0xb
078f 6801 |h | Jump_Zero 0x791
0790 0887 | | Execute_Immediate Raise,0x87
0791 e605 | | Load 0x3,0x5
0792 4811 |H | Short_Literal 0x11
0793 0092 08ad | | Action Push_String_Extended,0x8ad ; "Block Data Vol"
0795 e60f | | Load 0x3,0xf
0796 00e0 | | Load_Encached Standard_Cache
0797 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0798 01cc | | Execute Vector,Catenate
0799 8405 | | Call 0x2,0x5
079a 01df | | Execute Vector,Equal
079b 7001 |p | Jump_Nonzero 0x79d
079c 0887 | | Execute_Immediate Raise,0x87
079d e419 | | Load 0x2,0x19
079e 8427 | ' | Call 0x2,0x27
079f 00e3 | | Load_Encached Natural_Cache
07a0 00e3 | | Load_Encached Natural_Cache
07a1 e419 | | Load 0x2,0x19
07a2 e008 | | Load 0x0,0x8
07a3 1b16 | | Execute Package,Field_Read,Field_Number 0x16
07a4 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
07a5 c60c | | Store 0x3,0xc
07a6 c60e | | Store 0x3,0xe
07a7 e60e | | Load 0x3,0xe
07a8 6801 |h | Jump_Zero 0x7aa
07a9 0887 | | Execute_Immediate Raise,0x87
07aa 4801 |H | Short_Literal 0x1
07ab e00a | | Load 0x0,0xa
07ac 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
07ad 00c9 | | Action Pop_Auxiliary_Loop
07ae 7ebe |~ | Jump 0x66d
07af 00ce | | Action Pop_Auxiliary
07b0 e419 | | Load 0x2,0x19
07b1 e008 | | Load 0x0,0x8
07b2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
07b3 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
07b4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07b5 0000 0000 | | .XXX[0x3]
07b7 0000 | |
07b8 ; --------------------------------------------------------------------------------------
07b8 ; SUBPROGRAM
07b8 ; --------------------------------------------------------------------------------------
07b8 07bb | | .CONST 0x07bb ; Address of begin
07b9 0004 | | .CONST 0x0004 ; Address of exception handler
07ba 0001 | | .CONST 0x0001 ; Number of locals
07bb BODY_07b8:
07bb INIT_07b8:
07bb 4801 |H | Short_Literal 0x1
07bc e9fe | | Load 0x4,-0x2
07bd e9ff | | Load 0x4,-0x1
07be e014 | | Load 0x0,0x14
07bf 181d | | Execute Package,Field_Execute,Field_Number 0x1d
07c0 0e00 | | Execute_Immediate Not_Equal,0x0
07c1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
07c2 0000 0000 | | .BLANK 0000[0x6]
07c8 ; --------------------------------------------------------------------------------------
07c8 ; SUBPROGRAM
07c8 ; --------------------------------------------------------------------------------------
07c8 07cd | | .CONST 0x07cd ; Address of begin
07c9 0004 | | .CONST 0x0004 ; Address of exception handler
07ca 0002 | | .CONST 0x0002 ; Number of locals
07cb INIT_07c8:
07cb 00e3 | | Load_Encached Natural_Cache
07cc 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
07cd BODY_07c8:
07cd 00cf | | Action Mark_Auxiliary
07ce 7804 |x | Jump 0x7d3
07cf e802 | | Load 0x4,0x2
07d0 0a01 | | Execute_Immediate Plus,0x1
07d1 c802 | | Store 0x4,0x2
07d2 00c9 | | Action Pop_Auxiliary_Loop
07d3 e802 | | Load 0x4,0x2
07d4 0a01 | | Execute_Immediate Plus,0x1
07d5 e603 | | Load 0x3,0x3
07d6 01d7 | | Execute Vector,Field_Read
07d7 0e20 | | Execute_Immediate Not_Equal,0x20
07d8 77f6 |w | Jump_Nonzero 0x7cf
07d9 00ce | | Action Pop_Auxiliary
07da 4801 |H | Short_Literal 0x1
07db e802 | | Load 0x4,0x2
07dc e603 | | Load 0x3,0x3
07dd 01cf | | Execute Vector,Slice_Read
07de 00d8 | | Load_Top At_Offset_0
07df 01da | | Execute Vector,Bounds
07e0 00e9 | | Load_Encached String_Cache
07e1 0334 | 4 | Declare_Variable Array,With_Constraint
07e2 00d0 | | Action Swap_Control
07e3 00d8 | | Load_Top At_Offset_0
07e4 01dd | | Execute Vector,First
07e5 e803 | | Load 0x4,0x3
07e6 01dd | | Execute Vector,First
07e7 0272 | r | Execute Discrete,Minus
07e8 e803 | | Load 0x4,0x3
07e9 01d9 | | Execute Vector,Reverse_Bounds
07ea 0263 | c | Execute Discrete,Above_Bound
07eb 700a |p | Jump_Nonzero 0x7f6
07ec 00d8 | | Load_Top At_Offset_0
07ed e805 | | Load 0x4,0x5
07ee 0273 | s | Execute Discrete,Plus
07ef e804 | | Load 0x4,0x4
07f0 01d7 | | Execute Vector,Field_Read
07f1 e807 | | Load 0x4,0x7
07f2 e803 | | Load 0x4,0x3
07f3 01d5 | | Execute Vector,Field_Reference
07f4 0118 | | Execute Any,Write_Unchecked
07f5 3ff6 |? | Loop_Increasing 0x7ec
07f6 00d2 | | Pop_Control Pop_Count_2
07f7 00e2 | | Load_Encached Integer_Cache
07f8 00e0 | | Load_Encached Standard_Cache
07f9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
07fa 00d8 | | Load_Top At_Offset_0
07fb 00e3 | | Load_Encached Natural_Cache
07fc 0260 | ` | Execute Discrete,In_Type
07fd 7001 |p | Jump_Nonzero 0x7ff
07fe 0801 | | Execute_Immediate Raise,0x1
07ff 00ca | | Action Exit_Nullary_Function
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0803 | | .CONST 0x0803 ; Address of begin
0801 085a | Z | .CONST 0x085a ; Address of exception handler
0802 0001 | | .CONST 0x0001 ; Number of locals
0803 BODY_0800:
0803 INIT_0800:
0803 e007 | | Load 0x0,0x7
0804 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0805 e415 | | Load 0x2,0x15
0806 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0807 e007 | | Load 0x0,0x7
0808 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0809 e415 | | Load 0x2,0x15
080a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
080b e001 | | Load 0x0,0x1
080c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
080d e603 | | Load 0x3,0x3
080e e415 | | Load 0x2,0x15
080f 0092 08ae | | Action Push_String_Extended,0x8ae ; "BACKUP INDEX TAPE (blue tape) "
0811 8406 | | Call 0x2,0x6
0812 e419 | | Load 0x2,0x19
0813 e008 | | Load 0x0,0x8
0814 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0815 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0816 00d2 | | Pop_Control Pop_Count_2
0817 c602 | | Store 0x3,0x2
0818 e419 | | Load 0x2,0x19
0819 e008 | | Load 0x0,0x8
081a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
081b 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
081c e016 | | Load 0x0,0x16
081d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
081e e016 | | Load 0x0,0x16
081f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0820 a41a | | Store_Unchecked 0x2,0x1a
0821 8421 | ! | Call 0x2,0x21
0822 7003 |p | Jump_Nonzero 0x826
0823 4800 |H | Short_Literal 0x0
0824 a417 | | Store_Unchecked 0x2,0x17
0825 7804 |x | Jump 0x82a
0826 e41a | | Load 0x2,0x1a
0827 e017 | | Load 0x0,0x17
0828 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0829 a417 | | Store_Unchecked 0x2,0x17
082a e417 | | Load 0x2,0x17
082b e602 | | Load 0x3,0x2
082c 0f20 | | Execute_Immediate Equal,0x20
082d 0279 | y | Execute Discrete,And
082e e603 | | Load 0x3,0x3
082f e408 | | Load 0x2,0x8
0830 01df | | Execute Vector,Equal
0831 0279 | y | Execute Discrete,And
0832 e614 | | Load 0x3,0x14
0833 01da | | Execute Vector,Bounds
0834 e415 | | Load 0x2,0x15
0835 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0836 01cf | | Execute Vector,Slice_Read
0837 e614 | | Load 0x3,0x14
0838 01df | | Execute Vector,Equal
0839 0279 | y | Execute Discrete,And
083a 6802 |h | Jump_Zero 0x83d
083b 00cc | | Action Pop_Block
083c 7c7f || | Jump 0x4bc
083d e417 | | Load 0x2,0x17
083e 0f00 | | Execute_Immediate Equal,0x0
083f e602 | | Load 0x3,0x2
0840 0f20 | | Execute_Immediate Equal,0x20
0841 0279 | y | Execute Discrete,And
0842 e603 | | Load 0x3,0x3
0843 e408 | | Load 0x2,0x8
0844 01df | | Execute Vector,Equal
0845 0279 | y | Execute Discrete,And
0846 e610 | | Load 0x3,0x10
0847 01da | | Execute Vector,Bounds
0848 e415 | | Load 0x2,0x15
0849 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
084a 01cf | | Execute Vector,Slice_Read
084b e610 | | Load 0x3,0x10
084c 01df | | Execute Vector,Equal
084d 0279 | y | Execute Discrete,And
084e 6802 |h | Jump_Zero 0x851
084f 00cc | | Action Pop_Block
0850 7c6b ||k | Jump 0x4bc
0851 0092 08af | | Action Push_String_Extended,0x8af ; "Not a Backup Index Tape"
0853 e00a | | Load 0x0,0xa
0854 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0855 e419 | | Load 0x2,0x19
0856 e008 | | Load 0x0,0x8
0857 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0858 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0859 4501 |E | Exit_Suprogram New_Top_Offset 0x1
085a TRAP_0800:
085a e004 | | Load 0x0,0x4
085b 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37
085c 010f | | Execute Exception,Equal
085d 700c |p | Jump_Nonzero 0x86a
085e e004 | | Load 0x0,0x4
085f 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0860 010f | | Execute Exception,Equal
0861 7008 |p | Jump_Nonzero 0x86a
0862 e004 | | Load 0x0,0x4
0863 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
0864 010f | | Execute Exception,Equal
0865 7004 |p | Jump_Nonzero 0x86a
0866 e004 | | Load 0x0,0x4
0867 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0868 010f | | Execute Exception,Equal
0869 6801 |h | Jump_Zero 0x86b
086a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
086b 0100 | | Execute Exception,Raise
086c ; --------------------------------------------------------------------------------------
086c ; STRING TABLE
086c ; --------------------------------------------------------------------------------------
086c 008a | | .STRTAB 0x008a->0x08b1 ; "BACKUP"
086d 008e | | .STRTAB 0x008e->0x08b4 ; "Vol Info"
086e 0094 | | .STRTAB 0x0094->0x08b8 ; "VP Info"
086f 0099 | | .STRTAB 0x0099->0x08bb ; "DB Backups"
0870 00a1 | | .STRTAB 0x00a1->0x08c0 ; "DB Processors"
0871 00ac | | .STRTAB 0x00ac->0x08c7 ; "DB Disk Volumes"
0872 00b9 | | .STRTAB 0x00b9->0x08ce ; "DB Tape Volumes"
0873 00c6 | | .STRTAB 0x00c6->0x08d6 ; "Successfully completed scan of backup tape."
0874 00ef | | .STRTAB 0x00ef->0x08eb ; "Vol_Set_Already_Open_Or_Created"
0875 010c | | .STRTAB 0x010c->0x08fb ; "Not_Rational_Vol_Set"
0876 011e | | .STRTAB 0x011e->0x0905 ; "Vol_Set_Not_Open_Or_Created"
0877 0137 | 7 | .STRTAB 0x0137->0x0912 ; "End_Of_Vol_Set_Encountered"
0878 014f | O | .STRTAB 0x014f->0x091f ; "Not_Initialized"
0879 015c | \ | .STRTAB 0x015c->0x0927 ; "Not_Original_Client"
087a 016d | m | .STRTAB 0x016d->0x0930 ; "Read_While_Writing"
087b 017d | } | .STRTAB 0x017d->0x0939 ; "Write_While_Reading"
087c 018e | | .STRTAB 0x018e->0x0943 ; "Position_While_Writing"
087d 01a2 | | .STRTAB 0x01a2->0x094e ; "Previous_Fatal_Error"
087e 01b4 | | .STRTAB 0x01b4->0x0958 ; "File_Still_Being_Written"
087f 01ca | | .STRTAB 0x01ca->0x0964 ; "File_Still_Being_Read"
0880 01dd | | .STRTAB 0x01dd->0x096e ; "File_Not_Created"
0881 01eb | | .STRTAB 0x01eb->0x0976 ; "File_Not_Open"
0882 01f6 | | .STRTAB 0x01f6->0x097d ; "Retry_Count_Exhausted"
0883 0209 | | .STRTAB 0x0209->0x0987 ; "Vol_Set_Error"
0884 0214 | | .STRTAB 0x0214->0x098e ; "Unexpected_Tape_Error"
0885 0227 | ' | .STRTAB 0x0227->0x0998 ; "No_Drive_Available"
0886 0237 | 7 | .STRTAB 0x0237->0x09a1 ; "Desired_Drive_Unavailable"
0887 024e | N | .STRTAB 0x024e->0x09ae ; "Desired_Volume_Not_Found"
0888 0264 | d | .STRTAB 0x0264->0x09ba ; "Vol_Access_Denied"
0889 0273 | s | .STRTAB 0x0273->0x09c2 ; "File_Access_Denied"
088a 0283 | | .STRTAB 0x0283->0x09cb ; "File_Expired"
088b 028d | | .STRTAB 0x028d->0x09d1 ; "Not_At_EOF"
088c 0295 | | .STRTAB 0x0295->0x09d6 ; "Not_At_EOVS"
088d 029e | | .STRTAB 0x029e->0x09dc ; "File_Not_In_Vol_Set"
088e 02af | | .STRTAB 0x02af->0x09e5 ; "Record_Not_In_File"
088f 02bf | | .STRTAB 0x02bf->0x09ee ; "Incorrect_Buffer_Size"
0890 02d2 | | .STRTAB 0x02d2->0x09f9 ; "Block_Length_Too_Short"
0891 02e6 | | .STRTAB 0x02e6->0x0a04 ; "Block_Length_Too_Long"
0892 02f9 | | .STRTAB 0x02f9->0x0a0e ; "*** "
0893 0300 | | .STRTAB 0x0300->0x0a13 ; "*** Tape Data => "
0894 0314 | | .STRTAB 0x0314->0x0a1e ; "D_10_20_0S"
0895 031c | | .STRTAB 0x031c->0x0a23 ; "D_10_20_0"
0896 0323 | # | .STRTAB 0x0323->0x0a27 ; "*** Unexpected Exception: "
0897 033b | ; | .STRTAB 0x033b->0x0a34 ; "***"
0898 033c | < | .STRTAB 0x033c->0x0a36 ; "*** Verify_Backup DID NOT complete"
0899 035c | \ | .STRTAB 0x035c->0x0a47 ; " ... Reading File: "
089a 0371 | q | .STRTAB 0x0371->0x0a52 ; " blocks"
089b 0376 | v | .STRTAB 0x0376->0x0a56 ; "BACKUP BLUE TAPE, "
089c 0386 | | .STRTAB 0x0386->0x0a5f ; "BACKUP, "
089d 038c | | .STRTAB 0x038c->0x0a63 ; "Retained Snapshot Time: "
089e 03a2 | | .STRTAB 0x03a2->0x0a6f ; " Backup_Time: "
089f 03b2 | | .STRTAB 0x03b2->0x0a78 ; " Backup_Version:"
08a0 03c1 | | .STRTAB 0x03c1->0x0a80 ; "Exabyte_Recovery: "
08a1 03d1 | | .STRTAB 0x03d1->0x0a89 ; "Positioning tape to Backup Index"
08a2 03ef | | .STRTAB 0x03ef->0x0a99 ; " ... Skipping File: "
08a3 0404 | | .STRTAB 0x0404->0x0aa5 ; "Processing Backup Index"
08a4 0419 | | .STRTAB 0x0419->0x0ab0 ; " Backup_Time changed to "
08a5 0433 | 3 | .STRTAB 0x0433->0x0abe ; " Number_Of_Backups set to"
08a6 044e | N | .STRTAB 0x044e->0x0acd ; "Positioning tape to Backup Data"
08a7 046b | k | .STRTAB 0x046b->0x0adc ; "Processing Backup Data"
08a8 047f | | .STRTAB 0x047f->0x0ae7 ; "Unloading Backup Index tape"
08a9 0498 | | .STRTAB 0x0498->0x0af5 ; "Space Info Vol"
08aa 04a4 | | .STRTAB 0x04a4->0x0afc ; "Requesting operator to mount 1st Backup Data tape"
08ab 04d3 | | .STRTAB 0x04d3->0x0b14 ; "1ST BACKUP DATA TAPE "
08ac 04e8 | | .STRTAB 0x04e8->0x0b20 ; "Block Info Vol"
08ad 04f4 | | .STRTAB 0x04f4->0x0b27 ; "Block Data Vol"
08ae 0500 | | .STRTAB 0x0500->0x0b2e ; "BACKUP INDEX TAPE (blue tape) "
08af 051e | | .STRTAB 0x051e->0x0b3e ; "Not a Backup Index Tape"
08b0 0533 | 3 | .STREND 0x0533->0x0b49
08b1 4241 434b |BACK| .STRTAB_STRINGS
0b4a 0000 0000 | | .BLANK 0000[0x6]
0b50 ; --------------------------------------------------------------------------------------
0b50 ; Debug Table
0b50 ; --------------------------------------------------------------------------------------
0b50 0004 000e | | .DEBUG4 0x0004,0x000e,0xa47f,0x0000,0x0001,0x0000
0b56 0000 0000 | | .BLANK 0000[0xaa]