|
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: 26128 (0x6610)
Notes: pts_type(SC)
Names: »DMSUBR.SC«
└─⟦7e2393f80⟧ Bits:30009710 Philips computer tape "M_KONV"
└─⟦this⟧ »M:KONV/DMSUBR.SC«
└─⟦7f25f14aa⟧ Bits:30009683 Philips computer tape "600307"
└─⟦this⟧ »M:92F4/DMSUBR.SC«
└─⟦f740ae34d⟧ Bits:30009708 Philips computer tape "M_92F3"
└─⟦this⟧ »M:92F3/DMSUBR.SC«
IDENT DMSUBR REL 9.2 79-11-16 870105040920 =1 CLEAR ECB REL 9.1 79-04-06 * **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DMSUBR = COMMON DM-ROUTINES * * * * * * **************************************************** ****THIS MODULE IS ACTIVATED FROM :***************** * * DMTASK,TIODM,DMTASS * *************** * ENTRIES * *************** * * ENTRY EATEST,EASETB,EARELB,CRNGET ENTRY CALSNO ENTRY GTBKBU,GTLGRN ENTRY DMTIOT ENTRY CHKIND,REQEND ENTRY DMTIOZ ENTRY MOV:US MOVE FROM USER TO SYSTEM AREA ENTRY MOV:SU MOVE FROM SYSTEM TO USER AREA * ***************** * EXTERNALS * ***************** * * EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO EXTRN FDBCEX,FDBBLF,FDBEXT EXTRN FDBECB,DWTECB,DWTOR,EXTDMI,BUFSTA,BUFDMI,BUFOR EXTRN ECBRC,ECBFC,ECBCW,ECBBA EXTRN TTB:ID TASK ID EXTRN DWTTDM,DWTTQ EXTRN QTJOB EXTRN ECBRL,SECTLE EXTRN DIVMOD,MPYMOD EXTRN EXTELE EXTRN CRNTID EXTRN DMTGBU EXTRN EXTLEN,EXTBAS EXTRN CRNQUE,GETBLK,FREQUE EXTRN HALT EXTRN CRBUFL EXTRN IHRET2,IHRTN,FDBADF,DWTST EXTRN FDBDBR EXTRN QIRN,QIRR EXTRN TASHLT SYSTEM HALT ROUTINE EJECT DMSUBR TOSSIO * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * EJECT DMSUBR * * CHKIND IS USED FROM FNDDWT TO SELECT DM-DWT * INDEX FILE (INDEX 0) SHALL BE SELECTED FOR * DX,IX,XR,XN, DATA FILE OTHERWISE * CHKIND EQU * STR A1,A15 STR A2,A15 LDK A2,1 INDEX FOR DATA FILE LDR A1,A7 ORDER ANK A1,/3F CWK A1,/20 RF(E) FND320 DELETE INDEX CWK A1,/1A RF(E) FND320 INDEXED READ ANK A1,/3E REMOVE BIT 15 SUK A1,/1E RF(E) FND320 INSERT INDEX OR INDEXED READ NEXT RF FND340 FND320 LDK A2,0 INDEX FOR INDEX FILE FND340 EQU * CCR A2,A6 INDEX RF(E) FND390 ENTRY FOUND LDK A1,2 ADS A1,8,A15 RETURN+2 WHEN NOT FOUND FND390 ABL IHRET2 EJECT DMSUBR * * REQEND IS USED IN TENDIO TO RESET REQUEST BUSY BIT * FOR ALL FILES * AND TO RESOLVE ALL QUEUES * REQEND EQU * LC A2,TTB:ID,A5 GET TASK ID CCK A2,'##' RF(E) TEN117 JUMP IF DMTASK CALLING * * RESET REQUEST BUSY BIT FOR ALL FILES * LDK A2,10 MAX NO OF FILES * 2 STR A4,A15 SAVE A4 (USED BY TENDIO!!) TEN112 EQU * SUK A2,2 RF(N) TEN115 NO MORE FILES LDR A3,A6 ADR A3,A2 LD A3,FDBADF,A3 FDB ADDR RB(Z) TEN112 CWR A3,A6 DWT ADDR RF(E) TEN114 MASTER DWT LD A5,DWTTQ,A3 RF(Z) TEN113 NO QUEUE LDR* A4,A5 ST A4,DWTTQ,A3 NEW ANCHOR CF A15,QTJOB REPEAT REQUEST TEN113 LD A5,DWTTDM,A6 RESTORE TEN114 EQU * LDKL A4,/BFFF REQUEST BUSY BIT ANS A4,DWTST,A3 RESET LDKL A4,/8000 ORS A4,DWTST,A3 DEVICE NOT BUSY RB TEN112 TEN115 EQU * LDR* A4,A15 RESTORE A4 * TEN117 EQU * ABL IHRTN EJECT DMSUBR ****DESCRIPTION************************************* * * EATEST WILL SEARCH THE EA-LINK FOR A LOG RECORD NO. * ****ENTRY PARAMETERS******************************** * * A1 = FDB ADRESS * A2,A3 = LOG RECORD NO * * CF A14,EATEST * ****EXIT PARAMETERS********************************* * * A1-A3 = UNCHANGED * A4 = 0 NO EA AT ALL * = +1 EA FOUND FOR ACTUAL TASK * = -1 EA FOUND FO R OTHER TASK * ****USED REGISTERS********************************** * * A1 - A4 EJECT DMSUBR EATEST EQU * LD A4,FDBEAL,A1 BUFFER QUEUE RF EAT030 EAT020 EQU * LDR* A4,A4 NEXT BUFFER ADR EAT030 EQU * RF(Z) EAT100 EMPTY QUEUE,NO EA * * SEARCH LOG REC NO * CC A2,3,A4 FIRST CHAR RB(NE) EAT020 CW A3,4,A4 2 AND 3 CHAR RB(NE) EAT020 * * RECORD NO FOUND * LC A4,2,A4 CC A4,FDBTNR,A1 TASK ID RF(E) EAT060 LDKL A4,-1 EA OTHER TASK RF EAT100 EAT060 EQU * LDK A4,1 EA SAME ATASK EAT100 EQU * RTN A14 EJECT DMSUBR ****DESCRIPTION************************************* * * EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK * IF NO BUFFERS ARE AVAILABLE THE SYSTEM WILL HALT AND LITE SOP-LAMPS * ****ENTRY PARAMETERS******************************** * * A6 = FDB ADDR * A2,A3 = LOGICAL RECORD NO * * CF A14,EASETB * ****EXIT PARAMETERS********************************* * * A6 = FDB ADDR * ****USED REGISTERS********************************** * * A1-A4,A6 * ******************************************************* EJECT DMSUBR EASETB EQU * ECR A2,A2 LC A2,FDBTNR,A6 TASK ID ECR A2,A2 LDR A1,A3 LOG REC NO INH CF A15,GETBLK GET BUFF AND STORE A1,A2 * * LINK BUFFER TO FDB * LD A2,FDBEAL,A6 LINK ROOT STR A2,A4 THREAD ST A4,FDBEAL,A6 NEW ROOT RTN A14 EJECT DMSUBR ****DESCRIPTION************************************* * * EARELB WILL RELEASE EA BUFFERS AND CONNRECT THEM * TIO THE FREE LINK. * ****ENTRY PARAMETERS******************************** * * A1 = FDB-ADDRESS * A2,A3 = LOGICAL RECORD NO * A2: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB * IS REMOVED. * BIT 0=1,BIT 1=0 ALL BUFFERS ON FDB IS REMOVED. * BIT 0=0 THE FIRST BUFFER WITH TASK ID AND LOG REC NO * AS SPEC IS REMOVED. * ****EXIT PARAMETERS********************************* * * A1 = UNCHANGED * ****USED REGISTERS********************************** * * A1 - A5 EJECT DMSUBR EARELB EQU * LDR A5,A1 ADKL A5,FDBEAL ROOT ADR LDR* A4,A5 EA ROOT RF EAR030 EAR020 EQU * LDR A5,A4 SAVE OLD ROOT LDR* A4,A4 NEXT BUFFER ADR EAR030 EQU * RF(Z) EAR100 EA LINK END LDR A2,A2 REC NO RF(N) EAR050 RELEASE MANY BUFFERS * * SEARCH LOG REC NO * CC A2,3,A4 RB(NE) EAR020 CW A3,4,A4 RB(NE) EAR020 RF EAR060 EAR050 EQU * CWK A2,/A000 CHECK BIT 1 RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED EAR060 EQU * * * SEARCH TASK IDENT * LC A3,FDBTNR,A1 TAK ID CC A3,2,A4 RB(NE) EAR020 * * EA BUFFER FOUND * EAR080 EQU * LDR* A3,A4 NEXT BUFADR STR A3,A5 REMOVE BUFFER FROM LINK * * RETURN BUFFER TO POOL * INH LD A3,FREQUE STR A3,A4 NEXT FREE ST A4,FREQUE NEW ROOT LDR A4,A5 BUFFER ROOT LDR A2,A2 RB(N) EAR020 RELEASE MORE EAR100 EQU * RTN A14 EJECT DMSUBR ****DESCRIPTION************************************* * * CRNGET WILL SEARCH THE CRN-LINK FOR TASK ID. IF NO BUFFER IS * FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH * ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE * THE SYSTEM WILL HALT AND LITE SOP-LAMPS. * TASK ID IS PLACED IN THE BUFFER * ****ENTRY PARAMETERS******************************** * * A1 = FDB ADDRESS DATA FILE * ****EXIT PARAMETERS********************************* * * A1 = UNCHANGED * A2 = ADDRESS OF FOUND CRN-BUFFER * ****USED REGISTERS********************************** * * A1 - A4 EJECT DMSUBR CRNGET EQU * LD A2,FDBCRL,A1 CRN ROOT RF CRN030 CRN020 EQU * LDR* A2,A2 NEXT BUFFER CRN030 EQU * RF(Z) CRN100 LINK END * * CHECK ATASK IDENT * LC A3,FDBTNR,A1 TASK ID CC A3,CRNTID,A2 RB(NE) CRN020 OTHER TASK RF CRN200 BUFFER FOUND * * GET NEW BUFFER * CRN100 EQU * INH LD A2,CRNQUE FREE LINK ROOT RF(NZ) CRN120 LDK A1,3 LAMP 10 AND 11 CF A15,HALT NO MORE BUFFERS CRN120 EQU * LDR* A3,A2 NEXT FREE ST A3,CRNQUE UPD ROOT * * FILL BUFFER WITH ZEROES * LDKL A3,CRBUFL BUFFER LENGTH IN BYTES CRN140 EQU * SUK A3,2 ZEROE WORDS 2 - N RF(NP) CRN160 BUFFER ZEROED LDR A4,A2 BUFFER ADR ADR A4,A3 OFFSET IN BUFFER CMR A4 RB CRN140 MORE WORDS * * CONNECT NEW BUFFER TO LINK * CRN160 EQU * LC A3,FDBTNR,A1 SC A3,CRNTID,A2 TASK ID LD A3,FDBCRL,A1 LINK ROOT STR A3,A2 THREAD ST A2,FDBCRL,A1 NEW ROOT CRN200 EQU * RTN A14 EJECT DMSUBR ****DESCRIPTION************************************* * * CALSNO WILL CONVERT A LOGICAL RECORD NO TO * SECTOR AND OFFSET * ****ENTRY PARAMETERS******************************** * * A1,A2 = LOGICAL RECORD NO * A6 = FDB ADDR * * CF A14,CALSNO * ****EXIT PARAMETERS********************************* * * A1 = 0 OK * NE 0 , ERROR =/20=END OF MEDIUM * A4 = EXTENT ADDRESS * A6 = UNCHANGED * IN FDB : FDBSNR = SECTOR NR * FDBRRO = OFFSET IN SECTOR * FDBCEX = CURRENT EXTENT * ****USED REGISTERS********************************** * * A1 - A9 EJECT DMSUBR CALSNO EQU * * * FIND SECTOR NO WITHIN FILE * LDR A5,A6 SAVE FDB ADDR LDK A6,0 LC A6,FDBBLF,A5 BLOCKING FACTOR CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER RF(O) TIOD99 OVERFLOW LDR A3,A2 QUOTIENT LDR A6,A5 FDB ADDR LDR A2,A1 REMAINDER RF(Z) TIOD30 REST = 0 ADK A3,1 RECORD IN NEXT SECTOR RF TIOD40 TIOD30 LC A2,FDBBLF,A6 LAST REC IN SECTOR * * FIND FILE EXTENT * TIOD40 EQU * LDR A4,A6 ADKL A4,FDBEXT FIRST FILE EXTENT LD A9,EXTLEN,A4 LENGTH OF FIRST EXTENT LDK A5,4 NUMBER OF EXTENTS TIOD45 CWR A3,A9 RF(NG) TIOD55 SECTOR IN THIS EXTENT SUK A5,1 NO RF(NP) TIODMO EOF ERROR RETURN ADK A4,6 NEXT EXTENT BLOCK AD A9,EXTLEN,A4 ADD LENGTH OF NEXT EXTENT RB TIOD45 * * SAVE CURRENT EXTENT BLOCK POINTER * TIOD55 ST A4,FDBCEX,A6 * * FIND LOGICAL SECTOR NUMBER ON DISC * SU A9,EXTLEN,A4 NO OF SECTORS IN PREVIOUS EXTENTS SUR A3,A9 SECTOR NO WITHIN EXT SUK A3,1 START FROM ZERO RF(N) TIODMO BEFORE MEDIUM AD A3,EXTBAS,A4 SECTOR NO ON DISC ST A3,FDBSNR,A6 SAVE LOGICAL SECTOR NUMBER * FIND RELATIVE RECORD OFFSET WITHIN SECTOR * LDK A3,0 TIOD60 SUK A2,1 A2=RELATIVE REC NO RF(Z) TIOD65 REL REC OFFS IN A3 NOW AD A3,FDBRLE,A6 NO ADD RECORD LENGTH ADK A3,1 SKIP STATUS BYTE RB TIOD60 TIOD99 LDR A6,A5 FDB TIODMO LDK A1,/20 END OF MEDIUM RF TIODMF * * STORE RELATIVE REC OFFSET IN FBDRRO * TIOD65 EQU * LDK A1,0 OK ST A3,FDBRRO,A6 TIODMF EQU * RTN A14 EJECT DMSUBR * ************** * DMTIOT ************** * * ENTRY DMTIOT CHECK RETURN CODES FROM PHYS DISC I/O * * INPUT A1 = FDB ADDRESS * * OUTPUT A6 = FDB ADDRESS * A1 = 0 WHEN OK * = ERROR CODE ELSE * A9 = DM ECB ADDRESS * A8 = PHYS I/O ECB ADDRESS * A2 WILL BE DESTROYED * * USED REGISTERS : A1,A2,A6,A8,A9 * * DMTIOT EQU * LDR A6,A1 FDB ADDRESS LDKL A8,FDBECB ADR A8,A6 LD A9,DWTECB,A6 DM ECB ADDRESS DMTIT0 EQU * LD A1,ECBRC,A8 RF(Z) DMTIOX DISC I/O OK ANKL A1,/FEFF RF(NZ) DMTIT1 NOT ONLY RETRIES LDKL A2,/100 ORS A2,ECBRC,A9 USER RC RF DMTIOX DMTIT1 EQU * LD A2,FDBDBR,A6 ANKL A2,/C0FF ST A2,FDBDBR,A6 RELEASE BUFFER LD A2,ECBBA,A8 * GET BUFFER ADDR SUK A2,8 BUFSTA CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER LDK A1,/02 DISC IO ERROR LDKL A2,/FF7E NOT BIT 8 OR 15 AN A2,ECBRC,A8 RF(NZ) DMTIOX LD A1,ECBRC,A8 BIT 8 OR 15 DMTIOX RTN A14 EJECT * * DMTIOZ HAS ALMOST THE SAME FUNCTION AS DMTIOT BUT * ECB ADDR IS INPUT PARAM * * IN: A1 = FDB ADDR * A8 = ECB ADDR * OUT: * A1 = RET CODE * A2 = DESTROYED * A6 = FDB ADDR * A8 = ECB ADDR * A9 == USER ECB * DMTIOZ LDR A6,A1 LD A2,DWTOR,A6 ORDER ANK A2,/3F CWK A2,QIRN RF(E) DMTIZ1 INDEXED READ NEXT CWK A2,QIRR RF(E) DMTIZ1 INDEXED RANDOM READ LD A1,FDBADF,A6 FDB DATA FILE DMTIZ1 EQU * LD A9,DWTECB,A1 USER ECB RB DMTIT0 EJECT DMSUBR ****DESCRIPTION************************************* * * GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND * PREPARE IT. ECB IS PREPARED FOR PHYS I/O. * ****ENTRY PARAMETERS******************************** * * A1 = FDB ADDRESS * FDB-CEX,ECB,SNR,RRO * ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI * A8 = ECB ADDR * ****EXIT PARAMETERS********************************* * * A1 = A6 = FDB ADDR * A2 = FDBRRO WHEN SECTOR IS FOUND IN CORE * = -1 WHEN NO DATA IS FOUND IN * THE FOUND CORE BUFFER * A3 = BUFFER ADDRESS * A5 = ORDE R CODE * A8 = ECB ADDR * A9 = DM ECB ADDR * ****USED REGISTERS********************************** * * A1 - A9 * ****************************************************** GTBKBU EQU * LDR A6,A1 A6 = FDB ADDRESS LD A4,FDBCEX,A6 CURRENT EXTENT BLOCK POINTER LD A1,EXTDMI,A4 DMIDENT, FC LD A2,FDBSNR,A6 SECTOR NUMBER LD A9,DWTECB,A6 DM ECB ANK A1,/FF =1 STR A1,A8 DISC VOL FILE CODE =1 LDR A4,A2 SAVE LDKL A5,SECTLE ST A5,ECBRL,A8 SECTOR LENGTH CF A14,DMTGBU A3 := BUFFER ADDRESS RF GTB100 RETURN IF SECTOR FOUND IN BUFFER * RETURN IF SECTOR MUST BE READ FROM DISC LDKL A2,-1 RET CODE GTB040 EQU * ST A4,ECBCW,A8 SECTOR NR LDR A5,A3 ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS ST A5,ECBBA,A8 LD A5,DWTOR,A6 ANK A5,/3F LDR A1,A6 FDB ADDRESS AS PARAMETER RTN A14 GTB100 EQU * LD A2,FDBRRO,A6 REC OFFS IN BUFFER RB GTB040 STORE ORDER CODE EJECT DMSUBR ****DESCRIPTION************************************* * * GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO * ****ENTRY PARAMETERS******************************** * * A1 = FDB ADDRESS * FDBSNR,FDBRRO,FDBCEX * ****EXIT PARAMETERS********************************* * * A1=A5=A6= FDB ADDRESS * A2,A3 = LOG RECORD NO * ****USED REGISTERS********************************** * * A1 - A7 * ****************************************************** EJECT DMSUBR GTLGRN EQU * LDK A6,0 LDKL A3,FDBEXT ADKL A3,EXTLEN ADR A3,A1 ADDR FIRST EXT LENGTH LD A7,FDBCEX,A1 EXT ADDR ADKL A7,EXTLEN ADDR TO LAST LENGTH GTL050 EQU * CWR A3,A7 RF(E) GTL100 ALL PREVIOUS EXTENTS COUNTED * NOTE THAT ONLY (E) CAN BE TESTED ADR* A6,A3 NO OF SECT IN EXTENT ADKL A3,EXTELE EXT ENTRY LENGTH RB GTL050 NEXT EXTENT GTL100 EQU * LD A7,FDBCEX,A1 EXT ADDR SU A6,EXTBAS,A7 TOTAL NO OF SECTORS AD A6,FDBSNR,A1 TOTAL NR OF SECTORS * * CONVERT FDBRRO TO NO OF RECORDS * LDK A7,0 LC A7,FDBBLF,A1 BLOCK FACTOR LDR A5,A1 SAVE FDB ADDR CF A14,MPYMOD A1,A2=A6*A7 LD A4,FDBRLE,A5 ADK A4,1 RECORD LENGTH LDK A7,0 RECORD COUNTER LD A6,FDBRRO,A5 OFFSET IN SECTOR ADK A6,1 GTL150 EQU * ADK A7,1 RECORD COUNTER SUR A6,A4 RB(NN) GTL150 COUNT RECORDS IN SECTOR * * ADD SECT*BLOCFACT AND RECINCURRSECT * ADR A2,A7 RF(O) GTL160 OVERFLOW RF GTL170 GTL160 EQU * ANKL A2,/7FFF DELETE OVERFLOWBIT ADK A1,1 ADD CARRY GTL170 EQU * LDR A3,A2 LDR A2,A1 LDR A1,A5 FDB ADDR LDR A6,A5 RTN A14 EJECT DMSUBR * * IFT MMUPAG=1 * * M O V : U S * * THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO * THE SYSTEM AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA * ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. * * INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA) * A2 = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA) * A3 = NUMBER OF BYTES TO BE MOVED * * OUTPUT: A1-A4 ARE DESTROYED * MOV:US LDR A3,A3 CHECK REQUESTED LENGTH RF(NP) MVUS35 NO MOVE IF REQUESTED LENGTH <= 0 STR A5,A14 SAVE A5 LDR A4,A1 CHECK USER BUFFER ADDRESS ANK A4,1 RF(NZ) MVUS40 USER BUFFER ADDRESS UNEVEN? LDR A4,A2 NO, CHECK SYSTEM BUFFER ADDRESS ANK A4,1 RF(NZ) MVUS55 SYSTEM BUFFER ADDRESS UNEVEN? * MVUS10 LDR A4,A3 CHECK REQUESTED LENGTH ANK A4,1 RF(NZ) MVUS60 REQUESTED LENGTH UNEVEN? * MVUS20 MVUS A3 * MVUS30 LDR* A5,A14 RESTORE A5 * MVUS35 RTN A14 * EJECT DMSUBR * * MVUS40 EQU * USER BUFFER ADDRESS WAS UNEVEN LDR A4,A2 CHECK SYSTEM BUFFER ADDRESS ANK A4,1 RF(NZ) MVUS80 SYSTEM BUFFER ADDRESS UNEVEN? ELR A4,A1 NO, GET FIRST CHAR. FROM USER BUFFER * MVUS50 SCR A4,A2 STORE CHAR. IN SYSTEM BUFFER ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS SUK A3,1 DECREMENT REQUESTED LENGTH RB(NP) MVUS30 LAST CHAR. MOVED? ADK A1,2 NO, UPDATE USER BUFFER ADDRESS * MVUS55 ELR A4,A1 GET NEXT TWO CHAR. FROM USER BUFFER ECR A5,A4 SCR A5,A2 STORE ONE CHAR. IN SYSTEM BUFFER ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS SUK A3,1 DECREMENT REQUESTED LENGTH RB(P) MVUS50 MORE CHAR. TO MOVE? RB MVUS30 NO, RETURN * EJECT DMSUBR * * MVUS60 EQU * REQUESTED LENGTH WAS UNEVEN SUK A3,1 MAKE REQUESTED LENGTH EVEN RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? LDR A4,A1 NO, SAVE A1 LDR A5,A3 SAVE A3 MVUS A3 ADR A4,A5 UPDATE USER BUFFER ADDRESS ELR A5,A4 GET LAST CHAR. FROM USER BUFFER * MVUS65 ECR A5,A5 SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER RB MVUS30 RETURN * MVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER RB MVUS65 * MVUS80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN ELR A4,A1 GET FIRST CHAR. FROM USER BUFFER SCR A4,A2 STORE FIRST CHAR. IN SYSTEM BUFFER ADK A1,1 UPDATE BUFFER ADDRESSES ADK A2,1 SUK A3,1 DECREMENT REQUESTED LENGTH RB(P) MVUS10 MORE CHAR. TO MOVE? RB MVUS30 NO, RETURN * EJECT DMSUBR * * M O V : S U * * THIS ROUTINE MOVES DATA FROM THE SYSTEM AREA (SENDING BUFFER) TO * THE USER AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA * ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT. * * INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA) * A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) * A3 = NUMBER OF BYTES TO BE MOVED * * OUTPUT: A1-A4 ARE DESTROYED * MOV:SU EQU * LDR A3,A3 CHECK REQUESTED LENGTH RF(NP) MVSU35 NO MOVE IF REQUESTED LENGTH <= 0 STR A5,A14 SAVE A5 LDR A4,A2 CHECK USER BUFFER ADDRESS ANK A4,1 RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN? LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS ANK A4,1 RF(NZ) MVSU60 SYSTEM BUFFER ADDRESS UNEVEN? * MVSU10 LDR A4,A3 CHECK REQUESTED LENGTH ANK A4,1 RF(NZ) MVSU90 REQUESTED LENGTH UNEVEN? * MVSU20 MVSU A3 * MVSU30 LDR* A5,A14 RESTORE A5 * MVSU35 RTN A14 * EJECT DMSUBR * * MVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN LDR A4,A1 CHECK SYSTEM BUFFER ADDRESS ANK A4,1 RF(NZ) MVSU80 SYSTEM BUFFER ADDRESS UNEVEN? ELR A4,A2 NO, GET FIRST CHAR. FROM USER BUFFER RF MVSU65 * MVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER ECR A4,A4 ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS SUK A3,1 DECREMENT REQUESTED LENGTH RF(NP) MVSU70 IS THIS LAST CHARACTER? * MVSU65 LCR A4,A1 NO, GET NEXT CHAR. FROM SYSTEM BUFFER ESR A4,A2 STORE TWO CHAR. IN USER BUFFER ADK A1,1 UPDATE BUFFER ADDRESSES ADK A2,2 SUK A3,1 DECREMENT REQUESTED LENGTH RB(P) MVSU60 MORE CHAR. TO MOVE? RB MVSU30 NO, RETURN * MVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER ANK A3,/FF SKIP LEFT CHARACTER ANKL A4,/FF00 SKIP RIGHT CHARACTER ORR A3,A4 ESR A3,A2 STORE LAST CHAR. IN USER BUFFER RB MVSU30 RETURN * EJECT DMSUBR * * MVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER ANK A4,/FF SKIP LEFT CHARACTER ANKL A5,/FF00 SKIP RIGHT CHARACTER ORR A4,A5 ESR A4,A2 STORE FIRST CHAR. IN USER BUFFER ADK A1,1 UPDATE BUFFER ADDRESSES ADK A2,1 SUK A3,1 DECREMENT REQUESTED LENGTH RB(P) MVSU10 MORE CHARACTERS TO MOVE? RB MVSU30 NO, RETURN * MVSU90 EQU * REQUESTED LENGTH WAS UNEVEN SUK A3,1 MAKE REQUESTED LENGTH EVEN RF(NP) MVSU95 ONLY ONE CHAR. TO MOVE? LDR A4,A1 NO, SAVE A1 LDR A5,A3 SAVE A3 MVSU A3 ADR A4,A5 UPDATE BUFFER ADDRESSES ADR A2,A5 LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER RB MVSU70 * MVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER RB MVSU70 XIF * IFT MMUPAG=0 MOV:US EQU * DUMMY LABELS FOR NON-MMU SYSTEMS MOV:SU EQU * ABL TASHLT HALT SYSTEM DUE TO SYSGEN ERROR XIF * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DMSUBR REL 9.2 79-11-16 870105040920 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0056 Head {h00=0x0014, h01=0x0050, text=» =1 CLEAR ECB «, t00=0x0000, t01=0x0042}
0x0056…0072 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-04-06 «, t00=0x0000, t01=0x005a}
0x0072…007c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0076}
0x007c…00b8 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0080}
0x00b8…00c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00bc}
0x00c2…00ea Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00c6}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…011c Head {h00=0x0024, h01=0x0050, text=»* DMSUBR = COMMON DM-ROUTINES «, t00=0x0000, t01=0x00f8}
0x011c…0126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0120}
0x0126…0130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012a}
0x0130…013a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0134}
0x013a…0144 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013e}
0x0144…014e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0148}
0x014e…0158 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0152}
0x0158…0194 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x015c}
0x0194…01d0 Head {h00=0x0038, h01=0x0050, text=»****THIS MODULE IS ACTIVATED FROM :*****************«, t00=0x0001, t01=0x0008}
0x01d0…01da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0044}
0x01da…01fa Head {h00=0x001c, h01=0x0050, text=»* DMTASK,TIODM,DMTASS «, t00=0x0001, t01=0x004e}
0x01fa…0204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006e}
0x0204…021c Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0001, t01=0x0078}
0x021c…0234 Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x0090}
0x0234…024c Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0001, t01=0x00a8}
0x024c…0256 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00c0}
0x0256…0260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ca}
0x0260…028a Head {h00=0x0026, h01=0x0050, text=» ENTRY EATEST,EASETB,EARELB,CRNGET«, t00=0x0001, t01=0x00d4}
0x028a…02a0 Head {h00=0x0012, h01=0x0050, text=» ENTRY CALSNO «, t00=0x0001, t01=0x00fe}
0x02a0…02bc Head {h00=0x0018, h01=0x0050, text=» ENTRY GTBKBU,GTLGRN«, t00=0x0001, t01=0x0114}
0x02bc…02d2 Head {h00=0x0012, h01=0x0050, text=» ENTRY DMTIOT «, t00=0x0001, t01=0x0130}
0x02d2…02ee Head {h00=0x0018, h01=0x0050, text=» ENTRY CHKIND,REQEND«, t00=0x0001, t01=0x0146}
0x02ee…0304 Head {h00=0x0012, h01=0x0050, text=» ENTRY DMTIOZ «, t00=0x0001, t01=0x0162}
0x0304…0338 Head {h00=0x0030, h01=0x0050, text=» ENTRY MOV:US MOVE FROM USER TO SYSTEM AREA «, t00=0x0001, t01=0x0178}
0x0338…036c Head {h00=0x0030, h01=0x0050, text=» ENTRY MOV:SU MOVE FROM SYSTEM TO USER AREA «, t00=0x0002, t01=0x001c}
0x036c…0376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0050}
0x0376…0390 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0002, t01=0x005a}
0x0390…03aa Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0002, t01=0x0074}
0x03aa…03c4 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0002, t01=0x008e}
0x03c4…03ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a8}
0x03ce…03d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00b2}
0x03d8…0410 Head {h00=0x0034, h01=0x0050, text=» EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO«, t00=0x0002, t01=0x00bc}
0x0410…0434 Head {h00=0x0020, h01=0x0050, text=» EXTRN FDBCEX,FDBBLF,FDBEXT «, t00=0x0002, t01=0x00f4}
0x0434…0472 Head {h00=0x003a, h01=0x0050, text=» EXTRN FDBECB,DWTECB,DWTOR,EXTDMI,BUFSTA,BUFDMI,BUFOR «, t00=0x0002, t01=0x0118}
0x0472…0498 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRC,ECBFC,ECBCW,ECBBA«, t00=0x0002, t01=0x0156}
0x0498…04b6 Head {h00=0x001a, h01=0x0050, text=» EXTRN TTB:ID TASK ID «, t00=0x0002, t01=0x017c}
0x04b6…04d2 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTTDM,DWTTQ «, t00=0x0003, t01=0x000a}
0x04d2…04e6 Head {h00=0x0010, h01=0x0050, text=» EXTRN QTJOB«, t00=0x0003, t01=0x0026}
0x04e6…0502 Head {h00=0x0018, h01=0x0050, text=» EXTRN ECBRL,SECTLE «, t00=0x0003, t01=0x003a}
0x0502…051e Head {h00=0x0018, h01=0x0050, text=» EXTRN DIVMOD,MPYMOD«, t00=0x0003, t01=0x0056}
0x051e…0534 Head {h00=0x0012, h01=0x0050, text=» EXTRN EXTELE «, t00=0x0003, t01=0x0072}
0x0534…054a Head {h00=0x0012, h01=0x0050, text=» EXTRN CRNTID «, t00=0x0003, t01=0x0088}
0x054a…0560 Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTGBU «, t00=0x0003, t01=0x009e}
0x0560…057c Head {h00=0x0018, h01=0x0050, text=» EXTRN EXTLEN,EXTBAS«, t00=0x0003, t01=0x00b4}
0x057c…05a0 Head {h00=0x0020, h01=0x0050, text=» EXTRN CRNQUE,GETBLK,FREQUE «, t00=0x0003, t01=0x00d0}
0x05a0…05b4 Head {h00=0x0010, h01=0x0050, text=» EXTRN HALT «, t00=0x0003, t01=0x00f4}
0x05b4…05ca Head {h00=0x0012, h01=0x0050, text=» EXTRN CRBUFL «, t00=0x0003, t01=0x0108}
0x05ca…05f2 Head {h00=0x0024, h01=0x0050, text=» EXTRN IHRET2,IHRTN,FDBADF,DWTST«, t00=0x0003, t01=0x011e}
0x05f2…0608 Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBDBR «, t00=0x0003, t01=0x0146}
0x0608…0620 Head {h00=0x0014, h01=0x0050, text=» EXTRN QIRN,QIRR«, t00=0x0003, t01=0x015c}
0x0620…064a Head {h00=0x0026, h01=0x0050, text=» EXTRN TASHLT SYSTEM HALT ROUTINE «, t00=0x0003, t01=0x0174}
0x064a…066a Head {h00=0x001c, h01=0x0050, text=» EJECT DMSUBR TOSSIO«, t00=0x0004, t01=0x000e}
0x066a…0674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002e}
0x0674…067e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0038}
0x067e…06b0 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x0042}
0x06b0…06ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0074}
0x06ba…06d8 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x007e}
0x06d8…06e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009c}
0x06e2…0714 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x00a6}
0x0714…071e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d8}
0x071e…0750 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0004, t01=0x00e2}
0x0750…077e Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0004, t01=0x0114}
0x077e…0788 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0142}
0x0788…079c Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0004, t01=0x014c}
0x079c…07a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0160}
0x07a6…07be Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0004, t01=0x016a}
0x07be…07c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0182}
0x07c8…0800 Head {h00=0x0034, h01=0x0050, text=»* CHKIND IS USED FROM FNDDWT TO SELECT DM-DWT «, t00=0x0004, t01=0x018c}
0x0800…0836 Head {h00=0x0032, h01=0x0050, text=»* INDEX FILE (INDEX 0) SHALL BE SELECTED FOR«, t00=0x0005, t01=0x0034}
0x0836…0862 Head {h00=0x0028, h01=0x0050, text=»* DX,IX,XR,XN, DATA FILE OTHERWISE«, t00=0x0005, t01=0x006a}
0x0862…086c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0096}
0x086c…0880 Head {h00=0x0010, h01=0x0050, text=»CHKIND EQU *«, t00=0x0005, t01=0x00a0}
0x0880…0894 Head {h00=0x0010, h01=0x0050, text=» STR A1,A15 «, t00=0x0005, t01=0x00b4}
0x0894…08a8 Head {h00=0x0010, h01=0x0050, text=» STR A2,A15 «, t00=0x0005, t01=0x00c8}
0x08a8…08ce Head {h00=0x0022, h01=0x0050, text=» LDK A2,1 INDEX FOR DATA FILE «, t00=0x0005, t01=0x00dc}
0x08ce…08e6 Head {h00=0x0014, h01=0x0050, text=» LDR A1,A7 ORDER«, t00=0x0005, t01=0x0102}
0x08e6…08fa Head {h00=0x0010, h01=0x0050, text=» ANK A1,/3F «, t00=0x0005, t01=0x011a}
0x08fa…090e Head {h00=0x0010, h01=0x0050, text=» CWK A1,/20 «, t00=0x0005, t01=0x012e}
0x090e…0930 Head {h00=0x001e, h01=0x0050, text=» RF(E) FND320 DELETE INDEX«, t00=0x0005, t01=0x0142}
0x0930…0944 Head {h00=0x0010, h01=0x0050, text=» CWK A1,/1A «, t00=0x0005, t01=0x0164}
0x0944…0966 Head {h00=0x001e, h01=0x0050, text=» RF(E) FND320 INDEXED READ«, t00=0x0005, t01=0x0178}
0x0966…0988 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/3E REMOVE BIT 15 «, t00=0x0006, t01=0x000a}
0x0988…099c Head {h00=0x0010, h01=0x0050, text=» SUK A1,/1E «, t00=0x0006, t01=0x002c}
0x099c…09d4 Head {h00=0x0034, h01=0x0050, text=» RF(E) FND320 INSERT INDEX OR INDEXED READ NEXT «, t00=0x0006, t01=0x0040}
0x09d4…09e6 Head {h00=0x000e, h01=0x0050, text=» RF FND340«, t00=0x0006, t01=0x0078}
0x09e6…0a12 Head {h00=0x0028, h01=0x0050, text=»FND320 LDK A2,0 INDEX FOR INDEX FILE«, t00=0x0006, t01=0x008a}
0x0a12…0a26 Head {h00=0x0010, h01=0x0050, text=»FND340 EQU *«, t00=0x0006, t01=0x00b6}
0x0a26…0a3e Head {h00=0x0014, h01=0x0050, text=» CCR A2,A6 INDEX«, t00=0x0006, t01=0x00ca}
0x0a3e…0a60 Head {h00=0x001e, h01=0x0050, text=» RF(E) FND390 ENTRY FOUND «, t00=0x0006, t01=0x00e2}
0x0a60…0a72 Head {h00=0x000e, h01=0x0050, text=» LDK A1,2 «, t00=0x0006, t01=0x0104}
0x0a72…0aa0 Head {h00=0x002a, h01=0x0050, text=» ADS A1,8,A15 RETURN+2 WHEN NOT FOUND «, t00=0x0006, t01=0x0116}
0x0aa0…0aba Head {h00=0x0016, h01=0x0050, text=»FND390 ABL IHRET2 «, t00=0x0006, t01=0x0144}
0x0aba…0ad2 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0006, t01=0x015e}
0x0ad2…0adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0176}
0x0adc…0b1a Head {h00=0x003a, h01=0x0050, text=»* REQEND IS USED IN TENDIO TO RESET REQUEST BUSY BIT«, t00=0x0006, t01=0x0180}
0x0b1a…0b34 Head {h00=0x0016, h01=0x0050, text=»* FOR ALL FILES «, t00=0x0007, t01=0x002e}
0x0b34…0b5a Head {h00=0x0022, h01=0x0050, text=»* AND TO RESOLVE ALL QUEUES «, t00=0x0007, t01=0x0048}
0x0b5a…0b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x006e}
0x0b64…0b78 Head {h00=0x0010, h01=0x0050, text=»REQEND EQU *«, t00=0x0007, t01=0x0078}
0x0b78…0b9c Head {h00=0x0020, h01=0x0050, text=» LC A2,TTB:ID,A5 GET TASK ID«, t00=0x0007, t01=0x008c}
0x0b9c…0bb0 Head {h00=0x0010, h01=0x0050, text=» CCK A2,'##'«, t00=0x0007, t01=0x00b0}
0x0bb0…0bdc Head {h00=0x0028, h01=0x0050, text=» RF(E) TEN117 JUMP IF DMTASK CALLING«, t00=0x0007, t01=0x00c4}
0x0bdc…0be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f0}
0x0be6…0c16 Head {h00=0x002c, h01=0x0050, text=»* RESET REQUEST BUSY BIT FOR ALL FILES«, t00=0x0007, t01=0x00fa}
0x0c16…0c20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x012a}
0x0c20…0c46 Head {h00=0x0022, h01=0x0050, text=» LDK A2,10 MAX NO OF FILES * 2«, t00=0x0007, t01=0x0134}
0x0c46…0c74 Head {h00=0x002a, h01=0x0050, text=» STR A4,A15 SAVE A4 (USED BY TENDIO!!)«, t00=0x0007, t01=0x015a}
0x0c74…0c88 Head {h00=0x0010, h01=0x0050, text=»TEN112 EQU *«, t00=0x0007, t01=0x0188}
0x0c88…0c9a Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0008, t01=0x000c}
0x0c9a…0cbe Head {h00=0x0020, h01=0x0050, text=» RF(N) TEN115 NO MORE FILES «, t00=0x0008, t01=0x001e}
0x0cbe…0cd0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A6«, t00=0x0008, t01=0x0042}
0x0cd0…0ce2 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x0008, t01=0x0054}
0x0ce2…0d04 Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBADF,A3 FDB ADDR «, t00=0x0008, t01=0x0066}
0x0d04…0d1a Head {h00=0x0012, h01=0x0050, text=» RB(Z) TEN112 «, t00=0x0008, t01=0x0088}
0x0d1a…0d36 Head {h00=0x0018, h01=0x0050, text=» CWR A3,A6 DWT ADDR «, t00=0x0008, t01=0x009e}
0x0d36…0d56 Head {h00=0x001c, h01=0x0050, text=» RF(E) TEN114 MASTER DWT«, t00=0x0008, t01=0x00ba}
0x0d56…0d6e Head {h00=0x0014, h01=0x0050, text=» LD A5,DWTTQ,A3 «, t00=0x0008, t01=0x00da}
0x0d6e…0d8c Head {h00=0x001a, h01=0x0050, text=» RF(Z) TEN113 NO QUEUE«, t00=0x0008, t01=0x00f2}
0x0d8c…0da0 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A5 «, t00=0x0008, t01=0x0110}
0x0da0…0dc2 Head {h00=0x001e, h01=0x0050, text=» ST A4,DWTTQ,A3 NEW ANCHOR«, t00=0x0008, t01=0x0124}
0x0dc2…0de6 Head {h00=0x0020, h01=0x0050, text=» CF A15,QTJOB REPEAT REQUEST«, t00=0x0008, t01=0x0146}
0x0de6…0e0c Head {h00=0x0022, h01=0x0050, text=»TEN113 LD A5,DWTTDM,A6 RESTORE«, t00=0x0008, t01=0x016a}
0x0e0c…0e20 Head {h00=0x0010, h01=0x0050, text=»TEN114 EQU *«, t00=0x0008, t01=0x0190}
0x0e20…0e48 Head {h00=0x0024, h01=0x0050, text=» LDKL A4,/BFFF REQUEST BUSY BIT «, t00=0x0009, t01=0x0014}
0x0e48…0e66 Head {h00=0x001a, h01=0x0050, text=» ANS A4,DWTST,A3 RESET«, t00=0x0009, t01=0x003c}
0x0e66…0e7e Head {h00=0x0014, h01=0x0050, text=» LDKL A4,/8000 «, t00=0x0009, t01=0x005a}
0x0e7e…0ea6 Head {h00=0x0024, h01=0x0050, text=» ORS A4,DWTST,A3 DEVICE NOT BUSY«, t00=0x0009, t01=0x0072}
0x0ea6…0eb8 Head {h00=0x000e, h01=0x0050, text=» RB TEN112«, t00=0x0009, t01=0x009a}
0x0eb8…0ecc Head {h00=0x0010, h01=0x0050, text=»TEN115 EQU *«, t00=0x0009, t01=0x00ac}
0x0ecc…0eec Head {h00=0x001c, h01=0x0050, text=» LDR* A4,A15 RESTORE A4 «, t00=0x0009, t01=0x00c0}
0x0eec…0ef6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e0}
0x0ef6…0f0a Head {h00=0x0010, h01=0x0050, text=»TEN117 EQU *«, t00=0x0009, t01=0x00ea}
0x0f0a…0f1c Head {h00=0x000e, h01=0x0050, text=» ABL IHRTN«, t00=0x0009, t01=0x00fe}
0x0f1c…0f34 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0009, t01=0x0110}
0x0f34…0f70 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0009, t01=0x0128}
0x0f70…0f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0164}
0x0f7a…0fba Head {h00=0x003c, h01=0x0050, text=»* EATEST WILL SEARCH THE EA-LINK FOR A LOG RECORD NO. «, t00=0x0009, t01=0x016e}
0x0fba…0fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x001e}
0x0fc4…1000 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x000a, t01=0x0028}
0x1000…100a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0064}
0x100a…1026 Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADRESS «, t00=0x000a, t01=0x006e}
0x1026…1048 Head {h00=0x001e, h01=0x0050, text=»* A2,A3 = LOG RECORD NO «, t00=0x000a, t01=0x008a}
0x1048…1052 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ac}
0x1052…106e Head {h00=0x0018, h01=0x0050, text=»* CF A14,EATEST «, t00=0x000a, t01=0x00b6}
0x106e…1078 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00d2}
0x1078…10b4 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x000a, t01=0x00dc}
0x10b4…10be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0118}
0x10be…10dc Head {h00=0x001a, h01=0x0050, text=»* A1-A3 = UNCHANGED «, t00=0x000a, t01=0x0122}
0x10dc…10fe Head {h00=0x001e, h01=0x0050, text=»* A4 = 0 NO EA AT ALL «, t00=0x000a, t01=0x0140}
0x10fe…112c Head {h00=0x002a, h01=0x0050, text=»* = +1 EA FOUND FOR ACTUAL TASK «, t00=0x000a, t01=0x0162}
0x112c…115a Head {h00=0x002a, h01=0x0050, text=»* = -1 EA FOUND FO R OTHER TASK «, t00=0x000a, t01=0x0190}
0x115a…1164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x002e}
0x1164…11a0 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x000b, t01=0x0038}
0x11a0…11aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0074}
0x11aa…11be Head {h00=0x0010, h01=0x0050, text=»* A1 - A4 «, t00=0x000b, t01=0x007e}
0x11be…11d6 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x000b, t01=0x0092}
0x11d6…11ea Head {h00=0x0010, h01=0x0050, text=»EATEST EQU *«, t00=0x000b, t01=0x00aa}
0x11ea…1210 Head {h00=0x0022, h01=0x0050, text=» LD A4,FDBEAL,A1 BUFFER QUEUE «, t00=0x000b, t01=0x00be}
0x1210…1222 Head {h00=0x000e, h01=0x0050, text=» RF EAT030«, t00=0x000b, t01=0x00e4}
0x1222…1236 Head {h00=0x0010, h01=0x0050, text=»EAT020 EQU *«, t00=0x000b, t01=0x00f6}
0x1236…125a Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A4 NEXT BUFFER ADR «, t00=0x000b, t01=0x010a}
0x125a…126e Head {h00=0x0010, h01=0x0050, text=»EAT030 EQU *«, t00=0x000b, t01=0x012e}
0x126e…1296 Head {h00=0x0024, h01=0x0050, text=» RF(Z) EAT100 EMPTY QUEUE,NO EA «, t00=0x000b, t01=0x0142}
0x1296…12a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x016a}
0x12a0…12be Head {h00=0x001a, h01=0x0050, text=»* SEARCH LOG REC NO «, t00=0x000b, t01=0x0174}
0x12be…12c8 (12, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0004}
0x12c8…12e6 Head {h00=0x001a, h01=0x0050, text=» CC A2,3,A4 FIRST CHAR«, t00=0x000c, t01=0x000e}
0x12e6…12fc Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAT020«, t00=0x000c, t01=0x002c}
0x12fc…131c Head {h00=0x001c, h01=0x0050, text=» CW A3,4,A4 2 AND 3 CHAR«, t00=0x000c, t01=0x0042}
0x131c…1332 Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAT020«, t00=0x000c, t01=0x0062}
0x1332…133c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0078}
0x133c…1358 Head {h00=0x0018, h01=0x0050, text=»* RECORD NO FOUND «, t00=0x000c, t01=0x0082}
0x1358…1362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009e}
0x1362…1376 Head {h00=0x0010, h01=0x0050, text=» LC A4,2,A4 «, t00=0x000c, t01=0x00a8}
0x1376…1396 Head {h00=0x001c, h01=0x0050, text=» CC A4,FDBTNR,A1 TASK ID«, t00=0x000c, t01=0x00bc}
0x1396…13ac Head {h00=0x0012, h01=0x0050, text=» RF(E) EAT060 «, t00=0x000c, t01=0x00dc}
0x13ac…13ce Head {h00=0x001e, h01=0x0050, text=» LDKL A4,-1 EA OTHER TASK «, t00=0x000c, t01=0x00f2}
0x13ce…13e0 Head {h00=0x000e, h01=0x0050, text=» RF EAT100«, t00=0x000c, t01=0x0114}
0x13e0…13f4 Head {h00=0x0010, h01=0x0050, text=»EAT060 EQU *«, t00=0x000c, t01=0x0126}
0x13f4…1414 Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 EA SAME ATASK «, t00=0x000c, t01=0x013a}
0x1414…1428 Head {h00=0x0010, h01=0x0050, text=»EAT100 EQU *«, t00=0x000c, t01=0x015a}
0x1428…1438 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000c, t01=0x016e}
0x1438…1450 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x000c, t01=0x017e}
0x1450…148c Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x000d, t01=0x0008}
0x148c…1496 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0044}
0x1496…14dc Head {h00=0x0042, h01=0x0050, text=»* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK«, t00=0x000d, t01=0x004e}
0x14dc…152c Head {h00=0x004c, h01=0x0050, text=»* IF NO BUFFERS ARE AVAILABLE THE SYSTEM WILL HALT AND LITE SOP-LAMPS «, t00=0x000d, t01=0x0094}
0x152c…1536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e4}
0x1536…1572 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x000d, t01=0x00ee}
0x1572…157c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x012a}
0x157c…1596 Head {h00=0x0016, h01=0x0050, text=»* A6 = FDB ADDR «, t00=0x000d, t01=0x0134}
0x1596…15bc Head {h00=0x0022, h01=0x0050, text=»* A2,A3 = LOGICAL RECORD NO «, t00=0x000d, t01=0x014e}
0x15bc…15c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0174}
0x15c6…15e2 Head {h00=0x0018, h01=0x0050, text=»* CF A14,EASETB «, t00=0x000d, t01=0x017e}
0x15e2…15ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000a}
0x15ec…1628 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x000e, t01=0x0014}
0x1628…1632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0050}
0x1632…164c Head {h00=0x0016, h01=0x0050, text=»* A6 = FDB ADDR «, t00=0x000e, t01=0x005a}
0x164c…1656 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0074}
0x1656…1692 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x000e, t01=0x007e}
0x1692…169c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ba}
0x169c…16b0 Head {h00=0x0010, h01=0x0050, text=»* A1-A4,A6«, t00=0x000e, t01=0x00c4}
0x16b0…16ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00d8}
0x16ba…16fa Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x000e, t01=0x00e2}
0x16fa…1712 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x000e, t01=0x0122}
0x1712…1726 Head {h00=0x0010, h01=0x0050, text=»EASETB EQU *«, t00=0x000e, t01=0x013a}
0x1726…1738 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x000e, t01=0x014e}
0x1738…1758 Head {h00=0x001c, h01=0x0050, text=» LC A2,FDBTNR,A6 TASK ID«, t00=0x000e, t01=0x0160}
0x1758…176a Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x000e, t01=0x0180}
0x176a…1788 (15, 0, 400) Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 LOG REC NO «, t00=0x000f, t01=0x0004}
0x1788…1794 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x000f, t01=0x0022}
0x1794…17c4 Head {h00=0x002c, h01=0x0050, text=» CF A15,GETBLK GET BUFF AND STORE A1,A2 «, t00=0x000f, t01=0x002e}
0x17c4…17ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x005e}
0x17ce…17ec Head {h00=0x001a, h01=0x0050, text=»* LINK BUFFER TO FDB«, t00=0x000f, t01=0x0068}
0x17ec…17f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0086}
0x17f6…1818 Head {h00=0x001e, h01=0x0050, text=» LD A2,FDBEAL,A6 LINK ROOT«, t00=0x000f, t01=0x0090}
0x1818…1832 Head {h00=0x0016, h01=0x0050, text=» STR A2,A4 THREAD «, t00=0x000f, t01=0x00b2}
0x1832…1854 Head {h00=0x001e, h01=0x0050, text=» ST A4,FDBEAL,A6 NEW ROOT «, t00=0x000f, t01=0x00cc}
0x1854…1864 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x000f, t01=0x00ee}
0x1864…187c Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x000f, t01=0x00fe}
0x187c…18b8 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x000f, t01=0x0116}
0x18b8…18c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0152}
0x18c2…18fe Head {h00=0x0038, h01=0x0050, text=»* EARELB WILL RELEASE EA BUFFERS AND CONNRECT THEM«, t00=0x000f, t01=0x015c}
0x18fe…191c Head {h00=0x001a, h01=0x0050, text=»* TIO THE FREE LINK.«, t00=0x0010, t01=0x0008}
0x191c…1926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0026}
0x1926…1962 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0010, t01=0x0030}
0x1962…196c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x006c}
0x196c…1988 Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB-ADDRESS«, t00=0x0010, t01=0x0076}
0x1988…19ae Head {h00=0x0022, h01=0x0050, text=»* A2,A3 = LOGICAL RECORD NO «, t00=0x0010, t01=0x0092}
0x19ae…19f4 Head {h00=0x0042, h01=0x0050, text=»* A2: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB «, t00=0x0010, t01=0x00b8}
0x19f4…1a20 Head {h00=0x0028, h01=0x0050, text=»* IS REMOVED.«, t00=0x0010, t01=0x00fe}
0x1a20…1a60 Head {h00=0x003c, h01=0x0050, text=»* BIT 0=1,BIT 1=0 ALL BUFFERS ON FDB IS REMOVED. «, t00=0x0010, t01=0x012a}
0x1a60…1aae Head {h00=0x004a, h01=0x0050, text=»* BIT 0=0 THE FIRST BUFFER WITH TASK ID AND LOG REC NO «, t00=0x0010, t01=0x016a}
0x1aae…1ae2 Head {h00=0x0030, h01=0x0050, text=»* AS SPEC IS REMOVED.«, t00=0x0011, t01=0x0028}
0x1ae2…1aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x005c}
0x1aec…1b28 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0011, t01=0x0066}
0x1b28…1b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00a2}
0x1b32…1b4c Head {h00=0x0016, h01=0x0050, text=»* A1 = UNCHANGED«, t00=0x0011, t01=0x00ac}
0x1b4c…1b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c6}
0x1b56…1b92 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0011, t01=0x00d0}
0x1b92…1b9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010c}
0x1b9c…1bb0 Head {h00=0x0010, h01=0x0050, text=»* A1 - A5 «, t00=0x0011, t01=0x0116}
0x1bb0…1bc8 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0011, t01=0x012a}
0x1bc8…1bdc Head {h00=0x0010, h01=0x0050, text=»EARELB EQU *«, t00=0x0011, t01=0x0142}
0x1bdc…1bee Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x0011, t01=0x0156}
0x1bee…1c0e Head {h00=0x001c, h01=0x0050, text=» ADKL A5,FDBEAL ROOT ADR«, t00=0x0011, t01=0x0168}
0x1c0e…1c2a Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A5 EA ROOT «, t00=0x0011, t01=0x0188}
0x1c2a…1c3c Head {h00=0x000e, h01=0x0050, text=» RF EAR030«, t00=0x0012, t01=0x0014}
0x1c3c…1c50 Head {h00=0x0010, h01=0x0050, text=»EAR020 EQU *«, t00=0x0012, t01=0x0026}
0x1c50…1c70 Head {h00=0x001c, h01=0x0050, text=» LDR A5,A4 SAVE OLD ROOT«, t00=0x0012, t01=0x003a}
0x1c70…1c94 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A4 NEXT BUFFER ADR «, t00=0x0012, t01=0x005a}
0x1c94…1ca8 Head {h00=0x0010, h01=0x0050, text=»EAR030 EQU *«, t00=0x0012, t01=0x007e}
0x1ca8…1cca Head {h00=0x001e, h01=0x0050, text=» RF(Z) EAR100 EA LINK END «, t00=0x0012, t01=0x0092}
0x1cca…1ce4 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 REC NO «, t00=0x0012, t01=0x00b4}
0x1ce4…1d0e Head {h00=0x0026, h01=0x0050, text=» RF(N) EAR050 RELEASE MANY BUFFERS«, t00=0x0012, t01=0x00ce}
0x1d0e…1d18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f8}
0x1d18…1d36 Head {h00=0x001a, h01=0x0050, text=»* SEARCH LOG REC NO «, t00=0x0012, t01=0x0102}
0x1d36…1d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0120}
0x1d40…1d54 Head {h00=0x0010, h01=0x0050, text=» CC A2,3,A4 «, t00=0x0012, t01=0x012a}
0x1d54…1d6a Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAR020«, t00=0x0012, t01=0x013e}
0x1d6a…1d7e Head {h00=0x0010, h01=0x0050, text=» CW A3,4,A4 «, t00=0x0012, t01=0x0154}
0x1d7e…1d94 Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAR020«, t00=0x0012, t01=0x0168}
0x1d94…1da6 Head {h00=0x000e, h01=0x0050, text=» RF EAR060«, t00=0x0012, t01=0x017e}
0x1da6…1dba Head {h00=0x0010, h01=0x0050, text=»EAR050 EQU *«, t00=0x0012, t01=0x0190}
0x1dba…1ddc Head {h00=0x001e, h01=0x0050, text=» CWK A2,/A000 CHECK BIT 1 «, t00=0x0013, t01=0x0014}
0x1ddc…1e10 Head {h00=0x0030, h01=0x0050, text=» RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED«, t00=0x0013, t01=0x0036}
0x1e10…1e24 Head {h00=0x0010, h01=0x0050, text=»EAR060 EQU *«, t00=0x0013, t01=0x006a}
0x1e24…1e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007e}
0x1e2e…1e4c Head {h00=0x001a, h01=0x0050, text=»* SEARCH TASK IDENT «, t00=0x0013, t01=0x0088}
0x1e4c…1e56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a6}
0x1e56…1e76 Head {h00=0x001c, h01=0x0050, text=» LC A3,FDBTNR,A1 TAK ID «, t00=0x0013, t01=0x00b0}
0x1e76…1e8a Head {h00=0x0010, h01=0x0050, text=» CC A3,2,A4 «, t00=0x0013, t01=0x00d0}
0x1e8a…1ea0 Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAR020«, t00=0x0013, t01=0x00e4}
0x1ea0…1eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00fa}
0x1eaa…1ec6 Head {h00=0x0018, h01=0x0050, text=»* EA BUFFER FOUND «, t00=0x0013, t01=0x0104}
0x1ec6…1ed0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0120}
0x1ed0…1ee4 Head {h00=0x0010, h01=0x0050, text=»EAR080 EQU *«, t00=0x0013, t01=0x012a}
0x1ee4…1f04 Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A4 NEXT BUFADR «, t00=0x0013, t01=0x013e}
0x1f04…1f2e Head {h00=0x0026, h01=0x0050, text=» STR A3,A5 REMOVE BUFFER FROM LINK«, t00=0x0013, t01=0x015e}
0x1f2e…1f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0188}
0x1f38…1f5a (20, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* RETURN BUFFER TO POOL «, t00=0x0014, t01=0x0004}
0x1f5a…1f64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0026}
0x1f64…1f70 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0014, t01=0x0030}
0x1f70…1f86 Head {h00=0x0012, h01=0x0050, text=» LD A3,FREQUE «, t00=0x0014, t01=0x003c}
0x1f86…1fa2 Head {h00=0x0018, h01=0x0050, text=» STR A3,A4 NEXT FREE«, t00=0x0014, t01=0x0052}
0x1fa2…1fc0 Head {h00=0x001a, h01=0x0050, text=» ST A4,FREQUE NEW ROOT«, t00=0x0014, t01=0x006e}
0x1fc0…1fde Head {h00=0x001a, h01=0x0050, text=» LDR A4,A5 BUFFER ROOT«, t00=0x0014, t01=0x008c}
0x1fde…1ff0 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0014, t01=0x00aa}
0x1ff0…2012 Head {h00=0x001e, h01=0x0050, text=» RB(N) EAR020 RELEASE MORE«, t00=0x0014, t01=0x00bc}
0x2012…2026 Head {h00=0x0010, h01=0x0050, text=»EAR100 EQU *«, t00=0x0014, t01=0x00de}
0x2026…2036 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x00f2}
0x2036…204e Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0014, t01=0x0102}
0x204e…208a Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0014, t01=0x011a}
0x208a…2094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0156}
0x2094…20dc Head {h00=0x0044, h01=0x0050, text=»* CRNGET WILL SEARCH THE CRN-LINK FOR TASK ID. IF NO BUFFER IS«, t00=0x0014, t01=0x0160}
0x20dc…2124 Head {h00=0x0044, h01=0x0050, text=»* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH «, t00=0x0015, t01=0x0018}
0x2124…2170 Head {h00=0x0048, h01=0x0050, text=»* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE«, t00=0x0015, t01=0x0060}
0x2170…21a4 Head {h00=0x0030, h01=0x0050, text=»* THE SYSTEM WILL HALT AND LITE SOP-LAMPS.«, t00=0x0015, t01=0x00ac}
0x21a4…21d0 Head {h00=0x0028, h01=0x0050, text=»* TASK ID IS PLACED IN THE BUFFER «, t00=0x0015, t01=0x00e0}
0x21d0…21da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x010c}
0x21da…2216 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0015, t01=0x0116}
0x2216…2220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0152}
0x2220…2246 Head {h00=0x0022, h01=0x0050, text=»* A1 = FDB ADDRESS DATA FILE«, t00=0x0015, t01=0x015c}
0x2246…2250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0182}
0x2250…228c Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0015, t01=0x018c}
0x228c…2296 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0038}
0x2296…22b0 Head {h00=0x0016, h01=0x0050, text=»* A1 = UNCHANGED«, t00=0x0016, t01=0x0042}
0x22b0…22dc Head {h00=0x0028, h01=0x0050, text=»* A2 = ADDRESS OF FOUND CRN-BUFFER«, t00=0x0016, t01=0x005c}
0x22dc…22e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0088}
0x22e6…2322 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0016, t01=0x0092}
0x2322…232c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00ce}
0x232c…2340 Head {h00=0x0010, h01=0x0050, text=»* A1 - A4 «, t00=0x0016, t01=0x00d8}
0x2340…2358 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0016, t01=0x00ec}
0x2358…236c Head {h00=0x0010, h01=0x0050, text=»CRNGET EQU *«, t00=0x0016, t01=0x0104}
0x236c…238e Head {h00=0x001e, h01=0x0050, text=» LD A2,FDBCRL,A1 CRN ROOT «, t00=0x0016, t01=0x0118}
0x238e…23a0 Head {h00=0x000e, h01=0x0050, text=» RF CRN030«, t00=0x0016, t01=0x013a}
0x23a0…23b4 Head {h00=0x0010, h01=0x0050, text=»CRN020 EQU *«, t00=0x0016, t01=0x014c}
0x23b4…23d4 Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A2 NEXT BUFFER «, t00=0x0016, t01=0x0160}
0x23d4…23e8 Head {h00=0x0010, h01=0x0050, text=»CRN030 EQU *«, t00=0x0016, t01=0x0180}
0x23e8…2406 (23, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RF(Z) CRN100 LINK END«, t00=0x0017, t01=0x0004}
0x2406…2410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0022}
0x2410…242e Head {h00=0x001a, h01=0x0050, text=»* CHECK ATASK IDENT «, t00=0x0017, t01=0x002c}
0x242e…2438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004a}
0x2438…2458 Head {h00=0x001c, h01=0x0050, text=» LC A3,FDBTNR,A1 TASK ID«, t00=0x0017, t01=0x0054}
0x2458…2470 Head {h00=0x0014, h01=0x0050, text=» CC A3,CRNTID,A2«, t00=0x0017, t01=0x0074}
0x2470…2492 Head {h00=0x001e, h01=0x0050, text=» RB(NE) CRN020 OTHER TASK «, t00=0x0017, t01=0x008c}
0x2492…24b2 Head {h00=0x001c, h01=0x0050, text=» RF CRN200 BUFFER FOUND «, t00=0x0017, t01=0x00ae}
0x24b2…24bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ce}
0x24bc…24d6 Head {h00=0x0016, h01=0x0050, text=»* GET NEW BUFFER«, t00=0x0017, t01=0x00d8}
0x24d6…24e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00f2}
0x24e0…24f4 Head {h00=0x0010, h01=0x0050, text=»CRN100 EQU *«, t00=0x0017, t01=0x00fc}
0x24f4…2500 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0017, t01=0x0110}
0x2500…2524 Head {h00=0x0020, h01=0x0050, text=» LD A2,CRNQUE FREE LINK ROOT«, t00=0x0017, t01=0x011c}
0x2524…253a Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CRN120«, t00=0x0017, t01=0x0140}
0x253a…255a Head {h00=0x001c, h01=0x0050, text=» LDK A1,3 LAMP 10 AND 11«, t00=0x0017, t01=0x0156}
0x255a…257e Head {h00=0x0020, h01=0x0050, text=» CF A15,HALT NO MORE BUFFERS«, t00=0x0017, t01=0x0176}
0x257e…2592 Head {h00=0x0010, h01=0x0050, text=»CRN120 EQU *«, t00=0x0018, t01=0x000a}
0x2592…25b0 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A2 NEXT FREE «, t00=0x0018, t01=0x001e}
0x25b0…25ce Head {h00=0x001a, h01=0x0050, text=» ST A3,CRNQUE UPD ROOT«, t00=0x0018, t01=0x003c}
0x25ce…25d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x005a}
0x25d8…25fc Head {h00=0x0020, h01=0x0050, text=»* FILL BUFFER WITH ZEROES «, t00=0x0018, t01=0x0064}
0x25fc…2606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0088}
0x2606…2634 Head {h00=0x002a, h01=0x0050, text=» LDKL A3,CRBUFL BUFFER LENGTH IN BYTES«, t00=0x0018, t01=0x0092}
0x2634…2648 Head {h00=0x0010, h01=0x0050, text=»CRN140 EQU *«, t00=0x0018, t01=0x00c0}
0x2648…266c Head {h00=0x0020, h01=0x0050, text=» SUK A3,2 ZEROE WORDS 2 - N «, t00=0x0018, t01=0x00d4}
0x266c…2690 Head {h00=0x0020, h01=0x0050, text=» RF(NP) CRN160 BUFFER ZEROED«, t00=0x0018, t01=0x00f8}
0x2690…26ae Head {h00=0x001a, h01=0x0050, text=» LDR A4,A2 BUFFER ADR «, t00=0x0018, t01=0x011c}
0x26ae…26d2 Head {h00=0x0020, h01=0x0050, text=» ADR A4,A3 OFFSET IN BUFFER «, t00=0x0018, t01=0x013a}
0x26d2…26e2 Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0018, t01=0x015e}
0x26e2…2700 Head {h00=0x001a, h01=0x0050, text=» RB CRN140 MORE WORDS «, t00=0x0018, t01=0x016e}
0x2700…270a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x018c}
0x270a…2730 Head {h00=0x0022, h01=0x0050, text=»* CONNECT NEW BUFFER TO LINK«, t00=0x0019, t01=0x0008}
0x2730…273a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x002e}
0x273a…274e Head {h00=0x0010, h01=0x0050, text=»CRN160 EQU *«, t00=0x0019, t01=0x0038}
0x274e…2766 Head {h00=0x0014, h01=0x0050, text=» LC A3,FDBTNR,A1«, t00=0x0019, t01=0x004c}
0x2766…2786 Head {h00=0x001c, h01=0x0050, text=» SC A3,CRNTID,A2 TASK ID«, t00=0x0019, t01=0x0064}
0x2786…27a8 Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBCRL,A1 LINK ROOT«, t00=0x0019, t01=0x0084}
0x27a8…27c2 Head {h00=0x0016, h01=0x0050, text=» STR A3,A2 THREAD «, t00=0x0019, t01=0x00a6}
0x27c2…27e4 Head {h00=0x001e, h01=0x0050, text=» ST A2,FDBCRL,A1 NEW ROOT «, t00=0x0019, t01=0x00c0}
0x27e4…27f8 Head {h00=0x0010, h01=0x0050, text=»CRN200 EQU *«, t00=0x0019, t01=0x00e2}
0x27f8…2808 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0019, t01=0x00f6}
0x2808…2820 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0019, t01=0x0106}
0x2820…285c Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0019, t01=0x011e}
0x285c…2866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x015a}
0x2866…289c Head {h00=0x0032, h01=0x0050, text=»* CALSNO WILL CONVERT A LOGICAL RECORD NO TO«, t00=0x0019, t01=0x0164}
0x289c…28ba Head {h00=0x001a, h01=0x0050, text=»* SECTOR AND OFFSET «, t00=0x001a, t01=0x000a}
0x28ba…28c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0028}
0x28c4…2900 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x001a, t01=0x0032}
0x2900…290a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x006e}
0x290a…2930 Head {h00=0x0022, h01=0x0050, text=»* A1,A2 = LOGICAL RECORD NO «, t00=0x001a, t01=0x0078}
0x2930…294a Head {h00=0x0016, h01=0x0050, text=»* A6 = FDB ADDR «, t00=0x001a, t01=0x009e}
0x294a…2954 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00b8}
0x2954…2970 Head {h00=0x0018, h01=0x0050, text=»* CF A14,CALSNO «, t00=0x001a, t01=0x00c2}
0x2970…297a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00de}
0x297a…29b6 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x001a, t01=0x00e8}
0x29b6…29c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0124}
0x29c0…29d6 Head {h00=0x0012, h01=0x0050, text=»* A1 = 0 OK«, t00=0x001a, t01=0x012e}
0x29d6…2a04 Head {h00=0x002a, h01=0x0050, text=»* NE 0 , ERROR =/20=END OF MEDIUM «, t00=0x001a, t01=0x0144}
0x2a04…2a24 Head {h00=0x001c, h01=0x0050, text=»* A4 = EXTENT ADDRESS «, t00=0x001a, t01=0x0172}
0x2a24…2a3e (27, 0, 400) Head {h00=0x0016, h01=0x0050, text=»* A6 = UNCHANGED«, t00=0x001b, t01=0x0004}
0x2a3e…2a66 Head {h00=0x0024, h01=0x0050, text=»* IN FDB : FDBSNR = SECTOR NR «, t00=0x001b, t01=0x001e}
0x2a66…2a96 Head {h00=0x002c, h01=0x0050, text=»* FDBRRO = OFFSET IN SECTOR «, t00=0x001b, t01=0x0046}
0x2a96…2ac4 Head {h00=0x002a, h01=0x0050, text=»* FDBCEX = CURRENT EXTENT «, t00=0x001b, t01=0x0076}
0x2ac4…2ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00a4}
0x2ace…2b0a Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x001b, t01=0x00ae}
0x2b0a…2b14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ea}
0x2b14…2b28 Head {h00=0x0010, h01=0x0050, text=»* A1 - A9 «, t00=0x001b, t01=0x00f4}
0x2b28…2b40 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x001b, t01=0x0108}
0x2b40…2b54 Head {h00=0x0010, h01=0x0050, text=»CALSNO EQU *«, t00=0x001b, t01=0x0120}
0x2b54…2b5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0134}
0x2b5e…2b84 Head {h00=0x0022, h01=0x0050, text=»* FIND SECTOR NO WITHIN FILE«, t00=0x001b, t01=0x013e}
0x2b84…2b8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0164}
0x2b8e…2bae Head {h00=0x001c, h01=0x0050, text=» LDR A5,A6 SAVE FDB ADDR«, t00=0x001b, t01=0x016e}
0x2bae…2bc0 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x001b, t01=0x018e}
0x2bc0…2be8 Head {h00=0x0024, h01=0x0050, text=» LC A6,FDBBLF,A5 BLOCKING FACTOR«, t00=0x001c, t01=0x0010}
0x2be8…2c18 Head {h00=0x002c, h01=0x0050, text=» CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER«, t00=0x001c, t01=0x0038}
0x2c18…2c36 Head {h00=0x001a, h01=0x0050, text=» RF(O) TIOD99 OVERFLOW«, t00=0x001c, t01=0x0068}
0x2c36…2c52 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 QUOTIENT «, t00=0x001c, t01=0x0086}
0x2c52…2c6e Head {h00=0x0018, h01=0x0050, text=» LDR A6,A5 FDB ADDR «, t00=0x001c, t01=0x00a2}
0x2c6e…2c8a Head {h00=0x0018, h01=0x0050, text=» LDR A2,A1 REMAINDER«, t00=0x001c, t01=0x00be}
0x2c8a…2ca8 Head {h00=0x001a, h01=0x0050, text=» RF(Z) TIOD30 REST = 0«, t00=0x001c, t01=0x00da}
0x2ca8…2cd0 Head {h00=0x0024, h01=0x0050, text=» ADK A3,1 RECORD IN NEXT SECTOR «, t00=0x001c, t01=0x00f8}
0x2cd0…2ce2 Head {h00=0x000e, h01=0x0050, text=» RF TIOD40«, t00=0x001c, t01=0x0120}
0x2ce2…2d14 Head {h00=0x002e, h01=0x0050, text=»TIOD30 LC A2,FDBBLF,A6 LAST REC IN SECTOR «, t00=0x001c, t01=0x0132}
0x2d14…2d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0164}
0x2d1e…2d3a Head {h00=0x0018, h01=0x0050, text=»* FIND FILE EXTENT«, t00=0x001c, t01=0x016e}
0x2d3a…2d44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x018a}
0x2d44…2d58 (29, 0, 398) Head {h00=0x0010, h01=0x0050, text=»TIOD40 EQU *«, t00=0x001d, t01=0x0004}
0x2d58…2d6a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A6«, t00=0x001d, t01=0x0018}
0x2d6a…2d94 Head {h00=0x0026, h01=0x0050, text=» ADKL A4,FDBEXT FIRST FILE EXTENT «, t00=0x001d, t01=0x002a}
0x2d94…2dc4 Head {h00=0x002c, h01=0x0050, text=» LD A9,EXTLEN,A4 LENGTH OF FIRST EXTENT «, t00=0x001d, t01=0x0054}
0x2dc4…2de8 Head {h00=0x0020, h01=0x0050, text=» LDK A5,4 NUMBER OF EXTENTS «, t00=0x001d, t01=0x0084}
0x2de8…2e00 Head {h00=0x0014, h01=0x0050, text=»TIOD45 CWR A3,A9«, t00=0x001d, t01=0x00a8}
0x2e00…2e2c Head {h00=0x0028, h01=0x0050, text=» RF(NG) TIOD55 SECTOR IN THIS EXTENT«, t00=0x001d, t01=0x00c0}
0x2e2c…2e40 Head {h00=0x0010, h01=0x0050, text=» SUK A5,1 NO«, t00=0x001d, t01=0x00ec}
0x2e40…2e6a Head {h00=0x0026, h01=0x0050, text=» RF(NP) TIODMO EOF ERROR RETURN «, t00=0x001d, t01=0x0100}
0x2e6a…2e8e Head {h00=0x0020, h01=0x0050, text=» ADK A4,6 NEXT EXTENT BLOCK «, t00=0x001d, t01=0x012a}
0x2e8e…2ec0 Head {h00=0x002e, h01=0x0050, text=» AD A9,EXTLEN,A4 ADD LENGTH OF NEXT EXTENT«, t00=0x001d, t01=0x014e}
0x2ec0…2ed2 Head {h00=0x000e, h01=0x0050, text=» RB TIOD45«, t00=0x001d, t01=0x0180}
0x2ed2…2edc (30, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0004}
0x2edc…2f0a Head {h00=0x002a, h01=0x0050, text=»* SAVE CURRENT EXTENT BLOCK POINTER «, t00=0x001e, t01=0x000e}
0x2f0a…2f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x003c}
0x2f14…2f32 Head {h00=0x001a, h01=0x0050, text=»TIOD55 ST A4,FDBCEX,A6«, t00=0x001e, t01=0x0046}
0x2f32…2f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0064}
0x2f3c…2f6a Head {h00=0x002a, h01=0x0050, text=»* FIND LOGICAL SECTOR NUMBER ON DISC«, t00=0x001e, t01=0x006e}
0x2f6a…2f74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x009c}
0x2f74…2fae Head {h00=0x0036, h01=0x0050, text=» SU A9,EXTLEN,A4 NO OF SECTORS IN PREVIOUS EXTENTS«, t00=0x001e, t01=0x00a6}
0x2fae…2fd6 Head {h00=0x0024, h01=0x0050, text=» SUR A3,A9 SECTOR NO WITHIN EXT «, t00=0x001e, t01=0x00e0}
0x2fd6…2ff8 Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 START FROM ZERO «, t00=0x001e, t01=0x0108}
0x2ff8…301c Head {h00=0x0020, h01=0x0050, text=» RF(N) TIODMO BEFORE MEDIUM «, t00=0x001e, t01=0x012a}
0x301c…3046 Head {h00=0x0026, h01=0x0050, text=» AD A3,EXTBAS,A4 SECTOR NO ON DISC«, t00=0x001e, t01=0x014e}
0x3046…307a Head {h00=0x0030, h01=0x0050, text=» ST A3,FDBSNR,A6 SAVE LOGICAL SECTOR NUMBER «, t00=0x001e, t01=0x0178}
0x307a…30b0 Head {h00=0x0032, h01=0x0050, text=»* FIND RELATIVE RECORD OFFSET WITHIN SECTOR «, t00=0x001f, t01=0x001c}
0x30b0…30ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0052}
0x30ba…30cc Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x001f, t01=0x005c}
0x30cc…30f6 Head {h00=0x0026, h01=0x0050, text=»TIOD60 SUK A2,1 A2=RELATIVE REC NO«, t00=0x001f, t01=0x006e}
0x30f6…3122 Head {h00=0x0028, h01=0x0050, text=» RF(Z) TIOD65 REL REC OFFS IN A3 NOW«, t00=0x001f, t01=0x0098}
0x3122…3150 Head {h00=0x002a, h01=0x0050, text=» AD A3,FDBRLE,A6 NO ADD RECORD LENGTH«, t00=0x001f, t01=0x00c4}
0x3150…3172 Head {h00=0x001e, h01=0x0050, text=» ADK A3,1 SKIP STATUS BYTE«, t00=0x001f, t01=0x00f2}
0x3172…3184 Head {h00=0x000e, h01=0x0050, text=» RB TIOD60«, t00=0x001f, t01=0x0114}
0x3184…31a0 Head {h00=0x0018, h01=0x0050, text=»TIOD99 LDR A6,A5 FDB«, t00=0x001f, t01=0x0126}
0x31a0…31c8 Head {h00=0x0024, h01=0x0050, text=»TIODMO LDK A1,/20 END OF MEDIUM «, t00=0x001f, t01=0x0142}
0x31c8…31da Head {h00=0x000e, h01=0x0050, text=» RF TIODMF«, t00=0x001f, t01=0x016a}
0x31da…31e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017c}
0x31e4…3214 Head {h00=0x002c, h01=0x0050, text=»* STORE RELATIVE REC OFFSET IN FBDRRO «, t00=0x001f, t01=0x0186}
0x3214…321e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0026}
0x321e…3232 Head {h00=0x0010, h01=0x0050, text=»TIOD65 EQU *«, t00=0x0020, t01=0x0030}
0x3232…3246 Head {h00=0x0010, h01=0x0050, text=» LDK A1,0 OK«, t00=0x0020, t01=0x0044}
0x3246…325e Head {h00=0x0014, h01=0x0050, text=» ST A3,FDBRRO,A6«, t00=0x0020, t01=0x0058}
0x325e…3272 Head {h00=0x0010, h01=0x0050, text=»TIODMF EQU *«, t00=0x0020, t01=0x0070}
0x3272…3282 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x0084}
0x3282…329a Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0020, t01=0x0094}
0x329a…32a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00ac}
0x32a4…32ba Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0020, t01=0x00b6}
0x32ba…32cc Head {h00=0x000e, h01=0x0050, text=»* DMTIOT«, t00=0x0020, t01=0x00cc}
0x32cc…32e2 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0020, t01=0x00de}
0x32e2…32ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00f4}
0x32ec…332e Head {h00=0x003e, h01=0x0050, text=»* ENTRY DMTIOT CHECK RETURN CODES FROM PHYS DISC I/O«, t00=0x0020, t01=0x00fe}
0x332e…3338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0140}
0x3338…335c Head {h00=0x0020, h01=0x0050, text=»* INPUT A1 = FDB ADDRESS«, t00=0x0020, t01=0x014a}
0x335c…3366 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x016e}
0x3366…338a Head {h00=0x0020, h01=0x0050, text=»* OUTPUT A6 = FDB ADDRESS«, t00=0x0020, t01=0x0178}
0x338a…33ac Head {h00=0x001e, h01=0x0050, text=»* A1 = 0 WHEN OK«, t00=0x0021, t01=0x000c}
0x33ac…33d4 Head {h00=0x0024, h01=0x0050, text=»* = ERROR CODE ELSE«, t00=0x0021, t01=0x002e}
0x33d4…33fc Head {h00=0x0024, h01=0x0050, text=»* A9 = DM ECB ADDRESS «, t00=0x0021, t01=0x0056}
0x33fc…342a Head {h00=0x002a, h01=0x0050, text=»* A8 = PHYS I/O ECB ADDRESS «, t00=0x0021, t01=0x007e}
0x342a…3452 Head {h00=0x0024, h01=0x0050, text=»* A2 WILL BE DESTROYED«, t00=0x0021, t01=0x00ac}
0x3452…345c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x00d4}
0x345c…3488 Head {h00=0x0028, h01=0x0050, text=»* USED REGISTERS : A1,A2,A6,A8,A9 «, t00=0x0021, t01=0x00de}
0x3488…3492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x010a}
0x3492…349c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0114}
0x349c…34b0 Head {h00=0x0010, h01=0x0050, text=»DMTIOT EQU *«, t00=0x0021, t01=0x011e}
0x34b0…34ce Head {h00=0x001a, h01=0x0050, text=» LDR A6,A1 FDB ADDRESS«, t00=0x0021, t01=0x0132}
0x34ce…34e6 Head {h00=0x0014, h01=0x0050, text=» LDKL A8,FDBECB «, t00=0x0021, t01=0x0150}
0x34e6…34f8 Head {h00=0x000e, h01=0x0050, text=» ADR A8,A6«, t00=0x0021, t01=0x0168}
0x34f8…3520 Head {h00=0x0024, h01=0x0050, text=» LD A9,DWTECB,A6 DM ECB ADDRESS «, t00=0x0021, t01=0x017a}
0x3520…3534 Head {h00=0x0010, h01=0x0050, text=»DMTIT0 EQU *«, t00=0x0022, t01=0x0012}
0x3534…354c Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x0022, t01=0x0026}
0x354c…356e Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMTIOX DISC I/O OK «, t00=0x0022, t01=0x003e}
0x356e…3584 Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FEFF«, t00=0x0022, t01=0x0060}
0x3584…35ac Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMTIT1 NOT ONLY RETRIES «, t00=0x0022, t01=0x0076}
0x35ac…35c2 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/100 «, t00=0x0022, t01=0x009e}
0x35c2…35e2 Head {h00=0x001c, h01=0x0050, text=» ORS A2,ECBRC,A9 USER RC«, t00=0x0022, t01=0x00b4}
0x35e2…35f4 Head {h00=0x000e, h01=0x0050, text=» RF DMTIOX«, t00=0x0022, t01=0x00d4}
0x35f4…3608 Head {h00=0x0010, h01=0x0050, text=»DMTIT1 EQU *«, t00=0x0022, t01=0x00e6}
0x3608…3620 Head {h00=0x0014, h01=0x0050, text=» LD A2,FDBDBR,A6«, t00=0x0022, t01=0x00fa}
0x3620…3636 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/C0FF«, t00=0x0022, t01=0x0112}
0x3636…365e Head {h00=0x0024, h01=0x0050, text=» ST A2,FDBDBR,A6 RELEASE BUFFER «, t00=0x0022, t01=0x0128}
0x365e…3676 Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x0022, t01=0x0150}
0x3676…369a Head {h00=0x0020, h01=0x0050, text=»* GET BUFFER ADDR«, t00=0x0022, t01=0x0168}
0x369a…36b2 Head {h00=0x0014, h01=0x0050, text=» SUK A2,8 BUFSTA«, t00=0x0022, t01=0x018c}
0x36b2…36e2 Head {h00=0x002c, h01=0x0050, text=» CM BUFDMI,A2 CLEAR VOL IDENT IN BUFFER «, t00=0x0023, t01=0x0014}
0x36e2…3704 Head {h00=0x001e, h01=0x0050, text=» LDK A1,/02 DISC IO ERROR «, t00=0x0023, t01=0x0044}
0x3704…372a Head {h00=0x0022, h01=0x0050, text=» LDKL A2,/FF7E NOT BIT 8 OR 15«, t00=0x0023, t01=0x0066}
0x372a…3742 Head {h00=0x0014, h01=0x0050, text=» AN A2,ECBRC,A8 «, t00=0x0023, t01=0x008c}
0x3742…3758 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) DMTIOX«, t00=0x0023, t01=0x00a4}
0x3758…377c Head {h00=0x0020, h01=0x0050, text=» LD A1,ECBRC,A8 BIT 8 OR 15 «, t00=0x0023, t01=0x00ba}
0x377c…3792 Head {h00=0x0012, h01=0x0050, text=»DMTIOX RTN A14«, t00=0x0023, t01=0x00de}
0x3792…37a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0023, t01=0x00f4}
0x37a0…37aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0102}
0x37aa…37e8 Head {h00=0x003a, h01=0x0050, text=»* DMTIOZ HAS ALMOST THE SAME FUNCTION AS DMTIOT BUT «, t00=0x0023, t01=0x010c}
0x37e8…380c Head {h00=0x0020, h01=0x0050, text=»* ECB ADDR IS INPUT PARAM «, t00=0x0023, t01=0x014a}
0x380c…3816 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x016e}
0x3816…3832 Head {h00=0x0018, h01=0x0050, text=»* IN: A1 = FDB ADDR«, t00=0x0023, t01=0x0178}
0x3832…384c (36, 0, 400) Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDR «, t00=0x0024, t01=0x0004}
0x384c…385c Head {h00=0x000c, h01=0x0050, text=»* OUT:«, t00=0x0024, t01=0x001e}
0x385c…3876 Head {h00=0x0016, h01=0x0050, text=»* A1 = RET CODE «, t00=0x0024, t01=0x002e}
0x3876…3890 Head {h00=0x0016, h01=0x0050, text=»* A2 = DESTROYED«, t00=0x0024, t01=0x0048}
0x3890…38aa Head {h00=0x0016, h01=0x0050, text=»* A6 = FDB ADDR «, t00=0x0024, t01=0x0062}
0x38aa…38c4 Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDR «, t00=0x0024, t01=0x007c}
0x38c4…38de Head {h00=0x0016, h01=0x0050, text=»* A9 == USER ECB«, t00=0x0024, t01=0x0096}
0x38de…38e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00b0}
0x38e8…3900 Head {h00=0x0014, h01=0x0050, text=»DMTIOZ LDR A6,A1«, t00=0x0024, t01=0x00ba}
0x3900…391e Head {h00=0x001a, h01=0x0050, text=» LD A2,DWTOR,A6 ORDER «, t00=0x0024, t01=0x00d2}
0x391e…3932 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/3F «, t00=0x0024, t01=0x00f0}
0x3932…3946 Head {h00=0x0010, h01=0x0050, text=» CWK A2,QIRN«, t00=0x0024, t01=0x0104}
0x3946…396e Head {h00=0x0024, h01=0x0050, text=» RF(E) DMTIZ1 INDEXED READ NEXT «, t00=0x0024, t01=0x0118}
0x396e…3982 Head {h00=0x0010, h01=0x0050, text=» CWK A2,QIRR«, t00=0x0024, t01=0x0140}
0x3982…39ac Head {h00=0x0026, h01=0x0050, text=» RF(E) DMTIZ1 INDEXED RANDOM READ «, t00=0x0024, t01=0x0154}
0x39ac…39d2 Head {h00=0x0022, h01=0x0050, text=» LD A1,FDBADF,A6 FDB DATA FILE«, t00=0x0024, t01=0x017e}
0x39d2…39e6 Head {h00=0x0010, h01=0x0050, text=»DMTIZ1 EQU *«, t00=0x0025, t01=0x0014}
0x39e6…3a08 Head {h00=0x001e, h01=0x0050, text=» LD A9,DWTECB,A1 USER ECB «, t00=0x0025, t01=0x0028}
0x3a08…3a1a Head {h00=0x000e, h01=0x0050, text=» RB DMTIT0«, t00=0x0025, t01=0x004a}
0x3a1a…3a32 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0025, t01=0x005c}
0x3a32…3a6e Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0025, t01=0x0074}
0x3a6e…3a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00b0}
0x3a78…3ab4 Head {h00=0x0038, h01=0x0050, text=»* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND «, t00=0x0025, t01=0x00ba}
0x3ab4…3aea Head {h00=0x0032, h01=0x0050, text=»* PREPARE IT. ECB IS PREPARED FOR PHYS I/O. «, t00=0x0025, t01=0x00f6}
0x3aea…3af4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x012c}
0x3af4…3b30 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0025, t01=0x0136}
0x3b30…3b3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0172}
0x3b3a…3b56 Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x0025, t01=0x017c}
0x3b56…3b86 Head {h00=0x002c, h01=0x0050, text=»* FDB-CEX,ECB,SNR,RRO«, t00=0x0026, t01=0x0008}
0x3b86…3bc2 Head {h00=0x0038, h01=0x0050, text=»* ECB-FC,CW,BA,DWT-OR,ECB,EXTDMI «, t00=0x0026, t01=0x0038}
0x3bc2…3bdc Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDR «, t00=0x0026, t01=0x0074}
0x3bdc…3be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x008e}
0x3be6…3c22 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0026, t01=0x0098}
0x3c22…3c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00d4}
0x3c2c…3c4a Head {h00=0x001a, h01=0x0050, text=»* A1 = A6 = FDB ADDR«, t00=0x0026, t01=0x00de}
0x3c4a…3c7e Head {h00=0x0030, h01=0x0050, text=»* A2 = FDBRRO WHEN SECTOR IS FOUND IN CORE«, t00=0x0026, t01=0x00fc}
0x3c7e…3cc4 Head {h00=0x0042, h01=0x0050, text=»* = -1 WHEN NO DATA IS FOUND IN «, t00=0x0026, t01=0x0130}
0x3cc4…3d04 Head {h00=0x003c, h01=0x0050, text=»* THE FOUND CORE BUFFER «, t00=0x0026, t01=0x0176}
0x3d04…3d24 Head {h00=0x001c, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0027, t01=0x0026}
0x3d24…3d40 Head {h00=0x0018, h01=0x0050, text=»* A5 = ORDE R CODE«, t00=0x0027, t01=0x0046}
0x3d40…3d5a Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDR «, t00=0x0027, t01=0x0062}
0x3d5a…3d76 Head {h00=0x0018, h01=0x0050, text=»* A9 = DM ECB ADDR«, t00=0x0027, t01=0x007c}
0x3d76…3d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0098}
0x3d80…3dbc Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0027, t01=0x00a2}
0x3dbc…3dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00de}
0x3dc6…3dda Head {h00=0x0010, h01=0x0050, text=»* A1 - A9 «, t00=0x0027, t01=0x00e8}
0x3dda…3de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00fc}
0x3de4…3e22 Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0027, t01=0x0106}
0x3e22…3e36 Head {h00=0x0010, h01=0x0050, text=»GTBKBU EQU *«, t00=0x0027, t01=0x0144}
0x3e36…3e5a Head {h00=0x0020, h01=0x0050, text=» LDR A6,A1 A6 = FDB ADDRESS «, t00=0x0027, t01=0x0158}
0x3e5a…3e90 Head {h00=0x0032, h01=0x0050, text=» LD A4,FDBCEX,A6 CURRENT EXTENT BLOCK POINTER «, t00=0x0027, t01=0x017c}
0x3e90…3eb4 Head {h00=0x0020, h01=0x0050, text=» LD A1,EXTDMI,A4 DMIDENT, FC«, t00=0x0028, t01=0x0022}
0x3eb4…3eda Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBSNR,A6 SECTOR NUMBER«, t00=0x0028, t01=0x0046}
0x3eda…3efa Head {h00=0x001c, h01=0x0050, text=» LD A9,DWTECB,A6 DM ECB «, t00=0x0028, t01=0x006c}
0x3efa…3f12 Head {h00=0x0014, h01=0x0050, text=» ANK A1,/FF =1 «, t00=0x0028, t01=0x008c}
0x3f12…3f3a Head {h00=0x0024, h01=0x0050, text=» STR A1,A8 DISC VOL FILE CODE =1«, t00=0x0028, t01=0x00a4}
0x3f3a…3f52 Head {h00=0x0014, h01=0x0050, text=» LDR A4,A2 SAVE «, t00=0x0028, t01=0x00cc}
0x3f52…3f6a Head {h00=0x0014, h01=0x0050, text=» LDKL A5,SECTLE «, t00=0x0028, t01=0x00e4}
0x3f6a…3f90 Head {h00=0x0022, h01=0x0050, text=» ST A5,ECBRL,A8 SECTOR LENGTH «, t00=0x0028, t01=0x00fc}
0x3f90…3fbc Head {h00=0x0028, h01=0x0050, text=» CF A14,DMTGBU A3 := BUFFER ADDRESS «, t00=0x0028, t01=0x0122}
0x3fbc…3ff0 Head {h00=0x0030, h01=0x0050, text=» RF GTB100 RETURN IF SECTOR FOUND IN BUFFER «, t00=0x0028, t01=0x014e}
0x3ff0…4024 Head {h00=0x0030, h01=0x0050, text=»* RETURN IF SECTOR MUST BE READ FROM DISC «, t00=0x0028, t01=0x0182}
0x4024…4040 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,-1 RET CODE«, t00=0x0029, t01=0x0026}
0x4040…4054 Head {h00=0x0010, h01=0x0050, text=»GTB040 EQU *«, t00=0x0029, t01=0x0042}
0x4054…4076 Head {h00=0x001e, h01=0x0050, text=» ST A4,ECBCW,A8 SECTOR NR «, t00=0x0029, t01=0x0056}
0x4076…4088 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A3«, t00=0x0029, t01=0x0078}
0x4088…40be Head {h00=0x0032, h01=0x0050, text=» ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS«, t00=0x0029, t01=0x008a}
0x40be…40d6 Head {h00=0x0014, h01=0x0050, text=» ST A5,ECBBA,A8 «, t00=0x0029, t01=0x00c0}
0x40d6…40ee Head {h00=0x0014, h01=0x0050, text=» LD A5,DWTOR,A6 «, t00=0x0029, t01=0x00d8}
0x40ee…4102 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/3F «, t00=0x0029, t01=0x00f0}
0x4102…412e Head {h00=0x0028, h01=0x0050, text=» LDR A1,A6 FDB ADDRESS AS PARAMETER «, t00=0x0029, t01=0x0104}
0x412e…413e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0029, t01=0x0130}
0x413e…4152 Head {h00=0x0010, h01=0x0050, text=»GTB100 EQU *«, t00=0x0029, t01=0x0140}
0x4152…417e Head {h00=0x0028, h01=0x0050, text=» LD A2,FDBRRO,A6 REC OFFS IN BUFFER «, t00=0x0029, t01=0x0154}
0x417e…41a2 Head {h00=0x0020, h01=0x0050, text=» RB GTB040 STORE ORDER CODE «, t00=0x0029, t01=0x0180}
0x41a2…41ba Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x002a, t01=0x0014}
0x41ba…41f6 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x002a, t01=0x002c}
0x41f6…4200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0068}
0x4200…4248 Head {h00=0x0044, h01=0x0050, text=»* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO«, t00=0x002a, t01=0x0072}
0x4248…4252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x00ba}
0x4252…428e Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x002a, t01=0x00c4}
0x428e…4298 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0100}
0x4298…42b4 Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x002a, t01=0x010a}
0x42b4…42de Head {h00=0x0026, h01=0x0050, text=»* FDBSNR,FDBRRO,FDBCEX «, t00=0x002a, t01=0x0126}
0x42de…42e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0150}
0x42e8…4324 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x002a, t01=0x015a}
0x4324…432e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0008}
0x432e…4350 Head {h00=0x001e, h01=0x0050, text=»* A1=A5=A6= FDB ADDRESS «, t00=0x002b, t01=0x0012}
0x4350…4372 Head {h00=0x001e, h01=0x0050, text=»* A2,A3 = LOG RECORD NO «, t00=0x002b, t01=0x0034}
0x4372…437c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0056}
0x437c…43b8 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x002b, t01=0x0060}
0x43b8…43c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x009c}
0x43c2…43d6 Head {h00=0x0010, h01=0x0050, text=»* A1 - A7 «, t00=0x002b, t01=0x00a6}
0x43d6…43e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ba}
0x43e0…441e Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x002b, t01=0x00c4}
0x441e…4436 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x002b, t01=0x0102}
0x4436…444a Head {h00=0x0010, h01=0x0050, text=»GTLGRN EQU *«, t00=0x002b, t01=0x011a}
0x444a…445c Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x002b, t01=0x012e}
0x445c…4474 Head {h00=0x0014, h01=0x0050, text=» LDKL A3,FDBEXT «, t00=0x002b, t01=0x0140}
0x4474…448c Head {h00=0x0014, h01=0x0050, text=» ADKL A3,EXTLEN«, t00=0x002b, t01=0x0158}
0x448c…44b4 Head {h00=0x0024, h01=0x0050, text=» ADR A3,A1 ADDR FIRST EXT LENGTH«, t00=0x002b, t01=0x0170}
0x44b4…44d6 Head {h00=0x001e, h01=0x0050, text=» LD A7,FDBCEX,A1 EXT ADDR «, t00=0x002c, t01=0x0008}
0x44d6…4502 Head {h00=0x0028, h01=0x0050, text=» ADKL A7,EXTLEN ADDR TO LAST LENGTH «, t00=0x002c, t01=0x002a}
0x4502…4516 Head {h00=0x0010, h01=0x0050, text=»GTL050 EQU *«, t00=0x002c, t01=0x0056}
0x4516…4528 Head {h00=0x000e, h01=0x0050, text=» CWR A3,A7«, t00=0x002c, t01=0x006a}
0x4528…455a Head {h00=0x002e, h01=0x0050, text=» RF(E) GTL100 ALL PREVIOUS EXTENTS COUNTED«, t00=0x002c, t01=0x007c}
0x455a…4586 Head {h00=0x0028, h01=0x0050, text=»* NOTE THAT ONLY (E) CAN BE TESTED«, t00=0x002c, t01=0x00ae}
0x4586…45ae Head {h00=0x0024, h01=0x0050, text=» ADR* A6,A3 NO OF SECT IN EXTENT«, t00=0x002c, t01=0x00da}
0x45ae…45d6 Head {h00=0x0024, h01=0x0050, text=» ADKL A3,EXTELE EXT ENTRY LENGTH«, t00=0x002c, t01=0x0102}
0x45d6…45f4 Head {h00=0x001a, h01=0x0050, text=» RB GTL050 NEXT EXTENT«, t00=0x002c, t01=0x012a}
0x45f4…4608 Head {h00=0x0010, h01=0x0050, text=»GTL100 EQU *«, t00=0x002c, t01=0x0148}
0x4608…462a Head {h00=0x001e, h01=0x0050, text=» LD A7,FDBCEX,A1 EXT ADDR «, t00=0x002c, t01=0x015c}
0x462a…4656 Head {h00=0x0028, h01=0x0050, text=» SU A6,EXTBAS,A7 TOTAL NO OF SECTORS«, t00=0x002c, t01=0x017e}
0x4656…4682 Head {h00=0x0028, h01=0x0050, text=» AD A6,FDBSNR,A1 TOTAL NR OF SECTORS«, t00=0x002d, t01=0x001a}
0x4682…468c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0046}
0x468c…46b8 Head {h00=0x0028, h01=0x0050, text=»* CONVERT FDBRRO TO NO OF RECORDS «, t00=0x002d, t01=0x0050}
0x46b8…46c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x007c}
0x46c2…46d4 Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x002d, t01=0x0086}
0x46d4…46fa Head {h00=0x0022, h01=0x0050, text=» LC A7,FDBBLF,A1 BLOCK FACTOR «, t00=0x002d, t01=0x0098}
0x46fa…471a Head {h00=0x001c, h01=0x0050, text=» LDR A5,A1 SAVE FDB ADDR«, t00=0x002d, t01=0x00be}
0x471a…473c Head {h00=0x001e, h01=0x0050, text=» CF A14,MPYMOD A1,A2=A6*A7«, t00=0x002d, t01=0x00de}
0x473c…4754 Head {h00=0x0014, h01=0x0050, text=» LD A4,FDBRLE,A5«, t00=0x002d, t01=0x0100}
0x4754…4774 Head {h00=0x001c, h01=0x0050, text=» ADK A4,1 RECORD LENGTH «, t00=0x002d, t01=0x0118}
0x4774…4794 Head {h00=0x001c, h01=0x0050, text=» LDK A7,0 RECORD COUNTER«, t00=0x002d, t01=0x0138}
0x4794…47be Head {h00=0x0026, h01=0x0050, text=» LD A6,FDBRRO,A5 OFFSET IN SECTOR «, t00=0x002d, t01=0x0158}
0x47be…47d0 Head {h00=0x000e, h01=0x0050, text=» ADK A6,1 «, t00=0x002d, t01=0x0182}
0x47d0…47e4 (46, 0, 400) Head {h00=0x0010, h01=0x0050, text=»GTL150 EQU *«, t00=0x002e, t01=0x0004}
0x47e4…4804 Head {h00=0x001c, h01=0x0050, text=» ADK A7,1 RECORD COUNTER«, t00=0x002e, t01=0x0018}
0x4804…4816 Head {h00=0x000e, h01=0x0050, text=» SUR A6,A4«, t00=0x002e, t01=0x0038}
0x4816…4844 Head {h00=0x002a, h01=0x0050, text=» RB(NN) GTL150 COUNT RECORDS IN SECTOR«, t00=0x002e, t01=0x004a}
0x4844…484e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0078}
0x484e…487e Head {h00=0x002c, h01=0x0050, text=»* ADD SECT*BLOCFACT AND RECINCURRSECT «, t00=0x002e, t01=0x0082}
0x487e…4888 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b2}
0x4888…489a Head {h00=0x000e, h01=0x0050, text=» ADR A2,A7«, t00=0x002e, t01=0x00bc}
0x489a…48b8 Head {h00=0x001a, h01=0x0050, text=» RF(O) GTL160 OVERFLOW«, t00=0x002e, t01=0x00ce}
0x48b8…48ca Head {h00=0x000e, h01=0x0050, text=» RF GTL170«, t00=0x002e, t01=0x00ec}
0x48ca…48de Head {h00=0x0010, h01=0x0050, text=»GTL160 EQU *«, t00=0x002e, t01=0x00fe}
0x48de…4908 Head {h00=0x0026, h01=0x0050, text=» ANKL A2,/7FFF DELETE OVERFLOWBIT «, t00=0x002e, t01=0x0112}
0x4908…4924 Head {h00=0x0018, h01=0x0050, text=» ADK A1,1 ADD CARRY «, t00=0x002e, t01=0x013c}
0x4924…4938 Head {h00=0x0010, h01=0x0050, text=»GTL170 EQU *«, t00=0x002e, t01=0x0158}
0x4938…494a Head {h00=0x000e, h01=0x0050, text=» LDR A3,A2«, t00=0x002e, t01=0x016c}
0x494a…495c Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x002e, t01=0x017e}
0x495c…4978 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A5 FDB ADDR «, t00=0x002e, t01=0x0190}
0x4978…498a Head {h00=0x000e, h01=0x0050, text=» LDR A6,A5«, t00=0x002f, t01=0x001c}
0x498a…499a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002f, t01=0x002e}
0x499a…49b2 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x002f, t01=0x003e}
0x49b2…49bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0056}
0x49bc…49c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0060}
0x49c6…49dc Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x002f, t01=0x006a}
0x49dc…49e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0080}
0x49e6…49fc Head {h00=0x0012, h01=0x0050, text=»* M O V : U S «, t00=0x002f, t01=0x008a}
0x49fc…4a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00a0}
0x4a06…4a4e Head {h00=0x0044, h01=0x0050, text=»* THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO«, t00=0x002f, t01=0x00aa}
0x4a4e…4a9e Head {h00=0x004c, h01=0x0050, text=»* THE SYSTEM AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA «, t00=0x002f, t01=0x00f2}
0x4a9e…4aec Head {h00=0x004a, h01=0x0050, text=»* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT.«, t00=0x002f, t01=0x0142}
0x4aec…4af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0190}
0x4af6…4b32 Head {h00=0x0038, h01=0x0050, text=»* INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA)«, t00=0x0030, t01=0x000a}
0x4b32…4b72 Head {h00=0x003c, h01=0x0050, text=»* A2 = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA)«, t00=0x0030, t01=0x0046}
0x4b72…4ba4 Head {h00=0x002e, h01=0x0050, text=»* A3 = NUMBER OF BYTES TO BE MOVED«, t00=0x0030, t01=0x0086}
0x4ba4…4bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00b8}
0x4bae…4bd4 Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A1-A4 ARE DESTROYED «, t00=0x0030, t01=0x00c2}
0x4bd4…4bde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00e8}
0x4bde…4c0e Head {h00=0x002c, h01=0x0050, text=»MOV:US LDR A3,A3 CHECK REQUESTED LENGTH «, t00=0x0030, t01=0x00f2}
0x4c0e…4c46 Head {h00=0x0034, h01=0x0050, text=» RF(NP) MVUS35 NO MOVE IF REQUESTED LENGTH <= 0 «, t00=0x0030, t01=0x0122}
0x4c46…4c62 Head {h00=0x0018, h01=0x0050, text=» STR A5,A14 SAVE A5 «, t00=0x0030, t01=0x015a}
0x4c62…4c8e Head {h00=0x0028, h01=0x0050, text=» LDR A4,A1 CHECK USER BUFFER ADDRESS«, t00=0x0030, t01=0x0176}
0x4c8e…4ca0 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0031, t01=0x0012}
0x4ca0…4cd2 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) MVUS40 USER BUFFER ADDRESS UNEVEN?«, t00=0x0031, t01=0x0024}
0x4cd2…4d04 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 NO, CHECK SYSTEM BUFFER ADDRESS«, t00=0x0031, t01=0x0056}
0x4d04…4d16 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0031, t01=0x0088}
0x4d16…4d4a Head {h00=0x0030, h01=0x0050, text=» RF(NZ) MVUS55 SYSTEM BUFFER ADDRESS UNEVEN?«, t00=0x0031, t01=0x009a}
0x4d4a…4d54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ce}
0x4d54…4d84 Head {h00=0x002c, h01=0x0050, text=»MVUS10 LDR A4,A3 CHECK REQUESTED LENGTH «, t00=0x0031, t01=0x00d8}
0x4d84…4d96 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0031, t01=0x0108}
0x4d96…4dc6 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) MVUS60 REQUESTED LENGTH UNEVEN? «, t00=0x0031, t01=0x011a}
0x4dc6…4dd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x014a}
0x4dd0…4de6 Head {h00=0x0012, h01=0x0050, text=»MVUS20 MVUS A3«, t00=0x0031, t01=0x0154}
0x4de6…4df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x016a}
0x4df0…4e16 Head {h00=0x0022, h01=0x0050, text=»MVUS30 LDR* A5,A14 RESTORE A5 «, t00=0x0031, t01=0x0174}
0x4e16…4e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x000a}
0x4e20…4e36 Head {h00=0x0012, h01=0x0050, text=»MVUS35 RTN A14«, t00=0x0032, t01=0x0014}
0x4e36…4e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x002a}
0x4e40…4e58 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0032, t01=0x0034}
0x4e58…4e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x004c}
0x4e62…4e6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0056}
0x4e6c…4ea0 Head {h00=0x0030, h01=0x0050, text=»MVUS40 EQU * USER BUFFER ADDRESS WAS UNEVEN «, t00=0x0032, t01=0x0060}
0x4ea0…4ece Head {h00=0x002a, h01=0x0050, text=» LDR A4,A2 CHECK SYSTEM BUFFER ADDRESS«, t00=0x0032, t01=0x0094}
0x4ece…4ee0 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0032, t01=0x00c2}
0x4ee0…4f14 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) MVUS80 SYSTEM BUFFER ADDRESS UNEVEN?«, t00=0x0032, t01=0x00d4}
0x4f14…4f4c Head {h00=0x0034, h01=0x0050, text=» ELR A4,A1 NO, GET FIRST CHAR. FROM USER BUFFER «, t00=0x0032, t01=0x0108}
0x4f4c…4f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0140}
0x4f56…4f8c Head {h00=0x0032, h01=0x0050, text=»MVUS50 SCR A4,A2 STORE CHAR. IN SYSTEM BUFFER «, t00=0x0032, t01=0x014a}
0x4f8c…4fba Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS«, t00=0x0032, t01=0x0180}
0x4fba…4fe6 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT REQUESTED LENGTH«, t00=0x0033, t01=0x001e}
0x4fe6…500e Head {h00=0x0024, h01=0x0050, text=» RB(NP) MVUS30 LAST CHAR. MOVED?«, t00=0x0033, t01=0x004a}
0x500e…503e Head {h00=0x002c, h01=0x0050, text=» ADK A1,2 NO, UPDATE USER BUFFER ADDRESS«, t00=0x0033, t01=0x0072}
0x503e…5048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0033, t01=0x00a2}
0x5048…5084 Head {h00=0x0038, h01=0x0050, text=»MVUS55 ELR A4,A1 GET NEXT TWO CHAR. FROM USER BUFFER«, t00=0x0033, t01=0x00ac}
0x5084…5096 Head {h00=0x000e, h01=0x0050, text=» ECR A5,A4«, t00=0x0033, t01=0x00e8}
0x5096…50ca Head {h00=0x0030, h01=0x0050, text=» SCR A5,A2 STORE ONE CHAR. IN SYSTEM BUFFER «, t00=0x0033, t01=0x00fa}
0x50ca…50f8 Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS«, t00=0x0033, t01=0x012e}
0x50f8…5124 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT REQUESTED LENGTH«, t00=0x0033, t01=0x015c}
0x5124…514e Head {h00=0x0026, h01=0x0050, text=» RB(P) MVUS50 MORE CHAR. TO MOVE? «, t00=0x0033, t01=0x0188}
0x514e…516c Head {h00=0x001a, h01=0x0050, text=» RB MVUS30 NO, RETURN «, t00=0x0034, t01=0x0022}
0x516c…5176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0040}
0x5176…518e Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0034, t01=0x004a}
0x518e…5198 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0062}
0x5198…51a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x006c}
0x51a2…51d2 Head {h00=0x002c, h01=0x0050, text=»MVUS60 EQU * REQUESTED LENGTH WAS UNEVEN«, t00=0x0034, t01=0x0076}
0x51d2…51fe Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 MAKE REQUESTED LENGTH EVEN«, t00=0x0034, t01=0x00a6}
0x51fe…522c Head {h00=0x002a, h01=0x0050, text=» RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE?«, t00=0x0034, t01=0x00d2}
0x522c…524a Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 NO, SAVE A1«, t00=0x0034, t01=0x0100}
0x524a…5264 Head {h00=0x0016, h01=0x0050, text=» LDR A5,A3 SAVE A3«, t00=0x0034, t01=0x011e}
0x5264…5274 Head {h00=0x000c, h01=0x0050, text=» MVUS A3«, t00=0x0034, t01=0x0138}
0x5274…52a2 Head {h00=0x002a, h01=0x0050, text=» ADR A4,A5 UPDATE USER BUFFER ADDRESS «, t00=0x0034, t01=0x0148}
0x52a2…52d4 Head {h00=0x002e, h01=0x0050, text=» ELR A5,A4 GET LAST CHAR. FROM USER BUFFER«, t00=0x0034, t01=0x0176}
0x52d4…52de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0018}
0x52de…52f6 Head {h00=0x0014, h01=0x0050, text=»MVUS65 ECR A5,A5«, t00=0x0035, t01=0x0022}
0x52f6…532a Head {h00=0x0030, h01=0x0050, text=» SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER«, t00=0x0035, t01=0x003a}
0x532a…5344 Head {h00=0x0016, h01=0x0050, text=» RB MVUS30 RETURN «, t00=0x0035, t01=0x006e}
0x5344…534e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0088}
0x534e…5386 Head {h00=0x0034, h01=0x0050, text=»MVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER«, t00=0x0035, t01=0x0092}
0x5386…5398 Head {h00=0x000e, h01=0x0050, text=» RB MVUS65«, t00=0x0035, t01=0x00ca}
0x5398…53a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00dc}
0x53a2…53d8 Head {h00=0x0032, h01=0x0050, text=»MVUS80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN«, t00=0x0035, t01=0x00e6}
0x53d8…540c Head {h00=0x0030, h01=0x0050, text=» ELR A4,A1 GET FIRST CHAR. FROM USER BUFFER «, t00=0x0035, t01=0x011c}
0x540c…5442 Head {h00=0x0032, h01=0x0050, text=» SCR A4,A2 STORE FIRST CHAR. IN SYSTEM BUFFER «, t00=0x0035, t01=0x0150}
0x5442…546c Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 UPDATE BUFFER ADDRESSES «, t00=0x0035, t01=0x0186}
0x546c…547e Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0036, t01=0x0020}
0x547e…54aa Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT REQUESTED LENGTH«, t00=0x0036, t01=0x0032}
0x54aa…54d4 Head {h00=0x0026, h01=0x0050, text=» RB(P) MVUS10 MORE CHAR. TO MOVE? «, t00=0x0036, t01=0x005e}
0x54d4…54f2 Head {h00=0x001a, h01=0x0050, text=» RB MVUS30 NO, RETURN «, t00=0x0036, t01=0x0088}
0x54f2…54fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00a6}
0x54fc…5514 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0036, t01=0x00b0}
0x5514…551e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00c8}
0x551e…5534 Head {h00=0x0012, h01=0x0050, text=»* M O V : S U «, t00=0x0036, t01=0x00d2}
0x5534…553e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00e8}
0x553e…5588 Head {h00=0x0046, h01=0x0050, text=»* THIS ROUTINE MOVES DATA FROM THE SYSTEM AREA (SENDING BUFFER) TO«, t00=0x0036, t01=0x00f2}
0x5588…55d6 Head {h00=0x004a, h01=0x0050, text=»* THE USER AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA «, t00=0x0036, t01=0x013c}
0x55d6…5624 Head {h00=0x004a, h01=0x0050, text=»* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT.«, t00=0x0036, t01=0x018a}
0x5624…562e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0048}
0x562e…566c Head {h00=0x003a, h01=0x0050, text=»* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA)«, t00=0x0037, t01=0x0052}
0x566c…56aa Head {h00=0x003a, h01=0x0050, text=»* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA)«, t00=0x0037, t01=0x0090}
0x56aa…56dc Head {h00=0x002e, h01=0x0050, text=»* A3 = NUMBER OF BYTES TO BE MOVED«, t00=0x0037, t01=0x00ce}
0x56dc…56e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0100}
0x56e6…570c Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A1-A4 ARE DESTROYED «, t00=0x0037, t01=0x010a}
0x570c…5716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0130}
0x5716…572a Head {h00=0x0010, h01=0x0050, text=»MOV:SU EQU *«, t00=0x0037, t01=0x013a}
0x572a…5754 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A3 CHECK REQUESTED LENGTH «, t00=0x0037, t01=0x014e}
0x5754…578c Head {h00=0x0034, h01=0x0050, text=» RF(NP) MVSU35 NO MOVE IF REQUESTED LENGTH <= 0 «, t00=0x0037, t01=0x0178}
0x578c…57a8 Head {h00=0x0018, h01=0x0050, text=» STR A5,A14 SAVE A5 «, t00=0x0038, t01=0x0020}
0x57a8…57d4 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A2 CHECK USER BUFFER ADDRESS«, t00=0x0038, t01=0x003c}
0x57d4…57e6 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0038, t01=0x0068}
0x57e6…5818 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN?«, t00=0x0038, t01=0x007a}
0x5818…584a Head {h00=0x002e, h01=0x0050, text=» LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS«, t00=0x0038, t01=0x00ac}
0x584a…585c Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0038, t01=0x00de}
0x585c…5890 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) MVSU60 SYSTEM BUFFER ADDRESS UNEVEN?«, t00=0x0038, t01=0x00f0}
0x5890…589a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0124}
0x589a…58ca Head {h00=0x002c, h01=0x0050, text=»MVSU10 LDR A4,A3 CHECK REQUESTED LENGTH «, t00=0x0038, t01=0x012e}
0x58ca…58dc Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0038, t01=0x015e}
0x58dc…590c Head {h00=0x002c, h01=0x0050, text=» RF(NZ) MVSU90 REQUESTED LENGTH UNEVEN? «, t00=0x0038, t01=0x0170}
0x590c…5916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0010}
0x5916…592c Head {h00=0x0012, h01=0x0050, text=»MVSU20 MVSU A3«, t00=0x0039, t01=0x001a}
0x592c…5936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0030}
0x5936…595c Head {h00=0x0022, h01=0x0050, text=»MVSU30 LDR* A5,A14 RESTORE A5 «, t00=0x0039, t01=0x003a}
0x595c…5966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0060}
0x5966…597c Head {h00=0x0012, h01=0x0050, text=»MVSU35 RTN A14«, t00=0x0039, t01=0x006a}
0x597c…5986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0080}
0x5986…599e Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0039, t01=0x008a}
0x599e…59a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00a2}
0x59a8…59b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00ac}
0x59b2…59e6 Head {h00=0x0030, h01=0x0050, text=»MVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN «, t00=0x0039, t01=0x00b6}
0x59e6…5a14 Head {h00=0x002a, h01=0x0050, text=» LDR A4,A1 CHECK SYSTEM BUFFER ADDRESS«, t00=0x0039, t01=0x00ea}
0x5a14…5a26 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0039, t01=0x0118}
0x5a26…5a5a Head {h00=0x0030, h01=0x0050, text=» RF(NZ) MVSU80 SYSTEM BUFFER ADDRESS UNEVEN?«, t00=0x0039, t01=0x012a}
0x5a5a…5a92 Head {h00=0x0034, h01=0x0050, text=» ELR A4,A2 NO, GET FIRST CHAR. FROM USER BUFFER «, t00=0x0039, t01=0x015e}
0x5a92…5aa4 Head {h00=0x000e, h01=0x0050, text=» RF MVSU65«, t00=0x003a, t01=0x0008}
0x5aa4…5aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x001a}
0x5aae…5ae4 Head {h00=0x0032, h01=0x0050, text=»MVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN «, t00=0x003a, t01=0x0024}
0x5ae4…5b18 Head {h00=0x0030, h01=0x0050, text=» LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER «, t00=0x003a, t01=0x005a}
0x5b18…5b2a Head {h00=0x000e, h01=0x0050, text=» ECR A4,A4«, t00=0x003a, t01=0x008e}
0x5b2a…5b58 Head {h00=0x002a, h01=0x0050, text=» ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS«, t00=0x003a, t01=0x00a0}
0x5b58…5b84 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT REQUESTED LENGTH«, t00=0x003a, t01=0x00ce}
0x5b84…5bb2 Head {h00=0x002a, h01=0x0050, text=» RF(NP) MVSU70 IS THIS LAST CHARACTER?«, t00=0x003a, t01=0x00fa}
0x5bb2…5bbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0128}
0x5bbc…5bfa Head {h00=0x003a, h01=0x0050, text=»MVSU65 LCR A4,A1 NO, GET NEXT CHAR. FROM SYSTEM BUFFER«, t00=0x003a, t01=0x0132}
0x5bfa…5c2c Head {h00=0x002e, h01=0x0050, text=» ESR A4,A2 STORE TWO CHAR. IN USER BUFFER «, t00=0x003a, t01=0x0170}
0x5c2c…5c56 Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 UPDATE BUFFER ADDRESSES «, t00=0x003b, t01=0x0012}
0x5c56…5c68 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x003b, t01=0x003c}
0x5c68…5c94 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT REQUESTED LENGTH«, t00=0x003b, t01=0x004e}
0x5c94…5cbe Head {h00=0x0026, h01=0x0050, text=» RB(P) MVSU60 MORE CHAR. TO MOVE? «, t00=0x003b, t01=0x007a}
0x5cbe…5cdc Head {h00=0x001a, h01=0x0050, text=» RB MVSU30 NO, RETURN «, t00=0x003b, t01=0x00a4}
0x5cdc…5ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00c2}
0x5ce6…5d1e Head {h00=0x0034, h01=0x0050, text=»MVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER«, t00=0x003b, t01=0x00cc}
0x5d1e…5d46 Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF SKIP LEFT CHARACTER «, t00=0x003b, t01=0x0104}
0x5d46…5d72 Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/FF00 SKIP RIGHT CHARACTER «, t00=0x003b, t01=0x012c}
0x5d72…5d84 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x003b, t01=0x0158}
0x5d84…5db6 Head {h00=0x002e, h01=0x0050, text=» ESR A3,A2 STORE LAST CHAR. IN USER BUFFER«, t00=0x003b, t01=0x016a}
0x5db6…5dd0 Head {h00=0x0016, h01=0x0050, text=» RB MVSU30 RETURN «, t00=0x003c, t01=0x000c}
0x5dd0…5dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0026}
0x5dda…5df2 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x003c, t01=0x0030}
0x5df2…5dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0048}
0x5dfc…5e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0052}
0x5e06…5e3c Head {h00=0x0032, h01=0x0050, text=»MVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN«, t00=0x003c, t01=0x005c}
0x5e3c…5e72 Head {h00=0x0032, h01=0x0050, text=» LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER«, t00=0x003c, t01=0x0092}
0x5e72…5ea6 Head {h00=0x0030, h01=0x0050, text=» ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER «, t00=0x003c, t01=0x00c8}
0x5ea6…5ece Head {h00=0x0024, h01=0x0050, text=» ANK A4,/FF SKIP LEFT CHARACTER «, t00=0x003c, t01=0x00fc}
0x5ece…5efa Head {h00=0x0028, h01=0x0050, text=» ANKL A5,/FF00 SKIP RIGHT CHARACTER «, t00=0x003c, t01=0x0124}
0x5efa…5f0c Head {h00=0x000e, h01=0x0050, text=» ORR A4,A5«, t00=0x003c, t01=0x0150}
0x5f0c…5f40 Head {h00=0x0030, h01=0x0050, text=» ESR A4,A2 STORE FIRST CHAR. IN USER BUFFER «, t00=0x003c, t01=0x0162}
0x5f40…5f6a Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 UPDATE BUFFER ADDRESSES «, t00=0x003d, t01=0x0008}
0x5f6a…5f7c Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x003d, t01=0x0032}
0x5f7c…5fa8 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT REQUESTED LENGTH«, t00=0x003d, t01=0x0044}
0x5fa8…5fd6 Head {h00=0x002a, h01=0x0050, text=» RB(P) MVSU10 MORE CHARACTERS TO MOVE?«, t00=0x003d, t01=0x0070}
0x5fd6…5ff4 Head {h00=0x001a, h01=0x0050, text=» RB MVSU30 NO, RETURN «, t00=0x003d, t01=0x009e}
0x5ff4…5ffe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00bc}
0x5ffe…602e Head {h00=0x002c, h01=0x0050, text=»MVSU90 EQU * REQUESTED LENGTH WAS UNEVEN«, t00=0x003d, t01=0x00c6}
0x602e…605a Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 MAKE REQUESTED LENGTH EVEN«, t00=0x003d, t01=0x00f6}
0x605a…6088 Head {h00=0x002a, h01=0x0050, text=» RF(NP) MVSU95 ONLY ONE CHAR. TO MOVE?«, t00=0x003d, t01=0x0122}
0x6088…60a6 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 NO, SAVE A1«, t00=0x003d, t01=0x0150}
0x60a6…60c0 Head {h00=0x0016, h01=0x0050, text=» LDR A5,A3 SAVE A3«, t00=0x003d, t01=0x016e}
0x60c0…60d0 Head {h00=0x000c, h01=0x0050, text=» MVSU A3«, t00=0x003d, t01=0x0188}
0x60d0…60fa Head {h00=0x0026, h01=0x0050, text=» ADR A4,A5 UPDATE BUFFER ADDRESSES«, t00=0x003e, t01=0x0008}
0x60fa…610c Head {h00=0x000e, h01=0x0050, text=» ADR A2,A5«, t00=0x003e, t01=0x0032}
0x610c…6142 Head {h00=0x0032, h01=0x0050, text=» LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER «, t00=0x003e, t01=0x0044}
0x6142…6154 Head {h00=0x000e, h01=0x0050, text=» RB MVSU70«, t00=0x003e, t01=0x007a}
0x6154…615e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x008c}
0x615e…619a Head {h00=0x0038, h01=0x0050, text=»MVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER «, t00=0x003e, t01=0x0096}
0x619a…61ac Head {h00=0x000e, h01=0x0050, text=» RB MVSU70«, t00=0x003e, t01=0x00d2}
0x61ac…61b8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x00e4}
0x61b8…61c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00f0}
0x61c2…61d8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x003e, t01=0x00fa}
0x61d8…620e Head {h00=0x0032, h01=0x0050, text=»MOV:US EQU * DUMMY LABELS FOR NON-MMU SYSTEMS «, t00=0x003e, t01=0x0110}
0x620e…6222 Head {h00=0x0010, h01=0x0050, text=»MOV:SU EQU *«, t00=0x003e, t01=0x0146}
0x6222…6256 Head {h00=0x0030, h01=0x0050, text=» ABL TASHLT HALT SYSTEM DUE TO SYSGEN ERROR «, t00=0x003e, t01=0x015a}
0x6256…6262 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x018e}
0x6262…626c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x000a}
0x626c…6276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0014}
0x6276…6282 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003f, t01=0x001e}
0x6282…6286 Head {h00=0x4004, h01=0x0000}
0x6286…628a 00 3f 00 2a ┆ ? *┆
0x628a…6292 (64, 1, 8) 20 04 00 00 00 40 00 04 ┆ @ ┆
0x6292…62e2 (65, 0, 400) 00 08 01 76 00 1c 00 50 45 4e 44 31 20 20 20 20 20 41 44 4b 20 20 20 20 20 20 41 33 2c 2f 38 31 00 09 00 08 00 42 00 50 45 4e 44 30 20 20 20 20 20 53 4c 4c 20 20 20 20 20 20 41 33 2c 31 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ v PEND1 ADK A3,/81 B PEND0 SLL A3,1 ************┆
0x62e2…6332 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 09 00 28 00 1e 00 50 20 20 20 20 20 20 20 20 20 41 4e 4b 2e 4c 20 20 20 20 41 33 2c 2f 30 33 30 30 00 09 00 6e 00 1e 00 50 20 20 20 20 20 20 20 20 20 4c 44 4b 2e 4c 20 20 ┆********************** ( P ANK.L A3,/0300 n P LDK.L ┆
0x6332…6382 20 20 41 34 2c 2f 46 43 46 46 00 09 00 90 00 1e 00 50 20 20 20 20 20 20 20 20 20 41 4e 2e 53 20 20 20 20 20 41 34 2c 32 2c 41 31 34 00 09 00 b2 00 42 00 50 20 20 20 20 20 20 20 20 20 4f 52 2e 53 20 20 20 20 20 41 33 2c 32 2c 41 31 34 20 20 ┆ A4,/FCFF P AN.S A4,2,A14 B P OR.S A3,2,A14 ┆
0x6382…63d2 20 20 55 50 44 41 54 45 20 43 52 20 49 4e 20 50 53 57 20 43 41 4c 4c 49 4e 47 20 50 52 4f 47 52 41 4d 00 09 00 d4 00 0c 00 50 2a 5c 5c 5c 5c 3d 31 20 00 09 01 1a 00 1a 00 50 20 20 20 20 20 20 20 20 20 52 54 4e 20 20 20 20 20 20 41 31 34 20 ┆ UPDATE CR IN PSW CALLING PROGRAM P* =1 P RTN A14 ┆
0x63d2…6422 00 09 01 2a 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 09 01 48 00 38 00 50 4e 4f 53 49 47 4e 20 20 20 41 44 4b 2e 4c 20 20 20 20 41 38 2c 30 20 20 20 20 20 20 20 20 54 45 53 54 20 4f 46 20 44 49 56 49 44 45 4e 44 20 53 49 47 ┆ * P IFT CPU852=1 H 8 PNOSIGN ADK.L A8,0 TEST OF DIVIDEND SIG┆
0x6422…6472 (66, 0, 400) 4e 20 00 09 01 5e 00 18 00 50 20 20 20 20 20 20 20 20 20 52 46 28 36 29 20 20 20 20 42 42 00 0a 00 0a 00 36 00 50 20 20 20 20 20 20 20 20 20 43 31 52 20 20 20 20 20 20 41 31 2c 41 31 20 20 20 20 20 20 20 44 49 56 49 44 45 4e 44 2d 20 2e 44 ┆N ^ P RF(6) BB 6 P C1R A1,A1 DIVIDEND- .D┆
0x6472…64c2 49 56 49 53 4f 52 20 2d 00 0a 00 26 00 2e 00 50 20 20 20 20 20 20 20 20 20 41 44 4b 20 20 20 20 20 20 41 31 2c 31 20 20 20 20 20 20 20 20 52 45 4d 41 49 4e 44 45 52 20 2d 20 00 0a 00 60 00 1a 00 50 42 42 20 20 20 20 20 20 20 41 44 4b 20 20 ┆IVISOR - & . P ADK A1,1 REMAINDER - ` PBB ADK ┆
0x64c2…6512 20 20 20 20 41 32 2c 30 00 0a 00 92 00 1a 00 50 20 20 20 20 20 20 20 20 20 52 42 28 30 29 20 20 20 20 45 4e 44 30 00 0a 00 b0 00 1a 00 50 20 20 20 20 20 20 20 20 20 52 42 28 32 29 20 20 20 20 45 4e 44 32 00 0a 00 ce 00 1a 00 50 20 20 20 20 ┆ A2,0 P RB(0) END0 P RB(2) END2 P ┆
0x6512…6562 20 20 20 20 20 52 42 28 37 29 20 20 20 20 45 4e 44 31 00 0a 00 ec 00 1c 00 50 43 41 53 53 50 45 20 20 20 4c 44 52 20 20 20 20 20 20 41 37 2c 41 31 20 00 0a 01 0a 00 1c 00 50 20 20 20 20 20 20 20 20 20 4c 44 52 20 20 20 20 20 20 41 31 2c 41 ┆ RB(7) END1 PCASSPE LDR A7,A1 P LDR A1,A┆
0x6562…65b2 32 20 00 0a 01 2a 00 1e 00 50 20 20 20 20 20 20 20 20 20 43 57 4b 20 20 20 20 20 20 41 31 2c 2f 38 30 30 30 00 0a 01 4a 00 1a 00 50 20 20 20 20 20 20 20 20 20 52 42 28 34 29 20 20 20 20 45 4e 44 20 00 0a 01 6c 00 16 00 50 20 20 20 20 20 20 ┆2 * P CWK A1,/8000 J P RB(4) END l P ┆
0x65b2…6602 (67, 2, 86) 20 20 20 4c 44 4b 20 41 31 2c 30 20 00 0a 01 8a 00 1a 00 50 20 20 20 20 20 20 20 20 20 52 42 28 37 29 20 20 20 20 45 4e 44 20 00 0b 00 14 00 08 00 50 5c 58 49 46 00 0b 00 32 00 10 00 50 20 20 20 20 20 20 20 20 20 45 4e 44 00 0b 00 3e 40 04 ┆ LDK A1,0 P RB(7) END P XIF 2 P END >@ ┆
0x6602…6608 00 00 00 0b 00 52 ┆ R┆
0x6608…6610 (68, 1, 8) 20 04 00 00 00 0c 00 04 ┆ ┆