|
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: 14360 (0x3818)
Notes: pts_type(SC)
Names: »DSKSUB.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/DSKSUB.SC«
IDENT DSKSUB REL 10.0 80-03-14 870105041000 * **************************************** * * PHILIPS TERMINAL SYSTEM PTS * * * DSKSUB = DISC SUBROUTINES * * * * * **************************************** * * * DSKSUB HOLDS THE FOLLOWING DISC * AND FILE MANAGEMENT SUBROUTINES: * * - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT * - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER * - VOLADR = COMPUTE VOLUME NAME ADDRESS IN DWT * - NVLCHK = CHECK IF NEW VOLUME LOADED FOR CALLING TASK * - VOLGET = MOVE VOLUME NAME FROM DISC BUFFER TO DWT * - NEWVOL = SET NEW VOLUME LOADED BITS * - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX * - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL * * EJECT DSKSUB * * *********** * ENTRIES * *********** * * ENTRY VOLCLR CLEAR VOLUME NAMES IN DWT ENTRY VOLNAM MOVE VOLUME NAME FROM DWT TO USER BUFFER ENTRY VOLADR COMPUTE VOLUME NAME ADDRESS IN DWT ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT ENTRY NEWVOL SET NEW VOLUME LOADED BITS ENTRY INXDWT COMPUTE DWT ADDRESS + DOUBLE INDEX ENTRY NVLTAB TTAB ADDRESSES FOR TASKS TO HAVE NVL ENTRY NVLDMT DM TASK NVL TABLE ENTRY NVLEND END OF NVLTAB ENTRY NVLBIT NVL BIT MASK EJECT DSKSUB * * ************* * EXTERNALS * ************* * * EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS EXTRN TTABLD LDTASK TTAB EXTRN TTABFM FMTASK TTAB EXTRN SCTFWT FWT CHAIN START ADDRESS EXTRN DWTORD SAVE AREA INDEX AND ORDER EXTRN DWTOR INDEX AND ORDER EXTRN DWTTAB TTAB ADDRESS EXTRN DWTUEC USER ECB ADDRESS EXTRN DWTVOL VOLUME NAME EXTRN DWTNVL NEW VOLUME LOADED FLAG EXTRN EWTVOL VOLUME FILE CODE EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT EXTRN FWTPAR ACCESS PARAMETERS EXTRN TTB:MT MMU TABLE EXTRN ECBBA ECB BUFFER ADDRESS EXTRN ECBRL ECB REQUESTED LENGTH EXTRN ECBEL ECB EFFECTIVE LENGTH EJECT DSKSUB * * *************************************** * * CONDITIONAL ASSEMBLY * *************************************** * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * A PROGRAM VERSION USING TOSS DISC PAGING * IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 0 * * * A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK * BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. * SWPBLK EQU 0 * EJECT DSKSUB * * * A PROGRAM VERSION SUPPORTING FILE MANAGEMENT * IS OBTAINED BY SETTING FILMAN EQU 1. * X:A EQU 0 FILMAN EQU X:A * * * A PROGRAM VERSION SUPPORTING DATA MANAGEMENT * IS OBTAINED BY SETTING DATMAN EQU 1. * X:B EQU 0 DATMAN EQU X:B * EJECT DSKSUB * * ********** * VOLCLR * ********** * * * VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S) * IN THE REQUESTED DISC DWT. * * INPUT: A1 = NUMBER OF BYTES TO CLEAR * A6 = DWT ADDRESS * * OUTPUT: A1, A2 ARE DESTROYED * VOLCLR EQU * LDR A2,A1 CF A15,VOLADR VOLUME NAME ADDRESS * VCLR10 EQU * CMR A1 CLEAR ONE WORD ADK A1,2 INCREMENT POINTER SUK A2,2 DECREMENT LOOP COUNTER RB(P) VCLR10 RF RETURN * EJECT DSKSUB * * ********** * VOLNAM * ********** * * * VOLNAM WILL MOVE THE VOLUME NAME OF SELECTED DISC * TO THE USER BUFFER IF REQUESTED LENGTH = 6. * * INPUT: A6 = DWT ADDRESS * A8 = ECB ADDRESS * * OUTPUT: A1-A4 ARE DESTROYED * VOLNAM EQU * LD A1,ECBRL,A8 REQUESTED LENGTH SUK A1,6 RF(NE) RETURN NO VOLUME NAME WANTED CF A15,VOLADR GET DWT VOLUME ADDRESS ST A4,ECBEL,A8 SET EFFECTIVE LENGTH * IFT MMUPAG=0 LD A2,ECBBA,A8 USER BUFFER ADDRESS * EJECT DSKSUB * * VNAM10 EQU * LDR* A3,A1 MOVE ONE WORD STR A3,A2 ADK A1,2 INCREMENT BUFFER POINTERS ADK A2,2 SUK A4,2 DECREMENT LOOP COUNTER RB(P) VNAM10 RF RETURN XIF * IFT MMUPAG=1 LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK TS -30,A15 SAVE RUNNING MMU TL TTB:MT,A2 LOAD USER MMU LD A2,DWTUEC,A6 USER ECB ADDRESS EL A2,ECBBA,A2 USER BUFFER ADDRESS MVSU A4 MOVE VOLUME NAME TL -30,A15 RESTORE RUNNING MMU RTN A15 XIF * EJECT DSKSUB * * ********** * VOLADR * ********** * * * INPUT: A6 = DWT ADDRESS * * OUTPUT: A1 = VOLUME NAME ADDRESS * A4 = 6 * VOLADR EQU * LC A4,DWTOR,A6 INDEX * VOLA05 EQU * LDKL A1,DWTVOL-6 ADR A1,A6 ANK A4,/3 * VOLA10 EQU * ADK A1,6 UPDATE ADDRESS SUK A4,1 RB(NN) VOLA10 LDK A4,6 RF RETURN * EJECT DSKSUB * * ********** * NVLCHK * ********** * * * NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER * TO CHECK IF THE RETURN CODE "NEW VOLUME LOADED" * IS TO BE RETURNED TO THE CALLING TASK (RC=/20). * * INPUT: A6 = DWT ADDRESS * * OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) * A2 = DWT ADDRESS + DOUBLE INDEX * A3, A4 ARE DESTROYED * NVLCHK EQU * LD A2,DWTOR,A6 INDEX AND ORDER ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES SRL A2,7 DOUBLE INDEX ADR A2,A6 LD A1,DWTNVL,A2 NVL FLAG ANKL A1,/7FFF RESET BIT 0 (FIRST REQUEST BIT) ST A1,DWTNVL,A2 ANK A1,/FF CHECK IF NVL RF(Z) RETURN RETURN IF NO NVL LD A4,DWTTAB,A6 TTAB ADDRESS LDK A1,1 LDKL A3,NVLTAB NVLTAB ADDRESS * EJECT DSKSUB * * NVL:10 EQU * CWK A3,NVLEND CHECK IF END OF TABLE REACHED RF(E) NVL:20 END OF NVLTAB CWR* A4,A3 CHECK TTAB ADDRESS RF(E) NVL:20 NVL FOR THIS TASK SLL A1,1 SHIFT NVL BIT MASK ADK A3,2 POINT TO NEXT TTAB IN NVLTAB RB NVL:10 * NVL:20 EQU * AN A1,DWTNVL,A2 CHECK IF NVL FOR THIS TASK RF(Z) RETURN NO NVL FOR THIS TASK XRS A1,DWTNVL,A2 RESET NVL BIT LDK A1,/20 RETURN CODE * EJECT DSKSUB * * RETURN EQU * COMMON RETURN LABEL IFT CPU852=1 ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS XIF * IFT CPU852=0 RTN A15 XIF * EJECT DSKSUB * * ********** * VOLGET * ********** * * * VOLGET WILL READ VOLUME NAME FROM DISC BUFFER * TO DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. * * INPUT: A2 = DISC BUFFER ADDRESS * A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) * BIT 0 SET MEANS TEST STATUS ORDER * A6 = DWT ADDRESS * * OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX * A1-A3, A7-A8 ARE DESTROYED * * VOLGET EQU * CF A15,VOLADR DWT VOLUME NAME ADDRESS LDK A7,0 RESET NVL FLAG * VGET10 EQU * LDR* A8,A2 ONE WORD OF NEW VOLUME NAME CWR* A8,A1 COMPARE WITH OLD VOLUME NAME RF(E) VGET20 LDK A7,1 SET NVL FLAG STR A8,A1 STORE NEW VOLUME NAME * EJECT DSKSUB * * VGET20 EQU * ADK A1,2 INCREMENT BUFFER POINTERS ADK A2,2 SUK A4,2 DECREMENT LOOP COUNTER RB(P) VGET10 CF A15,INXDWT ADK A7,0 CHECK NVL FLAG RB(Z) RETURN RETURN IF NO NVL SLA A3,1 CHECK IF TEST STATUS OR RECOVERY RB(O) RETURN TEST STATUS, NO NVL SRA A3,1 FILE CODE WITHOUT SIGN BIT LD A7,DWTNVL,A4 NVL FLAGS RB(N) RETURN NO REQUESTS SO FAR ON THIS DISC SLL A7,1 RB(N) RETURN FIXED DISC, NO NVL * EJECT DSKSUB * * ********** * NEWVOL * ********** * * * NEWVOL IS ENTERED FROM THE ROUTINE VOLGET WHEN IT HAS * DETECTED THAT A NEW VOLUME HAS BEEN MOUNTED. * THE NEW VOLUME LOADED FLAG IS THEN SET BY THIS * ROUTINE FOR THE CONCERNED FILE CODE AND FILES * OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE * TABLE NVLTAB WILL GET RETURN CODE /20 AT THE * NEXT REQUEST ON THAT FILE CODE. * * INPUT: A3 = FILE CODE (DISC ONE FOR DRIVER) * A4 = DWT ADDRESS + DOUBLE INDEX * A6 = DWT ADDRESS * * OUTPUT: A3 = ACTUAL FILE CODE * A1-A2 ARE DESTROYED * NEWVOL EQU * LD A2,NVLBIT NVL BIT MASK ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED LC A2,DWTOR,A6 INDEX ANK A2,/3 ADR A3,A2 ACTUAL FILE CODE * EJECT DSKSUB * * IFT FILMAN=0 RB RETURN XIF * IFT FILMAN=1 LDKL A1,SCTFWT ADDRESS TO FWT POINTER * * SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME * NEW:10 EQU * LDR* A2,A1 NEXT FWT ADDRESS RB(Z) RETURN NO MORE FWT:S LDR A1,A2 SAVE FWT ADDRESS ADKL A2,FWTEW1 ADDRESS TO FIRST EWT STRUCTURE * NEW:20 EQU * LDR* A2,A2 ADDRESS TO 2ND EWT BLOCK CC A3,EWTVOL,A2 CHECK FILE CODE RF(NE) NEW:30 LDKL A2,/8000 NVL BIT ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED RB NEW:10 * NEW:30 EQU * LDR* A2,A2 ADDRESS TO NEXT EWT STRUCTURE RB(Z) NEW:10 END OF THIS EWT STRUCTURE RB NEW:20 CONTINUE WITH NEXT EXTENT XIF * EJECT DSKSUB * * ********** * INXDWT * ********** * * * INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. * * INPUT: A6 = DWT ADDRESS * * OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX * NO REGISTERS ARE DESTROYED * INXDWT EQU * LC A4,DWTOR,A6 INDEX ANK A4,/3 ADR A4,A4 DOUBLE INDEX ADR A4,A6 RB RETURN * EJECT DSKSUB * * ********** * NVLTAB * ********** * * * NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS * THAT WILL RECEIVE NEW VOLUME LOADED WHEN A NEW * VOLUME HAS BEEN MOUNTED. * NVLTAB EQU * IFT FILMAN=1 DATA TTABFM FMTASK TTAB * IFF DSKPAG+SWPBLK=0 DATA TTABLD LDTASK TTAB XIF * NVLDMT EQU * IFT FILMAN=1 IFT DATMAN=1 DATA 0 TTAB #D DATA 0 TTAB #E DATA 0 TTAB #F DATA 0 TTAB #G XIF * IFT FILMAN=1 NVLEND EQU * * NVLBIT DATA 0 NVL BIT MASK XIF * EJECT DSKSUB * * IFT FILMAN=0 IFF DSKPAG+SWPBLK=0 DATA TTABLD LDTASK TTAB * NVLEND EQU * * NVLBIT DATA 3 NVL BIT MASK XIF * IFT FILMAN=0 IFT DSKPAG+SWPBLK=0 * NVLEND EQU * * NVLBIT DATA 1 NVL BIT MASK XIF * * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DSKSUB REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0078 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0000, t01=0x004c}
0x0078…0082 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x007c}
0x0082…00b2 Head {h00=0x002c, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS *«, t00=0x0000, t01=0x0086}
0x00b2…00bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b6}
0x00bc…00ec Head {h00=0x002c, h01=0x0050, text=»* DSKSUB = DISC SUBROUTINES *«, t00=0x0000, t01=0x00c0}
0x00ec…00f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f0}
0x00f6…0100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00fa}
0x0100…010a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0104}
0x010a…0114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010e}
0x0114…0144 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0000, t01=0x0118}
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…0184 Head {h00=0x0028, h01=0x0050, text=»* DSKSUB HOLDS THE FOLLOWING DISC «, t00=0x0000, t01=0x015c}
0x0184…01b0 Head {h00=0x0028, h01=0x0050, text=»* AND FILE MANAGEMENT SUBROUTINES:«, t00=0x0000, t01=0x0188}
0x01b0…01ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0024}
0x01ba…01f2 Head {h00=0x0034, h01=0x0050, text=»* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT «, t00=0x0001, t01=0x002e}
0x01f2…0232 Head {h00=0x003c, h01=0x0050, text=»* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER «, t00=0x0001, t01=0x0066}
0x0232…026c Head {h00=0x0036, h01=0x0050, text=»* - VOLADR = COMPUTE VOLUME NAME ADDRESS IN DWT «, t00=0x0001, t01=0x00a6}
0x026c…02ae Head {h00=0x003e, h01=0x0050, text=»* - NVLCHK = CHECK IF NEW VOLUME LOADED FOR CALLING TASK«, t00=0x0001, t01=0x00e0}
0x02ae…02ee Head {h00=0x003c, h01=0x0050, text=»* - VOLGET = MOVE VOLUME NAME FROM DISC BUFFER TO DWT «, t00=0x0001, t01=0x0122}
0x02ee…0320 Head {h00=0x002e, h01=0x0050, text=»* - NEWVOL = SET NEW VOLUME LOADED BITS «, t00=0x0001, t01=0x0162}
0x0320…035a (2, 0, 400) Head {h00=0x0036, h01=0x0050, text=»* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX «, t00=0x0002, t01=0x0004}
0x035a…0396 Head {h00=0x0038, h01=0x0050, text=»* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL «, t00=0x0002, t01=0x003e}
0x0396…03a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007a}
0x03a0…03aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0084}
0x03aa…03c0 Head {h00=0x0012, h01=0x0050, text=» EJECT DSKSUB«, t00=0x0002, t01=0x008e}
0x03c0…03ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00a4}
0x03ca…03d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ae}
0x03d4…03e8 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x00b8}
0x03e8…03fc Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x00cc}
0x03fc…0410 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x00e0}
0x0410…041a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f4}
0x041a…0424 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fe}
0x0424…0454 Head {h00=0x002c, h01=0x0050, text=» ENTRY VOLCLR CLEAR VOLUME NAMES IN DWT «, t00=0x0002, t01=0x0108}
0x0454…0492 Head {h00=0x003a, h01=0x0050, text=» ENTRY VOLNAM MOVE VOLUME NAME FROM DWT TO USER BUFFER«, t00=0x0002, t01=0x0138}
0x0492…04ca Head {h00=0x0034, h01=0x0050, text=» ENTRY VOLADR COMPUTE VOLUME NAME ADDRESS IN DWT«, t00=0x0002, t01=0x0176}
0x04ca…04fc Head {h00=0x002e, h01=0x0050, text=» ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED «, t00=0x0003, t01=0x001e}
0x04fc…053a Head {h00=0x003a, h01=0x0050, text=» ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT«, t00=0x0003, t01=0x0050}
0x053a…056a Head {h00=0x002c, h01=0x0050, text=» ENTRY NEWVOL SET NEW VOLUME LOADED BITS«, t00=0x0003, t01=0x008e}
0x056a…05a2 Head {h00=0x0034, h01=0x0050, text=» ENTRY INXDWT COMPUTE DWT ADDRESS + DOUBLE INDEX«, t00=0x0003, t01=0x00be}
0x05a2…05dc Head {h00=0x0036, h01=0x0050, text=» ENTRY NVLTAB TTAB ADDRESSES FOR TASKS TO HAVE NVL«, t00=0x0003, t01=0x00f6}
0x05dc…0604 Head {h00=0x0024, h01=0x0050, text=» ENTRY NVLDMT DM TASK NVL TABLE «, t00=0x0003, t01=0x0130}
0x0604…0628 Head {h00=0x0020, h01=0x0050, text=» ENTRY NVLEND END OF NVLTAB «, t00=0x0003, t01=0x0158}
0x0628…064a Head {h00=0x001e, h01=0x0050, text=» ENTRY NVLBIT NVL BIT MASK«, t00=0x0003, t01=0x017c}
0x064a…0660 Head {h00=0x0012, h01=0x0050, text=» EJECT DSKSUB«, t00=0x0004, t01=0x000e}
0x0660…066a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0024}
0x066a…0674 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x002e}
0x0674…068a Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0038}
0x068a…06a0 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x004e}
0x06a0…06b6 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0064}
0x06b6…06c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x007a}
0x06c0…06ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0084}
0x06ca…0702 Head {h00=0x0034, h01=0x0050, text=» EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS «, t00=0x0004, t01=0x008e}
0x0702…0724 Head {h00=0x001e, h01=0x0050, text=» EXTRN TTABLD LDTASK TTAB «, t00=0x0004, t01=0x00c6}
0x0724…0746 Head {h00=0x001e, h01=0x0050, text=» EXTRN TTABFM FMTASK TTAB «, t00=0x0004, t01=0x00e8}
0x0746…0774 Head {h00=0x002a, h01=0x0050, text=» EXTRN SCTFWT FWT CHAIN START ADDRESS «, t00=0x0004, t01=0x010a}
0x0774…07a4 Head {h00=0x002c, h01=0x0050, text=» EXTRN DWTORD SAVE AREA INDEX AND ORDER «, t00=0x0004, t01=0x0138}
0x07a4…07c8 Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTOR INDEX AND ORDER«, t00=0x0004, t01=0x0168}
0x07c8…07ea Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0004, t01=0x018c}
0x07ea…0810 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x0005, t01=0x001e}
0x0810…0832 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTVOL VOLUME NAME «, t00=0x0005, t01=0x0044}
0x0832…085e Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTNVL NEW VOLUME LOADED FLAG«, t00=0x0005, t01=0x0066}
0x085e…0884 Head {h00=0x0022, h01=0x0050, text=» EXTRN EWTVOL VOLUME FILE CODE«, t00=0x0005, t01=0x0092}
0x0884…08ba Head {h00=0x0032, h01=0x0050, text=» EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT «, t00=0x0005, t01=0x00b8}
0x08ba…08e2 Head {h00=0x0024, h01=0x0050, text=» EXTRN FWTPAR ACCESS PARAMETERS «, t00=0x0005, t01=0x00ee}
0x08e2…0902 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0005, t01=0x0116}
0x0902…092a Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0005, t01=0x0136}
0x092a…0954 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0005, t01=0x015e}
0x0954…097e Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0005, t01=0x0188}
0x097e…0994 Head {h00=0x0012, h01=0x0050, text=» EJECT DSKSUB«, t00=0x0006, t01=0x0022}
0x0994…099e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0038}
0x099e…09a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0042}
0x09a8…09d8 Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0006, t01=0x004c}
0x09d8…09e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007c}
0x09e2…0a00 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0006, t01=0x0086}
0x0a00…0a0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a4}
0x0a0a…0a3a Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0006, t01=0x00ae}
0x0a3a…0a44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00de}
0x0a44…0a4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e8}
0x0a4e…0a80 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0006, t01=0x00f2}
0x0a80…0aae Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0006, t01=0x0124}
0x0aae…0ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0152}
0x0ab8…0acc Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0006, t01=0x015c}
0x0acc…0ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0170}
0x0ad6…0ae0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x017a}
0x0ae0…0b1a Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0006, t01=0x0184}
0x0b1a…0b4c Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0007, t01=0x002e}
0x0b4c…0b56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0060}
0x0b56…0b6a Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0007, t01=0x006a}
0x0b6a…0b74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007e}
0x0b74…0b7e Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0007, t01=0x0088}
0x0b7e…0bb0 Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0007, t01=0x0092}
0x0bb0…0bde Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0007, t01=0x00c4}
0x0bde…0be8 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0007, t01=0x00f2}
0x0be8…0bfc Head {h00=0x0010, h01=0x000c, text=»DSKPAG EQU 0«, t00=0x0007, t01=0x00fc}
0x0bfc…0c06 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0007, t01=0x0110}
0x0c06…0c10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011a}
0x0c10…0c4a Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK «, t00=0x0007, t01=0x0124}
0x0c4a…0c80 Head {h00=0x0032, h01=0x0050, text=»* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. «, t00=0x0007, t01=0x015e}
0x0c80…0c8a (8, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0004}
0x0c8a…0c9e Head {h00=0x0010, h01=0x0050, text=»SWPBLK EQU 0«, t00=0x0008, t01=0x000e}
0x0c9e…0ca8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0022}
0x0ca8…0cc0 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0008, t01=0x002c}
0x0cc0…0cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0044}
0x0cca…0cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004e}
0x0cd4…0d0a Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT«, t00=0x0008, t01=0x0058}
0x0d0a…0d38 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING FILMAN EQU 1.«, t00=0x0008, t01=0x008e}
0x0d38…0d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00bc}
0x0d42…0d54 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0008, t01=0x00c6}
0x0d54…0d6a Head {h00=0x0012, h01=0x0050, text=»FILMAN EQU X:A«, t00=0x0008, t01=0x00d8}
0x0d6a…0d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ee}
0x0d74…0d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d7e…0db4 Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING DATA MANAGEMENT«, t00=0x0008, t01=0x0102}
0x0db4…0de2 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING DATMAN EQU 1.«, t00=0x0008, t01=0x0138}
0x0de2…0dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0166}
0x0dec…0dfe Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x0170}
0x0dfe…0e14 Head {h00=0x0012, h01=0x0050, text=»DATMAN EQU X:B«, t00=0x0008, t01=0x0182}
0x0e14…0e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0008}
0x0e1e…0e36 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0009, t01=0x0012}
0x0e36…0e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002a}
0x0e40…0e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0034}
0x0e4a…0e5c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x003e}
0x0e5c…0e6e Head {h00=0x000e, h01=0x0050, text=»* VOLCLR *«, t00=0x0009, t01=0x0050}
0x0e6e…0e80 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x0062}
0x0e80…0e8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0074}
0x0e8a…0e94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x007e}
0x0e94…0ece Head {h00=0x0036, h01=0x0050, text=»* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S)«, t00=0x0009, t01=0x0088}
0x0ece…0ef4 Head {h00=0x0022, h01=0x0050, text=»* IN THE REQUESTED DISC DWT.«, t00=0x0009, t01=0x00c2}
0x0ef4…0efe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e8}
0x0efe…0f30 Head {h00=0x002e, h01=0x0050, text=»* INPUT: A1 = NUMBER OF BYTES TO CLEAR «, t00=0x0009, t01=0x00f2}
0x0f30…0f54 Head {h00=0x0020, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0009, t01=0x0124}
0x0f54…0f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0148}
0x0f5e…0f86 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: A1, A2 ARE DESTROYED«, t00=0x0009, t01=0x0152}
0x0f86…0f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017a}
0x0f90…0fa4 Head {h00=0x0010, h01=0x0050, text=»VOLCLR EQU *«, t00=0x0009, t01=0x0184}
0x0fa4…0fb6 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x000a, t01=0x0008}
0x0fb6…0fe0 Head {h00=0x0026, h01=0x0050, text=» CF A15,VOLADR VOLUME NAME ADDRESS«, t00=0x000a, t01=0x001a}
0x0fe0…0fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0044}
0x0fea…0ffe Head {h00=0x0010, h01=0x0050, text=»VCLR10 EQU *«, t00=0x000a, t01=0x004e}
0x0ffe…101c Head {h00=0x001a, h01=0x0050, text=» CMR A1 CLEAR ONE WORD«, t00=0x000a, t01=0x0062}
0x101c…1040 Head {h00=0x0020, h01=0x0050, text=» ADK A1,2 INCREMENT POINTER «, t00=0x000a, t01=0x0080}
0x1040…1068 Head {h00=0x0024, h01=0x0050, text=» SUK A2,2 DECREMENT LOOP COUNTER«, t00=0x000a, t01=0x00a4}
0x1068…107e Head {h00=0x0012, h01=0x0050, text=» RB(P) VCLR10 «, t00=0x000a, t01=0x00cc}
0x107e…1090 Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x000a, t01=0x00e2}
0x1090…109a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f4}
0x109a…10b0 Head {h00=0x0012, h01=0x0050, text=» EJECT DSKSUB«, t00=0x000a, t01=0x00fe}
0x10b0…10ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0114}
0x10ba…10c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011e}
0x10c4…10d6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x0128}
0x10d6…10e8 Head {h00=0x000e, h01=0x0050, text=»* VOLNAM *«, t00=0x000a, t01=0x013a}
0x10e8…10fa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x014c}
0x10fa…1104 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015e}
0x1104…110e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0168}
0x110e…114c Head {h00=0x003a, h01=0x0050, text=»* VOLNAM WILL MOVE THE VOLUME NAME OF SELECTED DISC «, t00=0x000a, t01=0x0172}
0x114c…1184 Head {h00=0x0034, h01=0x0050, text=»* TO THE USER BUFFER IF REQUESTED LENGTH = 6. «, t00=0x000b, t01=0x0020}
0x1184…118e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0058}
0x118e…11b2 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS«, t00=0x000b, t01=0x0062}
0x11b2…11d6 Head {h00=0x0020, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x000b, t01=0x0086}
0x11d6…11e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00aa}
0x11e0…1208 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: A1-A4 ARE DESTROYED «, t00=0x000b, t01=0x00b4}
0x1208…1212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00dc}
0x1212…1226 Head {h00=0x0010, h01=0x0050, text=»VOLNAM EQU *«, t00=0x000b, t01=0x00e6}
0x1226…124e Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRL,A8 REQUESTED LENGTH«, t00=0x000b, t01=0x00fa}
0x124e…1260 Head {h00=0x000e, h01=0x0050, text=» SUK A1,6 «, t00=0x000b, t01=0x0122}
0x1260…128c Head {h00=0x0028, h01=0x0050, text=» RF(NE) RETURN NO VOLUME NAME WANTED«, t00=0x000b, t01=0x0134}
0x128c…12ba Head {h00=0x002a, h01=0x0050, text=» CF A15,VOLADR GET DWT VOLUME ADDRESS «, t00=0x000b, t01=0x0160}
0x12ba…12e6 Head {h00=0x0028, h01=0x0050, text=» ST A4,ECBEL,A8 SET EFFECTIVE LENGTH«, t00=0x000b, t01=0x018e}
0x12e6…12f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x002a}
0x12f0…1306 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000c, t01=0x0034}
0x1306…1332 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x000c, t01=0x004a}
0x1332…133c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0076}
0x133c…1354 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x000c, t01=0x0080}
0x1354…135e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0098}
0x135e…1368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00a2}
0x1368…137c Head {h00=0x0010, h01=0x0050, text=»VNAM10 EQU *«, t00=0x000c, t01=0x00ac}
0x137c…139e Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A1 MOVE ONE WORD «, t00=0x000c, t01=0x00c0}
0x139e…13b0 Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x000c, t01=0x00e2}
0x13b0…13dc Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT BUFFER POINTERS «, t00=0x000c, t01=0x00f4}
0x13dc…13ee Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x000c, t01=0x0120}
0x13ee…1416 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 DECREMENT LOOP COUNTER«, t00=0x000c, t01=0x0132}
0x1416…142c Head {h00=0x0012, h01=0x0050, text=» RB(P) VNAM10 «, t00=0x000c, t01=0x015a}
0x142c…143e Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x000c, t01=0x0170}
0x143e…144a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x0182}
0x144a…1454 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018e}
0x1454…146a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000d, t01=0x0008}
0x146a…14a0 Head {h00=0x0032, h01=0x0050, text=» LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK «, t00=0x000d, t01=0x001e}
0x14a0…14c4 Head {h00=0x0020, h01=0x0050, text=» TS -30,A15 SAVE RUNNING MMU«, t00=0x000d, t01=0x0054}
0x14c4…14e8 Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A2 LOAD USER MMU «, t00=0x000d, t01=0x0078}
0x14e8…1512 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTUEC,A6 USER ECB ADDRESS «, t00=0x000d, t01=0x009c}
0x1512…153e Head {h00=0x0028, h01=0x0050, text=» EL A2,ECBBA,A2 USER BUFFER ADDRESS «, t00=0x000d, t01=0x00c6}
0x153e…1560 Head {h00=0x001e, h01=0x0050, text=» MVSU A4 MOVE VOLUME NAME «, t00=0x000d, t01=0x00f2}
0x1560…1588 Head {h00=0x0024, h01=0x0050, text=» TL -30,A15 RESTORE RUNNING MMU «, t00=0x000d, t01=0x0114}
0x1588…1598 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x000d, t01=0x013c}
0x1598…15a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x014c}
0x15a4…15ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0158}
0x15ae…15c4 Head {h00=0x0012, h01=0x0050, text=» EJECT DSKSUB«, t00=0x000d, t01=0x0162}
0x15c4…15ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0178}
0x15ce…15d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0182}
0x15d8…15ea Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x018c}
0x15ea…15fc Head {h00=0x000e, h01=0x0050, text=»* VOLADR *«, t00=0x000e, t01=0x000e}
0x15fc…160e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0020}
0x160e…1618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0032}
0x1618…1622 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003c}
0x1622…1646 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS«, t00=0x000e, t01=0x0046}
0x1646…1650 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006a}
0x1650…167c Head {h00=0x0028, h01=0x0050, text=»* OUTPUT: A1 = VOLUME NAME ADDRESS«, t00=0x000e, t01=0x0074}
0x167c…1690 Head {h00=0x0010, h01=0x0050, text=»* A4 = 6 «, t00=0x000e, t01=0x00a0}
0x1690…169a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b4}
0x169a…16ae Head {h00=0x0010, h01=0x0050, text=»VOLADR EQU *«, t00=0x000e, t01=0x00be}
0x16ae…16cc Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTOR,A6 INDEX «, t00=0x000e, t01=0x00d2}
0x16cc…16d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f0}
0x16d6…16ea Head {h00=0x0010, h01=0x0050, text=»VOLA05 EQU *«, t00=0x000e, t01=0x00fa}
0x16ea…1704 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,DWTVOL-6 «, t00=0x000e, t01=0x010e}
0x1704…1716 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x000e, t01=0x0128}
0x1716…1728 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/3«, t00=0x000e, t01=0x013a}
0x1728…1732 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x014c}
0x1732…1746 Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x000e, t01=0x0156}
0x1746…1766 Head {h00=0x001c, h01=0x0050, text=» ADK A1,6 UPDATE ADDRESS«, t00=0x000e, t01=0x016a}
0x1766…1778 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000e, t01=0x018a}
0x1778…178e Head {h00=0x0012, h01=0x0050, text=» RB(NN) VOLA10«, t00=0x000f, t01=0x000c}
0x178e…17a0 Head {h00=0x000e, h01=0x0050, text=» LDK A4,6 «, t00=0x000f, t01=0x0022}
0x17a0…17b2 Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x000f, t01=0x0034}
0x17b2…17bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0046}
0x17bc…17d4 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x000f, t01=0x0050}
0x17d4…17de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0068}
0x17de…17e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0072}
0x17e8…17fa Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x007c}
0x17fa…180c Head {h00=0x000e, h01=0x0050, text=»* NVLCHK *«, t00=0x000f, t01=0x008e}
0x180c…181e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x00a0}
0x181e…1828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b2}
0x1828…1832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00bc}
0x1832…186e Head {h00=0x0038, h01=0x0050, text=»* NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER «, t00=0x000f, t01=0x00c6}
0x186e…18aa Head {h00=0x0038, h01=0x0050, text=»* TO CHECK IF THE RETURN CODE "NEW VOLUME LOADED" «, t00=0x000f, t01=0x0102}
0x18aa…18e6 Head {h00=0x0038, h01=0x0050, text=»* IS TO BE RETURNED TO THE CALLING TASK (RC=/20). «, t00=0x000f, t01=0x013e}
0x18e6…18f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x017a}
0x18f0…1914 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS«, t00=0x000f, t01=0x0184}
0x1914…191e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0018}
0x191e…1958 Head {h00=0x0036, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) «, t00=0x0010, t01=0x0022}
0x1958…198c Head {h00=0x0030, h01=0x0050, text=»* A2 = DWT ADDRESS + DOUBLE INDEX «, t00=0x0010, t01=0x005c}
0x198c…19b4 Head {h00=0x0024, h01=0x0050, text=»* A3, A4 ARE DESTROYED«, t00=0x0010, t01=0x0090}
0x19b4…19be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b8}
0x19be…19d2 Head {h00=0x0010, h01=0x0050, text=»NVLCHK EQU *«, t00=0x0010, t01=0x00c2}
0x19d2…19fa Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOR,A6 INDEX AND ORDER «, t00=0x0010, t01=0x00d6}
0x19fa…1a2e Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES «, t00=0x0010, t01=0x00fe}
0x1a2e…1a4c Head {h00=0x001a, h01=0x0050, text=» SRL A2,7 DOUBLE INDEX«, t00=0x0010, t01=0x0132}
0x1a4c…1a5e Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0010, t01=0x0150}
0x1a5e…1a80 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTNVL,A2 NVL FLAG «, t00=0x0010, t01=0x0162}
0x1a80…1ab6 Head {h00=0x0032, h01=0x0050, text=» ANKL A1,/7FFF RESET BIT 0 (FIRST REQUEST BIT)«, t00=0x0010, t01=0x0184}
0x1ab6…1ace Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTNVL,A2«, t00=0x0011, t01=0x002a}
0x1ace…1aee Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF CHECK IF NVL«, t00=0x0011, t01=0x0042}
0x1aee…1b14 Head {h00=0x0022, h01=0x0050, text=» RF(Z) RETURN RETURN IF NO NVL«, t00=0x0011, t01=0x0062}
0x1b14…1b3a Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTAB,A6 TTAB ADDRESS «, t00=0x0011, t01=0x0088}
0x1b3a…1b4c Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0011, t01=0x00ae}
0x1b4c…1b72 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,NVLTAB NVLTAB ADDRESS«, t00=0x0011, t01=0x00c0}
0x1b72…1b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e6}
0x1b7c…1b94 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0011, t01=0x00f0}
0x1b94…1b9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0108}
0x1b9e…1ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0112}
0x1ba8…1bbc Head {h00=0x0010, h01=0x0050, text=»NVL:10 EQU *«, t00=0x0011, t01=0x011c}
0x1bbc…1bf0 Head {h00=0x0030, h01=0x0050, text=» CWK A3,NVLEND CHECK IF END OF TABLE REACHED«, t00=0x0011, t01=0x0130}
0x1bf0…1c14 Head {h00=0x0020, h01=0x0050, text=» RF(E) NVL:20 END OF NVLTAB «, t00=0x0011, t01=0x0164}
0x1c14…1c3a Head {h00=0x0022, h01=0x0050, text=» CWR* A4,A3 CHECK TTAB ADDRESS«, t00=0x0011, t01=0x0188}
0x1c3a…1c62 Head {h00=0x0024, h01=0x0050, text=» RF(E) NVL:20 NVL FOR THIS TASK «, t00=0x0012, t01=0x001e}
0x1c62…1c86 Head {h00=0x0020, h01=0x0050, text=» SLL A1,1 SHIFT NVL BIT MASK«, t00=0x0012, t01=0x0046}
0x1c86…1cb4 Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 POINT TO NEXT TTAB IN NVLTAB«, t00=0x0012, t01=0x006a}
0x1cb4…1cc6 Head {h00=0x000e, h01=0x0050, text=» RB NVL:10«, t00=0x0012, t01=0x0098}
0x1cc6…1cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00aa}
0x1cd0…1ce4 Head {h00=0x0010, h01=0x0050, text=»NVL:20 EQU *«, t00=0x0012, t01=0x00b4}
0x1ce4…1d18 Head {h00=0x0030, h01=0x0050, text=» AN A1,DWTNVL,A2 CHECK IF NVL FOR THIS TASK «, t00=0x0012, t01=0x00c8}
0x1d18…1d42 Head {h00=0x0026, h01=0x0050, text=» RF(Z) RETURN NO NVL FOR THIS TASK«, t00=0x0012, t01=0x00fc}
0x1d42…1d6a Head {h00=0x0024, h01=0x0050, text=» XRS A1,DWTNVL,A2 RESET NVL BIT «, t00=0x0012, t01=0x0126}
0x1d6a…1d8a Head {h00=0x001c, h01=0x0050, text=» LDK A1,/20 RETURN CODE «, t00=0x0012, t01=0x014e}
0x1d8a…1d94 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016e}
0x1d94…1dac Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0012, t01=0x0178}
0x1dac…1db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0190}
0x1db6…1dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x000a}
0x1dc0…1de8 Head {h00=0x0024, h01=0x0050, text=»RETURN EQU * COMMON RETURN LABEL«, t00=0x0013, t01=0x0014}
0x1de8…1dfe Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0013, t01=0x003c}
0x1dfe…1e34 Head {h00=0x0032, h01=0x0050, text=» ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS «, t00=0x0013, t01=0x0052}
0x1e34…1e40 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0088}
0x1e40…1e4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0094}
0x1e4a…1e60 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0013, t01=0x009e}
0x1e60…1e70 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0013, t01=0x00b4}
0x1e70…1e7c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00c4}
0x1e7c…1e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00d0}
0x1e86…1e9e Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0013, t01=0x00da}
0x1e9e…1ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f2}
0x1ea8…1eb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00fc}
0x1eb2…1ec4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0106}
0x1ec4…1ed6 Head {h00=0x000e, h01=0x0050, text=»* VOLGET *«, t00=0x0013, t01=0x0118}
0x1ed6…1ee8 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x012a}
0x1ee8…1ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013c}
0x1ef2…1efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0146}
0x1efc…1f36 Head {h00=0x0036, h01=0x0050, text=»* VOLGET WILL READ VOLUME NAME FROM DISC BUFFER «, t00=0x0013, t01=0x0150}
0x1f36…1f7a Head {h00=0x0040, h01=0x0050, text=»* TO DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. «, t00=0x0013, t01=0x018a}
0x1f7a…1f84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003e}
0x1f84…1fb0 Head {h00=0x0028, h01=0x0050, text=»* INPUT: A2 = DISC BUFFER ADDRESS«, t00=0x0014, t01=0x0048}
0x1fb0…1fe6 Head {h00=0x0032, h01=0x0050, text=»* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0)«, t00=0x0014, t01=0x0074}
0x1fe6…201a Head {h00=0x0030, h01=0x0050, text=»* BIT 0 SET MEANS TEST STATUS ORDER «, t00=0x0014, t01=0x00aa}
0x201a…203e Head {h00=0x0020, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0014, t01=0x00de}
0x203e…2048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0102}
0x2048…207c Head {h00=0x0030, h01=0x0050, text=»* OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX «, t00=0x0014, t01=0x010c}
0x207c…20aa Head {h00=0x002a, h01=0x0050, text=»* A1-A3, A7-A8 ARE DESTROYED«, t00=0x0014, t01=0x0140}
0x20aa…20b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x016e}
0x20b4…20be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0178}
0x20be…20d2 Head {h00=0x0010, h01=0x0050, text=»VOLGET EQU *«, t00=0x0014, t01=0x0182}
0x20d2…2100 Head {h00=0x002a, h01=0x0050, text=» CF A15,VOLADR DWT VOLUME NAME ADDRESS«, t00=0x0015, t01=0x0008}
0x2100…2120 Head {h00=0x001c, h01=0x0050, text=» LDK A7,0 RESET NVL FLAG«, t00=0x0015, t01=0x0036}
0x2120…212a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0056}
0x212a…213e Head {h00=0x0010, h01=0x0050, text=»VGET10 EQU *«, t00=0x0015, t01=0x0060}
0x213e…216e Head {h00=0x002c, h01=0x0050, text=» LDR* A8,A2 ONE WORD OF NEW VOLUME NAME «, t00=0x0015, t01=0x0074}
0x216e…219e Head {h00=0x002c, h01=0x0050, text=» CWR* A8,A1 COMPARE WITH OLD VOLUME NAME«, t00=0x0015, t01=0x00a4}
0x219e…21b4 Head {h00=0x0012, h01=0x0050, text=» RF(E) VGET20 «, t00=0x0015, t01=0x00d4}
0x21b4…21d2 Head {h00=0x001a, h01=0x0050, text=» LDK A7,1 SET NVL FLAG«, t00=0x0015, t01=0x00ea}
0x21d2…21fa Head {h00=0x0024, h01=0x0050, text=» STR A8,A1 STORE NEW VOLUME NAME«, t00=0x0015, t01=0x0108}
0x21fa…2204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0130}
0x2204…221c Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0015, t01=0x013a}
0x221c…2226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0152}
0x2226…2230 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x015c}
0x2230…2244 Head {h00=0x0010, h01=0x0050, text=»VGET20 EQU *«, t00=0x0015, t01=0x0166}
0x2244…2270 Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT BUFFER POINTERS «, t00=0x0015, t01=0x017a}
0x2270…2282 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0016, t01=0x0016}
0x2282…22aa Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 DECREMENT LOOP COUNTER«, t00=0x0016, t01=0x0028}
0x22aa…22c0 Head {h00=0x0012, h01=0x0050, text=» RB(P) VGET10 «, t00=0x0016, t01=0x0050}
0x22c0…22d6 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0016, t01=0x0066}
0x22d6…22f6 Head {h00=0x001c, h01=0x0050, text=» ADK A7,0 CHECK NVL FLAG«, t00=0x0016, t01=0x007c}
0x22f6…231c Head {h00=0x0022, h01=0x0050, text=» RB(Z) RETURN RETURN IF NO NVL«, t00=0x0016, t01=0x009c}
0x231c…234e Head {h00=0x002e, h01=0x0050, text=» SLA A3,1 CHECK IF TEST STATUS OR RECOVERY«, t00=0x0016, t01=0x00c2}
0x234e…2378 Head {h00=0x0026, h01=0x0050, text=» RB(O) RETURN TEST STATUS, NO NVL «, t00=0x0016, t01=0x00f4}
0x2378…23a4 Head {h00=0x0028, h01=0x0050, text=» SRA A3,1 FILE CODE WITHOUT SIGN BIT«, t00=0x0016, t01=0x011e}
0x23a4…23c6 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTNVL,A4 NVL FLAGS«, t00=0x0016, t01=0x014a}
0x23c6…23fc Head {h00=0x0032, h01=0x0050, text=» RB(N) RETURN NO REQUESTS SO FAR ON THIS DISC «, t00=0x0016, t01=0x016c}
0x23fc…240e Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0017, t01=0x0012}
0x240e…2436 Head {h00=0x0024, h01=0x0050, text=» RB(N) RETURN FIXED DISC, NO NVL«, t00=0x0017, t01=0x0024}
0x2436…2440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x004c}
0x2440…2458 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0017, t01=0x0056}
0x2458…2462 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x006e}
0x2462…246c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0078}
0x246c…247e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0017, t01=0x0082}
0x247e…2490 Head {h00=0x000e, h01=0x0050, text=»* NEWVOL *«, t00=0x0017, t01=0x0094}
0x2490…24a2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0017, t01=0x00a6}
0x24a2…24ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b8}
0x24ac…24b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c2}
0x24b6…24f8 Head {h00=0x003e, h01=0x0050, text=»* NEWVOL IS ENTERED FROM THE ROUTINE VOLGET WHEN IT HAS «, t00=0x0017, t01=0x00cc}
0x24f8…2530 Head {h00=0x0034, h01=0x0050, text=»* DETECTED THAT A NEW VOLUME HAS BEEN MOUNTED.«, t00=0x0017, t01=0x010e}
0x2530…256a Head {h00=0x0036, h01=0x0050, text=»* THE NEW VOLUME LOADED FLAG IS THEN SET BY THIS«, t00=0x0017, t01=0x0146}
0x256a…25a4 Head {h00=0x0036, h01=0x0050, text=»* ROUTINE FOR THE CONCERNED FILE CODE AND FILES «, t00=0x0017, t01=0x0180}
0x25a4…25e0 Head {h00=0x0038, h01=0x0050, text=»* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE «, t00=0x0018, t01=0x002a}
0x25e0…2618 Head {h00=0x0034, h01=0x0050, text=»* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE«, t00=0x0018, t01=0x0066}
0x2618…2644 Head {h00=0x0028, h01=0x0050, text=»* NEXT REQUEST ON THAT FILE CODE. «, t00=0x0018, t01=0x009e}
0x2644…264e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ca}
0x264e…2686 Head {h00=0x0034, h01=0x0050, text=»* INPUT: A3 = FILE CODE (DISC ONE FOR DRIVER)«, t00=0x0018, t01=0x00d4}
0x2686…26b2 Head {h00=0x0028, h01=0x0050, text=»* A4 = DWT ADDRESS + DOUBLE INDEX«, t00=0x0018, t01=0x010c}
0x26b2…26d6 Head {h00=0x0020, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0018, t01=0x0138}
0x26d6…26e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x015c}
0x26e0…270a Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A3 = ACTUAL FILE CODE «, t00=0x0018, t01=0x0166}
0x270a…272a Head {h00=0x001c, h01=0x0050, text=»* A1-A2 ARE DESTROYED«, t00=0x0018, t01=0x0190}
0x272a…2734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0020}
0x2734…2748 Head {h00=0x0010, h01=0x0050, text=»NEWVOL EQU *«, t00=0x0019, t01=0x002a}
0x2748…276a Head {h00=0x001e, h01=0x0050, text=» LD A2,NVLBIT NVL BIT MASK«, t00=0x0019, t01=0x003e}
0x276a…279e Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED «, t00=0x0019, t01=0x0060}
0x279e…27bc Head {h00=0x001a, h01=0x0050, text=» LC A2,DWTOR,A6 INDEX «, t00=0x0019, t01=0x0094}
0x27bc…27ce Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0019, t01=0x00b2}
0x27ce…27f2 Head {h00=0x0020, h01=0x0050, text=» ADR A3,A2 ACTUAL FILE CODE «, t00=0x0019, t01=0x00c4}
0x27f2…27fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00e8}
0x27fc…2814 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0019, t01=0x00f2}
0x2814…281e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x010a}
0x281e…2828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0114}
0x2828…283e Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=0 «, t00=0x0019, t01=0x011e}
0x283e…2850 Head {h00=0x000e, h01=0x0050, text=» RB RETURN«, t00=0x0019, t01=0x0134}
0x2850…285c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0146}
0x285c…2866 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0152}
0x2866…287c Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x0019, t01=0x015c}
0x287c…28aa Head {h00=0x002a, h01=0x0050, text=» LDKL A1,SCTFWT ADDRESS TO FWT POINTER«, t00=0x0019, t01=0x0172}
0x28aa…28b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0010}
0x28b4…28f6 Head {h00=0x003e, h01=0x0050, text=»* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME «, t00=0x001a, t01=0x001a}
0x28f6…2900 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x005c}
0x2900…2914 Head {h00=0x0010, h01=0x0050, text=»NEW:10 EQU *«, t00=0x001a, t01=0x0066}
0x2914…2938 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A1 NEXT FWT ADDRESS«, t00=0x001a, t01=0x007a}
0x2938…295c Head {h00=0x0020, h01=0x0050, text=» RB(Z) RETURN NO MORE FWT:S «, t00=0x001a, t01=0x009e}
0x295c…2980 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A2 SAVE FWT ADDRESS «, t00=0x001a, t01=0x00c2}
0x2980…29b6 Head {h00=0x0032, h01=0x0050, text=» ADKL A2,FWTEW1 ADDRESS TO FIRST EWT STRUCTURE«, t00=0x001a, t01=0x00e6}
0x29b6…29c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x011c}
0x29c0…29d4 Head {h00=0x0010, h01=0x0050, text=»NEW:20 EQU *«, t00=0x001a, t01=0x0126}
0x29d4…2a00 Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A2 ADDRESS TO 2ND EWT BLOCK«, t00=0x001a, t01=0x013a}
0x2a00…2a28 Head {h00=0x0024, h01=0x0050, text=» CC A3,EWTVOL,A2 CHECK FILE CODE«, t00=0x001a, t01=0x0166}
0x2a28…2a3e Head {h00=0x0012, h01=0x0050, text=» RF(NE) NEW:30«, t00=0x001a, t01=0x018e}
0x2a3e…2a5c Head {h00=0x001a, h01=0x0050, text=» LDKL A2,/8000 NVL BIT«, t00=0x001b, t01=0x0014}
0x2a5c…2a90 Head {h00=0x0030, h01=0x0050, text=» ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED«, t00=0x001b, t01=0x0032}
0x2a90…2aa2 Head {h00=0x000e, h01=0x0050, text=» RB NEW:10«, t00=0x001b, t01=0x0066}
0x2aa2…2aac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0078}
0x2aac…2ac0 Head {h00=0x0010, h01=0x0050, text=»NEW:30 EQU *«, t00=0x001b, t01=0x0082}
0x2ac0…2af2 Head {h00=0x002e, h01=0x0050, text=» LDR* A2,A2 ADDRESS TO NEXT EWT STRUCTURE «, t00=0x001b, t01=0x0096}
0x2af2…2b22 Head {h00=0x002c, h01=0x0050, text=» RB(Z) NEW:10 END OF THIS EWT STRUCTURE «, t00=0x001b, t01=0x00c8}
0x2b22…2b4e Head {h00=0x0028, h01=0x0050, text=» RB NEW:20 CONTINUE WITH NEXT EXTENT«, t00=0x001b, t01=0x00f8}
0x2b4e…2b5a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0124}
0x2b5a…2b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0130}
0x2b64…2b7c Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x001b, t01=0x013a}
0x2b7c…2b86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0152}
0x2b86…2b90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x015c}
0x2b90…2ba2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001b, t01=0x0166}
0x2ba2…2bb4 Head {h00=0x000e, h01=0x0050, text=»* INXDWT *«, t00=0x001b, t01=0x0178}
0x2bb4…2bc6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001b, t01=0x018a}
0x2bc6…2bd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x000c}
0x2bd0…2bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0016}
0x2bda…2c26 Head {h00=0x0048, h01=0x0050, text=»* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. «, t00=0x001c, t01=0x0020}
0x2c26…2c30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x006c}
0x2c30…2c54 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS«, t00=0x001c, t01=0x0076}
0x2c54…2c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x009a}
0x2c5e…2c92 Head {h00=0x0030, h01=0x0050, text=»* OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX «, t00=0x001c, t01=0x00a4}
0x2c92…2cc0 Head {h00=0x002a, h01=0x0050, text=»* NO REGISTERS ARE DESTROYED«, t00=0x001c, t01=0x00d8}
0x2cc0…2cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0106}
0x2cca…2cde Head {h00=0x0010, h01=0x0050, text=»INXDWT EQU *«, t00=0x001c, t01=0x0110}
0x2cde…2cfc Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTOR,A6 INDEX «, t00=0x001c, t01=0x0124}
0x2cfc…2d0e Head {h00=0x000e, h01=0x0050, text=» ANK A4,/3«, t00=0x001c, t01=0x0142}
0x2d0e…2d2e Head {h00=0x001c, h01=0x0050, text=» ADR A4,A4 DOUBLE INDEX «, t00=0x001c, t01=0x0154}
0x2d2e…2d40 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x001c, t01=0x0174}
0x2d40…2d52 Head {h00=0x000e, h01=0x0050, text=» RB RETURN«, t00=0x001c, t01=0x0186}
0x2d52…2d5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0008}
0x2d5c…2d74 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x001d, t01=0x0012}
0x2d74…2d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x002a}
0x2d7e…2d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0034}
0x2d88…2d9a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x003e}
0x2d9a…2dac Head {h00=0x000e, h01=0x0050, text=»* NVLTAB *«, t00=0x001d, t01=0x0050}
0x2dac…2dbe Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x0062}
0x2dbe…2dc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0074}
0x2dc8…2dd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x007e}
0x2dd2…2e0a Head {h00=0x0034, h01=0x0050, text=»* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS«, t00=0x001d, t01=0x0088}
0x2e0a…2e44 Head {h00=0x0036, h01=0x0050, text=»* THAT WILL RECEIVE NEW VOLUME LOADED WHEN A NEW«, t00=0x001d, t01=0x00c0}
0x2e44…2e68 Head {h00=0x0020, h01=0x0050, text=»* VOLUME HAS BEEN MOUNTED.«, t00=0x001d, t01=0x00fa}
0x2e68…2e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x011e}
0x2e72…2e86 Head {h00=0x0010, h01=0x0050, text=»NVLTAB EQU *«, t00=0x001d, t01=0x0128}
0x2e86…2e9c Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x001d, t01=0x013c}
0x2e9c…2ebc Head {h00=0x001c, h01=0x0050, text=» DATA TTABFM FMTASK TTAB«, t00=0x001d, t01=0x0152}
0x2ebc…2ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0172}
0x2ec6…2ee2 Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x001d, t01=0x017c}
0x2ee2…2f02 Head {h00=0x001c, h01=0x0050, text=» DATA TTABLD LDTASK TTAB«, t00=0x001e, t01=0x0008}
0x2f02…2f0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0028}
0x2f0e…2f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0034}
0x2f18…2f2c Head {h00=0x0010, h01=0x0050, text=»NVLDMT EQU *«, t00=0x001e, t01=0x003e}
0x2f2c…2f42 Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x001e, t01=0x0052}
0x2f42…2f58 Head {h00=0x0012, h01=0x0050, text=» IFT DATMAN=1 «, t00=0x001e, t01=0x0068}
0x2f58…2f70 Head {h00=0x0014, h01=0x0050, text=» DATA 0 TTAB #D «, t00=0x001e, t01=0x007e}
0x2f70…2f88 Head {h00=0x0014, h01=0x0050, text=» DATA 0 TTAB #E «, t00=0x001e, t01=0x0096}
0x2f88…2fa0 Head {h00=0x0014, h01=0x0050, text=» DATA 0 TTAB #F «, t00=0x001e, t01=0x00ae}
0x2fa0…2fb8 Head {h00=0x0014, h01=0x0050, text=» DATA 0 TTAB #G «, t00=0x001e, t01=0x00c6}
0x2fb8…2fc4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00de}
0x2fc4…2fce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ea}
0x2fce…2fe4 Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x001e, t01=0x00f4}
0x2fe4…2ff8 Head {h00=0x0010, h01=0x0050, text=»NVLEND EQU *«, t00=0x001e, t01=0x010a}
0x2ff8…3002 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x011e}
0x3002…3024 Head {h00=0x001e, h01=0x0050, text=»NVLBIT DATA 0 NVL BIT MASK«, t00=0x001e, t01=0x0128}
0x3024…3030 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x014a}
0x3030…303a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0156}
0x303a…3052 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x001e, t01=0x0160}
0x3052…305c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0178}
0x305c…3066 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0182}
0x3066…307c Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=0 «, t00=0x001e, t01=0x018c}
0x307c…3098 Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x001f, t01=0x0012}
0x3098…30b8 Head {h00=0x001c, h01=0x0050, text=» DATA TTABLD LDTASK TTAB«, t00=0x001f, t01=0x002e}
0x30b8…30c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004e}
0x30c2…30d6 Head {h00=0x0010, h01=0x0050, text=»NVLEND EQU *«, t00=0x001f, t01=0x0058}
0x30d6…30e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x006c}
0x30e0…3102 Head {h00=0x001e, h01=0x0050, text=»NVLBIT DATA 3 NVL BIT MASK«, t00=0x001f, t01=0x0076}
0x3102…310e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0098}
0x310e…3118 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00a4}
0x3118…312e Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=0 «, t00=0x001f, t01=0x00ae}
0x312e…314a Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG+SWPBLK=0«, t00=0x001f, t01=0x00c4}
0x314a…3154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00e0}
0x3154…3168 Head {h00=0x0010, h01=0x0050, text=»NVLEND EQU *«, t00=0x001f, t01=0x00ea}
0x3168…3172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00fe}
0x3172…3194 Head {h00=0x001e, h01=0x0050, text=»NVLBIT DATA 1 NVL BIT MASK«, t00=0x001f, t01=0x0108}
0x3194…31a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x012a}
0x31a0…31aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0136}
0x31aa…31b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0140}
0x31b4…31be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x014a}
0x31be…31ca Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x001f, t01=0x0154}
0x31ca…31ce Head {h00=0x4004, h01=0x0000}
0x31ce…31d2 00 1f 01 60 ┆ `┆
0x31d2…31da (32, 1, 8) 20 04 00 00 00 20 00 04 ┆ ┆
0x31da…322a (33, 0, 398) 31 2c 36 5c 49 4e 20 50 4f 53 49 54 49 4f 4e 20 00 68 01 8a 00 1a 00 50 5c 53 54 5c 41 31 2c 44 57 54 50 41 47 2c 41 36 5c 50 41 47 45 20 00 69 00 18 00 1c 00 50 5c 41 44 4b 4c 5c 41 31 2c 2f 34 30 30 5c 4e 45 58 54 20 50 41 47 45 20 00 69 ┆1,6 IN POSITION h P ST A1,DWTPAG,A6 PAGE i P ADKL A1,/400 NEXT PAGE i┆
0x322a…327a 00 36 00 28 00 50 5c 53 54 5c 41 31 2c 44 57 54 50 41 47 2b 32 2c 41 36 5c 50 53 45 55 44 4f 20 4d 4d 55 20 54 41 42 4c 45 20 00 69 00 56 00 0e 00 50 5c 53 52 4c 5c 41 32 2c 33 20 00 69 00 82 00 24 00 50 5c 53 54 5c 41 32 2c 44 57 54 55 42 ┆ 6 ( P ST A1,DWTPAG+2,A6 PSEUDO MMU TABLE i V P SRL A2,3 i $ P ST A2,DWTUB┆
0x327a…32ca 55 2c 41 36 5c 4c 4f 47 49 43 41 4c 20 41 44 44 52 45 53 53 00 69 00 94 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 69 00 bc 00 06 00 50 2a 20 00 69 00 cc 00 08 00 50 5c 58 49 46 00 69 00 d6 00 06 00 50 2a 20 00 69 00 e2 00 14 00 50 5c 45 4a 45 ┆U,A6 LOGICAL ADDRESS i P RTN A5 i P* i P XIF i P* i P EJE┆
0x32ca…331a 43 54 5c 5c 5c 44 52 44 55 30 31 20 00 69 00 ec 00 06 00 50 2a 20 00 69 01 04 00 12 00 50 5c 49 46 54 5c 56 45 52 53 41 33 3d 31 20 00 69 01 0e 00 06 00 50 2a 20 00 69 01 24 00 06 00 50 2a 20 00 69 01 2e 00 22 00 50 2a 2a 2a 2a 2a 2a 2a 2a ┆CT DRDU01 i P* i P IFT VERSA3=1 i P* i $ P* i . " P********┆
0x331a…3368 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 69 01 38 00 06 00 50 2a 20 00 69 01 5e 00 26 00 50 2a 20 20 55 50 44 41 54 45 20 44 52 49 56 45 52 20 42 55 46 46 45 52 20 49 4e 44 49 43 41 54 4f 52 20 00 69 01 68 ┆********************** i 8 P* i ^ & P* UPDATE DRIVER BUFFER INDICATOR i h┆
0x3368…33b8 (34, 0, 400) 00 06 00 50 2a 20 00 6a 00 04 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 6a 00 0e 00 06 00 50 2a 20 00 6a 00 36 00 2a 00 50 2a 20 20 20 49 4e 50 55 54 20 20 41 31 3d 52 45 ┆ P* j $ P******************************* j P* j 6 * P* INPUT A1=RE┆
0x33b8…3408 54 55 52 4e 20 43 4f 44 45 20 28 41 46 54 45 52 20 52 45 41 44 29 00 6a 00 40 00 2e 00 50 2a 20 20 20 4f 55 54 50 55 54 20 44 57 54 42 53 45 3d 44 52 49 56 45 52 20 42 55 46 46 45 52 20 49 4e 44 49 43 41 54 4f 52 20 00 6a 00 6e 00 06 00 50 ┆TURN CODE (AFTER READ) j @ . P* OUTPUT DWTBSE=DRIVER BUFFER INDICATOR j n P┆
0x3408…3458 2a 20 00 6a 00 a0 00 10 00 50 42 53 45 4c 4f 44 5c 45 51 55 5c 2a 00 6a 00 aa 00 26 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 36 5c 47 45 54 20 52 45 41 44 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 00 6a 00 be 00 22 00 50 42 53 45 4c 30 30 5c 45 ┆* j PBSELOD EQU * j & P LDR* A3,A6 GET READ SECTOR NUMBER j " PBSEL00 E┆
0x3458…34a8 51 55 5c 2a 5c 46 52 4f 4d 20 53 45 45 4b 20 56 45 52 49 46 59 20 00 6a 00 e8 00 14 00 50 5c 4c 44 5c 41 32 2c 44 57 54 46 42 55 2c 41 36 00 6a 01 0e 00 2c 00 50 5c 52 46 28 5a 29 5c 42 53 45 4c 35 30 5c 52 45 41 44 2f 57 52 49 54 45 20 54 ┆QU * FROM SEEK VERIFY j P LD A2,DWTFBU,A6 j , P RF(Z) BSEL50 READ/WRITE T┆
0x34a8…34f8 4f 20 55 53 45 52 20 42 55 46 46 45 52 20 00 6a 01 26 00 18 00 50 5c 4c 44 4b 4c 5c 41 32 2c 2f 46 46 46 46 5c 44 55 4d 4d 59 00 6a 01 56 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 30 20 00 6a 01 72 00 1e 00 50 5c 52 46 28 4e 5a 29 5c 42 53 45 4c ┆O USER BUFFER j & P LDKL A2,/FFFF DUMMY j V P ADK A1,0 j r P RF(NZ) BSEL┆
0x34f8…3548 (35, 0, 400) 34 30 5c 52 45 41 44 20 45 52 52 4f 52 20 00 6a 01 84 00 1e 00 50 5c 4c 44 5c 41 32 2c 44 57 54 4f 52 2c 41 36 5c 47 45 54 20 49 4e 44 45 58 20 00 6b 00 16 00 12 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 33 30 30 20 00 6b 00 38 00 0e 00 50 5c 53 ┆40 READ ERROR j P LD A2,DWTOR,A6 GET INDEX k P ANKL A2,/300 k 8 P S┆
0x3548…3598 4c 4c 5c 41 32 2c 36 20 00 6b 00 4e 00 0e 00 50 5c 4f 52 52 5c 41 32 2c 41 33 00 6b 00 60 00 10 00 50 42 53 45 4c 34 30 5c 45 51 55 5c 2a 00 6b 00 72 00 34 00 50 5c 53 54 5c 41 32 2c 44 57 54 42 53 45 2c 41 36 5c 55 50 44 41 54 45 20 44 52 ┆LL A2,6 k N P ORR A2,A3 k ` PBSEL40 EQU * k r 4 P ST A2,DWTBSE,A6 UPDATE DR┆
0x3598…35e8 49 56 45 52 20 42 55 46 46 45 52 20 49 4e 44 49 43 41 54 4f 52 20 00 6b 00 86 00 10 00 50 42 53 45 4c 35 30 5c 45 51 55 5c 2a 00 6b 00 be 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 6b 00 d2 00 06 00 50 2a 20 00 6b 00 e2 00 12 00 50 5c 45 4a 45 ┆IVER BUFFER INDICATOR k PBSEL50 EQU * k P RTN A5 k P* k P EJE┆
0x35e8…3638 43 54 5c 5c 44 52 44 55 30 31 00 6b 00 ec 00 06 00 50 2a 20 00 6b 01 02 00 06 00 50 2a 20 00 6b 01 0c 00 2c 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 20 00 6b ┆CT DRDU01 k P* k P* k , P*************************************** k┆
0x3638…3688 01 16 00 2c 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 2a 20 00 6b 01 46 00 2c 00 50 2a 20 20 20 52 45 53 54 4f 52 45 20 57 4f 52 44 20 54 4f 20 55 53 45 52 20 42 ┆ , P* * k F , P* RESTORE WORD TO USER B┆
0x3688…36d8 (36, 0, 400) 55 46 46 45 52 20 20 20 20 20 20 20 2a 20 00 6b 01 76 00 2c 00 50 2a 20 20 20 49 46 20 4e 45 43 45 53 53 41 52 59 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 6c 00 16 00 2c 00 50 2a 20 20 20 20 20 20 20 20 20 ┆UFFER * k v , P* IF NECESSARY * l , P* ┆
0x36d8…3728 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 6c 00 46 00 2c 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 20 00 6c ┆ * l F , P*************************************** l┆
0x3728…3778 00 76 00 06 00 50 2a 20 00 6c 00 a6 00 2a 00 50 2a 20 20 20 49 4e 50 55 54 3a 20 44 57 54 46 53 57 3d 53 41 56 45 44 20 57 4f 52 44 20 49 4e 44 49 43 41 54 4f 52 00 6c 00 b0 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 44 57 54 53 57 44 3d ┆ v P* l * P* INPUT: DWTFSW=SAVED WORD INDICATOR l P* DWTSWD=┆
0x3778…37c8 53 41 56 45 44 20 57 4f 52 44 00 6c 00 de 00 2c 00 50 2a 20 20 20 20 20 20 20 20 20 20 44 57 54 55 42 55 3d 50 4f 49 4e 54 45 52 20 54 4f 20 55 53 45 52 20 42 55 46 46 45 52 00 6c 01 02 00 06 00 50 2a 20 00 6c 01 32 00 10 00 50 52 45 57 4f ┆SAVED WORD l , P* DWTUBU=POINTER TO USER BUFFER l P* l 2 PREWO┆
0x37c8…3818 52 44 5c 45 51 55 5c 2a 00 6c 01 3c 00 14 00 50 5c 4c 44 5c 41 33 2c 44 57 54 46 53 57 2c 41 36 00 6c 01 50 00 20 00 50 5c 52 46 28 5a 29 5c 52 45 57 4f 35 30 5c 4e 4f 20 53 41 56 45 44 20 57 4f 52 44 20 00 6c 01 68 00 14 00 50 5c 4c 44 5c ┆RD EQU * l < P LD A3,DWTFSW,A6 l P P RF(Z) REWO50 NO SAVED WORD l h P LD ┆