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