|
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: 23928 (0x5d78)
Notes: pts_type(SC)
Names: »DMTASS.SC«
└─⟦781e933ac⟧ Bits:30009686 Philips computer tape "600310"
└─⟦this⟧ »M:92T1/DMTASS.SC«
└─⟦7e2393f80⟧ Bits:30009710 Philips computer tape "M_KONV"
└─⟦this⟧ »M:KONV/DMTASS.SC«
└─⟦7f25f14aa⟧ Bits:30009683 Philips computer tape "600307"
└─⟦this⟧ »M:92F4/DMTASS.SC«
└─⟦f740ae34d⟧ Bits:30009708 Philips computer tape "M_92F3"
└─⟦this⟧ »M:92F3/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 00004 INDEX RECORD BUFFER SIZE X:B EQU 0 INDXAC EQU 00000 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, 400) 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…0e0e Head {h00=0x002e, h01=0x0050, text=»RECBFZ EQU 00004 INDEX RECORD BUFFER SIZE «, t00=0x0008, t01=0x0162}
0x0e0e…0e20 (9, 0, 398) Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0009, t01=0x0004}
0x0e20…0e58 Head {h00=0x0034, h01=0x0050, text=»INDXAC EQU 00000 INDEX ACCESS FUNCTIONS WHEN = 1«, t00=0x0009, t01=0x0016}
0x0e58…0e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004e}
0x0e62…0e94 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0009, t01=0x0058}
0x0e94…0ec2 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0009, t01=0x008a}
0x0ec2…0ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b8}
0x0ecc…0ee0 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0009, t01=0x00c2}
0x0ee0…0eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00d6}
0x0eea…0ef8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x00e0}
0x0ef8…0f02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ee}
0x0f02…0f16 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0009, t01=0x00f8}
0x0f16…0f2a Head {h00=0x0010, h01=0x0050, text=»* DATA *«, t00=0x0009, t01=0x010c}
0x0f2a…0f3e Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0009, t01=0x0120}
0x0f3e…0f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0134}
0x0f48…0f74 Head {h00=0x0028, h01=0x0050, text=»* CYLID 1 WORD INCL FOR VOL LABEL «, t00=0x0009, t01=0x013e}
0x0f74…0f88 Head {h00=0x0010, h01=0x0050, text=»VLVLE EQU 8 «, t00=0x0009, t01=0x016a}
0x0f88…0f9c Head {h00=0x0010, h01=0x0050, text=»VLVBA EQU 12«, t00=0x0009, t01=0x017e}
0x0f9c…0fb0 (10, 0, 400) Head {h00=0x0010, h01=0x0050, text=»VLVRL EQU 14«, t00=0x000a, t01=0x0004}
0x0fb0…0fc4 Head {h00=0x0010, h01=0x0050, text=»VLVER EQU 34«, t00=0x000a, t01=0x0018}
0x0fc4…0fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002c}
0x0fce…0fe2 Head {h00=0x0010, h01=0x0050, text=»VTFSNO EQU 8«, t00=0x000a, t01=0x0036}
0x0fe2…0ff8 Head {h00=0x0012, h01=0x0050, text=»VTFXNO EQU 10 «, t00=0x000a, t01=0x004a}
0x0ff8…100e Head {h00=0x0012, h01=0x0050, text=»VTFXLE EQU 14 «, t00=0x000a, t01=0x0060}
0x100e…1024 Head {h00=0x0012, h01=0x0050, text=»VTFXBA EQU 18 «, t00=0x000a, t01=0x0076}
0x1024…1038 Head {h00=0x0010, h01=0x0050, text=»VTLRN EQU 21«, t00=0x000a, t01=0x008c}
0x1038…104c Head {h00=0x0010, h01=0x0050, text=»VTRLE EQU 24«, t00=0x000a, t01=0x00a0}
0x104c…1060 Head {h00=0x0010, h01=0x0050, text=»VTBLF EQU 26«, t00=0x000a, t01=0x00b4}
0x1060…1076 Head {h00=0x0012, h01=0x0050, text=»VTFIOR EQU 27 «, t00=0x000a, t01=0x00c8}
0x1076…108a Head {h00=0x0010, h01=0x0050, text=»VTNIF EQU 37«, t00=0x000a, t01=0x00de}
0x108a…109e Head {h00=0x0010, h01=0x0050, text=»VTKA EQU 38 «, t00=0x000a, t01=0x00f2}
0x109e…10a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0106}
0x10a8…10ce Head {h00=0x0022, h01=0x0050, text=»* QVTBLE= (VTOC BF)*(RL+1)+2«, t00=0x000a, t01=0x0110}
0x10ce…10f6 Head {h00=0x0024, h01=0x0050, text=»QVTBLE EQU 380 VTOC BLOCK LENGTH«, t00=0x000a, t01=0x0136}
0x10f6…111a Head {h00=0x0020, h01=0x0050, text=»SECTLE EQU 410 SECTOR LENGTH«, t00=0x000a, t01=0x015e}
0x111a…1134 Head {h00=0x0016, h01=0x0050, text=» DATA 0,0 4 WORDS «, t00=0x000a, t01=0x0182}
0x1134…114c Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x000b, t01=0x000c}
0x114c…1162 Head {h00=0x0012, h01=0x0050, text=»DMTA14 EQU *-2«, t00=0x000b, t01=0x0024}
0x1162…1170 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x003a}
0x1170…117a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0048}
0x117a…1190 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000b, t01=0x0052}
0x1190…11a6 Head {h00=0x0012, h01=0x0050, text=»* DMTIOC *«, t00=0x000b, t01=0x0068}
0x11a6…11bc Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000b, t01=0x007e}
0x11bc…11c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0094}
0x11c6…1204 Head {h00=0x003a, h01=0x0050, text=»* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O«, t00=0x000b, t01=0x009e}
0x1204…1246 Head {h00=0x003e, h01=0x0050, text=»* RETURN TO DMTASX WITH A7=1 IF ERROR. «, t00=0x000b, t01=0x00dc}
0x1246…1250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x011e}
0x1250…1264 Head {h00=0x0010, h01=0x0050, text=»DMTIOC EQU *«, t00=0x000b, t01=0x0128}
0x1264…127c Head {h00=0x0014, h01=0x0050, text=» LDKL A8,TASECB «, t00=0x000b, t01=0x013c}
0x127c…1294 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x000b, t01=0x0154}
0x1294…12ac Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x000b, t01=0x016c}
0x12ac…12d6 Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/FEFF BIT 7 ONLY RETRIES «, t00=0x000b, t01=0x0184}
0x12d6…12ec Head {h00=0x0012, h01=0x0050, text=» RF(Z) DMTIOX «, t00=0x000c, t01=0x001e}
0x12ec…1300 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x000c, t01=0x0034}
0x1300…1314 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x000c, t01=0x0048}
0x1314…133c Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMT060 NEW VOLUME LOADED«, t00=0x000c, t01=0x005c}
0x133c…1354 Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x000c, t01=0x0084}
0x1354…1384 Head {h00=0x002c, h01=0x0050, text=» CM BUFDMI,A3 CLEAR VOL IDENT IN BUFFER «, t00=0x000c, t01=0x009c}
0x1384…1396 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x000c, t01=0x00cc}
0x1396…13b8 Head {h00=0x001e, h01=0x0050, text=» ABL DMTASX DISC I/O ERROR«, t00=0x000c, t01=0x00de}
0x13b8…13cc Head {h00=0x0010, h01=0x0050, text=»DMTIOX EQU *«, t00=0x000c, t01=0x0100}
0x13cc…13dc Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000c, t01=0x0114}
0x13dc…13ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x0124}
0x13ea…13f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0132}
0x13f4…140a Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000c, t01=0x013c}
0x140a…1420 Head {h00=0x0012, h01=0x0050, text=»* DMTASS *«, t00=0x000c, t01=0x0152}
0x1420…1436 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000c, t01=0x0168}
0x1436…1440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x017e}
0x1440…1454 Head {h00=0x0010, h01=0x0050, text=»DMTASS EQU *«, t00=0x000c, t01=0x0188}
0x1454…1490 Head {h00=0x0038, h01=0x0050, text=» LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER«, t00=0x000d, t01=0x000c}
0x1490…14b0 Head {h00=0x001c, h01=0x0050, text=» ST A2,TASTID TASK IDENT«, t00=0x000d, t01=0x0048}
0x14b0…14d4 Head {h00=0x0020, h01=0x0050, text=» CM TASMXA MASTER INDEX ADDR«, t00=0x000d, t01=0x0068}
0x14d4…14e6 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/2«, t00=0x000d, t01=0x008c}
0x14e6…1508 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT010 NOT FLEXTASC«, t00=0x000d, t01=0x009e}
0x1508…1512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c0}
0x1512…153c Head {h00=0x0026, h01=0x0050, text=»* PERFORM VOLUME CHECK WITH LOCK«, t00=0x000d, t01=0x00ca}
0x153c…1546 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00f4}
0x1546…1566 Head {h00=0x001c, h01=0x0050, text=» LD A8,TASASB ASBLK ADDR«, t00=0x000d, t01=0x00fe}
0x1566…1578 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A8«, t00=0x000d, t01=0x011e}
0x1578…1596 Head {h00=0x001a, h01=0x0050, text=» ANK A2,/07 NO OF VOL «, t00=0x000d, t01=0x0130}
0x1596…15b6 Head {h00=0x001c, h01=0x0050, text=» LDKL A11,1 LOCK WANTED «, t00=0x000d, t01=0x014e}
0x15b6…15d6 Head {h00=0x001c, h01=0x0050, text=» CF A14,VOLCHE SEE TASS «, t00=0x000d, t01=0x016e}
0x15d6…15e8 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000d, t01=0x018e}
0x15e8…1600 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DMT010 OK«, t00=0x000e, t01=0x0010}
0x1600…161e Head {h00=0x001a, h01=0x0050, text=» LDK A7,4 VOL UNKNOWN «, t00=0x000e, t01=0x0028}
0x161e…163e Head {h00=0x001c, h01=0x0050, text=» SUR A8,A8 NO BUFFER =3 «, t00=0x000e, t01=0x0046}
0x163e…1652 Head {h00=0x0010, h01=0x0050, text=» ABL DMTASX «, t00=0x000e, t01=0x0066}
0x1652…1666 Head {h00=0x0010, h01=0x0050, text=»DMT010 EQU *«, t00=0x000e, t01=0x007a}
0x1666…1670 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x008e}
0x1670…1688 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,TASECB «, t00=0x000e, t01=0x0098}
0x1688…1692 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b0}
0x1692…16cc Head {h00=0x0036, h01=0x0050, text=» LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME «, t00=0x000e, t01=0x00ba}
0x16cc…16e0 Head {h00=0x0010, h01=0x0050, text=»DMT050 EQU *«, t00=0x000e, t01=0x00f4}
0x16e0…1710 Head {h00=0x002c, h01=0x0050, text=» CF A14,CLRBUF RELEASE ALL FREE BUFFERS «, t00=0x000e, t01=0x0108}
0x1710…1722 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x000e, t01=0x0138}
0x1722…1750 Head {h00=0x002a, h01=0x0050, text=» LD A1,TASVOL,A1 DMI, FC FIRST VOLUME «, t00=0x000e, t01=0x014a}
0x1750…1768 Head {h00=0x0014, h01=0x0050, text=» SC A1,ECBFC,A8 «, t00=0x000e, t01=0x0178}
0x1768…1780 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SECTLE «, t00=0x000e, t01=0x0190}
0x1780…17a6 Head {h00=0x0022, h01=0x0050, text=» ST A2,ECBRL,A8 SECTOR LENGTH «, t00=0x000f, t01=0x0018}
0x17a6…17b8 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x000f, t01=0x003e}
0x17b8…17ec Head {h00=0x0030, h01=0x0050, text=» ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) «, t00=0x000f, t01=0x0050}
0x17ec…17f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0084}
0x17f6…1800 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x008e}
0x1800…1836 Head {h00=0x0032, h01=0x0050, text=» CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 «, t00=0x000f, t01=0x0098}
0x1836…185a Head {h00=0x0020, h01=0x0050, text=» DATA /5700 NOP. READ ALWAYS«, t00=0x000f, t01=0x00ce}
0x185a…1872 Head {h00=0x0014, h01=0x0050, text=» ADKL A3,BUFSTA «, t00=0x000f, t01=0x00f2}
0x1872…189c Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBBA,A8 DATA BUFFER START «, t00=0x000f, t01=0x010a}
0x189c…18a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0134}
0x18a6…18cc Head {h00=0x0022, h01=0x0050, text=»* PHYS READ 1 SECT FROM DISC«, t00=0x000f, t01=0x013e}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0164}
0x18d6…18ea Head {h00=0x0010, h01=0x0050, text=»DMT060 EQU *«, t00=0x000f, t01=0x016e}
0x18ea…1906 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/91 WAIT =2 «, t00=0x000f, t01=0x0182}
0x1906…1912 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0010, t01=0x000e}
0x1912…1926 Head {h00=0x0010, h01=0x0050, text=» DATA 1 =2 «, t00=0x0010, t01=0x001a}
0x1926…1958 Head {h00=0x002e, h01=0x0050, text=» LDKL A14,DMTA14 SET UP A14 STACK POINTER «, t00=0x0010, t01=0x002e}
0x1958…1978 Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTIOC I/O CHECK«, t00=0x0010, t01=0x0060}
0x1978…1998 Head {h00=0x001c, h01=0x0050, text=» LD A2,VLVER,A3 VERSION «, t00=0x0010, t01=0x0080}
0x1998…19c2 Head {h00=0x0026, h01=0x0050, text=» CWK A2,'TO' DTOSS FORMATED DISC? «, t00=0x0010, t01=0x00a0}
0x19c2…19dc Head {h00=0x0016, h01=0x0050, text=» RF(E) DMT100 YES «, t00=0x0010, t01=0x00ca}
0x19dc…19f0 Head {h00=0x0010, h01=0x0050, text=» LDK A7,8 NO«, t00=0x0010, t01=0x00e4}
0x19f0…1a10 Head {h00=0x001c, h01=0x0050, text=» ABL DMTASX ERROR RETURN«, t00=0x0010, t01=0x00f8}
0x1a10…1a1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0118}
0x1a1a…1a2e Head {h00=0x0010, h01=0x0050, text=»DMT100 EQU *«, t00=0x0010, t01=0x0122}
0x1a2e…1a40 Head {h00=0x000e, h01=0x0050, text=» CM TASVRN«, t00=0x0010, t01=0x0136}
0x1a40…1a64 Head {h00=0x0020, h01=0x0050, text=» LD A6,VLVLE,A3 VTOC LENGTH «, t00=0x0010, t01=0x0148}
0x1a64…1a7a Head {h00=0x0012, h01=0x0050, text=» ST A6,TASVLE «, t00=0x0010, t01=0x016c}
0x1a7a…1a9c Head {h00=0x001e, h01=0x0050, text=» LD A2,VLVBA,A3 VTOC BASE «, t00=0x0010, t01=0x0182}
0x1a9c…1ace Head {h00=0x002e, h01=0x0050, text=» ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT«, t00=0x0011, t01=0x0014}
0x1ace…1af8 Head {h00=0x0026, h01=0x0050, text=» LD A9,VLVRL,A3 VTOC RECORD LENGTH«, t00=0x0011, t01=0x0046}
0x1af8…1b0e Head {h00=0x0012, h01=0x0050, text=» ST A9,TASVRL «, t00=0x0011, t01=0x0070}
0x1b0e…1b1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x0086}
0x1b1c…1b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0094}
0x1b26…1b44 Head {h00=0x001a, h01=0x0050, text=»* SEARCH ALL VTOC:S «, t00=0x0011, t01=0x009e}
0x1b44…1b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00bc}
0x1b4e…1b62 Head {h00=0x0010, h01=0x0050, text=»DMT110 EQU *«, t00=0x0011, t01=0x00c6}
0x1b62…1b78 Head {h00=0x0012, h01=0x0050, text=» LD A6,TASVLE «, t00=0x0011, t01=0x00da}
0x1b78…1b8a Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0011, t01=0x00f0}
0x1b8a…1bae Head {h00=0x0020, h01=0x0050, text=» ST A6,TASVLE UPDATE TASVLE «, t00=0x0011, t01=0x0102}
0x1bae…1bd6 Head {h00=0x0024, h01=0x0050, text=» RF(P) DMT115 MORE VTOC SECTORS «, t00=0x0011, t01=0x0126}
0x1bd6…1be4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x014e}
0x1be4…1bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015c}
0x1bee…1c14 Head {h00=0x0022, h01=0x0050, text=»* ALL VTOC SECTORS ARE READ «, t00=0x0011, t01=0x0166}
0x1c14…1c1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x018c}
0x1c1e…1c34 Head {h00=0x0012, h01=0x0050, text=» LD A1,TASCVO «, t00=0x0012, t01=0x0008}
0x1c34…1c46 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0012, t01=0x001e}
0x1c46…1c70 Head {h00=0x0026, h01=0x0050, text=» ABL(N) DMT300 ALL VOLUMES CHECKED«, t00=0x0012, t01=0x0030}
0x1c70…1c94 Head {h00=0x0020, h01=0x0050, text=» ST A1,TASCVO UPDATE TASCVO «, t00=0x0012, t01=0x005a}
0x1c94…1cbc Head {h00=0x0024, h01=0x0050, text=» LDK A7,7 TOO MANY FILE SECTIONS«, t00=0x0012, t01=0x007e}
0x1cbc…1cd2 Head {h00=0x0012, h01=0x0050, text=» LD A3,TASFIL «, t00=0x0012, t01=0x00a6}
0x1cd2…1cf8 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DMTASX NOT DATA FILE «, t00=0x0012, t01=0x00bc}
0x1cf8…1d10 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0012, t01=0x00e2}
0x1d10…1d28 Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x0012, t01=0x00fa}
0x1d28…1d4e Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0012, t01=0x0112}
0x1d4e…1d66 Head {h00=0x0014, h01=0x0050, text=» LC A7,TASVOL,A1«, t00=0x0012, t01=0x0138}
0x1d66…1d80 Head {h00=0x0016, h01=0x0050, text=» CC A7,TASVOL+2,A1«, t00=0x0012, t01=0x0150}
0x1d80…1da2 Head {h00=0x001e, h01=0x0050, text=» RB(E) DMT050 SAME DM TASK«, t00=0x0012, t01=0x016a}
0x1da2…1dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018c}
0x1dac…1dce Head {h00=0x001e, h01=0x0050, text=»* ACTIVATE NEXT DM TASK «, t00=0x0013, t01=0x0008}
0x1dce…1dd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x002a}
0x1dd8…1dee Head {h00=0x0012, h01=0x0050, text=» ADKL A7,'#D' «, t00=0x0013, t01=0x0034}
0x1dee…1dfa Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x004a}
0x1dfa…1e0a Head {h00=0x000c, h01=0x0050, text=» DATA -4«, t00=0x0013, t01=0x0056}
0x1e0a…1e1e Head {h00=0x0010, h01=0x0050, text=» DATA DMTASS«, t00=0x0013, t01=0x0066}
0x1e1e…1e2a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x007a}
0x1e2a…1e3e Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0013, t01=0x0086}
0x1e3e…1e4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x009a}
0x1e4c…1e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a8}
0x1e56…1e80 Head {h00=0x0026, h01=0x0050, text=»* READ NEXT VTOC SECTOR AND EXIT«, t00=0x0013, t01=0x00b2}
0x1e80…1e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00dc}
0x1e8a…1e9e Head {h00=0x0010, h01=0x0050, text=»DMT115 EQU *«, t00=0x0013, t01=0x00e6}
0x1e9e…1eb6 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0013, t01=0x00fa}
0x1eb6…1ece Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x0013, t01=0x0112}
0x1ece…1ee4 Head {h00=0x0012, h01=0x0050, text=» CF A14,DMTRBU«, t00=0x0013, t01=0x012a}
0x1ee4…1efc Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0013, t01=0x0140}
0x1efc…1f1e Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 NEXT VTOC SECTOR«, t00=0x0013, t01=0x0158}
0x1f1e…1f34 Head {h00=0x0012, h01=0x0050, text=» LD A1,TASCVO «, t00=0x0013, t01=0x017a}
0x1f34…1f4c Head {h00=0x0014, h01=0x0050, text=» LD A1,TASVOL,A1«, t00=0x0013, t01=0x0190}
0x1f4c…1f6e Head {h00=0x001e, h01=0x0050, text=» CF A14,DMTGBU GET BUFFER «, t00=0x0014, t01=0x0018}
0x1f6e…1f92 Head {h00=0x0020, h01=0x0050, text=» DATA /5700 NOP. READ ALWAYS«, t00=0x0014, t01=0x003a}
0x1f92…1faa Head {h00=0x0014, h01=0x0050, text=» ADKL A3,BUFSTA «, t00=0x0014, t01=0x005e}
0x1faa…1fc2 Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0014, t01=0x0076}
0x1fc2…1fda Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0014, t01=0x008e}
0x1fda…1ff6 Head {h00=0x0018, h01=0x0050, text=» LDK A7,/91 WAIT =2 «, t00=0x0014, t01=0x00a6}
0x1ff6…2002 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0014, t01=0x00c2}
0x2002…2016 Head {h00=0x0010, h01=0x0050, text=» DATA 1 =2 «, t00=0x0014, t01=0x00ce}
0x2016…202e Head {h00=0x0014, h01=0x0050, text=» LDKL A14,DMTA14«, t00=0x0014, t01=0x00e2}
0x202e…2044 Head {h00=0x0012, h01=0x0050, text=» CF A14,DMTIOC«, t00=0x0014, t01=0x00fa}
0x2044…205a Head {h00=0x0012, h01=0x0050, text=» LD A9,TASVRL «, t00=0x0014, t01=0x0110}
0x205a…2070 Head {h00=0x0012, h01=0x0050, text=» LD A11,TASASB«, t00=0x0014, t01=0x0126}
0x2070…20a0 Head {h00=0x002c, h01=0x0050, text=» ADKL A11,2 POINTER TO FILENAME IN ASBLK«, t00=0x0014, t01=0x013c}
0x20a0…20b2 Head {h00=0x000e, h01=0x0050, text=» LDK A4,2 «, t00=0x0014, t01=0x016c}
0x20b2…20c8 Head {h00=0x0012, h01=0x0050, text=» CW A4,TASFIL «, t00=0x0014, t01=0x017e}
0x20c8…20f0 (21, 0, 400) Head {h00=0x0024, h01=0x0050, text=» RF(NE) DMT135 NOT MASTER INDEX «, t00=0x0015, t01=0x0004}
0x20f0…2116 Head {h00=0x0022, h01=0x0050, text=» ADKL A11,14 MX FILE NAME ADDR«, t00=0x0015, t01=0x002c}
0x2116…212a Head {h00=0x0010, h01=0x0050, text=»DMT135 EQU *«, t00=0x0015, t01=0x0052}
0x212a…2146 Head {h00=0x0018, h01=0x0050, text=» ADK A3,2 SKIP CYLID«, t00=0x0015, t01=0x0066}
0x2146…215a Head {h00=0x0010, h01=0x0050, text=»DMT120 EQU *«, t00=0x0015, t01=0x0082}
0x215a…2186 Head {h00=0x0028, h01=0x0050, text=» IM TASVRN INCREMENT VTOC RECORD NO «, t00=0x0015, t01=0x0096}
0x2186…2198 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0015, t01=0x00c2}
0x2198…21be Head {h00=0x0022, h01=0x0050, text=» ADR A4,A9 ADDRESS STATUS BYTE«, t00=0x0015, t01=0x00d4}
0x21be…21d0 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0015, t01=0x00fa}
0x21d0…21e4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0015, t01=0x010c}
0x21e4…2204 Head {h00=0x001c, h01=0x0050, text=» ABL(Z) DMT250 NOT USED «, t00=0x0015, t01=0x0120}
0x2204…2230 Head {h00=0x0028, h01=0x0050, text=» SUR A4,A9 BACK TO START OF VTOC REC«, t00=0x0015, t01=0x0140}
0x2230…2244 Head {h00=0x0010, h01=0x0050, text=» LDR A7,A11 «, t00=0x0015, t01=0x016c}
0x2244…226c Head {h00=0x0024, h01=0x0050, text=» LDK A2,4 FILE NAME MAX 4 WORDS «, t00=0x0015, t01=0x0180}
0x226c…2280 Head {h00=0x0010, h01=0x0050, text=»DMT150 EQU *«, t00=0x0016, t01=0x0018}
0x2280…2294 Head {h00=0x0010, h01=0x0050, text=» LDR* A10,A4«, t00=0x0016, t01=0x002c}
0x2294…22a8 Head {h00=0x0010, h01=0x0050, text=» CWR* A10,A7«, t00=0x0016, t01=0x0040}
0x22a8…22c8 Head {h00=0x001c, h01=0x0050, text=» ABL(NE) DMT250 NO MATCH«, t00=0x0016, t01=0x0054}
0x22c8…22da Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0016, t01=0x0074}
0x22da…230c Head {h00=0x002e, h01=0x0050, text=» RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH«, t00=0x0016, t01=0x0086}
0x230c…231e Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0016, t01=0x00b8}
0x231e…2330 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0016, t01=0x00ca}
0x2330…2352 Head {h00=0x001e, h01=0x0050, text=» RB DMT150 CHECK NEXT WORD«, t00=0x0016, t01=0x00dc}
0x2352…235c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00fe}
0x235c…2388 Head {h00=0x0028, h01=0x0050, text=»* ONLY STANDARD FILES ARE HANDLED «, t00=0x0016, t01=0x0108}
0x2388…2392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0134}
0x2392…23a6 Head {h00=0x0010, h01=0x0050, text=»DMT160 EQU *«, t00=0x0016, t01=0x013e}
0x23a6…23be Head {h00=0x0014, h01=0x0050, text=» LC A2,VTFIOR,A3«, t00=0x0016, t01=0x0152}
0x23be…23e2 Head {h00=0x0020, h01=0x0050, text=» CCK A2,'SS' STANDARD FILE ?«, t00=0x0016, t01=0x016a}
0x23e2…23fc Head {h00=0x0016, h01=0x0050, text=» RF(E) DMT165 YES «, t00=0x0016, t01=0x018e}
0x23fc…2420 Head {h00=0x0020, h01=0x0050, text=» CCK A2,'LL' LIBRARY FILE ? «, t00=0x0017, t01=0x0018}
0x2420…243a Head {h00=0x0016, h01=0x0050, text=» ABL(NZ) DMT250 NO«, t00=0x0017, t01=0x003c}
0x243a…245e Head {h00=0x0020, h01=0x0050, text=» LDK A2,0 FILE EXTENT NUMBER«, t00=0x0017, t01=0x0056}
0x245e…2470 Head {h00=0x000e, h01=0x0050, text=» RF DMT167«, t00=0x0017, t01=0x007a}
0x2470…24a2 Head {h00=0x002e, h01=0x0050, text=»DMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER«, t00=0x0017, t01=0x008c}
0x24a2…24b0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0017, t01=0x00be}
0x24b0…24c4 Head {h00=0x0010, h01=0x0050, text=»DMT167 EQU *«, t00=0x0017, t01=0x00cc}
0x24c4…24ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00e0}
0x24ce…2500 Head {h00=0x002e, h01=0x0050, text=»* GET INFO FROM VTOC AND SAVE IN TASBLK «, t00=0x0017, t01=0x00ea}
0x2500…250a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x011c}
0x250a…2532 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A3 START OF VTOC RECORD «, t00=0x0017, t01=0x0126}
0x2532…256e Head {h00=0x0038, h01=0x0050, text=» LD A1,TASCXO CURRENT OFFSET INTO TASSEX AND TASXLB «, t00=0x0017, t01=0x014e}
0x256e…2580 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0017, t01=0x018a}
0x2580…2596 Head {h00=0x0012, h01=0x0050, text=» ST A1,TASCXO «, t00=0x0018, t01=0x000c}
0x2596…25ba Head {h00=0x0020, h01=0x0050, text=» RF(NN) DMT170 <= 4 EXTENTS «, t00=0x0018, t01=0x0022}
0x25ba…25cc Head {h00=0x000e, h01=0x0050, text=» LDK A7,9 «, t00=0x0018, t01=0x0046}
0x25cc…25fa Head {h00=0x002a, h01=0x0050, text=» ABL DMTASX MORE THAN 4 EXTENTS EXIST «, t00=0x0018, t01=0x0058}
0x25fa…260e Head {h00=0x0010, h01=0x0050, text=»DMT170 EQU *«, t00=0x0018, t01=0x0086}
0x260e…2634 Head {h00=0x0022, h01=0x0050, text=» ECR A2,A2 TO LEFT HALF OF A2 «, t00=0x0018, t01=0x009a}
0x2634…266c Head {h00=0x0034, h01=0x0050, text=» LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 «, t00=0x0018, t01=0x00c0}
0x266c…2684 Head {h00=0x0014, h01=0x0050, text=» ST A2,TASSEX,A1«, t00=0x0018, t01=0x00f8}
0x2684…269a Head {h00=0x0012, h01=0x0050, text=» LD A6,TASCVO «, t00=0x0018, t01=0x0110}
0x269a…26ca Head {h00=0x002c, h01=0x0050, text=» ST A6,TASSEX+2,A1 REMEMBER WHICH VOLUME«, t00=0x0018, t01=0x0126}
0x26ca…26f0 Head {h00=0x0022, h01=0x0050, text=» LD A2,VTFXLE,A4 EXTENT-LENGTH«, t00=0x0018, t01=0x0156}
0x26f0…2708 Head {h00=0x0014, h01=0x0050, text=» ST A2,TASXLB,A1«, t00=0x0018, t01=0x017c}
0x2708…272c (25, 0, 400) Head {h00=0x0020, h01=0x0050, text=» LD A2,VTFXBA,A4 EXTENT BASE«, t00=0x0019, t01=0x0004}
0x272c…2746 Head {h00=0x0016, h01=0x0050, text=» ST A2,TASXLB+2,A1«, t00=0x0019, t01=0x0028}
0x2746…275e Head {h00=0x0014, h01=0x0050, text=» LD A2,TASSEX,A1«, t00=0x0019, t01=0x0042}
0x275e…2786 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMT250 NOT FIRST EXTENT «, t00=0x0019, t01=0x005a}
0x2786…2794 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0019, t01=0x0082}
0x2794…27b2 Head {h00=0x001a, h01=0x0050, text=»* FIRST FILE EXTENT «, t00=0x0019, t01=0x0090}
0x27b2…27f2 Head {h00=0x003c, h01=0x0050, text=»* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. «, t00=0x0019, t01=0x00ae}
0x27f2…27fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ee}
0x27fc…2812 Head {h00=0x0012, h01=0x0050, text=» LD A12,TASFDB«, t00=0x0019, t01=0x00f8}
0x2812…2840 Head {h00=0x002a, h01=0x0050, text=» RF(Z) DMT190 FIRST TIME EXT #0 FOUND «, t00=0x0019, t01=0x010e}
0x2840…2852 Head {h00=0x000e, h01=0x0050, text=» LDK A7,7 «, t00=0x0019, t01=0x013c}
0x2852…287a Head {h00=0x0024, h01=0x0050, text=» ABL DMTASX EXT #0 ALREADY FOUND«, t00=0x0019, t01=0x014e}
0x287a…288e Head {h00=0x0010, h01=0x0050, text=»DMT190 EQU *«, t00=0x0019, t01=0x0176}
0x288e…28a6 Head {h00=0x0014, h01=0x0050, text=» LDKL A12,FDBSTA«, t00=0x0019, t01=0x018a}
0x28a6…28ba Head {h00=0x0010, h01=0x0050, text=»DMT200 EQU *«, t00=0x001a, t01=0x0012}
0x28ba…28ce Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A12«, t00=0x001a, t01=0x0026}
0x28ce…28e2 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/01 «, t00=0x001a, t01=0x003a}
0x28e2…28fc Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMT210 FREE«, t00=0x001a, t01=0x004e}
0x28fc…2916 Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBEXT,A12 «, t00=0x001a, t01=0x0068}
0x2916…292e Head {h00=0x0014, h01=0x0050, text=» CW A2,TASVOL,A6«, t00=0x001a, t01=0x0082}
0x292e…2954 Head {h00=0x0022, h01=0x0050, text=» RF(NE) DMT210 NOT SAME VOLUME«, t00=0x001a, t01=0x009a}
0x2954…296e Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBVTO,A12 «, t00=0x001a, t01=0x00c0}
0x296e…2984 Head {h00=0x0012, h01=0x0050, text=» CW A2,TASVRN «, t00=0x001a, t01=0x00da}
0x2984…29ac Head {h00=0x0024, h01=0x0050, text=» RF(NE) DMT210 NOT SAME VTOC REC«, t00=0x001a, t01=0x00f0}
0x29ac…29c6 Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBMIA,A12 «, t00=0x001a, t01=0x0118}
0x29c6…29ec Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMT205 INDEX ASS BEFOR«, t00=0x001a, t01=0x0132}
0x29ec…2a02 Head {h00=0x0012, h01=0x0050, text=» LD A2,TASFIL «, t00=0x001a, t01=0x0158}
0x2a02…2a34 Head {h00=0x002e, h01=0x0050, text=» ABL(E) DMT400 SAME VTOC RECORD FDB FOUND«, t00=0x001a, t01=0x016e}
0x2a34…2a48 Head {h00=0x0010, h01=0x0050, text=»DMT205 EQU *«, t00=0x001b, t01=0x0010}
0x2a48…2a68 Head {h00=0x001c, h01=0x0050, text=» LDK A7,5 FILE CODE USED«, t00=0x001b, t01=0x0024}
0x2a68…2a7c Head {h00=0x0010, h01=0x0050, text=» ABL DMTASX «, t00=0x001b, t01=0x0044}
0x2a7c…2a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0058}
0x2a86…2aae Head {h00=0x0024, h01=0x0050, text=»DMT210 LDR* A12,A12 GET NEXT FDB«, t00=0x001b, t01=0x0062}
0x2aae…2ac6 Head {h00=0x0014, h01=0x0050, text=» ANKL A12,/FFFE «, t00=0x001b, t01=0x008a}
0x2ac6…2af2 Head {h00=0x0028, h01=0x0050, text=» RB(NE) DMT200 MORE FDB:S TO SEARCH «, t00=0x001b, t01=0x00a2}
0x2af2…2afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ce}
0x2afc…2b30 Head {h00=0x0030, h01=0x0050, text=»* NO MATCHING FDB EXIST FIND A FREE FDB «, t00=0x001b, t01=0x00d8}
0x2b30…2b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x010c}
0x2b3a…2b52 Head {h00=0x0014, h01=0x0050, text=» LDKL A12,FDBSTA«, t00=0x001b, t01=0x0116}
0x2b52…2b6c Head {h00=0x0016, h01=0x0050, text=»DMT220 LDR* A5,A12«, t00=0x001b, t01=0x012e}
0x2b6c…2b80 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/01 «, t00=0x001b, t01=0x0148}
0x2b80…2b9a Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMT230 FREE«, t00=0x001b, t01=0x015c}
0x2b9a…2bbc Head {h00=0x001e, h01=0x0050, text=» LDR* A12,A12 GET NEXT FDB«, t00=0x001b, t01=0x0176}
0x2bbc…2bd4 Head {h00=0x0014, h01=0x0050, text=» ANKL A12,/FFFE «, t00=0x001c, t01=0x0008}
0x2bd4…2bfe Head {h00=0x0026, h01=0x0050, text=» RB(NE) DMT220 MORE FDB:S TO CHECK«, t00=0x001c, t01=0x0020}
0x2bfe…2c10 Head {h00=0x000e, h01=0x0050, text=» LDK A7,3 «, t00=0x001c, t01=0x004a}
0x2c10…2c34 Head {h00=0x0020, h01=0x0050, text=» ABL DMTASX NO FDB AVAILABLE«, t00=0x001c, t01=0x005c}
0x2c34…2c60 Head {h00=0x0028, h01=0x0050, text=»* INITIALIZE FDB ZERO FROM FDB+2«, t00=0x001c, t01=0x0080}
0x2c60…2c6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ac}
0x2c6a…2c7e Head {h00=0x0010, h01=0x0050, text=»DMT230 EQU *«, t00=0x001c, t01=0x00b6}
0x2c7e…2c94 Head {h00=0x0012, h01=0x0050, text=» ST A12,TASFDB«, t00=0x001c, t01=0x00ca}
0x2c94…2ca8 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A12«, t00=0x001c, t01=0x00e0}
0x2ca8…2cc0 Head {h00=0x0014, h01=0x0050, text=» ADKL A10,QFDBFL«, t00=0x001c, t01=0x00f4}
0x2cc0…2cd2 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001c, t01=0x010c}
0x2cd2…2ce6 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x001c, t01=0x011e}
0x2ce6…2cfe Head {h00=0x0014, h01=0x0050, text=»DMT233 ADK A1,2 «, t00=0x001c, t01=0x0132}
0x2cfe…2d12 Head {h00=0x0010, h01=0x0050, text=» CWR A1,A10 «, t00=0x001c, t01=0x014a}
0x2d12…2d32 Head {h00=0x001c, h01=0x0050, text=» RF(E) DMT237 END OF FDB«, t00=0x001c, t01=0x015e}
0x2d32…2d44 Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x001c, t01=0x017e}
0x2d44…2d56 Head {h00=0x000e, h01=0x0050, text=» RB DMT233«, t00=0x001c, t01=0x0190}
0x2d56…2d6a Head {h00=0x0010, h01=0x0050, text=»DMT237 EQU *«, t00=0x001d, t01=0x0012}
0x2d6a…2d80 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x001d, t01=0x0026}
0x2d80…2d98 Head {h00=0x0014, h01=0x0050, text=»* DEV NOT BUSY«, t00=0x001d, t01=0x003c}
0x2d98…2db0 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST,A12«, t00=0x001d, t01=0x0054}
0x2db0…2dc6 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TIODM«, t00=0x001d, t01=0x006c}
0x2dc6…2de0 Head {h00=0x0016, h01=0x0050, text=» ST A2,DWTADR,A12 «, t00=0x001d, t01=0x0082}
0x2de0…2df8 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SECTLE «, t00=0x001d, t01=0x009c}
0x2df8…2e0c Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x001d, t01=0x00b4}
0x2e0c…2e24 Head {h00=0x0014, h01=0x0050, text=» ADKL A1,FDBECB «, t00=0x001d, t01=0x00c8}
0x2e24…2e3c Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A1 «, t00=0x001d, t01=0x00e0}
0x2e3c…2e50 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/01 «, t00=0x001d, t01=0x00f8}
0x2e50…2e70 Head {h00=0x001c, h01=0x0050, text=» ORRS A2,A12 SET USE BIT«, t00=0x001d, t01=0x010c}
0x2e70…2e88 Head {h00=0x0014, h01=0x0050, text=» LC A2,VTLRN,A4 «, t00=0x001d, t01=0x012c}
0x2e88…2ea2 Head {h00=0x0016, h01=0x0050, text=» SC A2,FDBLRN,A12 «, t00=0x001d, t01=0x0144}
0x2ea2…2ebc Head {h00=0x0016, h01=0x0050, text=» LD A2,VTLRN+1,A4 «, t00=0x001d, t01=0x015e}
0x2ebc…2ed8 Head {h00=0x0018, h01=0x0050, text=» ST A2,FDBLRN+1,A12 «, t00=0x001d, t01=0x0178}
0x2ed8…2ef0 (30, 0, 400) Head {h00=0x0014, h01=0x0050, text=» LD A2,VTRLE,A4 «, t00=0x001e, t01=0x0004}
0x2ef0…2f0a Head {h00=0x0016, h01=0x0050, text=» ST A2,FDBRLE,A12 «, t00=0x001e, t01=0x001c}
0x2f0a…2f22 Head {h00=0x0014, h01=0x0050, text=» LC A2,VTBLF,A4 «, t00=0x001e, t01=0x0036}
0x2f22…2f3c Head {h00=0x0016, h01=0x0050, text=» SC A2,FDBBLF,A12 «, t00=0x001e, t01=0x004e}
0x2f3c…2f54 Head {h00=0x0014, h01=0x0050, text=» LC A2,VTNIF,A4 «, t00=0x001e, t01=0x0068}
0x2f54…2f6e Head {h00=0x0016, h01=0x0050, text=» SC A2,FDBNIF,A12 «, t00=0x001e, t01=0x0080}
0x2f6e…2f84 Head {h00=0x0012, h01=0x0050, text=» LD A2,VTKA,A4«, t00=0x001e, t01=0x009a}
0x2f84…2f9c Head {h00=0x0014, h01=0x0050, text=» ST A2,FDBKA,A12«, t00=0x001e, t01=0x00b0}
0x2f9c…2fb2 Head {h00=0x0012, h01=0x0050, text=» LD A2,TASVRN «, t00=0x001e, t01=0x00c8}
0x2fb2…2fcc Head {h00=0x0016, h01=0x0050, text=» ST A2,FDBVTO,A12 «, t00=0x001e, t01=0x00de}
0x2fcc…2fd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f8}
0x2fd6…2fec Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x001e, t01=0x0102}
0x2fec…3010 Head {h00=0x0020, h01=0x0050, text=» LDR A2,A12 GET FDB ADDRESS «, t00=0x001e, t01=0x0118}
0x3010…3040 Head {h00=0x002c, h01=0x0050, text=» ADKL A2,FDBMEC ADD MMU ECB DISPLACEMENT«, t00=0x001e, t01=0x013c}
0x3040…3078 Head {h00=0x0034, h01=0x0050, text=» ST A2,DWTMEC,A12 SET ADDRESS TO MMU ECB IN FDB «, t00=0x001e, t01=0x016c}
0x3078…3084 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0014}
0x3084…308e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0020}
0x308e…309c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x002a}
0x309c…30a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0038}
0x30a6…30c8 Head {h00=0x001e, h01=0x0050, text=»* CHECK NEXT VTOC RECORD«, t00=0x001f, t01=0x0042}
0x30c8…30d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0064}
0x30d2…30e6 Head {h00=0x0010, h01=0x0050, text=»DMT250 EQU *«, t00=0x001f, t01=0x006e}
0x30e6…3102 Head {h00=0x0018, h01=0x0050, text=»* A3 = ADR 1ST REC«, t00=0x001f, t01=0x0082}
0x3102…3120 Head {h00=0x001a, h01=0x0050, text=»* A9 = VTOC REC LGTH«, t00=0x001f, t01=0x009e}
0x3120…3132 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x001f, t01=0x00bc}
0x3132…3154 Head {h00=0x001e, h01=0x0050, text=» ADK A3,1 SKIP STATUS BYTE«, t00=0x001f, t01=0x00ce}
0x3154…3166 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x001f, t01=0x00f0}
0x3166…317e Head {h00=0x0014, h01=0x0050, text=» SU A2,ECBBA,A8 «, t00=0x001f, t01=0x0102}
0x317e…3194 Head {h00=0x0012, h01=0x0050, text=» CWK A2,QVTBLE«, t00=0x001f, t01=0x011a}
0x3194…31c2 Head {h00=0x002a, h01=0x0050, text=» ABL(L) DMT120 MORE RECORDS IN BUFFER «, t00=0x001f, t01=0x0130}
0x31c2…31ea Head {h00=0x0024, h01=0x0050, text=» ABL DMT110 GET NEXT VTOC SECTOR«, t00=0x001f, t01=0x015e}
0x31ea…31f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0186}
0x31f4…3234 Head {h00=0x003c, h01=0x0050, text=»* ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT «, t00=0x001f, t01=0x0190}
0x3234…323e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0040}
0x323e…3252 Head {h00=0x0010, h01=0x0050, text=»DMT300 EQU *«, t00=0x0020, t01=0x004a}
0x3252…3264 Head {h00=0x000e, h01=0x0050, text=» LDK A3,16«, t00=0x0020, t01=0x005e}
0x3264…327a Head {h00=0x0012, h01=0x0050, text=» SU A3,TASCXO «, t00=0x0020, t01=0x0070}
0x327a…3290 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DMT310«, t00=0x0020, t01=0x0086}
0x3290…32a2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,6 «, t00=0x0020, t01=0x009c}
0x32a2…32c6 Head {h00=0x0020, h01=0x0050, text=» RF DMTASX FILE NAME UNKNOWN«, t00=0x0020, t01=0x00ae}
0x32c6…32da Head {h00=0x0010, h01=0x0050, text=»DMT310 EQU *«, t00=0x0020, t01=0x00d2}
0x32da…32f0 Head {h00=0x0012, h01=0x0050, text=» LD A12,TASFDB«, t00=0x0020, t01=0x00e6}
0x32f0…3306 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DMT320«, t00=0x0020, t01=0x00fc}
0x3306…3318 Head {h00=0x000e, h01=0x0050, text=» LDK A7,7 «, t00=0x0020, t01=0x0112}
0x3318…3342 Head {h00=0x0026, h01=0x0050, text=» RF DMTASX FIRST EXTENT IS MISSING«, t00=0x0020, t01=0x0124}
0x3342…3350 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0020, t01=0x014e}
0x3350…335a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x015c}
0x335a…3398 Head {h00=0x003a, h01=0x0050, text=»* PUT EXTENT INFORMATION INTO FDB IN ASCENDING ORDER«, t00=0x0020, t01=0x0166}
0x3398…33d4 Head {h00=0x0038, h01=0x0050, text=»* ACCORDING TO INCREASING SECTOR NO AND EXTENT NO «, t00=0x0021, t01=0x0014}
0x33d4…33de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0050}
0x33de…33f2 Head {h00=0x0010, h01=0x0050, text=»DMT320 EQU *«, t00=0x0021, t01=0x005a}
0x33f2…33fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x006e}
0x33fc…3440 Head {h00=0x0040, h01=0x0050, text=»* CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE «, t00=0x0021, t01=0x0078}
0x3440…344a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00bc}
0x344a…3460 Head {h00=0x0012, h01=0x0050, text=» LD A6,TASFIL «, t00=0x0021, t01=0x00c6}
0x3460…3484 Head {h00=0x0020, h01=0x0050, text=» RF(Z) DMT330 DATA FILE ASS «, t00=0x0021, t01=0x00dc}
0x3484…34ac Head {h00=0x0024, h01=0x0050, text=» LD A6,FDBRLE,A12 RECORD LENGTH «, t00=0x0021, t01=0x0100}
0x34ac…34be Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0021, t01=0x0128}
0x34be…34dc Head {h00=0x001a, h01=0x0050, text=» SRL A6,1 NR OF WORDS «, t00=0x0021, t01=0x013a}
0x34dc…3506 Head {h00=0x0026, h01=0x0050, text=» CWK A6,RECBFZ RECORD BUFFER SIZE «, t00=0x0021, t01=0x0158}
0x3506…3520 Head {h00=0x0016, h01=0x0050, text=» RF(NG) DMT330 OK «, t00=0x0021, t01=0x0182}
0x3520…3532 Head {h00=0x000e, h01=0x0050, text=» LDK A7,12«, t00=0x0022, t01=0x000c}
0x3532…3560 Head {h00=0x002a, h01=0x0050, text=» RF DMTASX RECORD BUFFER IS TOO SMALL «, t00=0x0022, t01=0x001e}
0x3560…3574 Head {h00=0x0010, h01=0x0050, text=»DMT330 EQU *«, t00=0x0022, t01=0x004c}
0x3574…3588 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A12 «, t00=0x0022, t01=0x0060}
0x3588…359c Head {h00=0x0010, h01=0x0050, text=»* FDB ADDR«, t00=0x0022, t01=0x0074}
0x359c…35b4 Head {h00=0x0014, h01=0x0050, text=» ADKL A6,FDBEXT «, t00=0x0022, t01=0x0088}
0x35b4…35c6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0022, t01=0x00a0}
0x35c6…35d8 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A3«, t00=0x0022, t01=0x00b2}
0x35d8…35fc Head {h00=0x0020, h01=0x0050, text=» SRL A5,2 NUMBER OF EXTENTS «, t00=0x0022, t01=0x00c4}
0x35fc…3610 Head {h00=0x0010, h01=0x0050, text=»DMT340 EQU *«, t00=0x0022, t01=0x00e8}
0x3610…3622 Head {h00=0x000e, h01=0x0050, text=» LDK A4,16«, t00=0x0022, t01=0x00fc}
0x3622…3636 Head {h00=0x0010, h01=0x0050, text=»DMT350 EQU *«, t00=0x0022, t01=0x010e}
0x3636…3648 Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0022, t01=0x0122}
0x3648…3660 Head {h00=0x0014, h01=0x0050, text=» CW A2,TASSEX,A4«, t00=0x0022, t01=0x0134}
0x3660…367c Head {h00=0x0018, h01=0x0050, text=» RF(E) DMT360 MATCH «, t00=0x0022, t01=0x014c}
0x367c…3692 Head {h00=0x0012, h01=0x0050, text=» CW A4,TASCXO «, t00=0x0022, t01=0x0168}
0x3692…36be Head {h00=0x0028, h01=0x0050, text=» RB(NE) DMT350 MORE EXTENTS TO CHECK«, t00=0x0022, t01=0x017e}
0x36be…36c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x001a}
0x36c8…36f8 Head {h00=0x002c, h01=0x0050, text=»* THE EXTENT SEARCHED FOR IS NOT FOUND«, t00=0x0023, t01=0x0024}
0x36f8…372e Head {h00=0x0032, h01=0x0050, text=»* CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0)«, t00=0x0023, t01=0x0054}
0x372e…3738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x008a}
0x3738…374a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0023, t01=0x0094}
0x374a…375e Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0023, t01=0x00a6}
0x375e…3786 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMT370 TRY NEXT SECTION «, t00=0x0023, t01=0x00ba}
0x3786…3790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00e2}
0x3790…37a4 Head {h00=0x0010, h01=0x0050, text=»DMT355 EQU *«, t00=0x0023, t01=0x00ec}
0x37a4…37b6 Head {h00=0x000e, h01=0x0050, text=» LDK A7,7 «, t00=0x0023, t01=0x0100}
0x37b6…37de Head {h00=0x0024, h01=0x0050, text=» RF DMTASX FILE SECTION MISSING «, t00=0x0023, t01=0x0112}
0x37de…37f2 Head {h00=0x0010, h01=0x0050, text=»DMT360 EQU *«, t00=0x0023, t01=0x013a}
0x37f2…37fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x014e}
0x37fc…382a Head {h00=0x002a, h01=0x0050, text=»* MOVE INFO ABOUT THIS EXTENT TO FDB«, t00=0x0023, t01=0x0158}
0x382a…3834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0186}
0x3834…384e Head {h00=0x0016, h01=0x0050, text=» LD A1,TASSEX+2,A4«, t00=0x0023, t01=0x0190}
0x384e…3866 Head {h00=0x0014, h01=0x0050, text=» LD A1,TASVOL,A1«, t00=0x0024, t01=0x001a}
0x3866…387e Head {h00=0x0014, h01=0x0050, text=» ST A1,EXTDMI,A6«, t00=0x0024, t01=0x0032}
0x387e…3896 Head {h00=0x0014, h01=0x0050, text=» LD A1,TASXLB,A4«, t00=0x0024, t01=0x004a}
0x3896…38ae Head {h00=0x0014, h01=0x0050, text=» ST A1,EXTLEN,A6«, t00=0x0024, t01=0x0062}
0x38ae…38c8 Head {h00=0x0016, h01=0x0050, text=» LD A1,TASXLB+2,A4«, t00=0x0024, t01=0x007a}
0x38c8…38e0 Head {h00=0x0014, h01=0x0050, text=» ST A1,EXTBAS,A6«, t00=0x0024, t01=0x0094}
0x38e0…38f2 Head {h00=0x000e, h01=0x0050, text=» ADK A6,6 «, t00=0x0024, t01=0x00ac}
0x38f2…3904 Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0024, t01=0x00be}
0x3904…392e Head {h00=0x0026, h01=0x0050, text=» RF(NP) DMT500 ALL EXTENTS HANDLED«, t00=0x0024, t01=0x00d0}
0x392e…3938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00fa}
0x3938…3976 Head {h00=0x003a, h01=0x0050, text=»* FIND NEXT FILE-SECTION-NO, FILE-EXT-NO COMBINATION«, t00=0x0024, t01=0x0104}
0x3976…3990 Head {h00=0x0016, h01=0x0050, text=»* TO SEARCH FOR «, t00=0x0024, t01=0x0142}
0x3990…399a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x015c}
0x399a…39ac Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0024, t01=0x0166}
0x39ac…39c0 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0024, t01=0x0178}
0x39c0…39d2 Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0024, t01=0x018c}
0x39d2…39f8 Head {h00=0x0022, h01=0x0050, text=» RF(NE) DMT380 NOT EXT-NO = 3 «, t00=0x0025, t01=0x000e}
0x39f8…3a0c Head {h00=0x0010, h01=0x0050, text=»DMT370 EQU *«, t00=0x0025, t01=0x0034}
0x3a0c…3a1e Head {h00=0x000e, h01=0x0050, text=» ECR A1,A2«, t00=0x0025, t01=0x0048}
0x3a1e…3a32 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0025, t01=0x005a}
0x3a32…3a44 Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0025, t01=0x006e}
0x3a44…3a68 Head {h00=0x0020, h01=0x0050, text=» RB(E) DMT355 SECTION-NO = 3«, t00=0x0025, t01=0x0080}
0x3a68…3a8e Head {h00=0x0022, h01=0x0050, text=» ADK A1,4 INCREMENT SECTION-NO«, t00=0x0025, t01=0x00a4}
0x3a8e…3aac Head {h00=0x001a, h01=0x0050, text=» ECR A2,A1 EXT-NO = 0 «, t00=0x0025, t01=0x00ca}
0x3aac…3abe Head {h00=0x000e, h01=0x0050, text=» RB DMT340«, t00=0x0025, t01=0x00e8}
0x3abe…3ae6 Head {h00=0x0024, h01=0x0050, text=»DMT380 ADK A2,1 INCREMENT EXT-NO«, t00=0x0025, t01=0x00fa}
0x3ae6…3af8 Head {h00=0x000e, h01=0x0050, text=» RB DMT340«, t00=0x0025, t01=0x0122}
0x3af8…3b06 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0025, t01=0x0134}
0x3b06…3b24 Head {h00=0x001a, h01=0x0050, text=»DMTASX EQU * =1 START«, t00=0x0025, t01=0x0142}
0x3b24…3b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0160}
0x3b2e…3b74 Head {h00=0x0042, h01=0x0050, text=»* AT ERROR EXIT UNLOCK FLEXDISCS WHICH WERE UNLOCKED BEFORE «, t00=0x0025, t01=0x016a}
0x3b74…3b7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0020}
0x3b7e…3b90 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A7«, t00=0x0026, t01=0x002a}
0x3b90…3ba8 Head {h00=0x0014, h01=0x0050, text=» LDR A6,A8 SAVE «, t00=0x0026, t01=0x003c}
0x3ba8…3bbe Head {h00=0x0012, h01=0x0050, text=» LDK A1,3 LOOP«, t00=0x0026, t01=0x0054}
0x3bbe…3bd2 Head {h00=0x0010, h01=0x0050, text=»DMTASY EQU *«, t00=0x0026, t01=0x006a}
0x3bd2…3bf6 Head {h00=0x0020, h01=0x0050, text=» LC A2,TASLFD,A1 FILE CODES «, t00=0x0026, t01=0x007e}
0x3bf6…3c0a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0026, t01=0x00a2}
0x3c0a…3c28 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DMTASZ NO CODE «, t00=0x0026, t01=0x00b6}
0x3c28…3c40 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,TASECB «, t00=0x0026, t01=0x00d4}
0x3c40…3c58 Head {h00=0x0014, h01=0x0050, text=» SC A2,TASECB+1 «, t00=0x0026, t01=0x00ec}
0x3c58…3c78 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B8 UNLOAD ,WAIT«, t00=0x0026, t01=0x0104}
0x3c78…3c86 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0026, t01=0x0124}
0x3c86…3c96 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0026, t01=0x0132}
0x3c96…3caa Head {h00=0x0010, h01=0x0050, text=»DMTASZ EQU *«, t00=0x0026, t01=0x0142}
0x3caa…3cbc Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0026, t01=0x0156}
0x3cbc…3cd8 Head {h00=0x0018, h01=0x0050, text=» RB(NN) DMTASY NEXT «, t00=0x0026, t01=0x0168}
0x3cd8…3cea Head {h00=0x000e, h01=0x0050, text=» LDR A7,A5«, t00=0x0026, t01=0x0184}
0x3cea…3cfc Head {h00=0x000e, h01=0x0050, text=» LDR A8,A6«, t00=0x0027, t01=0x0008}
0x3cfc…3d16 Head {h00=0x0016, h01=0x0050, text=» RF DMT401 =1 END«, t00=0x0027, t01=0x001a}
0x3d16…3d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0034}
0x3d20…3d4c Head {h00=0x0028, h01=0x0050, text=»* PUT FDB ADDRESS INTO TTAB/CD:TAB«, t00=0x0027, t01=0x003e}
0x3d4c…3d56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x006a}
0x3d56…3d6a Head {h00=0x0010, h01=0x0050, text=»DMT400 EQU *«, t00=0x0027, t01=0x0074}
0x3d6a…3d7c Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0027, t01=0x0088}
0x3d7c…3d94 Head {h00=0x0014, h01=0x0050, text=»DMT401 EQU * =1«, t00=0x0027, t01=0x009a}
0x3d94…3dc4 Head {h00=0x002c, h01=0x0050, text=» LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR «, t00=0x0027, t01=0x00b2}
0x3dc4…3dd6 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0027, t01=0x00e2}
0x3dd6…3dfa Head {h00=0x0020, h01=0x0050, text=» RF(Z) DMT420 CORRECT RETURN«, t00=0x0027, t01=0x00f4}
0x3dfa…3e1a Head {h00=0x001c, h01=0x0050, text=» CM -1,A2 ZERO FILE CODE«, t00=0x0027, t01=0x0118}
0x3e1a…3e24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0138}
0x3e24…3e4c Head {h00=0x0024, h01=0x0050, text=»* REMOVE FDB WITH MASTER INDEX«, t00=0x0027, t01=0x0142}
0x3e4c…3e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x016a}
0x3e56…3e7e Head {h00=0x0024, h01=0x0050, text=» LD A4,TASMXA MASTER INDEX ADDR «, t00=0x0027, t01=0x0174}
0x3e7e…3ea4 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMT410 NO MASTER INDEX «, t00=0x0028, t01=0x000c}
0x3ea4…3eb6 Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0028, t01=0x0032}
0x3eb6…3ee2 Head {h00=0x0028, h01=0x0050, text=» LD A2,MXIND SIEZE MASTERINDEXINDEX «, t00=0x0028, t01=0x0044}
0x3ee2…3ef4 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0028, t01=0x0070}
0x3ef4…3f08 Head {h00=0x0010, h01=0x0050, text=»DMT405 EQU *«, t00=0x0028, t01=0x0082}
0x3f08…3f26 Head {h00=0x001a, h01=0x0050, text=» SUK A2,4 NEXT OFFSET «, t00=0x0028, t01=0x0096}
0x3f26…3f40 Head {h00=0x0016, h01=0x0050, text=» RF(NN) DMT407 OK «, t00=0x0028, t01=0x00b4}
0x3f40…3f6e Head {h00=0x002a, h01=0x0050, text=» RF DMT408 MASTER INDEX MUST BE FOUND «, t00=0x0028, t01=0x00ce}
0x3f6e…3f8e Head {h00=0x001c, h01=0x0050, text=»DMT407 CW A4,MXIND+2,A2 «, t00=0x0028, t01=0x00fc}
0x3f8e…3fb0 Head {h00=0x001e, h01=0x0050, text=» RB(NE) DMT405 NEXT ENTRY «, t00=0x0028, t01=0x011c}
0x3fb0…3fc6 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/7FFF«, t00=0x0028, t01=0x013e}
0x3fc6…3ff0 Head {h00=0x0026, h01=0x0050, text=» ANS A4,MXIND+4,A2 SET ENTRY FREE «, t00=0x0028, t01=0x0154}
0x3ff0…4008 Head {h00=0x0014, h01=0x0050, text=»DMT408 ENB ENB«, t00=0x0028, t01=0x017e}
0x4008…401c Head {h00=0x0010, h01=0x0050, text=»DMT410 EQU *«, t00=0x0029, t01=0x0008}
0x401c…4032 Head {h00=0x0012, h01=0x0050, text=» LD A3,TASFDB «, t00=0x0029, t01=0x001c}
0x4032…4054 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT430 NO FDB USED «, t00=0x0029, t01=0x0032}
0x4054…406a Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FFFE«, t00=0x0029, t01=0x0054}
0x406a…4090 Head {h00=0x0022, h01=0x0050, text=» ANRS A2,A3 CLEAR FDB USE BIT «, t00=0x0029, t01=0x006a}
0x4090…40a2 Head {h00=0x000e, h01=0x0050, text=» RF DMT430«, t00=0x0029, t01=0x0090}
0x40a2…40b6 Head {h00=0x0010, h01=0x0050, text=»DMT420 EQU *«, t00=0x0029, t01=0x00a2}
0x40b6…40d4 Head {h00=0x001a, h01=0x0050, text=» ST A12,1,A2 FDB ADDR «, t00=0x0029, t01=0x00b6}
0x40d4…40e8 Head {h00=0x0010, h01=0x0050, text=»DMT430 EQU *«, t00=0x0029, t01=0x00d4}
0x40e8…40fa Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0029, t01=0x00e8}
0x40fa…411a Head {h00=0x001c, h01=0x0050, text=» RF(Z) DMT440 NO BUFFER «, t00=0x0029, t01=0x00fa}
0x411a…4132 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0029, t01=0x011a}
0x4132…414a Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x0029, t01=0x0132}
0x414a…4170 Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0029, t01=0x014a}
0x4170…4184 Head {h00=0x0010, h01=0x0050, text=»DMT440 EQU *«, t00=0x0029, t01=0x0170}
0x4184…41b4 Head {h00=0x002c, h01=0x0050, text=» CF A14,CLRBUF RELEASE ALL FREE BUFFERS «, t00=0x0029, t01=0x0184}
0x41b4…41de Head {h00=0x0026, h01=0x0050, text=» CF A14,TASCAQ CHECK ASSIGN QUEUE «, t00=0x002a, t01=0x0024}
0x41de…4206 Head {h00=0x0024, h01=0x0050, text=» CF A15,QTJOB QUEUE CALLING TASK«, t00=0x002a, t01=0x004e}
0x4206…4212 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002a, t01=0x0076}
0x4212…421e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002a, t01=0x0082}
0x421e…422e Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x002a, t01=0x008e}
0x422e…423c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x009e}
0x423c…4250 Head {h00=0x0010, h01=0x0050, text=»DMT500 EQU *«, t00=0x002a, t01=0x00ac}
0x4250…4266 Head {h00=0x0012, h01=0x0050, text=» LD A6,TASFIL «, t00=0x002a, t01=0x00c0}
0x4266…4286 Head {h00=0x001c, h01=0x0050, text=» ABL(Z) DMT700 DATA FILE«, t00=0x002a, t01=0x00d6}
0x4286…429c Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x002a, t01=0x00f6}
0x429c…42b8 Head {h00=0x0018, h01=0x0050, text=» LDKL A7,-1 REQ ERR «, t00=0x002a, t01=0x010c}
0x42b8…42ca Head {h00=0x000e, h01=0x0050, text=» RB DMTASX«, t00=0x002a, t01=0x0128}
0x42ca…42d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x013a}
0x42d6…42ec Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002a, t01=0x0146}
0x42ec…42fe Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x002a, t01=0x015c}
0x42fe…4320 Head {h00=0x001e, h01=0x0050, text=» ABL(Z) DMT600 INDEX FILE «, t00=0x002a, t01=0x016e}
0x4320…432e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0190}
0x432e…4338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x000e}
0x4338…435e Head {h00=0x0022, h01=0x0050, text=»* THIS IS MASTER INDEX LOOP.«, t00=0x002b, t01=0x0018}
0x435e…439a Head {h00=0x0038, h01=0x0050, text=»* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ«, t00=0x002b, t01=0x003e}
0x439a…43da Head {h00=0x003c, h01=0x0050, text=»* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE «, t00=0x002b, t01=0x007a}
0x43da…43e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ba}
0x43e4…4404 Head {h00=0x001c, h01=0x0050, text=» LD A7,TASTID DMTASK ID «, t00=0x002b, t01=0x00c4}
0x4404…4410 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002b, t01=0x00e4}
0x4410…4436 Head {h00=0x0022, h01=0x0050, text=» CF A15,FNDTID TTAB ADDR TO A2«, t00=0x002b, t01=0x00f0}
0x4436…4442 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002b, t01=0x0116}
0x4442…4458 Head {h00=0x0012, h01=0x0050, text=» ST A2,TASSPW «, t00=0x002b, t01=0x0122}
0x4458…447e Head {h00=0x0022, h01=0x0050, text=» LDKL A3,/0100 INDEX DATA FILE«, t00=0x002b, t01=0x0138}
0x447e…4494 Head {h00=0x0012, h01=0x0050, text=» LD A1,TASASB «, t00=0x002b, t01=0x015e}
0x4494…44b2 Head {h00=0x001a, h01=0x0050, text=» LC A3,1,A1 FILE CODE «, t00=0x002b, t01=0x0174}
0x44b2…44ca (44, 0, 400) Head {h00=0x0014, h01=0x0050, text=» SC A3,TASECB+1 «, t00=0x002c, t01=0x0004}
0x44ca…44f0 Head {h00=0x0022, h01=0x0050, text=» ST A3,TTB:TD+2,A2 TTAB ENTRY «, t00=0x002c, t01=0x001c}
0x44f0…4514 Head {h00=0x0020, h01=0x0050, text=» ST A12,TTB:TD+4,A2 FDB ADR «, t00=0x002c, t01=0x0042}
0x4514…452c Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x002c, t01=0x0066}
0x452c…4544 Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x002c, t01=0x007e}
0x4544…456a Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x002c, t01=0x0096}
0x456a…4574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00bc}
0x4574…45a8 Head {h00=0x0030, h01=0x0050, text=»* CALC NO OF WORDS NEEDED IN MASTRE INDEX «, t00=0x002c, t01=0x00c6}
0x45a8…45b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00fa}
0x45b2…45d4 Head {h00=0x001e, h01=0x0050, text=» LD A6,FDBRLE,A12 REC LGTH«, t00=0x002c, t01=0x0104}
0x45d4…45fa Head {h00=0x0022, h01=0x0050, text=» LD A7,FDBLRN+1,A12 NO OF RECS«, t00=0x002c, t01=0x0126}
0x45fa…462a Head {h00=0x002c, h01=0x0050, text=» CF A14,MPYMOD A1,A2=NO OF BYTES NEEDED «, t00=0x002c, t01=0x014c}
0x462a…463c Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x002c, t01=0x017c}
0x463c…4660 Head {h00=0x0020, h01=0x0050, text=» ORR A2,A1 GET MOST SIGN BIT«, t00=0x002c, t01=0x018e}
0x4660…4672 Head {h00=0x000e, h01=0x0050, text=» ADK A2,5 «, t00=0x002d, t01=0x0022}
0x4672…4696 Head {h00=0x0020, h01=0x0050, text=» SRL A2,1 NO OF WORDS NEEDED«, t00=0x002d, t01=0x0034}
0x4696…46b6 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DMT570 WRONG SIZE«, t00=0x002d, t01=0x0058}
0x46b6…46c2 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002d, t01=0x0078}
0x46c2…46e4 Head {h00=0x001e, h01=0x0050, text=» LD A4,MXIND LENGTH MXIND «, t00=0x002d, t01=0x0084}
0x46e4…4702 Head {h00=0x001a, h01=0x0050, text=» SUK A4,4 MAX A5 VALUE«, t00=0x002d, t01=0x00a6}
0x4702…471c Head {h00=0x0016, h01=0x0050, text=» LDKL A5,-2 OFFSET«, t00=0x002d, t01=0x00c4}
0x471c…4730 Head {h00=0x0010, h01=0x0050, text=»DMT540 EQU *«, t00=0x002d, t01=0x00de}
0x4730…474c Head {h00=0x0018, h01=0x0050, text=» ADK A5,4 GET ENTRY «, t00=0x002d, t01=0x00f2}
0x474c…475e Head {h00=0x000e, h01=0x0050, text=» CWR A5,A4«, t00=0x002d, t01=0x010e}
0x475e…4782 Head {h00=0x0020, h01=0x0050, text=» RF(G) DMT570 NO ENTRY FOUND«, t00=0x002d, t01=0x0120}
0x4782…479a Head {h00=0x0014, h01=0x0050, text=» LD A3,MXIND,A5 «, t00=0x002d, t01=0x0144}
0x479a…47ba Head {h00=0x001c, h01=0x0050, text=» RB(Z) DMT540 ZERO ENTRY«, t00=0x002d, t01=0x015c}
0x47ba…47d4 Head {h00=0x0016, h01=0x0050, text=» LD A6,MXIND+2,A5 «, t00=0x002d, t01=0x017c}
0x47d4…47f4 Head {h00=0x001c, h01=0x0050, text=» RB(N) DMT540 ENTRY USED«, t00=0x002e, t01=0x0008}
0x47f4…4818 Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 NO OF SPARE WORDS«, t00=0x002e, t01=0x0028}
0x4818…4842 Head {h00=0x0026, h01=0x0050, text=» RB(N) DMT540 LARGER ENTRY NEEDED «, t00=0x002e, t01=0x004c}
0x4842…484c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0076}
0x484c…486e Head {h00=0x001e, h01=0x0050, text=»* SUFFICIENT SPACE FOUND«, t00=0x002e, t01=0x0080}
0x486e…4878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a2}
0x4878…4898 Head {h00=0x001c, h01=0x0050, text=» LDKL A1,/8000 USED BIT «, t00=0x002e, t01=0x00ac}
0x4898…48c2 Head {h00=0x0026, h01=0x0050, text=» ORS A1,MXIND+2,A5 MARK ENTRY USED«, t00=0x002e, t01=0x00cc}
0x48c2…48ea Head {h00=0x0024, h01=0x0050, text=» ST A3,TASMXA MASTER INDEX ADDR «, t00=0x002e, t01=0x00f6}
0x48ea…4904 Head {h00=0x0016, h01=0x0050, text=» ST A3,FDBMIA,A12 «, t00=0x002e, t01=0x011e}
0x4904…4920 Head {h00=0x0018, h01=0x0050, text=» LD A7,FDBLRN+1,A12 «, t00=0x002e, t01=0x0138}
0x4920…4940 Head {h00=0x001c, h01=0x0050, text=» STR A7,A3 NO OF ENTRIES«, t00=0x002e, t01=0x0154}
0x4940…495a Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBRLE,A12 «, t00=0x002e, t01=0x0174}
0x495a…497a Head {h00=0x001c, h01=0x0050, text=» ST A1,2,A3 ENTRY LENGTH«, t00=0x002e, t01=0x018e}
0x497a…499c Head {h00=0x001e, h01=0x0050, text=» ADK A3,4 SKIP MX HEADRER «, t00=0x002f, t01=0x001e}
0x499c…49c0 Head {h00=0x0020, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDR «, t00=0x002f, t01=0x0040}
0x49c0…49e0 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LGTH«, t00=0x002f, t01=0x0064}
0x49e0…4a12 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION«, t00=0x002f, t01=0x0084}
0x4a12…4a30 Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 MXIND ENTRY«, t00=0x002f, t01=0x00b6}
0x4a30…4a52 Head {h00=0x001e, h01=0x0050, text=» RF(NL) DMT590 LAST ENTRY «, t00=0x002f, t01=0x00d4}
0x4a52…4a6c Head {h00=0x0016, h01=0x0050, text=» LD A3,MXIND+6,A1 «, t00=0x002f, t01=0x00f6}
0x4a6c…4a92 Head {h00=0x0022, h01=0x0050, text=» RF(N) DMT590 NEXT ENTRY USED «, t00=0x002f, t01=0x0110}
0x4a92…4a9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0136}
0x4a9c…4ac6 Head {h00=0x0026, h01=0x0050, text=»* MOVE SPARE WORDS TO NEXT ENTRY«, t00=0x002f, t01=0x0140}
0x4ac6…4ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x016a}
0x4ad0…4aea Head {h00=0x0016, h01=0x0050, text=» LD A2,MXIND+2,A1 «, t00=0x002f, t01=0x0174}
0x4aea…4b10 Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/7FFF REMOVE USE BIT «, t00=0x002f, t01=0x018e}
0x4b10…4b22 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A6«, t00=0x0030, t01=0x0024}
0x4b22…4b40 Head {h00=0x001a, h01=0x0050, text=» ORKL A2,/8000 USE BIT«, t00=0x0030, t01=0x0036}
0x4b40…4b5a Head {h00=0x0016, h01=0x0050, text=» ST A2,MXIND+2,A1 «, t00=0x0030, t01=0x0054}
0x4b5a…4b8c Head {h00=0x002e, h01=0x0050, text=» ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER «, t00=0x0030, t01=0x006e}
0x4b8c…4bb4 Head {h00=0x0024, h01=0x0050, text=» LD A7,MXIND,A1 PREVIOUS POINTER«, t00=0x0030, t01=0x00a0}
0x4bb4…4bd2 Head {h00=0x001a, h01=0x0050, text=» SLL A2,1 NO OF BYTES «, t00=0x0030, t01=0x00c8}
0x4bd2…4be4 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A2«, t00=0x0030, t01=0x00e6}
0x4be4…4bfe Head {h00=0x0016, h01=0x0050, text=» ST A7,MXIND+4,A1 «, t00=0x0030, t01=0x00f8}
0x4bfe…4c0c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0030, t01=0x0112}
0x4c0c…4c20 Head {h00=0x0010, h01=0x0050, text=»DMT590 EQU *«, t00=0x0030, t01=0x0120}
0x4c20…4c2c Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0030, t01=0x0134}
0x4c2c…4c36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0140}
0x4c36…4c6c Head {h00=0x0032, h01=0x0050, text=»* NOW READ MASTER INDEX WITH SEQUENTIAL READ«, t00=0x0030, t01=0x014a}
0x4c6c…4c84 Head {h00=0x0014, h01=0x0050, text=»* A8 = TASECB «, t00=0x0030, t01=0x0180}
0x4c84…4cc0 Head {h00=0x0038, h01=0x0050, text=»* OTHER REQ TO THE SAME FILE CODE ARE NOT POSSIBLE«, t00=0x0031, t01=0x0008}
0x4cc0…4d00 Head {h00=0x003c, h01=0x0050, text=»* BECAUSE AN INDEX FILE MUST ALWAYS BE ASSIGNED COMMON«, t00=0x0031, t01=0x0044}
0x4d00…4d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0084}
0x4d0a…4d1e Head {h00=0x0010, h01=0x0050, text=»DMT550 EQU *«, t00=0x0031, t01=0x008e}
0x4d1e…4d48 Head {h00=0x0026, h01=0x0050, text=» LDK A7,/42 SEQ READ,NOWAIT,NO EA «, t00=0x0031, t01=0x00a2}
0x4d48…4d54 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0031, t01=0x00cc}
0x4d54…4d64 Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0031, t01=0x00d8}
0x4d64…4d78 Head {h00=0x0010, h01=0x0050, text=» DATA DMTAR5«, t00=0x0031, t01=0x00e8}
0x4d78…4d84 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0031, t01=0x00fc}
0x4d84…4d98 Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0031, t01=0x0108}
0x4d98…4dac Head {h00=0x0010, h01=0x0050, text=»DMTAR5 EQU *«, t00=0x0031, t01=0x011c}
0x4dac…4dd2 Head {h00=0x0022, h01=0x0050, text=» LDKL A14,DMTA14 RESTORE STACK«, t00=0x0031, t01=0x0130}
0x4dd2…4df2 Head {h00=0x001c, h01=0x0050, text=» LDKL A8,TASECB ECB ADDR«, t00=0x0031, t01=0x0156}
0x4df2…4e0a Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x0031, t01=0x0176}
0x4e0a…4e34 Head {h00=0x0026, h01=0x0050, text=» ANKL A2,/FEFF BIT 7 ONLY RETRIES «, t00=0x0031, t01=0x018e}
0x4e34…4e52 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DMT560 NO ERROR«, t00=0x0032, t01=0x0028}
0x4e52…4e5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0046}
0x4e5c…4e82 Head {h00=0x0022, h01=0x0050, text=»* REMOVE THE ONLY CRN BUFFER«, t00=0x0032, t01=0x0050}
0x4e82…4e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0076}
0x4e8c…4eaa Head {h00=0x001a, h01=0x0050, text=» LD A4,TASFDB FDB ADDR«, t00=0x0032, t01=0x0080}
0x4eaa…4ece Head {h00=0x0020, h01=0x0050, text=» LD A5,FDBCRL,A4 CRN BUF ADR«, t00=0x0032, t01=0x009e}
0x4ece…4eea Head {h00=0x0018, h01=0x0050, text=» RF(Z) DMT553 NO CRN«, t00=0x0032, t01=0x00c2}
0x4eea…4f00 Head {h00=0x0012, h01=0x0050, text=» CM FDBCRL,A4 «, t00=0x0032, t01=0x00de}
0x4f00…4f0c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0032, t01=0x00f4}
0x4f0c…4f22 Head {h00=0x0012, h01=0x0050, text=» LD A6,CRNQUE «, t00=0x0032, t01=0x0100}
0x4f22…4f34 Head {h00=0x000e, h01=0x0050, text=» STR A6,A5«, t00=0x0032, t01=0x0116}
0x4f34…4f4a Head {h00=0x0012, h01=0x0050, text=» ST A5,CRNQUE «, t00=0x0032, t01=0x0128}
0x4f4a…4f56 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0032, t01=0x013e}
0x4f56…4f6a Head {h00=0x0010, h01=0x0050, text=»DMT553 EQU *«, t00=0x0032, t01=0x014a}
0x4f6a…4f8c Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/1000 BIT 3 = EOF«, t00=0x0032, t01=0x015e}
0x4f8c…4fc0 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) DMT595 READY ,WHOLIE MXINDEX IS READ«, t00=0x0032, t01=0x0180}
0x4fc0…4fd2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,7 «, t00=0x0033, t01=0x0024}
0x4fd2…4ff4 Head {h00=0x001e, h01=0x0050, text=»DMT555 SUR A8,A8 NO BUFFER«, t00=0x0033, t01=0x0036}
0x4ff4…5014 Head {h00=0x001c, h01=0x0050, text=» ABL DMTASX DISC IO ERR «, t00=0x0033, t01=0x0058}
0x5014…5028 Head {h00=0x0010, h01=0x0050, text=»DMT560 EQU *«, t00=0x0033, t01=0x0078}
0x5028…5032 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x008c}
0x5032…5054 Head {h00=0x001e, h01=0x0050, text=»* RECORD READ,READ NEXRT«, t00=0x0033, t01=0x0096}
0x5054…505e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00b8}
0x505e…5076 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x0033, t01=0x00c2}
0x5076…509a Head {h00=0x0020, h01=0x0050, text=» ADS A2,ECBBA,A8 REC LENGTH «, t00=0x0033, t01=0x00da}
0x509a…50be Head {h00=0x0020, h01=0x0050, text=» RB DMT550 READ NEXT RECORD «, t00=0x0033, t01=0x00fe}
0x50be…50d2 Head {h00=0x0010, h01=0x0050, text=»DMT570 EQU *«, t00=0x0033, t01=0x0122}
0x50d2…50de Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0033, t01=0x0136}
0x50de…50fe Head {h00=0x001c, h01=0x0050, text=» LDK A7,3 NOT SUFF SPACE«, t00=0x0033, t01=0x0142}
0x50fe…5110 Head {h00=0x000e, h01=0x0050, text=» RB DMT555«, t00=0x0033, t01=0x0162}
0x5110…511e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0174}
0x511e…5132 Head {h00=0x0010, h01=0x0050, text=»DMT595 EQU *«, t00=0x0033, t01=0x0182}
0x5132…513c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0008}
0x513c…5172 Head {h00=0x0032, h01=0x0050, text=»* MASTER INDE X READUY. RERUN FOR INDEX FILE«, t00=0x0034, t01=0x0012}
0x5172…517c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0048}
0x517c…518e Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0034, t01=0x0052}
0x518e…51ae Head {h00=0x001c, h01=0x0050, text=» ST A1,TASFIL INDEX FILE«, t00=0x0034, t01=0x0064}
0x51ae…51d4 Head {h00=0x0022, h01=0x0050, text=» LD A3,TASSPW TTAB ADR DMTASK «, t00=0x0034, t01=0x0084}
0x51d4…51f8 Head {h00=0x0020, h01=0x0050, text=» CM TTB:TD+2,A3 DELETE ENTRY«, t00=0x0034, t01=0x00aa}
0x51f8…5210 Head {h00=0x0014, h01=0x0050, text=» CM TTB:TD+4,A3 «, t00=0x0034, t01=0x00ce}
0x5210…522e Head {h00=0x001a, h01=0x0050, text=» LD A3,TASFDB FDB ADDR«, t00=0x0034, t01=0x00e6}
0x522e…5244 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FFFE«, t00=0x0034, t01=0x0104}
0x5244…526a Head {h00=0x0022, h01=0x0050, text=» ANRS A2,A3 CLEAR FDB USE BIT «, t00=0x0034, t01=0x011a}
0x526a…5296 Head {h00=0x0028, h01=0x0050, text=» CM TASFDB EXT 0 NOT FOUND FOR INDEX«, t00=0x0034, t01=0x0140}
0x5296…52a8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,16«, t00=0x0034, t01=0x016c}
0x52a8…52d2 Head {h00=0x0026, h01=0x0050, text=» ST A1,TASCXO LAST ENTRY POSSIBLE «, t00=0x0034, t01=0x017e}
0x52d2…52e4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0035, t01=0x0018}
0x52e4…531a Head {h00=0x0032, h01=0x0050, text=»* TASCVO REMAINS ZERO FROM MASTER INDEX LOOP«, t00=0x0035, t01=0x002a}
0x531a…533a Head {h00=0x001c, h01=0x0050, text=» ABL DMT050 ASSIGN INDEX«, t00=0x0035, t01=0x0060}
0x533a…5348 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0080}
0x5348…535c Head {h00=0x0010, h01=0x0050, text=»DMT600 EQU *«, t00=0x0035, t01=0x008e}
0x535c…5366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a2}
0x5366…5384 Head {h00=0x001a, h01=0x0050, text=»* INDEX FILE ASSIGN «, t00=0x0035, t01=0x00ac}
0x5384…538e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00ca}
0x538e…53aa Head {h00=0x0018, h01=0x0050, text=» LDK A7,10 RET CODE «, t00=0x0035, t01=0x00d4}
0x53aa…53d4 Head {h00=0x0026, h01=0x0050, text=» LD A10,TASFDD FDB ADDR DATA FILEP«, t00=0x0035, t01=0x00f0}
0x53d4…53f6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT650 NO DATA FILE«, t00=0x0035, t01=0x011a}
0x53f6…5400 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x013c}
0x5400…542e Head {h00=0x002a, h01=0x0050, text=»* STORE INDEX ADDR IN FDB DATA FILE «, t00=0x0035, t01=0x0146}
0x542e…5438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0174}
0x5438…544a Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0035, t01=0x017e}
0x544a…5462 Head {h00=0x0014, h01=0x0050, text=» LC A3,DWTST,A10«, t00=0x0035, t01=0x0190}
0x5462…5476 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/40 «, t00=0x0036, t01=0x0018}
0x5476…54a0 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DMT639 OTHER REQUEST BUSY «, t00=0x0036, t01=0x002c}
0x54a0…54c2 Head {h00=0x001e, h01=0x0050, text=» LDK A3,8 MAX NO OF INDE*2«, t00=0x0036, t01=0x0056}
0x54c2…54d6 Head {h00=0x0010, h01=0x0050, text=»DMT620 EQU *«, t00=0x0036, t01=0x0078}
0x54d6…54e8 Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0036, t01=0x008c}
0x54e8…5510 Head {h00=0x0024, h01=0x0050, text=» RF(N) DMT640 MORE THAN 4 INDEX «, t00=0x0036, t01=0x009e}
0x5510…5524 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A10 «, t00=0x0036, t01=0x00c6}
0x5524…5536 Head {h00=0x000e, h01=0x0050, text=» ADR A6,A3«, t00=0x0036, t01=0x00da}
0x5536…554e Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBAI1,A6«, t00=0x0036, t01=0x00ec}
0x554e…556a Head {h00=0x0018, h01=0x0050, text=» RB(NZ) DMT620 USED «, t00=0x0036, t01=0x0104}
0x556a…5598 Head {h00=0x002a, h01=0x0050, text=» ST A12,FDBAI1,A6 STORE FDB ADDR INDEX«, t00=0x0036, t01=0x0120}
0x5598…55a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x014e}
0x55a2…55e2 Head {h00=0x003c, h01=0x0050, text=»* MOVE FDB ADDRESSES FROM DATA FILE TO ALL INDEX FILES«, t00=0x0036, t01=0x0158}
0x55e2…55ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0008}
0x55ec…560c Head {h00=0x001c, h01=0x0050, text=» LDK A5,8 NR OF INDEX *2«, t00=0x0037, t01=0x0012}
0x560c…5620 Head {h00=0x0010, h01=0x0050, text=»DMT625 EQU *«, t00=0x0037, t01=0x0032}
0x5620…5632 Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x0037, t01=0x0046}
0x5632…5658 Head {h00=0x0022, h01=0x0050, text=» RF(N) DMT635 ALL FDB UPPDATED«, t00=0x0037, t01=0x0058}
0x5658…5674 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A10 FDB DATA«, t00=0x0037, t01=0x007e}
0x5674…5686 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A5«, t00=0x0037, t01=0x009a}
0x5686…56ae Head {h00=0x0024, h01=0x0050, text=» LD A3,FDBAI1,A1 FDB ADDR INDEX «, t00=0x0037, t01=0x00ac}
0x56ae…56d2 Head {h00=0x0020, h01=0x0050, text=» RB(Z) DMT625 NO INDEX FILE «, t00=0x0037, t01=0x00d4}
0x56d2…56ea Head {h00=0x0014, h01=0x0050, text=» LDKL A1,FDBADF «, t00=0x0037, t01=0x00f8}
0x56ea…5704 Head {h00=0x0016, h01=0x0050, text=» ADR A3,A1 TO ADDR«, t00=0x0037, t01=0x0110}
0x5704…5722 Head {h00=0x001a, h01=0x0050, text=» ADR A1,A10 FROM ADDR «, t00=0x0037, t01=0x012a}
0x5722…5740 Head {h00=0x001a, h01=0x0050, text=» LDK A2,10 NO OF BYTES«, t00=0x0037, t01=0x0148}
0x5740…5762 Head {h00=0x001e, h01=0x0050, text=» CF A14,DMTWM MOVE 5 WORDS«, t00=0x0037, t01=0x0166}
0x5762…5774 Head {h00=0x000e, h01=0x0050, text=» RB DMT625«, t00=0x0037, t01=0x0188}
0x5774…5788 Head {h00=0x0010, h01=0x0050, text=»DMT635 EQU *«, t00=0x0038, t01=0x000a}
0x5788…57a0 Head {h00=0x0014, h01=0x0050, text=» LC A1,DWTST,A10«, t00=0x0038, t01=0x001e}
0x57a0…57d4 Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE«, t00=0x0038, t01=0x0036}
0x57d4…57e6 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0038, t01=0x006a}
0x57e6…57fc Head {h00=0x0012, h01=0x0050, text=» LD A1,TASMXA «, t00=0x0038, t01=0x007c}
0x57fc…5828 Head {h00=0x0028, h01=0x0050, text=» ST A1,FDBMIA,A12 MASTER INDEX ADDR «, t00=0x0038, t01=0x0092}
0x5828…583a Head {h00=0x000e, h01=0x0050, text=» RF DMT720«, t00=0x0038, t01=0x00be}
0x583a…5866 Head {h00=0x0028, h01=0x0050, text=»DMT639 ADK A7,2 A7=13=OTHER REQ BUSY«, t00=0x0038, t01=0x00d0}
0x5866…5894 Head {h00=0x002a, h01=0x0050, text=»DMT640 ADK A7,1 A7=11=4 INDEX ALREADY «, t00=0x0038, t01=0x00fc}
0x5894…58bc Head {h00=0x0024, h01=0x0050, text=»DMT650 EQU * A7=10=NO DATA FILE «, t00=0x0038, t01=0x012a}
0x58bc…58d0 Head {h00=0x0010, h01=0x0050, text=» ABL DMTASX «, t00=0x0038, t01=0x0152}
0x58d0…58dc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x0166}
0x58dc…58ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0172}
0x58ea…5910 Head {h00=0x0022, h01=0x0050, text=»DMT700 EQU * ASSIGN DATA FILE «, t00=0x0038, t01=0x0180}
0x5910…593a Head {h00=0x0026, h01=0x0050, text=» ST A12,FDBADF,A12 FDB ADDR TO FDB«, t00=0x0039, t01=0x0016}
0x593a…595c Head {h00=0x001e, h01=0x0050, text=» LD* A1,TASASB ASBLK ADDR «, t00=0x0039, t01=0x0040}
0x595c…5972 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/6000«, t00=0x0039, t01=0x0062}
0x5972…5984 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0039, t01=0x0078}
0x5984…59ac Head {h00=0x0024, h01=0x0050, text=» ORS A1,FDBDBR,A12 DELAY + BASIC«, t00=0x0039, t01=0x008a}
0x59ac…59c0 Head {h00=0x0010, h01=0x0050, text=»DMT720 EQU *«, t00=0x0039, t01=0x00b2}
0x59c0…59ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00c6}
0x59ca…59f6 Head {h00=0x0028, h01=0x0050, text=»* SET FDBMRN TO MAX REC NO IN FILE«, t00=0x0039, t01=0x00d0}
0x59f6…5a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00fc}
0x5a00…5a14 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x0039, t01=0x0106}
0x5a14…5a2c Head {h00=0x0014, h01=0x0050, text=» ADKL A1,FDBNIF «, t00=0x0039, t01=0x011a}
0x5a2c…5a46 Head {h00=0x0016, h01=0x0050, text=» ADKL A1,EXTELE-2 «, t00=0x0039, t01=0x0132}
0x5a46…5a64 Head {h00=0x001a, h01=0x0050, text=»DMT750 SUKL A1,EXTELE «, t00=0x0039, t01=0x014c}
0x5a64…5a80 Head {h00=0x0018, h01=0x0050, text=» LDR* A2,A1 EXT BASE«, t00=0x0039, t01=0x016a}
0x5a80…5a96 Head {h00=0x0012, h01=0x0050, text=» RB(Z) DMT750 «, t00=0x0039, t01=0x0186}
0x5a96…5aaa Head {h00=0x0010, h01=0x0050, text=» AD A2,-2,A1«, t00=0x003a, t01=0x000c}
0x5aaa…5ac4 Head {h00=0x0016, h01=0x0050, text=» SUKL A1,EXTELE-2 «, t00=0x003a, t01=0x0020}
0x5ac4…5ade Head {h00=0x0016, h01=0x0050, text=» ST A1,FDBCEX,A12 «, t00=0x003a, t01=0x003a}
0x5ade…5af0 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x003a, t01=0x0054}
0x5af0…5b0a Head {h00=0x0016, h01=0x0050, text=» ST A2,FDBSNR,A12 «, t00=0x003a, t01=0x0066}
0x5b0a…5b1e Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x003a, t01=0x0080}
0x5b1e…5b44 Head {h00=0x0022, h01=0x0050, text=» CF A14,GTLGRN GET LOG REC NO «, t00=0x003a, t01=0x0094}
0x5b44…5b56 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x003a, t01=0x00ba}
0x5b56…5b7c Head {h00=0x0022, h01=0x0050, text=» LC A1,FDBBLF,A12 BLOCK FACTOR«, t00=0x003a, t01=0x00cc}
0x5b7c…5b8e Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x003a, t01=0x00f2}
0x5b8e…5ba0 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x003a, t01=0x0104}
0x5ba0…5bb6 Head {h00=0x0012, h01=0x0050, text=» RF(O) DMT760 «, t00=0x003a, t01=0x0116}
0x5bb6…5bc8 Head {h00=0x000e, h01=0x0050, text=» RF DMT770«, t00=0x003a, t01=0x012c}
0x5bc8…5be4 Head {h00=0x0018, h01=0x0050, text=»DMT760 ANKL A3,/7FFF«, t00=0x003a, t01=0x013e}
0x5be4…5bfc Head {h00=0x0014, h01=0x0050, text=» ADK A2,1 CARRY «, t00=0x003a, t01=0x015a}
0x5bfc…5c1c Head {h00=0x001c, h01=0x0050, text=»DMT770 SC A2,FDBMRN,A12 «, t00=0x003a, t01=0x0172}
0x5c1c…5c38 (59, 2, 340) Head {h00=0x0018, h01=0x0050, text=» ST A3,FDBMRN+1,A12 «, t00=0x003b, t01=0x0004}
0x5c38…5c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0020}
0x5c42…5c7a Head {h00=0x0034, h01=0x0050, text=»* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE«, t00=0x003b, t01=0x002a}
0x5c7a…5c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0062}
0x5c84…5ca8 Head {h00=0x0020, h01=0x0050, text=» LD A6,FDBRLE,A12 REC LENGTH«, t00=0x003b, t01=0x006c}
0x5ca8…5cba Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x003b, t01=0x0090}
0x5cba…5ccc Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x003b, t01=0x00a2}
0x5ccc…5cf0 Head {h00=0x0020, h01=0x0050, text=» LC A7,FDBBLF,A12 BLOCK FACT«, t00=0x003b, t01=0x00b4}
0x5cf0…5d02 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x003b, t01=0x00d8}
0x5d02…5d24 Head {h00=0x001e, h01=0x0050, text=» CF A14,MPYMOD A1,A2=A6*A7«, t00=0x003b, t01=0x00ea}
0x5d24…5d48 Head {h00=0x0020, h01=0x0050, text=» ST A2,FDBMRO,A12 MAX FDBRRO«, t00=0x003b, t01=0x010c}
0x5d48…5d5c Head {h00=0x0010, h01=0x0050, text=» ABL DMT400 «, t00=0x003b, t01=0x0130}
0x5d5c…5d68 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003b, t01=0x0144}
0x5d68…5d6c Head {h00=0x4004, h01=0x0000}
0x5d6c…5d70 00 3b 01 50 ┆ ; P┆
0x5d70…5d78 (60, 1, 8) 20 04 00 00 00 3c 00 04 ┆ < ┆