|
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: 52618 (0xcd8a)
Notes: pts_type(SC)
Names: »DMTASK.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/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 X:A * INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH * INDXAC EQU 1 = INDEX ACCESS INCLUDED * INDXAC EQU 0 = INDEX ACCESS FUNCTIONS OMITTED INDXAC EQU X:B 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…0ea0 Head {h00=0x0012, h01=0x0050, text=»QNOEXA EQU X:A«, t00=0x0009, t01=0x0082}
0x0ea0…0eda Head {h00=0x0036, h01=0x0050, text=»* INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH «, t00=0x0009, t01=0x0098}
0x0eda…0f0a Head {h00=0x002c, h01=0x0050, text=»* INDXAC EQU 1 = INDEX ACCESS INCLUDED«, t00=0x0009, t01=0x00d2}
0x0f0a…0f44 Head {h00=0x0036, h01=0x0050, text=»* INDXAC EQU 0 = INDEX ACCESS FUNCTIONS OMITTED «, t00=0x0009, t01=0x0102}
0x0f44…0f5a Head {h00=0x0012, h01=0x0050, text=»INDXAC EQU X:B«, t00=0x0009, t01=0x013c}
0x0f5a…0f92 Head {h00=0x0034, h01=0x0050, text=»RECBFZ EQU X:C INDEX RECORD BUFFER SIZE IN WORDS«, t00=0x0009, t01=0x0152}
0x0f92…0fca Head {h00=0x0034, h01=0x0050, text=»FLXDSC EQU X:D FLEXIBLE DISC INCLUDED WHEN EQU 1«, t00=0x0009, t01=0x018a}
0x0fca…0ffe Head {h00=0x0030, h01=0x0050, text=»INSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1«, t00=0x000a, t01=0x0032}
0x0ffe…100c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0066}
0x100c…1016 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0074}
0x1016…1036 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x007e}
0x1036…1056 Head {h00=0x001c, h01=0x0050, text=»* DATA DEFINITIONS *«, t00=0x000a, t01=0x009e}
0x1056…1076 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x00be}
0x1076…1080 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00de}
0x1080…108a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00e8}
0x108a…10ba Head {h00=0x002c, h01=0x0050, text=»EABIT EQU /20 EA-BIT IN DWT STATUS BYTE «, t00=0x000a, t01=0x00f2}
0x10ba…10c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0122}
0x10c4…10ee Head {h00=0x0026, h01=0x0050, text=»VTOBLK EQU 9 VTOC BLOCKING FACTOR «, t00=0x000a, t01=0x012c}
0x10ee…10f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0156}
0x10f8…1136 Head {h00=0x003a, h01=0x0050, text=»* THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE«, t00=0x000a, t01=0x0160}
0x1136…1160 Head {h00=0x0026, h01=0x0050, text=»* POSITION IN TIODM-TABLE TIODMF«, t00=0x000b, t01=0x000e}
0x1160…116a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0038}
0x116a…117c Head {h00=0x000e, h01=0x0050, text=»QCL EQU 0 «, t00=0x000b, t01=0x0042}
0x117c…119e Head {h00=0x001e, h01=0x0050, text=»DMTAFU DATA DMCLOSE CLOSE «, t00=0x000b, t01=0x0054}
0x119e…11b0 Head {h00=0x000e, h01=0x0050, text=»QRV EQU 2 «, t00=0x000b, t01=0x0076}
0x11b0…11d6 Head {h00=0x0022, h01=0x0050, text=» DATA DMREVT READ VTOC RECORD «, t00=0x000b, t01=0x0088}
0x11d6…11e8 Head {h00=0x000e, h01=0x0050, text=»QIRN EQU 4«, t00=0x000b, t01=0x00ae}
0x11e8…11fe Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000b, t01=0x00c0}
0x11fe…1224 Head {h00=0x0022, h01=0x0050, text=» DATA DMIRN INDEXED READ NEXT «, t00=0x000b, t01=0x00d6}
0x1224…1236 Head {h00=0x000e, h01=0x0050, text=»QINS EQU 6«, t00=0x000b, t01=0x00fc}
0x1236…1258 Head {h00=0x001e, h01=0x0050, text=» DATA DMINS INDEXED INSERT«, t00=0x000b, t01=0x010e}
0x1258…126a Head {h00=0x000e, h01=0x0050, text=»QDEL EQU 8«, t00=0x000b, t01=0x0130}
0x126a…128c Head {h00=0x001e, h01=0x0050, text=» DATA DMDEL INDEXED DELETE«, t00=0x000b, t01=0x0142}
0x128c…12a0 Head {h00=0x0010, h01=0x0050, text=»QIRW EQU 10 «, t00=0x000b, t01=0x0164}
0x12a0…12c4 Head {h00=0x0020, h01=0x0050, text=» DATA DMIRW INDEXED REWRITE «, t00=0x000b, t01=0x0178}
0x12c4…12ec Head {h00=0x0024, h01=0x0050, text=» DATA DMIRR INDEXED RANDOM RESAD«, t00=0x000c, t01=0x000c}
0x12ec…12f8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0034}
0x12f8…130c Head {h00=0x0010, h01=0x0050, text=»QIRR EQU 12 «, t00=0x000c, t01=0x0040}
0x130c…1322 Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x000c, t01=0x0054}
0x1322…1352 Head {h00=0x002c, h01=0x0050, text=» DATA DMTERR,DMTERR,DMTERR,DMTERR,DMTERR«, t00=0x000c, t01=0x006a}
0x1352…135e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x009a}
0x135e…1370 Head {h00=0x000e, h01=0x0050, text=»QRD EQU 14«, t00=0x000c, t01=0x00a6}
0x1370…1392 Head {h00=0x001e, h01=0x0050, text=» DATA DMRDDE RANDOM DELETE«, t00=0x000c, t01=0x00b8}
0x1392…13a4 Head {h00=0x000e, h01=0x0050, text=»QRW EQU 16«, t00=0x000c, t01=0x00da}
0x13a4…13c6 Head {h00=0x001e, h01=0x0050, text=» DATA DMRDWR RANDOM WRITE «, t00=0x000c, t01=0x00ec}
0x13c6…13d8 Head {h00=0x000e, h01=0x0050, text=»QRR EQU 18«, t00=0x000c, t01=0x010e}
0x13d8…13f8 Head {h00=0x001c, h01=0x0050, text=» DATA DMRDRE RANDOM READ«, t00=0x000c, t01=0x0120}
0x13f8…140c Head {h00=0x0010, h01=0x0050, text=»QREA EQU 20 «, t00=0x000c, t01=0x0140}
0x140c…143a Head {h00=0x002a, h01=0x0050, text=» DATA DMTERR RELEASE EXCLUSIVE ACCESS «, t00=0x000c, t01=0x0154}
0x143a…144c Head {h00=0x000e, h01=0x0050, text=»QSW EQU 22«, t00=0x000c, t01=0x0182}
0x144c…1472 (13, 0, 400) Head {h00=0x0022, h01=0x0050, text=» DATA DMSQWR SEQUENTIAL WRITE «, t00=0x000d, t01=0x0004}
0x1472…14a0 Head {h00=0x002a, h01=0x0050, text=»SQR EQU 2 EXTERNAL ORDER CODE SEQ READ«, t00=0x000d, t01=0x002a}
0x14a0…14b2 Head {h00=0x000e, h01=0x0050, text=»QSR EQU 24«, t00=0x000d, t01=0x0058}
0x14b2…14d6 Head {h00=0x0020, h01=0x0050, text=» DATA DMSQRE SEQUENTIAL READ«, t00=0x000d, t01=0x006a}
0x14d6…14ea Head {h00=0x0010, h01=0x0050, text=»QGCUR EQU 26«, t00=0x000d, t01=0x008e}
0x14ea…150c Head {h00=0x001e, h01=0x0050, text=» DATA DMTERR GET CURRENCY «, t00=0x000d, t01=0x00a2}
0x150c…1522 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x000d, t01=0x00c4}
0x1522…1536 Head {h00=0x0010, h01=0x0050, text=»QINIX EQU 28«, t00=0x000d, t01=0x00da}
0x1536…1558 Head {h00=0x001e, h01=0x0050, text=» DATA DMINIX INSERT INDEX «, t00=0x000d, t01=0x00ee}
0x1558…156c Head {h00=0x0010, h01=0x0050, text=»QDELX EQU 30«, t00=0x000d, t01=0x0110}
0x156c…158e Head {h00=0x001e, h01=0x0050, text=» DATA DMDELX DELETE INDEX «, t00=0x000d, t01=0x0124}
0x158e…159a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0146}
0x159a…15b0 Head {h00=0x0012, h01=0x0050, text=» IFF INDXAC=1 «, t00=0x000d, t01=0x0152}
0x15b0…15cc Head {h00=0x0018, h01=0x0050, text=» DATA DMTERR,DMTERR «, t00=0x000d, t01=0x0168}
0x15cc…15d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0184}
0x15d8…15ee Head {h00=0x0012, h01=0x0050, text=»QGCURX EQU 32 «, t00=0x000d, t01=0x0190}
0x15ee…1614 Head {h00=0x0022, h01=0x0050, text=» DATA DMTERR GET CURRENT INDEX«, t00=0x000e, t01=0x0016}
0x1614…1628 Head {h00=0x0010, h01=0x0050, text=»QRWD EQU 34 «, t00=0x000e, t01=0x003c}
0x1628…1652 Head {h00=0x0026, h01=0x0050, text=» DATA DMRDWD DELAYED RANDOM WRITE «, t00=0x000e, t01=0x0050}
0x1652…1666 Head {h00=0x0010, h01=0x0050, text=»QRDD EQU 36 «, t00=0x000e, t01=0x007a}
0x1666…1690 Head {h00=0x0026, h01=0x0050, text=» DATA DMRDDD DELAYED RANDOM DELETE«, t00=0x000e, t01=0x008e}
0x1690…16a4 Head {h00=0x0010, h01=0x0050, text=»QRRRB EQU 38«, t00=0x000e, t01=0x00b8}
0x16a4…16cc Head {h00=0x0024, h01=0x0050, text=» DATA DMRRRB RAND READ REL BUFF «, t00=0x000e, t01=0x00cc}
0x16cc…16d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f4}
0x16d6…16fe Head {h00=0x0024, h01=0x0050, text=»VTOCRL DATA 0 VTOC RECORD LENGTH«, t00=0x000e, t01=0x00fe}
0x16fe…170c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000e, t01=0x0126}
0x170c…1716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0134}
0x1716…172c Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000e, t01=0x013e}
0x172c…1742 Head {h00=0x0012, h01=0x0050, text=»* DMTFRL *«, t00=0x000e, t01=0x0154}
0x1742…1758 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x000e, t01=0x016a}
0x1758…1762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0180}
0x1762…1792 Head {h00=0x002c, h01=0x0050, text=»* ENTRY DMTFRL FIND RECORD LENGTH «, t00=0x000e, t01=0x018a}
0x1792…179c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x002a}
0x179c…17d4 Head {h00=0x0034, h01=0x0050, text=»* INPUT A1 = RETURN CODE IF INCORRECT LENGTH«, t00=0x000f, t01=0x0034}
0x17d4…17f8 Head {h00=0x0020, h01=0x0050, text=»* A6 = FDB ADDRESS«, t00=0x000f, t01=0x006c}
0x17f8…1822 Head {h00=0x0026, h01=0x0050, text=»* A9 = USER ECB ADDRESS «, t00=0x000f, t01=0x0090}
0x1822…182c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ba}
0x182c…185e Head {h00=0x002e, h01=0x0050, text=»* OUTPUT A2 = RECORD LENGTH TO BE USED «, t00=0x000f, t01=0x00c4}
0x185e…189e Head {h00=0x003c, h01=0x0050, text=»* A1 IS ORED INTO ECBRC IF ECBRL < REC LENGTH «, t00=0x000f, t01=0x00f6}
0x189e…18c8 Head {h00=0x0026, h01=0x0050, text=»* A2 IS STORED IN ECBEL «, t00=0x000f, t01=0x0136}
0x18c8…18d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0160}
0x18d2…18e6 Head {h00=0x0010, h01=0x0050, text=»DMTFRL EQU *«, t00=0x000f, t01=0x016a}
0x18e6…18fe Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBRL,A9 «, t00=0x000f, t01=0x017e}
0x18fe…1916 Head {h00=0x0014, h01=0x0050, text=» CW A2,FDBRLE,A6«, t00=0x0010, t01=0x0008}
0x1916…193e Head {h00=0x0024, h01=0x0050, text=» RF(E) DMTF20 ECBRL = REC LENGTH«, t00=0x0010, t01=0x0020}
0x193e…1966 Head {h00=0x0024, h01=0x0050, text=» RF(L) DMTF10 ECBRL < REC LENGTH«, t00=0x0010, t01=0x0048}
0x1966…1992 Head {h00=0x0028, h01=0x0050, text=» LD A2,FDBRLE,A6 ECBRL > REC LENGTH «, t00=0x0010, t01=0x0070}
0x1992…19a4 Head {h00=0x000e, h01=0x0050, text=» RF DMTF20«, t00=0x0010, t01=0x009c}
0x19a4…19d2 Head {h00=0x002a, h01=0x0050, text=»DMTF10 ORS A1,ECBRC,A9 SET RETURN CODE«, t00=0x0010, t01=0x00ae}
0x19d2…1a04 Head {h00=0x002e, h01=0x0050, text=»DMTF20 ST A2,ECBEL,A9 SET EFFECTIVE LENGTH«, t00=0x0010, t01=0x00dc}
0x1a04…1a14 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x010e}
0x1a14…1a22 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x011e}
0x1a22…1a2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012c}
0x1a2c…1a40 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0010, t01=0x0136}
0x1a40…1a54 Head {h00=0x0010, h01=0x0050, text=»* DMTWM *«, t00=0x0010, t01=0x014a}
0x1a54…1a68 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0010, t01=0x015e}
0x1a68…1a72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0172}
0x1a72…1a98 Head {h00=0x0022, h01=0x0050, text=»* ENTRY DMTWM WORD MOVE «, t00=0x0010, t01=0x017c}
0x1a98…1aa2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0012}
0x1aa2…1ac8 Head {h00=0x0022, h01=0x0050, text=»* INPUT A1 = FROM ADDRESS «, t00=0x0011, t01=0x001c}
0x1ac8…1af8 Head {h00=0x002c, h01=0x0050, text=»* A2 = NO OF BYTES TO BE MOVED«, t00=0x0011, t01=0x0042}
0x1af8…1b1c Head {h00=0x0020, h01=0x0050, text=»* A3 = TO ADDRESS «, t00=0x0011, t01=0x0072}
0x1b1c…1b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0096}
0x1b26…1b4e Head {h00=0x0024, h01=0x0050, text=»* A4 WILL BE DESTROYED«, t00=0x0011, t01=0x00a0}
0x1b4e…1b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c8}
0x1b58…1b62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00d2}
0x1b62…1b76 Head {h00=0x0010, h01=0x0050, text=»DMTWM EQU * «, t00=0x0011, t01=0x00dc}
0x1b76…1b88 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0011, t01=0x00f0}
0x1b88…1bae Head {h00=0x0022, h01=0x0050, text=» RF(N) DMTW10 LAST WORD MOVED «, t00=0x0011, t01=0x0102}
0x1bae…1bc2 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x0011, t01=0x0128}
0x1bc2…1bd4 Head {h00=0x000e, h01=0x0050, text=» STR A4,A3«, t00=0x0011, t01=0x013c}
0x1bd4…1be6 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0011, t01=0x014e}
0x1be6…1bf8 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0011, t01=0x0160}
0x1bf8…1c0a Head {h00=0x000e, h01=0x0050, text=» RB DMTWM «, t00=0x0011, t01=0x0172}
0x1c0a…1c24 Head {h00=0x0016, h01=0x0050, text=»DMTW10 ANK A2,/01 «, t00=0x0011, t01=0x0184}
0x1c24…1c3a Head {h00=0x0012, h01=0x0050, text=» RF(E) DMTW20 «, t00=0x0012, t01=0x000e}
0x1c3a…1c5c Head {h00=0x001e, h01=0x0050, text=» LCR A4,A1 MOVE LAST CHAR «, t00=0x0012, t01=0x0024}
0x1c5c…1c6e Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x0012, t01=0x0046}
0x1c6e…1c84 Head {h00=0x0012, h01=0x0050, text=»DMTW20 RTN A14«, t00=0x0012, t01=0x0058}
0x1c84…1c92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x006e}
0x1c92…1c9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x007c}
0x1c9c…1cb2 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0012, t01=0x0086}
0x1cb2…1cc8 Head {h00=0x0012, h01=0x0050, text=»* DMTBM * «, t00=0x0012, t01=0x009c}
0x1cc8…1cde Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0012, t01=0x00b2}
0x1cde…1ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c8}
0x1ce8…1d0e Head {h00=0x0022, h01=0x0050, text=»* ENTRY DMTBM BYTE MOVE «, t00=0x0012, t01=0x00d2}
0x1d0e…1d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f8}
0x1d18…1d3e Head {h00=0x0022, h01=0x0050, text=»* INPUT A1 = FROM ADDRESS «, t00=0x0012, t01=0x0102}
0x1d3e…1d6e Head {h00=0x002c, h01=0x0050, text=»* A2 = NO OF BYTES TO BE MOVED«, t00=0x0012, t01=0x0128}
0x1d6e…1d92 Head {h00=0x0020, h01=0x0050, text=»* A3 = TO ADDRESS «, t00=0x0012, t01=0x0158}
0x1d92…1d9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x017c}
0x1d9c…1dc4 Head {h00=0x0024, h01=0x0050, text=»* A4 WILL BE DESTROYED«, t00=0x0012, t01=0x0186}
0x1dc4…1dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x001e}
0x1dce…1df0 Head {h00=0x001e, h01=0x0050, text=»* OUTPUT A3 = NEXT CHAR «, t00=0x0013, t01=0x0028}
0x1df0…1dfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004a}
0x1dfa…1e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0054}
0x1e04…1e18 Head {h00=0x0010, h01=0x0050, text=»DMTBM EQU * «, t00=0x0013, t01=0x005e}
0x1e18…1e2a Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x0013, t01=0x0072}
0x1e2a…1e50 Head {h00=0x0022, h01=0x0050, text=» RF(N) DMTB10 LAST BYTE MOVED «, t00=0x0013, t01=0x0084}
0x1e50…1e62 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0013, t01=0x00aa}
0x1e62…1e74 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x0013, t01=0x00bc}
0x1e74…1e86 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0013, t01=0x00ce}
0x1e86…1e98 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0013, t01=0x00e0}
0x1e98…1eaa Head {h00=0x000e, h01=0x0050, text=» RB DMTBM «, t00=0x0013, t01=0x00f2}
0x1eaa…1ec0 Head {h00=0x0012, h01=0x0050, text=»DMTB10 RTN A14«, t00=0x0013, t01=0x0104}
0x1ec0…1eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011a}
0x1eca…1f00 Head {h00=0x0032, h01=0x0050, text=»* DMTBMR HAS THE SAME FUNCTION AS DMTBM BUT «, t00=0x0013, t01=0x0124}
0x1f00…1f1e Head {h00=0x001a, h01=0x0050, text=»* MOVES FROM THE END«, t00=0x0013, t01=0x015a}
0x1f1e…1f28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0178}
0x1f28…1f40 Head {h00=0x0014, h01=0x0050, text=»DMTBMR ADR A1,A2«, t00=0x0013, t01=0x0182}
0x1f40…1f52 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0014, t01=0x000a}
0x1f52…1f6a Head {h00=0x0014, h01=0x0050, text=»DMTB20 SUK A2,1 «, t00=0x0014, t01=0x001c}
0x1f6a…1f80 Head {h00=0x0012, h01=0x0050, text=» RB(N) DMTB10 «, t00=0x0014, t01=0x0034}
0x1f80…1f92 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0014, t01=0x004a}
0x1f92…1fa4 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0014, t01=0x005c}
0x1fa4…1fb6 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0014, t01=0x006e}
0x1fb6…1fc8 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x0014, t01=0x0080}
0x1fc8…1fda Head {h00=0x000e, h01=0x0050, text=» RB DMTB20«, t00=0x0014, t01=0x0092}
0x1fda…1fe8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00a4}
0x1fe8…2024 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0014, t01=0x00b2}
0x2024…202e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00ee}
0x202e…206c Head {h00=0x003a, h01=0x0050, text=»* FNDFDB WILL SEARCH TTAB AND CDTAB FOR A FILE CODE «, t00=0x0014, t01=0x00f8}
0x206c…2076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0136}
0x2076…20b2 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0014, t01=0x0140}
0x20b2…20bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x017c}
0x20bc…20d6 Head {h00=0x0016, h01=0x0050, text=»* A1 = TTAB ADDR«, t00=0x0014, t01=0x0186}
0x20d6…20fe Head {h00=0x0024, h01=0x0050, text=»* A2 = FILE CODE TO SEARCH FOR«, t00=0x0015, t01=0x0010}
0x20fe…2136 Head {h00=0x0034, h01=0x0050, text=»* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED «, t00=0x0015, t01=0x0038}
0x2136…2140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0070}
0x2140…217c Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0015, t01=0x007a}
0x217c…2186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00b6}
0x2186…21a0 Head {h00=0x0016, h01=0x0050, text=»* A1 = UNCHANGED«, t00=0x0015, t01=0x00c0}
0x21a0…21d6 Head {h00=0x0032, h01=0x0050, text=»* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND «, t00=0x0015, t01=0x00da}
0x21d6…2210 Head {h00=0x0036, h01=0x0050, text=»* A4 = TTAB/CDTAB ENTRY ADDR WHEN CODE IS FOUND «, t00=0x0015, t01=0x0110}
0x2210…2244 Head {h00=0x0030, h01=0x0050, text=»* A5 = 0 WHEN FOUND IN CDTAB = 1 WHEN TTAB«, t00=0x0015, t01=0x014a}
0x2244…224e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017e}
0x224e…228a Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0015, t01=0x0188}
0x228a…2294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0034}
0x2294…22a6 Head {h00=0x000e, h01=0x0050, text=»* A1-A5 «, t00=0x0016, t01=0x003e}
0x22a6…22b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0050}
0x22b0…22ee Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0016, t01=0x005a}
0x22ee…22f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0098}
0x22f8…231e Head {h00=0x0022, h01=0x0050, text=»* LOOK FOR FILE CODE IN TTAB«, t00=0x0016, t01=0x00a2}
0x231e…2328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00c8}
0x2328…233c Head {h00=0x0010, h01=0x0050, text=»FNDFDB EQU *«, t00=0x0016, t01=0x00d2}
0x233c…2366 Head {h00=0x0026, h01=0x0050, text=» LD A3,TTB:TD,A1 LENGTH DEV DESCR «, t00=0x0016, t01=0x00e6}
0x2366…237a Head {h00=0x0010, h01=0x0050, text=»FND030 EQU *«, t00=0x0016, t01=0x0110}
0x237a…238c Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x0016, t01=0x0124}
0x238c…23b8 Head {h00=0x0028, h01=0x0050, text=» RF(NP) FND040 FILE CODE NOT IN TTAB«, t00=0x0016, t01=0x0136}
0x23b8…23ca Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0016, t01=0x0162}
0x23ca…23e4 Head {h00=0x0016, h01=0x0050, text=» ADKL A4,TTB:TD+1 «, t00=0x0016, t01=0x0174}
0x23e4…23f6 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0016, t01=0x018e}
0x23f6…2408 Head {h00=0x000e, h01=0x0050, text=» CCR A2,A4«, t00=0x0017, t01=0x0010}
0x2408…241e Head {h00=0x0012, h01=0x0050, text=» RB(NE) FND030«, t00=0x0017, t01=0x0022}
0x241e…2430 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0017, t01=0x0038}
0x2430…2442 Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x0017, t01=0x004a}
0x2442…2468 Head {h00=0x0022, h01=0x0050, text=» RF FND080 CODE FOUND IN TTAB «, t00=0x0017, t01=0x005c}
0x2468…2472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0082}
0x2472…2498 Head {h00=0x0022, h01=0x0050, text=»* SEARCH FILE CODE IN CDTAB «, t00=0x0017, t01=0x008c}
0x2498…24a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b2}
0x24a2…24b6 Head {h00=0x0010, h01=0x0050, text=»FND040 EQU *«, t00=0x0017, t01=0x00bc}
0x24b6…24c8 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x0017, t01=0x00d0}
0x24c8…24f4 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FND060 ONLY TTAB IS SEACHED «, t00=0x0017, t01=0x00e2}
0x24f4…250a Head {h00=0x0012, h01=0x0050, text=» LD* A4,CDTAB «, t00=0x0017, t01=0x010e}
0x250a…251e Head {h00=0x0010, h01=0x0050, text=»FND050 EQU *«, t00=0x0017, t01=0x0124}
0x251e…2530 Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x0017, t01=0x0138}
0x2530…255c Head {h00=0x0028, h01=0x0050, text=» RF(NP) FND060 CODE NOT FOUND AT ALL«, t00=0x0017, t01=0x014a}
0x255c…2570 Head {h00=0x0010, h01=0x0050, text=» LD A3,CDTAB«, t00=0x0017, t01=0x0176}
0x2570…2582 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0017, t01=0x018a}
0x2582…2596 Head {h00=0x0010, h01=0x0050, text=» CC A2,1,A3 «, t00=0x0018, t01=0x000c}
0x2596…25ac Head {h00=0x0012, h01=0x0050, text=» RB(NE) FND050«, t00=0x0018, t01=0x0020}
0x25ac…25c0 Head {h00=0x0010, h01=0x0050, text=» AD A4,CDTAB«, t00=0x0018, t01=0x0036}
0x25c0…25de Head {h00=0x001a, h01=0x0050, text=» RF FND080 CODE FOUND «, t00=0x0018, t01=0x004a}
0x25de…25f2 Head {h00=0x0010, h01=0x0050, text=»FND060 EQU *«, t00=0x0018, t01=0x0068}
0x25f2…260c Head {h00=0x0016, h01=0x0050, text=» LDK A2,0 NO CODE «, t00=0x0018, t01=0x007c}
0x260c…2620 Head {h00=0x0010, h01=0x0050, text=»FND080 EQU *«, t00=0x0018, t01=0x0096}
0x2620…2630 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x00aa}
0x2630…263e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0018, t01=0x00ba}
0x263e…2648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c8}
0x2648…265e Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0018, t01=0x00d2}
0x265e…2674 Head {h00=0x0012, h01=0x0050, text=»* DMTREM *«, t00=0x0018, t01=0x00e8}
0x2674…268a Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0018, t01=0x00fe}
0x268a…2694 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0114}
0x2694…26dc Head {h00=0x0044, h01=0x0050, text=»* ENTRY DMTREM MOVE RECORD FROM BUFFER TO USER RECORD AREA«, t00=0x0018, t01=0x011e}
0x26dc…26e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0166}
0x26e6…271a Head {h00=0x0030, h01=0x0050, text=»* INPUT RELATIVE REC OFFSET IN FDBRRO,A6«, t00=0x0018, t01=0x0170}
0x271a…2742 Head {h00=0x0024, h01=0x0050, text=»* BUFFER ADDRESS IN A5«, t00=0x0019, t01=0x0014}
0x2742…2770 Head {h00=0x002a, h01=0x0050, text=»* USER REC AREA IN ECBBA,A9 «, t00=0x0019, t01=0x003c}
0x2770…2798 Head {h00=0x0024, h01=0x0050, text=»* RECORD LENGTH IN A2 «, t00=0x0019, t01=0x006a}
0x2798…27a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0092}
0x27a2…27ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x009c}
0x27ac…27b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00a6}
0x27b6…27d2 Head {h00=0x0018, h01=0x0050, text=»* MOVE THE RECORD «, t00=0x0019, t01=0x00b0}
0x27d2…2814 Head {h00=0x003e, h01=0x0050, text=»* IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE «, t00=0x0019, t01=0x00cc}
0x2814…285a Head {h00=0x0042, h01=0x0050, text=»* IF (FROM AND (TO) ADDRESSES BOTH ODD THEN MOVE FIRST BYTE «, t00=0x0019, t01=0x010e}
0x285a…289c Head {h00=0x003e, h01=0x0050, text=»* WITH BYTE INSTRUCTIONS AND THE REST WITH WORD MOVE «, t00=0x0019, t01=0x0154}
0x289c…28da Head {h00=0x003a, h01=0x0050, text=»* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE WHOLE REC «, t00=0x001a, t01=0x0008}
0x28da…28e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0046}
0x28e4…28f8 Head {h00=0x0010, h01=0x0050, text=»DMTREM EQU *«, t00=0x001a, t01=0x0050}
0x28f8…2910 Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBRRO,A6«, t00=0x001a, t01=0x0064}
0x2910…2930 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A5 FROM ADDRESS «, t00=0x001a, t01=0x007c}
0x2930…2942 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x001a, t01=0x009c}
0x2942…2964 Head {h00=0x001e, h01=0x0050, text=» LD A3,ECBBA,A9 TO ADDRESS«, t00=0x001a, t01=0x00ae}
0x2964…2976 Head {h00=0x000e, h01=0x0050, text=» XRR A4,A3«, t00=0x001a, t01=0x00d0}
0x2976…298a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/01 «, t00=0x001a, t01=0x00e2}
0x298a…29b6 Head {h00=0x0028, h01=0x0050, text=» RF(Z) DMT210 BOTH ODD OR BOTH EVEN «, t00=0x001a, t01=0x00f6}
0x29b6…29e0 Head {h00=0x0026, h01=0x0050, text=» CF A14,DMTBM ONE ODD AND ONE EVEN«, t00=0x001a, t01=0x0122}
0x29e0…29f2 Head {h00=0x000e, h01=0x0050, text=» RF DMT225«, t00=0x001a, t01=0x014c}
0x29f2…29fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x015e}
0x29fc…2a14 Head {h00=0x0014, h01=0x0050, text=»DMT210 LDR A4,A1«, t00=0x001a, t01=0x0168}
0x2a14…2a28 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/01 «, t00=0x001a, t01=0x0180}
0x2a28…2a48 (27, 0, 400) Head {h00=0x001c, h01=0x0050, text=» RF(E) DMT220 BOTH EVEN «, t00=0x001b, t01=0x0004}
0x2a48…2a62 Head {h00=0x0016, h01=0x0050, text=» SUK A2,1 BOTH ODD«, t00=0x001b, t01=0x0024}
0x2a62…2a74 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x001b, t01=0x003e}
0x2a74…2a86 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x001b, t01=0x0050}
0x2a86…2a98 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x001b, t01=0x0062}
0x2a98…2aaa Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x001b, t01=0x0074}
0x2aaa…2ad0 Head {h00=0x0022, h01=0x0050, text=»DMT220 CF A14,DMTWM WORD MOVE «, t00=0x001b, t01=0x0086}
0x2ad0…2ae4 Head {h00=0x0010, h01=0x0050, text=»DMT225 EQU *«, t00=0x001b, t01=0x00ac}
0x2ae4…2af4 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001b, t01=0x00c0}
0x2af4…2b02 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x00d0}
0x2b02…2b0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00de}
0x2b0c…2b28 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x001b, t01=0x00e8}
0x2b28…2b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0104}
0x2b32…2b46 Head {h00=0x0010, h01=0x0050, text=»GETA14 EQU *«, t00=0x001b, t01=0x010e}
0x2b46…2b60 Head {h00=0x0016, h01=0x0050, text=» LDR A7,A2 TASK ID«, t00=0x001b, t01=0x0122}
0x2b60…2b76 Head {h00=0x0012, h01=0x0050, text=» CF A15,FNDTID«, t00=0x001b, t01=0x013c}
0x2b76…2b94 Head {h00=0x001a, h01=0x0050, text=» LDR A14,A2 TTAB ADDR «, t00=0x001b, t01=0x0152}
0x2b94…2bc2 Head {h00=0x002a, h01=0x0050, text=» AD A14,TTB:TD,A14 LENGTH DEVICE DESCR«, t00=0x001b, t01=0x0170}
0x2bc2…2be4 Head {h00=0x001e, h01=0x0050, text=» ADKL A14,TTB:TD+32 STACK «, t00=0x001c, t01=0x000e}
0x2be4…2c04 Head {h00=0x001c, h01=0x0050, text=» ABL RTNA15 RET AND ENB «, t00=0x001c, t01=0x0030}
0x2c04…2c12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001c, t01=0x0050}
0x2c12…2c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x005e}
0x2c1c…2c32 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x001c, t01=0x0068}
0x2c32…2c48 Head {h00=0x0012, h01=0x0050, text=»* DMTASK *«, t00=0x001c, t01=0x007e}
0x2c48…2c5e Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x001c, t01=0x0094}
0x2c5e…2c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00aa}
0x2c68…2c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00b4}
0x2c72…2c86 Head {h00=0x0010, h01=0x0050, text=»DMTASK EQU *«, t00=0x001c, t01=0x00be}
0x2c86…2c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00d2}
0x2c90…2cac Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x001c, t01=0x00dc}
0x2cac…2cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00f8}
0x2cb6…2cc2 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001c, t01=0x0102}
0x2cc2…2cd8 Head {h00=0x0012, h01=0x0050, text=» CF A15,GETA14«, t00=0x001c, t01=0x010e}
0x2cd8…2cf4 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x001c, t01=0x0124}
0x2cf4…2d08 Head {h00=0x0010, h01=0x0050, text=» LDKL A5,-1 «, t00=0x001c, t01=0x0140}
0x2d08…2d36 Head {h00=0x002a, h01=0x0050, text=» CW A5,FDBRRO,A6 SPECIAL PARAMETER -1 «, t00=0x001c, t01=0x0154}
0x2d36…2d6c Head {h00=0x0032, h01=0x0050, text=» RF(E) DMT090 FOR ORDERS XR,DX,IX (SEE TIODM)«, t00=0x001c, t01=0x0182}
0x2d6c…2d80 Head {h00=0x0010, h01=0x0050, text=»DMT020 EQU *«, t00=0x001d, t01=0x0028}
0x2d80…2d98 Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBDBR,A1«, t00=0x001d, t01=0x003c}
0x2d98…2db8 Head {h00=0x001c, h01=0x0050, text=» RF(NN) DMT025 NO DELAY «, t00=0x001d, t01=0x0054}
0x2db8…2dce Head {h00=0x0012, h01=0x0050, text=» ANKL A4,/C0FF«, t00=0x001d, t01=0x0074}
0x2dce…2de6 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A1 «, t00=0x001d, t01=0x008a}
0x2de6…2dfa Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x001d, t01=0x00a2}
0x2dfa…2e0e Head {h00=0x0010, h01=0x0050, text=» CWK A2,QCL «, t00=0x001d, t01=0x00b6}
0x2e0e…2e2a Head {h00=0x0018, h01=0x0050, text=» RF(E) DMT024 CLOSE «, t00=0x001d, t01=0x00ca}
0x2e2a…2e3e Head {h00=0x0010, h01=0x0050, text=» CWK A2,QRV «, t00=0x001d, t01=0x00e6}
0x2e3e…2e5e Head {h00=0x001c, h01=0x0050, text=» RF(E) DMT024 READ VTOC «, t00=0x001d, t01=0x00fa}
0x2e5e…2e74 Head {h00=0x0012, h01=0x0050, text=» SUK A2,QRRRB «, t00=0x001d, t01=0x011a}
0x2e74…2e9e Head {h00=0x0026, h01=0x0050, text=» RF(E) DMT024 RAND READ REL BUFFER«, t00=0x001d, t01=0x0130}
0x2e9e…2eb4 Head {h00=0x0012, h01=0x0050, text=» ORKL A4,/100 «, t00=0x001d, t01=0x015a}
0x2eb4…2ec8 Head {h00=0x0010, h01=0x0050, text=»DMT024 EQU *«, t00=0x001d, t01=0x0170}
0x2ec8…2ee0 Head {h00=0x0014, h01=0x0050, text=» ST A4,FDBDBR,A1«, t00=0x001d, t01=0x0184}
0x2ee0…2ef4 Head {h00=0x0010, h01=0x0050, text=»DMT025 EQU *«, t00=0x001e, t01=0x000c}
0x2ef4…2f06 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A1«, t00=0x001e, t01=0x0020}
0x2f06…2f26 Head {h00=0x001c, h01=0x0050, text=» ADKL A8,FDBECB ECB ADDR«, t00=0x001e, t01=0x0032}
0x2f26…2f4e Head {h00=0x0024, h01=0x0050, text=» CF A14,GTBKBU GET BLOCK BUFFER «, t00=0x001e, t01=0x0052}
0x2f4e…2f60 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x001e, t01=0x007a}
0x2f60…2f88 Head {h00=0x0024, h01=0x0050, text=» RF(NN) DMT080 BUFFER WAS BEFORE«, t00=0x001e, t01=0x008c}
0x2f88…2f92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00b4}
0x2f92…2fbe Head {h00=0x0028, h01=0x0050, text=»* READ SECTOR INTO BUFFER AND EXIT«, t00=0x001e, t01=0x00be}
0x2fbe…2fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ea}
0x2fc8…2fdc Head {h00=0x0010, h01=0x0050, text=» SUK A5,QCL «, t00=0x001e, t01=0x00f4}
0x2fdc…2ff8 Head {h00=0x0018, h01=0x0050, text=» RF(Z) DMT030 CLOSE «, t00=0x001e, t01=0x0108}
0x2ff8…301a Head {h00=0x001e, h01=0x0050, text=» LDK A7,/11 PHYSICAL READ «, t00=0x001e, t01=0x0124}
0x301a…3026 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001e, t01=0x0146}
0x3026…304a Head {h00=0x0020, h01=0x0050, text=» DATA -1 I/O AND ACTIVATION «, t00=0x001e, t01=0x0152}
0x304a…3070 Head {h00=0x0022, h01=0x0050, text=» DATA DMTAR1 DMTASK RESTART #1«, t00=0x001e, t01=0x0176}
0x3070…307c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x000c}
0x307c…3090 Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x001f, t01=0x0018}
0x3090…309a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x002c}
0x309a…30c6 Head {h00=0x0028, h01=0x0050, text=»DMT030 EQU * I/O WITH WAIT FOR CLOSE«, t00=0x001f, t01=0x0036}
0x30c6…30da Head {h00=0x0010, h01=0x0050, text=» LDK A7,/91 «, t00=0x001f, t01=0x0062}
0x30da…30e6 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x001f, t01=0x0076}
0x30e6…30f6 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x001f, t01=0x0082}
0x30f6…311c Head {h00=0x0022, h01=0x0050, text=» RF DMT050 CHECK RETURN CODES «, t00=0x001f, t01=0x0092}
0x311c…312a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x00b8}
0x312a…3140 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x001f, t01=0x00c6}
0x3140…3156 Head {h00=0x0012, h01=0x0050, text=»* DMTAR1 *«, t00=0x001f, t01=0x00dc}
0x3156…316c Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x001f, t01=0x00f2}
0x316c…3190 Head {h00=0x0020, h01=0x0050, text=»* RESTART POINT AFTER READ«, t00=0x001f, t01=0x0108}
0x3190…319a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x012c}
0x319a…31ae Head {h00=0x0010, h01=0x0050, text=»DMTAR1 EQU *«, t00=0x001f, t01=0x0136}
0x31ae…31b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x014a}
0x31b8…31d4 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x001f, t01=0x0154}
0x31d4…31de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0170}
0x31de…31ea Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001f, t01=0x017a}
0x31ea…3200 Head {h00=0x0012, h01=0x0050, text=» CF A15,GETA14«, t00=0x001f, t01=0x0186}
0x3200…3214 Head {h00=0x0010, h01=0x0050, text=»DMT050 EQU *«, t00=0x0020, t01=0x000c}
0x3214…324c Head {h00=0x0034, h01=0x0050, text=» CF A14,DMTIOT CHECK RETURN CODES FROM DISC I/O «, t00=0x0020, t01=0x0020}
0x324c…325e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0020, t01=0x0058}
0x325e…3276 Head {h00=0x0014, h01=0x0050, text=» ABL(NE) DMTERR «, t00=0x0020, t01=0x006a}
0x3276…328e Head {h00=0x0014, h01=0x0050, text=» LD A5,ECBBA,A8 «, t00=0x0020, t01=0x0082}
0x328e…32a0 Head {h00=0x000e, h01=0x0050, text=» RF DMT090«, t00=0x0020, t01=0x009a}
0x32a0…32d4 Head {h00=0x0030, h01=0x0050, text=»DMT080 EQU * ENTRY IF SECT ALREADY IN BUFFER«, t00=0x0020, t01=0x00ac}
0x32d4…32e6 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A3«, t00=0x0020, t01=0x00e0}
0x32e6…330a Head {h00=0x0020, h01=0x0050, text=» ADK A5,8 SKIP BUFFER HEADER«, t00=0x0020, t01=0x00f2}
0x330a…3338 Head {h00=0x002a, h01=0x0050, text=» ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB«, t00=0x0020, t01=0x0116}
0x3338…334c Head {h00=0x0010, h01=0x0050, text=»DMT090 EQU *«, t00=0x0020, t01=0x0144}
0x334c…3356 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0158}
0x3356…338e Head {h00=0x0034, h01=0x0050, text=»* HANDLE ACTUAL ORDER ORDER INDEX IN DWTOR«, t00=0x0020, t01=0x0162}
0x338e…3398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x000a}
0x3398…33ba Head {h00=0x001e, h01=0x0050, text=» ADK A5,2 SKIP CYLID WORD «, t00=0x0021, t01=0x0014}
0x33ba…33d2 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0021, t01=0x0036}
0x33d2…33f6 Head {h00=0x0020, h01=0x0050, text=»* A7 = INTERNAL ORDER CODE«, t00=0x0021, t01=0x004e}
0x33f6…340a Head {h00=0x0010, h01=0x0050, text=» ANK A7,/3F «, t00=0x0021, t01=0x0072}
0x340a…3436 Head {h00=0x0028, h01=0x0050, text=» ABI DMTAFU,A7 DMTASK FUNCTION TABLE«, t00=0x0021, t01=0x0086}
0x3436…3444 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0021, t01=0x00b2}
0x3444…346c Head {h00=0x0024, h01=0x0050, text=»DMRRRB EQU * RAND READ REL BUFF «, t00=0x0021, t01=0x00c0}
0x346c…3476 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00e8}
0x3476…349a Head {h00=0x0020, h01=0x0050, text=»DMSQRE EQU * SEQUENTIAL READ«, t00=0x0021, t01=0x00f2}
0x349a…34a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0116}
0x34a4…34c4 Head {h00=0x001c, h01=0x0050, text=»DMRDRE EQU * RANDOM READ«, t00=0x0021, t01=0x0120}
0x34c4…34ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0140}
0x34ce…3506 Head {h00=0x0034, h01=0x0050, text=»* CHECK STATUS IF NOT USED THEN ERROR RETURN«, t00=0x0021, t01=0x014a}
0x3506…3510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0182}
0x3510…3528 Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBRRO,A6«, t00=0x0021, t01=0x018c}
0x3528…3540 Head {h00=0x0014, h01=0x0050, text=» AD A2,FDBRLE,A6«, t00=0x0022, t01=0x0014}
0x3540…3552 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A5«, t00=0x0022, t01=0x002c}
0x3552…3564 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0022, t01=0x003e}
0x3564…3588 Head {h00=0x0020, h01=0x0050, text=» CCR A1,A2 STATUS BYTE IN A1«, t00=0x0022, t01=0x0050}
0x3588…35a4 Head {h00=0x0018, h01=0x0050, text=» RF(NE) DMT200 USED «, t00=0x0022, t01=0x0074}
0x35a4…35c2 Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/800 NO DATA «, t00=0x0022, t01=0x0090}
0x35c2…35d6 Head {h00=0x0010, h01=0x0050, text=» ABL DMTERR «, t00=0x0022, t01=0x00ae}
0x35d6…3600 Head {h00=0x0026, h01=0x0050, text=»DMT200 LDK A1,/8 INCORRECT LENGTH «, t00=0x0022, t01=0x00c2}
0x3600…362a Head {h00=0x0026, h01=0x0050, text=» CF A14,DMTFRL A2 := RECORD LENGTH«, t00=0x0022, t01=0x00ec}
0x362a…3634 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0116}
0x3634…3650 Head {h00=0x0018, h01=0x0050, text=»* MOVE THE RECORD «, t00=0x0022, t01=0x0120}
0x3650…365a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x013c}
0x365a…3670 Head {h00=0x0012, h01=0x0050, text=» CF A14,DMTREM«, t00=0x0022, t01=0x0146}
0x3670…367a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x015c}
0x367a…36ae Head {h00=0x0030, h01=0x0050, text=»* UPDATE CRN AND SET EXCLUSIVE ACCESS BIT «, t00=0x0022, t01=0x0166}
0x36ae…36b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x000a}
0x36b8…36cc Head {h00=0x0010, h01=0x0050, text=»DMT230 EQU *«, t00=0x0023, t01=0x0014}
0x36cc…36ee Head {h00=0x001e, h01=0x0050, text=» ABL DMT400 PUT CRN AND EA«, t00=0x0023, t01=0x0028}
0x36ee…36fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x004a}
0x36fc…3722 Head {h00=0x0022, h01=0x0050, text=»DMREVT EQU * READ VTOC RECORD «, t00=0x0023, t01=0x0058}
0x3722…372c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x007e}
0x372c…374e Head {h00=0x001e, h01=0x0050, text=»DMCLOSE EQU * CLOSE A FILE«, t00=0x0023, t01=0x0088}
0x374e…3758 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00aa}
0x3758…3770 Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBSNR,A6«, t00=0x0023, t01=0x00b4}
0x3770…379c Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DMT270 VTOC SECTOR IN BUFFER«, t00=0x0023, t01=0x00cc}
0x379c…37a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f8}
0x37a6…37c8 Head {h00=0x001e, h01=0x0050, text=»* VOLUME LABEL IN BUFFER«, t00=0x0023, t01=0x0102}
0x37c8…3814 Head {h00=0x0048, h01=0x0050, text=»* FIND VTOC SECTOR NUMBER AND RELATIVE RECORD OFFSET WITHIN SECTOR«, t00=0x0023, t01=0x0124}
0x3814…3850 Head {h00=0x0038, h01=0x0050, text=»* FOR VTOC RECORD AND READ THIS SECTOR INTO BUFFER«, t00=0x0023, t01=0x0170}
0x3850…385a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x001c}
0x385a…387c Head {h00=0x001e, h01=0x0050, text=» LDR A10,A6 SAVE FDB ADDR «, t00=0x0024, t01=0x0026}
0x387c…389c Head {h00=0x001c, h01=0x0050, text=» LDR A9,A8 SAVE ECB ADDR«, t00=0x0024, t01=0x0048}
0x389c…38b6 Head {h00=0x0016, h01=0x0050, text=» LD A3,VLVRL-2,A5 «, t00=0x0024, t01=0x0068}
0x38b6…38cc Head {h00=0x0012, h01=0x0050, text=» ST A3,VTOCRL «, t00=0x0024, t01=0x0082}
0x38cc…38f8 Head {h00=0x0028, h01=0x0050, text=» LDK A6,VTOBLK VTOC BLOCKING FACTIOR«, t00=0x0024, t01=0x0098}
0x38f8…3924 Head {h00=0x0028, h01=0x0050, text=» LD A2,FDBVTO,A10 VTOC RECORD NUMBER«, t00=0x0024, t01=0x00c4}
0x3924…3936 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0024, t01=0x00f0}
0x3936…3966 Head {h00=0x002c, h01=0x0050, text=» CF A14,DIVMOD A2=A1,A2/A6.A1=REMAINDRER«, t00=0x0024, t01=0x0102}
0x3966…3982 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 QUOTIENT «, t00=0x0024, t01=0x0132}
0x3982…399e Head {h00=0x0018, h01=0x0050, text=» LDR A6,A10 FDB ADDR«, t00=0x0024, t01=0x014e}
0x399e…39b6 Head {h00=0x0014, h01=0x0050, text=» LDR A2,A1 REST «, t00=0x0024, t01=0x016a}
0x39b6…39d4 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DMT240 REST = 0«, t00=0x0024, t01=0x0182}
0x39d4…39fc Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 RECORD IN NEXT SECTOR «, t00=0x0025, t01=0x0010}
0x39fc…3a0e Head {h00=0x000e, h01=0x0050, text=» RF DMT250«, t00=0x0025, t01=0x0038}
0x3a0e…3a40 Head {h00=0x002e, h01=0x0050, text=»DMT240 LDK A2,VTOBLK LAST RECORD IN SECTOR«, t00=0x0025, t01=0x004a}
0x3a40…3a6a Head {h00=0x0026, h01=0x0050, text=»DMT250 AD A3,VLVBA-2,A5 VTOC BASE «, t00=0x0025, t01=0x007c}
0x3a6a…3a82 Head {h00=0x0014, h01=0x0050, text=» ST A3,FDBSNR,A6«, t00=0x0025, t01=0x00a6}
0x3a82…3a94 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x0025, t01=0x00be}
0x3a94…3aac Head {h00=0x0014, h01=0x0050, text=»DMT255 SUK A2,1 «, t00=0x0025, t01=0x00d0}
0x3aac…3ac2 Head {h00=0x0012, h01=0x0050, text=» RF(Z) DMT260 «, t00=0x0025, t01=0x00e8}
0x3ac2…3adc Head {h00=0x0016, h01=0x0050, text=» AD A3,VLVRL-2,A5 «, t00=0x0025, t01=0x00fe}
0x3adc…3afe Head {h00=0x001e, h01=0x0050, text=» ADK A3,1 SKIP STATUS BYTE«, t00=0x0025, t01=0x0118}
0x3afe…3b10 Head {h00=0x000e, h01=0x0050, text=» RB DMT255«, t00=0x0025, t01=0x013a}
0x3b10…3b2e Head {h00=0x001a, h01=0x0050, text=»DMT260 ST A3,FDBRRO,A6«, t00=0x0025, t01=0x014c}
0x3b2e…3b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x016a}
0x3b38…3b52 Head {h00=0x0016, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0025, t01=0x0174}
0x3b52…3b5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x018e}
0x3b5c…3b74 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A9 «, t00=0x0026, t01=0x0008}
0x3b74…3b86 Head {h00=0x000e, h01=0x0050, text=» SUK A3,8 «, t00=0x0026, t01=0x0020}
0x3b86…3bac Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x0026, t01=0x0032}
0x3bac…3bd6 Head {h00=0x0026, h01=0x0050, text=» CF A14,CLRBUF CLEAR FREE BUFFERS «, t00=0x0026, t01=0x0058}
0x3bd6…3be8 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0026, t01=0x0082}
0x3be8…3c04 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0026, t01=0x0094}
0x3c04…3c28 Head {h00=0x0020, h01=0x0050, text=» ABL DMT020 READ VTOC SECTOR«, t00=0x0026, t01=0x00b0}
0x3c28…3c36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0026, t01=0x00d4}
0x3c36…3c4a Head {h00=0x0010, h01=0x0050, text=»DMT270 EQU *«, t00=0x0026, t01=0x00e2}
0x3c4a…3c5e Head {h00=0x0010, h01=0x0050, text=» SUK A7,QRV «, t00=0x0026, t01=0x00f6}
0x3c5e…3c86 Head {h00=0x0024, h01=0x0050, text=» ABL(Z) DMT500 READ VTOC RECORD «, t00=0x0026, t01=0x010a}
0x3c86…3c9c Head {h00=0x0012, h01=0x0050, text=»* CLOSE FILE«, t00=0x0026, t01=0x0132}
0x3c9c…3cc6 Head {h00=0x0026, h01=0x0050, text=»* UPDATE VTOC LAST RECORD NUMBER«, t00=0x0026, t01=0x0148}
0x3cc6…3cf0 Head {h00=0x0026, h01=0x0050, text=»* AND WRITE SECTOR BACK ON DISC «, t00=0x0026, t01=0x0172}
0x3cf0…3d08 Head {h00=0x0014, h01=0x0050, text=» AD A5,FDBRRO,A6«, t00=0x0027, t01=0x000c}
0x3d08…3d1a Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0027, t01=0x0024}
0x3d1a…3d32 Head {h00=0x0014, h01=0x0050, text=» LC A2,FDBLRN,A6«, t00=0x0027, t01=0x0036}
0x3d32…3d4a Head {h00=0x0014, h01=0x0050, text=» SC A2,VTLRN,A5 «, t00=0x0027, t01=0x004e}
0x3d4a…3d64 Head {h00=0x0016, h01=0x0050, text=» LD A2,FDBLRN+1,A6«, t00=0x0027, t01=0x0066}
0x3d64…3d7e Head {h00=0x0016, h01=0x0050, text=» ST A2,VTLRN+1,A5 «, t00=0x0027, t01=0x0080}
0x3d7e…3da0 Head {h00=0x001e, h01=0x0050, text=»* CLOSE FILE. WRITE VTOC«, t00=0x0027, t01=0x009a}
0x3da0…3daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00bc}
0x3daa…3dbe Head {h00=0x0010, h01=0x0050, text=» LDK A7,/95 «, t00=0x0027, t01=0x00c6}
0x3dbe…3dca Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0027, t01=0x00da}
0x3dca…3dda Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0027, t01=0x00e6}
0x3dda…3de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00f6}
0x3de4…3e08 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A6 FDBADDRESS IN A1 «, t00=0x0027, t01=0x0100}
0x3e08…3e32 Head {h00=0x0026, h01=0x0050, text=» CF A14,DMTIOT CHECK RETURN CODES «, t00=0x0027, t01=0x0124}
0x3e32…3e44 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0027, t01=0x014e}
0x3e44…3e60 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) DMT724 ERROR«, t00=0x0027, t01=0x0160}
0x3e60…3e74 Head {h00=0x0010, h01=0x0050, text=»DMT720 EQU *«, t00=0x0027, t01=0x017c}
0x3e74…3e96 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTTDM,A6 TTAB ADDR«, t00=0x0027, t01=0x0190}
0x3e96…3ea8 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0028, t01=0x0022}
0x3ea8…3eca Head {h00=0x001e, h01=0x0050, text=» LC A2,ECBFC,A9 FILE CODE «, t00=0x0028, t01=0x0034}
0x3eca…3ef0 Head {h00=0x0022, h01=0x0050, text=» LDK A5,0 TRY LOCAL AND GLOBAL«, t00=0x0028, t01=0x0056}
0x3ef0…3f22 Head {h00=0x002e, h01=0x0050, text=» CF A14,FNDFDB GET ENTRY IN TTAB CDTADTAB «, t00=0x0028, t01=0x007c}
0x3f22…3f4c Head {h00=0x0026, h01=0x0050, text=» LDR A13,A5 LOCAL/GLOBAL INDICATOR«, t00=0x0028, t01=0x00ae}
0x3f4c…3f5e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0028, t01=0x00d8}
0x3f5e…3f7e Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DMT725 FC FOUND «, t00=0x0028, t01=0x00ea}
0x3f7e…3f9c Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/8000 REQ ERR«, t00=0x0028, t01=0x010a}
0x3f9c…3fb6 Head {h00=0x0016, h01=0x0050, text=»DMT724 ABL DMTERR «, t00=0x0028, t01=0x0128}
0x3fb6…3fca Head {h00=0x0010, h01=0x0050, text=»DMT725 EQU *«, t00=0x0028, t01=0x0142}
0x3fca…3fea Head {h00=0x001c, h01=0x0050, text=» LD A5,2,A4 FDB ADDRESS «, t00=0x0028, t01=0x0156}
0x3fea…4014 Head {h00=0x0026, h01=0x0050, text=» LDR A11,A4 SAVE TABLE ENTRY ADDR «, t00=0x0028, t01=0x0176}
0x4014…4038 Head {h00=0x0020, h01=0x0050, text=» LDR A12,A1 SAVE TTEAB ADDR «, t00=0x0029, t01=0x0010}
0x4038…4070 Head {h00=0x0034, h01=0x0050, text=» LDKL A10,0 MARK THAT FDB NOT SHALL BE RELEASED «, t00=0x0029, t01=0x0034}
0x4070…407e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x006c}
0x407e…40b2 Head {h00=0x0030, h01=0x0050, text=»* CHECK IF THIS FDB ADDR IS USED ELEWHERE «, t00=0x0029, t01=0x007a}
0x40b2…40bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ae}
0x40bc…40d8 Head {h00=0x0018, h01=0x0050, text=»* SEARCH ALL TTABS«, t00=0x0029, t01=0x00b8}
0x40d8…40e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00d4}
0x40e2…40f8 Head {h00=0x0012, h01=0x0050, text=» LD* A2,TCTAB «, t00=0x0029, t01=0x00de}
0x40f8…410c Head {h00=0x0010, h01=0x0050, text=»DMT730 EQU *«, t00=0x0029, t01=0x00f4}
0x410c…411e Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0029, t01=0x0108}
0x411e…414a Head {h00=0x0028, h01=0x0050, text=» RF(NP) DMT780 NOT FOUND IN ANY TTAB«, t00=0x0029, t01=0x011a}
0x414a…415e Head {h00=0x0010, h01=0x0050, text=» LD A3,TCTAB«, t00=0x0029, t01=0x0146}
0x415e…4170 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0029, t01=0x015a}
0x4170…4184 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A3 «, t00=0x0029, t01=0x016c}
0x4184…41a0 Head {h00=0x0018, h01=0x0050, text=» LD A3,4,A1 TASK ID «, t00=0x0029, t01=0x0180}
0x41a0…41c4 Head {h00=0x0020, h01=0x0050, text=» RB(N) DMT730 MONOITOR TASK «, t00=0x002a, t01=0x000c}
0x41c4…41dc Head {h00=0x0014, h01=0x0050, text=» LD A3,TTB:TD,A1«, t00=0x002a, t01=0x0030}
0x41dc…4208 Head {h00=0x0028, h01=0x0050, text=» ADKL A1,TTB:TD+2 DEV DESCR TABLE +2«, t00=0x002a, t01=0x0048}
0x4208…421c Head {h00=0x0010, h01=0x0050, text=»DMT770 EQU *«, t00=0x002a, t01=0x0074}
0x421c…422e Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x002a, t01=0x0088}
0x422e…4256 Head {h00=0x0024, h01=0x0050, text=» RB(NP) DMT730 NOT IN THIS TTAB «, t00=0x002a, t01=0x009a}
0x4256…4268 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x002a, t01=0x00c2}
0x4268…427a Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x002a, t01=0x00d4}
0x427a…428e Head {h00=0x0010, h01=0x0050, text=» CWR* A5,A4 «, t00=0x002a, t01=0x00e6}
0x428e…42a4 Head {h00=0x0012, h01=0x0050, text=» RB(NE) DMT770«, t00=0x002a, t01=0x00fa}
0x42a4…42c2 Head {h00=0x001a, h01=0x0050, text=» LDR A7,A11 TTAB ENTRY«, t00=0x002a, t01=0x0110}
0x42c2…42de Head {h00=0x0018, h01=0x0050, text=» ADK A7,2 FDB OFFSET«, t00=0x002a, t01=0x012e}
0x42de…42f0 Head {h00=0x000e, h01=0x0050, text=» CWR A4,A7«, t00=0x002a, t01=0x014a}
0x42f0…4310 Head {h00=0x001c, h01=0x0050, text=» RB(E) DMT770 SAME ENTRY«, t00=0x002a, t01=0x015c}
0x4310…433a Head {h00=0x0026, h01=0x0050, text=» RF DMT895 MORE USERS ON THIS FDB «, t00=0x002a, t01=0x017c}
0x433a…4344 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0016}
0x4344…4360 Head {h00=0x0018, h01=0x0050, text=»* NOW SEARCH CDTAB«, t00=0x002b, t01=0x0020}
0x4360…436a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x003c}
0x436a…437e Head {h00=0x0010, h01=0x0050, text=»DMT780 EQU *«, t00=0x002b, t01=0x0046}
0x437e…4394 Head {h00=0x0012, h01=0x0050, text=» LD* A4,CDTAB «, t00=0x002b, t01=0x005a}
0x4394…43a8 Head {h00=0x0010, h01=0x0050, text=»DMT790 EQU *«, t00=0x002b, t01=0x0070}
0x43a8…43ba Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x002b, t01=0x0084}
0x43ba…43ec Head {h00=0x002e, h01=0x0050, text=» RF(NP) DMT800 THIS FDB HAS NO OTHER USER «, t00=0x002b, t01=0x0096}
0x43ec…4400 Head {h00=0x0010, h01=0x0050, text=» LD A2,CDTAB«, t00=0x002b, t01=0x00c8}
0x4400…4412 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x002b, t01=0x00dc}
0x4412…4426 Head {h00=0x0010, h01=0x0050, text=» CW A5,2,A2 «, t00=0x002b, t01=0x00ee}
0x4426…443c Head {h00=0x0012, h01=0x0050, text=» RB(NE) DMT790«, t00=0x002b, t01=0x0102}
0x443c…444e Head {h00=0x000e, h01=0x0050, text=» LDR A7,A4«, t00=0x002b, t01=0x0118}
0x444e…4462 Head {h00=0x0010, h01=0x0050, text=» AD A7,CDTAB«, t00=0x002b, t01=0x012a}
0x4462…4476 Head {h00=0x0010, h01=0x0050, text=» CWR A7,A11 «, t00=0x002b, t01=0x013e}
0x4476…4496 Head {h00=0x001c, h01=0x0050, text=» RB(E) DMT790 SAME ENTRY«, t00=0x002b, t01=0x0152}
0x4496…44c0 Head {h00=0x0026, h01=0x0050, text=» RF DMT895 THIS FDB HAS MORE USERS«, t00=0x002b, t01=0x0172}
0x44c0…44ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x000c}
0x44ce…44d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x001a}
0x44d8…44f8 Head {h00=0x001c, h01=0x0050, text=»* NOW RELEASE THIS FDB«, t00=0x002c, t01=0x0024}
0x44f8…4502 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0044}
0x4502…4516 Head {h00=0x0010, h01=0x0050, text=»DMT800 EQU *«, t00=0x002c, t01=0x004e}
0x4516…4520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0062}
0x4520…453e Head {h00=0x001a, h01=0x0050, text=»* RELEASE EA-BUFFERS«, t00=0x002c, t01=0x006c}
0x453e…4548 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x008a}
0x4548…457a Head {h00=0x002e, h01=0x0050, text=» LDKL A2,/8000 ALL EA-BUFFERS ARE RELEASED«, t00=0x002c, t01=0x0094}
0x457a…4596 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x002c, t01=0x00c6}
0x4596…45ac Head {h00=0x0012, h01=0x0050, text=» CF A14,EARELB«, t00=0x002c, t01=0x00e2}
0x45ac…45b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x00f8}
0x45b6…45d6 Head {h00=0x001c, h01=0x0050, text=»* RELEASE CRN BUFFERS «, t00=0x002c, t01=0x0102}
0x45d6…45e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0122}
0x45e0…45f8 Head {h00=0x0014, h01=0x0050, text=» LDKL A5,FDBCRL «, t00=0x002c, t01=0x012c}
0x45f8…4614 Head {h00=0x0018, h01=0x0050, text=» ADR A5,A6 LINK ROOT«, t00=0x002c, t01=0x0144}
0x4614…4628 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x002c, t01=0x0160}
0x4628…4642 Head {h00=0x0016, h01=0x0050, text=» CMR A5 CLEAR FDB «, t00=0x002c, t01=0x0174}
0x4642…4654 Head {h00=0x000e, h01=0x0050, text=» RF DMT830«, t00=0x002c, t01=0x018e}
0x4654…4668 Head {h00=0x0010, h01=0x0050, text=»DMT820 EQU *«, t00=0x002d, t01=0x0010}
0x4668…468a Head {h00=0x001e, h01=0x0050, text=» LDR A4,A5 BUFFER ADDRESS «, t00=0x002d, t01=0x0024}
0x468a…469e Head {h00=0x0010, h01=0x0050, text=»DMT830 EQU *«, t00=0x002d, t01=0x0046}
0x469e…46c8 Head {h00=0x0026, h01=0x0050, text=» RF(Z) DMT840 ALL BUFFER S REMOVED«, t00=0x002d, t01=0x005a}
0x46c8…46f0 Head {h00=0x0024, h01=0x0050, text=» LDR* A5,A4 NEXT BUFFER ADDRESS «, t00=0x002d, t01=0x0084}
0x46f0…46fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00ac}
0x46fa…471c Head {h00=0x001e, h01=0x0050, text=»* RETIURN BUFFER TO POOL«, t00=0x002d, t01=0x00b6}
0x471c…4726 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d8}
0x4726…4732 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002d, t01=0x00e2}
0x4732…4748 Head {h00=0x0012, h01=0x0050, text=» LD A3,CRNQUE «, t00=0x002d, t01=0x00ee}
0x4748…475a Head {h00=0x000e, h01=0x0050, text=» STR A3,A4«, t00=0x002d, t01=0x0104}
0x475a…4770 Head {h00=0x0012, h01=0x0050, text=» ST A4,CRNQUE «, t00=0x002d, t01=0x0116}
0x4770…477c Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x002d, t01=0x012c}
0x477c…478e Head {h00=0x000e, h01=0x0050, text=» RB DMT820«, t00=0x002d, t01=0x0138}
0x478e…47a2 Head {h00=0x0010, h01=0x0050, text=»DMT840 EQU *«, t00=0x002d, t01=0x014a}
0x47a2…47b8 Head {h00=0x0012, h01=0x0050, text=» IFT FLXDSC=1 «, t00=0x002d, t01=0x015e}
0x47b8…47c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0174}
0x47c2…4802 Head {h00=0x003c, h01=0x0050, text=»* NOW CHECK DEVICE CODES. WHEN LAST FILE IS CLOSED ON «, t00=0x002d, t01=0x017e}
0x4802…4844 Head {h00=0x003e, h01=0x0050, text=»* A FLEXIBLE DISC UNIT, AN UNLOC IS MADE FOR THIS VOLUME«, t00=0x002e, t01=0x002e}
0x4844…484e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0070}
0x484e…486e Head {h00=0x001c, h01=0x0050, text=» LDK A1,4 EXTENT COUNTER«, t00=0x002e, t01=0x007a}
0x486e…488a Head {h00=0x0018, h01=0x0050, text=» LDR A5,A6 FDB ADDR «, t00=0x002e, t01=0x009a}
0x488a…48bc Head {h00=0x002e, h01=0x0050, text=» ADKL A5,FDBEXT+1 ZADDR OF FIRST VOL CODE «, t00=0x002e, t01=0x00b6}
0x48bc…48e6 Head {h00=0x0026, h01=0x0050, text=» SUKL A5,EXTELE EXT LENGTH IN FDB «, t00=0x002e, t01=0x00e8}
0x48e6…4904 Head {h00=0x001a, h01=0x0050, text=» LDK A4,0 FOR VOL CODE«, t00=0x002e, t01=0x0112}
0x4904…4918 Head {h00=0x0010, h01=0x0050, text=»DMT880 EQU *«, t00=0x002e, t01=0x0130}
0x4918…4938 Head {h00=0x001c, h01=0x0050, text=» ENB SEE LABEL 910 ENB «, t00=0x002e, t01=0x0144}
0x4938…494e Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 LOOP«, t00=0x002e, t01=0x0164}
0x494e…4978 Head {h00=0x0026, h01=0x0050, text=» ABL(NN) DMT900 CHECK THIS EXTENT «, t00=0x002e, t01=0x017a}
0x4978…4984 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0014}
0x4984…499a Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x002f, t01=0x0020}
0x499a…49a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x0036}
0x49a8…49b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0044}
0x49b2…49d2 Head {h00=0x001c, h01=0x0050, text=»* ALL EXTENTS CHECKED «, t00=0x002f, t01=0x004e}
0x49d2…49f4 Head {h00=0x001e, h01=0x0050, text=»* RELEASE MASRTER INDEX «, t00=0x002f, t01=0x006e}
0x49f4…49fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0090}
0x49fe…4a0a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x002f, t01=0x009a}
0x4a0a…4a34 Head {h00=0x0026, h01=0x0050, text=» LD A1,FDBMIA,A6 MASTER INDEX ADDR«, t00=0x002f, t01=0x00a6}
0x4a34…4a56 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT894 NO MATER IX «, t00=0x002f, t01=0x00d0}
0x4a56…4a70 Head {h00=0x0016, h01=0x0050, text=» LD A5,MXIND LENTH«, t00=0x002f, t01=0x00f2}
0x4a70…4a82 Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x002f, t01=0x010c}
0x4a82…4a96 Head {h00=0x0010, h01=0x0050, text=»DMT885 EQU *«, t00=0x002f, t01=0x011e}
0x4a96…4aa8 Head {h00=0x000e, h01=0x0050, text=» SUK A5,4 «, t00=0x002f, t01=0x0132}
0x4aa8…4aca Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMT890 FIRST INDEX «, t00=0x002f, t01=0x0144}
0x4aca…4aec Head {h00=0x001e, h01=0x0050, text=» RF(N) DMT894 NO MATER IX «, t00=0x002f, t01=0x0166}
0x4aec…4b06 Head {h00=0x0016, h01=0x0050, text=» CW A1,MXIND+2,A5 «, t00=0x002f, t01=0x0188}
0x4b06…4b1c Head {h00=0x0012, h01=0x0050, text=» RB(NE) DMT885«, t00=0x0030, t01=0x0012}
0x4b1c…4b34 Head {h00=0x0014, h01=0x0050, text=» LD A4,MXIND,A5 «, t00=0x0030, t01=0x0028}
0x4b34…4b5e Head {h00=0x0026, h01=0x0050, text=» RF(N) DMT890 PREVIOUS ENTRY USED «, t00=0x0030, t01=0x0040}
0x4b5e…4b84 Head {h00=0x0022, h01=0x0050, text=» LD A4,MXIND+4,A5 NO OF WORDS «, t00=0x0030, t01=0x006a}
0x4b84…4ba8 Head {h00=0x0020, h01=0x0050, text=» ANKL A4,/7FFF REMOV USE BIT«, t00=0x0030, t01=0x0090}
0x4ba8…4bcc Head {h00=0x0020, h01=0x0050, text=» ADS A4,MXIND,A5 NR OF WORDS«, t00=0x0030, t01=0x00b4}
0x4bcc…4bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00d8}
0x4bd6…4bf8 Head {h00=0x001e, h01=0x0050, text=»* MOVE UP REST OF MXIND «, t00=0x0030, t01=0x00e2}
0x4bf8…4c02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0104}
0x4c02…4c1a Head {h00=0x0014, h01=0x0050, text=» LDKL A1,MXIND+6«, t00=0x0030, t01=0x010e}
0x4c1a…4c36 Head {h00=0x0018, h01=0x0050, text=» ADR A1,A5 FROM ADDR«, t00=0x0030, t01=0x0126}
0x4c36…4c48 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x0030, t01=0x0142}
0x4c48…4c62 Head {h00=0x0016, h01=0x0050, text=» SUK A3,4 TO ADDR «, t00=0x0030, t01=0x0154}
0x4c62…4c76 Head {h00=0x0010, h01=0x0050, text=» LD A2,MXIND«, t00=0x0030, t01=0x016e}
0x4c76…4c88 Head {h00=0x000e, h01=0x0050, text=» SUR A2,A5«, t00=0x0030, t01=0x0182}
0x4c88…4ca4 (49, 0, 400) Head {h00=0x0018, h01=0x0050, text=» SUK A2,2 NO OF CHAR«, t00=0x0031, t01=0x0004}
0x4ca4…4cc2 Head {h00=0x001a, h01=0x0050, text=» CF A14,DMTWM MOVE UOP«, t00=0x0031, t01=0x0020}
0x4cc2…4cd4 Head {h00=0x000e, h01=0x0050, text=» RF DMT894«, t00=0x0031, t01=0x003e}
0x4cd4…4ce8 Head {h00=0x0010, h01=0x0050, text=»DMT890 EQU *«, t00=0x0031, t01=0x0050}
0x4ce8…4cfe Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/7FFF«, t00=0x0031, t01=0x0064}
0x4cfe…4d28 Head {h00=0x0026, h01=0x0050, text=» ANS A4,MXIND+4,A5 REMOVE USE BIT «, t00=0x0031, t01=0x007a}
0x4d28…4d34 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0031, t01=0x00a4}
0x4d34…4d42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0031, t01=0x00b0}
0x4d42…4d56 Head {h00=0x0010, h01=0x0050, text=»DMT894 EQU *«, t00=0x0031, t01=0x00be}
0x4d56…4d8a Head {h00=0x0030, h01=0x0050, text=» LDKL A10,1 MARK THAT FDB SHALL BE RELEASED «, t00=0x0031, t01=0x00d2}
0x4d8a…4d9e Head {h00=0x0010, h01=0x0050, text=»DMT895 EQU *«, t00=0x0031, t01=0x0106}
0x4d9e…4db0 Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0031, t01=0x011a}
0x4db0…4dba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x012c}
0x4dba…4dde Head {h00=0x0020, h01=0x0050, text=»* DELETE TTAB/CDTAB ENTRY «, t00=0x0031, t01=0x0136}
0x4dde…4de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x015a}
0x4de8…4e02 Head {h00=0x0016, h01=0x0050, text=» CMR A11 FILE CODE«, t00=0x0031, t01=0x0164}
0x4e02…4e1c Head {h00=0x0016, h01=0x0050, text=» CM 2,A11 FDB ADDR«, t00=0x0031, t01=0x017e}
0x4e1c…4e26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0008}
0x4e26…4e54 Head {h00=0x002a, h01=0x0050, text=»* RELEASE DWT-QUEUQ IN THIS FDB-DWT «, t00=0x0032, t01=0x0012}
0x4e54…4e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0040}
0x4e5e…4e78 Head {h00=0x0016, h01=0x0050, text=» LDR A1,A6 FDBADDR«, t00=0x0032, t01=0x004a}
0x4e78…4ea0 Head {h00=0x0024, h01=0x0050, text=» ADKL A1,DWTTQ ADDR QUEUE START «, t00=0x0032, t01=0x0064}
0x4ea0…4ec2 Head {h00=0x001e, h01=0x0050, text=» LDR* A5,A1 NEXT TTAB ADDR«, t00=0x0032, t01=0x008c}
0x4ec2…4edc Head {h00=0x0016, h01=0x0050, text=» RF(Z) DMTA20 NO Q«, t00=0x0032, t01=0x00ae}
0x4edc…4ef6 Head {h00=0x0016, h01=0x0050, text=» CMR A1 KILL ROOT «, t00=0x0032, t01=0x00c8}
0x4ef6…4f1e Head {h00=0x0024, h01=0x0050, text=»DMTA10 LDR* A1,A5 NEXT IN QUEUE «, t00=0x0032, t01=0x00e2}
0x4f1e…4f3e Head {h00=0x001c, h01=0x0050, text=» CF A15,QTJOB DISPATCH Q«, t00=0x0032, t01=0x010a}
0x4f3e…4f56 Head {h00=0x0014, h01=0x0050, text=» LDR A5,A1 NEXT «, t00=0x0032, t01=0x012a}
0x4f56…4f72 Head {h00=0x0018, h01=0x0050, text=» RB(NZ) DMTA10 MORE «, t00=0x0032, t01=0x0142}
0x4f72…4f86 Head {h00=0x0010, h01=0x0050, text=»DMTA20 EQU *«, t00=0x0032, t01=0x015e}
0x4f86…4f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0172}
0x4f90…4fb6 Head {h00=0x0022, h01=0x0050, text=»* NEXT ENTRY IN TTAB/CDATAB «, t00=0x0032, t01=0x017c}
0x4fb6…4fc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0012}
0x4fc0…4fde Head {h00=0x001a, h01=0x0050, text=» LDR A1,A12 TTAB ADDR «, t00=0x0033, t01=0x001c}
0x4fde…4ff0 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0033, t01=0x003a}
0x4ff0…501c Head {h00=0x0028, h01=0x0050, text=» LC A2,ECBFC,A9 FILE CODE USERT ECB «, t00=0x0033, t01=0x004c}
0x501c…5046 Head {h00=0x0026, h01=0x0050, text=» LDR A5,A13 LOCAL/GLOBAL INDICATOR«, t00=0x0033, t01=0x0078}
0x5046…506e Head {h00=0x0024, h01=0x0050, text=» CF A14,FNDFDB SEARCH TTAB CDTAB«, t00=0x0033, t01=0x00a2}
0x506e…5090 Head {h00=0x001e, h01=0x0050, text=» LDK A7,0 INDICATES A2 = 0«, t00=0x0033, t01=0x00ca}
0x5090…50a6 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0033, t01=0x00ec}
0x50a6…50b8 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0033, t01=0x0102}
0x50b8…50ce Head {h00=0x0012, h01=0x0050, text=» RF(Z) DMTA30 «, t00=0x0033, t01=0x0114}
0x50ce…50d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x012a}
0x50d8…50f8 Head {h00=0x001c, h01=0x0050, text=»* MOV DWT TO NEXT FDB «, t00=0x0033, t01=0x0134}
0x50f8…5128 Head {h00=0x002c, h01=0x0050, text=»* AN INDEX FILE SHALL ALSO BE RELEASED«, t00=0x0033, t01=0x0154}
0x5128…5132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x0184}
0x5132…515c Head {h00=0x0026, h01=0x0050, text=» LD A7,2,A4 NEXT FDB ADDR TO CLOSE«, t00=0x0033, t01=0x018e}
0x515c…516e Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0034, t01=0x0028}
0x516e…518a Head {h00=0x0018, h01=0x0050, text=» ADR A1,A6 FROM ADDR«, t00=0x0034, t01=0x003a}
0x518a…519c Head {h00=0x000e, h01=0x0050, text=» LDK A3,2 «, t00=0x0034, t01=0x0056}
0x519c…51b6 Head {h00=0x0016, h01=0x0050, text=» ADR A3,A7 TO ADDR«, t00=0x0034, t01=0x0068}
0x51b6…51d4 Head {h00=0x001a, h01=0x0050, text=» LDK A2,12 NO OF BYTES«, t00=0x0034, t01=0x0082}
0x51d4…51f2 Head {h00=0x001a, h01=0x0050, text=» CF A14,DMTWM MOVE DWT«, t00=0x0034, t01=0x00a0}
0x51f2…520a Head {h00=0x0014, h01=0x0050, text=» LD A3,DWTTDM,A6«, t00=0x0034, t01=0x00be}
0x520a…5228 Head {h00=0x001a, h01=0x0050, text=» ST A3,DWTTDM,A7 MOVE «, t00=0x0034, t01=0x00d6}
0x5228…5248 Head {h00=0x001c, h01=0x0050, text=» CM FDBSNR,A7 SECTOR NR «, t00=0x0034, t01=0x00f4}
0x5248…5260 Head {h00=0x0014, h01=0x0050, text=» LDKL A3,FDBEXT «, t00=0x0034, t01=0x0114}
0x5260…5272 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A7«, t00=0x0034, t01=0x012c}
0x5272…5296 Head {h00=0x0020, h01=0x0050, text=» ST A3,FDBCEX,A7 1ST EXTENT «, t00=0x0034, t01=0x013e}
0x5296…52ac Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/8000«, t00=0x0034, t01=0x0162}
0x52ac…52cc Head {h00=0x001c, h01=0x0050, text=» ST A3,DWTST,A6 NOT BUSY«, t00=0x0034, t01=0x0178}
0x52cc…52e0 Head {h00=0x0010, h01=0x0050, text=»DMTA30 EQU *«, t00=0x0035, t01=0x0008}
0x52e0…52ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x001c}
0x52ec…52fe Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0035, t01=0x0028}
0x52fe…5308 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x003a}
0x5308…5322 Head {h00=0x0016, h01=0x0050, text=»* RELEASE BUFFER«, t00=0x0035, t01=0x0044}
0x5322…532c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x005e}
0x532c…5344 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x0035, t01=0x0068}
0x5344…5356 Head {h00=0x000e, h01=0x0050, text=» SUK A3,8 «, t00=0x0035, t01=0x0080}
0x5356…536c Head {h00=0x0012, h01=0x0050, text=» CF A14,DMTRBU«, t00=0x0035, t01=0x0092}
0x536c…5376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a8}
0x5376…538e Head {h00=0x0014, h01=0x0050, text=»* RELEASE FDB «, t00=0x0035, t01=0x00b2}
0x538e…5398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00ca}
0x5398…53ac Head {h00=0x0010, h01=0x0050, text=» LDR A10,A10«, t00=0x0035, t01=0x00d4}
0x53ac…53cc Head {h00=0x001c, h01=0x0050, text=» RF(Z) DMTA40 NO RELEASE«, t00=0x0035, t01=0x00e8}
0x53cc…53e2 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0035, t01=0x0108}
0x53e2…53ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x011e}
0x53ec…5420 Head {h00=0x0030, h01=0x0050, text=»* REMOVE ALL OTHER REFERAENCES TO THIS FDB«, t00=0x0035, t01=0x0128}
0x5420…542a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x015c}
0x542a…544e Head {h00=0x0020, h01=0x0050, text=» LDK A1,10 2*MAX NR OF FDBS «, t00=0x0035, t01=0x0166}
0x544e…5466 Head {h00=0x0014, h01=0x0050, text=»DMTA50 SUK A1,2 «, t00=0x0035, t01=0x018a}
0x5466…548c Head {h00=0x0022, h01=0x0050, text=» RF(N) DMTA70 ALL FDBS CHECKED«, t00=0x0036, t01=0x0012}
0x548c…549e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A6«, t00=0x0036, t01=0x0038}
0x549e…54b0 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A1«, t00=0x0036, t01=0x004a}
0x54b0…54d8 Head {h00=0x0024, h01=0x0050, text=» LD A3,FDBADF,A2 OTHER FDB ADDR «, t00=0x0036, t01=0x005c}
0x54d8…54ee Head {h00=0x0012, h01=0x0050, text=» RB(Z) DMTA50 «, t00=0x0036, t01=0x0084}
0x54ee…5512 Head {h00=0x0020, h01=0x0050, text=» LDK A4,10 2*MAX NR OF FDBS «, t00=0x0036, t01=0x009a}
0x5512…552a Head {h00=0x0014, h01=0x0050, text=»DMTA60 SUK A4,2 «, t00=0x0036, t01=0x00be}
0x552a…555e Head {h00=0x0030, h01=0x0050, text=» RB(N) DMTA50 ALL ADDR CHECKED IN OTHER FDB «, t00=0x0036, t01=0x00d6}
0x555e…5570 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A3«, t00=0x0036, t01=0x010a}
0x5570…5582 Head {h00=0x000e, h01=0x0050, text=» ADR A5,A4«, t00=0x0036, t01=0x011c}
0x5582…559a Head {h00=0x0014, h01=0x0050, text=» CW A6,FDBADF,A5«, t00=0x0036, t01=0x012e}
0x559a…55b0 Head {h00=0x0012, h01=0x0050, text=» RB(NE) DMTA60«, t00=0x0036, t01=0x0146}
0x55b0…55ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x015c}
0x55ba…55fe Head {h00=0x0040, h01=0x0050, text=»* DELETE THIS REFERENCE TO THE FDB THAT SHALL BE RELEASED «, t00=0x0036, t01=0x0166}
0x55fe…5608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x001a}
0x5608…561e Head {h00=0x0012, h01=0x0050, text=» CM FDBADF,A5 «, t00=0x0037, t01=0x0024}
0x561e…5630 Head {h00=0x000e, h01=0x0050, text=» RB DMTA50«, t00=0x0037, t01=0x003a}
0x5630…563c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0037, t01=0x004c}
0x563c…564a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x0058}
0x564a…565e Head {h00=0x0010, h01=0x0050, text=»DMTA70 EQU *«, t00=0x0037, t01=0x0066}
0x565e…5674 Head {h00=0x0012, h01=0x0050, text=» LDKL A3,/FFFE«, t00=0x0037, t01=0x007a}
0x5674…5686 Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x0037, t01=0x0090}
0x5686…56a6 Head {h00=0x001c, h01=0x0050, text=» ANRS A3,A6 SET FDB FREE«, t00=0x0037, t01=0x00a2}
0x56a6…56ba Head {h00=0x0010, h01=0x0050, text=»DMTA40 EQU *«, t00=0x0037, t01=0x00c2}
0x56ba…56e8 Head {h00=0x002a, h01=0x0050, text=» CF A14,CLRBUF REMOVE ALL FREE BUFFERS«, t00=0x0037, t01=0x00d6}
0x56e8…5708 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A7 NEW FDB ADDR «, t00=0x0037, t01=0x0104}
0x5708…572c Head {h00=0x0020, h01=0x0050, text=» ABL(Z) DMTERX NO MORE FDBS «, t00=0x0037, t01=0x0124}
0x572c…5742 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0037, t01=0x0148}
0x5742…5754 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x0037, t01=0x015e}
0x5754…575e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0170}
0x575e…5796 Head {h00=0x0034, h01=0x0050, text=»* FIND WHICH DMTASK IS NEXT AND ACTIVATE THAT «, t00=0x0037, t01=0x017a}
0x5796…57a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0022}
0x57a0…57b2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0038, t01=0x002c}
0x57b2…57d8 Head {h00=0x0022, h01=0x0050, text=» LC A7,FDBEXT,A1 TASK 1ST EXT «, t00=0x0038, t01=0x003e}
0x57d8…57f6 Head {h00=0x001a, h01=0x0050, text=» ADKL A7,'D0' TASK ID «, t00=0x0038, t01=0x0064}
0x57f6…5802 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0038, t01=0x0082}
0x5802…5812 Head {h00=0x000c, h01=0x0050, text=» DATA -4«, t00=0x0038, t01=0x008e}
0x5812…5826 Head {h00=0x0010, h01=0x0050, text=» DATA DMTASK«, t00=0x0038, t01=0x009e}
0x5826…5832 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0038, t01=0x00b2}
0x5832…5846 Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0038, t01=0x00be}
0x5846…5852 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0038, t01=0x00d2}
0x5852…5868 Head {h00=0x0012, h01=0x0050, text=» IFT FLXDSC=1 «, t00=0x0038, t01=0x00de}
0x5868…5876 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00f4}
0x5876…588a Head {h00=0x0010, h01=0x0050, text=»DMT900 EQU *«, t00=0x0038, t01=0x0102}
0x588a…58b2 Head {h00=0x0024, h01=0x0050, text=»* UNLOCK FLEXDISC IN THIS LOOP«, t00=0x0038, t01=0x0116}
0x58b2…58bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x013e}
0x58bc…58d2 Head {h00=0x0012, h01=0x0050, text=»* REGISTERS «, t00=0x0038, t01=0x0148}
0x58d2…58f2 Head {h00=0x001c, h01=0x0050, text=»* A1 = EXTENT COUNTER «, t00=0x0038, t01=0x015e}
0x58f2…592c Head {h00=0x0036, h01=0x0050, text=»* A4 = LAST VOL CODE FLEXDOISC A5 = EXT ADDR «, t00=0x0038, t01=0x017e}
0x592c…5946 Head {h00=0x0016, h01=0x0050, text=»* A6 = FDB ADDR «, t00=0x0039, t01=0x0028}
0x5946…597a Head {h00=0x0030, h01=0x0050, text=»* A8 = ECB ADDR A9 = DM ECB ADDR «, t00=0x0039, t01=0x0042}
0x597a…5992 Head {h00=0x0014, h01=0x0050, text=»* A10-A12 USED«, t00=0x0039, t01=0x0076}
0x5992…599c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x008e}
0x599c…59c6 Head {h00=0x0026, h01=0x0050, text=» ADKL A5,EXTELE EXT LENGTH IN FDB «, t00=0x0039, t01=0x0098}
0x59c6…59e4 Head {h00=0x001a, h01=0x0050, text=» LCR A7,A5 VOLUME CODE«, t00=0x0039, t01=0x00c2}
0x59e4…59f8 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/FF «, t00=0x0039, t01=0x00e0}
0x59f8…5a16 Head {h00=0x001a, h01=0x0050, text=» ABL(Z) DMT880 NO CODE«, t00=0x0039, t01=0x00f4}
0x5a16…5a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0112}
0x5a20…5a4a Head {h00=0x0026, h01=0x0050, text=»* FLEXDICSC IF BIT 8-13 = 111110«, t00=0x0039, t01=0x011c}
0x5a4a…5a54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0146}
0x5a54…5a68 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/F8 «, t00=0x0039, t01=0x0150}
0x5a68…5a7c Head {h00=0x0010, h01=0x0050, text=» SUK A7,/F8 «, t00=0x0039, t01=0x0164}
0x5a7c…5aa0 Head {h00=0x0020, h01=0x0050, text=» ABL(NE) DMT880 NO FLEXDISC «, t00=0x0039, t01=0x0178}
0x5aa0…5aaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x000c}
0x5aaa…5ae4 Head {h00=0x0036, h01=0x0050, text=»* IF SAME FLEXDISC AS LAST, DO NOT SCHECK AGAIN «, t00=0x003a, t01=0x0016}
0x5ae4…5aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0050}
0x5aee…5b00 Head {h00=0x000e, h01=0x0050, text=» CCR A4,A5«, t00=0x003a, t01=0x005a}
0x5b00…5b1c Head {h00=0x0018, h01=0x0050, text=» ABL(E) DMT880 SAME «, t00=0x003a, t01=0x006c}
0x5b1c…5b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0088}
0x5b26…5b66 Head {h00=0x003c, h01=0x0050, text=»* NOW SEARCH ALL FDBS FOR THOIS FLEXIBLE DISC VOL CODE«, t00=0x003a, t01=0x0092}
0x5b66…5b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d2}
0x5b70…5b84 Head {h00=0x0010, h01=0x0050, text=»DMT910 EQU *«, t00=0x003a, t01=0x00dc}
0x5b84…5ba4 Head {h00=0x001c, h01=0x0050, text=» LCR A4,A5 SAVE VOL CODE«, t00=0x003a, t01=0x00f0}
0x5ba4…5bca Head {h00=0x0022, h01=0x0050, text=» LDKL A3,FDBSTA FDB LINK ROOT «, t00=0x003a, t01=0x0110}
0x5bca…5bdc Head {h00=0x000e, h01=0x0050, text=» INH INH«, t00=0x003a, t01=0x0136}
0x5bdc…5bee Head {h00=0x000e, h01=0x0050, text=» RF DMT925«, t00=0x003a, t01=0x0148}
0x5bee…5c02 Head {h00=0x0010, h01=0x0050, text=»DMT920 EQU *«, t00=0x003a, t01=0x015a}
0x5c02…5c1e Head {h00=0x0018, h01=0x0050, text=» LDR* A3,A3 FDB ADDR«, t00=0x003a, t01=0x016e}
0x5c1e…5c32 Head {h00=0x0010, h01=0x0050, text=»DMT925 EQU *«, t00=0x003a, t01=0x018a}
0x5c32…5c54 Head {h00=0x001e, h01=0x0050, text=» ANKL A3,/FFFE FDB ADDR «, t00=0x003b, t01=0x000e}
0x5c54…5c7a Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMT980 ALL FDBS CHECKED«, t00=0x003b, t01=0x0030}
0x5c7a…5c8e Head {h00=0x0010, h01=0x0050, text=» LDR* A7,A3 «, t00=0x003b, t01=0x0056}
0x5c8e…5ca0 Head {h00=0x000e, h01=0x0050, text=» ANK A7,1 «, t00=0x003b, t01=0x006a}
0x5ca0…5cba Head {h00=0x0016, h01=0x0050, text=» RB(Z) DMT920 FREE«, t00=0x003b, t01=0x007c}
0x5cba…5ccc Head {h00=0x000e, h01=0x0050, text=» CWR A6,A3«, t00=0x003b, t01=0x0096}
0x5ccc…5cee Head {h00=0x001e, h01=0x0050, text=» RB(E) DMT920 CURRENT FDB «, t00=0x003b, t01=0x00a8}
0x5cee…5d0e Head {h00=0x001c, h01=0x0050, text=» LDK A7,4 EXTENT COUNTER«, t00=0x003b, t01=0x00ca}
0x5d0e…5d2a Head {h00=0x0018, h01=0x0050, text=» LDR A2,A3 FDB ADDR «, t00=0x003b, t01=0x00ea}
0x5d2a…5d44 Head {h00=0x0016, h01=0x0050, text=» ADKL A2,FDBEXT+1 «, t00=0x003b, t01=0x0106}
0x5d44…5d64 Head {h00=0x001c, h01=0x0050, text=»* ADDR OF 1ST VOL CODE«, t00=0x003b, t01=0x0120}
0x5d64…5d8e Head {h00=0x0026, h01=0x0050, text=» SUKL A2,EXTELE EXT LENGTH IN FDB «, t00=0x003b, t01=0x0140}
0x5d8e…5da2 Head {h00=0x0010, h01=0x0050, text=»DMT930 EQU *«, t00=0x003b, t01=0x016a}
0x5da2…5db4 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x003b, t01=0x017e}
0x5db4…5dde Head {h00=0x0026, h01=0x0050, text=» RB(N) DMT920 ALL EXTENTS CHECKED «, t00=0x003b, t01=0x0190}
0x5dde…5df6 Head {h00=0x0014, h01=0x0050, text=» ADKL A2,EXTELE «, t00=0x003c, t01=0x002a}
0x5df6…5e14 Head {h00=0x001a, h01=0x0050, text=» CCR A4,A2 VOLUME CODE«, t00=0x003c, t01=0x0042}
0x5e14…5e40 Head {h00=0x0028, h01=0x0050, text=» ABL(E) DMT880 CODE USED. NO UNLOCK «, t00=0x003c, t01=0x0060}
0x5e40…5e5e Head {h00=0x001a, h01=0x0050, text=» RB DMT930 NEXT EXTENT«, t00=0x003c, t01=0x008c}
0x5e5e…5e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00aa}
0x5e68…5e92 Head {h00=0x0026, h01=0x0050, text=»* ALL FSDBS CHECKED. MAKE UNLOAD«, t00=0x003c, t01=0x00b4}
0x5e92…5e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00de}
0x5e9c…5eb0 Head {h00=0x0010, h01=0x0050, text=»DMT980 EQU *«, t00=0x003c, t01=0x00e8}
0x5eb0…5ec2 Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x003c, t01=0x00fc}
0x5ec2…5ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x010e}
0x5ecc…5f06 Head {h00=0x0036, h01=0x0050, text=»* NOTE THAT ECBBUF IS ASSUMED NOT TO BE CHANGED «, t00=0x003c, t01=0x0118}
0x5f06…5f24 Head {h00=0x001a, h01=0x0050, text=»* WITH THIS REQUEST «, t00=0x003c, t01=0x0152}
0x5f24…5f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0170}
0x5f2e…5f4e Head {h00=0x001c, h01=0x0050, text=» SC A4,ECBFC,A8 VOL CODE«, t00=0x003c, t01=0x017a}
0x5f4e…5f6e Head {h00=0x001c, h01=0x0050, text=» LDK A7,/B8 UNLOAD WAIT «, t00=0x003d, t01=0x000a}
0x5f6e…5f7a Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x003d, t01=0x002a}
0x5f7a…5f8a Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x003d, t01=0x0036}
0x5f8a…5fa2 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x003d, t01=0x0046}
0x5fa2…5fba Head {h00=0x0014, h01=0x0050, text=» ANK A1,1 INOPER«, t00=0x003d, t01=0x005e}
0x5fba…5fd2 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x003d, t01=0x0076}
0x5fd2…5ff4 Head {h00=0x001e, h01=0x0050, text=» ABL DMT880 CHECK NEXT EXT«, t00=0x003d, t01=0x008e}
0x5ff4…6000 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003d, t01=0x00b0}
0x6000…600e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00bc}
0x600e…6034 Head {h00=0x0022, h01=0x0050, text=»DMT500 EQU * READ VTOC RECORD «, t00=0x003d, t01=0x00ca}
0x6034…603e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f0}
0x603e…6064 Head {h00=0x0022, h01=0x0050, text=» LD A2,VTOCRL VTOC REC LENGTH «, t00=0x003d, t01=0x00fa}
0x6064…607c Head {h00=0x0014, h01=0x0050, text=» CW A2,ECBRL,A9 «, t00=0x003d, t01=0x0120}
0x607c…60aa Head {h00=0x002a, h01=0x0050, text=» RF(NG) DMT510 MOVE THE WHOLE VTOC REC«, t00=0x003d, t01=0x0138}
0x60aa…60ce Head {h00=0x0020, h01=0x0050, text=» LDK A1,/8 INCORRECT LENGTH «, t00=0x003d, t01=0x0166}
0x60ce…60fa Head {h00=0x0028, h01=0x0050, text=» ORS A1,ECBRC,A9 SET RC BUT CONTINUE«, t00=0x003d, t01=0x018a}
0x60fa…612a Head {h00=0x002c, h01=0x0050, text=» LD A2,ECBRL,A9 MOVE WHAT USER TOLD YOU «, t00=0x003e, t01=0x0026}
0x612a…613e Head {h00=0x0010, h01=0x0050, text=»DMT510 EQU *«, t00=0x003e, t01=0x0056}
0x613e…6156 Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBEL,A9 «, t00=0x003e, t01=0x006a}
0x6156…6178 Head {h00=0x001e, h01=0x0050, text=» CF A14,DMTREM MOVE RECORD«, t00=0x003e, t01=0x0082}
0x6178…618c Head {h00=0x0010, h01=0x0050, text=»DMAEX EQU * «, t00=0x003e, t01=0x00a4}
0x618c…61a4 Head {h00=0x0014, h01=0x0050, text=» ABL DMTAEX EXIT«, t00=0x003e, t01=0x00b8}
0x61a4…61b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x00d0}
0x61b2…61d8 Head {h00=0x0022, h01=0x0050, text=»DMSQWR EQU * SEQUENTIAL WRITE «, t00=0x003e, t01=0x00de}
0x61d8…61e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0104}
0x61e2…6204 Head {h00=0x001e, h01=0x0050, text=»DMRDWR EQU * RANDOM WRITE «, t00=0x003e, t01=0x010e}
0x6204…620e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0130}
0x620e…6230 Head {h00=0x001e, h01=0x0050, text=»DMRDDE EQU * RANDOM DELETE«, t00=0x003e, t01=0x013a}
0x6230…623a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x015c}
0x623a…625c Head {h00=0x001e, h01=0x0050, text=»DMINS EQU * INDEXED INSERT«, t00=0x003e, t01=0x0166}
0x625c…6266 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0188}
0x6266…6288 (63, 0, 400) Head {h00=0x001e, h01=0x0050, text=»DMDEL EQU * INDEXED DELETE«, t00=0x003f, t01=0x0004}
0x6288…6292 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0026}
0x6292…62b6 Head {h00=0x0020, h01=0x0050, text=»DMIRW EQU * INDEXED REWRITE «, t00=0x003f, t01=0x0030}
0x62b6…62c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0054}
0x62c0…62ea Head {h00=0x0026, h01=0x0050, text=»DMRDWD EQU * DELAYED RANDOM WRITE «, t00=0x003f, t01=0x005e}
0x62ea…62f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0088}
0x62f4…631e Head {h00=0x0026, h01=0x0050, text=»DMRDDD EQU * DELAYED RANDOM DELETE«, t00=0x003f, t01=0x0092}
0x631e…6328 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00bc}
0x6328…6340 Head {h00=0x0014, h01=0x0050, text=»* TEST STATUS «, t00=0x003f, t01=0x00c6}
0x6340…635a Head {h00=0x0016, h01=0x0050, text=» LD A10,FDBRRO,A6 «, t00=0x003f, t01=0x00de}
0x635a…6374 Head {h00=0x0016, h01=0x0050, text=» AD A10,FDBRLE,A6 «, t00=0x003f, t01=0x00f8}
0x6374…639c Head {h00=0x0024, h01=0x0050, text=» ADR A10,A5 STATUS BYTE ADDRESS «, t00=0x003f, t01=0x0112}
0x639c…63bc Head {h00=0x001c, h01=0x0050, text=» LDR A11,A5 BUFFER ADDR «, t00=0x003f, t01=0x013a}
0x63bc…63d8 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x003f, t01=0x015a}
0x63d8…63f2 Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A9 «, t00=0x003f, t01=0x0176}
0x63f2…6406 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003f, t01=0x0190}
0x6406…6428 Head {h00=0x001e, h01=0x0050, text=» LD A3,ECBCW,A9 LOG REC NR«, t00=0x0040, t01=0x0014}
0x6428…643a Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0040, t01=0x0036}
0x643a…644e Head {h00=0x0010, h01=0x0050, text=» CCR A4,A10 «, t00=0x0040, t01=0x0048}
0x644e…6468 Head {h00=0x0016, h01=0x0050, text=» RF(E) DMS010 FREE«, t00=0x0040, t01=0x005c}
0x6468…647e Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0040, t01=0x0076}
0x647e…6490 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0040, t01=0x008c}
0x6490…64a4 Head {h00=0x0010, h01=0x0050, text=» SUK A4,QINS«, t00=0x0040, t01=0x009e}
0x64a4…64c8 Head {h00=0x0020, h01=0x0050, text=» RF(E) DMEAER INDEXED INSERT«, t00=0x0040, t01=0x00b2}
0x64c8…64d4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x00d6}
0x64d4…64e6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0040, t01=0x00e2}
0x64e6…64fa Head {h00=0x0010, h01=0x0050, text=» SUK A4,QSW «, t00=0x0040, t01=0x00f4}
0x64fa…651a Head {h00=0x001c, h01=0x0050, text=» RF(E) DMEAER SEQ WRITE «, t00=0x0040, t01=0x0108}
0x651a…6530 Head {h00=0x0012, h01=0x0050, text=» IFT QNOEXA=1 «, t00=0x0040, t01=0x0128}
0x6530…6556 Head {h00=0x0022, h01=0x0050, text=»* NO EA-CHECK IF EA-BIT = 1 «, t00=0x0040, t01=0x013e}
0x6556…6560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0164}
0x6560…6578 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTST,A6 «, t00=0x0040, t01=0x016e}
0x6578…658e Head {h00=0x0012, h01=0x0050, text=» ANK A4,EABIT «, t00=0x0040, t01=0x0186}
0x658e…65b4 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMS020 EA=1, NO CHECK «, t00=0x0041, t01=0x000c}
0x65b4…65ce Head {h00=0x0016, h01=0x0050, text=»* EA MUST BE SET«, t00=0x0041, t01=0x0032}
0x65ce…65d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x004c}
0x65d8…65ee Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x0041, t01=0x0056}
0x65ee…660a Head {h00=0x0018, h01=0x0050, text=» LDR A4,A4 RTN CODE «, t00=0x0041, t01=0x006c}
0x660a…6630 Head {h00=0x0022, h01=0x0050, text=» RF(NP) DMEAER NO EA THIS TASK«, t00=0x0041, t01=0x0088}
0x6630…663c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x00ae}
0x663c…664e Head {h00=0x000e, h01=0x0050, text=» RF DMS100«, t00=0x0041, t01=0x00ba}
0x664e…6662 Head {h00=0x0010, h01=0x0050, text=»DMS010 EQU *«, t00=0x0041, t01=0x00cc}
0x6662…6678 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0041, t01=0x00e0}
0x6678…668a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0041, t01=0x00f6}
0x668a…669e Head {h00=0x0010, h01=0x0050, text=» SUK A4,QIRW«, t00=0x0041, t01=0x0108}
0x669e…66c4 Head {h00=0x0022, h01=0x0050, text=» RF(Z) DMERND INDEXED REWRITE «, t00=0x0041, t01=0x011c}
0x66c4…66d6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A7«, t00=0x0041, t01=0x0142}
0x66d6…66ea Head {h00=0x0010, h01=0x0050, text=» SUK A4,QDEL«, t00=0x0041, t01=0x0154}
0x66ea…670e Head {h00=0x0020, h01=0x0050, text=» RF(Z) DMERND INDEXED DELETE«, t00=0x0041, t01=0x0168}
0x670e…671a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x018c}
0x671a…672e Head {h00=0x0010, h01=0x0050, text=»DMS020 EQU *«, t00=0x0042, t01=0x0008}
0x672e…6744 Head {h00=0x0012, h01=0x0050, text=» CF A14,EATEST«, t00=0x0042, t01=0x001c}
0x6744…6760 Head {h00=0x0018, h01=0x0050, text=» LDR A4,A4 RTN CODE «, t00=0x0042, t01=0x0032}
0x6760…6784 Head {h00=0x0020, h01=0x0050, text=» RF(N) DMEAER EA OTHER TASK «, t00=0x0042, t01=0x004e}
0x6784…6798 Head {h00=0x0010, h01=0x0050, text=»DMS100 EQU *«, t00=0x0042, t01=0x0072}
0x6798…67ba Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 SET STATUS FREE «, t00=0x0042, t01=0x0086}
0x67ba…67d0 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0042, t01=0x00a8}
0x67d0…67e2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0042, t01=0x00be}
0x67e2…67f6 Head {h00=0x0010, h01=0x0050, text=» SUK A2,QIRW«, t00=0x0042, t01=0x00d0}
0x67f6…681c Head {h00=0x0022, h01=0x0050, text=» RF(E) CHK010 INDEXED REWRITE «, t00=0x0042, t01=0x00e4}
0x681c…682e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0042, t01=0x010a}
0x682e…6842 Head {h00=0x0010, h01=0x0050, text=» SUK A2,QINS«, t00=0x0042, t01=0x011c}
0x6842…6866 Head {h00=0x0020, h01=0x0050, text=» RF(E) CHK010 INDEXED INSERT«, t00=0x0042, t01=0x0130}
0x6866…6878 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0042, t01=0x0154}
0x6878…688c Head {h00=0x0010, h01=0x0050, text=» SUK A2,QDEL«, t00=0x0042, t01=0x0166}
0x688c…68b0 Head {h00=0x0020, h01=0x0050, text=» RF(E) CHK010 INDEXED DELETE«, t00=0x0042, t01=0x017a}
0x68b0…68bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0043, t01=0x000e}
0x68bc…68ce Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0043, t01=0x001a}
0x68ce…68e2 Head {h00=0x0010, h01=0x0050, text=» SUK A2,QRD «, t00=0x0043, t01=0x002c}
0x68e2…6906 Head {h00=0x0020, h01=0x0050, text=» RF(E) DMT350 RANDOM DELETE «, t00=0x0043, t01=0x0040}
0x6906…6918 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0043, t01=0x0064}
0x6918…692c Head {h00=0x0010, h01=0x0050, text=» SUK A2,QRDD«, t00=0x0043, t01=0x0076}
0x692c…6958 Head {h00=0x0028, h01=0x0050, text=» RF(E) DMT350 DELAYED RANDOM DELETE «, t00=0x0043, t01=0x008a}
0x6958…6974 Head {h00=0x0018, h01=0x0050, text=» RF DMT310 RW,RWD,SW«, t00=0x0043, t01=0x00b6}
0x6974…698a Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0043, t01=0x00d2}
0x698a…6998 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x00e8}
0x6998…69ac Head {h00=0x0010, h01=0x0050, text=»CHK010 EQU *«, t00=0x0043, t01=0x00f6}
0x69ac…69f6 Head {h00=0x0046, h01=0x0050, text=»* INDEXED REWRITE,INDEXED INSERT AND INDEXED DELETE ENTERS HERE «, t00=0x0043, t01=0x010a}
0x69f6…6a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0154}
0x6a00…6a24 Head {h00=0x0020, h01=0x0050, text=»* COUNT NR OF INDEXES AND «, t00=0x0043, t01=0x015e}
0x6a24…6a54 Head {h00=0x002c, h01=0x0050, text=»* COMPARE KEYS IN FILE AND USER BUFFER«, t00=0x0043, t01=0x0182}
0x6a54…6a5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0022}
0x6a5e…6a7a Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0044, t01=0x002c}
0x6a7a…6a98 Head {h00=0x001a, h01=0x0050, text=» LDK A5,8 MAX 4 INDEX «, t00=0x0044, t01=0x0048}
0x6a98…6aba Head {h00=0x001e, h01=0x0050, text=» SUR A12,A12 INDEX COUNTER«, t00=0x0044, t01=0x0066}
0x6aba…6ace Head {h00=0x0010, h01=0x0050, text=»CHK040 EQU *«, t00=0x0044, t01=0x0088}
0x6ace…6ae0 Head {h00=0x000e, h01=0x0050, text=» SUK A5,2 «, t00=0x0044, t01=0x009c}
0x6ae0…6b08 Head {h00=0x0024, h01=0x0050, text=» RF(N) CHK100 ALL INDEX CHECKED «, t00=0x0044, t01=0x00ae}
0x6b08…6b22 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A1 FDB ADD«, t00=0x0044, t01=0x00d6}
0x6b22…6b34 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A5«, t00=0x0044, t01=0x00f0}
0x6b34…6b60 Head {h00=0x0028, h01=0x0050, text=» LD A6,FDBAI1,A2 FDB ADDR INDEX FILE«, t00=0x0044, t01=0x0102}
0x6b60…6b7e Head {h00=0x001a, h01=0x0050, text=» RB(Z) CHK040 NO INDEX«, t00=0x0044, t01=0x012e}
0x6b7e…6ba4 Head {h00=0x0022, h01=0x0050, text=» ADKL A12,1 COUNT INDEX FILES «, t00=0x0044, t01=0x014c}
0x6ba4…6bbc Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A6 «, t00=0x0044, t01=0x0172}
0x6bbc…6bdc Head {h00=0x001c, h01=0x0050, text=» ANK A2,/3F ORDER INDEX «, t00=0x0044, t01=0x018a}
0x6bdc…6bf0 Head {h00=0x0010, h01=0x0050, text=» SUK A2,QIRW«, t00=0x0045, t01=0x001a}
0x6bf0…6c1a Head {h00=0x0026, h01=0x0050, text=» RB(NE) CHK040 NOT INDEXED REWRITE«, t00=0x0045, t01=0x002e}
0x6c1a…6c40 Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBKA,A6 KEY START ADDR«, t00=0x0045, t01=0x0058}
0x6c40…6c52 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x0045, t01=0x007e}
0x6c52…6c78 Head {h00=0x0022, h01=0x0050, text=» AD A2,ECBBA,A9 KEY IN BUFFER «, t00=0x0045, t01=0x0090}
0x6c78…6c90 Head {h00=0x0014, h01=0x0050, text=» AD A3,FDBRRO,A1«, t00=0x0045, t01=0x00b6}
0x6c90…6cb0 Head {h00=0x001c, h01=0x0050, text=» ADR A3,A11 KEY IN FILE «, t00=0x0045, t01=0x00ce}
0x6cb0…6cc2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0045, t01=0x00ee}
0x6cc2…6ce8 Head {h00=0x0022, h01=0x0050, text=» LD A6,FDBRLE,A6 RECORD LENGTH«, t00=0x0045, t01=0x0100}
0x6ce8…6d04 Head {h00=0x0018, h01=0x0050, text=» SUK A6,6 KEY LENGTH«, t00=0x0045, t01=0x0126}
0x6d04…6d28 Head {h00=0x0020, h01=0x0050, text=» CF A14,CHKKEY COMPARE KEYS «, t00=0x0045, t01=0x0142}
0x6d28…6d3a Head {h00=0x000e, h01=0x0050, text=» CWR A6,A7«, t00=0x0045, t01=0x0166}
0x6d3a…6d68 Head {h00=0x002a, h01=0x0050, text=» RB(E) CHK040 KEY UNCHANGED CHECK NEXT«, t00=0x0045, t01=0x0178}
0x6d68…6d84 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0046, t01=0x0016}
0x6d84…6da8 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,/4000 KEY NOT FOUND«, t00=0x0046, t01=0x0032}
0x6da8…6dba Head {h00=0x000e, h01=0x0050, text=» RF DMERR «, t00=0x0046, t01=0x0056}
0x6dba…6dce Head {h00=0x0010, h01=0x0050, text=»CHK100 EQU *«, t00=0x0046, t01=0x0068}
0x6dce…6dea Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0046, t01=0x007c}
0x6dea…6e02 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0046, t01=0x0098}
0x6e02…6e22 Head {h00=0x001c, h01=0x0050, text=» ANK A7,/3F ORDER INDEX «, t00=0x0046, t01=0x00b0}
0x6e22…6e34 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0046, t01=0x00d0}
0x6e34…6e4c Head {h00=0x0014, h01=0x0050, text=» LC A2,FDBNIF,A6«, t00=0x0046, t01=0x00e2}
0x6e4c…6e60 Head {h00=0x0010, h01=0x0050, text=» CWR A2,A12 «, t00=0x0046, t01=0x00fa}
0x6e60…6e8c Head {h00=0x0028, h01=0x0050, text=» RF(E) DMT310 ALL INDEX IS EXISTING «, t00=0x0046, t01=0x010e}
0x6e8c…6eaa Head {h00=0x001a, h01=0x0050, text=» LDKL A1,/8000 REQ ERR«, t00=0x0046, t01=0x013a}
0x6eaa…6ebc Head {h00=0x000e, h01=0x0050, text=» RF DMERR «, t00=0x0046, t01=0x0158}
0x6ebc…6ee0 Head {h00=0x0020, h01=0x0050, text=»DMERND LDKL A1,/800 NO DATA «, t00=0x0046, t01=0x016a}
0x6ee0…6ef2 Head {h00=0x000e, h01=0x0050, text=» RF DMERR «, t00=0x0046, t01=0x018e}
0x6ef2…6efe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0010}
0x6efe…6f26 Head {h00=0x0024, h01=0x0050, text=»DMEAER LDKL A1,/2000 EA PROTECT «, t00=0x0047, t01=0x001c}
0x6f26…6f3e Head {h00=0x0014, h01=0x0050, text=»DMERR ABL DMTERR«, t00=0x0047, t01=0x0044}
0x6f3e…6f4c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x005c}
0x6f4c…6f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x006a}
0x6f56…6f6e Head {h00=0x0014, h01=0x0050, text=»* MOVE RECORD «, t00=0x0047, t01=0x0074}
0x6f6e…6f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x008c}
0x6f78…6f8c Head {h00=0x0010, h01=0x0050, text=»DMT310 EQU *«, t00=0x0047, t01=0x0096}
0x6f8c…6fa2 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0047, t01=0x00aa}
0x6fa2…6fb4 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0047, t01=0x00c0}
0x6fb4…6fc8 Head {h00=0x0010, h01=0x0050, text=» SUK A2,QDEL«, t00=0x0047, t01=0x00d2}
0x6fc8…6fee Head {h00=0x0022, h01=0x0050, text=» ABL(E) DMXDEL INDEXED DELETE «, t00=0x0047, t01=0x00e6}
0x6fee…6ffa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x010c}
0x6ffa…7020 Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBRLE,A6 RECORD LENGTH«, t00=0x0047, t01=0x0118}
0x7020…7038 Head {h00=0x0014, h01=0x0050, text=» LD A3,FDBRRO,A6«, t00=0x0047, t01=0x013e}
0x7038…7056 Head {h00=0x001a, h01=0x0050, text=» ADR A3,A11 TO ADDRESS«, t00=0x0047, t01=0x0156}
0x7056…7068 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A3«, t00=0x0047, t01=0x0174}
0x7068…708c Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBBA,A9 FROM ADDRESS«, t00=0x0047, t01=0x0186}
0x708c…709e Head {h00=0x000e, h01=0x0050, text=» XRR A4,A1«, t00=0x0048, t01=0x001a}
0x709e…70b2 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/01 «, t00=0x0048, t01=0x002c}
0x70b2…70de Head {h00=0x0028, h01=0x0050, text=» RF(E) DMT320 BOTH ODD OR BOTH EVEN «, t00=0x0048, t01=0x0040}
0x70de…7108 Head {h00=0x0026, h01=0x0050, text=» CF A14,DMTBM ONE ODD AND ONE EVEN«, t00=0x0048, t01=0x006c}
0x7108…711a Head {h00=0x000e, h01=0x0050, text=» RF DMT340«, t00=0x0048, t01=0x0096}
0x711a…7124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00a8}
0x7124…713c Head {h00=0x0014, h01=0x0050, text=»DMT320 LDR A4,A3«, t00=0x0048, t01=0x00b2}
0x713c…7150 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/01 «, t00=0x0048, t01=0x00ca}
0x7150…7170 Head {h00=0x001c, h01=0x0050, text=» RF(E) DMT330 BOTH EVEN «, t00=0x0048, t01=0x00de}
0x7170…718a Head {h00=0x0016, h01=0x0050, text=» SUK A2,1 BOTH ODD«, t00=0x0048, t01=0x00fe}
0x718a…719c Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0048, t01=0x0118}
0x719c…71ae Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x0048, t01=0x012a}
0x71ae…71c0 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0048, t01=0x013c}
0x71c0…71d2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0048, t01=0x014e}
0x71d2…71f8 Head {h00=0x0022, h01=0x0050, text=»DMT330 CF A14,DMTWM WORD MOVE «, t00=0x0048, t01=0x0160}
0x71f8…7202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0186}
0x7202…7216 Head {h00=0x0010, h01=0x0050, text=»DMT340 EQU *«, t00=0x0048, t01=0x0190}
0x7216…7220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0014}
0x7220…723c Head {h00=0x0018, h01=0x0050, text=»* SET STATUS USED «, t00=0x0049, t01=0x001e}
0x723c…7246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x003a}
0x7246…725a Head {h00=0x0010, h01=0x0050, text=» LDK A1,/FF «, t00=0x0049, t01=0x0044}
0x725a…7274 Head {h00=0x0016, h01=0x0050, text=»DMT350 SCR A1,A10 «, t00=0x0049, t01=0x0058}
0x7274…728c Head {h00=0x0014, h01=0x0050, text=» LD A3,FDBDBR,A6«, t00=0x0049, t01=0x0072}
0x728c…72ac Head {h00=0x001c, h01=0x0050, text=» RF(NN) DMT394 NO DELAY «, t00=0x0049, t01=0x008a}
0x72ac…72be Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0049, t01=0x00aa}
0x72be…72d2 Head {h00=0x0010, h01=0x0050, text=» SUK A2,QSW «, t00=0x0049, t01=0x00bc}
0x72d2…72f8 Head {h00=0x0022, h01=0x0050, text=» RF(E) DMT360 SEQUENTIAL WRITE«, t00=0x0049, t01=0x00d0}
0x72f8…730a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A7«, t00=0x0049, t01=0x00f6}
0x730a…731e Head {h00=0x0010, h01=0x0050, text=» SUK A2,QRWD«, t00=0x0049, t01=0x0108}
0x731e…7348 Head {h00=0x0026, h01=0x0050, text=» RF(E) DMT400 DELAYED RANDOM WRITE«, t00=0x0049, t01=0x011c}
0x7348…735c Head {h00=0x0010, h01=0x0050, text=» SUK A7,QRDD«, t00=0x0049, t01=0x0146}
0x735c…7388 Head {h00=0x0028, h01=0x0050, text=» RF(E) DMT400 DELAYED RANDOM DELETE «, t00=0x0049, t01=0x015a}
0x7388…739a Head {h00=0x000e, h01=0x0050, text=» RF DMT390«, t00=0x0049, t01=0x0186}
0x739a…73c2 Head {h00=0x0024, h01=0x0050, text=»* WRITE IF LAST REC IN SECTOR «, t00=0x004a, t01=0x0008}
0x73c2…73cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0030}
0x73cc…73ea Head {h00=0x001a, h01=0x0050, text=»DMT360 LD A4,FDBRRO,A6«, t00=0x004a, t01=0x003a}
0x73ea…7402 Head {h00=0x0014, h01=0x0050, text=» CW A4,FDBMRO,A6«, t00=0x004a, t01=0x0058}
0x7402…7428 Head {h00=0x0022, h01=0x0050, text=» RF(NE) DMT400 NOT LAST RECORD«, t00=0x004a, t01=0x0070}
0x7428…744e Head {h00=0x0022, h01=0x0050, text=»DMT390 LDK A7,/05 BASIC WRITE «, t00=0x004a, t01=0x0096}
0x744e…7460 Head {h00=0x000e, h01=0x0050, text=» SLL A3,1 «, t00=0x004a, t01=0x00bc}
0x7460…7482 Head {h00=0x001e, h01=0x0050, text=» RF(N) DMT395 BASIC WANTED«, t00=0x004a, t01=0x00ce}
0x7482…74aa Head {h00=0x0024, h01=0x0050, text=»DMT394 LDK A7,/15 PHYSICAL WRITE«, t00=0x004a, t01=0x00f0}
0x74aa…74be Head {h00=0x0010, h01=0x0050, text=»DMT395 EQU *«, t00=0x004a, t01=0x0118}
0x74be…74c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x012c}
0x74c8…74f4 Head {h00=0x0028, h01=0x0050, text=»* WRITE SECTOR ONTO DISC AND EXIT«, t00=0x004a, t01=0x0136}
0x74f4…74fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0162}
0x74fe…752a Head {h00=0x0028, h01=0x0050, text=» LDR A1,A6 FDB ADDRESS AS PARAMETER «, t00=0x004a, t01=0x016c}
0x752a…7536 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004b, t01=0x0008}
0x7536…755a Head {h00=0x0020, h01=0x0050, text=» DATA -1 I/O AND ACTIVATION «, t00=0x004b, t01=0x0014}
0x755a…7580 Head {h00=0x0022, h01=0x0050, text=» DATA DMTAR2 DMTASK RESTART #2«, t00=0x004b, t01=0x0038}
0x7580…758c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x004b, t01=0x005e}
0x758c…75a0 Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x004b, t01=0x006a}
0x75a0…75ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x007e}
0x75ae…75b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x008c}
0x75b8…75ce Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x004b, t01=0x0096}
0x75ce…75e4 Head {h00=0x0012, h01=0x0050, text=»* DMTAR2 *«, t00=0x004b, t01=0x00ac}
0x75e4…75fa Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x004b, t01=0x00c2}
0x75fa…7604 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d8}
0x7604…760e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00e2}
0x760e…763e Head {h00=0x002c, h01=0x0050, text=»DMTAR2 EQU * DMTASK RESTART AFTER WRITE «, t00=0x004b, t01=0x00ec}
0x763e…7648 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x011c}
0x7648…7664 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x004b, t01=0x0126}
0x7664…766e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0142}
0x766e…767a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x004b, t01=0x014c}
0x767a…7690 Head {h00=0x0012, h01=0x0050, text=» CF A15,GETA14«, t00=0x004b, t01=0x0158}
0x7690…769a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x016e}
0x769a…76c0 Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTIOT CHECK DISC I/O «, t00=0x004b, t01=0x0178}
0x76c0…76d2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x004c, t01=0x000e}
0x76d2…76e8 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DMTERR«, t00=0x004c, t01=0x0020}
0x76e8…76fe Head {h00=0x0012, h01=0x0050, text=» LDKL A1,/C0FF«, t00=0x004c, t01=0x0036}
0x76fe…7726 Head {h00=0x0024, h01=0x0050, text=» ANS A1,FDBDBR,A6 RELEASE BUFFER«, t00=0x004c, t01=0x004c}
0x7726…773a Head {h00=0x0010, h01=0x0050, text=»DMT400 EQU *«, t00=0x004c, t01=0x0074}
0x773a…7760 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A6 FDB ADDR DATA FILE «, t00=0x004c, t01=0x0088}
0x7760…777a Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A9 «, t00=0x004c, t01=0x00ae}
0x777a…778e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004c, t01=0x00c8}
0x778e…77b0 Head {h00=0x001e, h01=0x0050, text=» LD A3,ECBCW,A9 LOG REC NR«, t00=0x004c, t01=0x00dc}
0x77b0…77d2 Head {h00=0x001e, h01=0x0050, text=» LC A11,ECBFC,A9 FILE CODE«, t00=0x004c, t01=0x00fe}
0x77d2…77ea Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A1 «, t00=0x004c, t01=0x0120}
0x77ea…780a Head {h00=0x001c, h01=0x0050, text=» ANK A7,/3F ORDER INDEX «, t00=0x004c, t01=0x0138}
0x780a…781e Head {h00=0x0010, h01=0x0050, text=» LDK A4,QSW «, t00=0x004c, t01=0x0158}
0x781e…7830 Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004c, t01=0x016c}
0x7830…7850 Head {h00=0x001c, h01=0x0050, text=» RF(E) DMT460 SEQ WRITE «, t00=0x004c, t01=0x017e}
0x7850…7864 Head {h00=0x0010, h01=0x0050, text=» LDK A4,QRD «, t00=0x004d, t01=0x000e}
0x7864…7876 Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004d, t01=0x0022}
0x7876…7894 Head {h00=0x001a, h01=0x0050, text=» RF(E) DMT420 RAND DEL«, t00=0x004d, t01=0x0034}
0x7894…78a8 Head {h00=0x0010, h01=0x0050, text=» LDK A4,QRDD«, t00=0x004d, t01=0x0052}
0x78a8…78ba Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004d, t01=0x0066}
0x78ba…78e6 Head {h00=0x0028, h01=0x0050, text=» RF(E) DMT420 DELAYED RANDEOM DELETE«, t00=0x004d, t01=0x0078}
0x78e6…78fc Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x004d, t01=0x00a4}
0x78fc…7910 Head {h00=0x0010, h01=0x0050, text=» LDK A4,QDEL«, t00=0x004d, t01=0x00ba}
0x7910…7922 Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004d, t01=0x00ce}
0x7922…7946 Head {h00=0x0020, h01=0x0050, text=» RF(E) DMT420 INDEXED DELETE«, t00=0x004d, t01=0x00e0}
0x7946…7952 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004d, t01=0x0104}
0x7952…7978 Head {h00=0x0022, h01=0x0050, text=» LDR A5,A2 SAVE REC NO PART 1 «, t00=0x004d, t01=0x0110}
0x7978…798a Head {h00=0x000e, h01=0x0050, text=» LDR A9,A3«, t00=0x004d, t01=0x0136}
0x798a…7994 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0148}
0x7994…79aa Head {h00=0x0012, h01=0x0050, text=»* UPDATE CRN«, t00=0x004d, t01=0x0152}
0x79aa…79b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004d, t01=0x0168}
0x79b4…79da Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x004d, t01=0x0172}
0x79da…79fa Head {h00=0x001c, h01=0x0050, text=» LDR A10,A2 BUFFER ADDR «, t00=0x004e, t01=0x0008}
0x79fa…7a10 Head {h00=0x0012, h01=0x0050, text=» CM CRNCIF,A2 «, t00=0x004e, t01=0x0028}
0x7a10…7a2c Head {h00=0x0018, h01=0x0050, text=»* CLEAR INDEX CRN «, t00=0x004e, t01=0x003e}
0x7a2c…7a44 Head {h00=0x0014, h01=0x0050, text=» CM CRNCIF+2,A2 «, t00=0x004e, t01=0x005a}
0x7a44…7a56 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A5«, t00=0x004e, t01=0x0072}
0x7a56…7a68 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A9«, t00=0x004e, t01=0x0084}
0x7a68…7a82 Head {h00=0x0016, h01=0x0050, text=» ST A2,CRNCDF,A10 «, t00=0x004e, t01=0x0096}
0x7a82…7aac Head {h00=0x0026, h01=0x0050, text=» ST A3,CRNCDF+2,A10 CRN DATA FILE «, t00=0x004e, t01=0x00b0}
0x7aac…7ad6 Head {h00=0x0026, h01=0x0050, text=» SC A11,CRNCDF,A10 CRN FIL E CODE «, t00=0x004e, t01=0x00da}
0x7ad6…7aec Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x004e, t01=0x0104}
0x7aec…7b00 Head {h00=0x0010, h01=0x0050, text=» LDK A4,QINS«, t00=0x004e, t01=0x011a}
0x7b00…7b12 Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004e, t01=0x012e}
0x7b12…7b36 Head {h00=0x0020, h01=0x0050, text=» RF(E) DMT460 INDEXED INSERT«, t00=0x004e, t01=0x0140}
0x7b36…7b42 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004e, t01=0x0164}
0x7b42…7b56 Head {h00=0x0010, h01=0x0050, text=»DMT420 EQU *«, t00=0x004e, t01=0x0170}
0x7b56…7b6a Head {h00=0x0010, h01=0x0050, text=» LDK A4,QSR «, t00=0x004e, t01=0x0184}
0x7b6a…7b7c Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004f, t01=0x0008}
0x7b7c…7b9a Head {h00=0x001a, h01=0x0050, text=» RF(E) DMT450 SEQ READ«, t00=0x004f, t01=0x001a}
0x7b9a…7bae Head {h00=0x0010, h01=0x0050, text=» LDK A4,QRR «, t00=0x004f, t01=0x0038}
0x7bae…7bc0 Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004f, t01=0x004c}
0x7bc0…7be2 Head {h00=0x001e, h01=0x0050, text=» RF(E) DMT450 RANDOM READ «, t00=0x004f, t01=0x005e}
0x7be2…7bf8 Head {h00=0x0012, h01=0x0050, text=» LDK A4,QRRRB «, t00=0x004f, t01=0x0080}
0x7bf8…7c0a Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x004f, t01=0x0096}
0x7c0a…7c34 Head {h00=0x0026, h01=0x0050, text=» RF(E) DMT450 RAND READ REL BUFFER«, t00=0x004f, t01=0x00a8}
0x7c34…7c48 Head {h00=0x0010, h01=0x0050, text=»DMT440 EQU *«, t00=0x004f, t01=0x00d2}
0x7c48…7c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00e6}
0x7c52…7c68 Head {h00=0x0012, h01=0x0050, text=»* RELEASE EA«, t00=0x004f, t01=0x00f0}
0x7c68…7c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0106}
0x7c72…7c90 Head {h00=0x001a, h01=0x0050, text=» CF A14,EARELB REL EA «, t00=0x004f, t01=0x0110}
0x7c90…7ca2 Head {h00=0x000e, h01=0x0050, text=» RF DMTAEX«, t00=0x004f, t01=0x012e}
0x7ca2…7cb6 Head {h00=0x0010, h01=0x0050, text=»DMT450 EQU *«, t00=0x004f, t01=0x0140}
0x7cb6…7cd8 Head {h00=0x001e, h01=0x0050, text=» LC A4,DWTST,A1 DWTSTATUS «, t00=0x004f, t01=0x0154}
0x7cd8…7cf4 Head {h00=0x0018, h01=0x0050, text=» ANK A4,EABIT EA-BIT«, t00=0x004f, t01=0x0176}
0x7cf4…7d1e (80, 0, 400) Head {h00=0x0026, h01=0x0050, text=» RF(NZ) DMTAEX EA=1. NO EA WANTED «, t00=0x0050, t01=0x0004}
0x7d1e…7d28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x002e}
0x7d28…7d4e Head {h00=0x0022, h01=0x0050, text=»* CHECK IF EA IS SET ALREADY«, t00=0x0050, t01=0x0038}
0x7d4e…7d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x005e}
0x7d58…7d78 Head {h00=0x001c, h01=0x0050, text=» CF A14,EATEST CHECK EA «, t00=0x0050, t01=0x0068}
0x7d78…7d8a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A4«, t00=0x0050, t01=0x0088}
0x7d8a…7db0 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) DMTAEX EA ALREADY SET «, t00=0x0050, t01=0x009a}
0x7db0…7dba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00c0}
0x7dba…7dcc Head {h00=0x000e, h01=0x0050, text=»* SET EA«, t00=0x0050, t01=0x00ca}
0x7dcc…7dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00dc}
0x7dd6…7dec Head {h00=0x0012, h01=0x0050, text=» CF A14,EASETB«, t00=0x0050, t01=0x00e6}
0x7dec…7dfe Head {h00=0x000e, h01=0x0050, text=» RF DMTAEX«, t00=0x0050, t01=0x00fc}
0x7dfe…7e12 Head {h00=0x0010, h01=0x0050, text=»DMT460 EQU *«, t00=0x0050, t01=0x010e}
0x7e12…7e1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0122}
0x7e1c…7e32 Head {h00=0x0012, h01=0x0050, text=»* UPDATE LRN«, t00=0x0050, t01=0x012c}
0x7e32…7e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0142}
0x7e3c…7e54 Head {h00=0x0014, h01=0x0050, text=» SC A2,FDBLRN,A1«, t00=0x0050, t01=0x014c}
0x7e54…7e6e Head {h00=0x0016, h01=0x0050, text=» ST A3,FDBLRN+1,A1«, t00=0x0050, t01=0x0164}
0x7e6e…7e84 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0050, t01=0x017e}
0x7e84…7e98 (81, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDK A4,QINS«, t00=0x0051, t01=0x0004}
0x7e98…7eaa Head {h00=0x000e, h01=0x0050, text=» CWR A7,A4«, t00=0x0051, t01=0x0018}
0x7eaa…7ed0 Head {h00=0x0022, h01=0x0050, text=» ABL(E) DMINS2 INDEXED INSERT «, t00=0x0051, t01=0x002a}
0x7ed0…7edc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0051, t01=0x0050}
0x7edc…7eea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x005c}
0x7eea…7f10 Head {h00=0x0022, h01=0x0050, text=»DMTAEX LDK A1,0 CORRECT RETURN«, t00=0x0051, t01=0x006a}
0x7f10…7f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0090}
0x7f1a…7f38 Head {h00=0x001a, h01=0x0050, text=»DMTERR LD A3,FDBDBR,A6«, t00=0x0051, t01=0x009a}
0x7f38…7f58 Head {h00=0x001c, h01=0x0050, text=» RF(NN) DMTEX1 NOT DELAY«, t00=0x0051, t01=0x00b8}
0x7f58…7f6e Head {h00=0x0012, h01=0x0050, text=» ANKL A3,/3F00«, t00=0x0051, t01=0x00d8}
0x7f6e…7f9a Head {h00=0x0028, h01=0x0050, text=» RF(NZ) DMTERX NO RELEASE OF BUFFER «, t00=0x0051, t01=0x00ee}
0x7f9a…7fb8 Head {h00=0x001a, h01=0x0050, text=»DMTEX1 LD A3,ECBBA,A8 «, t00=0x0051, t01=0x011a}
0x7fb8…7fca Head {h00=0x000e, h01=0x0050, text=» SUK A3,8 «, t00=0x0051, t01=0x0138}
0x7fca…7fde Head {h00=0x0010, h01=0x0050, text=»DMTEX2 EQU *«, t00=0x0051, t01=0x014a}
0x7fde…800a Head {h00=0x0028, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER AT A3 «, t00=0x0051, t01=0x015e}
0x800a…801e Head {h00=0x0010, h01=0x0050, text=»DMTERX EQU *«, t00=0x0051, t01=0x018a}
0x801e…802a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0052, t01=0x000e}
0x802a…8044 Head {h00=0x0016, h01=0x0050, text=»* A1 = RET CODE «, t00=0x0052, t01=0x001a}
0x8044…805e Head {h00=0x0016, h01=0x0050, text=»* A6 = DWT ADDR «, t00=0x0052, t01=0x0034}
0x805e…8074 Head {h00=0x0012, h01=0x0050, text=» CF A15,TENDIO«, t00=0x0052, t01=0x004e}
0x8074…8080 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0052, t01=0x0064}
0x8080…8092 Head {h00=0x000e, h01=0x0050, text=»EXIT EQU *«, t00=0x0052, t01=0x0070}
0x8092…809e Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0052, t01=0x0082}
0x809e…80ae Head {h00=0x000c, h01=0x0050, text=» DATA 3 «, t00=0x0052, t01=0x008e}
0x80ae…80c4 Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0052, t01=0x009e}
0x80c4…80d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x00b4}
0x80d2…80e6 Head {h00=0x0010, h01=0x0050, text=»DMIRR EQU * «, t00=0x0052, t01=0x00c2}
0x80e6…8106 Head {h00=0x001c, h01=0x0050, text=»* INDEXED RANDOM READ «, t00=0x0052, t01=0x00d6}
0x8106…813c Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0052, t01=0x00f6}
0x813c…8162 Head {h00=0x0022, h01=0x0050, text=» LD A9,DWTECB,A1 USER ECB ADDR«, t00=0x0052, t01=0x012c}
0x8162…8186 Head {h00=0x0020, h01=0x0050, text=» LD A8,ECBCW,A9 ADDR OF KEY «, t00=0x0052, t01=0x0152}
0x8186…819a Head {h00=0x0010, h01=0x0050, text=» SUR A11,A11«, t00=0x0052, t01=0x0176}
0x819a…81c0 Head {h00=0x0022, h01=0x0050, text=» LC A11,ECBCW+3,A9 NO OF CHAR «, t00=0x0052, t01=0x018a}
0x81c0…81d8 Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBRLE,A1«, t00=0x0053, t01=0x0020}
0x81d8…81f8 Head {h00=0x001c, h01=0x0050, text=» SUK A2,6 MAX KEY LENGTH«, t00=0x0053, t01=0x0038}
0x81f8…820c Head {h00=0x0010, h01=0x0050, text=» CWR A11,A2 «, t00=0x0053, t01=0x0058}
0x820c…823c Head {h00=0x002c, h01=0x0050, text=» RF(NP) DMR005 NOT TOO LARGE KEY WANTED «, t00=0x0053, t01=0x006c}
0x823c…8258 Head {h00=0x0018, h01=0x0050, text=» LDR A11,A2 MAX KEY «, t00=0x0053, t01=0x009c}
0x8258…826c Head {h00=0x0010, h01=0x0050, text=»DMR005 EQU *«, t00=0x0053, t01=0x00b8}
0x826c…8280 Head {h00=0x0010, h01=0x0050, text=» LDR A13,A1 «, t00=0x0053, t01=0x00cc}
0x8280…82a2 Head {h00=0x001e, h01=0x0050, text=» ADKL A13,FDBECB ECB ADDR «, t00=0x0053, t01=0x00e0}
0x82a2…82ca Head {h00=0x0024, h01=0x0050, text=» CF A14,FNDKEY GET INDEX RECORD «, t00=0x0053, t01=0x0102}
0x82ca…82f6 Head {h00=0x0028, h01=0x0050, text=»DMR006 EQU * FROM INDEXED READ NEXT «, t00=0x0053, t01=0x012a}
0x82f6…830e Head {h00=0x0014, h01=0x0050, text=» LD A9,DWTECB,A1«, t00=0x0053, t01=0x0156}
0x830e…8328 Head {h00=0x0016, h01=0x0050, text=» LDR A6,A1 FDB ADR«, t00=0x0053, t01=0x016e}
0x8328…8340 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,FDBECB «, t00=0x0053, t01=0x0188}
0x8340…835e Head {h00=0x001a, h01=0x0050, text=» ADR A8,A6 ECB ADDRESS«, t00=0x0054, t01=0x0010}
0x835e…837c Head {h00=0x001a, h01=0x0050, text=» LDR A2,A2 RETURN CODE«, t00=0x0054, t01=0x002e}
0x837c…83a0 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) DMI030 KEY NOT FOUND«, t00=0x0054, t01=0x004c}
0x83a0…83aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0070}
0x83aa…83c6 Head {h00=0x0018, h01=0x0050, text=»* KEY RECORD FOUN «, t00=0x0054, t01=0x007a}
0x83c6…83f8 Head {h00=0x002e, h01=0x0050, text=»* CHECK IF NEXT RECORD HAS THE SAME KEY «, t00=0x0054, t01=0x0096}
0x83f8…8402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00c8}
0x8402…8428 Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBRRO,A1 RECORD OFFSET«, t00=0x0054, t01=0x00d2}
0x8428…8448 Head {h00=0x001c, h01=0x0050, text=» ADK A2,10 BUFFER HEADER«, t00=0x0054, t01=0x00f8}
0x8448…8464 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A3 REC ADDR «, t00=0x0054, t01=0x0118}
0x8464…8488 Head {h00=0x0020, h01=0x0050, text=» LD A4,FDBRLE,A1 REC LENGTH «, t00=0x0054, t01=0x0134}
0x8488…84a4 Head {h00=0x0018, h01=0x0050, text=» SUK A4,6 KEY LENGTH«, t00=0x0054, t01=0x0158}
0x84a4…84b6 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0054, t01=0x0174}
0x84b6…84dc Head {h00=0x0022, h01=0x0050, text=» CC A4,2,A2 DUPLICATE KEY CHAR«, t00=0x0054, t01=0x0186}
0x84dc…8504 Head {h00=0x0024, h01=0x0050, text=» RF(NE) DMR020 NEXT KEY NOT SAME«, t00=0x0055, t01=0x001c}
0x8504…8520 Head {h00=0x0018, h01=0x0050, text=» LDKL A5,/200 BIT 6 «, t00=0x0055, t01=0x0044}
0x8520…8546 Head {h00=0x0022, h01=0x0050, text=» ORS A5,ECBRC,A9 NEXT KEY SAME«, t00=0x0055, t01=0x0060}
0x8546…855a Head {h00=0x0010, h01=0x0050, text=»DMR020 EQU *«, t00=0x0055, t01=0x0086}
0x855a…8564 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x009a}
0x8564…8586 Head {h00=0x001e, h01=0x0050, text=»* MOVE LOG REC NO TO ECB«, t00=0x0055, t01=0x00a4}
0x8586…8590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x00c6}
0x8590…85a2 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x0055, t01=0x00d0}
0x85a2…85b6 Head {h00=0x0010, h01=0x0050, text=» LC A5,3,A2 «, t00=0x0055, t01=0x00e2}
0x85b6…85d0 Head {h00=0x0016, h01=0x0050, text=» SC A5,ECBCW+3,A8 «, t00=0x0055, t01=0x00f6}
0x85d0…85e4 Head {h00=0x0010, h01=0x0050, text=» LC A5,4,A2 «, t00=0x0055, t01=0x0110}
0x85e4…85f6 Head {h00=0x000e, h01=0x0050, text=» ECR A5,A5«, t00=0x0055, t01=0x0124}
0x85f6…860a Head {h00=0x0010, h01=0x0050, text=» LC A5,5,A2 «, t00=0x0055, t01=0x0136}
0x860a…8622 Head {h00=0x0014, h01=0x0050, text=» ST A5,ECBCW,A8 «, t00=0x0055, t01=0x014a}
0x8622…862c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x0162}
0x862c…864c Head {h00=0x001c, h01=0x0050, text=»* RELEASE BLOCK BUFFER«, t00=0x0055, t01=0x016c}
0x864c…8656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0055, t01=0x018c}
0x8656…866c Head {h00=0x0012, h01=0x0050, text=» CF A14,DMTRBU«, t00=0x0056, t01=0x0008}
0x866c…867a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0056, t01=0x001e}
0x867a…8684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x002c}
0x8684…86b8 Head {h00=0x0030, h01=0x0050, text=»* PERFORM RANDOM READ ON THOIS DATA RECORD«, t00=0x0056, t01=0x0036}
0x86b8…86c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x006a}
0x86c2…86de Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0056, t01=0x0074}
0x86de…8704 Head {h00=0x0022, h01=0x0050, text=» LC A2,DWTST,A6 USER REQUESRT «, t00=0x0056, t01=0x0090}
0x8704…8724 Head {h00=0x001c, h01=0x0050, text=» ANK A2,EABIT GET EA BIT«, t00=0x0056, t01=0x00b6}
0x8724…8736 Head {h00=0x000e, h01=0x0050, text=» SLL A2,1 «, t00=0x0056, t01=0x00d6}
0x8736…875c Head {h00=0x0022, h01=0x0050, text=» LDK A7,/A RANDOM READ NO WAIT«, t00=0x0056, t01=0x00e8}
0x875c…8776 Head {h00=0x0016, h01=0x0050, text=» ORR A7,A2 EA BIT «, t00=0x0056, t01=0x010e}
0x8776…8780 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x0128}
0x8780…879a Head {h00=0x0016, h01=0x0050, text=»* MOVE USER ECB «, t00=0x0056, t01=0x0132}
0x879a…87a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0056, t01=0x014c}
0x87a4…87c4 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A9 FROM ECB ADDR«, t00=0x0056, t01=0x0156}
0x87c4…87e2 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A8 TO ECB ADDR«, t00=0x0056, t01=0x0176}
0x87e2…87fe (87, 0, 400) Head {h00=0x0018, h01=0x0050, text=» LDK A2,6 NO OF CHAR«, t00=0x0057, t01=0x0004}
0x87fe…881c Head {h00=0x001a, h01=0x0050, text=» CF A14,DMTWM MOVE ECB«, t00=0x0057, t01=0x0020}
0x881c…8838 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0057, t01=0x003e}
0x8838…8844 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0057, t01=0x005a}
0x8844…8854 Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0057, t01=0x0066}
0x8854…8868 Head {h00=0x0010, h01=0x0050, text=» DATA DMTAR4«, t00=0x0057, t01=0x0076}
0x8868…8880 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBRC,A8 «, t00=0x0057, t01=0x008a}
0x8880…889e Head {h00=0x001a, h01=0x0050, text=» RF(N) DMTAR4 REQ ERR «, t00=0x0057, t01=0x00a2}
0x889e…88aa Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0057, t01=0x00c0}
0x88aa…88be Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0057, t01=0x00cc}
0x88be…88d2 Head {h00=0x0010, h01=0x0050, text=»DMTAR4 EQU *«, t00=0x0057, t01=0x00e0}
0x88d2…88dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x00f4}
0x88dc…88f8 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x0057, t01=0x00fe}
0x88f8…8902 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0057, t01=0x011a}
0x8902…890e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0057, t01=0x0124}
0x890e…8924 Head {h00=0x0012, h01=0x0050, text=» CF A15,GETA14«, t00=0x0057, t01=0x0130}
0x8924…8936 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x0057, t01=0x0146}
0x8936…894e Head {h00=0x0014, h01=0x0050, text=» LDKL A8,FDBECB «, t00=0x0057, t01=0x0158}
0x894e…8968 Head {h00=0x0016, h01=0x0050, text=» ADR A8,A6 RR ECB «, t00=0x0057, t01=0x0170}
0x8968…898a Head {h00=0x001e, h01=0x0050, text=» LD A9,DWTECB,A6 USER ECB «, t00=0x0057, t01=0x018a}
0x898a…89a2 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0058, t01=0x001c}
0x89a2…89cc Head {h00=0x0026, h01=0x0050, text=» ORS A1,ECBRC,A9 RET CODE TO USER «, t00=0x0058, t01=0x0034}
0x89cc…8a02 Head {h00=0x0032, h01=0x0050, text=» ANKL A1,/EEF7 BIT 3,7 AND 12 NOT GRAVE ERROR «, t00=0x0058, t01=0x005e}
0x8a02…8a20 Head {h00=0x001a, h01=0x0050, text=» RB(NZ) DMTERX NOT OK «, t00=0x0058, t01=0x0094}
0x8a20…8a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00b2}
0x8a2a…8a4c Head {h00=0x001e, h01=0x0050, text=»* SET CRN FOR INDEX FILE«, t00=0x0058, t01=0x00bc}
0x8a4c…8a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0058, t01=0x00de}
0x8a56…8a82 Head {h00=0x0028, h01=0x0050, text=» LD A1,FDBADF,A6 FDB ADDR DATA FILEP«, t00=0x0058, t01=0x00e8}
0x8a82…8aac Head {h00=0x0026, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER ADDR«, t00=0x0058, t01=0x0114}
0x8aac…8ad0 Head {h00=0x0020, h01=0x0050, text=» LDR A10,A2 CRN BUFFER ADDR «, t00=0x0058, t01=0x013e}
0x8ad0…8af6 Head {h00=0x0022, h01=0x0050, text=» LDR A1,A6 FDB ADDR INDEX FILE«, t00=0x0058, t01=0x0162}
0x8af6…8b22 Head {h00=0x0028, h01=0x0050, text=» CF A14,GTLGRN GET INDE X LOG REC NO«, t00=0x0058, t01=0x0188}
0x8b22…8b3e Head {h00=0x0018, h01=0x0050, text=» SC A2,CRNCIF+1,A10 «, t00=0x0059, t01=0x0024}
0x8b3e…8b68 Head {h00=0x0026, h01=0x0050, text=» ST A3,CRNCIF+2,A10 CRN INDEX FILE«, t00=0x0059, t01=0x0040}
0x8b68…8b80 Head {h00=0x0014, h01=0x0050, text=» LC A2,ECBFC,A9 «, t00=0x0059, t01=0x006a}
0x8b80…8b9a Head {h00=0x0016, h01=0x0050, text=» SC A2,CRNCIF,A10 «, t00=0x0059, t01=0x0082}
0x8b9a…8bbc Head {h00=0x001e, h01=0x0050, text=»* THAT WAS FILE CODE CRN«, t00=0x0059, t01=0x009c}
0x8bbc…8bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00be}
0x8bc6…8be4 Head {h00=0x001a, h01=0x0050, text=»* SET RERTURN CODEXS«, t00=0x0059, t01=0x00c8}
0x8be4…8bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0059, t01=0x00e6}
0x8bee…8c16 Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBEL,A8 EFFECTIVE LENGTH«, t00=0x0059, t01=0x00f0}
0x8c16…8c2e Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBEL,A9 «, t00=0x0059, t01=0x0118}
0x8c2e…8c4c Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0059, t01=0x0130}
0x8c4c…8c66 Head {h00=0x0016, h01=0x0050, text=» ABL DMTERX TENDIO«, t00=0x0059, t01=0x014e}
0x8c66…8c74 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0059, t01=0x0168}
0x8c74…8c9a Head {h00=0x0022, h01=0x0050, text=»DMIRN EQU * INDEXED READ NEXT «, t00=0x0059, t01=0x0176}
0x8c9a…8cd0 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x005a, t01=0x000c}
0x8cd0…8cec Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB INDEX«, t00=0x005a, t01=0x0042}
0x8cec…8d12 Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBRRO,A1 RECORD OFFSET«, t00=0x005a, t01=0x005e}
0x8d12…8d24 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A5«, t00=0x005a, t01=0x0084}
0x8d24…8d42 Head {h00=0x001a, h01=0x0050, text=» SUK A3,10 BUFFER ADDR«, t00=0x005a, t01=0x0096}
0x8d42…8d56 Head {h00=0x0010, h01=0x0050, text=»DMI100 EQU *«, t00=0x005a, t01=0x00b4}
0x8d56…8d70 Head {h00=0x0016, h01=0x0050, text=» ADR A2,A3 BUFFADR«, t00=0x005a, t01=0x00c8}
0x8d70…8d8e Head {h00=0x001a, h01=0x0050, text=» ADK A2,10 RECORD ADDR«, t00=0x005a, t01=0x00e2}
0x8d8e…8dba Head {h00=0x0028, h01=0x0050, text=» AD A2,FDBRLE,A1 ADDR OF STATUS CHAR«, t00=0x005a, t01=0x0100}
0x8dba…8dd8 Head {h00=0x001a, h01=0x0050, text=» LDK A5,/FF USED MARK «, t00=0x005a, t01=0x012c}
0x8dd8…8df2 Head {h00=0x0016, h01=0x0050, text=» CCR A5,A2 STATUS «, t00=0x005a, t01=0x014a}
0x8df2…8e0c Head {h00=0x0016, h01=0x0050, text=» RF(E) DMI120 USED«, t00=0x005a, t01=0x0164}
0x8e0c…8e24 Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBMRO,A1«, t00=0x005a, t01=0x017e}
0x8e24…8e4e Head {h00=0x0026, h01=0x0050, text=» ST A4,FDBRRO,A1 LAST REC IN SECT «, t00=0x005b, t01=0x0008}
0x8e4e…8e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x0032}
0x8e58…8e78 Head {h00=0x001c, h01=0x0050, text=»* CHECK IF END OF FILE«, t00=0x005b, t01=0x003c}
0x8e78…8e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005b, t01=0x005c}
0x8e82…8e9a Head {h00=0x0014, h01=0x0050, text=» LDR A9,A3 SAVE «, t00=0x005b, t01=0x0066}
0x8e9a…8ebc Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x005b, t01=0x007e}
0x8ebc…8ed4 Head {h00=0x0014, h01=0x0050, text=» CC A2,FDBLRN,A1«, t00=0x005b, t01=0x00a0}
0x8ed4…8ef2 Head {h00=0x001a, h01=0x0050, text=» RF(L) DMI106 NOT EOF «, t00=0x005b, t01=0x00b8}
0x8ef2…8f0c Head {h00=0x0016, h01=0x0050, text=» RF(G) DMI105 EOF «, t00=0x005b, t01=0x00d6}
0x8f0c…8f26 Head {h00=0x0016, h01=0x0050, text=» CW A3,FDBLRN+1,A1«, t00=0x005b, t01=0x00f0}
0x8f26…8f44 Head {h00=0x001a, h01=0x0050, text=» RF(L) DMI106 NOT EOF «, t00=0x005b, t01=0x010a}
0x8f44…8f5c Head {h00=0x0014, h01=0x0050, text=»DMI105 LDR A3,A9«, t00=0x005b, t01=0x0128}
0x8f5c…8f72 Head {h00=0x0012, h01=0x0050, text=» RF DMI030 EOF«, t00=0x005b, t01=0x0140}
0x8f72…8f92 Head {h00=0x001c, h01=0x0050, text=»DMI106 LDR A3,A9 RESTORE«, t00=0x005b, t01=0x0156}
0x8f92…8fae Head {h00=0x0018, h01=0x0050, text=» RF DMI010 NEXT REC «, t00=0x005b, t01=0x0176}
0x8fae…8fc4 (92, 0, 400) Head {h00=0x0012, h01=0x0050, text=»DMI120 EQU * «, t00=0x005c, t01=0x0004}
0x8fc4…8fe6 Head {h00=0x001e, h01=0x0050, text=»* INDEX RECORD IS FOUND «, t00=0x005c, t01=0x001a}
0x8fe6…8ff0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005c, t01=0x003c}
0x8ff0…900c Head {h00=0x0018, h01=0x0050, text=» LDK A2,0 MARK FOUND«, t00=0x005c, t01=0x0046}
0x900c…903e Head {h00=0x002e, h01=0x0050, text=» ABL DMR006 CONT AS FOR INDEXED RAND READ «, t00=0x005c, t01=0x0062}
0x903e…9052 Head {h00=0x0010, h01=0x0050, text=»DMI010 EQU *«, t00=0x005c, t01=0x0094}
0x9052…907e Head {h00=0x0028, h01=0x0050, text=» CF A14,RDNXTR GET NEXT INDEX RECORD«, t00=0x005c, t01=0x00a8}
0x907e…909e Head {h00=0x001c, h01=0x0050, text=» RB DMI100 RECORD FOUND «, t00=0x005c, t01=0x00d4}
0x909e…90ba Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x005c, t01=0x00f4}
0x90ba…90e4 Head {h00=0x0026, h01=0x0050, text=»DMI030 LDKL A1,/4000 KEY NOT FOUND«, t00=0x005c, t01=0x0110}
0x90e4…90f8 Head {h00=0x0010, h01=0x0050, text=»DMI035 EQU *«, t00=0x005c, t01=0x013a}
0x90f8…9116 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 BUFFER ADDR«, t00=0x005c, t01=0x014e}
0x9116…9136 Head {h00=0x001c, h01=0x0050, text=» ABL(Z) DMTERX NO BUFFER«, t00=0x005c, t01=0x016c}
0x9136…915a Head {h00=0x0020, h01=0x0050, text=» ABL DMTERR ERROR AND BUFFER«, t00=0x005c, t01=0x018c}
0x915a…9168 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x005d, t01=0x0020}
0x9168…9172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x002e}
0x9172…919c Head {h00=0x0026, h01=0x0050, text=»DMINS2 EQU * INDEXED INSERT PART 2«, t00=0x005d, t01=0x0038}
0x919c…91a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005d, t01=0x0062}
0x91a6…91dc Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x005d, t01=0x006c}
0x91dc…91ee Head {h00=0x000e, h01=0x0050, text=» ENB ENB«, t00=0x005d, t01=0x00a2}
0x91ee…9206 Head {h00=0x0014, h01=0x0050, text=» LD A3,ECBBA,A8 «, t00=0x005d, t01=0x00b4}
0x9206…921e Head {h00=0x0014, h01=0x0050, text=» SUK A3,8 BUFSTA«, t00=0x005d, t01=0x00cc}
0x921e…9244 Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x005d, t01=0x00e4}
0x9244…9268 Head {h00=0x0020, h01=0x0050, text=»DMXDEL EQU * INDEXED DELETE «, t00=0x005d, t01=0x010a}
0x9268…92a2 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x005d, t01=0x012e}
0x92a2…92c0 Head {h00=0x001a, h01=0x0050, text=» LDR A11,A7 ORDER CODE«, t00=0x005d, t01=0x0168}
0x92c0…92e2 Head {h00=0x001e, h01=0x0050, text=» LDR A12,A8 PHYS ECB ADDR «, t00=0x005d, t01=0x0186}
0x92e2…92f4 Head {h00=0x000e, h01=0x0050, text=» LDK A5,0 «, t00=0x005e, t01=0x0018}
0x92f4…9326 Head {h00=0x002e, h01=0x0050, text=» SC A5,FDBDBR,A1 ZEROE INDEX FILE COUNTER «, t00=0x005e, t01=0x002a}
0x9326…9348 Head {h00=0x001e, h01=0x0050, text=» LDK A5,8 NR OF INDEX * 2 «, t00=0x005e, t01=0x005c}
0x9348…9364 Head {h00=0x0018, h01=0x0050, text=» LDR A10,A1 FDB DATA«, t00=0x005e, t01=0x007e}
0x9364…937c Head {h00=0x0014, h01=0x0050, text=»DXI020 SUK A5,2 «, t00=0x005e, t01=0x009a}
0x937c…939e Head {h00=0x001e, h01=0x0050, text=» RF(N) DXI100 ALL INDEXES «, t00=0x005e, t01=0x00b2}
0x939e…93b2 Head {h00=0x0010, h01=0x0050, text=» LDR A6,A10 «, t00=0x005e, t01=0x00d4}
0x93b2…93c4 Head {h00=0x000e, h01=0x0050, text=» ADR A6,A5«, t00=0x005e, t01=0x00e8}
0x93c4…93f0 Head {h00=0x0028, h01=0x0050, text=» LD A1,FDBAI1,A6 FDB ADDR INDEX FILE«, t00=0x005e, t01=0x00fa}
0x93f0…940e Head {h00=0x001a, h01=0x0050, text=» RB(Z) DXI020 NO INDEX«, t00=0x005e, t01=0x0126}
0x940e…9418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x0144}
0x9418…9444 Head {h00=0x0028, h01=0x0050, text=»* GET FILE CODE FOR THIS FDB ADDR «, t00=0x005e, t01=0x014e}
0x9444…944e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005e, t01=0x017a}
0x944e…9464 Head {h00=0x0012, h01=0x0050, text=» LD* A6,CDTAB «, t00=0x005e, t01=0x0184}
0x9464…947c Head {h00=0x0014, h01=0x0050, text=»DXI030 SUK A6,4 «, t00=0x005f, t01=0x000a}
0x947c…9490 Head {h00=0x0010, h01=0x0050, text=» LD A7,CDTAB«, t00=0x005f, t01=0x0022}
0x9490…94a2 Head {h00=0x000e, h01=0x0050, text=» ADR A7,A6«, t00=0x005f, t01=0x0036}
0x94a2…94b6 Head {h00=0x0010, h01=0x0050, text=» CW A1,2,A7 «, t00=0x005f, t01=0x0048}
0x94b6…94d8 Head {h00=0x001e, h01=0x0050, text=» RB(NE) DXI030 SEARCH NEXT«, t00=0x005f, t01=0x005c}
0x94d8…94f4 Head {h00=0x0018, h01=0x0050, text=» LDR A8,A1 FDB INDEX«, t00=0x005f, t01=0x007e}
0x94f4…9514 Head {h00=0x001c, h01=0x0050, text=» ADKL A8,FDBECB ECB ADDR«, t00=0x005f, t01=0x009a}
0x9514…9528 Head {h00=0x0010, h01=0x0050, text=» LC A6,1,A7 «, t00=0x005f, t01=0x00ba}
0x9528…954a Head {h00=0x001e, h01=0x0050, text=» SC A6,ECBFC,A8 INDEX FILE«, t00=0x005f, t01=0x00ce}
0x954a…955e Head {h00=0x0010, h01=0x0050, text=» LDR A6,A11 «, t00=0x005f, t01=0x00f0}
0x955e…9572 Head {h00=0x0010, h01=0x0050, text=» SUK A6,QINS«, t00=0x005f, t01=0x0104}
0x9572…9596 Head {h00=0x0020, h01=0x0050, text=» RF(E) DXI080 INDEXED DELETE«, t00=0x005f, t01=0x0118}
0x9596…95a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x013c}
0x95a0…95c8 Head {h00=0x0024, h01=0x0050, text=»* GET ADDRESSS OF DATA RECORD «, t00=0x005f, t01=0x0146}
0x95c8…95d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x005f, t01=0x016e}
0x95d2…95f6 Head {h00=0x0020, h01=0x0050, text=» LD A6,ECBBA,A12 SECTOR ADDR«, t00=0x005f, t01=0x0178}
0x95f6…960e Head {h00=0x0014, h01=0x0050, text=» ADK A6,2 CYLID «, t00=0x0060, t01=0x000c}
0x960e…9636 Head {h00=0x0024, h01=0x0050, text=» AD A6,FDBRRO,A10 ADDR DATA REC «, t00=0x0060, t01=0x0024}
0x9636…965e Head {h00=0x0024, h01=0x0050, text=» LDK A7,/20 DELETE INDEX NOWAIT «, t00=0x0060, t01=0x004c}
0x965e…9670 Head {h00=0x000e, h01=0x0050, text=» RF DXI090«, t00=0x0060, t01=0x0074}
0x9670…9684 Head {h00=0x0010, h01=0x0050, text=»DXI080 EQU *«, t00=0x0060, t01=0x0086}
0x9684…96ac Head {h00=0x0024, h01=0x0050, text=» LD A9,DWTECB,A10 USER ECB ADDR «, t00=0x0060, t01=0x009a}
0x96ac…96d4 Head {h00=0x0024, h01=0x0050, text=» LD A6,ECBBA,A9 USER BUFFER ADDR«, t00=0x0060, t01=0x00c2}
0x96d4…96fc Head {h00=0x0024, h01=0x0050, text=» LDK A7,/1F INSERT INDEX NOWAIT «, t00=0x0060, t01=0x00ea}
0x96fc…9710 Head {h00=0x0010, h01=0x0050, text=»DXI090 EQU *«, t00=0x0060, t01=0x0112}
0x9710…9728 Head {h00=0x0014, h01=0x0050, text=» ST A6,ECBBA,A8 «, t00=0x0060, t01=0x0126}
0x9728…974e Head {h00=0x0022, h01=0x0050, text=»* A1 = FDB ADDR IN DE XFILE «, t00=0x0060, t01=0x013e}
0x974e…975c Head {h00=0x000a, h01=0x0050, text=» LKM «, t00=0x0060, t01=0x0164}
0x975c…976c Head {h00=0x000c, h01=0x0050, text=» DATA -1«, t00=0x0060, t01=0x0172}
0x976c…9780 Head {h00=0x0010, h01=0x0050, text=» DATA DMTAR5«, t00=0x0060, t01=0x0182}
0x9780…9798 Head {h00=0x0014, h01=0x0050, text=» LD A7,ECBRC,A8 «, t00=0x0061, t01=0x0008}
0x9798…97b6 Head {h00=0x001a, h01=0x0050, text=» RF(N) DMTAR5 REQ ERR «, t00=0x0061, t01=0x0020}
0x97b6…97da Head {h00=0x0020, h01=0x0050, text=» RB DXI020 NEXT INDEX DIRECT«, t00=0x0061, t01=0x003e}
0x97da…97ec Head {h00=0x000e, h01=0x0050, text=»DXI100 LKM«, t00=0x0061, t01=0x0062}
0x97ec…9800 Head {h00=0x0010, h01=0x0050, text=» DATA 3 EXIT«, t00=0x0061, t01=0x0074}
0x9800…9814 Head {h00=0x0010, h01=0x0050, text=»DMTAR5 EQU *«, t00=0x0061, t01=0x0088}
0x9814…983a Head {h00=0x0022, h01=0x0050, text=» LD A6,FDBADF,A1 FDB DATA FILE«, t00=0x0061, t01=0x009c}
0x983a…985c Head {h00=0x001e, h01=0x0050, text=» LD A9,DWTECB,A6 USER ECB «, t00=0x0061, t01=0x00c2}
0x985c…9874 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,FDBECB «, t00=0x0061, t01=0x00e4}
0x9874…9898 Head {h00=0x0020, h01=0x0050, text=» ADR A1,A8 ECB INSERT INDEX «, t00=0x0061, t01=0x00fc}
0x9898…98b6 Head {h00=0x001a, h01=0x0050, text=» ADR A8,A6 ECB DISC IO«, t00=0x0061, t01=0x0120}
0x98b6…98ee Head {h00=0x0034, h01=0x0050, text=» LD A1,ECBRC,A1 RET CODE BIT 10 AND 14 POSSIBLE «, t00=0x0061, t01=0x013e}
0x98ee…9912 Head {h00=0x0020, h01=0x0050, text=» ORS A1,ECBRC,A9 RC TO USER «, t00=0x0061, t01=0x0176}
0x9912…9930 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0062, t01=0x000a}
0x9930…995a Head {h00=0x0026, h01=0x0050, text=» LC A2,FDBDBR,A6 NR OF READY INDEX«, t00=0x0062, t01=0x0028}
0x995a…997a Head {h00=0x001c, h01=0x0050, text=» ADK A2,1 COUNT INDEXES «, t00=0x0062, t01=0x0052}
0x997a…99a2 Head {h00=0x0024, h01=0x0050, text=» CC A2,FDBNIF,A6 TOT NR OF INDEX«, t00=0x0062, t01=0x0072}
0x99a2…99b8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) DXI200«, t00=0x0062, t01=0x009a}
0x99b8…99d0 Head {h00=0x0014, h01=0x0050, text=» LD A7,DWTOR,A6 «, t00=0x0062, t01=0x00b0}
0x99d0…99ee Head {h00=0x001a, h01=0x0050, text=» ANK A7,/3F ORDER CODE«, t00=0x0062, t01=0x00c8}
0x99ee…9a12 Head {h00=0x0020, h01=0x0050, text=» SUK A7,QINS INDEXED INSERT «, t00=0x0062, t01=0x00e6}
0x9a12…9a2e Head {h00=0x0018, h01=0x0050, text=» ABL(E) DMTERX READY«, t00=0x0062, t01=0x010a}
0x9a2e…9a5e Head {h00=0x002c, h01=0x0050, text=»* RESTORE REGISTERS FOR INDEXED DELETE«, t00=0x0062, t01=0x0126}
0x9a5e…9a68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0062, t01=0x0156}
0x9a68…9a90 Head {h00=0x0024, h01=0x0050, text=» LD A10,FDBECB+2,A6 SECTOR ADDR «, t00=0x0062, t01=0x0160}
0x9a90…9aaa Head {h00=0x0016, h01=0x0050, text=» ADKL A10,2 CYLID «, t00=0x0062, t01=0x0188}
0x9aaa…9ac4 Head {h00=0x0016, h01=0x0050, text=» AD A10,FDBRRO,A6 «, t00=0x0063, t01=0x0012}
0x9ac4…9aee Head {h00=0x0026, h01=0x0050, text=» AD A10,FDBRLE,A6 ADDR STATUS CHAR«, t00=0x0063, t01=0x002c}
0x9aee…9b0c Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 STATUS FREE «, t00=0x0063, t01=0x0056}
0x9b0c…9b3e Head {h00=0x002e, h01=0x0050, text=» ABL DMT350 CONTINUE AS FOR RANDOM DELETE «, t00=0x0063, t01=0x0074}
0x9b3e…9b52 Head {h00=0x0010, h01=0x0050, text=»DXI200 EQU *«, t00=0x0063, t01=0x00a6}
0x9b52…9b6a Head {h00=0x0014, h01=0x0050, text=» SC A2,FDBDBR,A6«, t00=0x0063, t01=0x00ba}
0x9b6a…9b76 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0063, t01=0x00d2}
0x9b76…9b9c Head {h00=0x0022, h01=0x0050, text=» DATA 3 EXIT. MORE INDEX LEFT «, t00=0x0063, t01=0x00de}
0x9b9c…9baa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0063, t01=0x0104}
0x9baa…9bcc Head {h00=0x001e, h01=0x0050, text=»DMINIX EQU * INSERT INDEX «, t00=0x0063, t01=0x0112}
0x9bcc…9bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0063, t01=0x0134}
0x9bd6…9bfe Head {h00=0x0024, h01=0x0050, text=»DMDELX EQU * DELETE INDEX RECORD«, t00=0x0063, t01=0x013e}
0x9bfe…9c34 Head {h00=0x0032, h01=0x0050, text=»********************************************* «, t00=0x0063, t01=0x0166}
0x9c34…9c5a Head {h00=0x0022, h01=0x0050, text=» LD A9,DWTECB,A1 USER ECB ADDR«, t00=0x0064, t01=0x000c}
0x9c5a…9c82 Head {h00=0x0024, h01=0x0050, text=» LD A8,ECBBA,A9 BUFFER ADDR USER«, t00=0x0064, t01=0x0032}
0x9c82…9ca2 Head {h00=0x001c, h01=0x0050, text=» AD A8,FDBKA,A1 KEY ADDR«, t00=0x0064, t01=0x005a}
0x9ca2…9cb6 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A8 «, t00=0x0064, t01=0x007a}
0x9cb6…9cde Head {h00=0x0024, h01=0x0050, text=» LD A11,FDBRLE,A1 RECORD LENGTH «, t00=0x0064, t01=0x008e}
0x9cde…9cfc Head {h00=0x001a, h01=0x0050, text=» SUKL A11,6 KEY LENGTH«, t00=0x0064, t01=0x00b6}
0x9cfc…9d10 Head {h00=0x0010, h01=0x0050, text=» LDR A13,A14«, t00=0x0064, t01=0x00d4}
0x9d10…9d44 Head {h00=0x0030, h01=0x0050, text=» ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS«, t00=0x0064, t01=0x00e8}
0x9d44…9d6c Head {h00=0x0024, h01=0x0050, text=» CF A14,FNDKEY GET INDEX RECORD «, t00=0x0064, t01=0x011c}
0x9d6c…9d88 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x0064, t01=0x0144}
0x9d88…9da4 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A2 RET CODE «, t00=0x0064, t01=0x0160}
0x9da4…9db6 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A3«, t00=0x0064, t01=0x017c}
0x9db6…9ddc Head {h00=0x0022, h01=0x0050, text=» RB(Z) DMI035 NO SECTOR FOUND «, t00=0x0064, t01=0x018e}
0x9ddc…9dfc Head {h00=0x001c, h01=0x0050, text=» LDR A13,A3 BUFFER ADDR «, t00=0x0065, t01=0x0024}
0x9dfc…9e22 Head {h00=0x0022, h01=0x0050, text=» LD A4,FDBADF,A6 FDB DATA FILE«, t00=0x0065, t01=0x0044}
0x9e22…9e44 Head {h00=0x001e, h01=0x0050, text=» LD A5,DWTECB,A4 USER ECB «, t00=0x0065, t01=0x006a}
0x9e44…9e5c Head {h00=0x0014, h01=0x0050, text=» LD A1,DWTOR,A6 «, t00=0x0065, t01=0x008c}
0x9e5c…9e70 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x0065, t01=0x00a4}
0x9e70…9e86 Head {h00=0x0012, h01=0x0050, text=» SUK A1,QDELX «, t00=0x0065, t01=0x00b8}
0x9e86…9eb0 Head {h00=0x0026, h01=0x0050, text=» ABL(E) DEL000 DELETE INDEX RECORD«, t00=0x0065, t01=0x00ce}
0x9eb0…9eba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x00f8}
0x9eba…9ee6 Head {h00=0x0028, h01=0x0050, text=»* SET RC BIT 6 TO USER IF NEXT KEY«, t00=0x0065, t01=0x0102}
0x9ee6…9f0c Head {h00=0x0022, h01=0x0050, text=»* IS SAME IN REQUESTED INDEX«, t00=0x0065, t01=0x012e}
0x9f0c…9f16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0065, t01=0x0154}
0x9f16…9f28 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0065, t01=0x015e}
0x9f28…9f50 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) INS050 NEXT KEY NOT SAME«, t00=0x0065, t01=0x0170}
0x9f50…9f7c Head {h00=0x0028, h01=0x0050, text=»* (SHORT KEY NOT ALLOWED IN FILE) «, t00=0x0066, t01=0x0008}
0x9f7c…9f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0034}
0x9f86…9fa8 Head {h00=0x001e, h01=0x0050, text=» LC A4,ECBFC,A5 FILE CODE «, t00=0x0066, t01=0x003e}
0x9fa8…9fc2 Head {h00=0x0016, h01=0x0050, text=» CC A4,FDBECB+1,A6«, t00=0x0066, t01=0x0060}
0x9fc2…9ff0 Head {h00=0x002a, h01=0x0050, text=» RF(NE) INS049 NOT REQUESTED FILE CODE«, t00=0x0066, t01=0x007a}
0x9ff0…a00c Head {h00=0x0018, h01=0x0050, text=» LDKL A4,/200 BIT 6 «, t00=0x0066, t01=0x00a8}
0xa00c…a032 Head {h00=0x0022, h01=0x0050, text=» ORS A4,ECBRC,A5 NEXT KEY SAME«, t00=0x0066, t01=0x00c4}
0xa032…a046 Head {h00=0x0010, h01=0x0050, text=»INS049 EQU *«, t00=0x0066, t01=0x00ea}
0xa046…a05c Head {h00=0x0012, h01=0x0050, text=» IFT INSLAS=1 «, t00=0x0066, t01=0x00fe}
0xa05c…a066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x0114}
0xa066…a086 Head {h00=0x001c, h01=0x0050, text=»* INSERT SAME KEY LAST«, t00=0x0066, t01=0x011e}
0xa086…a090 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0066, t01=0x013e}
0xa090…a0a6 Head {h00=0x0012, h01=0x0050, text=» LDR A1,A6 FDB«, t00=0x0066, t01=0x0148}
0xa0a6…a0c8 Head {h00=0x001e, h01=0x0050, text=» LD A2,FDBRRO,A1 REC OFFS «, t00=0x0066, t01=0x015e}
0xa0c8…a0da Head {h00=0x000e, h01=0x0050, text=» RF INS100«, t00=0x0066, t01=0x0180}
0xa0da…a0ee (103, 0, 400) Head {h00=0x0010, h01=0x0050, text=»INS080 EQU *«, t00=0x0067, t01=0x0004}
0xa0ee…a112 Head {h00=0x0020, h01=0x0050, text=» CF A14,RDNXTR GET NEXT REC «, t00=0x0067, t01=0x0018}
0xa112…a128 Head {h00=0x0012, h01=0x0050, text=» RF INS100 OK «, t00=0x0067, t01=0x003c}
0xa128…a142 Head {h00=0x0016, h01=0x0050, text=» ABL DEL045 ERROR «, t00=0x0067, t01=0x0052}
0xa142…a156 Head {h00=0x0010, h01=0x0050, text=»INS100 EQU *«, t00=0x0067, t01=0x006c}
0xa156…a168 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A3«, t00=0x0067, t01=0x0080}
0xa168…a184 Head {h00=0x0018, h01=0x0050, text=» ADK A2,10 REC ADDR «, t00=0x0067, t01=0x0092}
0xa184…a1a8 Head {h00=0x0020, h01=0x0050, text=» AD A2,FDBRLE,A1 ADDR STATUS«, t00=0x0067, t01=0x00ae}
0xa1a8…a1bc Head {h00=0x0010, h01=0x0050, text=» LDK A5,/FF «, t00=0x0067, t01=0x00d2}
0xa1bc…a1ce Head {h00=0x000e, h01=0x0050, text=» CCR A5,A2«, t00=0x0067, t01=0x00e6}
0xa1ce…a1e8 Head {h00=0x0016, h01=0x0050, text=» RF(E) INS150 USED«, t00=0x0067, t01=0x00f8}
0xa1e8…a200 Head {h00=0x0014, h01=0x0050, text=» LD A5,FDBMRO,A1«, t00=0x0067, t01=0x0112}
0xa200…a218 Head {h00=0x0014, h01=0x0050, text=» ST A5,FDBRRO,A1«, t00=0x0067, t01=0x012a}
0xa218…a246 Head {h00=0x002a, h01=0x0050, text=» RB INS080 GET FIRST RE C IN NXT SECT «, t00=0x0067, t01=0x0142}
0xa246…a25a Head {h00=0x0010, h01=0x0050, text=»INS150 EQU *«, t00=0x0067, t01=0x0170}
0xa25a…a27c Head {h00=0x001e, h01=0x0050, text=» LC A5,-4,A2 DUPL KEY CHAR«, t00=0x0067, t01=0x0184}
0xa27c…a29a Head {h00=0x001a, h01=0x0050, text=» CWR A5,A11 KEY LENGTH«, t00=0x0068, t01=0x0016}
0xa29a…a2c2 Head {h00=0x0024, h01=0x0050, text=» RB(E) INS080 NEXT SAME GET NEXT«, t00=0x0068, t01=0x0034}
0xa2c2…a2cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x005c}
0xa2cc…a2f0 Head {h00=0x0020, h01=0x0050, text=»* UPDATE LAST SAME RECORD «, t00=0x0068, t01=0x0066}
0xa2f0…a2fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x008a}
0xa2fa…a31a Head {h00=0x001c, h01=0x0050, text=» SC A11,-4,A2 NEXT SAME «, t00=0x0068, t01=0x0094}
0xa31a…a332 Head {h00=0x0014, h01=0x0050, text=» LD A7,FDBRRO,A1«, t00=0x0068, t01=0x00b4}
0xa332…a34a Head {h00=0x0014, h01=0x0050, text=» CW A7,FDBMRO,A1«, t00=0x0068, t01=0x00cc}
0xa34a…a374 Head {h00=0x0026, h01=0x0050, text=» RF(NE) INS160 SECT WRITTEN LATER «, t00=0x0068, t01=0x00e4}
0xa374…a37e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x010e}
0xa37e…a396 Head {h00=0x0014, h01=0x0050, text=»* WRITE SECTOR«, t00=0x0068, t01=0x0118}
0xa396…a3a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0068, t01=0x0130}
0xa3a0…a3be Head {h00=0x001a, h01=0x0050, text=» LDK A7,/95 WRITE,WAIT«, t00=0x0068, t01=0x013a}
0xa3be…a3ca Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0068, t01=0x0158}
0xa3ca…a3da Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0068, t01=0x0164}
0xa3da…a3fa Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTIOZ IO CHECK «, t00=0x0068, t01=0x0174}
0xa3fa…a40c (105, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0069, t01=0x0004}
0xa40c…a424 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x0069, t01=0x0016}
0xa424…a42e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x002e}
0xa42e…a44a Head {h00=0x0018, h01=0x0050, text=»* GET NEXT RECORD «, t00=0x0069, t01=0x0038}
0xa44a…a454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0069, t01=0x0054}
0xa454…a468 Head {h00=0x0010, h01=0x0050, text=»INS160 EQU *«, t00=0x0069, t01=0x005e}
0xa468…a48e Head {h00=0x0022, h01=0x0050, text=» LDR A7,A5 NR OF SAME IN NEXT «, t00=0x0069, t01=0x0072}
0xa48e…a4a4 Head {h00=0x0012, h01=0x0050, text=» LDR A1,A6 FDB«, t00=0x0069, t01=0x0098}
0xa4a4…a4c6 Head {h00=0x001e, h01=0x0050, text=» CF A14,RDNXTR GET NEXT RC«, t00=0x0069, t01=0x00ae}
0xa4c6…a4dc Head {h00=0x0012, h01=0x0050, text=» RF INS170 OK «, t00=0x0069, t01=0x00d0}
0xa4dc…a4f6 Head {h00=0x0016, h01=0x0050, text=» ABL DEL045 ERROR «, t00=0x0069, t01=0x00e6}
0xa4f6…a50a Head {h00=0x0010, h01=0x0050, text=»INS170 EQU *«, t00=0x0069, t01=0x0100}
0xa50a…a52a Head {h00=0x001c, h01=0x0050, text=» LDR A13,A3 BUFFER ADDR «, t00=0x0069, t01=0x0114}
0xa52a…a542 Head {h00=0x0014, h01=0x0050, text=» LD A5,FDBADF,A6«, t00=0x0069, t01=0x0134}
0xa542…a568 Head {h00=0x0022, h01=0x0050, text=» LD A5,DWTECB,A5 USER ECB ADDR«, t00=0x0069, t01=0x014c}
0xa568…a574 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0069, t01=0x0172}
0xa574…a58a Head {h00=0x0012, h01=0x0050, text=» IFT INDXAC=1 «, t00=0x0069, t01=0x017e}
0xa58a…a59e (106, 0, 400) Head {h00=0x0010, h01=0x0050, text=»INS050 EQU *«, t00=0x006a, t01=0x0004}
0xa59e…a5a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x0018}
0xa5a8…a5d4 Head {h00=0x0028, h01=0x0050, text=»* CREATE AN INDE XRECORD IN AREA 1«, t00=0x006a, t01=0x0022}
0xa5d4…a5de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006a, t01=0x004e}
0xa5de…a5fc Head {h00=0x001a, h01=0x0050, text=» LDR A1,A12 FROM ADDR «, t00=0x006a, t01=0x0058}
0xa5fc…a610 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A14 «, t00=0x006a, t01=0x0076}
0xa610…a62a Head {h00=0x0016, h01=0x0050, text=» ADK A3,2 TO ADDR «, t00=0x006a, t01=0x008a}
0xa62a…a648 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A11 KEY LENGTH«, t00=0x006a, t01=0x00a4}
0xa648…a666 Head {h00=0x001a, h01=0x0050, text=» CF A14,DMTBM MOVE KEY«, t00=0x006a, t01=0x00c2}
0xa666…a678 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x006a, t01=0x00e0}
0xa678…a690 Head {h00=0x0014, h01=0x0050, text=» SCR A2,A3 DUMMY«, t00=0x006a, t01=0x00f2}
0xa690…a6a2 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006a, t01=0x010a}
0xa6a2…a6ba Head {h00=0x0014, h01=0x0050, text=» SCR A2,A3 DUMMY«, t00=0x006a, t01=0x011c}
0xa6ba…a6cc Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006a, t01=0x0134}
0xa6cc…a6ee Head {h00=0x001e, h01=0x0050, text=» SCR A7,A3 NR OF SAME CHAR«, t00=0x006a, t01=0x0146}
0xa6ee…a700 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x006a, t01=0x0168}
0xa700…a726 Head {h00=0x0022, h01=0x0050, text=» LDR A7,A3 ADDR OF LOG REC NR «, t00=0x006a, t01=0x017a}
0xa726…a740 Head {h00=0x0016, h01=0x0050, text=» LD A2,ECBCW+2,A5 «, t00=0x006b, t01=0x0010}
0xa740…a76c Head {h00=0x0028, h01=0x0050, text=» LD A3,ECBCW,A5 REC NR DATA FILE REC«, t00=0x006b, t01=0x002a}
0xa76c…a77e Head {h00=0x000e, h01=0x0050, text=» SCR A2,A7«, t00=0x006b, t01=0x0056}
0xa77e…a790 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x006b, t01=0x0068}
0xa790…a7a2 Head {h00=0x000e, h01=0x0050, text=» SCR A3,A7«, t00=0x006b, t01=0x007a}
0xa7a2…a7b4 Head {h00=0x000e, h01=0x0050, text=» ECR A3,A3«, t00=0x006b, t01=0x008c}
0xa7b4…a7c6 Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x006b, t01=0x009e}
0xa7c6…a7e4 Head {h00=0x001a, h01=0x0050, text=» SCR A3,A7 LOG REC NR «, t00=0x006b, t01=0x00b0}
0xa7e4…a7f6 Head {h00=0x000e, h01=0x0050, text=» ADK A7,2 «, t00=0x006b, t01=0x00ce}
0xa7f6…a80e Head {h00=0x0014, h01=0x0050, text=» LDK A1,/FF USED«, t00=0x006b, t01=0x00e0}
0xa80e…a82c Head {h00=0x001a, h01=0x0050, text=» SCR A1,A7 STATUS CHAR«, t00=0x006b, t01=0x00f8}
0xa82c…a848 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB INDEX«, t00=0x006b, t01=0x0116}
0xa848…a870 Head {h00=0x0024, h01=0x0050, text=» CF A14,GTLGRN GET REC NR INDEX «, t00=0x006b, t01=0x0132}
0xa870…a87a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006b, t01=0x015a}
0xa87a…a8aa Head {h00=0x002c, h01=0x0050, text=»* SAVE RECORD NR FOR FIRST MOVED INDEX«, t00=0x006b, t01=0x0164}
0xa8aa…a8b4 (108, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0004}
0xa8b4…a8ca Head {h00=0x0012, h01=0x0050, text=» ST A2,-28,A14«, t00=0x006c, t01=0x000e}
0xa8ca…a8e0 Head {h00=0x0012, h01=0x0050, text=» ST A3,-26,A14«, t00=0x006c, t01=0x0024}
0xa8e0…a8ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x006c, t01=0x003a}
0xa8ee…a8f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0048}
0xa8f8…a936 Head {h00=0x003a, h01=0x0050, text=»* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING«, t00=0x006c, t01=0x0052}
0xa936…a95e Head {h00=0x0024, h01=0x0050, text=»* USED RECORDS ROLLED FORWARD «, t00=0x006c, t01=0x0090}
0xa95e…a986 Head {h00=0x0024, h01=0x0050, text=»* A6,A11,A13 IS USED AT ENTRY «, t00=0x006c, t01=0x00b8}
0xa986…a9ae Head {h00=0x0024, h01=0x0050, text=» ADKL A11,7 RECORD LENGTH TOTAL «, t00=0x006c, t01=0x00e0}
0xa9ae…a9b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006c, t01=0x0108}
0xa9b8…a9d4 Head {h00=0x0018, h01=0x0050, text=»* USE D REGISTERS «, t00=0x006c, t01=0x0112}
0xa9d4…a9f6 Head {h00=0x001e, h01=0x0050, text=»* A6 = FDB ADDR INDEX «, t00=0x006c, t01=0x012e}
0xa9f6…aa12 Head {h00=0x0018, h01=0x0050, text=»* A10 = AREA ADDR«, t00=0x006c, t01=0x0150}
0xaa12…aa38 Head {h00=0x0022, h01=0x0050, text=»* A11 = RECORD LENGTH INDEX«, t00=0x006c, t01=0x016c}
0xaa38…aa68 (109, 0, 400) Head {h00=0x002c, h01=0x0050, text=»* A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 «, t00=0x006d, t01=0x0004}
0xaa68…aa90 Head {h00=0x0024, h01=0x0050, text=»* A13 = BUFFER ADDRESS SECTOR«, t00=0x006d, t01=0x0034}
0xaa90…aa9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x005c}
0xaa9a…aaae Head {h00=0x0010, h01=0x0050, text=»INS190 EQU *«, t00=0x006d, t01=0x0066}
0xaaae…aaca Head {h00=0x0018, h01=0x0050, text=» LDKL A12,1 BUFADR2 «, t00=0x006d, t01=0x007a}
0xaaca…aade Head {h00=0x0010, h01=0x0050, text=»INS200 EQU *«, t00=0x006d, t01=0x0096}
0xaade…aaf0 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x006d, t01=0x00aa}
0xaaf0…ab04 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x006d, t01=0x00bc}
0xab04…ab20 Head {h00=0x0018, h01=0x0050, text=» RF(Z) INS210 BUFAR1«, t00=0x006d, t01=0x00d0}
0xab20…ab4c Head {h00=0x0028, h01=0x0050, text=» LDKL A1,RECBFZ RECORD BUUFFER SIZE «, t00=0x006d, t01=0x00ec}
0xab4c…ab62 Head {h00=0x0012, h01=0x0050, text=» SLL A1,1 BYTE«, t00=0x006d, t01=0x0118}
0xab62…ab7c Head {h00=0x0016, h01=0x0050, text=»INS210 LDR A10,A14«, t00=0x006d, t01=0x012e}
0xab7c…ab8e Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x006d, t01=0x0148}
0xab8e…abba Head {h00=0x0028, h01=0x0050, text=» ADR A10,A1 RECORD BUFFER AREA ADDR «, t00=0x006d, t01=0x015a}
0xabba…abc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006d, t01=0x0186}
0xabc4…abe0 Head {h00=0x0018, h01=0x0050, text=»* SAVE LAST RECORD«, t00=0x006d, t01=0x0190}
0xabe0…abea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x001c}
0xabea…abfe Head {h00=0x0010, h01=0x0050, text=» LDR A1,A13 «, t00=0x006e, t01=0x0026}
0xabfe…ac1a Head {h00=0x0018, h01=0x0050, text=» ADK A1,10 BUFSTA+2 «, t00=0x006e, t01=0x003a}
0xac1a…ac4c Head {h00=0x002e, h01=0x0050, text=» AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT «, t00=0x006e, t01=0x0056}
0xac4c…ac60 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A11 «, t00=0x006e, t01=0x0088}
0xac60…ac74 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A10 «, t00=0x006e, t01=0x009c}
0xac74…ac9a Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTBM SAVE LAST RECORD«, t00=0x006e, t01=0x00b0}
0xac9a…acba Head {h00=0x001c, h01=0x0050, text=»* MOVE REST OF SECTOR «, t00=0x006e, t01=0x00d6}
0xacba…acc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006e, t01=0x00f6}
0xacc4…acd8 Head {h00=0x0010, h01=0x0050, text=» LDR A1,A13 «, t00=0x006e, t01=0x0100}
0xacd8…acf4 Head {h00=0x0018, h01=0x0050, text=» ADK A1,10 BUFSTA+2 «, t00=0x006e, t01=0x0114}
0xacf4…ad16 Head {h00=0x001e, h01=0x0050, text=» AD A1,FDBRRO,A6 FROM ADDR«, t00=0x006e, t01=0x0130}
0xad16…ad28 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x006e, t01=0x0152}
0xad28…ad40 Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBMRO,A6«, t00=0x006e, t01=0x0164}
0xad40…ad64 Head {h00=0x0020, h01=0x0050, text=» SU A2,FDBRRO,A6 NR OF CHAR «, t00=0x006e, t01=0x017c}
0xad64…ad76 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A1«, t00=0x006f, t01=0x0010}
0xad76…ad92 Head {h00=0x0018, h01=0x0050, text=» ADR A3,A11 TO ADDR «, t00=0x006f, t01=0x0022}
0xad92…adae Head {h00=0x0018, h01=0x0050, text=» CF A14,DMTBMR MOVE «, t00=0x006f, t01=0x003e}
0xadae…adcc Head {h00=0x001a, h01=0x0050, text=»* INSERT NEW RECORD «, t00=0x006f, t01=0x005a}
0xadcc…add6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x006f, t01=0x0078}
0xadd6…adfa Head {h00=0x0020, h01=0x0050, text=» LDKL A1,RECBFZ BUFFER SIZE «, t00=0x006f, t01=0x0082}
0xadfa…ae14 Head {h00=0x0016, h01=0x0050, text=» SLL A1,1 BYTE NO «, t00=0x006f, t01=0x00a6}
0xae14…ae28 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x006f, t01=0x00c0}
0xae28…ae44 Head {h00=0x0018, h01=0x0050, text=» RF(Z) INS250 BUFAR1«, t00=0x006f, t01=0x00d4}
0xae44…ae6a Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 SELECT OTHER BUFFER «, t00=0x006f, t01=0x00f0}
0xae6a…ae7e Head {h00=0x0010, h01=0x0050, text=»INS250 EQU *«, t00=0x006f, t01=0x0116}
0xae7e…ae9c Head {h00=0x001a, h01=0x0050, text=» ADR A1,A14 FROM ADDR «, t00=0x006f, t01=0x012a}
0xae9c…aeb8 Head {h00=0x0018, h01=0x0050, text=» ADK A1,2 FROM ADDR «, t00=0x006f, t01=0x0148}
0xaeb8…aed6 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A11 NR OF CHAR«, t00=0x006f, t01=0x0164}
0xaed6…aef0 Head {h00=0x0016, h01=0x0050, text=» LDR A3,A5 TO ADDR«, t00=0x006f, t01=0x0182}
0xaef0…af0a Head {h00=0x0016, h01=0x0050, text=» CF A14,DMTBM MOVE«, t00=0x0070, t01=0x000c}
0xaf0a…af22 Head {h00=0x0014, h01=0x0050, text=»* WRITE BUFFER«, t00=0x0070, t01=0x0026}
0xaf22…af2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0070, t01=0x003e}
0xaf2c…af50 Head {h00=0x0020, h01=0x0050, text=» LDR A8,A14 USE STACK AS ECB«, t00=0x0070, t01=0x0048}
0xaf50…af64 Head {h00=0x0010, h01=0x0050, text=» SUKL A8,24 «, t00=0x0070, t01=0x006c}
0xaf64…af8c Head {h00=0x0024, h01=0x0050, text=» LC A2,FDBEXT+1,A6 VOL DEV CODE «, t00=0x0070, t01=0x0080}
0xaf8c…afa0 Head {h00=0x0010, h01=0x0050, text=» STR A2,A8 «, t00=0x0070, t01=0x00a8}
0xafa0…afb4 Head {h00=0x0010, h01=0x0050, text=» LDR A2,A13 «, t00=0x0070, t01=0x00bc}
0xafb4…afcc Head {h00=0x0014, h01=0x0050, text=» ADK A2,8 BUFSTA«, t00=0x0070, t01=0x00d0}
0xafcc…aff0 Head {h00=0x0020, h01=0x0050, text=» ST A2,ECBBA,A8 SECTOR ADDR «, t00=0x0070, t01=0x00e8}
0xaff0…b014 Head {h00=0x0020, h01=0x0050, text=» LDKL A2,SECTLE SECTOR LGTH «, t00=0x0070, t01=0x010c}
0xb014…b02c Head {h00=0x0014, h01=0x0050, text=» ST A2,ECBRL,A8 «, t00=0x0070, t01=0x0130}
0xb02c…b04e Head {h00=0x001e, h01=0x0050, text=» LD A2,FDBSNR,A6 SECTOR NR«, t00=0x0070, t01=0x0148}
0xb04e…b070 Head {h00=0x001e, h01=0x0050, text=» ST A2,ECBCW,A8 SECTOR NR «, t00=0x0070, t01=0x016a}
0xb070…b090 Head {h00=0x001c, h01=0x0050, text=» LDK A7,/95 WRITE , WAIT«, t00=0x0070, t01=0x018c}
0xb090…b09c Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0071, t01=0x001c}
0xb09c…b0ac Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0071, t01=0x0028}
0xb0ac…b0c8 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB INDEX«, t00=0x0071, t01=0x0038}
0xb0c8…b0e8 Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTIOZ IO CHECK «, t00=0x0071, t01=0x0054}
0xb0e8…b0fa Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0071, t01=0x0074}
0xb0fa…b112 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x0071, t01=0x0086}
0xb112…b11c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x009e}
0xb11c…b156 Head {h00=0x0036, h01=0x0050, text=»* IF SPILLED RECORD IS FREE, OPERATION IS READY «, t00=0x0071, t01=0x00a8}
0xb156…b160 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0071, t01=0x00e2}
0xb160…b184 Head {h00=0x0020, h01=0x0050, text=» LDR A2,A10 RECORD AREA ADDR«, t00=0x0071, t01=0x00ec}
0xb184…b1a0 Head {h00=0x0018, h01=0x0050, text=» ADR A2,A11 REC LGTH«, t00=0x0071, t01=0x0110}
0xb1a0…b1c6 Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 ADDR OF STATUS CHAR «, t00=0x0071, t01=0x012c}
0xb1c6…b1de Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBMRO,A6«, t00=0x0071, t01=0x0152}
0xb1de…b20a Head {h00=0x0028, h01=0x0050, text=» ST A4,FDBRRO,A6 MAX OFFSET IN SECT «, t00=0x0071, t01=0x016a}
0xb20a…b21c Head {h00=0x000e, h01=0x0050, text=» CCR A1,A2«, t00=0x0072, t01=0x0008}
0xb21c…b23e Head {h00=0x001e, h01=0x0050, text=» RF(Z) INS400 FREE RECORD «, t00=0x0072, t01=0x001a}
0xb23e…b248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x003c}
0xb248…b264 Head {h00=0x0018, h01=0x0050, text=»* GET NEXT SECTOR «, t00=0x0072, t01=0x0046}
0xb264…b26e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0072, t01=0x0062}
0xb26e…b28a Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x0072, t01=0x006c}
0xb28a…b2aa Head {h00=0x001c, h01=0x0050, text=» LDR A3,A13 BUFFER ADDR «, t00=0x0072, t01=0x0088}
0xb2aa…b2e0 Head {h00=0x0032, h01=0x0050, text=» CF A14,RDNXTR GET FIRST RECORD IN NEXT SECTOR«, t00=0x0072, t01=0x00a8}
0xb2e0…b2f6 Head {h00=0x0012, h01=0x0050, text=» RF INS260 OK «, t00=0x0072, t01=0x00de}
0xb2f6…b308 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A5«, t00=0x0072, t01=0x00f4}
0xb308…b322 Head {h00=0x0016, h01=0x0050, text=» ABL DMI035 ERROR «, t00=0x0072, t01=0x0106}
0xb322…b336 Head {h00=0x0010, h01=0x0050, text=»INS260 EQU *«, t00=0x0072, t01=0x0120}
0xb336…b35a Head {h00=0x0020, h01=0x0050, text=» LDR A13,A3 NEW BUFFER ADDR «, t00=0x0072, t01=0x0134}
0xb35a…b36e Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x0072, t01=0x0158}
0xb36e…b39a Head {h00=0x0028, h01=0x0050, text=» RB(Z) INS190 SWITCH RECORD BUFFERS «, t00=0x0072, t01=0x016c}
0xb39a…b3ae Head {h00=0x0010, h01=0x0050, text=» SUR A12,A12«, t00=0x0073, t01=0x0008}
0xb3ae…b3c0 Head {h00=0x000e, h01=0x0050, text=» RB INS200«, t00=0x0073, t01=0x001c}
0xb3c0…b3ce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0073, t01=0x002e}
0xb3ce…b3e2 Head {h00=0x0010, h01=0x0050, text=»INS400 EQU *«, t00=0x0073, t01=0x003c}
0xb3e2…b3ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0050}
0xb3ec…b418 Head {h00=0x0028, h01=0x0050, text=»* UPDATE LRN IF EOF IS ENCOUNTERED«, t00=0x0073, t01=0x005a}
0xb418…b422 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0073, t01=0x0086}
0xb422…b43e Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB INDEX«, t00=0x0073, t01=0x0090}
0xb43e…b456 Head {h00=0x0014, h01=0x0050, text=» CF A14,GTLGRN «, t00=0x0073, t01=0x00ac}
0xb456…b46e Head {h00=0x0014, h01=0x0050, text=» CC A2,FDBLRN,A1«, t00=0x0073, t01=0x00c4}
0xb46e…b48a Head {h00=0x0018, h01=0x0050, text=» RF(L) INS430 NO EOF«, t00=0x0073, t01=0x00dc}
0xb48a…b4a4 Head {h00=0x0016, h01=0x0050, text=» RF(G) INS410 EOF «, t00=0x0073, t01=0x00f8}
0xb4a4…b4be Head {h00=0x0016, h01=0x0050, text=» CW A3,FDBLRN+1,A1«, t00=0x0073, t01=0x0112}
0xb4be…b4dc Head {h00=0x001a, h01=0x0050, text=» RF(NG) INS430 NO EOF «, t00=0x0073, t01=0x012c}
0xb4dc…b4f0 Head {h00=0x0010, h01=0x0050, text=»INS410 EQU *«, t00=0x0073, t01=0x014a}
0xb4f0…b516 Head {h00=0x0022, h01=0x0050, text=» SC A2,FDBLRN,A6 LLAST REC NR «, t00=0x0073, t01=0x015e}
0xb516…b532 Head {h00=0x0018, h01=0x0050, text=» ST A3,FDBLRN+1,A6 «, t00=0x0073, t01=0x0184}
0xb532…b54c Head {h00=0x0016, h01=0x0050, text=» LDKL A1,/1000 EOF«, t00=0x0074, t01=0x0010}
0xb54c…b570 Head {h00=0x0020, h01=0x0050, text=» ORS A1,ECBRC,A9 EOF TO USER«, t00=0x0074, t01=0x002a}
0xb570…b584 Head {h00=0x0010, h01=0x0050, text=»INS430 EQU *«, t00=0x0074, t01=0x004e}
0xb584…b58e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0062}
0xb58e…b5c2 Head {h00=0x0030, h01=0x0050, text=»* UPDATE CRN-LINK FOR MOVED INDEX RECORDS «, t00=0x0074, t01=0x006c}
0xb5c2…b5cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x00a0}
0xb5cc…b5f0 Head {h00=0x0020, h01=0x0050, text=» LDKL A12,1 ADD ON E TO CRN «, t00=0x0074, t01=0x00aa}
0xb5f0…b602 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x0074, t01=0x00ce}
0xb602…b626 Head {h00=0x0020, h01=0x0050, text=» LDR A9,A3 LAST REC NR MOVED«, t00=0x0074, t01=0x00e0}
0xb626…b63e Head {h00=0x0014, h01=0x0050, text=» LD A10,-28,A14 «, t00=0x0074, t01=0x0104}
0xb63e…b668 Head {h00=0x0026, h01=0x0050, text=» LD A11,-26,A14 FIRST REC NR MOVED«, t00=0x0074, t01=0x011c}
0xb668…b696 Head {h00=0x002a, h01=0x0050, text=» CF A14,CRNUPD ADD 1 TO RECORD NUMBERS«, t00=0x0074, t01=0x0146}
0xb696…b6a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0074, t01=0x0174}
0xb6a0…b6c8 Head {h00=0x0024, h01=0x0050, text=»* UPDATE CRN IF SAME FILE CODE«, t00=0x0074, t01=0x017e}
0xb6c8…b6d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0075, t01=0x0016}
0xb6d2…b6f6 Head {h00=0x0020, h01=0x0050, text=» LD A1,FDBADF,A5 FDB DATA F «, t00=0x0075, t01=0x0020}
0xb6f6…b71c Head {h00=0x0022, h01=0x0050, text=» CF A14,CRNGET GET CRN BUFFER «, t00=0x0075, t01=0x0044}
0xb71c…b742 Head {h00=0x0022, h01=0x0050, text=» LC A4,ECBFC,A9 USER FILE CODE«, t00=0x0075, t01=0x006a}
0xb742…b75c Head {h00=0x0016, h01=0x0050, text=» CC A4,FDBECB+1,A5«, t00=0x0075, t01=0x0090}
0xb75c…b77e Head {h00=0x001e, h01=0x0050, text=» RF(NE) INS440 OTHRER FILE«, t00=0x0075, t01=0x00aa}
0xb77e…b798 Head {h00=0x0016, h01=0x0050, text=» ST A10,CRNCIF,A2 «, t00=0x0075, t01=0x00cc}
0xb798…b7ba Head {h00=0x001e, h01=0x0050, text=» ST A11,CRNCIF+2,A2 REC NR«, t00=0x0075, t01=0x00e6}
0xb7ba…b7dc Head {h00=0x001e, h01=0x0050, text=» SC A4,CRNCIF,A2 FILE CODE«, t00=0x0075, t01=0x0108}
0xb7dc…b7f0 Head {h00=0x0010, h01=0x0050, text=»INS440 EQU *«, t00=0x0075, t01=0x012a}
0xb7f0…b80c Head {h00=0x0018, h01=0x0050, text=» LDR A6,A5 FDB INDEX«, t00=0x0075, t01=0x013e}
0xb80c…b82a Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 OK RET CODE «, t00=0x0075, t01=0x015a}
0xb82a…b84a Head {h00=0x001c, h01=0x0050, text=» LDR A3,A13 BUFFER ADDR «, t00=0x0075, t01=0x0178}
0xb84a…b85e Head {h00=0x0010, h01=0x0050, text=» ABL DMTEX2 «, t00=0x0076, t01=0x0008}
0xb85e…b86c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0076, t01=0x001c}
0xb86c…b89a Head {h00=0x002a, h01=0x0050, text=»DEL000 EQU * DELETE INDEX RECORD CONT «, t00=0x0076, t01=0x002a}
0xb89a…b8bc Head {h00=0x001e, h01=0x0050, text=» LDR A12,A5 USER ECB ADDR «, t00=0x0076, t01=0x0058}
0xb8bc…b8ce Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0076, t01=0x007a}
0xb8ce…b8e2 Head {h00=0x0010, h01=0x0050, text=»DEL010 EQU *«, t00=0x0076, t01=0x008c}
0xb8e2…b908 Head {h00=0x0022, h01=0x0050, text=» ABL(NZ) DMI030 KEY NOT FOUND «, t00=0x0076, t01=0x00a0}
0xb908…b912 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00c6}
0xb912…b936 Head {h00=0x0020, h01=0x0050, text=»* CHECK RECORD NR DATA REC«, t00=0x0076, t01=0x00d0}
0xb936…b940 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0076, t01=0x00f4}
0xb940…b954 Head {h00=0x0010, h01=0x0050, text=»DEL020 EQU *«, t00=0x0076, t01=0x00fe}
0xb954…b96c Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBRRO,A6«, t00=0x0076, t01=0x0112}
0xb96c…b97e Head {h00=0x000e, h01=0x0050, text=» ADR A1,A3«, t00=0x0076, t01=0x012a}
0xb97e…b996 Head {h00=0x0014, h01=0x0050, text=» AD A1,FDBRLE,A6«, t00=0x0076, t01=0x013c}
0xb996…b9be Head {h00=0x0024, h01=0x0050, text=» ADK A1,7 BUFSTA+2-3=ADDR REC NR«, t00=0x0076, t01=0x0154}
0xb9be…b9d0 Head {h00=0x000e, h01=0x0050, text=» LCR A2,A1«, t00=0x0076, t01=0x017c}
0xb9d0…b9f2 Head {h00=0x001e, h01=0x0050, text=» CC A2,ECBCW+3,A12 REC NR «, t00=0x0076, t01=0x018e}
0xb9f2…ba16 Head {h00=0x0020, h01=0x0050, text=» RF(NE) DEL030 WRONG RECORD «, t00=0x0077, t01=0x0020}
0xba16…ba2a Head {h00=0x0010, h01=0x0050, text=» LC A2,1,A1 «, t00=0x0077, t01=0x0044}
0xba2a…ba3c Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x0077, t01=0x0058}
0xba3c…ba56 Head {h00=0x0016, h01=0x0050, text=» LC A2,2,A1 REC NR«, t00=0x0077, t01=0x006a}
0xba56…ba6e Head {h00=0x0014, h01=0x0050, text=» CW A2,ECBCW,A12«, t00=0x0077, t01=0x0084}
0xba6e…ba90 Head {h00=0x001e, h01=0x0050, text=» RF(E) DEL200 RECORD FOUND«, t00=0x0077, t01=0x009c}
0xba90…baa4 Head {h00=0x0010, h01=0x0050, text=»DEL030 EQU *«, t00=0x0077, t01=0x00be}
0xbaa4…baae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00d2}
0xbaae…bad0 Head {h00=0x001e, h01=0x0050, text=»* CHECK IF NEXT KEY SAME«, t00=0x0077, t01=0x00dc}
0xbad0…bada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0077, t01=0x00fe}
0xbada…bafa Head {h00=0x001c, h01=0x0050, text=» CC A11,-1,A1 KEY LENGTH«, t00=0x0077, t01=0x0108}
0xbafa…bb22 Head {h00=0x0024, h01=0x0050, text=» RB(NE) DEL010 NEXT KEY NOT SAME«, t00=0x0077, t01=0x0128}
0xbb22…bb3e Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB INDEX«, t00=0x0077, t01=0x0150}
0xbb3e…bb52 Head {h00=0x0010, h01=0x0050, text=»DEL040 EQU *«, t00=0x0077, t01=0x016c}
0xbb52…bb7e Head {h00=0x0028, h01=0x0050, text=» CF A14,RDNXTR GET NEXT INDEX RECORD«, t00=0x0077, t01=0x0180}
0xbb7e…bb94 Head {h00=0x0012, h01=0x0050, text=» RF DEL050 OK «, t00=0x0078, t01=0x001c}
0xbb94…bbb8 Head {h00=0x0020, h01=0x0050, text=»DEL045 LDR A1,A5 ERROR CODE «, t00=0x0078, t01=0x0032}
0xbbb8…bbd2 Head {h00=0x0016, h01=0x0050, text=» ABL DMI035 ERROR «, t00=0x0078, t01=0x0056}
0xbbd2…bbe6 Head {h00=0x0010, h01=0x0050, text=»DEL050 EQU *«, t00=0x0078, t01=0x0070}
0xbbe6…bbf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x0084}
0xbbf0…bc14 Head {h00=0x0020, h01=0x0050, text=»* CHECK IF RECORD IS USED «, t00=0x0078, t01=0x008e}
0xbc14…bc1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0078, t01=0x00b2}
0xbc1e…bc42 Head {h00=0x0020, h01=0x0050, text=» LDR A13,A3 NEW BUFFER ADDR «, t00=0x0078, t01=0x00bc}
0xbc42…bc54 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A3«, t00=0x0078, t01=0x00e0}
0xbc54…bc72 Head {h00=0x001a, h01=0x0050, text=» ADK A2,10 BUFSTA + 2 «, t00=0x0078, t01=0x00f2}
0xbc72…bc9a Head {h00=0x0024, h01=0x0050, text=» AD A2,FDBRLE,A1 ADDR OF STATUS «, t00=0x0078, t01=0x0110}
0xbc9a…bcae Head {h00=0x0010, h01=0x0050, text=» LDK A5,/FF «, t00=0x0078, t01=0x0138}
0xbcae…bcc0 Head {h00=0x000e, h01=0x0050, text=» CCR A5,A2«, t00=0x0078, t01=0x014c}
0xbcc0…bcda Head {h00=0x0016, h01=0x0050, text=» RB(E) DEL020 USED«, t00=0x0078, t01=0x015e}
0xbcda…bcf2 Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBMRO,A1«, t00=0x0078, t01=0x0178}
0xbcf2…bd1e Head {h00=0x0028, h01=0x0050, text=» ST A4,FDBRRO,A1 LAST REC IN SECTOR «, t00=0x0078, t01=0x0190}
0xbd1e…bd3a Head {h00=0x0018, h01=0x0050, text=» RB DEL040 NEXT REC «, t00=0x0079, t01=0x002c}
0xbd3a…bd48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0079, t01=0x0048}
0xbd48…bd6a Head {h00=0x001e, h01=0x0050, text=»DEL200 EQU * RECORD FOUND «, t00=0x0079, t01=0x0056}
0xbd6a…bd74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x0078}
0xbd74…bd9e Head {h00=0x0026, h01=0x0050, text=»* SET RC BIT 6 IF NEXT KEY SAME «, t00=0x0079, t01=0x0082}
0xbd9e…bda8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0079, t01=0x00ac}
0xbda8…bdd0 Head {h00=0x0024, h01=0x0050, text=» LC A2,ECBFC,A12 USER FILE CODE «, t00=0x0079, t01=0x00b6}
0xbdd0…bde2 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0079, t01=0x00de}
0xbde2…be06 Head {h00=0x0020, h01=0x0050, text=» LC A7,-1,A1 NR OF SAME CHAR«, t00=0x0079, t01=0x00f0}
0xbe06…be3c Head {h00=0x0032, h01=0x0050, text=» ST A7,16,A14 SAVE IN RECORD BUFFER AFTER ECB «, t00=0x0079, t01=0x0114}
0xbe3c…be58 Head {h00=0x0018, h01=0x0050, text=» CC A2,FDBECB+1,A6 «, t00=0x0079, t01=0x014a}
0xbe58…be86 Head {h00=0x002a, h01=0x0050, text=» RF(NE) DEL220 NOT REQUESTED FILE CODE«, t00=0x0079, t01=0x0166}
0xbe86…bea4 (122, 0, 400) Head {h00=0x001a, h01=0x0050, text=» CWR A11,A7 KEY LENGTH«, t00=0x007a, t01=0x0004}
0xbea4…becc Head {h00=0x0024, h01=0x0050, text=» RF(NE) DEL220 NEXT KEY NOT SAME«, t00=0x007a, t01=0x0022}
0xbecc…bee2 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/200 «, t00=0x007a, t01=0x004a}
0xbee2…bf0a Head {h00=0x0024, h01=0x0050, text=» ORS A4,ECBRC,A12 NEXT KEY SAME «, t00=0x007a, t01=0x0060}
0xbf0a…bf1e Head {h00=0x0010, h01=0x0050, text=»DEL220 EQU *«, t00=0x007a, t01=0x0088}
0xbf1e…bf28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x009c}
0xbf28…bf50 Head {h00=0x0024, h01=0x0050, text=»* MOVE UP RECORDS OVER DELETED«, t00=0x007a, t01=0x00a6}
0xbf50…bf5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007a, t01=0x00ce}
0xbf5a…bf82 Head {h00=0x0024, h01=0x0050, text=» ADKL A11,7 TOTAL RECORD LENGTH «, t00=0x007a, t01=0x00d8}
0xbf82…bf96 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x007a, t01=0x0100}
0xbf96…bfb2 Head {h00=0x0018, h01=0x0050, text=» ADK A3,10 BUFSTA+2 «, t00=0x007a, t01=0x0114}
0xbfb2…bfd2 Head {h00=0x001c, h01=0x0050, text=» AD A3,FDBRRO,A6 TO ADDR«, t00=0x007a, t01=0x0130}
0xbfd2…bfe4 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A3«, t00=0x007a, t01=0x0150}
0xbfe4…c002 Head {h00=0x001a, h01=0x0050, text=» ADR A1,A11 FROM ADDR «, t00=0x007a, t01=0x0162}
0xc002…c01a Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBMRO,A6«, t00=0x007a, t01=0x0180}
0xc01a…c03e Head {h00=0x0020, h01=0x0050, text=» SU A2,FDBRRO,A6 NR OF CHAR «, t00=0x007b, t01=0x0008}
0xc03e…c058 Head {h00=0x0016, h01=0x0050, text=» CF A14,DMTBM MOVE«, t00=0x007b, t01=0x002c}
0xc058…c062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0046}
0xc062…c082 Head {h00=0x001c, h01=0x0050, text=»* SET LAST RECORD FREE«, t00=0x007b, t01=0x0050}
0xc082…c08c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0070}
0xc08c…c0a0 Head {h00=0x0010, h01=0x0050, text=» ADR A3,A11 «, t00=0x007b, t01=0x007a}
0xc0a0…c0b2 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x007b, t01=0x008e}
0xc0b2…c0c4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x007b, t01=0x00a0}
0xc0c4…c0e2 Head {h00=0x001a, h01=0x0050, text=» SCR A1,A3 STATUS FREE«, t00=0x007b, t01=0x00b2}
0xc0e2…c0ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x00d0}
0xc0ec…c114 Head {h00=0x0024, h01=0x0050, text=»* UPDATE CRN FOR MOVED RECORDS«, t00=0x007b, t01=0x00da}
0xc114…c11e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007b, t01=0x0102}
0xc11e…c13a Head {h00=0x0018, h01=0x0050, text=» LDR A1,A6 FDB ADDR «, t00=0x007b, t01=0x010c}
0xc13a…c15c Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x007b, t01=0x0128}
0xc15c…c170 Head {h00=0x0010, h01=0x0050, text=» LDR A10,A2 «, t00=0x007b, t01=0x014a}
0xc170…c196 Head {h00=0x0022, h01=0x0050, text=» LDR A11,A3 FIRST REC NR MOVED«, t00=0x007b, t01=0x015e}
0xc196…c1ba Head {h00=0x0020, h01=0x0050, text=» LD A12,FDBRRO,A6 OLD OFFSET«, t00=0x007b, t01=0x0184}
0xc1ba…c1d2 Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBMRO,A6«, t00=0x007c, t01=0x0018}
0xc1d2…c1f6 Head {h00=0x0020, h01=0x0050, text=» ST A4,FDBRRO,A6 MAX OFFSET «, t00=0x007c, t01=0x0030}
0xc1f6…c21e Head {h00=0x0024, h01=0x0050, text=» CF A14,GTLGRN LAST REC NR MOVED«, t00=0x007c, t01=0x0054}
0xc21e…c230 Head {h00=0x000e, h01=0x0050, text=» LDR A8,A2«, t00=0x007c, t01=0x007c}
0xc230…c24a Head {h00=0x0016, h01=0x0050, text=» LDR A9,A3 REC NR «, t00=0x007c, t01=0x008e}
0xc24a…c270 Head {h00=0x0022, h01=0x0050, text=» ST A12,FDBRRO,A6 RESET OFFSET«, t00=0x007c, t01=0x00a8}
0xc270…c284 Head {h00=0x0010, h01=0x0050, text=» LDKL A12,-1«, t00=0x007c, t01=0x00ce}
0xc284…c2ae Head {h00=0x0026, h01=0x0050, text=» CF A14,CRNUPD UPDATE CRN BUFFERS «, t00=0x007c, t01=0x00e2}
0xc2ae…c2d6 Head {h00=0x0024, h01=0x0050, text=» LDKL A12,1 MARK BUFFER CHANGED «, t00=0x007c, t01=0x010c}
0xc2d6…c2ea Head {h00=0x0010, h01=0x0050, text=»DEL240 EQU *«, t00=0x007c, t01=0x0134}
0xc2ea…c302 Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBRRO,A5«, t00=0x007c, t01=0x0148}
0xc302…c32a Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DEL290 NOT FIRST RECORD «, t00=0x007c, t01=0x0160}
0xc32a…c340 Head {h00=0x0012, h01=0x0050, text=» LDR A1,A5 FDB«, t00=0x007c, t01=0x0188}
0xc340…c362 Head {h00=0x001e, h01=0x0050, text=» CF A14,GTLGRN GET REC NR «, t00=0x007d, t01=0x000e}
0xc362…c374 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x007d, t01=0x0030}
0xc374…c386 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x007d, t01=0x0042}
0xc386…c398 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x007d, t01=0x0054}
0xc398…c3aa Head {h00=0x000e, h01=0x0050, text=» LDK A7,1 «, t00=0x007d, t01=0x0066}
0xc3aa…c3d2 Head {h00=0x0024, h01=0x0050, text=» CF A14,DSUMOD A1,A2 = A1,A2 - 1«, t00=0x007d, t01=0x0078}
0xc3d2…c3f2 Head {h00=0x001c, h01=0x0050, text=» RF(Z) DEL600 FILE START«, t00=0x007d, t01=0x00a0}
0xc3f2…c40e Head {h00=0x0018, h01=0x0050, text=» LDR A6,A5 FDB ADDR «, t00=0x007d, t01=0x00c0}
0xc40e…c432 Head {h00=0x0020, h01=0x0050, text=» CF A14,CALSNO GET SECTOR NR«, t00=0x007d, t01=0x00dc}
0xc432…c44e Head {h00=0x0018, h01=0x0050, text=» LDR A5,A6 FDB ADDR «, t00=0x007d, t01=0x0100}
0xc44e…c460 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x007d, t01=0x011c}
0xc460…c482 Head {h00=0x001e, h01=0x0050, text=» RF(NZ) DEL600 FILE START «, t00=0x007d, t01=0x012e}
0xc482…c496 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A14 «, t00=0x007d, t01=0x0150}
0xc496…c4b2 Head {h00=0x0018, h01=0x0050, text=» ADKL A8,2 ECB ADDR «, t00=0x007d, t01=0x0164}
0xc4b2…c4c6 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x007d, t01=0x0180}
0xc4c6…c4ee (126, 0, 398) Head {h00=0x0024, h01=0x0050, text=» RF(Z) DEL245 BUFFER NOT CHANGED«, t00=0x007e, t01=0x0004}
0xc4ee…c4f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x002c}
0xc4f8…c510 Head {h00=0x0014, h01=0x0050, text=»* WRITE SECTOR«, t00=0x007e, t01=0x0036}
0xc510…c51a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x004e}
0xc51a…c538 Head {h00=0x001a, h01=0x0050, text=» LDK A7,/95 WRITE WAIT«, t00=0x007e, t01=0x0058}
0xc538…c544 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x007e, t01=0x0076}
0xc544…c554 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x007e, t01=0x0082}
0xc554…c56a Head {h00=0x0012, h01=0x0050, text=» LDR A1,A5 FDB«, t00=0x007e, t01=0x0092}
0xc56a…c58a Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTIOZ IO CHECK «, t00=0x007e, t01=0x00a8}
0xc58a…c59c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x007e, t01=0x00c8}
0xc59c…c5b4 Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x007e, t01=0x00da}
0xc5b4…c5e0 Head {h00=0x0028, h01=0x0050, text=» SUR A12,A12 BUFFER NOT CHANGED YET «, t00=0x007e, t01=0x00f2}
0xc5e0…c5f4 Head {h00=0x0010, h01=0x0050, text=»DEL245 EQU *«, t00=0x007e, t01=0x011e}
0xc5f4…c608 Head {h00=0x0010, h01=0x0050, text=» LDR A3,A13 «, t00=0x007e, t01=0x0132}
0xc608…c62e Head {h00=0x0022, h01=0x0050, text=» CF A14,DMTRBU RELEASE BUFFER «, t00=0x007e, t01=0x0146}
0xc62e…c638 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007e, t01=0x016c}
0xc638…c658 Head {h00=0x001c, h01=0x0050, text=»* GET PREVIOUS SECTOR «, t00=0x007e, t01=0x0176}
0xc658…c662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x007f, t01=0x0008}
0xc662…c67e Head {h00=0x0018, h01=0x0050, text=» LDR A1,A5 FDB ADDR «, t00=0x007f, t01=0x0012}
0xc67e…c690 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x007f, t01=0x002e}
0xc690…c6b2 Head {h00=0x001e, h01=0x0050, text=» CF A14,RDNXTR GET SECTOR «, t00=0x007f, t01=0x0040}
0xc6b2…c6c8 Head {h00=0x0012, h01=0x0050, text=» RF DEL250 OK «, t00=0x007f, t01=0x0062}
0xc6c8…c6e4 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A1 FDB ADDR «, t00=0x007f, t01=0x0078}
0xc6e4…c6f6 Head {h00=0x000e, h01=0x0050, text=» RB DEL045«, t00=0x007f, t01=0x0094}
0xc6f6…c70a Head {h00=0x0010, h01=0x0050, text=»DEL250 EQU *«, t00=0x007f, t01=0x00a6}
0xc70a…c720 Head {h00=0x0012, h01=0x0050, text=» LDR A5,A1 FDB«, t00=0x007f, t01=0x00ba}
0xc720…c744 Head {h00=0x0020, h01=0x0050, text=» LDR A13,A3 NEW BUFFER ADDR «, t00=0x007f, t01=0x00d0}
0xc744…c75c Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBMRO,A5«, t00=0x007f, t01=0x00f4}
0xc75c…c76e Head {h00=0x000e, h01=0x0050, text=» RF DEL300«, t00=0x007f, t01=0x010c}
0xc76e…c782 Head {h00=0x0010, h01=0x0050, text=»DEL290 EQU *«, t00=0x007f, t01=0x011e}
0xc782…c79a Head {h00=0x0014, h01=0x0050, text=» SU A4,FDBRLE,A5«, t00=0x007f, t01=0x0132}
0xc79a…c7ac Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x007f, t01=0x014a}
0xc7ac…c7c0 Head {h00=0x0010, h01=0x0050, text=»DEL300 EQU *«, t00=0x007f, t01=0x015c}
0xc7c0…c7ee Head {h00=0x002a, h01=0x0050, text=» ST A4,FDBRRO,A5 PREVIOS RECORD OFFSET«, t00=0x007f, t01=0x0170}
0xc7ee…c80a Head {h00=0x0018, h01=0x0050, text=» ADK A4,10 BUFSTA+2 «, t00=0x0080, t01=0x000e}
0xc80a…c82a Head {h00=0x001c, h01=0x0050, text=» ADR A4,A13 RECORD ADDR «, t00=0x0080, t01=0x002a}
0xc82a…c854 Head {h00=0x0026, h01=0x0050, text=» AD A4,FDBRLE,A5 STATUS CHAR ADDR «, t00=0x0080, t01=0x004a}
0xc854…c868 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/FF «, t00=0x0080, t01=0x0074}
0xc868…c87a Head {h00=0x000e, h01=0x0050, text=» CCR A2,A4«, t00=0x0080, t01=0x0088}
0xc87a…c896 Head {h00=0x0018, h01=0x0050, text=» RB(NE) DEL240 FREE «, t00=0x0080, t01=0x009a}
0xc896…c8c8 Head {h00=0x002e, h01=0x0050, text=» LC A2,17,A14 NR OF SAME IN DELETED RECORD«, t00=0x0080, t01=0x00b6}
0xc8c8…c8dc Head {h00=0x0010, h01=0x0050, text=» CC A2,-4,A4«, t00=0x0080, t01=0x00e8}
0xc8dc…c8f2 Head {h00=0x0012, h01=0x0050, text=» RF(NL) DEL600«, t00=0x0080, t01=0x00fc}
0xc8f2…c91e Head {h00=0x0028, h01=0x0050, text=» SC A2,-4,A4 MAKE NR OF SAME SMALLER«, t00=0x0080, t01=0x0112}
0xc91e…c93e Head {h00=0x001c, h01=0x0050, text=» RF DEL700 WRITE SECTOR «, t00=0x0080, t01=0x013e}
0xc93e…c952 Head {h00=0x0010, h01=0x0050, text=»DEL600 EQU *«, t00=0x0080, t01=0x015e}
0xc952…c966 Head {h00=0x0010, h01=0x0050, text=» LDR A12,A12«, t00=0x0080, t01=0x0172}
0xc966…c98e Head {h00=0x0024, h01=0x0050, text=» RF(Z) DEL900 BUFFER NOT CHANGED«, t00=0x0080, t01=0x0186}
0xc98e…c998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x001e}
0xc998…c9b0 Head {h00=0x0014, h01=0x0050, text=»* WRITE SECTOR«, t00=0x0081, t01=0x0028}
0xc9b0…c9ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0081, t01=0x0040}
0xc9ba…c9ce Head {h00=0x0010, h01=0x0050, text=»DEL700 EQU *«, t00=0x0081, t01=0x004a}
0xc9ce…c9e2 Head {h00=0x0010, h01=0x0050, text=» LDR A8,A14 «, t00=0x0081, t01=0x005e}
0xc9e2…c9fe Head {h00=0x0018, h01=0x0050, text=» ADKL A8,2 ECB ADDR «, t00=0x0081, t01=0x0072}
0xc9fe…ca1c Head {h00=0x001a, h01=0x0050, text=» LDK A7,/95 WRITE WAIT«, t00=0x0081, t01=0x008e}
0xca1c…ca28 Head {h00=0x0008, h01=0x0050, text=» LKM«, t00=0x0081, t01=0x00ac}
0xca28…ca38 Head {h00=0x000c, h01=0x0050, text=» DATA 1 «, t00=0x0081, t01=0x00b8}
0xca38…ca54 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A5 FDB ADDR «, t00=0x0081, t01=0x00c8}
0xca54…ca74 Head {h00=0x001c, h01=0x0050, text=» CF A14,DMTIOZ IO CHECK «, t00=0x0081, t01=0x00e4}
0xca74…ca86 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0081, t01=0x0104}
0xca86…ca9e Head {h00=0x0014, h01=0x0050, text=» ABL(NZ) DMTERR «, t00=0x0081, t01=0x0116}
0xca9e…cab2 Head {h00=0x0010, h01=0x0050, text=»DEL900 EQU *«, t00=0x0081, t01=0x012e}
0xcab2…cac6 Head {h00=0x0010, h01=0x0050, text=» ABL INS440 «, t00=0x0081, t01=0x0142}
0xcac6…cad2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0081, t01=0x0156}
0xcad2…cade Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0081, t01=0x0162}
0xcade…cae2 Head {h00=0x4004, h01=0x0000}
0xcae2…cae6 00 81 01 6e ┆ n┆
0xcae6…caee (130, 1, 8) 20 04 00 00 00 82 00 04 ┆ ┆
0xcaee…cb3e (131, 2, 268) 03 04 00 00 02 81 00 00 5f c0 00 03 01 90 00 48 00 44 04 21 7c 00 00 0b 57 06 00 15 00 37 00 19 00 2a 00 21 00 26 00 25 02 00 00 31 01 28 00 4f 50 02 00 57 50 02 00 5f 50 18 00 67 51 0e 00 71 52 06 00 75 57 02 00 81 52 6c 00 85 56 04 00 9b ┆ _ H D !| W 7 * ! & % 1 ( OP WP _P gQ qR uW Rl V ┆
0xcb3e…cb8e 56 c2 00 a5 56 02 00 04 00 12 00 48 00 44 04 21 02 00 00 cf 50 0c 00 d1 52 06 00 d7 57 04 00 e3 52 0e 01 19 50 08 01 27 57 36 01 3b 01 4a 01 3f 56 04 01 73 56 34 01 77 52 4c 01 7f 51 0a 01 85 56 02 01 a1 56 02 01 ad 52 02 01 b5 51 02 01 c9 ┆V V H D ! P R W R P 'W6 ; J ?V sV4 wRL Q V V R Q ┆
0xcb8e…cbde 56 0c 00 04 00 5e 00 48 00 44 04 21 00 00 01 d1 50 02 01 e5 56 0c 01 ed 50 02 02 03 57 06 02 27 54 0e 02 2b 52 42 02 2d 51 44 02 31 50 04 02 39 50 06 02 3d 56 02 02 43 50 06 02 47 56 02 02 4d 51 1c 02 4f 50 02 02 5b 56 18 02 71 57 02 00 04 ┆V ^ H D ! P V P W 'T +RB -QD 1P 9P =V CP GV MQ OP [V qW ┆
0xcbde…cbfa 00 aa 00 0e 00 0a 07 04 00 00 00 00 02 82 00 00 00 04 00 f6 40 04 00 00 00 04 01 08 ┆ @ ┆
0xcbfa…cc4a (132, 0, 400) 00 4a 00 46 20 20 20 20 20 20 20 20 20 49 44 45 4e 54 20 4d 55 4c 44 49 56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 4c 20 38 2e 31 20 37 38 2d 30 34 2d 32 31 20 20 38 37 30 31 37 32 38 34 30 38 31 30 00 00 00 04 00 3e ┆ J F IDENT MULDIV REL 8.1 78-04-21 870172840810 >┆
0xcc4a…cc9a 00 3a 01 1c a4 54 3a 4d 55 4c a4 54 3a 44 49 56 c4 54 3a 53 49 47 4e 00 a4 54 3a 42 52 4b c4 54 3a 4d 55 4c 43 e4 c4 54 3a 44 49 56 43 ce a4 4d 3a 42 52 4b c4 4d 3a 53 49 47 4e 4b 00 00 00 52 00 10 00 0c 05 05 dc 54 3a 4d 55 4c 43 e4 00 00 ┆ : T:MUL T:DIV T:SIGN T:BRK T:MULC T:DIVC M:BRK M:SIGNK R T:MULC ┆
0xcc9a…ccea 00 00 00 94 00 0e 00 0a 05 04 bc 54 3a 4d 55 4c 00 04 00 00 00 a8 00 0c 00 08 02 03 a2 54 3a 4d 4f 56 00 00 00 ba 00 0c 00 08 02 03 a2 54 3a 53 55 42 00 00 00 ca 00 2c 00 28 03 13 00 00 00 01 00 44 95 a0 00 01 9e a0 00 08 f6 a1 00 00 f6 a1 ┆ T:MUL T:MOV T:SUB , ( D ┆
0xccea…cd3a 00 00 f6 a1 00 00 00 02 30 10 f6 a1 00 00 00 04 10 30 00 00 00 da 00 0c 00 08 02 03 a2 54 3a 41 44 44 00 00 01 0a 00 2c 00 28 03 13 00 00 00 1d 00 02 f6 a1 00 00 81 5a 00 04 e2 24 83 08 3a 64 22 0f 50 00 1a 0f 50 00 1b 10 e3 25 f6 a1 00 00 ┆ 0 0 T:ADD , ( Z $ :d" P P % ┆
0xcd3a…cd8a 00 06 00 00 01 1a 00 0c 00 08 02 03 a2 54 3a 53 48 52 00 00 01 4a 00 0c 00 08 02 03 a2 54 3a 53 48 4c 00 00 01 5a 00 2c 00 28 03 13 00 00 00 3b 11 00 10 30 5f 22 f6 a1 00 00 00 08 40 01 f6 a1 00 00 00 0a 30 01 5f 30 96 a0 00 08 86 5a ff fa ┆ T:SHR J T:SHL Z , ( ; 0_" @ 0 _0 Z ┆