|
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: 23924 (0x5d74)
Notes: pts_type(SC)
Names: »DMTASS.SC«
└─⟦110b7ed5e⟧ Bits:30009664 Philips computer tape "600106"
└─⟦this⟧ »TOSSWORK/DMTASS.SC«
IDENT DMTASS REL 9.2 79-11-16 870105040920 * =3 PR 5141 * = 79-04-06 * =2 WAIT AT VTOC READ * REL 9.1 79-04-06 * =1, PR 3413 * REL 9.1 78-10-25 * * **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DMTASS = ASSIGN FILE CODE DISC I/O HANDLING * * * * * * **************************************************** * * THIS MODULE IS ACTIVATED FROM TASS * * INPUT A2 = TID TASK IDENT OF DMTASK AT PRESENT NOT USED * TASBLK PARAMETER BLOCK * * IN TASVOL IN TASBLK ALL VOLUMES WHERE THE FILE TO BE ASSIGNED CAN * RECIDE ARE DEFINED. ON THESE VOLUMES THE VTOC:S ARE SEARCHED TO FIND * ALL EXTENTS FOR THE FILE TO BE ASSIGNED. FOR EACH EXTENT ITS * FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND * FILE-EXTENT-BASE ARE SAVED IN TASBLK. * FOR THE FIRST EXTENT (I.E. FILE-SECTION-NO =0 AND FILE-EXTENT-NO =0) * THE LAST-RECORD-NO, RECORD-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO * ARE SAVED TOO. * WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED * TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO * ANOTHER FILE CODE. IF SO THE FDB ADDRESS IS PUT INTO THE CD:TAB AND * THE ASSIGNMENT IS COMPLETED. IF NO FDB DESCRIBING THE FILE IS FOUND * THEN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE * VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS * * FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE. * DURING THE FIRST LOOP A MASTERINDEX IS READ. * FC 13 IN TTAB FOR DMTASK IS THEN USED EJECT * *************** * ENTRIES * *************** * ENTRY DMTASS ENTRY VTLRN ENTRY VLVBA ENTRY VLVRL ENTRY SECTLE EJECT * ***************** * EXTERNALS * ***************** * EXTRN QTJOB EXTRN FNDTID,TTB:TD * EXTRN DWTST EXTRN DWTADR EXTRN DWTMEC MMU ECB ADDRESS IN FDB * EXTRN ECBFC EXTRN ECBBA EXTRN ECBRL EXTRN ECBRC EXTRN ECBCW * EXTRN TIODM EXTRN DMTGBU EXTRN DMTRBU EXTRN CLRBUF EXTRN BUFSTA EXTRN BUFSNR EXTRN BUFDMI * EXTRN QFDBFL EXTRN FDBSTA EXTRN FDBEND EXTRN FDBECB EXTRN FDBEXT EXTRN EXTDMI EXTRN EXTLEN EXTRN EXTBAS EXTRN FDBRLE EXTRN FDBBLF EXTRN FDBVTO EXTRN FDBLRN EXTRN FDBNIF,FDBKA EXTRN FDBMIA,FDBAI1,FDBADF,FDBCRL EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX EXTRN FDBDBR,FDBMRO EXTRN FDBMEC MMU ECB DISPLACEMENT IN FDB EXTRN MXIND,CRNQUE,DMTWM,MPYMOD EXTRN TASASB EXTRN TASCVO EXTRN TASVOL EXTRN TASCXO EXTRN TASSEX EXTRN TASXLB EXTRN TASFDB EXTRN TASVRL EXTRN TASVLE EXTRN TASVRN EXTRN TASECB EXTRN TASFIL,TASTID,TASMXA EXTRN TASSPW,TASFDD,TASTBE EXTRN TASCAQ EXTRN TASLFD =1 EXTRN VOLCHE EJECT X:A EQU 0 RECBFZ EQU X:A INDEX RECORD BUFFER SIZE X:B EQU 0 INDXAC EQU X:B INDEX ACCESS FUNCTIONS WHEN = 1 * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * EJECT * ************ * DATA * ************ * * CYLID 1 WORD INCL FOR VOL LABEL VLVLE EQU 8 VLVBA EQU 12 VLVRL EQU 14 VLVER EQU 34 * VTFSNO EQU 8 VTFXNO EQU 10 VTFXLE EQU 14 VTFXBA EQU 18 VTLRN EQU 21 VTRLE EQU 24 VTBLF EQU 26 VTFIOR EQU 27 VTNIF EQU 37 VTKA EQU 38 * * QVTBLE= (VTOC BF)*(RL+1)+2 QVTBLE EQU 380 VTOC BLOCK LENGTH SECTLE EQU 410 SECTOR LENGTH DATA 0,0 4 WORDS DATA 0,0 STACK DMTA14 EQU *-2 EJECT * ************** * DMTIOC * ************** * * ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O * RETURN TO DMTASX WITH A7=1 IF ERROR. * DMTIOC EQU * LDKL A8,TASECB LD A3,ECBBA,A8 LD A1,ECBRC,A8 ANKL A1,/FEFF BIT 7 ONLY RETRIES RF(Z) DMTIOX ADKL A14,4 ANK A1,/80 RF(NZ) DMT060 NEW VOLUME LOADED SUKL A3,BUFSTA CM BUFDMI,A3 CLEAR VOL IDENT IN BUFFER LDK A7,1 ABL DMTASX DISC I/O ERROR DMTIOX EQU * RTN A14 EJECT * ************** * DMTASS * ************** * DMTASS EQU * LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER ST A2,TASTID TASK IDENT CM TASMXA MASTER INDEX ADDR ANK A2,/2 RF(Z) DMT010 NOT FLEXTASC * * PERFORM VOLUME CHECK WITH LOCK * LD A8,TASASB ASBLK ADDR LCR A2,A8 ANK A2,/07 NO OF VOL LDKL A11,1 LOCK WANTED CF A14,VOLCHE SEE TASS LDR A1,A1 RF(Z) DMT010 OK LDK A7,4 VOL UNKNOWN SUR A8,A8 NO BUFFER =3 ABL DMTASX DMT010 EQU * * LDKL A8,TASECB * LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME DMT050 EQU * CF A14,CLRBUF RELEASE ALL FREE BUFFERS ENB ENB LD A1,TASVOL,A1 DMI, FC FIRST VOLUME SC A1,ECBFC,A8 LDKL A2,SECTLE ST A2,ECBRL,A8 SECTOR LENGTH LDK A2,0 ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) * * CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 DATA /5700 NOP. READ ALWAYS ADKL A3,BUFSTA ST A3,ECBBA,A8 DATA BUFFER START * * PHYS READ 1 SECT FROM DISC * DMT060 EQU * LDK A7,/91 WAIT =2 LKM DATA 1 =2 LDKL A14,DMTA14 SET UP A14 STACK POINTER CF A14,DMTIOC I/O CHECK LD A2,VLVER,A3 VERSION CWK A2,'TO' DTOSS FORMATED DISC? RF(E) DMT100 YES LDK A7,8 NO ABL DMTASX ERROR RETURN * DMT100 EQU * CM TASVRN LD A6,VLVLE,A3 VTOC LENGTH ST A6,TASVLE LD A2,VLVBA,A3 VTOC BASE ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT LD A9,VLVRL,A3 VTOC RECORD LENGTH ST A9,TASVRL EJECT * * SEARCH ALL VTOC:S * DMT110 EQU * LD A6,TASVLE SUK A6,1 ST A6,TASVLE UPDATE TASVLE RF(P) DMT115 MORE VTOC SECTORS EJECT * * ALL VTOC SECTORS ARE READ * LD A1,TASCVO SUK A1,2 ABL(N) DMT300 ALL VOLUMES CHECKED ST A1,TASCVO UPDATE TASCVO LDK A7,7 TOO MANY FILE SECTIONS LD A3,TASFIL ABL(NZ) DMTASX NOT DATA FILE LD A3,ECBBA,A8 SUKL A3,BUFSTA CF A14,DMTRBU RELEASE BUFFER LC A7,TASVOL,A1 CC A7,TASVOL+2,A1 RB(E) DMT050 SAME DM TASK * * ACTIVATE NEXT DM TASK * ADKL A7,'#D' LKM DATA -4 DATA DMTASS LKM DATA 3 EXIT EJECT * * READ NEXT VTOC SECTOR AND EXIT * DMT115 EQU * LD A3,ECBBA,A8 SUKL A3,BUFSTA CF A14,DMTRBU LD A2,ECBCW,A8 ADK A2,1 NEXT VTOC SECTOR LD A1,TASCVO LD A1,TASVOL,A1 CF A14,DMTGBU GET BUFFER DATA /5700 NOP. READ ALWAYS ADKL A3,BUFSTA ST A3,ECBBA,A8 ST A2,ECBCW,A8 LDK A7,/91 WAIT =2 LKM DATA 1 =2 LDKL A14,DMTA14 CF A14,DMTIOC LD A9,TASVRL LD A11,TASASB ADKL A11,2 POINTER TO FILENAME IN ASBLK LDK A4,2 CW A4,TASFIL RF(NE) DMT135 NOT MASTER INDEX ADKL A11,14 MX FILE NAME ADDR DMT135 EQU * ADK A3,2 SKIP CYLID DMT120 EQU * IM TASVRN INCREMENT VTOC RECORD NO LDR A4,A3 ADR A4,A9 ADDRESS STATUS BYTE LCR A2,A4 ANK A2,/FF ABL(Z) DMT250 NOT USED SUR A4,A9 BACK TO START OF VTOC REC LDR A7,A11 LDK A2,4 FILE NAME MAX 4 WORDS DMT150 EQU * LDR* A10,A4 CWR* A10,A7 ABL(NE) DMT250 NO MATCH SUK A2,1 RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH ADK A4,2 ADK A7,2 RB DMT150 CHECK NEXT WORD * * ONLY STANDARD FILES ARE HANDLED * DMT160 EQU * LC A2,VTFIOR,A3 CCK A2,'SS' STANDARD FILE ? RF(E) DMT165 YES CCK A2,'LL' LIBRARY FILE ? ABL(NZ) DMT250 NO LDK A2,0 FILE EXTENT NUMBER RF DMT167 DMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER EJECT DMT167 EQU * * * GET INFO FROM VTOC AND SAVE IN TASBLK * LDR A4,A3 START OF VTOC RECORD LD A1,TASCXO CURRENT OFFSET INTO TASSEX AND TASXLB SUK A1,4 ST A1,TASCXO RF(NN) DMT170 <= 4 EXTENTS LDK A7,9 ABL DMTASX MORE THAN 4 EXTENTS EXIST DMT170 EQU * ECR A2,A2 TO LEFT HALF OF A2 LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 ST A2,TASSEX,A1 LD A6,TASCVO ST A6,TASSEX+2,A1 REMEMBER WHICH VOLUME LD A2,VTFXLE,A4 EXTENT-LENGTH ST A2,TASXLB,A1 LD A2,VTFXBA,A4 EXTENT BASE ST A2,TASXLB+2,A1 LD A2,TASSEX,A1 RF(NZ) DMT250 NOT FIRST EXTENT EJECT * FIRST FILE EXTENT * CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. * LD A12,TASFDB RF(Z) DMT190 FIRST TIME EXT #0 FOUND LDK A7,7 ABL DMTASX EXT #0 ALREADY FOUND DMT190 EQU * LDKL A12,FDBSTA DMT200 EQU * LDR* A5,A12 ANK A5,/01 RF(Z) DMT210 FREE LD A2,FDBEXT,A12 CW A2,TASVOL,A6 RF(NE) DMT210 NOT SAME VOLUME LD A2,FDBVTO,A12 CW A2,TASVRN RF(NE) DMT210 NOT SAME VTOC REC LD A2,FDBMIA,A12 RF(NZ) DMT205 INDEX ASS BEFOR LD A2,TASFIL ABL(E) DMT400 SAME VTOC RECORD FDB FOUND DMT205 EQU * LDK A7,5 FILE CODE USED ABL DMTASX * DMT210 LDR* A12,A12 GET NEXT FDB ANKL A12,/FFFE RB(NE) DMT200 MORE FDB:S TO SEARCH * * NO MATCHING FDB EXIST FIND A FREE FDB * LDKL A12,FDBSTA DMT220 LDR* A5,A12 ANK A5,/01 RF(Z) DMT230 FREE LDR* A12,A12 GET NEXT FDB ANKL A12,/FFFE RB(NE) DMT220 MORE FDB:S TO CHECK LDK A7,3 ABL DMTASX NO FDB AVAILABLE * INITIALIZE FDB ZERO FROM FDB+2 * DMT230 EQU * ST A12,TASFDB LDR A10,A12 ADKL A10,QFDBFL LDK A2,0 LDR A1,A12 DMT233 ADK A1,2 CWR A1,A10 RF(E) DMT237 END OF FDB STR A2,A1 RB DMT233 DMT237 EQU * LDKL A2,/8000 * DEV NOT BUSY ST A2,DWTST,A12 LDKL A2,TIODM ST A2,DWTADR,A12 LDKL A2,SECTLE LDR A1,A12 ADKL A1,FDBECB ST A2,ECBRL,A1 LDK A2,/01 ORRS A2,A12 SET USE BIT LC A2,VTLRN,A4 SC A2,FDBLRN,A12 LD A2,VTLRN+1,A4 ST A2,FDBLRN+1,A12 LD A2,VTRLE,A4 ST A2,FDBRLE,A12 LC A2,VTBLF,A4 SC A2,FDBBLF,A12 LC A2,VTNIF,A4 SC A2,FDBNIF,A12 LD A2,VTKA,A4 ST A2,FDBKA,A12 LD A2,TASVRN ST A2,FDBVTO,A12 * IFT MMUPAG=1 LDR A2,A12 GET FDB ADDRESS ADKL A2,FDBMEC ADD MMU ECB DISPLACEMENT ST A2,DWTMEC,A12 SET ADDRESS TO MMU ECB IN FDB XIF * EJECT * * CHECK NEXT VTOC RECORD * DMT250 EQU * * A3 = ADR 1ST REC * A9 = VTOC REC LGTH ADR A3,A9 ADK A3,1 SKIP STATUS BYTE LDR A2,A3 SU A2,ECBBA,A8 CWK A2,QVTBLE ABL(L) DMT120 MORE RECORDS IN BUFFER ABL DMT110 GET NEXT VTOC SECTOR * * ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT * DMT300 EQU * LDK A3,16 SU A3,TASCXO RF(NZ) DMT310 LDK A7,6 RF DMTASX FILE NAME UNKNOWN DMT310 EQU * LD A12,TASFDB RF(NZ) DMT320 LDK A7,7 RF DMTASX FIRST EXTENT IS MISSING EJECT * * PUT EXTENT INFORMATION INTO FDB IN ASCENDING ORDER * ACCORDING TO INCREASING SECTOR NO AND EXTENT NO * DMT320 EQU * * * CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE * LD A6,TASFIL RF(Z) DMT330 DATA FILE ASS LD A6,FDBRLE,A12 RECORD LENGTH ADK A6,2 SRL A6,1 NR OF WORDS CWK A6,RECBFZ RECORD BUFFER SIZE RF(NG) DMT330 OK LDK A7,12 RF DMTASX RECORD BUFFER IS TOO SMALL DMT330 EQU * LDR A6,A12 * FDB ADDR ADKL A6,FDBEXT LDK A2,0 LDR A5,A3 SRL A5,2 NUMBER OF EXTENTS DMT340 EQU * LDK A4,16 DMT350 EQU * SUK A4,4 CW A2,TASSEX,A4 RF(E) DMT360 MATCH CW A4,TASCXO RB(NE) DMT350 MORE EXTENTS TO CHECK * * THE EXTENT SEARCHED FOR IS NOT FOUND * CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0) * LDR A1,A2 ANK A1,/FF RF(NZ) DMT370 TRY NEXT SECTION * DMT355 EQU * LDK A7,7 RF DMTASX FILE SECTION MISSING DMT360 EQU * * * MOVE INFO ABOUT THIS EXTENT TO FDB * LD A1,TASSEX+2,A4 LD A1,TASVOL,A1 ST A1,EXTDMI,A6 LD A1,TASXLB,A4 ST A1,EXTLEN,A6 LD A1,TASXLB+2,A4 ST A1,EXTBAS,A6 ADK A6,6 SUK A5,1 RF(NP) DMT500 ALL EXTENTS HANDLED * * FIND NEXT FILE-SECTION-NO, FILE-EXT-NO COMBINATION * TO SEARCH FOR * LDR A1,A2 ANK A1,/FF SUK A1,3 RF(NE) DMT380 NOT EXT-NO = 3 DMT370 EQU * ECR A1,A2 ANK A1,/FF SUK A1,3 RB(E) DMT355 SECTION-NO = 3 ADK A1,4 INCREMENT SECTION-NO ECR A2,A1 EXT-NO = 0 RB DMT340 DMT380 ADK A2,1 INCREMENT EXT-NO RB DMT340 EJECT DMTASX EQU * =1 START * * AT ERROR EXIT UNLOCK FLEXDISCS WHICH WERE UNLOCKED BEFORE * LDR A5,A7 LDR A6,A8 SAVE LDK A1,3 LOOP DMTASY EQU * LC A2,TASLFD,A1 FILE CODES ANK A2,/FF RF(Z) DMTASZ NO CODE LDKL A8,TASECB SC A2,TASECB+1 LDK A7,/B8 UNLOAD ,WAIT LKM DATA 1 DMTASZ EQU * SUK A1,1 RB(NN) DMTASY NEXT LDR A7,A5 LDR A8,A6 RF DMT401 =1 END * * PUT FDB ADDRESS INTO TTAB/CD:TAB * DMT400 EQU * LDK A7,0 DMT401 EQU * =1 LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR LDR A7,A7 RF(Z) DMT420 CORRECT RETURN CM -1,A2 ZERO FILE CODE * * REMOVE FDB WITH MASTER INDEX * LD A4,TASMXA MASTER INDEX ADDR RF(Z) DMT410 NO MASTER INDEX INH INH LD A2,MXIND SIEZE MASTERINDEXINDEX SUK A2,2 DMT405 EQU * SUK A2,4 NEXT OFFSET RF(NN) DMT407 OK RF DMT408 MASTER INDEX MUST BE FOUND DMT407 CW A4,MXIND+2,A2 RB(NE) DMT405 NEXT ENTRY LDKL A4,/7FFF ANS A4,MXIND+4,A2 SET ENTRY FREE DMT408 ENB ENB DMT410 EQU * LD A3,TASFDB RF(Z) DMT430 NO FDB USED LDKL A2,/FFFE ANRS A2,A3 CLEAR FDB USE BIT RF DMT430 DMT420 EQU * ST A12,1,A2 FDB ADDR DMT430 EQU * LDR A8,A8 RF(Z) DMT440 NO BUFFER LD A3,ECBBA,A8 SUKL A3,BUFSTA CF A14,DMTRBU RELEASE BUFFER DMT440 EQU * CF A14,CLRBUF RELEASE ALL FREE BUFFERS CF A14,TASCAQ CHECK ASSIGN QUEUE CF A15,QTJOB QUEUE CALLING TASK ENB LKM DATA 3 EJECT DMT500 EQU * LD A6,TASFIL ABL(Z) DMT700 DATA FILE IFF INDXAC=1 LDKL A7,-1 REQ ERR RB DMTASX XIF IFT INDXAC=1 SUK A6,1 ABL(Z) DMT600 INDEX FILE EJECT * * THIS IS MASTER INDEX LOOP. * CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ * MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE * LD A7,TASTID DMTASK ID INH CF A15,FNDTID TTAB ADDR TO A2 ENB ST A2,TASSPW LDKL A3,/0100 INDEX DATA FILE LD A1,TASASB LC A3,1,A1 FILE CODE SC A3,TASECB+1 ST A3,TTB:TD+2,A2 TTAB ENTRY ST A12,TTB:TD+4,A2 FDB ADR LD A3,ECBBA,A8 SUKL A3,BUFSTA CF A14,DMTRBU RELEASE BUFFER * * CALC NO OF WORDS NEEDED IN MASTRE INDEX * LD A6,FDBRLE,A12 REC LGTH LD A7,FDBLRN+1,A12 NO OF RECS CF A14,MPYMOD A1,A2=NO OF BYTES NEEDED SRC A1,1 ORR A2,A1 GET MOST SIGN BIT ADK A2,5 SRL A2,1 NO OF WORDS NEEDED RF(Z) DMT570 WRONG SIZE INH LD A4,MXIND LENGTH MXIND SUK A4,4 MAX A5 VALUE LDKL A5,-2 OFFSET DMT540 EQU * ADK A5,4 GET ENTRY CWR A5,A4 RF(G) DMT570 NO ENTRY FOUND LD A3,MXIND,A5 RB(Z) DMT540 ZERO ENTRY LD A6,MXIND+2,A5 RB(N) DMT540 ENTRY USED SUR A6,A2 NO OF SPARE WORDS RB(N) DMT540 LARGER ENTRY NEEDED * * SUFFICIENT SPACE FOUND * LDKL A1,/8000 USED BIT ORS A1,MXIND+2,A5 MARK ENTRY USED ST A3,TASMXA MASTER INDEX ADDR ST A3,FDBMIA,A12 LD A7,FDBLRN+1,A12 STR A7,A3 NO OF ENTRIES LD A1,FDBRLE,A12 ST A1,2,A3 ENTRY LENGTH ADK A3,4 SKIP MX HEADRER ST A3,ECBBA,A8 BUFFER ADDR ST A1,ECBRL,A8 REQ LGTH LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION CWR A1,A4 MXIND ENTRY RF(NL) DMT590 LAST ENTRY LD A3,MXIND+6,A1 RF(N) DMT590 NEXT ENTRY USED * * MOVE SPARE WORDS TO NEXT ENTRY * LD A2,MXIND+2,A1 ANKL A2,/7FFF REMOVE USE BIT SUR A2,A6 ORKL A2,/8000 USE BIT ST A2,MXIND+2,A1 ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER LD A7,MXIND,A1 PREVIOUS POINTER SLL A2,1 NO OF BYTES ADR A7,A2 ST A7,MXIND+4,A1 EJECT DMT590 EQU * ENB * * NOW READ MASTER INDEX WITH SEQUENTIAL READ * A8 = TASECB * OTHER REQ TO THE SAME FILE CODE ARE NOT POSSIBLE * BECAUSE AN INDEX FILE MUST ALWAYS BE ASSIGNED COMMON * DMT550 EQU * LDK A7,/42 SEQ READ,NOWAIT,NO EA LKM DATA -1 DATA DMTAR5 LKM DATA 3 EXIT DMTAR5 EQU * LDKL A14,DMTA14 RESTORE STACK LDKL A8,TASECB ECB ADDR LD A2,ECBRC,A8 ANKL A2,/FEFF BIT 7 ONLY RETRIES RF(Z) DMT560 NO ERROR * * REMOVE THE ONLY CRN BUFFER * LD A4,TASFDB FDB ADDR LD A5,FDBCRL,A4 CRN BUF ADR RF(Z) DMT553 NO CRN CM FDBCRL,A4 INH LD A6,CRNQUE STR A6,A5 ST A5,CRNQUE ENB DMT553 EQU * ANKL A2,/1000 BIT 3 = EOF RF(NZ) DMT595 READY ,WHOLIE MXINDEX IS READ LDK A7,7 DMT555 SUR A8,A8 NO BUFFER ABL DMTASX DISC IO ERR DMT560 EQU * * * RECORD READ,READ NEXRT * LD A2,ECBRL,A8 ADS A2,ECBBA,A8 REC LENGTH RB DMT550 READ NEXT RECORD DMT570 EQU * ENB LDK A7,3 NOT SUFF SPACE RB DMT555 EJECT DMT595 EQU * * * MASTER INDE X READUY. RERUN FOR INDEX FILE * LDK A1,1 ST A1,TASFIL INDEX FILE LD A3,TASSPW TTAB ADR DMTASK CM TTB:TD+2,A3 DELETE ENTRY CM TTB:TD+4,A3 LD A3,TASFDB FDB ADDR LDKL A2,/FFFE ANRS A2,A3 CLEAR FDB USE BIT CM TASFDB EXT 0 NOT FOUND FOR INDEX LDK A1,16 ST A1,TASCXO LAST ENTRY POSSIBLE LDK A1,0 * TASCVO REMAINS ZERO FROM MASTER INDEX LOOP ABL DMT050 ASSIGN INDEX EJECT DMT600 EQU * * * INDEX FILE ASSIGN * LDK A7,10 RET CODE LD A10,TASFDD FDB ADDR DATA FILEP RF(Z) DMT650 NO DATA FILE * * STORE INDEX ADDR IN FDB DATA FILE * INH INH LC A3,DWTST,A10 ANK A3,/40 RF(NZ) DMT639 OTHER REQUEST BUSY LDK A3,8 MAX NO OF INDE*2 DMT620 EQU * SUK A3,2 RF(N) DMT640 MORE THAN 4 INDEX LDR A6,A10 ADR A6,A3 LD A2,FDBAI1,A6 RB(NZ) DMT620 USED ST A12,FDBAI1,A6 STORE FDB ADDR INDEX * * MOVE FDB ADDRESSES FROM DATA FILE TO ALL INDEX FILES * LDK A5,8 NR OF INDEX *2 DMT625 EQU * SUK A5,2 RF(N) DMT635 ALL FDB UPPDATED LDR A1,A10 FDB DATA ADR A1,A5 LD A3,FDBAI1,A1 FDB ADDR INDEX RB(Z) DMT625 NO INDEX FILE LDKL A1,FDBADF ADR A3,A1 TO ADDR ADR A1,A10 FROM ADDR LDK A2,10 NO OF BYTES CF A14,DMTWM MOVE 5 WORDS RB DMT625 DMT635 EQU * LC A1,DWTST,A10 SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE ENB ENB LD A1,TASMXA ST A1,FDBMIA,A12 MASTER INDEX ADDR RF DMT720 DMT639 ADK A7,2 A7=13=OTHER REQ BUSY DMT640 ADK A7,1 A7=11=4 INDEX ALREADY DMT650 EQU * A7=10=NO DATA FILE ABL DMTASX XIF EJECT DMT700 EQU * ASSIGN DATA FILE ST A12,FDBADF,A12 FDB ADDR TO FDB LD* A1,TASASB ASBLK ADDR ANKL A1,/6000 SLL A1,1 ORS A1,FDBDBR,A12 DELAY + BASIC DMT720 EQU * * * SET FDBMRN TO MAX REC NO IN FILE * LDR A1,A12 ADKL A1,FDBNIF ADKL A1,EXTELE-2 DMT750 SUKL A1,EXTELE LDR* A2,A1 EXT BASE RB(Z) DMT750 AD A2,-2,A1 SUKL A1,EXTELE-2 ST A1,FDBCEX,A12 SUK A2,1 ST A2,FDBSNR,A12 LDR A1,A12 CF A14,GTLGRN GET LOG REC NO LDK A1,0 LC A1,FDBBLF,A12 BLOCK FACTOR SUK A1,1 ADR A3,A1 RF(O) DMT760 RF DMT770 DMT760 ANKL A3,/7FFF ADK A2,1 CARRY DMT770 SC A2,FDBMRN,A12 ST A3,FDBMRN+1,A12 * * CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE * LD A6,FDBRLE,A12 REC LENGTH ADK A6,1 LDK A7,0 LC A7,FDBBLF,A12 BLOCK FACT SUK A7,1 CF A14,MPYMOD A1,A2=A6*A7 ST A2,FDBMRO,A12 MAX FDBRRO ABL DMT400 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DMTASS REL 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0054 Head {h00=0x0012, h01=0x0050, text=»* =3 PR 5141«, t00=0x0000, t01=0x0042}
0x0054…006a Head {h00=0x0012, h01=0x0050, text=»* = 79-04-06«, t00=0x0000, t01=0x0058}
0x006a…008a Head {h00=0x001c, h01=0x0050, text=»* =2 WAIT AT VTOC READ«, t00=0x0000, t01=0x006e}
0x008a…00a6 Head {h00=0x0018, h01=0x0050, text=»* REL 9.1 79-04-06«, t00=0x0000, t01=0x008e}
0x00a6…00be Head {h00=0x0014, h01=0x0050, text=»* =1, PR 3413 «, t00=0x0000, t01=0x00aa}
0x00be…00da Head {h00=0x0018, h01=0x0050, text=»* REL 9.1 78-10-25«, t00=0x0000, t01=0x00c2}
0x00da…00e2 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00de}
0x00e2…00ea Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x00e6}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…013a Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0102}
0x013a…0144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013e}
0x0144…016c Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x0148}
0x016c…0176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0170}
0x0176…01ae Head {h00=0x0034, h01=0x0050, text=»* DMTASS = ASSIGN FILE CODE DISC I/O HANDLING «, t00=0x0000, t01=0x017a}
0x01ae…01b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0022}
0x01b8…01c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x002c}
0x01c2…01cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0036}
0x01cc…01d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0040}
0x01d6…01e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x004a}
0x01e0…01ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0054}
0x01ea…0226 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x005e}
0x0226…0230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x009a}
0x0230…025e Head {h00=0x002a, h01=0x0050, text=»* THIS MODULE IS ACTIVATED FROM TASS«, t00=0x0001, t01=0x00a4}
0x025e…0268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d2}
0x0268…02ae Head {h00=0x0042, h01=0x0050, text=»* INPUT A2 = TID TASK IDENT OF DMTASK AT PRESENT NOT USED «, t00=0x0001, t01=0x00dc}
0x02ae…02da Head {h00=0x0028, h01=0x0050, text=»* TASBLK PARAMETER BLOCK «, t00=0x0001, t01=0x0122}
0x02da…02e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014e}
0x02e4…0332 Head {h00=0x004a, h01=0x0050, text=»* IN TASVOL IN TASBLK ALL VOLUMES WHERE THE FILE TO BE ASSIGNED CAN «, t00=0x0001, t01=0x0158}
0x0332…0382 Head {h00=0x004c, h01=0x0050, text=»* RECIDE ARE DEFINED. ON THESE VOLUMES THE VTOC:S ARE SEARCHED TO FIND«, t00=0x0002, t01=0x0016}
0x0382…03ca Head {h00=0x0044, h01=0x0050, text=»* ALL EXTENTS FOR THE FILE TO BE ASSIGNED. FOR EACH EXTENT ITS«, t00=0x0002, t01=0x0066}
0x03ca…040c Head {h00=0x003e, h01=0x0050, text=»* FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND«, t00=0x0002, t01=0x00ae}
0x040c…043e Head {h00=0x002e, h01=0x0050, text=»* FILE-EXTENT-BASE ARE SAVED IN TASBLK. «, t00=0x0002, t01=0x00f0}
0x043e…048e Head {h00=0x004c, h01=0x0050, text=»* FOR THE FIRST EXTENT (I.E. FILE-SECTION-NO =0 AND FILE-EXTENT-NO =0)«, t00=0x0002, t01=0x0122}
0x048e…04dc Head {h00=0x004a, h01=0x0050, text=»* THE LAST-RECORD-NO, RECORD-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO«, t00=0x0002, t01=0x0172}
0x04dc…04f6 Head {h00=0x0016, h01=0x0050, text=»* ARE SAVED TOO.«, t00=0x0003, t01=0x0030}
0x04f6…0546 Head {h00=0x004c, h01=0x0050, text=»* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED «, t00=0x0003, t01=0x004a}
0x0546…0596 Head {h00=0x004c, h01=0x0050, text=»* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO «, t00=0x0003, t01=0x009a}
0x0596…05e6 Head {h00=0x004c, h01=0x0050, text=»* ANOTHER FILE CODE. IF SO THE FDB ADDRESS IS PUT INTO THE CD:TAB AND «, t00=0x0003, t01=0x00ea}
0x05e6…0636 Head {h00=0x004c, h01=0x0050, text=»* THE ASSIGNMENT IS COMPLETED. IF NO FDB DESCRIBING THE FILE IS FOUND «, t00=0x0003, t01=0x013a}
0x0636…0678 Head {h00=0x003e, h01=0x0050, text=»* THEN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE«, t00=0x0003, t01=0x018a}
0x0678…06b0 Head {h00=0x0034, h01=0x0050, text=»* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS«, t00=0x0004, t01=0x003c}
0x06b0…06ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0074}
0x06ba…06f0 Head {h00=0x0032, h01=0x0050, text=»* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE.«, t00=0x0004, t01=0x007e}
0x06f0…0728 Head {h00=0x0034, h01=0x0050, text=»* DURING THE FIRST LOOP A MASTERINDEX IS READ.«, t00=0x0004, t01=0x00b4}
0x0728…075a Head {h00=0x002e, h01=0x0050, text=»* FC 13 IN TTAB FOR DMTASK IS THEN USED «, t00=0x0004, t01=0x00ec}
0x075a…0768 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x011e}
0x0768…0772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012c}
0x0772…078a Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x0136}
0x078a…07a2 Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0004, t01=0x014e}
0x07a2…07ba Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x0166}
0x07ba…07c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017e}
0x07c4…07da Head {h00=0x0012, h01=0x0050, text=» ENTRY DMTASS «, t00=0x0004, t01=0x0188}
0x07da…07ee Head {h00=0x0010, h01=0x0050, text=» ENTRY VTLRN«, t00=0x0005, t01=0x000e}
0x07ee…0802 Head {h00=0x0010, h01=0x0050, text=» ENTRY VLVBA«, t00=0x0005, t01=0x0022}
0x0802…0816 Head {h00=0x0010, h01=0x0050, text=» ENTRY VLVRL«, t00=0x0005, t01=0x0036}
0x0816…082c Head {h00=0x0012, h01=0x0050, text=» ENTRY SECTLE «, t00=0x0005, t01=0x004a}
0x082c…083a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0060}
0x083a…0844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006e}
0x0844…085e Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0005, t01=0x0078}
0x085e…0878 Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x0092}
0x0878…0892 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0005, t01=0x00ac}
0x0892…089c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c6}
0x089c…08b0 Head {h00=0x0010, h01=0x0050, text=» EXTRN QTJOB«, t00=0x0005, t01=0x00d0}
0x08b0…08cc Head {h00=0x0018, h01=0x0050, text=» EXTRN FNDTID,TTB:TD«, t00=0x0005, t01=0x00e4}
0x08cc…08d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0100}
0x08d6…08ea Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTST«, t00=0x0005, t01=0x010a}
0x08ea…0900 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTADR «, t00=0x0005, t01=0x011e}
0x0900…092c Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTMEC MMU ECB ADDRESS IN FDB«, t00=0x0005, t01=0x0134}
0x092c…0936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0160}
0x0936…094a Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBFC«, t00=0x0005, t01=0x016a}
0x094a…095e Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBBA«, t00=0x0005, t01=0x017e}
0x095e…0972 (6, 0, 400) Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRL«, t00=0x0006, t01=0x0004}
0x0972…0986 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRC«, t00=0x0006, t01=0x0018}
0x0986…099a Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBCW«, t00=0x0006, t01=0x002c}
0x099a…09a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0040}
0x09a4…09b8 Head {h00=0x0010, h01=0x0050, text=» EXTRN TIODM«, t00=0x0006, t01=0x004a}
0x09b8…09ce Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTGBU «, t00=0x0006, t01=0x005e}
0x09ce…09e4 Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTRBU «, t00=0x0006, t01=0x0074}
0x09e4…09fa Head {h00=0x0012, h01=0x0050, text=» EXTRN CLRBUF «, t00=0x0006, t01=0x008a}
0x09fa…0a10 Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFSTA «, t00=0x0006, t01=0x00a0}
0x0a10…0a26 Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFSNR «, t00=0x0006, t01=0x00b6}
0x0a26…0a3c Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFDMI «, t00=0x0006, t01=0x00cc}
0x0a3c…0a46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e2}
0x0a46…0a5c Head {h00=0x0012, h01=0x0050, text=» EXTRN QFDBFL «, t00=0x0006, t01=0x00ec}
0x0a5c…0a72 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBSTA «, t00=0x0006, t01=0x0102}
0x0a72…0a88 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBEND «, t00=0x0006, t01=0x0118}
0x0a88…0a9e Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBECB «, t00=0x0006, t01=0x012e}
0x0a9e…0ab4 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBEXT «, t00=0x0006, t01=0x0144}
0x0ab4…0aca Head {h00=0x0012, h01=0x0050, text=» EXTRN EXTDMI «, t00=0x0006, t01=0x015a}
0x0aca…0ae0 Head {h00=0x0012, h01=0x0050, text=» EXTRN EXTLEN «, t00=0x0006, t01=0x0170}
0x0ae0…0af6 Head {h00=0x0012, h01=0x0050, text=» EXTRN EXTBAS «, t00=0x0006, t01=0x0186}
0x0af6…0b0c Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBRLE «, t00=0x0007, t01=0x000c}
0x0b0c…0b22 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBBLF «, t00=0x0007, t01=0x0022}
0x0b22…0b38 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBVTO «, t00=0x0007, t01=0x0038}
0x0b38…0b4e Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBLRN «, t00=0x0007, t01=0x004e}
0x0b4e…0b6a Head {h00=0x0018, h01=0x0050, text=» EXTRN FDBNIF,FDBKA «, t00=0x0007, t01=0x0064}
0x0b6a…0b94 Head {h00=0x0026, h01=0x0050, text=» EXTRN FDBMIA,FDBAI1,FDBADF,FDBCRL«, t00=0x0007, t01=0x0080}
0x0b94…0bc6 Head {h00=0x002e, h01=0x0050, text=» EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX «, t00=0x0007, t01=0x00aa}
0x0bc6…0be2 Head {h00=0x0018, h01=0x0050, text=» EXTRN FDBDBR,FDBMRO«, t00=0x0007, t01=0x00dc}
0x0be2…0c14 Head {h00=0x002e, h01=0x0050, text=» EXTRN FDBMEC MMU ECB DISPLACEMENT IN FDB «, t00=0x0007, t01=0x00f8}
0x0c14…0c3c Head {h00=0x0024, h01=0x0050, text=» EXTRN MXIND,CRNQUE,DMTWM,MPYMOD«, t00=0x0007, t01=0x012a}
0x0c3c…0c52 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASASB «, t00=0x0007, t01=0x0152}
0x0c52…0c68 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCVO «, t00=0x0007, t01=0x0168}
0x0c68…0c7e Head {h00=0x0012, h01=0x0050, text=» EXTRN TASVOL «, t00=0x0007, t01=0x017e}
0x0c7e…0c94 (8, 0, 398) Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCXO «, t00=0x0008, t01=0x0004}
0x0c94…0caa Head {h00=0x0012, h01=0x0050, text=» EXTRN TASSEX «, t00=0x0008, t01=0x001a}
0x0caa…0cc0 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASXLB «, t00=0x0008, t01=0x0030}
0x0cc0…0cd6 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASFDB «, t00=0x0008, t01=0x0046}
0x0cd6…0cec Head {h00=0x0012, h01=0x0050, text=» EXTRN TASVRL «, t00=0x0008, t01=0x005c}
0x0cec…0d02 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASVLE «, t00=0x0008, t01=0x0072}
0x0d02…0d18 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASVRN «, t00=0x0008, t01=0x0088}
0x0d18…0d2e Head {h00=0x0012, h01=0x0050, text=» EXTRN TASECB «, t00=0x0008, t01=0x009e}
0x0d2e…0d52 Head {h00=0x0020, h01=0x0050, text=» EXTRN TASFIL,TASTID,TASMXA «, t00=0x0008, t01=0x00b4}
0x0d52…0d76 Head {h00=0x0020, h01=0x0050, text=» EXTRN TASSPW,TASFDD,TASTBE «, t00=0x0008, t01=0x00d8}
0x0d76…0d8c Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCAQ «, t00=0x0008, t01=0x00fc}
0x0d8c…0da6 Head {h00=0x0016, h01=0x0050, text=» EXTRN TASLFD =1 «, t00=0x0008, t01=0x0112}
0x0da6…0dbc Head {h00=0x0012, h01=0x0050, text=» EXTRN VOLCHE «, t00=0x0008, t01=0x012c}
0x0dbc…0dca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0142}
0x0dca…0ddc Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0008, t01=0x0150}
0x0ddc…0e0c Head {h00=0x002c, h01=0x0050, text=»RECBFZ EQU X:A INDEX RECORD BUFFER SIZE «, t00=0x0008, t01=0x0162}
0x0e0c…0e1e (9, 0, 400) Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0009, t01=0x0004}
0x0e1e…0e54 Head {h00=0x0032, h01=0x0050, text=»INDXAC EQU X:B INDEX ACCESS FUNCTIONS WHEN = 1«, t00=0x0009, t01=0x0016}
0x0e54…0e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004c}
0x0e5e…0e90 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0009, t01=0x0056}
0x0e90…0ebe Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0009, t01=0x0088}
0x0ebe…0ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b6}
0x0ec8…0edc Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0009, t01=0x00c0}
0x0edc…0ee6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d4}
0x0ee6…0ef4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00de}
0x0ef4…0efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ec}
0x0efe…0f12 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0009, t01=0x00f6}
0x0f12…0f26 Head {h00=0x0010, h01=0x0050, text=»* DATA *«, t00=0x0009, t01=0x010a}
0x0f26…0f3a Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0009, t01=0x011e}
0x0f3a…0f44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0132}
0x0f44…0f70 Head {h00=0x0028, h01=0x0050, text=»* CYLID 1 WORD INCL FOR VOL LABEL «, t00=0x0009, t01=0x013c}
0x0f70…0f84 Head {h00=0x0010, h01=0x0050, text=»VLVLE EQU 8 «, t00=0x0009, t01=0x0168}
0x0f84…0f98 Head {h00=0x0010, h01=0x0050, text=»VLVBA EQU 12«, t00=0x0009, t01=0x017c}
0x0f98…0fac Head {h00=0x0010, h01=0x0050, text=»VLVRL EQU 14«, t00=0x0009, t01=0x0190}
0x0fac…0fc0 Head {h00=0x0010, h01=0x0050, text=»VLVER EQU 34«, t00=0x000a, t01=0x0014}
0x0fc0…0fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0028}
0x0fca…0fde Head {h00=0x0010, h01=0x0050, text=»VTFSNO EQU 8«, t00=0x000a, t01=0x0032}
0x0fde…0ff4 Head {h00=0x0012, h01=0x0050, text=»VTFXNO EQU 10 «, t00=0x000a, t01=0x0046}
0x0ff4…100a Head {h00=0x0012, h01=0x0050, text=»VTFXLE EQU 14 «, t00=0x000a, t01=0x005c}
0x100a…1020 Head {h00=0x0012, h01=0x0050, text=»VTFXBA EQU 18 «, t00=0x000a, t01=0x0072}
0x1020…1034 Head {h00=0x0010, h01=0x0050, text=»VTLRN EQU 21«, t00=0x000a, t01=0x0088}
0x1034…1048 Head {h00=0x0010, h01=0x0050, text=»VTRLE EQU 24«, t00=0x000a, t01=0x009c}
0x1048…105c Head {h00=0x0010, h01=0x0050, text=»VTBLF EQU 26«, t00=0x000a, t01=0x00b0}
0x105c…1072 Head {h00=0x0012, h01=0x0050, text=»VTFIOR EQU 27 «, t00=0x000a, t01=0x00c4}
0x1072…1086 Head {h00=0x0010, h01=0x0050, text=»VTNIF EQU 37«, t00=0x000a, t01=0x00da}
0x1086…109a Head {h00=0x0010, h01=0x0050, text=»VTKA EQU 38 «, t00=0x000a, t01=0x00ee}
0x109a…10a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0102}
0x10a4…10ca Head {h00=0x0022, h01=0x0050, text=»* QVTBLE= (VTOC BF)*(RL+1)+2«, t00=0x000a, t01=0x010c}
0x10ca…10f2 Head {h00=0x0024, h01=0x0050, text=»QVTBLE EQU 380 VTOC BLOCK LENGTH«, t00=0x000a, t01=0x0132}
0x10f2…1116 Head {h00=0x0020, h01=0x0050, text=»SECTLE EQU 410 SECTOR LENGTH«, t00=0x000a, t01=0x015a}
0x1116…1130 Head {h00=0x0016, h01=0x0050, text=» DATA 0,0 4 WORDS «, t00=0x000a, t01=0x017e}
0x1130…1148 Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x000b, t01=0x0008}
0x1148…115e Head {h00=0x0012, h01=0x0050, text=»DMTA14 EQU *-2«, t00=0x000b, t01=0x0020}
0x115e…116c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x0036}
0x116c…1176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0044}
0x1176…118c Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000b, t01=0x004e}
0x118c…11a2 Head {h00=0x0012, h01=0x0050, text=»* DMTIOC *«, t00=0x000b, t01=0x0064}
0x11a2…11b8 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000b, t01=0x007a}
0x11b8…11c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0090}
0x11c2…1200 Head {h00=0x003a, h01=0x0050, text=»* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O«, t00=0x000b, t01=0x009a}
0x1200…1242 Head {h00=0x003e, h01=0x0050, text=»* RETURN TO DMTASX WITH A7=1 IF ERROR. «, t00=0x000b, t01=0x00d8}
0x1242…124c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011a}
0x124c…1260 Head {h00=0x0010, h01=0x0050, text=»DMTIOC EQU *«, t00=0x000b, t01=0x0124}
0x1260…1278 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,TASECB «, t00=0x000b, t01=0x0138}
0x1278…1290 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x000b, t01=0x0150}
0x1290…12a8 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x000b, t01=0x0168}
0x12a8…12d2 Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/FEFF BIT 7 ONLY RETRIES «, t00=0x000b, t01=0x0180}
0x12d2…12e8 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DMTIOX «, t00=0x000c, t01=0x001a}
0x12e8…12fc Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x000c, t01=0x0030}
0x12fc…1310 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x000c, t01=0x0044}
0x1310…1338 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMT060 NEW VOLUME LOADED«, t00=0x000c, t01=0x0058}
0x1338…1350 Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x000c, t01=0x0080}
0x1350…1380 Head {h00=0x002c, h01=0x0050, text=» CM BUFDMI,A3 CLEAR VOL IDENT IN BUFFER «, t00=0x000c, t01=0x0098}
0x1380…1392 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x000c, t01=0x00c8}
0x1392…13b4 Head {h00=0x001e, h01=0x0050, text=» ABL DMTASX DISC I/O ERROR«, t00=0x000c, t01=0x00da}
0x13b4…13c8 Head {h00=0x0010, h01=0x0050, text=»DMTIOX EQU *«, t00=0x000c, t01=0x00fc}
0x13c8…13d8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000c, t01=0x0110}
0x13d8…13e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0120}
0x13e6…13f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x012e}
0x13f0…1406 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000c, t01=0x0138}
0x1406…141c Head {h00=0x0012, h01=0x0050, text=»* DMTASS *«, t00=0x000c, t01=0x014e}
0x141c…1432 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000c, t01=0x0164}
0x1432…143c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x017a}
0x143c…1450 Head {h00=0x0010, h01=0x0050, text=»DMTASS EQU *«, t00=0x000c, t01=0x0184}
0x1450…148c Head {h00=0x0038, h01=0x0050, text=» LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER«, t00=0x000d, t01=0x0008}
0x148c…14ac Head {h00=0x001c, h01=0x0050, text=» ST A2,TASTID TASK IDENT«, t00=0x000d, t01=0x0044}
0x14ac…14d0 Head {h00=0x0020, h01=0x0050, text=» CM TASMXA MASTER INDEX ADDR«, t00=0x000d, t01=0x0064}
0x14d0…14e2 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/2«, t00=0x000d, t01=0x0088}
0x14e2…1504 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT010 NOT FLEXTASC«, t00=0x000d, t01=0x009a}
0x1504…150e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00bc}
0x150e…1538 Head {h00=0x0026, h01=0x0050, text=»* PERFORM VOLUME CHECK WITH LOCK«, t00=0x000d, t01=0x00c6}
0x1538…1542 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f0}
0x1542…1562 Head {h00=0x001c, h01=0x0050, text=» LD A8,TASASB ASBLK ADDR«, t00=0x000d, t01=0x00fa}
0x1562…1574 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A8«, t00=0x000d, t01=0x011a}
0x1574…1592 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/07 NO OF VOL «, t00=0x000d, t01=0x012c}
0x1592…15b2 Head {h00=0x001c, h01=0x0050, text=» LDKL A11,1 LOCK WANTED «, t00=0x000d, t01=0x014a}
0x15b2…15d2 Head {h00=0x001c, h01=0x0050, text=» CF A14,VOLCHE SEE TASS «, t00=0x000d, t01=0x016a}
0x15d2…15e4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000d, t01=0x018a}
0x15e4…15fc Head {h00=0x0014, h01=0x0050, text=» RF(Z) DMT010 OK«, t00=0x000e, t01=0x000c}
0x15fc…161a Head {h00=0x001a, h01=0x0050, text=» LDK A7,4 VOL UNKNOWN «, t00=0x000e, t01=0x0024}
0x161a…163a Head {h00=0x001c, h01=0x0050, text=» SUR A8,A8 NO BUFFER =3 «, t00=0x000e, t01=0x0042}
0x163a…164e Head {h00=0x0010, h01=0x0050, text=» ABL DMTASX «, t00=0x000e, t01=0x0062}
0x164e…1662 Head {h00=0x0010, h01=0x0050, text=»DMT010 EQU *«, t00=0x000e, t01=0x0076}
0x1662…166c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008a}
0x166c…1684 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,TASECB «, t00=0x000e, t01=0x0094}
0x1684…168e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ac}
0x168e…16c8 Head {h00=0x0036, h01=0x0050, text=» LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME «, t00=0x000e, t01=0x00b6}
0x16c8…16dc Head {h00=0x0010, h01=0x0050, text=»DMT050 EQU *«, t00=0x000e, t01=0x00f0}
0x16dc…170c Head {h00=0x002c, h01=0x0050, text=» CF A14,CLRBUF RELEASE ALL FREE BUFFERS «, t00=0x000e, t01=0x0104}
0x170c…171e Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x000e, t01=0x0134}
0x171e…174c Head {h00=0x002a, h01=0x0050, text=» LD A1,TASVOL,A1 DMI, FC FIRST VOLUME «, t00=0x000e, t01=0x0146}
0x174c…1764 Head {h00=0x0014, h01=0x0050, text=» SC A1,ECBFC,A8 «, t00=0x000e, t01=0x0174}
0x1764…177c Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SECTLE «, t00=0x000e, t01=0x018c}
0x177c…17a2 Head {h00=0x0022, h01=0x0050, text=» ST A2,ECBRL,A8 SECTOR LENGTH «, t00=0x000f, t01=0x0014}
0x17a2…17b4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x000f, t01=0x003a}
0x17b4…17e8 Head {h00=0x0030, h01=0x0050, text=» ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) «, t00=0x000f, t01=0x004c}
0x17e8…17f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0080}
0x17f2…17fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x008a}
0x17fc…1832 Head {h00=0x0032, h01=0x0050, text=» CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 «, t00=0x000f, t01=0x0094}
0x1832…1856 Head {h00=0x0020, h01=0x0050, text=» DATA /5700 NOP. READ ALWAYS«, t00=0x000f, t01=0x00ca}
0x1856…186e Head {h00=0x0014, h01=0x0050, text=» ADKL A3,BUFSTA «, t00=0x000f, t01=0x00ee}
0x186e…1898 Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBBA,A8 DATA BUFFER START «, t00=0x000f, t01=0x0106}
0x1898…18a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0130}
0x18a2…18c8 Head {h00=0x0022, h01=0x0050, text=»* PHYS READ 1 SECT FROM DISC«, t00=0x000f, t01=0x013a}
0x18c8…18d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0160}
0x18d2…18e6 Head {h00=0x0010, h01=0x0050, text=»DMT060 EQU *«, t00=0x000f, t01=0x016a}
0x18e6…1902 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/91 WAIT =2 «, t00=0x000f, t01=0x017e}
0x1902…190e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x000a}
0x190e…1922 Head {h00=0x0010, h01=0x0050, text=» DATA 1 =2 «, t00=0x0010, t01=0x0016}
0x1922…1954 Head {h00=0x002e, h01=0x0050, text=» LDKL A14,DMTA14 SET UP A14 STACK POINTER «, t00=0x0010, t01=0x002a}
0x1954…1974 Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTIOC I/O CHECK«, t00=0x0010, t01=0x005c}
0x1974…1994 Head {h00=0x001c, h01=0x0050, text=» LD A2,VLVER,A3 VERSION «, t00=0x0010, t01=0x007c}
0x1994…19be Head {h00=0x0026, h01=0x0050, text=» CWK A2,'TO' DTOSS FORMATED DISC? «, t00=0x0010, t01=0x009c}
0x19be…19d8 Head {h00=0x0016, h01=0x0050, text=» RF(E) DMT100 YES «, t00=0x0010, t01=0x00c6}
0x19d8…19ec Head {h00=0x0010, h01=0x0050, text=» LDK A7,8 NO«, t00=0x0010, t01=0x00e0}
0x19ec…1a0c Head {h00=0x001c, h01=0x0050, text=» ABL DMTASX ERROR RETURN«, t00=0x0010, t01=0x00f4}
0x1a0c…1a16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0114}
0x1a16…1a2a Head {h00=0x0010, h01=0x0050, text=»DMT100 EQU *«, t00=0x0010, t01=0x011e}
0x1a2a…1a3c Head {h00=0x000e, h01=0x0050, text=» CM TASVRN«, t00=0x0010, t01=0x0132}
0x1a3c…1a60 Head {h00=0x0020, h01=0x0050, text=» LD A6,VLVLE,A3 VTOC LENGTH «, t00=0x0010, t01=0x0144}
0x1a60…1a76 Head {h00=0x0012, h01=0x0050, text=» ST A6,TASVLE «, t00=0x0010, t01=0x0168}
0x1a76…1a98 Head {h00=0x001e, h01=0x0050, text=» LD A2,VLVBA,A3 VTOC BASE «, t00=0x0010, t01=0x017e}
0x1a98…1aca Head {h00=0x002e, h01=0x0050, text=» ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT«, t00=0x0011, t01=0x0010}
0x1aca…1af4 Head {h00=0x0026, h01=0x0050, text=» LD A9,VLVRL,A3 VTOC RECORD LENGTH«, t00=0x0011, t01=0x0042}
0x1af4…1b0a Head {h00=0x0012, h01=0x0050, text=» ST A9,TASVRL «, t00=0x0011, t01=0x006c}
0x1b0a…1b18 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0082}
0x1b18…1b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0090}
0x1b22…1b40 Head {h00=0x001a, h01=0x0050, text=»* SEARCH ALL VTOC:S «, t00=0x0011, t01=0x009a}
0x1b40…1b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b8}
0x1b4a…1b5e Head {h00=0x0010, h01=0x0050, text=»DMT110 EQU *«, t00=0x0011, t01=0x00c2}
0x1b5e…1b74 Head {h00=0x0012, h01=0x0050, text=» LD A6,TASVLE «, t00=0x0011, t01=0x00d6}
0x1b74…1b86 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0011, t01=0x00ec}
0x1b86…1baa Head {h00=0x0020, h01=0x0050, text=» ST A6,TASVLE UPDATE TASVLE «, t00=0x0011, t01=0x00fe}
0x1baa…1bd2 Head {h00=0x0024, h01=0x0050, text=» RF(P) DMT115 MORE VTOC SECTORS «, t00=0x0011, t01=0x0122}
0x1bd2…1be0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x014a}
0x1be0…1bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0158}
0x1bea…1c10 Head {h00=0x0022, h01=0x0050, text=»* ALL VTOC SECTORS ARE READ «, t00=0x0011, t01=0x0162}
0x1c10…1c1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0188}
0x1c1a…1c30 (18, 0, 398) Head {h00=0x0012, h01=0x0050, text=» LD A1,TASCVO «, t00=0x0012, t01=0x0004}
0x1c30…1c42 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0012, t01=0x001a}
0x1c42…1c6c Head {h00=0x0026, h01=0x0050, text=» ABL(N) DMT300 ALL VOLUMES CHECKED«, t00=0x0012, t01=0x002c}
0x1c6c…1c90 Head {h00=0x0020, h01=0x0050, text=» ST A1,TASCVO UPDATE TASCVO «, t00=0x0012, t01=0x0056}
0x1c90…1cb8 Head {h00=0x0024, h01=0x0050, text=» LDK A7,7 TOO MANY FILE SECTIONS«, t00=0x0012, t01=0x007a}
0x1cb8…1cce Head {h00=0x0012, h01=0x0050, text=» LD A3,TASFIL «, t00=0x0012, t01=0x00a2}
0x1cce…1cf4 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DMTASX NOT DATA FILE «, t00=0x0012, t01=0x00b8}
0x1cf4…1d0c Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0012, t01=0x00de}
0x1d0c…1d24 Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x0012, t01=0x00f6}
0x1d24…1d4a Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0012, t01=0x010e}
0x1d4a…1d62 Head {h00=0x0014, h01=0x0050, text=» LC A7,TASVOL,A1«, t00=0x0012, t01=0x0134}
0x1d62…1d7c Head {h00=0x0016, h01=0x0050, text=» CC A7,TASVOL+2,A1«, t00=0x0012, t01=0x014c}
0x1d7c…1d9e Head {h00=0x001e, h01=0x0050, text=» RB(E) DMT050 SAME DM TASK«, t00=0x0012, t01=0x0166}
0x1d9e…1da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0188}
0x1da8…1dca (19, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* ACTIVATE NEXT DM TASK «, t00=0x0013, t01=0x0004}
0x1dca…1dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0026}
0x1dd4…1dea Head {h00=0x0012, h01=0x0050, text=» ADKL A7,'#D' «, t00=0x0013, t01=0x0030}
0x1dea…1df6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x0046}
0x1df6…1e06 Head {h00=0x000c, h01=0x0050, text=» DATA -4«, t00=0x0013, t01=0x0052}
0x1e06…1e1a Head {h00=0x0010, h01=0x0050, text=» DATA DMTASS«, t00=0x0013, t01=0x0062}
0x1e1a…1e26 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x0076}
0x1e26…1e3a Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0013, t01=0x0082}
0x1e3a…1e48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0096}
0x1e48…1e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a4}
0x1e52…1e7c Head {h00=0x0026, h01=0x0050, text=»* READ NEXT VTOC SECTOR AND EXIT«, t00=0x0013, t01=0x00ae}
0x1e7c…1e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d8}
0x1e86…1e9a Head {h00=0x0010, h01=0x0050, text=»DMT115 EQU *«, t00=0x0013, t01=0x00e2}
0x1e9a…1eb2 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0013, t01=0x00f6}
0x1eb2…1eca Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x0013, t01=0x010e}
0x1eca…1ee0 Head {h00=0x0012, h01=0x0050, text=» CF A14,DMTRBU«, t00=0x0013, t01=0x0126}
0x1ee0…1ef8 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0013, t01=0x013c}
0x1ef8…1f1a Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 NEXT VTOC SECTOR«, t00=0x0013, t01=0x0154}
0x1f1a…1f30 Head {h00=0x0012, h01=0x0050, text=» LD A1,TASCVO «, t00=0x0013, t01=0x0176}
0x1f30…1f48 Head {h00=0x0014, h01=0x0050, text=» LD A1,TASVOL,A1«, t00=0x0013, t01=0x018c}
0x1f48…1f6a Head {h00=0x001e, h01=0x0050, text=» CF A14,DMTGBU GET BUFFER «, t00=0x0014, t01=0x0014}
0x1f6a…1f8e Head {h00=0x0020, h01=0x0050, text=» DATA /5700 NOP. READ ALWAYS«, t00=0x0014, t01=0x0036}
0x1f8e…1fa6 Head {h00=0x0014, h01=0x0050, text=» ADKL A3,BUFSTA «, t00=0x0014, t01=0x005a}
0x1fa6…1fbe Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0014, t01=0x0072}
0x1fbe…1fd6 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0014, t01=0x008a}
0x1fd6…1ff2 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/91 WAIT =2 «, t00=0x0014, t01=0x00a2}
0x1ff2…1ffe Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x00be}
0x1ffe…2012 Head {h00=0x0010, h01=0x0050, text=» DATA 1 =2 «, t00=0x0014, t01=0x00ca}
0x2012…202a Head {h00=0x0014, h01=0x0050, text=» LDKL A14,DMTA14«, t00=0x0014, t01=0x00de}
0x202a…2040 Head {h00=0x0012, h01=0x0050, text=» CF A14,DMTIOC«, t00=0x0014, t01=0x00f6}
0x2040…2056 Head {h00=0x0012, h01=0x0050, text=» LD A9,TASVRL «, t00=0x0014, t01=0x010c}
0x2056…206c Head {h00=0x0012, h01=0x0050, text=» LD A11,TASASB«, t00=0x0014, t01=0x0122}
0x206c…209c Head {h00=0x002c, h01=0x0050, text=» ADKL A11,2 POINTER TO FILENAME IN ASBLK«, t00=0x0014, t01=0x0138}
0x209c…20ae Head {h00=0x000e, h01=0x0050, text=» LDK A4,2 «, t00=0x0014, t01=0x0168}
0x20ae…20c4 Head {h00=0x0012, h01=0x0050, text=» CW A4,TASFIL «, t00=0x0014, t01=0x017a}
0x20c4…20ec Head {h00=0x0024, h01=0x0050, text=» RF(NE) DMT135 NOT MASTER INDEX «, t00=0x0014, t01=0x0190}
0x20ec…2112 Head {h00=0x0022, h01=0x0050, text=» ADKL A11,14 MX FILE NAME ADDR«, t00=0x0015, t01=0x0028}
0x2112…2126 Head {h00=0x0010, h01=0x0050, text=»DMT135 EQU *«, t00=0x0015, t01=0x004e}
0x2126…2142 Head {h00=0x0018, h01=0x0050, text=» ADK A3,2 SKIP CYLID«, t00=0x0015, t01=0x0062}
0x2142…2156 Head {h00=0x0010, h01=0x0050, text=»DMT120 EQU *«, t00=0x0015, t01=0x007e}
0x2156…2182 Head {h00=0x0028, h01=0x0050, text=» IM TASVRN INCREMENT VTOC RECORD NO «, t00=0x0015, t01=0x0092}
0x2182…2194 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0015, t01=0x00be}
0x2194…21ba Head {h00=0x0022, h01=0x0050, text=» ADR A4,A9 ADDRESS STATUS BYTE«, t00=0x0015, t01=0x00d0}
0x21ba…21cc Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0015, t01=0x00f6}
0x21cc…21e0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0015, t01=0x0108}
0x21e0…2200 Head {h00=0x001c, h01=0x0050, text=» ABL(Z) DMT250 NOT USED «, t00=0x0015, t01=0x011c}
0x2200…222c Head {h00=0x0028, h01=0x0050, text=» SUR A4,A9 BACK TO START OF VTOC REC«, t00=0x0015, t01=0x013c}
0x222c…2240 Head {h00=0x0010, h01=0x0050, text=» LDR A7,A11 «, t00=0x0015, t01=0x0168}
0x2240…2268 Head {h00=0x0024, h01=0x0050, text=» LDK A2,4 FILE NAME MAX 4 WORDS «, t00=0x0015, t01=0x017c}
0x2268…227c Head {h00=0x0010, h01=0x0050, text=»DMT150 EQU *«, t00=0x0016, t01=0x0014}
0x227c…2290 Head {h00=0x0010, h01=0x0050, text=» LDR* A10,A4«, t00=0x0016, t01=0x0028}
0x2290…22a4 Head {h00=0x0010, h01=0x0050, text=» CWR* A10,A7«, t00=0x0016, t01=0x003c}
0x22a4…22c4 Head {h00=0x001c, h01=0x0050, text=» ABL(NE) DMT250 NO MATCH«, t00=0x0016, t01=0x0050}
0x22c4…22d6 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0016, t01=0x0070}
0x22d6…2308 Head {h00=0x002e, h01=0x0050, text=» RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH«, t00=0x0016, t01=0x0082}
0x2308…231a Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0016, t01=0x00b4}
0x231a…232c Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0016, t01=0x00c6}
0x232c…234e Head {h00=0x001e, h01=0x0050, text=» RB DMT150 CHECK NEXT WORD«, t00=0x0016, t01=0x00d8}
0x234e…2358 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fa}
0x2358…2384 Head {h00=0x0028, h01=0x0050, text=»* ONLY STANDARD FILES ARE HANDLED «, t00=0x0016, t01=0x0104}
0x2384…238e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0130}
0x238e…23a2 Head {h00=0x0010, h01=0x0050, text=»DMT160 EQU *«, t00=0x0016, t01=0x013a}
0x23a2…23ba Head {h00=0x0014, h01=0x0050, text=» LC A2,VTFIOR,A3«, t00=0x0016, t01=0x014e}
0x23ba…23de Head {h00=0x0020, h01=0x0050, text=» CCK A2,'SS' STANDARD FILE ?«, t00=0x0016, t01=0x0166}
0x23de…23f8 Head {h00=0x0016, h01=0x0050, text=» RF(E) DMT165 YES «, t00=0x0016, t01=0x018a}
0x23f8…241c Head {h00=0x0020, h01=0x0050, text=» CCK A2,'LL' LIBRARY FILE ? «, t00=0x0017, t01=0x0014}
0x241c…2436 Head {h00=0x0016, h01=0x0050, text=» ABL(NZ) DMT250 NO«, t00=0x0017, t01=0x0038}
0x2436…245a Head {h00=0x0020, h01=0x0050, text=» LDK A2,0 FILE EXTENT NUMBER«, t00=0x0017, t01=0x0052}
0x245a…246c Head {h00=0x000e, h01=0x0050, text=» RF DMT167«, t00=0x0017, t01=0x0076}
0x246c…249e Head {h00=0x002e, h01=0x0050, text=»DMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER«, t00=0x0017, t01=0x0088}
0x249e…24ac Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00ba}
0x24ac…24c0 Head {h00=0x0010, h01=0x0050, text=»DMT167 EQU *«, t00=0x0017, t01=0x00c8}
0x24c0…24ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00dc}
0x24ca…24fc Head {h00=0x002e, h01=0x0050, text=»* GET INFO FROM VTOC AND SAVE IN TASBLK «, t00=0x0017, t01=0x00e6}
0x24fc…2506 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0118}
0x2506…252e Head {h00=0x0024, h01=0x0050, text=» LDR A4,A3 START OF VTOC RECORD «, t00=0x0017, t01=0x0122}
0x252e…256a Head {h00=0x0038, h01=0x0050, text=» LD A1,TASCXO CURRENT OFFSET INTO TASSEX AND TASXLB «, t00=0x0017, t01=0x014a}
0x256a…257c Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0017, t01=0x0186}
0x257c…2592 Head {h00=0x0012, h01=0x0050, text=» ST A1,TASCXO «, t00=0x0018, t01=0x0008}
0x2592…25b6 Head {h00=0x0020, h01=0x0050, text=» RF(NN) DMT170 <= 4 EXTENTS «, t00=0x0018, t01=0x001e}
0x25b6…25c8 Head {h00=0x000e, h01=0x0050, text=» LDK A7,9 «, t00=0x0018, t01=0x0042}
0x25c8…25f6 Head {h00=0x002a, h01=0x0050, text=» ABL DMTASX MORE THAN 4 EXTENTS EXIST «, t00=0x0018, t01=0x0054}
0x25f6…260a Head {h00=0x0010, h01=0x0050, text=»DMT170 EQU *«, t00=0x0018, t01=0x0082}
0x260a…2630 Head {h00=0x0022, h01=0x0050, text=» ECR A2,A2 TO LEFT HALF OF A2 «, t00=0x0018, t01=0x0096}
0x2630…2668 Head {h00=0x0034, h01=0x0050, text=» LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 «, t00=0x0018, t01=0x00bc}
0x2668…2680 Head {h00=0x0014, h01=0x0050, text=» ST A2,TASSEX,A1«, t00=0x0018, t01=0x00f4}
0x2680…2696 Head {h00=0x0012, h01=0x0050, text=» LD A6,TASCVO «, t00=0x0018, t01=0x010c}
0x2696…26c6 Head {h00=0x002c, h01=0x0050, text=» ST A6,TASSEX+2,A1 REMEMBER WHICH VOLUME«, t00=0x0018, t01=0x0122}
0x26c6…26ec Head {h00=0x0022, h01=0x0050, text=» LD A2,VTFXLE,A4 EXTENT-LENGTH«, t00=0x0018, t01=0x0152}
0x26ec…2704 Head {h00=0x0014, h01=0x0050, text=» ST A2,TASXLB,A1«, t00=0x0018, t01=0x0178}
0x2704…2728 Head {h00=0x0020, h01=0x0050, text=» LD A2,VTFXBA,A4 EXTENT BASE«, t00=0x0018, t01=0x0190}
0x2728…2742 Head {h00=0x0016, h01=0x0050, text=» ST A2,TASXLB+2,A1«, t00=0x0019, t01=0x0024}
0x2742…275a Head {h00=0x0014, h01=0x0050, text=» LD A2,TASSEX,A1«, t00=0x0019, t01=0x003e}
0x275a…2782 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMT250 NOT FIRST EXTENT «, t00=0x0019, t01=0x0056}
0x2782…2790 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x007e}
0x2790…27ae Head {h00=0x001a, h01=0x0050, text=»* FIRST FILE EXTENT «, t00=0x0019, t01=0x008c}
0x27ae…27ee Head {h00=0x003c, h01=0x0050, text=»* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. «, t00=0x0019, t01=0x00aa}
0x27ee…27f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ea}
0x27f8…280e Head {h00=0x0012, h01=0x0050, text=» LD A12,TASFDB«, t00=0x0019, t01=0x00f4}
0x280e…283c Head {h00=0x002a, h01=0x0050, text=» RF(Z) DMT190 FIRST TIME EXT #0 FOUND «, t00=0x0019, t01=0x010a}
0x283c…284e Head {h00=0x000e, h01=0x0050, text=» LDK A7,7 «, t00=0x0019, t01=0x0138}
0x284e…2876 Head {h00=0x0024, h01=0x0050, text=» ABL DMTASX EXT #0 ALREADY FOUND«, t00=0x0019, t01=0x014a}
0x2876…288a Head {h00=0x0010, h01=0x0050, text=»DMT190 EQU *«, t00=0x0019, t01=0x0172}
0x288a…28a2 Head {h00=0x0014, h01=0x0050, text=» LDKL A12,FDBSTA«, t00=0x0019, t01=0x0186}
0x28a2…28b6 Head {h00=0x0010, h01=0x0050, text=»DMT200 EQU *«, t00=0x001a, t01=0x000e}
0x28b6…28ca Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A12«, t00=0x001a, t01=0x0022}
0x28ca…28de Head {h00=0x0010, h01=0x0050, text=» ANK A5,/01 «, t00=0x001a, t01=0x0036}
0x28de…28f8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMT210 FREE«, t00=0x001a, t01=0x004a}
0x28f8…2912 Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBEXT,A12 «, t00=0x001a, t01=0x0064}
0x2912…292a Head {h00=0x0014, h01=0x0050, text=» CW A2,TASVOL,A6«, t00=0x001a, t01=0x007e}
0x292a…2950 Head {h00=0x0022, h01=0x0050, text=» RF(NE) DMT210 NOT SAME VOLUME«, t00=0x001a, t01=0x0096}
0x2950…296a Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBVTO,A12 «, t00=0x001a, t01=0x00bc}
0x296a…2980 Head {h00=0x0012, h01=0x0050, text=» CW A2,TASVRN «, t00=0x001a, t01=0x00d6}
0x2980…29a8 Head {h00=0x0024, h01=0x0050, text=» RF(NE) DMT210 NOT SAME VTOC REC«, t00=0x001a, t01=0x00ec}
0x29a8…29c2 Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBMIA,A12 «, t00=0x001a, t01=0x0114}
0x29c2…29e8 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMT205 INDEX ASS BEFOR«, t00=0x001a, t01=0x012e}
0x29e8…29fe Head {h00=0x0012, h01=0x0050, text=» LD A2,TASFIL «, t00=0x001a, t01=0x0154}
0x29fe…2a30 Head {h00=0x002e, h01=0x0050, text=» ABL(E) DMT400 SAME VTOC RECORD FDB FOUND«, t00=0x001a, t01=0x016a}
0x2a30…2a44 Head {h00=0x0010, h01=0x0050, text=»DMT205 EQU *«, t00=0x001b, t01=0x000c}
0x2a44…2a64 Head {h00=0x001c, h01=0x0050, text=» LDK A7,5 FILE CODE USED«, t00=0x001b, t01=0x0020}
0x2a64…2a78 Head {h00=0x0010, h01=0x0050, text=» ABL DMTASX «, t00=0x001b, t01=0x0040}
0x2a78…2a82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0054}
0x2a82…2aaa Head {h00=0x0024, h01=0x0050, text=»DMT210 LDR* A12,A12 GET NEXT FDB«, t00=0x001b, t01=0x005e}
0x2aaa…2ac2 Head {h00=0x0014, h01=0x0050, text=» ANKL A12,/FFFE «, t00=0x001b, t01=0x0086}
0x2ac2…2aee Head {h00=0x0028, h01=0x0050, text=» RB(NE) DMT200 MORE FDB:S TO SEARCH «, t00=0x001b, t01=0x009e}
0x2aee…2af8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ca}
0x2af8…2b2c Head {h00=0x0030, h01=0x0050, text=»* NO MATCHING FDB EXIST FIND A FREE FDB «, t00=0x001b, t01=0x00d4}
0x2b2c…2b36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0108}
0x2b36…2b4e Head {h00=0x0014, h01=0x0050, text=» LDKL A12,FDBSTA«, t00=0x001b, t01=0x0112}
0x2b4e…2b68 Head {h00=0x0016, h01=0x0050, text=»DMT220 LDR* A5,A12«, t00=0x001b, t01=0x012a}
0x2b68…2b7c Head {h00=0x0010, h01=0x0050, text=» ANK A5,/01 «, t00=0x001b, t01=0x0144}
0x2b7c…2b96 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMT230 FREE«, t00=0x001b, t01=0x0158}
0x2b96…2bb8 Head {h00=0x001e, h01=0x0050, text=» LDR* A12,A12 GET NEXT FDB«, t00=0x001b, t01=0x0172}
0x2bb8…2bd0 (28, 0, 400) Head {h00=0x0014, h01=0x0050, text=» ANKL A12,/FFFE «, t00=0x001c, t01=0x0004}
0x2bd0…2bfa Head {h00=0x0026, h01=0x0050, text=» RB(NE) DMT220 MORE FDB:S TO CHECK«, t00=0x001c, t01=0x001c}
0x2bfa…2c0c Head {h00=0x000e, h01=0x0050, text=» LDK A7,3 «, t00=0x001c, t01=0x0046}
0x2c0c…2c30 Head {h00=0x0020, h01=0x0050, text=» ABL DMTASX NO FDB AVAILABLE«, t00=0x001c, t01=0x0058}
0x2c30…2c5c Head {h00=0x0028, h01=0x0050, text=»* INITIALIZE FDB ZERO FROM FDB+2«, t00=0x001c, t01=0x007c}
0x2c5c…2c66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a8}
0x2c66…2c7a Head {h00=0x0010, h01=0x0050, text=»DMT230 EQU *«, t00=0x001c, t01=0x00b2}
0x2c7a…2c90 Head {h00=0x0012, h01=0x0050, text=» ST A12,TASFDB«, t00=0x001c, t01=0x00c6}
0x2c90…2ca4 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A12«, t00=0x001c, t01=0x00dc}
0x2ca4…2cbc Head {h00=0x0014, h01=0x0050, text=» ADKL A10,QFDBFL«, t00=0x001c, t01=0x00f0}
0x2cbc…2cce Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001c, t01=0x0108}
0x2cce…2ce2 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x001c, t01=0x011a}
0x2ce2…2cfa Head {h00=0x0014, h01=0x0050, text=»DMT233 ADK A1,2 «, t00=0x001c, t01=0x012e}
0x2cfa…2d0e Head {h00=0x0010, h01=0x0050, text=» CWR A1,A10 «, t00=0x001c, t01=0x0146}
0x2d0e…2d2e Head {h00=0x001c, h01=0x0050, text=» RF(E) DMT237 END OF FDB«, t00=0x001c, t01=0x015a}
0x2d2e…2d40 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x001c, t01=0x017a}
0x2d40…2d52 Head {h00=0x000e, h01=0x0050, text=» RB DMT233«, t00=0x001c, t01=0x018c}
0x2d52…2d66 Head {h00=0x0010, h01=0x0050, text=»DMT237 EQU *«, t00=0x001d, t01=0x000e}
0x2d66…2d7c Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x001d, t01=0x0022}
0x2d7c…2d94 Head {h00=0x0014, h01=0x0050, text=»* DEV NOT BUSY«, t00=0x001d, t01=0x0038}
0x2d94…2dac Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST,A12«, t00=0x001d, t01=0x0050}
0x2dac…2dc2 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TIODM«, t00=0x001d, t01=0x0068}
0x2dc2…2ddc Head {h00=0x0016, h01=0x0050, text=» ST A2,DWTADR,A12 «, t00=0x001d, t01=0x007e}
0x2ddc…2df4 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SECTLE «, t00=0x001d, t01=0x0098}
0x2df4…2e08 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x001d, t01=0x00b0}
0x2e08…2e20 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,FDBECB «, t00=0x001d, t01=0x00c4}
0x2e20…2e38 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A1 «, t00=0x001d, t01=0x00dc}
0x2e38…2e4c Head {h00=0x0010, h01=0x0050, text=» LDK A2,/01 «, t00=0x001d, t01=0x00f4}
0x2e4c…2e6c Head {h00=0x001c, h01=0x0050, text=» ORRS A2,A12 SET USE BIT«, t00=0x001d, t01=0x0108}
0x2e6c…2e84 Head {h00=0x0014, h01=0x0050, text=» LC A2,VTLRN,A4 «, t00=0x001d, t01=0x0128}
0x2e84…2e9e Head {h00=0x0016, h01=0x0050, text=» SC A2,FDBLRN,A12 «, t00=0x001d, t01=0x0140}
0x2e9e…2eb8 Head {h00=0x0016, h01=0x0050, text=» LD A2,VTLRN+1,A4 «, t00=0x001d, t01=0x015a}
0x2eb8…2ed4 Head {h00=0x0018, h01=0x0050, text=» ST A2,FDBLRN+1,A12 «, t00=0x001d, t01=0x0174}
0x2ed4…2eec Head {h00=0x0014, h01=0x0050, text=» LD A2,VTRLE,A4 «, t00=0x001d, t01=0x0190}
0x2eec…2f06 Head {h00=0x0016, h01=0x0050, text=» ST A2,FDBRLE,A12 «, t00=0x001e, t01=0x0018}
0x2f06…2f1e Head {h00=0x0014, h01=0x0050, text=» LC A2,VTBLF,A4 «, t00=0x001e, t01=0x0032}
0x2f1e…2f38 Head {h00=0x0016, h01=0x0050, text=» SC A2,FDBBLF,A12 «, t00=0x001e, t01=0x004a}
0x2f38…2f50 Head {h00=0x0014, h01=0x0050, text=» LC A2,VTNIF,A4 «, t00=0x001e, t01=0x0064}
0x2f50…2f6a Head {h00=0x0016, h01=0x0050, text=» SC A2,FDBNIF,A12 «, t00=0x001e, t01=0x007c}
0x2f6a…2f80 Head {h00=0x0012, h01=0x0050, text=» LD A2,VTKA,A4«, t00=0x001e, t01=0x0096}
0x2f80…2f98 Head {h00=0x0014, h01=0x0050, text=» ST A2,FDBKA,A12«, t00=0x001e, t01=0x00ac}
0x2f98…2fae Head {h00=0x0012, h01=0x0050, text=» LD A2,TASVRN «, t00=0x001e, t01=0x00c4}
0x2fae…2fc8 Head {h00=0x0016, h01=0x0050, text=» ST A2,FDBVTO,A12 «, t00=0x001e, t01=0x00da}
0x2fc8…2fd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f4}
0x2fd2…2fe8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001e, t01=0x00fe}
0x2fe8…300c Head {h00=0x0020, h01=0x0050, text=» LDR A2,A12 GET FDB ADDRESS «, t00=0x001e, t01=0x0114}
0x300c…303c Head {h00=0x002c, h01=0x0050, text=» ADKL A2,FDBMEC ADD MMU ECB DISPLACEMENT«, t00=0x001e, t01=0x0138}
0x303c…3074 Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTMEC,A12 SET ADDRESS TO MMU ECB IN FDB «, t00=0x001e, t01=0x0168}
0x3074…3080 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0010}
0x3080…308a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x001c}
0x308a…3098 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0026}
0x3098…30a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0034}
0x30a2…30c4 Head {h00=0x001e, h01=0x0050, text=»* CHECK NEXT VTOC RECORD«, t00=0x001f, t01=0x003e}
0x30c4…30ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0060}
0x30ce…30e2 Head {h00=0x0010, h01=0x0050, text=»DMT250 EQU *«, t00=0x001f, t01=0x006a}
0x30e2…30fe Head {h00=0x0018, h01=0x0050, text=»* A3 = ADR 1ST REC«, t00=0x001f, t01=0x007e}
0x30fe…311c Head {h00=0x001a, h01=0x0050, text=»* A9 = VTOC REC LGTH«, t00=0x001f, t01=0x009a}
0x311c…312e Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x001f, t01=0x00b8}
0x312e…3150 Head {h00=0x001e, h01=0x0050, text=» ADK A3,1 SKIP STATUS BYTE«, t00=0x001f, t01=0x00ca}
0x3150…3162 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x001f, t01=0x00ec}
0x3162…317a Head {h00=0x0014, h01=0x0050, text=» SU A2,ECBBA,A8 «, t00=0x001f, t01=0x00fe}
0x317a…3190 Head {h00=0x0012, h01=0x0050, text=» CWK A2,QVTBLE«, t00=0x001f, t01=0x0116}
0x3190…31be Head {h00=0x002a, h01=0x0050, text=» ABL(L) DMT120 MORE RECORDS IN BUFFER «, t00=0x001f, t01=0x012c}
0x31be…31e6 Head {h00=0x0024, h01=0x0050, text=» ABL DMT110 GET NEXT VTOC SECTOR«, t00=0x001f, t01=0x015a}
0x31e6…31f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0182}
0x31f0…3230 Head {h00=0x003c, h01=0x0050, text=»* ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT «, t00=0x001f, t01=0x018c}
0x3230…323a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x003c}
0x323a…324e Head {h00=0x0010, h01=0x0050, text=»DMT300 EQU *«, t00=0x0020, t01=0x0046}
0x324e…3260 Head {h00=0x000e, h01=0x0050, text=» LDK A3,16«, t00=0x0020, t01=0x005a}
0x3260…3276 Head {h00=0x0012, h01=0x0050, text=» SU A3,TASCXO «, t00=0x0020, t01=0x006c}
0x3276…328c Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DMT310«, t00=0x0020, t01=0x0082}
0x328c…329e Head {h00=0x000e, h01=0x0050, text=» LDK A7,6 «, t00=0x0020, t01=0x0098}
0x329e…32c2 Head {h00=0x0020, h01=0x0050, text=» RF DMTASX FILE NAME UNKNOWN«, t00=0x0020, t01=0x00aa}
0x32c2…32d6 Head {h00=0x0010, h01=0x0050, text=»DMT310 EQU *«, t00=0x0020, t01=0x00ce}
0x32d6…32ec Head {h00=0x0012, h01=0x0050, text=» LD A12,TASFDB«, t00=0x0020, t01=0x00e2}
0x32ec…3302 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DMT320«, t00=0x0020, t01=0x00f8}
0x3302…3314 Head {h00=0x000e, h01=0x0050, text=» LDK A7,7 «, t00=0x0020, t01=0x010e}
0x3314…333e Head {h00=0x0026, h01=0x0050, text=» RF DMTASX FIRST EXTENT IS MISSING«, t00=0x0020, t01=0x0120}
0x333e…334c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x014a}
0x334c…3356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0158}
0x3356…3394 Head {h00=0x003a, h01=0x0050, text=»* PUT EXTENT INFORMATION INTO FDB IN ASCENDING ORDER«, t00=0x0020, t01=0x0162}
0x3394…33d0 Head {h00=0x0038, h01=0x0050, text=»* ACCORDING TO INCREASING SECTOR NO AND EXTENT NO «, t00=0x0021, t01=0x0010}
0x33d0…33da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x004c}
0x33da…33ee Head {h00=0x0010, h01=0x0050, text=»DMT320 EQU *«, t00=0x0021, t01=0x0056}
0x33ee…33f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x006a}
0x33f8…343c Head {h00=0x0040, h01=0x0050, text=»* CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE «, t00=0x0021, t01=0x0074}
0x343c…3446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00b8}
0x3446…345c Head {h00=0x0012, h01=0x0050, text=» LD A6,TASFIL «, t00=0x0021, t01=0x00c2}
0x345c…3480 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DMT330 DATA FILE ASS «, t00=0x0021, t01=0x00d8}
0x3480…34a8 Head {h00=0x0024, h01=0x0050, text=» LD A6,FDBRLE,A12 RECORD LENGTH «, t00=0x0021, t01=0x00fc}
0x34a8…34ba Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0021, t01=0x0124}
0x34ba…34d8 Head {h00=0x001a, h01=0x0050, text=» SRL A6,1 NR OF WORDS «, t00=0x0021, t01=0x0136}
0x34d8…3502 Head {h00=0x0026, h01=0x0050, text=» CWK A6,RECBFZ RECORD BUFFER SIZE «, t00=0x0021, t01=0x0154}
0x3502…351c Head {h00=0x0016, h01=0x0050, text=» RF(NG) DMT330 OK «, t00=0x0021, t01=0x017e}
0x351c…352e Head {h00=0x000e, h01=0x0050, text=» LDK A7,12«, t00=0x0022, t01=0x0008}
0x352e…355c Head {h00=0x002a, h01=0x0050, text=» RF DMTASX RECORD BUFFER IS TOO SMALL «, t00=0x0022, t01=0x001a}
0x355c…3570 Head {h00=0x0010, h01=0x0050, text=»DMT330 EQU *«, t00=0x0022, t01=0x0048}
0x3570…3584 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A12 «, t00=0x0022, t01=0x005c}
0x3584…3598 Head {h00=0x0010, h01=0x0050, text=»* FDB ADDR«, t00=0x0022, t01=0x0070}
0x3598…35b0 Head {h00=0x0014, h01=0x0050, text=» ADKL A6,FDBEXT «, t00=0x0022, t01=0x0084}
0x35b0…35c2 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0022, t01=0x009c}
0x35c2…35d4 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A3«, t00=0x0022, t01=0x00ae}
0x35d4…35f8 Head {h00=0x0020, h01=0x0050, text=» SRL A5,2 NUMBER OF EXTENTS «, t00=0x0022, t01=0x00c0}
0x35f8…360c Head {h00=0x0010, h01=0x0050, text=»DMT340 EQU *«, t00=0x0022, t01=0x00e4}
0x360c…361e Head {h00=0x000e, h01=0x0050, text=» LDK A4,16«, t00=0x0022, t01=0x00f8}
0x361e…3632 Head {h00=0x0010, h01=0x0050, text=»DMT350 EQU *«, t00=0x0022, t01=0x010a}
0x3632…3644 Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0022, t01=0x011e}
0x3644…365c Head {h00=0x0014, h01=0x0050, text=» CW A2,TASSEX,A4«, t00=0x0022, t01=0x0130}
0x365c…3678 Head {h00=0x0018, h01=0x0050, text=» RF(E) DMT360 MATCH «, t00=0x0022, t01=0x0148}
0x3678…368e Head {h00=0x0012, h01=0x0050, text=» CW A4,TASCXO «, t00=0x0022, t01=0x0164}
0x368e…36ba Head {h00=0x0028, h01=0x0050, text=» RB(NE) DMT350 MORE EXTENTS TO CHECK«, t00=0x0022, t01=0x017a}
0x36ba…36c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0016}
0x36c4…36f4 Head {h00=0x002c, h01=0x0050, text=»* THE EXTENT SEARCHED FOR IS NOT FOUND«, t00=0x0023, t01=0x0020}
0x36f4…372a Head {h00=0x0032, h01=0x0050, text=»* CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0)«, t00=0x0023, t01=0x0050}
0x372a…3734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0086}
0x3734…3746 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0023, t01=0x0090}
0x3746…375a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0023, t01=0x00a2}
0x375a…3782 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMT370 TRY NEXT SECTION «, t00=0x0023, t01=0x00b6}
0x3782…378c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00de}
0x378c…37a0 Head {h00=0x0010, h01=0x0050, text=»DMT355 EQU *«, t00=0x0023, t01=0x00e8}
0x37a0…37b2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,7 «, t00=0x0023, t01=0x00fc}
0x37b2…37da Head {h00=0x0024, h01=0x0050, text=» RF DMTASX FILE SECTION MISSING «, t00=0x0023, t01=0x010e}
0x37da…37ee Head {h00=0x0010, h01=0x0050, text=»DMT360 EQU *«, t00=0x0023, t01=0x0136}
0x37ee…37f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x014a}
0x37f8…3826 Head {h00=0x002a, h01=0x0050, text=»* MOVE INFO ABOUT THIS EXTENT TO FDB«, t00=0x0023, t01=0x0154}
0x3826…3830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0182}
0x3830…384a Head {h00=0x0016, h01=0x0050, text=» LD A1,TASSEX+2,A4«, t00=0x0023, t01=0x018c}
0x384a…3862 Head {h00=0x0014, h01=0x0050, text=» LD A1,TASVOL,A1«, t00=0x0024, t01=0x0016}
0x3862…387a Head {h00=0x0014, h01=0x0050, text=» ST A1,EXTDMI,A6«, t00=0x0024, t01=0x002e}
0x387a…3892 Head {h00=0x0014, h01=0x0050, text=» LD A1,TASXLB,A4«, t00=0x0024, t01=0x0046}
0x3892…38aa Head {h00=0x0014, h01=0x0050, text=» ST A1,EXTLEN,A6«, t00=0x0024, t01=0x005e}
0x38aa…38c4 Head {h00=0x0016, h01=0x0050, text=» LD A1,TASXLB+2,A4«, t00=0x0024, t01=0x0076}
0x38c4…38dc Head {h00=0x0014, h01=0x0050, text=» ST A1,EXTBAS,A6«, t00=0x0024, t01=0x0090}
0x38dc…38ee Head {h00=0x000e, h01=0x0050, text=» ADK A6,6 «, t00=0x0024, t01=0x00a8}
0x38ee…3900 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0024, t01=0x00ba}
0x3900…392a Head {h00=0x0026, h01=0x0050, text=» RF(NP) DMT500 ALL EXTENTS HANDLED«, t00=0x0024, t01=0x00cc}
0x392a…3934 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00f6}
0x3934…3972 Head {h00=0x003a, h01=0x0050, text=»* FIND NEXT FILE-SECTION-NO, FILE-EXT-NO COMBINATION«, t00=0x0024, t01=0x0100}
0x3972…398c Head {h00=0x0016, h01=0x0050, text=»* TO SEARCH FOR «, t00=0x0024, t01=0x013e}
0x398c…3996 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0158}
0x3996…39a8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0024, t01=0x0162}
0x39a8…39bc Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0024, t01=0x0174}
0x39bc…39ce Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0024, t01=0x0188}
0x39ce…39f4 Head {h00=0x0022, h01=0x0050, text=» RF(NE) DMT380 NOT EXT-NO = 3 «, t00=0x0025, t01=0x000a}
0x39f4…3a08 Head {h00=0x0010, h01=0x0050, text=»DMT370 EQU *«, t00=0x0025, t01=0x0030}
0x3a08…3a1a Head {h00=0x000e, h01=0x0050, text=» ECR A1,A2«, t00=0x0025, t01=0x0044}
0x3a1a…3a2e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0025, t01=0x0056}
0x3a2e…3a40 Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0025, t01=0x006a}
0x3a40…3a64 Head {h00=0x0020, h01=0x0050, text=» RB(E) DMT355 SECTION-NO = 3«, t00=0x0025, t01=0x007c}
0x3a64…3a8a Head {h00=0x0022, h01=0x0050, text=» ADK A1,4 INCREMENT SECTION-NO«, t00=0x0025, t01=0x00a0}
0x3a8a…3aa8 Head {h00=0x001a, h01=0x0050, text=» ECR A2,A1 EXT-NO = 0 «, t00=0x0025, t01=0x00c6}
0x3aa8…3aba Head {h00=0x000e, h01=0x0050, text=» RB DMT340«, t00=0x0025, t01=0x00e4}
0x3aba…3ae2 Head {h00=0x0024, h01=0x0050, text=»DMT380 ADK A2,1 INCREMENT EXT-NO«, t00=0x0025, t01=0x00f6}
0x3ae2…3af4 Head {h00=0x000e, h01=0x0050, text=» RB DMT340«, t00=0x0025, t01=0x011e}
0x3af4…3b02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0130}
0x3b02…3b20 Head {h00=0x001a, h01=0x0050, text=»DMTASX EQU * =1 START«, t00=0x0025, t01=0x013e}
0x3b20…3b2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x015c}
0x3b2a…3b70 Head {h00=0x0042, h01=0x0050, text=»* AT ERROR EXIT UNLOCK FLEXDISCS WHICH WERE UNLOCKED BEFORE «, t00=0x0025, t01=0x0166}
0x3b70…3b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x001c}
0x3b7a…3b8c Head {h00=0x000e, h01=0x0050, text=» LDR A5,A7«, t00=0x0026, t01=0x0026}
0x3b8c…3ba4 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A8 SAVE «, t00=0x0026, t01=0x0038}
0x3ba4…3bba Head {h00=0x0012, h01=0x0050, text=» LDK A1,3 LOOP«, t00=0x0026, t01=0x0050}
0x3bba…3bce Head {h00=0x0010, h01=0x0050, text=»DMTASY EQU *«, t00=0x0026, t01=0x0066}
0x3bce…3bf2 Head {h00=0x0020, h01=0x0050, text=» LC A2,TASLFD,A1 FILE CODES «, t00=0x0026, t01=0x007a}
0x3bf2…3c06 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0026, t01=0x009e}
0x3c06…3c24 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DMTASZ NO CODE «, t00=0x0026, t01=0x00b2}
0x3c24…3c3c Head {h00=0x0014, h01=0x0050, text=» LDKL A8,TASECB «, t00=0x0026, t01=0x00d0}
0x3c3c…3c54 Head {h00=0x0014, h01=0x0050, text=» SC A2,TASECB+1 «, t00=0x0026, t01=0x00e8}
0x3c54…3c74 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B8 UNLOAD ,WAIT«, t00=0x0026, t01=0x0100}
0x3c74…3c82 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0026, t01=0x0120}
0x3c82…3c92 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0026, t01=0x012e}
0x3c92…3ca6 Head {h00=0x0010, h01=0x0050, text=»DMTASZ EQU *«, t00=0x0026, t01=0x013e}
0x3ca6…3cb8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0026, t01=0x0152}
0x3cb8…3cd4 Head {h00=0x0018, h01=0x0050, text=» RB(NN) DMTASY NEXT «, t00=0x0026, t01=0x0164}
0x3cd4…3ce6 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0026, t01=0x0180}
0x3ce6…3cf8 (39, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A8,A6«, t00=0x0027, t01=0x0004}
0x3cf8…3d12 Head {h00=0x0016, h01=0x0050, text=» RF DMT401 =1 END«, t00=0x0027, t01=0x0016}
0x3d12…3d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0030}
0x3d1c…3d48 Head {h00=0x0028, h01=0x0050, text=»* PUT FDB ADDRESS INTO TTAB/CD:TAB«, t00=0x0027, t01=0x003a}
0x3d48…3d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0066}
0x3d52…3d66 Head {h00=0x0010, h01=0x0050, text=»DMT400 EQU *«, t00=0x0027, t01=0x0070}
0x3d66…3d78 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0027, t01=0x0084}
0x3d78…3d90 Head {h00=0x0014, h01=0x0050, text=»DMT401 EQU * =1«, t00=0x0027, t01=0x0096}
0x3d90…3dc0 Head {h00=0x002c, h01=0x0050, text=» LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR «, t00=0x0027, t01=0x00ae}
0x3dc0…3dd2 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0027, t01=0x00de}
0x3dd2…3df6 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DMT420 CORRECT RETURN«, t00=0x0027, t01=0x00f0}
0x3df6…3e16 Head {h00=0x001c, h01=0x0050, text=» CM -1,A2 ZERO FILE CODE«, t00=0x0027, t01=0x0114}
0x3e16…3e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0134}
0x3e20…3e48 Head {h00=0x0024, h01=0x0050, text=»* REMOVE FDB WITH MASTER INDEX«, t00=0x0027, t01=0x013e}
0x3e48…3e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0166}
0x3e52…3e7a Head {h00=0x0024, h01=0x0050, text=» LD A4,TASMXA MASTER INDEX ADDR «, t00=0x0027, t01=0x0170}
0x3e7a…3ea0 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMT410 NO MASTER INDEX «, t00=0x0028, t01=0x0008}
0x3ea0…3eb2 Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0028, t01=0x002e}
0x3eb2…3ede Head {h00=0x0028, h01=0x0050, text=» LD A2,MXIND SIEZE MASTERINDEXINDEX «, t00=0x0028, t01=0x0040}
0x3ede…3ef0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0028, t01=0x006c}
0x3ef0…3f04 Head {h00=0x0010, h01=0x0050, text=»DMT405 EQU *«, t00=0x0028, t01=0x007e}
0x3f04…3f22 Head {h00=0x001a, h01=0x0050, text=» SUK A2,4 NEXT OFFSET «, t00=0x0028, t01=0x0092}
0x3f22…3f3c Head {h00=0x0016, h01=0x0050, text=» RF(NN) DMT407 OK «, t00=0x0028, t01=0x00b0}
0x3f3c…3f6a Head {h00=0x002a, h01=0x0050, text=» RF DMT408 MASTER INDEX MUST BE FOUND «, t00=0x0028, t01=0x00ca}
0x3f6a…3f8a Head {h00=0x001c, h01=0x0050, text=»DMT407 CW A4,MXIND+2,A2 «, t00=0x0028, t01=0x00f8}
0x3f8a…3fac Head {h00=0x001e, h01=0x0050, text=» RB(NE) DMT405 NEXT ENTRY «, t00=0x0028, t01=0x0118}
0x3fac…3fc2 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/7FFF«, t00=0x0028, t01=0x013a}
0x3fc2…3fec Head {h00=0x0026, h01=0x0050, text=» ANS A4,MXIND+4,A2 SET ENTRY FREE «, t00=0x0028, t01=0x0150}
0x3fec…4004 Head {h00=0x0014, h01=0x0050, text=»DMT408 ENB ENB«, t00=0x0028, t01=0x017a}
0x4004…4018 (41, 0, 400) Head {h00=0x0010, h01=0x0050, text=»DMT410 EQU *«, t00=0x0029, t01=0x0004}
0x4018…402e Head {h00=0x0012, h01=0x0050, text=» LD A3,TASFDB «, t00=0x0029, t01=0x0018}
0x402e…4050 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT430 NO FDB USED «, t00=0x0029, t01=0x002e}
0x4050…4066 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FFFE«, t00=0x0029, t01=0x0050}
0x4066…408c Head {h00=0x0022, h01=0x0050, text=» ANRS A2,A3 CLEAR FDB USE BIT «, t00=0x0029, t01=0x0066}
0x408c…409e Head {h00=0x000e, h01=0x0050, text=» RF DMT430«, t00=0x0029, t01=0x008c}
0x409e…40b2 Head {h00=0x0010, h01=0x0050, text=»DMT420 EQU *«, t00=0x0029, t01=0x009e}
0x40b2…40d0 Head {h00=0x001a, h01=0x0050, text=» ST A12,1,A2 FDB ADDR «, t00=0x0029, t01=0x00b2}
0x40d0…40e4 Head {h00=0x0010, h01=0x0050, text=»DMT430 EQU *«, t00=0x0029, t01=0x00d0}
0x40e4…40f6 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0029, t01=0x00e4}
0x40f6…4116 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DMT440 NO BUFFER «, t00=0x0029, t01=0x00f6}
0x4116…412e Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0029, t01=0x0116}
0x412e…4146 Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x0029, t01=0x012e}
0x4146…416c Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0029, t01=0x0146}
0x416c…4180 Head {h00=0x0010, h01=0x0050, text=»DMT440 EQU *«, t00=0x0029, t01=0x016c}
0x4180…41b0 Head {h00=0x002c, h01=0x0050, text=» CF A14,CLRBUF RELEASE ALL FREE BUFFERS «, t00=0x0029, t01=0x0180}
0x41b0…41da Head {h00=0x0026, h01=0x0050, text=» CF A14,TASCAQ CHECK ASSIGN QUEUE «, t00=0x002a, t01=0x0020}
0x41da…4202 Head {h00=0x0024, h01=0x0050, text=» CF A15,QTJOB QUEUE CALLING TASK«, t00=0x002a, t01=0x004a}
0x4202…420e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002a, t01=0x0072}
0x420e…421a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x007e}
0x421a…422a Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x002a, t01=0x008a}
0x422a…4238 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x009a}
0x4238…424c Head {h00=0x0010, h01=0x0050, text=»DMT500 EQU *«, t00=0x002a, t01=0x00a8}
0x424c…4262 Head {h00=0x0012, h01=0x0050, text=» LD A6,TASFIL «, t00=0x002a, t01=0x00bc}
0x4262…4282 Head {h00=0x001c, h01=0x0050, text=» ABL(Z) DMT700 DATA FILE«, t00=0x002a, t01=0x00d2}
0x4282…4298 Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x002a, t01=0x00f2}
0x4298…42b4 Head {h00=0x0018, h01=0x0050, text=» LDKL A7,-1 REQ ERR «, t00=0x002a, t01=0x0108}
0x42b4…42c6 Head {h00=0x000e, h01=0x0050, text=» RB DMTASX«, t00=0x002a, t01=0x0124}
0x42c6…42d2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x0136}
0x42d2…42e8 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002a, t01=0x0142}
0x42e8…42fa Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x002a, t01=0x0158}
0x42fa…431c Head {h00=0x001e, h01=0x0050, text=» ABL(Z) DMT600 INDEX FILE «, t00=0x002a, t01=0x016a}
0x431c…432a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x018c}
0x432a…4334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x000a}
0x4334…435a Head {h00=0x0022, h01=0x0050, text=»* THIS IS MASTER INDEX LOOP.«, t00=0x002b, t01=0x0014}
0x435a…4396 Head {h00=0x0038, h01=0x0050, text=»* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ«, t00=0x002b, t01=0x003a}
0x4396…43d6 Head {h00=0x003c, h01=0x0050, text=»* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE «, t00=0x002b, t01=0x0076}
0x43d6…43e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00b6}
0x43e0…4400 Head {h00=0x001c, h01=0x0050, text=» LD A7,TASTID DMTASK ID «, t00=0x002b, t01=0x00c0}
0x4400…440c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002b, t01=0x00e0}
0x440c…4432 Head {h00=0x0022, h01=0x0050, text=» CF A15,FNDTID TTAB ADDR TO A2«, t00=0x002b, t01=0x00ec}
0x4432…443e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002b, t01=0x0112}
0x443e…4454 Head {h00=0x0012, h01=0x0050, text=» ST A2,TASSPW «, t00=0x002b, t01=0x011e}
0x4454…447a Head {h00=0x0022, h01=0x0050, text=» LDKL A3,/0100 INDEX DATA FILE«, t00=0x002b, t01=0x0134}
0x447a…4490 Head {h00=0x0012, h01=0x0050, text=» LD A1,TASASB «, t00=0x002b, t01=0x015a}
0x4490…44ae Head {h00=0x001a, h01=0x0050, text=» LC A3,1,A1 FILE CODE «, t00=0x002b, t01=0x0170}
0x44ae…44c6 Head {h00=0x0014, h01=0x0050, text=» SC A3,TASECB+1 «, t00=0x002b, t01=0x018e}
0x44c6…44ec Head {h00=0x0022, h01=0x0050, text=» ST A3,TTB:TD+2,A2 TTAB ENTRY «, t00=0x002c, t01=0x0016}
0x44ec…4510 Head {h00=0x0020, h01=0x0050, text=» ST A12,TTB:TD+4,A2 FDB ADR «, t00=0x002c, t01=0x003c}
0x4510…4528 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x002c, t01=0x0060}
0x4528…4540 Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x002c, t01=0x0078}
0x4540…4566 Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x002c, t01=0x0090}
0x4566…4570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00b6}
0x4570…45a4 Head {h00=0x0030, h01=0x0050, text=»* CALC NO OF WORDS NEEDED IN MASTRE INDEX «, t00=0x002c, t01=0x00c0}
0x45a4…45ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f4}
0x45ae…45d0 Head {h00=0x001e, h01=0x0050, text=» LD A6,FDBRLE,A12 REC LGTH«, t00=0x002c, t01=0x00fe}
0x45d0…45f6 Head {h00=0x0022, h01=0x0050, text=» LD A7,FDBLRN+1,A12 NO OF RECS«, t00=0x002c, t01=0x0120}
0x45f6…4626 Head {h00=0x002c, h01=0x0050, text=» CF A14,MPYMOD A1,A2=NO OF BYTES NEEDED «, t00=0x002c, t01=0x0146}
0x4626…4638 Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x002c, t01=0x0176}
0x4638…465c Head {h00=0x0020, h01=0x0050, text=» ORR A2,A1 GET MOST SIGN BIT«, t00=0x002c, t01=0x0188}
0x465c…466e Head {h00=0x000e, h01=0x0050, text=» ADK A2,5 «, t00=0x002d, t01=0x001c}
0x466e…4692 Head {h00=0x0020, h01=0x0050, text=» SRL A2,1 NO OF WORDS NEEDED«, t00=0x002d, t01=0x002e}
0x4692…46b2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DMT570 WRONG SIZE«, t00=0x002d, t01=0x0052}
0x46b2…46be Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002d, t01=0x0072}
0x46be…46e0 Head {h00=0x001e, h01=0x0050, text=» LD A4,MXIND LENGTH MXIND «, t00=0x002d, t01=0x007e}
0x46e0…46fe Head {h00=0x001a, h01=0x0050, text=» SUK A4,4 MAX A5 VALUE«, t00=0x002d, t01=0x00a0}
0x46fe…4718 Head {h00=0x0016, h01=0x0050, text=» LDKL A5,-2 OFFSET«, t00=0x002d, t01=0x00be}
0x4718…472c Head {h00=0x0010, h01=0x0050, text=»DMT540 EQU *«, t00=0x002d, t01=0x00d8}
0x472c…4748 Head {h00=0x0018, h01=0x0050, text=» ADK A5,4 GET ENTRY «, t00=0x002d, t01=0x00ec}
0x4748…475a Head {h00=0x000e, h01=0x0050, text=» CWR A5,A4«, t00=0x002d, t01=0x0108}
0x475a…477e Head {h00=0x0020, h01=0x0050, text=» RF(G) DMT570 NO ENTRY FOUND«, t00=0x002d, t01=0x011a}
0x477e…4796 Head {h00=0x0014, h01=0x0050, text=» LD A3,MXIND,A5 «, t00=0x002d, t01=0x013e}
0x4796…47b6 Head {h00=0x001c, h01=0x0050, text=» RB(Z) DMT540 ZERO ENTRY«, t00=0x002d, t01=0x0156}
0x47b6…47d0 Head {h00=0x0016, h01=0x0050, text=» LD A6,MXIND+2,A5 «, t00=0x002d, t01=0x0176}
0x47d0…47f0 Head {h00=0x001c, h01=0x0050, text=» RB(N) DMT540 ENTRY USED«, t00=0x002d, t01=0x0190}
0x47f0…4814 Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 NO OF SPARE WORDS«, t00=0x002e, t01=0x0020}
0x4814…483e Head {h00=0x0026, h01=0x0050, text=» RB(N) DMT540 LARGER ENTRY NEEDED «, t00=0x002e, t01=0x0044}
0x483e…4848 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x006e}
0x4848…486a Head {h00=0x001e, h01=0x0050, text=»* SUFFICIENT SPACE FOUND«, t00=0x002e, t01=0x0078}
0x486a…4874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x009a}
0x4874…4894 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,/8000 USED BIT «, t00=0x002e, t01=0x00a4}
0x4894…48be Head {h00=0x0026, h01=0x0050, text=» ORS A1,MXIND+2,A5 MARK ENTRY USED«, t00=0x002e, t01=0x00c4}
0x48be…48e6 Head {h00=0x0024, h01=0x0050, text=» ST A3,TASMXA MASTER INDEX ADDR «, t00=0x002e, t01=0x00ee}
0x48e6…4900 Head {h00=0x0016, h01=0x0050, text=» ST A3,FDBMIA,A12 «, t00=0x002e, t01=0x0116}
0x4900…491c Head {h00=0x0018, h01=0x0050, text=» LD A7,FDBLRN+1,A12 «, t00=0x002e, t01=0x0130}
0x491c…493c Head {h00=0x001c, h01=0x0050, text=» STR A7,A3 NO OF ENTRIES«, t00=0x002e, t01=0x014c}
0x493c…4956 Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBRLE,A12 «, t00=0x002e, t01=0x016c}
0x4956…4976 Head {h00=0x001c, h01=0x0050, text=» ST A1,2,A3 ENTRY LENGTH«, t00=0x002e, t01=0x0186}
0x4976…4998 Head {h00=0x001e, h01=0x0050, text=» ADK A3,4 SKIP MX HEADRER «, t00=0x002f, t01=0x0016}
0x4998…49bc Head {h00=0x0020, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDR «, t00=0x002f, t01=0x0038}
0x49bc…49dc Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LGTH«, t00=0x002f, t01=0x005c}
0x49dc…4a0e Head {h00=0x002e, h01=0x0050, text=» LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION«, t00=0x002f, t01=0x007c}
0x4a0e…4a2c Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 MXIND ENTRY«, t00=0x002f, t01=0x00ae}
0x4a2c…4a4e Head {h00=0x001e, h01=0x0050, text=» RF(NL) DMT590 LAST ENTRY «, t00=0x002f, t01=0x00cc}
0x4a4e…4a68 Head {h00=0x0016, h01=0x0050, text=» LD A3,MXIND+6,A1 «, t00=0x002f, t01=0x00ee}
0x4a68…4a8e Head {h00=0x0022, h01=0x0050, text=» RF(N) DMT590 NEXT ENTRY USED «, t00=0x002f, t01=0x0108}
0x4a8e…4a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x012e}
0x4a98…4ac2 Head {h00=0x0026, h01=0x0050, text=»* MOVE SPARE WORDS TO NEXT ENTRY«, t00=0x002f, t01=0x0138}
0x4ac2…4acc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0162}
0x4acc…4ae6 Head {h00=0x0016, h01=0x0050, text=» LD A2,MXIND+2,A1 «, t00=0x002f, t01=0x016c}
0x4ae6…4b0c Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/7FFF REMOVE USE BIT «, t00=0x002f, t01=0x0186}
0x4b0c…4b1e Head {h00=0x000e, h01=0x0050, text=» SUR A2,A6«, t00=0x0030, t01=0x001c}
0x4b1e…4b3c Head {h00=0x001a, h01=0x0050, text=» ORKL A2,/8000 USE BIT«, t00=0x0030, t01=0x002e}
0x4b3c…4b56 Head {h00=0x0016, h01=0x0050, text=» ST A2,MXIND+2,A1 «, t00=0x0030, t01=0x004c}
0x4b56…4b88 Head {h00=0x002e, h01=0x0050, text=» ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER «, t00=0x0030, t01=0x0066}
0x4b88…4bb0 Head {h00=0x0024, h01=0x0050, text=» LD A7,MXIND,A1 PREVIOUS POINTER«, t00=0x0030, t01=0x0098}
0x4bb0…4bce Head {h00=0x001a, h01=0x0050, text=» SLL A2,1 NO OF BYTES «, t00=0x0030, t01=0x00c0}
0x4bce…4be0 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A2«, t00=0x0030, t01=0x00de}
0x4be0…4bfa Head {h00=0x0016, h01=0x0050, text=» ST A7,MXIND+4,A1 «, t00=0x0030, t01=0x00f0}
0x4bfa…4c08 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x010a}
0x4c08…4c1c Head {h00=0x0010, h01=0x0050, text=»DMT590 EQU *«, t00=0x0030, t01=0x0118}
0x4c1c…4c28 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0030, t01=0x012c}
0x4c28…4c32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0138}
0x4c32…4c68 Head {h00=0x0032, h01=0x0050, text=»* NOW READ MASTER INDEX WITH SEQUENTIAL READ«, t00=0x0030, t01=0x0142}
0x4c68…4c80 Head {h00=0x0014, h01=0x0050, text=»* A8 = TASECB «, t00=0x0030, t01=0x0178}
0x4c80…4cbc Head {h00=0x0038, h01=0x0050, text=»* OTHER REQ TO THE SAME FILE CODE ARE NOT POSSIBLE«, t00=0x0030, t01=0x0190}
0x4cbc…4cfc Head {h00=0x003c, h01=0x0050, text=»* BECAUSE AN INDEX FILE MUST ALWAYS BE ASSIGNED COMMON«, t00=0x0031, t01=0x003c}
0x4cfc…4d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x007c}
0x4d06…4d1a Head {h00=0x0010, h01=0x0050, text=»DMT550 EQU *«, t00=0x0031, t01=0x0086}
0x4d1a…4d44 Head {h00=0x0026, h01=0x0050, text=» LDK A7,/42 SEQ READ,NOWAIT,NO EA «, t00=0x0031, t01=0x009a}
0x4d44…4d50 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0031, t01=0x00c4}
0x4d50…4d60 Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0031, t01=0x00d0}
0x4d60…4d74 Head {h00=0x0010, h01=0x0050, text=» DATA DMTAR5«, t00=0x0031, t01=0x00e0}
0x4d74…4d80 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0031, t01=0x00f4}
0x4d80…4d94 Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0031, t01=0x0100}
0x4d94…4da8 Head {h00=0x0010, h01=0x0050, text=»DMTAR5 EQU *«, t00=0x0031, t01=0x0114}
0x4da8…4dce Head {h00=0x0022, h01=0x0050, text=» LDKL A14,DMTA14 RESTORE STACK«, t00=0x0031, t01=0x0128}
0x4dce…4dee Head {h00=0x001c, h01=0x0050, text=» LDKL A8,TASECB ECB ADDR«, t00=0x0031, t01=0x014e}
0x4dee…4e06 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x0031, t01=0x016e}
0x4e06…4e30 Head {h00=0x0026, h01=0x0050, text=» ANKL A2,/FEFF BIT 7 ONLY RETRIES «, t00=0x0031, t01=0x0186}
0x4e30…4e4e Head {h00=0x001a, h01=0x0050, text=» RF(Z) DMT560 NO ERROR«, t00=0x0032, t01=0x0020}
0x4e4e…4e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x003e}
0x4e58…4e7e Head {h00=0x0022, h01=0x0050, text=»* REMOVE THE ONLY CRN BUFFER«, t00=0x0032, t01=0x0048}
0x4e7e…4e88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x006e}
0x4e88…4ea6 Head {h00=0x001a, h01=0x0050, text=» LD A4,TASFDB FDB ADDR«, t00=0x0032, t01=0x0078}
0x4ea6…4eca Head {h00=0x0020, h01=0x0050, text=» LD A5,FDBCRL,A4 CRN BUF ADR«, t00=0x0032, t01=0x0096}
0x4eca…4ee6 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DMT553 NO CRN«, t00=0x0032, t01=0x00ba}
0x4ee6…4efc Head {h00=0x0012, h01=0x0050, text=» CM FDBCRL,A4 «, t00=0x0032, t01=0x00d6}
0x4efc…4f08 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0032, t01=0x00ec}
0x4f08…4f1e Head {h00=0x0012, h01=0x0050, text=» LD A6,CRNQUE «, t00=0x0032, t01=0x00f8}
0x4f1e…4f30 Head {h00=0x000e, h01=0x0050, text=» STR A6,A5«, t00=0x0032, t01=0x010e}
0x4f30…4f46 Head {h00=0x0012, h01=0x0050, text=» ST A5,CRNQUE «, t00=0x0032, t01=0x0120}
0x4f46…4f52 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0032, t01=0x0136}
0x4f52…4f66 Head {h00=0x0010, h01=0x0050, text=»DMT553 EQU *«, t00=0x0032, t01=0x0142}
0x4f66…4f88 Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/1000 BIT 3 = EOF«, t00=0x0032, t01=0x0156}
0x4f88…4fbc Head {h00=0x0030, h01=0x0050, text=» RF(NZ) DMT595 READY ,WHOLIE MXINDEX IS READ«, t00=0x0032, t01=0x0178}
0x4fbc…4fce Head {h00=0x000e, h01=0x0050, text=» LDK A7,7 «, t00=0x0033, t01=0x001c}
0x4fce…4ff0 Head {h00=0x001e, h01=0x0050, text=»DMT555 SUR A8,A8 NO BUFFER«, t00=0x0033, t01=0x002e}
0x4ff0…5010 Head {h00=0x001c, h01=0x0050, text=» ABL DMTASX DISC IO ERR «, t00=0x0033, t01=0x0050}
0x5010…5024 Head {h00=0x0010, h01=0x0050, text=»DMT560 EQU *«, t00=0x0033, t01=0x0070}
0x5024…502e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0084}
0x502e…5050 Head {h00=0x001e, h01=0x0050, text=»* RECORD READ,READ NEXRT«, t00=0x0033, t01=0x008e}
0x5050…505a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b0}
0x505a…5072 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x0033, t01=0x00ba}
0x5072…5096 Head {h00=0x0020, h01=0x0050, text=» ADS A2,ECBBA,A8 REC LENGTH «, t00=0x0033, t01=0x00d2}
0x5096…50ba Head {h00=0x0020, h01=0x0050, text=» RB DMT550 READ NEXT RECORD «, t00=0x0033, t01=0x00f6}
0x50ba…50ce Head {h00=0x0010, h01=0x0050, text=»DMT570 EQU *«, t00=0x0033, t01=0x011a}
0x50ce…50da Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0033, t01=0x012e}
0x50da…50fa Head {h00=0x001c, h01=0x0050, text=» LDK A7,3 NOT SUFF SPACE«, t00=0x0033, t01=0x013a}
0x50fa…510c Head {h00=0x000e, h01=0x0050, text=» RB DMT555«, t00=0x0033, t01=0x015a}
0x510c…511a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x016c}
0x511a…512e Head {h00=0x0010, h01=0x0050, text=»DMT595 EQU *«, t00=0x0033, t01=0x017a}
0x512e…5138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x018e}
0x5138…516e Head {h00=0x0032, h01=0x0050, text=»* MASTER INDE X READUY. RERUN FOR INDEX FILE«, t00=0x0034, t01=0x0008}
0x516e…5178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x003e}
0x5178…518a Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0034, t01=0x0048}
0x518a…51aa Head {h00=0x001c, h01=0x0050, text=» ST A1,TASFIL INDEX FILE«, t00=0x0034, t01=0x005a}
0x51aa…51d0 Head {h00=0x0022, h01=0x0050, text=» LD A3,TASSPW TTAB ADR DMTASK «, t00=0x0034, t01=0x007a}
0x51d0…51f4 Head {h00=0x0020, h01=0x0050, text=» CM TTB:TD+2,A3 DELETE ENTRY«, t00=0x0034, t01=0x00a0}
0x51f4…520c Head {h00=0x0014, h01=0x0050, text=» CM TTB:TD+4,A3 «, t00=0x0034, t01=0x00c4}
0x520c…522a Head {h00=0x001a, h01=0x0050, text=» LD A3,TASFDB FDB ADDR«, t00=0x0034, t01=0x00dc}
0x522a…5240 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FFFE«, t00=0x0034, t01=0x00fa}
0x5240…5266 Head {h00=0x0022, h01=0x0050, text=» ANRS A2,A3 CLEAR FDB USE BIT «, t00=0x0034, t01=0x0110}
0x5266…5292 Head {h00=0x0028, h01=0x0050, text=» CM TASFDB EXT 0 NOT FOUND FOR INDEX«, t00=0x0034, t01=0x0136}
0x5292…52a4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,16«, t00=0x0034, t01=0x0162}
0x52a4…52ce Head {h00=0x0026, h01=0x0050, text=» ST A1,TASCXO LAST ENTRY POSSIBLE «, t00=0x0034, t01=0x0174}
0x52ce…52e0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0035, t01=0x000e}
0x52e0…5316 Head {h00=0x0032, h01=0x0050, text=»* TASCVO REMAINS ZERO FROM MASTER INDEX LOOP«, t00=0x0035, t01=0x0020}
0x5316…5336 Head {h00=0x001c, h01=0x0050, text=» ABL DMT050 ASSIGN INDEX«, t00=0x0035, t01=0x0056}
0x5336…5344 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0076}
0x5344…5358 Head {h00=0x0010, h01=0x0050, text=»DMT600 EQU *«, t00=0x0035, t01=0x0084}
0x5358…5362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0098}
0x5362…5380 Head {h00=0x001a, h01=0x0050, text=»* INDEX FILE ASSIGN «, t00=0x0035, t01=0x00a2}
0x5380…538a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00c0}
0x538a…53a6 Head {h00=0x0018, h01=0x0050, text=» LDK A7,10 RET CODE «, t00=0x0035, t01=0x00ca}
0x53a6…53d0 Head {h00=0x0026, h01=0x0050, text=» LD A10,TASFDD FDB ADDR DATA FILEP«, t00=0x0035, t01=0x00e6}
0x53d0…53f2 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT650 NO DATA FILE«, t00=0x0035, t01=0x0110}
0x53f2…53fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0132}
0x53fc…542a Head {h00=0x002a, h01=0x0050, text=»* STORE INDEX ADDR IN FDB DATA FILE «, t00=0x0035, t01=0x013c}
0x542a…5434 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x016a}
0x5434…5446 Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0035, t01=0x0174}
0x5446…545e Head {h00=0x0014, h01=0x0050, text=» LC A3,DWTST,A10«, t00=0x0035, t01=0x0186}
0x545e…5472 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/40 «, t00=0x0036, t01=0x000e}
0x5472…549c Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DMT639 OTHER REQUEST BUSY «, t00=0x0036, t01=0x0022}
0x549c…54be Head {h00=0x001e, h01=0x0050, text=» LDK A3,8 MAX NO OF INDE*2«, t00=0x0036, t01=0x004c}
0x54be…54d2 Head {h00=0x0010, h01=0x0050, text=»DMT620 EQU *«, t00=0x0036, t01=0x006e}
0x54d2…54e4 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0036, t01=0x0082}
0x54e4…550c Head {h00=0x0024, h01=0x0050, text=» RF(N) DMT640 MORE THAN 4 INDEX «, t00=0x0036, t01=0x0094}
0x550c…5520 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A10 «, t00=0x0036, t01=0x00bc}
0x5520…5532 Head {h00=0x000e, h01=0x0050, text=» ADR A6,A3«, t00=0x0036, t01=0x00d0}
0x5532…554a Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBAI1,A6«, t00=0x0036, t01=0x00e2}
0x554a…5566 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) DMT620 USED «, t00=0x0036, t01=0x00fa}
0x5566…5594 Head {h00=0x002a, h01=0x0050, text=» ST A12,FDBAI1,A6 STORE FDB ADDR INDEX«, t00=0x0036, t01=0x0116}
0x5594…559e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0144}
0x559e…55de Head {h00=0x003c, h01=0x0050, text=»* MOVE FDB ADDRESSES FROM DATA FILE TO ALL INDEX FILES«, t00=0x0036, t01=0x014e}
0x55de…55e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x018e}
0x55e8…5608 Head {h00=0x001c, h01=0x0050, text=» LDK A5,8 NR OF INDEX *2«, t00=0x0037, t01=0x0008}
0x5608…561c Head {h00=0x0010, h01=0x0050, text=»DMT625 EQU *«, t00=0x0037, t01=0x0028}
0x561c…562e Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x0037, t01=0x003c}
0x562e…5654 Head {h00=0x0022, h01=0x0050, text=» RF(N) DMT635 ALL FDB UPPDATED«, t00=0x0037, t01=0x004e}
0x5654…5670 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A10 FDB DATA«, t00=0x0037, t01=0x0074}
0x5670…5682 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A5«, t00=0x0037, t01=0x0090}
0x5682…56aa Head {h00=0x0024, h01=0x0050, text=» LD A3,FDBAI1,A1 FDB ADDR INDEX «, t00=0x0037, t01=0x00a2}
0x56aa…56ce Head {h00=0x0020, h01=0x0050, text=» RB(Z) DMT625 NO INDEX FILE «, t00=0x0037, t01=0x00ca}
0x56ce…56e6 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,FDBADF «, t00=0x0037, t01=0x00ee}
0x56e6…5700 Head {h00=0x0016, h01=0x0050, text=» ADR A3,A1 TO ADDR«, t00=0x0037, t01=0x0106}
0x5700…571e Head {h00=0x001a, h01=0x0050, text=» ADR A1,A10 FROM ADDR «, t00=0x0037, t01=0x0120}
0x571e…573c Head {h00=0x001a, h01=0x0050, text=» LDK A2,10 NO OF BYTES«, t00=0x0037, t01=0x013e}
0x573c…575e Head {h00=0x001e, h01=0x0050, text=» CF A14,DMTWM MOVE 5 WORDS«, t00=0x0037, t01=0x015c}
0x575e…5770 Head {h00=0x000e, h01=0x0050, text=» RB DMT625«, t00=0x0037, t01=0x017e}
0x5770…5784 Head {h00=0x0010, h01=0x0050, text=»DMT635 EQU *«, t00=0x0037, t01=0x0190}
0x5784…579c Head {h00=0x0014, h01=0x0050, text=» LC A1,DWTST,A10«, t00=0x0038, t01=0x0014}
0x579c…57d0 Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE«, t00=0x0038, t01=0x002c}
0x57d0…57e2 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0038, t01=0x0060}
0x57e2…57f8 Head {h00=0x0012, h01=0x0050, text=» LD A1,TASMXA «, t00=0x0038, t01=0x0072}
0x57f8…5824 Head {h00=0x0028, h01=0x0050, text=» ST A1,FDBMIA,A12 MASTER INDEX ADDR «, t00=0x0038, t01=0x0088}
0x5824…5836 Head {h00=0x000e, h01=0x0050, text=» RF DMT720«, t00=0x0038, t01=0x00b4}
0x5836…5862 Head {h00=0x0028, h01=0x0050, text=»DMT639 ADK A7,2 A7=13=OTHER REQ BUSY«, t00=0x0038, t01=0x00c6}
0x5862…5890 Head {h00=0x002a, h01=0x0050, text=»DMT640 ADK A7,1 A7=11=4 INDEX ALREADY «, t00=0x0038, t01=0x00f2}
0x5890…58b8 Head {h00=0x0024, h01=0x0050, text=»DMT650 EQU * A7=10=NO DATA FILE «, t00=0x0038, t01=0x0120}
0x58b8…58cc Head {h00=0x0010, h01=0x0050, text=» ABL DMTASX «, t00=0x0038, t01=0x0148}
0x58cc…58d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x015c}
0x58d8…58e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0168}
0x58e6…590c Head {h00=0x0022, h01=0x0050, text=»DMT700 EQU * ASSIGN DATA FILE «, t00=0x0038, t01=0x0176}
0x590c…5936 Head {h00=0x0026, h01=0x0050, text=» ST A12,FDBADF,A12 FDB ADDR TO FDB«, t00=0x0039, t01=0x000c}
0x5936…5958 Head {h00=0x001e, h01=0x0050, text=» LD* A1,TASASB ASBLK ADDR «, t00=0x0039, t01=0x0036}
0x5958…596e Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/6000«, t00=0x0039, t01=0x0058}
0x596e…5980 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0039, t01=0x006e}
0x5980…59a8 Head {h00=0x0024, h01=0x0050, text=» ORS A1,FDBDBR,A12 DELAY + BASIC«, t00=0x0039, t01=0x0080}
0x59a8…59bc Head {h00=0x0010, h01=0x0050, text=»DMT720 EQU *«, t00=0x0039, t01=0x00a8}
0x59bc…59c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00bc}
0x59c6…59f2 Head {h00=0x0028, h01=0x0050, text=»* SET FDBMRN TO MAX REC NO IN FILE«, t00=0x0039, t01=0x00c6}
0x59f2…59fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f2}
0x59fc…5a10 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x0039, t01=0x00fc}
0x5a10…5a28 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,FDBNIF «, t00=0x0039, t01=0x0110}
0x5a28…5a42 Head {h00=0x0016, h01=0x0050, text=» ADKL A1,EXTELE-2 «, t00=0x0039, t01=0x0128}
0x5a42…5a60 Head {h00=0x001a, h01=0x0050, text=»DMT750 SUKL A1,EXTELE «, t00=0x0039, t01=0x0142}
0x5a60…5a7c Head {h00=0x0018, h01=0x0050, text=» LDR* A2,A1 EXT BASE«, t00=0x0039, t01=0x0160}
0x5a7c…5a92 Head {h00=0x0012, h01=0x0050, text=» RB(Z) DMT750 «, t00=0x0039, t01=0x017c}
0x5a92…5aa6 (58, 0, 400) Head {h00=0x0010, h01=0x0050, text=» AD A2,-2,A1«, t00=0x003a, t01=0x0004}
0x5aa6…5ac0 Head {h00=0x0016, h01=0x0050, text=» SUKL A1,EXTELE-2 «, t00=0x003a, t01=0x0018}
0x5ac0…5ada Head {h00=0x0016, h01=0x0050, text=» ST A1,FDBCEX,A12 «, t00=0x003a, t01=0x0032}
0x5ada…5aec Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003a, t01=0x004c}
0x5aec…5b06 Head {h00=0x0016, h01=0x0050, text=» ST A2,FDBSNR,A12 «, t00=0x003a, t01=0x005e}
0x5b06…5b1a Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x003a, t01=0x0078}
0x5b1a…5b40 Head {h00=0x0022, h01=0x0050, text=» CF A14,GTLGRN GET LOG REC NO «, t00=0x003a, t01=0x008c}
0x5b40…5b52 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003a, t01=0x00b2}
0x5b52…5b78 Head {h00=0x0022, h01=0x0050, text=» LC A1,FDBBLF,A12 BLOCK FACTOR«, t00=0x003a, t01=0x00c4}
0x5b78…5b8a Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003a, t01=0x00ea}
0x5b8a…5b9c Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x003a, t01=0x00fc}
0x5b9c…5bb2 Head {h00=0x0012, h01=0x0050, text=» RF(O) DMT760 «, t00=0x003a, t01=0x010e}
0x5bb2…5bc4 Head {h00=0x000e, h01=0x0050, text=» RF DMT770«, t00=0x003a, t01=0x0124}
0x5bc4…5be0 Head {h00=0x0018, h01=0x0050, text=»DMT760 ANKL A3,/7FFF«, t00=0x003a, t01=0x0136}
0x5be0…5bf8 Head {h00=0x0014, h01=0x0050, text=» ADK A2,1 CARRY «, t00=0x003a, t01=0x0152}
0x5bf8…5c18 Head {h00=0x001c, h01=0x0050, text=»DMT770 SC A2,FDBMRN,A12 «, t00=0x003a, t01=0x016a}
0x5c18…5c34 Head {h00=0x0018, h01=0x0050, text=» ST A3,FDBMRN+1,A12 «, t00=0x003a, t01=0x018a}
0x5c34…5c3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0016}
0x5c3e…5c76 Head {h00=0x0034, h01=0x0050, text=»* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE«, t00=0x003b, t01=0x0020}
0x5c76…5c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0058}
0x5c80…5ca4 Head {h00=0x0020, h01=0x0050, text=» LD A6,FDBRLE,A12 REC LENGTH«, t00=0x003b, t01=0x0062}
0x5ca4…5cb6 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x003b, t01=0x0086}
0x5cb6…5cc8 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x003b, t01=0x0098}
0x5cc8…5cec Head {h00=0x0020, h01=0x0050, text=» LC A7,FDBBLF,A12 BLOCK FACT«, t00=0x003b, t01=0x00aa}
0x5cec…5cfe Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x003b, t01=0x00ce}
0x5cfe…5d20 Head {h00=0x001e, h01=0x0050, text=» CF A14,MPYMOD A1,A2=A6*A7«, t00=0x003b, t01=0x00e0}
0x5d20…5d44 Head {h00=0x0020, h01=0x0050, text=» ST A2,FDBMRO,A12 MAX FDBRRO«, t00=0x003b, t01=0x0102}
0x5d44…5d58 Head {h00=0x0010, h01=0x0050, text=» ABL DMT400 «, t00=0x003b, t01=0x0126}
0x5d58…5d64 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003b, t01=0x013a}
0x5d64…5d68 Head {h00=0x4004, h01=0x0000}
0x5d68…5d6c 00 3b 01 46 ┆ ; F┆
0x5d6c…5d74 (60, 1, 8) 20 04 00 00 00 3c 00 04 ┆ < ┆