|
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: 52568 (0xcd58)
Notes: pts_type(SC)
Names: »DMTASK.SC«
└─⟦c47f25c27⟧ Bits:30009688 Philips computer tape "600318"
└─⟦this⟧ »M:KMDV/DMTASK.SC«
IDENT DMTASK REL 8.2 78-09-15 870105040820 BUF. HANDL. L. 1614 REQ ERR HANDL L. 1351,1488 REL 8.1 78-04-21 * **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DMTASK = HANDLES DATAMANAGEMENT DISC I/O * * * * * * **************************************************** * * THIS MODULE IS ACTIVATED FROM TIODM. * * INPUT PARAMETERS: * A1 = FDB ADDRESS * A2 = TID TASK IDENT OF DMTASK AT PRESENT NOT USED * * THE SECTOR TO BE ACCESSED IS DEFINED IN FDB (FDBDMI, -FC, -SNR). * ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS SECTOR * IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET * TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT * THE SECTOR MUST FIRST BE READ INTO A FREE BUFFER. * * ALL I/O LKM REQUESTS IN THIS MODULE ARE WITH ACTIVATION AND ARE * FOLLOWED BY AN EXIT LKM REQUEST. * INDEX FILES ARE HANDLED IN SUBROUTINE RDNXTR WHERE * ALL I/O ARE MADE IN WAIT MODE * * BY MEANS OF CONDITIONAL ASSEMBLY THE EXCLUSIVE ACCESS CHECK * FOR INDEXED DELETE AND FOR INDEXED REWRITE AND * FOR RANDOM WRITE AND RANDOM DELETE CAN BE EXCLUDED. * * QNOEXA=1 EXCLUSIVE ACCESS CHECK INCLUDED * QNOEXA=0 EXCLUSIVE ACCESS CHECK EXCLUDED EJECT * *************** * ENTRIES * *************** * * ENTRY DMTASK ENTRY SQR EXTERNAL CODE SEQ READ ENTRY QSW ENTRY QIRN,QIRR ENTRY DMTWM EJECT * ***************** * EXTERNALS * ***************** * * EXTRN TCTAB,CDTAB EXTRN TTB:TD,FDBSTA EXTRN FNDTID EXTRN TENDIO EXTRN RTNA15 EXTRN FDBECB EXTRN FDBSNR EXTRN FDBRRO EXTRN FDBRLE EXTRN FDBBLF EXTRN FDBTNR EXTRN FDBVTO EXTRN FDBCEX EXTRN FDBEXT EXTRN EXTDMI EXTRN EXTFC EXTRN EXTLEN EXTRN EXTBAS EXTRN EXTELE EXTRN FDBLRN EXTRN FDBMIA EXTRN FDBEAL EXTRN FDBADF EXTRN FDBAI1 EXTRN FDBCRL EXTRN FDBDBR,FDBMRN,FDBMRO EXTRN ECBFC EXTRN ECBBA EXTRN ECBRL EXTRN ECBEL EXTRN ECBRC EXTRN ECBCW EXTRN CLRBUF EXTRN BUFLNK EXTRN BUFDMI EXTRN BUFFC EXTRN BUFSNR EXTRN BUFOR EXTRN BUFSTA EXTRN CURBUF EXTRN DWTECB EXTRN DWTOR EXTRN DWTST,DWTTDM,DWTTQ EXTRN DMTRBU RELEASE A DISC BUFFER EXTRN VTLRN EXTRN VLVBA EXTRN VLVRL EXTRN DMTIOT,DIVMOD EXTRN MPYMOD,CHKKEY EXTRN CALSNO EXTRN DSUMOD EXTRN EATEST,EASETB,CRNGET,EARELB,GTBKBU EXTRN QTJOB,GTLGRN EXTRN FNDKEY EXTRN CRNCIF,CRNCDF,CRNQUE EXTRN MXIND EXTRN FDBKA,FDBNIF,RDNXTR EXTRN BUFAR1,BUFAR2,SECTLE,DMTIOZ,CRNUPD EJECT * * * ************************ * CONDITIONAL ASSEMBLY * ************************ * * CHECK OF EXCLUSIVE ACCESS BIT CAN BE EXCLUDED AT * RANDOM WRITE AND RANDOM DELETE BY SETTING X:A=0. * * X:A EQU 1 X:B EQU 0 X:C EQU 0 X:D EQU 1 X:E EQU 0 * QNOEXA EQU 1 * INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH * INDXAC EQU 1 = INDEX ACCESS INCLUDED * INDXAC EQU 0 = INDEX ACCESS FUNCTIONS OMITTED INDXAC EQU 0 RECBFZ EQU X:C INDEX RECORD BUFFER SIZE IN WORDS FLXDSC EQU X:D FLEXIBLE DISC INCLUDED WHEN EQU 1 INSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1 EJECT * ************************ * DATA DEFINITIONS * ************************ * * EABIT EQU /20 EA-BIT IN DWT STATUS BYTE * VTOBLK EQU 9 VTOC BLOCKING FACTOR * * THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE * POSITION IN TIODM-TABLE TIODMF * QCL EQU 0 DMTAFU DATA DMCLOSE CLOSE QRV EQU 2 DATA DMREVT READ VTOC RECORD QIRN EQU 4 IFT INDXAC=1 DATA DMIRN INDEXED READ NEXT QINS EQU 6 DATA DMINS INDEXED INSERT QDEL EQU 8 DATA DMDEL INDEXED DELETE QIRW EQU 10 DATA DMIRW INDEXED REWRITE DATA DMIRR INDEXED RANDOM RESAD XIF QIRR EQU 12 IFF INDXAC=1 DATA DMTERR,DMTERR,DMTERR,DMTERR,DMTERR XIF QRD EQU 14 DATA DMRDDE RANDOM DELETE QRW EQU 16 DATA DMRDWR RANDOM WRITE QRR EQU 18 DATA DMRDRE RANDOM READ QREA EQU 20 DATA DMTERR RELEASE EXCLUSIVE ACCESS QSW EQU 22 DATA DMSQWR SEQUENTIAL WRITE SQR EQU 2 EXTERNAL ORDER CODE SEQ READ QSR EQU 24 DATA DMSQRE SEQUENTIAL READ QGCUR EQU 26 DATA DMTERR GET CURRENCY IFT INDXAC=1 QINIX EQU 28 DATA DMINIX INSERT INDEX QDELX EQU 30 DATA DMDELX DELETE INDEX XIF IFF INDXAC=1 DATA DMTERR,DMTERR XIF QGCURX EQU 32 DATA DMTERR GET CURRENT INDEX QRWD EQU 34 DATA DMRDWD DELAYED RANDOM WRITE QRDD EQU 36 DATA DMRDDD DELAYED RANDOM DELETE QRRRB EQU 38 DATA DMRRRB RAND READ REL BUFF * VTOCRL DATA 0 VTOC RECORD LENGTH EJECT * ************** * DMTFRL * ************** * * ENTRY DMTFRL FIND RECORD LENGTH * * INPUT A1 = RETURN CODE IF INCORRECT LENGTH * A6 = FDB ADDRESS * A9 = USER ECB ADDRESS * * OUTPUT A2 = RECORD LENGTH TO BE USED * A1 IS ORED INTO ECBRC IF ECBRL < REC LENGTH * A2 IS STORED IN ECBEL * DMTFRL EQU * LD A2,ECBRL,A9 CW A2,FDBRLE,A6 RF(E) DMTF20 ECBRL = REC LENGTH RF(L) DMTF10 ECBRL < REC LENGTH LD A2,FDBRLE,A6 ECBRL > REC LENGTH RF DMTF20 DMTF10 ORS A1,ECBRC,A9 SET RETURN CODE DMTF20 ST A2,ECBEL,A9 SET EFFECTIVE LENGTH RTN A14 EJECT * ************ * DMTWM * ************ * * ENTRY DMTWM WORD MOVE * * INPUT A1 = FROM ADDRESS * A2 = NO OF BYTES TO BE MOVED * A3 = TO ADDRESS * * A4 WILL BE DESTROYED * * DMTWM EQU * SUK A2,2 RF(N) DMTW10 LAST WORD MOVED LDR* A4,A1 STR A4,A3 ADK A1,2 ADK A3,2 RB DMTWM DMTW10 ANK A2,/01 RF(E) DMTW20 LCR A4,A1 MOVE LAST CHAR SCR A4,A3 DMTW20 RTN A14 EJECT * ************* * DMTBM * ************* * * ENTRY DMTBM BYTE MOVE * * INPUT A1 = FROM ADDRESS * A2 = NO OF BYTES TO BE MOVED * A3 = TO ADDRESS * * A4 WILL BE DESTROYED * * OUTPUT A3 = NEXT CHAR * * DMTBM EQU * SUK A2,1 RF(N) DMTB10 LAST BYTE MOVED LCR A4,A1 SCR A4,A3 ADK A1,1 ADK A3,1 RB DMTBM DMTB10 RTN A14 * * DMTBMR HAS THE SAME FUNCTION AS DMTBM BUT * MOVES FROM THE END * DMTBMR ADR A1,A2 ADR A3,A2 DMTB20 SUK A2,1 RB(N) DMTB10 SUK A1,1 SUK A3,1 LCR A4,A1 SCR A4,A3 RB DMTB20 EJECT ****DESCRIPTION************************************* * * FNDFDB WILL SEARCH TTAB AND CDTAB FOR A FILE CODE * ****ENTRY PARAMETERS******************************** * * A1 = TTAB ADDR * A2 = FILE CODE TO SEARCH FOR * A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED * ****EXIT PARAMETERS********************************* * * A1 = UNCHANGED * A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND * A4 = TTAB/CDTAB ENTRY ADDR WHEN CODE IS FOUND * A5 = 0 WHEN FOUND IN CDTAB = 1 WHEN TTAB * ****USED REGISTERS********************************** * * A1-A5 * ****************************************************** * * LOOK FOR FILE CODE IN TTAB * FNDFDB EQU * LD A3,TTB:TD,A1 LENGTH DEV DESCR FND030 EQU * SUK A3,4 RF(NP) FND040 FILE CODE NOT IN TTAB LDR A4,A1 ADKL A4,TTB:TD+1 ADR A4,A3 CCR A2,A4 RB(NE) FND030 SUK A4,1 LDK A5,1 RF FND080 CODE FOUND IN TTAB * * SEARCH FILE CODE IN CDTAB * FND040 EQU * LDR A5,A5 RF(NZ) FND060 ONLY TTAB IS SEACHED LD* A4,CDTAB FND050 EQU * SUK A4,4 RF(NP) FND060 CODE NOT FOUND AT ALL LD A3,CDTAB ADR A3,A4 CC A2,1,A3 RB(NE) FND050 AD A4,CDTAB RF FND080 CODE FOUND FND060 EQU * LDK A2,0 NO CODE FND080 EQU * RTN A14 EJECT * ************** * DMTREM * ************** * * ENTRY DMTREM MOVE RECORD FROM BUFFER TO USER RECORD AREA * * INPUT RELATIVE REC OFFSET IN FDBRRO,A6 * BUFFER ADDRESS IN A5 * USER REC AREA IN ECBBA,A9 * RECORD LENGTH IN A2 * * * * MOVE THE RECORD * IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE * IF (FROM AND (TO) ADDRESSES BOTH ODD THEN MOVE FIRST BYTE * WITH BYTE INSTRUCTIONS AND THE REST WITH WORD MOVE * ELSE USE BYTE MOVE INSTRUCTIONS FOR THE WHOLE REC * DMTREM EQU * LD A1,FDBRRO,A6 ADR A1,A5 FROM ADDRESS LDR A4,A1 LD A3,ECBBA,A9 TO ADDRESS XRR A4,A3 ANK A4,/01 RF(Z) DMT210 BOTH ODD OR BOTH EVEN CF A14,DMTBM ONE ODD AND ONE EVEN RF DMT225 * DMT210 LDR A4,A1 ANK A4,/01 RF(E) DMT220 BOTH EVEN SUK A2,1 BOTH ODD LCR A4,A1 SCR A4,A3 ADK A1,1 ADK A3,1 DMT220 CF A14,DMTWM WORD MOVE DMT225 EQU * RTN A14 EJECT * * SET UP A14 STACK * GETA14 EQU * LDR A7,A2 TASK ID CF A15,FNDTID LDR A14,A2 TTAB ADDR AD A14,TTB:TD,A14 LENGTH DEVICE DESCR ADKL A14,TTB:TD+32 STACK ABL RTNA15 RET AND ENB EJECT * ************** * DMTASK * ************** * * DMTASK EQU * * * SET UP A14 STACK * INH CF A15,GETA14 LDR A6,A1 FDB ADDR LDKL A5,-1 CW A5,FDBRRO,A6 SPECIAL PARAMETER -1 RF(E) DMT090 FOR ORDERS XR,DX,IX (SEE TIODM) DMT020 EQU * LD A4,FDBDBR,A1 RF(NN) DMT025 NO DELAY ANKL A4,/C0FF LD A2,DWTOR,A1 ANK A2,/3F CWK A2,QCL RF(E) DMT024 CLOSE CWK A2,QRV RF(E) DMT024 READ VTOC SUK A2,QRRRB RF(E) DMT024 RAND READ REL BUFFER ORKL A4,/100 DMT024 EQU * ST A4,FDBDBR,A1 DMT025 EQU * LDR A8,A1 ADKL A8,FDBECB ECB ADDR CF A14,GTBKBU GET BLOCK BUFFER LDR A2,A2 RF(NN) DMT080 BUFFER WAS BEFORE * * READ SECTOR INTO BUFFER AND EXIT * SUK A5,QCL RF(Z) DMT030 CLOSE LDK A7,/11 PHYSICAL READ LKM DATA -1 I/O AND ACTIVATION DATA DMTAR1 DMTASK RESTART #1 LKM DATA 3 EXIT * DMT030 EQU * I/O WITH WAIT FOR CLOSE LDK A7,/91 LKM DATA 1 RF DMT050 CHECK RETURN CODES EJECT ************** * DMTAR1 * ************** * RESTART POINT AFTER READ * DMTAR1 EQU * * * SET UP A14 STACK * INH CF A15,GETA14 DMT050 EQU * CF A14,DMTIOT CHECK RETURN CODES FROM DISC I/O LDR A1,A1 ABL(NE) DMTERR LD A5,ECBBA,A8 RF DMT090 DMT080 EQU * ENTRY IF SECT ALREADY IN BUFFER LDR A5,A3 ADK A5,8 SKIP BUFFER HEADER ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB DMT090 EQU * * * HANDLE ACTUAL ORDER ORDER INDEX IN DWTOR * ADK A5,2 SKIP CYLID WORD LD A7,DWTOR,A6 * A7 = INTERNAL ORDER CODE ANK A7,/3F ABI DMTAFU,A7 DMTASK FUNCTION TABLE EJECT DMRRRB EQU * RAND READ REL BUFF * DMSQRE EQU * SEQUENTIAL READ * DMRDRE EQU * RANDOM READ * * CHECK STATUS IF NOT USED THEN ERROR RETURN * LD A2,FDBRRO,A6 AD A2,FDBRLE,A6 ADR A2,A5 LDK A1,0 CCR A1,A2 STATUS BYTE IN A1 RF(NE) DMT200 USED LDKL A1,/800 NO DATA ABL DMTERR DMT200 LDK A1,/8 INCORRECT LENGTH CF A14,DMTFRL A2 := RECORD LENGTH * * MOVE THE RECORD * CF A14,DMTREM * * UPDATE CRN AND SET EXCLUSIVE ACCESS BIT * DMT230 EQU * ABL DMT400 PUT CRN AND EA EJECT DMREVT EQU * READ VTOC RECORD * DMCLOSE EQU * CLOSE A FILE * LD A2,FDBSNR,A6 RF(NZ) DMT270 VTOC SECTOR IN BUFFER * * VOLUME LABEL IN BUFFER * FIND VTOC SECTOR NUMBER AND RELATIVE RECORD OFFSET WITHIN SECTOR * FOR VTOC RECORD AND READ THIS SECTOR INTO BUFFER * LDR A10,A6 SAVE FDB ADDR LDR A9,A8 SAVE ECB ADDR LD A3,VLVRL-2,A5 ST A3,VTOCRL LDK A6,VTOBLK VTOC BLOCKING FACTIOR LD A2,FDBVTO,A10 VTOC RECORD NUMBER LDK A1,0 CF A14,DIVMOD A2=A1,A2/A6.A1=REMAINDRER LDR A3,A2 QUOTIENT LDR A6,A10 FDB ADDR LDR A2,A1 REST RF(Z) DMT240 REST = 0 ADK A3,1 RECORD IN NEXT SECTOR RF DMT250 DMT240 LDK A2,VTOBLK LAST RECORD IN SECTOR DMT250 AD A3,VLVBA-2,A5 VTOC BASE ST A3,FDBSNR,A6 LDK A3,0 DMT255 SUK A2,1 RF(Z) DMT260 AD A3,VLVRL-2,A5 ADK A3,1 SKIP STATUS BYTE RB DMT255 DMT260 ST A3,FDBRRO,A6 * * RELEASE BUFFER * LD A3,ECBBA,A9 SUK A3,8 CF A14,DMTRBU RELEASE BUFFER CF A14,CLRBUF CLEAR FREE BUFFERS ENB ENB LDR A1,A6 FDB ADDR ABL DMT020 READ VTOC SECTOR EJECT DMT270 EQU * SUK A7,QRV ABL(Z) DMT500 READ VTOC RECORD * CLOSE FILE * UPDATE VTOC LAST RECORD NUMBER * AND WRITE SECTOR BACK ON DISC AD A5,FDBRRO,A6 LDK A2,0 LC A2,FDBLRN,A6 SC A2,VTLRN,A5 LD A2,FDBLRN+1,A6 ST A2,VTLRN+1,A5 * CLOSE FILE. WRITE VTOC * LDK A7,/95 LKM DATA 1 * LDR A1,A6 FDBADDRESS IN A1 CF A14,DMTIOT CHECK RETURN CODES LDR A1,A1 RF(NZ) DMT724 ERROR DMT720 EQU * LD A1,DWTTDM,A6 TTAB ADDR LDK A2,0 LC A2,ECBFC,A9 FILE CODE LDK A5,0 TRY LOCAL AND GLOBAL CF A14,FNDFDB GET ENTRY IN TTAB CDTADTAB LDR A13,A5 LOCAL/GLOBAL INDICATOR LDR A2,A2 RF(NZ) DMT725 FC FOUND LDKL A1,/8000 REQ ERR DMT724 ABL DMTERR DMT725 EQU * LD A5,2,A4 FDB ADDRESS LDR A11,A4 SAVE TABLE ENTRY ADDR LDR A12,A1 SAVE TTEAB ADDR LDKL A10,0 MARK THAT FDB NOT SHALL BE RELEASED EJECT * CHECK IF THIS FDB ADDR IS USED ELEWHERE * * SEARCH ALL TTABS * LD* A2,TCTAB DMT730 EQU * SUK A2,2 RF(NP) DMT780 NOT FOUND IN ANY TTAB LD A3,TCTAB ADR A3,A2 LDR* A1,A3 LD A3,4,A1 TASK ID RB(N) DMT730 MONOITOR TASK LD A3,TTB:TD,A1 ADKL A1,TTB:TD+2 DEV DESCR TABLE +2 DMT770 EQU * SUK A3,4 RB(NP) DMT730 NOT IN THIS TTAB LDR A4,A1 ADR A4,A3 CWR* A5,A4 RB(NE) DMT770 LDR A7,A11 TTAB ENTRY ADK A7,2 FDB OFFSET CWR A4,A7 RB(E) DMT770 SAME ENTRY RF DMT895 MORE USERS ON THIS FDB * * NOW SEARCH CDTAB * DMT780 EQU * LD* A4,CDTAB DMT790 EQU * SUK A4,4 RF(NP) DMT800 THIS FDB HAS NO OTHER USER LD A2,CDTAB ADR A2,A4 CW A5,2,A2 RB(NE) DMT790 LDR A7,A4 AD A7,CDTAB CWR A7,A11 RB(E) DMT790 SAME ENTRY RF DMT895 THIS FDB HAS MORE USERS EJECT * * NOW RELEASE THIS FDB * DMT800 EQU * * * RELEASE EA-BUFFERS * LDKL A2,/8000 ALL EA-BUFFERS ARE RELEASED LDR A1,A6 FDB ADDR CF A14,EARELB * * RELEASE CRN BUFFERS * LDKL A5,FDBCRL ADR A5,A6 LINK ROOT LDR* A4,A5 CMR A5 CLEAR FDB RF DMT830 DMT820 EQU * LDR A4,A5 BUFFER ADDRESS DMT830 EQU * RF(Z) DMT840 ALL BUFFER S REMOVED LDR* A5,A4 NEXT BUFFER ADDRESS * * RETIURN BUFFER TO POOL * INH LD A3,CRNQUE STR A3,A4 ST A4,CRNQUE ENB RB DMT820 DMT840 EQU * IFT FLXDSC=1 * * NOW CHECK DEVICE CODES. WHEN LAST FILE IS CLOSED ON * A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME * LDK A1,4 EXTENT COUNTER LDR A5,A6 FDB ADDR ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE SUKL A5,EXTELE EXT LENGTH IN FDB LDK A4,0 FOR VOL CODE DMT880 EQU * ENB SEE LABEL 910 ENB SUK A1,1 LOOP ABL(NN) DMT900 CHECK THIS EXTENT XIF IFT INDXAC=1 EJECT * * ALL EXTENTS CHECKED * RELEASE MASRTER INDEX * INH LD A1,FDBMIA,A6 MASTER INDEX ADDR RF(Z) DMT894 NO MATER IX LD A5,MXIND LENTH SUK A5,2 DMT885 EQU * SUK A5,4 RF(Z) DMT890 FIRST INDEX RF(N) DMT894 NO MATER IX CW A1,MXIND+2,A5 RB(NE) DMT885 LD A4,MXIND,A5 RF(N) DMT890 PREVIOUS ENTRY USED LD A4,MXIND+4,A5 NO OF WORDS ANKL A4,/7FFF REMOV USE BIT ADS A4,MXIND,A5 NR OF WORDS * * MOVE UP REST OF MXIND * LDKL A1,MXIND+6 ADR A1,A5 FROM ADDR LDR A3,A1 SUK A3,4 TO ADDR LD A2,MXIND SUR A2,A5 SUK A2,2 NO OF CHAR CF A14,DMTWM MOVE UOP RF DMT894 DMT890 EQU * LDKL A4,/7FFF ANS A4,MXIND+4,A5 REMOVE USE BIT XIF EJECT DMT894 EQU * LDKL A10,1 MARK THAT FDB SHALL BE RELEASED DMT895 EQU * INH INH * * DELETE TTAB/CDTAB ENTRY * CMR A11 FILE CODE CM 2,A11 FDB ADDR * * RELEASE DWT-QUEUQ IN THIS FDB-DWT * LDR A1,A6 FDBADDR ADKL A1,DWTTQ ADDR QUEUE START LDR* A5,A1 NEXT TTAB ADDR RF(Z) DMTA20 NO Q CMR A1 KILL ROOT DMTA10 LDR* A1,A5 NEXT IN QUEUE CF A15,QTJOB DISPATCH Q LDR A5,A1 NEXT RB(NZ) DMTA10 MORE DMTA20 EQU * * * NEXT ENTRY IN TTAB/CDATAB * LDR A1,A12 TTAB ADDR LDK A2,0 LC A2,ECBFC,A9 FILE CODE USERT ECB LDR A5,A13 LOCAL/GLOBAL INDICATOR CF A14,FNDFDB SEARCH TTAB CDTAB LDK A7,0 INDICATES A2 = 0 IFT INDXAC=1 LDR A2,A2 RF(Z) DMTA30 * * MOV DWT TO NEXT FDB * AN INDEX FILE SHALL ALSO BE RELEASED * LD A7,2,A4 NEXT FDB ADDR TO CLOSE LDK A1,2 ADR A1,A6 FROM ADDR LDK A3,2 ADR A3,A7 TO ADDR LDK A2,12 NO OF BYTES CF A14,DMTWM MOVE DWT LD A3,DWTTDM,A6 ST A3,DWTTDM,A7 MOVE CM FDBSNR,A7 SECTOR NR LDKL A3,FDBEXT ADR A3,A7 ST A3,FDBCEX,A7 1ST EXTENT LDKL A3,/8000 ST A3,DWTST,A6 NOT BUSY DMTA30 EQU * XIF ENB ENB * * RELEASE BUFFER * LD A3,ECBBA,A8 SUK A3,8 CF A14,DMTRBU * * RELEASE FDB * LDR A10,A10 RF(Z) DMTA40 NO RELEASE IFT INDXAC=1 * * REMOVE ALL OTHER REFERAENCES TO THIS FDB * LDK A1,10 2*MAX NR OF FDBS DMTA50 SUK A1,2 RF(N) DMTA70 ALL FDBS CHECKED LDR A2,A6 ADR A2,A1 LD A3,FDBADF,A2 OTHER FDB ADDR RB(Z) DMTA50 LDK A4,10 2*MAX NR OF FDBS DMTA60 SUK A4,2 RB(N) DMTA50 ALL ADDR CHECKED IN OTHER FDB LDR A5,A3 ADR A5,A4 CW A6,FDBADF,A5 RB(NE) DMTA60 * * DELETE THIS REFERENCE TO THE FDB THAT SHALL BE RELEASED * CM FDBADF,A5 RB DMTA50 XIF EJECT DMTA70 EQU * LDKL A3,/FFFE INH INH ANRS A3,A6 SET FDB FREE DMTA40 EQU * CF A14,CLRBUF REMOVE ALL FREE BUFFERS LDR A1,A7 NEW FDB ADDR ABL(Z) DMTERX NO MORE FDBS IFT INDXAC=1 ENB ENB * * FIND WHICH DMTASK IS NEXT AND ACTIVATE THAT * LDK A7,0 LC A7,FDBEXT,A1 TASK 1ST EXT ADKL A7,'D0' TASK ID LKM DATA -4 DATA DMTASK LKM DATA 3 EXIT XIF IFT FLXDSC=1 EJECT DMT900 EQU * * UNLOCK FLEXDISC IN THIS LOOP * * REGISTERS * A1 = EXTENT COUNTER * A4 = LAST VOL CODE FLEXDOISC A5 = EXT ADDR * A6 = FDB ADDR * A8 = ECB ADDR A9 = DM ECB ADDR * A10-A12 USED * ADKL A5,EXTELE EXT LENGTH IN FDB LCR A7,A5 VOLUME CODE ANK A7,/FF ABL(Z) DMT880 NO CODE * * FLEXDICSC IF BIT 8-13 = 111110 * ANK A7,/F8 SUK A7,/F8 ABL(NE) DMT880 NO FLEXDISC * * IF SAME FLEXDISC AS LAST, DO NOT SCHECK AGAIN * CCR A4,A5 ABL(E) DMT880 SAME * * NOW SEARCH ALL FDBS FOR THOIS FLEXIBLE DISC VOL CODE * DMT910 EQU * LCR A4,A5 SAVE VOL CODE LDKL A3,FDBSTA FDB LINK ROOT INH INH RF DMT925 DMT920 EQU * LDR* A3,A3 FDB ADDR DMT925 EQU * ANKL A3,/FFFE FDB ADDR RF(Z) DMT980 ALL FDBS CHECKED LDR* A7,A3 ANK A7,1 RB(Z) DMT920 FREE CWR A6,A3 RB(E) DMT920 CURRENT FDB LDK A7,4 EXTENT COUNTER LDR A2,A3 FDB ADDR ADKL A2,FDBEXT+1 * ADDR OF 1ST VOL CODE SUKL A2,EXTELE EXT LENGTH IN FDB DMT930 EQU * SUK A7,1 RB(N) DMT920 ALL EXTENTS CHECKED ADKL A2,EXTELE CCR A4,A2 VOLUME CODE ABL(E) DMT880 CODE USED. NO UNLOCK RB DMT930 NEXT EXTENT * * ALL FSDBS CHECKED. MAKE UNLOAD * DMT980 EQU * ENB ENB * * NOTE THAT ECBBUF IS ASSUMED NOT TO BE CHANGED * WITH THIS REQUEST * SC A4,ECBFC,A8 VOL CODE LDK A7,/B8 UNLOAD WAIT LKM DATA 1 LD A1,ECBRC,A8 ANK A1,1 INOPER ABL(NZ) DMTERR ABL DMT880 CHECK NEXT EXT XIF EJECT DMT500 EQU * READ VTOC RECORD * LD A2,VTOCRL VTOC REC LENGTH CW A2,ECBRL,A9 RF(NG) DMT510 MOVE THE WHOLE VTOC REC LDK A1,/8 INCORRECT LENGTH ORS A1,ECBRC,A9 SET RC BUT CONTINUE LD A2,ECBRL,A9 MOVE WHAT USER TOLD YOU DMT510 EQU * ST A2,ECBEL,A9 CF A14,DMTREM MOVE RECORD DMAEX EQU * ABL DMTAEX EXIT EJECT DMSQWR EQU * SEQUENTIAL WRITE * DMRDWR EQU * RANDOM WRITE * DMRDDE EQU * RANDOM DELETE * DMINS EQU * INDEXED INSERT * DMDEL EQU * INDEXED DELETE * DMIRW EQU * INDEXED REWRITE * DMRDWD EQU * DELAYED RANDOM WRITE * DMRDDD EQU * DELAYED RANDOM DELETE * * TEST STATUS LD A10,FDBRRO,A6 AD A10,FDBRLE,A6 ADR A10,A5 STATUS BYTE ADDRESS LDR A11,A5 BUFFER ADDR LDR A1,A6 FDB ADDR LD A2,ECBCW+2,A9 ANK A2,/FF LD A3,ECBCW,A9 LOG REC NR LDK A4,0 CCR A4,A10 RF(E) DMS010 FREE IFT INDXAC=1 LDR A4,A7 SUK A4,QINS RF(E) DMEAER INDEXED INSERT XIF LDR A4,A7 SUK A4,QSW RF(E) DMEAER SEQ WRITE IFT QNOEXA=1 * NO EA-CHECK IF EA-BIT = 1 * LC A4,DWTST,A6 ANK A4,EABIT RF(NZ) DMS020 EA=1, NO CHECK * EA MUST BE SET * CF A14,EATEST LDR A4,A4 RTN CODE RF(NP) DMEAER NO EA THIS TASK XIF RF DMS100 DMS010 EQU * IFT INDXAC=1 LDR A4,A7 SUK A4,QIRW RF(Z) DMERND INDEXED REWRITE LDR A4,A7 SUK A4,QDEL RF(Z) DMERND INDEXED DELETE XIF DMS020 EQU * CF A14,EATEST LDR A4,A4 RTN CODE RF(N) DMEAER EA OTHER TASK DMS100 EQU * LDK A1,0 SET STATUS FREE IFT INDXAC=1 LDR A2,A7 SUK A2,QIRW RF(E) CHK010 INDEXED REWRITE LDR A2,A7 SUK A2,QINS RF(E) CHK010 INDEXED INSERT LDR A2,A7 SUK A2,QDEL RF(E) CHK010 INDEXED DELETE XIF LDR A2,A7 SUK A2,QRD RF(E) DMT350 RANDOM DELETE LDR A2,A7 SUK A2,QRDD RF(E) DMT350 DELAYED RANDOM DELETE RF DMT310 RW,RWD,SW IFT INDXAC=1 EJECT CHK010 EQU * * INDEXED REWRITE,INDEXED INSERT AND INDEXED DELETE ENTERS HERE * * COUNT NR OF INDEXES AND * COMPARE KEYS IN FILE AND USER BUFFER * LDR A1,A6 FDB ADDR LDK A5,8 MAX 4 INDEX SUR A12,A12 INDEX COUNTER CHK040 EQU * SUK A5,2 RF(N) CHK100 ALL INDEX CHECKED LDR A2,A1 FDB ADD ADR A2,A5 LD A6,FDBAI1,A2 FDB ADDR INDEX FILE RB(Z) CHK040 NO INDEX ADKL A12,1 COUNT INDEX FILES LD A2,DWTOR,A6 ANK A2,/3F ORDER INDEX SUK A2,QIRW RB(NE) CHK040 NOT INDEXED REWRITE LD A2,FDBKA,A6 KEY START ADDR LDR A3,A2 AD A2,ECBBA,A9 KEY IN BUFFER AD A3,FDBRRO,A1 ADR A3,A11 KEY IN FILE LDK A7,0 LD A6,FDBRLE,A6 RECORD LENGTH SUK A6,6 KEY LENGTH CF A14,CHKKEY COMPARE KEYS CWR A6,A7 RB(E) CHK040 KEY UNCHANGED CHECK NEXT LDR A6,A1 FDB ADDR LDKL A1,/4000 KEY NOT FOUND RF DMERR CHK100 EQU * LDR A6,A1 FDB ADDR LD A7,DWTOR,A6 ANK A7,/3F ORDER INDEX LDK A2,0 LC A2,FDBNIF,A6 CWR A2,A12 RF(E) DMT310 ALL INDEX IS EXISTING LDKL A1,/8000 REQ ERR RF DMERR DMERND LDKL A1,/800 NO DATA RF DMERR XIF DMEAER LDKL A1,/2000 EA PROTECT DMERR ABL DMTERR EJECT * * MOVE RECORD * DMT310 EQU * IFT INDXAC=1 LDR A2,A7 SUK A2,QDEL ABL(E) DMXDEL INDEXED DELETE XIF LD A2,FDBRLE,A6 RECORD LENGTH LD A3,FDBRRO,A6 ADR A3,A11 TO ADDRESS LDR A4,A3 LD A1,ECBBA,A9 FROM ADDRESS XRR A4,A1 ANK A4,/01 RF(E) DMT320 BOTH ODD OR BOTH EVEN CF A14,DMTBM ONE ODD AND ONE EVEN RF DMT340 * DMT320 LDR A4,A3 ANK A4,/01 RF(E) DMT330 BOTH EVEN SUK A2,1 BOTH ODD LCR A4,A1 SCR A4,A3 ADK A1,1 ADK A3,1 DMT330 CF A14,DMTWM WORD MOVE * DMT340 EQU * * * SET STATUS USED * LDK A1,/FF DMT350 SCR A1,A10 LD A3,FDBDBR,A6 RF(NN) DMT394 NO DELAY LDR A2,A7 SUK A2,QSW RF(E) DMT360 SEQUENTIAL WRITE LDR A2,A7 SUK A2,QRWD RF(E) DMT400 DELAYED RANDOM WRITE SUK A7,QRDD RF(E) DMT400 DELAYED RANDOM DELETE RF DMT390 * WRITE IF LAST REC IN SECTOR * DMT360 LD A4,FDBRRO,A6 CW A4,FDBMRO,A6 RF(NE) DMT400 NOT LAST RECORD DMT390 LDK A7,/05 BASIC WRITE SLL A3,1 RF(N) DMT395 BASIC WANTED DMT394 LDK A7,/15 PHYSICAL WRITE DMT395 EQU * * * WRITE SECTOR ONTO DISC AND EXIT * LDR A1,A6 FDB ADDRESS AS PARAMETER LKM DATA -1 I/O AND ACTIVATION DATA DMTAR2 DMTASK RESTART #2 LKM DATA 3 EXIT EJECT * ************** * DMTAR2 * ************** * * DMTAR2 EQU * DMTASK RESTART AFTER WRITE * * SET UP A14 STACK * INH CF A15,GETA14 * CF A14,DMTIOT CHECK DISC I/O LDR A1,A1 RF(NZ) DMTERR LDKL A1,/C0FF ANS A1,FDBDBR,A6 RELEASE BUFFER DMT400 EQU * LDR A1,A6 FDB ADDR DATA FILE LD A2,ECBCW+2,A9 ANK A2,/FF LD A3,ECBCW,A9 LOG REC NR LC A11,ECBFC,A9 FILE CODE LD A7,DWTOR,A1 ANK A7,/3F ORDER INDEX LDK A4,QSW CWR A7,A4 RF(E) DMT460 SEQ WRITE LDK A4,QRD CWR A7,A4 RF(E) DMT420 RAND DEL LDK A4,QRDD CWR A7,A4 RF(E) DMT420 DELAYED RANDEOM DELETE IFT INDXAC=1 LDK A4,QDEL CWR A7,A4 RF(E) DMT420 INDEXED DELETE XIF LDR A5,A2 SAVE REC NO PART 1 LDR A9,A3 * * UPDATE CRN * CF A14,CRNGET GET CRN BUFFER LDR A10,A2 BUFFER ADDR CM CRNCIF,A2 * CLEAR INDEX CRN CM CRNCIF+2,A2 LDR A2,A5 LDR A3,A9 ST A2,CRNCDF,A10 ST A3,CRNCDF+2,A10 CRN DATA FILE SC A11,CRNCDF,A10 CRN FIL E CODE IFT INDXAC=1 LDK A4,QINS CWR A7,A4 RF(E) DMT460 INDEXED INSERT XIF DMT420 EQU * LDK A4,QSR CWR A7,A4 RF(E) DMT450 SEQ READ LDK A4,QRR CWR A7,A4 RF(E) DMT450 RANDOM READ LDK A4,QRRRB CWR A7,A4 RF(E) DMT450 RAND READ REL BUFFER DMT440 EQU * * * RELEASE EA * CF A14,EARELB REL EA RF DMTAEX DMT450 EQU * LC A4,DWTST,A1 DWTSTATUS ANK A4,EABIT EA-BIT RF(NZ) DMTAEX EA=1. NO EA WANTED * * CHECK IF EA IS SET ALREADY * CF A14,EATEST CHECK EA LDR A4,A4 RF(NZ) DMTAEX EA ALREADY SET * * SET EA * CF A14,EASETB RF DMTAEX DMT460 EQU * * * UPDATE LRN * SC A2,FDBLRN,A1 ST A3,FDBLRN+1,A1 IFT INDXAC=1 LDK A4,QINS CWR A7,A4 ABL(E) DMINS2 INDEXED INSERT XIF EJECT DMTAEX LDK A1,0 CORRECT RETURN * DMTERR LD A3,FDBDBR,A6 RF(NN) DMTEX1 NOT DELAY ANKL A3,/3F00 RF(NZ) DMTERX NO RELEASE OF BUFFER DMTEX1 LD A3,ECBBA,A8 SUK A3,8 DMTEX2 EQU * CF A14,DMTRBU RELEASE BUFFER AT A3 DMTERX EQU * INH * A1 = RET CODE * A6 = DWT ADDR CF A15,TENDIO ENB EXIT EQU * LKM DATA 3 IFT INDXAC=1 EJECT DMIRR EQU * * INDEXED RANDOM READ ********************************************* LD A9,DWTECB,A1 USER ECB ADDR LD A8,ECBCW,A9 ADDR OF KEY SUR A11,A11 LC A11,ECBCW+3,A9 NO OF CHAR LD A2,FDBRLE,A1 SUK A2,6 MAX KEY LENGTH CWR A11,A2 RF(NP) DMR005 NOT TOO LARGE KEY WANTED LDR A11,A2 MAX KEY DMR005 EQU * LDR A13,A1 ADKL A13,FDBECB ECB ADDR CF A14,FNDKEY GET INDEX RECORD DMR006 EQU * FROM INDEXED READ NEXT LD A9,DWTECB,A1 LDR A6,A1 FDB ADR LDKL A8,FDBECB ADR A8,A6 ECB ADDRESS LDR A2,A2 RETURN CODE RF(NZ) DMI030 KEY NOT FOUND * * KEY RECORD FOUN * CHECK IF NEXT RECORD HAS THE SAME KEY * LD A2,FDBRRO,A1 RECORD OFFSET ADK A2,10 BUFFER HEADER ADR A2,A3 REC ADDR LD A4,FDBRLE,A1 REC LENGTH SUK A4,6 KEY LENGTH ADR A2,A4 CC A4,2,A2 DUPLICATE KEY CHAR RF(NE) DMR020 NEXT KEY NOT SAME LDKL A5,/200 BIT 6 ORS A5,ECBRC,A9 NEXT KEY SAME DMR020 EQU * * * MOVE LOG REC NO TO ECB * LDK A5,0 LC A5,3,A2 SC A5,ECBCW+3,A8 LC A5,4,A2 ECR A5,A5 LC A5,5,A2 ST A5,ECBCW,A8 * * RELEASE BLOCK BUFFER * CF A14,DMTRBU EJECT * * PERFORM RANDOM READ ON THOIS DATA RECORD * LDR A6,A1 FDB ADDR LC A2,DWTST,A6 USER REQUESRT ANK A2,EABIT GET EA BIT SLL A2,1 LDK A7,/A RANDOM READ NO WAIT ORR A7,A2 EA BIT * * MOVE USER ECB * LDR A1,A9 FROM ECB ADDR LDR A3,A8 TO ECB ADDR LDK A2,6 NO OF CHAR CF A14,DMTWM MOVE ECB LDR A1,A6 FDB ADDR LKM DATA -1 DATA DMTAR4 LD A7,ECBRC,A8 RF(N) DMTAR4 REQ ERR LKM DATA 3 EXIT DMTAR4 EQU * * * SET UP A14 STACK * INH CF A15,GETA14 LDR A6,A1 LDKL A8,FDBECB ADR A8,A6 RR ECB LD A9,DWTECB,A6 USER ECB LD A1,ECBRC,A8 ORS A1,ECBRC,A9 RET CODE TO USER ANKL A1,/EEF7 BIT 3,7 AND 12 NOT GRAVE ERROR RB(NZ) DMTERX NOT OK * * SET CRN FOR INDEX FILE * LD A1,FDBADF,A6 FDB ADDR DATA FILEP CF A14,CRNGET GET CRN BUFFER ADDR LDR A10,A2 CRN BUFFER ADDR LDR A1,A6 FDB ADDR INDEX FILE CF A14,GTLGRN GET INDE X LOG REC NO SC A2,CRNCIF+1,A10 ST A3,CRNCIF+2,A10 CRN INDEX FILE LC A2,ECBFC,A9 SC A2,CRNCIF,A10 * THAT WAS FILE CODE CRN * * SET RERTURN CODEXS * LD A2,ECBEL,A8 EFFECTIVE LENGTH ST A2,ECBEL,A9 LDK A1,0 RETURN CODE ABL DMTERX TENDIO EJECT DMIRN EQU * INDEXED READ NEXT ********************************************* LDR A1,A6 FDB INDEX LD A2,FDBRRO,A1 RECORD OFFSET LDR A3,A5 SUK A3,10 BUFFER ADDR DMI100 EQU * ADR A2,A3 BUFFADR ADK A2,10 RECORD ADDR AD A2,FDBRLE,A1 ADDR OF STATUS CHAR LDK A5,/FF USED MARK CCR A5,A2 STATUS RF(E) DMI120 USED LD A4,FDBMRO,A1 ST A4,FDBRRO,A1 LAST REC IN SECT * * CHECK IF END OF FILE * LDR A9,A3 SAVE CF A14,GTLGRN GET REC NR CC A2,FDBLRN,A1 RF(L) DMI106 NOT EOF RF(G) DMI105 EOF CW A3,FDBLRN+1,A1 RF(L) DMI106 NOT EOF DMI105 LDR A3,A9 RF DMI030 EOF DMI106 LDR A3,A9 RESTORE RF DMI010 NEXT REC DMI120 EQU * * INDEX RECORD IS FOUND * LDK A2,0 MARK FOUND ABL DMR006 CONT AS FOR INDEXED RAND READ DMI010 EQU * CF A14,RDNXTR GET NEXT INDEX RECORD RB DMI100 RECORD FOUND LDR A6,A1 FDB ADDR DMI030 LDKL A1,/4000 KEY NOT FOUND DMI035 EQU * LDR A3,A3 BUFFER ADDR ABL(Z) DMTERX NO BUFFER ABL DMTERR ERROR AND BUFFER EJECT * DMINS2 EQU * INDEXED INSERT PART 2 * ********************************************* ENB ENB LD A3,ECBBA,A8 SUK A3,8 BUFSTA CF A14,DMTRBU RELEASE BUFFER DMXDEL EQU * INDEXED DELETE ************************************************* LDR A11,A7 ORDER CODE LDR A12,A8 PHYS ECB ADDR LDK A5,0 SC A5,FDBDBR,A1 ZEROE INDEX FILE COUNTER LDK A5,8 NR OF INDEX * 2 LDR A10,A1 FDB DATA DXI020 SUK A5,2 RF(N) DXI100 ALL INDEXES LDR A6,A10 ADR A6,A5 LD A1,FDBAI1,A6 FDB ADDR INDEX FILE RB(Z) DXI020 NO INDEX * * GET FILE CODE FOR THIS FDB ADDR * LD* A6,CDTAB DXI030 SUK A6,4 LD A7,CDTAB ADR A7,A6 CW A1,2,A7 RB(NE) DXI030 SEARCH NEXT LDR A8,A1 FDB INDEX ADKL A8,FDBECB ECB ADDR LC A6,1,A7 SC A6,ECBFC,A8 INDEX FILE LDR A6,A11 SUK A6,QINS RF(E) DXI080 INDEXED DELETE * * GET ADDRESSS OF DATA RECORD * LD A6,ECBBA,A12 SECTOR ADDR ADK A6,2 CYLID AD A6,FDBRRO,A10 ADDR DATA REC LDK A7,/20 DELETE INDEX NOWAIT RF DXI090 DXI080 EQU * LD A9,DWTECB,A10 USER ECB ADDR LD A6,ECBBA,A9 USER BUFFER ADDR LDK A7,/1F INSERT INDEX NOWAIT DXI090 EQU * ST A6,ECBBA,A8 * A1 = FDB ADDR IN DE XFILE LKM DATA -1 DATA DMTAR5 LD A7,ECBRC,A8 RF(N) DMTAR5 REQ ERR RB DXI020 NEXT INDEX DIRECT DXI100 LKM DATA 3 EXIT DMTAR5 EQU * LD A6,FDBADF,A1 FDB DATA FILE LD A9,DWTECB,A6 USER ECB LDKL A8,FDBECB ADR A1,A8 ECB INSERT INDEX ADR A8,A6 ECB DISC IO LD A1,ECBRC,A1 RET CODE BIT 10 AND 14 POSSIBLE ORS A1,ECBRC,A9 RC TO USER LDK A1,0 RETURN CODE LC A2,FDBDBR,A6 NR OF READY INDEX ADK A2,1 COUNT INDEXES CC A2,FDBNIF,A6 TOT NR OF INDEX RF(NE) DXI200 LD A7,DWTOR,A6 ANK A7,/3F ORDER CODE SUK A7,QINS INDEXED INSERT ABL(E) DMTERX READY * RESTORE REGISTERS FOR INDEXED DELETE * LD A10,FDBECB+2,A6 SECTOR ADDR ADKL A10,2 CYLID AD A10,FDBRRO,A6 AD A10,FDBRLE,A6 ADDR STATUS CHAR LDK A1,0 STATUS FREE ABL DMT350 CONTINUE AS FOR RANDOM DELETE DXI200 EQU * SC A2,FDBDBR,A6 LKM DATA 3 EXIT. MORE INDEX LEFT EJECT DMINIX EQU * INSERT INDEX * DMDELX EQU * DELETE INDEX RECORD ********************************************* LD A9,DWTECB,A1 USER ECB ADDR LD A8,ECBBA,A9 BUFFER ADDR USER AD A8,FDBKA,A1 KEY ADDR LDR A12,A8 LD A11,FDBRLE,A1 RECORD LENGTH SUKL A11,6 KEY LENGTH LDR A13,A14 ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS CF A14,FNDKEY GET INDEX RECORD LDR A6,A1 FDB ADDR LDR A1,A2 RET CODE LDR A3,A3 RB(Z) DMI035 NO SECTOR FOUND LDR A13,A3 BUFFER ADDR LD A4,FDBADF,A6 FDB DATA FILE LD A5,DWTECB,A4 USER ECB LD A1,DWTOR,A6 ANK A1,/3F SUK A1,QDELX ABL(E) DEL000 DELETE INDEX RECORD * * SET RC BIT 6 TO USER IF NEXT KEY * IS SAME IN REQUESTED INDEX * LDR A2,A2 RF(NZ) INS050 NEXT KEY NOT SAME * (SHORT KEY NOT ALLOWED IN FILE) * LC A4,ECBFC,A5 FILE CODE CC A4,FDBECB+1,A6 RF(NE) INS049 NOT REQUESTED FILE CODE LDKL A4,/200 BIT 6 ORS A4,ECBRC,A5 NEXT KEY SAME INS049 EQU * IFT INSLAS=1 * * INSERT SAME KEY LAST * LDR A1,A6 FDB LD A2,FDBRRO,A1 REC OFFS RF INS100 INS080 EQU * CF A14,RDNXTR GET NEXT REC RF INS100 OK ABL DEL045 ERROR INS100 EQU * ADR A2,A3 ADK A2,10 REC ADDR AD A2,FDBRLE,A1 ADDR STATUS LDK A5,/FF CCR A5,A2 RF(E) INS150 USED LD A5,FDBMRO,A1 ST A5,FDBRRO,A1 RB INS080 GET FIRST RE C IN NXT SECT INS150 EQU * LC A5,-4,A2 DUPL KEY CHAR CWR A5,A11 KEY LENGTH RB(E) INS080 NEXT SAME GET NEXT * * UPDATE LAST SAME RECORD * SC A11,-4,A2 NEXT SAME LD A7,FDBRRO,A1 CW A7,FDBMRO,A1 RF(NE) INS160 SECT WRITTEN LATER * * WRITE SECTOR * LDK A7,/95 WRITE,WAIT LKM DATA 1 CF A14,DMTIOZ IO CHECK LDR A1,A1 ABL(NZ) DMTERR * * GET NEXT RECORD * INS160 EQU * LDR A7,A5 NR OF SAME IN NEXT LDR A1,A6 FDB CF A14,RDNXTR GET NEXT RC RF INS170 OK ABL DEL045 ERROR INS170 EQU * LDR A13,A3 BUFFER ADDR LD A5,FDBADF,A6 LD A5,DWTECB,A5 USER ECB ADDR XIF IFT INDXAC=1 INS050 EQU * * * CREATE AN INDE XRECORD IN AREA 1 * LDR A1,A12 FROM ADDR LDR A3,A14 ADK A3,2 TO ADDR LDR A2,A11 KEY LENGTH CF A14,DMTBM MOVE KEY LDK A2,0 SCR A2,A3 DUMMY ADK A3,1 SCR A2,A3 DUMMY ADK A3,1 SCR A7,A3 NR OF SAME CHAR ADK A3,1 LDR A7,A3 ADDR OF LOG REC NR LD A2,ECBCW+2,A5 LD A3,ECBCW,A5 REC NR DATA FILE REC SCR A2,A7 ADK A7,2 SCR A3,A7 ECR A3,A3 SUK A7,1 SCR A3,A7 LOG REC NR ADK A7,2 LDK A1,/FF USED SCR A1,A7 STATUS CHAR LDR A1,A6 FDB INDEX CF A14,GTLGRN GET REC NR INDEX * * SAVE RECORD NR FOR FIRST MOVED INDEX * ST A2,-28,A14 ST A3,-26,A14 EJECT * * BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING * USED RECORDS ROLLED FORWARD * A6,A11,A13 IS USED AT ENTRY ADKL A11,7 RECORD LENGTH TOTAL * * USE D REGISTERS * A6 = FDB ADDR INDEX * A10 = AREA ADDR * A11 = RECORD LENGTH INDEX * A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 * A13 = BUFFER ADDRESS SECTOR * INS190 EQU * LDKL A12,1 BUFADR2 INS200 EQU * LDK A1,0 LDR A12,A12 RF(Z) INS210 BUFAR1 LDKL A1,RECBFZ RECORD BUUFFER SIZE SLL A1,1 BYTE INS210 LDR A10,A14 ADK A1,2 ADR A10,A1 RECORD BUFFER AREA ADDR * * SAVE LAST RECORD * LDR A1,A13 ADK A1,10 BUFSTA+2 AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT LDR A2,A11 LDR A3,A10 CF A14,DMTBM SAVE LAST RECORD * MOVE REST OF SECTOR * LDR A1,A13 ADK A1,10 BUFSTA+2 AD A1,FDBRRO,A6 FROM ADDR LDR A5,A1 LD A2,FDBMRO,A6 SU A2,FDBRRO,A6 NR OF CHAR LDR A3,A1 ADR A3,A11 TO ADDR CF A14,DMTBMR MOVE * INSERT NEW RECORD * LDKL A1,RECBFZ BUFFER SIZE SLL A1,1 BYTE NO LDR A12,A12 RF(Z) INS250 BUFAR1 LDK A1,0 SELECT OTHER BUFFER INS250 EQU * ADR A1,A14 FROM ADDR ADK A1,2 FROM ADDR LDR A2,A11 NR OF CHAR LDR A3,A5 TO ADDR CF A14,DMTBM MOVE * WRITE BUFFER * LDR A8,A14 USE STACK AS ECB SUKL A8,24 LC A2,FDBEXT+1,A6 VOL DEV CODE STR A2,A8 LDR A2,A13 ADK A2,8 BUFSTA ST A2,ECBBA,A8 SECTOR ADDR LDKL A2,SECTLE SECTOR LGTH ST A2,ECBRL,A8 LD A2,FDBSNR,A6 SECTOR NR ST A2,ECBCW,A8 SECTOR NR LDK A7,/95 WRITE , WAIT LKM DATA 1 LDR A1,A6 FDB INDEX CF A14,DMTIOZ IO CHECK LDR A1,A1 ABL(NZ) DMTERR * * IF SPILLED RECORD IS FREE, OPERATION IS READY * LDR A2,A10 RECORD AREA ADDR ADR A2,A11 REC LGTH SUK A2,1 ADDR OF STATUS CHAR LD A4,FDBMRO,A6 ST A4,FDBRRO,A6 MAX OFFSET IN SECT CCR A1,A2 RF(Z) INS400 FREE RECORD * * GET NEXT SECTOR * LDR A1,A6 FDB ADDR LDR A3,A13 BUFFER ADDR CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR RF INS260 OK LDR A1,A5 ABL DMI035 ERROR INS260 EQU * LDR A13,A3 NEW BUFFER ADDR LDR A12,A12 RB(Z) INS190 SWITCH RECORD BUFFERS SUR A12,A12 RB INS200 EJECT INS400 EQU * * * UPDATE LRN IF EOF IS ENCOUNTERED * LDR A1,A6 FDB INDEX CF A14,GTLGRN CC A2,FDBLRN,A1 RF(L) INS430 NO EOF RF(G) INS410 EOF CW A3,FDBLRN+1,A1 RF(NG) INS430 NO EOF INS410 EQU * SC A2,FDBLRN,A6 LLAST REC NR ST A3,FDBLRN+1,A6 LDKL A1,/1000 EOF ORS A1,ECBRC,A9 EOF TO USER INS430 EQU * * * UPDATE CRN-LINK FOR MOVED INDEX RECORDS * LDKL A12,1 ADD ON E TO CRN LDR A8,A2 LDR A9,A3 LAST REC NR MOVED LD A10,-28,A14 LD A11,-26,A14 FIRST REC NR MOVED CF A14,CRNUPD ADD 1 TO RECORD NUMBERS * * UPDATE CRN IF SAME FILE CODE * LD A1,FDBADF,A5 FDB DATA F CF A14,CRNGET GET CRN BUFFER LC A4,ECBFC,A9 USER FILE CODE CC A4,FDBECB+1,A5 RF(NE) INS440 OTHRER FILE ST A10,CRNCIF,A2 ST A11,CRNCIF+2,A2 REC NR SC A4,CRNCIF,A2 FILE CODE INS440 EQU * LDR A6,A5 FDB INDEX LDK A1,0 OK RET CODE LDR A3,A13 BUFFER ADDR ABL DMTEX2 EJECT DEL000 EQU * DELETE INDEX RECORD CONT LDR A12,A5 USER ECB ADDR LDR A2,A2 DEL010 EQU * ABL(NZ) DMI030 KEY NOT FOUND * * CHECK RECORD NR DATA REC * DEL020 EQU * LD A1,FDBRRO,A6 ADR A1,A3 AD A1,FDBRLE,A6 ADK A1,7 BUFSTA+2-3=ADDR REC NR LCR A2,A1 CC A2,ECBCW+3,A12 REC NR RF(NE) DEL030 WRONG RECORD LC A2,1,A1 ECR A2,A2 LC A2,2,A1 REC NR CW A2,ECBCW,A12 RF(E) DEL200 RECORD FOUND DEL030 EQU * * * CHECK IF NEXT KEY SAME * CC A11,-1,A1 KEY LENGTH RB(NE) DEL010 NEXT KEY NOT SAME LDR A1,A6 FDB INDEX DEL040 EQU * CF A14,RDNXTR GET NEXT INDEX RECORD RF DEL050 OK DEL045 LDR A1,A5 ERROR CODE ABL DMI035 ERROR DEL050 EQU * * * CHECK IF RECORD IS USED * LDR A13,A3 NEW BUFFER ADDR ADR A2,A3 ADK A2,10 BUFSTA + 2 AD A2,FDBRLE,A1 ADDR OF STATUS LDK A5,/FF CCR A5,A2 RB(E) DEL020 USED LD A4,FDBMRO,A1 ST A4,FDBRRO,A1 LAST REC IN SECTOR RB DEL040 NEXT REC EJECT DEL200 EQU * RECORD FOUND * * SET RC BIT 6 IF NEXT KEY SAME * LC A2,ECBFC,A12 USER FILE CODE LDK A7,0 LC A7,-1,A1 NR OF SAME CHAR ST A7,16,A14 SAVE IN RECORD BUFFER AFTER ECB CC A2,FDBECB+1,A6 RF(NE) DEL220 NOT REQUESTED FILE CODE CWR A11,A7 KEY LENGTH RF(NE) DEL220 NEXT KEY NOT SAME LDKL A4,/200 ORS A4,ECBRC,A12 NEXT KEY SAME DEL220 EQU * * * MOVE UP RECORDS OVER DELETED * ADKL A11,7 TOTAL RECORD LENGTH LDR A3,A13 ADK A3,10 BUFSTA+2 AD A3,FDBRRO,A6 TO ADDR LDR A1,A3 ADR A1,A11 FROM ADDR LD A2,FDBMRO,A6 SU A2,FDBRRO,A6 NR OF CHAR CF A14,DMTBM MOVE * * SET LAST RECORD FREE * ADR A3,A11 SUK A3,1 LDK A1,0 SCR A1,A3 STATUS FREE * * UPDATE CRN FOR MOVED RECORDS * LDR A1,A6 FDB ADDR CF A14,GTLGRN GET REC NR LDR A10,A2 LDR A11,A3 FIRST REC NR MOVED LD A12,FDBRRO,A6 OLD OFFSET LD A4,FDBMRO,A6 ST A4,FDBRRO,A6 MAX OFFSET CF A14,GTLGRN LAST REC NR MOVED LDR A8,A2 LDR A9,A3 REC NR ST A12,FDBRRO,A6 RESET OFFSET LDKL A12,-1 CF A14,CRNUPD UPDATE CRN BUFFERS LDKL A12,1 MARK BUFFER CHANGED DEL240 EQU * LD A4,FDBRRO,A5 RF(NZ) DEL290 NOT FIRST RECORD LDR A1,A5 FDB CF A14,GTLGRN GET REC NR LDR A1,A2 LDR A2,A3 LDK A6,0 LDK A7,1 CF A14,DSUMOD A1,A2 = A1,A2 - 1 RF(Z) DEL600 FILE START LDR A6,A5 FDB ADDR CF A14,CALSNO GET SECTOR NR LDR A5,A6 FDB ADDR LDR A1,A1 RF(NZ) DEL600 FILE START LDR A8,A14 ADKL A8,2 ECB ADDR LDR A12,A12 RF(Z) DEL245 BUFFER NOT CHANGED * * WRITE SECTOR * LDK A7,/95 WRITE WAIT LKM DATA 1 LDR A1,A5 FDB CF A14,DMTIOZ IO CHECK LDR A1,A1 ABL(NZ) DMTERR SUR A12,A12 BUFFER NOT CHANGED YET DEL245 EQU * LDR A3,A13 CF A14,DMTRBU RELEASE BUFFER * * GET PREVIOUS SECTOR * LDR A1,A5 FDB ADDR LDK A3,0 CF A14,RDNXTR GET SECTOR RF DEL250 OK LDR A6,A1 FDB ADDR RB DEL045 DEL250 EQU * LDR A5,A1 FDB LDR A13,A3 NEW BUFFER ADDR LD A4,FDBMRO,A5 RF DEL300 DEL290 EQU * SU A4,FDBRLE,A5 SUK A4,1 DEL300 EQU * ST A4,FDBRRO,A5 PREVIOS RECORD OFFSET ADK A4,10 BUFSTA+2 ADR A4,A13 RECORD ADDR AD A4,FDBRLE,A5 STATUS CHAR ADDR LDK A2,/FF CCR A2,A4 RB(NE) DEL240 FREE LC A2,17,A14 NR OF SAME IN DELETED RECORD CC A2,-4,A4 RF(NL) DEL600 SC A2,-4,A4 MAKE NR OF SAME SMALLER RF DEL700 WRITE SECTOR DEL600 EQU * LDR A12,A12 RF(Z) DEL900 BUFFER NOT CHANGED * * WRITE SECTOR * DEL700 EQU * LDR A8,A14 ADKL A8,2 ECB ADDR LDK A7,/95 WRITE WAIT LKM DATA 1 LDR A1,A5 FDB ADDR CF A14,DMTIOZ IO CHECK LDR A1,A1 ABL(NZ) DMTERR DEL900 EQU * ABL INS440 XIF END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DMTASK 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=» BUF. HANDL. L. 1614«, t00=0x0000, t01=0x0042}
0x005c…0082 Head {h00=0x0022, h01=0x0050, text=» REQ ERR HANDL L. 1351,1488 «, t00=0x0000, t01=0x0060}
0x0082…009e Head {h00=0x0018, h01=0x0050, text=» REL 8.1 78-04-21 «, t00=0x0000, t01=0x0086}
0x009e…00a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00a2}
0x00a8…00e4 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x00ac}
0x00e4…00ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e8}
0x00ee…0116 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00f2}
0x0116…0120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011a}
0x0120…0154 Head {h00=0x0030, h01=0x0050, text=»* DMTASK = HANDLES DATAMANAGEMENT DISC I/O«, t00=0x0000, t01=0x0124}
0x0154…015e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…0168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0162}
0x0168…0172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016c}
0x0172…017c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0176}
0x017c…0186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x0186…0190 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x018a}
0x0190…01cc (1, 0, 398) Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0001, t01=0x0004}
0x01cc…01d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0040}
0x01d6…0206 Head {h00=0x002c, h01=0x0050, text=»* THIS MODULE IS ACTIVATED FROM TIODM.«, t00=0x0001, t01=0x004a}
0x0206…0210 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x007a}
0x0210…022e Head {h00=0x001a, h01=0x0050, text=»* INPUT PARAMETERS: «, t00=0x0001, t01=0x0084}
0x022e…024a Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x0001, t01=0x00a2}
0x024a…028a Head {h00=0x003c, h01=0x0050, text=»* A2 = TID TASK IDENT OF DMTASK AT PRESENT NOT USED«, t00=0x0001, t01=0x00be}
0x028a…0294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fe}
0x0294…02e0 Head {h00=0x0048, h01=0x0050, text=»* THE SECTOR TO BE ACCESSED IS DEFINED IN FDB (FDBDMI, -FC, -SNR).«, t00=0x0001, t01=0x0108}
0x02e0…031e Head {h00=0x003a, h01=0x0050, text=»* ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS SECTOR«, t00=0x0001, t01=0x0154}
0x031e…0368 (2, 0, 400) Head {h00=0x0046, h01=0x0050, text=»* IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET«, t00=0x0002, t01=0x0004}
0x0368…03b0 Head {h00=0x0044, h01=0x0050, text=»* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT«, t00=0x0002, t01=0x004e}
0x03b0…03ee Head {h00=0x003a, h01=0x0050, text=»* THE SECTOR MUST FIRST BE READ INTO A FREE BUFFER. «, t00=0x0002, t01=0x0096}
0x03ee…03f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d4}
0x03f8…0444 Head {h00=0x0048, h01=0x0050, text=»* ALL I/O LKM REQUESTS IN THIS MODULE ARE WITH ACTIVATION AND ARE «, t00=0x0002, t01=0x00de}
0x0444…0470 Head {h00=0x0028, h01=0x0050, text=»* FOLLOWED BY AN EXIT LKM REQUEST.«, t00=0x0002, t01=0x012a}
0x0470…04ae Head {h00=0x003a, h01=0x0050, text=»* INDEX FILES ARE HANDLED IN SUBROUTINE RDNXTR WHERE«, t00=0x0002, t01=0x0156}
0x04ae…04d8 (3, 0, 400) Head {h00=0x0026, h01=0x0050, text=»* ALL I/O ARE MADE IN WAIT MODE «, t00=0x0003, t01=0x0004}
0x04d8…04e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x002e}
0x04e2…052a Head {h00=0x0044, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE EXCLUSIVE ACCESS CHECK «, t00=0x0003, t01=0x0038}
0x052a…0564 Head {h00=0x0036, h01=0x0050, text=»* FOR INDEXED DELETE AND FOR INDEXED REWRITE AND«, t00=0x0003, t01=0x0080}
0x0564…05a4 Head {h00=0x003c, h01=0x0050, text=»* FOR RANDOM WRITE AND RANDOM DELETE CAN BE EXCLUDED. «, t00=0x0003, t01=0x00ba}
0x05a4…05ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05ae…05e4 Head {h00=0x0032, h01=0x0050, text=»* QNOEXA=1 EXCLUSIVE ACCESS CHECK INCLUDED«, t00=0x0003, t01=0x0104}
0x05e4…061a Head {h00=0x0032, h01=0x0050, text=»* QNOEXA=0 EXCLUSIVE ACCESS CHECK EXCLUDED«, t00=0x0003, t01=0x013a}
0x061a…0628 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0003, t01=0x0170}
0x0628…0632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017e}
0x0632…064a Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0003, t01=0x0188}
0x064a…0662 Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0004, t01=0x0010}
0x0662…067a Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x0028}
0x067a…0684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0040}
0x0684…068e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x004a}
0x068e…06a4 Head {h00=0x0012, h01=0x0050, text=» ENTRY DMTASK «, t00=0x0004, t01=0x0054}
0x06a4…06ce Head {h00=0x0026, h01=0x0050, text=» ENTRY SQR EXTERNAL CODE SEQ READ «, t00=0x0004, t01=0x006a}
0x06ce…06e0 Head {h00=0x000e, h01=0x0050, text=» ENTRY QSW«, t00=0x0004, t01=0x0094}
0x06e0…06f8 Head {h00=0x0014, h01=0x0050, text=» ENTRY QIRN,QIRR«, t00=0x0004, t01=0x00a6}
0x06f8…070c Head {h00=0x0010, h01=0x0050, text=» ENTRY DMTWM«, t00=0x0004, t01=0x00be}
0x070c…071a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x00d2}
0x071a…0724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00e0}
0x0724…073e Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0004, t01=0x00ea}
0x073e…0758 Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0104}
0x0758…0772 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0004, t01=0x011e}
0x0772…077c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0138}
0x077c…0786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0142}
0x0786…07a0 Head {h00=0x0016, h01=0x0050, text=» EXTRN TCTAB,CDTAB«, t00=0x0004, t01=0x014c}
0x07a0…07bc Head {h00=0x0018, h01=0x0050, text=» EXTRN TTB:TD,FDBSTA«, t00=0x0004, t01=0x0166}
0x07bc…07d2 Head {h00=0x0012, h01=0x0050, text=» EXTRN FNDTID «, t00=0x0004, t01=0x0182}
0x07d2…07e8 Head {h00=0x0012, h01=0x0050, text=» EXTRN TENDIO «, t00=0x0005, t01=0x0008}
0x07e8…07fe Head {h00=0x0012, h01=0x0050, text=» EXTRN RTNA15 «, t00=0x0005, t01=0x001e}
0x07fe…0814 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBECB «, t00=0x0005, t01=0x0034}
0x0814…082a Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBSNR «, t00=0x0005, t01=0x004a}
0x082a…0840 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBRRO «, t00=0x0005, t01=0x0060}
0x0840…0856 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBRLE «, t00=0x0005, t01=0x0076}
0x0856…086c Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBBLF «, t00=0x0005, t01=0x008c}
0x086c…0882 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBTNR «, t00=0x0005, t01=0x00a2}
0x0882…0898 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBVTO «, t00=0x0005, t01=0x00b8}
0x0898…08ae Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBCEX «, t00=0x0005, t01=0x00ce}
0x08ae…08c4 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBEXT «, t00=0x0005, t01=0x00e4}
0x08c4…08da Head {h00=0x0012, h01=0x0050, text=» EXTRN EXTDMI «, t00=0x0005, t01=0x00fa}
0x08da…08ee Head {h00=0x0010, h01=0x0050, text=» EXTRN EXTFC«, t00=0x0005, t01=0x0110}
0x08ee…0904 Head {h00=0x0012, h01=0x0050, text=» EXTRN EXTLEN «, t00=0x0005, t01=0x0124}
0x0904…091a Head {h00=0x0012, h01=0x0050, text=» EXTRN EXTBAS «, t00=0x0005, t01=0x013a}
0x091a…0930 Head {h00=0x0012, h01=0x0050, text=» EXTRN EXTELE «, t00=0x0005, t01=0x0150}
0x0930…0946 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBLRN «, t00=0x0005, t01=0x0166}
0x0946…095c Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBMIA «, t00=0x0005, t01=0x017c}
0x095c…0972 (6, 0, 400) Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBEAL «, t00=0x0006, t01=0x0004}
0x0972…0988 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBADF «, t00=0x0006, t01=0x001a}
0x0988…099e Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBAI1 «, t00=0x0006, t01=0x0030}
0x099e…09b4 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBCRL «, t00=0x0006, t01=0x0046}
0x09b4…09d8 Head {h00=0x0020, h01=0x0050, text=» EXTRN FDBDBR,FDBMRN,FDBMRO «, t00=0x0006, t01=0x005c}
0x09d8…09ec Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBFC«, t00=0x0006, t01=0x0080}
0x09ec…0a00 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBBA«, t00=0x0006, t01=0x0094}
0x0a00…0a14 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRL«, t00=0x0006, t01=0x00a8}
0x0a14…0a28 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBEL«, t00=0x0006, t01=0x00bc}
0x0a28…0a3c Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBRC«, t00=0x0006, t01=0x00d0}
0x0a3c…0a50 Head {h00=0x0010, h01=0x0050, text=» EXTRN ECBCW«, t00=0x0006, t01=0x00e4}
0x0a50…0a66 Head {h00=0x0012, h01=0x0050, text=» EXTRN CLRBUF «, t00=0x0006, t01=0x00f8}
0x0a66…0a7c Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFLNK «, t00=0x0006, t01=0x010e}
0x0a7c…0a92 Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFDMI «, t00=0x0006, t01=0x0124}
0x0a92…0aa6 Head {h00=0x0010, h01=0x0050, text=» EXTRN BUFFC«, t00=0x0006, t01=0x013a}
0x0aa6…0abc Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFSNR «, t00=0x0006, t01=0x014e}
0x0abc…0ad0 Head {h00=0x0010, h01=0x0050, text=» EXTRN BUFOR«, t00=0x0006, t01=0x0164}
0x0ad0…0ae6 Head {h00=0x0012, h01=0x0050, text=» EXTRN BUFSTA «, t00=0x0006, t01=0x0178}
0x0ae6…0afc Head {h00=0x0012, h01=0x0050, text=» EXTRN CURBUF «, t00=0x0006, t01=0x018e}
0x0afc…0b12 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTECB «, t00=0x0007, t01=0x0014}
0x0b12…0b26 Head {h00=0x0010, h01=0x0050, text=» EXTRN DWTOR«, t00=0x0007, t01=0x002a}
0x0b26…0b48 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTST,DWTTDM,DWTTQ «, t00=0x0007, t01=0x003e}
0x0b48…0b74 Head {h00=0x0028, h01=0x0050, text=» EXTRN DMTRBU RELEASE A DISC BUFFER «, t00=0x0007, t01=0x0060}
0x0b74…0b88 Head {h00=0x0010, h01=0x0050, text=» EXTRN VTLRN«, t00=0x0007, t01=0x008c}
0x0b88…0b9c Head {h00=0x0010, h01=0x0050, text=» EXTRN VLVBA«, t00=0x0007, t01=0x00a0}
0x0b9c…0bb0 Head {h00=0x0010, h01=0x0050, text=» EXTRN VLVRL«, t00=0x0007, t01=0x00b4}
0x0bb0…0bcc Head {h00=0x0018, h01=0x0050, text=» EXTRN DMTIOT,DIVMOD«, t00=0x0007, t01=0x00c8}
0x0bcc…0be8 Head {h00=0x0018, h01=0x0050, text=» EXTRN MPYMOD,CHKKEY«, t00=0x0007, t01=0x00e4}
0x0be8…0bfe Head {h00=0x0012, h01=0x0050, text=» EXTRN CALSNO «, t00=0x0007, t01=0x0100}
0x0bfe…0c14 Head {h00=0x0012, h01=0x0050, text=» EXTRN DSUMOD «, t00=0x0007, t01=0x0116}
0x0c14…0c46 Head {h00=0x002e, h01=0x0050, text=» EXTRN EATEST,EASETB,CRNGET,EARELB,GTBKBU «, t00=0x0007, t01=0x012c}
0x0c46…0c62 Head {h00=0x0018, h01=0x0050, text=» EXTRN QTJOB,GTLGRN «, t00=0x0007, t01=0x015e}
0x0c62…0c78 Head {h00=0x0012, h01=0x0050, text=» EXTRN FNDKEY «, t00=0x0007, t01=0x017a}
0x0c78…0c9c Head {h00=0x0020, h01=0x0050, text=» EXTRN CRNCIF,CRNCDF,CRNQUE «, t00=0x0007, t01=0x0190}
0x0c9c…0cb0 Head {h00=0x0010, h01=0x0050, text=» EXTRN MXIND«, t00=0x0008, t01=0x0024}
0x0cb0…0cd2 Head {h00=0x001e, h01=0x0050, text=» EXTRN FDBKA,FDBNIF,RDNXTR«, t00=0x0008, t01=0x0038}
0x0cd2…0d04 Head {h00=0x002e, h01=0x0050, text=» EXTRN BUFAR1,BUFAR2,SECTLE,DMTIOZ,CRNUPD «, t00=0x0008, t01=0x005a}
0x0d04…0d12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x008c}
0x0d12…0d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009a}
0x0d1c…0d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a4}
0x0d26…0d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ae}
0x0d30…0d50 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x00b8}
0x0d50…0d70 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0008, t01=0x00d8}
0x0d70…0d90 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x00f8}
0x0d90…0d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0118}
0x0d9a…0dd6 Head {h00=0x0038, h01=0x0050, text=»* CHECK OF EXCLUSIVE ACCESS BIT CAN BE EXCLUDED AT«, t00=0x0008, t01=0x0122}
0x0dd6…0e12 Head {h00=0x0038, h01=0x0050, text=»* RANDOM WRITE AND RANDOM DELETE BY SETTING X:A=0.«, t00=0x0008, t01=0x015e}
0x0e12…0e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x000a}
0x0e1c…0e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0014}
0x0e26…0e38 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 1 «, t00=0x0009, t01=0x001e}
0x0e38…0e4a Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0009, t01=0x0030}
0x0e4a…0e5c Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x0009, t01=0x0042}
0x0e5c…0e6e Head {h00=0x000e, h01=0x0050, text=»X:D EQU 1 «, t00=0x0009, t01=0x0054}
0x0e6e…0e80 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0009, t01=0x0066}
0x0e80…0e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0078}
0x0e8a…0e9e Head {h00=0x0010, h01=0x0050, text=»QNOEXA EQU 1«, t00=0x0009, t01=0x0082}
0x0e9e…0ed8 Head {h00=0x0036, h01=0x0050, text=»* INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH «, t00=0x0009, t01=0x0096}
0x0ed8…0f08 Head {h00=0x002c, h01=0x0050, text=»* INDXAC EQU 1 = INDEX ACCESS INCLUDED«, t00=0x0009, t01=0x00d0}
0x0f08…0f42 Head {h00=0x0036, h01=0x0050, text=»* INDXAC EQU 0 = INDEX ACCESS FUNCTIONS OMITTED «, t00=0x0009, t01=0x0100}
0x0f42…0f56 Head {h00=0x0010, h01=0x0050, text=»INDXAC EQU 0«, t00=0x0009, t01=0x013a}
0x0f56…0f8e Head {h00=0x0034, h01=0x0050, text=»RECBFZ EQU X:C INDEX RECORD BUFFER SIZE IN WORDS«, t00=0x0009, t01=0x014e}
0x0f8e…0fc6 Head {h00=0x0034, h01=0x0050, text=»FLXDSC EQU X:D FLEXIBLE DISC INCLUDED WHEN EQU 1«, t00=0x0009, t01=0x0186}
0x0fc6…0ffa Head {h00=0x0030, h01=0x0050, text=»INSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1«, t00=0x000a, t01=0x002e}
0x0ffa…1008 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0062}
0x1008…1012 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0070}
0x1012…1032 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x007a}
0x1032…1052 Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x000a, t01=0x009a}
0x1052…1072 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x00ba}
0x1072…107c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00da}
0x107c…1086 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e4}
0x1086…10b6 Head {h00=0x002c, h01=0x0050, text=»EABIT EQU /20 EA-BIT IN DWT STATUS BYTE «, t00=0x000a, t01=0x00ee}
0x10b6…10c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011e}
0x10c0…10ea Head {h00=0x0026, h01=0x0050, text=»VTOBLK EQU 9 VTOC BLOCKING FACTOR «, t00=0x000a, t01=0x0128}
0x10ea…10f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0152}
0x10f4…1132 Head {h00=0x003a, h01=0x0050, text=»* THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE«, t00=0x000a, t01=0x015c}
0x1132…115c Head {h00=0x0026, h01=0x0050, text=»* POSITION IN TIODM-TABLE TIODMF«, t00=0x000b, t01=0x000a}
0x115c…1166 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0034}
0x1166…1178 Head {h00=0x000e, h01=0x0050, text=»QCL EQU 0 «, t00=0x000b, t01=0x003e}
0x1178…119a Head {h00=0x001e, h01=0x0050, text=»DMTAFU DATA DMCLOSE CLOSE «, t00=0x000b, t01=0x0050}
0x119a…11ac Head {h00=0x000e, h01=0x0050, text=»QRV EQU 2 «, t00=0x000b, t01=0x0072}
0x11ac…11d2 Head {h00=0x0022, h01=0x0050, text=» DATA DMREVT READ VTOC RECORD «, t00=0x000b, t01=0x0084}
0x11d2…11e4 Head {h00=0x000e, h01=0x0050, text=»QIRN EQU 4«, t00=0x000b, t01=0x00aa}
0x11e4…11fa Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000b, t01=0x00bc}
0x11fa…1220 Head {h00=0x0022, h01=0x0050, text=» DATA DMIRN INDEXED READ NEXT «, t00=0x000b, t01=0x00d2}
0x1220…1232 Head {h00=0x000e, h01=0x0050, text=»QINS EQU 6«, t00=0x000b, t01=0x00f8}
0x1232…1254 Head {h00=0x001e, h01=0x0050, text=» DATA DMINS INDEXED INSERT«, t00=0x000b, t01=0x010a}
0x1254…1266 Head {h00=0x000e, h01=0x0050, text=»QDEL EQU 8«, t00=0x000b, t01=0x012c}
0x1266…1288 Head {h00=0x001e, h01=0x0050, text=» DATA DMDEL INDEXED DELETE«, t00=0x000b, t01=0x013e}
0x1288…129c Head {h00=0x0010, h01=0x0050, text=»QIRW EQU 10 «, t00=0x000b, t01=0x0160}
0x129c…12c0 Head {h00=0x0020, h01=0x0050, text=» DATA DMIRW INDEXED REWRITE «, t00=0x000b, t01=0x0174}
0x12c0…12e8 Head {h00=0x0024, h01=0x0050, text=» DATA DMIRR INDEXED RANDOM RESAD«, t00=0x000c, t01=0x0008}
0x12e8…12f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0030}
0x12f4…1308 Head {h00=0x0010, h01=0x0050, text=»QIRR EQU 12 «, t00=0x000c, t01=0x003c}
0x1308…131e Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x000c, t01=0x0050}
0x131e…134e Head {h00=0x002c, h01=0x0050, text=» DATA DMTERR,DMTERR,DMTERR,DMTERR,DMTERR«, t00=0x000c, t01=0x0066}
0x134e…135a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0096}
0x135a…136c Head {h00=0x000e, h01=0x0050, text=»QRD EQU 14«, t00=0x000c, t01=0x00a2}
0x136c…138e Head {h00=0x001e, h01=0x0050, text=» DATA DMRDDE RANDOM DELETE«, t00=0x000c, t01=0x00b4}
0x138e…13a0 Head {h00=0x000e, h01=0x0050, text=»QRW EQU 16«, t00=0x000c, t01=0x00d6}
0x13a0…13c2 Head {h00=0x001e, h01=0x0050, text=» DATA DMRDWR RANDOM WRITE «, t00=0x000c, t01=0x00e8}
0x13c2…13d4 Head {h00=0x000e, h01=0x0050, text=»QRR EQU 18«, t00=0x000c, t01=0x010a}
0x13d4…13f4 Head {h00=0x001c, h01=0x0050, text=» DATA DMRDRE RANDOM READ«, t00=0x000c, t01=0x011c}
0x13f4…1408 Head {h00=0x0010, h01=0x0050, text=»QREA EQU 20 «, t00=0x000c, t01=0x013c}
0x1408…1436 Head {h00=0x002a, h01=0x0050, text=» DATA DMTERR RELEASE EXCLUSIVE ACCESS «, t00=0x000c, t01=0x0150}
0x1436…1448 Head {h00=0x000e, h01=0x0050, text=»QSW EQU 22«, t00=0x000c, t01=0x017e}
0x1448…146e Head {h00=0x0022, h01=0x0050, text=» DATA DMSQWR SEQUENTIAL WRITE «, t00=0x000c, t01=0x0190}
0x146e…149c Head {h00=0x002a, h01=0x0050, text=»SQR EQU 2 EXTERNAL ORDER CODE SEQ READ«, t00=0x000d, t01=0x0026}
0x149c…14ae Head {h00=0x000e, h01=0x0050, text=»QSR EQU 24«, t00=0x000d, t01=0x0054}
0x14ae…14d2 Head {h00=0x0020, h01=0x0050, text=» DATA DMSQRE SEQUENTIAL READ«, t00=0x000d, t01=0x0066}
0x14d2…14e6 Head {h00=0x0010, h01=0x0050, text=»QGCUR EQU 26«, t00=0x000d, t01=0x008a}
0x14e6…1508 Head {h00=0x001e, h01=0x0050, text=» DATA DMTERR GET CURRENCY «, t00=0x000d, t01=0x009e}
0x1508…151e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000d, t01=0x00c0}
0x151e…1532 Head {h00=0x0010, h01=0x0050, text=»QINIX EQU 28«, t00=0x000d, t01=0x00d6}
0x1532…1554 Head {h00=0x001e, h01=0x0050, text=» DATA DMINIX INSERT INDEX «, t00=0x000d, t01=0x00ea}
0x1554…1568 Head {h00=0x0010, h01=0x0050, text=»QDELX EQU 30«, t00=0x000d, t01=0x010c}
0x1568…158a Head {h00=0x001e, h01=0x0050, text=» DATA DMDELX DELETE INDEX «, t00=0x000d, t01=0x0120}
0x158a…1596 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0142}
0x1596…15ac Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x000d, t01=0x014e}
0x15ac…15c8 Head {h00=0x0018, h01=0x0050, text=» DATA DMTERR,DMTERR «, t00=0x000d, t01=0x0164}
0x15c8…15d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0180}
0x15d4…15ea Head {h00=0x0012, h01=0x0050, text=»QGCURX EQU 32 «, t00=0x000d, t01=0x018c}
0x15ea…1610 Head {h00=0x0022, h01=0x0050, text=» DATA DMTERR GET CURRENT INDEX«, t00=0x000e, t01=0x0012}
0x1610…1624 Head {h00=0x0010, h01=0x0050, text=»QRWD EQU 34 «, t00=0x000e, t01=0x0038}
0x1624…164e Head {h00=0x0026, h01=0x0050, text=» DATA DMRDWD DELAYED RANDOM WRITE «, t00=0x000e, t01=0x004c}
0x164e…1662 Head {h00=0x0010, h01=0x0050, text=»QRDD EQU 36 «, t00=0x000e, t01=0x0076}
0x1662…168c Head {h00=0x0026, h01=0x0050, text=» DATA DMRDDD DELAYED RANDOM DELETE«, t00=0x000e, t01=0x008a}
0x168c…16a0 Head {h00=0x0010, h01=0x0050, text=»QRRRB EQU 38«, t00=0x000e, t01=0x00b4}
0x16a0…16c8 Head {h00=0x0024, h01=0x0050, text=» DATA DMRRRB RAND READ REL BUFF «, t00=0x000e, t01=0x00c8}
0x16c8…16d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f0}
0x16d2…16fa Head {h00=0x0024, h01=0x0050, text=»VTOCRL DATA 0 VTOC RECORD LENGTH«, t00=0x000e, t01=0x00fa}
0x16fa…1708 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0122}
0x1708…1712 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0130}
0x1712…1728 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000e, t01=0x013a}
0x1728…173e Head {h00=0x0012, h01=0x0050, text=»* DMTFRL *«, t00=0x000e, t01=0x0150}
0x173e…1754 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000e, t01=0x0166}
0x1754…175e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x017c}
0x175e…178e Head {h00=0x002c, h01=0x0050, text=»* ENTRY DMTFRL FIND RECORD LENGTH «, t00=0x000e, t01=0x0186}
0x178e…1798 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0026}
0x1798…17d0 Head {h00=0x0034, h01=0x0050, text=»* INPUT A1 = RETURN CODE IF INCORRECT LENGTH«, t00=0x000f, t01=0x0030}
0x17d0…17f4 Head {h00=0x0020, h01=0x0050, text=»* A6 = FDB ADDRESS«, t00=0x000f, t01=0x0068}
0x17f4…181e Head {h00=0x0026, h01=0x0050, text=»* A9 = USER ECB ADDRESS «, t00=0x000f, t01=0x008c}
0x181e…1828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b6}
0x1828…185a Head {h00=0x002e, h01=0x0050, text=»* OUTPUT A2 = RECORD LENGTH TO BE USED «, t00=0x000f, t01=0x00c0}
0x185a…189a Head {h00=0x003c, h01=0x0050, text=»* A1 IS ORED INTO ECBRC IF ECBRL < REC LENGTH «, t00=0x000f, t01=0x00f2}
0x189a…18c4 Head {h00=0x0026, h01=0x0050, text=»* A2 IS STORED IN ECBEL «, t00=0x000f, t01=0x0132}
0x18c4…18ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015c}
0x18ce…18e2 Head {h00=0x0010, h01=0x0050, text=»DMTFRL EQU *«, t00=0x000f, t01=0x0166}
0x18e2…18fa Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A9 «, t00=0x000f, t01=0x017a}
0x18fa…1912 (16, 0, 400) Head {h00=0x0014, h01=0x0050, text=» CW A2,FDBRLE,A6«, t00=0x0010, t01=0x0004}
0x1912…193a Head {h00=0x0024, h01=0x0050, text=» RF(E) DMTF20 ECBRL = REC LENGTH«, t00=0x0010, t01=0x001c}
0x193a…1962 Head {h00=0x0024, h01=0x0050, text=» RF(L) DMTF10 ECBRL < REC LENGTH«, t00=0x0010, t01=0x0044}
0x1962…198e Head {h00=0x0028, h01=0x0050, text=» LD A2,FDBRLE,A6 ECBRL > REC LENGTH «, t00=0x0010, t01=0x006c}
0x198e…19a0 Head {h00=0x000e, h01=0x0050, text=» RF DMTF20«, t00=0x0010, t01=0x0098}
0x19a0…19ce Head {h00=0x002a, h01=0x0050, text=»DMTF10 ORS A1,ECBRC,A9 SET RETURN CODE«, t00=0x0010, t01=0x00aa}
0x19ce…1a00 Head {h00=0x002e, h01=0x0050, text=»DMTF20 ST A2,ECBEL,A9 SET EFFECTIVE LENGTH«, t00=0x0010, t01=0x00d8}
0x1a00…1a10 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x010a}
0x1a10…1a1e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x011a}
0x1a1e…1a28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0128}
0x1a28…1a3c Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0010, t01=0x0132}
0x1a3c…1a50 Head {h00=0x0010, h01=0x0050, text=»* DMTWM *«, t00=0x0010, t01=0x0146}
0x1a50…1a64 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0010, t01=0x015a}
0x1a64…1a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016e}
0x1a6e…1a94 Head {h00=0x0022, h01=0x0050, text=»* ENTRY DMTWM WORD MOVE «, t00=0x0010, t01=0x0178}
0x1a94…1a9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x000e}
0x1a9e…1ac4 Head {h00=0x0022, h01=0x0050, text=»* INPUT A1 = FROM ADDRESS «, t00=0x0011, t01=0x0018}
0x1ac4…1af4 Head {h00=0x002c, h01=0x0050, text=»* A2 = NO OF BYTES TO BE MOVED«, t00=0x0011, t01=0x003e}
0x1af4…1b18 Head {h00=0x0020, h01=0x0050, text=»* A3 = TO ADDRESS «, t00=0x0011, t01=0x006e}
0x1b18…1b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0092}
0x1b22…1b4a Head {h00=0x0024, h01=0x0050, text=»* A4 WILL BE DESTROYED«, t00=0x0011, t01=0x009c}
0x1b4a…1b54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c4}
0x1b54…1b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ce}
0x1b5e…1b72 Head {h00=0x0010, h01=0x0050, text=»DMTWM EQU * «, t00=0x0011, t01=0x00d8}
0x1b72…1b84 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0011, t01=0x00ec}
0x1b84…1baa Head {h00=0x0022, h01=0x0050, text=» RF(N) DMTW10 LAST WORD MOVED «, t00=0x0011, t01=0x00fe}
0x1baa…1bbe Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x0011, t01=0x0124}
0x1bbe…1bd0 Head {h00=0x000e, h01=0x0050, text=» STR A4,A3«, t00=0x0011, t01=0x0138}
0x1bd0…1be2 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0011, t01=0x014a}
0x1be2…1bf4 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0011, t01=0x015c}
0x1bf4…1c06 Head {h00=0x000e, h01=0x0050, text=» RB DMTWM «, t00=0x0011, t01=0x016e}
0x1c06…1c20 Head {h00=0x0016, h01=0x0050, text=»DMTW10 ANK A2,/01 «, t00=0x0011, t01=0x0180}
0x1c20…1c36 Head {h00=0x0012, h01=0x0050, text=» RF(E) DMTW20 «, t00=0x0012, t01=0x000a}
0x1c36…1c58 Head {h00=0x001e, h01=0x0050, text=» LCR A4,A1 MOVE LAST CHAR «, t00=0x0012, t01=0x0020}
0x1c58…1c6a Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x0012, t01=0x0042}
0x1c6a…1c80 Head {h00=0x0012, h01=0x0050, text=»DMTW20 RTN A14«, t00=0x0012, t01=0x0054}
0x1c80…1c8e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x006a}
0x1c8e…1c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0078}
0x1c98…1cae Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0012, t01=0x0082}
0x1cae…1cc4 Head {h00=0x0012, h01=0x0050, text=»* DMTBM * «, t00=0x0012, t01=0x0098}
0x1cc4…1cda Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0012, t01=0x00ae}
0x1cda…1ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c4}
0x1ce4…1d0a Head {h00=0x0022, h01=0x0050, text=»* ENTRY DMTBM BYTE MOVE «, t00=0x0012, t01=0x00ce}
0x1d0a…1d14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f4}
0x1d14…1d3a Head {h00=0x0022, h01=0x0050, text=»* INPUT A1 = FROM ADDRESS «, t00=0x0012, t01=0x00fe}
0x1d3a…1d6a Head {h00=0x002c, h01=0x0050, text=»* A2 = NO OF BYTES TO BE MOVED«, t00=0x0012, t01=0x0124}
0x1d6a…1d8e Head {h00=0x0020, h01=0x0050, text=»* A3 = TO ADDRESS «, t00=0x0012, t01=0x0154}
0x1d8e…1d98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0178}
0x1d98…1dc0 Head {h00=0x0024, h01=0x0050, text=»* A4 WILL BE DESTROYED«, t00=0x0012, t01=0x0182}
0x1dc0…1dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001a}
0x1dca…1dec Head {h00=0x001e, h01=0x0050, text=»* OUTPUT A3 = NEXT CHAR «, t00=0x0013, t01=0x0024}
0x1dec…1df6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0046}
0x1df6…1e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0050}
0x1e00…1e14 Head {h00=0x0010, h01=0x0050, text=»DMTBM EQU * «, t00=0x0013, t01=0x005a}
0x1e14…1e26 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0013, t01=0x006e}
0x1e26…1e4c Head {h00=0x0022, h01=0x0050, text=» RF(N) DMTB10 LAST BYTE MOVED «, t00=0x0013, t01=0x0080}
0x1e4c…1e5e Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0013, t01=0x00a6}
0x1e5e…1e70 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x0013, t01=0x00b8}
0x1e70…1e82 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0013, t01=0x00ca}
0x1e82…1e94 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0013, t01=0x00dc}
0x1e94…1ea6 Head {h00=0x000e, h01=0x0050, text=» RB DMTBM «, t00=0x0013, t01=0x00ee}
0x1ea6…1ebc Head {h00=0x0012, h01=0x0050, text=»DMTB10 RTN A14«, t00=0x0013, t01=0x0100}
0x1ebc…1ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0116}
0x1ec6…1efc Head {h00=0x0032, h01=0x0050, text=»* DMTBMR HAS THE SAME FUNCTION AS DMTBM BUT «, t00=0x0013, t01=0x0120}
0x1efc…1f1a Head {h00=0x001a, h01=0x0050, text=»* MOVES FROM THE END«, t00=0x0013, t01=0x0156}
0x1f1a…1f24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0174}
0x1f24…1f3c Head {h00=0x0014, h01=0x0050, text=»DMTBMR ADR A1,A2«, t00=0x0013, t01=0x017e}
0x1f3c…1f4e Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0014, t01=0x0008}
0x1f4e…1f66 Head {h00=0x0014, h01=0x0050, text=»DMTB20 SUK A2,1 «, t00=0x0014, t01=0x001a}
0x1f66…1f7c Head {h00=0x0012, h01=0x0050, text=» RB(N) DMTB10 «, t00=0x0014, t01=0x0032}
0x1f7c…1f8e Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0014, t01=0x0048}
0x1f8e…1fa0 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0014, t01=0x005a}
0x1fa0…1fb2 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0014, t01=0x006c}
0x1fb2…1fc4 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x0014, t01=0x007e}
0x1fc4…1fd6 Head {h00=0x000e, h01=0x0050, text=» RB DMTB20«, t00=0x0014, t01=0x0090}
0x1fd6…1fe4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00a2}
0x1fe4…2020 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0014, t01=0x00b0}
0x2020…202a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ec}
0x202a…2068 Head {h00=0x003a, h01=0x0050, text=»* FNDFDB WILL SEARCH TTAB AND CDTAB FOR A FILE CODE «, t00=0x0014, t01=0x00f6}
0x2068…2072 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0134}
0x2072…20ae Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0014, t01=0x013e}
0x20ae…20b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x017a}
0x20b8…20d2 Head {h00=0x0016, h01=0x0050, text=»* A1 = TTAB ADDR«, t00=0x0014, t01=0x0184}
0x20d2…20fa Head {h00=0x0024, h01=0x0050, text=»* A2 = FILE CODE TO SEARCH FOR«, t00=0x0015, t01=0x000e}
0x20fa…2132 Head {h00=0x0034, h01=0x0050, text=»* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED «, t00=0x0015, t01=0x0036}
0x2132…213c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x006e}
0x213c…2178 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0015, t01=0x0078}
0x2178…2182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b4}
0x2182…219c Head {h00=0x0016, h01=0x0050, text=»* A1 = UNCHANGED«, t00=0x0015, t01=0x00be}
0x219c…21d2 Head {h00=0x0032, h01=0x0050, text=»* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND «, t00=0x0015, t01=0x00d8}
0x21d2…220c Head {h00=0x0036, h01=0x0050, text=»* A4 = TTAB/CDTAB ENTRY ADDR WHEN CODE IS FOUND «, t00=0x0015, t01=0x010e}
0x220c…2240 Head {h00=0x0030, h01=0x0050, text=»* A5 = 0 WHEN FOUND IN CDTAB = 1 WHEN TTAB«, t00=0x0015, t01=0x0148}
0x2240…224a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017c}
0x224a…2286 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0015, t01=0x0186}
0x2286…2290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0032}
0x2290…22a2 Head {h00=0x000e, h01=0x0050, text=»* A1-A5 «, t00=0x0016, t01=0x003c}
0x22a2…22ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x004e}
0x22ac…22ea Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0016, t01=0x0058}
0x22ea…22f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0096}
0x22f4…231a Head {h00=0x0022, h01=0x0050, text=»* LOOK FOR FILE CODE IN TTAB«, t00=0x0016, t01=0x00a0}
0x231a…2324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c6}
0x2324…2338 Head {h00=0x0010, h01=0x0050, text=»FNDFDB EQU *«, t00=0x0016, t01=0x00d0}
0x2338…2362 Head {h00=0x0026, h01=0x0050, text=» LD A3,TTB:TD,A1 LENGTH DEV DESCR «, t00=0x0016, t01=0x00e4}
0x2362…2376 Head {h00=0x0010, h01=0x0050, text=»FND030 EQU *«, t00=0x0016, t01=0x010e}
0x2376…2388 Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0016, t01=0x0122}
0x2388…23b4 Head {h00=0x0028, h01=0x0050, text=» RF(NP) FND040 FILE CODE NOT IN TTAB«, t00=0x0016, t01=0x0134}
0x23b4…23c6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0016, t01=0x0160}
0x23c6…23e0 Head {h00=0x0016, h01=0x0050, text=» ADKL A4,TTB:TD+1 «, t00=0x0016, t01=0x0172}
0x23e0…23f2 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0016, t01=0x018c}
0x23f2…2404 Head {h00=0x000e, h01=0x0050, text=» CCR A2,A4«, t00=0x0017, t01=0x000e}
0x2404…241a Head {h00=0x0012, h01=0x0050, text=» RB(NE) FND030«, t00=0x0017, t01=0x0020}
0x241a…242c Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0017, t01=0x0036}
0x242c…243e Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0017, t01=0x0048}
0x243e…2464 Head {h00=0x0022, h01=0x0050, text=» RF FND080 CODE FOUND IN TTAB «, t00=0x0017, t01=0x005a}
0x2464…246e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0080}
0x246e…2494 Head {h00=0x0022, h01=0x0050, text=»* SEARCH FILE CODE IN CDTAB «, t00=0x0017, t01=0x008a}
0x2494…249e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b0}
0x249e…24b2 Head {h00=0x0010, h01=0x0050, text=»FND040 EQU *«, t00=0x0017, t01=0x00ba}
0x24b2…24c4 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x0017, t01=0x00ce}
0x24c4…24f0 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FND060 ONLY TTAB IS SEACHED «, t00=0x0017, t01=0x00e0}
0x24f0…2506 Head {h00=0x0012, h01=0x0050, text=» LD* A4,CDTAB «, t00=0x0017, t01=0x010c}
0x2506…251a Head {h00=0x0010, h01=0x0050, text=»FND050 EQU *«, t00=0x0017, t01=0x0122}
0x251a…252c Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0017, t01=0x0136}
0x252c…2558 Head {h00=0x0028, h01=0x0050, text=» RF(NP) FND060 CODE NOT FOUND AT ALL«, t00=0x0017, t01=0x0148}
0x2558…256c Head {h00=0x0010, h01=0x0050, text=» LD A3,CDTAB«, t00=0x0017, t01=0x0174}
0x256c…257e Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0017, t01=0x0188}
0x257e…2592 Head {h00=0x0010, h01=0x0050, text=» CC A2,1,A3 «, t00=0x0018, t01=0x000a}
0x2592…25a8 Head {h00=0x0012, h01=0x0050, text=» RB(NE) FND050«, t00=0x0018, t01=0x001e}
0x25a8…25bc Head {h00=0x0010, h01=0x0050, text=» AD A4,CDTAB«, t00=0x0018, t01=0x0034}
0x25bc…25da Head {h00=0x001a, h01=0x0050, text=» RF FND080 CODE FOUND «, t00=0x0018, t01=0x0048}
0x25da…25ee Head {h00=0x0010, h01=0x0050, text=»FND060 EQU *«, t00=0x0018, t01=0x0066}
0x25ee…2608 Head {h00=0x0016, h01=0x0050, text=» LDK A2,0 NO CODE «, t00=0x0018, t01=0x007a}
0x2608…261c Head {h00=0x0010, h01=0x0050, text=»FND080 EQU *«, t00=0x0018, t01=0x0094}
0x261c…262c Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x00a8}
0x262c…263a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00b8}
0x263a…2644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c6}
0x2644…265a Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0018, t01=0x00d0}
0x265a…2670 Head {h00=0x0012, h01=0x0050, text=»* DMTREM *«, t00=0x0018, t01=0x00e6}
0x2670…2686 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0018, t01=0x00fc}
0x2686…2690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0112}
0x2690…26d8 Head {h00=0x0044, h01=0x0050, text=»* ENTRY DMTREM MOVE RECORD FROM BUFFER TO USER RECORD AREA«, t00=0x0018, t01=0x011c}
0x26d8…26e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0164}
0x26e2…2716 Head {h00=0x0030, h01=0x0050, text=»* INPUT RELATIVE REC OFFSET IN FDBRRO,A6«, t00=0x0018, t01=0x016e}
0x2716…273e Head {h00=0x0024, h01=0x0050, text=»* BUFFER ADDRESS IN A5«, t00=0x0019, t01=0x0012}
0x273e…276c Head {h00=0x002a, h01=0x0050, text=»* USER REC AREA IN ECBBA,A9 «, t00=0x0019, t01=0x003a}
0x276c…2794 Head {h00=0x0024, h01=0x0050, text=»* RECORD LENGTH IN A2 «, t00=0x0019, t01=0x0068}
0x2794…279e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0090}
0x279e…27a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x009a}
0x27a8…27b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a4}
0x27b2…27ce Head {h00=0x0018, h01=0x0050, text=»* MOVE THE RECORD «, t00=0x0019, t01=0x00ae}
0x27ce…2810 Head {h00=0x003e, h01=0x0050, text=»* IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE «, t00=0x0019, t01=0x00ca}
0x2810…2856 Head {h00=0x0042, h01=0x0050, text=»* IF (FROM AND (TO) ADDRESSES BOTH ODD THEN MOVE FIRST BYTE «, t00=0x0019, t01=0x010c}
0x2856…2898 Head {h00=0x003e, h01=0x0050, text=»* WITH BYTE INSTRUCTIONS AND THE REST WITH WORD MOVE «, t00=0x0019, t01=0x0152}
0x2898…28d6 (26, 0, 400) Head {h00=0x003a, h01=0x0050, text=»* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE WHOLE REC «, t00=0x001a, t01=0x0004}
0x28d6…28e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0042}
0x28e0…28f4 Head {h00=0x0010, h01=0x0050, text=»DMTREM EQU *«, t00=0x001a, t01=0x004c}
0x28f4…290c Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBRRO,A6«, t00=0x001a, t01=0x0060}
0x290c…292c Head {h00=0x001c, h01=0x0050, text=» ADR A1,A5 FROM ADDRESS «, t00=0x001a, t01=0x0078}
0x292c…293e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x001a, t01=0x0098}
0x293e…2960 Head {h00=0x001e, h01=0x0050, text=» LD A3,ECBBA,A9 TO ADDRESS«, t00=0x001a, t01=0x00aa}
0x2960…2972 Head {h00=0x000e, h01=0x0050, text=» XRR A4,A3«, t00=0x001a, t01=0x00cc}
0x2972…2986 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/01 «, t00=0x001a, t01=0x00de}
0x2986…29b2 Head {h00=0x0028, h01=0x0050, text=» RF(Z) DMT210 BOTH ODD OR BOTH EVEN «, t00=0x001a, t01=0x00f2}
0x29b2…29dc Head {h00=0x0026, h01=0x0050, text=» CF A14,DMTBM ONE ODD AND ONE EVEN«, t00=0x001a, t01=0x011e}
0x29dc…29ee Head {h00=0x000e, h01=0x0050, text=» RF DMT225«, t00=0x001a, t01=0x0148}
0x29ee…29f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x015a}
0x29f8…2a10 Head {h00=0x0014, h01=0x0050, text=»DMT210 LDR A4,A1«, t00=0x001a, t01=0x0164}
0x2a10…2a24 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/01 «, t00=0x001a, t01=0x017c}
0x2a24…2a44 Head {h00=0x001c, h01=0x0050, text=» RF(E) DMT220 BOTH EVEN «, t00=0x001a, t01=0x0190}
0x2a44…2a5e Head {h00=0x0016, h01=0x0050, text=» SUK A2,1 BOTH ODD«, t00=0x001b, t01=0x0020}
0x2a5e…2a70 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x001b, t01=0x003a}
0x2a70…2a82 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x001b, t01=0x004c}
0x2a82…2a94 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x001b, t01=0x005e}
0x2a94…2aa6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001b, t01=0x0070}
0x2aa6…2acc Head {h00=0x0022, h01=0x0050, text=»DMT220 CF A14,DMTWM WORD MOVE «, t00=0x001b, t01=0x0082}
0x2acc…2ae0 Head {h00=0x0010, h01=0x0050, text=»DMT225 EQU *«, t00=0x001b, t01=0x00a8}
0x2ae0…2af0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x00bc}
0x2af0…2afe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00cc}
0x2afe…2b08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00da}
0x2b08…2b24 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x001b, t01=0x00e4}
0x2b24…2b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0100}
0x2b2e…2b42 Head {h00=0x0010, h01=0x0050, text=»GETA14 EQU *«, t00=0x001b, t01=0x010a}
0x2b42…2b5c Head {h00=0x0016, h01=0x0050, text=» LDR A7,A2 TASK ID«, t00=0x001b, t01=0x011e}
0x2b5c…2b72 Head {h00=0x0012, h01=0x0050, text=» CF A15,FNDTID«, t00=0x001b, t01=0x0138}
0x2b72…2b90 Head {h00=0x001a, h01=0x0050, text=» LDR A14,A2 TTAB ADDR «, t00=0x001b, t01=0x014e}
0x2b90…2bbe Head {h00=0x002a, h01=0x0050, text=» AD A14,TTB:TD,A14 LENGTH DEVICE DESCR«, t00=0x001b, t01=0x016c}
0x2bbe…2be0 Head {h00=0x001e, h01=0x0050, text=» ADKL A14,TTB:TD+32 STACK «, t00=0x001c, t01=0x000a}
0x2be0…2c00 Head {h00=0x001c, h01=0x0050, text=» ABL RTNA15 RET AND ENB «, t00=0x001c, t01=0x002c}
0x2c00…2c0e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x004c}
0x2c0e…2c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x005a}
0x2c18…2c2e Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x001c, t01=0x0064}
0x2c2e…2c44 Head {h00=0x0012, h01=0x0050, text=»* DMTASK *«, t00=0x001c, t01=0x007a}
0x2c44…2c5a Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x001c, t01=0x0090}
0x2c5a…2c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00a6}
0x2c64…2c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b0}
0x2c6e…2c82 Head {h00=0x0010, h01=0x0050, text=»DMTASK EQU *«, t00=0x001c, t01=0x00ba}
0x2c82…2c8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ce}
0x2c8c…2ca8 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x001c, t01=0x00d8}
0x2ca8…2cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f4}
0x2cb2…2cbe Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001c, t01=0x00fe}
0x2cbe…2cd4 Head {h00=0x0012, h01=0x0050, text=» CF A15,GETA14«, t00=0x001c, t01=0x010a}
0x2cd4…2cf0 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x001c, t01=0x0120}
0x2cf0…2d04 Head {h00=0x0010, h01=0x0050, text=» LDKL A5,-1 «, t00=0x001c, t01=0x013c}
0x2d04…2d32 Head {h00=0x002a, h01=0x0050, text=» CW A5,FDBRRO,A6 SPECIAL PARAMETER -1 «, t00=0x001c, t01=0x0150}
0x2d32…2d68 Head {h00=0x0032, h01=0x0050, text=» RF(E) DMT090 FOR ORDERS XR,DX,IX (SEE TIODM)«, t00=0x001c, t01=0x017e}
0x2d68…2d7c Head {h00=0x0010, h01=0x0050, text=»DMT020 EQU *«, t00=0x001d, t01=0x0024}
0x2d7c…2d94 Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBDBR,A1«, t00=0x001d, t01=0x0038}
0x2d94…2db4 Head {h00=0x001c, h01=0x0050, text=» RF(NN) DMT025 NO DELAY «, t00=0x001d, t01=0x0050}
0x2db4…2dca Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/C0FF«, t00=0x001d, t01=0x0070}
0x2dca…2de2 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A1 «, t00=0x001d, t01=0x0086}
0x2de2…2df6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001d, t01=0x009e}
0x2df6…2e0a Head {h00=0x0010, h01=0x0050, text=» CWK A2,QCL «, t00=0x001d, t01=0x00b2}
0x2e0a…2e26 Head {h00=0x0018, h01=0x0050, text=» RF(E) DMT024 CLOSE «, t00=0x001d, t01=0x00c6}
0x2e26…2e3a Head {h00=0x0010, h01=0x0050, text=» CWK A2,QRV «, t00=0x001d, t01=0x00e2}
0x2e3a…2e5a Head {h00=0x001c, h01=0x0050, text=» RF(E) DMT024 READ VTOC «, t00=0x001d, t01=0x00f6}
0x2e5a…2e70 Head {h00=0x0012, h01=0x0050, text=» SUK A2,QRRRB «, t00=0x001d, t01=0x0116}
0x2e70…2e9a Head {h00=0x0026, h01=0x0050, text=» RF(E) DMT024 RAND READ REL BUFFER«, t00=0x001d, t01=0x012c}
0x2e9a…2eb0 Head {h00=0x0012, h01=0x0050, text=» ORKL A4,/100 «, t00=0x001d, t01=0x0156}
0x2eb0…2ec4 Head {h00=0x0010, h01=0x0050, text=»DMT024 EQU *«, t00=0x001d, t01=0x016c}
0x2ec4…2edc Head {h00=0x0014, h01=0x0050, text=» ST A4,FDBDBR,A1«, t00=0x001d, t01=0x0180}
0x2edc…2ef0 Head {h00=0x0010, h01=0x0050, text=»DMT025 EQU *«, t00=0x001e, t01=0x0008}
0x2ef0…2f02 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x001e, t01=0x001c}
0x2f02…2f22 Head {h00=0x001c, h01=0x0050, text=» ADKL A8,FDBECB ECB ADDR«, t00=0x001e, t01=0x002e}
0x2f22…2f4a Head {h00=0x0024, h01=0x0050, text=» CF A14,GTBKBU GET BLOCK BUFFER «, t00=0x001e, t01=0x004e}
0x2f4a…2f5c Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x001e, t01=0x0076}
0x2f5c…2f84 Head {h00=0x0024, h01=0x0050, text=» RF(NN) DMT080 BUFFER WAS BEFORE«, t00=0x001e, t01=0x0088}
0x2f84…2f8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b0}
0x2f8e…2fba Head {h00=0x0028, h01=0x0050, text=»* READ SECTOR INTO BUFFER AND EXIT«, t00=0x001e, t01=0x00ba}
0x2fba…2fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e6}
0x2fc4…2fd8 Head {h00=0x0010, h01=0x0050, text=» SUK A5,QCL «, t00=0x001e, t01=0x00f0}
0x2fd8…2ff4 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DMT030 CLOSE «, t00=0x001e, t01=0x0104}
0x2ff4…3016 Head {h00=0x001e, h01=0x0050, text=» LDK A7,/11 PHYSICAL READ «, t00=0x001e, t01=0x0120}
0x3016…3022 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x0142}
0x3022…3046 Head {h00=0x0020, h01=0x0050, text=» DATA -1 I/O AND ACTIVATION «, t00=0x001e, t01=0x014e}
0x3046…306c Head {h00=0x0022, h01=0x0050, text=» DATA DMTAR1 DMTASK RESTART #1«, t00=0x001e, t01=0x0172}
0x306c…3078 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x0008}
0x3078…308c Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x001f, t01=0x0014}
0x308c…3096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0028}
0x3096…30c2 Head {h00=0x0028, h01=0x0050, text=»DMT030 EQU * I/O WITH WAIT FOR CLOSE«, t00=0x001f, t01=0x0032}
0x30c2…30d6 Head {h00=0x0010, h01=0x0050, text=» LDK A7,/91 «, t00=0x001f, t01=0x005e}
0x30d6…30e2 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x0072}
0x30e2…30f2 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x007e}
0x30f2…3118 Head {h00=0x0022, h01=0x0050, text=» RF DMT050 CHECK RETURN CODES «, t00=0x001f, t01=0x008e}
0x3118…3126 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00b4}
0x3126…313c Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x001f, t01=0x00c2}
0x313c…3152 Head {h00=0x0012, h01=0x0050, text=»* DMTAR1 *«, t00=0x001f, t01=0x00d8}
0x3152…3168 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x001f, t01=0x00ee}
0x3168…318c Head {h00=0x0020, h01=0x0050, text=»* RESTART POINT AFTER READ«, t00=0x001f, t01=0x0104}
0x318c…3196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0128}
0x3196…31aa Head {h00=0x0010, h01=0x0050, text=»DMTAR1 EQU *«, t00=0x001f, t01=0x0132}
0x31aa…31b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0146}
0x31b4…31d0 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x001f, t01=0x0150}
0x31d0…31da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x016c}
0x31da…31e6 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001f, t01=0x0176}
0x31e6…31fc Head {h00=0x0012, h01=0x0050, text=» CF A15,GETA14«, t00=0x001f, t01=0x0182}
0x31fc…3210 Head {h00=0x0010, h01=0x0050, text=»DMT050 EQU *«, t00=0x0020, t01=0x0008}
0x3210…3248 Head {h00=0x0034, h01=0x0050, text=» CF A14,DMTIOT CHECK RETURN CODES FROM DISC I/O «, t00=0x0020, t01=0x001c}
0x3248…325a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0020, t01=0x0054}
0x325a…3272 Head {h00=0x0014, h01=0x0050, text=» ABL(NE) DMTERR «, t00=0x0020, t01=0x0066}
0x3272…328a Head {h00=0x0014, h01=0x0050, text=» LD A5,ECBBA,A8 «, t00=0x0020, t01=0x007e}
0x328a…329c Head {h00=0x000e, h01=0x0050, text=» RF DMT090«, t00=0x0020, t01=0x0096}
0x329c…32d0 Head {h00=0x0030, h01=0x0050, text=»DMT080 EQU * ENTRY IF SECT ALREADY IN BUFFER«, t00=0x0020, t01=0x00a8}
0x32d0…32e2 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A3«, t00=0x0020, t01=0x00dc}
0x32e2…3306 Head {h00=0x0020, h01=0x0050, text=» ADK A5,8 SKIP BUFFER HEADER«, t00=0x0020, t01=0x00ee}
0x3306…3334 Head {h00=0x002a, h01=0x0050, text=» ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB«, t00=0x0020, t01=0x0112}
0x3334…3348 Head {h00=0x0010, h01=0x0050, text=»DMT090 EQU *«, t00=0x0020, t01=0x0140}
0x3348…3352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0154}
0x3352…338a Head {h00=0x0034, h01=0x0050, text=»* HANDLE ACTUAL ORDER ORDER INDEX IN DWTOR«, t00=0x0020, t01=0x015e}
0x338a…3394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0008}
0x3394…33b6 Head {h00=0x001e, h01=0x0050, text=» ADK A5,2 SKIP CYLID WORD «, t00=0x0021, t01=0x0012}
0x33b6…33ce Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0021, t01=0x0034}
0x33ce…33f2 Head {h00=0x0020, h01=0x0050, text=»* A7 = INTERNAL ORDER CODE«, t00=0x0021, t01=0x004c}
0x33f2…3406 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0021, t01=0x0070}
0x3406…3432 Head {h00=0x0028, h01=0x0050, text=» ABI DMTAFU,A7 DMTASK FUNCTION TABLE«, t00=0x0021, t01=0x0084}
0x3432…3440 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00b0}
0x3440…3468 Head {h00=0x0024, h01=0x0050, text=»DMRRRB EQU * RAND READ REL BUFF «, t00=0x0021, t01=0x00be}
0x3468…3472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e6}
0x3472…3496 Head {h00=0x0020, h01=0x0050, text=»DMSQRE EQU * SEQUENTIAL READ«, t00=0x0021, t01=0x00f0}
0x3496…34a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0114}
0x34a0…34c0 Head {h00=0x001c, h01=0x0050, text=»DMRDRE EQU * RANDOM READ«, t00=0x0021, t01=0x011e}
0x34c0…34ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x013e}
0x34ca…3502 Head {h00=0x0034, h01=0x0050, text=»* CHECK STATUS IF NOT USED THEN ERROR RETURN«, t00=0x0021, t01=0x0148}
0x3502…350c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0180}
0x350c…3524 Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBRRO,A6«, t00=0x0021, t01=0x018a}
0x3524…353c Head {h00=0x0014, h01=0x0050, text=» AD A2,FDBRLE,A6«, t00=0x0022, t01=0x0012}
0x353c…354e Head {h00=0x000e, h01=0x0050, text=» ADR A2,A5«, t00=0x0022, t01=0x002a}
0x354e…3560 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0022, t01=0x003c}
0x3560…3584 Head {h00=0x0020, h01=0x0050, text=» CCR A1,A2 STATUS BYTE IN A1«, t00=0x0022, t01=0x004e}
0x3584…35a0 Head {h00=0x0018, h01=0x0050, text=» RF(NE) DMT200 USED «, t00=0x0022, t01=0x0072}
0x35a0…35be Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/800 NO DATA «, t00=0x0022, t01=0x008e}
0x35be…35d2 Head {h00=0x0010, h01=0x0050, text=» ABL DMTERR «, t00=0x0022, t01=0x00ac}
0x35d2…35fc Head {h00=0x0026, h01=0x0050, text=»DMT200 LDK A1,/8 INCORRECT LENGTH «, t00=0x0022, t01=0x00c0}
0x35fc…3626 Head {h00=0x0026, h01=0x0050, text=» CF A14,DMTFRL A2 := RECORD LENGTH«, t00=0x0022, t01=0x00ea}
0x3626…3630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0114}
0x3630…364c Head {h00=0x0018, h01=0x0050, text=»* MOVE THE RECORD «, t00=0x0022, t01=0x011e}
0x364c…3656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x013a}
0x3656…366c Head {h00=0x0012, h01=0x0050, text=» CF A14,DMTREM«, t00=0x0022, t01=0x0144}
0x366c…3676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x015a}
0x3676…36aa Head {h00=0x0030, h01=0x0050, text=»* UPDATE CRN AND SET EXCLUSIVE ACCESS BIT «, t00=0x0022, t01=0x0164}
0x36aa…36b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0008}
0x36b4…36c8 Head {h00=0x0010, h01=0x0050, text=»DMT230 EQU *«, t00=0x0023, t01=0x0012}
0x36c8…36ea Head {h00=0x001e, h01=0x0050, text=» ABL DMT400 PUT CRN AND EA«, t00=0x0023, t01=0x0026}
0x36ea…36f8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x0048}
0x36f8…371e Head {h00=0x0022, h01=0x0050, text=»DMREVT EQU * READ VTOC RECORD «, t00=0x0023, t01=0x0056}
0x371e…3728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x007c}
0x3728…374a Head {h00=0x001e, h01=0x0050, text=»DMCLOSE EQU * CLOSE A FILE«, t00=0x0023, t01=0x0086}
0x374a…3754 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00a8}
0x3754…376c Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBSNR,A6«, t00=0x0023, t01=0x00b2}
0x376c…3798 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DMT270 VTOC SECTOR IN BUFFER«, t00=0x0023, t01=0x00ca}
0x3798…37a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f6}
0x37a2…37c4 Head {h00=0x001e, h01=0x0050, text=»* VOLUME LABEL IN BUFFER«, t00=0x0023, t01=0x0100}
0x37c4…3810 Head {h00=0x0048, h01=0x0050, text=»* FIND VTOC SECTOR NUMBER AND RELATIVE RECORD OFFSET WITHIN SECTOR«, t00=0x0023, t01=0x0122}
0x3810…384c Head {h00=0x0038, h01=0x0050, text=»* FOR VTOC RECORD AND READ THIS SECTOR INTO BUFFER«, t00=0x0023, t01=0x016e}
0x384c…3856 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001a}
0x3856…3878 Head {h00=0x001e, h01=0x0050, text=» LDR A10,A6 SAVE FDB ADDR «, t00=0x0024, t01=0x0024}
0x3878…3898 Head {h00=0x001c, h01=0x0050, text=» LDR A9,A8 SAVE ECB ADDR«, t00=0x0024, t01=0x0046}
0x3898…38b2 Head {h00=0x0016, h01=0x0050, text=» LD A3,VLVRL-2,A5 «, t00=0x0024, t01=0x0066}
0x38b2…38c8 Head {h00=0x0012, h01=0x0050, text=» ST A3,VTOCRL «, t00=0x0024, t01=0x0080}
0x38c8…38f4 Head {h00=0x0028, h01=0x0050, text=» LDK A6,VTOBLK VTOC BLOCKING FACTIOR«, t00=0x0024, t01=0x0096}
0x38f4…3920 Head {h00=0x0028, h01=0x0050, text=» LD A2,FDBVTO,A10 VTOC RECORD NUMBER«, t00=0x0024, t01=0x00c2}
0x3920…3932 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0024, t01=0x00ee}
0x3932…3962 Head {h00=0x002c, h01=0x0050, text=» CF A14,DIVMOD A2=A1,A2/A6.A1=REMAINDRER«, t00=0x0024, t01=0x0100}
0x3962…397e Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 QUOTIENT «, t00=0x0024, t01=0x0130}
0x397e…399a Head {h00=0x0018, h01=0x0050, text=» LDR A6,A10 FDB ADDR«, t00=0x0024, t01=0x014c}
0x399a…39b2 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 REST «, t00=0x0024, t01=0x0168}
0x39b2…39d0 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DMT240 REST = 0«, t00=0x0024, t01=0x0180}
0x39d0…39f8 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 RECORD IN NEXT SECTOR «, t00=0x0025, t01=0x000e}
0x39f8…3a0a Head {h00=0x000e, h01=0x0050, text=» RF DMT250«, t00=0x0025, t01=0x0036}
0x3a0a…3a3c Head {h00=0x002e, h01=0x0050, text=»DMT240 LDK A2,VTOBLK LAST RECORD IN SECTOR«, t00=0x0025, t01=0x0048}
0x3a3c…3a66 Head {h00=0x0026, h01=0x0050, text=»DMT250 AD A3,VLVBA-2,A5 VTOC BASE «, t00=0x0025, t01=0x007a}
0x3a66…3a7e Head {h00=0x0014, h01=0x0050, text=» ST A3,FDBSNR,A6«, t00=0x0025, t01=0x00a4}
0x3a7e…3a90 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0025, t01=0x00bc}
0x3a90…3aa8 Head {h00=0x0014, h01=0x0050, text=»DMT255 SUK A2,1 «, t00=0x0025, t01=0x00ce}
0x3aa8…3abe Head {h00=0x0012, h01=0x0050, text=» RF(Z) DMT260 «, t00=0x0025, t01=0x00e6}
0x3abe…3ad8 Head {h00=0x0016, h01=0x0050, text=» AD A3,VLVRL-2,A5 «, t00=0x0025, t01=0x00fc}
0x3ad8…3afa Head {h00=0x001e, h01=0x0050, text=» ADK A3,1 SKIP STATUS BYTE«, t00=0x0025, t01=0x0116}
0x3afa…3b0c Head {h00=0x000e, h01=0x0050, text=» RB DMT255«, t00=0x0025, t01=0x0138}
0x3b0c…3b2a Head {h00=0x001a, h01=0x0050, text=»DMT260 ST A3,FDBRRO,A6«, t00=0x0025, t01=0x014a}
0x3b2a…3b34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0168}
0x3b34…3b4e Head {h00=0x0016, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0025, t01=0x0172}
0x3b4e…3b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x018c}
0x3b58…3b70 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A9 «, t00=0x0026, t01=0x0008}
0x3b70…3b82 Head {h00=0x000e, h01=0x0050, text=» SUK A3,8 «, t00=0x0026, t01=0x0020}
0x3b82…3ba8 Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0026, t01=0x0032}
0x3ba8…3bd2 Head {h00=0x0026, h01=0x0050, text=» CF A14,CLRBUF CLEAR FREE BUFFERS «, t00=0x0026, t01=0x0058}
0x3bd2…3be4 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0026, t01=0x0082}
0x3be4…3c00 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0026, t01=0x0094}
0x3c00…3c24 Head {h00=0x0020, h01=0x0050, text=» ABL DMT020 READ VTOC SECTOR«, t00=0x0026, t01=0x00b0}
0x3c24…3c32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00d4}
0x3c32…3c46 Head {h00=0x0010, h01=0x0050, text=»DMT270 EQU *«, t00=0x0026, t01=0x00e2}
0x3c46…3c5a Head {h00=0x0010, h01=0x0050, text=» SUK A7,QRV «, t00=0x0026, t01=0x00f6}
0x3c5a…3c82 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) DMT500 READ VTOC RECORD «, t00=0x0026, t01=0x010a}
0x3c82…3c98 Head {h00=0x0012, h01=0x0050, text=»* CLOSE FILE«, t00=0x0026, t01=0x0132}
0x3c98…3cc2 Head {h00=0x0026, h01=0x0050, text=»* UPDATE VTOC LAST RECORD NUMBER«, t00=0x0026, t01=0x0148}
0x3cc2…3cec Head {h00=0x0026, h01=0x0050, text=»* AND WRITE SECTOR BACK ON DISC «, t00=0x0026, t01=0x0172}
0x3cec…3d04 Head {h00=0x0014, h01=0x0050, text=» AD A5,FDBRRO,A6«, t00=0x0027, t01=0x000c}
0x3d04…3d16 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0027, t01=0x0024}
0x3d16…3d2e Head {h00=0x0014, h01=0x0050, text=» LC A2,FDBLRN,A6«, t00=0x0027, t01=0x0036}
0x3d2e…3d46 Head {h00=0x0014, h01=0x0050, text=» SC A2,VTLRN,A5 «, t00=0x0027, t01=0x004e}
0x3d46…3d60 Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBLRN+1,A6«, t00=0x0027, t01=0x0066}
0x3d60…3d7a Head {h00=0x0016, h01=0x0050, text=» ST A2,VTLRN+1,A5 «, t00=0x0027, t01=0x0080}
0x3d7a…3d9c Head {h00=0x001e, h01=0x0050, text=»* CLOSE FILE. WRITE VTOC«, t00=0x0027, t01=0x009a}
0x3d9c…3da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00bc}
0x3da6…3dba Head {h00=0x0010, h01=0x0050, text=» LDK A7,/95 «, t00=0x0027, t01=0x00c6}
0x3dba…3dc6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0027, t01=0x00da}
0x3dc6…3dd6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0027, t01=0x00e6}
0x3dd6…3de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f6}
0x3de0…3e04 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 FDBADDRESS IN A1 «, t00=0x0027, t01=0x0100}
0x3e04…3e2e Head {h00=0x0026, h01=0x0050, text=» CF A14,DMTIOT CHECK RETURN CODES «, t00=0x0027, t01=0x0124}
0x3e2e…3e40 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0027, t01=0x014e}
0x3e40…3e5c Head {h00=0x0018, h01=0x0050, text=» RF(NZ) DMT724 ERROR«, t00=0x0027, t01=0x0160}
0x3e5c…3e70 Head {h00=0x0010, h01=0x0050, text=»DMT720 EQU *«, t00=0x0027, t01=0x017c}
0x3e70…3e92 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTTDM,A6 TTAB ADDR«, t00=0x0027, t01=0x0190}
0x3e92…3ea4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0028, t01=0x0022}
0x3ea4…3ec6 Head {h00=0x001e, h01=0x0050, text=» LC A2,ECBFC,A9 FILE CODE «, t00=0x0028, t01=0x0034}
0x3ec6…3eec Head {h00=0x0022, h01=0x0050, text=» LDK A5,0 TRY LOCAL AND GLOBAL«, t00=0x0028, t01=0x0056}
0x3eec…3f1e Head {h00=0x002e, h01=0x0050, text=» CF A14,FNDFDB GET ENTRY IN TTAB CDTADTAB «, t00=0x0028, t01=0x007c}
0x3f1e…3f48 Head {h00=0x0026, h01=0x0050, text=» LDR A13,A5 LOCAL/GLOBAL INDICATOR«, t00=0x0028, t01=0x00ae}
0x3f48…3f5a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0028, t01=0x00d8}
0x3f5a…3f7a Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DMT725 FC FOUND «, t00=0x0028, t01=0x00ea}
0x3f7a…3f98 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/8000 REQ ERR«, t00=0x0028, t01=0x010a}
0x3f98…3fb2 Head {h00=0x0016, h01=0x0050, text=»DMT724 ABL DMTERR «, t00=0x0028, t01=0x0128}
0x3fb2…3fc6 Head {h00=0x0010, h01=0x0050, text=»DMT725 EQU *«, t00=0x0028, t01=0x0142}
0x3fc6…3fe6 Head {h00=0x001c, h01=0x0050, text=» LD A5,2,A4 FDB ADDRESS «, t00=0x0028, t01=0x0156}
0x3fe6…4010 Head {h00=0x0026, h01=0x0050, text=» LDR A11,A4 SAVE TABLE ENTRY ADDR «, t00=0x0028, t01=0x0176}
0x4010…4034 Head {h00=0x0020, h01=0x0050, text=» LDR A12,A1 SAVE TTEAB ADDR «, t00=0x0029, t01=0x0010}
0x4034…406c Head {h00=0x0034, h01=0x0050, text=» LDKL A10,0 MARK THAT FDB NOT SHALL BE RELEASED «, t00=0x0029, t01=0x0034}
0x406c…407a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x006c}
0x407a…40ae Head {h00=0x0030, h01=0x0050, text=»* CHECK IF THIS FDB ADDR IS USED ELEWHERE «, t00=0x0029, t01=0x007a}
0x40ae…40b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ae}
0x40b8…40d4 Head {h00=0x0018, h01=0x0050, text=»* SEARCH ALL TTABS«, t00=0x0029, t01=0x00b8}
0x40d4…40de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00d4}
0x40de…40f4 Head {h00=0x0012, h01=0x0050, text=» LD* A2,TCTAB «, t00=0x0029, t01=0x00de}
0x40f4…4108 Head {h00=0x0010, h01=0x0050, text=»DMT730 EQU *«, t00=0x0029, t01=0x00f4}
0x4108…411a Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0029, t01=0x0108}
0x411a…4146 Head {h00=0x0028, h01=0x0050, text=» RF(NP) DMT780 NOT FOUND IN ANY TTAB«, t00=0x0029, t01=0x011a}
0x4146…415a Head {h00=0x0010, h01=0x0050, text=» LD A3,TCTAB«, t00=0x0029, t01=0x0146}
0x415a…416c Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0029, t01=0x015a}
0x416c…4180 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A3 «, t00=0x0029, t01=0x016c}
0x4180…419c Head {h00=0x0018, h01=0x0050, text=» LD A3,4,A1 TASK ID «, t00=0x0029, t01=0x0180}
0x419c…41c0 Head {h00=0x0020, h01=0x0050, text=» RB(N) DMT730 MONOITOR TASK «, t00=0x002a, t01=0x000c}
0x41c0…41d8 Head {h00=0x0014, h01=0x0050, text=» LD A3,TTB:TD,A1«, t00=0x002a, t01=0x0030}
0x41d8…4204 Head {h00=0x0028, h01=0x0050, text=» ADKL A1,TTB:TD+2 DEV DESCR TABLE +2«, t00=0x002a, t01=0x0048}
0x4204…4218 Head {h00=0x0010, h01=0x0050, text=»DMT770 EQU *«, t00=0x002a, t01=0x0074}
0x4218…422a Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x002a, t01=0x0088}
0x422a…4252 Head {h00=0x0024, h01=0x0050, text=» RB(NP) DMT730 NOT IN THIS TTAB «, t00=0x002a, t01=0x009a}
0x4252…4264 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x002a, t01=0x00c2}
0x4264…4276 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x002a, t01=0x00d4}
0x4276…428a Head {h00=0x0010, h01=0x0050, text=» CWR* A5,A4 «, t00=0x002a, t01=0x00e6}
0x428a…42a0 Head {h00=0x0012, h01=0x0050, text=» RB(NE) DMT770«, t00=0x002a, t01=0x00fa}
0x42a0…42be Head {h00=0x001a, h01=0x0050, text=» LDR A7,A11 TTAB ENTRY«, t00=0x002a, t01=0x0110}
0x42be…42da Head {h00=0x0018, h01=0x0050, text=» ADK A7,2 FDB OFFSET«, t00=0x002a, t01=0x012e}
0x42da…42ec Head {h00=0x000e, h01=0x0050, text=» CWR A4,A7«, t00=0x002a, t01=0x014a}
0x42ec…430c Head {h00=0x001c, h01=0x0050, text=» RB(E) DMT770 SAME ENTRY«, t00=0x002a, t01=0x015c}
0x430c…4336 Head {h00=0x0026, h01=0x0050, text=» RF DMT895 MORE USERS ON THIS FDB «, t00=0x002a, t01=0x017c}
0x4336…4340 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0016}
0x4340…435c Head {h00=0x0018, h01=0x0050, text=»* NOW SEARCH CDTAB«, t00=0x002b, t01=0x0020}
0x435c…4366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x003c}
0x4366…437a Head {h00=0x0010, h01=0x0050, text=»DMT780 EQU *«, t00=0x002b, t01=0x0046}
0x437a…4390 Head {h00=0x0012, h01=0x0050, text=» LD* A4,CDTAB «, t00=0x002b, t01=0x005a}
0x4390…43a4 Head {h00=0x0010, h01=0x0050, text=»DMT790 EQU *«, t00=0x002b, t01=0x0070}
0x43a4…43b6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x002b, t01=0x0084}
0x43b6…43e8 Head {h00=0x002e, h01=0x0050, text=» RF(NP) DMT800 THIS FDB HAS NO OTHER USER «, t00=0x002b, t01=0x0096}
0x43e8…43fc Head {h00=0x0010, h01=0x0050, text=» LD A2,CDTAB«, t00=0x002b, t01=0x00c8}
0x43fc…440e Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x002b, t01=0x00dc}
0x440e…4422 Head {h00=0x0010, h01=0x0050, text=» CW A5,2,A2 «, t00=0x002b, t01=0x00ee}
0x4422…4438 Head {h00=0x0012, h01=0x0050, text=» RB(NE) DMT790«, t00=0x002b, t01=0x0102}
0x4438…444a Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x002b, t01=0x0118}
0x444a…445e Head {h00=0x0010, h01=0x0050, text=» AD A7,CDTAB«, t00=0x002b, t01=0x012a}
0x445e…4472 Head {h00=0x0010, h01=0x0050, text=» CWR A7,A11 «, t00=0x002b, t01=0x013e}
0x4472…4492 Head {h00=0x001c, h01=0x0050, text=» RB(E) DMT790 SAME ENTRY«, t00=0x002b, t01=0x0152}
0x4492…44bc Head {h00=0x0026, h01=0x0050, text=» RF DMT895 THIS FDB HAS MORE USERS«, t00=0x002b, t01=0x0172}
0x44bc…44ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x000c}
0x44ca…44d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x001a}
0x44d4…44f4 Head {h00=0x001c, h01=0x0050, text=»* NOW RELEASE THIS FDB«, t00=0x002c, t01=0x0024}
0x44f4…44fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0044}
0x44fe…4512 Head {h00=0x0010, h01=0x0050, text=»DMT800 EQU *«, t00=0x002c, t01=0x004e}
0x4512…451c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0062}
0x451c…453a Head {h00=0x001a, h01=0x0050, text=»* RELEASE EA-BUFFERS«, t00=0x002c, t01=0x006c}
0x453a…4544 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x008a}
0x4544…4576 Head {h00=0x002e, h01=0x0050, text=» LDKL A2,/8000 ALL EA-BUFFERS ARE RELEASED«, t00=0x002c, t01=0x0094}
0x4576…4592 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x002c, t01=0x00c6}
0x4592…45a8 Head {h00=0x0012, h01=0x0050, text=» CF A14,EARELB«, t00=0x002c, t01=0x00e2}
0x45a8…45b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f8}
0x45b2…45d2 Head {h00=0x001c, h01=0x0050, text=»* RELEASE CRN BUFFERS «, t00=0x002c, t01=0x0102}
0x45d2…45dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0122}
0x45dc…45f4 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,FDBCRL «, t00=0x002c, t01=0x012c}
0x45f4…4610 Head {h00=0x0018, h01=0x0050, text=» ADR A5,A6 LINK ROOT«, t00=0x002c, t01=0x0144}
0x4610…4624 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x002c, t01=0x0160}
0x4624…463e Head {h00=0x0016, h01=0x0050, text=» CMR A5 CLEAR FDB «, t00=0x002c, t01=0x0174}
0x463e…4650 Head {h00=0x000e, h01=0x0050, text=» RF DMT830«, t00=0x002c, t01=0x018e}
0x4650…4664 Head {h00=0x0010, h01=0x0050, text=»DMT820 EQU *«, t00=0x002d, t01=0x0010}
0x4664…4686 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A5 BUFFER ADDRESS «, t00=0x002d, t01=0x0024}
0x4686…469a Head {h00=0x0010, h01=0x0050, text=»DMT830 EQU *«, t00=0x002d, t01=0x0046}
0x469a…46c4 Head {h00=0x0026, h01=0x0050, text=» RF(Z) DMT840 ALL BUFFER S REMOVED«, t00=0x002d, t01=0x005a}
0x46c4…46ec Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A4 NEXT BUFFER ADDRESS «, t00=0x002d, t01=0x0084}
0x46ec…46f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ac}
0x46f6…4718 Head {h00=0x001e, h01=0x0050, text=»* RETIURN BUFFER TO POOL«, t00=0x002d, t01=0x00b6}
0x4718…4722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d8}
0x4722…472e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002d, t01=0x00e2}
0x472e…4744 Head {h00=0x0012, h01=0x0050, text=» LD A3,CRNQUE «, t00=0x002d, t01=0x00ee}
0x4744…4756 Head {h00=0x000e, h01=0x0050, text=» STR A3,A4«, t00=0x002d, t01=0x0104}
0x4756…476c Head {h00=0x0012, h01=0x0050, text=» ST A4,CRNQUE «, t00=0x002d, t01=0x0116}
0x476c…4778 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002d, t01=0x012c}
0x4778…478a Head {h00=0x000e, h01=0x0050, text=» RB DMT820«, t00=0x002d, t01=0x0138}
0x478a…479e Head {h00=0x0010, h01=0x0050, text=»DMT840 EQU *«, t00=0x002d, t01=0x014a}
0x479e…47b4 Head {h00=0x0012, h01=0x0050, text=» IFT FLXDSC=1 «, t00=0x002d, t01=0x015e}
0x47b4…47be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0174}
0x47be…47fe Head {h00=0x003c, h01=0x0050, text=»* NOW CHECK DEVICE CODES. WHEN LAST FILE IS CLOSED ON «, t00=0x002d, t01=0x017e}
0x47fe…4840 Head {h00=0x003e, h01=0x0050, text=»* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME«, t00=0x002e, t01=0x002e}
0x4840…484a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0070}
0x484a…486a Head {h00=0x001c, h01=0x0050, text=» LDK A1,4 EXTENT COUNTER«, t00=0x002e, t01=0x007a}
0x486a…4886 Head {h00=0x0018, h01=0x0050, text=» LDR A5,A6 FDB ADDR «, t00=0x002e, t01=0x009a}
0x4886…48b8 Head {h00=0x002e, h01=0x0050, text=» ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE «, t00=0x002e, t01=0x00b6}
0x48b8…48e2 Head {h00=0x0026, h01=0x0050, text=» SUKL A5,EXTELE EXT LENGTH IN FDB «, t00=0x002e, t01=0x00e8}
0x48e2…4900 Head {h00=0x001a, h01=0x0050, text=» LDK A4,0 FOR VOL CODE«, t00=0x002e, t01=0x0112}
0x4900…4914 Head {h00=0x0010, h01=0x0050, text=»DMT880 EQU *«, t00=0x002e, t01=0x0130}
0x4914…4934 Head {h00=0x001c, h01=0x0050, text=» ENB SEE LABEL 910 ENB «, t00=0x002e, t01=0x0144}
0x4934…494a Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 LOOP«, t00=0x002e, t01=0x0164}
0x494a…4974 Head {h00=0x0026, h01=0x0050, text=» ABL(NN) DMT900 CHECK THIS EXTENT «, t00=0x002e, t01=0x017a}
0x4974…4980 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0014}
0x4980…4996 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002f, t01=0x0020}
0x4996…49a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0036}
0x49a4…49ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0044}
0x49ae…49ce Head {h00=0x001c, h01=0x0050, text=»* ALL EXTENTS CHECKED «, t00=0x002f, t01=0x004e}
0x49ce…49f0 Head {h00=0x001e, h01=0x0050, text=»* RELEASE MASRTER INDEX «, t00=0x002f, t01=0x006e}
0x49f0…49fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0090}
0x49fa…4a06 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002f, t01=0x009a}
0x4a06…4a30 Head {h00=0x0026, h01=0x0050, text=» LD A1,FDBMIA,A6 MASTER INDEX ADDR«, t00=0x002f, t01=0x00a6}
0x4a30…4a52 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT894 NO MATER IX «, t00=0x002f, t01=0x00d0}
0x4a52…4a6c Head {h00=0x0016, h01=0x0050, text=» LD A5,MXIND LENTH«, t00=0x002f, t01=0x00f2}
0x4a6c…4a7e Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x002f, t01=0x010c}
0x4a7e…4a92 Head {h00=0x0010, h01=0x0050, text=»DMT885 EQU *«, t00=0x002f, t01=0x011e}
0x4a92…4aa4 Head {h00=0x000e, h01=0x0050, text=» SUK A5,4 «, t00=0x002f, t01=0x0132}
0x4aa4…4ac6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT890 FIRST INDEX «, t00=0x002f, t01=0x0144}
0x4ac6…4ae8 Head {h00=0x001e, h01=0x0050, text=» RF(N) DMT894 NO MATER IX «, t00=0x002f, t01=0x0166}
0x4ae8…4b02 Head {h00=0x0016, h01=0x0050, text=» CW A1,MXIND+2,A5 «, t00=0x002f, t01=0x0188}
0x4b02…4b18 Head {h00=0x0012, h01=0x0050, text=» RB(NE) DMT885«, t00=0x0030, t01=0x0012}
0x4b18…4b30 Head {h00=0x0014, h01=0x0050, text=» LD A4,MXIND,A5 «, t00=0x0030, t01=0x0028}
0x4b30…4b5a Head {h00=0x0026, h01=0x0050, text=» RF(N) DMT890 PREVIOUS ENTRY USED «, t00=0x0030, t01=0x0040}
0x4b5a…4b80 Head {h00=0x0022, h01=0x0050, text=» LD A4,MXIND+4,A5 NO OF WORDS «, t00=0x0030, t01=0x006a}
0x4b80…4ba4 Head {h00=0x0020, h01=0x0050, text=» ANKL A4,/7FFF REMOV USE BIT«, t00=0x0030, t01=0x0090}
0x4ba4…4bc8 Head {h00=0x0020, h01=0x0050, text=» ADS A4,MXIND,A5 NR OF WORDS«, t00=0x0030, t01=0x00b4}
0x4bc8…4bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d8}
0x4bd2…4bf4 Head {h00=0x001e, h01=0x0050, text=»* MOVE UP REST OF MXIND «, t00=0x0030, t01=0x00e2}
0x4bf4…4bfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0104}
0x4bfe…4c16 Head {h00=0x0014, h01=0x0050, text=» LDKL A1,MXIND+6«, t00=0x0030, t01=0x010e}
0x4c16…4c32 Head {h00=0x0018, h01=0x0050, text=» ADR A1,A5 FROM ADDR«, t00=0x0030, t01=0x0126}
0x4c32…4c44 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0030, t01=0x0142}
0x4c44…4c5e Head {h00=0x0016, h01=0x0050, text=» SUK A3,4 TO ADDR «, t00=0x0030, t01=0x0154}
0x4c5e…4c72 Head {h00=0x0010, h01=0x0050, text=» LD A2,MXIND«, t00=0x0030, t01=0x016e}
0x4c72…4c84 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A5«, t00=0x0030, t01=0x0182}
0x4c84…4ca0 (49, 0, 400) Head {h00=0x0018, h01=0x0050, text=» SUK A2,2 NO OF CHAR«, t00=0x0031, t01=0x0004}
0x4ca0…4cbe Head {h00=0x001a, h01=0x0050, text=» CF A14,DMTWM MOVE UOP«, t00=0x0031, t01=0x0020}
0x4cbe…4cd0 Head {h00=0x000e, h01=0x0050, text=» RF DMT894«, t00=0x0031, t01=0x003e}
0x4cd0…4ce4 Head {h00=0x0010, h01=0x0050, text=»DMT890 EQU *«, t00=0x0031, t01=0x0050}
0x4ce4…4cfa Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/7FFF«, t00=0x0031, t01=0x0064}
0x4cfa…4d24 Head {h00=0x0026, h01=0x0050, text=» ANS A4,MXIND+4,A5 REMOVE USE BIT «, t00=0x0031, t01=0x007a}
0x4d24…4d30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00a4}
0x4d30…4d3e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00b0}
0x4d3e…4d52 Head {h00=0x0010, h01=0x0050, text=»DMT894 EQU *«, t00=0x0031, t01=0x00be}
0x4d52…4d86 Head {h00=0x0030, h01=0x0050, text=» LDKL A10,1 MARK THAT FDB SHALL BE RELEASED «, t00=0x0031, t01=0x00d2}
0x4d86…4d9a Head {h00=0x0010, h01=0x0050, text=»DMT895 EQU *«, t00=0x0031, t01=0x0106}
0x4d9a…4dac Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0031, t01=0x011a}
0x4dac…4db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x012c}
0x4db6…4dda Head {h00=0x0020, h01=0x0050, text=»* DELETE TTAB/CDTAB ENTRY «, t00=0x0031, t01=0x0136}
0x4dda…4de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x015a}
0x4de4…4dfe Head {h00=0x0016, h01=0x0050, text=» CMR A11 FILE CODE«, t00=0x0031, t01=0x0164}
0x4dfe…4e18 Head {h00=0x0016, h01=0x0050, text=» CM 2,A11 FDB ADDR«, t00=0x0031, t01=0x017e}
0x4e18…4e22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0008}
0x4e22…4e50 Head {h00=0x002a, h01=0x0050, text=»* RELEASE DWT-QUEUQ IN THIS FDB-DWT «, t00=0x0032, t01=0x0012}
0x4e50…4e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0040}
0x4e5a…4e74 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 FDBADDR«, t00=0x0032, t01=0x004a}
0x4e74…4e9c Head {h00=0x0024, h01=0x0050, text=» ADKL A1,DWTTQ ADDR QUEUE START «, t00=0x0032, t01=0x0064}
0x4e9c…4ebe Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A1 NEXT TTAB ADDR«, t00=0x0032, t01=0x008c}
0x4ebe…4ed8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMTA20 NO Q«, t00=0x0032, t01=0x00ae}
0x4ed8…4ef2 Head {h00=0x0016, h01=0x0050, text=» CMR A1 KILL ROOT «, t00=0x0032, t01=0x00c8}
0x4ef2…4f1a Head {h00=0x0024, h01=0x0050, text=»DMTA10 LDR* A1,A5 NEXT IN QUEUE «, t00=0x0032, t01=0x00e2}
0x4f1a…4f3a Head {h00=0x001c, h01=0x0050, text=» CF A15,QTJOB DISPATCH Q«, t00=0x0032, t01=0x010a}
0x4f3a…4f52 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A1 NEXT «, t00=0x0032, t01=0x012a}
0x4f52…4f6e Head {h00=0x0018, h01=0x0050, text=» RB(NZ) DMTA10 MORE «, t00=0x0032, t01=0x0142}
0x4f6e…4f82 Head {h00=0x0010, h01=0x0050, text=»DMTA20 EQU *«, t00=0x0032, t01=0x015e}
0x4f82…4f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0172}
0x4f8c…4fb2 Head {h00=0x0022, h01=0x0050, text=»* NEXT ENTRY IN TTAB/CDATAB «, t00=0x0032, t01=0x017c}
0x4fb2…4fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0012}
0x4fbc…4fda Head {h00=0x001a, h01=0x0050, text=» LDR A1,A12 TTAB ADDR «, t00=0x0033, t01=0x001c}
0x4fda…4fec Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0033, t01=0x003a}
0x4fec…5018 Head {h00=0x0028, h01=0x0050, text=» LC A2,ECBFC,A9 FILE CODE USERT ECB «, t00=0x0033, t01=0x004c}
0x5018…5042 Head {h00=0x0026, h01=0x0050, text=» LDR A5,A13 LOCAL/GLOBAL INDICATOR«, t00=0x0033, t01=0x0078}
0x5042…506a Head {h00=0x0024, h01=0x0050, text=» CF A14,FNDFDB SEARCH TTAB CDTAB«, t00=0x0033, t01=0x00a2}
0x506a…508c Head {h00=0x001e, h01=0x0050, text=» LDK A7,0 INDICATES A2 = 0«, t00=0x0033, t01=0x00ca}
0x508c…50a2 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0033, t01=0x00ec}
0x50a2…50b4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0033, t01=0x0102}
0x50b4…50ca Head {h00=0x0012, h01=0x0050, text=» RF(Z) DMTA30 «, t00=0x0033, t01=0x0114}
0x50ca…50d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x012a}
0x50d4…50f4 Head {h00=0x001c, h01=0x0050, text=»* MOV DWT TO NEXT FDB «, t00=0x0033, t01=0x0134}
0x50f4…5124 Head {h00=0x002c, h01=0x0050, text=»* AN INDEX FILE SHALL ALSO BE RELEASED«, t00=0x0033, t01=0x0154}
0x5124…512e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0184}
0x512e…5158 Head {h00=0x0026, h01=0x0050, text=» LD A7,2,A4 NEXT FDB ADDR TO CLOSE«, t00=0x0033, t01=0x018e}
0x5158…516a Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0034, t01=0x0028}
0x516a…5186 Head {h00=0x0018, h01=0x0050, text=» ADR A1,A6 FROM ADDR«, t00=0x0034, t01=0x003a}
0x5186…5198 Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0034, t01=0x0056}
0x5198…51b2 Head {h00=0x0016, h01=0x0050, text=» ADR A3,A7 TO ADDR«, t00=0x0034, t01=0x0068}
0x51b2…51d0 Head {h00=0x001a, h01=0x0050, text=» LDK A2,12 NO OF BYTES«, t00=0x0034, t01=0x0082}
0x51d0…51ee Head {h00=0x001a, h01=0x0050, text=» CF A14,DMTWM MOVE DWT«, t00=0x0034, t01=0x00a0}
0x51ee…5206 Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTTDM,A6«, t00=0x0034, t01=0x00be}
0x5206…5224 Head {h00=0x001a, h01=0x0050, text=» ST A3,DWTTDM,A7 MOVE «, t00=0x0034, t01=0x00d6}
0x5224…5244 Head {h00=0x001c, h01=0x0050, text=» CM FDBSNR,A7 SECTOR NR «, t00=0x0034, t01=0x00f4}
0x5244…525c Head {h00=0x0014, h01=0x0050, text=» LDKL A3,FDBEXT «, t00=0x0034, t01=0x0114}
0x525c…526e Head {h00=0x000e, h01=0x0050, text=» ADR A3,A7«, t00=0x0034, t01=0x012c}
0x526e…5292 Head {h00=0x0020, h01=0x0050, text=» ST A3,FDBCEX,A7 1ST EXTENT «, t00=0x0034, t01=0x013e}
0x5292…52a8 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/8000«, t00=0x0034, t01=0x0162}
0x52a8…52c8 Head {h00=0x001c, h01=0x0050, text=» ST A3,DWTST,A6 NOT BUSY«, t00=0x0034, t01=0x0178}
0x52c8…52dc Head {h00=0x0010, h01=0x0050, text=»DMTA30 EQU *«, t00=0x0035, t01=0x0008}
0x52dc…52e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x001c}
0x52e8…52fa Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0035, t01=0x0028}
0x52fa…5304 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x003a}
0x5304…531e Head {h00=0x0016, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0035, t01=0x0044}
0x531e…5328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x005e}
0x5328…5340 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0035, t01=0x0068}
0x5340…5352 Head {h00=0x000e, h01=0x0050, text=» SUK A3,8 «, t00=0x0035, t01=0x0080}
0x5352…5368 Head {h00=0x0012, h01=0x0050, text=» CF A14,DMTRBU«, t00=0x0035, t01=0x0092}
0x5368…5372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a8}
0x5372…538a Head {h00=0x0014, h01=0x0050, text=»* RELEASE FDB «, t00=0x0035, t01=0x00b2}
0x538a…5394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00ca}
0x5394…53a8 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x0035, t01=0x00d4}
0x53a8…53c8 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DMTA40 NO RELEASE«, t00=0x0035, t01=0x00e8}
0x53c8…53de Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0035, t01=0x0108}
0x53de…53e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x011e}
0x53e8…541c Head {h00=0x0030, h01=0x0050, text=»* REMOVE ALL OTHER REFERAENCES TO THIS FDB«, t00=0x0035, t01=0x0128}
0x541c…5426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x015c}
0x5426…544a Head {h00=0x0020, h01=0x0050, text=» LDK A1,10 2*MAX NR OF FDBS «, t00=0x0035, t01=0x0166}
0x544a…5462 Head {h00=0x0014, h01=0x0050, text=»DMTA50 SUK A1,2 «, t00=0x0035, t01=0x018a}
0x5462…5488 Head {h00=0x0022, h01=0x0050, text=» RF(N) DMTA70 ALL FDBS CHECKED«, t00=0x0036, t01=0x0012}
0x5488…549a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A6«, t00=0x0036, t01=0x0038}
0x549a…54ac Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x0036, t01=0x004a}
0x54ac…54d4 Head {h00=0x0024, h01=0x0050, text=» LD A3,FDBADF,A2 OTHER FDB ADDR «, t00=0x0036, t01=0x005c}
0x54d4…54ea Head {h00=0x0012, h01=0x0050, text=» RB(Z) DMTA50 «, t00=0x0036, t01=0x0084}
0x54ea…550e Head {h00=0x0020, h01=0x0050, text=» LDK A4,10 2*MAX NR OF FDBS «, t00=0x0036, t01=0x009a}
0x550e…5526 Head {h00=0x0014, h01=0x0050, text=»DMTA60 SUK A4,2 «, t00=0x0036, t01=0x00be}
0x5526…555a Head {h00=0x0030, h01=0x0050, text=» RB(N) DMTA50 ALL ADDR CHECKED IN OTHER FDB «, t00=0x0036, t01=0x00d6}
0x555a…556c Head {h00=0x000e, h01=0x0050, text=» LDR A5,A3«, t00=0x0036, t01=0x010a}
0x556c…557e Head {h00=0x000e, h01=0x0050, text=» ADR A5,A4«, t00=0x0036, t01=0x011c}
0x557e…5596 Head {h00=0x0014, h01=0x0050, text=» CW A6,FDBADF,A5«, t00=0x0036, t01=0x012e}
0x5596…55ac Head {h00=0x0012, h01=0x0050, text=» RB(NE) DMTA60«, t00=0x0036, t01=0x0146}
0x55ac…55b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x015c}
0x55b6…55fa Head {h00=0x0040, h01=0x0050, text=»* DELETE THIS REFERENCE TO THE FDB THAT SHALL BE RELEASED «, t00=0x0036, t01=0x0166}
0x55fa…5604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x001a}
0x5604…561a Head {h00=0x0012, h01=0x0050, text=» CM FDBADF,A5 «, t00=0x0037, t01=0x0024}
0x561a…562c Head {h00=0x000e, h01=0x0050, text=» RB DMTA50«, t00=0x0037, t01=0x003a}
0x562c…5638 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x004c}
0x5638…5646 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0058}
0x5646…565a Head {h00=0x0010, h01=0x0050, text=»DMTA70 EQU *«, t00=0x0037, t01=0x0066}
0x565a…5670 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFE«, t00=0x0037, t01=0x007a}
0x5670…5682 Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0037, t01=0x0090}
0x5682…56a2 Head {h00=0x001c, h01=0x0050, text=» ANRS A3,A6 SET FDB FREE«, t00=0x0037, t01=0x00a2}
0x56a2…56b6 Head {h00=0x0010, h01=0x0050, text=»DMTA40 EQU *«, t00=0x0037, t01=0x00c2}
0x56b6…56e4 Head {h00=0x002a, h01=0x0050, text=» CF A14,CLRBUF REMOVE ALL FREE BUFFERS«, t00=0x0037, t01=0x00d6}
0x56e4…5704 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A7 NEW FDB ADDR «, t00=0x0037, t01=0x0104}
0x5704…5728 Head {h00=0x0020, h01=0x0050, text=» ABL(Z) DMTERX NO MORE FDBS «, t00=0x0037, t01=0x0124}
0x5728…573e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0037, t01=0x0148}
0x573e…5750 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0037, t01=0x015e}
0x5750…575a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0170}
0x575a…5792 Head {h00=0x0034, h01=0x0050, text=»* FIND WHICH DMTASK IS NEXT AND ACTIVATE THAT «, t00=0x0037, t01=0x017a}
0x5792…579c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0022}
0x579c…57ae Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0038, t01=0x002c}
0x57ae…57d4 Head {h00=0x0022, h01=0x0050, text=» LC A7,FDBEXT,A1 TASK 1ST EXT «, t00=0x0038, t01=0x003e}
0x57d4…57f2 Head {h00=0x001a, h01=0x0050, text=» ADKL A7,'D0' TASK ID «, t00=0x0038, t01=0x0064}
0x57f2…57fe Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0038, t01=0x0082}
0x57fe…580e Head {h00=0x000c, h01=0x0050, text=» DATA -4«, t00=0x0038, t01=0x008e}
0x580e…5822 Head {h00=0x0010, h01=0x0050, text=» DATA DMTASK«, t00=0x0038, t01=0x009e}
0x5822…582e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0038, t01=0x00b2}
0x582e…5842 Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0038, t01=0x00be}
0x5842…584e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00d2}
0x584e…5864 Head {h00=0x0012, h01=0x0050, text=» IFT FLXDSC=1 «, t00=0x0038, t01=0x00de}
0x5864…5872 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00f4}
0x5872…5886 Head {h00=0x0010, h01=0x0050, text=»DMT900 EQU *«, t00=0x0038, t01=0x0102}
0x5886…58ae Head {h00=0x0024, h01=0x0050, text=»* UNLOCK FLEXDISC IN THIS LOOP«, t00=0x0038, t01=0x0116}
0x58ae…58b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x013e}
0x58b8…58ce Head {h00=0x0012, h01=0x0050, text=»* REGISTERS «, t00=0x0038, t01=0x0148}
0x58ce…58ee Head {h00=0x001c, h01=0x0050, text=»* A1 = EXTENT COUNTER «, t00=0x0038, t01=0x015e}
0x58ee…5928 Head {h00=0x0036, h01=0x0050, text=»* A4 = LAST VOL CODE FLEXDOISC A5 = EXT ADDR «, t00=0x0038, t01=0x017e}
0x5928…5942 Head {h00=0x0016, h01=0x0050, text=»* A6 = FDB ADDR «, t00=0x0039, t01=0x0028}
0x5942…5976 Head {h00=0x0030, h01=0x0050, text=»* A8 = ECB ADDR A9 = DM ECB ADDR «, t00=0x0039, t01=0x0042}
0x5976…598e Head {h00=0x0014, h01=0x0050, text=»* A10-A12 USED«, t00=0x0039, t01=0x0076}
0x598e…5998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x008e}
0x5998…59c2 Head {h00=0x0026, h01=0x0050, text=» ADKL A5,EXTELE EXT LENGTH IN FDB «, t00=0x0039, t01=0x0098}
0x59c2…59e0 Head {h00=0x001a, h01=0x0050, text=» LCR A7,A5 VOLUME CODE«, t00=0x0039, t01=0x00c2}
0x59e0…59f4 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0039, t01=0x00e0}
0x59f4…5a12 Head {h00=0x001a, h01=0x0050, text=» ABL(Z) DMT880 NO CODE«, t00=0x0039, t01=0x00f4}
0x5a12…5a1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0112}
0x5a1c…5a46 Head {h00=0x0026, h01=0x0050, text=»* FLEXDICSC IF BIT 8-13 = 111110«, t00=0x0039, t01=0x011c}
0x5a46…5a50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0146}
0x5a50…5a64 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/F8 «, t00=0x0039, t01=0x0150}
0x5a64…5a78 Head {h00=0x0010, h01=0x0050, text=» SUK A7,/F8 «, t00=0x0039, t01=0x0164}
0x5a78…5a9c Head {h00=0x0020, h01=0x0050, text=» ABL(NE) DMT880 NO FLEXDISC «, t00=0x0039, t01=0x0178}
0x5a9c…5aa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x000c}
0x5aa6…5ae0 Head {h00=0x0036, h01=0x0050, text=»* IF SAME FLEXDISC AS LAST, DO NOT SCHECK AGAIN «, t00=0x003a, t01=0x0016}
0x5ae0…5aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0050}
0x5aea…5afc Head {h00=0x000e, h01=0x0050, text=» CCR A4,A5«, t00=0x003a, t01=0x005a}
0x5afc…5b18 Head {h00=0x0018, h01=0x0050, text=» ABL(E) DMT880 SAME «, t00=0x003a, t01=0x006c}
0x5b18…5b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0088}
0x5b22…5b62 Head {h00=0x003c, h01=0x0050, text=»* NOW SEARCH ALL FDBS FOR THOIS FLEXIBLE DISC VOL CODE«, t00=0x003a, t01=0x0092}
0x5b62…5b6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d2}
0x5b6c…5b80 Head {h00=0x0010, h01=0x0050, text=»DMT910 EQU *«, t00=0x003a, t01=0x00dc}
0x5b80…5ba0 Head {h00=0x001c, h01=0x0050, text=» LCR A4,A5 SAVE VOL CODE«, t00=0x003a, t01=0x00f0}
0x5ba0…5bc6 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,FDBSTA FDB LINK ROOT «, t00=0x003a, t01=0x0110}
0x5bc6…5bd8 Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x003a, t01=0x0136}
0x5bd8…5bea Head {h00=0x000e, h01=0x0050, text=» RF DMT925«, t00=0x003a, t01=0x0148}
0x5bea…5bfe Head {h00=0x0010, h01=0x0050, text=»DMT920 EQU *«, t00=0x003a, t01=0x015a}
0x5bfe…5c1a Head {h00=0x0018, h01=0x0050, text=» LDR* A3,A3 FDB ADDR«, t00=0x003a, t01=0x016e}
0x5c1a…5c2e Head {h00=0x0010, h01=0x0050, text=»DMT925 EQU *«, t00=0x003a, t01=0x018a}
0x5c2e…5c50 Head {h00=0x001e, h01=0x0050, text=» ANKL A3,/FFFE FDB ADDR «, t00=0x003b, t01=0x000e}
0x5c50…5c76 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMT980 ALL FDBS CHECKED«, t00=0x003b, t01=0x0030}
0x5c76…5c8a Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A3 «, t00=0x003b, t01=0x0056}
0x5c8a…5c9c Head {h00=0x000e, h01=0x0050, text=» ANK A7,1 «, t00=0x003b, t01=0x006a}
0x5c9c…5cb6 Head {h00=0x0016, h01=0x0050, text=» RB(Z) DMT920 FREE«, t00=0x003b, t01=0x007c}
0x5cb6…5cc8 Head {h00=0x000e, h01=0x0050, text=» CWR A6,A3«, t00=0x003b, t01=0x0096}
0x5cc8…5cea Head {h00=0x001e, h01=0x0050, text=» RB(E) DMT920 CURRENT FDB «, t00=0x003b, t01=0x00a8}
0x5cea…5d0a Head {h00=0x001c, h01=0x0050, text=» LDK A7,4 EXTENT COUNTER«, t00=0x003b, t01=0x00ca}
0x5d0a…5d26 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A3 FDB ADDR «, t00=0x003b, t01=0x00ea}
0x5d26…5d40 Head {h00=0x0016, h01=0x0050, text=» ADKL A2,FDBEXT+1 «, t00=0x003b, t01=0x0106}
0x5d40…5d60 Head {h00=0x001c, h01=0x0050, text=»* ADDR OF 1ST VOL CODE«, t00=0x003b, t01=0x0120}
0x5d60…5d8a Head {h00=0x0026, h01=0x0050, text=» SUKL A2,EXTELE EXT LENGTH IN FDB «, t00=0x003b, t01=0x0140}
0x5d8a…5d9e Head {h00=0x0010, h01=0x0050, text=»DMT930 EQU *«, t00=0x003b, t01=0x016a}
0x5d9e…5db0 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x003b, t01=0x017e}
0x5db0…5dda Head {h00=0x0026, h01=0x0050, text=» RB(N) DMT920 ALL EXTENTS CHECKED «, t00=0x003b, t01=0x0190}
0x5dda…5df2 Head {h00=0x0014, h01=0x0050, text=» ADKL A2,EXTELE «, t00=0x003c, t01=0x002a}
0x5df2…5e10 Head {h00=0x001a, h01=0x0050, text=» CCR A4,A2 VOLUME CODE«, t00=0x003c, t01=0x0042}
0x5e10…5e3c Head {h00=0x0028, h01=0x0050, text=» ABL(E) DMT880 CODE USED. NO UNLOCK «, t00=0x003c, t01=0x0060}
0x5e3c…5e5a Head {h00=0x001a, h01=0x0050, text=» RB DMT930 NEXT EXTENT«, t00=0x003c, t01=0x008c}
0x5e5a…5e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00aa}
0x5e64…5e8e Head {h00=0x0026, h01=0x0050, text=»* ALL FSDBS CHECKED. MAKE UNLOAD«, t00=0x003c, t01=0x00b4}
0x5e8e…5e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00de}
0x5e98…5eac Head {h00=0x0010, h01=0x0050, text=»DMT980 EQU *«, t00=0x003c, t01=0x00e8}
0x5eac…5ebe Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x003c, t01=0x00fc}
0x5ebe…5ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x010e}
0x5ec8…5f02 Head {h00=0x0036, h01=0x0050, text=»* NOTE THAT ECBBUF IS ASSUMED NOT TO BE CHANGED «, t00=0x003c, t01=0x0118}
0x5f02…5f20 Head {h00=0x001a, h01=0x0050, text=»* WITH THIS REQUEST «, t00=0x003c, t01=0x0152}
0x5f20…5f2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0170}
0x5f2a…5f4a Head {h00=0x001c, h01=0x0050, text=» SC A4,ECBFC,A8 VOL CODE«, t00=0x003c, t01=0x017a}
0x5f4a…5f6a Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B8 UNLOAD WAIT «, t00=0x003d, t01=0x000a}
0x5f6a…5f76 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003d, t01=0x002a}
0x5f76…5f86 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003d, t01=0x0036}
0x5f86…5f9e Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x003d, t01=0x0046}
0x5f9e…5fb6 Head {h00=0x0014, h01=0x0050, text=» ANK A1,1 INOPER«, t00=0x003d, t01=0x005e}
0x5fb6…5fce Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x003d, t01=0x0076}
0x5fce…5ff0 Head {h00=0x001e, h01=0x0050, text=» ABL DMT880 CHECK NEXT EXT«, t00=0x003d, t01=0x008e}
0x5ff0…5ffc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x00b0}
0x5ffc…600a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00bc}
0x600a…6030 Head {h00=0x0022, h01=0x0050, text=»DMT500 EQU * READ VTOC RECORD «, t00=0x003d, t01=0x00ca}
0x6030…603a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f0}
0x603a…6060 Head {h00=0x0022, h01=0x0050, text=» LD A2,VTOCRL VTOC REC LENGTH «, t00=0x003d, t01=0x00fa}
0x6060…6078 Head {h00=0x0014, h01=0x0050, text=» CW A2,ECBRL,A9 «, t00=0x003d, t01=0x0120}
0x6078…60a6 Head {h00=0x002a, h01=0x0050, text=» RF(NG) DMT510 MOVE THE WHOLE VTOC REC«, t00=0x003d, t01=0x0138}
0x60a6…60ca Head {h00=0x0020, h01=0x0050, text=» LDK A1,/8 INCORRECT LENGTH «, t00=0x003d, t01=0x0166}
0x60ca…60f6 Head {h00=0x0028, h01=0x0050, text=» ORS A1,ECBRC,A9 SET RC BUT CONTINUE«, t00=0x003d, t01=0x018a}
0x60f6…6126 Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBRL,A9 MOVE WHAT USER TOLD YOU «, t00=0x003e, t01=0x0026}
0x6126…613a Head {h00=0x0010, h01=0x0050, text=»DMT510 EQU *«, t00=0x003e, t01=0x0056}
0x613a…6152 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBEL,A9 «, t00=0x003e, t01=0x006a}
0x6152…6174 Head {h00=0x001e, h01=0x0050, text=» CF A14,DMTREM MOVE RECORD«, t00=0x003e, t01=0x0082}
0x6174…6188 Head {h00=0x0010, h01=0x0050, text=»DMAEX EQU * «, t00=0x003e, t01=0x00a4}
0x6188…61a0 Head {h00=0x0014, h01=0x0050, text=» ABL DMTAEX EXIT«, t00=0x003e, t01=0x00b8}
0x61a0…61ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x00d0}
0x61ae…61d4 Head {h00=0x0022, h01=0x0050, text=»DMSQWR EQU * SEQUENTIAL WRITE «, t00=0x003e, t01=0x00de}
0x61d4…61de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0104}
0x61de…6200 Head {h00=0x001e, h01=0x0050, text=»DMRDWR EQU * RANDOM WRITE «, t00=0x003e, t01=0x010e}
0x6200…620a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0130}
0x620a…622c Head {h00=0x001e, h01=0x0050, text=»DMRDDE EQU * RANDOM DELETE«, t00=0x003e, t01=0x013a}
0x622c…6236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x015c}
0x6236…6258 Head {h00=0x001e, h01=0x0050, text=»DMINS EQU * INDEXED INSERT«, t00=0x003e, t01=0x0166}
0x6258…6262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0188}
0x6262…6284 (63, 0, 400) Head {h00=0x001e, h01=0x0050, text=»DMDEL EQU * INDEXED DELETE«, t00=0x003f, t01=0x0004}
0x6284…628e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0026}
0x628e…62b2 Head {h00=0x0020, h01=0x0050, text=»DMIRW EQU * INDEXED REWRITE «, t00=0x003f, t01=0x0030}
0x62b2…62bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0054}
0x62bc…62e6 Head {h00=0x0026, h01=0x0050, text=»DMRDWD EQU * DELAYED RANDOM WRITE «, t00=0x003f, t01=0x005e}
0x62e6…62f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0088}
0x62f0…631a Head {h00=0x0026, h01=0x0050, text=»DMRDDD EQU * DELAYED RANDOM DELETE«, t00=0x003f, t01=0x0092}
0x631a…6324 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00bc}
0x6324…633c Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS «, t00=0x003f, t01=0x00c6}
0x633c…6356 Head {h00=0x0016, h01=0x0050, text=» LD A10,FDBRRO,A6 «, t00=0x003f, t01=0x00de}
0x6356…6370 Head {h00=0x0016, h01=0x0050, text=» AD A10,FDBRLE,A6 «, t00=0x003f, t01=0x00f8}
0x6370…6398 Head {h00=0x0024, h01=0x0050, text=» ADR A10,A5 STATUS BYTE ADDRESS «, t00=0x003f, t01=0x0112}
0x6398…63b8 Head {h00=0x001c, h01=0x0050, text=» LDR A11,A5 BUFFER ADDR «, t00=0x003f, t01=0x013a}
0x63b8…63d4 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x003f, t01=0x015a}
0x63d4…63ee Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A9 «, t00=0x003f, t01=0x0176}
0x63ee…6402 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003f, t01=0x0190}
0x6402…6424 Head {h00=0x001e, h01=0x0050, text=» LD A3,ECBCW,A9 LOG REC NR«, t00=0x0040, t01=0x0014}
0x6424…6436 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0040, t01=0x0036}
0x6436…644a Head {h00=0x0010, h01=0x0050, text=» CCR A4,A10 «, t00=0x0040, t01=0x0048}
0x644a…6464 Head {h00=0x0016, h01=0x0050, text=» RF(E) DMS010 FREE«, t00=0x0040, t01=0x005c}
0x6464…647a Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0040, t01=0x0076}
0x647a…648c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0040, t01=0x008c}
0x648c…64a0 Head {h00=0x0010, h01=0x0050, text=» SUK A4,QINS«, t00=0x0040, t01=0x009e}
0x64a0…64c4 Head {h00=0x0020, h01=0x0050, text=» RF(E) DMEAER INDEXED INSERT«, t00=0x0040, t01=0x00b2}
0x64c4…64d0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x00d6}
0x64d0…64e2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0040, t01=0x00e2}
0x64e2…64f6 Head {h00=0x0010, h01=0x0050, text=» SUK A4,QSW «, t00=0x0040, t01=0x00f4}
0x64f6…6516 Head {h00=0x001c, h01=0x0050, text=» RF(E) DMEAER SEQ WRITE «, t00=0x0040, t01=0x0108}
0x6516…652c Head {h00=0x0012, h01=0x0050, text=» IFT QNOEXA=1 «, t00=0x0040, t01=0x0128}
0x652c…6552 Head {h00=0x0022, h01=0x0050, text=»* NO EA-CHECK IF EA-BIT = 1 «, t00=0x0040, t01=0x013e}
0x6552…655c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0164}
0x655c…6574 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTST,A6 «, t00=0x0040, t01=0x016e}
0x6574…658a Head {h00=0x0012, h01=0x0050, text=» ANK A4,EABIT «, t00=0x0040, t01=0x0186}
0x658a…65b0 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMS020 EA=1, NO CHECK «, t00=0x0041, t01=0x000c}
0x65b0…65ca Head {h00=0x0016, h01=0x0050, text=»* EA MUST BE SET«, t00=0x0041, t01=0x0032}
0x65ca…65d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x004c}
0x65d4…65ea Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x0041, t01=0x0056}
0x65ea…6606 Head {h00=0x0018, h01=0x0050, text=» LDR A4,A4 RTN CODE «, t00=0x0041, t01=0x006c}
0x6606…662c Head {h00=0x0022, h01=0x0050, text=» RF(NP) DMEAER NO EA THIS TASK«, t00=0x0041, t01=0x0088}
0x662c…6638 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00ae}
0x6638…664a Head {h00=0x000e, h01=0x0050, text=» RF DMS100«, t00=0x0041, t01=0x00ba}
0x664a…665e Head {h00=0x0010, h01=0x0050, text=»DMS010 EQU *«, t00=0x0041, t01=0x00cc}
0x665e…6674 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0041, t01=0x00e0}
0x6674…6686 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0041, t01=0x00f6}
0x6686…669a Head {h00=0x0010, h01=0x0050, text=» SUK A4,QIRW«, t00=0x0041, t01=0x0108}
0x669a…66c0 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMERND INDEXED REWRITE «, t00=0x0041, t01=0x011c}
0x66c0…66d2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0041, t01=0x0142}
0x66d2…66e6 Head {h00=0x0010, h01=0x0050, text=» SUK A4,QDEL«, t00=0x0041, t01=0x0154}
0x66e6…670a Head {h00=0x0020, h01=0x0050, text=» RF(Z) DMERND INDEXED DELETE«, t00=0x0041, t01=0x0168}
0x670a…6716 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x018c}
0x6716…672a Head {h00=0x0010, h01=0x0050, text=»DMS020 EQU *«, t00=0x0042, t01=0x0008}
0x672a…6740 Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x0042, t01=0x001c}
0x6740…675c Head {h00=0x0018, h01=0x0050, text=» LDR A4,A4 RTN CODE «, t00=0x0042, t01=0x0032}
0x675c…6780 Head {h00=0x0020, h01=0x0050, text=» RF(N) DMEAER EA OTHER TASK «, t00=0x0042, t01=0x004e}
0x6780…6794 Head {h00=0x0010, h01=0x0050, text=»DMS100 EQU *«, t00=0x0042, t01=0x0072}
0x6794…67b6 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 SET STATUS FREE «, t00=0x0042, t01=0x0086}
0x67b6…67cc Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0042, t01=0x00a8}
0x67cc…67de Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0042, t01=0x00be}
0x67de…67f2 Head {h00=0x0010, h01=0x0050, text=» SUK A2,QIRW«, t00=0x0042, t01=0x00d0}
0x67f2…6818 Head {h00=0x0022, h01=0x0050, text=» RF(E) CHK010 INDEXED REWRITE «, t00=0x0042, t01=0x00e4}
0x6818…682a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0042, t01=0x010a}
0x682a…683e Head {h00=0x0010, h01=0x0050, text=» SUK A2,QINS«, t00=0x0042, t01=0x011c}
0x683e…6862 Head {h00=0x0020, h01=0x0050, text=» RF(E) CHK010 INDEXED INSERT«, t00=0x0042, t01=0x0130}
0x6862…6874 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0042, t01=0x0154}
0x6874…6888 Head {h00=0x0010, h01=0x0050, text=» SUK A2,QDEL«, t00=0x0042, t01=0x0166}
0x6888…68ac Head {h00=0x0020, h01=0x0050, text=» RF(E) CHK010 INDEXED DELETE«, t00=0x0042, t01=0x017a}
0x68ac…68b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x000e}
0x68b8…68ca Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0043, t01=0x001a}
0x68ca…68de Head {h00=0x0010, h01=0x0050, text=» SUK A2,QRD «, t00=0x0043, t01=0x002c}
0x68de…6902 Head {h00=0x0020, h01=0x0050, text=» RF(E) DMT350 RANDOM DELETE «, t00=0x0043, t01=0x0040}
0x6902…6914 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0043, t01=0x0064}
0x6914…6928 Head {h00=0x0010, h01=0x0050, text=» SUK A2,QRDD«, t00=0x0043, t01=0x0076}
0x6928…6954 Head {h00=0x0028, h01=0x0050, text=» RF(E) DMT350 DELAYED RANDOM DELETE «, t00=0x0043, t01=0x008a}
0x6954…6970 Head {h00=0x0018, h01=0x0050, text=» RF DMT310 RW,RWD,SW«, t00=0x0043, t01=0x00b6}
0x6970…6986 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0043, t01=0x00d2}
0x6986…6994 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x00e8}
0x6994…69a8 Head {h00=0x0010, h01=0x0050, text=»CHK010 EQU *«, t00=0x0043, t01=0x00f6}
0x69a8…69f2 Head {h00=0x0046, h01=0x0050, text=»* INDEXED REWRITE,INDEXED INSERT AND INDEXED DELETE ENTERS HERE «, t00=0x0043, t01=0x010a}
0x69f2…69fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0154}
0x69fc…6a20 Head {h00=0x0020, h01=0x0050, text=»* COUNT NR OF INDEXES AND «, t00=0x0043, t01=0x015e}
0x6a20…6a50 Head {h00=0x002c, h01=0x0050, text=»* COMPARE KEYS IN FILE AND USER BUFFER«, t00=0x0043, t01=0x0182}
0x6a50…6a5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0022}
0x6a5a…6a76 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0044, t01=0x002c}
0x6a76…6a94 Head {h00=0x001a, h01=0x0050, text=» LDK A5,8 MAX 4 INDEX «, t00=0x0044, t01=0x0048}
0x6a94…6ab6 Head {h00=0x001e, h01=0x0050, text=» SUR A12,A12 INDEX COUNTER«, t00=0x0044, t01=0x0066}
0x6ab6…6aca Head {h00=0x0010, h01=0x0050, text=»CHK040 EQU *«, t00=0x0044, t01=0x0088}
0x6aca…6adc Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x0044, t01=0x009c}
0x6adc…6b04 Head {h00=0x0024, h01=0x0050, text=» RF(N) CHK100 ALL INDEX CHECKED «, t00=0x0044, t01=0x00ae}
0x6b04…6b1e Head {h00=0x0016, h01=0x0050, text=» LDR A2,A1 FDB ADD«, t00=0x0044, t01=0x00d6}
0x6b1e…6b30 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A5«, t00=0x0044, t01=0x00f0}
0x6b30…6b5c Head {h00=0x0028, h01=0x0050, text=» LD A6,FDBAI1,A2 FDB ADDR INDEX FILE«, t00=0x0044, t01=0x0102}
0x6b5c…6b7a Head {h00=0x001a, h01=0x0050, text=» RB(Z) CHK040 NO INDEX«, t00=0x0044, t01=0x012e}
0x6b7a…6ba0 Head {h00=0x0022, h01=0x0050, text=» ADKL A12,1 COUNT INDEX FILES «, t00=0x0044, t01=0x014c}
0x6ba0…6bb8 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A6 «, t00=0x0044, t01=0x0172}
0x6bb8…6bd8 Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F ORDER INDEX «, t00=0x0044, t01=0x018a}
0x6bd8…6bec Head {h00=0x0010, h01=0x0050, text=» SUK A2,QIRW«, t00=0x0045, t01=0x001a}
0x6bec…6c16 Head {h00=0x0026, h01=0x0050, text=» RB(NE) CHK040 NOT INDEXED REWRITE«, t00=0x0045, t01=0x002e}
0x6c16…6c3c Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBKA,A6 KEY START ADDR«, t00=0x0045, t01=0x0058}
0x6c3c…6c4e Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0045, t01=0x007e}
0x6c4e…6c74 Head {h00=0x0022, h01=0x0050, text=» AD A2,ECBBA,A9 KEY IN BUFFER «, t00=0x0045, t01=0x0090}
0x6c74…6c8c Head {h00=0x0014, h01=0x0050, text=» AD A3,FDBRRO,A1«, t00=0x0045, t01=0x00b6}
0x6c8c…6cac Head {h00=0x001c, h01=0x0050, text=» ADR A3,A11 KEY IN FILE «, t00=0x0045, t01=0x00ce}
0x6cac…6cbe Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0045, t01=0x00ee}
0x6cbe…6ce4 Head {h00=0x0022, h01=0x0050, text=» LD A6,FDBRLE,A6 RECORD LENGTH«, t00=0x0045, t01=0x0100}
0x6ce4…6d00 Head {h00=0x0018, h01=0x0050, text=» SUK A6,6 KEY LENGTH«, t00=0x0045, t01=0x0126}
0x6d00…6d24 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x0045, t01=0x0142}
0x6d24…6d36 Head {h00=0x000e, h01=0x0050, text=» CWR A6,A7«, t00=0x0045, t01=0x0166}
0x6d36…6d64 Head {h00=0x002a, h01=0x0050, text=» RB(E) CHK040 KEY UNCHANGED CHECK NEXT«, t00=0x0045, t01=0x0178}
0x6d64…6d80 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0046, t01=0x0016}
0x6d80…6da4 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/4000 KEY NOT FOUND«, t00=0x0046, t01=0x0032}
0x6da4…6db6 Head {h00=0x000e, h01=0x0050, text=» RF DMERR «, t00=0x0046, t01=0x0056}
0x6db6…6dca Head {h00=0x0010, h01=0x0050, text=»CHK100 EQU *«, t00=0x0046, t01=0x0068}
0x6dca…6de6 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0046, t01=0x007c}
0x6de6…6dfe Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0046, t01=0x0098}
0x6dfe…6e1e Head {h00=0x001c, h01=0x0050, text=» ANK A7,/3F ORDER INDEX «, t00=0x0046, t01=0x00b0}
0x6e1e…6e30 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0046, t01=0x00d0}
0x6e30…6e48 Head {h00=0x0014, h01=0x0050, text=» LC A2,FDBNIF,A6«, t00=0x0046, t01=0x00e2}
0x6e48…6e5c Head {h00=0x0010, h01=0x0050, text=» CWR A2,A12 «, t00=0x0046, t01=0x00fa}
0x6e5c…6e88 Head {h00=0x0028, h01=0x0050, text=» RF(E) DMT310 ALL INDEX IS EXISTING «, t00=0x0046, t01=0x010e}
0x6e88…6ea6 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/8000 REQ ERR«, t00=0x0046, t01=0x013a}
0x6ea6…6eb8 Head {h00=0x000e, h01=0x0050, text=» RF DMERR «, t00=0x0046, t01=0x0158}
0x6eb8…6edc Head {h00=0x0020, h01=0x0050, text=»DMERND LDKL A1,/800 NO DATA «, t00=0x0046, t01=0x016a}
0x6edc…6eee Head {h00=0x000e, h01=0x0050, text=» RF DMERR «, t00=0x0046, t01=0x018e}
0x6eee…6efa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0010}
0x6efa…6f22 Head {h00=0x0024, h01=0x0050, text=»DMEAER LDKL A1,/2000 EA PROTECT «, t00=0x0047, t01=0x001c}
0x6f22…6f3a Head {h00=0x0014, h01=0x0050, text=»DMERR ABL DMTERR«, t00=0x0047, t01=0x0044}
0x6f3a…6f48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x005c}
0x6f48…6f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x006a}
0x6f52…6f6a Head {h00=0x0014, h01=0x0050, text=»* MOVE RECORD «, t00=0x0047, t01=0x0074}
0x6f6a…6f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x008c}
0x6f74…6f88 Head {h00=0x0010, h01=0x0050, text=»DMT310 EQU *«, t00=0x0047, t01=0x0096}
0x6f88…6f9e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0047, t01=0x00aa}
0x6f9e…6fb0 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0047, t01=0x00c0}
0x6fb0…6fc4 Head {h00=0x0010, h01=0x0050, text=» SUK A2,QDEL«, t00=0x0047, t01=0x00d2}
0x6fc4…6fea Head {h00=0x0022, h01=0x0050, text=» ABL(E) DMXDEL INDEXED DELETE «, t00=0x0047, t01=0x00e6}
0x6fea…6ff6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x010c}
0x6ff6…701c Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBRLE,A6 RECORD LENGTH«, t00=0x0047, t01=0x0118}
0x701c…7034 Head {h00=0x0014, h01=0x0050, text=» LD A3,FDBRRO,A6«, t00=0x0047, t01=0x013e}
0x7034…7052 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A11 TO ADDRESS«, t00=0x0047, t01=0x0156}
0x7052…7064 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0047, t01=0x0174}
0x7064…7088 Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBBA,A9 FROM ADDRESS«, t00=0x0047, t01=0x0186}
0x7088…709a Head {h00=0x000e, h01=0x0050, text=» XRR A4,A1«, t00=0x0048, t01=0x001a}
0x709a…70ae Head {h00=0x0010, h01=0x0050, text=» ANK A4,/01 «, t00=0x0048, t01=0x002c}
0x70ae…70da Head {h00=0x0028, h01=0x0050, text=» RF(E) DMT320 BOTH ODD OR BOTH EVEN «, t00=0x0048, t01=0x0040}
0x70da…7104 Head {h00=0x0026, h01=0x0050, text=» CF A14,DMTBM ONE ODD AND ONE EVEN«, t00=0x0048, t01=0x006c}
0x7104…7116 Head {h00=0x000e, h01=0x0050, text=» RF DMT340«, t00=0x0048, t01=0x0096}
0x7116…7120 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00a8}
0x7120…7138 Head {h00=0x0014, h01=0x0050, text=»DMT320 LDR A4,A3«, t00=0x0048, t01=0x00b2}
0x7138…714c Head {h00=0x0010, h01=0x0050, text=» ANK A4,/01 «, t00=0x0048, t01=0x00ca}
0x714c…716c Head {h00=0x001c, h01=0x0050, text=» RF(E) DMT330 BOTH EVEN «, t00=0x0048, t01=0x00de}
0x716c…7186 Head {h00=0x0016, h01=0x0050, text=» SUK A2,1 BOTH ODD«, t00=0x0048, t01=0x00fe}
0x7186…7198 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0048, t01=0x0118}
0x7198…71aa Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x0048, t01=0x012a}
0x71aa…71bc Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0048, t01=0x013c}
0x71bc…71ce Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0048, t01=0x014e}
0x71ce…71f4 Head {h00=0x0022, h01=0x0050, text=»DMT330 CF A14,DMTWM WORD MOVE «, t00=0x0048, t01=0x0160}
0x71f4…71fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0186}
0x71fe…7212 Head {h00=0x0010, h01=0x0050, text=»DMT340 EQU *«, t00=0x0048, t01=0x0190}
0x7212…721c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0014}
0x721c…7238 Head {h00=0x0018, h01=0x0050, text=»* SET STATUS USED «, t00=0x0049, t01=0x001e}
0x7238…7242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x003a}
0x7242…7256 Head {h00=0x0010, h01=0x0050, text=» LDK A1,/FF «, t00=0x0049, t01=0x0044}
0x7256…7270 Head {h00=0x0016, h01=0x0050, text=»DMT350 SCR A1,A10 «, t00=0x0049, t01=0x0058}
0x7270…7288 Head {h00=0x0014, h01=0x0050, text=» LD A3,FDBDBR,A6«, t00=0x0049, t01=0x0072}
0x7288…72a8 Head {h00=0x001c, h01=0x0050, text=» RF(NN) DMT394 NO DELAY «, t00=0x0049, t01=0x008a}
0x72a8…72ba Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0049, t01=0x00aa}
0x72ba…72ce Head {h00=0x0010, h01=0x0050, text=» SUK A2,QSW «, t00=0x0049, t01=0x00bc}
0x72ce…72f4 Head {h00=0x0022, h01=0x0050, text=» RF(E) DMT360 SEQUENTIAL WRITE«, t00=0x0049, t01=0x00d0}
0x72f4…7306 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0049, t01=0x00f6}
0x7306…731a Head {h00=0x0010, h01=0x0050, text=» SUK A2,QRWD«, t00=0x0049, t01=0x0108}
0x731a…7344 Head {h00=0x0026, h01=0x0050, text=» RF(E) DMT400 DELAYED RANDOM WRITE«, t00=0x0049, t01=0x011c}
0x7344…7358 Head {h00=0x0010, h01=0x0050, text=» SUK A7,QRDD«, t00=0x0049, t01=0x0146}
0x7358…7384 Head {h00=0x0028, h01=0x0050, text=» RF(E) DMT400 DELAYED RANDOM DELETE «, t00=0x0049, t01=0x015a}
0x7384…7396 Head {h00=0x000e, h01=0x0050, text=» RF DMT390«, t00=0x0049, t01=0x0186}
0x7396…73be Head {h00=0x0024, h01=0x0050, text=»* WRITE IF LAST REC IN SECTOR «, t00=0x004a, t01=0x0008}
0x73be…73c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0030}
0x73c8…73e6 Head {h00=0x001a, h01=0x0050, text=»DMT360 LD A4,FDBRRO,A6«, t00=0x004a, t01=0x003a}
0x73e6…73fe Head {h00=0x0014, h01=0x0050, text=» CW A4,FDBMRO,A6«, t00=0x004a, t01=0x0058}
0x73fe…7424 Head {h00=0x0022, h01=0x0050, text=» RF(NE) DMT400 NOT LAST RECORD«, t00=0x004a, t01=0x0070}
0x7424…744a Head {h00=0x0022, h01=0x0050, text=»DMT390 LDK A7,/05 BASIC WRITE «, t00=0x004a, t01=0x0096}
0x744a…745c Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x004a, t01=0x00bc}
0x745c…747e Head {h00=0x001e, h01=0x0050, text=» RF(N) DMT395 BASIC WANTED«, t00=0x004a, t01=0x00ce}
0x747e…74a6 Head {h00=0x0024, h01=0x0050, text=»DMT394 LDK A7,/15 PHYSICAL WRITE«, t00=0x004a, t01=0x00f0}
0x74a6…74ba Head {h00=0x0010, h01=0x0050, text=»DMT395 EQU *«, t00=0x004a, t01=0x0118}
0x74ba…74c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x012c}
0x74c4…74f0 Head {h00=0x0028, h01=0x0050, text=»* WRITE SECTOR ONTO DISC AND EXIT«, t00=0x004a, t01=0x0136}
0x74f0…74fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0162}
0x74fa…7526 Head {h00=0x0028, h01=0x0050, text=» LDR A1,A6 FDB ADDRESS AS PARAMETER «, t00=0x004a, t01=0x016c}
0x7526…7532 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004b, t01=0x0008}
0x7532…7556 Head {h00=0x0020, h01=0x0050, text=» DATA -1 I/O AND ACTIVATION «, t00=0x004b, t01=0x0014}
0x7556…757c Head {h00=0x0022, h01=0x0050, text=» DATA DMTAR2 DMTASK RESTART #2«, t00=0x004b, t01=0x0038}
0x757c…7588 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004b, t01=0x005e}
0x7588…759c Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x004b, t01=0x006a}
0x759c…75aa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x007e}
0x75aa…75b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x008c}
0x75b4…75ca Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x004b, t01=0x0096}
0x75ca…75e0 Head {h00=0x0012, h01=0x0050, text=»* DMTAR2 *«, t00=0x004b, t01=0x00ac}
0x75e0…75f6 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x004b, t01=0x00c2}
0x75f6…7600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d8}
0x7600…760a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00e2}
0x760a…763a Head {h00=0x002c, h01=0x0050, text=»DMTAR2 EQU * DMTASK RESTART AFTER WRITE «, t00=0x004b, t01=0x00ec}
0x763a…7644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x011c}
0x7644…7660 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x004b, t01=0x0126}
0x7660…766a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0142}
0x766a…7676 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x004b, t01=0x014c}
0x7676…768c Head {h00=0x0012, h01=0x0050, text=» CF A15,GETA14«, t00=0x004b, t01=0x0158}
0x768c…7696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x016e}
0x7696…76bc Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTIOT CHECK DISC I/O «, t00=0x004b, t01=0x0178}
0x76bc…76ce Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x004c, t01=0x000e}
0x76ce…76e4 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DMTERR«, t00=0x004c, t01=0x0020}
0x76e4…76fa Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C0FF«, t00=0x004c, t01=0x0036}
0x76fa…7722 Head {h00=0x0024, h01=0x0050, text=» ANS A1,FDBDBR,A6 RELEASE BUFFER«, t00=0x004c, t01=0x004c}
0x7722…7736 Head {h00=0x0010, h01=0x0050, text=»DMT400 EQU *«, t00=0x004c, t01=0x0074}
0x7736…775c Head {h00=0x0022, h01=0x0050, text=» LDR A1,A6 FDB ADDR DATA FILE «, t00=0x004c, t01=0x0088}
0x775c…7776 Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A9 «, t00=0x004c, t01=0x00ae}
0x7776…778a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004c, t01=0x00c8}
0x778a…77ac Head {h00=0x001e, h01=0x0050, text=» LD A3,ECBCW,A9 LOG REC NR«, t00=0x004c, t01=0x00dc}
0x77ac…77ce Head {h00=0x001e, h01=0x0050, text=» LC A11,ECBFC,A9 FILE CODE«, t00=0x004c, t01=0x00fe}
0x77ce…77e6 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A1 «, t00=0x004c, t01=0x0120}
0x77e6…7806 Head {h00=0x001c, h01=0x0050, text=» ANK A7,/3F ORDER INDEX «, t00=0x004c, t01=0x0138}
0x7806…781a Head {h00=0x0010, h01=0x0050, text=» LDK A4,QSW «, t00=0x004c, t01=0x0158}
0x781a…782c Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004c, t01=0x016c}
0x782c…784c Head {h00=0x001c, h01=0x0050, text=» RF(E) DMT460 SEQ WRITE «, t00=0x004c, t01=0x017e}
0x784c…7860 Head {h00=0x0010, h01=0x0050, text=» LDK A4,QRD «, t00=0x004d, t01=0x000e}
0x7860…7872 Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004d, t01=0x0022}
0x7872…7890 Head {h00=0x001a, h01=0x0050, text=» RF(E) DMT420 RAND DEL«, t00=0x004d, t01=0x0034}
0x7890…78a4 Head {h00=0x0010, h01=0x0050, text=» LDK A4,QRDD«, t00=0x004d, t01=0x0052}
0x78a4…78b6 Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004d, t01=0x0066}
0x78b6…78e2 Head {h00=0x0028, h01=0x0050, text=» RF(E) DMT420 DELAYED RANDEOM DELETE«, t00=0x004d, t01=0x0078}
0x78e2…78f8 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x004d, t01=0x00a4}
0x78f8…790c Head {h00=0x0010, h01=0x0050, text=» LDK A4,QDEL«, t00=0x004d, t01=0x00ba}
0x790c…791e Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004d, t01=0x00ce}
0x791e…7942 Head {h00=0x0020, h01=0x0050, text=» RF(E) DMT420 INDEXED DELETE«, t00=0x004d, t01=0x00e0}
0x7942…794e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x0104}
0x794e…7974 Head {h00=0x0022, h01=0x0050, text=» LDR A5,A2 SAVE REC NO PART 1 «, t00=0x004d, t01=0x0110}
0x7974…7986 Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x004d, t01=0x0136}
0x7986…7990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0148}
0x7990…79a6 Head {h00=0x0012, h01=0x0050, text=»* UPDATE CRN«, t00=0x004d, t01=0x0152}
0x79a6…79b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0168}
0x79b0…79d6 Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x004d, t01=0x0172}
0x79d6…79f6 Head {h00=0x001c, h01=0x0050, text=» LDR A10,A2 BUFFER ADDR «, t00=0x004e, t01=0x0008}
0x79f6…7a0c Head {h00=0x0012, h01=0x0050, text=» CM CRNCIF,A2 «, t00=0x004e, t01=0x0028}
0x7a0c…7a28 Head {h00=0x0018, h01=0x0050, text=»* CLEAR INDEX CRN «, t00=0x004e, t01=0x003e}
0x7a28…7a40 Head {h00=0x0014, h01=0x0050, text=» CM CRNCIF+2,A2 «, t00=0x004e, t01=0x005a}
0x7a40…7a52 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A5«, t00=0x004e, t01=0x0072}
0x7a52…7a64 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A9«, t00=0x004e, t01=0x0084}
0x7a64…7a7e Head {h00=0x0016, h01=0x0050, text=» ST A2,CRNCDF,A10 «, t00=0x004e, t01=0x0096}
0x7a7e…7aa8 Head {h00=0x0026, h01=0x0050, text=» ST A3,CRNCDF+2,A10 CRN DATA FILE «, t00=0x004e, t01=0x00b0}
0x7aa8…7ad2 Head {h00=0x0026, h01=0x0050, text=» SC A11,CRNCDF,A10 CRN FIL E CODE «, t00=0x004e, t01=0x00da}
0x7ad2…7ae8 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x004e, t01=0x0104}
0x7ae8…7afc Head {h00=0x0010, h01=0x0050, text=» LDK A4,QINS«, t00=0x004e, t01=0x011a}
0x7afc…7b0e Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004e, t01=0x012e}
0x7b0e…7b32 Head {h00=0x0020, h01=0x0050, text=» RF(E) DMT460 INDEXED INSERT«, t00=0x004e, t01=0x0140}
0x7b32…7b3e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0164}
0x7b3e…7b52 Head {h00=0x0010, h01=0x0050, text=»DMT420 EQU *«, t00=0x004e, t01=0x0170}
0x7b52…7b66 Head {h00=0x0010, h01=0x0050, text=» LDK A4,QSR «, t00=0x004e, t01=0x0184}
0x7b66…7b78 Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004f, t01=0x0008}
0x7b78…7b96 Head {h00=0x001a, h01=0x0050, text=» RF(E) DMT450 SEQ READ«, t00=0x004f, t01=0x001a}
0x7b96…7baa Head {h00=0x0010, h01=0x0050, text=» LDK A4,QRR «, t00=0x004f, t01=0x0038}
0x7baa…7bbc Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004f, t01=0x004c}
0x7bbc…7bde Head {h00=0x001e, h01=0x0050, text=» RF(E) DMT450 RANDOM READ «, t00=0x004f, t01=0x005e}
0x7bde…7bf4 Head {h00=0x0012, h01=0x0050, text=» LDK A4,QRRRB «, t00=0x004f, t01=0x0080}
0x7bf4…7c06 Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004f, t01=0x0096}
0x7c06…7c30 Head {h00=0x0026, h01=0x0050, text=» RF(E) DMT450 RAND READ REL BUFFER«, t00=0x004f, t01=0x00a8}
0x7c30…7c44 Head {h00=0x0010, h01=0x0050, text=»DMT440 EQU *«, t00=0x004f, t01=0x00d2}
0x7c44…7c4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00e6}
0x7c4e…7c64 Head {h00=0x0012, h01=0x0050, text=»* RELEASE EA«, t00=0x004f, t01=0x00f0}
0x7c64…7c6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0106}
0x7c6e…7c8c Head {h00=0x001a, h01=0x0050, text=» CF A14,EARELB REL EA «, t00=0x004f, t01=0x0110}
0x7c8c…7c9e Head {h00=0x000e, h01=0x0050, text=» RF DMTAEX«, t00=0x004f, t01=0x012e}
0x7c9e…7cb2 Head {h00=0x0010, h01=0x0050, text=»DMT450 EQU *«, t00=0x004f, t01=0x0140}
0x7cb2…7cd4 Head {h00=0x001e, h01=0x0050, text=» LC A4,DWTST,A1 DWTSTATUS «, t00=0x004f, t01=0x0154}
0x7cd4…7cf0 Head {h00=0x0018, h01=0x0050, text=» ANK A4,EABIT EA-BIT«, t00=0x004f, t01=0x0176}
0x7cf0…7d1a (80, 0, 400) Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DMTAEX EA=1. NO EA WANTED «, t00=0x0050, t01=0x0004}
0x7d1a…7d24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x002e}
0x7d24…7d4a Head {h00=0x0022, h01=0x0050, text=»* CHECK IF EA IS SET ALREADY«, t00=0x0050, t01=0x0038}
0x7d4a…7d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x005e}
0x7d54…7d74 Head {h00=0x001c, h01=0x0050, text=» CF A14,EATEST CHECK EA «, t00=0x0050, t01=0x0068}
0x7d74…7d86 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x0050, t01=0x0088}
0x7d86…7dac Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMTAEX EA ALREADY SET «, t00=0x0050, t01=0x009a}
0x7dac…7db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00c0}
0x7db6…7dc8 Head {h00=0x000e, h01=0x0050, text=»* SET EA«, t00=0x0050, t01=0x00ca}
0x7dc8…7dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00dc}
0x7dd2…7de8 Head {h00=0x0012, h01=0x0050, text=» CF A14,EASETB«, t00=0x0050, t01=0x00e6}
0x7de8…7dfa Head {h00=0x000e, h01=0x0050, text=» RF DMTAEX«, t00=0x0050, t01=0x00fc}
0x7dfa…7e0e Head {h00=0x0010, h01=0x0050, text=»DMT460 EQU *«, t00=0x0050, t01=0x010e}
0x7e0e…7e18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0122}
0x7e18…7e2e Head {h00=0x0012, h01=0x0050, text=»* UPDATE LRN«, t00=0x0050, t01=0x012c}
0x7e2e…7e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0142}
0x7e38…7e50 Head {h00=0x0014, h01=0x0050, text=» SC A2,FDBLRN,A1«, t00=0x0050, t01=0x014c}
0x7e50…7e6a Head {h00=0x0016, h01=0x0050, text=» ST A3,FDBLRN+1,A1«, t00=0x0050, t01=0x0164}
0x7e6a…7e80 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0050, t01=0x017e}
0x7e80…7e94 (81, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDK A4,QINS«, t00=0x0051, t01=0x0004}
0x7e94…7ea6 Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x0051, t01=0x0018}
0x7ea6…7ecc Head {h00=0x0022, h01=0x0050, text=» ABL(E) DMINS2 INDEXED INSERT «, t00=0x0051, t01=0x002a}
0x7ecc…7ed8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0050}
0x7ed8…7ee6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x005c}
0x7ee6…7f0c Head {h00=0x0022, h01=0x0050, text=»DMTAEX LDK A1,0 CORRECT RETURN«, t00=0x0051, t01=0x006a}
0x7f0c…7f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0090}
0x7f16…7f34 Head {h00=0x001a, h01=0x0050, text=»DMTERR LD A3,FDBDBR,A6«, t00=0x0051, t01=0x009a}
0x7f34…7f54 Head {h00=0x001c, h01=0x0050, text=» RF(NN) DMTEX1 NOT DELAY«, t00=0x0051, t01=0x00b8}
0x7f54…7f6a Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/3F00«, t00=0x0051, t01=0x00d8}
0x7f6a…7f96 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DMTERX NO RELEASE OF BUFFER «, t00=0x0051, t01=0x00ee}
0x7f96…7fb4 Head {h00=0x001a, h01=0x0050, text=»DMTEX1 LD A3,ECBBA,A8 «, t00=0x0051, t01=0x011a}
0x7fb4…7fc6 Head {h00=0x000e, h01=0x0050, text=» SUK A3,8 «, t00=0x0051, t01=0x0138}
0x7fc6…7fda Head {h00=0x0010, h01=0x0050, text=»DMTEX2 EQU *«, t00=0x0051, t01=0x014a}
0x7fda…8006 Head {h00=0x0028, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER AT A3 «, t00=0x0051, t01=0x015e}
0x8006…801a Head {h00=0x0010, h01=0x0050, text=»DMTERX EQU *«, t00=0x0051, t01=0x018a}
0x801a…8026 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0052, t01=0x000e}
0x8026…8040 Head {h00=0x0016, h01=0x0050, text=»* A1 = RET CODE «, t00=0x0052, t01=0x001a}
0x8040…805a Head {h00=0x0016, h01=0x0050, text=»* A6 = DWT ADDR «, t00=0x0052, t01=0x0034}
0x805a…8070 Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0052, t01=0x004e}
0x8070…807c Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0052, t01=0x0064}
0x807c…808e Head {h00=0x000e, h01=0x0050, text=»EXIT EQU *«, t00=0x0052, t01=0x0070}
0x808e…809a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0052, t01=0x0082}
0x809a…80aa Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0052, t01=0x008e}
0x80aa…80c0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0052, t01=0x009e}
0x80c0…80ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x00b4}
0x80ce…80e2 Head {h00=0x0010, h01=0x0050, text=»DMIRR EQU * «, t00=0x0052, t01=0x00c2}
0x80e2…8102 Head {h00=0x001c, h01=0x0050, text=»* INDEXED RANDOM READ «, t00=0x0052, t01=0x00d6}
0x8102…8138 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0052, t01=0x00f6}
0x8138…815e Head {h00=0x0022, h01=0x0050, text=» LD A9,DWTECB,A1 USER ECB ADDR«, t00=0x0052, t01=0x012c}
0x815e…8182 Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBCW,A9 ADDR OF KEY «, t00=0x0052, t01=0x0152}
0x8182…8196 Head {h00=0x0010, h01=0x0050, text=» SUR A11,A11«, t00=0x0052, t01=0x0176}
0x8196…81bc Head {h00=0x0022, h01=0x0050, text=» LC A11,ECBCW+3,A9 NO OF CHAR «, t00=0x0052, t01=0x018a}
0x81bc…81d4 Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBRLE,A1«, t00=0x0053, t01=0x0020}
0x81d4…81f4 Head {h00=0x001c, h01=0x0050, text=» SUK A2,6 MAX KEY LENGTH«, t00=0x0053, t01=0x0038}
0x81f4…8208 Head {h00=0x0010, h01=0x0050, text=» CWR A11,A2 «, t00=0x0053, t01=0x0058}
0x8208…8238 Head {h00=0x002c, h01=0x0050, text=» RF(NP) DMR005 NOT TOO LARGE KEY WANTED «, t00=0x0053, t01=0x006c}
0x8238…8254 Head {h00=0x0018, h01=0x0050, text=» LDR A11,A2 MAX KEY «, t00=0x0053, t01=0x009c}
0x8254…8268 Head {h00=0x0010, h01=0x0050, text=»DMR005 EQU *«, t00=0x0053, t01=0x00b8}
0x8268…827c Head {h00=0x0010, h01=0x0050, text=» LDR A13,A1 «, t00=0x0053, t01=0x00cc}
0x827c…829e Head {h00=0x001e, h01=0x0050, text=» ADKL A13,FDBECB ECB ADDR «, t00=0x0053, t01=0x00e0}
0x829e…82c6 Head {h00=0x0024, h01=0x0050, text=» CF A14,FNDKEY GET INDEX RECORD «, t00=0x0053, t01=0x0102}
0x82c6…82f2 Head {h00=0x0028, h01=0x0050, text=»DMR006 EQU * FROM INDEXED READ NEXT «, t00=0x0053, t01=0x012a}
0x82f2…830a Head {h00=0x0014, h01=0x0050, text=» LD A9,DWTECB,A1«, t00=0x0053, t01=0x0156}
0x830a…8324 Head {h00=0x0016, h01=0x0050, text=» LDR A6,A1 FDB ADR«, t00=0x0053, t01=0x016e}
0x8324…833c Head {h00=0x0014, h01=0x0050, text=» LDKL A8,FDBECB «, t00=0x0053, t01=0x0188}
0x833c…835a Head {h00=0x001a, h01=0x0050, text=» ADR A8,A6 ECB ADDRESS«, t00=0x0054, t01=0x0010}
0x835a…8378 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A2 RETURN CODE«, t00=0x0054, t01=0x002e}
0x8378…839c Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DMI030 KEY NOT FOUND«, t00=0x0054, t01=0x004c}
0x839c…83a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0070}
0x83a6…83c2 Head {h00=0x0018, h01=0x0050, text=»* KEY RECORD FOUN «, t00=0x0054, t01=0x007a}
0x83c2…83f4 Head {h00=0x002e, h01=0x0050, text=»* CHECK IF NEXT RECORD HAS THE SAME KEY «, t00=0x0054, t01=0x0096}
0x83f4…83fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00c8}
0x83fe…8424 Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBRRO,A1 RECORD OFFSET«, t00=0x0054, t01=0x00d2}
0x8424…8444 Head {h00=0x001c, h01=0x0050, text=» ADK A2,10 BUFFER HEADER«, t00=0x0054, t01=0x00f8}
0x8444…8460 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A3 REC ADDR «, t00=0x0054, t01=0x0118}
0x8460…8484 Head {h00=0x0020, h01=0x0050, text=» LD A4,FDBRLE,A1 REC LENGTH «, t00=0x0054, t01=0x0134}
0x8484…84a0 Head {h00=0x0018, h01=0x0050, text=» SUK A4,6 KEY LENGTH«, t00=0x0054, t01=0x0158}
0x84a0…84b2 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0054, t01=0x0174}
0x84b2…84d8 Head {h00=0x0022, h01=0x0050, text=» CC A4,2,A2 DUPLICATE KEY CHAR«, t00=0x0054, t01=0x0186}
0x84d8…8500 Head {h00=0x0024, h01=0x0050, text=» RF(NE) DMR020 NEXT KEY NOT SAME«, t00=0x0055, t01=0x001c}
0x8500…851c Head {h00=0x0018, h01=0x0050, text=» LDKL A5,/200 BIT 6 «, t00=0x0055, t01=0x0044}
0x851c…8542 Head {h00=0x0022, h01=0x0050, text=» ORS A5,ECBRC,A9 NEXT KEY SAME«, t00=0x0055, t01=0x0060}
0x8542…8556 Head {h00=0x0010, h01=0x0050, text=»DMR020 EQU *«, t00=0x0055, t01=0x0086}
0x8556…8560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x009a}
0x8560…8582 Head {h00=0x001e, h01=0x0050, text=»* MOVE LOG REC NO TO ECB«, t00=0x0055, t01=0x00a4}
0x8582…858c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00c6}
0x858c…859e Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0055, t01=0x00d0}
0x859e…85b2 Head {h00=0x0010, h01=0x0050, text=» LC A5,3,A2 «, t00=0x0055, t01=0x00e2}
0x85b2…85cc Head {h00=0x0016, h01=0x0050, text=» SC A5,ECBCW+3,A8 «, t00=0x0055, t01=0x00f6}
0x85cc…85e0 Head {h00=0x0010, h01=0x0050, text=» LC A5,4,A2 «, t00=0x0055, t01=0x0110}
0x85e0…85f2 Head {h00=0x000e, h01=0x0050, text=» ECR A5,A5«, t00=0x0055, t01=0x0124}
0x85f2…8606 Head {h00=0x0010, h01=0x0050, text=» LC A5,5,A2 «, t00=0x0055, t01=0x0136}
0x8606…861e Head {h00=0x0014, h01=0x0050, text=» ST A5,ECBCW,A8 «, t00=0x0055, t01=0x014a}
0x861e…8628 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0162}
0x8628…8648 Head {h00=0x001c, h01=0x0050, text=»* RELEASE BLOCK BUFFER«, t00=0x0055, t01=0x016c}
0x8648…8652 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x018c}
0x8652…8668 Head {h00=0x0012, h01=0x0050, text=» CF A14,DMTRBU«, t00=0x0056, t01=0x0008}
0x8668…8676 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x001e}
0x8676…8680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x002c}
0x8680…86b4 Head {h00=0x0030, h01=0x0050, text=»* PERFORM RANDOM READ ON THOIS DATA RECORD«, t00=0x0056, t01=0x0036}
0x86b4…86be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x006a}
0x86be…86da Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0056, t01=0x0074}
0x86da…8700 Head {h00=0x0022, h01=0x0050, text=» LC A2,DWTST,A6 USER REQUESRT «, t00=0x0056, t01=0x0090}
0x8700…8720 Head {h00=0x001c, h01=0x0050, text=» ANK A2,EABIT GET EA BIT«, t00=0x0056, t01=0x00b6}
0x8720…8732 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0056, t01=0x00d6}
0x8732…8758 Head {h00=0x0022, h01=0x0050, text=» LDK A7,/A RANDOM READ NO WAIT«, t00=0x0056, t01=0x00e8}
0x8758…8772 Head {h00=0x0016, h01=0x0050, text=» ORR A7,A2 EA BIT «, t00=0x0056, t01=0x010e}
0x8772…877c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0128}
0x877c…8796 Head {h00=0x0016, h01=0x0050, text=»* MOVE USER ECB «, t00=0x0056, t01=0x0132}
0x8796…87a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x014c}
0x87a0…87c0 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A9 FROM ECB ADDR«, t00=0x0056, t01=0x0156}
0x87c0…87de Head {h00=0x001a, h01=0x0050, text=» LDR A3,A8 TO ECB ADDR«, t00=0x0056, t01=0x0176}
0x87de…87fa (87, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LDK A2,6 NO OF CHAR«, t00=0x0057, t01=0x0004}
0x87fa…8818 Head {h00=0x001a, h01=0x0050, text=» CF A14,DMTWM MOVE ECB«, t00=0x0057, t01=0x0020}
0x8818…8834 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0057, t01=0x003e}
0x8834…8840 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0057, t01=0x005a}
0x8840…8850 Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0057, t01=0x0066}
0x8850…8864 Head {h00=0x0010, h01=0x0050, text=» DATA DMTAR4«, t00=0x0057, t01=0x0076}
0x8864…887c Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBRC,A8 «, t00=0x0057, t01=0x008a}
0x887c…889a Head {h00=0x001a, h01=0x0050, text=» RF(N) DMTAR4 REQ ERR «, t00=0x0057, t01=0x00a2}
0x889a…88a6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0057, t01=0x00c0}
0x88a6…88ba Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0057, t01=0x00cc}
0x88ba…88ce Head {h00=0x0010, h01=0x0050, text=»DMTAR4 EQU *«, t00=0x0057, t01=0x00e0}
0x88ce…88d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00f4}
0x88d8…88f4 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x0057, t01=0x00fe}
0x88f4…88fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x011a}
0x88fe…890a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0057, t01=0x0124}
0x890a…8920 Head {h00=0x0012, h01=0x0050, text=» CF A15,GETA14«, t00=0x0057, t01=0x0130}
0x8920…8932 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x0057, t01=0x0146}
0x8932…894a Head {h00=0x0014, h01=0x0050, text=» LDKL A8,FDBECB «, t00=0x0057, t01=0x0158}
0x894a…8964 Head {h00=0x0016, h01=0x0050, text=» ADR A8,A6 RR ECB «, t00=0x0057, t01=0x0170}
0x8964…8986 Head {h00=0x001e, h01=0x0050, text=» LD A9,DWTECB,A6 USER ECB «, t00=0x0057, t01=0x018a}
0x8986…899e Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0058, t01=0x001c}
0x899e…89c8 Head {h00=0x0026, h01=0x0050, text=» ORS A1,ECBRC,A9 RET CODE TO USER «, t00=0x0058, t01=0x0034}
0x89c8…89fe Head {h00=0x0032, h01=0x0050, text=» ANKL A1,/EEF7 BIT 3,7 AND 12 NOT GRAVE ERROR «, t00=0x0058, t01=0x005e}
0x89fe…8a1c Head {h00=0x001a, h01=0x0050, text=» RB(NZ) DMTERX NOT OK «, t00=0x0058, t01=0x0094}
0x8a1c…8a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00b2}
0x8a26…8a48 Head {h00=0x001e, h01=0x0050, text=»* SET CRN FOR INDEX FILE«, t00=0x0058, t01=0x00bc}
0x8a48…8a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00de}
0x8a52…8a7e Head {h00=0x0028, h01=0x0050, text=» LD A1,FDBADF,A6 FDB ADDR DATA FILEP«, t00=0x0058, t01=0x00e8}
0x8a7e…8aa8 Head {h00=0x0026, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER ADDR«, t00=0x0058, t01=0x0114}
0x8aa8…8acc Head {h00=0x0020, h01=0x0050, text=» LDR A10,A2 CRN BUFFER ADDR «, t00=0x0058, t01=0x013e}
0x8acc…8af2 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A6 FDB ADDR INDEX FILE«, t00=0x0058, t01=0x0162}
0x8af2…8b1e Head {h00=0x0028, h01=0x0050, text=» CF A14,GTLGRN GET INDE X LOG REC NO«, t00=0x0058, t01=0x0188}
0x8b1e…8b3a Head {h00=0x0018, h01=0x0050, text=» SC A2,CRNCIF+1,A10 «, t00=0x0059, t01=0x0024}
0x8b3a…8b64 Head {h00=0x0026, h01=0x0050, text=» ST A3,CRNCIF+2,A10 CRN INDEX FILE«, t00=0x0059, t01=0x0040}
0x8b64…8b7c Head {h00=0x0014, h01=0x0050, text=» LC A2,ECBFC,A9 «, t00=0x0059, t01=0x006a}
0x8b7c…8b96 Head {h00=0x0016, h01=0x0050, text=» SC A2,CRNCIF,A10 «, t00=0x0059, t01=0x0082}
0x8b96…8bb8 Head {h00=0x001e, h01=0x0050, text=»* THAT WAS FILE CODE CRN«, t00=0x0059, t01=0x009c}
0x8bb8…8bc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00be}
0x8bc2…8be0 Head {h00=0x001a, h01=0x0050, text=»* SET RERTURN CODEXS«, t00=0x0059, t01=0x00c8}
0x8be0…8bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00e6}
0x8bea…8c12 Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x0059, t01=0x00f0}
0x8c12…8c2a Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBEL,A9 «, t00=0x0059, t01=0x0118}
0x8c2a…8c48 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0059, t01=0x0130}
0x8c48…8c62 Head {h00=0x0016, h01=0x0050, text=» ABL DMTERX TENDIO«, t00=0x0059, t01=0x014e}
0x8c62…8c70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0168}
0x8c70…8c96 Head {h00=0x0022, h01=0x0050, text=»DMIRN EQU * INDEXED READ NEXT «, t00=0x0059, t01=0x0176}
0x8c96…8ccc Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x005a, t01=0x000c}
0x8ccc…8ce8 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB INDEX«, t00=0x005a, t01=0x0042}
0x8ce8…8d0e Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBRRO,A1 RECORD OFFSET«, t00=0x005a, t01=0x005e}
0x8d0e…8d20 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x005a, t01=0x0084}
0x8d20…8d3e Head {h00=0x001a, h01=0x0050, text=» SUK A3,10 BUFFER ADDR«, t00=0x005a, t01=0x0096}
0x8d3e…8d52 Head {h00=0x0010, h01=0x0050, text=»DMI100 EQU *«, t00=0x005a, t01=0x00b4}
0x8d52…8d6c Head {h00=0x0016, h01=0x0050, text=» ADR A2,A3 BUFFADR«, t00=0x005a, t01=0x00c8}
0x8d6c…8d8a Head {h00=0x001a, h01=0x0050, text=» ADK A2,10 RECORD ADDR«, t00=0x005a, t01=0x00e2}
0x8d8a…8db6 Head {h00=0x0028, h01=0x0050, text=» AD A2,FDBRLE,A1 ADDR OF STATUS CHAR«, t00=0x005a, t01=0x0100}
0x8db6…8dd4 Head {h00=0x001a, h01=0x0050, text=» LDK A5,/FF USED MARK «, t00=0x005a, t01=0x012c}
0x8dd4…8dee Head {h00=0x0016, h01=0x0050, text=» CCR A5,A2 STATUS «, t00=0x005a, t01=0x014a}
0x8dee…8e08 Head {h00=0x0016, h01=0x0050, text=» RF(E) DMI120 USED«, t00=0x005a, t01=0x0164}
0x8e08…8e20 Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBMRO,A1«, t00=0x005a, t01=0x017e}
0x8e20…8e4a Head {h00=0x0026, h01=0x0050, text=» ST A4,FDBRRO,A1 LAST REC IN SECT «, t00=0x005b, t01=0x0008}
0x8e4a…8e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0032}
0x8e54…8e74 Head {h00=0x001c, h01=0x0050, text=»* CHECK IF END OF FILE«, t00=0x005b, t01=0x003c}
0x8e74…8e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x005c}
0x8e7e…8e96 Head {h00=0x0014, h01=0x0050, text=» LDR A9,A3 SAVE «, t00=0x005b, t01=0x0066}
0x8e96…8eb8 Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x005b, t01=0x007e}
0x8eb8…8ed0 Head {h00=0x0014, h01=0x0050, text=» CC A2,FDBLRN,A1«, t00=0x005b, t01=0x00a0}
0x8ed0…8eee Head {h00=0x001a, h01=0x0050, text=» RF(L) DMI106 NOT EOF «, t00=0x005b, t01=0x00b8}
0x8eee…8f08 Head {h00=0x0016, h01=0x0050, text=» RF(G) DMI105 EOF «, t00=0x005b, t01=0x00d6}
0x8f08…8f22 Head {h00=0x0016, h01=0x0050, text=» CW A3,FDBLRN+1,A1«, t00=0x005b, t01=0x00f0}
0x8f22…8f40 Head {h00=0x001a, h01=0x0050, text=» RF(L) DMI106 NOT EOF «, t00=0x005b, t01=0x010a}
0x8f40…8f58 Head {h00=0x0014, h01=0x0050, text=»DMI105 LDR A3,A9«, t00=0x005b, t01=0x0128}
0x8f58…8f6e Head {h00=0x0012, h01=0x0050, text=» RF DMI030 EOF«, t00=0x005b, t01=0x0140}
0x8f6e…8f8e Head {h00=0x001c, h01=0x0050, text=»DMI106 LDR A3,A9 RESTORE«, t00=0x005b, t01=0x0156}
0x8f8e…8faa Head {h00=0x0018, h01=0x0050, text=» RF DMI010 NEXT REC «, t00=0x005b, t01=0x0176}
0x8faa…8fc0 (92, 0, 400) Head {h00=0x0012, h01=0x0050, text=»DMI120 EQU * «, t00=0x005c, t01=0x0004}
0x8fc0…8fe2 Head {h00=0x001e, h01=0x0050, text=»* INDEX RECORD IS FOUND «, t00=0x005c, t01=0x001a}
0x8fe2…8fec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x003c}
0x8fec…9008 Head {h00=0x0018, h01=0x0050, text=» LDK A2,0 MARK FOUND«, t00=0x005c, t01=0x0046}
0x9008…903a Head {h00=0x002e, h01=0x0050, text=» ABL DMR006 CONT AS FOR INDEXED RAND READ «, t00=0x005c, t01=0x0062}
0x903a…904e Head {h00=0x0010, h01=0x0050, text=»DMI010 EQU *«, t00=0x005c, t01=0x0094}
0x904e…907a Head {h00=0x0028, h01=0x0050, text=» CF A14,RDNXTR GET NEXT INDEX RECORD«, t00=0x005c, t01=0x00a8}
0x907a…909a Head {h00=0x001c, h01=0x0050, text=» RB DMI100 RECORD FOUND «, t00=0x005c, t01=0x00d4}
0x909a…90b6 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x005c, t01=0x00f4}
0x90b6…90e0 Head {h00=0x0026, h01=0x0050, text=»DMI030 LDKL A1,/4000 KEY NOT FOUND«, t00=0x005c, t01=0x0110}
0x90e0…90f4 Head {h00=0x0010, h01=0x0050, text=»DMI035 EQU *«, t00=0x005c, t01=0x013a}
0x90f4…9112 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 BUFFER ADDR«, t00=0x005c, t01=0x014e}
0x9112…9132 Head {h00=0x001c, h01=0x0050, text=» ABL(Z) DMTERX NO BUFFER«, t00=0x005c, t01=0x016c}
0x9132…9156 Head {h00=0x0020, h01=0x0050, text=» ABL DMTERR ERROR AND BUFFER«, t00=0x005c, t01=0x018c}
0x9156…9164 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x0020}
0x9164…916e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x002e}
0x916e…9198 Head {h00=0x0026, h01=0x0050, text=»DMINS2 EQU * INDEXED INSERT PART 2«, t00=0x005d, t01=0x0038}
0x9198…91a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0062}
0x91a2…91d8 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x005d, t01=0x006c}
0x91d8…91ea Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x005d, t01=0x00a2}
0x91ea…9202 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x005d, t01=0x00b4}
0x9202…921a Head {h00=0x0014, h01=0x0050, text=» SUK A3,8 BUFSTA«, t00=0x005d, t01=0x00cc}
0x921a…9240 Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x005d, t01=0x00e4}
0x9240…9264 Head {h00=0x0020, h01=0x0050, text=»DMXDEL EQU * INDEXED DELETE «, t00=0x005d, t01=0x010a}
0x9264…929e Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x005d, t01=0x012e}
0x929e…92bc Head {h00=0x001a, h01=0x0050, text=» LDR A11,A7 ORDER CODE«, t00=0x005d, t01=0x0168}
0x92bc…92de Head {h00=0x001e, h01=0x0050, text=» LDR A12,A8 PHYS ECB ADDR «, t00=0x005d, t01=0x0186}
0x92de…92f0 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x005e, t01=0x0018}
0x92f0…9322 Head {h00=0x002e, h01=0x0050, text=» SC A5,FDBDBR,A1 ZEROE INDEX FILE COUNTER «, t00=0x005e, t01=0x002a}
0x9322…9344 Head {h00=0x001e, h01=0x0050, text=» LDK A5,8 NR OF INDEX * 2 «, t00=0x005e, t01=0x005c}
0x9344…9360 Head {h00=0x0018, h01=0x0050, text=» LDR A10,A1 FDB DATA«, t00=0x005e, t01=0x007e}
0x9360…9378 Head {h00=0x0014, h01=0x0050, text=»DXI020 SUK A5,2 «, t00=0x005e, t01=0x009a}
0x9378…939a Head {h00=0x001e, h01=0x0050, text=» RF(N) DXI100 ALL INDEXES «, t00=0x005e, t01=0x00b2}
0x939a…93ae Head {h00=0x0010, h01=0x0050, text=» LDR A6,A10 «, t00=0x005e, t01=0x00d4}
0x93ae…93c0 Head {h00=0x000e, h01=0x0050, text=» ADR A6,A5«, t00=0x005e, t01=0x00e8}
0x93c0…93ec Head {h00=0x0028, h01=0x0050, text=» LD A1,FDBAI1,A6 FDB ADDR INDEX FILE«, t00=0x005e, t01=0x00fa}
0x93ec…940a Head {h00=0x001a, h01=0x0050, text=» RB(Z) DXI020 NO INDEX«, t00=0x005e, t01=0x0126}
0x940a…9414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0144}
0x9414…9440 Head {h00=0x0028, h01=0x0050, text=»* GET FILE CODE FOR THIS FDB ADDR «, t00=0x005e, t01=0x014e}
0x9440…944a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x017a}
0x944a…9460 Head {h00=0x0012, h01=0x0050, text=» LD* A6,CDTAB «, t00=0x005e, t01=0x0184}
0x9460…9478 Head {h00=0x0014, h01=0x0050, text=»DXI030 SUK A6,4 «, t00=0x005f, t01=0x000a}
0x9478…948c Head {h00=0x0010, h01=0x0050, text=» LD A7,CDTAB«, t00=0x005f, t01=0x0022}
0x948c…949e Head {h00=0x000e, h01=0x0050, text=» ADR A7,A6«, t00=0x005f, t01=0x0036}
0x949e…94b2 Head {h00=0x0010, h01=0x0050, text=» CW A1,2,A7 «, t00=0x005f, t01=0x0048}
0x94b2…94d4 Head {h00=0x001e, h01=0x0050, text=» RB(NE) DXI030 SEARCH NEXT«, t00=0x005f, t01=0x005c}
0x94d4…94f0 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A1 FDB INDEX«, t00=0x005f, t01=0x007e}
0x94f0…9510 Head {h00=0x001c, h01=0x0050, text=» ADKL A8,FDBECB ECB ADDR«, t00=0x005f, t01=0x009a}
0x9510…9524 Head {h00=0x0010, h01=0x0050, text=» LC A6,1,A7 «, t00=0x005f, t01=0x00ba}
0x9524…9546 Head {h00=0x001e, h01=0x0050, text=» SC A6,ECBFC,A8 INDEX FILE«, t00=0x005f, t01=0x00ce}
0x9546…955a Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x005f, t01=0x00f0}
0x955a…956e Head {h00=0x0010, h01=0x0050, text=» SUK A6,QINS«, t00=0x005f, t01=0x0104}
0x956e…9592 Head {h00=0x0020, h01=0x0050, text=» RF(E) DXI080 INDEXED DELETE«, t00=0x005f, t01=0x0118}
0x9592…959c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x013c}
0x959c…95c4 Head {h00=0x0024, h01=0x0050, text=»* GET ADDRESSS OF DATA RECORD «, t00=0x005f, t01=0x0146}
0x95c4…95ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x016e}
0x95ce…95f2 Head {h00=0x0020, h01=0x0050, text=» LD A6,ECBBA,A12 SECTOR ADDR«, t00=0x005f, t01=0x0178}
0x95f2…960a Head {h00=0x0014, h01=0x0050, text=» ADK A6,2 CYLID «, t00=0x0060, t01=0x000c}
0x960a…9632 Head {h00=0x0024, h01=0x0050, text=» AD A6,FDBRRO,A10 ADDR DATA REC «, t00=0x0060, t01=0x0024}
0x9632…965a Head {h00=0x0024, h01=0x0050, text=» LDK A7,/20 DELETE INDEX NOWAIT «, t00=0x0060, t01=0x004c}
0x965a…966c Head {h00=0x000e, h01=0x0050, text=» RF DXI090«, t00=0x0060, t01=0x0074}
0x966c…9680 Head {h00=0x0010, h01=0x0050, text=»DXI080 EQU *«, t00=0x0060, t01=0x0086}
0x9680…96a8 Head {h00=0x0024, h01=0x0050, text=» LD A9,DWTECB,A10 USER ECB ADDR «, t00=0x0060, t01=0x009a}
0x96a8…96d0 Head {h00=0x0024, h01=0x0050, text=» LD A6,ECBBA,A9 USER BUFFER ADDR«, t00=0x0060, t01=0x00c2}
0x96d0…96f8 Head {h00=0x0024, h01=0x0050, text=» LDK A7,/1F INSERT INDEX NOWAIT «, t00=0x0060, t01=0x00ea}
0x96f8…970c Head {h00=0x0010, h01=0x0050, text=»DXI090 EQU *«, t00=0x0060, t01=0x0112}
0x970c…9724 Head {h00=0x0014, h01=0x0050, text=» ST A6,ECBBA,A8 «, t00=0x0060, t01=0x0126}
0x9724…974a Head {h00=0x0022, h01=0x0050, text=»* A1 = FDB ADDR IN DE XFILE «, t00=0x0060, t01=0x013e}
0x974a…9758 Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0060, t01=0x0164}
0x9758…9768 Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0060, t01=0x0172}
0x9768…977c Head {h00=0x0010, h01=0x0050, text=» DATA DMTAR5«, t00=0x0060, t01=0x0182}
0x977c…9794 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBRC,A8 «, t00=0x0061, t01=0x0008}
0x9794…97b2 Head {h00=0x001a, h01=0x0050, text=» RF(N) DMTAR5 REQ ERR «, t00=0x0061, t01=0x0020}
0x97b2…97d6 Head {h00=0x0020, h01=0x0050, text=» RB DXI020 NEXT INDEX DIRECT«, t00=0x0061, t01=0x003e}
0x97d6…97e8 Head {h00=0x000e, h01=0x0050, text=»DXI100 LKM«, t00=0x0061, t01=0x0062}
0x97e8…97fc Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0061, t01=0x0074}
0x97fc…9810 Head {h00=0x0010, h01=0x0050, text=»DMTAR5 EQU *«, t00=0x0061, t01=0x0088}
0x9810…9836 Head {h00=0x0022, h01=0x0050, text=» LD A6,FDBADF,A1 FDB DATA FILE«, t00=0x0061, t01=0x009c}
0x9836…9858 Head {h00=0x001e, h01=0x0050, text=» LD A9,DWTECB,A6 USER ECB «, t00=0x0061, t01=0x00c2}
0x9858…9870 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,FDBECB «, t00=0x0061, t01=0x00e4}
0x9870…9894 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A8 ECB INSERT INDEX «, t00=0x0061, t01=0x00fc}
0x9894…98b2 Head {h00=0x001a, h01=0x0050, text=» ADR A8,A6 ECB DISC IO«, t00=0x0061, t01=0x0120}
0x98b2…98ea Head {h00=0x0034, h01=0x0050, text=» LD A1,ECBRC,A1 RET CODE BIT 10 AND 14 POSSIBLE «, t00=0x0061, t01=0x013e}
0x98ea…990e Head {h00=0x0020, h01=0x0050, text=» ORS A1,ECBRC,A9 RC TO USER «, t00=0x0061, t01=0x0176}
0x990e…992c Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0062, t01=0x000a}
0x992c…9956 Head {h00=0x0026, h01=0x0050, text=» LC A2,FDBDBR,A6 NR OF READY INDEX«, t00=0x0062, t01=0x0028}
0x9956…9976 Head {h00=0x001c, h01=0x0050, text=» ADK A2,1 COUNT INDEXES «, t00=0x0062, t01=0x0052}
0x9976…999e Head {h00=0x0024, h01=0x0050, text=» CC A2,FDBNIF,A6 TOT NR OF INDEX«, t00=0x0062, t01=0x0072}
0x999e…99b4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DXI200«, t00=0x0062, t01=0x009a}
0x99b4…99cc Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0062, t01=0x00b0}
0x99cc…99ea Head {h00=0x001a, h01=0x0050, text=» ANK A7,/3F ORDER CODE«, t00=0x0062, t01=0x00c8}
0x99ea…9a0e Head {h00=0x0020, h01=0x0050, text=» SUK A7,QINS INDEXED INSERT «, t00=0x0062, t01=0x00e6}
0x9a0e…9a2a Head {h00=0x0018, h01=0x0050, text=» ABL(E) DMTERX READY«, t00=0x0062, t01=0x010a}
0x9a2a…9a5a Head {h00=0x002c, h01=0x0050, text=»* RESTORE REGISTERS FOR INDEXED DELETE«, t00=0x0062, t01=0x0126}
0x9a5a…9a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0156}
0x9a64…9a8c Head {h00=0x0024, h01=0x0050, text=» LD A10,FDBECB+2,A6 SECTOR ADDR «, t00=0x0062, t01=0x0160}
0x9a8c…9aa6 Head {h00=0x0016, h01=0x0050, text=» ADKL A10,2 CYLID «, t00=0x0062, t01=0x0188}
0x9aa6…9ac0 Head {h00=0x0016, h01=0x0050, text=» AD A10,FDBRRO,A6 «, t00=0x0063, t01=0x0012}
0x9ac0…9aea Head {h00=0x0026, h01=0x0050, text=» AD A10,FDBRLE,A6 ADDR STATUS CHAR«, t00=0x0063, t01=0x002c}
0x9aea…9b08 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 STATUS FREE «, t00=0x0063, t01=0x0056}
0x9b08…9b3a Head {h00=0x002e, h01=0x0050, text=» ABL DMT350 CONTINUE AS FOR RANDOM DELETE «, t00=0x0063, t01=0x0074}
0x9b3a…9b4e Head {h00=0x0010, h01=0x0050, text=»DXI200 EQU *«, t00=0x0063, t01=0x00a6}
0x9b4e…9b66 Head {h00=0x0014, h01=0x0050, text=» SC A2,FDBDBR,A6«, t00=0x0063, t01=0x00ba}
0x9b66…9b72 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0063, t01=0x00d2}
0x9b72…9b98 Head {h00=0x0022, h01=0x0050, text=» DATA 3 EXIT. MORE INDEX LEFT «, t00=0x0063, t01=0x00de}
0x9b98…9ba6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x0104}
0x9ba6…9bc8 Head {h00=0x001e, h01=0x0050, text=»DMINIX EQU * INSERT INDEX «, t00=0x0063, t01=0x0112}
0x9bc8…9bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0134}
0x9bd2…9bfa Head {h00=0x0024, h01=0x0050, text=»DMDELX EQU * DELETE INDEX RECORD«, t00=0x0063, t01=0x013e}
0x9bfa…9c30 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0063, t01=0x0166}
0x9c30…9c56 Head {h00=0x0022, h01=0x0050, text=» LD A9,DWTECB,A1 USER ECB ADDR«, t00=0x0064, t01=0x000c}
0x9c56…9c7e Head {h00=0x0024, h01=0x0050, text=» LD A8,ECBBA,A9 BUFFER ADDR USER«, t00=0x0064, t01=0x0032}
0x9c7e…9c9e Head {h00=0x001c, h01=0x0050, text=» AD A8,FDBKA,A1 KEY ADDR«, t00=0x0064, t01=0x005a}
0x9c9e…9cb2 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x0064, t01=0x007a}
0x9cb2…9cda Head {h00=0x0024, h01=0x0050, text=» LD A11,FDBRLE,A1 RECORD LENGTH «, t00=0x0064, t01=0x008e}
0x9cda…9cf8 Head {h00=0x001a, h01=0x0050, text=» SUKL A11,6 KEY LENGTH«, t00=0x0064, t01=0x00b6}
0x9cf8…9d0c Head {h00=0x0010, h01=0x0050, text=» LDR A13,A14«, t00=0x0064, t01=0x00d4}
0x9d0c…9d40 Head {h00=0x0030, h01=0x0050, text=» ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS«, t00=0x0064, t01=0x00e8}
0x9d40…9d68 Head {h00=0x0024, h01=0x0050, text=» CF A14,FNDKEY GET INDEX RECORD «, t00=0x0064, t01=0x011c}
0x9d68…9d84 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0064, t01=0x0144}
0x9d84…9da0 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A2 RET CODE «, t00=0x0064, t01=0x0160}
0x9da0…9db2 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0064, t01=0x017c}
0x9db2…9dd8 Head {h00=0x0022, h01=0x0050, text=» RB(Z) DMI035 NO SECTOR FOUND «, t00=0x0064, t01=0x018e}
0x9dd8…9df8 Head {h00=0x001c, h01=0x0050, text=» LDR A13,A3 BUFFER ADDR «, t00=0x0065, t01=0x0024}
0x9df8…9e1e Head {h00=0x0022, h01=0x0050, text=» LD A4,FDBADF,A6 FDB DATA FILE«, t00=0x0065, t01=0x0044}
0x9e1e…9e40 Head {h00=0x001e, h01=0x0050, text=» LD A5,DWTECB,A4 USER ECB «, t00=0x0065, t01=0x006a}
0x9e40…9e58 Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x0065, t01=0x008c}
0x9e58…9e6c Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x0065, t01=0x00a4}
0x9e6c…9e82 Head {h00=0x0012, h01=0x0050, text=» SUK A1,QDELX «, t00=0x0065, t01=0x00b8}
0x9e82…9eac Head {h00=0x0026, h01=0x0050, text=» ABL(E) DEL000 DELETE INDEX RECORD«, t00=0x0065, t01=0x00ce}
0x9eac…9eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00f8}
0x9eb6…9ee2 Head {h00=0x0028, h01=0x0050, text=»* SET RC BIT 6 TO USER IF NEXT KEY«, t00=0x0065, t01=0x0102}
0x9ee2…9f08 Head {h00=0x0022, h01=0x0050, text=»* IS SAME IN REQUESTED INDEX«, t00=0x0065, t01=0x012e}
0x9f08…9f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0154}
0x9f12…9f24 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0065, t01=0x015e}
0x9f24…9f4c Head {h00=0x0024, h01=0x0050, text=» RF(NZ) INS050 NEXT KEY NOT SAME«, t00=0x0065, t01=0x0170}
0x9f4c…9f78 Head {h00=0x0028, h01=0x0050, text=»* (SHORT KEY NOT ALLOWED IN FILE) «, t00=0x0066, t01=0x0008}
0x9f78…9f82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0034}
0x9f82…9fa4 Head {h00=0x001e, h01=0x0050, text=» LC A4,ECBFC,A5 FILE CODE «, t00=0x0066, t01=0x003e}
0x9fa4…9fbe Head {h00=0x0016, h01=0x0050, text=» CC A4,FDBECB+1,A6«, t00=0x0066, t01=0x0060}
0x9fbe…9fec Head {h00=0x002a, h01=0x0050, text=» RF(NE) INS049 NOT REQUESTED FILE CODE«, t00=0x0066, t01=0x007a}
0x9fec…a008 Head {h00=0x0018, h01=0x0050, text=» LDKL A4,/200 BIT 6 «, t00=0x0066, t01=0x00a8}
0xa008…a02e Head {h00=0x0022, h01=0x0050, text=» ORS A4,ECBRC,A5 NEXT KEY SAME«, t00=0x0066, t01=0x00c4}
0xa02e…a042 Head {h00=0x0010, h01=0x0050, text=»INS049 EQU *«, t00=0x0066, t01=0x00ea}
0xa042…a058 Head {h00=0x0012, h01=0x0050, text=» IFT INSLAS=1 «, t00=0x0066, t01=0x00fe}
0xa058…a062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0114}
0xa062…a082 Head {h00=0x001c, h01=0x0050, text=»* INSERT SAME KEY LAST«, t00=0x0066, t01=0x011e}
0xa082…a08c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x013e}
0xa08c…a0a2 Head {h00=0x0012, h01=0x0050, text=» LDR A1,A6 FDB«, t00=0x0066, t01=0x0148}
0xa0a2…a0c4 Head {h00=0x001e, h01=0x0050, text=» LD A2,FDBRRO,A1 REC OFFS «, t00=0x0066, t01=0x015e}
0xa0c4…a0d6 Head {h00=0x000e, h01=0x0050, text=» RF INS100«, t00=0x0066, t01=0x0180}
0xa0d6…a0ea (103, 0, 400) Head {h00=0x0010, h01=0x0050, text=»INS080 EQU *«, t00=0x0067, t01=0x0004}
0xa0ea…a10e Head {h00=0x0020, h01=0x0050, text=» CF A14,RDNXTR GET NEXT REC «, t00=0x0067, t01=0x0018}
0xa10e…a124 Head {h00=0x0012, h01=0x0050, text=» RF INS100 OK «, t00=0x0067, t01=0x003c}
0xa124…a13e Head {h00=0x0016, h01=0x0050, text=» ABL DEL045 ERROR «, t00=0x0067, t01=0x0052}
0xa13e…a152 Head {h00=0x0010, h01=0x0050, text=»INS100 EQU *«, t00=0x0067, t01=0x006c}
0xa152…a164 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A3«, t00=0x0067, t01=0x0080}
0xa164…a180 Head {h00=0x0018, h01=0x0050, text=» ADK A2,10 REC ADDR «, t00=0x0067, t01=0x0092}
0xa180…a1a4 Head {h00=0x0020, h01=0x0050, text=» AD A2,FDBRLE,A1 ADDR STATUS«, t00=0x0067, t01=0x00ae}
0xa1a4…a1b8 Head {h00=0x0010, h01=0x0050, text=» LDK A5,/FF «, t00=0x0067, t01=0x00d2}
0xa1b8…a1ca Head {h00=0x000e, h01=0x0050, text=» CCR A5,A2«, t00=0x0067, t01=0x00e6}
0xa1ca…a1e4 Head {h00=0x0016, h01=0x0050, text=» RF(E) INS150 USED«, t00=0x0067, t01=0x00f8}
0xa1e4…a1fc Head {h00=0x0014, h01=0x0050, text=» LD A5,FDBMRO,A1«, t00=0x0067, t01=0x0112}
0xa1fc…a214 Head {h00=0x0014, h01=0x0050, text=» ST A5,FDBRRO,A1«, t00=0x0067, t01=0x012a}
0xa214…a242 Head {h00=0x002a, h01=0x0050, text=» RB INS080 GET FIRST RE C IN NXT SECT «, t00=0x0067, t01=0x0142}
0xa242…a256 Head {h00=0x0010, h01=0x0050, text=»INS150 EQU *«, t00=0x0067, t01=0x0170}
0xa256…a278 Head {h00=0x001e, h01=0x0050, text=» LC A5,-4,A2 DUPL KEY CHAR«, t00=0x0067, t01=0x0184}
0xa278…a296 Head {h00=0x001a, h01=0x0050, text=» CWR A5,A11 KEY LENGTH«, t00=0x0068, t01=0x0016}
0xa296…a2be Head {h00=0x0024, h01=0x0050, text=» RB(E) INS080 NEXT SAME GET NEXT«, t00=0x0068, t01=0x0034}
0xa2be…a2c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x005c}
0xa2c8…a2ec Head {h00=0x0020, h01=0x0050, text=»* UPDATE LAST SAME RECORD «, t00=0x0068, t01=0x0066}
0xa2ec…a2f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x008a}
0xa2f6…a316 Head {h00=0x001c, h01=0x0050, text=» SC A11,-4,A2 NEXT SAME «, t00=0x0068, t01=0x0094}
0xa316…a32e Head {h00=0x0014, h01=0x0050, text=» LD A7,FDBRRO,A1«, t00=0x0068, t01=0x00b4}
0xa32e…a346 Head {h00=0x0014, h01=0x0050, text=» CW A7,FDBMRO,A1«, t00=0x0068, t01=0x00cc}
0xa346…a370 Head {h00=0x0026, h01=0x0050, text=» RF(NE) INS160 SECT WRITTEN LATER «, t00=0x0068, t01=0x00e4}
0xa370…a37a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x010e}
0xa37a…a392 Head {h00=0x0014, h01=0x0050, text=»* WRITE SECTOR«, t00=0x0068, t01=0x0118}
0xa392…a39c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0130}
0xa39c…a3ba Head {h00=0x001a, h01=0x0050, text=» LDK A7,/95 WRITE,WAIT«, t00=0x0068, t01=0x013a}
0xa3ba…a3c6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0068, t01=0x0158}
0xa3c6…a3d6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0068, t01=0x0164}
0xa3d6…a3f6 Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTIOZ IO CHECK «, t00=0x0068, t01=0x0174}
0xa3f6…a408 (105, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0069, t01=0x0004}
0xa408…a420 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x0069, t01=0x0016}
0xa420…a42a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x002e}
0xa42a…a446 Head {h00=0x0018, h01=0x0050, text=»* GET NEXT RECORD «, t00=0x0069, t01=0x0038}
0xa446…a450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0054}
0xa450…a464 Head {h00=0x0010, h01=0x0050, text=»INS160 EQU *«, t00=0x0069, t01=0x005e}
0xa464…a48a Head {h00=0x0022, h01=0x0050, text=» LDR A7,A5 NR OF SAME IN NEXT «, t00=0x0069, t01=0x0072}
0xa48a…a4a0 Head {h00=0x0012, h01=0x0050, text=» LDR A1,A6 FDB«, t00=0x0069, t01=0x0098}
0xa4a0…a4c2 Head {h00=0x001e, h01=0x0050, text=» CF A14,RDNXTR GET NEXT RC«, t00=0x0069, t01=0x00ae}
0xa4c2…a4d8 Head {h00=0x0012, h01=0x0050, text=» RF INS170 OK «, t00=0x0069, t01=0x00d0}
0xa4d8…a4f2 Head {h00=0x0016, h01=0x0050, text=» ABL DEL045 ERROR «, t00=0x0069, t01=0x00e6}
0xa4f2…a506 Head {h00=0x0010, h01=0x0050, text=»INS170 EQU *«, t00=0x0069, t01=0x0100}
0xa506…a526 Head {h00=0x001c, h01=0x0050, text=» LDR A13,A3 BUFFER ADDR «, t00=0x0069, t01=0x0114}
0xa526…a53e Head {h00=0x0014, h01=0x0050, text=» LD A5,FDBADF,A6«, t00=0x0069, t01=0x0134}
0xa53e…a564 Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTECB,A5 USER ECB ADDR«, t00=0x0069, t01=0x014c}
0xa564…a570 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0172}
0xa570…a586 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0069, t01=0x017e}
0xa586…a59a (106, 0, 400) Head {h00=0x0010, h01=0x0050, text=»INS050 EQU *«, t00=0x006a, t01=0x0004}
0xa59a…a5a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0018}
0xa5a4…a5d0 Head {h00=0x0028, h01=0x0050, text=»* CREATE AN INDE XRECORD IN AREA 1«, t00=0x006a, t01=0x0022}
0xa5d0…a5da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x004e}
0xa5da…a5f8 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A12 FROM ADDR «, t00=0x006a, t01=0x0058}
0xa5f8…a60c Head {h00=0x0010, h01=0x0050, text=» LDR A3,A14 «, t00=0x006a, t01=0x0076}
0xa60c…a626 Head {h00=0x0016, h01=0x0050, text=» ADK A3,2 TO ADDR «, t00=0x006a, t01=0x008a}
0xa626…a644 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A11 KEY LENGTH«, t00=0x006a, t01=0x00a4}
0xa644…a662 Head {h00=0x001a, h01=0x0050, text=» CF A14,DMTBM MOVE KEY«, t00=0x006a, t01=0x00c2}
0xa662…a674 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x006a, t01=0x00e0}
0xa674…a68c Head {h00=0x0014, h01=0x0050, text=» SCR A2,A3 DUMMY«, t00=0x006a, t01=0x00f2}
0xa68c…a69e Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006a, t01=0x010a}
0xa69e…a6b6 Head {h00=0x0014, h01=0x0050, text=» SCR A2,A3 DUMMY«, t00=0x006a, t01=0x011c}
0xa6b6…a6c8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006a, t01=0x0134}
0xa6c8…a6ea Head {h00=0x001e, h01=0x0050, text=» SCR A7,A3 NR OF SAME CHAR«, t00=0x006a, t01=0x0146}
0xa6ea…a6fc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006a, t01=0x0168}
0xa6fc…a722 Head {h00=0x0022, h01=0x0050, text=» LDR A7,A3 ADDR OF LOG REC NR «, t00=0x006a, t01=0x017a}
0xa722…a73c Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A5 «, t00=0x006b, t01=0x0010}
0xa73c…a768 Head {h00=0x0028, h01=0x0050, text=» LD A3,ECBCW,A5 REC NR DATA FILE REC«, t00=0x006b, t01=0x002a}
0xa768…a77a Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x006b, t01=0x0056}
0xa77a…a78c Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x006b, t01=0x0068}
0xa78c…a79e Head {h00=0x000e, h01=0x0050, text=» SCR A3,A7«, t00=0x006b, t01=0x007a}
0xa79e…a7b0 Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x006b, t01=0x008c}
0xa7b0…a7c2 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x006b, t01=0x009e}
0xa7c2…a7e0 Head {h00=0x001a, h01=0x0050, text=» SCR A3,A7 LOG REC NR «, t00=0x006b, t01=0x00b0}
0xa7e0…a7f2 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x006b, t01=0x00ce}
0xa7f2…a80a Head {h00=0x0014, h01=0x0050, text=» LDK A1,/FF USED«, t00=0x006b, t01=0x00e0}
0xa80a…a828 Head {h00=0x001a, h01=0x0050, text=» SCR A1,A7 STATUS CHAR«, t00=0x006b, t01=0x00f8}
0xa828…a844 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB INDEX«, t00=0x006b, t01=0x0116}
0xa844…a86c Head {h00=0x0024, h01=0x0050, text=» CF A14,GTLGRN GET REC NR INDEX «, t00=0x006b, t01=0x0132}
0xa86c…a876 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x015a}
0xa876…a8a6 Head {h00=0x002c, h01=0x0050, text=»* SAVE RECORD NR FOR FIRST MOVED INDEX«, t00=0x006b, t01=0x0164}
0xa8a6…a8b0 (108, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0004}
0xa8b0…a8c6 Head {h00=0x0012, h01=0x0050, text=» ST A2,-28,A14«, t00=0x006c, t01=0x000e}
0xa8c6…a8dc Head {h00=0x0012, h01=0x0050, text=» ST A3,-26,A14«, t00=0x006c, t01=0x0024}
0xa8dc…a8ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x003a}
0xa8ea…a8f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0048}
0xa8f4…a932 Head {h00=0x003a, h01=0x0050, text=»* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING«, t00=0x006c, t01=0x0052}
0xa932…a95a Head {h00=0x0024, h01=0x0050, text=»* USED RECORDS ROLLED FORWARD «, t00=0x006c, t01=0x0090}
0xa95a…a982 Head {h00=0x0024, h01=0x0050, text=»* A6,A11,A13 IS USED AT ENTRY «, t00=0x006c, t01=0x00b8}
0xa982…a9aa Head {h00=0x0024, h01=0x0050, text=» ADKL A11,7 RECORD LENGTH TOTAL «, t00=0x006c, t01=0x00e0}
0xa9aa…a9b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0108}
0xa9b4…a9d0 Head {h00=0x0018, h01=0x0050, text=»* USE D REGISTERS «, t00=0x006c, t01=0x0112}
0xa9d0…a9f2 Head {h00=0x001e, h01=0x0050, text=»* A6 = FDB ADDR INDEX «, t00=0x006c, t01=0x012e}
0xa9f2…aa0e Head {h00=0x0018, h01=0x0050, text=»* A10 = AREA ADDR«, t00=0x006c, t01=0x0150}
0xaa0e…aa34 Head {h00=0x0022, h01=0x0050, text=»* A11 = RECORD LENGTH INDEX«, t00=0x006c, t01=0x016c}
0xaa34…aa64 (109, 0, 400) Head {h00=0x002c, h01=0x0050, text=»* A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 «, t00=0x006d, t01=0x0004}
0xaa64…aa8c Head {h00=0x0024, h01=0x0050, text=»* A13 = BUFFER ADDRESS SECTOR«, t00=0x006d, t01=0x0034}
0xaa8c…aa96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x005c}
0xaa96…aaaa Head {h00=0x0010, h01=0x0050, text=»INS190 EQU *«, t00=0x006d, t01=0x0066}
0xaaaa…aac6 Head {h00=0x0018, h01=0x0050, text=» LDKL A12,1 BUFADR2 «, t00=0x006d, t01=0x007a}
0xaac6…aada Head {h00=0x0010, h01=0x0050, text=»INS200 EQU *«, t00=0x006d, t01=0x0096}
0xaada…aaec Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x006d, t01=0x00aa}
0xaaec…ab00 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x006d, t01=0x00bc}
0xab00…ab1c Head {h00=0x0018, h01=0x0050, text=» RF(Z) INS210 BUFAR1«, t00=0x006d, t01=0x00d0}
0xab1c…ab48 Head {h00=0x0028, h01=0x0050, text=» LDKL A1,RECBFZ RECORD BUUFFER SIZE «, t00=0x006d, t01=0x00ec}
0xab48…ab5e Head {h00=0x0012, h01=0x0050, text=» SLL A1,1 BYTE«, t00=0x006d, t01=0x0118}
0xab5e…ab78 Head {h00=0x0016, h01=0x0050, text=»INS210 LDR A10,A14«, t00=0x006d, t01=0x012e}
0xab78…ab8a Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x006d, t01=0x0148}
0xab8a…abb6 Head {h00=0x0028, h01=0x0050, text=» ADR A10,A1 RECORD BUFFER AREA ADDR «, t00=0x006d, t01=0x015a}
0xabb6…abc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0186}
0xabc0…abdc Head {h00=0x0018, h01=0x0050, text=»* SAVE LAST RECORD«, t00=0x006d, t01=0x0190}
0xabdc…abe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x001c}
0xabe6…abfa Head {h00=0x0010, h01=0x0050, text=» LDR A1,A13 «, t00=0x006e, t01=0x0026}
0xabfa…ac16 Head {h00=0x0018, h01=0x0050, text=» ADK A1,10 BUFSTA+2 «, t00=0x006e, t01=0x003a}
0xac16…ac48 Head {h00=0x002e, h01=0x0050, text=» AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT «, t00=0x006e, t01=0x0056}
0xac48…ac5c Head {h00=0x0010, h01=0x0050, text=» LDR A2,A11 «, t00=0x006e, t01=0x0088}
0xac5c…ac70 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A10 «, t00=0x006e, t01=0x009c}
0xac70…ac96 Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTBM SAVE LAST RECORD«, t00=0x006e, t01=0x00b0}
0xac96…acb6 Head {h00=0x001c, h01=0x0050, text=»* MOVE REST OF SECTOR «, t00=0x006e, t01=0x00d6}
0xacb6…acc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00f6}
0xacc0…acd4 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A13 «, t00=0x006e, t01=0x0100}
0xacd4…acf0 Head {h00=0x0018, h01=0x0050, text=» ADK A1,10 BUFSTA+2 «, t00=0x006e, t01=0x0114}
0xacf0…ad12 Head {h00=0x001e, h01=0x0050, text=» AD A1,FDBRRO,A6 FROM ADDR«, t00=0x006e, t01=0x0130}
0xad12…ad24 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x006e, t01=0x0152}
0xad24…ad3c Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBMRO,A6«, t00=0x006e, t01=0x0164}
0xad3c…ad60 Head {h00=0x0020, h01=0x0050, text=» SU A2,FDBRRO,A6 NR OF CHAR «, t00=0x006e, t01=0x017c}
0xad60…ad72 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x006f, t01=0x0010}
0xad72…ad8e Head {h00=0x0018, h01=0x0050, text=» ADR A3,A11 TO ADDR «, t00=0x006f, t01=0x0022}
0xad8e…adaa Head {h00=0x0018, h01=0x0050, text=» CF A14,DMTBMR MOVE «, t00=0x006f, t01=0x003e}
0xadaa…adc8 Head {h00=0x001a, h01=0x0050, text=»* INSERT NEW RECORD «, t00=0x006f, t01=0x005a}
0xadc8…add2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0078}
0xadd2…adf6 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,RECBFZ BUFFER SIZE «, t00=0x006f, t01=0x0082}
0xadf6…ae10 Head {h00=0x0016, h01=0x0050, text=» SLL A1,1 BYTE NO «, t00=0x006f, t01=0x00a6}
0xae10…ae24 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x006f, t01=0x00c0}
0xae24…ae40 Head {h00=0x0018, h01=0x0050, text=» RF(Z) INS250 BUFAR1«, t00=0x006f, t01=0x00d4}
0xae40…ae66 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 SELECT OTHER BUFFER «, t00=0x006f, t01=0x00f0}
0xae66…ae7a Head {h00=0x0010, h01=0x0050, text=»INS250 EQU *«, t00=0x006f, t01=0x0116}
0xae7a…ae98 Head {h00=0x001a, h01=0x0050, text=» ADR A1,A14 FROM ADDR «, t00=0x006f, t01=0x012a}
0xae98…aeb4 Head {h00=0x0018, h01=0x0050, text=» ADK A1,2 FROM ADDR «, t00=0x006f, t01=0x0148}
0xaeb4…aed2 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A11 NR OF CHAR«, t00=0x006f, t01=0x0164}
0xaed2…aeec Head {h00=0x0016, h01=0x0050, text=» LDR A3,A5 TO ADDR«, t00=0x006f, t01=0x0182}
0xaeec…af06 Head {h00=0x0016, h01=0x0050, text=» CF A14,DMTBM MOVE«, t00=0x0070, t01=0x000c}
0xaf06…af1e Head {h00=0x0014, h01=0x0050, text=»* WRITE BUFFER«, t00=0x0070, t01=0x0026}
0xaf1e…af28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x003e}
0xaf28…af4c Head {h00=0x0020, h01=0x0050, text=» LDR A8,A14 USE STACK AS ECB«, t00=0x0070, t01=0x0048}
0xaf4c…af60 Head {h00=0x0010, h01=0x0050, text=» SUKL A8,24 «, t00=0x0070, t01=0x006c}
0xaf60…af88 Head {h00=0x0024, h01=0x0050, text=» LC A2,FDBEXT+1,A6 VOL DEV CODE «, t00=0x0070, t01=0x0080}
0xaf88…af9c Head {h00=0x0010, h01=0x0050, text=» STR A2,A8 «, t00=0x0070, t01=0x00a8}
0xaf9c…afb0 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A13 «, t00=0x0070, t01=0x00bc}
0xafb0…afc8 Head {h00=0x0014, h01=0x0050, text=» ADK A2,8 BUFSTA«, t00=0x0070, t01=0x00d0}
0xafc8…afec Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBBA,A8 SECTOR ADDR «, t00=0x0070, t01=0x00e8}
0xafec…b010 Head {h00=0x0020, h01=0x0050, text=» LDKL A2,SECTLE SECTOR LGTH «, t00=0x0070, t01=0x010c}
0xb010…b028 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0070, t01=0x0130}
0xb028…b04a Head {h00=0x001e, h01=0x0050, text=» LD A2,FDBSNR,A6 SECTOR NR«, t00=0x0070, t01=0x0148}
0xb04a…b06c Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBCW,A8 SECTOR NR «, t00=0x0070, t01=0x016a}
0xb06c…b08c Head {h00=0x001c, h01=0x0050, text=» LDK A7,/95 WRITE , WAIT«, t00=0x0070, t01=0x018c}
0xb08c…b098 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0071, t01=0x001c}
0xb098…b0a8 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0071, t01=0x0028}
0xb0a8…b0c4 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB INDEX«, t00=0x0071, t01=0x0038}
0xb0c4…b0e4 Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTIOZ IO CHECK «, t00=0x0071, t01=0x0054}
0xb0e4…b0f6 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0071, t01=0x0074}
0xb0f6…b10e Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x0071, t01=0x0086}
0xb10e…b118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x009e}
0xb118…b152 Head {h00=0x0036, h01=0x0050, text=»* IF SPILLED RECORD IS FREE, OPERATION IS READY «, t00=0x0071, t01=0x00a8}
0xb152…b15c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00e2}
0xb15c…b180 Head {h00=0x0020, h01=0x0050, text=» LDR A2,A10 RECORD AREA ADDR«, t00=0x0071, t01=0x00ec}
0xb180…b19c Head {h00=0x0018, h01=0x0050, text=» ADR A2,A11 REC LGTH«, t00=0x0071, t01=0x0110}
0xb19c…b1c2 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 ADDR OF STATUS CHAR «, t00=0x0071, t01=0x012c}
0xb1c2…b1da Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBMRO,A6«, t00=0x0071, t01=0x0152}
0xb1da…b206 Head {h00=0x0028, h01=0x0050, text=» ST A4,FDBRRO,A6 MAX OFFSET IN SECT «, t00=0x0071, t01=0x016a}
0xb206…b218 Head {h00=0x000e, h01=0x0050, text=» CCR A1,A2«, t00=0x0072, t01=0x0008}
0xb218…b23a Head {h00=0x001e, h01=0x0050, text=» RF(Z) INS400 FREE RECORD «, t00=0x0072, t01=0x001a}
0xb23a…b244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x003c}
0xb244…b260 Head {h00=0x0018, h01=0x0050, text=»* GET NEXT SECTOR «, t00=0x0072, t01=0x0046}
0xb260…b26a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0062}
0xb26a…b286 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0072, t01=0x006c}
0xb286…b2a6 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A13 BUFFER ADDR «, t00=0x0072, t01=0x0088}
0xb2a6…b2dc Head {h00=0x0032, h01=0x0050, text=» CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR«, t00=0x0072, t01=0x00a8}
0xb2dc…b2f2 Head {h00=0x0012, h01=0x0050, text=» RF INS260 OK «, t00=0x0072, t01=0x00de}
0xb2f2…b304 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0072, t01=0x00f4}
0xb304…b31e Head {h00=0x0016, h01=0x0050, text=» ABL DMI035 ERROR «, t00=0x0072, t01=0x0106}
0xb31e…b332 Head {h00=0x0010, h01=0x0050, text=»INS260 EQU *«, t00=0x0072, t01=0x0120}
0xb332…b356 Head {h00=0x0020, h01=0x0050, text=» LDR A13,A3 NEW BUFFER ADDR «, t00=0x0072, t01=0x0134}
0xb356…b36a Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x0072, t01=0x0158}
0xb36a…b396 Head {h00=0x0028, h01=0x0050, text=» RB(Z) INS190 SWITCH RECORD BUFFERS «, t00=0x0072, t01=0x016c}
0xb396…b3aa Head {h00=0x0010, h01=0x0050, text=» SUR A12,A12«, t00=0x0073, t01=0x0008}
0xb3aa…b3bc Head {h00=0x000e, h01=0x0050, text=» RB INS200«, t00=0x0073, t01=0x001c}
0xb3bc…b3ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x002e}
0xb3ca…b3de Head {h00=0x0010, h01=0x0050, text=»INS400 EQU *«, t00=0x0073, t01=0x003c}
0xb3de…b3e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0050}
0xb3e8…b414 Head {h00=0x0028, h01=0x0050, text=»* UPDATE LRN IF EOF IS ENCOUNTERED«, t00=0x0073, t01=0x005a}
0xb414…b41e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0086}
0xb41e…b43a Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB INDEX«, t00=0x0073, t01=0x0090}
0xb43a…b452 Head {h00=0x0014, h01=0x0050, text=» CF A14,GTLGRN «, t00=0x0073, t01=0x00ac}
0xb452…b46a Head {h00=0x0014, h01=0x0050, text=» CC A2,FDBLRN,A1«, t00=0x0073, t01=0x00c4}
0xb46a…b486 Head {h00=0x0018, h01=0x0050, text=» RF(L) INS430 NO EOF«, t00=0x0073, t01=0x00dc}
0xb486…b4a0 Head {h00=0x0016, h01=0x0050, text=» RF(G) INS410 EOF «, t00=0x0073, t01=0x00f8}
0xb4a0…b4ba Head {h00=0x0016, h01=0x0050, text=» CW A3,FDBLRN+1,A1«, t00=0x0073, t01=0x0112}
0xb4ba…b4d8 Head {h00=0x001a, h01=0x0050, text=» RF(NG) INS430 NO EOF «, t00=0x0073, t01=0x012c}
0xb4d8…b4ec Head {h00=0x0010, h01=0x0050, text=»INS410 EQU *«, t00=0x0073, t01=0x014a}
0xb4ec…b512 Head {h00=0x0022, h01=0x0050, text=» SC A2,FDBLRN,A6 LLAST REC NR «, t00=0x0073, t01=0x015e}
0xb512…b52e Head {h00=0x0018, h01=0x0050, text=» ST A3,FDBLRN+1,A6 «, t00=0x0073, t01=0x0184}
0xb52e…b548 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,/1000 EOF«, t00=0x0074, t01=0x0010}
0xb548…b56c Head {h00=0x0020, h01=0x0050, text=» ORS A1,ECBRC,A9 EOF TO USER«, t00=0x0074, t01=0x002a}
0xb56c…b580 Head {h00=0x0010, h01=0x0050, text=»INS430 EQU *«, t00=0x0074, t01=0x004e}
0xb580…b58a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0062}
0xb58a…b5be Head {h00=0x0030, h01=0x0050, text=»* UPDATE CRN-LINK FOR MOVED INDEX RECORDS «, t00=0x0074, t01=0x006c}
0xb5be…b5c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00a0}
0xb5c8…b5ec Head {h00=0x0020, h01=0x0050, text=» LDKL A12,1 ADD ON E TO CRN «, t00=0x0074, t01=0x00aa}
0xb5ec…b5fe Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x0074, t01=0x00ce}
0xb5fe…b622 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A3 LAST REC NR MOVED«, t00=0x0074, t01=0x00e0}
0xb622…b63a Head {h00=0x0014, h01=0x0050, text=» LD A10,-28,A14 «, t00=0x0074, t01=0x0104}
0xb63a…b664 Head {h00=0x0026, h01=0x0050, text=» LD A11,-26,A14 FIRST REC NR MOVED«, t00=0x0074, t01=0x011c}
0xb664…b692 Head {h00=0x002a, h01=0x0050, text=» CF A14,CRNUPD ADD 1 TO RECORD NUMBERS«, t00=0x0074, t01=0x0146}
0xb692…b69c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0174}
0xb69c…b6c4 Head {h00=0x0024, h01=0x0050, text=»* UPDATE CRN IF SAME FILE CODE«, t00=0x0074, t01=0x017e}
0xb6c4…b6ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0016}
0xb6ce…b6f2 Head {h00=0x0020, h01=0x0050, text=» LD A1,FDBADF,A5 FDB DATA F «, t00=0x0075, t01=0x0020}
0xb6f2…b718 Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x0075, t01=0x0044}
0xb718…b73e Head {h00=0x0022, h01=0x0050, text=» LC A4,ECBFC,A9 USER FILE CODE«, t00=0x0075, t01=0x006a}
0xb73e…b758 Head {h00=0x0016, h01=0x0050, text=» CC A4,FDBECB+1,A5«, t00=0x0075, t01=0x0090}
0xb758…b77a Head {h00=0x001e, h01=0x0050, text=» RF(NE) INS440 OTHRER FILE«, t00=0x0075, t01=0x00aa}
0xb77a…b794 Head {h00=0x0016, h01=0x0050, text=» ST A10,CRNCIF,A2 «, t00=0x0075, t01=0x00cc}
0xb794…b7b6 Head {h00=0x001e, h01=0x0050, text=» ST A11,CRNCIF+2,A2 REC NR«, t00=0x0075, t01=0x00e6}
0xb7b6…b7d8 Head {h00=0x001e, h01=0x0050, text=» SC A4,CRNCIF,A2 FILE CODE«, t00=0x0075, t01=0x0108}
0xb7d8…b7ec Head {h00=0x0010, h01=0x0050, text=»INS440 EQU *«, t00=0x0075, t01=0x012a}
0xb7ec…b808 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A5 FDB INDEX«, t00=0x0075, t01=0x013e}
0xb808…b826 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 OK RET CODE «, t00=0x0075, t01=0x015a}
0xb826…b846 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A13 BUFFER ADDR «, t00=0x0075, t01=0x0178}
0xb846…b85a Head {h00=0x0010, h01=0x0050, text=» ABL DMTEX2 «, t00=0x0076, t01=0x0008}
0xb85a…b868 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x001c}
0xb868…b896 Head {h00=0x002a, h01=0x0050, text=»DEL000 EQU * DELETE INDEX RECORD CONT «, t00=0x0076, t01=0x002a}
0xb896…b8b8 Head {h00=0x001e, h01=0x0050, text=» LDR A12,A5 USER ECB ADDR «, t00=0x0076, t01=0x0058}
0xb8b8…b8ca Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0076, t01=0x007a}
0xb8ca…b8de Head {h00=0x0010, h01=0x0050, text=»DEL010 EQU *«, t00=0x0076, t01=0x008c}
0xb8de…b904 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DMI030 KEY NOT FOUND «, t00=0x0076, t01=0x00a0}
0xb904…b90e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00c6}
0xb90e…b932 Head {h00=0x0020, h01=0x0050, text=»* CHECK RECORD NR DATA REC«, t00=0x0076, t01=0x00d0}
0xb932…b93c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00f4}
0xb93c…b950 Head {h00=0x0010, h01=0x0050, text=»DEL020 EQU *«, t00=0x0076, t01=0x00fe}
0xb950…b968 Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBRRO,A6«, t00=0x0076, t01=0x0112}
0xb968…b97a Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0076, t01=0x012a}
0xb97a…b992 Head {h00=0x0014, h01=0x0050, text=» AD A1,FDBRLE,A6«, t00=0x0076, t01=0x013c}
0xb992…b9ba Head {h00=0x0024, h01=0x0050, text=» ADK A1,7 BUFSTA+2-3=ADDR REC NR«, t00=0x0076, t01=0x0154}
0xb9ba…b9cc Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0076, t01=0x017c}
0xb9cc…b9ee Head {h00=0x001e, h01=0x0050, text=» CC A2,ECBCW+3,A12 REC NR «, t00=0x0076, t01=0x018e}
0xb9ee…ba12 Head {h00=0x0020, h01=0x0050, text=» RF(NE) DEL030 WRONG RECORD «, t00=0x0077, t01=0x0020}
0xba12…ba26 Head {h00=0x0010, h01=0x0050, text=» LC A2,1,A1 «, t00=0x0077, t01=0x0044}
0xba26…ba38 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0077, t01=0x0058}
0xba38…ba52 Head {h00=0x0016, h01=0x0050, text=» LC A2,2,A1 REC NR«, t00=0x0077, t01=0x006a}
0xba52…ba6a Head {h00=0x0014, h01=0x0050, text=» CW A2,ECBCW,A12«, t00=0x0077, t01=0x0084}
0xba6a…ba8c Head {h00=0x001e, h01=0x0050, text=» RF(E) DEL200 RECORD FOUND«, t00=0x0077, t01=0x009c}
0xba8c…baa0 Head {h00=0x0010, h01=0x0050, text=»DEL030 EQU *«, t00=0x0077, t01=0x00be}
0xbaa0…baaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00d2}
0xbaaa…bacc Head {h00=0x001e, h01=0x0050, text=»* CHECK IF NEXT KEY SAME«, t00=0x0077, t01=0x00dc}
0xbacc…bad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00fe}
0xbad6…baf6 Head {h00=0x001c, h01=0x0050, text=» CC A11,-1,A1 KEY LENGTH«, t00=0x0077, t01=0x0108}
0xbaf6…bb1e Head {h00=0x0024, h01=0x0050, text=» RB(NE) DEL010 NEXT KEY NOT SAME«, t00=0x0077, t01=0x0128}
0xbb1e…bb3a Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB INDEX«, t00=0x0077, t01=0x0150}
0xbb3a…bb4e Head {h00=0x0010, h01=0x0050, text=»DEL040 EQU *«, t00=0x0077, t01=0x016c}
0xbb4e…bb7a Head {h00=0x0028, h01=0x0050, text=» CF A14,RDNXTR GET NEXT INDEX RECORD«, t00=0x0077, t01=0x0180}
0xbb7a…bb90 Head {h00=0x0012, h01=0x0050, text=» RF DEL050 OK «, t00=0x0078, t01=0x001c}
0xbb90…bbb4 Head {h00=0x0020, h01=0x0050, text=»DEL045 LDR A1,A5 ERROR CODE «, t00=0x0078, t01=0x0032}
0xbbb4…bbce Head {h00=0x0016, h01=0x0050, text=» ABL DMI035 ERROR «, t00=0x0078, t01=0x0056}
0xbbce…bbe2 Head {h00=0x0010, h01=0x0050, text=»DEL050 EQU *«, t00=0x0078, t01=0x0070}
0xbbe2…bbec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0084}
0xbbec…bc10 Head {h00=0x0020, h01=0x0050, text=»* CHECK IF RECORD IS USED «, t00=0x0078, t01=0x008e}
0xbc10…bc1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00b2}
0xbc1a…bc3e Head {h00=0x0020, h01=0x0050, text=» LDR A13,A3 NEW BUFFER ADDR «, t00=0x0078, t01=0x00bc}
0xbc3e…bc50 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A3«, t00=0x0078, t01=0x00e0}
0xbc50…bc6e Head {h00=0x001a, h01=0x0050, text=» ADK A2,10 BUFSTA + 2 «, t00=0x0078, t01=0x00f2}
0xbc6e…bc96 Head {h00=0x0024, h01=0x0050, text=» AD A2,FDBRLE,A1 ADDR OF STATUS «, t00=0x0078, t01=0x0110}
0xbc96…bcaa Head {h00=0x0010, h01=0x0050, text=» LDK A5,/FF «, t00=0x0078, t01=0x0138}
0xbcaa…bcbc Head {h00=0x000e, h01=0x0050, text=» CCR A5,A2«, t00=0x0078, t01=0x014c}
0xbcbc…bcd6 Head {h00=0x0016, h01=0x0050, text=» RB(E) DEL020 USED«, t00=0x0078, t01=0x015e}
0xbcd6…bcee Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBMRO,A1«, t00=0x0078, t01=0x0178}
0xbcee…bd1a Head {h00=0x0028, h01=0x0050, text=» ST A4,FDBRRO,A1 LAST REC IN SECTOR «, t00=0x0078, t01=0x0190}
0xbd1a…bd36 Head {h00=0x0018, h01=0x0050, text=» RB DEL040 NEXT REC «, t00=0x0079, t01=0x002c}
0xbd36…bd44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x0048}
0xbd44…bd66 Head {h00=0x001e, h01=0x0050, text=»DEL200 EQU * RECORD FOUND «, t00=0x0079, t01=0x0056}
0xbd66…bd70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0078}
0xbd70…bd9a Head {h00=0x0026, h01=0x0050, text=»* SET RC BIT 6 IF NEXT KEY SAME «, t00=0x0079, t01=0x0082}
0xbd9a…bda4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00ac}
0xbda4…bdcc Head {h00=0x0024, h01=0x0050, text=» LC A2,ECBFC,A12 USER FILE CODE «, t00=0x0079, t01=0x00b6}
0xbdcc…bdde Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0079, t01=0x00de}
0xbdde…be02 Head {h00=0x0020, h01=0x0050, text=» LC A7,-1,A1 NR OF SAME CHAR«, t00=0x0079, t01=0x00f0}
0xbe02…be38 Head {h00=0x0032, h01=0x0050, text=» ST A7,16,A14 SAVE IN RECORD BUFFER AFTER ECB «, t00=0x0079, t01=0x0114}
0xbe38…be54 Head {h00=0x0018, h01=0x0050, text=» CC A2,FDBECB+1,A6 «, t00=0x0079, t01=0x014a}
0xbe54…be82 Head {h00=0x002a, h01=0x0050, text=» RF(NE) DEL220 NOT REQUESTED FILE CODE«, t00=0x0079, t01=0x0166}
0xbe82…bea0 (122, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CWR A11,A7 KEY LENGTH«, t00=0x007a, t01=0x0004}
0xbea0…bec8 Head {h00=0x0024, h01=0x0050, text=» RF(NE) DEL220 NEXT KEY NOT SAME«, t00=0x007a, t01=0x0022}
0xbec8…bede Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/200 «, t00=0x007a, t01=0x004a}
0xbede…bf06 Head {h00=0x0024, h01=0x0050, text=» ORS A4,ECBRC,A12 NEXT KEY SAME «, t00=0x007a, t01=0x0060}
0xbf06…bf1a Head {h00=0x0010, h01=0x0050, text=»DEL220 EQU *«, t00=0x007a, t01=0x0088}
0xbf1a…bf24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x009c}
0xbf24…bf4c Head {h00=0x0024, h01=0x0050, text=»* MOVE UP RECORDS OVER DELETED«, t00=0x007a, t01=0x00a6}
0xbf4c…bf56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00ce}
0xbf56…bf7e Head {h00=0x0024, h01=0x0050, text=» ADKL A11,7 TOTAL RECORD LENGTH «, t00=0x007a, t01=0x00d8}
0xbf7e…bf92 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x007a, t01=0x0100}
0xbf92…bfae Head {h00=0x0018, h01=0x0050, text=» ADK A3,10 BUFSTA+2 «, t00=0x007a, t01=0x0114}
0xbfae…bfce Head {h00=0x001c, h01=0x0050, text=» AD A3,FDBRRO,A6 TO ADDR«, t00=0x007a, t01=0x0130}
0xbfce…bfe0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x007a, t01=0x0150}
0xbfe0…bffe Head {h00=0x001a, h01=0x0050, text=» ADR A1,A11 FROM ADDR «, t00=0x007a, t01=0x0162}
0xbffe…c016 Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBMRO,A6«, t00=0x007a, t01=0x0180}
0xc016…c03a Head {h00=0x0020, h01=0x0050, text=» SU A2,FDBRRO,A6 NR OF CHAR «, t00=0x007b, t01=0x0008}
0xc03a…c054 Head {h00=0x0016, h01=0x0050, text=» CF A14,DMTBM MOVE«, t00=0x007b, t01=0x002c}
0xc054…c05e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0046}
0xc05e…c07e Head {h00=0x001c, h01=0x0050, text=»* SET LAST RECORD FREE«, t00=0x007b, t01=0x0050}
0xc07e…c088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0070}
0xc088…c09c Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x007b, t01=0x007a}
0xc09c…c0ae Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x007b, t01=0x008e}
0xc0ae…c0c0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007b, t01=0x00a0}
0xc0c0…c0de Head {h00=0x001a, h01=0x0050, text=» SCR A1,A3 STATUS FREE«, t00=0x007b, t01=0x00b2}
0xc0de…c0e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00d0}
0xc0e8…c110 Head {h00=0x0024, h01=0x0050, text=»* UPDATE CRN FOR MOVED RECORDS«, t00=0x007b, t01=0x00da}
0xc110…c11a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0102}
0xc11a…c136 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x007b, t01=0x010c}
0xc136…c158 Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x007b, t01=0x0128}
0xc158…c16c Head {h00=0x0010, h01=0x0050, text=» LDR A10,A2 «, t00=0x007b, t01=0x014a}
0xc16c…c192 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A3 FIRST REC NR MOVED«, t00=0x007b, t01=0x015e}
0xc192…c1b6 Head {h00=0x0020, h01=0x0050, text=» LD A12,FDBRRO,A6 OLD OFFSET«, t00=0x007b, t01=0x0184}
0xc1b6…c1ce Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBMRO,A6«, t00=0x007c, t01=0x0018}
0xc1ce…c1f2 Head {h00=0x0020, h01=0x0050, text=» ST A4,FDBRRO,A6 MAX OFFSET «, t00=0x007c, t01=0x0030}
0xc1f2…c21a Head {h00=0x0024, h01=0x0050, text=» CF A14,GTLGRN LAST REC NR MOVED«, t00=0x007c, t01=0x0054}
0xc21a…c22c Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x007c, t01=0x007c}
0xc22c…c246 Head {h00=0x0016, h01=0x0050, text=» LDR A9,A3 REC NR «, t00=0x007c, t01=0x008e}
0xc246…c26c Head {h00=0x0022, h01=0x0050, text=» ST A12,FDBRRO,A6 RESET OFFSET«, t00=0x007c, t01=0x00a8}
0xc26c…c280 Head {h00=0x0010, h01=0x0050, text=» LDKL A12,-1«, t00=0x007c, t01=0x00ce}
0xc280…c2aa Head {h00=0x0026, h01=0x0050, text=» CF A14,CRNUPD UPDATE CRN BUFFERS «, t00=0x007c, t01=0x00e2}
0xc2aa…c2d2 Head {h00=0x0024, h01=0x0050, text=» LDKL A12,1 MARK BUFFER CHANGED «, t00=0x007c, t01=0x010c}
0xc2d2…c2e6 Head {h00=0x0010, h01=0x0050, text=»DEL240 EQU *«, t00=0x007c, t01=0x0134}
0xc2e6…c2fe Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBRRO,A5«, t00=0x007c, t01=0x0148}
0xc2fe…c326 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DEL290 NOT FIRST RECORD «, t00=0x007c, t01=0x0160}
0xc326…c33c Head {h00=0x0012, h01=0x0050, text=» LDR A1,A5 FDB«, t00=0x007c, t01=0x0188}
0xc33c…c35e Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x007d, t01=0x000e}
0xc35e…c370 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x007d, t01=0x0030}
0xc370…c382 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x007d, t01=0x0042}
0xc382…c394 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x007d, t01=0x0054}
0xc394…c3a6 Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x007d, t01=0x0066}
0xc3a6…c3ce Head {h00=0x0024, h01=0x0050, text=» CF A14,DSUMOD A1,A2 = A1,A2 - 1«, t00=0x007d, t01=0x0078}
0xc3ce…c3ee Head {h00=0x001c, h01=0x0050, text=» RF(Z) DEL600 FILE START«, t00=0x007d, t01=0x00a0}
0xc3ee…c40a Head {h00=0x0018, h01=0x0050, text=» LDR A6,A5 FDB ADDR «, t00=0x007d, t01=0x00c0}
0xc40a…c42e Head {h00=0x0020, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NR«, t00=0x007d, t01=0x00dc}
0xc42e…c44a Head {h00=0x0018, h01=0x0050, text=» LDR A5,A6 FDB ADDR «, t00=0x007d, t01=0x0100}
0xc44a…c45c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x007d, t01=0x011c}
0xc45c…c47e Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DEL600 FILE START «, t00=0x007d, t01=0x012e}
0xc47e…c492 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A14 «, t00=0x007d, t01=0x0150}
0xc492…c4ae Head {h00=0x0018, h01=0x0050, text=» ADKL A8,2 ECB ADDR «, t00=0x007d, t01=0x0164}
0xc4ae…c4c2 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x007d, t01=0x0180}
0xc4c2…c4ea (126, 0, 398) Head {h00=0x0024, h01=0x0050, text=» RF(Z) DEL245 BUFFER NOT CHANGED«, t00=0x007e, t01=0x0004}
0xc4ea…c4f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x002c}
0xc4f4…c50c Head {h00=0x0014, h01=0x0050, text=»* WRITE SECTOR«, t00=0x007e, t01=0x0036}
0xc50c…c516 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x004e}
0xc516…c534 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/95 WRITE WAIT«, t00=0x007e, t01=0x0058}
0xc534…c540 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x007e, t01=0x0076}
0xc540…c550 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x007e, t01=0x0082}
0xc550…c566 Head {h00=0x0012, h01=0x0050, text=» LDR A1,A5 FDB«, t00=0x007e, t01=0x0092}
0xc566…c586 Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTIOZ IO CHECK «, t00=0x007e, t01=0x00a8}
0xc586…c598 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x007e, t01=0x00c8}
0xc598…c5b0 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x007e, t01=0x00da}
0xc5b0…c5dc Head {h00=0x0028, h01=0x0050, text=» SUR A12,A12 BUFFER NOT CHANGED YET «, t00=0x007e, t01=0x00f2}
0xc5dc…c5f0 Head {h00=0x0010, h01=0x0050, text=»DEL245 EQU *«, t00=0x007e, t01=0x011e}
0xc5f0…c604 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x007e, t01=0x0132}
0xc604…c62a Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x007e, t01=0x0146}
0xc62a…c634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x016c}
0xc634…c654 Head {h00=0x001c, h01=0x0050, text=»* GET PREVIOUS SECTOR «, t00=0x007e, t01=0x0176}
0xc654…c65e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0008}
0xc65e…c67a Head {h00=0x0018, h01=0x0050, text=» LDR A1,A5 FDB ADDR «, t00=0x007f, t01=0x0012}
0xc67a…c68c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x007f, t01=0x002e}
0xc68c…c6ae Head {h00=0x001e, h01=0x0050, text=» CF A14,RDNXTR GET SECTOR «, t00=0x007f, t01=0x0040}
0xc6ae…c6c4 Head {h00=0x0012, h01=0x0050, text=» RF DEL250 OK «, t00=0x007f, t01=0x0062}
0xc6c4…c6e0 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x007f, t01=0x0078}
0xc6e0…c6f2 Head {h00=0x000e, h01=0x0050, text=» RB DEL045«, t00=0x007f, t01=0x0094}
0xc6f2…c706 Head {h00=0x0010, h01=0x0050, text=»DEL250 EQU *«, t00=0x007f, t01=0x00a6}
0xc706…c71c Head {h00=0x0012, h01=0x0050, text=» LDR A5,A1 FDB«, t00=0x007f, t01=0x00ba}
0xc71c…c740 Head {h00=0x0020, h01=0x0050, text=» LDR A13,A3 NEW BUFFER ADDR «, t00=0x007f, t01=0x00d0}
0xc740…c758 Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBMRO,A5«, t00=0x007f, t01=0x00f4}
0xc758…c76a Head {h00=0x000e, h01=0x0050, text=» RF DEL300«, t00=0x007f, t01=0x010c}
0xc76a…c77e Head {h00=0x0010, h01=0x0050, text=»DEL290 EQU *«, t00=0x007f, t01=0x011e}
0xc77e…c796 Head {h00=0x0014, h01=0x0050, text=» SU A4,FDBRLE,A5«, t00=0x007f, t01=0x0132}
0xc796…c7a8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x007f, t01=0x014a}
0xc7a8…c7bc Head {h00=0x0010, h01=0x0050, text=»DEL300 EQU *«, t00=0x007f, t01=0x015c}
0xc7bc…c7ea Head {h00=0x002a, h01=0x0050, text=» ST A4,FDBRRO,A5 PREVIOS RECORD OFFSET«, t00=0x007f, t01=0x0170}
0xc7ea…c806 Head {h00=0x0018, h01=0x0050, text=» ADK A4,10 BUFSTA+2 «, t00=0x0080, t01=0x000e}
0xc806…c826 Head {h00=0x001c, h01=0x0050, text=» ADR A4,A13 RECORD ADDR «, t00=0x0080, t01=0x002a}
0xc826…c850 Head {h00=0x0026, h01=0x0050, text=» AD A4,FDBRLE,A5 STATUS CHAR ADDR «, t00=0x0080, t01=0x004a}
0xc850…c864 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/FF «, t00=0x0080, t01=0x0074}
0xc864…c876 Head {h00=0x000e, h01=0x0050, text=» CCR A2,A4«, t00=0x0080, t01=0x0088}
0xc876…c892 Head {h00=0x0018, h01=0x0050, text=» RB(NE) DEL240 FREE «, t00=0x0080, t01=0x009a}
0xc892…c8c4 Head {h00=0x002e, h01=0x0050, text=» LC A2,17,A14 NR OF SAME IN DELETED RECORD«, t00=0x0080, t01=0x00b6}
0xc8c4…c8d8 Head {h00=0x0010, h01=0x0050, text=» CC A2,-4,A4«, t00=0x0080, t01=0x00e8}
0xc8d8…c8ee Head {h00=0x0012, h01=0x0050, text=» RF(NL) DEL600«, t00=0x0080, t01=0x00fc}
0xc8ee…c91a Head {h00=0x0028, h01=0x0050, text=» SC A2,-4,A4 MAKE NR OF SAME SMALLER«, t00=0x0080, t01=0x0112}
0xc91a…c93a Head {h00=0x001c, h01=0x0050, text=» RF DEL700 WRITE SECTOR «, t00=0x0080, t01=0x013e}
0xc93a…c94e Head {h00=0x0010, h01=0x0050, text=»DEL600 EQU *«, t00=0x0080, t01=0x015e}
0xc94e…c962 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x0080, t01=0x0172}
0xc962…c98a Head {h00=0x0024, h01=0x0050, text=» RF(Z) DEL900 BUFFER NOT CHANGED«, t00=0x0080, t01=0x0186}
0xc98a…c994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x001e}
0xc994…c9ac Head {h00=0x0014, h01=0x0050, text=»* WRITE SECTOR«, t00=0x0081, t01=0x0028}
0xc9ac…c9b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0040}
0xc9b6…c9ca Head {h00=0x0010, h01=0x0050, text=»DEL700 EQU *«, t00=0x0081, t01=0x004a}
0xc9ca…c9de Head {h00=0x0010, h01=0x0050, text=» LDR A8,A14 «, t00=0x0081, t01=0x005e}
0xc9de…c9fa Head {h00=0x0018, h01=0x0050, text=» ADKL A8,2 ECB ADDR «, t00=0x0081, t01=0x0072}
0xc9fa…ca18 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/95 WRITE WAIT«, t00=0x0081, t01=0x008e}
0xca18…ca24 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0081, t01=0x00ac}
0xca24…ca34 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0081, t01=0x00b8}
0xca34…ca50 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A5 FDB ADDR «, t00=0x0081, t01=0x00c8}
0xca50…ca70 Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTIOZ IO CHECK «, t00=0x0081, t01=0x00e4}
0xca70…ca82 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0081, t01=0x0104}
0xca82…ca9a Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x0081, t01=0x0116}
0xca9a…caae Head {h00=0x0010, h01=0x0050, text=»DEL900 EQU *«, t00=0x0081, t01=0x012e}
0xcaae…cac2 Head {h00=0x0010, h01=0x0050, text=» ABL INS440 «, t00=0x0081, t01=0x0142}
0xcac2…cace Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0156}
0xcace…cada Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0081, t01=0x0162}
0xcada…cade Head {h00=0x4004, h01=0x0000}
0xcade…cae2 00 81 01 6e ┆ n┆
0xcae2…caea (130, 1, 8) 20 04 00 00 00 82 00 04 ┆ ┆
0xcaea…cb3a (131, 0, 398) 46 4f 55 4e 44 20 00 22 01 7c 00 22 00 50 5c 48 4c 54 5c 5c 44 4d 54 41 53 4b 20 4d 49 53 53 49 4e 47 20 49 4e 20 54 43 54 41 42 20 00 23 00 0e 00 2a 00 50 54 49 4f 44 37 30 5c 4c 44 4b 4c 5c 41 32 2c 44 4d 54 41 53 4b 5c 44 49 53 50 41 54 ┆FOUND " | " P HLT DMTASK MISSING IN TCTAB # * PTIOD70 LDKL A2,DMTASK DISPAT┆
0xcb3a…cb8a 43 48 20 41 44 44 52 45 53 53 00 23 00 34 00 0e 00 50 5c 4c 44 4b 5c 41 33 2c 30 20 00 23 00 62 00 22 00 50 5c 43 46 5c 41 31 35 2c 41 43 54 4f 54 5c 41 43 54 49 56 41 54 45 20 44 4d 54 41 53 4b 20 00 23 00 74 00 06 00 50 2a 20 00 23 00 9a ┆CH ADDRESS # 4 P LDK A3,0 # b " P CF A15,ACTOT ACTIVATE DMTASK # t P* # ┆
0xcb8a…cbda 00 16 00 50 2a 20 20 20 45 58 49 54 20 54 4f 20 54 44 49 53 50 20 00 23 00 a4 00 06 00 50 2a 20 00 23 00 be 00 0e 00 50 5c 41 42 4c 5c 54 44 49 53 50 00 23 00 c8 00 06 00 50 2a 20 00 23 00 da 00 0a 00 50 5c 45 4a 45 43 54 00 23 00 e4 00 06 ┆ P* EXIT TO TDISP # P* # P ABL TDISP # P* # P EJECT # ┆
0xcbda…cc2a 00 50 2a 20 00 23 00 f2 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 23 00 fc 00 12 00 50 2a 20 20 20 54 49 4f 44 4d 45 20 20 20 2a 00 23 01 12 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 23 01 28 00 06 00 50 2a 20 ┆ P* # P************** # P* TIODME * # P************** # ( P* ┆
0xcc2a…cc78 00 23 01 3e 00 4a 00 50 2a 20 20 20 54 49 4f 44 4d 20 45 52 52 4f 52 20 43 41 4c 4c 20 54 45 4e 44 49 4f 20 57 49 54 48 20 52 45 54 55 52 4e 20 43 4f 44 45 20 49 4e 20 41 31 20 41 4e 44 20 47 4f 54 4f 20 44 49 53 50 41 54 43 48 45 52 ┆ # > J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER┆
0xcc78…ccc8 (132, 2, 224) 00 23 01 48 00 06 00 50 2a 20 00 24 00 08 00 10 00 50 54 49 4f 44 50 45 5c 45 51 55 5c 2a 00 24 00 12 00 20 00 50 5c 4c 44 4b 4c 5c 41 31 2c 2f 32 30 30 30 5c 50 52 4f 54 45 43 54 20 45 52 52 4f 52 00 24 00 26 00 10 00 50 54 49 4f 44 4d 45 ┆ # H P* $ PTIODPE EQU * $ P LDKL A1,/2000 PROTECT ERROR $ & PTIODME┆
0xccc8…cd18 5c 45 51 55 5c 2a 00 24 00 4a 00 18 00 50 2a 5c 5c 5c 41 31 20 3d 20 45 52 52 4f 52 20 43 4f 44 45 20 00 24 00 5e 00 18 00 50 2a 5c 5c 5c 41 36 20 3d 20 46 44 42 20 41 44 44 52 45 53 53 00 24 00 7a 00 2c 00 50 5c 41 42 4c 5c 44 49 53 45 4e ┆ EQU * $ J P* A1 = ERROR CODE $ ^ P* A6 = FDB ADDRESS $ z , P ABL DISEN┆
0xcd18…cd58 44 5c 43 41 4c 4c 20 54 45 4e 44 49 4f 20 20 47 4f 54 4f 20 44 49 53 50 41 54 43 48 45 52 00 24 00 96 00 06 00 50 2a 20 00 24 00 c6 00 08 00 50 5c 45 4e 44 00 24 00 d0 40 04 00 00 00 24 00 dc ┆D CALL TENDIO GOTO DISPATCHER $ P* $ P END $ @ $ ┆