|
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_06e8fd
└─⟦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 000c | | .DEBUG4 0x0004,0x000c,0x614e,0x0000,0x0001,0x0000 0b56 0000 0000 | | .BLANK 0000[0x1e] 0b74 8014 0000 | | .XXX[0xb] 0b76 0000 0000 | | 0b78 0100 0000 | | 0b7a 0880 0000 | | 0b7c 0004 0000 | | 0b7e 0028 | ( | 0b7f 0000 0000 | | .BLANK 0000[0x2e] 0bad 1002 8000 | | .XXX[0xb] 0baf 0000 0000 | | 0bb1 0020 0000 | | 0bb3 0110 0000 | | 0bb5 0000 8000 | | 0bb7 0005 | | 0bb8 0000 0000 | | .BLANK 0000[0x48]