|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 42770 (0xa712)
Notes: pts_type(SC)
Names: »COPVOL.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »S:DU/COPVOL.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »S:DU/COPVOL.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »S:DU/COPVOL.SC«
IDENT COPVOL PRR 9.1 79-04-06 870136640910 * ***************************************** * * PHILIPS TERMINAL SYSTEM PTS * * * *****TOSS UTILITIES***** * * COPVOL = COPY VOLUME * * * * * * * ***************************************** * * * ******** * *COPVOL* * ******** * * * COPVOL WILL COPY A VOLUME TO A DISC FORMATTED WITH * THE CREATE VOLUME UTILITY. * OLD DISC CALLED DISC1 AND NEW DISC CALLED DISC2 * * EJECT COPVOL CRVOL * * * ********* * *ENTRIES* * ********* * * ENTRY COPVOL * * * *********** * *EXTERNALS* * *********** * * EXTRN BIDACR EXTRN BINACR EXTRN ADDMOD DOUBLE PRECISION ADDITION EXTRN VOLNAM EJECT COPVOL CRVOL * * * *********** * *KONSTANTS* * *********** * * QVRECL EQU 41 VTOC RECORD LENGTH QVTBLF EQU 9 VTOC BLOCK FACTOR QBUF1L EQU 4 BUF1 LENGTH IN SECTORS QBUF2 EQU 2 BUFFER 2 QPRFC EQU 5 PRINTER FC QFCIN EQU 6 INPUT FC QFCOUT EQU 7 OUTPUT FC QVOL1 EQU 8 INPUT VOLUME QVOL2 EQU 14 OUTPUT VOLUME QREORG EQU 21 DISC REORGANIZE PARAMETER * FDFC EQU /F800 FIRST FLEX DISC FC * EJECT COPVOL CRVOL * * ****** * *DATA* * ****** * BADNO2 DATA 0 COUNTR DATA 0 COUNTER IN READ11 ENTRY2 DATA 0 EXTNO DATA 0 FEN2 DATA 0 FILE EXTENT NO DISC2 FILBAS DATA 0 FILE EXTENT BASE FILBLF DATA 0 FILE BLOCKING FACTOR FILLEN DATA 0 FILE EXTENT LENGTH FILRCL DATA 0 FILE RECORD LENGTH FILORG DATA 0 FILE ORG FILSEC DATA 0 FILE LENGTH IN SECTORS FEXB2 DATA 0 NEW FILE EXTENT BASE FEXL2 DATA 0 NEW FILE EXTENT LENGTH FILEXT DATA 0 FREBAS DATA 0 FREE EXTENT BASE FRELEN DATA 0 FREE EXTENT LENGTH LSTRN1 DATA 0,0 LAST RECORD NUMBER NOCC DATA 0 NOSEC DATA 0 NUMBERS OF SECTORS IN FILE REC1 DATA 0 RECORD NO IN VTOC SECTOR SECNO DATA 0 OFFSET IN SECREC TABLE SECTOR DATA 0 SECTOR NO STACKP DATA 0 STACK POINTER A14 VALUE TFILEN DATA 0 TOTAL NUMBER OF SECTORS IN FILE TO COPY TOTFRE DATA 0 TOTAL FREE LENGTH ON DISC * EJECT COPVOL * * VBAS1 DATA 0 VTOC1 BASE VBAS2 DATA 0 VTOC2 BASE VLEN1 DATA 0 VTOC1 LENGTH VLEN2 DATA 0 VTOC2 LENGTH VTSEC1 DATA 0 VTOC1 SECTOR WITH REC1 VLAST1 DATA 0 LAST SECTOR IN VTOC1 VLAST2 DATA 0 LAST SECTOR IN VTOC2 * ECB1 DATA 0,0 DATA 410 ECB FOR OLD DISC BUF1 DATA 0,0,0 * ECB2 DATA 0,0 ECB FOR NEW DISC BUF2 DATA 410 DATA 0,0,0 * ECB3 DATA 0,0 ECB FOR OLD DISC1 BUF2 DATA 410 DATA 0,0,0 * ECB4 DATA 0,0 ECB FOR NEW DISC2 BUF1 DATA 410 DATA 0,0,0 EXTSTP DATA EXTSTP DATA 0,0,0,0 SECREC DATA SECREC DATA 0,0,0,0 EJECT COPVOL CRVOL * * READER DATA ' 0READ ERROR' QREADE EQU *-READER DATA 0 SECER DATA ' SECTOR NO: ' SEC DATA ' ' QSECER EQU *-SECER DATA 0 FILER DATA ' FILE NAME: ' FILNAM DATA 0,0,0,0 QFILNM EQU *-FILER DATA 0 DESREC DATA ' ' DATA 'DESTROYED RECORDS:' RECFR DATA ' ' DATA ' TO ' RECTO DATA ' ' QDESR EQU *-DESREC DATA 0 EJECT COPVOL * * INERR DATA /2030 DATA 'INPUT DISC' QINERR EQU *-INERR * OUTERR DATA /2030 DATA 'OUTPUT DISC' QUOTER EQU *-OUTERR * PRECB DATA 0,0,0,0,0,0 * EJECT COPVOL CRVOL * * ******** * *FFINCC* * ******** * * WRITE 'FF' IN ALL STATUS BITS IN VTOC1 WITH 'CC' * FFINCC EQU * * END010 LD A4,VBAS1 VTOC1 BASE LD A10,VLEN1 VTOC1 LENGTH SUK A4,1 ADR A10,A4 ADK A4,2 LDKL A8,QVTBLF GET VTOC BLOCK FACTOR LDR A9,A4 * END015 LDK A7,/CC CF A14,SEFFE1 CWR A6,A7 RF(NE) COMRTN LDK A7,/FF SCR A7,A1 CF A14,WRITE1 RB END010 * EJECT COPVOL CRVOL * * ******** * *FRENT2* * ******** * * TAKE FIRST FREE FILE ENTRY ON DISC2 TO BUF2 * INPUT A9 = VBAS2+1 * A4 = FIRST SECTOR AFTER VTOC2 * OUTPUT A2 POINT TO FIRST WORD IN RECORD * FRENT2 EQU * CP1 EQU * LD A2,QBUF2,A12 LOAD BUF2 ADDRESS LDKL A3,400 ADK A2,2 SKIP CYLINDER ID CP2 ADK A2,QVRECL SUK A3,QVRECL LCR A7,A2 ANK A7,/FF RF(Z) CP4 ADK A2,1 NEXT ENTRY SUK A3,1 RB(P) CP2 END OF SECTOR? CP3 ADKL A9,1 NEXT SECTOR CWR A9,A4 LAST VTOC SECTOR ABL(E) RTN04 ERROR MESSAGE CF A14,READ2 READ NEXT VTOC SECTOR TO BUF2 RB CP1 CP4 SUK A2,QVRECL * COMRTN RTN A14 * EJECT COPVOL CRVOL * * ******* * *FSAT2* * ******* * * TAKE FIRST FREE EXTENT IN VTOC2 BUF2 * OUTPUT A2 POINT TO FIRST FREE EXTENT LENGTH * A3 CONTAIN FRELEN * FSAT2 EQU * LD A2,QBUF2,A12 A2 POINTER IN BUF2 LDK A4,50 50 ENTRIES IN FSAT ADK A2,4 POINT TO EXTENT LENGTH * F1 LDR* A3,A2 FREE EXTENT LENGTH RB(NZ) COMRTN FIRST FREE LENGTH? ADK A2,8 NEXT LENGTH SUK A4,1 RB(P) F1 END OF SECTOR? ABL RTN05 DISC OVERFLOW * EJECT COPVOL CRVOL * * ******** * *MOVE12* * ******** * * MOVE FROM BUF1 TO BUF2 *INPUT A1 POINT TO FIRST WORD IN BUF1 TO MOVE * A2 POINT IN BUF2 * A4 LENGTH IN WORDS * MOVE12 EQU * * M1 LDR* A3,A1 STR A3,A2 STORE IN BUF2 ADK A1,2 NEXT WORD ADK A2,2 SUK A4,1 A4 COUNTER OF WORDS RB(P) M1 RTN A14 * EJECT COPVOL CRVOL * * ******** * *MOVERE* * ******** * * STORE NEW FILE EXTENT N0, LENGTH, BASE IN BUF2 * LAST RECORD NO FROM EXTENT 1 TO BUF2 *OUTPUT A1 RESP A2 POINT TO RECORD LENGTH *INPUT A1,A2 POINT TO FILE EXTENT NO * *INPUT A3=NEW FILE EXTENT LENGTH * A4= " " " BASE * A5= " " " NO * A7=OLD LAST RECORD NO * MOVERE EQU * STR A5,A2 FILE EXTENT NO ADK A2,2 CMR A2 ADK A2,2 STR A3,A2 FILE EXTENT LENGTH ADK A2,2 CMR A2 ADK A2,2 STR A4,A2 FILE EXTENT BASE ADK A2,2 STR A7,A2 LAST RECORD NO PART 1 ADK A2,2 LD A7,LSTRN1+2 LAST RECORD NO PART 2 STR A7,A2 ADK A2,2 ADK A1,14 RTN A14 * EJECT COPVOL CRVOL * * ******** * *NXTFRE* * ******** * * TAKE NEXT FREE SECTOR ON VTOC2 * NXTFRE EQU * LDK A4,50 * TAKE NEXT FREE EXTENT NXT01 ADK A2,4 NEXT EXTENT SUK A4,1 ABL(N) RTN05 END OF SECTOR? LDR* A3,A2 ST A3,FRELEN ADK A2,4 LDR* A6,A2 ST A6,FREBAS CWR A3,A7 FRELEN AND TFILEN RB(L) NXT01 LDR A4,A6 RTN A14 * EJECT COPVOL CRVOL * * ******* * *PRINT* * ******* * * INPUT A5=TEXT START ADDRESS * A6=TEXT LENGTH * PRINT EQU * LDKL A8,PRECB ST A5,PRECB+2 ST A6,PRECB+4 LDK A7,/86 LKM DATA 1 RTN A14 * EJECT COPVOL CRVOL * * ******** * *READ11* * ******** * * READ FROM DISC1 TO BUF1 * BUF1 WILL CONTAIN QBUF1L SECTORS * INPUT A9=SECTOR NO * READ11 EQU * ST A10,FILSEC LDK A5,QBUF1L * RD02 LDKL A8,ECB1 LDK A7,/91 ST A9,ECB1+10 SECTOR NO LKM DATA 1 LDK A7,/80 LD A8,ECB1+8 TM A7,A8 RB(NZ) RD02 NEW VOLUME LOADED? LDKL A7,/8201 TM A7,A8 ABL(NZ) RTNIE ERROR MESSAGE LDK A7,/E TM A7,A8 RF(Z) RD10 * EJECT COPVOL CRVOL * * ERROR IN SECTOR * ST A9,SECTOR ST A5,COUNTR LD A8,NOSEC NUMBER OF SECTORS IN FILE SU A8,TFILEN NO OF COPIED SECTORS ADKL A8,QBUF1L SUR A8,A5 CORRECTION FOR LAST COPIED SECTORS LD A5,FILBLF STR A2,A14 SAVE A2-A4 ON STACK SUKL A14,6 ST A3,2,A14 ST A4,4,A14 * * COMPUTE RECORD NUMBERS OF DESTROYED RECORDS * LDK A1,0 LDR A2,A8 GET NO OF COPIED SECTORS * RD05 SUK A5,1 RF(Z) RD06 FINISHED? LDK A6,0 LDR A7,A8 CF A14,ADDMOD DOUBLE PRECISION ADDITION RB RD05 * EJECT COPVOL * * RD06 ADK A2,1 RECORD NUMBER OF FIRST DESTROYED RECORD RF(O) RD30 JUMP IF OVERFLOW * RD07 LDR A7,A1 SAVE A1-A2 LDR A9,A2 LDKL A3,RECFR TO ADR LDK A4,7 LENGTH CF A14,BINACR LDR A1,A7 RESTORE A1-A2 LDR A2,A9 LDK A6,0 LD A7,FILBLF GET BLOCK FACTOR SUK A7,1 CF A14,ADDMOD RECORD NUMBER OF LAST DESTROYED RECORD LDKL A3,RECTO TO ADR LDK A4,7 LENGTH CF A14,BINACR * EJECT COPVOL CRVOL * * LD A2,SECTOR LDKL A3,SEC LDK A4,5 CF A14,BIDACR LD A4,4,A14 RESTORE A2-A4 LD A3,2,A14 ADKL A14,6 LDR* A2,A14 LDKL A5,READER LDK A6,QREADE CF A14,PRINT LDKL A5,SECER LDK A6,QSECER CF A14,PRINT LDKL A5,FILER LDK A6,QFILNM CF A14,PRINT LDKL A5,DESREC LDK A6,QDESR CF A14,PRINT * EJECT COPVOL CRVOL * * 00 IN STATUS BITS IN BUF1 * LDR* A1,A12 GET BUF1 ADDRESS ADK A1,2 SKIP CYLINDER ID LD A7,FILRCL FILE RECORD LENGTH LD A5,FILBLF FILE BLOCKING FACTOR ADR A1,A7 LDK A6,0 * RD08 SCR A6,A1 00 TO STATUS BIT ADR A1,A7 SUK A5,1 RB(P) RD08 LD A5,COUNTR LD A9,SECTOR * RD10 ADKL A9,1 SUKL A10,1 RF(Z) RD15 SUK A5,1 RF(Z) RD20 LDKL A7,410 ADS A7,ECB1+2 ABL RD02 * RD15 SU A9,FILSEC RESET A9 RF RD21 * EJECT COPVOL COPVOL * * RD20 SUKL A9,QBUF1L RESET A9 RD21 EQU * LD A10,FILSEC * RD22 LDR* A7,A12 GET BUF1 ADDRESS ST A7,ECB1+2 RESET ECB1 ST A7,ECB4+2 RESET ECB4 RTN A14 * RD30 ADK A1,1 OVERFLOW CORRECTION ANKL A2,/7FFF RB RD07 * EJECT COPVOL CRVOL * * ******* * *READ1* * ******* * * READ1 EQU * LDKL A8,ECB1 * READ12 EQU * LDK A7,/91 READ WITH WAIT ST A9,10,A8 SECTOR NO LKM DATA 1 LD A7,8,A8 GET RETURN CODE ANK A7,/80 RB(NZ) READ12 NEW VOLUME LOADED? LD A8,8,A8 GET RETURN CODE ANKL A8,/820F ABL(NZ) RTNIE ERROR MESSAGE RTN A14 * * * ******* * *READ2* * ******* * * READ2 EQU * LDKL A8,ECB2 RB READ12 * EJECT COPVOL CRVOL * ******** *SEFFE1* ******** * * SEEK FIRST FILE ENTRY ON DISC1 WITH STATUS BIT=<A7> * READ SECTOR TO BUF1 *INPUT A7=BIT TO COMPARE STATUS WITH * A8=BLOCKFACTOR IN VTOC * A9=FIRST SECTOR TO READ * A10=LAST SECTOR TO READ *OUTPUT A6 CONTAIN STATUS BIT * A1 POINT TO STATUS BIT * SEFFE1 EQU * * SE005 LDR A1,A7 SAVE A7 LDR A3,A8 SAVE A8 CF A14,READ1 LDR A7,A1 SAVED VALUE TO A7 LDR A8,A3 SAVED VALUE TO A8 LDR* A1,A12 GET BUF1 ADDRESS ADK A1,QVRECL+2 * SE010 LDK A6,0 LCR A6,A1 STATUS BIT TO A6 CWR A6,A7 RF(NE) SE020 NOT EQUAL. NEXT SUKL A8,1 RTN A14 * EJECT COPVOL CRVOL * * SE020 ADK A1,QVRECL+1 SUKL A8,1 RB(P) SE010 NEXT RECORD * * END OF SECTOR. NEXT SECTOR * ADKL A9,1 LDR A8,A3 RESET RECORD COUNTER CWR A9,A10 RB(NG) SE005 READ NEXT SECTOR * * END OF VTOC. NO MORE SECTORS LEFT * RTN A14 * EJECT COPVOL CRVOL * * ******** * *SEFFE2* * ******** * * SEEK FIRST FILE ENTRY DISC2 WITH STATUS=<A7> *INPUT SAME AS SEFFE1 * SEFFE2 EQU * * FE005 LDR A2,A7 SAVE A7 LDR A3,A8 SAVE A8 CF A14,READ2 LDR A7,A2 SAVED VALUE TO A7 LDR A8,A3 SAVED VALUE TO A8 LD A2,QBUF2,A12 A2 POINTER IN BUF2 ADK A2,2 SKIP CYLINDER ID * FE010 ADK A2,QVRECL POINT TO STATUS LDK A6,0 LCR A6,A2 STATUS BIT TO A6 CWR A6,A7 RF(E) FE020 * STATUS NOT EQU ADK A2,1 SUKL A8,1 RB(P) FE010 NEXT RECORD * NEXT VTOC SECTOR ADKL A9,1 LDR A8,A3 RESET RECORD COUNTER CWR A9,A10 END OF SECTORS? RB(NG) FE005 NO * FE020 RTN A14 * EJECT COPVOL CRVOL * * ******** * *WRITE1* * ******** * * WRITE BUF1 ON DISC 1 *INPUT A9=SEC TO WRITE * WRITE1 EQU * LDKL A8,ECB1 LDK A7,/95 ST A9,ECB1+10 LKM DATA 1 * TEST OF RETURN CODE LD A7,ECB1+8 RETURN CODE TO A7 ANK A7,/80 RB(NZ) WRITE1 NEW VOLUME LOADED? LD A8,ECB1+8 RETURN CODE TO A8 ANKL A8,/820F ABL(NZ) RTNIE ERROR MESSAGE RTN A14 * EJECT COPVOL CRVOL * * ******** * *WRITE2* * ******** * * WRITE2 EQU * LDKL A8,ECB2 * WRIT22 EQU * LDK A7,/95 ST A9,10,A8 SECTOR NO LKM DATA 1 * TEST OF RETURN CODE LD A7,8,A8 GET RETURN CODE ANK A7,/80 RB(NZ) WRIT22 NEW VOLUME LOADED? LD A8,8,A8 GET RETURN CODE ANKL A8,/820F ABL(NZ) RTNOE1 ERROR MESSAGE RTN A14 * * * ******** * *WRITE4* * ******** * * WRITE4 EQU * LDKL A8,ECB4 RB WRIT22 * EJECT COPVOL CRVOL * * ******** * *VTOSEC* * ******** * * TAKE SECTOR AND RECORD FROM TABLE SECREC. READ SECTOR TO BUF1. *OUTPUT A1 POINT TO FIRST WORD IN RECORD *INPUT A7=OFFSET IN SECREC * A6=RECORD LENGTH * VTOSEC EQU * SUR A9,A9 LC A9,SECREC,A7 SECTOR NO TO A9 ST A9,VTSEC1 LDK A5,0 ADK A7,1 LC A5,SECREC,A7 REC TO A5 ST A5,REC1 CF A14,READ1 READ SECTOR TO BUF1 LDR* A1,A12 GET BUF1 ADDRESS ADK A1,2 SKIP CYLINDER ID * L1 SUK A5,1 RF(Z) L2 RECORD FOUND ADK A1,QVRECL+1 RB L1 NEXT * L2 RTN A14 * EJECT COPVOL CRVOL * * ****** * *LOCK* * ****** * * LOCK INPUT,OUTPUT FLEXIBLE DISCS * LOCK EQU * CM ENTRY2 FLEX. DISC FLAG FOR BACK-UP VERSION LDK A3,0 INPUT/OUTPUT DISC FLAG LDKL A8,ECB1 * LOC:10 LDR* A1,A8 FC CCK A1,FDFC RF(L) LOC:50 NOT FLEX DISC LDK A7,/80 TEST STATUS LKM DATA 1 LD A2,8,A8 RET. CODE RF(N) LOC:20 NOT LOCKED LDR A1,A2 SAVE RET. CODE LDR A3,A3 RF(NZ) LOC:15 OUTPUT DISC? ANK A2,/21 RF(NZ) LOC:80 FATAL ERROR RF LOC:20 * LOC:15 ANK A2,1 RF(NZ) LOC:80 NOT OPERABLE? ANKL A1,/0200 ABL(NZ) RTN08 FD WRITE PROTECTED * EJECT COPVOL COPVOL * * LOC:20 LDK A7,/A6 LOCK LKM DATA 1 LD A2,8,A8 RET. CODE ANK A2,/7 RF(NZ) LOC:80 FATAL ERROR IM ENTRY2 INDICATE FLEXIBLE DISC * LOC:50 LDR A3,A3 RF(NZ) LOC:EN OUTPUT DISC LDKL A8,ECB2 OUTPUT DISC ECB LDK A3,1 INDICATE OUTPUT DISC RB LOC:10 * LOC:80 LDR A8,A2 LDR A3,A3 ABL(Z) RTNIE INPUT I/O ERROR ABL RTNOE OUTPUT I/O ERROR * LOC:EN EQU * RTN A14 * EJECT COPVOL * * ******** *PHREAD* ******** * * PHREAD EQU * ROUTINE FOR PHYSICAL READ LDK A1,QBUF1L BUFFER SIZE IN NO OF SECTORS LDR* A4,A12 GET BUFFER ADDRESS ST A4,ECB1+2 LDK A7,/91 PHYSICAL READ LDKL A8,ECB1 GET ECB1 ADDRESS * PHR:05 CW A11,ECB1+10 CHECK SECTOR NUMBER RF(E) PHR:15 COPYING FINISHED? IM ECB1+10 NO, INCREMENT SECTOR NUMBER LKM DATA 1 LD A2,ECB1+8 GET RETURN CODE RF(Z) PHR:10 READ OK? CF A14,PHR:20 NO, CHECK OUT WHY LDKL A8,ECB1 GET ECB1 ADDRESS * PHR:10 ADS A10,ECB1+2 GET NEXT BUFFER ADDRESS SUK A1,1 RB(P) PHR:05 BUFFER NOT FILLED UP? RTN A14 BUFFER FILLED UP, RETURN * EJECT COPVOL * * PHR:15 NGR A1,A1 INDICATE <= 8 SECTORS LEFT TO COPY RTN A14 * PHR:20 EQU * WRITE ON OPERATORS PRINT DEVICE LC A3,1,A8 GET FILE CODE CC A3,ECB2+1 CHECK IF INPUT/OUTPUT RF(E) PHR:25 OUTPUT READ ERROR? LDK A3,0 NO, INDICATE ERROR ON INPUT * PHR:25 ANKL A2,/808B RB(NZ) LOC:80 RETURN IF SERIOUS ERROR LD A2,8,A8 GET RETURN CODE ANKL A2,/204 RF(Z) PHR:35 ONLY RETRY BIT SET? LD A2,10,A8 GET SECTOR NUMBER LDR A3,A3 NO RF(Z) PHR:40 INPUT ERROR? LDKL A5,OUTERR LDK A6,QUOTER * PHR:30 CF A14,PRINT PRINT 'INPUT' OR 'OUTPUT DISC' LDKL A5,READER LDK A6,QREADE CF A14,PRINT PRINT 'READ ERROR' ST A1,SAVEA1 SAVE A1 * EJECT COPVOL * * LDKL A3,SEC LDK A4,5 CF A14,BIDACR CONVERT SECTOR NO TO DECIMAL LDKL A5,SECER LDK A6,QSECER CF A14,PRINT PRINT 'SECTOR NO: XXXXX' LDKL A1,0 RESTORE A1 SAVEA1 EQU *-2 SAVE AREA A1 LDK A7,/91 PHYSICAL READ * PHR:35 RTN A14 * PHR:40 LDKL A5,INERR LDK A6,QINERR RB PHR:30 * EJECT COPVOL * * ******** *BASWRT* ******** * * BASWRT EQU * ROUTINE FOR WRITE LDK A1,QBUF1L BUFFER SIZE IN NO OF SECTORS * BAS:05 LDKL A8,ECB2 GET ECB ADDRESS LDR A9,A1 SAVE A1 LDK A7,/85 BASIC WRITE LDR* A4,A12 GET BUFFER ADDRESS ST A4,ECB2+2 * BAS:10 IM ECB2+10 INCREMENT SECTOR NUMBER LKM DATA 1 ADS A10,ECB2+2 GET NEXT BUFFER ADDRESS SUK A1,1 RB(P) BAS:10 MORE SECTORS IN BUFFER? * LDR A1,A9 RESTORE A1 NGR A9,A9 ADS A9,ECB2+10 LDR* A4,A12 GET BUFFER ADDRESS ST A4,ECB2+2 LDK A7,/91 PHYSICAL READ * EJECT COPVOL * * BAS:20 IM ECB2+10 INCREMENT SECTOR NUMBER LKM DATA 1 LD A2,ECB2+8 GET RETURN CODE RF(Z) BAS:30 OK? CF A14,PHR:20 NO, CHECK OUT WHY LDKL A8,ECB2 GET ECB2 ADDRESS * BAS:30 SUK A1,1 RB(P) BAS:20 MORE SECTORS IN BUFFER TO CHECK? RTN A14 NO, RETURN * EJECT COPVOL * * ***** *IBM* ***** * * IBM EQU * OUTPUT DISC IS IBM FORMATTED LDK A1,128 ST A1,4,A8 SET IBM SECTOR LENGTH LDKL A9,6 SECTOR 7 CF A14,READ2 READ VOLUME NAME LDKL A8,ECB2 GET ECB2 ADDRESS LDK A1,2 ADS A1,2,A8 UPDATE BUFFER ADDRESS FOR VOLNAM CF A14,VOLNAM ASK OPERATOR IF VOLUME OK ADK A1,0 SET CR ABL(N) RTN99 ABORT IF WRONG VOLUME LDKL A8,ECB2 GET ECB2 ADDRESS LD A2,QBUF2,A12 GET BUF2 ADDRESS ST A2,2,A8 RESET BUFFER ADDRESS LDKL A1,/8081 WRITE 'TOSS' IN VOLUME LABEL ST A1,34,A2 LDKL A1,/8283 ST A1,36,A2 CM 10,A8 SECTOR 0 LDK A7,/95 WRITE LKM DATA 1 * EJECT COPVOL * * LDK A7,/B8 UNLOAD LKM DATA 1 LDK A7,/A6 LOCK LKM DATA 1 LDKL A1,410 ST A1,4,A8 SET TOSS SECTOR LENGTH RF BACK00 * EJECT COPVOL * * ******** *BACKUP* ******** * * COPVOL, WITH NO REORGANIZING OF DISC * BACKUP EQU * * * CHECK OUTPUT VOLUME * LDKL A8,ECB2 GET ECB2 ADDRESS LDK A7,/80 TEST STATUS LKM DATA 1 LD A2,8,A8 RET. CODE ANK A2,/20 RB(NZ) IBM OUTPUT DISC IBM FORMATTED? CF A14,READ2 READ OUTPUT VOLUME LABEL LDKL A8,ECB2 GET ECB2 ADDRESS CF A14,VOLNAM ASK OPERATOR IF VOLUME OK ADK A1,0 SET CR ABL(N) RTN99 ABORT IF WRONG VOLUME * BACK00 EQU * LDKL A8,ECB1 GET ECB1 ADDRESS LD A1,2,A8 GET BUFFER ADDRESS ADK A1,2 SKIP CYLINDER ID LDR A3,A12 GET PBLK ADDRESS ADK A3,14 POINT TO NEW OUTPUT VOLUME NAME LDK A5,3 * EJECT COPVOL * * BACK05 LDR* A4,A3 GET NEW VOLUME NAME STR A4,A1 STORE NEW VOLUME NAME ADK A1,2 ADK A3,2 SUK A5,1 RB(P) BACK05 * LD A11,ENTRY2 GET FLEXIBLE DISC FLAG RF(Z) BACK07 NOT FLEXIBLE DISC? LDKL A11,499 NO OF SECTORS ON FLEXIBLE DISC RF BACK12 * BACK07 EQU * ADK A1,20 LDR* A11,A1 GET NO OF CYLINDERS LDK A2,31 * BACK10 ADR* A11,A1 COMPUTE NO OF SECTORS TO COPY SUK A2,1 RB(P) BACK10 SUKL A11,1 LAST SECTOR NUMBER TO COPY * BACK12 EQU * LDKL A10,410 SECTOR SIZE IN BYTES LDK A1,QBUF1L BUFFER SIZE IN NO OF SECTORS LDK A7,/91 PHYSICAL READ LDKL A8,ECB1 GET ECB1 ADDRESS CF A14,PHR:10 READ 7 SECTORS SUK A1,1 ST A1,ECB2+10 * EJECT COPVOL * * BACK15 CF A14,BASWRT WRITE 8 SECTORS CF A14,PHREAD READ 8 SECTORS LDR A1,A1 RB(Z) BACK15 REMAINING NO OF SECTORS >= 8? ADK A1,QBUF1L NO RF(Z) BACK20 NO MORE SECTORS TO COPY? CF A14,BAS:05 YES, WRITE REMAINING SECTORS * BACK20 LDKL A8,ECB2 GET ECB2 ADDRESS LDK A7,/80 TEST STATUS LKM DATA 1 LD A8,ECB2+8 GET RETURN CODE ABL(NZ) RTNOE ERROR? ABL RTN99 * EJECT COPVOL CRVOL * * ***************** * * ENTRY COPVOL * * ***************** * COPVOL EQU * ST A14,STACKP SAVE STACKPOINTER VALUE LDR* A1,A12 GET BUF1 ADDRESS ST A1,ECB1+2 BUF1 ADR TO ECB1 ST A1,ECB4+2 BUF1 ADR TO ECB4 LD A2,QBUF2,A12 GET BUF2 ADDRESS ST A2,ECB2+2 BUF2 ADR TO ECB2 ST A2,ECB3+2 BUF2 ADR TO ECB3 LC A2,QPRFC,A12 LOAD PRINTER FC SC A2,PRECB+1 LC A2,QFCIN,A12 INPUT FC SC A2,ECB1+1 FC3 TO ECB1+1 SC A2,ECB3+1 FC3 TP ECB3+1 LC A2,QFCOUT,A12 OUTPUT FC SC A2,ECB2+1 FC4 TO ECB2+1 SC A2,ECB4+1 FC4 TO ECB4+1 CM EXTNO CF A14,LOCK LOCK IF FLEXIBLE DISCS * EJECT COPVOL CRVOL * * ****** * *TEST* * ****** * * COMPARE NAMES IN PBLK AND ON DISC * * READ VL1 TO BUF1 * SUR A9,A9 SECTOR 0 CF A14,READ1 LDR* A1,A12 GET BUF1 ADDRESS ADK A1,2 SKIP CYLINDER ID LDR A3,A12 A3 POINTER IN PBLK ADK A3,8 LDK A5,3 A5 COUNTER * TST010 LDR* A4,A3 CWR* A4,A1 COMPARE ONE WORD ABL(NE) RTN02 ERROR MESSAGE ADK A3,2 ADK A1,2 SUK A5,1 END? RB(P) TST010 NEXT * LC A5,QREORG,A12 GET REORGANIZE PARAMETER ANK A5,/FF ABL(Z) BACKUP NO REORGANIZE? * EJECT COPVOL CRVOL * * READ VL2 TO BUF2 * CF A14,READ2 LD A2,QBUF2,A12 LOAD BUF3 ADDRESS ADK A2,2 SKIP CYLINDER ID LDK A5,3 COUNTER * TST020 LDR* A4,A3 CWR* A4,A2 COMPARE ONE WORD ABL(NE) RTN02 ERROR MESSAGE ADK A3,2 A3 POINTER IN PBLK ADK A2,2 SUK A5,1 RB(P) TST020 NEXT * EJECT COPVOL CRVOL * * ADK A2,26 POINT TO 'TO' ON DISC2 LDR* A4,A2 'TO' TO A4 CWK A4,'TO' ABL(NE) RTN06 FAULTY DISC FORMAT *DISC1 LDR* A3,A1 VTOC LENGTH ST A3,VLEN1 ADK A1,4 LDR* A3,A1 VTOC BASE ST A3,VBAS1 *DISC2 SUK A2,26 LDR* A3,A2 VTOC LENGTH ST A3,VLEN2 ADK A2,4 LDR* A4,A2 VTOC BASE ST A4,VBAS2 * ADR A3,A4 VTOC LENGTH+BASE SUK A3,1 LDR A10,A3 LAST VTOC2 SECTOR IN A10 ST A10,VLAST2 LAST SECTOR IN VTOC2 EJECT COPVOL CRVOL * CHECK STATUS BIT IN VTOC2 ADK A4,1 SECTOR AFTER FREE SPACE ADM TAB LDR A9,A4 LDKL A8,QVTBLF GET VTOC BLOCK FACTOR LDK A7,/FF CF A14,SEFFE2 * ANY ENTRIES WITH /FF IN STATUS BIT? CWR A6,A7 RF(NE) TEST40 END OF VTOC2 * TEST FILE ORG. BADSPOT? TST30 SUK A2,14 POINT TO BADSPOT LDK A7,/42 'B' CCR A7,A2 ABL(NE) RTN03 NOT A BADSPOT. DISC NOT EMPTY * BADSPOT. END OF VTOC2 * WRITE FF IN ALL STATUS BITS WITH CC TEST40 CF A14,FFINCC * EJECT COPVOL CRVOL * * ****** * *VTOC* * ****** * * TAKE FIRST NOT COPIED FILE ENTRY IN VTOC1. SEEK THROUGH * REST OF VTOC FOR ANY MORE FILE EXTENTS. FILE RECORD IS * STORED WITH VTOC SECTOR IN SECREC * VTOC01 LD A9,VBAS2 VTOC2 BASE TO A9 CF A14,READ2 READ VTOC2 BASE TO BUF2 LD A2,QBUF2,A12 LOAD BUF2 ADDRESS LDK A1,0 ADK A2,4 LDK A4,50 COUNTER OF ENTRIES * VTOC05 LDR* A3,A2 FREE LENGTH TO A3 ADR A1,A3 ADK A2,8 TAKE NEXT FREE LENGTH SUK A4,1 RB(P) VTOC05 NEXT ENTRY ST A1,TOTFRE TOTAL FREE LENGTH ON DISC2 * EJECT COPVOL * * VTOC10 LD A10,VLEN1 VTOC1 LENGTH CM EXTNO LD A4,VBAS1 VTOC1 BASE LDK A5,QVRECL VTOC RECORD LENGTH SUK A4,1 ADR A10,A4 ST A10,VLAST1 LAST VTOC SECTOR DISC1 ADK A4,2 FIRST FILE ENTRY SECTOR * SEEK FIRST FILE ENTRY WITH /FF IN STATUS BIT LDKL A8,QVTBLF VTOC BLOCK FACTOR LDR A9,A4 LDK A7,/FF STATUS WORD CF A14,SEFFE1 CWR A6,A7 /FF IN STATUS BIT? ABL(NE) RTN00 NO MORE SECTORS TO COPY * CHECK FILE ORG SUK A1,14 LDK A6,0 LDK A7,/42 'B' TO A7 LCR A6,A1 FILE ORG TO A6 CWR A6,A7 'B' ? RF(NE) VTOC20 NOT A BADSPOT * BADSPOT. BADSPOT STORED LAST IN VTOC. END OF VTOC ABL RTN00 NO MORE FILES TO COPY * EJECT COPVOL * TAKE BLOCKING FACTOR AND RECORD LENGTH VTOC20 ST A6,FILORG SUK A1,1 LDK A6,0 LCR A6,A1 ST A6,FILBLF SUK A1,2 LDR* A6,A1 ST A6,FILRCL SUK A1,10 LDR* A3,A1 ST A3,TFILEN SUK A1,4 POINT TO FILE EXTENT NO LDR* A3,A1 ST A3,EXTSTP+2 SC A9,SECREC+2 SECTOR NO TO SECREC LDK A6,QVTBLF SUR A6,A8 RECORD NO TO A6 SC A6,SECREC+3 SUK A1,4 LDK A2,6 * VTOC22 LDR* A3,A1 ST A3,FILNAM,A2 SUK A1,2 SUK A2,2 RB(NN) VTOC22 ADK A1,2 START OF RECORD * TAKE NEXT FILE ENTRY AND COMPARE NAMES LDR A11,A8 A11 COUNTER OF RECORDS LDR A2,A1 A2 POINTER IN VTOC EJECT COPVOL * * VTOC23 ADK A2,QVRECL REC LENGTH * VTOC24 ADK A2,1 A2 POINT TO NEXT RECORD VTOC25 EQU * SUKL A11,1 COUNTER OF RECORDS RF(N) VTOC30 READ NEXT SECTOR ADK A2,QVRECL STATUS BIT * CHECK STATUS LDK A7,/FF CCR A7,A2 RB(NE) VTOC24 NEXT * CHECK FILE ORG SUK A2,14 LDK A6,0 LDK A7,/42 'B' LCR A6,A2 FILE ORG TO A6 CWR A6,A7 RF(E) VTOC30 BADSPOT. NO MORE SECTOR IN VTOC1 * COMPARE FILE ORG LD A3,FILORG CWR A6,A3 RF(E) VTOC27 ADK A2,14 RB VTOC24 * COMPARE NAMES VTOC27 LDK A6,4 COUNTER SUK A2,27 * EJECT COPVOL * * VTOC28 LDR* A3,A1 FILE NAME1 CWR* A3,A2 FILE NAME2 RF(NE) VTOC50 NAMES NOT EQUAL ADK A1,2 ADK A2,2 SUK A6,1 RB(P) VTOC28 RF STR010 NAMES EQUAL. STORE SECTOR RECORD * NEXT SECTOR VTOC30 ADKL A9,1 NEXT SECTOR LD A10,VLAST1 LAST VTOC1 SECTOR CWR A9,A10 LAST SECTOR? RF(G) COPY10 LAST SECTOR * READ NEXT SECTOR TO BUF2 LDR A3,A8 SAVE A8 * VTOC40 LDKL A8,ECB3 LDK A7,/91 ST A9,ECB3+10 SECTOR NO LKM DATA 1 LD A8,ECB3+8 RETURN CODE TO A8 ANKL A8,/80 RB(NZ) VTOC40 NEW VOLUME LOADED? LD A8,ECB3+8 RETURN CODE TO A8 ANKL A8,/820F ABL(NZ) RTNOE1 ERROR MESSAGE LDR A8,A3 SAVED VALUE TO A8 LDKL A11,QVTBLF LD A2,QBUF2,A12 ADK A2,2 RB VTOC25 * NAMES NOT EQUAL. RESET POINTERS TO RECORD START VTOC50 LDK A3,4 CWR A3,A6 RF(E) VTOC52 * VTOC51 SUK A1,2 SUK A2,2 SUK A3,1 CWR A6,A3 RB(NE) VTOC51 * VTOC52 RB VTOC23 TAKE NEXT RECORD * EJECT COPVOL CRVOL * * ******* * *STORE* * ******* * * STORE FILE EXTENT NO IN TABLE EXTSTP,VTOC SEC NO AND REC NO * IN TABLE SECREC * TABLES ARE SORTED IN ASCENDING EXTENT NO ORDES * STR010 LDK A3,QVTBLF SUR A3,A11 LD A10,EXTNO LDK A7,2 ADS A7,EXTNO ADK A2,6 LDR* A7,A2 GET FILE EXTENT LENGTH ADS A7,TFILEN SUK A2,4 POINT TO FILE EXTENT NO LDR* A7,A2 LDR A10,A10 RF(Z) STR040 TWO EXTENTS * LDK A6,2 CWR A6,A10 RF(E) STR030 THREE EXTENTS * FOUR EXTENTS LD A6,EXTSTP+6 CWR A6,A7 RF(G) STR020 A6>A7 EJECT COPVOL CRVOL * * A7>A6 STORE A7 LAST IN TABLE ST A7,EXTSTP+8 SC A9,SECREC+8 SC A3,SECREC+9 RF STR050 FOUR EXTENTS * A6>A7 STR020 ST A6,EXTSTP+8 LD A10,SECREC+6 ST A10,SECREC+8 MOVE A10 ONE WORD * THREE EXTENTS LEFT STR030 LD A6,EXTSTP+4 CWR A6,A7 RF(G) STR035 A6>A7 * A7>A6 ST A7,EXTSTP+6 SC A9,SECREC+6 SC A3,SECREC+7 RF STR050 * A6>A7 STR035 ST A6,EXTSTP+6 LD A10,SECREC+4 ST A10,SECREC+6 EJECT COPVOL CRVOL * * TWO EXTENTS LEFT STR040 LD A6,EXTSTP+2 CWR A6,A7 RF(G) STR045 A6>A7 * A7>A6 ST A7,EXTSTP+4 SC A9,SECREC+4 SC A3,SECREC+5 RF STR050 * A6>A7 STR045 ST A7,EXTSTP+2 ST A6,EXTSTP+4 LD A10,SECREC+2 ST A10,SECREC+4 SC A9,SECREC+2 SC A3,SECREC+3 * STR050 SUK A2,10 LD A3,EXTNO LDK A7,6 CWR A3,A7 RF(E) COPY10 SUK A1,8 RESET A1 ABL VTOC23 NEXT * EJECT COPVOL CRVOL * * ****** * *COPY* * ****** * * COPY THE FILE EXTENTS IN SECREC FROM DISC1 TO DISC2 * COPY10 CM FEN2 FILE EXTENT ON DISC2 CM FEXL2 FILE EXTENT LENGTH DISC2 LD A6,TFILEN ST A6,NOSEC NO OF SECTORS IN FILE LD A7,TOTFRE CWR A6,A7 CHECK FOR DISC OVERFLOW ABL(G) RTN05 ERROR MESSAGE SUR A7,A6 ST A7,TOTFRE REMAINING FREE LENGTH ON DISC2 LDK A7,2 ST A7,SECNO OFFSET IN SECREC TABLE CF A14,VTOSEC A1 POINT TO RECORD NO * FILE ENTRY:TAKE FILE EXTENT LENGTH, BASE AND LAST RECORD NO COPY12 ADK A1,14 LDR* A10,A1 FILE EXTENT LENGTH TO A10 ST A10,FILLEN ADK A1,4 LDR* A11,A1 ST A11,FILBAS FILE EXTENT BASE ADK A1,2 LDR* A3,A1 LAST RECORD NO PART 1 ST A3,LSTRN1 ADK A1,2 LDR* A3,A1 LAST RECORD NO PART 2 ST A3,LSTRN1+2 * READ FILE BASE TO BUF1 COPY14 LDR A9,A11 * COPY15 CF A14,READ11 * COPY16 LD A9,VBAS2 CM NOCC CF A14,READ2 CF A14,FSAT2 FREE EXTENT IN VTOC2 ST A3,FRELEN FREE EXTENT LENGTH ADK A2,4 LDR* A4,A2 ST A4,FREBAS FREE EXTENT BASE * COPY17 LD A7,FEN2 SUK A7,2 RF(N) COPY18 LD A7,TFILEN CWR A3,A7 RF(NL) COPY18 CF A14,NXTFRE * COPY18 ST A4,FEXB2 LDK A5,QBUF1L * WRITE BUF1 ON FREBAS DISC2 COPY20 LDR A9,A4 CF A14,WRITE4 * IM FEXL2 ONE MORE SECTOR IN FILE EXTENT DISC2 * LD A7,TFILEN TOTAL NO OF SECTORS TO COPY SUK A7,1 RF(E) COPY25 LAST SECTOR TO COPY ABL(N) VTOC10 END OF SECTORS TO COPY ST A7,TFILEN * EJECT COPVOL * * * UPDATE FREE EXTENT LENGTH AND BASE ADK A4,1 FREBAS+1 SUK A3,1 FRELEN-1 RF(Z) COPY40 * UPDATE FILBAS AND FILLEN ADKL A11,1 NEXT SECTOR TO COPY SUKL A10,1 REST OF LENGTH RF(Z) COPY30 * READ NEXT SECTOR TO COPY TO BUF1 SUK A5,1 RF(Z) COPY22 LDKL A7,410 ADS A7,ECB4+2 UPDATE BUFFER ADDRESSES RB COPY20 * EJECT COPVOL CRVOL * * COPY22 LDR* A7,A12 GET BUF1 ADDRESS ST A7,ECB4+2 RESET ECB4 * COPY23 EQU * LDR A9,A11 CF A14,READ11 LDK A5,QBUF1L RB COPY20 * COPY25 ST A7,TFILEN ADKL A11,1 FILBAS+1 SUKL A10,1 FILLEN-1 ADK A4,1 FREBAS+1 SUK A3,1 FRELEN-1 RF(Z) COP401 * UPDATE BUF2 STR A4,A2 RF COPY41 * CC IN STATUS BIT COPY30 LD A7,SECNO CF A14,VTOSEC ADK A1,QVRECL LDK A7,/CC SCR A7,A1 CF A14,WRITE1 * EJECT COPVOL CRVOL * * TAKE NEXT SECTOR NO LD A7,SECNO ADK A7,2 ST A7,SECNO CF A14,VTOSEC * TAKE FILE BASE AND FILE LENGTH ADK A1,14 LDR* A10,A1 FILE LENGTH TO A10 ADK A1,4 LDR* A11,A1 FILE EXTENT BASE ST A10,FILLEN ST A11,FILBAS * READ FILBAS TO BUF1 RB COPY23 * UPDATE BUF2 COPY40 ADKL A11,1 SUKL A10,1 IM NOCC NOT CC IN A1 FILE * COP401 STR A3,A2 FREBAS=0 * COPY41 SUK A2,4 STR A3,A2 EJECT COPVOL CRVOL * WRITE BUF2 ON VTOC2 LD A9,VBAS2 CF A14,WRITE2 * COPY42 IM FEN2 LD A7,TFILEN RF(Z) COPY45 CF A14,FSAT2 NEXT FREE EXTENT ST A3,FRELEN ADK A2,4 LDR* A4,A2 ST A4,FREBAS LD A7,FEN2 SUK A7,2 RF(N) COPY45 LD A7,TFILEN * COPY44 CWR A3,A7 COMPARE FRELEN AND TOT SECTOR NO RF(NL) COPY45 CF A14,NXTFRE * COPY45 LD A7,SECNO * TAKE VTOC SECREC (OLD) AND READ SECTOR TO BUF1 CF A14,VTOSEC EJECT COPVOL CRVOL * TAKE FIRST FREE FILE ENTRY ON DISC2 TO BUF2 LD A9,VBAS2 LD A4,VLEN2 ADR A4,A9 ADKL A9,1 CF A14,READ2 * COPY50 CF A14,FRENT2 * UPDATE FILE ENTRY ON DISC2 LDK A4,5 CF A14,MOVE12 LD A5,FEN2 FREE EXTENT NO ON DISC 2 SUK A5,1 LD A3,FEXL2 FREE EXTENT LENGTH LD A4,FEXB2 FREE EXTENT BASE LD A7,LSTRN1 LAST RECORD NO CF A14,MOVERE LDK A4,9 CF A14,MOVE12 SUK A1,1 LD A7,NOCC RF(NZ) COPY55 NOT CC TO STATUS BIT LDK A3,/CC CHECK STATUS BIT SCR A3,A1 'CC' TO STATUS BIT FILE1 EJECT COPVOL CRVOL COPY55 CF A14,WRITE2 LD A9,VTSEC1 CF A14,WRITE1 CM FEXL2 FILE EXTENT 2 LENGTH =0 * UPDATE FILBAS AND FILLEN LDR A10,A10 RF(Z) COPY60 * READ FILBAS TO BUF1 COPY58 LDR A9,A11 CF A14,READ11 LDK A5,QBUF1L LD A4,FREBAS LD A3,FRELEN ABL COPY16 * COPY60 LDK A7,2 ADS A7,SECNO * COPY64 LD A7,TFILEN RF(Z) COPY90 LD A7,SECNO CF A14,VTOSEC EJECT COPVOL CRVOL * TAKE FILE BASE AND FILE LENGTH ADK A1,14 LDR* A10,A1 FILE LENGTH TO A10 ADK A1,4 LDR* A11,A1 FILE EXTENT BASE ST A10,FILLEN ST A11,FILBAS RB COPY58 * END OF SECTORS TO COPY COPY90 ABL VTOC10 * END OF FILES TO COPY RTN00 CF A14,FFINCC WRITE FF IN ALL STATUS BITS WITH CC LDK A1,0 NO ERROR MESSAGE RF RTN99 * EJECT COPVOL CRVOL * * **************** * *ERROR MESSAGES* * **************** * RTNIE LDK A1,1 INPUT I/O ERROR RF RTNX * RTNOE LDK A1,2 OUTPUT I/O ERROR * RTNX LDR A2,A8 RF RTN100 * RTNOE1 LDR A2,A8 CF A14,FFINCC LDK A1,2 OUTPUT I/O ERROR RF RTN100 * RTN02 LDK A1,3 VOLUME NAME UNKNOWN RF RTN99 * RTN03 LDK A1,4 OUTPUT DISC NOT EMPTY RF RTN99 * RTN04 CF A14,FFINCC LDK A1,5 VTOC OVERFLOW RF RTN99 * RTN05 CF A14,FFINCC LDK A1,6 DISC OVERFLOW RF RTN99 * RTN06 LDK A1,7 FAULTY DISC FORMAT RF RTN99 * EJECT COPVOL CRVOL * * RTN08 LDK A1,8 FLEXIBLE DISC WRITE PROTECTED * RTN99 LDK A2,0 * RTN100 LD A14,STACKP RESTORE STACKPOINTER * * UNLOCK IF FLEX DISC * LDKL A8,ECB3 LDR* A6,A8 CCK A6,FDFC RF(L) RTN110 NOT FD LDK A7,/B8 UNLOCK LKM DATA 1 * RTN110 LDKL A8,ECB2 ECB OUTPUT DISC LDR* A6,A8 FC CCK A6,FDFC RF(L) RTN120 NOT FD LDK A7,/B8 LKM DATA 1 * RTN120 EQU * RTN A14 * END
0x0000…0036 (0, 0, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT COPVOL PRR 9.1 79-04-06 870136640910 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…007a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0000, t01=0x004c}
0x007a…0084 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007e}
0x0084…00b6 Head {h00=0x002e, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS * «, t00=0x0000, t01=0x0088}
0x00b6…00c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ba}
0x00c0…00e4 Head {h00=0x0020, h01=0x0050, text=»* *****TOSS UTILITIES*****«, t00=0x0000, t01=0x00c4}
0x00e4…00ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
0x00ee…0120 Head {h00=0x002e, h01=0x0050, text=»* COPVOL = COPY VOLUME * «, t00=0x0000, t01=0x00f2}
0x0120…012a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0124}
0x012a…0134 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012e}
0x0134…013e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0138}
0x013e…0148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0142}
0x0148…0152 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014c}
0x0152…015c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0156}
0x015c…018e Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0000, t01=0x0160}
0x018e…0198 (1, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a2…01b4 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0001, t01=0x0018}
0x01b4…01c6 Head {h00=0x000e, h01=0x0050, text=»* *COPVOL*«, t00=0x0001, t01=0x002a}
0x01c6…01d8 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0001, t01=0x003c}
0x01d8…01e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004e}
0x01e2…01ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0058}
0x01ec…0228 Head {h00=0x0038, h01=0x0050, text=»* COPVOL WILL COPY A VOLUME TO A DISC FORMATTED WITH«, t00=0x0001, t01=0x0062}
0x0228…024c Head {h00=0x0020, h01=0x0050, text=»* THE CREATE VOLUME UTILITY.«, t00=0x0001, t01=0x009e}
0x024c…0286 Head {h00=0x0036, h01=0x0050, text=»* OLD DISC CALLED DISC1 AND NEW DISC CALLED DISC2 «, t00=0x0001, t01=0x00c2}
0x0286…0290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fc}
0x0290…029a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0106}
0x029a…02ba Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0001, t01=0x0110}
0x02ba…02c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0130}
0x02c4…02ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x02ce…02e2 Head {h00=0x0010, h01=0x0050, text=»* ********* «, t00=0x0001, t01=0x0144}
0x02e2…02f6 Head {h00=0x0010, h01=0x0050, text=»* *ENTRIES* «, t00=0x0001, t01=0x0158}
0x02f6…030a Head {h00=0x0010, h01=0x0050, text=»* ********* «, t00=0x0001, t01=0x016c}
0x030a…0314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0180}
0x0314…031e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018a}
0x031e…0334 (2, 0, 400) Head {h00=0x0012, h01=0x0050, text=» ENTRY COPVOL «, t00=0x0002, t01=0x0004}
0x0334…033c Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x001a}
0x033c…0344 Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x0022}
0x0344…034c Head {h00=0x0004, h01=0x0050, t00=0x0002, t01=0x002a}
0x034c…0356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0032}
0x0356…0360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003c}
0x0360…0376 Head {h00=0x0012, h01=0x0050, text=»* *********** «, t00=0x0002, t01=0x0046}
0x0376…038c Head {h00=0x0012, h01=0x0050, text=»* *EXTERNALS* «, t00=0x0002, t01=0x005c}
0x038c…03a2 Head {h00=0x0012, h01=0x0050, text=»* *********** «, t00=0x0002, t01=0x0072}
0x03a2…03ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0088}
0x03ac…03b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0092}
0x03b6…03cc Head {h00=0x0012, h01=0x0050, text=» EXTRN BIDACR «, t00=0x0002, t01=0x009c}
0x03cc…03e2 Head {h00=0x0012, h01=0x0050, text=» EXTRN BINACR «, t00=0x0002, t01=0x00b2}
0x03e2…0412 Head {h00=0x002c, h01=0x0050, text=» EXTRN ADDMOD DOUBLE PRECISION ADDITION «, t00=0x0002, t01=0x00c8}
0x0412…0428 Head {h00=0x0012, h01=0x0050, text=» EXTRN VOLNAM «, t00=0x0002, t01=0x00f8}
0x0428…0448 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0002, t01=0x010e}
0x0448…0452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012e}
0x0452…045c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0138}
0x045c…0472 Head {h00=0x0012, h01=0x0050, text=»* *********** «, t00=0x0002, t01=0x0142}
0x0472…0488 Head {h00=0x0012, h01=0x0050, text=»* *KONSTANTS* «, t00=0x0002, t01=0x0158}
0x0488…049e Head {h00=0x0012, h01=0x0050, text=»* *********** «, t00=0x0002, t01=0x016e}
0x049e…04a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0184}
0x04a8…04b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x018e}
0x04b2…04da Head {h00=0x0024, h01=0x0050, text=»QVRECL EQU 41 VTOC RECORD LENGTH«, t00=0x0003, t01=0x0008}
0x04da…0502 Head {h00=0x0024, h01=0x0050, text=»QVTBLF EQU 9 VTOC BLOCK FACTOR «, t00=0x0003, t01=0x0030}
0x0502…052e Head {h00=0x0028, h01=0x0050, text=»QBUF1L EQU 4 BUF1 LENGTH IN SECTORS «, t00=0x0003, t01=0x0058}
0x052e…054a Head {h00=0x0018, h01=0x0050, text=»QBUF2 EQU 2 BUFFER 2«, t00=0x0003, t01=0x0084}
0x054a…0568 Head {h00=0x001a, h01=0x0050, text=»QPRFC EQU 5 PRINTER FC«, t00=0x0003, t01=0x00a0}
0x0568…0584 Head {h00=0x0018, h01=0x0050, text=»QFCIN EQU 6 INPUT FC«, t00=0x0003, t01=0x00be}
0x0584…05a2 Head {h00=0x001a, h01=0x0050, text=»QFCOUT EQU 7 OUTPUT FC«, t00=0x0003, t01=0x00da}
0x05a2…05c2 Head {h00=0x001c, h01=0x0050, text=»QVOL1 EQU 8 INPUT VOLUME«, t00=0x0003, t01=0x00f8}
0x05c2…05e4 Head {h00=0x001e, h01=0x0050, text=»QVOL2 EQU 14 OUTPUT VOLUME«, t00=0x0003, t01=0x0118}
0x05e4…0614 Head {h00=0x002c, h01=0x0050, text=»QREORG EQU 21 DISC REORGANIZE PARAMETER «, t00=0x0003, t01=0x013a}
0x0614…061e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016a}
0x061e…0648 Head {h00=0x0026, h01=0x0050, text=»FDFC EQU /F800 FIRST FLEX DISC FC «, t00=0x0003, t01=0x0174}
0x0648…0652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x000e}
0x0652…0672 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0004, t01=0x0018}
0x0672…067c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0038}
0x067c…068c Head {h00=0x000c, h01=0x0050, text=»* ******«, t00=0x0004, t01=0x0042}
0x068c…069c Head {h00=0x000c, h01=0x0050, text=»* *DATA*«, t00=0x0004, t01=0x0052}
0x069c…06ac Head {h00=0x000c, h01=0x0050, text=»* ******«, t00=0x0004, t01=0x0062}
0x06ac…06b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0072}
0x06b6…06cc Head {h00=0x0012, h01=0x0050, text=»BADNO2 DATA 0 «, t00=0x0004, t01=0x007c}
0x06cc…06f4 Head {h00=0x0024, h01=0x0050, text=»COUNTR DATA 0 COUNTER IN READ11 «, t00=0x0004, t01=0x0092}
0x06f4…070a Head {h00=0x0012, h01=0x0050, text=»ENTRY2 DATA 0 «, t00=0x0004, t01=0x00ba}
0x070a…071e Head {h00=0x0010, h01=0x0050, text=»EXTNO DATA 0«, t00=0x0004, t01=0x00d0}
0x071e…0746 Head {h00=0x0024, h01=0x0050, text=»FEN2 DATA 0 FILE EXTENT NO DISC2«, t00=0x0004, t01=0x00e4}
0x0746…076c Head {h00=0x0022, h01=0x0050, text=»FILBAS DATA 0 FILE EXTENT BASE«, t00=0x0004, t01=0x010c}
0x076c…0796 Head {h00=0x0026, h01=0x0050, text=»FILBLF DATA 0 FILE BLOCKING FACTOR«, t00=0x0004, t01=0x0132}
0x0796…07be Head {h00=0x0024, h01=0x0050, text=»FILLEN DATA 0 FILE EXTENT LENGTH«, t00=0x0004, t01=0x015c}
0x07be…07e6 Head {h00=0x0024, h01=0x0050, text=»FILRCL DATA 0 FILE RECORD LENGTH«, t00=0x0004, t01=0x0184}
0x07e6…0804 Head {h00=0x001a, h01=0x0050, text=»FILORG DATA 0 FILE ORG«, t00=0x0005, t01=0x001c}
0x0804…0830 Head {h00=0x0028, h01=0x0050, text=»FILSEC DATA 0 FILE LENGTH IN SECTORS«, t00=0x0005, t01=0x003a}
0x0830…085a Head {h00=0x0026, h01=0x0050, text=»FEXB2 DATA 0 NEW FILE EXTENT BASE «, t00=0x0005, t01=0x0066}
0x085a…0886 Head {h00=0x0028, h01=0x0050, text=»FEXL2 DATA 0 NEW FILE EXTENT LENGTH «, t00=0x0005, t01=0x0090}
0x0886…089c Head {h00=0x0012, h01=0x0050, text=»FILEXT DATA 0 «, t00=0x0005, t01=0x00bc}
0x089c…08c2 Head {h00=0x0022, h01=0x0050, text=»FREBAS DATA 0 FREE EXTENT BASE«, t00=0x0005, t01=0x00d2}
0x08c2…08ea Head {h00=0x0024, h01=0x0050, text=»FRELEN DATA 0 FREE EXTENT LENGTH«, t00=0x0005, t01=0x00f8}
0x08ea…0914 Head {h00=0x0026, h01=0x0050, text=»LSTRN1 DATA 0,0 LAST RECORD NUMBER«, t00=0x0005, t01=0x0120}
0x0914…0928 Head {h00=0x0010, h01=0x0050, text=»NOCC DATA 0 «, t00=0x0005, t01=0x014a}
0x0928…0958 Head {h00=0x002c, h01=0x0050, text=»NOSEC DATA 0 NUMBERS OF SECTORS IN FILE «, t00=0x0005, t01=0x015e}
0x0958…0984 Head {h00=0x0028, h01=0x0050, text=»REC1 DATA 0 RECORD NO IN VTOC SECTOR«, t00=0x0005, t01=0x018e}
0x0984…09b0 Head {h00=0x0028, h01=0x0050, text=»SECNO DATA 0 OFFSET IN SECREC TABLE «, t00=0x0006, t01=0x002a}
0x09b0…09d0 Head {h00=0x001c, h01=0x0050, text=»SECTOR DATA 0 SECTOR NO «, t00=0x0006, t01=0x0056}
0x09d0…09fe Head {h00=0x002a, h01=0x0050, text=»STACKP DATA 0 STACK POINTER A14 VALUE «, t00=0x0006, t01=0x0076}
0x09fe…0a3c Head {h00=0x003a, h01=0x0050, text=»TFILEN DATA 0 TOTAL NUMBER OF SECTORS IN FILE TO COPY «, t00=0x0006, t01=0x00a4}
0x0a3c…0a6c Head {h00=0x002c, h01=0x0050, text=»TOTFRE DATA 0 TOTAL FREE LENGTH ON DISC «, t00=0x0006, t01=0x00e2}
0x0a6c…0a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0112}
0x0a76…0a8e Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x0006, t01=0x011c}
0x0a8e…0a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0134}
0x0a98…0aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x013e}
0x0aa2…0ac2 Head {h00=0x001c, h01=0x0050, text=»VBAS1 DATA 0 VTOC1 BASE «, t00=0x0006, t01=0x0148}
0x0ac2…0ae2 Head {h00=0x001c, h01=0x0050, text=»VBAS2 DATA 0 VTOC2 BASE «, t00=0x0006, t01=0x0168}
0x0ae2…0b04 Head {h00=0x001e, h01=0x0050, text=»VLEN1 DATA 0 VTOC1 LENGTH «, t00=0x0006, t01=0x0188}
0x0b04…0b26 Head {h00=0x001e, h01=0x0050, text=»VLEN2 DATA 0 VTOC2 LENGTH «, t00=0x0007, t01=0x001a}
0x0b26…0b52 Head {h00=0x0028, h01=0x0050, text=»VTSEC1 DATA 0 VTOC1 SECTOR WITH REC1«, t00=0x0007, t01=0x003c}
0x0b52…0b7c Head {h00=0x0026, h01=0x0050, text=»VLAST1 DATA 0 LAST SECTOR IN VTOC1«, t00=0x0007, t01=0x0068}
0x0b7c…0ba6 Head {h00=0x0026, h01=0x0050, text=»VLAST2 DATA 0 LAST SECTOR IN VTOC2«, t00=0x0007, t01=0x0092}
0x0ba6…0bb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00bc}
0x0bb0…0bc6 Head {h00=0x0012, h01=0x0050, text=»ECB1 DATA 0,0 «, t00=0x0007, t01=0x00c6}
0x0bc6…0bee Head {h00=0x0024, h01=0x0050, text=» DATA 410 ECB FOR OLD DISC BUF1 «, t00=0x0007, t01=0x00dc}
0x0bee…0c02 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0007, t01=0x0104}
0x0c02…0c0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0118}
0x0c0c…0c38 Head {h00=0x0028, h01=0x0050, text=»ECB2 DATA 0,0 ECB FOR NEW DISC BUF2 «, t00=0x0007, t01=0x0122}
0x0c38…0c4a Head {h00=0x000e, h01=0x0050, text=» DATA 410 «, t00=0x0007, t01=0x014e}
0x0c4a…0c5e Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0007, t01=0x0160}
0x0c5e…0c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0174}
0x0c68…0c94 Head {h00=0x0028, h01=0x0050, text=»ECB3 DATA 0,0 ECB FOR OLD DISC1 BUF2«, t00=0x0007, t01=0x017e}
0x0c94…0ca6 Head {h00=0x000e, h01=0x0050, text=» DATA 410 «, t00=0x0008, t01=0x001a}
0x0ca6…0cba Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0008, t01=0x002c}
0x0cba…0cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0040}
0x0cc4…0cf0 Head {h00=0x0028, h01=0x0050, text=»ECB4 DATA 0,0 ECB FOR NEW DISC2 BUF1«, t00=0x0008, t01=0x004a}
0x0cf0…0d02 Head {h00=0x000e, h01=0x0050, text=» DATA 410 «, t00=0x0008, t01=0x0076}
0x0d02…0d16 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0008, t01=0x0088}
0x0d16…0d30 Head {h00=0x0016, h01=0x0050, text=»EXTSTP DATA EXTSTP«, t00=0x0008, t01=0x009c}
0x0d30…0d46 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0008, t01=0x00b6}
0x0d46…0d60 Head {h00=0x0016, h01=0x0050, text=»SECREC DATA SECREC«, t00=0x0008, t01=0x00cc}
0x0d60…0d76 Head {h00=0x0012, h01=0x0050, text=» DATA 0,0,0,0 «, t00=0x0008, t01=0x00e6}
0x0d76…0d96 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0008, t01=0x00fc}
0x0d96…0da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011c}
0x0da0…0daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0126}
0x0daa…0dcc Head {h00=0x001e, h01=0x0050, text=»READER DATA ' 0READ ERROR'«, t00=0x0008, t01=0x0130}
0x0dcc…0de8 Head {h00=0x0018, h01=0x0050, text=»QREADE EQU *-READER «, t00=0x0008, t01=0x0152}
0x0de8…0df8 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0008, t01=0x016e}
0x0df8…0e1a Head {h00=0x001e, h01=0x0050, text=»SECER DATA ' SECTOR NO: '«, t00=0x0008, t01=0x017e}
0x0e1a…0e34 Head {h00=0x0016, h01=0x0050, text=»SEC DATA ' ' «, t00=0x0009, t01=0x0010}
0x0e34…0e4e Head {h00=0x0016, h01=0x0050, text=»QSECER EQU *-SECER«, t00=0x0009, t01=0x002a}
0x0e4e…0e5e Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0009, t01=0x0044}
0x0e5e…0e80 Head {h00=0x001e, h01=0x0050, text=»FILER DATA ' FILE NAME: '«, t00=0x0009, t01=0x0054}
0x0e80…0e9c Head {h00=0x0018, h01=0x0050, text=»FILNAM DATA 0,0,0,0 «, t00=0x0009, t01=0x0076}
0x0e9c…0eb6 Head {h00=0x0016, h01=0x0050, text=»QFILNM EQU *-FILER«, t00=0x0009, t01=0x0092}
0x0eb6…0ec6 Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0009, t01=0x00ac}
0x0ec6…0ede Head {h00=0x0014, h01=0x0050, text=»DESREC DATA ' '«, t00=0x0009, t01=0x00bc}
0x0ede…0f00 Head {h00=0x001e, h01=0x0050, text=» DATA 'DESTROYED RECORDS:'«, t00=0x0009, t01=0x00d4}
0x0f00…0f1e Head {h00=0x001a, h01=0x0050, text=»RECFR DATA ' ' «, t00=0x0009, t01=0x00f6}
0x0f1e…0f32 Head {h00=0x0010, h01=0x0050, text=» DATA ' TO '«, t00=0x0009, t01=0x0114}
0x0f32…0f50 Head {h00=0x001a, h01=0x0050, text=»RECTO DATA ' ' «, t00=0x0009, t01=0x0128}
0x0f50…0f6a Head {h00=0x0016, h01=0x0050, text=»QDESR EQU *-DESREC«, t00=0x0009, t01=0x0146}
0x0f6a…0f7a Head {h00=0x000c, h01=0x0050, text=» DATA 0 «, t00=0x0009, t01=0x0160}
0x0f7a…0f92 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x0009, t01=0x0170}
0x0f92…0f9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0188}
0x0f9c…0fa6 (10, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0fa6…0fbe Head {h00=0x0014, h01=0x0050, text=»INERR DATA /2030«, t00=0x000a, t01=0x000e}
0x0fbe…0fd8 Head {h00=0x0016, h01=0x0050, text=» DATA 'INPUT DISC'«, t00=0x000a, t01=0x0026}
0x0fd8…0ff2 Head {h00=0x0016, h01=0x0050, text=»QINERR EQU *-INERR«, t00=0x000a, t01=0x0040}
0x0ff2…0ffc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x005a}
0x0ffc…1016 Head {h00=0x0016, h01=0x0050, text=»OUTERR DATA /2030 «, t00=0x000a, t01=0x0064}
0x1016…1032 Head {h00=0x0018, h01=0x0050, text=» DATA 'OUTPUT DISC' «, t00=0x000a, t01=0x007e}
0x1032…104e Head {h00=0x0018, h01=0x0050, text=»QUOTER EQU *-OUTERR «, t00=0x000a, t01=0x009a}
0x104e…1058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b6}
0x1058…1076 Head {h00=0x001a, h01=0x0050, text=»PRECB DATA 0,0,0,0,0,0«, t00=0x000a, t01=0x00c0}
0x1076…1080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00de}
0x1080…10a0 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x000a, t01=0x00e8}
0x10a0…10aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0108}
0x10aa…10bc Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x000a, t01=0x0112}
0x10bc…10ce Head {h00=0x000e, h01=0x0050, text=»* *FFINCC*«, t00=0x000a, t01=0x0124}
0x10ce…10e0 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x000a, t01=0x0136}
0x10e0…10ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0148}
0x10ea…1124 Head {h00=0x0036, h01=0x0050, text=»* WRITE 'FF' IN ALL STATUS BITS IN VTOC1 WITH 'CC'«, t00=0x000a, t01=0x0152}
0x1124…112e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x018c}
0x112e…1142 Head {h00=0x0010, h01=0x0050, text=»FFINCC EQU *«, t00=0x000b, t01=0x0008}
0x1142…114c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x001c}
0x114c…1172 Head {h00=0x0022, h01=0x0050, text=»END010 LD A4,VBAS1 VTOC1 BASE «, t00=0x000b, t01=0x0026}
0x1172…1194 Head {h00=0x001e, h01=0x0050, text=» LD A10,VLEN1 VTOC1 LENGTH«, t00=0x000b, t01=0x004c}
0x1194…11a6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000b, t01=0x006e}
0x11a6…11ba Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x000b, t01=0x0080}
0x11ba…11cc Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x000b, t01=0x0094}
0x11cc…11fa Head {h00=0x002a, h01=0x0050, text=» LDKL A8,QVTBLF GET VTOC BLOCK FACTOR «, t00=0x000b, t01=0x00a6}
0x11fa…120c Head {h00=0x000e, h01=0x0050, text=» LDR A9,A4«, t00=0x000b, t01=0x00d4}
0x120c…1216 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e6}
0x1216…1230 Head {h00=0x0016, h01=0x0050, text=»END015 LDK A7,/CC «, t00=0x000b, t01=0x00f0}
0x1230…1246 Head {h00=0x0012, h01=0x0050, text=» CF A14,SEFFE1«, t00=0x000b, t01=0x010a}
0x1246…1258 Head {h00=0x000e, h01=0x0050, text=» CWR A6,A7«, t00=0x000b, t01=0x0120}
0x1258…126e Head {h00=0x0012, h01=0x0050, text=» RF(NE) COMRTN«, t00=0x000b, t01=0x0132}
0x126e…1282 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/FF «, t00=0x000b, t01=0x0148}
0x1282…1294 Head {h00=0x000e, h01=0x0050, text=» SCR A7,A1«, t00=0x000b, t01=0x015c}
0x1294…12aa Head {h00=0x0012, h01=0x0050, text=» CF A14,WRITE1«, t00=0x000b, t01=0x016e}
0x12aa…12bc Head {h00=0x000e, h01=0x0050, text=» RB END010«, t00=0x000b, t01=0x0184}
0x12bc…12c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0008}
0x12c6…12e6 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x000c, t01=0x0012}
0x12e6…12f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0032}
0x12f0…1302 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x000c, t01=0x003c}
0x1302…1314 Head {h00=0x000e, h01=0x0050, text=»* *FRENT2*«, t00=0x000c, t01=0x004e}
0x1314…1326 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x000c, t01=0x0060}
0x1326…1330 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0072}
0x1330…1366 Head {h00=0x0032, h01=0x0050, text=»* TAKE FIRST FREE FILE ENTRY ON DISC2 TO BUF2 «, t00=0x000c, t01=0x007c}
0x1366…1384 Head {h00=0x001a, h01=0x0050, text=»* INPUT A9 = VBAS2+1«, t00=0x000c, t01=0x00b2}
0x1384…13b4 Head {h00=0x002c, h01=0x0050, text=»* A4 = FIRST SECTOR AFTER VTOC2 «, t00=0x000c, t01=0x00d0}
0x13b4…13e6 Head {h00=0x002e, h01=0x0050, text=»* OUTPUT A2 POINT TO FIRST WORD IN RECORD«, t00=0x000c, t01=0x0100}
0x13e6…13f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0132}
0x13f0…1404 Head {h00=0x0010, h01=0x0050, text=»FRENT2 EQU *«, t00=0x000c, t01=0x013c}
0x1404…1416 Head {h00=0x000e, h01=0x0050, text=»CP1 EQU * «, t00=0x000c, t01=0x0150}
0x1416…1440 Head {h00=0x0026, h01=0x0050, text=» LD A2,QBUF2,A12 LOAD BUF2 ADDRESS«, t00=0x000c, t01=0x0162}
0x1440…1454 Head {h00=0x0010, h01=0x0050, text=» LDKL A3,400«, t00=0x000c, t01=0x018c}
0x1454…1476 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP CYLINDER ID«, t00=0x000d, t01=0x0010}
0x1476…1490 Head {h00=0x0016, h01=0x0050, text=»CP2 ADK A2,QVRECL «, t00=0x000d, t01=0x0032}
0x1490…14a6 Head {h00=0x0012, h01=0x0050, text=» SUK A3,QVRECL«, t00=0x000d, t01=0x004c}
0x14a6…14b8 Head {h00=0x000e, h01=0x0050, text=» LCR A7,A2«, t00=0x000d, t01=0x0062}
0x14b8…14cc Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x000d, t01=0x0074}
0x14cc…14de Head {h00=0x000e, h01=0x0050, text=» RF(Z) CP4«, t00=0x000d, t01=0x0088}
0x14de…14fa Head {h00=0x0018, h01=0x0050, text=» ADK A2,1 NEXT ENTRY«, t00=0x000d, t01=0x009a}
0x14fa…150c Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x000d, t01=0x00b6}
0x150c…152e Head {h00=0x001e, h01=0x0050, text=» RB(P) CP2 END OF SECTOR? «, t00=0x000d, t01=0x00c8}
0x152e…1550 Head {h00=0x001e, h01=0x0050, text=»CP3 ADKL A9,1 NEXT SECTOR «, t00=0x000d, t01=0x00ea}
0x1550…1574 Head {h00=0x0020, h01=0x0050, text=» CWR A9,A4 LAST VTOC SECTOR «, t00=0x000d, t01=0x010c}
0x1574…1598 Head {h00=0x0020, h01=0x0050, text=» ABL(E) RTN04 ERROR MESSAGE «, t00=0x000d, t01=0x0130}
0x1598…15cc Head {h00=0x0030, h01=0x0050, text=» CF A14,READ2 READ NEXT VTOC SECTOR TO BUF2 «, t00=0x000d, t01=0x0154}
0x15cc…15dc Head {h00=0x000c, h01=0x0050, text=» RB CP1 «, t00=0x000d, t01=0x0188}
0x15dc…15f6 Head {h00=0x0016, h01=0x0050, text=»CP4 SUK A2,QVRECL «, t00=0x000e, t01=0x0008}
0x15f6…1600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0022}
0x1600…1616 Head {h00=0x0012, h01=0x0050, text=»COMRTN RTN A14«, t00=0x000e, t01=0x002c}
0x1616…1620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0042}
0x1620…1640 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x000e, t01=0x004c}
0x1640…164a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006c}
0x164a…165c Head {h00=0x000e, h01=0x0050, text=»* ******* «, t00=0x000e, t01=0x0076}
0x165c…166e Head {h00=0x000e, h01=0x0050, text=»* *FSAT2* «, t00=0x000e, t01=0x0088}
0x166e…1680 Head {h00=0x000e, h01=0x0050, text=»* ******* «, t00=0x000e, t01=0x009a}
0x1680…168a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ac}
0x168a…16b8 Head {h00=0x002a, h01=0x0050, text=»* TAKE FIRST FREE EXTENT IN VTOC2 BUF2«, t00=0x000e, t01=0x00b6}
0x16b8…16ee Head {h00=0x0032, h01=0x0050, text=»* OUTPUT A2 POINT TO FIRST FREE EXTENT LENGTH «, t00=0x000e, t01=0x00e4}
0x16ee…1710 Head {h00=0x001e, h01=0x0050, text=»* A3 CONTAIN FRELEN«, t00=0x000e, t01=0x011a}
0x1710…171a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013c}
0x171a…172e Head {h00=0x0010, h01=0x0050, text=»FSAT2 EQU * «, t00=0x000e, t01=0x0146}
0x172e…175a Head {h00=0x0028, h01=0x0050, text=» LD A2,QBUF2,A12 A2 POINTER IN BUF2 «, t00=0x000e, t01=0x015a}
0x175a…1780 Head {h00=0x0022, h01=0x0050, text=» LDK A4,50 50 ENTRIES IN FSAT «, t00=0x000e, t01=0x0186}
0x1780…17a8 Head {h00=0x0024, h01=0x0050, text=» ADK A2,4 POINT TO EXTENT LENGTH«, t00=0x000f, t01=0x001c}
0x17a8…17b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0044}
0x17b2…17da Head {h00=0x0024, h01=0x0050, text=»F1 LDR* A3,A2 FREE EXTENT LENGTH«, t00=0x000f, t01=0x004e}
0x17da…1804 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) COMRTN FIRST FREE LENGTH? «, t00=0x000f, t01=0x0076}
0x1804…1822 Head {h00=0x001a, h01=0x0050, text=» ADK A2,8 NEXT LENGTH «, t00=0x000f, t01=0x00a0}
0x1822…1834 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000f, t01=0x00be}
0x1834…1854 Head {h00=0x001c, h01=0x0050, text=» RB(P) F1 END OF SECTOR?«, t00=0x000f, t01=0x00d0}
0x1854…1874 Head {h00=0x001c, h01=0x0050, text=» ABL RTN05 DISC OVERFLOW«, t00=0x000f, t01=0x00f0}
0x1874…187e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0110}
0x187e…189e Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x000f, t01=0x011a}
0x189e…18a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x013a}
0x18a8…18ba Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x000f, t01=0x0144}
0x18ba…18cc Head {h00=0x000e, h01=0x0050, text=»* *MOVE12*«, t00=0x000f, t01=0x0156}
0x18cc…18de Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x000f, t01=0x0168}
0x18de…18e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017a}
0x18e8…1908 Head {h00=0x001c, h01=0x0050, text=»* MOVE FROM BUF1 TO BUF2«, t00=0x000f, t01=0x0184}
0x1908…193e Head {h00=0x0032, h01=0x0050, text=»*INPUT A1 POINT TO FIRST WORD IN BUF1 TO MOVE «, t00=0x0010, t01=0x0014}
0x193e…1958 Head {h00=0x0016, h01=0x0050, text=»* A2 POINT IN BUF2«, t00=0x0010, t01=0x004a}
0x1958…1974 Head {h00=0x0018, h01=0x0050, text=»* A4 LENGTH IN WORDS«, t00=0x0010, t01=0x0064}
0x1974…197e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0080}
0x197e…1992 Head {h00=0x0010, h01=0x0050, text=»MOVE12 EQU *«, t00=0x0010, t01=0x008a}
0x1992…199c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009e}
0x199c…19b2 Head {h00=0x0012, h01=0x0050, text=»M1 LDR* A3,A1 «, t00=0x0010, t01=0x00a8}
0x19b2…19d2 Head {h00=0x001c, h01=0x0050, text=» STR A3,A2 STORE IN BUF2«, t00=0x0010, t01=0x00be}
0x19d2…19ee Head {h00=0x0018, h01=0x0050, text=» ADK A1,2 NEXT WORD «, t00=0x0010, t01=0x00de}
0x19ee…1a00 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0010, t01=0x00fa}
0x1a00…1a26 Head {h00=0x0022, h01=0x0050, text=» SUK A4,1 A4 COUNTER OF WORDS «, t00=0x0010, t01=0x010c}
0x1a26…1a38 Head {h00=0x000e, h01=0x0050, text=» RB(P) M1 «, t00=0x0010, t01=0x0132}
0x1a38…1a48 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x0144}
0x1a48…1a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0154}
0x1a52…1a72 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0010, t01=0x015e}
0x1a72…1a7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x017e}
0x1a7c…1a8e Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0010, t01=0x0188}
0x1a8e…1aa0 Head {h00=0x000e, h01=0x0050, text=»* *MOVERE*«, t00=0x0011, t01=0x000a}
0x1aa0…1ab2 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0011, t01=0x001c}
0x1ab2…1abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x002e}
0x1abc…1af6 Head {h00=0x0036, h01=0x0050, text=»* STORE NEW FILE EXTENT N0, LENGTH, BASE IN BUF2«, t00=0x0011, t01=0x0038}
0x1af6…1b24 Head {h00=0x002a, h01=0x0050, text=»* LAST RECORD NO FROM EXTENT 1 TO BUF2«, t00=0x0011, t01=0x0072}
0x1b24…1b56 Head {h00=0x002e, h01=0x0050, text=»*OUTPUT A1 RESP A2 POINT TO RECORD LENGTH«, t00=0x0011, t01=0x00a0}
0x1b56…1b84 Head {h00=0x002a, h01=0x0050, text=»*INPUT A1,A2 POINT TO FILE EXTENT NO«, t00=0x0011, t01=0x00d2}
0x1b84…1b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0100}
0x1b8e…1bb6 Head {h00=0x0024, h01=0x0050, text=»*INPUT A3=NEW FILE EXTENT LENGTH«, t00=0x0011, t01=0x010a}
0x1bb6…1bdc Head {h00=0x0022, h01=0x0050, text=»* A4= " " " BASE«, t00=0x0011, t01=0x0132}
0x1bdc…1c00 Head {h00=0x0020, h01=0x0050, text=»* A5= " " " NO«, t00=0x0011, t01=0x0158}
0x1c00…1c24 Head {h00=0x0020, h01=0x0050, text=»* A7=OLD LAST RECORD NO«, t00=0x0011, t01=0x017c}
0x1c24…1c2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0010}
0x1c2e…1c42 Head {h00=0x0010, h01=0x0050, text=»MOVERE EQU *«, t00=0x0012, t01=0x001a}
0x1c42…1c64 Head {h00=0x001e, h01=0x0050, text=» STR A5,A2 FILE EXTENT NO «, t00=0x0012, t01=0x002e}
0x1c64…1c76 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0012, t01=0x0050}
0x1c76…1c86 Head {h00=0x000c, h01=0x0050, text=» CMR A2 «, t00=0x0012, t01=0x0062}
0x1c86…1c98 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0012, t01=0x0072}
0x1c98…1cbe Head {h00=0x0022, h01=0x0050, text=» STR A3,A2 FILE EXTENT LENGTH «, t00=0x0012, t01=0x0084}
0x1cbe…1cd0 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0012, t01=0x00aa}
0x1cd0…1ce0 Head {h00=0x000c, h01=0x0050, text=» CMR A2 «, t00=0x0012, t01=0x00bc}
0x1ce0…1cf2 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0012, t01=0x00cc}
0x1cf2…1d16 Head {h00=0x0020, h01=0x0050, text=» STR A4,A2 FILE EXTENT BASE «, t00=0x0012, t01=0x00de}
0x1d16…1d28 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0012, t01=0x0102}
0x1d28…1d50 Head {h00=0x0024, h01=0x0050, text=» STR A7,A2 LAST RECORD NO PART 1«, t00=0x0012, t01=0x0114}
0x1d50…1d62 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0012, t01=0x013c}
0x1d62…1d90 Head {h00=0x002a, h01=0x0050, text=» LD A7,LSTRN1+2 LAST RECORD NO PART 2 «, t00=0x0012, t01=0x014e}
0x1d90…1da2 Head {h00=0x000e, h01=0x0050, text=» STR A7,A2«, t00=0x0012, t01=0x017c}
0x1da2…1db4 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0012, t01=0x018e}
0x1db4…1dc6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,14«, t00=0x0013, t01=0x0010}
0x1dc6…1dd6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0013, t01=0x0022}
0x1dd6…1de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0032}
0x1de0…1e00 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0013, t01=0x003c}
0x1e00…1e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x005c}
0x1e0a…1e1c Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0013, t01=0x0066}
0x1e1c…1e2e Head {h00=0x000e, h01=0x0050, text=»* *NXTFRE*«, t00=0x0013, t01=0x0078}
0x1e2e…1e40 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0013, t01=0x008a}
0x1e40…1e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009c}
0x1e4a…1e72 Head {h00=0x0024, h01=0x0050, text=»* TAKE NEXT FREE SECTOR ON VTOC2«, t00=0x0013, t01=0x00a6}
0x1e72…1e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ce}
0x1e7c…1e90 Head {h00=0x0010, h01=0x0050, text=»NXTFRE EQU *«, t00=0x0013, t01=0x00d8}
0x1e90…1ea2 Head {h00=0x000e, h01=0x0050, text=» LDK A4,50«, t00=0x0013, t01=0x00ec}
0x1ea2…1ec2 Head {h00=0x001c, h01=0x0050, text=»* TAKE NEXT FREE EXTENT «, t00=0x0013, t01=0x00fe}
0x1ec2…1ee4 Head {h00=0x001e, h01=0x0050, text=»NXT01 ADK A2,4 NEXT EXTENT«, t00=0x0013, t01=0x011e}
0x1ee4…1ef6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0013, t01=0x0140}
0x1ef6…1f1a Head {h00=0x0020, h01=0x0050, text=» ABL(N) RTN05 END OF SECTOR?«, t00=0x0013, t01=0x0152}
0x1f1a…1f2e Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A2 «, t00=0x0013, t01=0x0176}
0x1f2e…1f44 Head {h00=0x0012, h01=0x0050, text=» ST A3,FRELEN «, t00=0x0013, t01=0x018a}
0x1f44…1f56 Head {h00=0x000e, h01=0x0050, text=» ADK A2,4 «, t00=0x0014, t01=0x0010}
0x1f56…1f6a Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A2 «, t00=0x0014, t01=0x0022}
0x1f6a…1f80 Head {h00=0x0012, h01=0x0050, text=» ST A6,FREBAS «, t00=0x0014, t01=0x0036}
0x1f80…1fa4 Head {h00=0x0020, h01=0x0050, text=» CWR A3,A7 FRELEN AND TFILEN«, t00=0x0014, t01=0x004c}
0x1fa4…1fb8 Head {h00=0x0010, h01=0x0050, text=» RB(L) NXT01«, t00=0x0014, t01=0x0070}
0x1fb8…1fca Head {h00=0x000e, h01=0x0050, text=» LDR A4,A6«, t00=0x0014, t01=0x0084}
0x1fca…1fda Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x0096}
0x1fda…1fe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00a6}
0x1fe4…2004 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0014, t01=0x00b0}
0x2004…200e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00d0}
0x200e…2020 Head {h00=0x000e, h01=0x0050, text=»* ******* «, t00=0x0014, t01=0x00da}
0x2020…2032 Head {h00=0x000e, h01=0x0050, text=»* *PRINT* «, t00=0x0014, t01=0x00ec}
0x2032…2044 Head {h00=0x000e, h01=0x0050, text=»* ******* «, t00=0x0014, t01=0x00fe}
0x2044…204e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0110}
0x204e…2074 Head {h00=0x0022, h01=0x0050, text=»* INPUT A5=TEXT START ADDRESS «, t00=0x0014, t01=0x011a}
0x2074…2092 Head {h00=0x001a, h01=0x0050, text=»* A6=TEXT LENGTH«, t00=0x0014, t01=0x0140}
0x2092…209c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x015e}
0x209c…20b0 Head {h00=0x0010, h01=0x0050, text=»PRINT EQU * «, t00=0x0014, t01=0x0168}
0x20b0…20c6 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,PRECB«, t00=0x0014, t01=0x017c}
0x20c6…20dc (21, 0, 398) Head {h00=0x0012, h01=0x0050, text=» ST A5,PRECB+2«, t00=0x0015, t01=0x0004}
0x20dc…20f2 Head {h00=0x0012, h01=0x0050, text=» ST A6,PRECB+4«, t00=0x0015, t01=0x001a}
0x20f2…2106 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/86 «, t00=0x0015, t01=0x0030}
0x2106…2112 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0015, t01=0x0044}
0x2112…2122 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0015, t01=0x0050}
0x2122…2132 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0015, t01=0x0060}
0x2132…213c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0070}
0x213c…215c Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0015, t01=0x007a}
0x215c…2166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x009a}
0x2166…2178 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0015, t01=0x00a4}
0x2178…218a Head {h00=0x000e, h01=0x0050, text=»* *READ11*«, t00=0x0015, t01=0x00b6}
0x218a…219c Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0015, t01=0x00c8}
0x219c…21a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00da}
0x21a6…21c8 Head {h00=0x001e, h01=0x0050, text=»* READ FROM DISC1 TO BUF1 «, t00=0x0015, t01=0x00e4}
0x21c8…21f2 Head {h00=0x0026, h01=0x0050, text=»* BUF1 WILL CONTAIN QBUF1L SECTORS«, t00=0x0015, t01=0x0106}
0x21f2…220e Head {h00=0x0018, h01=0x0050, text=»* INPUT A9=SECTOR NO«, t00=0x0015, t01=0x0130}
0x220e…2218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014c}
0x2218…222c Head {h00=0x0010, h01=0x0050, text=»READ11 EQU *«, t00=0x0015, t01=0x0156}
0x222c…2242 Head {h00=0x0012, h01=0x0050, text=» ST A10,FILSEC«, t00=0x0015, t01=0x016a}
0x2242…2258 Head {h00=0x0012, h01=0x0050, text=» LDK A5,QBUF1L«, t00=0x0015, t01=0x0180}
0x2258…2262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0008}
0x2262…227c Head {h00=0x0016, h01=0x0050, text=»RD02 LDKL A8,ECB1 «, t00=0x0016, t01=0x0012}
0x227c…2290 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/91 «, t00=0x0016, t01=0x002c}
0x2290…22b0 Head {h00=0x001c, h01=0x0050, text=» ST A9,ECB1+10 SECTOR NO«, t00=0x0016, t01=0x0040}
0x22b0…22bc Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0016, t01=0x0060}
0x22bc…22cc Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0016, t01=0x006c}
0x22cc…22e0 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/80 «, t00=0x0016, t01=0x007c}
0x22e0…22f6 Head {h00=0x0012, h01=0x0050, text=» LD A8,ECB1+8 «, t00=0x0016, t01=0x0090}
0x22f6…2308 Head {h00=0x000e, h01=0x0050, text=» TM A7,A8 «, t00=0x0016, t01=0x00a6}
0x2308…2330 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RD02 NEW VOLUME LOADED? «, t00=0x0016, t01=0x00b8}
0x2330…2346 Head {h00=0x0012, h01=0x0050, text=» LDKL A7,/8201«, t00=0x0016, t01=0x00e0}
0x2346…2358 Head {h00=0x000e, h01=0x0050, text=» TM A7,A8 «, t00=0x0016, t01=0x00f6}
0x2358…237c Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) RTNIE ERROR MESSAGE«, t00=0x0016, t01=0x0108}
0x237c…238e Head {h00=0x000e, h01=0x0050, text=» LDK A7,/E«, t00=0x0016, t01=0x012c}
0x238e…23a0 Head {h00=0x000e, h01=0x0050, text=» TM A7,A8 «, t00=0x0016, t01=0x013e}
0x23a0…23b4 Head {h00=0x0010, h01=0x0050, text=» RF(Z) RD10 «, t00=0x0016, t01=0x0150}
0x23b4…23be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0164}
0x23be…23de Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0016, t01=0x016e}
0x23de…23e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x018e}
0x23e8…2402 Head {h00=0x0016, h01=0x0050, text=»* ERROR IN SECTOR «, t00=0x0017, t01=0x0008}
0x2402…240c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0022}
0x240c…2422 Head {h00=0x0012, h01=0x0050, text=» ST A9,SECTOR «, t00=0x0017, t01=0x002c}
0x2422…2438 Head {h00=0x0012, h01=0x0050, text=» ST A5,COUNTR «, t00=0x0017, t01=0x0042}
0x2438…2466 Head {h00=0x002a, h01=0x0050, text=» LD A8,NOSEC NUMBER OF SECTORS IN FILE«, t00=0x0017, t01=0x0058}
0x2466…2490 Head {h00=0x0026, h01=0x0050, text=» SU A8,TFILEN NO OF COPIED SECTORS«, t00=0x0017, t01=0x0086}
0x2490…24a8 Head {h00=0x0014, h01=0x0050, text=» ADKL A8,QBUF1L «, t00=0x0017, t01=0x00b0}
0x24a8…24de Head {h00=0x0032, h01=0x0050, text=» SUR A8,A5 CORRECTION FOR LAST COPIED SECTORS «, t00=0x0017, t01=0x00c8}
0x24de…24f4 Head {h00=0x0012, h01=0x0050, text=» LD A5,FILBLF «, t00=0x0017, t01=0x00fe}
0x24f4…251c Head {h00=0x0024, h01=0x0050, text=» STR A2,A14 SAVE A2-A4 ON STACK «, t00=0x0017, t01=0x0114}
0x251c…2530 Head {h00=0x0010, h01=0x0050, text=» SUKL A14,6 «, t00=0x0017, t01=0x013c}
0x2530…2544 Head {h00=0x0010, h01=0x0050, text=» ST A3,2,A14«, t00=0x0017, t01=0x0150}
0x2544…2558 Head {h00=0x0010, h01=0x0050, text=» ST A4,4,A14«, t00=0x0017, t01=0x0164}
0x2558…2562 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0178}
0x2562…2598 Head {h00=0x0032, h01=0x0050, text=»* COMPUTE RECORD NUMBERS OF DESTROYED RECORDS «, t00=0x0017, t01=0x0182}
0x2598…25a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0028}
0x25a2…25b4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0018, t01=0x0032}
0x25b4…25e0 Head {h00=0x0028, h01=0x0050, text=» LDR A2,A8 GET NO OF COPIED SECTORS «, t00=0x0018, t01=0x0044}
0x25e0…25ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0070}
0x25ea…2600 Head {h00=0x0012, h01=0x0050, text=»RD05 SUK A5,1 «, t00=0x0018, t01=0x007a}
0x2600…261e Head {h00=0x001a, h01=0x0050, text=» RF(Z) RD06 FINISHED? «, t00=0x0018, t01=0x0090}
0x261e…2630 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0018, t01=0x00ae}
0x2630…2642 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A8«, t00=0x0018, t01=0x00c0}
0x2642…2672 Head {h00=0x002c, h01=0x0050, text=» CF A14,ADDMOD DOUBLE PRECISION ADDITION«, t00=0x0018, t01=0x00d2}
0x2672…2682 Head {h00=0x000c, h01=0x0050, text=» RB RD05«, t00=0x0018, t01=0x0102}
0x2682…268c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0112}
0x268c…26a4 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x0018, t01=0x011c}
0x26a4…26ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0134}
0x26ae…26b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013e}
0x26b8…26f6 Head {h00=0x003a, h01=0x0050, text=»RD06 ADK A2,1 RECORD NUMBER OF FIRST DESTROYED RECORD «, t00=0x0018, t01=0x0148}
0x26f6…271a Head {h00=0x0020, h01=0x0050, text=» RF(O) RD30 JUMP IF OVERFLOW«, t00=0x0018, t01=0x0186}
0x271a…2724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001a}
0x2724…2746 Head {h00=0x001e, h01=0x0050, text=»RD07 LDR A7,A1 SAVE A1-A2 «, t00=0x0019, t01=0x0024}
0x2746…2758 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A2«, t00=0x0019, t01=0x0046}
0x2758…2776 Head {h00=0x001a, h01=0x0050, text=» LDKL A3,RECFR TO ADR «, t00=0x0019, t01=0x0058}
0x2776…278e Head {h00=0x0014, h01=0x0050, text=» LDK A4,7 LENGTH«, t00=0x0019, t01=0x0076}
0x278e…27a4 Head {h00=0x0012, h01=0x0050, text=» CF A14,BINACR«, t00=0x0019, t01=0x008e}
0x27a4…27c4 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A7 RESTORE A1-A2«, t00=0x0019, t01=0x00a4}
0x27c4…27d6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A9«, t00=0x0019, t01=0x00c4}
0x27d6…27e8 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0019, t01=0x00d6}
0x27e8…280e Head {h00=0x0022, h01=0x0050, text=» LD A7,FILBLF GET BLOCK FACTOR«, t00=0x0019, t01=0x00e8}
0x280e…2820 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0019, t01=0x010e}
0x2820…285e Head {h00=0x003a, h01=0x0050, text=» CF A14,ADDMOD RECORD NUMBER OF LAST DESTROYED RECORD «, t00=0x0019, t01=0x0120}
0x285e…287c Head {h00=0x001a, h01=0x0050, text=» LDKL A3,RECTO TO ADR «, t00=0x0019, t01=0x015e}
0x287c…2894 Head {h00=0x0014, h01=0x0050, text=» LDK A4,7 LENGTH«, t00=0x0019, t01=0x017c}
0x2894…28aa (26, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CF A14,BINACR«, t00=0x001a, t01=0x0004}
0x28aa…28b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x001a}
0x28b4…28d4 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x001a, t01=0x0024}
0x28d4…28de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0044}
0x28de…28e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x004e}
0x28e8…28fe Head {h00=0x0012, h01=0x0050, text=» LD A2,SECTOR «, t00=0x001a, t01=0x0058}
0x28fe…2912 Head {h00=0x0010, h01=0x0050, text=» LDKL A3,SEC«, t00=0x001a, t01=0x006e}
0x2912…2924 Head {h00=0x000e, h01=0x0050, text=» LDK A4,5 «, t00=0x001a, t01=0x0082}
0x2924…293a Head {h00=0x0012, h01=0x0050, text=» CF A14,BIDACR«, t00=0x001a, t01=0x0094}
0x293a…295c Head {h00=0x001e, h01=0x0050, text=» LD A4,4,A14 RESTORE A2-A4«, t00=0x001a, t01=0x00aa}
0x295c…2970 Head {h00=0x0010, h01=0x0050, text=» LD A3,2,A14«, t00=0x001a, t01=0x00cc}
0x2970…2984 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,6 «, t00=0x001a, t01=0x00e0}
0x2984…2998 Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A14«, t00=0x001a, t01=0x00f4}
0x2998…29b0 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,READER «, t00=0x001a, t01=0x0108}
0x29b0…29c6 Head {h00=0x0012, h01=0x0050, text=» LDK A6,QREADE«, t00=0x001a, t01=0x0120}
0x29c6…29dc Head {h00=0x0012, h01=0x0050, text=» CF A14,PRINT «, t00=0x001a, t01=0x0136}
0x29dc…29f2 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,SECER«, t00=0x001a, t01=0x014c}
0x29f2…2a08 Head {h00=0x0012, h01=0x0050, text=» LDK A6,QSECER«, t00=0x001a, t01=0x0162}
0x2a08…2a1e Head {h00=0x0012, h01=0x0050, text=» CF A14,PRINT «, t00=0x001a, t01=0x0178}
0x2a1e…2a34 Head {h00=0x0012, h01=0x0050, text=» LDKL A5,FILER«, t00=0x001a, t01=0x018e}
0x2a34…2a4a Head {h00=0x0012, h01=0x0050, text=» LDK A6,QFILNM«, t00=0x001b, t01=0x0014}
0x2a4a…2a60 Head {h00=0x0012, h01=0x0050, text=» CF A14,PRINT «, t00=0x001b, t01=0x002a}
0x2a60…2a78 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,DESREC «, t00=0x001b, t01=0x0040}
0x2a78…2a8e Head {h00=0x0012, h01=0x0050, text=» LDK A6,QDESR «, t00=0x001b, t01=0x0058}
0x2a8e…2aa4 Head {h00=0x0012, h01=0x0050, text=» CF A14,PRINT «, t00=0x001b, t01=0x006e}
0x2aa4…2aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0084}
0x2aae…2ace Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x001b, t01=0x008e}
0x2ace…2ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ae}
0x2ad8…2afc Head {h00=0x0020, h01=0x0050, text=»* 00 IN STATUS BITS IN BUF1 «, t00=0x001b, t01=0x00b8}
0x2afc…2b06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00dc}
0x2b06…2b2c Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A12 GET BUF1 ADDRESS «, t00=0x001b, t01=0x00e6}
0x2b2c…2b4e Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 SKIP CYLINDER ID«, t00=0x001b, t01=0x010c}
0x2b4e…2b76 Head {h00=0x0024, h01=0x0050, text=» LD A7,FILRCL FILE RECORD LENGTH«, t00=0x001b, t01=0x012e}
0x2b76…2ba2 Head {h00=0x0028, h01=0x0050, text=» LD A5,FILBLF FILE BLOCKING FACTOR «, t00=0x001b, t01=0x0156}
0x2ba2…2bb4 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A7«, t00=0x001b, t01=0x0182}
0x2bb4…2bc6 (28, 0, 398) Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001c, t01=0x0004}
0x2bc6…2bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0016}
0x2bd0…2bf8 Head {h00=0x0024, h01=0x0050, text=»RD08 SCR A6,A1 00 TO STATUS BIT «, t00=0x001c, t01=0x0020}
0x2bf8…2c0a Head {h00=0x000e, h01=0x0050, text=» ADR A1,A7«, t00=0x001c, t01=0x0048}
0x2c0a…2c1c Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x001c, t01=0x005a}
0x2c1c…2c30 Head {h00=0x0010, h01=0x0050, text=» RB(P) RD08 «, t00=0x001c, t01=0x006c}
0x2c30…2c46 Head {h00=0x0012, h01=0x0050, text=» LD A5,COUNTR «, t00=0x001c, t01=0x0080}
0x2c46…2c5c Head {h00=0x0012, h01=0x0050, text=» LD A9,SECTOR «, t00=0x001c, t01=0x0096}
0x2c5c…2c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ac}
0x2c66…2c7c Head {h00=0x0012, h01=0x0050, text=»RD10 ADKL A9,1«, t00=0x001c, t01=0x00b6}
0x2c7c…2c90 Head {h00=0x0010, h01=0x0050, text=» SUKL A10,1 «, t00=0x001c, t01=0x00cc}
0x2c90…2ca4 Head {h00=0x0010, h01=0x0050, text=» RF(Z) RD15 «, t00=0x001c, t01=0x00e0}
0x2ca4…2cb6 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x001c, t01=0x00f4}
0x2cb6…2cca Head {h00=0x0010, h01=0x0050, text=» RF(Z) RD20 «, t00=0x001c, t01=0x0106}
0x2cca…2cde Head {h00=0x0010, h01=0x0050, text=» LDKL A7,410«, t00=0x001c, t01=0x011a}
0x2cde…2cf4 Head {h00=0x0012, h01=0x0050, text=» ADS A7,ECB1+2«, t00=0x001c, t01=0x012e}
0x2cf4…2d06 Head {h00=0x000e, h01=0x0050, text=» ABL RD02 «, t00=0x001c, t01=0x0144}
0x2d06…2d10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0156}
0x2d10…2d32 Head {h00=0x001e, h01=0x0050, text=»RD15 SU A9,FILSEC RESET A9«, t00=0x001c, t01=0x0160}
0x2d32…2d42 Head {h00=0x000c, h01=0x0050, text=» RF RD21«, t00=0x001c, t01=0x0182}
0x2d42…2d4c (29, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0004}
0x2d4c…2d6c Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL COPVOL«, t00=0x001d, t01=0x000e}
0x2d6c…2d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x002e}
0x2d76…2d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0038}
0x2d80…2da4 Head {h00=0x0020, h01=0x0050, text=»RD20 SUKL A9,QBUF1L RESET A9«, t00=0x001d, t01=0x0042}
0x2da4…2db6 Head {h00=0x000e, h01=0x0050, text=»RD21 EQU *«, t00=0x001d, t01=0x0066}
0x2db6…2dcc Head {h00=0x0012, h01=0x0050, text=» LD A10,FILSEC«, t00=0x001d, t01=0x0078}
0x2dcc…2dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x008e}
0x2dd6…2e00 Head {h00=0x0026, h01=0x0050, text=»RD22 LDR* A7,A12 GET BUF1 ADDRESS «, t00=0x001d, t01=0x0098}
0x2e00…2e20 Head {h00=0x001c, h01=0x0050, text=» ST A7,ECB1+2 RESET ECB1«, t00=0x001d, t01=0x00c2}
0x2e20…2e40 Head {h00=0x001c, h01=0x0050, text=» ST A7,ECB4+2 RESET ECB4«, t00=0x001d, t01=0x00e2}
0x2e40…2e50 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001d, t01=0x0102}
0x2e50…2e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0112}
0x2e5a…2e84 Head {h00=0x0026, h01=0x0050, text=»RD30 ADK A1,1 OVERFLOW CORRECTION «, t00=0x001d, t01=0x011c}
0x2e84…2e9a Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/7FFF«, t00=0x001d, t01=0x0146}
0x2e9a…2eaa Head {h00=0x000c, h01=0x0050, text=» RB RD07«, t00=0x001d, t01=0x015c}
0x2eaa…2eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x016c}
0x2eb4…2ed4 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x001d, t01=0x0176}
0x2ed4…2ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0008}
0x2ede…2ef0 Head {h00=0x000e, h01=0x0050, text=»* ******* «, t00=0x001e, t01=0x0012}
0x2ef0…2f02 Head {h00=0x000e, h01=0x0050, text=»* *READ1* «, t00=0x001e, t01=0x0024}
0x2f02…2f14 Head {h00=0x000e, h01=0x0050, text=»* ******* «, t00=0x001e, t01=0x0036}
0x2f14…2f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0048}
0x2f1e…2f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0052}
0x2f28…2f3c Head {h00=0x0010, h01=0x0050, text=»READ1 EQU * «, t00=0x001e, t01=0x005c}
0x2f3c…2f52 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECB1 «, t00=0x001e, t01=0x0070}
0x2f52…2f5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0086}
0x2f5c…2f70 Head {h00=0x0010, h01=0x0050, text=»READ12 EQU *«, t00=0x001e, t01=0x0090}
0x2f70…2f92 Head {h00=0x001e, h01=0x0050, text=» LDK A7,/91 READ WITH WAIT«, t00=0x001e, t01=0x00a4}
0x2f92…2fb0 Head {h00=0x001a, h01=0x0050, text=» ST A9,10,A8 SECTOR NO«, t00=0x001e, t01=0x00c6}
0x2fb0…2fbc Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x00e4}
0x2fbc…2fcc Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001e, t01=0x00f0}
0x2fcc…2ff0 Head {h00=0x0020, h01=0x0050, text=» LD A7,8,A8 GET RETURN CODE «, t00=0x001e, t01=0x0100}
0x2ff0…3004 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/80 «, t00=0x001e, t01=0x0124}
0x3004…302e Head {h00=0x0026, h01=0x0050, text=» RB(NZ) READ12 NEW VOLUME LOADED? «, t00=0x001e, t01=0x0138}
0x302e…3052 Head {h00=0x0020, h01=0x0050, text=» LD A8,8,A8 GET RETURN CODE «, t00=0x001e, t01=0x0162}
0x3052…3068 Head {h00=0x0012, h01=0x0050, text=» ANKL A8,/820F«, t00=0x001e, t01=0x0186}
0x3068…308c Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) RTNIE ERROR MESSAGE«, t00=0x001f, t01=0x000c}
0x308c…309c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001f, t01=0x0030}
0x309c…30a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0040}
0x30a6…30b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004a}
0x30b0…30c2 Head {h00=0x000e, h01=0x0050, text=»* ******* «, t00=0x001f, t01=0x0054}
0x30c2…30d4 Head {h00=0x000e, h01=0x0050, text=»* *READ2* «, t00=0x001f, t01=0x0066}
0x30d4…30e6 Head {h00=0x000e, h01=0x0050, text=»* ******* «, t00=0x001f, t01=0x0078}
0x30e6…30f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x008a}
0x30f0…30fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0094}
0x30fa…310e Head {h00=0x0010, h01=0x0050, text=»READ2 EQU * «, t00=0x001f, t01=0x009e}
0x310e…3124 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECB2 «, t00=0x001f, t01=0x00b2}
0x3124…3136 Head {h00=0x000e, h01=0x0050, text=» RB READ12«, t00=0x001f, t01=0x00c8}
0x3136…3140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00da}
0x3140…3160 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x001f, t01=0x00e4}
0x3160…316a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0104}
0x316a…317a Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x001f, t01=0x010e}
0x317a…318a Head {h00=0x000c, h01=0x0050, text=»*SEFFE1*«, t00=0x001f, t01=0x011e}
0x318a…319a Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x001f, t01=0x012e}
0x319a…31a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013e}
0x31a4…31e2 Head {h00=0x003a, h01=0x0050, text=»* SEEK FIRST FILE ENTRY ON DISC1 WITH STATUS BIT=<A7> «, t00=0x001f, t01=0x0148}
0x31e2…3200 Head {h00=0x001a, h01=0x0050, text=»* READ SECTOR TO BUF1 «, t00=0x001f, t01=0x0186}
0x3200…322c Head {h00=0x0028, h01=0x0050, text=»*INPUT A7=BIT TO COMPARE STATUS WITH«, t00=0x0020, t01=0x0014}
0x322c…324c Head {h00=0x001c, h01=0x0050, text=»* A8=BLOCKFACTOR IN VTOC«, t00=0x0020, t01=0x0040}
0x324c…326e Head {h00=0x001e, h01=0x0050, text=»* A9=FIRST SECTOR TO READ«, t00=0x0020, t01=0x0060}
0x326e…3290 Head {h00=0x001e, h01=0x0050, text=»* A10=LAST SECTOR TO READ«, t00=0x0020, t01=0x0082}
0x3290…32b6 Head {h00=0x0022, h01=0x0050, text=»*OUTPUT A6 CONTAIN STATUS BIT «, t00=0x0020, t01=0x00a4}
0x32b6…32d6 Head {h00=0x001c, h01=0x0050, text=»* A1 POINT TO STATUS BIT«, t00=0x0020, t01=0x00ca}
0x32d6…32e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ea}
0x32e0…32f4 Head {h00=0x0010, h01=0x0050, text=»SEFFE1 EQU *«, t00=0x0020, t01=0x00f4}
0x32f4…32fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0108}
0x32fe…331e Head {h00=0x001c, h01=0x0050, text=»SE005 LDR A1,A7 SAVE A7 «, t00=0x0020, t01=0x0112}
0x331e…3338 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A8 SAVE A8«, t00=0x0020, t01=0x0132}
0x3338…334e Head {h00=0x0012, h01=0x0050, text=» CF A14,READ1 «, t00=0x0020, t01=0x014c}
0x334e…3372 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A1 SAVED VALUE TO A7«, t00=0x0020, t01=0x0162}
0x3372…3396 Head {h00=0x0020, h01=0x0050, text=» LDR A8,A3 SAVED VALUE TO A8«, t00=0x0020, t01=0x0186}
0x3396…33bc Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A12 GET BUF1 ADDRESS «, t00=0x0021, t01=0x001a}
0x33bc…33d4 Head {h00=0x0014, h01=0x0050, text=» ADK A1,QVRECL+2«, t00=0x0021, t01=0x0040}
0x33d4…33de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0058}
0x33de…33f4 Head {h00=0x0012, h01=0x0050, text=»SE010 LDK A6,0«, t00=0x0021, t01=0x0062}
0x33f4…3418 Head {h00=0x0020, h01=0x0050, text=» LCR A6,A1 STATUS BIT TO A6 «, t00=0x0021, t01=0x0078}
0x3418…342a Head {h00=0x000e, h01=0x0050, text=» CWR A6,A7«, t00=0x0021, t01=0x009c}
0x342a…3450 Head {h00=0x0022, h01=0x0050, text=» RF(NE) SE020 NOT EQUAL. NEXT «, t00=0x0021, t01=0x00ae}
0x3450…3462 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x0021, t01=0x00d4}
0x3462…3474 Head {h00=0x000e, h01=0x0050, text=» RTN A14 «, t00=0x0021, t01=0x00e6}
0x3474…347e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00f8}
0x347e…349e Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0021, t01=0x0102}
0x349e…34a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0122}
0x34a8…34b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x012c}
0x34b2…34d0 Head {h00=0x001a, h01=0x0050, text=»SE020 ADK A1,QVRECL+1 «, t00=0x0021, t01=0x0136}
0x34d0…34e2 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x0021, t01=0x0154}
0x34e2…3502 Head {h00=0x001c, h01=0x0050, text=» RB(P) SE010 NEXT RECORD«, t00=0x0021, t01=0x0166}
0x3502…350c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0186}
0x350c…3530 Head {h00=0x0020, h01=0x0050, text=»* END OF SECTOR. NEXT SECTOR«, t00=0x0021, t01=0x0190}
0x3530…353a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0024}
0x353a…354c Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0022, t01=0x002e}
0x354c…3574 Head {h00=0x0024, h01=0x0050, text=» LDR A8,A3 RESET RECORD COUNTER «, t00=0x0022, t01=0x0040}
0x3574…3588 Head {h00=0x0010, h01=0x0050, text=» CWR A9,A10 «, t00=0x0022, t01=0x0068}
0x3588…35ae Head {h00=0x0022, h01=0x0050, text=» RB(NG) SE005 READ NEXT SECTOR«, t00=0x0022, t01=0x007c}
0x35ae…35b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00a2}
0x35b8…35e4 Head {h00=0x0028, h01=0x0050, text=»* END OF VTOC. NO MORE SECTORS LEFT «, t00=0x0022, t01=0x00ac}
0x35e4…35ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00d8}
0x35ee…35fe Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0022, t01=0x00e2}
0x35fe…3608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00f2}
0x3608…3628 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0022, t01=0x00fc}
0x3628…3632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x011c}
0x3632…3644 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0022, t01=0x0126}
0x3644…3656 Head {h00=0x000e, h01=0x0050, text=»* *SEFFE2*«, t00=0x0022, t01=0x0138}
0x3656…3668 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0022, t01=0x014a}
0x3668…3672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x015c}
0x3672…36a8 Head {h00=0x0032, h01=0x0050, text=»* SEEK FIRST FILE ENTRY DISC2 WITH STATUS=<A7>«, t00=0x0022, t01=0x0166}
0x36a8…36c6 Head {h00=0x001a, h01=0x0050, text=»*INPUT SAME AS SEFFE1 «, t00=0x0023, t01=0x000c}
0x36c6…36d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x002a}
0x36d0…36e4 Head {h00=0x0010, h01=0x0050, text=»SEFFE2 EQU *«, t00=0x0023, t01=0x0034}
0x36e4…36ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0048}
0x36ee…370e Head {h00=0x001c, h01=0x0050, text=»FE005 LDR A2,A7 SAVE A7 «, t00=0x0023, t01=0x0052}
0x370e…3728 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A8 SAVE A8«, t00=0x0023, t01=0x0072}
0x3728…373e Head {h00=0x0012, h01=0x0050, text=» CF A14,READ2 «, t00=0x0023, t01=0x008c}
0x373e…3762 Head {h00=0x0020, h01=0x0050, text=» LDR A7,A2 SAVED VALUE TO A7«, t00=0x0023, t01=0x00a2}
0x3762…3786 Head {h00=0x0020, h01=0x0050, text=» LDR A8,A3 SAVED VALUE TO A8«, t00=0x0023, t01=0x00c6}
0x3786…37b2 Head {h00=0x0028, h01=0x0050, text=» LD A2,QBUF2,A12 A2 POINTER IN BUF2 «, t00=0x0023, t01=0x00ea}
0x37b2…37d4 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP CYLINDER ID«, t00=0x0023, t01=0x0116}
0x37d4…37de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0138}
0x37de…380a Head {h00=0x0028, h01=0x0050, text=»FE010 ADK A2,QVRECL POINT TO STATUS «, t00=0x0023, t01=0x0142}
0x380a…381c Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0023, t01=0x016e}
0x381c…3840 Head {h00=0x0020, h01=0x0050, text=» LCR A6,A2 STATUS BIT TO A6 «, t00=0x0023, t01=0x0180}
0x3840…3852 Head {h00=0x000e, h01=0x0050, text=» CWR A6,A7«, t00=0x0024, t01=0x0014}
0x3852…3866 Head {h00=0x0010, h01=0x0050, text=» RF(E) FE020«, t00=0x0024, t01=0x0026}
0x3866…387e Head {h00=0x0014, h01=0x0050, text=»* STATUS NOT EQU«, t00=0x0024, t01=0x003a}
0x387e…3890 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0024, t01=0x0052}
0x3890…38a2 Head {h00=0x000e, h01=0x0050, text=» SUKL A8,1«, t00=0x0024, t01=0x0064}
0x38a2…38c2 Head {h00=0x001c, h01=0x0050, text=» RB(P) FE010 NEXT RECORD«, t00=0x0024, t01=0x0076}
0x38c2…38dc Head {h00=0x0016, h01=0x0050, text=»* NEXT VTOC SECTOR«, t00=0x0024, t01=0x0096}
0x38dc…38ee Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0024, t01=0x00b0}
0x38ee…3916 Head {h00=0x0024, h01=0x0050, text=» LDR A8,A3 RESET RECORD COUNTER «, t00=0x0024, t01=0x00c2}
0x3916…393a Head {h00=0x0020, h01=0x0050, text=» CWR A9,A10 END OF SECTORS? «, t00=0x0024, t01=0x00ea}
0x393a…3952 Head {h00=0x0014, h01=0x0050, text=» RB(NG) FE005 NO«, t00=0x0024, t01=0x010e}
0x3952…395c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0126}
0x395c…3972 Head {h00=0x0012, h01=0x0050, text=»FE020 RTN A14 «, t00=0x0024, t01=0x0130}
0x3972…397c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0146}
0x397c…399c Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0024, t01=0x0150}
0x399c…39a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0170}
0x39a6…39b8 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0024, t01=0x017a}
0x39b8…39ca Head {h00=0x000e, h01=0x0050, text=»* *WRITE1*«, t00=0x0024, t01=0x018c}
0x39ca…39dc Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0025, t01=0x000e}
0x39dc…39e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0020}
0x39e6…3a04 Head {h00=0x001a, h01=0x0050, text=»* WRITE BUF1 ON DISC 1«, t00=0x0025, t01=0x002a}
0x3a04…3a22 Head {h00=0x001a, h01=0x0050, text=»*INPUT A9=SEC TO WRITE«, t00=0x0025, t01=0x0048}
0x3a22…3a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0066}
0x3a2c…3a40 Head {h00=0x0010, h01=0x0050, text=»WRITE1 EQU *«, t00=0x0025, t01=0x0070}
0x3a40…3a56 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECB1 «, t00=0x0025, t01=0x0084}
0x3a56…3a6a Head {h00=0x0010, h01=0x0050, text=» LDK A7,/95 «, t00=0x0025, t01=0x009a}
0x3a6a…3a80 Head {h00=0x0012, h01=0x0050, text=» ST A9,ECB1+10«, t00=0x0025, t01=0x00ae}
0x3a80…3a8c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0025, t01=0x00c4}
0x3a8c…3a9c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0025, t01=0x00d0}
0x3a9c…3aba Head {h00=0x001a, h01=0x0050, text=»* TEST OF RETURN CODE «, t00=0x0025, t01=0x00e0}
0x3aba…3ae2 Head {h00=0x0024, h01=0x0050, text=» LD A7,ECB1+8 RETURN CODE TO A7 «, t00=0x0025, t01=0x00fe}
0x3ae2…3af6 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/80 «, t00=0x0025, t01=0x0126}
0x3af6…3b20 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) WRITE1 NEW VOLUME LOADED? «, t00=0x0025, t01=0x013a}
0x3b20…3b48 Head {h00=0x0024, h01=0x0050, text=» LD A8,ECB1+8 RETURN CODE TO A8 «, t00=0x0025, t01=0x0164}
0x3b48…3b5e Head {h00=0x0012, h01=0x0050, text=» ANKL A8,/820F«, t00=0x0025, t01=0x018c}
0x3b5e…3b82 Head {h00=0x0020, h01=0x0050, text=» ABL(NZ) RTNIE ERROR MESSAGE«, t00=0x0026, t01=0x0012}
0x3b82…3b92 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x0036}
0x3b92…3b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0046}
0x3b9c…3bbc Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0026, t01=0x0050}
0x3bbc…3bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0070}
0x3bc6…3bd8 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0026, t01=0x007a}
0x3bd8…3bea Head {h00=0x000e, h01=0x0050, text=»* *WRITE2*«, t00=0x0026, t01=0x008c}
0x3bea…3bfc Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0026, t01=0x009e}
0x3bfc…3c06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00b0}
0x3c06…3c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ba}
0x3c10…3c24 Head {h00=0x0010, h01=0x0050, text=»WRITE2 EQU *«, t00=0x0026, t01=0x00c4}
0x3c24…3c3a Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECB2 «, t00=0x0026, t01=0x00d8}
0x3c3a…3c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ee}
0x3c44…3c58 Head {h00=0x0010, h01=0x0050, text=»WRIT22 EQU *«, t00=0x0026, t01=0x00f8}
0x3c58…3c6c Head {h00=0x0010, h01=0x0050, text=» LDK A7,/95 «, t00=0x0026, t01=0x010c}
0x3c6c…3c8a Head {h00=0x001a, h01=0x0050, text=» ST A9,10,A8 SECTOR NO«, t00=0x0026, t01=0x0120}
0x3c8a…3c96 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0026, t01=0x013e}
0x3c96…3ca6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0026, t01=0x014a}
0x3ca6…3cc4 Head {h00=0x001a, h01=0x0050, text=»* TEST OF RETURN CODE «, t00=0x0026, t01=0x015a}
0x3cc4…3ce8 Head {h00=0x0020, h01=0x0050, text=» LD A7,8,A8 GET RETURN CODE «, t00=0x0026, t01=0x0178}
0x3ce8…3cfc Head {h00=0x0010, h01=0x0050, text=» ANK A7,/80 «, t00=0x0027, t01=0x000c}
0x3cfc…3d26 Head {h00=0x0026, h01=0x0050, text=» RB(NZ) WRIT22 NEW VOLUME LOADED? «, t00=0x0027, t01=0x0020}
0x3d26…3d4a Head {h00=0x0020, h01=0x0050, text=» LD A8,8,A8 GET RETURN CODE «, t00=0x0027, t01=0x004a}
0x3d4a…3d60 Head {h00=0x0012, h01=0x0050, text=» ANKL A8,/820F«, t00=0x0027, t01=0x006e}
0x3d60…3d86 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) RTNOE1 ERROR MESSAGE «, t00=0x0027, t01=0x0084}
0x3d86…3d96 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0027, t01=0x00aa}
0x3d96…3da0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00ba}
0x3da0…3daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c4}
0x3daa…3dbc Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0027, t01=0x00ce}
0x3dbc…3dce Head {h00=0x000e, h01=0x0050, text=»* *WRITE4*«, t00=0x0027, t01=0x00e0}
0x3dce…3de0 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0027, t01=0x00f2}
0x3de0…3dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0104}
0x3dea…3df4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x010e}
0x3df4…3e08 Head {h00=0x0010, h01=0x0050, text=»WRITE4 EQU *«, t00=0x0027, t01=0x0118}
0x3e08…3e1e Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECB4 «, t00=0x0027, t01=0x012c}
0x3e1e…3e30 Head {h00=0x000e, h01=0x0050, text=» RB WRIT22«, t00=0x0027, t01=0x0142}
0x3e30…3e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0154}
0x3e3a…3e5a Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0027, t01=0x015e}
0x3e5a…3e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x017e}
0x3e64…3e76 Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0027, t01=0x0188}
0x3e76…3e88 Head {h00=0x000e, h01=0x0050, text=»* *VTOSEC*«, t00=0x0028, t01=0x000a}
0x3e88…3e9a Head {h00=0x000e, h01=0x0050, text=»* ********«, t00=0x0028, t01=0x001c}
0x3e9a…3ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x002e}
0x3ea4…3eee Head {h00=0x0046, h01=0x0050, text=»* TAKE SECTOR AND RECORD FROM TABLE SECREC. READ SECTOR TO BUF1. «, t00=0x0028, t01=0x0038}
0x3eee…3f1e Head {h00=0x002c, h01=0x0050, text=»*OUTPUT A1 POINT TO FIRST WORD IN RECORD«, t00=0x0028, t01=0x0082}
0x3f1e…3f40 Head {h00=0x001e, h01=0x0050, text=»*INPUT A7=OFFSET IN SECREC«, t00=0x0028, t01=0x00b2}
0x3f40…3f5a Head {h00=0x0016, h01=0x0050, text=»* A6=RECORD LENGTH«, t00=0x0028, t01=0x00d4}
0x3f5a…3f64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00ee}
0x3f64…3f78 Head {h00=0x0010, h01=0x0050, text=»VTOSEC EQU *«, t00=0x0028, t01=0x00f8}
0x3f78…3f8a Head {h00=0x000e, h01=0x0050, text=» SUR A9,A9«, t00=0x0028, t01=0x010c}
0x3f8a…3fb2 Head {h00=0x0024, h01=0x0050, text=» LC A9,SECREC,A7 SECTOR NO TO A9«, t00=0x0028, t01=0x011e}
0x3fb2…3fc8 Head {h00=0x0012, h01=0x0050, text=» ST A9,VTSEC1 «, t00=0x0028, t01=0x0146}
0x3fc8…3fda Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0028, t01=0x015c}
0x3fda…3fec Head {h00=0x000e, h01=0x0050, text=» ADK A7,1 «, t00=0x0028, t01=0x016e}
0x3fec…400e Head {h00=0x001e, h01=0x0050, text=» LC A5,SECREC,A7 REC TO A5«, t00=0x0028, t01=0x0180}
0x400e…4022 Head {h00=0x0010, h01=0x0050, text=» ST A5,REC1 «, t00=0x0029, t01=0x0012}
0x4022…404c Head {h00=0x0026, h01=0x0050, text=» CF A14,READ1 READ SECTOR TO BUF1«, t00=0x0029, t01=0x0026}
0x404c…4072 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A12 GET BUF1 ADDRESS «, t00=0x0029, t01=0x0050}
0x4072…4094 Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 SKIP CYLINDER ID«, t00=0x0029, t01=0x0076}
0x4094…409e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0098}
0x409e…40b2 Head {h00=0x0010, h01=0x0050, text=»L1 SUK A5,1 «, t00=0x0029, t01=0x00a2}
0x40b2…40d0 Head {h00=0x001a, h01=0x0050, text=» RF(Z) L2 RECORD FOUND«, t00=0x0029, t01=0x00b6}
0x40d0…40e8 Head {h00=0x0014, h01=0x0050, text=» ADK A1,QVRECL+1«, t00=0x0029, t01=0x00d4}
0x40e8…40fc Head {h00=0x0010, h01=0x0050, text=» RB L1 NEXT «, t00=0x0029, t01=0x00ec}
0x40fc…4106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0100}
0x4106…4118 Head {h00=0x000e, h01=0x0050, text=»L2 RTN A14«, t00=0x0029, t01=0x010a}
0x4118…4122 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x011c}
0x4122…4142 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0029, t01=0x0126}
0x4142…414c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0146}
0x414c…415e Head {h00=0x000e, h01=0x0050, text=»* ******«, t00=0x0029, t01=0x0150}
0x415e…4170 Head {h00=0x000e, h01=0x0050, text=»* *LOCK*«, t00=0x0029, t01=0x0162}
0x4170…4182 Head {h00=0x000e, h01=0x0050, text=»* ******«, t00=0x0029, t01=0x0174}
0x4182…418c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0186}
0x418c…41b8 Head {h00=0x0028, h01=0x0050, text=»* LOCK INPUT,OUTPUT FLEXIBLE DISCS«, t00=0x0029, t01=0x0190}
0x41b8…41c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x002c}
0x41c2…41d4 Head {h00=0x000e, h01=0x0050, text=»LOCK EQU *«, t00=0x002a, t01=0x0036}
0x41d4…420a Head {h00=0x0032, h01=0x0050, text=» CM ENTRY2 FLEX. DISC FLAG FOR BACK-UP VERSION«, t00=0x002a, t01=0x0048}
0x420a…4232 Head {h00=0x0024, h01=0x0050, text=» LDK A3,0 INPUT/OUTPUT DISC FLAG«, t00=0x002a, t01=0x007e}
0x4232…4248 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECB1 «, t00=0x002a, t01=0x00a6}
0x4248…4252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00bc}
0x4252…426e Head {h00=0x0018, h01=0x0050, text=»LOC:10 LDR* A1,A8 FC«, t00=0x002a, t01=0x00c6}
0x426e…4282 Head {h00=0x0010, h01=0x0050, text=» CCK A1,FDFC«, t00=0x002a, t01=0x00e2}
0x4282…42a6 Head {h00=0x0020, h01=0x0050, text=» RF(L) LOC:50 NOT FLEX DISC «, t00=0x002a, t01=0x00f6}
0x42a6…42c6 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/80 TEST STATUS «, t00=0x002a, t01=0x011a}
0x42c6…42d2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x013a}
0x42d2…42e2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002a, t01=0x0146}
0x42e2…4300 Head {h00=0x001a, h01=0x0050, text=» LD A2,8,A8 RET. CODE «, t00=0x002a, t01=0x0156}
0x4300…4320 Head {h00=0x001c, h01=0x0050, text=» RF(N) LOC:20 NOT LOCKED«, t00=0x002a, t01=0x0174}
0x4320…4342 (43, 0, 398) Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 SAVE RET. CODE «, t00=0x002b, t01=0x0004}
0x4342…4354 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x002b, t01=0x0026}
0x4354…4378 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) LOC:15 OUTPUT DISC? «, t00=0x002b, t01=0x0038}
0x4378…438c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/21 «, t00=0x002b, t01=0x005c}
0x438c…43ae Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LOC:80 FATAL ERROR«, t00=0x002b, t01=0x0070}
0x43ae…43c0 Head {h00=0x000e, h01=0x0050, text=» RF LOC:20«, t00=0x002b, t01=0x0092}
0x43c0…43ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00a4}
0x43ca…43e2 Head {h00=0x0014, h01=0x0050, text=»LOC:15 ANK A2,1 «, t00=0x002b, t01=0x00ae}
0x43e2…4406 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) LOC:80 NOT OPERABLE?«, t00=0x002b, t01=0x00c6}
0x4406…441c Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/0200«, t00=0x002b, t01=0x00ea}
0x441c…4446 Head {h00=0x0026, h01=0x0050, text=» ABL(NZ) RTN08 FD WRITE PROTECTED «, t00=0x002b, t01=0x0100}
0x4446…4450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x012a}
0x4450…4470 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL COPVOL«, t00=0x002b, t01=0x0134}
0x4470…447a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0154}
0x447a…4484 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x015e}
0x4484…44a2 Head {h00=0x001a, h01=0x0050, text=»LOC:20 LDK A7,/A6 LOCK«, t00=0x002b, t01=0x0168}
0x44a2…44ae Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002b, t01=0x0186}
0x44ae…44be (44, 0, 400) Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002c, t01=0x0004}
0x44be…44dc Head {h00=0x001a, h01=0x0050, text=» LD A2,8,A8 RET. CODE «, t00=0x002c, t01=0x0014}
0x44dc…44ee Head {h00=0x000e, h01=0x0050, text=» ANK A2,/7«, t00=0x002c, t01=0x0032}
0x44ee…4510 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LOC:80 FATAL ERROR«, t00=0x002c, t01=0x0044}
0x4510…453a Head {h00=0x0026, h01=0x0050, text=» IM ENTRY2 INDICATE FLEXIBLE DISC «, t00=0x002c, t01=0x0066}
0x453a…4544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0090}
0x4544…455c Head {h00=0x0014, h01=0x0050, text=»LOC:50 LDR A3,A3«, t00=0x002c, t01=0x009a}
0x455c…457e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) LOC:EN OUTPUT DISC«, t00=0x002c, t01=0x00b2}
0x457e…45a4 Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECB2 OUTPUT DISC ECB «, t00=0x002c, t01=0x00d4}
0x45a4…45ca Head {h00=0x0022, h01=0x0050, text=» LDK A3,1 INDICATE OUTPUT DISC«, t00=0x002c, t01=0x00fa}
0x45ca…45dc Head {h00=0x000e, h01=0x0050, text=» RB LOC:10«, t00=0x002c, t01=0x0120}
0x45dc…45e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0132}
0x45e6…45fe Head {h00=0x0014, h01=0x0050, text=»LOC:80 LDR A8,A2«, t00=0x002c, t01=0x013c}
0x45fe…4610 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x002c, t01=0x0154}
0x4610…4636 Head {h00=0x0022, h01=0x0050, text=» ABL(Z) RTNIE INPUT I/O ERROR «, t00=0x002c, t01=0x0166}
0x4636…465a Head {h00=0x0020, h01=0x0050, text=» ABL RTNOE OUTPUT I/O ERROR «, t00=0x002c, t01=0x018c}
0x465a…4664 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0020}
0x4664…4678 Head {h00=0x0010, h01=0x0050, text=»LOC:EN EQU *«, t00=0x002d, t01=0x002a}
0x4678…4688 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002d, t01=0x003e}
0x4688…4692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x004e}
0x4692…46aa Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x002d, t01=0x0058}
0x46aa…46b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0070}
0x46b4…46be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x007a}
0x46be…46ce Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x002d, t01=0x0084}
0x46ce…46de Head {h00=0x000c, h01=0x0050, text=»*PHREAD*«, t00=0x002d, t01=0x0094}
0x46de…46ee Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x002d, t01=0x00a4}
0x46ee…46f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00b4}
0x46f8…4702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00be}
0x4702…4730 Head {h00=0x002a, h01=0x0050, text=»PHREAD EQU * ROUTINE FOR PHYSICAL READ«, t00=0x002d, t01=0x00c8}
0x4730…4764 Head {h00=0x0030, h01=0x0050, text=» LDK A1,QBUF1L BUFFER SIZE IN NO OF SECTORS «, t00=0x002d, t01=0x00f6}
0x4764…478c Head {h00=0x0024, h01=0x0050, text=» LDR* A4,A12 GET BUFFER ADDRESS «, t00=0x002d, t01=0x012a}
0x478c…47a2 Head {h00=0x0012, h01=0x0050, text=» ST A4,ECB1+2 «, t00=0x002d, t01=0x0152}
0x47a2…47c4 Head {h00=0x001e, h01=0x0050, text=» LDK A7,/91 PHYSICAL READ «, t00=0x002d, t01=0x0168}
0x47c4…47ea Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECB1 GET ECB1 ADDRESS«, t00=0x002d, t01=0x018a}
0x47ea…47f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0020}
0x47f4…4826 Head {h00=0x002e, h01=0x0050, text=»PHR:05 CW A11,ECB1+10 CHECK SECTOR NUMBER «, t00=0x002e, t01=0x002a}
0x4826…484e Head {h00=0x0024, h01=0x0050, text=» RF(E) PHR:15 COPYING FINISHED? «, t00=0x002e, t01=0x005c}
0x484e…487e Head {h00=0x002c, h01=0x0050, text=» IM ECB1+10 NO, INCREMENT SECTOR NUMBER «, t00=0x002e, t01=0x0084}
0x487e…488a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002e, t01=0x00b4}
0x488a…489a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x002e, t01=0x00c0}
0x489a…48c0 Head {h00=0x0022, h01=0x0050, text=» LD A2,ECB1+8 GET RETURN CODE «, t00=0x002e, t01=0x00d0}
0x48c0…48de Head {h00=0x001a, h01=0x0050, text=» RF(Z) PHR:10 READ OK?«, t00=0x002e, t01=0x00f6}
0x48de…4906 Head {h00=0x0024, h01=0x0050, text=» CF A14,PHR:20 NO, CHECK OUT WHY«, t00=0x002e, t01=0x0114}
0x4906…492c Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECB1 GET ECB1 ADDRESS«, t00=0x002e, t01=0x013c}
0x492c…4936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0162}
0x4936…496c Head {h00=0x0032, h01=0x0050, text=»PHR:10 ADS A10,ECB1+2 GET NEXT BUFFER ADDRESS «, t00=0x002e, t01=0x016c}
0x496c…497e Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x002f, t01=0x0012}
0x497e…49aa Head {h00=0x0028, h01=0x0050, text=» RB(P) PHR:05 BUFFER NOT FILLED UP? «, t00=0x002f, t01=0x0024}
0x49aa…49d4 Head {h00=0x0026, h01=0x0050, text=» RTN A14 BUFFER FILLED UP, RETURN «, t00=0x002f, t01=0x0050}
0x49d4…49de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x007a}
0x49de…49f6 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x002f, t01=0x0084}
0x49f6…4a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x009c}
0x4a00…4a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a6}
0x4a0a…4a46 Head {h00=0x0038, h01=0x0050, text=»PHR:15 NGR A1,A1 INDICATE <= 8 SECTORS LEFT TO COPY «, t00=0x002f, t01=0x00b0}
0x4a46…4a56 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x00ec}
0x4a56…4a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00fc}
0x4a60…4a94 Head {h00=0x0030, h01=0x0050, text=»PHR:20 EQU * WRITE ON OPERATORS PRINT DEVICE«, t00=0x002f, t01=0x0106}
0x4a94…4ab6 Head {h00=0x001e, h01=0x0050, text=» LC A3,1,A8 GET FILE CODE «, t00=0x002f, t01=0x013a}
0x4ab6…4ae2 Head {h00=0x0028, h01=0x0050, text=» CC A3,ECB2+1 CHECK IF INPUT/OUTPUT «, t00=0x002f, t01=0x015c}
0x4ae2…4b0a Head {h00=0x0024, h01=0x0050, text=» RF(E) PHR:25 OUTPUT READ ERROR?«, t00=0x002f, t01=0x0188}
0x4b0a…4b38 Head {h00=0x002a, h01=0x0050, text=» LDK A3,0 NO, INDICATE ERROR ON INPUT «, t00=0x0030, t01=0x0020}
0x4b38…4b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x004e}
0x4b42…4b5e Head {h00=0x0018, h01=0x0050, text=»PHR:25 ANKL A2,/808B«, t00=0x0030, t01=0x0058}
0x4b5e…4b8c Head {h00=0x002a, h01=0x0050, text=» RB(NZ) LOC:80 RETURN IF SERIOUS ERROR«, t00=0x0030, t01=0x0074}
0x4b8c…4bb0 Head {h00=0x0020, h01=0x0050, text=» LD A2,8,A8 GET RETURN CODE «, t00=0x0030, t01=0x00a2}
0x4bb0…4bc6 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/204 «, t00=0x0030, t01=0x00c6}
0x4bc6…4bf0 Head {h00=0x0026, h01=0x0050, text=» RF(Z) PHR:35 ONLY RETRY BIT SET? «, t00=0x0030, t01=0x00dc}
0x4bf0…4c16 Head {h00=0x0022, h01=0x0050, text=» LD A2,10,A8 GET SECTOR NUMBER«, t00=0x0030, t01=0x0106}
0x4c16…4c2c Head {h00=0x0012, h01=0x0050, text=» LDR A3,A3 NO «, t00=0x0030, t01=0x012c}
0x4c2c…4c4e Head {h00=0x001e, h01=0x0050, text=» RF(Z) PHR:40 INPUT ERROR?«, t00=0x0030, t01=0x0142}
0x4c4e…4c66 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,OUTERR «, t00=0x0030, t01=0x0164}
0x4c66…4c7c Head {h00=0x0012, h01=0x0050, text=» LDK A6,QUOTER«, t00=0x0030, t01=0x017c}
0x4c7c…4c86 (49, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0004}
0x4c86…4cc0 Head {h00=0x0036, h01=0x0050, text=»PHR:30 CF A14,PRINT PRINT 'INPUT' OR 'OUTPUT DISC'«, t00=0x0031, t01=0x000e}
0x4cc0…4cd8 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,READER «, t00=0x0031, t01=0x0048}
0x4cd8…4cee Head {h00=0x0012, h01=0x0050, text=» LDK A6,QREADE«, t00=0x0031, t01=0x0060}
0x4cee…4d16 Head {h00=0x0024, h01=0x0050, text=» CF A14,PRINT PRINT 'READ ERROR'«, t00=0x0031, t01=0x0076}
0x4d16…4d34 Head {h00=0x001a, h01=0x0050, text=» ST A1,SAVEA1 SAVE A1 «, t00=0x0031, t01=0x009e}
0x4d34…4d3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00bc}
0x4d3e…4d56 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x0031, t01=0x00c6}
0x4d56…4d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00de}
0x4d60…4d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00e8}
0x4d6a…4d7e Head {h00=0x0010, h01=0x0050, text=» LDKL A3,SEC«, t00=0x0031, t01=0x00f2}
0x4d7e…4d90 Head {h00=0x000e, h01=0x0050, text=» LDK A4,5 «, t00=0x0031, t01=0x0106}
0x4d90…4dc4 Head {h00=0x0030, h01=0x0050, text=» CF A14,BIDACR CONVERT SECTOR NO TO DECIMAL «, t00=0x0031, t01=0x0118}
0x4dc4…4dda Head {h00=0x0012, h01=0x0050, text=» LDKL A5,SECER«, t00=0x0031, t01=0x014c}
0x4dda…4df0 Head {h00=0x0012, h01=0x0050, text=» LDK A6,QSECER«, t00=0x0031, t01=0x0162}
0x4df0…4e1e Head {h00=0x002a, h01=0x0050, text=» CF A14,PRINT PRINT 'SECTOR NO: XXXXX'«, t00=0x0031, t01=0x0178}
0x4e1e…4e3c Head {h00=0x001a, h01=0x0050, text=» LDKL A1,0 RESTORE A1 «, t00=0x0032, t01=0x0016}
0x4e3c…4e60 Head {h00=0x0020, h01=0x0050, text=»SAVEA1 EQU *-2 SAVE AREA A1 «, t00=0x0032, t01=0x0034}
0x4e60…4e82 Head {h00=0x001e, h01=0x0050, text=» LDK A7,/91 PHYSICAL READ «, t00=0x0032, t01=0x0058}
0x4e82…4e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x007a}
0x4e8c…4ea2 Head {h00=0x0012, h01=0x0050, text=»PHR:35 RTN A14«, t00=0x0032, t01=0x0084}
0x4ea2…4eac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x009a}
0x4eac…4ec8 Head {h00=0x0018, h01=0x0050, text=»PHR:40 LDKL A5,INERR«, t00=0x0032, t01=0x00a4}
0x4ec8…4ede Head {h00=0x0012, h01=0x0050, text=» LDK A6,QINERR«, t00=0x0032, t01=0x00c0}
0x4ede…4ef0 Head {h00=0x000e, h01=0x0050, text=» RB PHR:30«, t00=0x0032, t01=0x00d6}
0x4ef0…4efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00e8}
0x4efa…4f12 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x0032, t01=0x00f2}
0x4f12…4f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x010a}
0x4f1c…4f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0114}
0x4f26…4f36 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0032, t01=0x011e}
0x4f36…4f46 Head {h00=0x000c, h01=0x0050, text=»*BASWRT*«, t00=0x0032, t01=0x012e}
0x4f46…4f56 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0032, t01=0x013e}
0x4f56…4f60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x014e}
0x4f60…4f6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0158}
0x4f6a…4f90 Head {h00=0x0022, h01=0x0050, text=»BASWRT EQU * ROUTINE FOR WRITE«, t00=0x0032, t01=0x0162}
0x4f90…4fc4 Head {h00=0x0030, h01=0x0050, text=» LDK A1,QBUF1L BUFFER SIZE IN NO OF SECTORS «, t00=0x0032, t01=0x0188}
0x4fc4…4fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x002c}
0x4fce…4ffa Head {h00=0x0028, h01=0x0050, text=»BAS:05 LDKL A8,ECB2 GET ECB ADDRESS «, t00=0x0033, t01=0x0036}
0x4ffa…5014 Head {h00=0x0016, h01=0x0050, text=» LDR A9,A1 SAVE A1«, t00=0x0033, t01=0x0062}
0x5014…5034 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/85 BASIC WRITE «, t00=0x0033, t01=0x007c}
0x5034…505c Head {h00=0x0024, h01=0x0050, text=» LDR* A4,A12 GET BUFFER ADDRESS «, t00=0x0033, t01=0x009c}
0x505c…5072 Head {h00=0x0012, h01=0x0050, text=» ST A4,ECB2+2 «, t00=0x0033, t01=0x00c4}
0x5072…507c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00da}
0x507c…50ae Head {h00=0x002e, h01=0x0050, text=»BAS:10 IM ECB2+10 INCREMENT SECTOR NUMBER «, t00=0x0033, t01=0x00e4}
0x50ae…50ba Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0033, t01=0x0116}
0x50ba…50ca Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0033, t01=0x0122}
0x50ca…50fa Head {h00=0x002c, h01=0x0050, text=» ADS A10,ECB2+2 GET NEXT BUFFER ADDRESS «, t00=0x0033, t01=0x0132}
0x50fa…510c Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0033, t01=0x0162}
0x510c…513a Head {h00=0x002a, h01=0x0050, text=» RB(P) BAS:10 MORE SECTORS IN BUFFER? «, t00=0x0033, t01=0x0174}
0x513a…5144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0012}
0x5144…5162 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A9 RESTORE A1 «, t00=0x0034, t01=0x001c}
0x5162…5174 Head {h00=0x000e, h01=0x0050, text=» NGR A9,A9«, t00=0x0034, t01=0x003a}
0x5174…518c Head {h00=0x0014, h01=0x0050, text=» ADS A9,ECB2+10 «, t00=0x0034, t01=0x004c}
0x518c…51b4 Head {h00=0x0024, h01=0x0050, text=» LDR* A4,A12 GET BUFFER ADDRESS «, t00=0x0034, t01=0x0064}
0x51b4…51ca Head {h00=0x0012, h01=0x0050, text=» ST A4,ECB2+2 «, t00=0x0034, t01=0x008c}
0x51ca…51ec Head {h00=0x001e, h01=0x0050, text=» LDK A7,/91 PHYSICAL READ «, t00=0x0034, t01=0x00a2}
0x51ec…51f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00c4}
0x51f6…520e Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x0034, t01=0x00ce}
0x520e…5218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e6}
0x5218…5222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00f0}
0x5222…5254 Head {h00=0x002e, h01=0x0050, text=»BAS:20 IM ECB2+10 INCREMENT SECTOR NUMBER «, t00=0x0034, t01=0x00fa}
0x5254…5260 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0034, t01=0x012c}
0x5260…5270 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0034, t01=0x0138}
0x5270…5296 Head {h00=0x0022, h01=0x0050, text=» LD A2,ECB2+8 GET RETURN CODE «, t00=0x0034, t01=0x0148}
0x5296…52b0 Head {h00=0x0016, h01=0x0050, text=» RF(Z) BAS:30 OK? «, t00=0x0034, t01=0x016e}
0x52b0…52d8 Head {h00=0x0024, h01=0x0050, text=» CF A14,PHR:20 NO, CHECK OUT WHY«, t00=0x0034, t01=0x0188}
0x52d8…52fe Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECB2 GET ECB2 ADDRESS«, t00=0x0035, t01=0x0020}
0x52fe…5308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0046}
0x5308…5320 Head {h00=0x0014, h01=0x0050, text=»BAS:30 SUK A1,1 «, t00=0x0035, t01=0x0050}
0x5320…5356 Head {h00=0x0032, h01=0x0050, text=» RB(P) BAS:20 MORE SECTORS IN BUFFER TO CHECK?«, t00=0x0035, t01=0x0068}
0x5356…5372 Head {h00=0x0018, h01=0x0050, text=» RTN A14 NO, RETURN «, t00=0x0035, t01=0x009e}
0x5372…537c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00ba}
0x537c…5394 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x0035, t01=0x00c4}
0x5394…539e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00dc}
0x539e…53a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00e6}
0x53a8…53b6 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0035, t01=0x00f0}
0x53b6…53c4 Head {h00=0x000a, h01=0x0050, text=»*IBM* «, t00=0x0035, t01=0x00fe}
0x53c4…53d2 Head {h00=0x000a, h01=0x0050, text=»***** «, t00=0x0035, t01=0x010c}
0x53d2…53dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x011a}
0x53dc…53e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0124}
0x53e6…5414 Head {h00=0x002a, h01=0x0050, text=»IBM EQU * OUTPUT DISC IS IBM FORMATTED«, t00=0x0035, t01=0x012e}
0x5414…5428 Head {h00=0x0010, h01=0x0050, text=» LDK A1,128 «, t00=0x0035, t01=0x015c}
0x5428…5452 Head {h00=0x0026, h01=0x0050, text=» ST A1,4,A8 SET IBM SECTOR LENGTH «, t00=0x0035, t01=0x0170}
0x5452…546e Head {h00=0x0018, h01=0x0050, text=» LDKL A9,6 SECTOR 7 «, t00=0x0036, t01=0x000a}
0x546e…5494 Head {h00=0x0022, h01=0x0050, text=» CF A14,READ2 READ VOLUME NAME«, t00=0x0036, t01=0x0026}
0x5494…54ba Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECB2 GET ECB2 ADDRESS«, t00=0x0036, t01=0x004c}
0x54ba…54cc Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0036, t01=0x0072}
0x54cc…5502 Head {h00=0x0032, h01=0x0050, text=» ADS A1,2,A8 UPDATE BUFFER ADDRESS FOR VOLNAM «, t00=0x0036, t01=0x0084}
0x5502…5532 Head {h00=0x002c, h01=0x0050, text=» CF A14,VOLNAM ASK OPERATOR IF VOLUME OK«, t00=0x0036, t01=0x00ba}
0x5532…554a Head {h00=0x0014, h01=0x0050, text=» ADK A1,0 SET CR«, t00=0x0036, t01=0x00ea}
0x554a…5576 Head {h00=0x0028, h01=0x0050, text=» ABL(N) RTN99 ABORT IF WRONG VOLUME «, t00=0x0036, t01=0x0102}
0x5576…559c Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECB2 GET ECB2 ADDRESS«, t00=0x0036, t01=0x012e}
0x559c…55c6 Head {h00=0x0026, h01=0x0050, text=» LD A2,QBUF2,A12 GET BUF2 ADDRESS «, t00=0x0036, t01=0x0154}
0x55c6…55ee Head {h00=0x0024, h01=0x0050, text=» ST A2,2,A8 RESET BUFFER ADDRESS«, t00=0x0036, t01=0x017e}
0x55ee…5622 Head {h00=0x0030, h01=0x0050, text=» LDKL A1,/8081 WRITE 'TOSS' IN VOLUME LABEL «, t00=0x0037, t01=0x0016}
0x5622…5636 Head {h00=0x0010, h01=0x0050, text=» ST A1,34,A2«, t00=0x0037, t01=0x004a}
0x5636…564c Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/8283«, t00=0x0037, t01=0x005e}
0x564c…5660 Head {h00=0x0010, h01=0x0050, text=» ST A1,36,A2«, t00=0x0037, t01=0x0074}
0x5660…567a Head {h00=0x0016, h01=0x0050, text=» CM 10,A8 SECTOR 0«, t00=0x0037, t01=0x0088}
0x567a…5694 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/95 WRITE «, t00=0x0037, t01=0x00a2}
0x5694…56a0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0037, t01=0x00bc}
0x56a0…56b0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0037, t01=0x00c8}
0x56b0…56ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00d8}
0x56ba…56d2 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x0037, t01=0x00e2}
0x56d2…56dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00fa}
0x56dc…56e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0104}
0x56e6…5700 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/B8 UNLOAD«, t00=0x0037, t01=0x010e}
0x5700…570c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0037, t01=0x0128}
0x570c…571c Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0037, t01=0x0134}
0x571c…5734 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/A6 LOCK«, t00=0x0037, t01=0x0144}
0x5734…5740 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0037, t01=0x015c}
0x5740…5750 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0037, t01=0x0168}
0x5750…5764 Head {h00=0x0010, h01=0x0050, text=» LDKL A1,410«, t00=0x0037, t01=0x0178}
0x5764…578e Head {h00=0x0026, h01=0x0050, text=» ST A1,4,A8 SET TOSS SECTOR LENGTH«, t00=0x0037, t01=0x018c}
0x578e…57a0 Head {h00=0x000e, h01=0x0050, text=» RF BACK00«, t00=0x0038, t01=0x0026}
0x57a0…57aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0038}
0x57aa…57c2 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x0038, t01=0x0042}
0x57c2…57cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x005a}
0x57cc…57d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0064}
0x57d6…57e6 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0038, t01=0x006e}
0x57e6…57f6 Head {h00=0x000c, h01=0x0050, text=»*BACKUP*«, t00=0x0038, t01=0x007e}
0x57f6…5806 Head {h00=0x000c, h01=0x0050, text=»********«, t00=0x0038, t01=0x008e}
0x5806…5810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x009e}
0x5810…583e Head {h00=0x002a, h01=0x0050, text=»* COPVOL, WITH NO REORGANIZING OF DISC«, t00=0x0038, t01=0x00a8}
0x583e…5848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00d6}
0x5848…585c Head {h00=0x0010, h01=0x0050, text=»BACKUP EQU *«, t00=0x0038, t01=0x00e0}
0x585c…5866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00f4}
0x5866…5884 Head {h00=0x001a, h01=0x0050, text=»* CHECK OUTPUT VOLUME «, t00=0x0038, t01=0x00fe}
0x5884…588e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x011c}
0x588e…58b4 Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECB2 GET ECB2 ADDRESS«, t00=0x0038, t01=0x0126}
0x58b4…58d4 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/80 TEST STATUS «, t00=0x0038, t01=0x014c}
0x58d4…58e0 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0038, t01=0x016c}
0x58e0…58f0 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0038, t01=0x0178}
0x58f0…590e Head {h00=0x001a, h01=0x0050, text=» LD A2,8,A8 RET. CODE «, t00=0x0038, t01=0x0188}
0x590e…5922 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/20 «, t00=0x0039, t01=0x0016}
0x5922…5950 Head {h00=0x002a, h01=0x0050, text=» RB(NZ) IBM OUTPUT DISC IBM FORMATTED?«, t00=0x0039, t01=0x002a}
0x5950…597e Head {h00=0x002a, h01=0x0050, text=» CF A14,READ2 READ OUTPUT VOLUME LABEL«, t00=0x0039, t01=0x0058}
0x597e…59a4 Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECB2 GET ECB2 ADDRESS«, t00=0x0039, t01=0x0086}
0x59a4…59d4 Head {h00=0x002c, h01=0x0050, text=» CF A14,VOLNAM ASK OPERATOR IF VOLUME OK«, t00=0x0039, t01=0x00ac}
0x59d4…59ec Head {h00=0x0014, h01=0x0050, text=» ADK A1,0 SET CR«, t00=0x0039, t01=0x00dc}
0x59ec…5a18 Head {h00=0x0028, h01=0x0050, text=» ABL(N) RTN99 ABORT IF WRONG VOLUME «, t00=0x0039, t01=0x00f4}
0x5a18…5a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0120}
0x5a22…5a36 Head {h00=0x0010, h01=0x0050, text=»BACK00 EQU *«, t00=0x0039, t01=0x012a}
0x5a36…5a5c Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECB1 GET ECB1 ADDRESS«, t00=0x0039, t01=0x013e}
0x5a5c…5a82 Head {h00=0x0022, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS«, t00=0x0039, t01=0x0164}
0x5a82…5aa4 Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 SKIP CYLINDER ID«, t00=0x0039, t01=0x018a}
0x5aa4…5ac8 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A12 GET PBLK ADDRESS«, t00=0x003a, t01=0x001c}
0x5ac8…5afa Head {h00=0x002e, h01=0x0050, text=» ADK A3,14 POINT TO NEW OUTPUT VOLUME NAME«, t00=0x003a, t01=0x0040}
0x5afa…5b0c Head {h00=0x000e, h01=0x0050, text=» LDK A5,3 «, t00=0x003a, t01=0x0072}
0x5b0c…5b16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0084}
0x5b16…5b2e Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x003a, t01=0x008e}
0x5b2e…5b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00a6}
0x5b38…5b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00b0}
0x5b42…5b70 Head {h00=0x002a, h01=0x0050, text=»BACK05 LDR* A4,A3 GET NEW VOLUME NAME «, t00=0x003a, t01=0x00ba}
0x5b70…5b98 Head {h00=0x0024, h01=0x0050, text=» STR A4,A1 STORE NEW VOLUME NAME«, t00=0x003a, t01=0x00e8}
0x5b98…5baa Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x003a, t01=0x0110}
0x5baa…5bbc Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x003a, t01=0x0122}
0x5bbc…5bce Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x003a, t01=0x0134}
0x5bce…5be4 Head {h00=0x0012, h01=0x0050, text=» RB(P) BACK05 «, t00=0x003a, t01=0x0146}
0x5be4…5bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x015c}
0x5bee…5c1c Head {h00=0x002a, h01=0x0050, text=» LD A11,ENTRY2 GET FLEXIBLE DISC FLAG «, t00=0x003a, t01=0x0166}
0x5c1c…5c44 (59, 0, 398) Head {h00=0x0024, h01=0x0050, text=» RF(Z) BACK07 NOT FLEXIBLE DISC?«, t00=0x003b, t01=0x0004}
0x5c44…5c78 Head {h00=0x0030, h01=0x0050, text=» LDKL A11,499 NO OF SECTORS ON FLEXIBLE DISC«, t00=0x003b, t01=0x002c}
0x5c78…5c8a Head {h00=0x000e, h01=0x0050, text=» RF BACK12«, t00=0x003b, t01=0x0060}
0x5c8a…5c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0072}
0x5c94…5ca8 Head {h00=0x0010, h01=0x0050, text=»BACK07 EQU *«, t00=0x003b, t01=0x007c}
0x5ca8…5cba Head {h00=0x000e, h01=0x0050, text=» ADK A1,20«, t00=0x003b, t01=0x0090}
0x5cba…5ce2 Head {h00=0x0024, h01=0x0050, text=» LDR* A11,A1 GET NO OF CYLINDERS«, t00=0x003b, t01=0x00a2}
0x5ce2…5cf4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,31«, t00=0x003b, t01=0x00ca}
0x5cf4…5cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00dc}
0x5cfe…5d36 Head {h00=0x0034, h01=0x0050, text=»BACK10 ADR* A11,A1 COMPUTE NO OF SECTORS TO COPY«, t00=0x003b, t01=0x00e6}
0x5d36…5d48 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003b, t01=0x011e}
0x5d48…5d5e Head {h00=0x0012, h01=0x0050, text=» RB(P) BACK10 «, t00=0x003b, t01=0x0130}
0x5d5e…5d8c Head {h00=0x002a, h01=0x0050, text=» SUKL A11,1 LAST SECTOR NUMBER TO COPY«, t00=0x003b, t01=0x0146}
0x5d8c…5d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0174}
0x5d96…5daa Head {h00=0x0010, h01=0x0050, text=»BACK12 EQU *«, t00=0x003b, t01=0x017e}
0x5daa…5dd4 (60, 0, 398) Head {h00=0x0026, h01=0x0050, text=» LDKL A10,410 SECTOR SIZE IN BYTES«, t00=0x003c, t01=0x0004}
0x5dd4…5e08 Head {h00=0x0030, h01=0x0050, text=» LDK A1,QBUF1L BUFFER SIZE IN NO OF SECTORS «, t00=0x003c, t01=0x002e}
0x5e08…5e2a Head {h00=0x001e, h01=0x0050, text=» LDK A7,/91 PHYSICAL READ «, t00=0x003c, t01=0x0062}
0x5e2a…5e50 Head {h00=0x0022, h01=0x0050, text=» LDKL A8,ECB1 GET ECB1 ADDRESS«, t00=0x003c, t01=0x0084}
0x5e50…5e76 Head {h00=0x0022, h01=0x0050, text=» CF A14,PHR:10 READ 7 SECTORS «, t00=0x003c, t01=0x00aa}
0x5e76…5e88 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003c, t01=0x00d0}
0x5e88…5e9e Head {h00=0x0012, h01=0x0050, text=» ST A1,ECB2+10«, t00=0x003c, t01=0x00e2}
0x5e9e…5ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00f8}
0x5ea8…5ec0 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x003c, t01=0x0102}
0x5ec0…5eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x011a}
0x5eca…5ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0124}
0x5ed4…5f00 Head {h00=0x0028, h01=0x0050, text=»BACK15 CF A14,BASWRT WRITE 8 SECTORS«, t00=0x003c, t01=0x012e}
0x5f00…5f26 Head {h00=0x0022, h01=0x0050, text=» CF A14,PHREAD READ 8 SECTORS «, t00=0x003c, t01=0x015a}
0x5f26…5f38 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x003c, t01=0x0180}
0x5f38…5f6c (61, 0, 400) Head {h00=0x0030, h01=0x0050, text=» RB(Z) BACK15 REMAINING NO OF SECTORS >= 8? «, t00=0x003d, t01=0x0004}
0x5f6c…5f86 Head {h00=0x0016, h01=0x0050, text=» ADK A1,QBUF1L NO «, t00=0x003d, t01=0x0038}
0x5f86…5fb4 Head {h00=0x002a, h01=0x0050, text=» RF(Z) BACK20 NO MORE SECTORS TO COPY?«, t00=0x003d, t01=0x0052}
0x5fb4…5fe8 Head {h00=0x0030, h01=0x0050, text=» CF A14,BAS:05 YES, WRITE REMAINING SECTORS «, t00=0x003d, t01=0x0080}
0x5fe8…5ff2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00b4}
0x5ff2…601e Head {h00=0x0028, h01=0x0050, text=»BACK20 LDKL A8,ECB2 GET ECB2 ADDRESS«, t00=0x003d, t01=0x00be}
0x601e…603e Head {h00=0x001c, h01=0x0050, text=» LDK A7,/80 TEST STATUS «, t00=0x003d, t01=0x00ea}
0x603e…604a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003d, t01=0x010a}
0x604a…605a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003d, t01=0x0116}
0x605a…6080 Head {h00=0x0022, h01=0x0050, text=» LD A8,ECB2+8 GET RETURN CODE «, t00=0x003d, t01=0x0126}
0x6080…609e Head {h00=0x001a, h01=0x0050, text=» ABL(NZ) RTNOE ERROR? «, t00=0x003d, t01=0x014c}
0x609e…60b0 Head {h00=0x000e, h01=0x0050, text=» ABL RTN99«, t00=0x003d, t01=0x016a}
0x60b0…60ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x017c}
0x60ba…60da Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x003d, t01=0x0186}
0x60da…60e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0016}
0x60e4…6100 Head {h00=0x0018, h01=0x0050, text=»* ***************** «, t00=0x003e, t01=0x0020}
0x6100…611c Head {h00=0x0018, h01=0x0050, text=»* * ENTRY COPVOL * «, t00=0x003e, t01=0x003c}
0x611c…6138 Head {h00=0x0018, h01=0x0050, text=»* ***************** «, t00=0x003e, t01=0x0058}
0x6138…6142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0074}
0x6142…6156 Head {h00=0x0010, h01=0x0050, text=»COPVOL EQU *«, t00=0x003e, t01=0x007e}
0x6156…6184 Head {h00=0x002a, h01=0x0050, text=» ST A14,STACKP SAVE STACKPOINTER VALUE«, t00=0x003e, t01=0x0092}
0x6184…61aa Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A12 GET BUF1 ADDRESS «, t00=0x003e, t01=0x00c0}
0x61aa…61d0 Head {h00=0x0022, h01=0x0050, text=» ST A1,ECB1+2 BUF1 ADR TO ECB1«, t00=0x003e, t01=0x00e6}
0x61d0…61f6 Head {h00=0x0022, h01=0x0050, text=» ST A1,ECB4+2 BUF1 ADR TO ECB4«, t00=0x003e, t01=0x010c}
0x61f6…6220 Head {h00=0x0026, h01=0x0050, text=» LD A2,QBUF2,A12 GET BUF2 ADDRESS «, t00=0x003e, t01=0x0132}
0x6220…6246 Head {h00=0x0022, h01=0x0050, text=» ST A2,ECB2+2 BUF2 ADR TO ECB2«, t00=0x003e, t01=0x015c}
0x6246…626c Head {h00=0x0022, h01=0x0050, text=» ST A2,ECB3+2 BUF2 ADR TO ECB3«, t00=0x003e, t01=0x0182}
0x626c…6294 Head {h00=0x0024, h01=0x0050, text=» LC A2,QPRFC,A12 LOAD PRINTER FC«, t00=0x003f, t01=0x0018}
0x6294…62aa Head {h00=0x0012, h01=0x0050, text=» SC A2,PRECB+1«, t00=0x003f, t01=0x0040}
0x62aa…62cc Head {h00=0x001e, h01=0x0050, text=» LC A2,QFCIN,A12 INPUT FC «, t00=0x003f, t01=0x0056}
0x62cc…62f0 Head {h00=0x0020, h01=0x0050, text=» SC A2,ECB1+1 FC3 TO ECB1+1 «, t00=0x003f, t01=0x0078}
0x62f0…6314 Head {h00=0x0020, h01=0x0050, text=» SC A2,ECB3+1 FC3 TP ECB3+1 «, t00=0x003f, t01=0x009c}
0x6314…6338 Head {h00=0x0020, h01=0x0050, text=» LC A2,QFCOUT,A12 OUTPUT FC «, t00=0x003f, t01=0x00c0}
0x6338…635c Head {h00=0x0020, h01=0x0050, text=» SC A2,ECB2+1 FC4 TO ECB2+1 «, t00=0x003f, t01=0x00e4}
0x635c…6380 Head {h00=0x0020, h01=0x0050, text=» SC A2,ECB4+1 FC4 TO ECB4+1 «, t00=0x003f, t01=0x0108}
0x6380…6392 Head {h00=0x000e, h01=0x0050, text=» CM EXTNO «, t00=0x003f, t01=0x012c}
0x6392…63be Head {h00=0x0028, h01=0x0050, text=» CF A14,LOCK LOCK IF FLEXIBLE DISCS «, t00=0x003f, t01=0x013e}
0x63be…63c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x016a}
0x63c8…63e8 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x003f, t01=0x0174}
0x63e8…63f2 (64, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0004}
0x63f2…6402 Head {h00=0x000c, h01=0x0050, text=»* ******«, t00=0x0040, t01=0x000e}
0x6402…6412 Head {h00=0x000c, h01=0x0050, text=»* *TEST*«, t00=0x0040, t01=0x001e}
0x6412…6422 Head {h00=0x000c, h01=0x0050, text=»* ******«, t00=0x0040, t01=0x002e}
0x6422…642c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x003e}
0x642c…6458 Head {h00=0x0028, h01=0x0050, text=»* COMPARE NAMES IN PBLK AND ON DISC «, t00=0x0040, t01=0x0048}
0x6458…6462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0074}
0x6462…647c Head {h00=0x0016, h01=0x0050, text=»* READ VL1 TO BUF1«, t00=0x0040, t01=0x007e}
0x647c…6486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0098}
0x6486…64a2 Head {h00=0x0018, h01=0x0050, text=» SUR A9,A9 SECTOR 0 «, t00=0x0040, t01=0x00a2}
0x64a2…64b8 Head {h00=0x0012, h01=0x0050, text=» CF A14,READ1 «, t00=0x0040, t01=0x00be}
0x64b8…64de Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A12 GET BUF1 ADDRESS «, t00=0x0040, t01=0x00d4}
0x64de…6500 Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 SKIP CYLINDER ID«, t00=0x0040, t01=0x00fa}
0x6500…6526 Head {h00=0x0022, h01=0x0050, text=» LDR A3,A12 A3 POINTER IN PBLK«, t00=0x0040, t01=0x011c}
0x6526…6538 Head {h00=0x000e, h01=0x0050, text=» ADK A3,8 «, t00=0x0040, t01=0x0142}
0x6538…6554 Head {h00=0x0018, h01=0x0050, text=» LDK A5,3 A5 COUNTER«, t00=0x0040, t01=0x0154}
0x6554…655e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0170}
0x655e…6578 Head {h00=0x0016, h01=0x0050, text=»TST010 LDR* A4,A3 «, t00=0x0040, t01=0x017a}
0x6578…659c (65, 0, 400) Head {h00=0x0020, h01=0x0050, text=» CWR* A4,A1 COMPARE ONE WORD«, t00=0x0041, t01=0x0004}
0x659c…65c0 Head {h00=0x0020, h01=0x0050, text=» ABL(NE) RTN02 ERROR MESSAGE«, t00=0x0041, t01=0x0028}
0x65c0…65d2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0041, t01=0x004c}
0x65d2…65e4 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0041, t01=0x005e}
0x65e4…65fa Head {h00=0x0012, h01=0x0050, text=» SUK A5,1 END?«, t00=0x0041, t01=0x0070}
0x65fa…6614 Head {h00=0x0016, h01=0x0050, text=» RB(P) TST010 NEXT«, t00=0x0041, t01=0x0086}
0x6614…661e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x00a0}
0x661e…6650 Head {h00=0x002e, h01=0x0050, text=» LC A5,QREORG,A12 GET REORGANIZE PARAMETER«, t00=0x0041, t01=0x00aa}
0x6650…6664 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/FF «, t00=0x0041, t01=0x00dc}
0x6664…668a Head {h00=0x0022, h01=0x0050, text=» ABL(Z) BACKUP NO REORGANIZE? «, t00=0x0041, t01=0x00f0}
0x668a…6694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0116}
0x6694…66b4 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0041, t01=0x0120}
0x66b4…66be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0140}
0x66be…66d8 Head {h00=0x0016, h01=0x0050, text=»* READ VL2 TO BUF2«, t00=0x0041, t01=0x014a}
0x66d8…66e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0164}
0x66e2…66f8 Head {h00=0x0012, h01=0x0050, text=» CF A14,READ2 «, t00=0x0041, t01=0x016e}
0x66f8…6722 Head {h00=0x0026, h01=0x0050, text=» LD A2,QBUF2,A12 LOAD BUF3 ADDRESS«, t00=0x0041, t01=0x0184}
0x6722…6744 Head {h00=0x001e, h01=0x0050, text=» ADK A2,2 SKIP CYLINDER ID«, t00=0x0042, t01=0x001e}
0x6744…675e Head {h00=0x0016, h01=0x0050, text=» LDK A5,3 COUNTER «, t00=0x0042, t01=0x0040}
0x675e…6768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x005a}
0x6768…6782 Head {h00=0x0016, h01=0x0050, text=»TST020 LDR* A4,A3 «, t00=0x0042, t01=0x0064}
0x6782…67a6 Head {h00=0x0020, h01=0x0050, text=» CWR* A4,A2 COMPARE ONE WORD«, t00=0x0042, t01=0x007e}
0x67a6…67ca Head {h00=0x0020, h01=0x0050, text=» ABL(NE) RTN02 ERROR MESSAGE«, t00=0x0042, t01=0x00a2}
0x67ca…67ee Head {h00=0x0020, h01=0x0050, text=» ADK A3,2 A3 POINTER IN PBLK«, t00=0x0042, t01=0x00c6}
0x67ee…6800 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0042, t01=0x00ea}
0x6800…6812 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0042, t01=0x00fc}
0x6812…682c Head {h00=0x0016, h01=0x0050, text=» RB(P) TST020 NEXT«, t00=0x0042, t01=0x010e}
0x682c…6836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0128}
0x6836…6856 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0042, t01=0x0132}
0x6856…6860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x0152}
0x6860…686a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x015c}
0x686a…6894 Head {h00=0x0026, h01=0x0050, text=» ADK A2,26 POINT TO 'TO' ON DISC2 «, t00=0x0042, t01=0x0166}
0x6894…68b2 Head {h00=0x001a, h01=0x0050, text=» LDR* A4,A2 'TO' TO A4«, t00=0x0042, t01=0x0190}
0x68b2…68c6 Head {h00=0x0010, h01=0x0050, text=» CWK A4,'TO'«, t00=0x0043, t01=0x001e}
0x68c6…68f0 Head {h00=0x0026, h01=0x0050, text=» ABL(NE) RTN06 FAULTY DISC FORMAT «, t00=0x0043, t01=0x0032}
0x68f0…68fe Head {h00=0x000a, h01=0x0050, text=»*DISC1«, t00=0x0043, t01=0x005c}
0x68fe…691e Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A1 VTOC LENGTH «, t00=0x0043, t01=0x006a}
0x691e…6932 Head {h00=0x0010, h01=0x0050, text=» ST A3,VLEN1«, t00=0x0043, t01=0x008a}
0x6932…6944 Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0043, t01=0x009e}
0x6944…6962 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A1 VTOC BASE «, t00=0x0043, t01=0x00b0}
0x6962…6976 Head {h00=0x0010, h01=0x0050, text=» ST A3,VBAS1«, t00=0x0043, t01=0x00ce}
0x6976…6984 Head {h00=0x000a, h01=0x0050, text=»*DISC2«, t00=0x0043, t01=0x00e2}
0x6984…6996 Head {h00=0x000e, h01=0x0050, text=» SUK A2,26«, t00=0x0043, t01=0x00f0}
0x6996…69b6 Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A2 VTOC LENGTH «, t00=0x0043, t01=0x0102}
0x69b6…69ca Head {h00=0x0010, h01=0x0050, text=» ST A3,VLEN2«, t00=0x0043, t01=0x0122}
0x69ca…69dc Head {h00=0x000e, h01=0x0050, text=» ADK A2,4 «, t00=0x0043, t01=0x0136}
0x69dc…69fa Head {h00=0x001a, h01=0x0050, text=» LDR* A4,A2 VTOC BASE «, t00=0x0043, t01=0x0148}
0x69fa…6a0e Head {h00=0x0010, h01=0x0050, text=» ST A4,VBAS2«, t00=0x0043, t01=0x0166}
0x6a0e…6a18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x017a}
0x6a18…6a3c Head {h00=0x0020, h01=0x0050, text=» ADR A3,A4 VTOC LENGTH+BASE «, t00=0x0043, t01=0x0184}
0x6a3c…6a4e Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0044, t01=0x0018}
0x6a4e…6a7a Head {h00=0x0028, h01=0x0050, text=» LDR A10,A3 LAST VTOC2 SECTOR IN A10«, t00=0x0044, t01=0x002a}
0x6a7a…6aa6 Head {h00=0x0028, h01=0x0050, text=» ST A10,VLAST2 LAST SECTOR IN VTOC2 «, t00=0x0044, t01=0x0056}
0x6aa6…6ac6 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0044, t01=0x0082}
0x6ac6…6aea Head {h00=0x0020, h01=0x0050, text=»* CHECK STATUS BIT IN VTOC2 «, t00=0x0044, t01=0x00a2}
0x6aea…6b1c Head {h00=0x002e, h01=0x0050, text=» ADK A4,1 SECTOR AFTER FREE SPACE ADM TAB «, t00=0x0044, t01=0x00c6}
0x6b1c…6b2e Head {h00=0x000e, h01=0x0050, text=» LDR A9,A4«, t00=0x0044, t01=0x00f8}
0x6b2e…6b5c Head {h00=0x002a, h01=0x0050, text=» LDKL A8,QVTBLF GET VTOC BLOCK FACTOR «, t00=0x0044, t01=0x010a}
0x6b5c…6b70 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/FF «, t00=0x0044, t01=0x0138}
0x6b70…6b86 Head {h00=0x0012, h01=0x0050, text=» CF A14,SEFFE2«, t00=0x0044, t01=0x014c}
0x6b86…6bb4 Head {h00=0x002a, h01=0x0050, text=»* ANY ENTRIES WITH /FF IN STATUS BIT? «, t00=0x0044, t01=0x0162}
0x6bb4…6bc6 Head {h00=0x000e, h01=0x0050, text=» CWR A6,A7«, t00=0x0044, t01=0x0190}
0x6bc6…6bea Head {h00=0x0020, h01=0x0050, text=» RF(NE) TEST40 END OF VTOC2 «, t00=0x0045, t01=0x0012}
0x6bea…6c0c Head {h00=0x001e, h01=0x0050, text=»* TEST FILE ORG. BADSPOT? «, t00=0x0045, t01=0x0036}
0x6c0c…6c34 Head {h00=0x0024, h01=0x0050, text=»TST30 SUK A2,14 POINT TO BADSPOT«, t00=0x0045, t01=0x0058}
0x6c34…6c4c Head {h00=0x0014, h01=0x0050, text=» LDK A7,/42 'B' «, t00=0x0045, t01=0x0080}
0x6c4c…6c5e Head {h00=0x000e, h01=0x0050, text=» CCR A7,A2«, t00=0x0045, t01=0x0098}
0x6c5e…6c92 Head {h00=0x0030, h01=0x0050, text=» ABL(NE) RTN03 NOT A BADSPOT. DISC NOT EMPTY«, t00=0x0045, t01=0x00aa}
0x6c92…6cb2 Head {h00=0x001c, h01=0x0050, text=»* BADSPOT. END OF VTOC2 «, t00=0x0045, t01=0x00de}
0x6cb2…6ce0 Head {h00=0x002a, h01=0x0050, text=»* WRITE FF IN ALL STATUS BITS WITH CC «, t00=0x0045, t01=0x00fe}
0x6ce0…6cfc Head {h00=0x0018, h01=0x0050, text=»TEST40 CF A14,FFINCC«, t00=0x0045, t01=0x012c}
0x6cfc…6d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0148}
0x6d06…6d26 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0045, t01=0x0152}
0x6d26…6d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0172}
0x6d30…6d40 Head {h00=0x000c, h01=0x0050, text=»* ******«, t00=0x0045, t01=0x017c}
0x6d40…6d50 Head {h00=0x000c, h01=0x0050, text=»* *VTOC*«, t00=0x0045, t01=0x018c}
0x6d50…6d60 Head {h00=0x000c, h01=0x0050, text=»* ******«, t00=0x0046, t01=0x000c}
0x6d60…6d6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x001c}
0x6d6a…6dac Head {h00=0x003e, h01=0x0050, text=»* TAKE FIRST NOT COPIED FILE ENTRY IN VTOC1. SEEK THROUGH«, t00=0x0046, t01=0x0026}
0x6dac…6dec Head {h00=0x003c, h01=0x0050, text=»* REST OF VTOC FOR ANY MORE FILE EXTENTS. FILE RECORD IS«, t00=0x0046, t01=0x0068}
0x6dec…6e18 Head {h00=0x0028, h01=0x0050, text=»* STORED WITH VTOC SECTOR IN SECREC «, t00=0x0046, t01=0x00a8}
0x6e18…6e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00d4}
0x6e22…6e4e Head {h00=0x0028, h01=0x0050, text=»VTOC01 LD A9,VBAS2 VTOC2 BASE TO A9«, t00=0x0046, t01=0x00de}
0x6e4e…6e7c Head {h00=0x002a, h01=0x0050, text=» CF A14,READ2 READ VTOC2 BASE TO BUF2 «, t00=0x0046, t01=0x010a}
0x6e7c…6ea6 Head {h00=0x0026, h01=0x0050, text=» LD A2,QBUF2,A12 LOAD BUF2 ADDRESS«, t00=0x0046, t01=0x0138}
0x6ea6…6eb8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0046, t01=0x0162}
0x6eb8…6eca Head {h00=0x000e, h01=0x0050, text=» ADK A2,4 «, t00=0x0046, t01=0x0174}
0x6eca…6ef0 Head {h00=0x0022, h01=0x0050, text=» LDK A4,50 COUNTER OF ENTRIES «, t00=0x0046, t01=0x0186}
0x6ef0…6efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x001c}
0x6efa…6f26 Head {h00=0x0028, h01=0x0050, text=»VTOC05 LDR* A3,A2 FREE LENGTH TO A3 «, t00=0x0047, t01=0x0026}
0x6f26…6f38 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0047, t01=0x0052}
0x6f38…6f60 Head {h00=0x0024, h01=0x0050, text=» ADK A2,8 TAKE NEXT FREE LENGTH «, t00=0x0047, t01=0x0064}
0x6f60…6f72 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0047, t01=0x008c}
0x6f72…6f92 Head {h00=0x001c, h01=0x0050, text=» RB(P) VTOC05 NEXT ENTRY«, t00=0x0047, t01=0x009e}
0x6f92…6fc2 Head {h00=0x002c, h01=0x0050, text=» ST A1,TOTFRE TOTAL FREE LENGTH ON DISC2«, t00=0x0047, t01=0x00be}
0x6fc2…6fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x00ee}
0x6fcc…6fe4 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x0047, t01=0x00f8}
0x6fe4…6fee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0110}
0x6fee…6ff8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x011a}
0x6ff8…7020 Head {h00=0x0024, h01=0x0050, text=»VTOC10 LD A10,VLEN1 VTOC1 LENGTH«, t00=0x0047, t01=0x0124}
0x7020…7032 Head {h00=0x000e, h01=0x0050, text=» CM EXTNO «, t00=0x0047, t01=0x014c}
0x7032…7052 Head {h00=0x001c, h01=0x0050, text=» LD A4,VBAS1 VTOC1 BASE «, t00=0x0047, t01=0x015e}
0x7052…707c Head {h00=0x0026, h01=0x0050, text=» LDK A5,QVRECL VTOC RECORD LENGTH «, t00=0x0047, t01=0x017e}
0x707c…708e Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0048, t01=0x0018}
0x708e…70a2 Head {h00=0x0010, h01=0x0050, text=» ADR A10,A4 «, t00=0x0048, t01=0x002a}
0x70a2…70d0 Head {h00=0x002a, h01=0x0050, text=» ST A10,VLAST1 LAST VTOC SECTOR DISC1 «, t00=0x0048, t01=0x003e}
0x70d0…70fa Head {h00=0x0026, h01=0x0050, text=» ADK A4,2 FIRST FILE ENTRY SECTOR «, t00=0x0048, t01=0x006c}
0x70fa…7130 Head {h00=0x0032, h01=0x0050, text=»* SEEK FIRST FILE ENTRY WITH /FF IN STATUS BIT«, t00=0x0048, t01=0x0096}
0x7130…715a Head {h00=0x0026, h01=0x0050, text=» LDKL A8,QVTBLF VTOC BLOCK FACTOR «, t00=0x0048, t01=0x00cc}
0x715a…716c Head {h00=0x000e, h01=0x0050, text=» LDR A9,A4«, t00=0x0048, t01=0x00f6}
0x716c…718c Head {h00=0x001c, h01=0x0050, text=» LDK A7,/FF STATUS WORD «, t00=0x0048, t01=0x0108}
0x718c…71a2 Head {h00=0x0012, h01=0x0050, text=» CF A14,SEFFE1«, t00=0x0048, t01=0x0128}
0x71a2…71c8 Head {h00=0x0022, h01=0x0050, text=» CWR A6,A7 /FF IN STATUS BIT? «, t00=0x0048, t01=0x013e}
0x71c8…71f6 Head {h00=0x002a, h01=0x0050, text=» ABL(NE) RTN00 NO MORE SECTORS TO COPY«, t00=0x0048, t01=0x0164}
0x71f6…720e (73, 0, 400) Head {h00=0x0014, h01=0x0050, text=»* CHECK FILE ORG«, t00=0x0049, t01=0x0004}
0x720e…7220 Head {h00=0x000e, h01=0x0050, text=» SUK A1,14«, t00=0x0049, t01=0x001c}
0x7220…7232 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0049, t01=0x002e}
0x7232…7250 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/42 'B' TO A7 «, t00=0x0049, t01=0x0040}
0x7250…7272 Head {h00=0x001e, h01=0x0050, text=» LCR A6,A1 FILE ORG TO A6 «, t00=0x0049, t01=0x005e}
0x7272…728a Head {h00=0x0014, h01=0x0050, text=» CWR A6,A7 'B' ?«, t00=0x0049, t01=0x0080}
0x728a…72ae Head {h00=0x0020, h01=0x0050, text=» RF(NE) VTOC20 NOT A BADSPOT«, t00=0x0049, t01=0x0098}
0x72ae…72ea Head {h00=0x0038, h01=0x0050, text=»* BADSPOT. BADSPOT STORED LAST IN VTOC. END OF VTOC «, t00=0x0049, t01=0x00bc}
0x72ea…7312 Head {h00=0x0024, h01=0x0050, text=» ABL RTN00 NO MORE FILES TO COPY«, t00=0x0049, t01=0x00f8}
0x7312…731c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0120}
0x731c…7334 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x0049, t01=0x012a}
0x7334…7364 Head {h00=0x002c, h01=0x0050, text=»* TAKE BLOCKING FACTOR AND RECORD LENGTH«, t00=0x0049, t01=0x0142}
0x7364…7380 Head {h00=0x0018, h01=0x0050, text=»VTOC20 ST A6,FILORG «, t00=0x0049, t01=0x0172}
0x7380…7392 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0049, t01=0x018e}
0x7392…73a4 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x004a, t01=0x0010}
0x73a4…73b6 Head {h00=0x000e, h01=0x0050, text=» LCR A6,A1«, t00=0x004a, t01=0x0022}
0x73b6…73cc Head {h00=0x0012, h01=0x0050, text=» ST A6,FILBLF «, t00=0x004a, t01=0x0034}
0x73cc…73de Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x004a, t01=0x004a}
0x73de…73f2 Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A1 «, t00=0x004a, t01=0x005c}
0x73f2…7408 Head {h00=0x0012, h01=0x0050, text=» ST A6,FILRCL «, t00=0x004a, t01=0x0070}
0x7408…741a Head {h00=0x000e, h01=0x0050, text=» SUK A1,10«, t00=0x004a, t01=0x0086}
0x741a…742e Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x004a, t01=0x0098}
0x742e…7444 Head {h00=0x0012, h01=0x0050, text=» ST A3,TFILEN «, t00=0x004a, t01=0x00ac}
0x7444…746e Head {h00=0x0026, h01=0x0050, text=» SUK A1,4 POINT TO FILE EXTENT NO «, t00=0x004a, t01=0x00c2}
0x746e…7482 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A1 «, t00=0x004a, t01=0x00ec}
0x7482…749a Head {h00=0x0014, h01=0x0050, text=» ST A3,EXTSTP+2 «, t00=0x004a, t01=0x0100}
0x749a…74c6 Head {h00=0x0028, h01=0x0050, text=» SC A9,SECREC+2 SECTOR NO TO SECREC «, t00=0x004a, t01=0x0118}
0x74c6…74de Head {h00=0x0014, h01=0x0050, text=» LDK A6,QVTBLF «, t00=0x004a, t01=0x0144}
0x74de…7500 Head {h00=0x001e, h01=0x0050, text=» SUR A6,A8 RECORD NO TO A6«, t00=0x004a, t01=0x015c}
0x7500…7518 Head {h00=0x0014, h01=0x0050, text=» SC A6,SECREC+3 «, t00=0x004a, t01=0x017e}
0x7518…752a Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x004b, t01=0x0008}
0x752a…753c Head {h00=0x000e, h01=0x0050, text=» LDK A2,6 «, t00=0x004b, t01=0x001a}
0x753c…7546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x002c}
0x7546…7560 Head {h00=0x0016, h01=0x0050, text=»VTOC22 LDR* A3,A1 «, t00=0x004b, t01=0x0036}
0x7560…7578 Head {h00=0x0014, h01=0x0050, text=» ST A3,FILNAM,A2«, t00=0x004b, t01=0x0050}
0x7578…758a Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x004b, t01=0x0068}
0x758a…759c Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x004b, t01=0x007a}
0x759c…75b2 Head {h00=0x0012, h01=0x0050, text=» RB(NN) VTOC22«, t00=0x004b, t01=0x008c}
0x75b2…75d4 Head {h00=0x001e, h01=0x0050, text=» ADK A1,2 START OF RECORD «, t00=0x004b, t01=0x00a2}
0x75d4…7604 Head {h00=0x002c, h01=0x0050, text=»* TAKE NEXT FILE ENTRY AND COMPARE NAMES«, t00=0x004b, t01=0x00c4}
0x7604…762e Head {h00=0x0026, h01=0x0050, text=» LDR A11,A8 A11 COUNTER OF RECORDS«, t00=0x004b, t01=0x00f4}
0x762e…7654 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A1 A2 POINTER IN VTOC «, t00=0x004b, t01=0x011e}
0x7654…766c Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x004b, t01=0x0144}
0x766c…7676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x015c}
0x7676…7680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0166}
0x7680…76a8 Head {h00=0x0024, h01=0x0050, text=»VTOC23 ADK A2,QVRECL REC LENGTH «, t00=0x004b, t01=0x0170}
0x76a8…76b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0008}
0x76b2…76e2 Head {h00=0x002c, h01=0x0050, text=»VTOC24 ADK A2,1 A2 POINT TO NEXT RECORD «, t00=0x004c, t01=0x0012}
0x76e2…76f6 Head {h00=0x0010, h01=0x0050, text=»VTOC25 EQU *«, t00=0x004c, t01=0x0042}
0x76f6…771c Head {h00=0x0022, h01=0x0050, text=» SUKL A11,1 COUNTER OF RECORDS«, t00=0x004c, t01=0x0056}
0x771c…7742 Head {h00=0x0022, h01=0x0050, text=» RF(N) VTOC30 READ NEXT SECTOR«, t00=0x004c, t01=0x007c}
0x7742…7764 Head {h00=0x001e, h01=0x0050, text=» ADK A2,QVRECL STATUS BIT «, t00=0x004c, t01=0x00a2}
0x7764…777a Head {h00=0x0012, h01=0x0050, text=»* CHECK STATUS«, t00=0x004c, t01=0x00c4}
0x777a…778e Head {h00=0x0010, h01=0x0050, text=» LDK A7,/FF «, t00=0x004c, t01=0x00da}
0x778e…77a0 Head {h00=0x000e, h01=0x0050, text=» CCR A7,A2«, t00=0x004c, t01=0x00ee}
0x77a0…77bc Head {h00=0x0018, h01=0x0050, text=» RB(NE) VTOC24 NEXT «, t00=0x004c, t01=0x0100}
0x77bc…77d4 Head {h00=0x0014, h01=0x0050, text=»* CHECK FILE ORG«, t00=0x004c, t01=0x011c}
0x77d4…77e6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,14«, t00=0x004c, t01=0x0134}
0x77e6…77f8 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x004c, t01=0x0146}
0x77f8…7810 Head {h00=0x0014, h01=0x0050, text=» LDK A7,/42 'B' «, t00=0x004c, t01=0x0158}
0x7810…7832 Head {h00=0x001e, h01=0x0050, text=» LCR A6,A2 FILE ORG TO A6 «, t00=0x004c, t01=0x0170}
0x7832…7844 (77, 0, 400) Head {h00=0x000e, h01=0x0050, text=» CWR A6,A7«, t00=0x004d, t01=0x0004}
0x7844…787a Head {h00=0x0032, h01=0x0050, text=» RF(E) VTOC30 BADSPOT. NO MORE SECTOR IN VTOC1«, t00=0x004d, t01=0x0016}
0x787a…7894 Head {h00=0x0016, h01=0x0050, text=»* COMPARE FILE ORG«, t00=0x004d, t01=0x004c}
0x7894…78aa Head {h00=0x0012, h01=0x0050, text=» LD A3,FILORG «, t00=0x004d, t01=0x0066}
0x78aa…78bc Head {h00=0x000e, h01=0x0050, text=» CWR A6,A3«, t00=0x004d, t01=0x007c}
0x78bc…78d2 Head {h00=0x0012, h01=0x0050, text=» RF(E) VTOC27 «, t00=0x004d, t01=0x008e}
0x78d2…78e4 Head {h00=0x000e, h01=0x0050, text=» ADK A2,14«, t00=0x004d, t01=0x00a4}
0x78e4…78f6 Head {h00=0x000e, h01=0x0050, text=» RB VTOC24«, t00=0x004d, t01=0x00b6}
0x78f6…790e Head {h00=0x0014, h01=0x0050, text=»* COMPARE NAMES «, t00=0x004d, t01=0x00c8}
0x790e…792e Head {h00=0x001c, h01=0x0050, text=»VTOC27 LDK A6,4 COUNTER «, t00=0x004d, t01=0x00e0}
0x792e…7940 Head {h00=0x000e, h01=0x0050, text=» SUK A2,27«, t00=0x004d, t01=0x0100}
0x7940…794a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0112}
0x794a…7962 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x004d, t01=0x011c}
0x7962…796c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0134}
0x796c…7976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x013e}
0x7976…799a Head {h00=0x0020, h01=0x0050, text=»VTOC28 LDR* A3,A1 FILE NAME1«, t00=0x004d, t01=0x0148}
0x799a…79b8 Head {h00=0x001a, h01=0x0050, text=» CWR* A3,A2 FILE NAME2«, t00=0x004d, t01=0x016c}
0x79b8…79de Head {h00=0x0022, h01=0x0050, text=» RF(NE) VTOC50 NAMES NOT EQUAL«, t00=0x004d, t01=0x018a}
0x79de…79f0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x004e, t01=0x0020}
0x79f0…7a02 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x004e, t01=0x0032}
0x7a02…7a14 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x004e, t01=0x0044}
0x7a14…7a2a Head {h00=0x0012, h01=0x0050, text=» RB(P) VTOC28 «, t00=0x004e, t01=0x0056}
0x7a2a…7a5e Head {h00=0x0030, h01=0x0050, text=» RF STR010 NAMES EQUAL. STORE SECTOR RECORD«, t00=0x004e, t01=0x006c}
0x7a5e…7a74 Head {h00=0x0012, h01=0x0050, text=»* NEXT SECTOR «, t00=0x004e, t01=0x00a0}
0x7a74…7a98 Head {h00=0x0020, h01=0x0050, text=»VTOC30 ADKL A9,1 NEXT SECTOR«, t00=0x004e, t01=0x00b6}
0x7a98…7ac0 Head {h00=0x0024, h01=0x0050, text=» LD A10,VLAST1 LAST VTOC1 SECTOR«, t00=0x004e, t01=0x00da}
0x7ac0…7ae0 Head {h00=0x001c, h01=0x0050, text=» CWR A9,A10 LAST SECTOR?«, t00=0x004e, t01=0x0102}
0x7ae0…7b02 Head {h00=0x001e, h01=0x0050, text=» RF(G) COPY10 LAST SECTOR «, t00=0x004e, t01=0x0122}
0x7b02…7b24 Head {h00=0x001e, h01=0x0050, text=»* READ NEXT SECTOR TO BUF2«, t00=0x004e, t01=0x0144}
0x7b24…7b3e Head {h00=0x0016, h01=0x0050, text=» LDR A3,A8 SAVE A8«, t00=0x004e, t01=0x0166}
0x7b3e…7b48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0180}
0x7b48…7b64 Head {h00=0x0018, h01=0x0050, text=»VTOC40 LDKL A8,ECB3 «, t00=0x004e, t01=0x018a}
0x7b64…7b78 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/91 «, t00=0x004f, t01=0x0016}
0x7b78…7b98 Head {h00=0x001c, h01=0x0050, text=» ST A9,ECB3+10 SECTOR NO«, t00=0x004f, t01=0x002a}
0x7b98…7ba4 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004f, t01=0x004a}
0x7ba4…7bb4 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x004f, t01=0x0056}
0x7bb4…7bdc Head {h00=0x0024, h01=0x0050, text=» LD A8,ECB3+8 RETURN CODE TO A8 «, t00=0x004f, t01=0x0066}
0x7bdc…7bf0 Head {h00=0x0010, h01=0x0050, text=» ANKL A8,/80«, t00=0x004f, t01=0x008e}
0x7bf0…7c1a Head {h00=0x0026, h01=0x0050, text=» RB(NZ) VTOC40 NEW VOLUME LOADED? «, t00=0x004f, t01=0x00a2}
0x7c1a…7c42 Head {h00=0x0024, h01=0x0050, text=» LD A8,ECB3+8 RETURN CODE TO A8 «, t00=0x004f, t01=0x00cc}
0x7c42…7c58 Head {h00=0x0012, h01=0x0050, text=» ANKL A8,/820F«, t00=0x004f, t01=0x00f4}
0x7c58…7c7e Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) RTNOE1 ERROR MESSAGE «, t00=0x004f, t01=0x010a}
0x7c7e…7ca2 Head {h00=0x0020, h01=0x0050, text=» LDR A8,A3 SAVED VALUE TO A8«, t00=0x004f, t01=0x0130}
0x7ca2…7cba Head {h00=0x0014, h01=0x0050, text=» LDKL A11,QVTBLF«, t00=0x004f, t01=0x0154}
0x7cba…7cd2 Head {h00=0x0014, h01=0x0050, text=» LD A2,QBUF2,A12«, t00=0x004f, t01=0x016c}
0x7cd2…7ce4 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x004f, t01=0x0184}
0x7ce4…7cf6 Head {h00=0x000e, h01=0x0050, text=» RB VTOC25«, t00=0x0050, t01=0x0008}
0x7cf6…7d30 Head {h00=0x0036, h01=0x0050, text=»* NAMES NOT EQUAL. RESET POINTERS TO RECORD START «, t00=0x0050, t01=0x001a}
0x7d30…7d48 Head {h00=0x0014, h01=0x0050, text=»VTOC50 LDK A3,4 «, t00=0x0050, t01=0x0054}
0x7d48…7d5a Head {h00=0x000e, h01=0x0050, text=» CWR A3,A6«, t00=0x0050, t01=0x006c}
0x7d5a…7d70 Head {h00=0x0012, h01=0x0050, text=» RF(E) VTOC52 «, t00=0x0050, t01=0x007e}
0x7d70…7d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0094}
0x7d7a…7d92 Head {h00=0x0014, h01=0x0050, text=»VTOC51 SUK A1,2 «, t00=0x0050, t01=0x009e}
0x7d92…7da4 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0050, t01=0x00b6}
0x7da4…7db6 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0050, t01=0x00c8}
0x7db6…7dc8 Head {h00=0x000e, h01=0x0050, text=» CWR A6,A3«, t00=0x0050, t01=0x00da}
0x7dc8…7dde Head {h00=0x0012, h01=0x0050, text=» RB(NE) VTOC51«, t00=0x0050, t01=0x00ec}
0x7dde…7de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0102}
0x7de8…7e12 Head {h00=0x0026, h01=0x0050, text=»VTOC52 RB VTOC23 TAKE NEXT RECORD «, t00=0x0050, t01=0x010c}
0x7e12…7e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0136}
0x7e1c…7e3c Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0050, t01=0x0140}
0x7e3c…7e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0160}
0x7e46…7e58 Head {h00=0x000e, h01=0x0050, text=»* ******* «, t00=0x0050, t01=0x016a}
0x7e58…7e6a Head {h00=0x000e, h01=0x0050, text=»* *STORE* «, t00=0x0050, t01=0x017c}
0x7e6a…7e7c Head {h00=0x000e, h01=0x0050, text=»* ******* «, t00=0x0050, t01=0x018e}
0x7e7c…7e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0010}
0x7e86…7ecc Head {h00=0x0042, h01=0x0050, text=»* STORE FILE EXTENT NO IN TABLE EXTSTP,VTOC SEC NO AND REC NO«, t00=0x0051, t01=0x001a}
0x7ecc…7ee6 Head {h00=0x0016, h01=0x0050, text=»* IN TABLE SECREC «, t00=0x0051, t01=0x0060}
0x7ee6…7f1e Head {h00=0x0034, h01=0x0050, text=»* TABLES ARE SORTED IN ASCENDING EXTENT NO ORDES«, t00=0x0051, t01=0x007a}
0x7f1e…7f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00b2}
0x7f28…7f46 Head {h00=0x001a, h01=0x0050, text=»STR010 LDK A3,QVTBLF «, t00=0x0051, t01=0x00bc}
0x7f46…7f5a Head {h00=0x0010, h01=0x0050, text=» SUR A3,A11 «, t00=0x0051, t01=0x00da}
0x7f5a…7f70 Head {h00=0x0012, h01=0x0050, text=» LD A10,EXTNO «, t00=0x0051, t01=0x00ee}
0x7f70…7f82 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0051, t01=0x0104}
0x7f82…7f98 Head {h00=0x0012, h01=0x0050, text=» ADS A7,EXTNO «, t00=0x0051, t01=0x0116}
0x7f98…7faa Head {h00=0x000e, h01=0x0050, text=» ADK A2,6 «, t00=0x0051, t01=0x012c}
0x7faa…7fd4 Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A2 GET FILE EXTENT LENGTH«, t00=0x0051, t01=0x013e}
0x7fd4…7fea Head {h00=0x0012, h01=0x0050, text=» ADS A7,TFILEN«, t00=0x0051, t01=0x0168}
0x7fea…8014 Head {h00=0x0026, h01=0x0050, text=» SUK A2,4 POINT TO FILE EXTENT NO «, t00=0x0051, t01=0x017e}
0x8014…8028 Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A2 «, t00=0x0052, t01=0x0018}
0x8028…803c Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x0052, t01=0x002c}
0x803c…805e Head {h00=0x001e, h01=0x0050, text=» RF(Z) STR040 TWO EXTENTS «, t00=0x0052, t01=0x0040}
0x805e…8068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0062}
0x8068…807a Head {h00=0x000e, h01=0x0050, text=» LDK A6,2 «, t00=0x0052, t01=0x006c}
0x807a…808e Head {h00=0x0010, h01=0x0050, text=» CWR A6,A10 «, t00=0x0052, t01=0x007e}
0x808e…80b2 Head {h00=0x0020, h01=0x0050, text=» RF(E) STR030 THREE EXTENTS «, t00=0x0052, t01=0x0092}
0x80b2…80c8 Head {h00=0x0012, h01=0x0050, text=»* FOUR EXTENTS«, t00=0x0052, t01=0x00b6}
0x80c8…80e0 Head {h00=0x0014, h01=0x0050, text=» LD A6,EXTSTP+6 «, t00=0x0052, t01=0x00cc}
0x80e0…80f2 Head {h00=0x000e, h01=0x0050, text=» CWR A6,A7«, t00=0x0052, t01=0x00e4}
0x80f2…810e Head {h00=0x0018, h01=0x0050, text=» RF(G) STR020 A6>A7 «, t00=0x0052, t01=0x00f6}
0x810e…812e Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0052, t01=0x0112}
0x812e…8138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x0132}
0x8138…815e Head {h00=0x0022, h01=0x0050, text=»* A7>A6 STORE A7 LAST IN TABLE«, t00=0x0052, t01=0x013c}
0x815e…8176 Head {h00=0x0014, h01=0x0050, text=» ST A7,EXTSTP+8 «, t00=0x0052, t01=0x0162}
0x8176…818e Head {h00=0x0014, h01=0x0050, text=» SC A9,SECREC+8 «, t00=0x0052, t01=0x017a}
0x818e…81a6 (83, 0, 400) Head {h00=0x0014, h01=0x0050, text=» SC A3,SECREC+9 «, t00=0x0053, t01=0x0004}
0x81a6…81c6 Head {h00=0x001c, h01=0x0050, text=» RF STR050 FOUR EXTENTS «, t00=0x0053, t01=0x001c}
0x81c6…81d6 Head {h00=0x000c, h01=0x0050, text=»* A6>A7 «, t00=0x0053, t01=0x003c}
0x81d6…81f4 Head {h00=0x001a, h01=0x0050, text=»STR020 ST A6,EXTSTP+8 «, t00=0x0053, t01=0x004c}
0x81f4…820c Head {h00=0x0014, h01=0x0050, text=» LD A10,SECREC+6«, t00=0x0053, t01=0x006a}
0x820c…8236 Head {h00=0x0026, h01=0x0050, text=» ST A10,SECREC+8 MOVE A10 ONE WORD«, t00=0x0053, t01=0x0082}
0x8236…8252 Head {h00=0x0018, h01=0x0050, text=»* THREE EXTENTS LEFT«, t00=0x0053, t01=0x00ac}
0x8252…8270 Head {h00=0x001a, h01=0x0050, text=»STR030 LD A6,EXTSTP+4 «, t00=0x0053, t01=0x00c8}
0x8270…8282 Head {h00=0x000e, h01=0x0050, text=» CWR A6,A7«, t00=0x0053, t01=0x00e6}
0x8282…829e Head {h00=0x0018, h01=0x0050, text=» RF(G) STR035 A6>A7 «, t00=0x0053, t01=0x00f8}
0x829e…82ae Head {h00=0x000c, h01=0x0050, text=»* A7>A6 «, t00=0x0053, t01=0x0114}
0x82ae…82c6 Head {h00=0x0014, h01=0x0050, text=» ST A7,EXTSTP+6 «, t00=0x0053, t01=0x0124}
0x82c6…82de Head {h00=0x0014, h01=0x0050, text=» SC A9,SECREC+6 «, t00=0x0053, t01=0x013c}
0x82de…82f6 Head {h00=0x0014, h01=0x0050, text=» SC A3,SECREC+7 «, t00=0x0053, t01=0x0154}
0x82f6…8308 Head {h00=0x000e, h01=0x0050, text=» RF STR050«, t00=0x0053, t01=0x016c}
0x8308…8318 Head {h00=0x000c, h01=0x0050, text=»* A6>A7 «, t00=0x0053, t01=0x017e}
0x8318…8336 Head {h00=0x001a, h01=0x0050, text=»STR035 ST A6,EXTSTP+6 «, t00=0x0053, t01=0x018e}
0x8336…834e Head {h00=0x0014, h01=0x0050, text=» LD A10,SECREC+4«, t00=0x0054, t01=0x001c}
0x834e…8366 Head {h00=0x0014, h01=0x0050, text=» ST A10,SECREC+6«, t00=0x0054, t01=0x0034}
0x8366…8386 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0054, t01=0x004c}
0x8386…8390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x006c}
0x8390…83aa Head {h00=0x0016, h01=0x0050, text=»* TWO EXTENTS LEFT«, t00=0x0054, t01=0x0076}
0x83aa…83c8 Head {h00=0x001a, h01=0x0050, text=»STR040 LD A6,EXTSTP+2 «, t00=0x0054, t01=0x0090}
0x83c8…83da Head {h00=0x000e, h01=0x0050, text=» CWR A6,A7«, t00=0x0054, t01=0x00ae}
0x83da…83f6 Head {h00=0x0018, h01=0x0050, text=» RF(G) STR045 A6>A7 «, t00=0x0054, t01=0x00c0}
0x83f6…8406 Head {h00=0x000c, h01=0x0050, text=»* A7>A6 «, t00=0x0054, t01=0x00dc}
0x8406…841e Head {h00=0x0014, h01=0x0050, text=» ST A7,EXTSTP+4 «, t00=0x0054, t01=0x00ec}
0x841e…8436 Head {h00=0x0014, h01=0x0050, text=» SC A9,SECREC+4 «, t00=0x0054, t01=0x0104}
0x8436…844e Head {h00=0x0014, h01=0x0050, text=» SC A3,SECREC+5 «, t00=0x0054, t01=0x011c}
0x844e…8460 Head {h00=0x000e, h01=0x0050, text=» RF STR050«, t00=0x0054, t01=0x0134}
0x8460…8470 Head {h00=0x000c, h01=0x0050, text=»* A6>A7 «, t00=0x0054, t01=0x0146}
0x8470…848e Head {h00=0x001a, h01=0x0050, text=»STR045 ST A7,EXTSTP+2 «, t00=0x0054, t01=0x0156}
0x848e…84a6 Head {h00=0x0014, h01=0x0050, text=» ST A6,EXTSTP+4 «, t00=0x0054, t01=0x0174}
0x84a6…84be Head {h00=0x0014, h01=0x0050, text=» LD A10,SECREC+2«, t00=0x0054, t01=0x018c}
0x84be…84d6 Head {h00=0x0014, h01=0x0050, text=» ST A10,SECREC+4«, t00=0x0055, t01=0x0014}
0x84d6…84ee Head {h00=0x0014, h01=0x0050, text=» SC A9,SECREC+2 «, t00=0x0055, t01=0x002c}
0x84ee…8506 Head {h00=0x0014, h01=0x0050, text=» SC A3,SECREC+3 «, t00=0x0055, t01=0x0044}
0x8506…8510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x005c}
0x8510…8528 Head {h00=0x0014, h01=0x0050, text=»STR050 SUK A2,10«, t00=0x0055, t01=0x0066}
0x8528…853c Head {h00=0x0010, h01=0x0050, text=» LD A3,EXTNO«, t00=0x0055, t01=0x007e}
0x853c…854e Head {h00=0x000e, h01=0x0050, text=» LDK A7,6 «, t00=0x0055, t01=0x0092}
0x854e…8560 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0055, t01=0x00a4}
0x8560…8576 Head {h00=0x0012, h01=0x0050, text=» RF(E) COPY10 «, t00=0x0055, t01=0x00b6}
0x8576…8590 Head {h00=0x0016, h01=0x0050, text=» SUK A1,8 RESET A1«, t00=0x0055, t01=0x00cc}
0x8590…85a8 Head {h00=0x0014, h01=0x0050, text=» ABL VTOC23 NEXT«, t00=0x0055, t01=0x00e6}
0x85a8…85b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00fe}
0x85b2…85d2 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0055, t01=0x0108}
0x85d2…85dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0128}
0x85dc…85ec Head {h00=0x000c, h01=0x0050, text=»* ******«, t00=0x0055, t01=0x0132}
0x85ec…85fc Head {h00=0x000c, h01=0x0050, text=»* *COPY*«, t00=0x0055, t01=0x0142}
0x85fc…860c Head {h00=0x000c, h01=0x0050, text=»* ******«, t00=0x0055, t01=0x0152}
0x860c…8616 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0162}
0x8616…8654 Head {h00=0x003a, h01=0x0050, text=»* COPY THE FILE EXTENTS IN SECREC FROM DISC1 TO DISC2 «, t00=0x0055, t01=0x016c}
0x8654…865e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x001a}
0x865e…868a Head {h00=0x0028, h01=0x0050, text=»COPY10 CM FEN2 FILE EXTENT ON DISC2 «, t00=0x0056, t01=0x0024}
0x868a…86b4 Head {h00=0x0026, h01=0x0050, text=» CM FEXL2 FILE EXTENT LENGTH DISC2«, t00=0x0056, t01=0x0050}
0x86b4…86ca Head {h00=0x0012, h01=0x0050, text=» LD A6,TFILEN «, t00=0x0056, t01=0x007a}
0x86ca…86f4 Head {h00=0x0026, h01=0x0050, text=» ST A6,NOSEC NO OF SECTORS IN FILE«, t00=0x0056, t01=0x0090}
0x86f4…870a Head {h00=0x0012, h01=0x0050, text=» LD A7,TOTFRE «, t00=0x0056, t01=0x00ba}
0x870a…8734 Head {h00=0x0026, h01=0x0050, text=» CWR A6,A7 CHECK FOR DISC OVERFLOW«, t00=0x0056, t01=0x00d0}
0x8734…8758 Head {h00=0x0020, h01=0x0050, text=» ABL(G) RTN05 ERROR MESSAGE «, t00=0x0056, t01=0x00fa}
0x8758…876a Head {h00=0x000e, h01=0x0050, text=» SUR A7,A6«, t00=0x0056, t01=0x011e}
0x876a…87a0 Head {h00=0x0032, h01=0x0050, text=» ST A7,TOTFRE REMAINING FREE LENGTH ON DISC2 «, t00=0x0056, t01=0x0130}
0x87a0…87b2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,2 «, t00=0x0056, t01=0x0166}
0x87b2…87de Head {h00=0x0028, h01=0x0050, text=» ST A7,SECNO OFFSET IN SECREC TABLE «, t00=0x0056, t01=0x0178}
0x87de…880a Head {h00=0x0028, h01=0x0050, text=» CF A14,VTOSEC A1 POINT TO RECORD NO«, t00=0x0057, t01=0x0014}
0x880a…8850 Head {h00=0x0042, h01=0x0050, text=»* FILE ENTRY:TAKE FILE EXTENT LENGTH, BASE AND LAST RECORD NO«, t00=0x0057, t01=0x0040}
0x8850…8868 Head {h00=0x0014, h01=0x0050, text=»COPY12 ADK A1,14«, t00=0x0057, t01=0x0086}
0x8868…8896 Head {h00=0x002a, h01=0x0050, text=» LDR* A10,A1 FILE EXTENT LENGTH TO A10«, t00=0x0057, t01=0x009e}
0x8896…88ac Head {h00=0x0012, h01=0x0050, text=» ST A10,FILLEN«, t00=0x0057, t01=0x00cc}
0x88ac…88be Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0057, t01=0x00e2}
0x88be…88d2 Head {h00=0x0010, h01=0x0050, text=» LDR* A11,A1«, t00=0x0057, t01=0x00f4}
0x88d2…88fa Head {h00=0x0024, h01=0x0050, text=» ST A11,FILBAS FILE EXTENT BASE «, t00=0x0057, t01=0x0108}
0x88fa…890c Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0057, t01=0x0130}
0x890c…8936 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A1 LAST RECORD NO PART 1 «, t00=0x0057, t01=0x0142}
0x8936…894c Head {h00=0x0012, h01=0x0050, text=» ST A3,LSTRN1 «, t00=0x0057, t01=0x016c}
0x894c…895e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0057, t01=0x0182}
0x895e…8988 (88, 0, 400) Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A1 LAST RECORD NO PART 2 «, t00=0x0058, t01=0x0004}
0x8988…89a0 Head {h00=0x0014, h01=0x0050, text=» ST A3,LSTRN1+2 «, t00=0x0058, t01=0x002e}
0x89a0…89c0 Head {h00=0x001c, h01=0x0050, text=»* READ FILE BASE TO BUF1«, t00=0x0058, t01=0x0046}
0x89c0…89da Head {h00=0x0016, h01=0x0050, text=»COPY14 LDR A9,A11 «, t00=0x0058, t01=0x0066}
0x89da…89e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x0080}
0x89e4…8a00 Head {h00=0x0018, h01=0x0050, text=»COPY15 CF A14,READ11«, t00=0x0058, t01=0x008a}
0x8a00…8a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00a6}
0x8a0a…8a24 Head {h00=0x0016, h01=0x0050, text=»COPY16 LD A9,VBAS2«, t00=0x0058, t01=0x00b0}
0x8a24…8a34 Head {h00=0x000c, h01=0x0050, text=» CM NOCC«, t00=0x0058, t01=0x00ca}
0x8a34…8a4a Head {h00=0x0012, h01=0x0050, text=» CF A14,READ2 «, t00=0x0058, t01=0x00da}
0x8a4a…8a74 Head {h00=0x0026, h01=0x0050, text=» CF A14,FSAT2 FREE EXTENT IN VTOC2«, t00=0x0058, t01=0x00f0}
0x8a74…8a9c Head {h00=0x0024, h01=0x0050, text=» ST A3,FRELEN FREE EXTENT LENGTH«, t00=0x0058, t01=0x011a}
0x8a9c…8aae Head {h00=0x000e, h01=0x0050, text=» ADK A2,4 «, t00=0x0058, t01=0x0142}
0x8aae…8ac2 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A2 «, t00=0x0058, t01=0x0154}
0x8ac2…8ae8 Head {h00=0x0022, h01=0x0050, text=» ST A4,FREBAS FREE EXTENT BASE«, t00=0x0058, t01=0x0168}
0x8ae8…8af2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x018e}
0x8af2…8b0c Head {h00=0x0016, h01=0x0050, text=»COPY17 LD A7,FEN2 «, t00=0x0059, t01=0x0008}
0x8b0c…8b1e Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0059, t01=0x0022}
0x8b1e…8b34 Head {h00=0x0012, h01=0x0050, text=» RF(N) COPY18 «, t00=0x0059, t01=0x0034}
0x8b34…8b4a Head {h00=0x0012, h01=0x0050, text=» LD A7,TFILEN «, t00=0x0059, t01=0x004a}
0x8b4a…8b5c Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x0059, t01=0x0060}
0x8b5c…8b72 Head {h00=0x0012, h01=0x0050, text=» RF(NL) COPY18«, t00=0x0059, t01=0x0072}
0x8b72…8b88 Head {h00=0x0012, h01=0x0050, text=» CF A14,NXTFRE«, t00=0x0059, t01=0x0088}
0x8b88…8b92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x009e}
0x8b92…8bac Head {h00=0x0016, h01=0x0050, text=»COPY18 ST A4,FEXB2«, t00=0x0059, t01=0x00a8}
0x8bac…8bc2 Head {h00=0x0012, h01=0x0050, text=» LDK A5,QBUF1L«, t00=0x0059, t01=0x00c2}
0x8bc2…8be6 Head {h00=0x0020, h01=0x0050, text=»* WRITE BUF1 ON FREBAS DISC2«, t00=0x0059, t01=0x00d8}
0x8be6…8bfe Head {h00=0x0014, h01=0x0050, text=»COPY20 LDR A9,A4«, t00=0x0059, t01=0x00fc}
0x8bfe…8c14 Head {h00=0x0012, h01=0x0050, text=» CF A14,WRITE4«, t00=0x0059, t01=0x0114}
0x8c14…8c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x012a}
0x8c1e…8c54 Head {h00=0x0032, h01=0x0050, text=» IM FEXL2 ONE MORE SECTOR IN FILE EXTENT DISC2«, t00=0x0059, t01=0x0134}
0x8c54…8c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x016a}
0x8c5e…8c90 Head {h00=0x002e, h01=0x0050, text=» LD A7,TFILEN TOTAL NO OF SECTORS TO COPY «, t00=0x0059, t01=0x0174}
0x8c90…8ca2 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x005a, t01=0x0016}
0x8ca2…8ccc Head {h00=0x0026, h01=0x0050, text=» RF(E) COPY25 LAST SECTOR TO COPY «, t00=0x005a, t01=0x0028}
0x8ccc…8cfa Head {h00=0x002a, h01=0x0050, text=» ABL(N) VTOC10 END OF SECTORS TO COPY «, t00=0x005a, t01=0x0052}
0x8cfa…8d10 Head {h00=0x0012, h01=0x0050, text=» ST A7,TFILEN «, t00=0x005a, t01=0x0080}
0x8d10…8d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x0096}
0x8d1a…8d32 Head {h00=0x0014, h01=0x0050, text=» EJECT COPVOL «, t00=0x005a, t01=0x00a0}
0x8d32…8d3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00b8}
0x8d3c…8d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005a, t01=0x00c2}
0x8d46…8d72 Head {h00=0x0028, h01=0x0050, text=»* UPDATE FREE EXTENT LENGTH AND BASE«, t00=0x005a, t01=0x00cc}
0x8d72…8d8c Head {h00=0x0016, h01=0x0050, text=» ADK A4,1 FREBAS+1«, t00=0x005a, t01=0x00f8}
0x8d8c…8da6 Head {h00=0x0016, h01=0x0050, text=» SUK A3,1 FRELEN-1«, t00=0x005a, t01=0x0112}
0x8da6…8dbc Head {h00=0x0012, h01=0x0050, text=» RF(Z) COPY40 «, t00=0x005a, t01=0x012c}
0x8dbc…8dde Head {h00=0x001e, h01=0x0050, text=»* UPDATE FILBAS AND FILLEN«, t00=0x005a, t01=0x0142}
0x8dde…8e06 Head {h00=0x0024, h01=0x0050, text=» ADKL A11,1 NEXT SECTOR TO COPY«, t00=0x005a, t01=0x0164}
0x8e06…8e28 Head {h00=0x001e, h01=0x0050, text=» SUKL A10,1 REST OF LENGTH«, t00=0x005a, t01=0x018c}
0x8e28…8e3e Head {h00=0x0012, h01=0x0050, text=» RF(Z) COPY30 «, t00=0x005b, t01=0x001e}
0x8e3e…8e6a Head {h00=0x0028, h01=0x0050, text=»* READ NEXT SECTOR TO COPY TO BUF1 «, t00=0x005b, t01=0x0034}
0x8e6a…8e7c Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x005b, t01=0x0060}
0x8e7c…8e92 Head {h00=0x0012, h01=0x0050, text=» RF(Z) COPY22 «, t00=0x005b, t01=0x0072}
0x8e92…8ea6 Head {h00=0x0010, h01=0x0050, text=» LDKL A7,410«, t00=0x005b, t01=0x0088}
0x8ea6…8ed4 Head {h00=0x002a, h01=0x0050, text=» ADS A7,ECB4+2 UPDATE BUFFER ADDRESSES«, t00=0x005b, t01=0x009c}
0x8ed4…8ee6 Head {h00=0x000e, h01=0x0050, text=» RB COPY20«, t00=0x005b, t01=0x00ca}
0x8ee6…8ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x00dc}
0x8ef0…8f10 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x005b, t01=0x00e6}
0x8f10…8f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0106}
0x8f1a…8f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0110}
0x8f24…8f50 Head {h00=0x0028, h01=0x0050, text=»COPY22 LDR* A7,A12 GET BUF1 ADDRESS «, t00=0x005b, t01=0x011a}
0x8f50…8f70 Head {h00=0x001c, h01=0x0050, text=» ST A7,ECB4+2 RESET ECB4«, t00=0x005b, t01=0x0146}
0x8f70…8f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0166}
0x8f7a…8f8e Head {h00=0x0010, h01=0x0050, text=»COPY23 EQU *«, t00=0x005b, t01=0x0170}
0x8f8e…8fa2 Head {h00=0x0010, h01=0x0050, text=» LDR A9,A11 «, t00=0x005b, t01=0x0184}
0x8fa2…8fb8 Head {h00=0x0012, h01=0x0050, text=» CF A14,READ11«, t00=0x005c, t01=0x0008}
0x8fb8…8fce Head {h00=0x0012, h01=0x0050, text=» LDK A5,QBUF1L«, t00=0x005c, t01=0x001e}
0x8fce…8fe0 Head {h00=0x000e, h01=0x0050, text=» RB COPY20«, t00=0x005c, t01=0x0034}
0x8fe0…8fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x0046}
0x8fea…9006 Head {h00=0x0018, h01=0x0050, text=»COPY25 ST A7,TFILEN «, t00=0x005c, t01=0x0050}
0x9006…9022 Head {h00=0x0018, h01=0x0050, text=» ADKL A11,1 FILBAS+1«, t00=0x005c, t01=0x006c}
0x9022…903e Head {h00=0x0018, h01=0x0050, text=» SUKL A10,1 FILLEN-1«, t00=0x005c, t01=0x0088}
0x903e…9058 Head {h00=0x0016, h01=0x0050, text=» ADK A4,1 FREBAS+1«, t00=0x005c, t01=0x00a4}
0x9058…9072 Head {h00=0x0016, h01=0x0050, text=» SUK A3,1 FRELEN-1«, t00=0x005c, t01=0x00be}
0x9072…9088 Head {h00=0x0012, h01=0x0050, text=» RF(Z) COP401 «, t00=0x005c, t01=0x00d8}
0x9088…909e Head {h00=0x0012, h01=0x0050, text=»* UPDATE BUF2 «, t00=0x005c, t01=0x00ee}
0x909e…90b0 Head {h00=0x000e, h01=0x0050, text=» STR A4,A2«, t00=0x005c, t01=0x0104}
0x90b0…90c2 Head {h00=0x000e, h01=0x0050, text=» RF COPY41«, t00=0x005c, t01=0x0116}
0x90c2…90dc Head {h00=0x0016, h01=0x0050, text=»* CC IN STATUS BIT«, t00=0x005c, t01=0x0128}
0x90dc…90f6 Head {h00=0x0016, h01=0x0050, text=»COPY30 LD A7,SECNO«, t00=0x005c, t01=0x0142}
0x90f6…910c Head {h00=0x0012, h01=0x0050, text=» CF A14,VTOSEC«, t00=0x005c, t01=0x015c}
0x910c…9122 Head {h00=0x0012, h01=0x0050, text=» ADK A1,QVRECL«, t00=0x005c, t01=0x0172}
0x9122…9136 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/CC «, t00=0x005c, t01=0x0188}
0x9136…9148 Head {h00=0x000e, h01=0x0050, text=» SCR A7,A1«, t00=0x005d, t01=0x000c}
0x9148…915e Head {h00=0x0012, h01=0x0050, text=» CF A14,WRITE1«, t00=0x005d, t01=0x001e}
0x915e…9168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0034}
0x9168…9188 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x005d, t01=0x003e}
0x9188…9192 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x005e}
0x9192…91b0 Head {h00=0x001a, h01=0x0050, text=»* TAKE NEXT SECTOR NO «, t00=0x005d, t01=0x0068}
0x91b0…91c4 Head {h00=0x0010, h01=0x0050, text=» LD A7,SECNO«, t00=0x005d, t01=0x0086}
0x91c4…91d6 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x005d, t01=0x009a}
0x91d6…91ea Head {h00=0x0010, h01=0x0050, text=» ST A7,SECNO«, t00=0x005d, t01=0x00ac}
0x91ea…9200 Head {h00=0x0012, h01=0x0050, text=» CF A14,VTOSEC«, t00=0x005d, t01=0x00c0}
0x9200…9228 Head {h00=0x0024, h01=0x0050, text=»* TAKE FILE BASE AND FILE LENGTH«, t00=0x005d, t01=0x00d6}
0x9228…923a Head {h00=0x000e, h01=0x0050, text=» ADK A1,14«, t00=0x005d, t01=0x00fe}
0x923a…9262 Head {h00=0x0024, h01=0x0050, text=» LDR* A10,A1 FILE LENGTH TO A10 «, t00=0x005d, t01=0x0110}
0x9262…9274 Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x005d, t01=0x0138}
0x9274…929a Head {h00=0x0022, h01=0x0050, text=» LDR* A11,A1 FILE EXTENT BASE «, t00=0x005d, t01=0x014a}
0x929a…92b0 Head {h00=0x0012, h01=0x0050, text=» ST A10,FILLEN«, t00=0x005d, t01=0x0170}
0x92b0…92c6 Head {h00=0x0012, h01=0x0050, text=» ST A11,FILBAS«, t00=0x005d, t01=0x0186}
0x92c6…92e4 Head {h00=0x001a, h01=0x0050, text=»* READ FILBAS TO BUF1 «, t00=0x005e, t01=0x000c}
0x92e4…92f6 Head {h00=0x000e, h01=0x0050, text=» RB COPY23«, t00=0x005e, t01=0x002a}
0x92f6…930c Head {h00=0x0012, h01=0x0050, text=»* UPDATE BUF2 «, t00=0x005e, t01=0x003c}
0x930c…9326 Head {h00=0x0016, h01=0x0050, text=»COPY40 ADKL A11,1 «, t00=0x005e, t01=0x0052}
0x9326…933a Head {h00=0x0010, h01=0x0050, text=» SUKL A10,1 «, t00=0x005e, t01=0x006c}
0x933a…935c Head {h00=0x001e, h01=0x0050, text=» IM NOCC NOT CC IN A1 FILE«, t00=0x005e, t01=0x0080}
0x935c…9366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00a2}
0x9366…9388 Head {h00=0x001e, h01=0x0050, text=»COP401 STR A3,A2 FREBAS=0 «, t00=0x005e, t01=0x00ac}
0x9388…9392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x00ce}
0x9392…93aa Head {h00=0x0014, h01=0x0050, text=»COPY41 SUK A2,4 «, t00=0x005e, t01=0x00d8}
0x93aa…93bc Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x005e, t01=0x00f0}
0x93bc…93dc Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x005e, t01=0x0102}
0x93dc…93fa Head {h00=0x001a, h01=0x0050, text=»* WRITE BUF2 ON VTOC2 «, t00=0x005e, t01=0x0122}
0x93fa…940e Head {h00=0x0010, h01=0x0050, text=» LD A9,VBAS2«, t00=0x005e, t01=0x0140}
0x940e…9424 Head {h00=0x0012, h01=0x0050, text=» CF A14,WRITE2«, t00=0x005e, t01=0x0154}
0x9424…942e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x016a}
0x942e…9444 Head {h00=0x0012, h01=0x0050, text=»COPY42 IM FEN2«, t00=0x005e, t01=0x0174}
0x9444…945a Head {h00=0x0012, h01=0x0050, text=» LD A7,TFILEN «, t00=0x005e, t01=0x018a}
0x945a…9470 Head {h00=0x0012, h01=0x0050, text=» RF(Z) COPY45 «, t00=0x005f, t01=0x0010}
0x9470…9496 Head {h00=0x0022, h01=0x0050, text=» CF A14,FSAT2 NEXT FREE EXTENT«, t00=0x005f, t01=0x0026}
0x9496…94ac Head {h00=0x0012, h01=0x0050, text=» ST A3,FRELEN «, t00=0x005f, t01=0x004c}
0x94ac…94be Head {h00=0x000e, h01=0x0050, text=» ADK A2,4 «, t00=0x005f, t01=0x0062}
0x94be…94d2 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A2 «, t00=0x005f, t01=0x0074}
0x94d2…94e8 Head {h00=0x0012, h01=0x0050, text=» ST A4,FREBAS «, t00=0x005f, t01=0x0088}
0x94e8…94fc Head {h00=0x0010, h01=0x0050, text=» LD A7,FEN2 «, t00=0x005f, t01=0x009e}
0x94fc…950e Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x005f, t01=0x00b2}
0x950e…9524 Head {h00=0x0012, h01=0x0050, text=» RF(N) COPY45 «, t00=0x005f, t01=0x00c4}
0x9524…953a Head {h00=0x0012, h01=0x0050, text=» LD A7,TFILEN «, t00=0x005f, t01=0x00da}
0x953a…9544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x00f0}
0x9544…957e Head {h00=0x0036, h01=0x0050, text=»COPY44 CWR A3,A7 COMPARE FRELEN AND TOT SECTOR NO «, t00=0x005f, t01=0x00fa}
0x957e…9594 Head {h00=0x0012, h01=0x0050, text=» RF(NL) COPY45«, t00=0x005f, t01=0x0134}
0x9594…95aa Head {h00=0x0012, h01=0x0050, text=» CF A14,NXTFRE«, t00=0x005f, t01=0x014a}
0x95aa…95b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x0160}
0x95b4…95ce Head {h00=0x0016, h01=0x0050, text=»COPY45 LD A7,SECNO«, t00=0x005f, t01=0x016a}
0x95ce…9608 Head {h00=0x0036, h01=0x0050, text=»* TAKE VTOC SECREC (OLD) AND READ SECTOR TO BUF1 «, t00=0x005f, t01=0x0184}
0x9608…961e Head {h00=0x0012, h01=0x0050, text=» CF A14,VTOSEC«, t00=0x0060, t01=0x002e}
0x961e…963e Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0060, t01=0x0044}
0x963e…9674 Head {h00=0x0032, h01=0x0050, text=»* TAKE FIRST FREE FILE ENTRY ON DISC2 TO BUF2 «, t00=0x0060, t01=0x0064}
0x9674…9688 Head {h00=0x0010, h01=0x0050, text=» LD A9,VBAS2«, t00=0x0060, t01=0x009a}
0x9688…969c Head {h00=0x0010, h01=0x0050, text=» LD A4,VLEN2«, t00=0x0060, t01=0x00ae}
0x969c…96ae Head {h00=0x000e, h01=0x0050, text=» ADR A4,A9«, t00=0x0060, t01=0x00c2}
0x96ae…96c0 Head {h00=0x000e, h01=0x0050, text=» ADKL A9,1«, t00=0x0060, t01=0x00d4}
0x96c0…96d6 Head {h00=0x0012, h01=0x0050, text=» CF A14,READ2 «, t00=0x0060, t01=0x00e6}
0x96d6…96e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0060, t01=0x00fc}
0x96e0…96fc Head {h00=0x0018, h01=0x0050, text=»COPY50 CF A14,FRENT2«, t00=0x0060, t01=0x0106}
0x96fc…9720 Head {h00=0x0020, h01=0x0050, text=»* UPDATE FILE ENTRY ON DISC2«, t00=0x0060, t01=0x0122}
0x9720…9732 Head {h00=0x000e, h01=0x0050, text=» LDK A4,5 «, t00=0x0060, t01=0x0146}
0x9732…9748 Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVE12«, t00=0x0060, t01=0x0158}
0x9748…9774 Head {h00=0x0028, h01=0x0050, text=» LD A5,FEN2 FREE EXTENT NO ON DISC 2«, t00=0x0060, t01=0x016e}
0x9774…9786 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0061, t01=0x000a}
0x9786…97ae Head {h00=0x0024, h01=0x0050, text=» LD A3,FEXL2 FREE EXTENT LENGTH «, t00=0x0061, t01=0x001c}
0x97ae…97d4 Head {h00=0x0022, h01=0x0050, text=» LD A4,FEXB2 FREE EXTENT BASE «, t00=0x0061, t01=0x0044}
0x97d4…97f8 Head {h00=0x0020, h01=0x0050, text=» LD A7,LSTRN1 LAST RECORD NO«, t00=0x0061, t01=0x006a}
0x97f8…980e Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVERE«, t00=0x0061, t01=0x008e}
0x980e…9820 Head {h00=0x000e, h01=0x0050, text=» LDK A4,9 «, t00=0x0061, t01=0x00a4}
0x9820…9836 Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVE12«, t00=0x0061, t01=0x00b6}
0x9836…9848 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0061, t01=0x00cc}
0x9848…985c Head {h00=0x0010, h01=0x0050, text=» LD A7,NOCC «, t00=0x0061, t01=0x00de}
0x985c…9888 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) COPY55 NOT CC TO STATUS BIT «, t00=0x0061, t01=0x00f2}
0x9888…98ac Head {h00=0x0020, h01=0x0050, text=» LDK A3,/CC CHECK STATUS BIT«, t00=0x0061, t01=0x011e}
0x98ac…98d8 Head {h00=0x0028, h01=0x0050, text=» SCR A3,A1 'CC' TO STATUS BIT FILE1 «, t00=0x0061, t01=0x0142}
0x98d8…98f8 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0061, t01=0x016e}
0x98f8…9914 Head {h00=0x0018, h01=0x0050, text=»COPY55 CF A14,WRITE2«, t00=0x0061, t01=0x018e}
0x9914…992a Head {h00=0x0012, h01=0x0050, text=» LD A9,VTSEC1 «, t00=0x0062, t01=0x001a}
0x992a…9940 Head {h00=0x0012, h01=0x0050, text=» CF A14,WRITE1«, t00=0x0062, t01=0x0030}
0x9940…996a Head {h00=0x0026, h01=0x0050, text=» CM FEXL2 FILE EXTENT 2 LENGTH =0 «, t00=0x0062, t01=0x0046}
0x996a…998c Head {h00=0x001e, h01=0x0050, text=»* UPDATE FILBAS AND FILLEN«, t00=0x0062, t01=0x0070}
0x998c…99a0 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x0062, t01=0x0092}
0x99a0…99b6 Head {h00=0x0012, h01=0x0050, text=» RF(Z) COPY60 «, t00=0x0062, t01=0x00a6}
0x99b6…99d4 Head {h00=0x001a, h01=0x0050, text=»* READ FILBAS TO BUF1 «, t00=0x0062, t01=0x00bc}
0x99d4…99ee Head {h00=0x0016, h01=0x0050, text=»COPY58 LDR A9,A11 «, t00=0x0062, t01=0x00da}
0x99ee…9a04 Head {h00=0x0012, h01=0x0050, text=» CF A14,READ11«, t00=0x0062, t01=0x00f4}
0x9a04…9a1a Head {h00=0x0012, h01=0x0050, text=» LDK A5,QBUF1L«, t00=0x0062, t01=0x010a}
0x9a1a…9a30 Head {h00=0x0012, h01=0x0050, text=» LD A4,FREBAS «, t00=0x0062, t01=0x0120}
0x9a30…9a46 Head {h00=0x0012, h01=0x0050, text=» LD A3,FRELEN «, t00=0x0062, t01=0x0136}
0x9a46…9a5a Head {h00=0x0010, h01=0x0050, text=» ABL COPY16 «, t00=0x0062, t01=0x014c}
0x9a5a…9a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0160}
0x9a64…9a7c Head {h00=0x0014, h01=0x0050, text=»COPY60 LDK A7,2 «, t00=0x0062, t01=0x016a}
0x9a7c…9a92 Head {h00=0x0012, h01=0x0050, text=» ADS A7,SECNO «, t00=0x0062, t01=0x0182}
0x9a92…9a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0008}
0x9a9c…9ab8 Head {h00=0x0018, h01=0x0050, text=»COPY64 LD A7,TFILEN «, t00=0x0063, t01=0x0012}
0x9ab8…9ace Head {h00=0x0012, h01=0x0050, text=» RF(Z) COPY90 «, t00=0x0063, t01=0x002e}
0x9ace…9ae2 Head {h00=0x0010, h01=0x0050, text=» LD A7,SECNO«, t00=0x0063, t01=0x0044}
0x9ae2…9af8 Head {h00=0x0012, h01=0x0050, text=» CF A14,VTOSEC«, t00=0x0063, t01=0x0058}
0x9af8…9b18 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0063, t01=0x006e}
0x9b18…9b40 Head {h00=0x0024, h01=0x0050, text=»* TAKE FILE BASE AND FILE LENGTH«, t00=0x0063, t01=0x008e}
0x9b40…9b52 Head {h00=0x000e, h01=0x0050, text=» ADK A1,14«, t00=0x0063, t01=0x00b6}
0x9b52…9b7a Head {h00=0x0024, h01=0x0050, text=» LDR* A10,A1 FILE LENGTH TO A10 «, t00=0x0063, t01=0x00c8}
0x9b7a…9b8c Head {h00=0x000e, h01=0x0050, text=» ADK A1,4 «, t00=0x0063, t01=0x00f0}
0x9b8c…9bb2 Head {h00=0x0022, h01=0x0050, text=» LDR* A11,A1 FILE EXTENT BASE «, t00=0x0063, t01=0x0102}
0x9bb2…9bc8 Head {h00=0x0012, h01=0x0050, text=» ST A10,FILLEN«, t00=0x0063, t01=0x0128}
0x9bc8…9bde Head {h00=0x0012, h01=0x0050, text=» ST A11,FILBAS«, t00=0x0063, t01=0x013e}
0x9bde…9bf0 Head {h00=0x000e, h01=0x0050, text=» RB COPY58«, t00=0x0063, t01=0x0154}
0x9bf0…9c10 Head {h00=0x001c, h01=0x0050, text=»* END OF SECTORS TO COPY«, t00=0x0063, t01=0x0166}
0x9c10…9c2a Head {h00=0x0016, h01=0x0050, text=»COPY90 ABL VTOC10 «, t00=0x0063, t01=0x0186}
0x9c2a…9c48 Head {h00=0x001a, h01=0x0050, text=»* END OF FILES TO COPY«, t00=0x0064, t01=0x0010}
0x9c48…9c88 Head {h00=0x003c, h01=0x0050, text=»RTN00 CF A14,FFINCC WRITE FF IN ALL STATUS BITS WITH CC «, t00=0x0064, t01=0x002e}
0x9c88…9caa Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 NO ERROR MESSAGE«, t00=0x0064, t01=0x006e}
0x9caa…9cbc Head {h00=0x000e, h01=0x0050, text=» RF RTN99 «, t00=0x0064, t01=0x0090}
0x9cbc…9cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00a2}
0x9cc6…9ce6 Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0064, t01=0x00ac}
0x9ce6…9cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x00cc}
0x9cf0…9d0a Head {h00=0x0016, h01=0x0050, text=»* ****************«, t00=0x0064, t01=0x00d6}
0x9d0a…9d24 Head {h00=0x0016, h01=0x0050, text=»* *ERROR MESSAGES*«, t00=0x0064, t01=0x00f0}
0x9d24…9d3e Head {h00=0x0016, h01=0x0050, text=»* ****************«, t00=0x0064, t01=0x010a}
0x9d3e…9d48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0124}
0x9d48…9d6e Head {h00=0x0022, h01=0x0050, text=»RTNIE LDK A1,1 INPUT I/O ERROR«, t00=0x0064, t01=0x012e}
0x9d6e…9d7e Head {h00=0x000c, h01=0x0050, text=» RF RTNX«, t00=0x0064, t01=0x0154}
0x9d7e…9d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0064, t01=0x0164}
0x9d88…9db0 Head {h00=0x0024, h01=0x0050, text=»RTNOE LDK A1,2 OUTPUT I/O ERROR «, t00=0x0064, t01=0x016e}
0x9db0…9dba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0008}
0x9dba…9dd0 Head {h00=0x0012, h01=0x0050, text=»RTNX LDR A2,A8«, t00=0x0065, t01=0x0012}
0x9dd0…9de2 Head {h00=0x000e, h01=0x0050, text=» RF RTN100«, t00=0x0065, t01=0x0028}
0x9de2…9dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x003a}
0x9dec…9e04 Head {h00=0x0014, h01=0x0050, text=»RTNOE1 LDR A2,A8«, t00=0x0065, t01=0x0044}
0x9e04…9e1a Head {h00=0x0012, h01=0x0050, text=» CF A14,FFINCC«, t00=0x0065, t01=0x005c}
0x9e1a…9e3c Head {h00=0x001e, h01=0x0050, text=» LDK A1,2 OUTPUT I/O ERROR«, t00=0x0065, t01=0x0072}
0x9e3c…9e4e Head {h00=0x000e, h01=0x0050, text=» RF RTN100«, t00=0x0065, t01=0x0094}
0x9e4e…9e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00a6}
0x9e58…9e82 Head {h00=0x0026, h01=0x0050, text=»RTN02 LDK A1,3 VOLUME NAME UNKNOWN«, t00=0x0065, t01=0x00b0}
0x9e82…9e94 Head {h00=0x000e, h01=0x0050, text=» RF RTN99 «, t00=0x0065, t01=0x00da}
0x9e94…9e9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00ec}
0x9e9e…9eca Head {h00=0x0028, h01=0x0050, text=»RTN03 LDK A1,4 OUTPUT DISC NOT EMPTY«, t00=0x0065, t01=0x00f6}
0x9eca…9edc Head {h00=0x000e, h01=0x0050, text=» RF RTN99 «, t00=0x0065, t01=0x0122}
0x9edc…9ee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0134}
0x9ee6…9f02 Head {h00=0x0018, h01=0x0050, text=»RTN04 CF A14,FFINCC «, t00=0x0065, t01=0x013e}
0x9f02…9f22 Head {h00=0x001c, h01=0x0050, text=» LDK A1,5 VTOC OVERFLOW «, t00=0x0065, t01=0x015a}
0x9f22…9f34 Head {h00=0x000e, h01=0x0050, text=» RF RTN99 «, t00=0x0065, t01=0x017a}
0x9f34…9f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x018c}
0x9f3e…9f5a Head {h00=0x0018, h01=0x0050, text=»RTN05 CF A14,FFINCC «, t00=0x0066, t01=0x0008}
0x9f5a…9f7a Head {h00=0x001c, h01=0x0050, text=» LDK A1,6 DISC OVERFLOW «, t00=0x0066, t01=0x0024}
0x9f7a…9f8c Head {h00=0x000e, h01=0x0050, text=» RF RTN99 «, t00=0x0066, t01=0x0044}
0x9f8c…9f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0056}
0x9f96…9fc0 Head {h00=0x0026, h01=0x0050, text=»RTN06 LDK A1,7 FAULTY DISC FORMAT «, t00=0x0066, t01=0x0060}
0x9fc0…9fd2 Head {h00=0x000e, h01=0x0050, text=» RF RTN99 «, t00=0x0066, t01=0x008a}
0x9fd2…9fdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x009c}
0x9fdc…9ffc Head {h00=0x001c, h01=0x0050, text=» EJECT COPVOL CRVOL «, t00=0x0066, t01=0x00a6}
0x9ffc…a006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00c6}
0xa006…a010 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x00d0}
0xa010…a044 Head {h00=0x0030, h01=0x0050, text=»RTN08 LDK A1,8 FLEXIBLE DISC WRITE PROTECTED«, t00=0x0066, t01=0x00da}
0xa044…a04e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x010e}
0xa04e…a064 Head {h00=0x0012, h01=0x0050, text=»RTN99 LDK A2,0«, t00=0x0066, t01=0x0118}
0xa064…a06e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x012e}
0xa06e…a0a0 Head {h00=0x002e, h01=0x0050, text=»RTN100 LD A14,STACKP RESTORE STACKPOINTER «, t00=0x0066, t01=0x0138}
0xa0a0…a0aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x016a}
0xa0aa…a0c8 Head {h00=0x001a, h01=0x0050, text=»* UNLOCK IF FLEX DISC«, t00=0x0066, t01=0x0174}
0xa0c8…a0d2 (103, 0, 394) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0004}
0xa0d2…a0e8 Head {h00=0x0012, h01=0x0050, text=» LDKL A8,ECB3 «, t00=0x0067, t01=0x000e}
0xa0e8…a0fc Head {h00=0x0010, h01=0x0050, text=» LDR* A6,A8 «, t00=0x0067, t01=0x0024}
0xa0fc…a110 Head {h00=0x0010, h01=0x0050, text=» CCK A6,FDFC«, t00=0x0067, t01=0x0038}
0xa110…a12c Head {h00=0x0018, h01=0x0050, text=» RF(L) RTN110 NOT FD«, t00=0x0067, t01=0x004c}
0xa12c…a146 Head {h00=0x0016, h01=0x0050, text=» LDK A7,/B8 UNLOCK«, t00=0x0067, t01=0x0068}
0xa146…a152 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0067, t01=0x0082}
0xa152…a162 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0067, t01=0x008e}
0xa162…a16c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x009e}
0xa16c…a198 Head {h00=0x0028, h01=0x0050, text=»RTN110 LDKL A8,ECB2 ECB OUTPUT DISC «, t00=0x0067, t01=0x00a8}
0xa198…a1ae Head {h00=0x0012, h01=0x0050, text=» LDR* A6,A8 FC«, t00=0x0067, t01=0x00d4}
0xa1ae…a1c2 Head {h00=0x0010, h01=0x0050, text=» CCK A6,FDFC«, t00=0x0067, t01=0x00ea}
0xa1c2…a1de Head {h00=0x0018, h01=0x0050, text=» RF(L) RTN120 NOT FD«, t00=0x0067, t01=0x00fe}
0xa1de…a1f2 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/B8 «, t00=0x0067, t01=0x011a}
0xa1f2…a1fe Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0067, t01=0x012e}
0xa1fe…a20e Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0067, t01=0x013a}
0xa20e…a218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x014a}
0xa218…a22c Head {h00=0x0010, h01=0x0050, text=»RTN120 EQU *«, t00=0x0067, t01=0x0154}
0xa22c…a23c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0067, t01=0x0168}
0xa23c…a246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0067, t01=0x0178}
0xa246…a252 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0067, t01=0x0182}
0xa252…a256 (104, 2, 8) Head {h00=0x4004, h01=0x0000}
0xa256…a25a 00 68 00 04 ┆ h ┆
0xa25a…a262 (105, 1, 8) 20 04 00 00 00 69 00 04 ┆ i ┆
0xa262…a2b2 (106, 0, 400) 4d 45 00 09 01 70 00 0e 00 09 5c 42 5c 44 45 54 43 39 38 20 00 0a 00 0a 00 0a 00 06 46 31 32 42 54 42 00 0a 00 1c 00 2e 00 29 5c 43 42 45 5c 49 4e 50 46 2c 3d 27 59 27 2c 44 45 54 43 39 39 5c 4a 55 4d 50 20 49 46 20 49 4e 50 55 54 20 46 49 ┆ME p B DETC98 F12BTB . ) CBE INPF,='Y',DETC99 JUMP IF INPUT FI┆
0xa2b2…a302 45 4c 44 20 00 0a 00 2a 00 20 00 1c 5c 42 5c 44 45 54 43 38 32 5c 4e 45 58 54 20 46 49 45 4c 44 20 42 54 42 20 3d 20 35 00 0a 00 5c 00 22 00 1d 44 45 54 43 38 30 5c 5c 4d 41 4b 45 20 46 49 45 4c 44 20 31 37 20 43 55 52 52 45 4e 54 20 00 0a ┆ELD * B DETC82 NEXT FIELD BTB = 5 " DETC80 MAKE FIELD 17 CURRENT ┆
0xa302…a352 00 80 00 16 00 11 5c 4d 4f 56 45 5c 44 45 42 49 4e 57 34 2c 57 31 37 20 00 0a 00 a6 00 1e 00 19 5c 47 45 54 46 4c 44 5c 30 2c 44 45 42 49 4e 57 34 2c 44 45 42 49 4e 57 33 20 00 0a 00 c0 00 1e 00 19 5c 42 5c 44 45 54 43 39 38 5c 54 41 42 20 ┆ MOVE DEBINW4,W17 GETFLD 0,DEBINW4,DEBINW3 B DETC98 TAB ┆
0xa352…a3a2 4e 4f 54 20 41 4c 4c 4f 57 45 44 20 00 0a 00 e2 00 22 00 1d 44 45 54 43 38 31 5c 5c 4d 41 4b 45 20 46 49 45 4c 44 20 31 32 20 43 55 52 52 45 4e 54 20 00 0a 01 04 00 16 00 11 5c 4d 4f 56 45 5c 44 45 42 49 4e 57 34 2c 57 31 32 20 00 0a 01 2a ┆NOT ALLOWED " DETC81 MAKE FIELD 12 CURRENT MOVE DEBINW4,W12 *┆
0xa3a2…a3f2 00 1e 00 19 5c 47 45 54 46 4c 44 5c 30 2c 44 45 42 49 4e 57 34 2c 44 45 42 49 4e 57 33 20 00 0a 01 44 00 1e 00 19 5c 42 5c 44 45 54 43 39 38 5c 54 41 42 20 4e 4f 54 20 41 4c 4c 4f 57 45 44 20 00 0a 01 66 00 20 00 1c 44 45 54 43 38 32 5c 5c ┆ GETFLD 0,DEBINW4,DEBINW3 D B DETC98 TAB NOT ALLOWED f DETC82 ┆
0xa3f2…a442 (107, 0, 400) 4d 41 4b 45 20 46 49 45 4c 44 20 35 20 43 55 52 52 45 4e 54 00 0a 01 88 00 14 00 10 5c 4d 4f 56 45 5c 44 45 42 49 4e 57 34 2c 57 35 00 0b 00 1c 00 1e 00 19 5c 47 45 54 46 4c 44 5c 30 2c 44 45 42 49 4e 57 34 2c 44 45 42 49 4e 57 33 20 00 0b ┆MAKE FIELD 5 CURRENT MOVE DEBINW4,W5 GETFLD 0,DEBINW4,DEBINW3 ┆
0xa442…a492 00 34 00 1e 00 19 5c 42 5c 44 45 54 43 39 38 5c 54 41 42 20 4e 4f 54 20 41 4c 4c 4f 57 45 44 20 00 0b 00 56 00 20 00 1c 44 45 54 43 38 33 5c 5c 4d 41 4b 45 20 46 49 45 4c 44 20 34 20 43 55 52 52 45 4e 54 00 0b 00 78 00 14 00 10 5c 4d 4f 56 ┆ 4 B DETC98 TAB NOT ALLOWED V DETC83 MAKE FIELD 4 CURRENT x MOV┆
0xa492…a4e2 45 5c 44 45 42 49 4e 57 34 2c 57 34 00 0b 00 9c 00 1e 00 19 5c 47 45 54 46 4c 44 5c 30 2c 44 45 42 49 4e 57 34 2c 44 45 42 49 4e 57 33 20 00 0b 00 b4 00 1e 00 19 5c 42 5c 44 45 54 43 39 38 5c 54 41 42 20 4e 4f 54 20 41 4c 4c 4f 57 45 44 20 ┆E DEBINW4,W4 GETFLD 0,DEBINW4,DEBINW3 B DETC98 TAB NOT ALLOWED ┆
0xa4e2…a532 00 0b 00 d6 00 0a 00 06 44 45 54 43 39 38 00 0b 00 f8 00 24 00 20 5c 4d 4f 56 45 5c 44 45 42 49 4e 57 33 2c 57 30 5c 54 41 42 20 4e 4f 54 20 41 4c 4c 4f 57 45 44 00 0b 01 06 00 0e 00 09 5c 42 5c 44 45 54 43 52 54 20 00 0b 01 2e 00 0a 00 06 ┆ DETC98 $ MOVE DEBINW3,W0 TAB NOT ALLOWED B DETCRT . ┆
0xa532…a582 44 45 54 43 39 39 00 0b 01 40 00 20 00 1c 5c 4d 4f 56 45 5c 44 45 42 49 4e 57 33 2c 57 32 5c 54 41 42 20 41 4c 4c 4f 57 45 44 00 0b 01 4e 00 0a 00 06 44 45 54 43 52 54 00 0b 01 72 00 08 00 04 5c 52 45 54 00 0b 01 80 00 0a 00 05 5c 50 45 4e ┆DETC99 @ MOVE DEBINW3,W2 TAB ALLOWED N DETCRT r RET PEN┆
0xa582…a5d2 (108, 0, 400) 44 20 00 0b 01 8c 00 0c 00 08 21 21 49 4c 20 35 37 36 00 0c 00 0a 00 06 00 03 2a 20 00 0c 00 1a 00 12 00 0d 2a 20 20 20 20 20 20 20 4d 54 45 58 54 20 00 0c 00 24 00 4c 00 47 2a 20 20 20 20 20 20 20 2d 20 4d 41 4b 45 53 20 4d 41 54 43 48 20 ┆D !!IL 576 * * MTEXT $ L G* - MAKES MATCH ┆
0xa5d2…a622 4f 46 20 27 4c 49 4e 45 20 44 45 53 49 47 4e 27 20 55 4e 54 49 4c 20 45 4f 4c 20 4f 52 20 4e 45 58 54 20 46 49 45 4c 44 20 49 53 20 46 4f 55 4e 44 20 00 0c 00 3a 00 40 00 3c 2a 20 20 20 20 20 20 20 2d 20 45 44 49 54 20 54 45 58 54 20 50 41 ┆OF 'LINE DESIGN' UNTIL EOL OR NEXT FIELD IS FOUND : @ <* - EDIT TEXT PA┆
0xa622…a672 52 54 53 20 4f 46 20 27 4c 49 4e 45 20 44 45 53 49 47 4e 27 20 49 4e 20 27 4c 49 4e 45 20 44 49 53 50 4c 41 59 27 00 0c 00 8a 00 36 00 31 2a 20 20 20 20 20 20 20 2d 20 47 45 4e 45 52 41 54 45 53 20 27 46 54 45 58 54 27 2d 20 41 4e 44 20 27 ┆RTS OF 'LINE DESIGN' IN 'LINE DISPLAY' 6 1* - GENERATES 'FTEXT'- AND '┆
0xa672…a6c2 46 54 41 42 27 2d 53 54 41 54 4d 45 4e 54 53 20 00 0c 00 ce 00 40 00 3c 2a 20 20 20 20 20 20 20 2d 20 44 49 53 50 4c 41 59 53 20 46 49 45 4c 44 44 45 50 45 4e 44 45 4e 54 20 49 4e 46 4f 20 57 48 45 4e 20 46 4f 55 4e 44 20 49 4e 20 27 4d 41 ┆FTAB'-STATMENTS @ <* - DISPLAYS FIELDDEPENDENT INFO WHEN FOUND IN 'MA┆
0xa6c2…a712 54 43 48 27 00 0c 01 08 00 2e 00 2a 2a 20 20 20 20 20 20 20 2d 20 53 49 47 4e 41 4c 53 20 49 4e 20 27 44 45 42 49 4e 57 33 27 20 41 53 20 46 4f 4c 4c 4f 57 53 3b 00 0c 01 4c 00 24 00 20 2a 20 20 20 20 20 20 20 20 20 3d 20 33 20 4d 41 58 20 ┆TCH' . ** - SIGNALS IN 'DEBINW3' AS FOLLOWS; L $ * = 3 MAX ┆