|
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: 14362 (0x381a)
Notes: pts_type(SC)
Names: »DSKSUB.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:LP/DSKSUB.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:LP/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 0 * * * 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 0«, 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, 400) 20 42 59 20 53 45 54 54 49 4e 47 20 58 3a 42 3d 31 20 00 08 01 7e 00 06 00 50 2a 20 00 09 00 1a 00 0e 00 50 58 3a 42 5c 45 51 55 5c 30 20 00 09 00 24 00 12 00 50 46 4c 41 53 48 5c 45 51 55 5c 58 3a 42 20 00 09 00 36 00 06 00 50 2a 20 00 09 ┆ BY SETTING X:B=1 ~ P* PX:B EQU 0 $ PFLASH EQU X:B 6 P* ┆
0x322a…327a 00 4c 00 06 00 50 2a 20 00 09 00 56 00 2e 00 50 2a 5c 41 20 50 52 4f 47 52 41 4d 20 56 45 52 53 49 4f 4e 20 55 53 49 4e 47 20 54 4f 53 53 20 4d 4d 55 20 50 41 47 49 4e 47 20 00 09 00 60 00 2a 00 50 2a 5c 49 53 20 4f 42 54 41 49 4e 45 44 20 ┆ L P* V . P* A PROGRAM VERSION USING TOSS MMU PAGING ` * P* IS OBTAINED ┆
0x327a…32ca 42 59 20 53 45 54 54 49 4e 47 20 4d 4d 55 50 41 47 20 45 51 55 20 31 2e 00 09 00 92 00 06 00 50 2a 20 00 09 00 c0 00 10 00 50 4d 4d 55 50 41 47 5c 45 51 55 5c 30 00 09 00 ca 00 06 00 50 2a 20 00 09 00 de 00 06 00 50 2a 20 00 09 00 e8 00 36 ┆BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6┆
0x32ca…331a 00 50 2a 5c 41 20 50 52 4f 47 52 41 4d 20 56 45 52 53 49 4f 4e 20 55 53 49 4e 47 20 54 48 45 20 45 58 54 45 4e 44 45 44 20 49 4e 53 54 52 55 43 54 49 4f 4e 00 09 00 f2 00 2e 00 50 2a 5c 53 45 54 20 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 ┆ P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY┆
0x331a…336a 20 53 45 54 54 49 4e 47 20 43 50 55 38 35 32 20 45 51 55 20 30 2e 00 09 01 2c 00 06 00 50 2a 20 00 09 01 5e 00 10 00 50 43 50 55 38 35 32 5c 45 51 55 5c 31 00 09 01 68 00 06 00 50 2a 20 00 09 01 7c 00 0a 00 50 5c 45 4a 45 43 54 00 09 01 86 ┆ SETTING CPU852 EQU 0. , P* ^ PCPU852 EQU 1 h P* | P EJECT ┆
0x336a…33ba (34, 0, 400) 00 06 00 50 2a 20 00 0a 00 04 00 06 00 50 2a 20 00 0a 00 0e 00 18 00 50 2a 20 20 20 4d 4d 55 20 42 55 46 46 45 52 20 53 49 5a 45 20 00 0a 00 18 00 06 00 50 2a 20 00 0a 00 34 00 0e 00 50 58 3a 43 5c 45 51 55 5c 34 20 00 0a 00 3e 00 12 00 50 ┆ P* P* P* MMU BUFFER SIZE P* 4 PX:C EQU 4 > P┆
0x33ba…340a 44 56 42 4c 45 4e 5c 45 51 55 5c 58 3a 43 00 0a 00 50 00 06 00 50 2a 20 00 0a 00 66 00 06 00 50 2a 20 00 0a 00 70 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0a 00 7a 00 1a 00 50 2a 20 44 57 54 2d 44 49 ┆DVBLEN EQU X:C P P* f P* p P********************* z P* DWT-DI┆
0x340a…345a 53 50 4c 41 43 45 4d 45 4e 54 53 20 2a 20 00 0a 00 98 00 1a 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0a 00 b6 00 06 00 50 2a 20 00 0a 00 d4 00 06 00 50 2a 20 00 0a 00 de 00 30 00 50 44 57 54 44 52 44 5c 45 ┆SPLACEMENTS * P********************* P* P* 0 PDWTDRD E┆
0x345a…34aa 51 55 5c 2f 31 30 5c 53 54 41 52 54 20 4f 46 20 44 52 49 56 45 52 20 44 45 46 49 4e 45 44 20 50 41 52 54 20 00 0a 00 e8 00 06 00 50 2a 20 00 0a 01 1c 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20 00 0a 01 26 00 14 00 50 53 54 41 52 ┆QU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 & PSTAR┆
0x34aa…34fa 54 5c 45 51 55 5c 44 57 54 44 52 44 00 0a 01 3c 00 08 00 50 5c 58 49 46 00 0a 01 54 00 06 00 50 2a 20 00 0a 01 60 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 0a 01 6a 00 16 00 50 53 54 41 52 54 5c 45 51 55 5c 44 57 54 44 52 44 ┆T EQU DWTDRD < P XIF T P* ` P IFT MMUPAG=1 j PSTART EQU DWTDRD┆
0x34fa…354a (35, 0, 400) 2b 34 00 0a 01 80 00 08 00 50 5c 58 49 46 00 0b 00 0a 00 06 00 50 2a 20 00 0b 00 16 00 22 00 50 44 57 54 44 49 42 5c 45 51 55 5c 53 54 41 52 54 2b 2f 30 32 5c 53 41 56 45 20 41 52 45 41 00 0b 00 20 00 32 00 50 44 57 54 46 4c 41 5c 45 51 55 ┆+4 P XIF P* " PDWTDIB EQU START+/02 SAVE AREA 2 PDWTFLA EQU┆
0x354a…359a 5c 53 54 41 52 54 2b 2f 30 38 5c 53 41 56 45 20 41 52 45 41 20 46 4f 52 20 46 4c 41 53 48 20 49 4d 41 47 45 00 0b 00 46 00 26 00 50 44 57 54 54 50 5c 45 51 55 5c 53 54 41 52 54 2b 2f 30 41 5c 54 49 4d 45 52 20 50 4f 49 4e 54 45 52 20 00 0b ┆ START+/08 SAVE AREA FOR FLASH IMAGE F & PDWTTP EQU START+/0A TIMER POINTER ┆
0x359a…35ea 00 7c 00 1a 00 50 54 49 4d 45 5c 45 51 55 5c 35 5c 46 4c 41 53 48 20 54 49 4d 45 20 00 0b 00 a6 00 06 00 50 2a 20 00 0b 00 c4 00 0a 00 50 5c 45 4a 45 43 54 00 0b 00 ce 00 06 00 50 2a 20 00 0b 00 dc 00 10 00 50 2a 20 20 20 20 41 20 43 20 44 ┆ | PTIME EQU 5 FLASH TIME P* P EJECT P* P* A C D┆
0x35ea…363a 20 49 00 0b 00 e6 00 06 00 50 2a 20 00 0b 00 fa 00 3e 00 50 2a 20 20 20 41 43 54 49 56 41 54 49 4f 4e 20 50 41 52 54 3a 20 43 48 45 43 4b 53 20 56 41 4c 49 44 49 54 59 20 4f 46 20 4f 52 44 45 52 53 20 41 4e 44 20 53 54 41 52 54 53 20 00 0b ┆ I P* > P* ACTIVATION PART: CHECKS VALIDITY OF ORDERS AND STARTS ┆
0x363a…368a 01 04 00 16 00 50 2a 20 20 20 54 48 45 20 50 52 4f 43 45 53 53 49 4e 47 00 0b 01 46 00 06 00 50 2a 20 00 0b 01 60 00 06 00 50 2a 20 00 0b 01 6a 00 0e 00 50 41 43 44 49 5c 45 51 55 5c 2a 00 0b 01 74 00 16 00 50 5c 49 46 54 5c 4f 52 44 37 2d ┆ P* THE PROCESSING F P* ` P* j PACDI EQU * t P IFT ORD7-┆
0x368a…36da (36, 0, 400) 43 52 45 44 49 54 3d 31 00 0b 01 86 00 12 00 50 5c 43 43 4b 5c 41 37 2c 2f 30 37 30 37 20 00 0c 00 10 00 1c 00 50 5c 52 46 28 45 29 5c 41 44 49 30 35 30 5c 4f 52 44 45 52 20 2f 30 37 20 00 0c 00 26 00 08 00 50 5c 58 49 46 00 0c 00 46 00 16 ┆CREDIT=1 P CCK A7,/0707 P RF(E) ADI050 ORDER /07 & P XIF F ┆
0x36da…372a 00 50 5c 49 46 54 5c 4f 52 44 37 2b 43 52 45 44 49 54 3d 32 00 0c 00 52 00 12 00 50 5c 43 43 4b 5c 41 37 2c 2f 30 36 30 36 20 00 0c 00 6c 00 1c 00 50 5c 52 46 28 45 29 5c 41 44 49 30 35 30 5c 4f 52 44 45 52 20 2f 30 36 20 00 0c 00 82 00 08 ┆ P IFT ORD7+CREDIT=2 R P CCK A7,/0606 l P RF(E) ADI050 ORDER /06 ┆
0x372a…377a 00 50 5c 58 49 46 00 0c 00 a2 00 24 00 50 5c 4c 44 5c 41 34 2c 31 30 2c 41 38 5c 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 54 4f 20 41 34 20 00 0c 00 ae 00 10 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 36 20 00 0c 00 d6 00 34 00 50 5c 41 4e 4b 5c 41 ┆ P XIF $ P LD A4,10,A8 CONTROL WORD TO A4 P LDR* A3,A6 4 P ANK A┆
0x377a…37ca 33 2c 2f 31 30 5c 54 45 53 54 20 49 46 20 4f 4e 45 20 4f 52 20 54 57 4f 20 43 48 41 52 41 43 54 45 52 20 44 45 56 49 43 45 20 00 0c 00 ea 00 28 00 50 5c 52 46 28 4e 5a 29 5c 41 44 49 30 30 35 5c 4f 4e 45 20 43 48 41 52 41 43 54 45 52 20 44 ┆3,/10 TEST IF ONE OR TWO CHARACTER DEVICE ( P RF(NZ) ADI005 ONE CHARACTER D┆
0x37ca…381a 45 56 49 43 45 20 00 0c 01 22 00 22 00 50 5c 4c 44 52 5c 41 33 2c 41 34 5c 43 4f 4e 54 52 4f 4c 20 57 4f 52 44 20 74 4f 20 41 33 20 00 0c 01 4e 00 0e 00 50 5c 41 4e 4b 5c 41 34 2c 2f 46 00 0c 01 74 00 10 00 50 5c 41 4e 4b 5c 41 33 2c 2f 46 ┆EVICE " " P LDR A3,A4 CONTROL WORD tO A3 N P ANK A4,/F t P ANK A3,/F┆