|
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: 30214 (0x7606)
Notes: pts_type(SC)
Names: »DMSUBR.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/DMSUBR.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:TU10/DMSUBR.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:TU10/DMSUBR.SC«
IDENT DMSUBR REL 10.0 80-03-14 870105041000 =2 , COMMIT CHECK 79-11-22 =1 , PARAM TEST COMMIT 79-11-05 **************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DMSUBR = COMMON DM-ROUTINES * * * * * * **************************************************** ****THIS MODULE IS ACTIVATED FROM :***************** * * DMTASK,TIODM,DMTASS * *************** * ENTRIES * *************** * * ENTRY DMTEND,RELPRO ENTRY DMTWM,DMTBM,DMTBMR,FNDFDB ENTRY GETA14,DMTREM ENTRY EATEST,EASETB,EARELB,CRNGET ENTRY CALSNO ENTRY GTBKBU ENTRY DMTIOT ENTRY DMTIOZ ENTRY MOV:US MOVE FROM USER TO SYSTEM AREA ENTRY MOV:SU MOVE FROM SYSTEM TO USER AREA ENTRY MOVZUS,MOVZSU * ***************** * EXTERNALS * ***************** * * EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO EXTRN FDBBLF,FDBADF EXTRN FDBBLZ,FWTFNR EXTRN FDBSTA,SCTTCT,TTB:SA,ECBEL EXTRN TTB:TD,SCTCDT,PRUN EXTRN FDBECB,DWTECB,DWTOR,BUFSTA,BUFDMI,BUFOR EXTRN ECBRC,ECBFC,ECBCW,ECBBA EXTRN DIVMOD,MPYMOD EXTRN CRNTID EXTRN DMTGBU EXTRN CRNQUE,GETBLK,FREQUE EXTRN CRBUFL EXTRN FDBDBR EXTRN TASHLT SYSTEM HALT ROUTINE EXTRN HALT,DSUMOD,ECBRL EXTRN EOMERR,RETRIE EXTRN REQER2,QTJOB,TDISP EXTRN DWTTAB,MONMMU,TTB:ID,TTB:MT EXTRN QCL EJECT DMSUBR TOSSIO * * ***************************************** * * CONDITIONAL ASSEMBLY * ***************************************** * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * EJECT * * THIS ROUTINE RELEASES PROTECTION AT END OF TRANSACTION * * ENTRY : A9 = DM INTERNAL USER ID * * USED REGS A1 - A5 , A9 * * RELPRO EQU * RELEASE PROTECTION LDKL A1,FDBSTA FIRST FWT ADDR REL050 EQU * LDR* A2,A1 ANK A2,/1 RF(Z) REL053 NOT USED LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK LDKL A5,/FF00 =2 ANS A5,FDBBLZ,A1 COMMIT CHECK =2 CF A14,EARELB ENB REL053 EQU * LDR* A1,A1 ANKL A1,/FFFE SKIP USE BIT RB(NZ) REL050 MORE FDBS RTN A14 EJECT * HERE WE ENTERS FOM LKM DATA 16 , COMMIT * DMTEND EQU * COMMIT LDR A6,A5 TTAB USER ANK A7,/7F =1 RF(Z) DMTE10 OK ORDER LDKL A7,REQER2 REQUES ERR RF DMTE40 ERR DMTE10 EQU * * * DECIDE USER TASK ID * LDK A2,0 DMTE20 LD A1,SCTTCT TCTAB ADDR ADR A1,A2 CW A5,2,A1 RF(E) DMTE30 FOUND ADK A2,2 RB DMTE20 TRY NEXT DMTE30 LDR A9,A2 LDKL A14,STACK STACK BASE CF A14,RELPRO RELEASE PROTECT DMTE40 EQU * LDR A5,A6 TTAB USER ST A7,TTB:SA+14,A5 RET CODE IN A7 INH CF A15,QTJOB RESTART USER ABL TDISP DATA 0,0,0 STACK DATA 0 4 WORDS EJECT * ************ * DMTWM * ************ * * ENTRY DMTWM WORD MOVE * * INPUT A1 = FROM ADDRESS * A2 = NO OF BYTES TO BE MOVED * A3 = TO ADDRESS * * A4 WILL BE DESTROYED * * DMTWM EQU * SUK A2,2 RF(N) DMTW10 LAST WORD MOVED LDR* A4,A1 STR A4,A3 ADK A1,2 ADK A3,2 RB DMTWM DMTW10 ANK A2,/01 RF(E) DMTW20 LCR A4,A1 MOVE LAST CHAR SCR A4,A3 DMTW20 RTN A14 EJECT * ************* * DMTBM * ************* * * ENTRY DMTBM BYTE MOVE * * INPUT A1 = FROM ADDRESS * A2 = NO OF BYTES TO BE MOVED * A3 = TO ADDRESS * * A4 WILL BE DESTROYED * * OUTPUT A3 = NEXT CHAR * * DMTBM EQU * SUK A2,1 RF(N) DMTB10 LAST BYTE MOVED LCR A4,A1 SCR A4,A3 ADK A1,1 ADK A3,1 RB DMTBM DMTB10 RTN A14 * * DMTBMR HAS THE SAME FUNCTION AS DMTBM BUT * MOVES FROM THE END * DMTBMR ADR A1,A2 ADR A3,A2 DMTB20 SUK A2,1 RB(N) DMTB10 SUK A1,1 SUK A3,1 LCR A4,A1 SCR A4,A3 RB DMTB20 EJECT ****DESCRIPTION************************************* * * FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FILE CODE * ****ENTRY PARAMETERS******************************** * * A1 = TTAB ADDR * A2 = FILE CODE TO SEARCH FOR * A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED * ****EXIT PARAMETERS********************************* * * A1 = UNCHANGED * A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND * A4 = TTAB/SCTCDT ENTRY ADDR WHEN CODE IS FOUND * A5 = 0 WHEN FOUND IN SCTCDT = 1 WHEN TTAB * ****USED REGISTERS********************************** * * A1-A5 * ****************************************************** * * LOOK FOR FILE CODE IN TTAB * FNDFDB EQU * LD A3,TTB:TD,A1 LENGTH DEV DESCR FND030 EQU * SUK A3,4 RF(NP) FND040 FILE CODE NOT IN TTAB LDR A4,A1 ADKL A4,TTB:TD ADR A4,A3 CWR* A2,A4 RB(NE) FND030 LDK A5,1 RF FND080 CODE FOUND IN TTAB * * SEARCH FILE CODE IN SCTCDT * FND040 EQU * LDR A5,A5 RF(NZ) FND060 ONLY TTAB IS SEACHED LD* A4,SCTCDT FND050 EQU * SUK A4,4 RF(NP) FND060 CODE NOT FOUND AT ALL LD A3,SCTCDT ADR A3,A4 CWR* A2,A3 RB(NE) FND050 AD A4,SCTCDT RF FND080 CODE FOUND FND060 EQU * LDK A2,0 NO CODE FND080 EQU * RTN A14 EJECT * ************** * DMTREM * ************** * * ENTRY DMTREM MOVE RECORD FROM BUFFER TO USER RECORD AREA * * INPUT RELATIVE REC OFFSET IN FDBRRO,A6 * BUFFER ADDRESS IN A5 * USER REC AREA IN ECBBA,A9 * RECORD LENGTH IN A2 * * * * MOVE THE RECORD * IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE * IF (FROM AND (TO) ADDRESSES BOTH ODD THEN MOVE FIRST BYTE * WITH BYTE INSTRUCTIONS AND THE REST WITH WORD MOVE * ELSE USE BYTE MOVE INSTRUCTIONS FOR THE WHOLE REC * DMTREM EQU * LD A1,FDBRRO,A6 ADR A1,A5 FROM ADDRESS * IFT MMUPAG=0 LDR A4,A1 LD A3,ECBBA,A9 TO ADDRESS XRR A4,A3 ANK A4,/01 RF(Z) DMT210 BOTH ODD OR BOTH EVEN CF A14,DMTBM ONE ODD AND ONE EVEN RF DMT225 * DMT210 LDR A4,A1 ANK A4,/01 RF(E) DMT220 BOTH EVEN SUK A2,1 BOTH ODD LCR A4,A1 SCR A4,A3 ADK A1,1 ADK A3,1 DMT220 CF A14,DMTWM WORD MOVE DMT225 EQU * XIF * IFT MMUPAG=1 LD A4,DWTTAB,A6 GET TTAB ADDRESS LDR A3,A2 GET LENGTH LD A2,ECBBA,A9 GET RECEIVING BUFFER ADDRESS CF A14,MOV:SU MOVE RECORD FROM SYSTEM TO USER AREA XIF * RTN A14 EJECT * * SET UP A14 STACK * GETA14 EQU * LD A14,PRUN GET DM TTAB ADDRESS AD A14,TTB:TD,A14 LENGTH DEVICE DESCR ADKL A14,TTB:TD+32 STACK RTN A15 RETURN AND ENABLE * 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 ENB 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 * AND A9 = 0 * ARE REMOVED. * A2: BIT 0=1,BIT 1=1 * AND A9 NOT EQ 0 ALL BUFFERS ON FDB WITH * TASK ID AS SPEC IN A3 ARE RELEASED * BIT 0=1,BIT 1=0 ALL BUFFERS ON FDB ARE 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,A9 * ************************************************* * * THE ROUTINE SETS INHIBIT 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 LDR A3,A9 REQ TASK ID RF(NZ) EAR065 TASK ID IN A3 EAR060 EQU * * * SEARCH TASK IDENT * LC A3,FDBTNR,A1 TAK ID EAR065 EQU * 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 * ENB RTN A14 EJECT DMSUBR ****DESCRIPTION************************************* * * CALSNO WILL CONVERT A LOGICAL RECORD NO TO * RELATIVE * SECTOR AND OFFSET * ****ENTRY PARAMETERS******************************** * * A1,A2 = LOGICAL RECORD NO * A6 = FDB ADDR * * CF A14,CALSNO * ****EXIT PARAMETERS********************************* * * A1 = 0 OK * NE 0 , ERROR =/A000=END OF MEDIUM * A6 = UNCHANGED * IN FDB : FDBSNR = SECTOR NR * FDBRRO = OFFSET IN BLOCK * ****USED REGISTERS********************************** * * A1 - A9 EJECT DMSUBR CALSNO EQU * * * FIND BLOCK 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) CALERR OVERFLOW LDR A3,A2 QUOTIENT LDR A9,A1 REMAINDER RF(Z) TIOD30 REST = 0 ADK A3,1 RECORD IN NEXT BLOCK RF TIOD40 TIOD30 LC A9,FDBBLF,A5 LAST REC IN BLOCK TIOD40 EQU * * FIND LOGICAL SECTOR NUMBER ON DISC * LDR A6,A3 BLOCK NR RF(NP) CALERR SUK A6,1 LDK A7,0 LC A7,FDBBLZ,A5 NR OF SECT IN BLOCK CF A14,MPYMOD ADK A2,1 RF(O) CAL050 RF CAL090 CAL050 EQU * ANKL A2,/7FFF ADK A1,1 CARRY CAL090 EQU * ST A1,FDBSNR,A5 ST A2,FDBSNR+2,A5 SECT NR * FIND RELATIVE RECORD OFFSET WITHIN BLOCK * LDK A3,0 LDR A2,A9 REL REC NR IN BLOCK TIOD60 EQU * SUK A2,1 A2=REL REC NR RF(Z) TIOD65 REL REC OFFS IN A3 NOW AD A3,FDBRLE,A5 NO ADD RECORD LENGTH ADK A3,1 SKIP STATUS BYTE RB TIOD60 CALERR LDKL A1,EOMERR OUT OF MEDIUM RF TIODMF * * STORE RELATIVE REC OFFSET IN FBDRRO * TIOD65 EQU * LDK A1,0 OK ST A3,FDBRRO,A5 TIODMF EQU * LDR A6,A5 FDB ADDR 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 * LDKL A8,FDBECB ADR A8,A1 * * DMTIOZ IS THE SAME AS DMTIOT WITH DIFFERENCE THAT ECB ADDR IS INPUT PAR * DMTIOZ EQU * * * RESTORE SECTOR NUMBER * LD A6,FDBSNR,A1 ST A6,ECBCW,A8 LD A6,FDBSNR+2,A1 ST A6,ECBCW+2,A8 LDR A6,A1 LD A9,DWTECB,A6 DM ECB ADDRESS LD A1,ECBRC,A8 RF(Z) DMTIOX DISC I/O OK ANKL A1,/FEFF RF(NZ) DMTIT1 NOT ONLY RETRIES LDKL A2,RETRIE DMTIOC EQU * ORS A2,ECBRC,A9 USER RC RF DMTIOX DMTIT1 EQU * LD A2,ECBBA,A8 * GET BUFFER ADDR SUKL A2,BUFSTA BUFSTA CM BUFDMI,A2 CLEAR FILE NR IN BUFFER LD A2,DWTOR,A6 ANK A2,/3F ORDER SUKL A2,QCL RF(NZ) DMTIOX NOT CLOSE LDR A2,A1 LDK A1,0 RB DMTIOC DMTIOX RTN A14 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 * 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 LC A1,FWTFNR,A6 FILE NR LD A2,FDBSNR,A6 SECTOR NUMBER LD A4,FDBSNR+2,A6 LD A9,DWTECB,A6 DM ECB ANK A1,/FF STR A1,A8 FILE NR LC A5,FDBBLZ,A6 SLL A5,8 BLOCK SIZE IN BYTYE ST A5,ECBRL,A8 BLOCK LENGTH CF A14,DMTGBU A3 := BUFFER ADDRESS RF GTB100 RETURN IF SECTOR FOUND IN BUFFER * RETURN IF SECTOR MUST BE READ FROM DISC ST A2,ECBCW,A8 SECT NR LDKL A2,-1 RET CODE GTB040 EQU * ST A4,ECBCW+2,A8 SECT 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 * ST A2,ECBCW,A8 SECT NR LD A2,FDBRRO,A6 REC OFFS IN BUFFER RB GTB040 STORE ORDER CODE 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 * A4 = USER TTAB ADDRESS * * OUTPUT: A1-A4 ARE DESTROYED * MOV:US EQU * INH TL TTB:MT,A4 SET USER MMU LD A4,PRUN TS TTB:MT,A4 ENB CF A14,MOVZUS INH TL MONMMU SET SYSTEM MMU LD A4,PRUN TS TTB:MT,A4 ENB RTN A14 MOVZUS EQU * 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 EQU * 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 * A4 = USER TTAB ADDRESS * * OUTPUT: A1-A4 ARE DESTROYED * MOV:SU EQU * INH TL TTB:MT,A4 SET USER MMU LD A4,PRUN TS TTB:MT,A4 ENB CF A14,MOVZSU INH TL MONMMU SET SYSTEM MMU LD A4,PRUN TS TTB:MT,A4 ENB RTN A14 MOVZSU 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 * MOVZSU EQU * MOVZUS 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 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005a Head {h00=0x0018, h01=0x0050, text=» =2 , COMMIT CHECK«, t00=0x0000, t01=0x0042}
0x005a…006e Head {h00=0x0010, h01=0x0050, text=» 79-11-22 «, t00=0x0000, t01=0x005e}
0x006e…0090 Head {h00=0x001e, h01=0x0050, text=» =1 , PARAM TEST COMMIT «, t00=0x0000, t01=0x0072}
0x0090…00a4 Head {h00=0x0010, h01=0x0050, text=» 79-11-05 «, t00=0x0000, t01=0x0094}
0x00a4…00e0 Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x00a8}
0x00e0…00ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00e4}
0x00ea…0112 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS«, t00=0x0000, t01=0x00ee}
0x0112…011c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x011c…0144 Head {h00=0x0024, h01=0x0050, text=»* DMSUBR = COMMON DM-ROUTINES «, t00=0x0000, t01=0x0120}
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…0162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x015c}
0x0162…016c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0166}
0x016c…0176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0170}
0x0176…0180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017a}
0x0180…01bc Head {h00=0x0038, h01=0x0050, text=»****************************************************«, t00=0x0000, t01=0x0184}
0x01bc…01f8 Head {h00=0x0038, h01=0x0050, text=»****THIS MODULE IS ACTIVATED FROM :*****************«, t00=0x0001, t01=0x0030}
0x01f8…0202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x006c}
0x0202…0222 Head {h00=0x001c, h01=0x0050, text=»* DMTASK,TIODM,DMTASS «, t00=0x0001, t01=0x0076}
0x0222…022c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0096}
0x022c…0244 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0001, t01=0x00a0}
0x0244…025c Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0001, t01=0x00b8}
0x025c…0274 Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0001, t01=0x00d0}
0x0274…027e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e8}
0x027e…0288 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f2}
0x0288…02a4 Head {h00=0x0018, h01=0x0050, text=» ENTRY DMTEND,RELPRO«, t00=0x0001, t01=0x00fc}
0x02a4…02cc Head {h00=0x0024, h01=0x0050, text=» ENTRY DMTWM,DMTBM,DMTBMR,FNDFDB«, t00=0x0001, t01=0x0118}
0x02cc…02e8 Head {h00=0x0018, h01=0x0050, text=» ENTRY GETA14,DMTREM«, t00=0x0001, t01=0x0140}
0x02e8…0312 Head {h00=0x0026, h01=0x0050, text=» ENTRY EATEST,EASETB,EARELB,CRNGET«, t00=0x0001, t01=0x015c}
0x0312…0328 Head {h00=0x0012, h01=0x0050, text=» ENTRY CALSNO «, t00=0x0001, t01=0x0186}
0x0328…033e Head {h00=0x0012, h01=0x0050, text=» ENTRY GTBKBU «, t00=0x0002, t01=0x000c}
0x033e…0354 Head {h00=0x0012, h01=0x0050, text=» ENTRY DMTIOT «, t00=0x0002, t01=0x0022}
0x0354…036a Head {h00=0x0012, h01=0x0050, text=» ENTRY DMTIOZ «, t00=0x0002, t01=0x0038}
0x036a…039e Head {h00=0x0030, h01=0x0050, text=» ENTRY MOV:US MOVE FROM USER TO SYSTEM AREA «, t00=0x0002, t01=0x004e}
0x039e…03d2 Head {h00=0x0030, h01=0x0050, text=» ENTRY MOV:SU MOVE FROM SYSTEM TO USER AREA «, t00=0x0002, t01=0x0082}
0x03d2…03ee Head {h00=0x0018, h01=0x0050, text=» ENTRY MOVZUS,MOVZSU«, t00=0x0002, t01=0x00b6}
0x03ee…03f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d2}
0x03f8…0412 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0002, t01=0x00dc}
0x0412…042c Head {h00=0x0016, h01=0x0050, text=»* EXTERNALS * «, t00=0x0002, t01=0x00f6}
0x042c…0446 Head {h00=0x0016, h01=0x0050, text=»***************** «, t00=0x0002, t01=0x0110}
0x0446…0450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012a}
0x0450…045a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x045a…0492 Head {h00=0x0034, h01=0x0050, text=» EXTRN FDBEAL,FDBTNR,FDBCRL,FDBRLE,FDBSNR,FDBRRO«, t00=0x0002, t01=0x013e}
0x0492…04ae Head {h00=0x0018, h01=0x0050, text=» EXTRN FDBBLF,FDBADF«, t00=0x0002, t01=0x0176}
0x04ae…04ca (3, 0, 400) Head {h00=0x0018, h01=0x0050, text=» EXTRN FDBBLZ,FWTFNR«, t00=0x0003, t01=0x0004}
0x04ca…04f4 Head {h00=0x0026, h01=0x0050, text=» EXTRN FDBSTA,SCTTCT,TTB:SA,ECBEL «, t00=0x0003, t01=0x0020}
0x04f4…0516 Head {h00=0x001e, h01=0x0050, text=» EXTRN TTB:TD,SCTCDT,PRUN «, t00=0x0003, t01=0x004a}
0x0516…054c Head {h00=0x0032, h01=0x0050, text=» EXTRN FDBECB,DWTECB,DWTOR,BUFSTA,BUFDMI,BUFOR«, t00=0x0003, t01=0x006c}
0x054c…0572 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRC,ECBFC,ECBCW,ECBBA«, t00=0x0003, t01=0x00a2}
0x0572…058e Head {h00=0x0018, h01=0x0050, text=» EXTRN DIVMOD,MPYMOD«, t00=0x0003, t01=0x00c8}
0x058e…05a4 Head {h00=0x0012, h01=0x0050, text=» EXTRN CRNTID «, t00=0x0003, t01=0x00e4}
0x05a4…05ba Head {h00=0x0012, h01=0x0050, text=» EXTRN DMTGBU «, t00=0x0003, t01=0x00fa}
0x05ba…05de Head {h00=0x0020, h01=0x0050, text=» EXTRN CRNQUE,GETBLK,FREQUE «, t00=0x0003, t01=0x0110}
0x05de…05f4 Head {h00=0x0012, h01=0x0050, text=» EXTRN CRBUFL «, t00=0x0003, t01=0x0134}
0x05f4…060a Head {h00=0x0012, h01=0x0050, text=» EXTRN FDBDBR «, t00=0x0003, t01=0x014a}
0x060a…0634 Head {h00=0x0026, h01=0x0050, text=» EXTRN TASHLT SYSTEM HALT ROUTINE «, t00=0x0003, t01=0x0160}
0x0634…0654 Head {h00=0x001c, h01=0x0050, text=» EXTRN HALT,DSUMOD,ECBRL«, t00=0x0003, t01=0x018a}
0x0654…0670 Head {h00=0x0018, h01=0x0050, text=» EXTRN EOMERR,RETRIE«, t00=0x0004, t01=0x001a}
0x0670…0692 Head {h00=0x001e, h01=0x0050, text=» EXTRN REQER2,QTJOB,TDISP «, t00=0x0004, t01=0x0036}
0x0692…06bc Head {h00=0x0026, h01=0x0050, text=» EXTRN DWTTAB,MONMMU,TTB:ID,TTB:MT«, t00=0x0004, t01=0x0058}
0x06bc…06ce Head {h00=0x000e, h01=0x0050, text=» EXTRN QCL«, t00=0x0004, t01=0x0082}
0x06ce…06ee Head {h00=0x001c, h01=0x0050, text=» EJECT DMSUBR TOSSIO«, t00=0x0004, t01=0x0094}
0x06ee…06f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b4}
0x06f8…0702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00be}
0x0702…0734 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x00c8}
0x0734…073e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00fa}
0x073e…075c Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x0104}
0x075c…0766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0122}
0x0766…0798 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0004, t01=0x012c}
0x0798…07a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x015e}
0x07a2…07d4 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0004, t01=0x0168}
0x07d4…0802 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0005, t01=0x000a}
0x0802…080c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0038}
0x080c…0820 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0005, t01=0x0042}
0x0820…082a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0056}
0x082a…0838 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0060}
0x0838…0842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x006e}
0x0842…0884 Head {h00=0x003e, h01=0x0050, text=»* THIS ROUTINE RELEASES PROTECTION AT END OF TRANSACTION«, t00=0x0005, t01=0x0078}
0x0884…088e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ba}
0x088e…08ba Head {h00=0x0028, h01=0x0050, text=»* ENTRY : A9 = DM INTERNAL USER ID«, t00=0x0005, t01=0x00c4}
0x08ba…08c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f0}
0x08c4…08e6 Head {h00=0x001e, h01=0x0050, text=»* USED REGS A1 - A5 , A9«, t00=0x0005, t01=0x00fa}
0x08e6…08f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x011c}
0x08f0…08fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0126}
0x08fa…0922 Head {h00=0x0024, h01=0x0050, text=»RELPRO EQU * RELEASE PROTECTION «, t00=0x0005, t01=0x0130}
0x0922…0948 Head {h00=0x0022, h01=0x0050, text=» LDKL A1,FDBSTA FIRST FWT ADDR«, t00=0x0005, t01=0x0158}
0x0948…095c Head {h00=0x0010, h01=0x0050, text=»REL050 EQU *«, t00=0x0005, t01=0x017e}
0x095c…0970 (6, 0, 400) Head {h00=0x0010, h01=0x0050, text=» LDR* A2,A1 «, t00=0x0006, t01=0x0004}
0x0970…0982 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/1«, t00=0x0006, t01=0x0018}
0x0982…09a0 Head {h00=0x001a, h01=0x0050, text=» RF(Z) REL053 NOT USED«, t00=0x0006, t01=0x002a}
0x09a0…09d4 Head {h00=0x0030, h01=0x0050, text=» LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK «, t00=0x0006, t01=0x0048}
0x09d4…09ee Head {h00=0x0016, h01=0x0050, text=» LDKL A5,/FF00 =2«, t00=0x0006, t01=0x007c}
0x09ee…0a18 Head {h00=0x0026, h01=0x0050, text=» ANS A5,FDBBLZ,A1 COMMIT CHECK =2 «, t00=0x0006, t01=0x0096}
0x0a18…0a2e Head {h00=0x0012, h01=0x0050, text=» CF A14,EARELB«, t00=0x0006, t01=0x00c0}
0x0a2e…0a3a Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0006, t01=0x00d6}
0x0a3a…0a4e Head {h00=0x0010, h01=0x0050, text=»REL053 EQU *«, t00=0x0006, t01=0x00e2}
0x0a4e…0a62 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A1 «, t00=0x0006, t01=0x00f6}
0x0a62…0a86 Head {h00=0x0020, h01=0x0050, text=» ANKL A1,/FFFE SKIP USE BIT «, t00=0x0006, t01=0x010a}
0x0a86…0aa6 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) REL050 MORE FDBS«, t00=0x0006, t01=0x012e}
0x0aa6…0ab6 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0006, t01=0x014e}
0x0ab6…0ac4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x015e}
0x0ac4…0af8 Head {h00=0x0030, h01=0x0050, text=»* HERE WE ENTERS FOM LKM DATA 16 , COMMIT «, t00=0x0006, t01=0x016c}
0x0af8…0b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0010}
0x0b02…0b1e Head {h00=0x0018, h01=0x0050, text=»DMTEND EQU * COMMIT «, t00=0x0007, t01=0x001a}
0x0b1e…0b3a Head {h00=0x0018, h01=0x0050, text=» LDR A6,A5 TTAB USER«, t00=0x0007, t01=0x0036}
0x0b3a…0b52 Head {h00=0x0014, h01=0x0050, text=» ANK A7,/7F =1 «, t00=0x0007, t01=0x0052}
0x0b52…0b70 Head {h00=0x001a, h01=0x0050, text=» RF(Z) DMTE10 OK ORDER«, t00=0x0007, t01=0x006a}
0x0b70…0b92 Head {h00=0x001e, h01=0x0050, text=» LDKL A7,REQER2 REQUES ERR«, t00=0x0007, t01=0x0088}
0x0b92…0ba8 Head {h00=0x0012, h01=0x0050, text=» RF DMTE40 ERR«, t00=0x0007, t01=0x00aa}
0x0ba8…0bbc Head {h00=0x0010, h01=0x0050, text=»DMTE10 EQU *«, t00=0x0007, t01=0x00c0}
0x0bbc…0bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d4}
0x0bc6…0be6 Head {h00=0x001c, h01=0x0050, text=»* DECIDE USER TASK ID «, t00=0x0007, t01=0x00de}
0x0be6…0bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fe}
0x0bf0…0c02 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0007, t01=0x0108}
0x0c02…0c28 Head {h00=0x0022, h01=0x0050, text=»DMTE20 LD A1,SCTTCT TCTAB ADDR«, t00=0x0007, t01=0x011a}
0x0c28…0c3a Head {h00=0x000e, h01=0x0050, text=» ADR A1,A2«, t00=0x0007, t01=0x0140}
0x0c3a…0c4e Head {h00=0x0010, h01=0x0050, text=» CW A5,2,A1 «, t00=0x0007, t01=0x0152}
0x0c4e…0c6a Head {h00=0x0018, h01=0x0050, text=» RF(E) DMTE30 FOUND «, t00=0x0007, t01=0x0166}
0x0c6a…0c7c Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0007, t01=0x0182}
0x0c7c…0c98 (8, 0, 400) Head {h00=0x0018, h01=0x0050, text=» RB DMTE20 TRY NEXT «, t00=0x0008, t01=0x0004}
0x0c98…0cb0 Head {h00=0x0014, h01=0x0050, text=»DMTE30 LDR A9,A2«, t00=0x0008, t01=0x0020}
0x0cb0…0cd2 Head {h00=0x001e, h01=0x0050, text=» LDKL A14,STACK STACK BASE«, t00=0x0008, t01=0x0038}
0x0cd2…0cf8 Head {h00=0x0022, h01=0x0050, text=» CF A14,RELPRO RELEASE PROTECT«, t00=0x0008, t01=0x005a}
0x0cf8…0d0c Head {h00=0x0010, h01=0x0050, text=»DMTE40 EQU *«, t00=0x0008, t01=0x0080}
0x0d0c…0d28 Head {h00=0x0018, h01=0x0050, text=» LDR A5,A6 TTAB USER«, t00=0x0008, t01=0x0094}
0x0d28…0d52 Head {h00=0x0026, h01=0x0050, text=» ST A7,TTB:SA+14,A5 RET CODE IN A7«, t00=0x0008, t01=0x00b0}
0x0d52…0d5e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0008, t01=0x00da}
0x0d5e…0d80 Head {h00=0x001e, h01=0x0050, text=» CF A15,QTJOB RESTART USER«, t00=0x0008, t01=0x00e6}
0x0d80…0d92 Head {h00=0x000e, h01=0x0050, text=» ABL TDISP«, t00=0x0008, t01=0x0108}
0x0d92…0da6 Head {h00=0x0010, h01=0x0050, text=» DATA 0,0,0 «, t00=0x0008, t01=0x011a}
0x0da6…0dc2 Head {h00=0x0018, h01=0x0050, text=»STACK DATA 0 4 WORDS«, t00=0x0008, t01=0x012e}
0x0dc2…0dd0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x014a}
0x0dd0…0dda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0158}
0x0dda…0dee Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0008, t01=0x0162}
0x0dee…0e02 Head {h00=0x0010, h01=0x0050, text=»* DMTWM *«, t00=0x0008, t01=0x0176}
0x0e02…0e16 Head {h00=0x0010, h01=0x0050, text=»************«, t00=0x0008, t01=0x018a}
0x0e16…0e20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x000e}
0x0e20…0e46 Head {h00=0x0022, h01=0x0050, text=»* ENTRY DMTWM WORD MOVE «, t00=0x0009, t01=0x0018}
0x0e46…0e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003e}
0x0e50…0e76 Head {h00=0x0022, h01=0x0050, text=»* INPUT A1 = FROM ADDRESS «, t00=0x0009, t01=0x0048}
0x0e76…0ea6 Head {h00=0x002c, h01=0x0050, text=»* A2 = NO OF BYTES TO BE MOVED«, t00=0x0009, t01=0x006e}
0x0ea6…0eca Head {h00=0x0020, h01=0x0050, text=»* A3 = TO ADDRESS «, t00=0x0009, t01=0x009e}
0x0eca…0ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c2}
0x0ed4…0efc Head {h00=0x0024, h01=0x0050, text=»* A4 WILL BE DESTROYED«, t00=0x0009, t01=0x00cc}
0x0efc…0f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00f4}
0x0f06…0f10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00fe}
0x0f10…0f24 Head {h00=0x0010, h01=0x0050, text=»DMTWM EQU * «, t00=0x0009, t01=0x0108}
0x0f24…0f36 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0009, t01=0x011c}
0x0f36…0f5c Head {h00=0x0022, h01=0x0050, text=» RF(N) DMTW10 LAST WORD MOVED «, t00=0x0009, t01=0x012e}
0x0f5c…0f70 Head {h00=0x0010, h01=0x0050, text=» LDR* A4,A1 «, t00=0x0009, t01=0x0154}
0x0f70…0f82 Head {h00=0x000e, h01=0x0050, text=» STR A4,A3«, t00=0x0009, t01=0x0168}
0x0f82…0f94 Head {h00=0x000e, h01=0x0050, text=» ADK A1,2 «, t00=0x0009, t01=0x017a}
0x0f94…0fa6 Head {h00=0x000e, h01=0x0050, text=» ADK A3,2 «, t00=0x0009, t01=0x018c}
0x0fa6…0fb8 Head {h00=0x000e, h01=0x0050, text=» RB DMTWM «, t00=0x000a, t01=0x000e}
0x0fb8…0fd2 Head {h00=0x0016, h01=0x0050, text=»DMTW10 ANK A2,/01 «, t00=0x000a, t01=0x0020}
0x0fd2…0fe8 Head {h00=0x0012, h01=0x0050, text=» RF(E) DMTW20 «, t00=0x000a, t01=0x003a}
0x0fe8…100a Head {h00=0x001e, h01=0x0050, text=» LCR A4,A1 MOVE LAST CHAR «, t00=0x000a, t01=0x0050}
0x100a…101c Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x000a, t01=0x0072}
0x101c…1032 Head {h00=0x0012, h01=0x0050, text=»DMTW20 RTN A14«, t00=0x000a, t01=0x0084}
0x1032…1040 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x009a}
0x1040…104a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a8}
0x104a…1060 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x00b2}
0x1060…1076 Head {h00=0x0012, h01=0x0050, text=»* DMTBM * «, t00=0x000a, t01=0x00c8}
0x1076…108c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x00de}
0x108c…1096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f4}
0x1096…10bc Head {h00=0x0022, h01=0x0050, text=»* ENTRY DMTBM BYTE MOVE «, t00=0x000a, t01=0x00fe}
0x10bc…10c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0124}
0x10c6…10ec Head {h00=0x0022, h01=0x0050, text=»* INPUT A1 = FROM ADDRESS «, t00=0x000a, t01=0x012e}
0x10ec…111c Head {h00=0x002c, h01=0x0050, text=»* A2 = NO OF BYTES TO BE MOVED«, t00=0x000a, t01=0x0154}
0x111c…1140 Head {h00=0x0020, h01=0x0050, text=»* A3 = TO ADDRESS «, t00=0x000a, t01=0x0184}
0x1140…114a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0018}
0x114a…1172 Head {h00=0x0024, h01=0x0050, text=»* A4 WILL BE DESTROYED«, t00=0x000b, t01=0x0022}
0x1172…117c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x004a}
0x117c…119e Head {h00=0x001e, h01=0x0050, text=»* OUTPUT A3 = NEXT CHAR «, t00=0x000b, t01=0x0054}
0x119e…11a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0076}
0x11a8…11b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0080}
0x11b2…11c6 Head {h00=0x0010, h01=0x0050, text=»DMTBM EQU * «, t00=0x000b, t01=0x008a}
0x11c6…11d8 Head {h00=0x000e, h01=0x0050, text=» SUK A2,1 «, t00=0x000b, t01=0x009e}
0x11d8…11fe Head {h00=0x0022, h01=0x0050, text=» RF(N) DMTB10 LAST BYTE MOVED «, t00=0x000b, t01=0x00b0}
0x11fe…1210 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x000b, t01=0x00d6}
0x1210…1222 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x000b, t01=0x00e8}
0x1222…1234 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x000b, t01=0x00fa}
0x1234…1246 Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x000b, t01=0x010c}
0x1246…1258 Head {h00=0x000e, h01=0x0050, text=» RB DMTBM «, t00=0x000b, t01=0x011e}
0x1258…126e Head {h00=0x0012, h01=0x0050, text=»DMTB10 RTN A14«, t00=0x000b, t01=0x0130}
0x126e…1278 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0146}
0x1278…12ae Head {h00=0x0032, h01=0x0050, text=»* DMTBMR HAS THE SAME FUNCTION AS DMTBM BUT «, t00=0x000b, t01=0x0150}
0x12ae…12cc Head {h00=0x001a, h01=0x0050, text=»* MOVES FROM THE END«, t00=0x000b, t01=0x0186}
0x12cc…12d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0014}
0x12d6…12ee Head {h00=0x0014, h01=0x0050, text=»DMTBMR ADR A1,A2«, t00=0x000c, t01=0x001e}
0x12ee…1300 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A2«, t00=0x000c, t01=0x0036}
0x1300…1318 Head {h00=0x0014, h01=0x0050, text=»DMTB20 SUK A2,1 «, t00=0x000c, t01=0x0048}
0x1318…132e Head {h00=0x0012, h01=0x0050, text=» RB(N) DMTB10 «, t00=0x000c, t01=0x0060}
0x132e…1340 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x000c, t01=0x0076}
0x1340…1352 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x000c, t01=0x0088}
0x1352…1364 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x000c, t01=0x009a}
0x1364…1376 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x000c, t01=0x00ac}
0x1376…1388 Head {h00=0x000e, h01=0x0050, text=» RB DMTB20«, t00=0x000c, t01=0x00be}
0x1388…1396 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x00d0}
0x1396…13d2 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x000c, t01=0x00de}
0x13d2…13dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x011a}
0x13dc…141a Head {h00=0x003a, h01=0x0050, text=»* FNDFDB WILL SEARCH TTAB AND SCTCDT FOR A FILE CODE«, t00=0x000c, t01=0x0124}
0x141a…1424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0162}
0x1424…1460 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x000c, t01=0x016c}
0x1460…146a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0018}
0x146a…1484 Head {h00=0x0016, h01=0x0050, text=»* A1 = TTAB ADDR«, t00=0x000d, t01=0x0022}
0x1484…14ac Head {h00=0x0024, h01=0x0050, text=»* A2 = FILE CODE TO SEARCH FOR«, t00=0x000d, t01=0x003c}
0x14ac…14e4 Head {h00=0x0034, h01=0x0050, text=»* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED «, t00=0x000d, t01=0x0064}
0x14e4…14ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009c}
0x14ee…152a Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x000d, t01=0x00a6}
0x152a…1534 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00e2}
0x1534…154e Head {h00=0x0016, h01=0x0050, text=»* A1 = UNCHANGED«, t00=0x000d, t01=0x00ec}
0x154e…1584 Head {h00=0x0032, h01=0x0050, text=»* A2 = FILE CODE. = 0 WHEN NO CODE IS FOUND «, t00=0x000d, t01=0x0106}
0x1584…15be Head {h00=0x0036, h01=0x0050, text=»* A4 = TTAB/SCTCDT ENTRY ADDR WHEN CODE IS FOUND«, t00=0x000d, t01=0x013c}
0x15be…15f4 Head {h00=0x0032, h01=0x0050, text=»* A5 = 0 WHEN FOUND IN SCTCDT = 1 WHEN TTAB «, t00=0x000d, t01=0x0176}
0x15f4…15fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x001c}
0x15fe…163a Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x000e, t01=0x0026}
0x163a…1644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0062}
0x1644…1656 Head {h00=0x000e, h01=0x0050, text=»* A1-A5 «, t00=0x000e, t01=0x006c}
0x1656…1660 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x007e}
0x1660…169e Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x000e, t01=0x0088}
0x169e…16a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00c6}
0x16a8…16ce Head {h00=0x0022, h01=0x0050, text=»* LOOK FOR FILE CODE IN TTAB«, t00=0x000e, t01=0x00d0}
0x16ce…16d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f6}
0x16d8…16ec Head {h00=0x0010, h01=0x0050, text=»FNDFDB EQU *«, t00=0x000e, t01=0x0100}
0x16ec…1716 Head {h00=0x0026, h01=0x0050, text=» LD A3,TTB:TD,A1 LENGTH DEV DESCR «, t00=0x000e, t01=0x0114}
0x1716…172a Head {h00=0x0010, h01=0x0050, text=»FND030 EQU *«, t00=0x000e, t01=0x013e}
0x172a…173c Head {h00=0x000e, h01=0x0050, text=» SUK A3,4 «, t00=0x000e, t01=0x0152}
0x173c…1768 Head {h00=0x0028, h01=0x0050, text=» RF(NP) FND040 FILE CODE NOT IN TTAB«, t00=0x000e, t01=0x0164}
0x1768…177a Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x000e, t01=0x0190}
0x177a…1792 Head {h00=0x0014, h01=0x0050, text=» ADKL A4,TTB:TD «, t00=0x000f, t01=0x0012}
0x1792…17a4 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x000f, t01=0x002a}
0x17a4…17b8 Head {h00=0x0010, h01=0x0050, text=» CWR* A2,A4 «, t00=0x000f, t01=0x003c}
0x17b8…17ce Head {h00=0x0012, h01=0x0050, text=» RB(NE) FND030«, t00=0x000f, t01=0x0050}
0x17ce…17e0 Head {h00=0x000e, h01=0x0050, text=» LDK A5,1 «, t00=0x000f, t01=0x0066}
0x17e0…1806 Head {h00=0x0022, h01=0x0050, text=» RF FND080 CODE FOUND IN TTAB «, t00=0x000f, t01=0x0078}
0x1806…1810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x009e}
0x1810…1836 Head {h00=0x0022, h01=0x0050, text=»* SEARCH FILE CODE IN SCTCDT«, t00=0x000f, t01=0x00a8}
0x1836…1840 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ce}
0x1840…1854 Head {h00=0x0010, h01=0x0050, text=»FND040 EQU *«, t00=0x000f, t01=0x00d8}
0x1854…1866 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A5«, t00=0x000f, t01=0x00ec}
0x1866…1892 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FND060 ONLY TTAB IS SEACHED «, t00=0x000f, t01=0x00fe}
0x1892…18a8 Head {h00=0x0012, h01=0x0050, text=» LD* A4,SCTCDT«, t00=0x000f, t01=0x012a}
0x18a8…18bc Head {h00=0x0010, h01=0x0050, text=»FND050 EQU *«, t00=0x000f, t01=0x0140}
0x18bc…18ce Head {h00=0x000e, h01=0x0050, text=» SUK A4,4 «, t00=0x000f, t01=0x0154}
0x18ce…18fa Head {h00=0x0028, h01=0x0050, text=» RF(NP) FND060 CODE NOT FOUND AT ALL«, t00=0x000f, t01=0x0166}
0x18fa…1910 (16, 0, 398) Head {h00=0x0012, h01=0x0050, text=» LD A3,SCTCDT «, t00=0x0010, t01=0x0004}
0x1910…1922 Head {h00=0x000e, h01=0x0050, text=» ADR A3,A4«, t00=0x0010, t01=0x001a}
0x1922…1936 Head {h00=0x0010, h01=0x0050, text=» CWR* A2,A3 «, t00=0x0010, t01=0x002c}
0x1936…194c Head {h00=0x0012, h01=0x0050, text=» RB(NE) FND050«, t00=0x0010, t01=0x0040}
0x194c…1962 Head {h00=0x0012, h01=0x0050, text=» AD A4,SCTCDT «, t00=0x0010, t01=0x0056}
0x1962…1980 Head {h00=0x001a, h01=0x0050, text=» RF FND080 CODE FOUND «, t00=0x0010, t01=0x006c}
0x1980…1994 Head {h00=0x0010, h01=0x0050, text=»FND060 EQU *«, t00=0x0010, t01=0x008a}
0x1994…19ae Head {h00=0x0016, h01=0x0050, text=» LDK A2,0 NO CODE «, t00=0x0010, t01=0x009e}
0x19ae…19c2 Head {h00=0x0010, h01=0x0050, text=»FND080 EQU *«, t00=0x0010, t01=0x00b8}
0x19c2…19d2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0010, t01=0x00cc}
0x19d2…19e0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x00dc}
0x19e0…19ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00ea}
0x19ea…1a00 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0010, t01=0x00f4}
0x1a00…1a16 Head {h00=0x0012, h01=0x0050, text=»* DMTREM *«, t00=0x0010, t01=0x010a}
0x1a16…1a2c Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0010, t01=0x0120}
0x1a2c…1a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0136}
0x1a36…1a7e Head {h00=0x0044, h01=0x0050, text=»* ENTRY DMTREM MOVE RECORD FROM BUFFER TO USER RECORD AREA«, t00=0x0010, t01=0x0140}
0x1a7e…1a88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0188}
0x1a88…1abc (17, 0, 400) Head {h00=0x0030, h01=0x0050, text=»* INPUT RELATIVE REC OFFSET IN FDBRRO,A6«, t00=0x0011, t01=0x0004}
0x1abc…1ae4 Head {h00=0x0024, h01=0x0050, text=»* BUFFER ADDRESS IN A5«, t00=0x0011, t01=0x0038}
0x1ae4…1b12 Head {h00=0x002a, h01=0x0050, text=»* USER REC AREA IN ECBBA,A9 «, t00=0x0011, t01=0x0060}
0x1b12…1b3a Head {h00=0x0024, h01=0x0050, text=»* RECORD LENGTH IN A2 «, t00=0x0011, t01=0x008e}
0x1b3a…1b44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b6}
0x1b44…1b4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00c0}
0x1b4e…1b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ca}
0x1b58…1b74 Head {h00=0x0018, h01=0x0050, text=»* MOVE THE RECORD «, t00=0x0011, t01=0x00d4}
0x1b74…1bb6 Head {h00=0x003e, h01=0x0050, text=»* IF (FROM) AND (TO) ADDRESSES BOTH EVEN THEN WORD MOVE «, t00=0x0011, t01=0x00f0}
0x1bb6…1bfc Head {h00=0x0042, h01=0x0050, text=»* IF (FROM AND (TO) ADDRESSES BOTH ODD THEN MOVE FIRST BYTE «, t00=0x0011, t01=0x0132}
0x1bfc…1c3e Head {h00=0x003e, h01=0x0050, text=»* WITH BYTE INSTRUCTIONS AND THE REST WITH WORD MOVE «, t00=0x0011, t01=0x0178}
0x1c3e…1c7c Head {h00=0x003a, h01=0x0050, text=»* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE WHOLE REC «, t00=0x0012, t01=0x002a}
0x1c7c…1c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0068}
0x1c86…1c9a Head {h00=0x0010, h01=0x0050, text=»DMTREM EQU *«, t00=0x0012, t01=0x0072}
0x1c9a…1cb2 Head {h00=0x0014, h01=0x0050, text=» LD A1,FDBRRO,A6«, t00=0x0012, t01=0x0086}
0x1cb2…1cd2 Head {h00=0x001c, h01=0x0050, text=» ADR A1,A5 FROM ADDRESS «, t00=0x0012, t01=0x009e}
0x1cd2…1cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00be}
0x1cdc…1cf2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x00c8}
0x1cf2…1d04 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0012, t01=0x00de}
0x1d04…1d26 Head {h00=0x001e, h01=0x0050, text=» LD A3,ECBBA,A9 TO ADDRESS«, t00=0x0012, t01=0x00f0}
0x1d26…1d38 Head {h00=0x000e, h01=0x0050, text=» XRR A4,A3«, t00=0x0012, t01=0x0112}
0x1d38…1d4c Head {h00=0x0010, h01=0x0050, text=» ANK A4,/01 «, t00=0x0012, t01=0x0124}
0x1d4c…1d78 Head {h00=0x0028, h01=0x0050, text=» RF(Z) DMT210 BOTH ODD OR BOTH EVEN «, t00=0x0012, t01=0x0138}
0x1d78…1da2 Head {h00=0x0026, h01=0x0050, text=» CF A14,DMTBM ONE ODD AND ONE EVEN«, t00=0x0012, t01=0x0164}
0x1da2…1db4 Head {h00=0x000e, h01=0x0050, text=» RF DMT225«, t00=0x0012, t01=0x018e}
0x1db4…1dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0010}
0x1dbe…1dd6 Head {h00=0x0014, h01=0x0050, text=»DMT210 LDR A4,A1«, t00=0x0013, t01=0x001a}
0x1dd6…1dea Head {h00=0x0010, h01=0x0050, text=» ANK A4,/01 «, t00=0x0013, t01=0x0032}
0x1dea…1e0a Head {h00=0x001c, h01=0x0050, text=» RF(E) DMT220 BOTH EVEN «, t00=0x0013, t01=0x0046}
0x1e0a…1e24 Head {h00=0x0016, h01=0x0050, text=» SUK A2,1 BOTH ODD«, t00=0x0013, t01=0x0066}
0x1e24…1e36 Head {h00=0x000e, h01=0x0050, text=» LCR A4,A1«, t00=0x0013, t01=0x0080}
0x1e36…1e48 Head {h00=0x000e, h01=0x0050, text=» SCR A4,A3«, t00=0x0013, t01=0x0092}
0x1e48…1e5a Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0013, t01=0x00a4}
0x1e5a…1e6c Head {h00=0x000e, h01=0x0050, text=» ADK A3,1 «, t00=0x0013, t01=0x00b6}
0x1e6c…1e92 Head {h00=0x0022, h01=0x0050, text=»DMT220 CF A14,DMTWM WORD MOVE «, t00=0x0013, t01=0x00c8}
0x1e92…1ea6 Head {h00=0x0010, h01=0x0050, text=»DMT225 EQU *«, t00=0x0013, t01=0x00ee}
0x1ea6…1eb2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0102}
0x1eb2…1ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x010e}
0x1ebc…1ed2 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x0118}
0x1ed2…1efc Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTTAB,A6 GET TTAB ADDRESS «, t00=0x0013, t01=0x012e}
0x1efc…1f1a Head {h00=0x001a, h01=0x0050, text=» LDR A3,A2 GET LENGTH «, t00=0x0013, t01=0x0158}
0x1f1a…1f4e Head {h00=0x0030, h01=0x0050, text=» LD A2,ECBBA,A9 GET RECEIVING BUFFER ADDRESS«, t00=0x0013, t01=0x0176}
0x1f4e…1f8a Head {h00=0x0038, h01=0x0050, text=» CF A14,MOV:SU MOVE RECORD FROM SYSTEM TO USER AREA «, t00=0x0014, t01=0x001a}
0x1f8a…1f96 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0056}
0x1f96…1fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0062}
0x1fa0…1fb0 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0014, t01=0x006c}
0x1fb0…1fbe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x007c}
0x1fbe…1fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008a}
0x1fc8…1fe4 Head {h00=0x0018, h01=0x0050, text=»* SET UP A14 STACK«, t00=0x0014, t01=0x0094}
0x1fe4…1fee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00b0}
0x1fee…2002 Head {h00=0x0010, h01=0x0050, text=»GETA14 EQU *«, t00=0x0014, t01=0x00ba}
0x2002…202a Head {h00=0x0024, h01=0x0050, text=» LD A14,PRUN GET DM TTAB ADDRESS«, t00=0x0014, t01=0x00ce}
0x202a…2058 Head {h00=0x002a, h01=0x0050, text=» AD A14,TTB:TD,A14 LENGTH DEVICE DESCR«, t00=0x0014, t01=0x00f6}
0x2058…207a Head {h00=0x001e, h01=0x0050, text=» ADKL A14,TTB:TD+32 STACK «, t00=0x0014, t01=0x0124}
0x207a…209c Head {h00=0x001e, h01=0x0050, text=» RTN A15 RETURN AND ENABLE«, t00=0x0014, t01=0x0146}
0x209c…20a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0168}
0x20a6…20be Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0014, t01=0x0172}
0x20be…20fa Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0014, t01=0x018a}
0x20fa…2104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0036}
0x2104…2144 Head {h00=0x003c, h01=0x0050, text=»* EATEST WILL SEARCH THE EA-LINK FOR A LOG RECORD NO. «, t00=0x0015, t01=0x0040}
0x2144…214e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0080}
0x214e…218a Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0015, t01=0x008a}
0x218a…2194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c6}
0x2194…21b0 Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADRESS «, t00=0x0015, t01=0x00d0}
0x21b0…21d2 Head {h00=0x001e, h01=0x0050, text=»* A2,A3 = LOG RECORD NO «, t00=0x0015, t01=0x00ec}
0x21d2…21dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x010e}
0x21dc…21f8 Head {h00=0x0018, h01=0x0050, text=»* CF A14,EATEST «, t00=0x0015, t01=0x0118}
0x21f8…2202 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0134}
0x2202…223e Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0015, t01=0x013e}
0x223e…2248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017a}
0x2248…2266 Head {h00=0x001a, h01=0x0050, text=»* A1-A3 = UNCHANGED «, t00=0x0015, t01=0x0184}
0x2266…2288 Head {h00=0x001e, h01=0x0050, text=»* A4 = 0 NO EA AT ALL «, t00=0x0016, t01=0x0012}
0x2288…22b6 Head {h00=0x002a, h01=0x0050, text=»* = +1 EA FOUND FOR ACTUAL TASK «, t00=0x0016, t01=0x0034}
0x22b6…22e4 Head {h00=0x002a, h01=0x0050, text=»* = -1 EA FOUND FO R OTHER TASK «, t00=0x0016, t01=0x0062}
0x22e4…22ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0090}
0x22ee…232a Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0016, t01=0x009a}
0x232a…2334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00d6}
0x2334…2348 Head {h00=0x0010, h01=0x0050, text=»* A1 - A4 «, t00=0x0016, t01=0x00e0}
0x2348…2360 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0016, t01=0x00f4}
0x2360…2374 Head {h00=0x0010, h01=0x0050, text=»EATEST EQU *«, t00=0x0016, t01=0x010c}
0x2374…239a Head {h00=0x0022, h01=0x0050, text=» LD A4,FDBEAL,A1 BUFFER QUEUE «, t00=0x0016, t01=0x0120}
0x239a…23ac Head {h00=0x000e, h01=0x0050, text=» RF EAT030«, t00=0x0016, t01=0x0146}
0x23ac…23c0 Head {h00=0x0010, h01=0x0050, text=»EAT020 EQU *«, t00=0x0016, t01=0x0158}
0x23c0…23e4 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A4 NEXT BUFFER ADR «, t00=0x0016, t01=0x016c}
0x23e4…23f8 Head {h00=0x0010, h01=0x0050, text=»EAT030 EQU *«, t00=0x0016, t01=0x0190}
0x23f8…2420 Head {h00=0x0024, h01=0x0050, text=» RF(Z) EAT100 EMPTY QUEUE,NO EA «, t00=0x0017, t01=0x0014}
0x2420…242a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x003c}
0x242a…2448 Head {h00=0x001a, h01=0x0050, text=»* SEARCH LOG REC NO «, t00=0x0017, t01=0x0046}
0x2448…2452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0064}
0x2452…2470 Head {h00=0x001a, h01=0x0050, text=» CC A2,3,A4 FIRST CHAR«, t00=0x0017, t01=0x006e}
0x2470…2486 Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAT020«, t00=0x0017, t01=0x008c}
0x2486…24a6 Head {h00=0x001c, h01=0x0050, text=» CW A3,4,A4 2 AND 3 CHAR«, t00=0x0017, t01=0x00a2}
0x24a6…24bc Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAT020«, t00=0x0017, t01=0x00c2}
0x24bc…24c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d8}
0x24c6…24e2 Head {h00=0x0018, h01=0x0050, text=»* RECORD NO FOUND «, t00=0x0017, t01=0x00e2}
0x24e2…24ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00fe}
0x24ec…2500 Head {h00=0x0010, h01=0x0050, text=» LC A4,2,A4 «, t00=0x0017, t01=0x0108}
0x2500…2520 Head {h00=0x001c, h01=0x0050, text=» CC A4,FDBTNR,A1 TASK ID«, t00=0x0017, t01=0x011c}
0x2520…2536 Head {h00=0x0012, h01=0x0050, text=» RF(E) EAT060 «, t00=0x0017, t01=0x013c}
0x2536…2558 Head {h00=0x001e, h01=0x0050, text=» LDKL A4,-1 EA OTHER TASK «, t00=0x0017, t01=0x0152}
0x2558…256a Head {h00=0x000e, h01=0x0050, text=» RF EAT100«, t00=0x0017, t01=0x0174}
0x256a…257e Head {h00=0x0010, h01=0x0050, text=»EAT060 EQU *«, t00=0x0017, t01=0x0186}
0x257e…259e Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 EA SAME ATASK «, t00=0x0018, t01=0x000a}
0x259e…25b2 Head {h00=0x0010, h01=0x0050, text=»EAT100 EQU *«, t00=0x0018, t01=0x002a}
0x25b2…25c2 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0018, t01=0x003e}
0x25c2…25da Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0018, t01=0x004e}
0x25da…2616 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0018, t01=0x0066}
0x2616…2620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a2}
0x2620…2666 Head {h00=0x0042, h01=0x0050, text=»* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK«, t00=0x0018, t01=0x00ac}
0x2666…26b6 Head {h00=0x004c, h01=0x0050, text=»* IF NO BUFFERS ARE AVAILABLE THE SYSTEM WILL HALT AND LITE SOP-LAMPS «, t00=0x0018, t01=0x00f2}
0x26b6…26c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0142}
0x26c0…26fc Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0018, t01=0x014c}
0x26fc…2706 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0188}
0x2706…2720 (25, 0, 400) Head {h00=0x0016, h01=0x0050, text=»* A6 = FDB ADDR «, t00=0x0019, t01=0x0004}
0x2720…2746 Head {h00=0x0022, h01=0x0050, text=»* A2,A3 = LOGICAL RECORD NO «, t00=0x0019, t01=0x001e}
0x2746…2750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0044}
0x2750…276c Head {h00=0x0018, h01=0x0050, text=»* CF A14,EASETB «, t00=0x0019, t01=0x004e}
0x276c…2776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006a}
0x2776…27b2 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0019, t01=0x0074}
0x27b2…27bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b0}
0x27bc…27d6 Head {h00=0x0016, h01=0x0050, text=»* A6 = FDB ADDR «, t00=0x0019, t01=0x00ba}
0x27d6…27e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00d4}
0x27e0…281c Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0019, t01=0x00de}
0x281c…2826 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x011a}
0x2826…283a Head {h00=0x0010, h01=0x0050, text=»* A1-A4,A6«, t00=0x0019, t01=0x0124}
0x283a…2844 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0138}
0x2844…2884 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0019, t01=0x0142}
0x2884…289c Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0019, t01=0x0182}
0x289c…28b0 Head {h00=0x0010, h01=0x0050, text=»EASETB EQU *«, t00=0x001a, t01=0x000a}
0x28b0…28c2 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x001a, t01=0x001e}
0x28c2…28e2 Head {h00=0x001c, h01=0x0050, text=» LC A2,FDBTNR,A6 TASK ID«, t00=0x001a, t01=0x0030}
0x28e2…28f4 Head {h00=0x000e, h01=0x0050, text=» ECR A2,A2«, t00=0x001a, t01=0x0050}
0x28f4…2912 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A3 LOG REC NO «, t00=0x001a, t01=0x0062}
0x2912…291e Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x001a, t01=0x0080}
0x291e…294e Head {h00=0x002c, h01=0x0050, text=» CF A15,GETBLK GET BUFF AND STORE A1,A2 «, t00=0x001a, t01=0x008c}
0x294e…2958 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00bc}
0x2958…2976 Head {h00=0x001a, h01=0x0050, text=»* LINK BUFFER TO FDB«, t00=0x001a, t01=0x00c6}
0x2976…2980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00e4}
0x2980…29a2 Head {h00=0x001e, h01=0x0050, text=» LD A2,FDBEAL,A6 LINK ROOT«, t00=0x001a, t01=0x00ee}
0x29a2…29bc Head {h00=0x0016, h01=0x0050, text=» STR A2,A4 THREAD «, t00=0x001a, t01=0x0110}
0x29bc…29de Head {h00=0x001e, h01=0x0050, text=» ST A4,FDBEAL,A6 NEW ROOT «, t00=0x001a, t01=0x012a}
0x29de…29ea Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x001a, t01=0x014c}
0x29ea…29fa Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x001a, t01=0x0158}
0x29fa…2a12 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x001a, t01=0x0168}
0x2a12…2a4e Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x001a, t01=0x0180}
0x2a4e…2a58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x002c}
0x2a58…2a94 Head {h00=0x0038, h01=0x0050, text=»* EARELB WILL RELEASE EA BUFFERS AND CONNRECT THEM«, t00=0x001b, t01=0x0036}
0x2a94…2ab2 Head {h00=0x001a, h01=0x0050, text=»* TIO THE FREE LINK.«, t00=0x001b, t01=0x0072}
0x2ab2…2abc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0090}
0x2abc…2af8 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x001b, t01=0x009a}
0x2af8…2b02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00d6}
0x2b02…2b1e Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB-ADDRESS«, t00=0x001b, t01=0x00e0}
0x2b1e…2b44 Head {h00=0x0022, h01=0x0050, text=»* A2,A3 = LOGICAL RECORD NO «, t00=0x001b, t01=0x00fc}
0x2b44…2b8a Head {h00=0x0042, h01=0x0050, text=»* A2: BIT 0=1,BIT 1=1 ALL BUFFERS WITH TASK ID SAME AS FDB «, t00=0x001b, t01=0x0122}
0x2b8a…2ba4 Head {h00=0x0016, h01=0x0050, text=»* AND A9 = 0«, t00=0x001b, t01=0x0168}
0x2ba4…2bd2 Head {h00=0x002a, h01=0x0050, text=»* ARE REMOVED. «, t00=0x001b, t01=0x0182}
0x2bd2…2bf2 Head {h00=0x001c, h01=0x0050, text=»* A2: BIT 0=1,BIT 1=1 «, t00=0x001c, t01=0x0020}
0x2bf2…2c2a Head {h00=0x0034, h01=0x0050, text=»* AND A9 NOT EQ 0 ALL BUFFERS ON FDB WITH«, t00=0x001c, t01=0x0040}
0x2c2a…2c6e Head {h00=0x0040, h01=0x0050, text=»* TASK ID AS SPEC IN A3 ARE RELEASED «, t00=0x001c, t01=0x0078}
0x2c6e…2cae Head {h00=0x003c, h01=0x0050, text=»* BIT 0=1,BIT 1=0 ALL BUFFERS ON FDB ARE REMOVED.«, t00=0x001c, t01=0x00bc}
0x2cae…2cfc Head {h00=0x004a, h01=0x0050, text=»* BIT 0=0 THE FIRST BUFFER WITH TASK ID AND LOG REC NO «, t00=0x001c, t01=0x00fc}
0x2cfc…2d30 Head {h00=0x0030, h01=0x0050, text=»* AS SPEC IS REMOVED.«, t00=0x001c, t01=0x014a}
0x2d30…2d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x017e}
0x2d3a…2d76 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x001c, t01=0x0188}
0x2d76…2d80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0034}
0x2d80…2d9a Head {h00=0x0016, h01=0x0050, text=»* A1 = UNCHANGED«, t00=0x001d, t01=0x003e}
0x2d9a…2da4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0058}
0x2da4…2de0 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x001d, t01=0x0062}
0x2de0…2dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x009e}
0x2dea…2e00 Head {h00=0x0012, h01=0x0050, text=»* A1 - A5,A9«, t00=0x001d, t01=0x00a8}
0x2e00…2e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00be}
0x2e0a…2e44 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x001d, t01=0x00c8}
0x2e44…2e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0102}
0x2e4e…2e72 Head {h00=0x0020, h01=0x0050, text=»* THE ROUTINE SETS INHIBIT«, t00=0x001d, t01=0x010c}
0x2e72…2e8a Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x001d, t01=0x0130}
0x2e8a…2e9e Head {h00=0x0010, h01=0x0050, text=»EARELB EQU *«, t00=0x001d, t01=0x0148}
0x2e9e…2eb0 Head {h00=0x000e, h01=0x0050, text=» LDR A5,A1«, t00=0x001d, t01=0x015c}
0x2eb0…2ed0 Head {h00=0x001c, h01=0x0050, text=» ADKL A5,FDBEAL ROOT ADR«, t00=0x001d, t01=0x016e}
0x2ed0…2eec Head {h00=0x0018, h01=0x0050, text=» LDR* A4,A5 EA ROOT «, t00=0x001d, t01=0x018e}
0x2eec…2efe Head {h00=0x000e, h01=0x0050, text=» RF EAR030«, t00=0x001e, t01=0x001a}
0x2efe…2f12 Head {h00=0x0010, h01=0x0050, text=»EAR020 EQU *«, t00=0x001e, t01=0x002c}
0x2f12…2f32 Head {h00=0x001c, h01=0x0050, text=» LDR A5,A4 SAVE OLD ROOT«, t00=0x001e, t01=0x0040}
0x2f32…2f56 Head {h00=0x0020, h01=0x0050, text=» LDR* A4,A4 NEXT BUFFER ADR «, t00=0x001e, t01=0x0060}
0x2f56…2f6a Head {h00=0x0010, h01=0x0050, text=»EAR030 EQU *«, t00=0x001e, t01=0x0084}
0x2f6a…2f8c Head {h00=0x001e, h01=0x0050, text=» RF(Z) EAR100 EA LINK END «, t00=0x001e, t01=0x0098}
0x2f8c…2fa6 Head {h00=0x0016, h01=0x0050, text=» LDR A2,A2 REC NO «, t00=0x001e, t01=0x00ba}
0x2fa6…2fd0 Head {h00=0x0026, h01=0x0050, text=» RF(N) EAR050 RELEASE MANY BUFFERS«, t00=0x001e, t01=0x00d4}
0x2fd0…2fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fe}
0x2fda…2ff8 Head {h00=0x001a, h01=0x0050, text=»* SEARCH LOG REC NO «, t00=0x001e, t01=0x0108}
0x2ff8…3002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0126}
0x3002…3016 Head {h00=0x0010, h01=0x0050, text=» CC A2,3,A4 «, t00=0x001e, t01=0x0130}
0x3016…302c Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAR020«, t00=0x001e, t01=0x0144}
0x302c…3040 Head {h00=0x0010, h01=0x0050, text=» CW A3,4,A4 «, t00=0x001e, t01=0x015a}
0x3040…3056 Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAR020«, t00=0x001e, t01=0x016e}
0x3056…3068 Head {h00=0x000e, h01=0x0050, text=» RF EAR060«, t00=0x001e, t01=0x0184}
0x3068…307c Head {h00=0x0010, h01=0x0050, text=»EAR050 EQU *«, t00=0x001f, t01=0x0008}
0x307c…309e Head {h00=0x001e, h01=0x0050, text=» CWK A2,/A000 CHECK BIT 1 «, t00=0x001f, t01=0x001c}
0x309e…30d2 Head {h00=0x0030, h01=0x0050, text=» RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED«, t00=0x001f, t01=0x003e}
0x30d2…30f0 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A9 REQ TASK ID«, t00=0x001f, t01=0x0072}
0x30f0…3114 Head {h00=0x0020, h01=0x0050, text=» RF(NZ) EAR065 TASK ID IN A3«, t00=0x001f, t01=0x0090}
0x3114…3128 Head {h00=0x0010, h01=0x0050, text=»EAR060 EQU *«, t00=0x001f, t01=0x00b4}
0x3128…3132 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00c8}
0x3132…3150 Head {h00=0x001a, h01=0x0050, text=»* SEARCH TASK IDENT «, t00=0x001f, t01=0x00d2}
0x3150…315a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f0}
0x315a…317a Head {h00=0x001c, h01=0x0050, text=» LC A3,FDBTNR,A1 TAK ID «, t00=0x001f, t01=0x00fa}
0x317a…318e Head {h00=0x0010, h01=0x0050, text=»EAR065 EQU *«, t00=0x001f, t01=0x011a}
0x318e…31a2 Head {h00=0x0010, h01=0x0050, text=» CC A3,2,A4 «, t00=0x001f, t01=0x012e}
0x31a2…31b8 Head {h00=0x0012, h01=0x0050, text=» RB(NE) EAR020«, t00=0x001f, t01=0x0142}
0x31b8…31c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0158}
0x31c2…31de Head {h00=0x0018, h01=0x0050, text=»* EA BUFFER FOUND «, t00=0x001f, t01=0x0162}
0x31de…31e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x017e}
0x31e8…31fc Head {h00=0x0010, h01=0x0050, text=»EAR080 EQU *«, t00=0x001f, t01=0x0188}
0x31fc…321c Head {h00=0x001c, h01=0x0050, text=» LDR* A3,A4 NEXT BUFADR «, t00=0x0020, t01=0x000c}
0x321c…3246 Head {h00=0x0026, h01=0x0050, text=» STR A3,A5 REMOVE BUFFER FROM LINK«, t00=0x0020, t01=0x002c}
0x3246…3250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0056}
0x3250…3272 Head {h00=0x001e, h01=0x0050, text=»* RETURN BUFFER TO POOL «, t00=0x0020, t01=0x0060}
0x3272…327c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0082}
0x327c…3288 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0020, t01=0x008c}
0x3288…329e Head {h00=0x0012, h01=0x0050, text=» LD A3,FREQUE «, t00=0x0020, t01=0x0098}
0x329e…32ba Head {h00=0x0018, h01=0x0050, text=» STR A3,A4 NEXT FREE«, t00=0x0020, t01=0x00ae}
0x32ba…32d8 Head {h00=0x001a, h01=0x0050, text=» ST A4,FREQUE NEW ROOT«, t00=0x0020, t01=0x00ca}
0x32d8…32f6 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A5 BUFFER ROOT«, t00=0x0020, t01=0x00e8}
0x32f6…3308 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0020, t01=0x0106}
0x3308…332a Head {h00=0x001e, h01=0x0050, text=» RB(N) EAR020 RELEASE MORE«, t00=0x0020, t01=0x0118}
0x332a…333e Head {h00=0x0010, h01=0x0050, text=»EAR100 EQU *«, t00=0x0020, t01=0x013a}
0x333e…334e Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0020, t01=0x014e}
0x334e…3366 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0020, t01=0x015e}
0x3366…33a2 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0020, t01=0x0176}
0x33a2…33ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0022}
0x33ac…33f4 Head {h00=0x0044, h01=0x0050, text=»* CRNGET WILL SEARCH THE CRN-LINK FOR TASK ID. IF NO BUFFER IS«, t00=0x0021, t01=0x002c}
0x33f4…343c Head {h00=0x0044, h01=0x0050, text=»* FOUND A NEW IS FETCHED FROM THE FREE LINK AND B FILLED WITH «, t00=0x0021, t01=0x0074}
0x343c…3488 Head {h00=0x0048, h01=0x0050, text=»* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE«, t00=0x0021, t01=0x00bc}
0x3488…34bc Head {h00=0x0030, h01=0x0050, text=»* THE SYSTEM WILL HALT AND LITE SOP-LAMPS.«, t00=0x0021, t01=0x0108}
0x34bc…34e8 Head {h00=0x0028, h01=0x0050, text=»* TASK ID IS PLACED IN THE BUFFER «, t00=0x0021, t01=0x013c}
0x34e8…34f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0168}
0x34f2…352e Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0021, t01=0x0172}
0x352e…3538 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x001e}
0x3538…355e Head {h00=0x0022, h01=0x0050, text=»* A1 = FDB ADDRESS DATA FILE«, t00=0x0022, t01=0x0028}
0x355e…3568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x004e}
0x3568…35a4 Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0022, t01=0x0058}
0x35a4…35ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0094}
0x35ae…35c8 Head {h00=0x0016, h01=0x0050, text=»* A1 = UNCHANGED«, t00=0x0022, t01=0x009e}
0x35c8…35f4 Head {h00=0x0028, h01=0x0050, text=»* A2 = ADDRESS OF FOUND CRN-BUFFER«, t00=0x0022, t01=0x00b8}
0x35f4…35fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00e4}
0x35fe…363a Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0022, t01=0x00ee}
0x363a…3644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x012a}
0x3644…3658 Head {h00=0x0010, h01=0x0050, text=»* A1 - A4 «, t00=0x0022, t01=0x0134}
0x3658…3662 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0148}
0x3662…369c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0022, t01=0x0152}
0x369c…36a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x018c}
0x36a6…36be Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0023, t01=0x0008}
0x36be…36d2 Head {h00=0x0010, h01=0x0050, text=»CRNGET EQU *«, t00=0x0023, t01=0x0020}
0x36d2…36f4 Head {h00=0x001e, h01=0x0050, text=» LD A2,FDBCRL,A1 CRN ROOT «, t00=0x0023, t01=0x0034}
0x36f4…3706 Head {h00=0x000e, h01=0x0050, text=» RF CRN030«, t00=0x0023, t01=0x0056}
0x3706…371a Head {h00=0x0010, h01=0x0050, text=»CRN020 EQU *«, t00=0x0023, t01=0x0068}
0x371a…373a Head {h00=0x001c, h01=0x0050, text=» LDR* A2,A2 NEXT BUFFER «, t00=0x0023, t01=0x007c}
0x373a…374e Head {h00=0x0010, h01=0x0050, text=»CRN030 EQU *«, t00=0x0023, t01=0x009c}
0x374e…376c Head {h00=0x001a, h01=0x0050, text=» RF(Z) CRN100 LINK END«, t00=0x0023, t01=0x00b0}
0x376c…3776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00ce}
0x3776…3794 Head {h00=0x001a, h01=0x0050, text=»* CHECK ATASK IDENT «, t00=0x0023, t01=0x00d8}
0x3794…379e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00f6}
0x379e…37be Head {h00=0x001c, h01=0x0050, text=» LC A3,FDBTNR,A1 TASK ID«, t00=0x0023, t01=0x0100}
0x37be…37d6 Head {h00=0x0014, h01=0x0050, text=» CC A3,CRNTID,A2«, t00=0x0023, t01=0x0120}
0x37d6…37f8 Head {h00=0x001e, h01=0x0050, text=» RB(NE) CRN020 OTHER TASK «, t00=0x0023, t01=0x0138}
0x37f8…3818 Head {h00=0x001c, h01=0x0050, text=» RF CRN200 BUFFER FOUND «, t00=0x0023, t01=0x015a}
0x3818…3822 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x017a}
0x3822…383c Head {h00=0x0016, h01=0x0050, text=»* GET NEW BUFFER«, t00=0x0023, t01=0x0184}
0x383c…3846 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x000e}
0x3846…385a Head {h00=0x0010, h01=0x0050, text=»CRN100 EQU *«, t00=0x0024, t01=0x0018}
0x385a…3866 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0024, t01=0x002c}
0x3866…388a Head {h00=0x0020, h01=0x0050, text=» LD A2,CRNQUE FREE LINK ROOT«, t00=0x0024, t01=0x0038}
0x388a…38a0 Head {h00=0x0012, h01=0x0050, text=» RF(NZ) CRN120«, t00=0x0024, t01=0x005c}
0x38a0…38c0 Head {h00=0x001c, h01=0x0050, text=» LDK A1,3 LAMP 10 AND 11«, t00=0x0024, t01=0x0072}
0x38c0…38e4 Head {h00=0x0020, h01=0x0050, text=» CF A15,HALT NO MORE BUFFERS«, t00=0x0024, t01=0x0092}
0x38e4…38f8 Head {h00=0x0010, h01=0x0050, text=»CRN120 EQU *«, t00=0x0024, t01=0x00b6}
0x38f8…3916 Head {h00=0x001a, h01=0x0050, text=» LDR* A3,A2 NEXT FREE «, t00=0x0024, t01=0x00ca}
0x3916…3934 Head {h00=0x001a, h01=0x0050, text=» ST A3,CRNQUE UPD ROOT«, t00=0x0024, t01=0x00e8}
0x3934…393e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0106}
0x393e…3962 Head {h00=0x0020, h01=0x0050, text=»* FILL BUFFER WITH ZEROES «, t00=0x0024, t01=0x0110}
0x3962…396c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0134}
0x396c…399a Head {h00=0x002a, h01=0x0050, text=» LDKL A3,CRBUFL BUFFER LENGTH IN BYTES«, t00=0x0024, t01=0x013e}
0x399a…39ae Head {h00=0x0010, h01=0x0050, text=»CRN140 EQU *«, t00=0x0024, t01=0x016c}
0x39ae…39d2 Head {h00=0x0020, h01=0x0050, text=» SUK A3,2 ZEROE WORDS 2 - N «, t00=0x0024, t01=0x0180}
0x39d2…39f6 Head {h00=0x0020, h01=0x0050, text=» RF(NP) CRN160 BUFFER ZEROED«, t00=0x0025, t01=0x0014}
0x39f6…3a14 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A2 BUFFER ADR «, t00=0x0025, t01=0x0038}
0x3a14…3a38 Head {h00=0x0020, h01=0x0050, text=» ADR A4,A3 OFFSET IN BUFFER «, t00=0x0025, t01=0x0056}
0x3a38…3a48 Head {h00=0x000c, h01=0x0050, text=» CMR A4 «, t00=0x0025, t01=0x007a}
0x3a48…3a66 Head {h00=0x001a, h01=0x0050, text=» RB CRN140 MORE WORDS «, t00=0x0025, t01=0x008a}
0x3a66…3a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00a8}
0x3a70…3a96 Head {h00=0x0022, h01=0x0050, text=»* CONNECT NEW BUFFER TO LINK«, t00=0x0025, t01=0x00b2}
0x3a96…3aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00d8}
0x3aa0…3ab4 Head {h00=0x0010, h01=0x0050, text=»CRN160 EQU *«, t00=0x0025, t01=0x00e2}
0x3ab4…3acc Head {h00=0x0014, h01=0x0050, text=» LC A3,FDBTNR,A1«, t00=0x0025, t01=0x00f6}
0x3acc…3aec Head {h00=0x001c, h01=0x0050, text=» SC A3,CRNTID,A2 TASK ID«, t00=0x0025, t01=0x010e}
0x3aec…3b0e Head {h00=0x001e, h01=0x0050, text=» LD A3,FDBCRL,A1 LINK ROOT«, t00=0x0025, t01=0x012e}
0x3b0e…3b28 Head {h00=0x0016, h01=0x0050, text=» STR A3,A2 THREAD «, t00=0x0025, t01=0x0150}
0x3b28…3b4a Head {h00=0x001e, h01=0x0050, text=» ST A2,FDBCRL,A1 NEW ROOT «, t00=0x0025, t01=0x016a}
0x3b4a…3b5e Head {h00=0x0010, h01=0x0050, text=»CRN200 EQU *«, t00=0x0025, t01=0x018c}
0x3b5e…3b6a Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0026, t01=0x0010}
0x3b6a…3b7a Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0026, t01=0x001c}
0x3b7a…3b92 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0026, t01=0x002c}
0x3b92…3bce Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x0026, t01=0x0044}
0x3bce…3bd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0080}
0x3bd8…3c0e Head {h00=0x0032, h01=0x0050, text=»* CALSNO WILL CONVERT A LOGICAL RECORD NO TO«, t00=0x0026, t01=0x008a}
0x3c0e…3c22 Head {h00=0x0010, h01=0x0050, text=»* RELATIVE«, t00=0x0026, t01=0x00c0}
0x3c22…3c40 Head {h00=0x001a, h01=0x0050, text=»* SECTOR AND OFFSET «, t00=0x0026, t01=0x00d4}
0x3c40…3c4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00f2}
0x3c4a…3c86 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x0026, t01=0x00fc}
0x3c86…3c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0138}
0x3c90…3cb6 Head {h00=0x0022, h01=0x0050, text=»* A1,A2 = LOGICAL RECORD NO «, t00=0x0026, t01=0x0142}
0x3cb6…3cd0 Head {h00=0x0016, h01=0x0050, text=»* A6 = FDB ADDR «, t00=0x0026, t01=0x0168}
0x3cd0…3cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0182}
0x3cda…3cf6 Head {h00=0x0018, h01=0x0050, text=»* CF A14,CALSNO «, t00=0x0026, t01=0x018c}
0x3cf6…3d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0018}
0x3d00…3d3c Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0027, t01=0x0022}
0x3d3c…3d46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x005e}
0x3d46…3d5c Head {h00=0x0012, h01=0x0050, text=»* A1 = 0 OK«, t00=0x0027, t01=0x0068}
0x3d5c…3d8c Head {h00=0x002c, h01=0x0050, text=»* NE 0 , ERROR =/A000=END OF MEDIUM «, t00=0x0027, t01=0x007e}
0x3d8c…3da6 Head {h00=0x0016, h01=0x0050, text=»* A6 = UNCHANGED«, t00=0x0027, t01=0x00ae}
0x3da6…3dce Head {h00=0x0024, h01=0x0050, text=»* IN FDB : FDBSNR = SECTOR NR «, t00=0x0027, t01=0x00c8}
0x3dce…3dfc Head {h00=0x002a, h01=0x0050, text=»* FDBRRO = OFFSET IN BLOCK«, t00=0x0027, t01=0x00f0}
0x3dfc…3e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x011e}
0x3e06…3e42 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0027, t01=0x0128}
0x3e42…3e4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0164}
0x3e4c…3e60 Head {h00=0x0010, h01=0x0050, text=»* A1 - A9 «, t00=0x0027, t01=0x016e}
0x3e60…3e78 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0027, t01=0x0182}
0x3e78…3e8c Head {h00=0x0010, h01=0x0050, text=»CALSNO EQU *«, t00=0x0028, t01=0x000a}
0x3e8c…3e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x001e}
0x3e96…3ebc Head {h00=0x0022, h01=0x0050, text=»* FIND BLOCK NO WITHIN FILE «, t00=0x0028, t01=0x0028}
0x3ebc…3ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x004e}
0x3ec6…3ee6 Head {h00=0x001c, h01=0x0050, text=» LDR A5,A6 SAVE FDB ADDR«, t00=0x0028, t01=0x0058}
0x3ee6…3ef8 Head {h00=0x000e, h01=0x0050, text=» LDK A6,0 «, t00=0x0028, t01=0x0078}
0x3ef8…3f20 Head {h00=0x0024, h01=0x0050, text=» LC A6,FDBBLF,A5 BLOCKING FACTOR«, t00=0x0028, t01=0x008a}
0x3f20…3f50 Head {h00=0x002c, h01=0x0050, text=» CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER«, t00=0x0028, t01=0x00b2}
0x3f50…3f6e Head {h00=0x001a, h01=0x0050, text=» RF(O) CALERR OVERFLOW«, t00=0x0028, t01=0x00e2}
0x3f6e…3f8a Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 QUOTIENT «, t00=0x0028, t01=0x0100}
0x3f8a…3fa6 Head {h00=0x0018, h01=0x0050, text=» LDR A9,A1 REMAINDER«, t00=0x0028, t01=0x011c}
0x3fa6…3fc4 Head {h00=0x001a, h01=0x0050, text=» RF(Z) TIOD30 REST = 0«, t00=0x0028, t01=0x0138}
0x3fc4…3fea Head {h00=0x0022, h01=0x0050, text=» ADK A3,1 RECORD IN NEXT BLOCK«, t00=0x0028, t01=0x0156}
0x3fea…3ffc Head {h00=0x000e, h01=0x0050, text=» RF TIOD40«, t00=0x0028, t01=0x017c}
0x3ffc…402c Head {h00=0x002c, h01=0x0050, text=»TIOD30 LC A9,FDBBLF,A5 LAST REC IN BLOCK«, t00=0x0028, t01=0x018e}
0x402c…4040 Head {h00=0x0010, h01=0x0050, text=»TIOD40 EQU *«, t00=0x0029, t01=0x002e}
0x4040…406e Head {h00=0x002a, h01=0x0050, text=»* FIND LOGICAL SECTOR NUMBER ON DISC«, t00=0x0029, t01=0x0042}
0x406e…4078 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0070}
0x4078…4094 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A3 BLOCK NR «, t00=0x0029, t01=0x007a}
0x4094…40aa Head {h00=0x0012, h01=0x0050, text=» RF(NP) CALERR«, t00=0x0029, t01=0x0096}
0x40aa…40bc Head {h00=0x000e, h01=0x0050, text=» SUK A6,1 «, t00=0x0029, t01=0x00ac}
0x40bc…40ce Head {h00=0x000e, h01=0x0050, text=» LDK A7,0 «, t00=0x0029, t01=0x00be}
0x40ce…40fa Head {h00=0x0028, h01=0x0050, text=» LC A7,FDBBLZ,A5 NR OF SECT IN BLOCK«, t00=0x0029, t01=0x00d0}
0x40fa…4110 Head {h00=0x0012, h01=0x0050, text=» CF A14,MPYMOD«, t00=0x0029, t01=0x00fc}
0x4110…4122 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0029, t01=0x0112}
0x4122…4138 Head {h00=0x0012, h01=0x0050, text=» RF(O) CAL050 «, t00=0x0029, t01=0x0124}
0x4138…414a Head {h00=0x000e, h01=0x0050, text=» RF CAL090«, t00=0x0029, t01=0x013a}
0x414a…415e Head {h00=0x0010, h01=0x0050, text=»CAL050 EQU *«, t00=0x0029, t01=0x014c}
0x415e…4174 Head {h00=0x0012, h01=0x0050, text=» ANKL A2,/7FFF«, t00=0x0029, t01=0x0160}
0x4174…418c Head {h00=0x0014, h01=0x0050, text=» ADK A1,1 CARRY «, t00=0x0029, t01=0x0176}
0x418c…41a0 Head {h00=0x0010, h01=0x0050, text=»CAL090 EQU *«, t00=0x0029, t01=0x018e}
0x41a0…41b8 Head {h00=0x0014, h01=0x0050, text=» ST A1,FDBSNR,A5«, t00=0x002a, t01=0x0012}
0x41b8…41da Head {h00=0x001e, h01=0x0050, text=» ST A2,FDBSNR+2,A5 SECT NR«, t00=0x002a, t01=0x002a}
0x41da…420e Head {h00=0x0030, h01=0x0050, text=»* FIND RELATIVE RECORD OFFSET WITHIN BLOCK«, t00=0x002a, t01=0x004c}
0x420e…4218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0080}
0x4218…422a Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x002a, t01=0x008a}
0x422a…4250 Head {h00=0x0022, h01=0x0050, text=» LDR A2,A9 REL REC NR IN BLOCK«, t00=0x002a, t01=0x009c}
0x4250…4264 Head {h00=0x0010, h01=0x0050, text=»TIOD60 EQU *«, t00=0x002a, t01=0x00c2}
0x4264…4284 Head {h00=0x001c, h01=0x0050, text=» SUK A2,1 A2=REL REC NR «, t00=0x002a, t01=0x00d6}
0x4284…42b0 Head {h00=0x0028, h01=0x0050, text=» RF(Z) TIOD65 REL REC OFFS IN A3 NOW«, t00=0x002a, t01=0x00f6}
0x42b0…42de Head {h00=0x002a, h01=0x0050, text=» AD A3,FDBRLE,A5 NO ADD RECORD LENGTH«, t00=0x002a, t01=0x0122}
0x42de…4300 Head {h00=0x001e, h01=0x0050, text=» ADK A3,1 SKIP STATUS BYTE«, t00=0x002a, t01=0x0150}
0x4300…4312 Head {h00=0x000e, h01=0x0050, text=» RB TIOD60«, t00=0x002a, t01=0x0172}
0x4312…433e Head {h00=0x0028, h01=0x0050, text=»CALERR LDKL A1,EOMERR OUT OF MEDIUM «, t00=0x002a, t01=0x0184}
0x433e…4350 Head {h00=0x000e, h01=0x0050, text=» RF TIODMF«, t00=0x002b, t01=0x0020}
0x4350…435a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0032}
0x435a…438a Head {h00=0x002c, h01=0x0050, text=»* STORE RELATIVE REC OFFSET IN FBDRRO «, t00=0x002b, t01=0x003c}
0x438a…4394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x006c}
0x4394…43a8 Head {h00=0x0010, h01=0x0050, text=»TIOD65 EQU *«, t00=0x002b, t01=0x0076}
0x43a8…43bc Head {h00=0x0010, h01=0x0050, text=» LDK A1,0 OK«, t00=0x002b, t01=0x008a}
0x43bc…43d4 Head {h00=0x0014, h01=0x0050, text=» ST A3,FDBRRO,A5«, t00=0x002b, t01=0x009e}
0x43d4…43e8 Head {h00=0x0010, h01=0x0050, text=»TIODMF EQU *«, t00=0x002b, t01=0x00b6}
0x43e8…4404 Head {h00=0x0018, h01=0x0050, text=» LDR A6,A5 FDB ADDR «, t00=0x002b, t01=0x00ca}
0x4404…4414 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x002b, t01=0x00e6}
0x4414…442c Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x002b, t01=0x00f6}
0x442c…4436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x010e}
0x4436…444c Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x002b, t01=0x0118}
0x444c…445e Head {h00=0x000e, h01=0x0050, text=»* DMTIOT«, t00=0x002b, t01=0x012e}
0x445e…4474 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x002b, t01=0x0140}
0x4474…447e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0156}
0x447e…44c0 Head {h00=0x003e, h01=0x0050, text=»* ENTRY DMTIOT CHECK RETURN CODES FROM PHYS DISC I/O«, t00=0x002b, t01=0x0160}
0x44c0…44ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0012}
0x44ca…44ee Head {h00=0x0020, h01=0x0050, text=»* INPUT A1 = FDB ADDRESS«, t00=0x002c, t01=0x001c}
0x44ee…44f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0040}
0x44f8…451c Head {h00=0x0020, h01=0x0050, text=»* OUTPUT A6 = FDB ADDRESS«, t00=0x002c, t01=0x004a}
0x451c…453e Head {h00=0x001e, h01=0x0050, text=»* A1 = 0 WHEN OK«, t00=0x002c, t01=0x006e}
0x453e…4566 Head {h00=0x0024, h01=0x0050, text=»* = ERROR CODE ELSE«, t00=0x002c, t01=0x0090}
0x4566…458e Head {h00=0x0024, h01=0x0050, text=»* A9 = DM ECB ADDRESS «, t00=0x002c, t01=0x00b8}
0x458e…45bc Head {h00=0x002a, h01=0x0050, text=»* A8 = PHYS I/O ECB ADDRESS «, t00=0x002c, t01=0x00e0}
0x45bc…45e4 Head {h00=0x0024, h01=0x0050, text=»* A2 WILL BE DESTROYED«, t00=0x002c, t01=0x010e}
0x45e4…45ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0136}
0x45ee…461a Head {h00=0x0028, h01=0x0050, text=»* USED REGISTERS : A1,A2,A6,A8,A9 «, t00=0x002c, t01=0x0140}
0x461a…4624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x016c}
0x4624…462e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0176}
0x462e…4642 Head {h00=0x0010, h01=0x0050, text=»DMTIOT EQU *«, t00=0x002c, t01=0x0180}
0x4642…465a (45, 0, 398) Head {h00=0x0014, h01=0x0050, text=» LDKL A8,FDBECB «, t00=0x002d, t01=0x0004}
0x465a…466c Head {h00=0x000e, h01=0x0050, text=» ADR A8,A1«, t00=0x002d, t01=0x001c}
0x466c…4676 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002e}
0x4676…46ca Head {h00=0x0050, h01=0x0050, text=»* DMTIOZ IS THE SAME AS DMTIOT WITH DIFFERENCE THAT ECB ADDR IS INPUT PAR «, t00=0x002d, t01=0x0038}
0x46ca…46d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x008c}
0x46d4…46e8 Head {h00=0x0010, h01=0x0050, text=»DMTIOZ EQU *«, t00=0x002d, t01=0x0096}
0x46e8…46f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00aa}
0x46f2…4714 Head {h00=0x001e, h01=0x0050, text=»* RESTORE SECTOR NUMBER «, t00=0x002d, t01=0x00b4}
0x4714…471e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d6}
0x471e…4736 Head {h00=0x0014, h01=0x0050, text=» LD A6,FDBSNR,A1«, t00=0x002d, t01=0x00e0}
0x4736…474e Head {h00=0x0014, h01=0x0050, text=» ST A6,ECBCW,A8 «, t00=0x002d, t01=0x00f8}
0x474e…4768 Head {h00=0x0016, h01=0x0050, text=» LD A6,FDBSNR+2,A1«, t00=0x002d, t01=0x0110}
0x4768…4782 Head {h00=0x0016, h01=0x0050, text=» ST A6,ECBCW+2,A8 «, t00=0x002d, t01=0x012a}
0x4782…4794 Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x002d, t01=0x0144}
0x4794…47bc Head {h00=0x0024, h01=0x0050, text=» LD A9,DWTECB,A6 DM ECB ADDRESS «, t00=0x002d, t01=0x0156}
0x47bc…47d4 Head {h00=0x0014, h01=0x0050, text=» LD A1,ECBRC,A8 «, t00=0x002d, t01=0x017e}
0x47d4…47f6 Head {h00=0x001e, h01=0x0050, text=» RF(Z) DMTIOX DISC I/O OK «, t00=0x002e, t01=0x0008}
0x47f6…480c Head {h00=0x0012, h01=0x0050, text=» ANKL A1,/FEFF«, t00=0x002e, t01=0x002a}
0x480c…4834 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) DMTIT1 NOT ONLY RETRIES «, t00=0x002e, t01=0x0040}
0x4834…484c Head {h00=0x0014, h01=0x0050, text=» LDKL A2,RETRIE «, t00=0x002e, t01=0x0068}
0x484c…4860 Head {h00=0x0010, h01=0x0050, text=»DMTIOC EQU *«, t00=0x002e, t01=0x0080}
0x4860…4880 Head {h00=0x001c, h01=0x0050, text=» ORS A2,ECBRC,A9 USER RC«, t00=0x002e, t01=0x0094}
0x4880…4892 Head {h00=0x000e, h01=0x0050, text=» RF DMTIOX«, t00=0x002e, t01=0x00b4}
0x4892…48a6 Head {h00=0x0010, h01=0x0050, text=»DMTIT1 EQU *«, t00=0x002e, t01=0x00c6}
0x48a6…48be Head {h00=0x0014, h01=0x0050, text=» LD A2,ECBBA,A8 «, t00=0x002e, t01=0x00da}
0x48be…48e2 Head {h00=0x0020, h01=0x0050, text=»* GET BUFFER ADDR«, t00=0x002e, t01=0x00f2}
0x48e2…4900 Head {h00=0x001a, h01=0x0050, text=» SUKL A2,BUFSTA BUFSTA«, t00=0x002e, t01=0x0116}
0x4900…492e Head {h00=0x002a, h01=0x0050, text=» CM BUFDMI,A2 CLEAR FILE NR IN BUFFER «, t00=0x002e, t01=0x0134}
0x492e…4946 Head {h00=0x0014, h01=0x0050, text=» LD A2,DWTOR,A6 «, t00=0x002e, t01=0x0162}
0x4946…4960 Head {h00=0x0016, h01=0x0050, text=» ANK A2,/3F ORDER «, t00=0x002e, t01=0x017a}
0x4960…4974 (47, 0, 400) Head {h00=0x0010, h01=0x0050, text=» SUKL A2,QCL«, t00=0x002f, t01=0x0004}
0x4974…4994 Head {h00=0x001c, h01=0x0050, text=» RF(NZ) DMTIOX NOT CLOSE«, t00=0x002f, t01=0x0018}
0x4994…49a6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x002f, t01=0x0038}
0x49a6…49b8 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x002f, t01=0x004a}
0x49b8…49ca Head {h00=0x000e, h01=0x0050, text=» RB DMTIOC«, t00=0x002f, t01=0x005c}
0x49ca…49e0 Head {h00=0x0012, h01=0x0050, text=»DMTIOX RTN A14«, t00=0x002f, t01=0x006e}
0x49e0…49f8 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x002f, t01=0x0084}
0x49f8…4a34 Head {h00=0x0038, h01=0x0050, text=»****DESCRIPTION*************************************«, t00=0x002f, t01=0x009c}
0x4a34…4a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00d8}
0x4a3e…4a7a Head {h00=0x0038, h01=0x0050, text=»* GTBKBU WILL GET A BLOCK BUFFER FOR DISC I/O AND «, t00=0x002f, t01=0x00e2}
0x4a7a…4ab0 Head {h00=0x0032, h01=0x0050, text=»* PREPARE IT. ECB IS PREPARED FOR PHYS I/O. «, t00=0x002f, t01=0x011e}
0x4ab0…4aba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0154}
0x4aba…4af6 Head {h00=0x0038, h01=0x0050, text=»****ENTRY PARAMETERS********************************«, t00=0x002f, t01=0x015e}
0x4af6…4b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x000a}
0x4b00…4b1c Head {h00=0x0018, h01=0x0050, text=»* A1 = FDB ADDRESS«, t00=0x0030, t01=0x0014}
0x4b1c…4b36 Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDR «, t00=0x0030, t01=0x0030}
0x4b36…4b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x004a}
0x4b40…4b7c Head {h00=0x0038, h01=0x0050, text=»****EXIT PARAMETERS*********************************«, t00=0x0030, t01=0x0054}
0x4b7c…4b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0090}
0x4b86…4ba4 Head {h00=0x001a, h01=0x0050, text=»* A1 = A6 = FDB ADDR«, t00=0x0030, t01=0x009a}
0x4ba4…4bd8 Head {h00=0x0030, h01=0x0050, text=»* A2 = FDBRRO WHEN SECTOR IS FOUND IN CORE«, t00=0x0030, t01=0x00b8}
0x4bd8…4c1e Head {h00=0x0042, h01=0x0050, text=»* = -1 WHEN NO DATA IS FOUND IN «, t00=0x0030, t01=0x00ec}
0x4c1e…4c5e Head {h00=0x003c, h01=0x0050, text=»* THE FOUND CORE BUFFER «, t00=0x0030, t01=0x0132}
0x4c5e…4c7e Head {h00=0x001c, h01=0x0050, text=»* A3 = BUFFER ADDRESS «, t00=0x0030, t01=0x0172}
0x4c7e…4c9a (49, 0, 400) Head {h00=0x0018, h01=0x0050, text=»* A5 = ORDE R CODE«, t00=0x0031, t01=0x0004}
0x4c9a…4cb4 Head {h00=0x0016, h01=0x0050, text=»* A8 = ECB ADDR «, t00=0x0031, t01=0x0020}
0x4cb4…4cd0 Head {h00=0x0018, h01=0x0050, text=»* A9 = DM ECB ADDR«, t00=0x0031, t01=0x003a}
0x4cd0…4cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0056}
0x4cda…4d16 Head {h00=0x0038, h01=0x0050, text=»****USED REGISTERS**********************************«, t00=0x0031, t01=0x0060}
0x4d16…4d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x009c}
0x4d20…4d34 Head {h00=0x0010, h01=0x0050, text=»* A1 - A9 «, t00=0x0031, t01=0x00a6}
0x4d34…4d3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ba}
0x4d3e…4d7c Head {h00=0x003a, h01=0x0050, text=»******************************************************«, t00=0x0031, t01=0x00c4}
0x4d7c…4d90 Head {h00=0x0010, h01=0x0050, text=»GTBKBU EQU *«, t00=0x0031, t01=0x0102}
0x4d90…4db4 Head {h00=0x0020, h01=0x0050, text=» LDR A6,A1 A6 = FDB ADDRESS «, t00=0x0031, t01=0x0116}
0x4db4…4dd4 Head {h00=0x001c, h01=0x0050, text=» LC A1,FWTFNR,A6 FILE NR«, t00=0x0031, t01=0x013a}
0x4dd4…4dfa Head {h00=0x0022, h01=0x0050, text=» LD A2,FDBSNR,A6 SECTOR NUMBER«, t00=0x0031, t01=0x015a}
0x4dfa…4e14 Head {h00=0x0016, h01=0x0050, text=» LD A4,FDBSNR+2,A6«, t00=0x0031, t01=0x0180}
0x4e14…4e34 Head {h00=0x001c, h01=0x0050, text=» LD A9,DWTECB,A6 DM ECB «, t00=0x0032, t01=0x000a}
0x4e34…4e48 Head {h00=0x0010, h01=0x0050, text=» ANK A1,/FF «, t00=0x0032, t01=0x002a}
0x4e48…4e62 Head {h00=0x0016, h01=0x0050, text=» STR A1,A8 FILE NR«, t00=0x0032, t01=0x003e}
0x4e62…4e7a Head {h00=0x0014, h01=0x0050, text=» LC A5,FDBBLZ,A6«, t00=0x0032, t01=0x0058}
0x4e7a…4ea0 Head {h00=0x0022, h01=0x0050, text=» SLL A5,8 BLOCK SIZE IN BYTYE «, t00=0x0032, t01=0x0070}
0x4ea0…4ec4 Head {h00=0x0020, h01=0x0050, text=» ST A5,ECBRL,A8 BLOCK LENGTH«, t00=0x0032, t01=0x0096}
0x4ec4…4ef0 Head {h00=0x0028, h01=0x0050, text=» CF A14,DMTGBU A3 := BUFFER ADDRESS «, t00=0x0032, t01=0x00ba}
0x4ef0…4f24 Head {h00=0x0030, h01=0x0050, text=» RF GTB100 RETURN IF SECTOR FOUND IN BUFFER «, t00=0x0032, t01=0x00e6}
0x4f24…4f58 Head {h00=0x0030, h01=0x0050, text=»* RETURN IF SECTOR MUST BE READ FROM DISC «, t00=0x0032, t01=0x011a}
0x4f58…4f78 Head {h00=0x001c, h01=0x0050, text=» ST A2,ECBCW,A8 SECT NR «, t00=0x0032, t01=0x014e}
0x4f78…4f94 Head {h00=0x0018, h01=0x0050, text=» LDKL A2,-1 RET CODE«, t00=0x0032, t01=0x016e}
0x4f94…4fa8 Head {h00=0x0010, h01=0x0050, text=»GTB040 EQU *«, t00=0x0032, t01=0x018a}
0x4fa8…4fca Head {h00=0x001e, h01=0x0050, text=» ST A4,ECBCW+2,A8 SECT NR «, t00=0x0033, t01=0x000e}
0x4fca…4fdc Head {h00=0x000e, h01=0x0050, text=» LDR A5,A3«, t00=0x0033, t01=0x0030}
0x4fdc…5012 Head {h00=0x0032, h01=0x0050, text=» ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS«, t00=0x0033, t01=0x0042}
0x5012…502a Head {h00=0x0014, h01=0x0050, text=» ST A5,ECBBA,A8 «, t00=0x0033, t01=0x0078}
0x502a…5042 Head {h00=0x0014, h01=0x0050, text=» LD A5,DWTOR,A6 «, t00=0x0033, t01=0x0090}
0x5042…5056 Head {h00=0x0010, h01=0x0050, text=» ANK A5,/3F «, t00=0x0033, t01=0x00a8}
0x5056…5082 Head {h00=0x0028, h01=0x0050, text=» LDR A1,A6 FDB ADDRESS AS PARAMETER «, t00=0x0033, t01=0x00bc}
0x5082…5092 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0033, t01=0x00e8}
0x5092…50a6 Head {h00=0x0010, h01=0x0050, text=»GTB100 EQU *«, t00=0x0033, t01=0x00f8}
0x50a6…50c6 Head {h00=0x001c, h01=0x0050, text=» ST A2,ECBCW,A8 SECT NR «, t00=0x0033, t01=0x010c}
0x50c6…50f2 Head {h00=0x0028, h01=0x0050, text=» LD A2,FDBRRO,A6 REC OFFS IN BUFFER «, t00=0x0033, t01=0x012c}
0x50f2…5116 Head {h00=0x0020, h01=0x0050, text=» RB GTB040 STORE ORDER CODE «, t00=0x0033, t01=0x0158}
0x5116…512e Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0033, t01=0x017c}
0x512e…5138 (52, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0004}
0x5138…5142 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x000e}
0x5142…5158 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0034, t01=0x0018}
0x5158…5162 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x002e}
0x5162…5178 Head {h00=0x0012, h01=0x0050, text=»* M O V : U S «, t00=0x0034, t01=0x0038}
0x5178…5182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x004e}
0x5182…51ca Head {h00=0x0044, h01=0x0050, text=»* THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO«, t00=0x0034, t01=0x0058}
0x51ca…521a Head {h00=0x004c, h01=0x0050, text=»* THE SYSTEM AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA «, t00=0x0034, t01=0x00a0}
0x521a…5268 Head {h00=0x004a, h01=0x0050, text=»* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT.«, t00=0x0034, t01=0x00f0}
0x5268…5272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x013e}
0x5272…52ae Head {h00=0x0038, h01=0x0050, text=»* INPUT: A1 = ADDRESS OF SENDING BUFFER (USER AREA)«, t00=0x0034, t01=0x0148}
0x52ae…52ee Head {h00=0x003c, h01=0x0050, text=»* A2 = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA)«, t00=0x0034, t01=0x0184}
0x52ee…5320 Head {h00=0x002e, h01=0x0050, text=»* A3 = NUMBER OF BYTES TO BE MOVED«, t00=0x0035, t01=0x0034}
0x5320…5348 Head {h00=0x0024, h01=0x0050, text=»* A4 = USER TTAB ADDRESS«, t00=0x0035, t01=0x0066}
0x5348…5352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x008e}
0x5352…5378 Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A1-A4 ARE DESTROYED «, t00=0x0035, t01=0x0098}
0x5378…5382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00be}
0x5382…5396 Head {h00=0x0010, h01=0x0050, text=»MOV:US EQU *«, t00=0x0035, t01=0x00c8}
0x5396…53a2 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0035, t01=0x00dc}
0x53a2…53c4 Head {h00=0x001e, h01=0x0050, text=» TL TTB:MT,A4 SET USER MMU«, t00=0x0035, t01=0x00e8}
0x53c4…53d8 Head {h00=0x0010, h01=0x0050, text=» LD A4,PRUN «, t00=0x0035, t01=0x010a}
0x53d8…53ee Head {h00=0x0012, h01=0x0050, text=» TS TTB:MT,A4 «, t00=0x0035, t01=0x011e}
0x53ee…53fa Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0035, t01=0x0134}
0x53fa…5410 Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVZUS«, t00=0x0035, t01=0x0140}
0x5410…541c Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0035, t01=0x0156}
0x541c…543e Head {h00=0x001e, h01=0x0050, text=» TL MONMMU SET SYSTEM MMU «, t00=0x0035, t01=0x0162}
0x543e…5452 Head {h00=0x0010, h01=0x0050, text=» LD A4,PRUN «, t00=0x0035, t01=0x0184}
0x5452…5468 Head {h00=0x0012, h01=0x0050, text=» TS TTB:MT,A4 «, t00=0x0036, t01=0x0008}
0x5468…5474 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0036, t01=0x001e}
0x5474…5484 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0036, t01=0x002a}
0x5484…5498 Head {h00=0x0010, h01=0x0050, text=»MOVZUS EQU *«, t00=0x0036, t01=0x003a}
0x5498…54c2 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A3 CHECK REQUESTED LENGTH «, t00=0x0036, t01=0x004e}
0x54c2…54fa Head {h00=0x0034, h01=0x0050, text=» RF(NP) MVUS35 NO MOVE IF REQUESTED LENGTH <= 0 «, t00=0x0036, t01=0x0078}
0x54fa…5516 Head {h00=0x0018, h01=0x0050, text=» STR A5,A14 SAVE A5 «, t00=0x0036, t01=0x00b0}
0x5516…5542 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A1 CHECK USER BUFFER ADDRESS«, t00=0x0036, t01=0x00cc}
0x5542…5554 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0036, t01=0x00f8}
0x5554…5586 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) MVUS40 USER BUFFER ADDRESS UNEVEN?«, t00=0x0036, t01=0x010a}
0x5586…55b8 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 NO, CHECK SYSTEM BUFFER ADDRESS«, t00=0x0036, t01=0x013c}
0x55b8…55ca Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0036, t01=0x016e}
0x55ca…55fe Head {h00=0x0030, h01=0x0050, text=» RF(NZ) MVUS55 SYSTEM BUFFER ADDRESS UNEVEN?«, t00=0x0036, t01=0x0180}
0x55fe…5608 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0024}
0x5608…5638 Head {h00=0x002c, h01=0x0050, text=»MVUS10 LDR A4,A3 CHECK REQUESTED LENGTH «, t00=0x0037, t01=0x002e}
0x5638…564a Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0037, t01=0x005e}
0x564a…567a Head {h00=0x002c, h01=0x0050, text=» RF(NZ) MVUS60 REQUESTED LENGTH UNEVEN? «, t00=0x0037, t01=0x0070}
0x567a…5684 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00a0}
0x5684…569a Head {h00=0x0012, h01=0x0050, text=»MVUS20 MVUS A3«, t00=0x0037, t01=0x00aa}
0x569a…56a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00c0}
0x56a4…56ca Head {h00=0x0022, h01=0x0050, text=»MVUS30 LDR* A5,A14 RESTORE A5 «, t00=0x0037, t01=0x00ca}
0x56ca…56d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00f0}
0x56d4…56e8 Head {h00=0x0010, h01=0x0050, text=»MVUS35 EQU *«, t00=0x0037, t01=0x00fa}
0x56e8…56f8 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x0037, t01=0x010e}
0x56f8…5702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x011e}
0x5702…571a Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0037, t01=0x0128}
0x571a…5724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0140}
0x5724…572e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x014a}
0x572e…5762 Head {h00=0x0030, h01=0x0050, text=»MVUS40 EQU * USER BUFFER ADDRESS WAS UNEVEN «, t00=0x0037, t01=0x0154}
0x5762…5790 Head {h00=0x002a, h01=0x0050, text=» LDR A4,A2 CHECK SYSTEM BUFFER ADDRESS«, t00=0x0037, t01=0x0188}
0x5790…57a2 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0038, t01=0x0026}
0x57a2…57d6 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) MVUS80 SYSTEM BUFFER ADDRESS UNEVEN?«, t00=0x0038, t01=0x0038}
0x57d6…580e Head {h00=0x0034, h01=0x0050, text=» ELR A4,A1 NO, GET FIRST CHAR. FROM USER BUFFER «, t00=0x0038, t01=0x006c}
0x580e…5818 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00a4}
0x5818…584e Head {h00=0x0032, h01=0x0050, text=»MVUS50 SCR A4,A2 STORE CHAR. IN SYSTEM BUFFER «, t00=0x0038, t01=0x00ae}
0x584e…587c Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS«, t00=0x0038, t01=0x00e4}
0x587c…58a8 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT REQUESTED LENGTH«, t00=0x0038, t01=0x0112}
0x58a8…58d0 Head {h00=0x0024, h01=0x0050, text=» RB(NP) MVUS30 LAST CHAR. MOVED?«, t00=0x0038, t01=0x013e}
0x58d0…5900 Head {h00=0x002c, h01=0x0050, text=» ADK A1,2 NO, UPDATE USER BUFFER ADDRESS«, t00=0x0038, t01=0x0166}
0x5900…590a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0008}
0x590a…5946 Head {h00=0x0038, h01=0x0050, text=»MVUS55 ELR A4,A1 GET NEXT TWO CHAR. FROM USER BUFFER«, t00=0x0039, t01=0x0012}
0x5946…5958 Head {h00=0x000e, h01=0x0050, text=» ECR A5,A4«, t00=0x0039, t01=0x004e}
0x5958…598c Head {h00=0x0030, h01=0x0050, text=» SCR A5,A2 STORE ONE CHAR. IN SYSTEM BUFFER «, t00=0x0039, t01=0x0060}
0x598c…59ba Head {h00=0x002a, h01=0x0050, text=» ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS«, t00=0x0039, t01=0x0094}
0x59ba…59e6 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT REQUESTED LENGTH«, t00=0x0039, t01=0x00c2}
0x59e6…5a10 Head {h00=0x0026, h01=0x0050, text=» RB(P) MVUS50 MORE CHAR. TO MOVE? «, t00=0x0039, t01=0x00ee}
0x5a10…5a2e Head {h00=0x001a, h01=0x0050, text=» RB MVUS30 NO, RETURN «, t00=0x0039, t01=0x0118}
0x5a2e…5a38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0136}
0x5a38…5a50 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0039, t01=0x0140}
0x5a50…5a5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0158}
0x5a5a…5a64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0162}
0x5a64…5a94 Head {h00=0x002c, h01=0x0050, text=»MVUS60 EQU * REQUESTED LENGTH WAS UNEVEN«, t00=0x0039, t01=0x016c}
0x5a94…5ac0 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 MAKE REQUESTED LENGTH EVEN«, t00=0x003a, t01=0x000c}
0x5ac0…5aee Head {h00=0x002a, h01=0x0050, text=» RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE?«, t00=0x003a, t01=0x0038}
0x5aee…5b0c Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 NO, SAVE A1«, t00=0x003a, t01=0x0066}
0x5b0c…5b26 Head {h00=0x0016, h01=0x0050, text=» LDR A5,A3 SAVE A3«, t00=0x003a, t01=0x0084}
0x5b26…5b36 Head {h00=0x000c, h01=0x0050, text=» MVUS A3«, t00=0x003a, t01=0x009e}
0x5b36…5b64 Head {h00=0x002a, h01=0x0050, text=» ADR A4,A5 UPDATE USER BUFFER ADDRESS «, t00=0x003a, t01=0x00ae}
0x5b64…5b96 Head {h00=0x002e, h01=0x0050, text=» ELR A5,A4 GET LAST CHAR. FROM USER BUFFER«, t00=0x003a, t01=0x00dc}
0x5b96…5ba0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x010e}
0x5ba0…5bb8 Head {h00=0x0014, h01=0x0050, text=»MVUS65 ECR A5,A5«, t00=0x003a, t01=0x0118}
0x5bb8…5bec Head {h00=0x0030, h01=0x0050, text=» SCR A5,A2 STORE LAST CHAR. IN SYSTEM BUFFER«, t00=0x003a, t01=0x0130}
0x5bec…5c06 Head {h00=0x0016, h01=0x0050, text=» RB MVUS30 RETURN «, t00=0x003a, t01=0x0164}
0x5c06…5c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x017e}
0x5c10…5c48 Head {h00=0x0034, h01=0x0050, text=»MVUS70 ELR A5,A1 GET LAST CHAR. FROM USER BUFFER«, t00=0x003a, t01=0x0188}
0x5c48…5c5a Head {h00=0x000e, h01=0x0050, text=» RB MVUS65«, t00=0x003b, t01=0x0030}
0x5c5a…5c64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0042}
0x5c64…5c9a Head {h00=0x0032, h01=0x0050, text=»MVUS80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN«, t00=0x003b, t01=0x004c}
0x5c9a…5cce Head {h00=0x0030, h01=0x0050, text=» ELR A4,A1 GET FIRST CHAR. FROM USER BUFFER «, t00=0x003b, t01=0x0082}
0x5cce…5d04 Head {h00=0x0032, h01=0x0050, text=» SCR A4,A2 STORE FIRST CHAR. IN SYSTEM BUFFER «, t00=0x003b, t01=0x00b6}
0x5d04…5d2e Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 UPDATE BUFFER ADDRESSES «, t00=0x003b, t01=0x00ec}
0x5d2e…5d40 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x003b, t01=0x0116}
0x5d40…5d6c Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT REQUESTED LENGTH«, t00=0x003b, t01=0x0128}
0x5d6c…5d96 Head {h00=0x0026, h01=0x0050, text=» RB(P) MVUS10 MORE CHAR. TO MOVE? «, t00=0x003b, t01=0x0154}
0x5d96…5db4 Head {h00=0x001a, h01=0x0050, text=» RB MVUS30 NO, RETURN «, t00=0x003b, t01=0x017e}
0x5db4…5dbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x000c}
0x5dbe…5dd6 Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x003c, t01=0x0016}
0x5dd6…5de0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x002e}
0x5de0…5df6 Head {h00=0x0012, h01=0x0050, text=»* M O V : S U «, t00=0x003c, t01=0x0038}
0x5df6…5e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x004e}
0x5e00…5e4a Head {h00=0x0046, h01=0x0050, text=»* THIS ROUTINE MOVES DATA FROM THE SYSTEM AREA (SENDING BUFFER) TO«, t00=0x003c, t01=0x0058}
0x5e4a…5e98 Head {h00=0x004a, h01=0x0050, text=»* THE USER AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA «, t00=0x003c, t01=0x00a2}
0x5e98…5ee6 Head {h00=0x004a, h01=0x0050, text=»* ARE USED, DEPENDING ON WHETHER THE BUFFER ADDRESSES ARE EVEN OR NOT.«, t00=0x003c, t01=0x00f0}
0x5ee6…5ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x013e}
0x5ef0…5f2e Head {h00=0x003a, h01=0x0050, text=»* INPUT: A1 = ADDRESS OF SENDING BUFFER (SYSTEM AREA)«, t00=0x003c, t01=0x0148}
0x5f2e…5f6c Head {h00=0x003a, h01=0x0050, text=»* A2 = ADDRESS OF RECEIVING BUFFER (USER AREA)«, t00=0x003c, t01=0x0186}
0x5f6c…5f9e Head {h00=0x002e, h01=0x0050, text=»* A3 = NUMBER OF BYTES TO BE MOVED«, t00=0x003d, t01=0x0034}
0x5f9e…5fc6 Head {h00=0x0024, h01=0x0050, text=»* A4 = USER TTAB ADDRESS«, t00=0x003d, t01=0x0066}
0x5fc6…5fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x008e}
0x5fd0…5ff6 Head {h00=0x0022, h01=0x0050, text=»* OUTPUT: A1-A4 ARE DESTROYED «, t00=0x003d, t01=0x0098}
0x5ff6…6000 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00be}
0x6000…6014 Head {h00=0x0010, h01=0x0050, text=»MOV:SU EQU *«, t00=0x003d, t01=0x00c8}
0x6014…6020 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x003d, t01=0x00dc}
0x6020…6042 Head {h00=0x001e, h01=0x0050, text=» TL TTB:MT,A4 SET USER MMU«, t00=0x003d, t01=0x00e8}
0x6042…6056 Head {h00=0x0010, h01=0x0050, text=» LD A4,PRUN «, t00=0x003d, t01=0x010a}
0x6056…606c Head {h00=0x0012, h01=0x0050, text=» TS TTB:MT,A4 «, t00=0x003d, t01=0x011e}
0x606c…6078 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x003d, t01=0x0134}
0x6078…608e Head {h00=0x0012, h01=0x0050, text=» CF A14,MOVZSU«, t00=0x003d, t01=0x0140}
0x608e…609a Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x003d, t01=0x0156}
0x609a…60bc Head {h00=0x001e, h01=0x0050, text=» TL MONMMU SET SYSTEM MMU «, t00=0x003d, t01=0x0162}
0x60bc…60d0 Head {h00=0x0010, h01=0x0050, text=» LD A4,PRUN «, t00=0x003d, t01=0x0184}
0x60d0…60e6 Head {h00=0x0012, h01=0x0050, text=» TS TTB:MT,A4 «, t00=0x003e, t01=0x0008}
0x60e6…60f2 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x003e, t01=0x001e}
0x60f2…6102 Head {h00=0x000c, h01=0x0050, text=» RTN A14«, t00=0x003e, t01=0x002a}
0x6102…6116 Head {h00=0x0010, h01=0x0050, text=»MOVZSU EQU *«, t00=0x003e, t01=0x003a}
0x6116…6140 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A3 CHECK REQUESTED LENGTH «, t00=0x003e, t01=0x004e}
0x6140…6178 Head {h00=0x0034, h01=0x0050, text=» RF(NP) MVSU35 NO MOVE IF REQUESTED LENGTH <= 0 «, t00=0x003e, t01=0x0078}
0x6178…6194 Head {h00=0x0018, h01=0x0050, text=» STR A5,A14 SAVE A5 «, t00=0x003e, t01=0x00b0}
0x6194…61c0 Head {h00=0x0028, h01=0x0050, text=» LDR A4,A2 CHECK USER BUFFER ADDRESS«, t00=0x003e, t01=0x00cc}
0x61c0…61d2 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x003e, t01=0x00f8}
0x61d2…6204 Head {h00=0x002e, h01=0x0050, text=» RF(NZ) MVSU40 USER BUFFER ADDRESS UNEVEN?«, t00=0x003e, t01=0x010a}
0x6204…6236 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A1 NO, CHECK SYSTEM BUFFER ADDRESS«, t00=0x003e, t01=0x013c}
0x6236…6248 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x003e, t01=0x016e}
0x6248…627c Head {h00=0x0030, h01=0x0050, text=» RF(NZ) MVSU60 SYSTEM BUFFER ADDRESS UNEVEN?«, t00=0x003e, t01=0x0180}
0x627c…6286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0024}
0x6286…62b6 Head {h00=0x002c, h01=0x0050, text=»MVSU10 LDR A4,A3 CHECK REQUESTED LENGTH «, t00=0x003f, t01=0x002e}
0x62b6…62c8 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x003f, t01=0x005e}
0x62c8…62f8 Head {h00=0x002c, h01=0x0050, text=» RF(NZ) MVSU90 REQUESTED LENGTH UNEVEN? «, t00=0x003f, t01=0x0070}
0x62f8…6302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00a0}
0x6302…6318 Head {h00=0x0012, h01=0x0050, text=»MVSU20 MVSU A3«, t00=0x003f, t01=0x00aa}
0x6318…6322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00c0}
0x6322…6348 Head {h00=0x0022, h01=0x0050, text=»MVSU30 LDR* A5,A14 RESTORE A5 «, t00=0x003f, t01=0x00ca}
0x6348…6352 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00f0}
0x6352…6368 Head {h00=0x0012, h01=0x0050, text=»MVSU35 RTN A14«, t00=0x003f, t01=0x00fa}
0x6368…6372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0110}
0x6372…638a Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x003f, t01=0x011a}
0x638a…6394 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0132}
0x6394…639e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x013c}
0x639e…63d2 Head {h00=0x0030, h01=0x0050, text=»MVSU40 EQU * USER BUFFER ADDRESS WAS UNEVEN «, t00=0x003f, t01=0x0146}
0x63d2…6400 Head {h00=0x002a, h01=0x0050, text=» LDR A4,A1 CHECK SYSTEM BUFFER ADDRESS«, t00=0x003f, t01=0x017a}
0x6400…6412 Head {h00=0x000e, h01=0x0050, text=» ANK A4,1 «, t00=0x0040, t01=0x0018}
0x6412…6446 Head {h00=0x0030, h01=0x0050, text=» RF(NZ) MVSU80 SYSTEM BUFFER ADDRESS UNEVEN?«, t00=0x0040, t01=0x002a}
0x6446…647e Head {h00=0x0034, h01=0x0050, text=» ELR A4,A2 NO, GET FIRST CHAR. FROM USER BUFFER «, t00=0x0040, t01=0x005e}
0x647e…6490 Head {h00=0x000e, h01=0x0050, text=» RF MVSU65«, t00=0x0040, t01=0x0096}
0x6490…649a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00a8}
0x649a…64d0 Head {h00=0x0032, h01=0x0050, text=»MVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN «, t00=0x0040, t01=0x00b2}
0x64d0…6504 Head {h00=0x0030, h01=0x0050, text=» LCR A4,A1 GET ONE CHAR. FROM SYSTEM BUFFER «, t00=0x0040, t01=0x00e8}
0x6504…6516 Head {h00=0x000e, h01=0x0050, text=» ECR A4,A4«, t00=0x0040, t01=0x011c}
0x6516…6544 Head {h00=0x002a, h01=0x0050, text=» ADK A1,1 UPDATE SYSTEM BUFFER ADDRESS«, t00=0x0040, t01=0x012e}
0x6544…6570 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT REQUESTED LENGTH«, t00=0x0040, t01=0x015c}
0x6570…659e Head {h00=0x002a, h01=0x0050, text=» RF(NP) MVSU70 IS THIS LAST CHARACTER?«, t00=0x0040, t01=0x0188}
0x659e…65a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0026}
0x65a8…65e6 Head {h00=0x003a, h01=0x0050, text=»MVSU65 LCR A4,A1 NO, GET NEXT CHAR. FROM SYSTEM BUFFER«, t00=0x0041, t01=0x0030}
0x65e6…6618 Head {h00=0x002e, h01=0x0050, text=» ESR A4,A2 STORE TWO CHAR. IN USER BUFFER «, t00=0x0041, t01=0x006e}
0x6618…6642 Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 UPDATE BUFFER ADDRESSES «, t00=0x0041, t01=0x00a0}
0x6642…6654 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0041, t01=0x00ca}
0x6654…6680 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT REQUESTED LENGTH«, t00=0x0041, t01=0x00dc}
0x6680…66aa Head {h00=0x0026, h01=0x0050, text=» RB(P) MVSU60 MORE CHAR. TO MOVE? «, t00=0x0041, t01=0x0108}
0x66aa…66c8 Head {h00=0x001a, h01=0x0050, text=» RB MVSU30 NO, RETURN «, t00=0x0041, t01=0x0132}
0x66c8…66d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0150}
0x66d2…670a Head {h00=0x0034, h01=0x0050, text=»MVSU70 ELR A3,A2 GET LAST CHAR. FROM USER BUFFER«, t00=0x0041, t01=0x015a}
0x670a…6732 (66, 0, 400) Head {h00=0x0024, h01=0x0050, text=» ANK A3,/FF SKIP LEFT CHARACTER «, t00=0x0042, t01=0x0004}
0x6732…675e Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/FF00 SKIP RIGHT CHARACTER «, t00=0x0042, t01=0x002c}
0x675e…6770 Head {h00=0x000e, h01=0x0050, text=» ORR A3,A4«, t00=0x0042, t01=0x0058}
0x6770…67a2 Head {h00=0x002e, h01=0x0050, text=» ESR A3,A2 STORE LAST CHAR. IN USER BUFFER«, t00=0x0042, t01=0x006a}
0x67a2…67bc Head {h00=0x0016, h01=0x0050, text=» RB MVSU30 RETURN «, t00=0x0042, t01=0x009c}
0x67bc…67c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00b6}
0x67c6…67de Head {h00=0x0014, h01=0x0050, text=» EJECT DMSUBR «, t00=0x0042, t01=0x00c0}
0x67de…67e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00d8}
0x67e8…67f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0042, t01=0x00e2}
0x67f2…6828 Head {h00=0x0032, h01=0x0050, text=»MVSU80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN«, t00=0x0042, t01=0x00ec}
0x6828…685e Head {h00=0x0032, h01=0x0050, text=» LDR* A4,A1 GET FIRST CHAR. FROM SYSTEM BUFFER«, t00=0x0042, t01=0x0122}
0x685e…6892 Head {h00=0x0030, h01=0x0050, text=» ELR A5,A2 GET FIRST CHAR. FROM USER BUFFER «, t00=0x0042, t01=0x0158}
0x6892…68ba Head {h00=0x0024, h01=0x0050, text=» ANK A4,/FF SKIP LEFT CHARACTER «, t00=0x0042, t01=0x018c}
0x68ba…68e6 Head {h00=0x0028, h01=0x0050, text=» ANKL A5,/FF00 SKIP RIGHT CHARACTER «, t00=0x0043, t01=0x0024}
0x68e6…68f8 Head {h00=0x000e, h01=0x0050, text=» ORR A4,A5«, t00=0x0043, t01=0x0050}
0x68f8…692c Head {h00=0x0030, h01=0x0050, text=» ESR A4,A2 STORE FIRST CHAR. IN USER BUFFER «, t00=0x0043, t01=0x0062}
0x692c…6956 Head {h00=0x0026, h01=0x0050, text=» ADK A1,1 UPDATE BUFFER ADDRESSES «, t00=0x0043, t01=0x0096}
0x6956…6968 Head {h00=0x000e, h01=0x0050, text=» ADK A2,1 «, t00=0x0043, t01=0x00c0}
0x6968…6994 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 DECREMENT REQUESTED LENGTH«, t00=0x0043, t01=0x00d2}
0x6994…69c2 Head {h00=0x002a, h01=0x0050, text=» RB(P) MVSU10 MORE CHARACTERS TO MOVE?«, t00=0x0043, t01=0x00fe}
0x69c2…69e0 Head {h00=0x001a, h01=0x0050, text=» RB MVSU30 NO, RETURN «, t00=0x0043, t01=0x012c}
0x69e0…69ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x014a}
0x69ea…6a1a Head {h00=0x002c, h01=0x0050, text=»MVSU90 EQU * REQUESTED LENGTH WAS UNEVEN«, t00=0x0043, t01=0x0154}
0x6a1a…6a46 Head {h00=0x0028, h01=0x0050, text=» SUK A3,1 MAKE REQUESTED LENGTH EVEN«, t00=0x0043, t01=0x0184}
0x6a46…6a74 Head {h00=0x002a, h01=0x0050, text=» RF(NP) MVSU95 ONLY ONE CHAR. TO MOVE?«, t00=0x0044, t01=0x0020}
0x6a74…6a92 Head {h00=0x001a, h01=0x0050, text=» LDR A4,A1 NO, SAVE A1«, t00=0x0044, t01=0x004e}
0x6a92…6aac Head {h00=0x0016, h01=0x0050, text=» LDR A5,A3 SAVE A3«, t00=0x0044, t01=0x006c}
0x6aac…6abc Head {h00=0x000c, h01=0x0050, text=» MVSU A3«, t00=0x0044, t01=0x0086}
0x6abc…6ae6 Head {h00=0x0026, h01=0x0050, text=» ADR A4,A5 UPDATE BUFFER ADDRESSES«, t00=0x0044, t01=0x0096}
0x6ae6…6af8 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A5«, t00=0x0044, t01=0x00c0}
0x6af8…6b2e Head {h00=0x0032, h01=0x0050, text=» LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER «, t00=0x0044, t01=0x00d2}
0x6b2e…6b40 Head {h00=0x000e, h01=0x0050, text=» RB MVSU70«, t00=0x0044, t01=0x0108}
0x6b40…6b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x011a}
0x6b4a…6b86 Head {h00=0x0038, h01=0x0050, text=»MVSU95 LDR* A4,A1 GET LAST CHAR. FROM SYSTEM BUFFER «, t00=0x0044, t01=0x0124}
0x6b86…6b98 Head {h00=0x000e, h01=0x0050, text=» RB MVSU70«, t00=0x0044, t01=0x0160}
0x6b98…6ba4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0044, t01=0x0172}
0x6ba4…6bae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x017e}
0x6bae…6bc4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0044, t01=0x0188}
0x6bc4…6bfa Head {h00=0x0032, h01=0x0050, text=»MOV:US EQU * DUMMY LABELS FOR NON-MMU SYSTEMS «, t00=0x0045, t01=0x000e}
0x6bfa…6c0e Head {h00=0x0010, h01=0x0050, text=»MOV:SU EQU *«, t00=0x0045, t01=0x0044}
0x6c0e…6c22 Head {h00=0x0010, h01=0x0050, text=»MOVZSU EQU *«, t00=0x0045, t01=0x0058}
0x6c22…6c36 Head {h00=0x0010, h01=0x0050, text=»MOVZUS EQU *«, t00=0x0045, t01=0x006c}
0x6c36…6c6a Head {h00=0x0030, h01=0x0050, text=» ABL TASHLT HALT SYSTEM DUE TO SYSGEN ERROR «, t00=0x0045, t01=0x0080}
0x6c6a…6c76 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x00b4}
0x6c76…6c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00c0}
0x6c80…6c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00ca}
0x6c8a…6c96 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0045, t01=0x00d4}
0x6c96…6c9a Head {h00=0x4004, h01=0x0000}
0x6c9a…6c9e 00 45 00 e0 ┆ E ┆
0x6c9e…6ca6 (70, 1, 8) 20 04 00 00 00 46 00 04 ┆ F ┆
0x6ca6…6cf6 (71, 0, 400) 54 49 4f 4e 20 44 41 54 41 20 00 6e 01 72 00 04 00 50 00 6f 00 12 00 1a 00 50 5c 53 55 52 5c 41 32 2c 41 33 5c 54 4f 2d 41 44 44 52 45 53 53 20 00 6f 00 1a 00 06 00 50 2a 20 00 6f 00 38 00 24 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 46 46 46 45 ┆TION DATA n r P o P SUR A2,A3 TO-ADDRESS o P* o 8 $ P ANKL A2,/FFFE┆
0x6cf6…6d46 5c 4d 41 4b 45 20 45 56 45 4e 20 41 44 44 52 45 53 53 00 6f 00 42 00 0e 00 50 5c 43 41 4c 4c 5c 4d 4f 56 45 00 6f 00 6a 00 36 00 50 5c 53 54 5c 41 32 2c 53 41 56 45 30 31 2c 41 31 33 5c 53 41 56 45 20 53 54 41 52 54 20 4f 46 20 43 4f 4e 46 ┆ MAKE EVEN ADDRESS o B P CALL MOVE o j 6 P ST A2,SAVE01,A13 SAVE START OF CONF┆
0x6d46…6d96 49 47 55 52 41 54 49 4f 4e 20 44 41 54 41 00 6f 00 7c 00 26 00 50 5c 4c 44 52 5c 41 31 2c 41 39 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 46 52 45 45 20 41 52 45 41 20 00 6f 00 b6 00 20 00 50 5c 4c 44 52 5c 41 31 32 2c 41 32 5c 45 4e 44 20 ┆IGURATION DATA o | & P LDR A1,A9 GET START OF FREE AREA o P LDR A12,A2 END ┆
0x6d96…6de6 4f 46 20 46 52 45 45 20 41 52 45 41 00 6f 00 e0 00 24 00 50 5c 53 55 52 5c 41 31 32 2c 41 31 5c 53 55 42 54 52 41 43 54 20 4d 4f 4e 49 54 4f 52 20 45 4e 44 00 6f 01 04 00 2e 00 50 5c 53 54 5c 41 31 32 2c 4d 3a 52 45 4c 2c 41 31 33 5c 53 41 ┆OF FREE AREA o $ P SUR A12,A1 SUBTRACT MONITOR END o . P ST A12,M:REL,A13 SA┆
0x6de6…6e36 56 45 20 52 45 4c 4f 43 41 54 49 4f 4e 20 43 4f 4e 53 54 41 4e 54 00 6f 01 2c 00 28 00 50 5c 4c 44 5c 41 32 2c 53 41 56 45 30 31 2c 41 31 33 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 43 4f 4e 46 46 00 6f 01 5e 00 06 00 50 2a 20 00 6f 01 8a ┆VE RELOCATION CONSTANT o , ( P LD A2,SAVE01,A13 GET START OF CONFF o ^ P* o ┆
0x6e36…6e86 (72, 0, 400) 00 3c 00 50 2a 20 20 4d 4f 56 45 20 53 59 53 4c 44 41 2b 53 59 53 4c 44 4d 2b 44 57 54 2d 50 52 4f 54 4f 54 59 50 45 53 20 54 4f 20 45 4e 44 20 4f 46 20 46 52 45 45 20 41 52 45 41 00 70 00 04 00 06 00 50 2a 20 00 70 00 44 00 12 00 50 4d 4f ┆ < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA p P* p D PMO┆
0x6e86…6ed6 50 52 4f 5c 53 55 4b 5c 41 31 2c 32 00 70 00 4e 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 32 20 00 70 00 64 00 10 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 20 00 70 00 76 00 0e 00 50 5c 53 54 52 5c 41 34 2c 41 32 00 70 00 8a 00 10 00 50 5c 43 57 52 ┆PRO SUK A1,2 p N P SUK A2,2 p d P LDR* A4,A1 p v P STR A4,A2 p P CWR┆
0x6ed6…6f26 5c 41 31 2c 41 31 33 20 00 70 00 9c 00 12 00 50 5c 52 42 28 4e 45 29 5c 4d 4f 50 52 4f 20 00 70 00 b0 00 2a 00 50 5c 4c 44 52 5c 41 31 2c 41 32 5c 53 41 56 45 20 4e 45 57 20 4c 4f 43 41 54 49 4f 4e 20 4f 46 20 53 59 53 4c 44 41 00 70 00 c6 ┆ A1,A13 p P RB(NE) MOPRO p * P LDR A1,A2 SAVE NEW LOCATION OF SYSLDA p ┆
0x6f26…6f76 00 22 00 50 5c 41 44 5c 41 32 2c 4c 44 41 4c 45 4e 2c 41 32 5c 42 59 50 41 53 53 20 53 59 53 4c 44 41 00 70 00 f4 00 28 00 50 5c 41 42 52 5c 41 32 5c 43 4f 4e 54 49 4e 55 45 20 45 58 45 43 55 54 49 4f 4e 20 49 4e 20 53 59 53 4c 44 4d 00 70 ┆ " P AD A2,LDALEN,A2 BYPASS SYSLDA p ( P ABR A2 CONTINUE EXECUTION IN SYSLDM p┆
0x6f76…6fc6 01 1a 00 08 00 50 5c 58 49 46 00 70 01 46 00 0a 00 50 5c 45 4a 45 43 54 00 70 01 52 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P XIF p F P EJECT p R L P************************************************┆
0x6fc6…7016 (73, 0, 400) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 70 01 60 00 4c 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 20 55 53 45 44 20 49 4e 20 54 48 45 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 41 4e 44 20 43 4f 4e 46 49 ┆************************ p ` L P* SUBROUTINES USED IN THE APPLICATION AND CONFI┆
0x7016…7066 47 55 52 41 54 49 4f 4e 20 4c 4f 41 44 49 4e 47 20 50 48 41 53 45 20 4f 00 71 00 20 00 4c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆GURATION LOADING PHASE O q L P************************************************┆
0x7066…70b6 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 71 00 70 00 24 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 71 00 c0 00 24 00 50 2a 20 20 53 4f 50 49 4e ┆************************ q p $ P******************************* q $ P* SOPIN┆
0x70b6…7106 20 2d 20 52 45 41 44 20 53 4f 50 20 53 57 49 54 43 48 45 53 20 20 2a 20 00 71 00 e8 00 24 00 50 2a 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 2a 20 00 71 01 10 00 24 00 50 2a 20 20 20 20 20 20 20 ┆ - READ SOP SWITCHES * q $ P* ========================= * q $ P* ┆
0x7106…7156 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 71 01 38 00 24 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 71 01 60 00 24 00 50 2a 20 20 20 20 20 20 20 ┆ * q 8 $ P* ENTRY: * q ` $ P* ┆
0x7156…71a6 (74, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 71 01 88 00 24 00 50 2a 20 20 45 58 49 54 3a 20 20 41 31 20 2d 20 53 4f 50 20 49 4e 50 55 54 20 20 20 20 20 20 2a 20 00 72 00 20 00 24 00 50 2a 20 20 20 20 20 20 20 ┆ * q $ P* EXIT: A1 - SOP INPUT * r $ P* ┆
0x71a6…71f6 20 20 42 49 54 20 36 20 2d 20 53 57 49 54 43 48 20 31 20 20 20 20 2a 20 00 72 00 48 00 24 00 50 2a 20 20 20 20 20 20 20 20 20 42 49 54 20 31 35 20 2d 20 53 57 49 54 43 48 20 31 30 20 20 2a 20 00 72 00 70 00 24 00 50 2a 20 20 20 20 20 20 20 ┆ BIT 6 - SWITCH 1 * r H $ P* BIT 15 - SWITCH 10 * r p $ P* ┆
0x71f6…7246 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 72 00 98 00 24 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 31 20 20 20 20 20 20 20 20 2a 20 00 72 00 c0 00 24 00 50 2a 20 20 20 20 20 20 20 ┆ * r $ P* WORK REGISTERS: A1 * r $ P* ┆
0x7246…7296 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 72 00 e8 00 24 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 72 01 10 00 24 00 50 2a 20 20 20 20 20 20 20 ┆ * r $ P* SUBROUTINES: * r $ P* ┆
0x7296…72e6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 72 01 38 00 24 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 72 01 60 00 10 00 50 53 4f 50 49 4e 5c 45 51 ┆ * r 8 $ P******************************* r ` PSOPIN EQ┆
0x72e6…7336 (75, 0, 400) 55 5c 2a 20 00 72 01 88 00 12 00 50 5c 43 49 4f 5c 41 31 2c 31 2c 53 4f 50 20 00 73 00 0c 00 12 00 50 5c 49 4e 52 5c 41 31 2c 30 2c 53 4f 50 20 00 73 00 22 00 10 00 50 5c 52 42 28 4e 41 29 5c 2a 2d 32 20 00 73 00 38 00 0c 00 50 5c 52 54 4e ┆U * r P CIO A1,1,SOP s P INR A1,0,SOP s " P RB(NA) *-2 s 8 P RTN┆
0x7336…7386 5c 41 31 34 00 73 00 4c 00 10 00 50 5c 49 46 54 5c 43 41 53 53 3d 31 20 00 73 00 5c 00 0a 00 50 5c 45 4a 45 43 54 00 73 00 70 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ A14 s L P IFT CASS=1 s P EJECT s p < P**********************************┆
0x7386…73d6 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 73 00 7e 00 3c 00 50 2a 20 20 20 20 20 20 20 20 43 41 53 53 49 4e 20 2d 20 43 41 53 53 45 54 54 45 20 49 4e 49 54 49 41 54 49 4e 47 20 52 4f 55 54 49 4e 45 20 20 20 20 20 ┆********************* s ~ < P* CASSIN - CASSETTE INITIATING ROUTINE ┆
0x73d6…7426 20 20 20 20 2a 20 00 73 00 be 00 3c 00 50 2a 20 20 20 20 20 20 20 20 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 20 20 20 20 20 20 20 20 20 2a 20 00 73 00 fe 00 3c 00 50 2a 20 ┆ * s < P* ==================================== * s < P* ┆
0x7426…7476 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 73 01 3e 00 3c 00 50 2a 20 20 52 45 46 45 52 45 4e 43 45 44 20 49 4e 3a 20 ┆ * s > < P* REFERENCED IN: ┆
0x7476…74c6 (76, 0, 400) 20 53 59 53 4c 4f 44 20 2d 4c 4f 41 44 49 4e 47 20 50 41 52 54 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 73 01 7e 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SYSLOD -LOADING PART- * s ~ < P* ┆
0x74c6…7516 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 74 00 2e 00 3c 00 50 2a 20 20 45 4e 54 52 59 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * t . < P* ENTRY: ┆
0x7516…7566 20 20 20 20 2a 20 00 74 00 6e 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 74 00 ae 00 3c 00 50 2a 20 ┆ * t n < P* * t < P* ┆
0x7566…75b6 20 45 58 49 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 74 00 ee 00 3c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ EXIT: * t < P* ┆
0x75b6…7606 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 74 01 2e 00 3c 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 31 2c 41 33 20 20 20 20 20 20 20 20 20 ┆ * t . < P* WORK REGISTERS: A1,A3 ┆