|
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: 23802 (0x5cfa)
Notes: pts_type(SC)
Names: »DMTASS.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DMTASS.SC«
IDENT DMTASS REL 8.2 78-09-15 870105040820 MX REL. L. 176,565 REL 8.1 78-04-21 * **************************************************** * * 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 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 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 VOLCHE EJECT X:A EQU 0 RECBFZ EQU X:A INDEX RECORD BUFFER SIZE X:B EQU 0 INDXAC EQU X:B INDEX ACCESS FUNCTIONS WHEN = 1 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 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,/11 LKM DATA -1 DATA DMTAR3 RESTART ADDRESS AFTER I/O LKM DATA 3 EXIT EJECT DMTAR3 EQU * RESTART AFTER VOLUME LABEL IS READ 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,'D0' 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,/11 LKM DATA -1 DATA DMTAR4 RESTART ADDRESS LKM DATA 3 EXIT EJECT DMTAR4 EQU * 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 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 * * PUT FDB ADDRESS INTO TTAB/CD:TAB * DMT400 EQU * LDK A7,0 DMTASX EQU * 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 8.2 78-09-15 870105040820 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005c Head {h00=0x001a, h01=0x0050, text=» MX REL. L. 176,565 «, t00=0x0000, t01=0x0042}
0x005c…0078 Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-04-21 «, t00=0x0000, t01=0x0060}
0x0078…0082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007c}
0x0082…00be Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0086}
0x00be…00c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c2}
0x00c8…00f0 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00cc}
0x00f0…00fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f4}
0x00fa…0132 Head {h00=0x0034, h01=0x0050, text=»* DMTASS = ASSIGN FILE CODE DISC I/O HANDLING «, t00=0x0000, t01=0x00fe}
0x0132…013c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0136}
0x013c…0146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0140}
0x0146…0150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014a}
0x0150…015a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0154}
0x015a…0164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015e}
0x0164…016e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0168}
0x016e…01aa Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0172}
0x01aa…01b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x001e}
0x01b4…01e2 Head {h00=0x002a, h01=0x0050, text=»* THIS MODULE IS ACTIVATED FROM TASS«, t00=0x0001, t01=0x0028}
0x01e2…01ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0056}
0x01ec…0232 Head {h00=0x0042, h01=0x0050, text=»* INPUT A2 = TID TASK IDENT OF DMTASK AT PRESENT NOT USED «, t00=0x0001, t01=0x0060}
0x0232…025e Head {h00=0x0028, h01=0x0050, text=»* TASBLK PARAMETER BLOCK «, t00=0x0001, t01=0x00a6}
0x025e…0268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d2}
0x0268…02b6 Head {h00=0x004a, h01=0x0050, text=»* IN TASVOL IN TASBLK ALL VOLUMES WHERE THE FILE TO BE ASSIGNED CAN «, t00=0x0001, t01=0x00dc}
0x02b6…0306 Head {h00=0x004c, h01=0x0050, text=»* RECIDE ARE DEFINED. ON THESE VOLUMES THE VTOC:S ARE SEARCHED TO FIND«, t00=0x0001, t01=0x012a}
0x0306…034e Head {h00=0x0044, h01=0x0050, text=»* ALL EXTENTS FOR THE FILE TO BE ASSIGNED. FOR EACH EXTENT ITS«, t00=0x0001, t01=0x017a}
0x034e…0390 Head {h00=0x003e, h01=0x0050, text=»* FILE-SECTION-NO, FILE-EXTENT-NO,FILE-EXTENT-LENGTH AND«, t00=0x0002, t01=0x0032}
0x0390…03c2 Head {h00=0x002e, h01=0x0050, text=»* FILE-EXTENT-BASE ARE SAVED IN TASBLK. «, t00=0x0002, t01=0x0074}
0x03c2…0412 Head {h00=0x004c, h01=0x0050, text=»* FOR THE FIRST EXTENT (I.E. FILE-SECTION-NO =0 AND FILE-EXTENT-NO =0)«, t00=0x0002, t01=0x00a6}
0x0412…0460 Head {h00=0x004a, h01=0x0050, text=»* THE LAST-RECORD-NO, RECORD-LENGTH, BLOCKING-FACTOR AND VTOC-REC-NO«, t00=0x0002, t01=0x00f6}
0x0460…047a Head {h00=0x0016, h01=0x0050, text=»* ARE SAVED TOO.«, t00=0x0002, t01=0x0144}
0x047a…04ca Head {h00=0x004c, h01=0x0050, text=»* WHEN THE FIRST EXTENT HAS BEEN FOUND EXISTING FDB:S CAN BE SEARCHED «, t00=0x0002, t01=0x015e}
0x04ca…051a Head {h00=0x004c, h01=0x0050, text=»* TO CHECK IF THE FILE TO BE ASSIGNED HAS PREVIOUSLY BEEN ASSIGNED TO «, t00=0x0003, t01=0x001e}
0x051a…056a Head {h00=0x004c, h01=0x0050, text=»* ANOTHER FILE CODE. IF SO THE FDB ADDRESS IS PUT INTO THE CD:TAB AND «, t00=0x0003, t01=0x006e}
0x056a…05ba Head {h00=0x004c, h01=0x0050, text=»* THE ASSIGNMENT IS COMPLETED. IF NO FDB DESCRIBING THE FILE IS FOUND «, t00=0x0003, t01=0x00be}
0x05ba…05fc Head {h00=0x003e, h01=0x0050, text=»* THEN A NEW FDB MUST BE INITIALIZED AND THE REST OF THE«, t00=0x0003, t01=0x010e}
0x05fc…0634 Head {h00=0x0034, h01=0x0050, text=»* VOLUMES ARE CHECKED TO FIND ALL FILE EXTENTS«, t00=0x0003, t01=0x0150}
0x0634…063e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0188}
0x063e…0674 (4, 0, 400) Head {h00=0x0032, h01=0x0050, text=»* FOR INDEX ASIGN THE PRODGRAM IS RUN TWICE.«, t00=0x0004, t01=0x0004}
0x0674…06ac Head {h00=0x0034, h01=0x0050, text=»* DURING THE FIRST LOOP A MASTERINDEX IS READ.«, t00=0x0004, t01=0x003a}
0x06ac…06de Head {h00=0x002e, h01=0x0050, text=»* FC 13 IN TTAB FOR DMTASK IS THEN USED «, t00=0x0004, t01=0x0072}
0x06de…06ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00a4}
0x06ec…06f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b2}
0x06f6…070e Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x00bc}
0x070e…0726 Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0004, t01=0x00d4}
0x0726…073e Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x00ec}
0x073e…0748 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0104}
0x0748…075e Head {h00=0x0012, h01=0x0050, text=» ENTRY DMTASS «, t00=0x0004, t01=0x010e}
0x075e…0772 Head {h00=0x0010, h01=0x0050, text=» ENTRY VTLRN«, t00=0x0004, t01=0x0124}
0x0772…0786 Head {h00=0x0010, h01=0x0050, text=» ENTRY VLVBA«, t00=0x0004, t01=0x0138}
0x0786…079a Head {h00=0x0010, h01=0x0050, text=» ENTRY VLVRL«, t00=0x0004, t01=0x014c}
0x079a…07b0 Head {h00=0x0012, h01=0x0050, text=» ENTRY SECTLE «, t00=0x0004, t01=0x0160}
0x07b0…07be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0176}
0x07be…07c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0184}
0x07c8…07e2 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0004, t01=0x018e}
0x07e2…07fc Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x0018}
0x07fc…0816 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0005, t01=0x0032}
0x0816…0820 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x004c}
0x0820…0834 Head {h00=0x0010, h01=0x0050, text=» EXTRN QTJOB«, t00=0x0005, t01=0x0056}
0x0834…0850 Head {h00=0x0018, h01=0x0050, text=» EXTRN FNDTID,TTB:TD«, t00=0x0005, t01=0x006a}
0x0850…085a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0086}
0x085a…086e Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTST«, t00=0x0005, t01=0x0090}
0x086e…0884 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTADR «, t00=0x0005, t01=0x00a4}
0x0884…088e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ba}
0x088e…08a2 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBFC«, t00=0x0005, t01=0x00c4}
0x08a2…08b6 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBBA«, t00=0x0005, t01=0x00d8}
0x08b6…08ca Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRL«, t00=0x0005, t01=0x00ec}
0x08ca…08de Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRC«, t00=0x0005, t01=0x0100}
0x08de…08f2 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBCW«, t00=0x0005, t01=0x0114}
0x08f2…08fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0128}
0x08fc…0910 Head {h00=0x0010, h01=0x0050, text=» EXTRN TIODM«, t00=0x0005, t01=0x0132}
0x0910…0926 Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTGBU «, t00=0x0005, t01=0x0146}
0x0926…093c Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTRBU «, t00=0x0005, t01=0x015c}
0x093c…0952 Head {h00=0x0012, h01=0x0050, text=» EXTRN CLRBUF «, t00=0x0005, t01=0x0172}
0x0952…0968 Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFSTA «, t00=0x0005, t01=0x0188}
0x0968…097e Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFSNR «, t00=0x0006, t01=0x000e}
0x097e…0994 Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFDMI «, t00=0x0006, t01=0x0024}
0x0994…099e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x003a}
0x099e…09b4 Head {h00=0x0012, h01=0x0050, text=» EXTRN QFDBFL «, t00=0x0006, t01=0x0044}
0x09b4…09ca Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBSTA «, t00=0x0006, t01=0x005a}
0x09ca…09e0 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBEND «, t00=0x0006, t01=0x0070}
0x09e0…09f6 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBECB «, t00=0x0006, t01=0x0086}
0x09f6…0a0c Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBEXT «, t00=0x0006, t01=0x009c}
0x0a0c…0a22 Head {h00=0x0012, h01=0x0050, text=» EXTRN EXTDMI «, t00=0x0006, t01=0x00b2}
0x0a22…0a38 Head {h00=0x0012, h01=0x0050, text=» EXTRN EXTLEN «, t00=0x0006, t01=0x00c8}
0x0a38…0a4e Head {h00=0x0012, h01=0x0050, text=» EXTRN EXTBAS «, t00=0x0006, t01=0x00de}
0x0a4e…0a64 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBRLE «, t00=0x0006, t01=0x00f4}
0x0a64…0a7a Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBBLF «, t00=0x0006, t01=0x010a}
0x0a7a…0a90 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBVTO «, t00=0x0006, t01=0x0120}
0x0a90…0aa6 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBLRN «, t00=0x0006, t01=0x0136}
0x0aa6…0ac2 Head {h00=0x0018, h01=0x0050, text=» EXTRN FDBNIF,FDBKA «, t00=0x0006, t01=0x014c}
0x0ac2…0aec Head {h00=0x0026, h01=0x0050, text=» EXTRN FDBMIA,FDBAI1,FDBADF,FDBCRL«, t00=0x0006, t01=0x0168}
0x0aec…0b1e (7, 0, 400) Head {h00=0x002e, h01=0x0050, text=» EXTRN FDBSNR,FDBMRN,GTLGRN,EXTELE,FDBCEX «, t00=0x0007, t01=0x0004}
0x0b1e…0b3a Head {h00=0x0018, h01=0x0050, text=» EXTRN FDBDBR,FDBMRO«, t00=0x0007, t01=0x0036}
0x0b3a…0b62 Head {h00=0x0024, h01=0x0050, text=» EXTRN MXIND,CRNQUE,DMTWM,MPYMOD«, t00=0x0007, t01=0x0052}
0x0b62…0b78 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASASB «, t00=0x0007, t01=0x007a}
0x0b78…0b8e Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCVO «, t00=0x0007, t01=0x0090}
0x0b8e…0ba4 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASVOL «, t00=0x0007, t01=0x00a6}
0x0ba4…0bba Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCXO «, t00=0x0007, t01=0x00bc}
0x0bba…0bd0 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASSEX «, t00=0x0007, t01=0x00d2}
0x0bd0…0be6 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASXLB «, t00=0x0007, t01=0x00e8}
0x0be6…0bfc Head {h00=0x0012, h01=0x0050, text=» EXTRN TASFDB «, t00=0x0007, t01=0x00fe}
0x0bfc…0c12 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASVRL «, t00=0x0007, t01=0x0114}
0x0c12…0c28 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASVLE «, t00=0x0007, t01=0x012a}
0x0c28…0c3e Head {h00=0x0012, h01=0x0050, text=» EXTRN TASVRN «, t00=0x0007, t01=0x0140}
0x0c3e…0c54 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASECB «, t00=0x0007, t01=0x0156}
0x0c54…0c78 Head {h00=0x0020, h01=0x0050, text=» EXTRN TASFIL,TASTID,TASMXA «, t00=0x0007, t01=0x016c}
0x0c78…0c9c Head {h00=0x0020, h01=0x0050, text=» EXTRN TASSPW,TASFDD,TASTBE «, t00=0x0007, t01=0x0190}
0x0c9c…0cb2 Head {h00=0x0012, h01=0x0050, text=» EXTRN TASCAQ «, t00=0x0008, t01=0x0024}
0x0cb2…0cc8 Head {h00=0x0012, h01=0x0050, text=» EXTRN VOLCHE «, t00=0x0008, t01=0x003a}
0x0cc8…0cd6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0050}
0x0cd6…0ce8 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0008, t01=0x005e}
0x0ce8…0d18 Head {h00=0x002c, h01=0x0050, text=»RECBFZ EQU X:A INDEX RECORD BUFFER SIZE «, t00=0x0008, t01=0x0070}
0x0d18…0d2a Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x00a0}
0x0d2a…0d60 Head {h00=0x0032, h01=0x0050, text=»INDXAC EQU X:B INDEX ACCESS FUNCTIONS WHEN = 1«, t00=0x0008, t01=0x00b2}
0x0d60…0d6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x00e8}
0x0d6e…0d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d78…0d8c Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0008, t01=0x0100}
0x0d8c…0da0 Head {h00=0x0010, h01=0x0050, text=»* DATA *«, t00=0x0008, t01=0x0114}
0x0da0…0db4 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0008, t01=0x0128}
0x0db4…0dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013c}
0x0dbe…0dea Head {h00=0x0028, h01=0x0050, text=»* CYLID 1 WORD INCL FOR VOL LABEL «, t00=0x0008, t01=0x0146}
0x0dea…0dfe Head {h00=0x0010, h01=0x0050, text=»VLVLE EQU 8 «, t00=0x0008, t01=0x0172}
0x0dfe…0e12 Head {h00=0x0010, h01=0x0050, text=»VLVBA EQU 12«, t00=0x0008, t01=0x0186}
0x0e12…0e26 Head {h00=0x0010, h01=0x0050, text=»VLVRL EQU 14«, t00=0x0009, t01=0x000a}
0x0e26…0e3a Head {h00=0x0010, h01=0x0050, text=»VLVER EQU 34«, t00=0x0009, t01=0x001e}
0x0e3a…0e44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0032}
0x0e44…0e58 Head {h00=0x0010, h01=0x0050, text=»VTFSNO EQU 8«, t00=0x0009, t01=0x003c}
0x0e58…0e6e Head {h00=0x0012, h01=0x0050, text=»VTFXNO EQU 10 «, t00=0x0009, t01=0x0050}
0x0e6e…0e84 Head {h00=0x0012, h01=0x0050, text=»VTFXLE EQU 14 «, t00=0x0009, t01=0x0066}
0x0e84…0e9a Head {h00=0x0012, h01=0x0050, text=»VTFXBA EQU 18 «, t00=0x0009, t01=0x007c}
0x0e9a…0eae Head {h00=0x0010, h01=0x0050, text=»VTLRN EQU 21«, t00=0x0009, t01=0x0092}
0x0eae…0ec2 Head {h00=0x0010, h01=0x0050, text=»VTRLE EQU 24«, t00=0x0009, t01=0x00a6}
0x0ec2…0ed6 Head {h00=0x0010, h01=0x0050, text=»VTBLF EQU 26«, t00=0x0009, t01=0x00ba}
0x0ed6…0eec Head {h00=0x0012, h01=0x0050, text=»VTFIOR EQU 27 «, t00=0x0009, t01=0x00ce}
0x0eec…0f00 Head {h00=0x0010, h01=0x0050, text=»VTNIF EQU 37«, t00=0x0009, t01=0x00e4}
0x0f00…0f14 Head {h00=0x0010, h01=0x0050, text=»VTKA EQU 38 «, t00=0x0009, t01=0x00f8}
0x0f14…0f1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x010c}
0x0f1e…0f44 Head {h00=0x0022, h01=0x0050, text=»* QVTBLE= (VTOC BF)*(RL+1)+2«, t00=0x0009, t01=0x0116}
0x0f44…0f6c Head {h00=0x0024, h01=0x0050, text=»QVTBLE EQU 380 VTOC BLOCK LENGTH«, t00=0x0009, t01=0x013c}
0x0f6c…0f90 Head {h00=0x0020, h01=0x0050, text=»SECTLE EQU 410 SECTOR LENGTH«, t00=0x0009, t01=0x0164}
0x0f90…0faa Head {h00=0x0016, h01=0x0050, text=» DATA 0,0 4 WORDS «, t00=0x0009, t01=0x0188}
0x0faa…0fc2 Head {h00=0x0014, h01=0x0050, text=» DATA 0,0 STACK «, t00=0x000a, t01=0x0012}
0x0fc2…0fd8 Head {h00=0x0012, h01=0x0050, text=»DMTA14 EQU *-2«, t00=0x000a, t01=0x002a}
0x0fd8…0fe6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0040}
0x0fe6…0ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004e}
0x0ff0…1006 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000a, t01=0x0058}
0x1006…101c Head {h00=0x0012, h01=0x0050, text=»* DMTIOC *«, t00=0x000a, t01=0x006e}
0x101c…1032 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000a, t01=0x0084}
0x1032…103c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x009a}
0x103c…107a Head {h00=0x003a, h01=0x0050, text=»* ENTRY DMTIOC CHECK RETURN CODES AFTER DISC I/O«, t00=0x000a, t01=0x00a4}
0x107a…10bc Head {h00=0x003e, h01=0x0050, text=»* RETURN TO DMTASX WITH A7=1 IF ERROR. «, t00=0x000a, t01=0x00e2}
0x10bc…10c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0124}
0x10c6…10da Head {h00=0x0010, h01=0x0050, text=»DMTIOC EQU *«, t00=0x000a, t01=0x012e}
0x10da…10f2 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,TASECB «, t00=0x000a, t01=0x0142}
0x10f2…110a Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x000a, t01=0x015a}
0x110a…1122 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x000a, t01=0x0172}
0x1122…114c Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/FEFF BIT 7 ONLY RETRIES «, t00=0x000a, t01=0x018a}
0x114c…1162 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DMTIOX «, t00=0x000b, t01=0x0024}
0x1162…1176 Head {h00=0x0010, h01=0x0050, text=» ADKL A14,4 «, t00=0x000b, t01=0x003a}
0x1176…118a Head {h00=0x0010, h01=0x0050, text=» ANK A1,/80 «, t00=0x000b, t01=0x004e}
0x118a…11b2 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMT060 NEW VOLUME LOADED«, t00=0x000b, t01=0x0062}
0x11b2…11ca Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x000b, t01=0x008a}
0x11ca…11fa Head {h00=0x002c, h01=0x0050, text=» CM BUFDMI,A3 CLEAR VOL IDENT IN BUFFER «, t00=0x000b, t01=0x00a2}
0x11fa…120c Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x000b, t01=0x00d2}
0x120c…122e Head {h00=0x001e, h01=0x0050, text=» ABL DMTASX DISC I/O ERROR«, t00=0x000b, t01=0x00e4}
0x122e…1242 Head {h00=0x0010, h01=0x0050, text=»DMTIOX EQU *«, t00=0x000b, t01=0x0106}
0x1242…1252 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000b, t01=0x011a}
0x1252…1260 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000b, t01=0x012a}
0x1260…126a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0138}
0x126a…1280 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000b, t01=0x0142}
0x1280…1296 Head {h00=0x0012, h01=0x0050, text=»* DMTASS *«, t00=0x000b, t01=0x0158}
0x1296…12ac Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000b, t01=0x016e}
0x12ac…12b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0184}
0x12b6…12ca Head {h00=0x0010, h01=0x0050, text=»DMTASS EQU *«, t00=0x000b, t01=0x018e}
0x12ca…1306 Head {h00=0x0038, h01=0x0050, text=» LDKL A14,DMTA14 INITIALIZE DMTASK A14 STACK POINTER«, t00=0x000c, t01=0x0012}
0x1306…1326 Head {h00=0x001c, h01=0x0050, text=» ST A2,TASTID TASK IDENT«, t00=0x000c, t01=0x004e}
0x1326…134a Head {h00=0x0020, h01=0x0050, text=» CM TASMXA MASTER INDEX ADDR«, t00=0x000c, t01=0x006e}
0x134a…135c Head {h00=0x000e, h01=0x0050, text=» ANK A2,/2«, t00=0x000c, t01=0x0092}
0x135c…137e Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT010 NOT FLEXTASC«, t00=0x000c, t01=0x00a4}
0x137e…1388 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00c6}
0x1388…13b2 Head {h00=0x0026, h01=0x0050, text=»* PERFORM VOLUME CHECK WITH LOCK«, t00=0x000c, t01=0x00d0}
0x13b2…13bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00fa}
0x13bc…13dc Head {h00=0x001c, h01=0x0050, text=» LD A8,TASASB ASBLK ADDR«, t00=0x000c, t01=0x0104}
0x13dc…13ee Head {h00=0x000e, h01=0x0050, text=» LCR A2,A8«, t00=0x000c, t01=0x0124}
0x13ee…140c Head {h00=0x001a, h01=0x0050, text=» ANK A2,/07 NO OF VOL «, t00=0x000c, t01=0x0136}
0x140c…142c Head {h00=0x001c, h01=0x0050, text=» LDKL A11,1 LOCK WANTED «, t00=0x000c, t01=0x0154}
0x142c…144c Head {h00=0x001c, h01=0x0050, text=» CF A14,VOLCHE SEE TASS «, t00=0x000c, t01=0x0174}
0x144c…145e (13, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x000d, t01=0x0004}
0x145e…1476 Head {h00=0x0014, h01=0x0050, text=» RF(Z) DMT010 OK«, t00=0x000d, t01=0x0016}
0x1476…1494 Head {h00=0x001a, h01=0x0050, text=» LDK A7,4 VOL UNKNOWN «, t00=0x000d, t01=0x002e}
0x1494…14a8 Head {h00=0x0010, h01=0x0050, text=» ABL DMTASX «, t00=0x000d, t01=0x004c}
0x14a8…14bc Head {h00=0x0010, h01=0x0050, text=»DMT010 EQU *«, t00=0x000d, t01=0x0060}
0x14bc…14c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0074}
0x14c6…14de Head {h00=0x0014, h01=0x0050, text=» LDKL A8,TASECB «, t00=0x000d, t01=0x007e}
0x14de…14e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0096}
0x14e8…1522 Head {h00=0x0036, h01=0x0050, text=» LD A1,TASCVO OFFSET INTO TASVOL FOR FIRST VOLUME «, t00=0x000d, t01=0x00a0}
0x1522…1536 Head {h00=0x0010, h01=0x0050, text=»DMT050 EQU *«, t00=0x000d, t01=0x00da}
0x1536…1566 Head {h00=0x002c, h01=0x0050, text=» CF A14,CLRBUF RELEASE ALL FREE BUFFERS «, t00=0x000d, t01=0x00ee}
0x1566…1578 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x000d, t01=0x011e}
0x1578…15a6 Head {h00=0x002a, h01=0x0050, text=» LD A1,TASVOL,A1 DMI, FC FIRST VOLUME «, t00=0x000d, t01=0x0130}
0x15a6…15be Head {h00=0x0014, h01=0x0050, text=» SC A1,ECBFC,A8 «, t00=0x000d, t01=0x015e}
0x15be…15d6 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SECTLE «, t00=0x000d, t01=0x0176}
0x15d6…15fc Head {h00=0x0022, h01=0x0050, text=» ST A2,ECBRL,A8 SECTOR LENGTH «, t00=0x000d, t01=0x018e}
0x15fc…160e Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x000e, t01=0x0024}
0x160e…1642 Head {h00=0x0030, h01=0x0050, text=» ST A2,ECBCW,A8 SECTOR #0 VL (VOLUME LABEL) «, t00=0x000e, t01=0x0036}
0x1642…164c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006a}
0x164c…1656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0074}
0x1656…168c Head {h00=0x0032, h01=0x0050, text=» CF A14,DMTGBU GET A DM BUFFER ADDRESS IN A3 «, t00=0x000e, t01=0x007e}
0x168c…16b0 Head {h00=0x0020, h01=0x0050, text=» DATA /5700 NOP. READ ALWAYS«, t00=0x000e, t01=0x00b4}
0x16b0…16c8 Head {h00=0x0014, h01=0x0050, text=» ADKL A3,BUFSTA «, t00=0x000e, t01=0x00d8}
0x16c8…16f2 Head {h00=0x0026, h01=0x0050, text=» ST A3,ECBBA,A8 DATA BUFFER START «, t00=0x000e, t01=0x00f0}
0x16f2…16fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x011a}
0x16fc…1722 Head {h00=0x0022, h01=0x0050, text=»* PHYS READ 1 SECT FROM DISC«, t00=0x000e, t01=0x0124}
0x1722…172c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014a}
0x172c…1740 Head {h00=0x0010, h01=0x0050, text=»DMT060 EQU *«, t00=0x000e, t01=0x0154}
0x1740…1754 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/11 «, t00=0x000e, t01=0x0168}
0x1754…1760 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000e, t01=0x017c}
0x1760…1770 Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x000e, t01=0x0188}
0x1770…179e Head {h00=0x002a, h01=0x0050, text=» DATA DMTAR3 RESTART ADDRESS AFTER I/O«, t00=0x000f, t01=0x0008}
0x179e…17aa Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x000f, t01=0x0036}
0x17aa…17be Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x000f, t01=0x0042}
0x17be…17cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0056}
0x17cc…1804 Head {h00=0x0034, h01=0x0050, text=»DMTAR3 EQU * RESTART AFTER VOLUME LABEL IS READ «, t00=0x000f, t01=0x0064}
0x1804…1836 Head {h00=0x002e, h01=0x0050, text=» LDKL A14,DMTA14 SET UP A14 STACK POINTER «, t00=0x000f, t01=0x009c}
0x1836…1856 Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTIOC I/O CHECK«, t00=0x000f, t01=0x00ce}
0x1856…1876 Head {h00=0x001c, h01=0x0050, text=» LD A2,VLVER,A3 VERSION «, t00=0x000f, t01=0x00ee}
0x1876…18a0 Head {h00=0x0026, h01=0x0050, text=» CWK A2,'TO' DTOSS FORMATED DISC? «, t00=0x000f, t01=0x010e}
0x18a0…18ba Head {h00=0x0016, h01=0x0050, text=» RF(E) DMT100 YES «, t00=0x000f, t01=0x0138}
0x18ba…18ce Head {h00=0x0010, h01=0x0050, text=» LDK A7,8 NO«, t00=0x000f, t01=0x0152}
0x18ce…18ee Head {h00=0x001c, h01=0x0050, text=» ABL DMTASX ERROR RETURN«, t00=0x000f, t01=0x0166}
0x18ee…18f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0186}
0x18f8…190c Head {h00=0x0010, h01=0x0050, text=»DMT100 EQU *«, t00=0x000f, t01=0x0190}
0x190c…191e Head {h00=0x000e, h01=0x0050, text=» CM TASVRN«, t00=0x0010, t01=0x0014}
0x191e…1942 Head {h00=0x0020, h01=0x0050, text=» LD A6,VLVLE,A3 VTOC LENGTH «, t00=0x0010, t01=0x0026}
0x1942…1958 Head {h00=0x0012, h01=0x0050, text=» ST A6,TASVLE «, t00=0x0010, t01=0x004a}
0x1958…197a Head {h00=0x001e, h01=0x0050, text=» LD A2,VLVBA,A3 VTOC BASE «, t00=0x0010, t01=0x0060}
0x197a…19ac Head {h00=0x002e, h01=0x0050, text=» ST A2,ECBCW,A8 1:ST VTOC SECTOR NO = FSAT«, t00=0x0010, t01=0x0082}
0x19ac…19d6 Head {h00=0x0026, h01=0x0050, text=» LD A9,VLVRL,A3 VTOC RECORD LENGTH«, t00=0x0010, t01=0x00b4}
0x19d6…19ec Head {h00=0x0012, h01=0x0050, text=» ST A9,TASVRL «, t00=0x0010, t01=0x00de}
0x19ec…19fa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00f4}
0x19fa…1a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0102}
0x1a04…1a22 Head {h00=0x001a, h01=0x0050, text=»* SEARCH ALL VTOC:S «, t00=0x0010, t01=0x010c}
0x1a22…1a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012a}
0x1a2c…1a40 Head {h00=0x0010, h01=0x0050, text=»DMT110 EQU *«, t00=0x0010, t01=0x0134}
0x1a40…1a56 Head {h00=0x0012, h01=0x0050, text=» LD A6,TASVLE «, t00=0x0010, t01=0x0148}
0x1a56…1a68 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0010, t01=0x015e}
0x1a68…1a8c Head {h00=0x0020, h01=0x0050, text=» ST A6,TASVLE UPDATE TASVLE «, t00=0x0010, t01=0x0170}
0x1a8c…1ab4 (17, 0, 400) Head {h00=0x0024, h01=0x0050, text=» RF(P) DMT115 MORE VTOC SECTORS «, t00=0x0011, t01=0x0004}
0x1ab4…1ac2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x002c}
0x1ac2…1acc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003a}
0x1acc…1af2 Head {h00=0x0022, h01=0x0050, text=»* ALL VTOC SECTORS ARE READ «, t00=0x0011, t01=0x0044}
0x1af2…1afc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x006a}
0x1afc…1b12 Head {h00=0x0012, h01=0x0050, text=» LD A1,TASCVO «, t00=0x0011, t01=0x0074}
0x1b12…1b24 Head {h00=0x000e, h01=0x0050, text=» SUK A1,2 «, t00=0x0011, t01=0x008a}
0x1b24…1b4e Head {h00=0x0026, h01=0x0050, text=» ABL(N) DMT300 ALL VOLUMES CHECKED«, t00=0x0011, t01=0x009c}
0x1b4e…1b72 Head {h00=0x0020, h01=0x0050, text=» ST A1,TASCVO UPDATE TASCVO «, t00=0x0011, t01=0x00c6}
0x1b72…1b9a Head {h00=0x0024, h01=0x0050, text=» LDK A7,7 TOO MANY FILE SECTIONS«, t00=0x0011, t01=0x00ea}
0x1b9a…1bb0 Head {h00=0x0012, h01=0x0050, text=» LD A3,TASFIL «, t00=0x0011, t01=0x0112}
0x1bb0…1bd6 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DMTASX NOT DATA FILE «, t00=0x0011, t01=0x0128}
0x1bd6…1bee Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0011, t01=0x014e}
0x1bee…1c06 Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x0011, t01=0x0166}
0x1c06…1c2c Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0011, t01=0x017e}
0x1c2c…1c44 Head {h00=0x0014, h01=0x0050, text=» LC A7,TASVOL,A1«, t00=0x0012, t01=0x0014}
0x1c44…1c5e Head {h00=0x0016, h01=0x0050, text=» CC A7,TASVOL+2,A1«, t00=0x0012, t01=0x002c}
0x1c5e…1c80 Head {h00=0x001e, h01=0x0050, text=» RB(E) DMT050 SAME DM TASK«, t00=0x0012, t01=0x0046}
0x1c80…1c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0068}
0x1c8a…1cac Head {h00=0x001e, h01=0x0050, text=»* ACTIVATE NEXT DM TASK «, t00=0x0012, t01=0x0072}
0x1cac…1cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0094}
0x1cb6…1ccc Head {h00=0x0012, h01=0x0050, text=» ADKL A7,'D0' «, t00=0x0012, t01=0x009e}
0x1ccc…1cd8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x00b4}
0x1cd8…1ce8 Head {h00=0x000c, h01=0x0050, text=» DATA -4«, t00=0x0012, t01=0x00c0}
0x1ce8…1cfc Head {h00=0x0010, h01=0x0050, text=» DATA DMTASS«, t00=0x0012, t01=0x00d0}
0x1cfc…1d08 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0012, t01=0x00e4}
0x1d08…1d1c Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0012, t01=0x00f0}
0x1d1c…1d2a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0104}
0x1d2a…1d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0112}
0x1d34…1d5e Head {h00=0x0026, h01=0x0050, text=»* READ NEXT VTOC SECTOR AND EXIT«, t00=0x0012, t01=0x011c}
0x1d5e…1d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0146}
0x1d68…1d7c Head {h00=0x0010, h01=0x0050, text=»DMT115 EQU *«, t00=0x0012, t01=0x0150}
0x1d7c…1d94 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0012, t01=0x0164}
0x1d94…1dac Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x0012, t01=0x017c}
0x1dac…1dc2 (19, 0, 398) Head {h00=0x0012, h01=0x0050, text=» CF A14,DMTRBU«, t00=0x0013, t01=0x0004}
0x1dc2…1dda Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBCW,A8 «, t00=0x0013, t01=0x001a}
0x1dda…1dfc Head {h00=0x001e, h01=0x0050, text=» ADK A2,1 NEXT VTOC SECTOR«, t00=0x0013, t01=0x0032}
0x1dfc…1e12 Head {h00=0x0012, h01=0x0050, text=» LD A1,TASCVO «, t00=0x0013, t01=0x0054}
0x1e12…1e2a Head {h00=0x0014, h01=0x0050, text=» LD A1,TASVOL,A1«, t00=0x0013, t01=0x006a}
0x1e2a…1e4c Head {h00=0x001e, h01=0x0050, text=» CF A14,DMTGBU GET BUFFER «, t00=0x0013, t01=0x0082}
0x1e4c…1e70 Head {h00=0x0020, h01=0x0050, text=» DATA /5700 NOP. READ ALWAYS«, t00=0x0013, t01=0x00a4}
0x1e70…1e88 Head {h00=0x0014, h01=0x0050, text=» ADKL A3,BUFSTA «, t00=0x0013, t01=0x00c8}
0x1e88…1ea0 Head {h00=0x0014, h01=0x0050, text=» ST A3,ECBBA,A8 «, t00=0x0013, t01=0x00e0}
0x1ea0…1eb8 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBCW,A8 «, t00=0x0013, t01=0x00f8}
0x1eb8…1ecc Head {h00=0x0010, h01=0x0050, text=» LDK A7,/11 «, t00=0x0013, t01=0x0110}
0x1ecc…1ed8 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x0124}
0x1ed8…1ee8 Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0013, t01=0x0130}
0x1ee8…1f0c Head {h00=0x0020, h01=0x0050, text=» DATA DMTAR4 RESTART ADDRESS«, t00=0x0013, t01=0x0140}
0x1f0c…1f18 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0013, t01=0x0164}
0x1f18…1f2c Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0013, t01=0x0170}
0x1f2c…1f3a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0184}
0x1f3a…1f4e (20, 0, 400) Head {h00=0x0010, h01=0x0050, text=»DMTAR4 EQU *«, t00=0x0014, t01=0x0004}
0x1f4e…1f66 Head {h00=0x0014, h01=0x0050, text=» LDKL A14,DMTA14«, t00=0x0014, t01=0x0018}
0x1f66…1f7c Head {h00=0x0012, h01=0x0050, text=» CF A14,DMTIOC«, t00=0x0014, t01=0x0030}
0x1f7c…1f92 Head {h00=0x0012, h01=0x0050, text=» LD A9,TASVRL «, t00=0x0014, t01=0x0046}
0x1f92…1fa8 Head {h00=0x0012, h01=0x0050, text=» LD A11,TASASB«, t00=0x0014, t01=0x005c}
0x1fa8…1fd8 Head {h00=0x002c, h01=0x0050, text=» ADKL A11,2 POINTER TO FILENAME IN ASBLK«, t00=0x0014, t01=0x0072}
0x1fd8…1fea Head {h00=0x000e, h01=0x0050, text=» LDK A4,2 «, t00=0x0014, t01=0x00a2}
0x1fea…2000 Head {h00=0x0012, h01=0x0050, text=» CW A4,TASFIL «, t00=0x0014, t01=0x00b4}
0x2000…2028 Head {h00=0x0024, h01=0x0050, text=» RF(NE) DMT135 NOT MASTER INDEX «, t00=0x0014, t01=0x00ca}
0x2028…204e Head {h00=0x0022, h01=0x0050, text=» ADKL A11,14 MX FILE NAME ADDR«, t00=0x0014, t01=0x00f2}
0x204e…2062 Head {h00=0x0010, h01=0x0050, text=»DMT135 EQU *«, t00=0x0014, t01=0x0118}
0x2062…207e Head {h00=0x0018, h01=0x0050, text=» ADK A3,2 SKIP CYLID«, t00=0x0014, t01=0x012c}
0x207e…2092 Head {h00=0x0010, h01=0x0050, text=»DMT120 EQU *«, t00=0x0014, t01=0x0148}
0x2092…20be Head {h00=0x0028, h01=0x0050, text=» IM TASVRN INCREMENT VTOC RECORD NO «, t00=0x0014, t01=0x015c}
0x20be…20d0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0014, t01=0x0188}
0x20d0…20f6 Head {h00=0x0022, h01=0x0050, text=» ADR A4,A9 ADDRESS STATUS BYTE«, t00=0x0015, t01=0x000a}
0x20f6…2108 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A4«, t00=0x0015, t01=0x0030}
0x2108…211c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0015, t01=0x0042}
0x211c…213c Head {h00=0x001c, h01=0x0050, text=» ABL(Z) DMT250 NOT USED «, t00=0x0015, t01=0x0056}
0x213c…2168 Head {h00=0x0028, h01=0x0050, text=» SUR A4,A9 BACK TO START OF VTOC REC«, t00=0x0015, t01=0x0076}
0x2168…217c Head {h00=0x0010, h01=0x0050, text=» LDR A7,A11 «, t00=0x0015, t01=0x00a2}
0x217c…21a4 Head {h00=0x0024, h01=0x0050, text=» LDK A2,4 FILE NAME MAX 4 WORDS «, t00=0x0015, t01=0x00b6}
0x21a4…21b8 Head {h00=0x0010, h01=0x0050, text=»DMT150 EQU *«, t00=0x0015, t01=0x00de}
0x21b8…21cc Head {h00=0x0010, h01=0x0050, text=» LDR* A10,A4«, t00=0x0015, t01=0x00f2}
0x21cc…21e0 Head {h00=0x0010, h01=0x0050, text=» CWR* A10,A7«, t00=0x0015, t01=0x0106}
0x21e0…2200 Head {h00=0x001c, h01=0x0050, text=» ABL(NE) DMT250 NO MATCH«, t00=0x0015, t01=0x011a}
0x2200…2212 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0015, t01=0x013a}
0x2212…2244 Head {h00=0x002e, h01=0x0050, text=» RF(NP) DMT160 ALL 4 FILE NAME WORDS MATCH«, t00=0x0015, t01=0x014c}
0x2244…2256 Head {h00=0x000e, h01=0x0050, text=» ADK A4,2 «, t00=0x0015, t01=0x017e}
0x2256…2268 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x0015, t01=0x0190}
0x2268…228a Head {h00=0x001e, h01=0x0050, text=» RB DMT150 CHECK NEXT WORD«, t00=0x0016, t01=0x0012}
0x228a…2294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0034}
0x2294…22c0 Head {h00=0x0028, h01=0x0050, text=»* ONLY STANDARD FILES ARE HANDLED «, t00=0x0016, t01=0x003e}
0x22c0…22ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x006a}
0x22ca…22de Head {h00=0x0010, h01=0x0050, text=»DMT160 EQU *«, t00=0x0016, t01=0x0074}
0x22de…22f6 Head {h00=0x0014, h01=0x0050, text=» LC A2,VTFIOR,A3«, t00=0x0016, t01=0x0088}
0x22f6…231a Head {h00=0x0020, h01=0x0050, text=» CCK A2,'SS' STANDARD FILE ?«, t00=0x0016, t01=0x00a0}
0x231a…2334 Head {h00=0x0016, h01=0x0050, text=» RF(E) DMT165 YES «, t00=0x0016, t01=0x00c4}
0x2334…2358 Head {h00=0x0020, h01=0x0050, text=» CCK A2,'LL' LIBRARY FILE ? «, t00=0x0016, t01=0x00de}
0x2358…2372 Head {h00=0x0016, h01=0x0050, text=» ABL(NZ) DMT250 NO«, t00=0x0016, t01=0x0102}
0x2372…2396 Head {h00=0x0020, h01=0x0050, text=» LDK A2,0 FILE EXTENT NUMBER«, t00=0x0016, t01=0x011c}
0x2396…23a8 Head {h00=0x000e, h01=0x0050, text=» RF DMT167«, t00=0x0016, t01=0x0140}
0x23a8…23da Head {h00=0x002e, h01=0x0050, text=»DMT165 LD A2,VTFSNO,A3 FILE SECTION NUMBER«, t00=0x0016, t01=0x0152}
0x23da…23e8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0016, t01=0x0184}
0x23e8…23fc (23, 0, 400) Head {h00=0x0010, h01=0x0050, text=»DMT167 EQU *«, t00=0x0017, t01=0x0004}
0x23fc…2406 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0018}
0x2406…2438 Head {h00=0x002e, h01=0x0050, text=»* GET INFO FROM VTOC AND SAVE IN TASBLK «, t00=0x0017, t01=0x0022}
0x2438…2442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0054}
0x2442…246a Head {h00=0x0024, h01=0x0050, text=» LDR A4,A3 START OF VTOC RECORD «, t00=0x0017, t01=0x005e}
0x246a…24a6 Head {h00=0x0038, h01=0x0050, text=» LD A1,TASCXO CURRENT OFFSET INTO TASSEX AND TASXLB «, t00=0x0017, t01=0x0086}
0x24a6…24b8 Head {h00=0x000e, h01=0x0050, text=» SUK A1,4 «, t00=0x0017, t01=0x00c2}
0x24b8…24ce Head {h00=0x0012, h01=0x0050, text=» ST A1,TASCXO «, t00=0x0017, t01=0x00d4}
0x24ce…24f2 Head {h00=0x0020, h01=0x0050, text=» RF(NN) DMT170 <= 4 EXTENTS «, t00=0x0017, t01=0x00ea}
0x24f2…2504 Head {h00=0x000e, h01=0x0050, text=» LDK A7,9 «, t00=0x0017, t01=0x010e}
0x2504…2532 Head {h00=0x002a, h01=0x0050, text=» ABL DMTASX MORE THAN 4 EXTENTS EXIST «, t00=0x0017, t01=0x0120}
0x2532…2546 Head {h00=0x0010, h01=0x0050, text=»DMT170 EQU *«, t00=0x0017, t01=0x014e}
0x2546…256c Head {h00=0x0022, h01=0x0050, text=» ECR A2,A2 TO LEFT HALF OF A2 «, t00=0x0017, t01=0x0162}
0x256c…25a4 Head {h00=0x0034, h01=0x0050, text=» LC A2,VTFXNO+1,A4 EXT NO INTO RIGHT HALF OF A2 «, t00=0x0017, t01=0x0188}
0x25a4…25bc Head {h00=0x0014, h01=0x0050, text=» ST A2,TASSEX,A1«, t00=0x0018, t01=0x0030}
0x25bc…25d2 Head {h00=0x0012, h01=0x0050, text=» LD A6,TASCVO «, t00=0x0018, t01=0x0048}
0x25d2…2602 Head {h00=0x002c, h01=0x0050, text=» ST A6,TASSEX+2,A1 REMEMBER WHICH VOLUME«, t00=0x0018, t01=0x005e}
0x2602…2628 Head {h00=0x0022, h01=0x0050, text=» LD A2,VTFXLE,A4 EXTENT-LENGTH«, t00=0x0018, t01=0x008e}
0x2628…2640 Head {h00=0x0014, h01=0x0050, text=» ST A2,TASXLB,A1«, t00=0x0018, t01=0x00b4}
0x2640…2664 Head {h00=0x0020, h01=0x0050, text=» LD A2,VTFXBA,A4 EXTENT BASE«, t00=0x0018, t01=0x00cc}
0x2664…267e Head {h00=0x0016, h01=0x0050, text=» ST A2,TASXLB+2,A1«, t00=0x0018, t01=0x00f0}
0x267e…2696 Head {h00=0x0014, h01=0x0050, text=» LD A2,TASSEX,A1«, t00=0x0018, t01=0x010a}
0x2696…26be Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMT250 NOT FIRST EXTENT «, t00=0x0018, t01=0x0122}
0x26be…26cc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x014a}
0x26cc…26ea Head {h00=0x001a, h01=0x0050, text=»* FIRST FILE EXTENT «, t00=0x0018, t01=0x0158}
0x26ea…272a Head {h00=0x003c, h01=0x0050, text=»* CHECK IF AN FDB DESCRIBING THE FILE ALREADY EXISTS. «, t00=0x0018, t01=0x0176}
0x272a…2734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0026}
0x2734…274a Head {h00=0x0012, h01=0x0050, text=» LD A12,TASFDB«, t00=0x0019, t01=0x0030}
0x274a…2778 Head {h00=0x002a, h01=0x0050, text=» RF(Z) DMT190 FIRST TIME EXT #0 FOUND «, t00=0x0019, t01=0x0046}
0x2778…278a Head {h00=0x000e, h01=0x0050, text=» LDK A7,7 «, t00=0x0019, t01=0x0074}
0x278a…27b2 Head {h00=0x0024, h01=0x0050, text=» ABL DMTASX EXT #0 ALREADY FOUND«, t00=0x0019, t01=0x0086}
0x27b2…27c6 Head {h00=0x0010, h01=0x0050, text=»DMT190 EQU *«, t00=0x0019, t01=0x00ae}
0x27c6…27de Head {h00=0x0014, h01=0x0050, text=» LDKL A12,FDBSTA«, t00=0x0019, t01=0x00c2}
0x27de…27f2 Head {h00=0x0010, h01=0x0050, text=»DMT200 EQU *«, t00=0x0019, t01=0x00da}
0x27f2…2806 Head {h00=0x0010, h01=0x0050, text=» LDR* A5,A12«, t00=0x0019, t01=0x00ee}
0x2806…281a Head {h00=0x0010, h01=0x0050, text=» ANK A5,/01 «, t00=0x0019, t01=0x0102}
0x281a…2834 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMT210 FREE«, t00=0x0019, t01=0x0116}
0x2834…284e Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBEXT,A12 «, t00=0x0019, t01=0x0130}
0x284e…2866 Head {h00=0x0014, h01=0x0050, text=» CW A2,TASVOL,A6«, t00=0x0019, t01=0x014a}
0x2866…288c Head {h00=0x0022, h01=0x0050, text=» RF(NE) DMT210 NOT SAME VOLUME«, t00=0x0019, t01=0x0162}
0x288c…28a6 Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBVTO,A12 «, t00=0x0019, t01=0x0188}
0x28a6…28bc Head {h00=0x0012, h01=0x0050, text=» CW A2,TASVRN «, t00=0x001a, t01=0x0012}
0x28bc…28e4 Head {h00=0x0024, h01=0x0050, text=» RF(NE) DMT210 NOT SAME VTOC REC«, t00=0x001a, t01=0x0028}
0x28e4…28fe Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBMIA,A12 «, t00=0x001a, t01=0x0050}
0x28fe…2924 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMT205 INDEX ASS BEFOR«, t00=0x001a, t01=0x006a}
0x2924…293a Head {h00=0x0012, h01=0x0050, text=» LD A2,TASFIL «, t00=0x001a, t01=0x0090}
0x293a…296c Head {h00=0x002e, h01=0x0050, text=» ABL(E) DMT400 SAME VTOC RECORD FDB FOUND«, t00=0x001a, t01=0x00a6}
0x296c…2980 Head {h00=0x0010, h01=0x0050, text=»DMT205 EQU *«, t00=0x001a, t01=0x00d8}
0x2980…29a0 Head {h00=0x001c, h01=0x0050, text=» LDK A7,5 FILE CODE USED«, t00=0x001a, t01=0x00ec}
0x29a0…29b4 Head {h00=0x0010, h01=0x0050, text=» ABL DMTASX «, t00=0x001a, t01=0x010c}
0x29b4…29be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0120}
0x29be…29e6 Head {h00=0x0024, h01=0x0050, text=»DMT210 LDR* A12,A12 GET NEXT FDB«, t00=0x001a, t01=0x012a}
0x29e6…29fe Head {h00=0x0014, h01=0x0050, text=» ANKL A12,/FFFE «, t00=0x001a, t01=0x0152}
0x29fe…2a2a Head {h00=0x0028, h01=0x0050, text=» RB(NE) DMT200 MORE FDB:S TO SEARCH «, t00=0x001a, t01=0x016a}
0x2a2a…2a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0008}
0x2a34…2a68 Head {h00=0x0030, h01=0x0050, text=»* NO MATCHING FDB EXIST FIND A FREE FDB «, t00=0x001b, t01=0x0012}
0x2a68…2a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0046}
0x2a72…2a8a Head {h00=0x0014, h01=0x0050, text=» LDKL A12,FDBSTA«, t00=0x001b, t01=0x0050}
0x2a8a…2aa4 Head {h00=0x0016, h01=0x0050, text=»DMT220 LDR* A5,A12«, t00=0x001b, t01=0x0068}
0x2aa4…2ab8 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/01 «, t00=0x001b, t01=0x0082}
0x2ab8…2ad2 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMT230 FREE«, t00=0x001b, t01=0x0096}
0x2ad2…2af4 Head {h00=0x001e, h01=0x0050, text=» LDR* A12,A12 GET NEXT FDB«, t00=0x001b, t01=0x00b0}
0x2af4…2b0c Head {h00=0x0014, h01=0x0050, text=» ANKL A12,/FFFE «, t00=0x001b, t01=0x00d2}
0x2b0c…2b36 Head {h00=0x0026, h01=0x0050, text=» RB(NE) DMT220 MORE FDB:S TO CHECK«, t00=0x001b, t01=0x00ea}
0x2b36…2b48 Head {h00=0x000e, h01=0x0050, text=» LDK A7,3 «, t00=0x001b, t01=0x0114}
0x2b48…2b6c Head {h00=0x0020, h01=0x0050, text=» ABL DMTASX NO FDB AVAILABLE«, t00=0x001b, t01=0x0126}
0x2b6c…2b98 Head {h00=0x0028, h01=0x0050, text=»* INITIALIZE FDB ZERO FROM FDB+2«, t00=0x001b, t01=0x014a}
0x2b98…2ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0176}
0x2ba2…2bb6 Head {h00=0x0010, h01=0x0050, text=»DMT230 EQU *«, t00=0x001b, t01=0x0180}
0x2bb6…2bcc (28, 0, 398) Head {h00=0x0012, h01=0x0050, text=» ST A12,TASFDB«, t00=0x001c, t01=0x0004}
0x2bcc…2be0 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A12«, t00=0x001c, t01=0x001a}
0x2be0…2bf8 Head {h00=0x0014, h01=0x0050, text=» ADKL A10,QFDBFL«, t00=0x001c, t01=0x002e}
0x2bf8…2c0a Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x001c, t01=0x0046}
0x2c0a…2c1e Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x001c, t01=0x0058}
0x2c1e…2c36 Head {h00=0x0014, h01=0x0050, text=»DMT233 ADK A1,2 «, t00=0x001c, t01=0x006c}
0x2c36…2c4a Head {h00=0x0010, h01=0x0050, text=» CWR A1,A10 «, t00=0x001c, t01=0x0084}
0x2c4a…2c6a Head {h00=0x001c, h01=0x0050, text=» RF(E) DMT237 END OF FDB«, t00=0x001c, t01=0x0098}
0x2c6a…2c7c Head {h00=0x000e, h01=0x0050, text=» STR A2,A1«, t00=0x001c, t01=0x00b8}
0x2c7c…2c8e Head {h00=0x000e, h01=0x0050, text=» RB DMT233«, t00=0x001c, t01=0x00ca}
0x2c8e…2ca2 Head {h00=0x0010, h01=0x0050, text=»DMT237 EQU *«, t00=0x001c, t01=0x00dc}
0x2ca2…2cb8 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/8000«, t00=0x001c, t01=0x00f0}
0x2cb8…2cd0 Head {h00=0x0014, h01=0x0050, text=»* DEV NOT BUSY«, t00=0x001c, t01=0x0106}
0x2cd0…2ce8 Head {h00=0x0014, h01=0x0050, text=» ST A2,DWTST,A12«, t00=0x001c, t01=0x011e}
0x2ce8…2cfe Head {h00=0x0012, h01=0x0050, text=» LDKL A2,TIODM«, t00=0x001c, t01=0x0136}
0x2cfe…2d18 Head {h00=0x0016, h01=0x0050, text=» ST A2,DWTADR,A12 «, t00=0x001c, t01=0x014c}
0x2d18…2d30 Head {h00=0x0014, h01=0x0050, text=» LDKL A2,SECTLE «, t00=0x001c, t01=0x0166}
0x2d30…2d44 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x001c, t01=0x017e}
0x2d44…2d5c (29, 0, 400) Head {h00=0x0014, h01=0x0050, text=» ADKL A1,FDBECB «, t00=0x001d, t01=0x0004}
0x2d5c…2d74 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A1 «, t00=0x001d, t01=0x001c}
0x2d74…2d88 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/01 «, t00=0x001d, t01=0x0034}
0x2d88…2da8 Head {h00=0x001c, h01=0x0050, text=» ORRS A2,A12 SET USE BIT«, t00=0x001d, t01=0x0048}
0x2da8…2dc0 Head {h00=0x0014, h01=0x0050, text=» LC A2,VTLRN,A4 «, t00=0x001d, t01=0x0068}
0x2dc0…2dda Head {h00=0x0016, h01=0x0050, text=» SC A2,FDBLRN,A12 «, t00=0x001d, t01=0x0080}
0x2dda…2df4 Head {h00=0x0016, h01=0x0050, text=» LD A2,VTLRN+1,A4 «, t00=0x001d, t01=0x009a}
0x2df4…2e10 Head {h00=0x0018, h01=0x0050, text=» ST A2,FDBLRN+1,A12 «, t00=0x001d, t01=0x00b4}
0x2e10…2e28 Head {h00=0x0014, h01=0x0050, text=» LD A2,VTRLE,A4 «, t00=0x001d, t01=0x00d0}
0x2e28…2e42 Head {h00=0x0016, h01=0x0050, text=» ST A2,FDBRLE,A12 «, t00=0x001d, t01=0x00e8}
0x2e42…2e5a Head {h00=0x0014, h01=0x0050, text=» LC A2,VTBLF,A4 «, t00=0x001d, t01=0x0102}
0x2e5a…2e74 Head {h00=0x0016, h01=0x0050, text=» SC A2,FDBBLF,A12 «, t00=0x001d, t01=0x011a}
0x2e74…2e8c Head {h00=0x0014, h01=0x0050, text=» LC A2,VTNIF,A4 «, t00=0x001d, t01=0x0134}
0x2e8c…2ea6 Head {h00=0x0016, h01=0x0050, text=» SC A2,FDBNIF,A12 «, t00=0x001d, t01=0x014c}
0x2ea6…2ebc Head {h00=0x0012, h01=0x0050, text=» LD A2,VTKA,A4«, t00=0x001d, t01=0x0166}
0x2ebc…2ed4 Head {h00=0x0014, h01=0x0050, text=» ST A2,FDBKA,A12«, t00=0x001d, t01=0x017c}
0x2ed4…2eea (30, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LD A2,TASVRN «, t00=0x001e, t01=0x0004}
0x2eea…2f04 Head {h00=0x0016, h01=0x0050, text=» ST A2,FDBVTO,A12 «, t00=0x001e, t01=0x001a}
0x2f04…2f12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0034}
0x2f12…2f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0042}
0x2f1c…2f3e Head {h00=0x001e, h01=0x0050, text=»* CHECK NEXT VTOC RECORD«, t00=0x001e, t01=0x004c}
0x2f3e…2f48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x006e}
0x2f48…2f5c Head {h00=0x0010, h01=0x0050, text=»DMT250 EQU *«, t00=0x001e, t01=0x0078}
0x2f5c…2f78 Head {h00=0x0018, h01=0x0050, text=»* A3 = ADR 1ST REC«, t00=0x001e, t01=0x008c}
0x2f78…2f96 Head {h00=0x001a, h01=0x0050, text=»* A9 = VTOC REC LGTH«, t00=0x001e, t01=0x00a8}
0x2f96…2fa8 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A9«, t00=0x001e, t01=0x00c6}
0x2fa8…2fca Head {h00=0x001e, h01=0x0050, text=» ADK A3,1 SKIP STATUS BYTE«, t00=0x001e, t01=0x00d8}
0x2fca…2fdc Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x001e, t01=0x00fa}
0x2fdc…2ff4 Head {h00=0x0014, h01=0x0050, text=» SU A2,ECBBA,A8 «, t00=0x001e, t01=0x010c}
0x2ff4…300a Head {h00=0x0012, h01=0x0050, text=» CWK A2,QVTBLE«, t00=0x001e, t01=0x0124}
0x300a…3038 Head {h00=0x002a, h01=0x0050, text=» ABL(L) DMT120 MORE RECORDS IN BUFFER «, t00=0x001e, t01=0x013a}
0x3038…3060 Head {h00=0x0024, h01=0x0050, text=» ABL DMT110 GET NEXT VTOC SECTOR«, t00=0x001e, t01=0x0168}
0x3060…306a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0190}
0x306a…30aa Head {h00=0x003c, h01=0x0050, text=»* ALL VTOCS IN ALL VOLUMES ARE SEARCHED AT THIS POINT «, t00=0x001f, t01=0x000a}
0x30aa…30b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004a}
0x30b4…30c8 Head {h00=0x0010, h01=0x0050, text=»DMT300 EQU *«, t00=0x001f, t01=0x0054}
0x30c8…30da Head {h00=0x000e, h01=0x0050, text=» LDK A3,16«, t00=0x001f, t01=0x0068}
0x30da…30f0 Head {h00=0x0012, h01=0x0050, text=» SU A3,TASCXO «, t00=0x001f, t01=0x007a}
0x30f0…3106 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DMT310«, t00=0x001f, t01=0x0090}
0x3106…3118 Head {h00=0x000e, h01=0x0050, text=» LDK A7,6 «, t00=0x001f, t01=0x00a6}
0x3118…313c Head {h00=0x0020, h01=0x0050, text=» RF DMTASX FILE NAME UNKNOWN«, t00=0x001f, t01=0x00b8}
0x313c…3150 Head {h00=0x0010, h01=0x0050, text=»DMT310 EQU *«, t00=0x001f, t01=0x00dc}
0x3150…3166 Head {h00=0x0012, h01=0x0050, text=» LD A12,TASFDB«, t00=0x001f, t01=0x00f0}
0x3166…317c Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DMT320«, t00=0x001f, t01=0x0106}
0x317c…318e Head {h00=0x000e, h01=0x0050, text=» LDK A7,7 «, t00=0x001f, t01=0x011c}
0x318e…31b8 Head {h00=0x0026, h01=0x0050, text=» RF DMTASX FIRST EXTENT IS MISSING«, t00=0x001f, t01=0x012e}
0x31b8…31c6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0158}
0x31c6…31d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0166}
0x31d0…320e Head {h00=0x003a, h01=0x0050, text=»* PUT EXTENT INFORMATION INTO FDB IN ASCENDING ORDER«, t00=0x001f, t01=0x0170}
0x320e…324a Head {h00=0x0038, h01=0x0050, text=»* ACCORDING TO INCREASING SECTOR NO AND EXTENT NO «, t00=0x0020, t01=0x001e}
0x324a…3254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x005a}
0x3254…3268 Head {h00=0x0010, h01=0x0050, text=»DMT320 EQU *«, t00=0x0020, t01=0x0064}
0x3268…3272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0078}
0x3272…32b6 Head {h00=0x0040, h01=0x0050, text=»* CHECK IF RECORD BUFFERS ARE LARGE ENOUGH FOR INDEX FILE «, t00=0x0020, t01=0x0082}
0x32b6…32c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00c6}
0x32c0…32d6 Head {h00=0x0012, h01=0x0050, text=» LD A6,TASFIL «, t00=0x0020, t01=0x00d0}
0x32d6…32fa Head {h00=0x0020, h01=0x0050, text=» RF(Z) DMT330 DATA FILE ASS «, t00=0x0020, t01=0x00e6}
0x32fa…3322 Head {h00=0x0024, h01=0x0050, text=» LD A6,FDBRLE,A12 RECORD LENGTH «, t00=0x0020, t01=0x010a}
0x3322…3334 Head {h00=0x000e, h01=0x0050, text=» ADK A6,2 «, t00=0x0020, t01=0x0132}
0x3334…3352 Head {h00=0x001a, h01=0x0050, text=» SRL A6,1 NR OF WORDS «, t00=0x0020, t01=0x0144}
0x3352…337c Head {h00=0x0026, h01=0x0050, text=» CWK A6,RECBFZ RECORD BUFFER SIZE «, t00=0x0020, t01=0x0162}
0x337c…3396 Head {h00=0x0016, h01=0x0050, text=» RF(NG) DMT330 OK «, t00=0x0020, t01=0x018c}
0x3396…33a8 Head {h00=0x000e, h01=0x0050, text=» LDK A7,12«, t00=0x0021, t01=0x0016}
0x33a8…33d6 Head {h00=0x002a, h01=0x0050, text=» RF DMTASX RECORD BUFFER IS TOO SMALL «, t00=0x0021, t01=0x0028}
0x33d6…33ea Head {h00=0x0010, h01=0x0050, text=»DMT330 EQU *«, t00=0x0021, t01=0x0056}
0x33ea…33fe Head {h00=0x0010, h01=0x0050, text=» LDR A6,A12 «, t00=0x0021, t01=0x006a}
0x33fe…3412 Head {h00=0x0010, h01=0x0050, text=»* FDB ADDR«, t00=0x0021, t01=0x007e}
0x3412…342a Head {h00=0x0014, h01=0x0050, text=» ADKL A6,FDBEXT «, t00=0x0021, t01=0x0092}
0x342a…343c Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0021, t01=0x00aa}
0x343c…344e Head {h00=0x000e, h01=0x0050, text=» LDR A5,A3«, t00=0x0021, t01=0x00bc}
0x344e…3472 Head {h00=0x0020, h01=0x0050, text=» SRL A5,2 NUMBER OF EXTENTS «, t00=0x0021, t01=0x00ce}
0x3472…3486 Head {h00=0x0010, h01=0x0050, text=»DMT340 EQU *«, t00=0x0021, t01=0x00f2}
0x3486…3498 Head {h00=0x000e, h01=0x0050, text=» LDK A4,16«, t00=0x0021, t01=0x0106}
0x3498…34ac Head {h00=0x0010, h01=0x0050, text=»DMT350 EQU *«, t00=0x0021, t01=0x0118}
0x34ac…34be Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0021, t01=0x012c}
0x34be…34d6 Head {h00=0x0014, h01=0x0050, text=» CW A2,TASSEX,A4«, t00=0x0021, t01=0x013e}
0x34d6…34f2 Head {h00=0x0018, h01=0x0050, text=» RF(E) DMT360 MATCH «, t00=0x0021, t01=0x0156}
0x34f2…3508 Head {h00=0x0012, h01=0x0050, text=» CW A4,TASCXO «, t00=0x0021, t01=0x0172}
0x3508…3534 Head {h00=0x0028, h01=0x0050, text=» RB(NE) DMT350 MORE EXTENTS TO CHECK«, t00=0x0021, t01=0x0188}
0x3534…353e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0024}
0x353e…356e Head {h00=0x002c, h01=0x0050, text=»* THE EXTENT SEARCHED FOR IS NOT FOUND«, t00=0x0022, t01=0x002e}
0x356e…35a4 Head {h00=0x0032, h01=0x0050, text=»* CHECK IF RIGHT HALF OF A2 = 0 (EXT-NO = 0)«, t00=0x0022, t01=0x005e}
0x35a4…35ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0094}
0x35ae…35c0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0022, t01=0x009e}
0x35c0…35d4 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0022, t01=0x00b0}
0x35d4…35fc Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMT370 TRY NEXT SECTION «, t00=0x0022, t01=0x00c4}
0x35fc…3606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00ec}
0x3606…361a Head {h00=0x0010, h01=0x0050, text=»DMT355 EQU *«, t00=0x0022, t01=0x00f6}
0x361a…362c Head {h00=0x000e, h01=0x0050, text=» LDK A7,7 «, t00=0x0022, t01=0x010a}
0x362c…3654 Head {h00=0x0024, h01=0x0050, text=» RF DMTASX FILE SECTION MISSING «, t00=0x0022, t01=0x011c}
0x3654…3668 Head {h00=0x0010, h01=0x0050, text=»DMT360 EQU *«, t00=0x0022, t01=0x0144}
0x3668…3672 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0158}
0x3672…36a0 Head {h00=0x002a, h01=0x0050, text=»* MOVE INFO ABOUT THIS EXTENT TO FDB«, t00=0x0022, t01=0x0162}
0x36a0…36aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0190}
0x36aa…36c4 Head {h00=0x0016, h01=0x0050, text=» LD A1,TASSEX+2,A4«, t00=0x0023, t01=0x000a}
0x36c4…36dc Head {h00=0x0014, h01=0x0050, text=» LD A1,TASVOL,A1«, t00=0x0023, t01=0x0024}
0x36dc…36f4 Head {h00=0x0014, h01=0x0050, text=» ST A1,EXTDMI,A6«, t00=0x0023, t01=0x003c}
0x36f4…370c Head {h00=0x0014, h01=0x0050, text=» LD A1,TASXLB,A4«, t00=0x0023, t01=0x0054}
0x370c…3724 Head {h00=0x0014, h01=0x0050, text=» ST A1,EXTLEN,A6«, t00=0x0023, t01=0x006c}
0x3724…373e Head {h00=0x0016, h01=0x0050, text=» LD A1,TASXLB+2,A4«, t00=0x0023, t01=0x0084}
0x373e…3756 Head {h00=0x0014, h01=0x0050, text=» ST A1,EXTBAS,A6«, t00=0x0023, t01=0x009e}
0x3756…3768 Head {h00=0x000e, h01=0x0050, text=» ADK A6,6 «, t00=0x0023, t01=0x00b6}
0x3768…377a Head {h00=0x000e, h01=0x0050, text=» SUK A5,1 «, t00=0x0023, t01=0x00c8}
0x377a…37a4 Head {h00=0x0026, h01=0x0050, text=» RF(NP) DMT500 ALL EXTENTS HANDLED«, t00=0x0023, t01=0x00da}
0x37a4…37ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0104}
0x37ae…37ec Head {h00=0x003a, h01=0x0050, text=»* FIND NEXT FILE-SECTION-NO, FILE-EXT-NO COMBINATION«, t00=0x0023, t01=0x010e}
0x37ec…3806 Head {h00=0x0016, h01=0x0050, text=»* TO SEARCH FOR «, t00=0x0023, t01=0x014c}
0x3806…3810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0166}
0x3810…3822 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0023, t01=0x0170}
0x3822…3836 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0023, t01=0x0182}
0x3836…3848 Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0024, t01=0x0008}
0x3848…386e Head {h00=0x0022, h01=0x0050, text=» RF(NE) DMT380 NOT EXT-NO = 3 «, t00=0x0024, t01=0x001a}
0x386e…3882 Head {h00=0x0010, h01=0x0050, text=»DMT370 EQU *«, t00=0x0024, t01=0x0040}
0x3882…3894 Head {h00=0x000e, h01=0x0050, text=» ECR A1,A2«, t00=0x0024, t01=0x0054}
0x3894…38a8 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0024, t01=0x0066}
0x38a8…38ba Head {h00=0x000e, h01=0x0050, text=» SUK A1,3 «, t00=0x0024, t01=0x007a}
0x38ba…38de Head {h00=0x0020, h01=0x0050, text=» RB(E) DMT355 SECTION-NO = 3«, t00=0x0024, t01=0x008c}
0x38de…3904 Head {h00=0x0022, h01=0x0050, text=» ADK A1,4 INCREMENT SECTION-NO«, t00=0x0024, t01=0x00b0}
0x3904…3922 Head {h00=0x001a, h01=0x0050, text=» ECR A2,A1 EXT-NO = 0 «, t00=0x0024, t01=0x00d6}
0x3922…3934 Head {h00=0x000e, h01=0x0050, text=» RB DMT340«, t00=0x0024, t01=0x00f4}
0x3934…395c Head {h00=0x0024, h01=0x0050, text=»DMT380 ADK A2,1 INCREMENT EXT-NO«, t00=0x0024, t01=0x0106}
0x395c…396e Head {h00=0x000e, h01=0x0050, text=» RB DMT340«, t00=0x0024, t01=0x012e}
0x396e…397c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0024, t01=0x0140}
0x397c…3986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014e}
0x3986…39b2 Head {h00=0x0028, h01=0x0050, text=»* PUT FDB ADDRESS INTO TTAB/CD:TAB«, t00=0x0024, t01=0x0158}
0x39b2…39bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0184}
0x39bc…39d0 Head {h00=0x0010, h01=0x0050, text=»DMT400 EQU *«, t00=0x0024, t01=0x018e}
0x39d0…39e2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0025, t01=0x0012}
0x39e2…39f6 Head {h00=0x0010, h01=0x0050, text=»DMTASX EQU *«, t00=0x0025, t01=0x0024}
0x39f6…3a26 Head {h00=0x002c, h01=0x0050, text=» LD A2,TASTBE TTAB/CDTAB FILE CODE ADDR «, t00=0x0025, t01=0x0038}
0x3a26…3a38 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A7«, t00=0x0025, t01=0x0068}
0x3a38…3a5c Head {h00=0x0020, h01=0x0050, text=» RF(Z) DMT420 CORRECT RETURN«, t00=0x0025, t01=0x007a}
0x3a5c…3a7c Head {h00=0x001c, h01=0x0050, text=» CM -1,A2 ZERO FILE CODE«, t00=0x0025, t01=0x009e}
0x3a7c…3a86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00be}
0x3a86…3aae Head {h00=0x0024, h01=0x0050, text=»* REMOVE FDB WITH MASTER INDEX«, t00=0x0025, t01=0x00c8}
0x3aae…3ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00f0}
0x3ab8…3ae0 Head {h00=0x0024, h01=0x0050, text=» LD A4,TASMXA MASTER INDEX ADDR «, t00=0x0025, t01=0x00fa}
0x3ae0…3b06 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMT410 NO MASTER INDEX «, t00=0x0025, t01=0x0122}
0x3b06…3b18 Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0025, t01=0x0148}
0x3b18…3b44 Head {h00=0x0028, h01=0x0050, text=» LD A2,MXIND SIEZE MASTERINDEXINDEX «, t00=0x0025, t01=0x015a}
0x3b44…3b56 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0025, t01=0x0186}
0x3b56…3b6a Head {h00=0x0010, h01=0x0050, text=»DMT405 EQU *«, t00=0x0026, t01=0x0008}
0x3b6a…3b88 Head {h00=0x001a, h01=0x0050, text=» SUK A2,4 NEXT OFFSET «, t00=0x0026, t01=0x001c}
0x3b88…3ba2 Head {h00=0x0016, h01=0x0050, text=» RF(NN) DMT407 OK «, t00=0x0026, t01=0x003a}
0x3ba2…3bd0 Head {h00=0x002a, h01=0x0050, text=» RF DMT408 MASTER INDEX MUST BE FOUND «, t00=0x0026, t01=0x0054}
0x3bd0…3bf0 Head {h00=0x001c, h01=0x0050, text=»DMT407 CW A4,MXIND+2,A2 «, t00=0x0026, t01=0x0082}
0x3bf0…3c12 Head {h00=0x001e, h01=0x0050, text=» RB(NE) DMT405 NEXT ENTRY «, t00=0x0026, t01=0x00a2}
0x3c12…3c28 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/7FFF«, t00=0x0026, t01=0x00c4}
0x3c28…3c52 Head {h00=0x0026, h01=0x0050, text=» ANS A4,MXIND+4,A2 SET ENTRY FREE «, t00=0x0026, t01=0x00da}
0x3c52…3c6a Head {h00=0x0014, h01=0x0050, text=»DMT408 ENB ENB«, t00=0x0026, t01=0x0104}
0x3c6a…3c7e Head {h00=0x0010, h01=0x0050, text=»DMT410 EQU *«, t00=0x0026, t01=0x011c}
0x3c7e…3c94 Head {h00=0x0012, h01=0x0050, text=» LD A3,TASFDB «, t00=0x0026, t01=0x0130}
0x3c94…3cb6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT430 NO FDB USED «, t00=0x0026, t01=0x0146}
0x3cb6…3ccc Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FFFE«, t00=0x0026, t01=0x0168}
0x3ccc…3cf2 Head {h00=0x0022, h01=0x0050, text=» ANRS A2,A3 CLEAR FDB USE BIT «, t00=0x0026, t01=0x017e}
0x3cf2…3d04 Head {h00=0x000e, h01=0x0050, text=» RF DMT430«, t00=0x0027, t01=0x0014}
0x3d04…3d18 Head {h00=0x0010, h01=0x0050, text=»DMT420 EQU *«, t00=0x0027, t01=0x0026}
0x3d18…3d36 Head {h00=0x001a, h01=0x0050, text=» ST A12,1,A2 FDB ADDR «, t00=0x0027, t01=0x003a}
0x3d36…3d4a Head {h00=0x0010, h01=0x0050, text=»DMT430 EQU *«, t00=0x0027, t01=0x0058}
0x3d4a…3d5c Head {h00=0x000e, h01=0x0050, text=» LDR A8,A8«, t00=0x0027, t01=0x006c}
0x3d5c…3d7c Head {h00=0x001c, h01=0x0050, text=» RF(Z) DMT440 NO BUFFER «, t00=0x0027, t01=0x007e}
0x3d7c…3d94 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0027, t01=0x009e}
0x3d94…3dac Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x0027, t01=0x00b6}
0x3dac…3dd2 Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0027, t01=0x00ce}
0x3dd2…3de6 Head {h00=0x0010, h01=0x0050, text=»DMT440 EQU *«, t00=0x0027, t01=0x00f4}
0x3de6…3e16 Head {h00=0x002c, h01=0x0050, text=» CF A14,CLRBUF RELEASE ALL FREE BUFFERS «, t00=0x0027, t01=0x0108}
0x3e16…3e40 Head {h00=0x0026, h01=0x0050, text=» CF A14,TASCAQ CHECK ASSIGN QUEUE «, t00=0x0027, t01=0x0138}
0x3e40…3e68 Head {h00=0x0024, h01=0x0050, text=» CF A15,QTJOB QUEUE CALLING TASK«, t00=0x0027, t01=0x0162}
0x3e68…3e74 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0027, t01=0x018a}
0x3e74…3e80 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0028, t01=0x0008}
0x3e80…3e90 Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0028, t01=0x0014}
0x3e90…3e9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0024}
0x3e9e…3eb2 Head {h00=0x0010, h01=0x0050, text=»DMT500 EQU *«, t00=0x0028, t01=0x0032}
0x3eb2…3ec8 Head {h00=0x0012, h01=0x0050, text=» LD A6,TASFIL «, t00=0x0028, t01=0x0046}
0x3ec8…3ee8 Head {h00=0x001c, h01=0x0050, text=» ABL(Z) DMT700 DATA FILE«, t00=0x0028, t01=0x005c}
0x3ee8…3efe Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x0028, t01=0x007c}
0x3efe…3f1a Head {h00=0x0018, h01=0x0050, text=» LDKL A7,-1 REQ ERR «, t00=0x0028, t01=0x0092}
0x3f1a…3f2c Head {h00=0x000e, h01=0x0050, text=» RB DMTASX«, t00=0x0028, t01=0x00ae}
0x3f2c…3f38 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x00c0}
0x3f38…3f4e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0028, t01=0x00cc}
0x3f4e…3f60 Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0028, t01=0x00e2}
0x3f60…3f82 Head {h00=0x001e, h01=0x0050, text=» ABL(Z) DMT600 INDEX FILE «, t00=0x0028, t01=0x00f4}
0x3f82…3f90 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0028, t01=0x0116}
0x3f90…3f9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0124}
0x3f9a…3fc0 Head {h00=0x0022, h01=0x0050, text=»* THIS IS MASTER INDEX LOOP.«, t00=0x0028, t01=0x012e}
0x3fc0…3ffc Head {h00=0x0038, h01=0x0050, text=»* CONNECT FDB TO FILE CODE IN DMTASK TTAB AND READ«, t00=0x0028, t01=0x0154}
0x3ffc…403c Head {h00=0x003c, h01=0x0050, text=»* MASTER INDEX WITH SEQUENTIAL READ ON THIS FILE CODE «, t00=0x0028, t01=0x0190}
0x403c…4046 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0040}
0x4046…4066 Head {h00=0x001c, h01=0x0050, text=» LD A7,TASTID DMTASK ID «, t00=0x0029, t01=0x004a}
0x4066…4072 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0029, t01=0x006a}
0x4072…4098 Head {h00=0x0022, h01=0x0050, text=» CF A15,FNDTID TTAB ADDR TO A2«, t00=0x0029, t01=0x0076}
0x4098…40a4 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0029, t01=0x009c}
0x40a4…40ba Head {h00=0x0012, h01=0x0050, text=» ST A2,TASSPW «, t00=0x0029, t01=0x00a8}
0x40ba…40e0 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,/0100 INDEX DATA FILE«, t00=0x0029, t01=0x00be}
0x40e0…40f6 Head {h00=0x0012, h01=0x0050, text=» LD A1,TASASB «, t00=0x0029, t01=0x00e4}
0x40f6…4114 Head {h00=0x001a, h01=0x0050, text=» LC A3,1,A1 FILE CODE «, t00=0x0029, t01=0x00fa}
0x4114…412c Head {h00=0x0014, h01=0x0050, text=» SC A3,TASECB+1 «, t00=0x0029, t01=0x0118}
0x412c…4152 Head {h00=0x0022, h01=0x0050, text=» ST A3,TTB:TD+2,A2 TTAB ENTRY «, t00=0x0029, t01=0x0130}
0x4152…4176 Head {h00=0x0020, h01=0x0050, text=» ST A12,TTB:TD+4,A2 FDB ADR «, t00=0x0029, t01=0x0156}
0x4176…418e Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0029, t01=0x017a}
0x418e…41a6 (42, 0, 400) Head {h00=0x0014, h01=0x0050, text=» SUKL A3,BUFSTA «, t00=0x002a, t01=0x0004}
0x41a6…41cc Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x002a, t01=0x001c}
0x41cc…41d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0042}
0x41d6…420a Head {h00=0x0030, h01=0x0050, text=»* CALC NO OF WORDS NEEDED IN MASTRE INDEX «, t00=0x002a, t01=0x004c}
0x420a…4214 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0080}
0x4214…4236 Head {h00=0x001e, h01=0x0050, text=» LD A6,FDBRLE,A12 REC LGTH«, t00=0x002a, t01=0x008a}
0x4236…425c Head {h00=0x0022, h01=0x0050, text=» LD A7,FDBLRN+1,A12 NO OF RECS«, t00=0x002a, t01=0x00ac}
0x425c…428c Head {h00=0x002c, h01=0x0050, text=» CF A14,MPYMOD A1,A2=NO OF BYTES NEEDED «, t00=0x002a, t01=0x00d2}
0x428c…429e Head {h00=0x000e, h01=0x0050, text=» SRC A1,1 «, t00=0x002a, t01=0x0102}
0x429e…42c2 Head {h00=0x0020, h01=0x0050, text=» ORR A2,A1 GET MOST SIGN BIT«, t00=0x002a, t01=0x0114}
0x42c2…42d4 Head {h00=0x000e, h01=0x0050, text=» ADK A2,5 «, t00=0x002a, t01=0x0138}
0x42d4…42f8 Head {h00=0x0020, h01=0x0050, text=» SRL A2,1 NO OF WORDS NEEDED«, t00=0x002a, t01=0x014a}
0x42f8…4318 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DMT570 WRONG SIZE«, t00=0x002a, t01=0x016e}
0x4318…4324 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002a, t01=0x018e}
0x4324…4346 Head {h00=0x001e, h01=0x0050, text=» LD A4,MXIND LENGTH MXIND «, t00=0x002b, t01=0x000a}
0x4346…4364 Head {h00=0x001a, h01=0x0050, text=» SUK A4,4 MAX A5 VALUE«, t00=0x002b, t01=0x002c}
0x4364…437e Head {h00=0x0016, h01=0x0050, text=» LDKL A5,-2 OFFSET«, t00=0x002b, t01=0x004a}
0x437e…4392 Head {h00=0x0010, h01=0x0050, text=»DMT540 EQU *«, t00=0x002b, t01=0x0064}
0x4392…43ae Head {h00=0x0018, h01=0x0050, text=» ADK A5,4 GET ENTRY «, t00=0x002b, t01=0x0078}
0x43ae…43c0 Head {h00=0x000e, h01=0x0050, text=» CWR A5,A4«, t00=0x002b, t01=0x0094}
0x43c0…43e4 Head {h00=0x0020, h01=0x0050, text=» RF(G) DMT570 NO ENTRY FOUND«, t00=0x002b, t01=0x00a6}
0x43e4…43fc Head {h00=0x0014, h01=0x0050, text=» LD A3,MXIND,A5 «, t00=0x002b, t01=0x00ca}
0x43fc…441c Head {h00=0x001c, h01=0x0050, text=» RB(Z) DMT540 ZERO ENTRY«, t00=0x002b, t01=0x00e2}
0x441c…4436 Head {h00=0x0016, h01=0x0050, text=» LD A6,MXIND+2,A5 «, t00=0x002b, t01=0x0102}
0x4436…4456 Head {h00=0x001c, h01=0x0050, text=» RB(N) DMT540 ENTRY USED«, t00=0x002b, t01=0x011c}
0x4456…447a Head {h00=0x0020, h01=0x0050, text=» SUR A6,A2 NO OF SPARE WORDS«, t00=0x002b, t01=0x013c}
0x447a…44a4 Head {h00=0x0026, h01=0x0050, text=» RB(N) DMT540 LARGER ENTRY NEEDED «, t00=0x002b, t01=0x0160}
0x44a4…44ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x018a}
0x44ae…44d0 (44, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* SUFFICIENT SPACE FOUND«, t00=0x002c, t01=0x0004}
0x44d0…44da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0026}
0x44da…44fa Head {h00=0x001c, h01=0x0050, text=» LDKL A1,/8000 USED BIT «, t00=0x002c, t01=0x0030}
0x44fa…4524 Head {h00=0x0026, h01=0x0050, text=» ORS A1,MXIND+2,A5 MARK ENTRY USED«, t00=0x002c, t01=0x0050}
0x4524…454c Head {h00=0x0024, h01=0x0050, text=» ST A3,TASMXA MASTER INDEX ADDR «, t00=0x002c, t01=0x007a}
0x454c…4566 Head {h00=0x0016, h01=0x0050, text=» ST A3,FDBMIA,A12 «, t00=0x002c, t01=0x00a2}
0x4566…4582 Head {h00=0x0018, h01=0x0050, text=» LD A7,FDBLRN+1,A12 «, t00=0x002c, t01=0x00bc}
0x4582…45a2 Head {h00=0x001c, h01=0x0050, text=» STR A7,A3 NO OF ENTRIES«, t00=0x002c, t01=0x00d8}
0x45a2…45bc Head {h00=0x0016, h01=0x0050, text=» LD A1,FDBRLE,A12 «, t00=0x002c, t01=0x00f8}
0x45bc…45dc Head {h00=0x001c, h01=0x0050, text=» ST A1,2,A3 ENTRY LENGTH«, t00=0x002c, t01=0x0112}
0x45dc…45fe Head {h00=0x001e, h01=0x0050, text=» ADK A3,4 SKIP MX HEADRER «, t00=0x002c, t01=0x0132}
0x45fe…4622 Head {h00=0x0020, h01=0x0050, text=» ST A3,ECBBA,A8 BUFFER ADDR «, t00=0x002c, t01=0x0154}
0x4622…4642 Head {h00=0x001c, h01=0x0050, text=» ST A1,ECBRL,A8 REQ LGTH«, t00=0x002c, t01=0x0178}
0x4642…4674 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION«, t00=0x002d, t01=0x0008}
0x4674…4692 Head {h00=0x001a, h01=0x0050, text=» CWR A1,A4 MXIND ENTRY«, t00=0x002d, t01=0x003a}
0x4692…46b4 Head {h00=0x001e, h01=0x0050, text=» RF(NL) DMT590 LAST ENTRY «, t00=0x002d, t01=0x0058}
0x46b4…46ce Head {h00=0x0016, h01=0x0050, text=» LD A3,MXIND+6,A1 «, t00=0x002d, t01=0x007a}
0x46ce…46f4 Head {h00=0x0022, h01=0x0050, text=» RF(N) DMT590 NEXT ENTRY USED «, t00=0x002d, t01=0x0094}
0x46f4…46fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ba}
0x46fe…4728 Head {h00=0x0026, h01=0x0050, text=»* MOVE SPARE WORDS TO NEXT ENTRY«, t00=0x002d, t01=0x00c4}
0x4728…4732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ee}
0x4732…474c Head {h00=0x0016, h01=0x0050, text=» LD A2,MXIND+2,A1 «, t00=0x002d, t01=0x00f8}
0x474c…4772 Head {h00=0x0022, h01=0x0050, text=» ANKL A2,/7FFF REMOVE USE BIT «, t00=0x002d, t01=0x0112}
0x4772…4784 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A6«, t00=0x002d, t01=0x0138}
0x4784…47a2 Head {h00=0x001a, h01=0x0050, text=» ORKL A2,/8000 USE BIT«, t00=0x002d, t01=0x014a}
0x47a2…47bc Head {h00=0x0016, h01=0x0050, text=» ST A2,MXIND+2,A1 «, t00=0x002d, t01=0x0168}
0x47bc…47ee Head {h00=0x002e, h01=0x0050, text=» ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER «, t00=0x002d, t01=0x0182}
0x47ee…4816 Head {h00=0x0024, h01=0x0050, text=» LD A7,MXIND,A1 PREVIOUS POINTER«, t00=0x002e, t01=0x0024}
0x4816…4834 Head {h00=0x001a, h01=0x0050, text=» SLL A2,1 NO OF BYTES «, t00=0x002e, t01=0x004c}
0x4834…4846 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A2«, t00=0x002e, t01=0x006a}
0x4846…4860 Head {h00=0x0016, h01=0x0050, text=» ST A7,MXIND+4,A1 «, t00=0x002e, t01=0x007c}
0x4860…486e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0096}
0x486e…4882 Head {h00=0x0010, h01=0x0050, text=»DMT590 EQU *«, t00=0x002e, t01=0x00a4}
0x4882…488e Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002e, t01=0x00b8}
0x488e…4898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00c4}
0x4898…48ce Head {h00=0x0032, h01=0x0050, text=»* NOW READ MASTER INDEX WITH SEQUENTIAL READ«, t00=0x002e, t01=0x00ce}
0x48ce…48e6 Head {h00=0x0014, h01=0x0050, text=»* A8 = TASECB «, t00=0x002e, t01=0x0104}
0x48e6…4922 Head {h00=0x0038, h01=0x0050, text=»* OTHER REQ TO THE SAME FILE CODE ARE NOT POSSIBLE«, t00=0x002e, t01=0x011c}
0x4922…4962 Head {h00=0x003c, h01=0x0050, text=»* BECAUSE AN INDEX FILE MUST ALWAYS BE ASSIGNED COMMON«, t00=0x002e, t01=0x0158}
0x4962…496c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0008}
0x496c…4980 Head {h00=0x0010, h01=0x0050, text=»DMT550 EQU *«, t00=0x002f, t01=0x0012}
0x4980…49aa Head {h00=0x0026, h01=0x0050, text=» LDK A7,/42 SEQ READ,NOWAIT,NO EA «, t00=0x002f, t01=0x0026}
0x49aa…49b6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002f, t01=0x0050}
0x49b6…49c6 Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x002f, t01=0x005c}
0x49c6…49da Head {h00=0x0010, h01=0x0050, text=» DATA DMTAR5«, t00=0x002f, t01=0x006c}
0x49da…49e6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x002f, t01=0x0080}
0x49e6…49fa Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x002f, t01=0x008c}
0x49fa…4a0e Head {h00=0x0010, h01=0x0050, text=»DMTAR5 EQU *«, t00=0x002f, t01=0x00a0}
0x4a0e…4a34 Head {h00=0x0022, h01=0x0050, text=» LDKL A14,DMTA14 RESTORE STACK«, t00=0x002f, t01=0x00b4}
0x4a34…4a54 Head {h00=0x001c, h01=0x0050, text=» LDKL A8,TASECB ECB ADDR«, t00=0x002f, t01=0x00da}
0x4a54…4a6c Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRC,A8 «, t00=0x002f, t01=0x00fa}
0x4a6c…4a96 Head {h00=0x0026, h01=0x0050, text=» ANKL A2,/FEFF BIT 7 ONLY RETRIES «, t00=0x002f, t01=0x0112}
0x4a96…4ab4 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DMT560 NO ERROR«, t00=0x002f, t01=0x013c}
0x4ab4…4abe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x015a}
0x4abe…4ae4 Head {h00=0x0022, h01=0x0050, text=»* REMOVE THE ONLY CRN BUFFER«, t00=0x002f, t01=0x0164}
0x4ae4…4aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x018a}
0x4aee…4b0c (48, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LD A4,TASFDB FDB ADDR«, t00=0x0030, t01=0x0004}
0x4b0c…4b30 Head {h00=0x0020, h01=0x0050, text=» LD A5,FDBCRL,A4 CRN BUF ADR«, t00=0x0030, t01=0x0022}
0x4b30…4b4c Head {h00=0x0018, h01=0x0050, text=» RF(Z) DMT553 NO CRN«, t00=0x0030, t01=0x0046}
0x4b4c…4b62 Head {h00=0x0012, h01=0x0050, text=» CM FDBCRL,A4 «, t00=0x0030, t01=0x0062}
0x4b62…4b6e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0030, t01=0x0078}
0x4b6e…4b84 Head {h00=0x0012, h01=0x0050, text=» LD A6,CRNQUE «, t00=0x0030, t01=0x0084}
0x4b84…4b96 Head {h00=0x000e, h01=0x0050, text=» STR A6,A5«, t00=0x0030, t01=0x009a}
0x4b96…4bac Head {h00=0x0012, h01=0x0050, text=» ST A5,CRNQUE «, t00=0x0030, t01=0x00ac}
0x4bac…4bb8 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0030, t01=0x00c2}
0x4bb8…4bcc Head {h00=0x0010, h01=0x0050, text=»DMT553 EQU *«, t00=0x0030, t01=0x00ce}
0x4bcc…4bee Head {h00=0x001e, h01=0x0050, text=» ANKL A2,/1000 BIT 3 = EOF«, t00=0x0030, t01=0x00e2}
0x4bee…4c22 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) DMT595 READY ,WHOLIE MXINDEX IS READ«, t00=0x0030, t01=0x0104}
0x4c22…4c34 Head {h00=0x000e, h01=0x0050, text=» LDK A7,7 «, t00=0x0030, t01=0x0138}
0x4c34…4c56 Head {h00=0x001e, h01=0x0050, text=»DMT555 SUR A8,A8 NO BUFFER«, t00=0x0030, t01=0x014a}
0x4c56…4c76 Head {h00=0x001c, h01=0x0050, text=» ABL DMTASX DISC IO ERR «, t00=0x0030, t01=0x016c}
0x4c76…4c8a Head {h00=0x0010, h01=0x0050, text=»DMT560 EQU *«, t00=0x0030, t01=0x018c}
0x4c8a…4c94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0010}
0x4c94…4cb6 Head {h00=0x001e, h01=0x0050, text=»* RECORD READ,READ NEXRT«, t00=0x0031, t01=0x001a}
0x4cb6…4cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x003c}
0x4cc0…4cd8 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A8 «, t00=0x0031, t01=0x0046}
0x4cd8…4cfc Head {h00=0x0020, h01=0x0050, text=» ADS A2,ECBBA,A8 REC LENGTH «, t00=0x0031, t01=0x005e}
0x4cfc…4d20 Head {h00=0x0020, h01=0x0050, text=» RB DMT550 READ NEXT RECORD «, t00=0x0031, t01=0x0082}
0x4d20…4d34 Head {h00=0x0010, h01=0x0050, text=»DMT570 EQU *«, t00=0x0031, t01=0x00a6}
0x4d34…4d40 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0031, t01=0x00ba}
0x4d40…4d60 Head {h00=0x001c, h01=0x0050, text=» LDK A7,3 NOT SUFF SPACE«, t00=0x0031, t01=0x00c6}
0x4d60…4d72 Head {h00=0x000e, h01=0x0050, text=» RB DMT555«, t00=0x0031, t01=0x00e6}
0x4d72…4d80 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00f8}
0x4d80…4d94 Head {h00=0x0010, h01=0x0050, text=»DMT595 EQU *«, t00=0x0031, t01=0x0106}
0x4d94…4d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x011a}
0x4d9e…4dd4 Head {h00=0x0032, h01=0x0050, text=»* MASTER INDE X READUY. RERUN FOR INDEX FILE«, t00=0x0031, t01=0x0124}
0x4dd4…4dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x015a}
0x4dde…4df0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0031, t01=0x0164}
0x4df0…4e10 Head {h00=0x001c, h01=0x0050, text=» ST A1,TASFIL INDEX FILE«, t00=0x0031, t01=0x0176}
0x4e10…4e36 Head {h00=0x0022, h01=0x0050, text=» LD A3,TASSPW TTAB ADR DMTASK «, t00=0x0032, t01=0x0008}
0x4e36…4e5a Head {h00=0x0020, h01=0x0050, text=» CM TTB:TD+2,A3 DELETE ENTRY«, t00=0x0032, t01=0x002e}
0x4e5a…4e72 Head {h00=0x0014, h01=0x0050, text=» CM TTB:TD+4,A3 «, t00=0x0032, t01=0x0052}
0x4e72…4e90 Head {h00=0x001a, h01=0x0050, text=» LD A3,TASFDB FDB ADDR«, t00=0x0032, t01=0x006a}
0x4e90…4ea6 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/FFFE«, t00=0x0032, t01=0x0088}
0x4ea6…4ecc Head {h00=0x0022, h01=0x0050, text=» ANRS A2,A3 CLEAR FDB USE BIT «, t00=0x0032, t01=0x009e}
0x4ecc…4ef8 Head {h00=0x0028, h01=0x0050, text=» CM TASFDB EXT 0 NOT FOUND FOR INDEX«, t00=0x0032, t01=0x00c4}
0x4ef8…4f0a Head {h00=0x000e, h01=0x0050, text=» LDK A1,16«, t00=0x0032, t01=0x00f0}
0x4f0a…4f34 Head {h00=0x0026, h01=0x0050, text=» ST A1,TASCXO LAST ENTRY POSSIBLE «, t00=0x0032, t01=0x0102}
0x4f34…4f46 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0032, t01=0x012c}
0x4f46…4f7c Head {h00=0x0032, h01=0x0050, text=»* TASCVO REMAINS ZERO FROM MASTER INDEX LOOP«, t00=0x0032, t01=0x013e}
0x4f7c…4f9c Head {h00=0x001c, h01=0x0050, text=» ABL DMT050 ASSIGN INDEX«, t00=0x0032, t01=0x0174}
0x4f9c…4faa (51, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0033, t01=0x0004}
0x4faa…4fbe Head {h00=0x0010, h01=0x0050, text=»DMT600 EQU *«, t00=0x0033, t01=0x0012}
0x4fbe…4fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0026}
0x4fc8…4fe6 Head {h00=0x001a, h01=0x0050, text=»* INDEX FILE ASSIGN «, t00=0x0033, t01=0x0030}
0x4fe6…4ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x004e}
0x4ff0…500c Head {h00=0x0018, h01=0x0050, text=» LDK A7,10 RET CODE «, t00=0x0033, t01=0x0058}
0x500c…5036 Head {h00=0x0026, h01=0x0050, text=» LD A10,TASFDD FDB ADDR DATA FILEP«, t00=0x0033, t01=0x0074}
0x5036…5058 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT650 NO DATA FILE«, t00=0x0033, t01=0x009e}
0x5058…5062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00c0}
0x5062…5090 Head {h00=0x002a, h01=0x0050, text=»* STORE INDEX ADDR IN FDB DATA FILE «, t00=0x0033, t01=0x00ca}
0x5090…509a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00f8}
0x509a…50ac Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0033, t01=0x0102}
0x50ac…50c4 Head {h00=0x0014, h01=0x0050, text=» LC A3,DWTST,A10«, t00=0x0033, t01=0x0114}
0x50c4…50d8 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/40 «, t00=0x0033, t01=0x012c}
0x50d8…5102 Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DMT639 OTHER REQUEST BUSY «, t00=0x0033, t01=0x0140}
0x5102…5124 Head {h00=0x001e, h01=0x0050, text=» LDK A3,8 MAX NO OF INDE*2«, t00=0x0033, t01=0x016a}
0x5124…5138 Head {h00=0x0010, h01=0x0050, text=»DMT620 EQU *«, t00=0x0033, t01=0x018c}
0x5138…514a Head {h00=0x000e, h01=0x0050, text=» SUK A3,2 «, t00=0x0034, t01=0x0010}
0x514a…5172 Head {h00=0x0024, h01=0x0050, text=» RF(N) DMT640 MORE THAN 4 INDEX «, t00=0x0034, t01=0x0022}
0x5172…5186 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A10 «, t00=0x0034, t01=0x004a}
0x5186…5198 Head {h00=0x000e, h01=0x0050, text=» ADR A6,A3«, t00=0x0034, t01=0x005e}
0x5198…51b0 Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBAI1,A6«, t00=0x0034, t01=0x0070}
0x51b0…51cc Head {h00=0x0018, h01=0x0050, text=» RB(NZ) DMT620 USED «, t00=0x0034, t01=0x0088}
0x51cc…51fa Head {h00=0x002a, h01=0x0050, text=» ST A12,FDBAI1,A6 STORE FDB ADDR INDEX«, t00=0x0034, t01=0x00a4}
0x51fa…5204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00d2}
0x5204…5244 Head {h00=0x003c, h01=0x0050, text=»* MOVE FDB ADDRESSES FROM DATA FILE TO ALL INDEX FILES«, t00=0x0034, t01=0x00dc}
0x5244…524e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x011c}
0x524e…526e Head {h00=0x001c, h01=0x0050, text=» LDK A5,8 NR OF INDEX *2«, t00=0x0034, t01=0x0126}
0x526e…5282 Head {h00=0x0010, h01=0x0050, text=»DMT625 EQU *«, t00=0x0034, t01=0x0146}
0x5282…5294 Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x0034, t01=0x015a}
0x5294…52ba Head {h00=0x0022, h01=0x0050, text=» RF(N) DMT635 ALL FDB UPPDATED«, t00=0x0034, t01=0x016c}
0x52ba…52d6 (53, 0, 398) Head {h00=0x0018, h01=0x0050, text=» LDR A1,A10 FDB DATA«, t00=0x0035, t01=0x0004}
0x52d6…52e8 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A5«, t00=0x0035, t01=0x0020}
0x52e8…5310 Head {h00=0x0024, h01=0x0050, text=» LD A3,FDBAI1,A1 FDB ADDR INDEX «, t00=0x0035, t01=0x0032}
0x5310…5334 Head {h00=0x0020, h01=0x0050, text=» RB(Z) DMT625 NO INDEX FILE «, t00=0x0035, t01=0x005a}
0x5334…534c Head {h00=0x0014, h01=0x0050, text=» LDKL A1,FDBADF «, t00=0x0035, t01=0x007e}
0x534c…5366 Head {h00=0x0016, h01=0x0050, text=» ADR A3,A1 TO ADDR«, t00=0x0035, t01=0x0096}
0x5366…5384 Head {h00=0x001a, h01=0x0050, text=» ADR A1,A10 FROM ADDR «, t00=0x0035, t01=0x00b0}
0x5384…53a2 Head {h00=0x001a, h01=0x0050, text=» LDK A2,10 NO OF BYTES«, t00=0x0035, t01=0x00ce}
0x53a2…53c4 Head {h00=0x001e, h01=0x0050, text=» CF A14,DMTWM MOVE 5 WORDS«, t00=0x0035, t01=0x00ec}
0x53c4…53d6 Head {h00=0x000e, h01=0x0050, text=» RB DMT625«, t00=0x0035, t01=0x010e}
0x53d6…53ea Head {h00=0x0010, h01=0x0050, text=»DMT635 EQU *«, t00=0x0035, t01=0x0120}
0x53ea…5402 Head {h00=0x0014, h01=0x0050, text=» LC A1,DWTST,A10«, t00=0x0035, t01=0x0134}
0x5402…5436 Head {h00=0x0030, h01=0x0050, text=» SC A1,DWTST,A12 SAME BUSY BITS AS DATA FILE«, t00=0x0035, t01=0x014c}
0x5436…5448 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0035, t01=0x0180}
0x5448…545e (54, 0, 400) Head {h00=0x0012, h01=0x0050, text=» LD A1,TASMXA «, t00=0x0036, t01=0x0004}
0x545e…548a Head {h00=0x0028, h01=0x0050, text=» ST A1,FDBMIA,A12 MASTER INDEX ADDR «, t00=0x0036, t01=0x001a}
0x548a…549c Head {h00=0x000e, h01=0x0050, text=» RF DMT720«, t00=0x0036, t01=0x0046}
0x549c…54c8 Head {h00=0x0028, h01=0x0050, text=»DMT639 ADK A7,2 A7=13=OTHER REQ BUSY«, t00=0x0036, t01=0x0058}
0x54c8…54f6 Head {h00=0x002a, h01=0x0050, text=»DMT640 ADK A7,1 A7=11=4 INDEX ALREADY «, t00=0x0036, t01=0x0084}
0x54f6…551e Head {h00=0x0024, h01=0x0050, text=»DMT650 EQU * A7=10=NO DATA FILE «, t00=0x0036, t01=0x00b2}
0x551e…5532 Head {h00=0x0010, h01=0x0050, text=» ABL DMTASX «, t00=0x0036, t01=0x00da}
0x5532…553e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x00ee}
0x553e…554c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00fa}
0x554c…5572 Head {h00=0x0022, h01=0x0050, text=»DMT700 EQU * ASSIGN DATA FILE «, t00=0x0036, t01=0x0108}
0x5572…559c Head {h00=0x0026, h01=0x0050, text=» ST A12,FDBADF,A12 FDB ADDR TO FDB«, t00=0x0036, t01=0x012e}
0x559c…55be Head {h00=0x001e, h01=0x0050, text=» LD* A1,TASASB ASBLK ADDR «, t00=0x0036, t01=0x0158}
0x55be…55d4 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/6000«, t00=0x0036, t01=0x017a}
0x55d4…55e6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,1 «, t00=0x0036, t01=0x0190}
0x55e6…560e Head {h00=0x0024, h01=0x0050, text=» ORS A1,FDBDBR,A12 DELAY + BASIC«, t00=0x0037, t01=0x0012}
0x560e…5622 Head {h00=0x0010, h01=0x0050, text=»DMT720 EQU *«, t00=0x0037, t01=0x003a}
0x5622…562c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x004e}
0x562c…5658 Head {h00=0x0028, h01=0x0050, text=»* SET FDBMRN TO MAX REC NO IN FILE«, t00=0x0037, t01=0x0058}
0x5658…5662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0084}
0x5662…5676 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x0037, t01=0x008e}
0x5676…568e Head {h00=0x0014, h01=0x0050, text=» ADKL A1,FDBNIF «, t00=0x0037, t01=0x00a2}
0x568e…56a8 Head {h00=0x0016, h01=0x0050, text=» ADKL A1,EXTELE-2 «, t00=0x0037, t01=0x00ba}
0x56a8…56c6 Head {h00=0x001a, h01=0x0050, text=»DMT750 SUKL A1,EXTELE «, t00=0x0037, t01=0x00d4}
0x56c6…56e2 Head {h00=0x0018, h01=0x0050, text=» LDR* A2,A1 EXT BASE«, t00=0x0037, t01=0x00f2}
0x56e2…56f8 Head {h00=0x0012, h01=0x0050, text=» RB(Z) DMT750 «, t00=0x0037, t01=0x010e}
0x56f8…570c Head {h00=0x0010, h01=0x0050, text=» AD A2,-2,A1«, t00=0x0037, t01=0x0124}
0x570c…5726 Head {h00=0x0016, h01=0x0050, text=» SUKL A1,EXTELE-2 «, t00=0x0037, t01=0x0138}
0x5726…5740 Head {h00=0x0016, h01=0x0050, text=» ST A1,FDBCEX,A12 «, t00=0x0037, t01=0x0152}
0x5740…5752 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0037, t01=0x016c}
0x5752…576c Head {h00=0x0016, h01=0x0050, text=» ST A2,FDBSNR,A12 «, t00=0x0037, t01=0x017e}
0x576c…5780 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A12 «, t00=0x0038, t01=0x0008}
0x5780…57a6 Head {h00=0x0022, h01=0x0050, text=» CF A14,GTLGRN GET LOG REC NO «, t00=0x0038, t01=0x001c}
0x57a6…57b8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0038, t01=0x0042}
0x57b8…57de Head {h00=0x0022, h01=0x0050, text=» LC A1,FDBBLF,A12 BLOCK FACTOR«, t00=0x0038, t01=0x0054}
0x57de…57f0 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0038, t01=0x007a}
0x57f0…5802 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A1«, t00=0x0038, t01=0x008c}
0x5802…5818 Head {h00=0x0012, h01=0x0050, text=» RF(O) DMT760 «, t00=0x0038, t01=0x009e}
0x5818…582a Head {h00=0x000e, h01=0x0050, text=» RF DMT770«, t00=0x0038, t01=0x00b4}
0x582a…5846 Head {h00=0x0018, h01=0x0050, text=»DMT760 ANKL A3,/7FFF«, t00=0x0038, t01=0x00c6}
0x5846…585e Head {h00=0x0014, h01=0x0050, text=» ADK A2,1 CARRY «, t00=0x0038, t01=0x00e2}
0x585e…587e Head {h00=0x001c, h01=0x0050, text=»DMT770 SC A2,FDBMRN,A12 «, t00=0x0038, t01=0x00fa}
0x587e…589a Head {h00=0x0018, h01=0x0050, text=» ST A3,FDBMRN+1,A12 «, t00=0x0038, t01=0x011a}
0x589a…58a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0136}
0x58a4…58dc Head {h00=0x0034, h01=0x0050, text=»* CALCULATE FDBMRO WHICH IS MAX FDBRRO IN FILE«, t00=0x0038, t01=0x0140}
0x58dc…58e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0178}
0x58e6…590a Head {h00=0x0020, h01=0x0050, text=» LD A6,FDBRLE,A12 REC LENGTH«, t00=0x0038, t01=0x0182}
0x590a…591c Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x0039, t01=0x0016}
0x591c…592e Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0039, t01=0x0028}
0x592e…5952 Head {h00=0x0020, h01=0x0050, text=» LC A7,FDBBLF,A12 BLOCK FACT«, t00=0x0039, t01=0x003a}
0x5952…5964 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x0039, t01=0x005e}
0x5964…5986 Head {h00=0x001e, h01=0x0050, text=» CF A14,MPYMOD A1,A2=A6*A7«, t00=0x0039, t01=0x0070}
0x5986…59aa Head {h00=0x0020, h01=0x0050, text=» ST A2,FDBMRO,A12 MAX FDBRRO«, t00=0x0039, t01=0x0092}
0x59aa…59be Head {h00=0x0010, h01=0x0050, text=» ABL DMT400 «, t00=0x0039, t01=0x00b6}
0x59be…59ca Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0039, t01=0x00ca}
0x59ca…59ce Head {h00=0x4004, h01=0x0000}
0x59ce…59d2 00 39 00 d6 ┆ 9 ┆
0x59d2…59da (58, 1, 8) 20 04 00 00 00 3a 00 04 ┆ : ┆
0x59da…5a2a (59, 0, 400) 5c 41 34 2c 34 5c 41 44 4a 55 53 54 20 41 44 44 52 45 53 53 20 54 4f 20 44 57 54 20 00 0a 01 8c 00 20 00 50 5c 4c 44 52 2a 5c 41 36 2c 41 34 5c 47 45 54 20 44 57 54 20 41 44 44 52 45 53 53 20 00 0b 00 24 00 24 00 50 5c 52 42 28 5a 29 5c 52 ┆ A4,4 ADJUST ADDRESS TO DWT P LDR* A6,A4 GET DWT ADDRESS $ $ P RB(Z) R┆
0x5a2a…5a7a 53 54 31 30 30 5c 44 57 54 20 4e 4f 54 20 49 4e 20 53 59 53 54 45 4d 20 00 0b 00 48 00 12 00 50 5c 4c 44 4b 4c 5c 41 39 2c 49 54 41 44 49 00 0b 00 70 00 24 00 50 5c 43 57 5c 41 39 2c 44 57 54 41 44 52 2c 41 36 5c 49 4e 54 45 52 54 41 53 4b ┆ST100 DWT NOT IN SYSTEM H P LDKL A9,ITADI p $ P CW A9,DWTADR,A6 INTERTASK┆
0x5a7a…5aca 20 44 57 54 3f 20 00 0b 00 86 00 16 00 50 5c 52 46 28 45 29 5c 52 53 54 31 32 30 5c 59 45 53 21 00 0b 00 ae 00 12 00 50 5c 4c 44 4b 4c 5c 41 39 2c 49 54 41 44 4f 00 0b 00 c8 00 24 00 50 5c 43 57 5c 41 39 2c 44 57 54 41 44 52 2c 41 36 5c 49 ┆ DWT? P RF(E) RST120 YES! P LDKL A9,ITADO $ P CW A9,DWTADR,A6 I┆
0x5aca…5b1a 4e 54 45 52 54 41 53 4b 20 44 57 54 3f 20 00 0b 00 de 00 16 00 50 5c 52 46 28 4e 45 29 5c 52 53 54 31 33 30 5c 4e 4f 21 00 0b 01 06 00 1e 00 50 52 53 54 31 32 30 5c 43 4d 52 5c 41 36 5c 52 45 53 45 54 20 57 4f 52 44 20 30 00 0b 01 20 00 10 ┆NTERTASK DWT? P RF(NE) RST130 NO! PRST120 CMR A6 RESET WORD 0 ┆
0x5b1a…5b6a 00 50 52 53 54 31 33 30 5c 45 51 55 5c 2a 00 0b 01 42 00 24 00 50 5c 53 43 5c 41 38 2c 44 57 54 53 54 2c 41 36 5c 52 45 53 45 54 20 44 57 54 20 53 54 41 54 55 53 00 0b 01 56 00 1c 00 50 5c 43 4d 5c 44 57 54 45 43 42 2c 41 36 5c 52 45 53 45 ┆ PRST130 EQU * B $ P SC A8,DWTST,A6 RESET DWT STATUS V P CM DWTECB,A6 RESE┆
0x5b6a…5bba (60, 0, 400) 54 20 45 43 42 20 00 0b 01 7e 00 26 00 50 5c 43 4d 5c 44 57 54 54 51 2c 41 36 5c 52 45 53 45 54 20 54 45 52 4d 49 4e 41 4c 20 51 55 45 55 45 20 00 0c 00 0e 00 1a 00 50 5c 52 42 5c 52 53 54 31 30 30 5c 4e 45 58 54 20 44 45 56 49 43 45 00 0c ┆T ECB ~ & P CM DWTTQ,A6 RESET TERMINAL QUEUE P RB RST100 NEXT DEVICE ┆
0x5bba…5c0a 00 38 00 0a 00 50 5c 45 4a 45 43 54 00 0c 00 56 00 06 00 50 2a 20 00 0c 00 64 00 06 00 50 2a 20 00 0c 00 6e 00 16 00 50 2a 20 52 45 53 45 54 20 42 4c 4f 43 4b 20 50 4f 4f 4c 00 0c 00 78 00 06 00 50 2a 20 00 0c 00 92 00 06 00 50 2a 20 00 0c ┆ 8 P EJECT V P* d P* n P* RESET BLOCK POOL x P* P* ┆
0x5c0a…5c5a 00 9c 00 10 00 50 49 4e 49 32 31 30 5c 45 51 55 5c 2a 00 0c 00 a6 00 20 00 50 5c 4c 44 4b 4c 5c 41 34 2c 54 49 4d 51 55 45 5c 54 49 4d 45 52 20 51 55 45 55 45 20 00 0c 00 ba 00 10 00 50 49 4e 49 32 31 34 5c 45 51 55 5c 2a 00 0c 00 de 00 2a ┆ PINI210 EQU * P LDKL A4,TIMQUE TIMER QUEUE PINI214 EQU * *┆
0x5c5a…5caa 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 34 5c 4e 45 58 54 20 54 49 4d 45 52 20 42 4c 4f 43 4b 20 49 4e 20 51 55 45 55 45 20 00 0c 00 f2 00 1a 00 50 5c 52 46 28 5a 29 5c 49 4e 49 32 31 38 5c 4e 4f 20 4d 4f 52 45 20 00 0c 01 20 00 2a 00 50 5c 4c ┆ P LDR* A4,A4 NEXT TIMER BLOCK IN QUEUE P RF(Z) INI218 NO MORE * P L┆
0x5caa…5cfa 44 2a 5c 41 33 2c 32 2c 41 34 5c 47 45 54 20 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 41 44 44 52 45 53 53 00 0c 01 3e 00 12 00 50 5c 52 42 28 5a 29 5c 49 4e 49 32 31 34 20 00 0c 01 6c 00 20 00 50 5c 43 4d 52 5c 41 33 5c 52 45 53 45 54 20 ┆D* A3,2,A4 GET TIMER POINTER ADDRESS > P RB(Z) INI214 l P CMR A3 RESET ┆