|
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: 14358 (0x3816)
Notes: pts_type(SC)
Names: »DSKSUB.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:TU10/DSKSUB.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:TU10/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 1 * * * A PROGRAM VERSION SUPPORTING DATA MANAGEMENT * IS OBTAINED BY SETTING DATMAN EQU 1. * X:B EQU 0 DATMAN EQU 1 * 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…0d68 Head {h00=0x0010, h01=0x0050, text=»FILMAN EQU 1«, t00=0x0008, t01=0x00d8}
0x0d68…0d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ec}
0x0d72…0d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d7c…0db2 Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING DATA MANAGEMENT«, t00=0x0008, t01=0x0100}
0x0db2…0de0 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING DATMAN EQU 1.«, t00=0x0008, t01=0x0136}
0x0de0…0dea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0164}
0x0dea…0dfc Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x016e}
0x0dfc…0e10 Head {h00=0x0010, h01=0x0050, text=»DATMAN EQU 1«, t00=0x0008, t01=0x0180}
0x0e10…0e1a (9, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e1a…0e32 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0009, t01=0x000e}
0x0e32…0e3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0026}
0x0e3c…0e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0030}
0x0e46…0e58 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x003a}
0x0e58…0e6a Head {h00=0x000e, h01=0x0050, text=»* VOLCLR *«, t00=0x0009, t01=0x004c}
0x0e6a…0e7c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x005e}
0x0e7c…0e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0070}
0x0e86…0e90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x007a}
0x0e90…0eca Head {h00=0x0036, h01=0x0050, text=»* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S)«, t00=0x0009, t01=0x0084}
0x0eca…0ef0 Head {h00=0x0022, h01=0x0050, text=»* IN THE REQUESTED DISC DWT.«, t00=0x0009, t01=0x00be}
0x0ef0…0efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00e4}
0x0efa…0f2c Head {h00=0x002e, h01=0x0050, text=»* INPUT: A1 = NUMBER OF BYTES TO CLEAR «, t00=0x0009, t01=0x00ee}
0x0f2c…0f50 Head {h00=0x0020, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0009, t01=0x0120}
0x0f50…0f5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0144}
0x0f5a…0f82 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: A1, A2 ARE DESTROYED«, t00=0x0009, t01=0x014e}
0x0f82…0f8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0176}
0x0f8c…0fa0 Head {h00=0x0010, h01=0x0050, text=»VOLCLR EQU *«, t00=0x0009, t01=0x0180}
0x0fa0…0fb2 (10, 0, 400) Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x000a, t01=0x0004}
0x0fb2…0fdc Head {h00=0x0026, h01=0x0050, text=» CF A15,VOLADR VOLUME NAME ADDRESS«, t00=0x000a, t01=0x0016}
0x0fdc…0fe6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0040}
0x0fe6…0ffa Head {h00=0x0010, h01=0x0050, text=»VCLR10 EQU *«, t00=0x000a, t01=0x004a}
0x0ffa…1018 Head {h00=0x001a, h01=0x0050, text=» CMR A1 CLEAR ONE WORD«, t00=0x000a, t01=0x005e}
0x1018…103c Head {h00=0x0020, h01=0x0050, text=» ADK A1,2 INCREMENT POINTER «, t00=0x000a, t01=0x007c}
0x103c…1064 Head {h00=0x0024, h01=0x0050, text=» SUK A2,2 DECREMENT LOOP COUNTER«, t00=0x000a, t01=0x00a0}
0x1064…107a Head {h00=0x0012, h01=0x0050, text=» RB(P) VCLR10 «, t00=0x000a, t01=0x00c8}
0x107a…108c Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x000a, t01=0x00de}
0x108c…1096 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00f0}
0x1096…10ac Head {h00=0x0012, h01=0x0050, text=» EJECT DSKSUB«, t00=0x000a, t01=0x00fa}
0x10ac…10b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0110}
0x10b6…10c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x011a}
0x10c0…10d2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x0124}
0x10d2…10e4 Head {h00=0x000e, h01=0x0050, text=»* VOLNAM *«, t00=0x000a, t01=0x0136}
0x10e4…10f6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x0148}
0x10f6…1100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x015a}
0x1100…110a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0164}
0x110a…1148 Head {h00=0x003a, h01=0x0050, text=»* VOLNAM WILL MOVE THE VOLUME NAME OF SELECTED DISC «, t00=0x000a, t01=0x016e}
0x1148…1180 Head {h00=0x0034, h01=0x0050, text=»* TO THE USER BUFFER IF REQUESTED LENGTH = 6. «, t00=0x000b, t01=0x001c}
0x1180…118a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0054}
0x118a…11ae Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS«, t00=0x000b, t01=0x005e}
0x11ae…11d2 Head {h00=0x0020, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x000b, t01=0x0082}
0x11d2…11dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00a6}
0x11dc…1204 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: A1-A4 ARE DESTROYED «, t00=0x000b, t01=0x00b0}
0x1204…120e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00d8}
0x120e…1222 Head {h00=0x0010, h01=0x0050, text=»VOLNAM EQU *«, t00=0x000b, t01=0x00e2}
0x1222…124a Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRL,A8 REQUESTED LENGTH«, t00=0x000b, t01=0x00f6}
0x124a…125c Head {h00=0x000e, h01=0x0050, text=» SUK A1,6 «, t00=0x000b, t01=0x011e}
0x125c…1288 Head {h00=0x0028, h01=0x0050, text=» RF(NE) RETURN NO VOLUME NAME WANTED«, t00=0x000b, t01=0x0130}
0x1288…12b6 Head {h00=0x002a, h01=0x0050, text=» CF A15,VOLADR GET DWT VOLUME ADDRESS «, t00=0x000b, t01=0x015c}
0x12b6…12e2 Head {h00=0x0028, h01=0x0050, text=» ST A4,ECBEL,A8 SET EFFECTIVE LENGTH«, t00=0x000b, t01=0x018a}
0x12e2…12ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0026}
0x12ec…1302 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000c, t01=0x0030}
0x1302…132e Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x000c, t01=0x0046}
0x132e…1338 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0072}
0x1338…1350 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x000c, t01=0x007c}
0x1350…135a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0094}
0x135a…1364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x009e}
0x1364…1378 Head {h00=0x0010, h01=0x0050, text=»VNAM10 EQU *«, t00=0x000c, t01=0x00a8}
0x1378…139a Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A1 MOVE ONE WORD «, t00=0x000c, t01=0x00bc}
0x139a…13ac Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x000c, t01=0x00de}
0x13ac…13d8 Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT BUFFER POINTERS «, t00=0x000c, t01=0x00f0}
0x13d8…13ea Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x000c, t01=0x011c}
0x13ea…1412 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 DECREMENT LOOP COUNTER«, t00=0x000c, t01=0x012e}
0x1412…1428 Head {h00=0x0012, h01=0x0050, text=» RB(P) VNAM10 «, t00=0x000c, t01=0x0156}
0x1428…143a Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x000c, t01=0x016c}
0x143a…1446 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000c, t01=0x017e}
0x1446…1450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018a}
0x1450…1466 (13, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000d, t01=0x0004}
0x1466…149c Head {h00=0x0032, h01=0x0050, text=» LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK «, t00=0x000d, t01=0x001a}
0x149c…14c0 Head {h00=0x0020, h01=0x0050, text=» TS -30,A15 SAVE RUNNING MMU«, t00=0x000d, t01=0x0050}
0x14c0…14e4 Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A2 LOAD USER MMU «, t00=0x000d, t01=0x0074}
0x14e4…150e Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTUEC,A6 USER ECB ADDRESS «, t00=0x000d, t01=0x0098}
0x150e…153a Head {h00=0x0028, h01=0x0050, text=» EL A2,ECBBA,A2 USER BUFFER ADDRESS «, t00=0x000d, t01=0x00c2}
0x153a…155c Head {h00=0x001e, h01=0x0050, text=» MVSU A4 MOVE VOLUME NAME «, t00=0x000d, t01=0x00ee}
0x155c…1584 Head {h00=0x0024, h01=0x0050, text=» TL -30,A15 RESTORE RUNNING MMU «, t00=0x000d, t01=0x0110}
0x1584…1594 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x000d, t01=0x0138}
0x1594…15a0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0148}
0x15a0…15aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0154}
0x15aa…15c0 Head {h00=0x0012, h01=0x0050, text=» EJECT DSKSUB«, t00=0x000d, t01=0x015e}
0x15c0…15ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0174}
0x15ca…15d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017e}
0x15d4…15e6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000d, t01=0x0188}
0x15e6…15f8 Head {h00=0x000e, h01=0x0050, text=»* VOLADR *«, t00=0x000e, t01=0x000a}
0x15f8…160a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x001c}
0x160a…1614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002e}
0x1614…161e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0038}
0x161e…1642 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS«, t00=0x000e, t01=0x0042}
0x1642…164c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0066}
0x164c…1678 Head {h00=0x0028, h01=0x0050, text=»* OUTPUT: A1 = VOLUME NAME ADDRESS«, t00=0x000e, t01=0x0070}
0x1678…168c Head {h00=0x0010, h01=0x0050, text=»* A4 = 6 «, t00=0x000e, t01=0x009c}
0x168c…1696 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00b0}
0x1696…16aa Head {h00=0x0010, h01=0x0050, text=»VOLADR EQU *«, t00=0x000e, t01=0x00ba}
0x16aa…16c8 Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTOR,A6 INDEX «, t00=0x000e, t01=0x00ce}
0x16c8…16d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ec}
0x16d2…16e6 Head {h00=0x0010, h01=0x0050, text=»VOLA05 EQU *«, t00=0x000e, t01=0x00f6}
0x16e6…1700 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,DWTVOL-6 «, t00=0x000e, t01=0x010a}
0x1700…1712 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x000e, t01=0x0124}
0x1712…1724 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/3«, t00=0x000e, t01=0x0136}
0x1724…172e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0148}
0x172e…1742 Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x000e, t01=0x0152}
0x1742…1762 Head {h00=0x001c, h01=0x0050, text=» ADK A1,6 UPDATE ADDRESS«, t00=0x000e, t01=0x0166}
0x1762…1774 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000e, t01=0x0186}
0x1774…178a Head {h00=0x0012, h01=0x0050, text=» RB(NN) VOLA10«, t00=0x000f, t01=0x0008}
0x178a…179c Head {h00=0x000e, h01=0x0050, text=» LDK A4,6 «, t00=0x000f, t01=0x001e}
0x179c…17ae Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x000f, t01=0x0030}
0x17ae…17b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0042}
0x17b8…17d0 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x000f, t01=0x004c}
0x17d0…17da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0064}
0x17da…17e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x006e}
0x17e4…17f6 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x0078}
0x17f6…1808 Head {h00=0x000e, h01=0x0050, text=»* NVLCHK *«, t00=0x000f, t01=0x008a}
0x1808…181a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x009c}
0x181a…1824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ae}
0x1824…182e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b8}
0x182e…186a Head {h00=0x0038, h01=0x0050, text=»* NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER «, t00=0x000f, t01=0x00c2}
0x186a…18a6 Head {h00=0x0038, h01=0x0050, text=»* TO CHECK IF THE RETURN CODE "NEW VOLUME LOADED" «, t00=0x000f, t01=0x00fe}
0x18a6…18e2 Head {h00=0x0038, h01=0x0050, text=»* IS TO BE RETURNED TO THE CALLING TASK (RC=/20). «, t00=0x000f, t01=0x013a}
0x18e2…18ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0176}
0x18ec…1910 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS«, t00=0x000f, t01=0x0180}
0x1910…191a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0014}
0x191a…1954 Head {h00=0x0036, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) «, t00=0x0010, t01=0x001e}
0x1954…1988 Head {h00=0x0030, h01=0x0050, text=»* A2 = DWT ADDRESS + DOUBLE INDEX «, t00=0x0010, t01=0x0058}
0x1988…19b0 Head {h00=0x0024, h01=0x0050, text=»* A3, A4 ARE DESTROYED«, t00=0x0010, t01=0x008c}
0x19b0…19ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00b4}
0x19ba…19ce Head {h00=0x0010, h01=0x0050, text=»NVLCHK EQU *«, t00=0x0010, t01=0x00be}
0x19ce…19f6 Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOR,A6 INDEX AND ORDER «, t00=0x0010, t01=0x00d2}
0x19f6…1a2a Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES «, t00=0x0010, t01=0x00fa}
0x1a2a…1a48 Head {h00=0x001a, h01=0x0050, text=» SRL A2,7 DOUBLE INDEX«, t00=0x0010, t01=0x012e}
0x1a48…1a5a Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0010, t01=0x014c}
0x1a5a…1a7c Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTNVL,A2 NVL FLAG «, t00=0x0010, t01=0x015e}
0x1a7c…1ab2 Head {h00=0x0032, h01=0x0050, text=» ANKL A1,/7FFF RESET BIT 0 (FIRST REQUEST BIT)«, t00=0x0010, t01=0x0180}
0x1ab2…1aca Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTNVL,A2«, t00=0x0011, t01=0x0026}
0x1aca…1aea Head {h00=0x001c, h01=0x0050, text=» ANK A1,/FF CHECK IF NVL«, t00=0x0011, t01=0x003e}
0x1aea…1b10 Head {h00=0x0022, h01=0x0050, text=» RF(Z) RETURN RETURN IF NO NVL«, t00=0x0011, t01=0x005e}
0x1b10…1b36 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTAB,A6 TTAB ADDRESS «, t00=0x0011, t01=0x0084}
0x1b36…1b48 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0011, t01=0x00aa}
0x1b48…1b6e Head {h00=0x0022, h01=0x0050, text=» LDKL A3,NVLTAB NVLTAB ADDRESS«, t00=0x0011, t01=0x00bc}
0x1b6e…1b78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00e2}
0x1b78…1b90 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0011, t01=0x00ec}
0x1b90…1b9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0104}
0x1b9a…1ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x010e}
0x1ba4…1bb8 Head {h00=0x0010, h01=0x0050, text=»NVL:10 EQU *«, t00=0x0011, t01=0x0118}
0x1bb8…1bec Head {h00=0x0030, h01=0x0050, text=» CWK A3,NVLEND CHECK IF END OF TABLE REACHED«, t00=0x0011, t01=0x012c}
0x1bec…1c10 Head {h00=0x0020, h01=0x0050, text=» RF(E) NVL:20 END OF NVLTAB «, t00=0x0011, t01=0x0160}
0x1c10…1c36 Head {h00=0x0022, h01=0x0050, text=» CWR* A4,A3 CHECK TTAB ADDRESS«, t00=0x0011, t01=0x0184}
0x1c36…1c5e Head {h00=0x0024, h01=0x0050, text=» RF(E) NVL:20 NVL FOR THIS TASK «, t00=0x0012, t01=0x001a}
0x1c5e…1c82 Head {h00=0x0020, h01=0x0050, text=» SLL A1,1 SHIFT NVL BIT MASK«, t00=0x0012, t01=0x0042}
0x1c82…1cb0 Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 POINT TO NEXT TTAB IN NVLTAB«, t00=0x0012, t01=0x0066}
0x1cb0…1cc2 Head {h00=0x000e, h01=0x0050, text=» RB NVL:10«, t00=0x0012, t01=0x0094}
0x1cc2…1ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a6}
0x1ccc…1ce0 Head {h00=0x0010, h01=0x0050, text=»NVL:20 EQU *«, t00=0x0012, t01=0x00b0}
0x1ce0…1d14 Head {h00=0x0030, h01=0x0050, text=» AN A1,DWTNVL,A2 CHECK IF NVL FOR THIS TASK «, t00=0x0012, t01=0x00c4}
0x1d14…1d3e Head {h00=0x0026, h01=0x0050, text=» RF(Z) RETURN NO NVL FOR THIS TASK«, t00=0x0012, t01=0x00f8}
0x1d3e…1d66 Head {h00=0x0024, h01=0x0050, text=» XRS A1,DWTNVL,A2 RESET NVL BIT «, t00=0x0012, t01=0x0122}
0x1d66…1d86 Head {h00=0x001c, h01=0x0050, text=» LDK A1,/20 RETURN CODE «, t00=0x0012, t01=0x014a}
0x1d86…1d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x016a}
0x1d90…1da8 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0012, t01=0x0174}
0x1da8…1db2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018c}
0x1db2…1dbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0008}
0x1dbc…1de4 Head {h00=0x0024, h01=0x0050, text=»RETURN EQU * COMMON RETURN LABEL«, t00=0x0013, t01=0x0012}
0x1de4…1dfa Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0013, t01=0x003a}
0x1dfa…1e30 Head {h00=0x0032, h01=0x0050, text=» ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS «, t00=0x0013, t01=0x0050}
0x1e30…1e3c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0086}
0x1e3c…1e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0092}
0x1e46…1e5c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0013, t01=0x009c}
0x1e5c…1e6c Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0013, t01=0x00b2}
0x1e6c…1e78 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00c2}
0x1e78…1e82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ce}
0x1e82…1e9a Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0013, t01=0x00d8}
0x1e9a…1ea4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f0}
0x1ea4…1eae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00fa}
0x1eae…1ec0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0104}
0x1ec0…1ed2 Head {h00=0x000e, h01=0x0050, text=»* VOLGET *«, t00=0x0013, t01=0x0116}
0x1ed2…1ee4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0128}
0x1ee4…1eee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013a}
0x1eee…1ef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0144}
0x1ef8…1f32 Head {h00=0x0036, h01=0x0050, text=»* VOLGET WILL READ VOLUME NAME FROM DISC BUFFER «, t00=0x0013, t01=0x014e}
0x1f32…1f76 Head {h00=0x0040, h01=0x0050, text=»* TO DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. «, t00=0x0013, t01=0x0188}
0x1f76…1f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003c}
0x1f80…1fac Head {h00=0x0028, h01=0x0050, text=»* INPUT: A2 = DISC BUFFER ADDRESS«, t00=0x0014, t01=0x0046}
0x1fac…1fe2 Head {h00=0x0032, h01=0x0050, text=»* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0)«, t00=0x0014, t01=0x0072}
0x1fe2…2016 Head {h00=0x0030, h01=0x0050, text=»* BIT 0 SET MEANS TEST STATUS ORDER «, t00=0x0014, t01=0x00a8}
0x2016…203a Head {h00=0x0020, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0014, t01=0x00dc}
0x203a…2044 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0100}
0x2044…2078 Head {h00=0x0030, h01=0x0050, text=»* OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX «, t00=0x0014, t01=0x010a}
0x2078…20a6 Head {h00=0x002a, h01=0x0050, text=»* A1-A3, A7-A8 ARE DESTROYED«, t00=0x0014, t01=0x013e}
0x20a6…20b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x016c}
0x20b0…20ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0176}
0x20ba…20ce Head {h00=0x0010, h01=0x0050, text=»VOLGET EQU *«, t00=0x0014, t01=0x0180}
0x20ce…20fc (21, 0, 400) Head {h00=0x002a, h01=0x0050, text=» CF A15,VOLADR DWT VOLUME NAME ADDRESS«, t00=0x0015, t01=0x0004}
0x20fc…211c Head {h00=0x001c, h01=0x0050, text=» LDK A7,0 RESET NVL FLAG«, t00=0x0015, t01=0x0032}
0x211c…2126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0052}
0x2126…213a Head {h00=0x0010, h01=0x0050, text=»VGET10 EQU *«, t00=0x0015, t01=0x005c}
0x213a…216a Head {h00=0x002c, h01=0x0050, text=» LDR* A8,A2 ONE WORD OF NEW VOLUME NAME «, t00=0x0015, t01=0x0070}
0x216a…219a Head {h00=0x002c, h01=0x0050, text=» CWR* A8,A1 COMPARE WITH OLD VOLUME NAME«, t00=0x0015, t01=0x00a0}
0x219a…21b0 Head {h00=0x0012, h01=0x0050, text=» RF(E) VGET20 «, t00=0x0015, t01=0x00d0}
0x21b0…21ce Head {h00=0x001a, h01=0x0050, text=» LDK A7,1 SET NVL FLAG«, t00=0x0015, t01=0x00e6}
0x21ce…21f6 Head {h00=0x0024, h01=0x0050, text=» STR A8,A1 STORE NEW VOLUME NAME«, t00=0x0015, t01=0x0104}
0x21f6…2200 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x012c}
0x2200…2218 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0015, t01=0x0136}
0x2218…2222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x014e}
0x2222…222c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0158}
0x222c…2240 Head {h00=0x0010, h01=0x0050, text=»VGET20 EQU *«, t00=0x0015, t01=0x0162}
0x2240…226c Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT BUFFER POINTERS «, t00=0x0015, t01=0x0176}
0x226c…227e Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0016, t01=0x0012}
0x227e…22a6 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 DECREMENT LOOP COUNTER«, t00=0x0016, t01=0x0024}
0x22a6…22bc Head {h00=0x0012, h01=0x0050, text=» RB(P) VGET10 «, t00=0x0016, t01=0x004c}
0x22bc…22d2 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0016, t01=0x0062}
0x22d2…22f2 Head {h00=0x001c, h01=0x0050, text=» ADK A7,0 CHECK NVL FLAG«, t00=0x0016, t01=0x0078}
0x22f2…2318 Head {h00=0x0022, h01=0x0050, text=» RB(Z) RETURN RETURN IF NO NVL«, t00=0x0016, t01=0x0098}
0x2318…234a Head {h00=0x002e, h01=0x0050, text=» SLA A3,1 CHECK IF TEST STATUS OR RECOVERY«, t00=0x0016, t01=0x00be}
0x234a…2374 Head {h00=0x0026, h01=0x0050, text=» RB(O) RETURN TEST STATUS, NO NVL «, t00=0x0016, t01=0x00f0}
0x2374…23a0 Head {h00=0x0028, h01=0x0050, text=» SRA A3,1 FILE CODE WITHOUT SIGN BIT«, t00=0x0016, t01=0x011a}
0x23a0…23c2 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTNVL,A4 NVL FLAGS«, t00=0x0016, t01=0x0146}
0x23c2…23f8 Head {h00=0x0032, h01=0x0050, text=» RB(N) RETURN NO REQUESTS SO FAR ON THIS DISC «, t00=0x0016, t01=0x0168}
0x23f8…240a Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0017, t01=0x000e}
0x240a…2432 Head {h00=0x0024, h01=0x0050, text=» RB(N) RETURN FIXED DISC, NO NVL«, t00=0x0017, t01=0x0020}
0x2432…243c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0048}
0x243c…2454 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0017, t01=0x0052}
0x2454…245e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x006a}
0x245e…2468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0074}
0x2468…247a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0017, t01=0x007e}
0x247a…248c Head {h00=0x000e, h01=0x0050, text=»* NEWVOL *«, t00=0x0017, t01=0x0090}
0x248c…249e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0017, t01=0x00a2}
0x249e…24a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00b4}
0x24a8…24b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00be}
0x24b2…24f4 Head {h00=0x003e, h01=0x0050, text=»* NEWVOL IS ENTERED FROM THE ROUTINE VOLGET WHEN IT HAS «, t00=0x0017, t01=0x00c8}
0x24f4…252c Head {h00=0x0034, h01=0x0050, text=»* DETECTED THAT A NEW VOLUME HAS BEEN MOUNTED.«, t00=0x0017, t01=0x010a}
0x252c…2566 Head {h00=0x0036, h01=0x0050, text=»* THE NEW VOLUME LOADED FLAG IS THEN SET BY THIS«, t00=0x0017, t01=0x0142}
0x2566…25a0 Head {h00=0x0036, h01=0x0050, text=»* ROUTINE FOR THE CONCERNED FILE CODE AND FILES «, t00=0x0017, t01=0x017c}
0x25a0…25dc Head {h00=0x0038, h01=0x0050, text=»* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE «, t00=0x0018, t01=0x0026}
0x25dc…2614 Head {h00=0x0034, h01=0x0050, text=»* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE«, t00=0x0018, t01=0x0062}
0x2614…2640 Head {h00=0x0028, h01=0x0050, text=»* NEXT REQUEST ON THAT FILE CODE. «, t00=0x0018, t01=0x009a}
0x2640…264a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00c6}
0x264a…2682 Head {h00=0x0034, h01=0x0050, text=»* INPUT: A3 = FILE CODE (DISC ONE FOR DRIVER)«, t00=0x0018, t01=0x00d0}
0x2682…26ae Head {h00=0x0028, h01=0x0050, text=»* A4 = DWT ADDRESS + DOUBLE INDEX«, t00=0x0018, t01=0x0108}
0x26ae…26d2 Head {h00=0x0020, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0018, t01=0x0134}
0x26d2…26dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0158}
0x26dc…2706 Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A3 = ACTUAL FILE CODE «, t00=0x0018, t01=0x0162}
0x2706…2726 Head {h00=0x001c, h01=0x0050, text=»* A1-A2 ARE DESTROYED«, t00=0x0018, t01=0x018c}
0x2726…2730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001c}
0x2730…2744 Head {h00=0x0010, h01=0x0050, text=»NEWVOL EQU *«, t00=0x0019, t01=0x0026}
0x2744…2766 Head {h00=0x001e, h01=0x0050, text=» LD A2,NVLBIT NVL BIT MASK«, t00=0x0019, t01=0x003a}
0x2766…279a Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED «, t00=0x0019, t01=0x005c}
0x279a…27b8 Head {h00=0x001a, h01=0x0050, text=» LC A2,DWTOR,A6 INDEX «, t00=0x0019, t01=0x0090}
0x27b8…27ca Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0019, t01=0x00ae}
0x27ca…27ee Head {h00=0x0020, h01=0x0050, text=» ADR A3,A2 ACTUAL FILE CODE «, t00=0x0019, t01=0x00c0}
0x27ee…27f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00e4}
0x27f8…2810 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0019, t01=0x00ee}
0x2810…281a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0106}
0x281a…2824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0110}
0x2824…283a Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=0 «, t00=0x0019, t01=0x011a}
0x283a…284c Head {h00=0x000e, h01=0x0050, text=» RB RETURN«, t00=0x0019, t01=0x0130}
0x284c…2858 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0142}
0x2858…2862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x014e}
0x2862…2878 Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x0019, t01=0x0158}
0x2878…28a6 Head {h00=0x002a, h01=0x0050, text=» LDKL A1,SCTFWT ADDRESS TO FWT POINTER«, t00=0x0019, t01=0x016e}
0x28a6…28b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x000c}
0x28b0…28f2 Head {h00=0x003e, h01=0x0050, text=»* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME «, t00=0x001a, t01=0x0016}
0x28f2…28fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0058}
0x28fc…2910 Head {h00=0x0010, h01=0x0050, text=»NEW:10 EQU *«, t00=0x001a, t01=0x0062}
0x2910…2934 Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A1 NEXT FWT ADDRESS«, t00=0x001a, t01=0x0076}
0x2934…2958 Head {h00=0x0020, h01=0x0050, text=» RB(Z) RETURN NO MORE FWT:S «, t00=0x001a, t01=0x009a}
0x2958…297c Head {h00=0x0020, h01=0x0050, text=» LDR A1,A2 SAVE FWT ADDRESS «, t00=0x001a, t01=0x00be}
0x297c…29b2 Head {h00=0x0032, h01=0x0050, text=» ADKL A2,FWTEW1 ADDRESS TO FIRST EWT STRUCTURE«, t00=0x001a, t01=0x00e2}
0x29b2…29bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0118}
0x29bc…29d0 Head {h00=0x0010, h01=0x0050, text=»NEW:20 EQU *«, t00=0x001a, t01=0x0122}
0x29d0…29fc Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A2 ADDRESS TO 2ND EWT BLOCK«, t00=0x001a, t01=0x0136}
0x29fc…2a24 Head {h00=0x0024, h01=0x0050, text=» CC A3,EWTVOL,A2 CHECK FILE CODE«, t00=0x001a, t01=0x0162}
0x2a24…2a3a Head {h00=0x0012, h01=0x0050, text=» RF(NE) NEW:30«, t00=0x001a, t01=0x018a}
0x2a3a…2a58 Head {h00=0x001a, h01=0x0050, text=» LDKL A2,/8000 NVL BIT«, t00=0x001b, t01=0x0010}
0x2a58…2a8c Head {h00=0x0030, h01=0x0050, text=» ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED«, t00=0x001b, t01=0x002e}
0x2a8c…2a9e Head {h00=0x000e, h01=0x0050, text=» RB NEW:10«, t00=0x001b, t01=0x0062}
0x2a9e…2aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0074}
0x2aa8…2abc Head {h00=0x0010, h01=0x0050, text=»NEW:30 EQU *«, t00=0x001b, t01=0x007e}
0x2abc…2aee Head {h00=0x002e, h01=0x0050, text=» LDR* A2,A2 ADDRESS TO NEXT EWT STRUCTURE «, t00=0x001b, t01=0x0092}
0x2aee…2b1e Head {h00=0x002c, h01=0x0050, text=» RB(Z) NEW:10 END OF THIS EWT STRUCTURE «, t00=0x001b, t01=0x00c4}
0x2b1e…2b4a Head {h00=0x0028, h01=0x0050, text=» RB NEW:20 CONTINUE WITH NEXT EXTENT«, t00=0x001b, t01=0x00f4}
0x2b4a…2b56 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0120}
0x2b56…2b60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x012c}
0x2b60…2b78 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x001b, t01=0x0136}
0x2b78…2b82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x014e}
0x2b82…2b8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0158}
0x2b8c…2b9e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001b, t01=0x0162}
0x2b9e…2bb0 Head {h00=0x000e, h01=0x0050, text=»* INXDWT *«, t00=0x001b, t01=0x0174}
0x2bb0…2bc2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001b, t01=0x0186}
0x2bc2…2bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0008}
0x2bcc…2bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0012}
0x2bd6…2c22 Head {h00=0x0048, h01=0x0050, text=»* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. «, t00=0x001c, t01=0x001c}
0x2c22…2c2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0068}
0x2c2c…2c50 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS«, t00=0x001c, t01=0x0072}
0x2c50…2c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0096}
0x2c5a…2c8e Head {h00=0x0030, h01=0x0050, text=»* OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX «, t00=0x001c, t01=0x00a0}
0x2c8e…2cbc Head {h00=0x002a, h01=0x0050, text=»* NO REGISTERS ARE DESTROYED«, t00=0x001c, t01=0x00d4}
0x2cbc…2cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0102}
0x2cc6…2cda Head {h00=0x0010, h01=0x0050, text=»INXDWT EQU *«, t00=0x001c, t01=0x010c}
0x2cda…2cf8 Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTOR,A6 INDEX «, t00=0x001c, t01=0x0120}
0x2cf8…2d0a Head {h00=0x000e, h01=0x0050, text=» ANK A4,/3«, t00=0x001c, t01=0x013e}
0x2d0a…2d2a Head {h00=0x001c, h01=0x0050, text=» ADR A4,A4 DOUBLE INDEX «, t00=0x001c, t01=0x0150}
0x2d2a…2d3c Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x001c, t01=0x0170}
0x2d3c…2d4e Head {h00=0x000e, h01=0x0050, text=» RB RETURN«, t00=0x001c, t01=0x0182}
0x2d4e…2d58 (29, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0004}
0x2d58…2d70 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x001d, t01=0x000e}
0x2d70…2d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0026}
0x2d7a…2d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0030}
0x2d84…2d96 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x003a}
0x2d96…2da8 Head {h00=0x000e, h01=0x0050, text=»* NVLTAB *«, t00=0x001d, t01=0x004c}
0x2da8…2dba Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x005e}
0x2dba…2dc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0070}
0x2dc4…2dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x007a}
0x2dce…2e06 Head {h00=0x0034, h01=0x0050, text=»* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS«, t00=0x001d, t01=0x0084}
0x2e06…2e40 Head {h00=0x0036, h01=0x0050, text=»* THAT WILL RECEIVE NEW VOLUME LOADED WHEN A NEW«, t00=0x001d, t01=0x00bc}
0x2e40…2e64 Head {h00=0x0020, h01=0x0050, text=»* VOLUME HAS BEEN MOUNTED.«, t00=0x001d, t01=0x00f6}
0x2e64…2e6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x011a}
0x2e6e…2e82 Head {h00=0x0010, h01=0x0050, text=»NVLTAB EQU *«, t00=0x001d, t01=0x0124}
0x2e82…2e98 Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x001d, t01=0x0138}
0x2e98…2eb8 Head {h00=0x001c, h01=0x0050, text=» DATA TTABFM FMTASK TTAB«, t00=0x001d, t01=0x014e}
0x2eb8…2ec2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x016e}
0x2ec2…2ede Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x001d, t01=0x0178}
0x2ede…2efe (30, 0, 400) Head {h00=0x001c, h01=0x0050, text=» DATA TTABLD LDTASK TTAB«, t00=0x001e, t01=0x0004}
0x2efe…2f0a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0024}
0x2f0a…2f14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0030}
0x2f14…2f28 Head {h00=0x0010, h01=0x0050, text=»NVLDMT EQU *«, t00=0x001e, t01=0x003a}
0x2f28…2f3e Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x001e, t01=0x004e}
0x2f3e…2f54 Head {h00=0x0012, h01=0x0050, text=» IFT DATMAN=1 «, t00=0x001e, t01=0x0064}
0x2f54…2f6c Head {h00=0x0014, h01=0x0050, text=» DATA 0 TTAB #D «, t00=0x001e, t01=0x007a}
0x2f6c…2f84 Head {h00=0x0014, h01=0x0050, text=» DATA 0 TTAB #E «, t00=0x001e, t01=0x0092}
0x2f84…2f9c Head {h00=0x0014, h01=0x0050, text=» DATA 0 TTAB #F «, t00=0x001e, t01=0x00aa}
0x2f9c…2fb4 Head {h00=0x0014, h01=0x0050, text=» DATA 0 TTAB #G «, t00=0x001e, t01=0x00c2}
0x2fb4…2fc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00da}
0x2fc0…2fca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e6}
0x2fca…2fe0 Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x001e, t01=0x00f0}
0x2fe0…2ff4 Head {h00=0x0010, h01=0x0050, text=»NVLEND EQU *«, t00=0x001e, t01=0x0106}
0x2ff4…2ffe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x011a}
0x2ffe…3020 Head {h00=0x001e, h01=0x0050, text=»NVLBIT DATA 0 NVL BIT MASK«, t00=0x001e, t01=0x0124}
0x3020…302c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0146}
0x302c…3036 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0152}
0x3036…304e Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x001e, t01=0x015c}
0x304e…3058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0174}
0x3058…3062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x017e}
0x3062…3078 Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=0 «, t00=0x001e, t01=0x0188}
0x3078…3094 Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x001f, t01=0x000e}
0x3094…30b4 Head {h00=0x001c, h01=0x0050, text=» DATA TTABLD LDTASK TTAB«, t00=0x001f, t01=0x002a}
0x30b4…30be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004a}
0x30be…30d2 Head {h00=0x0010, h01=0x0050, text=»NVLEND EQU *«, t00=0x001f, t01=0x0054}
0x30d2…30dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0068}
0x30dc…30fe Head {h00=0x001e, h01=0x0050, text=»NVLBIT DATA 3 NVL BIT MASK«, t00=0x001f, t01=0x0072}
0x30fe…310a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0094}
0x310a…3114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00a0}
0x3114…312a Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=0 «, t00=0x001f, t01=0x00aa}
0x312a…3146 Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG+SWPBLK=0«, t00=0x001f, t01=0x00c0}
0x3146…3150 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00dc}
0x3150…3164 Head {h00=0x0010, h01=0x0050, text=»NVLEND EQU *«, t00=0x001f, t01=0x00e6}
0x3164…316e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00fa}
0x316e…3190 Head {h00=0x001e, h01=0x0050, text=»NVLBIT DATA 1 NVL BIT MASK«, t00=0x001f, t01=0x0104}
0x3190…319c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0126}
0x319c…31a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0132}
0x31a6…31b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x013c}
0x31b0…31ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0146}
0x31ba…31c6 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x001f, t01=0x0150}
0x31c6…31ca Head {h00=0x4004, h01=0x0000}
0x31ca…31ce 00 1f 01 5c ┆ ┆
0x31ce…31d6 (32, 1, 8) 20 04 00 00 00 20 00 04 ┆ ┆
0x31d6…3226 (33, 0, 400) 49 52 53 54 20 46 4f 52 20 44 49 53 50 41 54 43 48 49 4e 47 00 18 01 74 00 14 00 50 5c 4c 44 4b 4c 5c 41 32 2c 54 54 41 42 50 46 20 00 19 00 1c 00 0e 00 50 5c 43 57 52 5c 41 31 2c 41 32 00 19 00 34 00 34 00 50 5c 52 42 28 45 29 5c 54 3a 44 ┆IRST FOR DISPATCHING t P LDKL A2,TTABPF P CWR A1,A2 4 4 P RB(E) T:D┆
0x3226…3276 49 53 50 5c 41 4c 52 45 41 44 59 20 51 55 45 55 45 44 2c 20 50 57 46 20 44 55 52 49 4e 47 20 50 46 50 4f 53 54 20 00 19 00 46 00 0e 00 50 5c 53 54 52 5c 41 31 2c 41 32 00 19 00 7e 00 12 00 50 5c 53 54 5c 41 32 2c 44 49 53 51 55 45 20 00 19 ┆ISP ALREADY QUEUED, PWF DURING PFPOST F P STR A1,A2 ~ P ST A2,DISQUE ┆
0x3276…32c6 00 90 00 2c 00 50 5c 49 4d 5c 50 46 50 4f 53 54 5c 49 4e 44 49 43 41 54 45 20 50 57 46 20 50 4f 53 54 20 50 52 4f 43 45 53 53 49 4e 47 20 00 19 00 a6 00 0e 00 50 5c 52 42 5c 54 3a 44 49 53 50 00 19 00 d6 00 14 00 50 5c 45 4a 45 43 54 5c 5c ┆ , P IM PFPOST INDICATE PWF POST PROCESSING P RB T:DISP P EJECT ┆
0x32c6…3316 5c 4c 52 50 49 4e 54 20 00 19 00 e8 00 04 00 50 00 19 01 00 00 06 00 50 2a 20 00 19 01 08 00 18 00 50 2a 20 20 20 50 4f 57 45 52 20 46 41 49 4c 20 54 41 53 4b 20 00 19 01 12 00 2e 00 50 2a 20 20 20 53 54 41 52 54 45 44 20 41 46 54 45 52 20 ┆ LRPINT P P* P* POWER FAIL TASK . P* STARTED AFTER ┆
0x3316…3366 41 4c 4c 20 50 57 46 20 50 4f 53 54 20 50 52 4f 43 45 53 53 49 4e 47 20 00 19 01 2e 00 06 00 50 2a 20 00 19 01 60 00 04 00 50 00 19 01 6a 00 2e 00 50 50 46 54 41 53 4b 5c 43 4d 5c 50 46 50 4f 53 54 5c 43 4c 45 41 52 20 50 57 46 20 50 4f 53 ┆ALL PWF POST PROCESSING . P* ` P j . PPFTASK CM PFPOST CLEAR PWF POS┆
0x3366…33b6 (34, 0, 400) 54 20 50 52 4f 43 20 46 4c 41 47 20 00 19 01 72 00 1c 00 50 5c 43 4d 5c 49 4e 49 46 4c 47 5c 41 4e 44 20 49 4e 49 54 20 46 4c 41 47 00 1a 00 14 00 26 00 50 5c 43 46 5c 41 31 35 2c 50 46 49 4e 49 54 5c 52 45 53 54 41 52 54 20 49 2f 4f 20 44 ┆T PROC FLAG r P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O D┆
0x33b6…3406 45 56 49 43 45 53 00 1a 00 34 00 18 00 50 5c 43 4d 5c 50 52 55 4e 5c 45 58 49 54 20 50 46 54 41 53 4b 00 1a 00 5e 00 0e 00 50 5c 52 42 5c 54 3a 44 49 53 50 00 1a 00 7a 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 4c 52 50 49 4e 54 20 00 1a 00 8c ┆EVICES 4 P CM PRUN EXIT PFTASK ^ P RB T:DISP z P EJECT LRPINT ┆
0x3406…3456 00 06 00 50 2a 20 00 1a 00 a4 00 12 00 50 2a 20 20 20 49 20 48 20 52 20 54 20 43 20 00 1a 00 ae 00 06 00 50 2a 20 00 1a 00 c4 00 36 00 50 2a 20 20 20 54 48 49 53 20 49 53 20 54 48 45 20 52 45 41 4c 20 54 49 4d 45 20 43 4c 4f 43 4b 20 49 4e ┆ P* P* I H R T C P* 6 P* THIS IS THE REAL TIME CLOCK IN┆
0x3456…34a6 54 45 52 52 55 50 54 20 48 41 4e 44 4c 45 52 2e 00 1a 00 ce 00 36 00 50 2a 20 20 20 54 48 45 20 54 49 4d 45 52 20 51 55 45 55 45 20 57 49 4c 4c 20 42 45 20 50 52 4f 43 45 53 53 45 44 20 45 41 43 48 20 31 30 30 20 4d 53 2e 00 1a 01 08 00 06 ┆TERRUPT HANDLER. 6 P* THE TIMER QUEUE WILL BE PROCESSED EACH 100 MS. ┆
0x34a6…34f6 00 50 2a 20 00 1a 01 42 00 2a 00 50 49 48 52 54 43 5c 53 54 5c 50 2c 49 4e 54 53 41 56 5c 53 41 56 45 20 4c 41 53 54 20 49 4e 54 45 52 52 55 50 54 20 00 1a 01 4c 00 22 00 50 5c 52 49 54 5c 2f 31 42 5c 52 45 53 45 54 20 49 4e 54 45 52 52 55 ┆ P* B * PIHRTC ST P,INTSAV SAVE LAST INTERRUPT L " P RIT /1B RESET INTERRU┆
0x34f6…3546 (35, 0, 400) 50 54 20 46 4c 41 47 20 00 1a 01 7a 00 0e 00 50 5c 49 4d 5c 43 4f 55 4e 54 20 00 1b 00 10 00 24 00 50 5c 52 46 28 50 29 5c 52 54 43 30 31 30 5c 43 48 45 43 4b 20 54 49 4d 45 52 20 51 55 45 55 45 20 00 1b 00 22 00 0c 00 50 5c 52 54 4e 5c 41 ┆PT FLAG z P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE " P RTN A┆
0x3546…3596 31 35 00 1b 00 4a 00 06 00 50 2a 20 00 1b 00 5a 00 10 00 50 52 54 43 30 31 30 5c 45 51 55 5c 2a 00 1b 00 64 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 31 20 00 1b 00 78 00 26 00 50 5c 43 46 5c 41 31 35 2c 53 41 56 45 38 5c 53 41 56 45 ┆15 J P* Z PRTC010 EQU * d P IFT CPU852=1 x & P CF A15,SAVE8 SAVE┆
0x3596…35e6 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 20 00 1b 00 8e 00 08 00 50 5c 58 49 46 00 1b 00 b8 00 06 00 50 2a 20 00 1b 00 c4 00 12 00 50 5c 49 46 54 5c 43 50 55 38 35 32 3d 30 20 00 1b 00 ce 00 22 00 50 5c 4d 53 52 5c 38 2c 41 31 35 5c 53 ┆ A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 S┆
0x35e6…3636 41 56 45 20 41 31 2d 41 38 20 4f 4e 20 53 54 41 43 4b 00 1b 00 e4 00 08 00 50 5c 58 49 46 00 1b 01 0a 00 06 00 50 2a 20 00 1b 01 16 00 22 00 50 5c 4c 44 4b 4c 5c 41 34 2c 2d 34 5c 53 45 54 20 31 30 30 20 4d 53 20 53 57 49 54 43 48 20 00 1b ┆AVE A1-A8 ON STACK P XIF P* " P LDKL A4,-4 SET 100 MS SWITCH ┆
0x3636…3686 01 20 00 10 00 50 5c 53 54 5c 41 34 2c 43 4f 55 4e 54 00 1b 01 46 00 2e 00 50 5c 4c 44 4b 4c 5c 41 32 2c 43 4c 4f 43 4b 5c 51 55 45 55 45 20 43 4c 4f 43 4b 20 52 4f 55 54 49 4e 45 20 41 53 20 4d 4a 4f 42 00 1b 01 5a 00 12 00 50 5c 43 46 5c ┆ P ST A4,COUNT F . P LDKL A2,CLOCK QUEUE CLOCK ROUTINE AS MJOB Z P CF ┆
0x3686…36d6 (36, 0, 400) 41 31 35 2c 51 4d 4a 4f 42 20 00 1b 01 8c 00 06 00 50 2a 20 00 1c 00 12 00 12 00 50 5c 49 46 54 5c 4d 4f 4e 43 4c 4b 3d 31 20 00 1c 00 1c 00 0e 00 50 5c 49 4d 5c 53 45 43 4f 4e 44 00 1c 00 32 00 26 00 50 5c 52 46 28 50 29 5c 52 54 43 30 32 ┆A15,QMJOB P* P IFT MONCLK=1 P IM SECOND 2 & P RF(P) RTC02┆
0x36d6…3726 35 5c 55 50 44 41 54 45 20 4d 4f 4e 49 54 4f 52 20 43 4c 4f 43 4b 00 1c 00 44 00 08 00 50 5c 58 49 46 00 1c 00 6e 00 06 00 50 2a 20 00 1c 00 7a 00 10 00 50 52 54 43 30 32 30 5c 45 51 55 5c 2a 00 1c 00 84 00 24 00 50 5c 43 46 5c 41 31 35 2c ┆5 UPDATE MONITOR CLOCK D P XIF n P* z PRTC020 EQU * $ P CF A15,┆
0x3726…3776 53 57 4c 58 59 5c 53 57 49 54 43 48 20 54 4f 20 4c 45 56 45 4c 20 58 59 00 1c 00 98 00 0e 00 50 5c 52 42 5c 54 3a 44 49 53 50 00 1c 00 c0 00 06 00 50 2a 20 00 1c 00 d2 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 4c 52 50 49 4e 54 20 00 1c 00 dc ┆SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT LRPINT ┆
0x3776…37c6 00 06 00 50 2a 20 00 1c 00 f4 00 06 00 50 2a 20 00 1c 00 fe 00 12 00 50 5c 49 46 54 5c 4d 4f 4e 43 4c 4b 3d 31 20 00 1c 01 08 00 06 00 50 2a 20 00 1c 01 1e 00 3c 00 50 2a 20 20 20 4d 4f 4e 49 54 4f 52 20 43 4c 4f 43 4b 20 55 50 44 41 54 49 ┆ P* P* P IFT MONCLK=1 P* < P* MONITOR CLOCK UPDATI┆
0x37c6…3816 4e 47 20 52 4f 55 54 49 4e 45 20 53 54 41 52 54 45 44 20 45 41 43 48 20 53 45 43 4f 4e 44 2e 20 00 1c 01 28 00 06 00 50 2a 20 00 1c 01 68 00 10 00 50 52 54 43 30 32 35 5c 45 51 55 5c 2a 00 1c 01 72 00 22 00 50 5c 4c 44 4b 4c 5c 41 34 2c 2d ┆NG ROUTINE STARTED EACH SECOND. ( P* h PRTC025 EQU * r " P LDKL A4,-┆