|
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: 14308 (0x37e4)
Notes: pts_type(SC)
Names: »DSKSUB.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DSKSUB.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/DSKSUB.SC«
IDENT DSKSUB REL 11.0 81-01-26 870105041100 =1, DM NVL BITS TAKEN AWAY PRR 11.0 80-11-19 CHLO * **************************************** * * 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 * =1 ENTRY NVLEND END OF NVLTAB ENTRY NVLBIT NVL BIT MASK EJECT DSKSUB * * ************* * EXTERNALS * ************* * * EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS EXTRN TTABLD LDTASK TTAB EXTRN TTABFM FMTASK TTAB EXTRN SCTFWT FWT CHAIN START ADDRESS EXTRN DWTORD SAVE AREA INDEX AND ORDER EXTRN DWTOR INDEX AND ORDER EXTRN DWTTAB TTAB ADDRESS EXTRN DWTUEC USER ECB ADDRESS EXTRN DWTVOL VOLUME NAME EXTRN DWTNVL NEW VOLUME LOADED FLAG EXTRN EWTVOL VOLUME FILE CODE EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT EXTRN FWTPAR ACCESS PARAMETERS EXTRN TTB:MT MMU TABLE EXTRN ECBBA ECB BUFFER ADDRESS EXTRN ECBRL ECB REQUESTED LENGTH EXTRN ECBEL ECB EFFECTIVE LENGTH EJECT DSKSUB * * *************************************** * * CONDITIONAL ASSEMBLY * *************************************** * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * A PROGRAM VERSION USING TOSS DISC PAGING * IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 0 * * * A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK * BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. * SWPBLK EQU 0 * EJECT DSKSUB * * * A PROGRAM VERSION SUPPORTING FILE MANAGEMENT * IS OBTAINED BY SETTING FILMAN EQU 1. * X:A EQU 0 FILMAN EQU X:A * * * A PROGRAM VERSION SUPPORTING DATA MANAGEMENT * IS OBTAINED BY SETTING DATMAN EQU 1. * X:B EQU 0 DATMAN EQU X:B * EJECT DSKSUB * * ********** * VOLCLR * ********** * * * VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S) * IN THE REQUESTED DISC DWT. * * INPUT: A1 = NUMBER OF BYTES TO CLEAR * A6 = DWT ADDRESS * * OUTPUT: A1, A2 ARE DESTROYED * VOLCLR EQU * LDR A2,A1 CF A15,VOLADR VOLUME NAME ADDRESS * VCLR10 EQU * CMR A1 CLEAR ONE WORD ADK A1,2 INCREMENT POINTER SUK A2,2 DECREMENT LOOP COUNTER RB(P) VCLR10 RF RETURN * EJECT DSKSUB * * ********** * VOLNAM * ********** * * * VOLNAM WILL MOVE THE VOLUME NAME OF SELECTED DISC * TO THE USER BUFFER IF REQUESTED LENGTH = 6. * * INPUT: A6 = DWT ADDRESS * A8 = ECB ADDRESS * * OUTPUT: A1-A4 ARE DESTROYED * VOLNAM EQU * LD A1,ECBRL,A8 REQUESTED LENGTH SUK A1,6 RF(NE) RETURN NO VOLUME NAME WANTED CF A15,VOLADR GET DWT VOLUME ADDRESS ST A4,ECBEL,A8 SET EFFECTIVE LENGTH * IFT MMUPAG=0 LD A2,ECBBA,A8 USER BUFFER ADDRESS * EJECT DSKSUB * * VNAM10 EQU * LDR* A3,A1 MOVE ONE WORD STR A3,A2 ADK A1,2 INCREMENT BUFFER POINTERS ADK A2,2 SUK A4,2 DECREMENT LOOP COUNTER RB(P) VNAM10 RF RETURN XIF * IFT MMUPAG=1 LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK TS -30,A15 SAVE RUNNING MMU TL TTB:MT,A2 LOAD USER MMU LD A2,DWTUEC,A6 USER ECB ADDRESS EL A2,ECBBA,A2 USER BUFFER ADDRESS MVSU A4 MOVE VOLUME NAME TL -30,A15 RESTORE RUNNING MMU RTN A15 XIF * EJECT DSKSUB * * ********** * VOLADR * ********** * * * INPUT: A6 = DWT ADDRESS * * OUTPUT: A1 = VOLUME NAME ADDRESS * A4 = 6 * VOLADR EQU * LC A4,DWTOR,A6 INDEX * VOLA05 EQU * LDKL A1,DWTVOL-6 ADR A1,A6 ANK A4,/3 * VOLA10 EQU * ADK A1,6 UPDATE ADDRESS SUK A4,1 RB(NN) VOLA10 LDK A4,6 RF RETURN * EJECT DSKSUB * * ********** * NVLCHK * ********** * * * NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER * TO CHECK IF THE RETURN CODE "NEW VOLUME LOADED" * IS TO BE RETURNED TO THE CALLING TASK (RC=/20). * * INPUT: A6 = DWT ADDRESS * * OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) * A2 = DWT ADDRESS + DOUBLE INDEX * A3, A4 ARE DESTROYED * NVLCHK EQU * LD A2,DWTOR,A6 INDEX AND ORDER ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES SRL A2,7 DOUBLE INDEX ADR A2,A6 LD A1,DWTNVL,A2 NVL FLAG ANKL A1,/7FFF RESET BIT 0 (FIRST REQUEST BIT) ST A1,DWTNVL,A2 ANKL A1,/3FFF NOT 1ST REQ. OR FIX DISK 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. * * BIT NO IN DWTNVL NVLTAB EQU * IFT FILMAN=1 DATA TTABFM FMTASK TTAB 15 * IFF DSKPAG+SWPBLK=0 DATA TTABLD LDTASK TTAB 14 XIF * =1 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, 398) Head {h00=0x0032, h01=0x0050, text=» IDENT DSKSUB REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0064 Head {h00=0x0022, h01=0x0050, text=» =1, DM NVL BITS TAKEN AWAY «, t00=0x0000, t01=0x0042}
0x0064…0088 Head {h00=0x0020, h01=0x0050, text=» PRR 11.0 80-11-19 CHLO «, t00=0x0000, t01=0x0068}
0x0088…0092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00c2 Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0000, t01=0x0096}
0x00c2…00cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c6}
0x00cc…00fc Head {h00=0x002c, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS *«, t00=0x0000, t01=0x00d0}
0x00fc…0106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x0106…0136 Head {h00=0x002c, h01=0x0050, text=»* DSKSUB = DISC SUBROUTINES *«, t00=0x0000, t01=0x010a}
0x0136…0140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x013a}
0x0140…014a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0144}
0x014a…0154 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x014e}
0x0154…015e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0158}
0x015e…018e Head {h00=0x002c, h01=0x0050, text=»****************************************«, t00=0x0000, t01=0x0162}
0x018e…0198 (1, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0004}
0x0198…01a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x000e}
0x01a2…01ce Head {h00=0x0028, h01=0x0050, text=»* DSKSUB HOLDS THE FOLLOWING DISC «, t00=0x0001, t01=0x0018}
0x01ce…01fa Head {h00=0x0028, h01=0x0050, text=»* AND FILE MANAGEMENT SUBROUTINES:«, t00=0x0001, t01=0x0044}
0x01fa…0204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0070}
0x0204…023c Head {h00=0x0034, h01=0x0050, text=»* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT «, t00=0x0001, t01=0x007a}
0x023c…027c Head {h00=0x003c, h01=0x0050, text=»* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER «, t00=0x0001, t01=0x00b2}
0x027c…02b6 Head {h00=0x0036, h01=0x0050, text=»* - VOLADR = COMPUTE VOLUME NAME ADDRESS IN DWT «, t00=0x0001, t01=0x00f2}
0x02b6…02f8 Head {h00=0x003e, h01=0x0050, text=»* - NVLCHK = CHECK IF NEW VOLUME LOADED FOR CALLING TASK«, t00=0x0001, t01=0x012c}
0x02f8…0338 Head {h00=0x003c, h01=0x0050, text=»* - VOLGET = MOVE VOLUME NAME FROM DISC BUFFER TO DWT «, t00=0x0001, t01=0x016e}
0x0338…036a Head {h00=0x002e, h01=0x0050, text=»* - NEWVOL = SET NEW VOLUME LOADED BITS «, t00=0x0002, t01=0x001e}
0x036a…03a4 Head {h00=0x0036, h01=0x0050, text=»* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX «, t00=0x0002, t01=0x0050}
0x03a4…03e0 Head {h00=0x0038, h01=0x0050, text=»* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL «, t00=0x0002, t01=0x008a}
0x03e0…03ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00c6}
0x03ea…03f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00d0}
0x03f4…040a Head {h00=0x0012, h01=0x0050, text=» EJECT DSKSUB«, t00=0x0002, t01=0x00da}
0x040a…0414 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f0}
0x0414…041e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00fa}
0x041e…0432 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x0104}
0x0432…0446 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0002, t01=0x0118}
0x0446…045a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0002, t01=0x012c}
0x045a…0464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0140}
0x0464…046e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014a}
0x046e…049e Head {h00=0x002c, h01=0x0050, text=» ENTRY VOLCLR CLEAR VOLUME NAMES IN DWT «, t00=0x0002, t01=0x0154}
0x049e…04dc Head {h00=0x003a, h01=0x0050, text=» ENTRY VOLNAM MOVE VOLUME NAME FROM DWT TO USER BUFFER«, t00=0x0002, t01=0x0184}
0x04dc…0514 Head {h00=0x0034, h01=0x0050, text=» ENTRY VOLADR COMPUTE VOLUME NAME ADDRESS IN DWT«, t00=0x0003, t01=0x0032}
0x0514…0546 Head {h00=0x002e, h01=0x0050, text=» ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED «, t00=0x0003, t01=0x006a}
0x0546…0584 Head {h00=0x003a, h01=0x0050, text=» ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT«, t00=0x0003, t01=0x009c}
0x0584…05b4 Head {h00=0x002c, h01=0x0050, text=» ENTRY NEWVOL SET NEW VOLUME LOADED BITS«, t00=0x0003, t01=0x00da}
0x05b4…05ec Head {h00=0x0034, h01=0x0050, text=» ENTRY INXDWT COMPUTE DWT ADDRESS + DOUBLE INDEX«, t00=0x0003, t01=0x010a}
0x05ec…0626 Head {h00=0x0036, h01=0x0050, text=» ENTRY NVLTAB TTAB ADDRESSES FOR TASKS TO HAVE NVL«, t00=0x0003, t01=0x0142}
0x0626…0636 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x0003, t01=0x017c}
0x0636…065a Head {h00=0x0020, h01=0x0050, text=» ENTRY NVLEND END OF NVLTAB «, t00=0x0003, t01=0x018c}
0x065a…067c Head {h00=0x001e, h01=0x0050, text=» ENTRY NVLBIT NVL BIT MASK«, t00=0x0004, t01=0x0020}
0x067c…0692 Head {h00=0x0012, h01=0x0050, text=» EJECT DSKSUB«, t00=0x0004, t01=0x0042}
0x0692…069c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0058}
0x069c…06a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0062}
0x06a6…06bc Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x006c}
0x06bc…06d2 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0004, t01=0x0082}
0x06d2…06e8 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0004, t01=0x0098}
0x06e8…06f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ae}
0x06f2…06fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b8}
0x06fc…0734 Head {h00=0x0034, h01=0x0050, text=» EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS «, t00=0x0004, t01=0x00c2}
0x0734…0756 Head {h00=0x001e, h01=0x0050, text=» EXTRN TTABLD LDTASK TTAB «, t00=0x0004, t01=0x00fa}
0x0756…0778 Head {h00=0x001e, h01=0x0050, text=» EXTRN TTABFM FMTASK TTAB «, t00=0x0004, t01=0x011c}
0x0778…07a6 Head {h00=0x002a, h01=0x0050, text=» EXTRN SCTFWT FWT CHAIN START ADDRESS «, t00=0x0004, t01=0x013e}
0x07a6…07d6 Head {h00=0x002c, h01=0x0050, text=» EXTRN DWTORD SAVE AREA INDEX AND ORDER «, t00=0x0004, t01=0x016c}
0x07d6…07fa Head {h00=0x0020, h01=0x0050, text=» EXTRN DWTOR INDEX AND ORDER«, t00=0x0005, t01=0x000c}
0x07fa…081c Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTTAB TTAB ADDRESS«, t00=0x0005, t01=0x0030}
0x081c…0842 Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTUEC USER ECB ADDRESS«, t00=0x0005, t01=0x0052}
0x0842…0864 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTVOL VOLUME NAME «, t00=0x0005, t01=0x0078}
0x0864…0890 Head {h00=0x0028, h01=0x0050, text=» EXTRN DWTNVL NEW VOLUME LOADED FLAG«, t00=0x0005, t01=0x009a}
0x0890…08b6 Head {h00=0x0022, h01=0x0050, text=» EXTRN EWTVOL VOLUME FILE CODE«, t00=0x0005, t01=0x00c6}
0x08b6…08ec Head {h00=0x0032, h01=0x0050, text=» EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT «, t00=0x0005, t01=0x00ec}
0x08ec…0914 Head {h00=0x0024, h01=0x0050, text=» EXTRN FWTPAR ACCESS PARAMETERS «, t00=0x0005, t01=0x0122}
0x0914…0934 Head {h00=0x001c, h01=0x0050, text=» EXTRN TTB:MT MMU TABLE «, t00=0x0005, t01=0x014a}
0x0934…095c Head {h00=0x0024, h01=0x0050, text=» EXTRN ECBBA ECB BUFFER ADDRESS «, t00=0x0005, t01=0x016a}
0x095c…0986 (6, 0, 398) Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBRL ECB REQUESTED LENGTH «, t00=0x0006, t01=0x0004}
0x0986…09b0 Head {h00=0x0026, h01=0x0050, text=» EXTRN ECBEL ECB EFFECTIVE LENGTH «, t00=0x0006, t01=0x002e}
0x09b0…09c6 Head {h00=0x0012, h01=0x0050, text=» EJECT DSKSUB«, t00=0x0006, t01=0x0058}
0x09c6…09d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x006e}
0x09d0…09da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0078}
0x09da…0a0a Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0006, t01=0x0082}
0x0a0a…0a14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00b2}
0x0a14…0a32 Head {h00=0x001a, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0006, t01=0x00bc}
0x0a32…0a3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00da}
0x0a3c…0a6c Head {h00=0x002c, h01=0x0050, text=»*************************************** «, t00=0x0006, t01=0x00e4}
0x0a6c…0a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0114}
0x0a76…0a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x011e}
0x0a80…0ab2 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0006, t01=0x0128}
0x0ab2…0ae0 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0006, t01=0x015a}
0x0ae0…0aea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0188}
0x0aea…0afe (7, 0, 398) Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0007, t01=0x0004}
0x0afe…0b08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0018}
0x0b08…0b12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0022}
0x0b12…0b4c Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0007, t01=0x002c}
0x0b4c…0b7e Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0007, t01=0x0066}
0x0b7e…0b88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0098}
0x0b88…0b9c Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0007, t01=0x00a2}
0x0b9c…0ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00b6}
0x0ba6…0bb0 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0007, t01=0x00c0}
0x0bb0…0be2 Head {h00=0x002e, h01=0x002a, text=»* A PROGRAM VERSION USING TOSS DISC PAGING«, t00=0x0007, t01=0x00ca}
0x0be2…0c10 Head {h00=0x002a, h01=0x0026, text=»* IS OBTAINED BY SETTING DSKPAG EQU 1.«, t00=0x0007, t01=0x00fc}
0x0c10…0c1a Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0007, t01=0x012a}
0x0c1a…0c2e Head {h00=0x0010, h01=0x000c, text=»DSKPAG EQU 0«, t00=0x0007, t01=0x0134}
0x0c2e…0c38 Head {h00=0x0006, h01=0x0001, text=»* «, t00=0x0007, t01=0x0148}
0x0c38…0c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0152}
0x0c42…0c7c Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION INCLUDING TOSS SWAPPABLE WORK «, t00=0x0007, t01=0x015c}
0x0c7c…0cb2 Head {h00=0x0032, h01=0x0050, text=»* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. «, t00=0x0008, t01=0x0008}
0x0cb2…0cbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003e}
0x0cbc…0cd0 Head {h00=0x0010, h01=0x0050, text=»SWPBLK EQU 0«, t00=0x0008, t01=0x0048}
0x0cd0…0cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x005c}
0x0cda…0cf2 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0008, t01=0x0066}
0x0cf2…0cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x007e}
0x0cfc…0d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0088}
0x0d06…0d3c Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT«, t00=0x0008, t01=0x0092}
0x0d3c…0d6a Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING FILMAN EQU 1.«, t00=0x0008, t01=0x00c8}
0x0d6a…0d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d74…0d86 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0008, t01=0x0100}
0x0d86…0d9c Head {h00=0x0012, h01=0x0050, text=»FILMAN EQU X:A«, t00=0x0008, t01=0x0112}
0x0d9c…0da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0128}
0x0da6…0db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0132}
0x0db0…0de6 Head {h00=0x0032, h01=0x0050, text=»* A PROGRAM VERSION SUPPORTING DATA MANAGEMENT«, t00=0x0008, t01=0x013c}
0x0de6…0e14 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING DATMAN EQU 1.«, t00=0x0008, t01=0x0172}
0x0e14…0e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0010}
0x0e1e…0e30 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0009, t01=0x001a}
0x0e30…0e46 Head {h00=0x0012, h01=0x0050, text=»DATMAN EQU X:B«, t00=0x0009, t01=0x002c}
0x0e46…0e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0042}
0x0e50…0e68 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0009, t01=0x004c}
0x0e68…0e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0064}
0x0e72…0e7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x006e}
0x0e7c…0e8e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x0078}
0x0e8e…0ea0 Head {h00=0x000e, h01=0x0050, text=»* VOLCLR *«, t00=0x0009, t01=0x008a}
0x0ea0…0eb2 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x009c}
0x0eb2…0ebc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ae}
0x0ebc…0ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b8}
0x0ec6…0f00 Head {h00=0x0036, h01=0x0050, text=»* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S)«, t00=0x0009, t01=0x00c2}
0x0f00…0f26 Head {h00=0x0022, h01=0x0050, text=»* IN THE REQUESTED DISC DWT.«, t00=0x0009, t01=0x00fc}
0x0f26…0f30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0122}
0x0f30…0f62 Head {h00=0x002e, h01=0x0050, text=»* INPUT: A1 = NUMBER OF BYTES TO CLEAR «, t00=0x0009, t01=0x012c}
0x0f62…0f86 Head {h00=0x0020, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0009, t01=0x015e}
0x0f86…0f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0182}
0x0f90…0fb8 Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: A1, A2 ARE DESTROYED«, t00=0x0009, t01=0x018c}
0x0fb8…0fc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0024}
0x0fc2…0fd6 Head {h00=0x0010, h01=0x0050, text=»VOLCLR EQU *«, t00=0x000a, t01=0x002e}
0x0fd6…0fe8 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A1«, t00=0x000a, t01=0x0042}
0x0fe8…1012 Head {h00=0x0026, h01=0x0050, text=» CF A15,VOLADR VOLUME NAME ADDRESS«, t00=0x000a, t01=0x0054}
0x1012…101c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x007e}
0x101c…1030 Head {h00=0x0010, h01=0x0050, text=»VCLR10 EQU *«, t00=0x000a, t01=0x0088}
0x1030…104e Head {h00=0x001a, h01=0x0050, text=» CMR A1 CLEAR ONE WORD«, t00=0x000a, t01=0x009c}
0x104e…1072 Head {h00=0x0020, h01=0x0050, text=» ADK A1,2 INCREMENT POINTER «, t00=0x000a, t01=0x00ba}
0x1072…109a Head {h00=0x0024, h01=0x0050, text=» SUK A2,2 DECREMENT LOOP COUNTER«, t00=0x000a, t01=0x00de}
0x109a…10b0 Head {h00=0x0012, h01=0x0050, text=» RB(P) VCLR10 «, t00=0x000a, t01=0x0106}
0x10b0…10c2 Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x000a, t01=0x011c}
0x10c2…10cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x012e}
0x10cc…10e2 Head {h00=0x0012, h01=0x0050, text=» EJECT DSKSUB«, t00=0x000a, t01=0x0138}
0x10e2…10ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x014e}
0x10ec…10f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0158}
0x10f6…1108 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x0162}
0x1108…111a Head {h00=0x000e, h01=0x0050, text=»* VOLNAM *«, t00=0x000a, t01=0x0174}
0x111a…112c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000a, t01=0x0186}
0x112c…1136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0008}
0x1136…1140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0012}
0x1140…117e Head {h00=0x003a, h01=0x0050, text=»* VOLNAM WILL MOVE THE VOLUME NAME OF SELECTED DISC «, t00=0x000b, t01=0x001c}
0x117e…11b6 Head {h00=0x0034, h01=0x0050, text=»* TO THE USER BUFFER IF REQUESTED LENGTH = 6. «, t00=0x000b, t01=0x005a}
0x11b6…11c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0092}
0x11c0…11e4 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS«, t00=0x000b, t01=0x009c}
0x11e4…1208 Head {h00=0x0020, h01=0x0050, text=»* A8 = ECB ADDRESS«, t00=0x000b, t01=0x00c0}
0x1208…1212 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e4}
0x1212…123a Head {h00=0x0024, h01=0x0050, text=»* OUTPUT: A1-A4 ARE DESTROYED «, t00=0x000b, t01=0x00ee}
0x123a…1244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0116}
0x1244…1258 Head {h00=0x0010, h01=0x0050, text=»VOLNAM EQU *«, t00=0x000b, t01=0x0120}
0x1258…1280 Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBRL,A8 REQUESTED LENGTH«, t00=0x000b, t01=0x0134}
0x1280…1292 Head {h00=0x000e, h01=0x0050, text=» SUK A1,6 «, t00=0x000b, t01=0x015c}
0x1292…12be Head {h00=0x0028, h01=0x0050, text=» RF(NE) RETURN NO VOLUME NAME WANTED«, t00=0x000b, t01=0x016e}
0x12be…12ec Head {h00=0x002a, h01=0x0050, text=» CF A15,VOLADR GET DWT VOLUME ADDRESS «, t00=0x000c, t01=0x000a}
0x12ec…1318 Head {h00=0x0028, h01=0x0050, text=» ST A4,ECBEL,A8 SET EFFECTIVE LENGTH«, t00=0x000c, t01=0x0038}
0x1318…1322 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0064}
0x1322…1338 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000c, t01=0x006e}
0x1338…1364 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBBA,A8 USER BUFFER ADDRESS «, t00=0x000c, t01=0x0084}
0x1364…136e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b0}
0x136e…1386 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x000c, t01=0x00ba}
0x1386…1390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d2}
0x1390…139a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00dc}
0x139a…13ae Head {h00=0x0010, h01=0x0050, text=»VNAM10 EQU *«, t00=0x000c, t01=0x00e6}
0x13ae…13d0 Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A1 MOVE ONE WORD «, t00=0x000c, t01=0x00fa}
0x13d0…13e2 Head {h00=0x000e, h01=0x0050, text=» STR A3,A2«, t00=0x000c, t01=0x011c}
0x13e2…140e Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT BUFFER POINTERS «, t00=0x000c, t01=0x012e}
0x140e…1420 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x000c, t01=0x015a}
0x1420…1448 Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 DECREMENT LOOP COUNTER«, t00=0x000c, t01=0x016c}
0x1448…145e (13, 0, 398) Head {h00=0x0012, h01=0x0050, text=» RB(P) VNAM10 «, t00=0x000d, t01=0x0004}
0x145e…1470 Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x000d, t01=0x001a}
0x1470…147c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x002c}
0x147c…1486 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0038}
0x1486…149c Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000d, t01=0x0042}
0x149c…14d2 Head {h00=0x0032, h01=0x0050, text=» LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK «, t00=0x000d, t01=0x0058}
0x14d2…14f6 Head {h00=0x0020, h01=0x0050, text=» TS -30,A15 SAVE RUNNING MMU«, t00=0x000d, t01=0x008e}
0x14f6…151a Head {h00=0x0020, h01=0x0050, text=» TL TTB:MT,A2 LOAD USER MMU «, t00=0x000d, t01=0x00b2}
0x151a…1544 Head {h00=0x0026, h01=0x0050, text=» LD A2,DWTUEC,A6 USER ECB ADDRESS «, t00=0x000d, t01=0x00d6}
0x1544…1570 Head {h00=0x0028, h01=0x0050, text=» EL A2,ECBBA,A2 USER BUFFER ADDRESS «, t00=0x000d, t01=0x0100}
0x1570…1592 Head {h00=0x001e, h01=0x0050, text=» MVSU A4 MOVE VOLUME NAME «, t00=0x000d, t01=0x012c}
0x1592…15ba Head {h00=0x0024, h01=0x0050, text=» TL -30,A15 RESTORE RUNNING MMU «, t00=0x000d, t01=0x014e}
0x15ba…15ca Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x000d, t01=0x0176}
0x15ca…15d6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0186}
0x15d6…15e0 (14, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0004}
0x15e0…15f6 Head {h00=0x0012, h01=0x0050, text=» EJECT DSKSUB«, t00=0x000e, t01=0x000e}
0x15f6…1600 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0024}
0x1600…160a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x002e}
0x160a…161c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0038}
0x161c…162e Head {h00=0x000e, h01=0x0050, text=»* VOLADR *«, t00=0x000e, t01=0x004a}
0x162e…1640 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x005c}
0x1640…164a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x006e}
0x164a…1654 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0078}
0x1654…1678 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS«, t00=0x000e, t01=0x0082}
0x1678…1682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00a6}
0x1682…16ae Head {h00=0x0028, h01=0x0050, text=»* OUTPUT: A1 = VOLUME NAME ADDRESS«, t00=0x000e, t01=0x00b0}
0x16ae…16c2 Head {h00=0x0010, h01=0x0050, text=»* A4 = 6 «, t00=0x000e, t01=0x00dc}
0x16c2…16cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00f0}
0x16cc…16e0 Head {h00=0x0010, h01=0x0050, text=»VOLADR EQU *«, t00=0x000e, t01=0x00fa}
0x16e0…16fe Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTOR,A6 INDEX «, t00=0x000e, t01=0x010e}
0x16fe…1708 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x012c}
0x1708…171c Head {h00=0x0010, h01=0x0050, text=»VOLA05 EQU *«, t00=0x000e, t01=0x0136}
0x171c…1736 Head {h00=0x0016, h01=0x0050, text=» LDKL A1,DWTVOL-6 «, t00=0x000e, t01=0x014a}
0x1736…1748 Head {h00=0x000e, h01=0x0050, text=» ADR A1,A6«, t00=0x000e, t01=0x0164}
0x1748…175a Head {h00=0x000e, h01=0x0050, text=» ANK A4,/3«, t00=0x000e, t01=0x0176}
0x175a…1764 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0188}
0x1764…1778 (15, 0, 400) Head {h00=0x0010, h01=0x0050, text=»VOLA10 EQU *«, t00=0x000f, t01=0x0004}
0x1778…1798 Head {h00=0x001c, h01=0x0050, text=» ADK A1,6 UPDATE ADDRESS«, t00=0x000f, t01=0x0018}
0x1798…17aa Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000f, t01=0x0038}
0x17aa…17c0 Head {h00=0x0012, h01=0x0050, text=» RB(NN) VOLA10«, t00=0x000f, t01=0x004a}
0x17c0…17d2 Head {h00=0x000e, h01=0x0050, text=» LDK A4,6 «, t00=0x000f, t01=0x0060}
0x17d2…17e4 Head {h00=0x000e, h01=0x0050, text=» RF RETURN«, t00=0x000f, t01=0x0072}
0x17e4…17ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0084}
0x17ee…1806 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x000f, t01=0x008e}
0x1806…1810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00a6}
0x1810…181a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b0}
0x181a…182c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x00ba}
0x182c…183e Head {h00=0x000e, h01=0x0050, text=»* NVLCHK *«, t00=0x000f, t01=0x00cc}
0x183e…1850 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x00de}
0x1850…185a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f0}
0x185a…1864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00fa}
0x1864…18a0 Head {h00=0x0038, h01=0x0050, text=»* NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER «, t00=0x000f, t01=0x0104}
0x18a0…18dc Head {h00=0x0038, h01=0x0050, text=»* TO CHECK IF THE RETURN CODE "NEW VOLUME LOADED" «, t00=0x000f, t01=0x0140}
0x18dc…1918 Head {h00=0x0038, h01=0x0050, text=»* IS TO BE RETURNED TO THE CALLING TASK (RC=/20). «, t00=0x000f, t01=0x017c}
0x1918…1922 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0028}
0x1922…1946 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS«, t00=0x0010, t01=0x0032}
0x1946…1950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0056}
0x1950…198a Head {h00=0x0036, h01=0x0050, text=»* OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) «, t00=0x0010, t01=0x0060}
0x198a…19be Head {h00=0x0030, h01=0x0050, text=»* A2 = DWT ADDRESS + DOUBLE INDEX «, t00=0x0010, t01=0x009a}
0x19be…19e6 Head {h00=0x0024, h01=0x0050, text=»* A3, A4 ARE DESTROYED«, t00=0x0010, t01=0x00ce}
0x19e6…19f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00f6}
0x19f0…1a04 Head {h00=0x0010, h01=0x0050, text=»NVLCHK EQU *«, t00=0x0010, t01=0x0100}
0x1a04…1a2c Head {h00=0x0024, h01=0x0050, text=» LD A2,DWTOR,A6 INDEX AND ORDER «, t00=0x0010, t01=0x0114}
0x1a2c…1a60 Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTORD,A6 SAVE FOR RECOVERY PURPOSES «, t00=0x0010, t01=0x013c}
0x1a60…1a7e Head {h00=0x001a, h01=0x0050, text=» SRL A2,7 DOUBLE INDEX«, t00=0x0010, t01=0x0170}
0x1a7e…1a90 Head {h00=0x000e, h01=0x0050, text=» ADR A2,A6«, t00=0x0010, t01=0x018e}
0x1a90…1ab2 Head {h00=0x001e, h01=0x0050, text=» LD A1,DWTNVL,A2 NVL FLAG «, t00=0x0011, t01=0x0010}
0x1ab2…1ae8 Head {h00=0x0032, h01=0x0050, text=» ANKL A1,/7FFF RESET BIT 0 (FIRST REQUEST BIT)«, t00=0x0011, t01=0x0032}
0x1ae8…1b00 Head {h00=0x0014, h01=0x0050, text=» ST A1,DWTNVL,A2«, t00=0x0011, t01=0x0068}
0x1b00…1b30 Head {h00=0x002c, h01=0x0050, text=» ANKL A1,/3FFF NOT 1ST REQ. OR FIX DISK «, t00=0x0011, t01=0x0080}
0x1b30…1b56 Head {h00=0x0022, h01=0x0050, text=» RF(Z) RETURN RETURN IF NO NVL«, t00=0x0011, t01=0x00b0}
0x1b56…1b7c Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTTAB,A6 TTAB ADDRESS «, t00=0x0011, t01=0x00d6}
0x1b7c…1b8e Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x0011, t01=0x00fc}
0x1b8e…1bb4 Head {h00=0x0022, h01=0x0050, text=» LDKL A3,NVLTAB NVLTAB ADDRESS«, t00=0x0011, t01=0x010e}
0x1bb4…1bbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0134}
0x1bbe…1bd6 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0011, t01=0x013e}
0x1bd6…1be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0156}
0x1be0…1bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0160}
0x1bea…1bfe Head {h00=0x0010, h01=0x0050, text=»NVL:10 EQU *«, t00=0x0011, t01=0x016a}
0x1bfe…1c32 Head {h00=0x0030, h01=0x0050, text=» CWK A3,NVLEND CHECK IF END OF TABLE REACHED«, t00=0x0011, t01=0x017e}
0x1c32…1c56 Head {h00=0x0020, h01=0x0050, text=» RF(E) NVL:20 END OF NVLTAB «, t00=0x0012, t01=0x0022}
0x1c56…1c7c Head {h00=0x0022, h01=0x0050, text=» CWR* A4,A3 CHECK TTAB ADDRESS«, t00=0x0012, t01=0x0046}
0x1c7c…1ca4 Head {h00=0x0024, h01=0x0050, text=» RF(E) NVL:20 NVL FOR THIS TASK «, t00=0x0012, t01=0x006c}
0x1ca4…1cc8 Head {h00=0x0020, h01=0x0050, text=» SLL A1,1 SHIFT NVL BIT MASK«, t00=0x0012, t01=0x0094}
0x1cc8…1cf6 Head {h00=0x002a, h01=0x0050, text=» ADK A3,2 POINT TO NEXT TTAB IN NVLTAB«, t00=0x0012, t01=0x00b8}
0x1cf6…1d08 Head {h00=0x000e, h01=0x0050, text=» RB NVL:10«, t00=0x0012, t01=0x00e6}
0x1d08…1d12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f8}
0x1d12…1d26 Head {h00=0x0010, h01=0x0050, text=»NVL:20 EQU *«, t00=0x0012, t01=0x0102}
0x1d26…1d5a Head {h00=0x0030, h01=0x0050, text=» AN A1,DWTNVL,A2 CHECK IF NVL FOR THIS TASK «, t00=0x0012, t01=0x0116}
0x1d5a…1d84 Head {h00=0x0026, h01=0x0050, text=» RF(Z) RETURN NO NVL FOR THIS TASK«, t00=0x0012, t01=0x014a}
0x1d84…1dac Head {h00=0x0024, h01=0x0050, text=» XRS A1,DWTNVL,A2 RESET NVL BIT «, t00=0x0012, t01=0x0174}
0x1dac…1dcc Head {h00=0x001c, h01=0x0050, text=» LDK A1,/20 RETURN CODE «, t00=0x0013, t01=0x000c}
0x1dcc…1dd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x002c}
0x1dd6…1dee Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0013, t01=0x0036}
0x1dee…1df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x004e}
0x1df8…1e02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0058}
0x1e02…1e2a Head {h00=0x0024, h01=0x0050, text=»RETURN EQU * COMMON RETURN LABEL«, t00=0x0013, t01=0x0062}
0x1e2a…1e40 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x0013, t01=0x008a}
0x1e40…1e76 Head {h00=0x0032, h01=0x0050, text=» ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS «, t00=0x0013, t01=0x00a0}
0x1e76…1e82 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00d6}
0x1e82…1e8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e2}
0x1e8c…1ea2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x0013, t01=0x00ec}
0x1ea2…1eb2 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0013, t01=0x0102}
0x1eb2…1ebe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0112}
0x1ebe…1ec8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x011e}
0x1ec8…1ee0 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0013, t01=0x0128}
0x1ee0…1eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0140}
0x1eea…1ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x014a}
0x1ef4…1f06 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0154}
0x1f06…1f18 Head {h00=0x000e, h01=0x0050, text=»* VOLGET *«, t00=0x0013, t01=0x0166}
0x1f18…1f2a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0178}
0x1f2a…1f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x018a}
0x1f34…1f3e (20, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0004}
0x1f3e…1f78 Head {h00=0x0036, h01=0x0050, text=»* VOLGET WILL READ VOLUME NAME FROM DISC BUFFER «, t00=0x0014, t01=0x000e}
0x1f78…1fbc Head {h00=0x0040, h01=0x0050, text=»* TO DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. «, t00=0x0014, t01=0x0048}
0x1fbc…1fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x008c}
0x1fc6…1ff2 Head {h00=0x0028, h01=0x0050, text=»* INPUT: A2 = DISC BUFFER ADDRESS«, t00=0x0014, t01=0x0096}
0x1ff2…2028 Head {h00=0x0032, h01=0x0050, text=»* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0)«, t00=0x0014, t01=0x00c2}
0x2028…205c Head {h00=0x0030, h01=0x0050, text=»* BIT 0 SET MEANS TEST STATUS ORDER «, t00=0x0014, t01=0x00f8}
0x205c…2080 Head {h00=0x0020, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0014, t01=0x012c}
0x2080…208a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0150}
0x208a…20be Head {h00=0x0030, h01=0x0050, text=»* OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX «, t00=0x0014, t01=0x015a}
0x20be…20ec Head {h00=0x002a, h01=0x0050, text=»* A1-A3, A7-A8 ARE DESTROYED«, t00=0x0014, t01=0x018e}
0x20ec…20f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002c}
0x20f6…2100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0036}
0x2100…2114 Head {h00=0x0010, h01=0x0050, text=»VOLGET EQU *«, t00=0x0015, t01=0x0040}
0x2114…2142 Head {h00=0x002a, h01=0x0050, text=» CF A15,VOLADR DWT VOLUME NAME ADDRESS«, t00=0x0015, t01=0x0054}
0x2142…2162 Head {h00=0x001c, h01=0x0050, text=» LDK A7,0 RESET NVL FLAG«, t00=0x0015, t01=0x0082}
0x2162…216c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a2}
0x216c…2180 Head {h00=0x0010, h01=0x0050, text=»VGET10 EQU *«, t00=0x0015, t01=0x00ac}
0x2180…21b0 Head {h00=0x002c, h01=0x0050, text=» LDR* A8,A2 ONE WORD OF NEW VOLUME NAME «, t00=0x0015, t01=0x00c0}
0x21b0…21e0 Head {h00=0x002c, h01=0x0050, text=» CWR* A8,A1 COMPARE WITH OLD VOLUME NAME«, t00=0x0015, t01=0x00f0}
0x21e0…21f6 Head {h00=0x0012, h01=0x0050, text=» RF(E) VGET20 «, t00=0x0015, t01=0x0120}
0x21f6…2214 Head {h00=0x001a, h01=0x0050, text=» LDK A7,1 SET NVL FLAG«, t00=0x0015, t01=0x0136}
0x2214…223c Head {h00=0x0024, h01=0x0050, text=» STR A8,A1 STORE NEW VOLUME NAME«, t00=0x0015, t01=0x0154}
0x223c…2246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x017c}
0x2246…225e Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0015, t01=0x0186}
0x225e…2268 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x000e}
0x2268…2272 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0018}
0x2272…2286 Head {h00=0x0010, h01=0x0050, text=»VGET20 EQU *«, t00=0x0016, t01=0x0022}
0x2286…22b2 Head {h00=0x0028, h01=0x0050, text=» ADK A1,2 INCREMENT BUFFER POINTERS «, t00=0x0016, t01=0x0036}
0x22b2…22c4 Head {h00=0x000e, h01=0x0050, text=» ADK A2,2 «, t00=0x0016, t01=0x0062}
0x22c4…22ec Head {h00=0x0024, h01=0x0050, text=» SUK A4,2 DECREMENT LOOP COUNTER«, t00=0x0016, t01=0x0074}
0x22ec…2302 Head {h00=0x0012, h01=0x0050, text=» RB(P) VGET10 «, t00=0x0016, t01=0x009c}
0x2302…2318 Head {h00=0x0012, h01=0x0050, text=» CF A15,INXDWT«, t00=0x0016, t01=0x00b2}
0x2318…2338 Head {h00=0x001c, h01=0x0050, text=» ADK A7,0 CHECK NVL FLAG«, t00=0x0016, t01=0x00c8}
0x2338…235e Head {h00=0x0022, h01=0x0050, text=» RB(Z) RETURN RETURN IF NO NVL«, t00=0x0016, t01=0x00e8}
0x235e…2390 Head {h00=0x002e, h01=0x0050, text=» SLA A3,1 CHECK IF TEST STATUS OR RECOVERY«, t00=0x0016, t01=0x010e}
0x2390…23ba Head {h00=0x0026, h01=0x0050, text=» RB(O) RETURN TEST STATUS, NO NVL «, t00=0x0016, t01=0x0140}
0x23ba…23e6 Head {h00=0x0028, h01=0x0050, text=» SRA A3,1 FILE CODE WITHOUT SIGN BIT«, t00=0x0016, t01=0x016a}
0x23e6…2408 Head {h00=0x001e, h01=0x0050, text=» LD A7,DWTNVL,A4 NVL FLAGS«, t00=0x0017, t01=0x0008}
0x2408…243e Head {h00=0x0032, h01=0x0050, text=» RB(N) RETURN NO REQUESTS SO FAR ON THIS DISC «, t00=0x0017, t01=0x002a}
0x243e…2450 Head {h00=0x000e, h01=0x0050, text=» SLL A7,1 «, t00=0x0017, t01=0x0060}
0x2450…2478 Head {h00=0x0024, h01=0x0050, text=» RB(N) RETURN FIXED DISC, NO NVL«, t00=0x0017, t01=0x0072}
0x2478…2482 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x009a}
0x2482…249a Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0017, t01=0x00a4}
0x249a…24a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00bc}
0x24a4…24ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c6}
0x24ae…24c0 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0017, t01=0x00d0}
0x24c0…24d2 Head {h00=0x000e, h01=0x0050, text=»* NEWVOL *«, t00=0x0017, t01=0x00e2}
0x24d2…24e4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0017, t01=0x00f4}
0x24e4…24ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0106}
0x24ee…24f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0110}
0x24f8…253a Head {h00=0x003e, h01=0x0050, text=»* NEWVOL IS ENTERED FROM THE ROUTINE VOLGET WHEN IT HAS «, t00=0x0017, t01=0x011a}
0x253a…2572 Head {h00=0x0034, h01=0x0050, text=»* DETECTED THAT A NEW VOLUME HAS BEEN MOUNTED.«, t00=0x0017, t01=0x015c}
0x2572…25ac (24, 0, 400) Head {h00=0x0036, h01=0x0050, text=»* THE NEW VOLUME LOADED FLAG IS THEN SET BY THIS«, t00=0x0018, t01=0x0004}
0x25ac…25e6 Head {h00=0x0036, h01=0x0050, text=»* ROUTINE FOR THE CONCERNED FILE CODE AND FILES «, t00=0x0018, t01=0x003e}
0x25e6…2622 Head {h00=0x0038, h01=0x0050, text=»* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE «, t00=0x0018, t01=0x0078}
0x2622…265a Head {h00=0x0034, h01=0x0050, text=»* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE«, t00=0x0018, t01=0x00b4}
0x265a…2686 Head {h00=0x0028, h01=0x0050, text=»* NEXT REQUEST ON THAT FILE CODE. «, t00=0x0018, t01=0x00ec}
0x2686…2690 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0118}
0x2690…26c8 Head {h00=0x0034, h01=0x0050, text=»* INPUT: A3 = FILE CODE (DISC ONE FOR DRIVER)«, t00=0x0018, t01=0x0122}
0x26c8…26f4 Head {h00=0x0028, h01=0x0050, text=»* A4 = DWT ADDRESS + DOUBLE INDEX«, t00=0x0018, t01=0x015a}
0x26f4…2718 Head {h00=0x0020, h01=0x0050, text=»* A6 = DWT ADDRESS«, t00=0x0018, t01=0x0186}
0x2718…2722 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x001a}
0x2722…274c Head {h00=0x0026, h01=0x0050, text=»* OUTPUT: A3 = ACTUAL FILE CODE «, t00=0x0019, t01=0x0024}
0x274c…276c Head {h00=0x001c, h01=0x0050, text=»* A1-A2 ARE DESTROYED«, t00=0x0019, t01=0x004e}
0x276c…2776 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x006e}
0x2776…278a Head {h00=0x0010, h01=0x0050, text=»NEWVOL EQU *«, t00=0x0019, t01=0x0078}
0x278a…27ac Head {h00=0x001e, h01=0x0050, text=» LD A2,NVLBIT NVL BIT MASK«, t00=0x0019, t01=0x008c}
0x27ac…27e0 Head {h00=0x0030, h01=0x0050, text=» ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED «, t00=0x0019, t01=0x00ae}
0x27e0…27fe Head {h00=0x001a, h01=0x0050, text=» LC A2,DWTOR,A6 INDEX «, t00=0x0019, t01=0x00e2}
0x27fe…2810 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/3«, t00=0x0019, t01=0x0100}
0x2810…2834 Head {h00=0x0020, h01=0x0050, text=» ADR A3,A2 ACTUAL FILE CODE «, t00=0x0019, t01=0x0112}
0x2834…283e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0136}
0x283e…2856 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x0019, t01=0x0140}
0x2856…2860 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0158}
0x2860…286a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0162}
0x286a…2880 Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=0 «, t00=0x0019, t01=0x016c}
0x2880…2892 Head {h00=0x000e, h01=0x0050, text=» RB RETURN«, t00=0x0019, t01=0x0182}
0x2892…289e (26, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0004}
0x289e…28a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0010}
0x28a8…28be Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x001a, t01=0x001a}
0x28be…28ec Head {h00=0x002a, h01=0x0050, text=» LDKL A1,SCTFWT ADDRESS TO FWT POINTER«, t00=0x001a, t01=0x0030}
0x28ec…28f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x005e}
0x28f6…2938 Head {h00=0x003e, h01=0x0050, text=»* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME «, t00=0x001a, t01=0x0068}
0x2938…2942 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00aa}
0x2942…2956 Head {h00=0x0010, h01=0x0050, text=»NEW:10 EQU *«, t00=0x001a, t01=0x00b4}
0x2956…297a Head {h00=0x0020, h01=0x0050, text=» LDR* A2,A1 NEXT FWT ADDRESS«, t00=0x001a, t01=0x00c8}
0x297a…299e Head {h00=0x0020, h01=0x0050, text=» RB(Z) RETURN NO MORE FWT:S «, t00=0x001a, t01=0x00ec}
0x299e…29c2 Head {h00=0x0020, h01=0x0050, text=» LDR A1,A2 SAVE FWT ADDRESS «, t00=0x001a, t01=0x0110}
0x29c2…29f8 Head {h00=0x0032, h01=0x0050, text=» ADKL A2,FWTEW1 ADDRESS TO FIRST EWT STRUCTURE«, t00=0x001a, t01=0x0134}
0x29f8…2a02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x016a}
0x2a02…2a16 Head {h00=0x0010, h01=0x0050, text=»NEW:20 EQU *«, t00=0x001a, t01=0x0174}
0x2a16…2a42 Head {h00=0x0028, h01=0x0050, text=» LDR* A2,A2 ADDRESS TO 2ND EWT BLOCK«, t00=0x001a, t01=0x0188}
0x2a42…2a6a Head {h00=0x0024, h01=0x0050, text=» CC A3,EWTVOL,A2 CHECK FILE CODE«, t00=0x001b, t01=0x0024}
0x2a6a…2a80 Head {h00=0x0012, h01=0x0050, text=» RF(NE) NEW:30«, t00=0x001b, t01=0x004c}
0x2a80…2a9e Head {h00=0x001a, h01=0x0050, text=» LDKL A2,/8000 NVL BIT«, t00=0x001b, t01=0x0062}
0x2a9e…2ad2 Head {h00=0x0030, h01=0x0050, text=» ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED«, t00=0x001b, t01=0x0080}
0x2ad2…2ae4 Head {h00=0x000e, h01=0x0050, text=» RB NEW:10«, t00=0x001b, t01=0x00b4}
0x2ae4…2aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00c6}
0x2aee…2b02 Head {h00=0x0010, h01=0x0050, text=»NEW:30 EQU *«, t00=0x001b, t01=0x00d0}
0x2b02…2b34 Head {h00=0x002e, h01=0x0050, text=» LDR* A2,A2 ADDRESS TO NEXT EWT STRUCTURE «, t00=0x001b, t01=0x00e4}
0x2b34…2b64 Head {h00=0x002c, h01=0x0050, text=» RB(Z) NEW:10 END OF THIS EWT STRUCTURE «, t00=0x001b, t01=0x0116}
0x2b64…2b90 Head {h00=0x0028, h01=0x0050, text=» RB NEW:20 CONTINUE WITH NEXT EXTENT«, t00=0x001b, t01=0x0146}
0x2b90…2b9c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001b, t01=0x0172}
0x2b9c…2ba6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x017e}
0x2ba6…2bbe Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x001b, t01=0x0188}
0x2bbe…2bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0010}
0x2bc8…2bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x001a}
0x2bd2…2be4 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001c, t01=0x0024}
0x2be4…2bf6 Head {h00=0x000e, h01=0x0050, text=»* INXDWT *«, t00=0x001c, t01=0x0036}
0x2bf6…2c08 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001c, t01=0x0048}
0x2c08…2c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x005a}
0x2c12…2c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0064}
0x2c1c…2c68 Head {h00=0x0048, h01=0x0050, text=»* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. «, t00=0x001c, t01=0x006e}
0x2c68…2c72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00ba}
0x2c72…2c96 Head {h00=0x0020, h01=0x0050, text=»* INPUT: A6 = DWT ADDRESS«, t00=0x001c, t01=0x00c4}
0x2c96…2ca0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00e8}
0x2ca0…2cd4 Head {h00=0x0030, h01=0x0050, text=»* OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX «, t00=0x001c, t01=0x00f2}
0x2cd4…2d02 Head {h00=0x002a, h01=0x0050, text=»* NO REGISTERS ARE DESTROYED«, t00=0x001c, t01=0x0126}
0x2d02…2d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0154}
0x2d0c…2d20 Head {h00=0x0010, h01=0x0050, text=»INXDWT EQU *«, t00=0x001c, t01=0x015e}
0x2d20…2d3e Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTOR,A6 INDEX «, t00=0x001c, t01=0x0172}
0x2d3e…2d50 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/3«, t00=0x001c, t01=0x0190}
0x2d50…2d70 Head {h00=0x001c, h01=0x0050, text=» ADR A4,A4 DOUBLE INDEX «, t00=0x001d, t01=0x0012}
0x2d70…2d82 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x001d, t01=0x0032}
0x2d82…2d94 Head {h00=0x000e, h01=0x0050, text=» RB RETURN«, t00=0x001d, t01=0x0044}
0x2d94…2d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0056}
0x2d9e…2db6 Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x001d, t01=0x0060}
0x2db6…2dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0078}
0x2dc0…2dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0082}
0x2dca…2ddc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x008c}
0x2ddc…2dee Head {h00=0x000e, h01=0x0050, text=»* NVLTAB *«, t00=0x001d, t01=0x009e}
0x2dee…2e00 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x001d, t01=0x00b0}
0x2e00…2e0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00c2}
0x2e0a…2e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00cc}
0x2e14…2e4c Head {h00=0x0034, h01=0x0050, text=»* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS«, t00=0x001d, t01=0x00d6}
0x2e4c…2e86 Head {h00=0x0036, h01=0x0050, text=»* THAT WILL RECEIVE NEW VOLUME LOADED WHEN A NEW«, t00=0x001d, t01=0x010e}
0x2e86…2eaa Head {h00=0x0020, h01=0x0050, text=»* VOLUME HAS BEEN MOUNTED.«, t00=0x001d, t01=0x0148}
0x2eaa…2eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x016c}
0x2eb4…2edc Head {h00=0x0024, h01=0x0050, text=»* BIT NO IN DWTNVL «, t00=0x001d, t01=0x0176}
0x2edc…2ef0 Head {h00=0x0010, h01=0x0050, text=»NVLTAB EQU *«, t00=0x001e, t01=0x000e}
0x2ef0…2f06 Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x001e, t01=0x0022}
0x2f06…2f2e Head {h00=0x0024, h01=0x0050, text=» DATA TTABFM FMTASK TTAB 15«, t00=0x001e, t01=0x0038}
0x2f2e…2f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0060}
0x2f38…2f54 Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x001e, t01=0x006a}
0x2f54…2f7c Head {h00=0x0024, h01=0x0050, text=» DATA TTABLD LDTASK TTAB 14«, t00=0x001e, t01=0x0086}
0x2f7c…2f88 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x00ae}
0x2f88…2f98 Head {h00=0x000c, h01=0x0050, text=»* =1 «, t00=0x001e, t01=0x00ba}
0x2f98…2fae Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=1 «, t00=0x001e, t01=0x00ca}
0x2fae…2fc2 Head {h00=0x0010, h01=0x0050, text=»NVLEND EQU *«, t00=0x001e, t01=0x00e0}
0x2fc2…2fcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00f4}
0x2fcc…2fee Head {h00=0x001e, h01=0x0050, text=»NVLBIT DATA 0 NVL BIT MASK«, t00=0x001e, t01=0x00fe}
0x2fee…2ffa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001e, t01=0x0120}
0x2ffa…3004 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x012c}
0x3004…301c Head {h00=0x0014, h01=0x0050, text=» EJECT DSKSUB «, t00=0x001e, t01=0x0136}
0x301c…3026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x014e}
0x3026…3030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0158}
0x3030…3046 Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=0 «, t00=0x001e, t01=0x0162}
0x3046…3062 Head {h00=0x0018, h01=0x0050, text=» IFF DSKPAG+SWPBLK=0«, t00=0x001e, t01=0x0178}
0x3062…3082 (31, 2, 314) Head {h00=0x001c, h01=0x0050, text=» DATA TTABLD LDTASK TTAB«, t00=0x001f, t01=0x0004}
0x3082…308c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0024}
0x308c…30a0 Head {h00=0x0010, h01=0x0050, text=»NVLEND EQU *«, t00=0x001f, t01=0x002e}
0x30a0…30aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0042}
0x30aa…30cc Head {h00=0x001e, h01=0x0050, text=»NVLBIT DATA 3 NVL BIT MASK«, t00=0x001f, t01=0x004c}
0x30cc…30d8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x006e}
0x30d8…30e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x007a}
0x30e2…30f8 Head {h00=0x0012, h01=0x0050, text=» IFT FILMAN=0 «, t00=0x001f, t01=0x0084}
0x30f8…3114 Head {h00=0x0018, h01=0x0050, text=» IFT DSKPAG+SWPBLK=0«, t00=0x001f, t01=0x009a}
0x3114…311e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00b6}
0x311e…3132 Head {h00=0x0010, h01=0x0050, text=»NVLEND EQU *«, t00=0x001f, t01=0x00c0}
0x3132…313c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00d4}
0x313c…315e Head {h00=0x001e, h01=0x0050, text=»NVLBIT DATA 1 NVL BIT MASK«, t00=0x001f, t01=0x00de}
0x315e…316a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0100}
0x316a…3174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x010c}
0x3174…317e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0116}
0x317e…3188 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0120}
0x3188…3194 Head {h00=0x0008, h01=0x0004, text=» END«, t00=0x001f, t01=0x012a}
0x3194…3198 Head {h00=0x4004, h01=0x0000}
0x3198…319c 00 1f 01 36 ┆ 6┆
0x319c…31a4 (32, 1, 8) 20 04 00 00 00 20 00 04 ┆ ┆
0x31a4…31f4 (33, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 68 01 6e 00 3e 00 50 2a 20 20 45 58 49 54 3a 20 20 41 35 20 2d 20 53 45 47 4d 45 4e 54 20 54 41 42 4c 45 20 41 44 44 52 45 53 53 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * h n > P* EXIT: A5 - SEGMENT TABLE ADDRESS ┆
0x31f4…3244 20 20 20 20 20 20 20 20 20 2a 00 69 00 20 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 69 00 62 ┆ * i > P* * i b┆
0x3244…3294 00 3e 00 50 2a 20 20 57 4f 52 4b 20 52 45 47 49 53 54 45 52 53 3a 20 20 41 32 2c 41 33 2c 41 39 2c 41 31 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 69 00 a4 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 ┆ > P* WORK REGISTERS: A2,A3,A9,A11 * i > P* ┆
0x3294…32e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 69 00 e6 00 3e 00 50 2a 20 20 53 55 42 52 4f 55 54 49 4e 45 53 3a 20 20 43 4d 50 41 44 52 2c ┆ * i > P* SUBROUTINES: CMPADR,┆
0x32e4…3334 45 52 52 4f 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 69 01 28 00 3e 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ERROR * i ( > P* ┆
0x3334…3384 (34, 0, 400) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 00 69 01 6a 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * i j > P****************************************************┆
0x3384…33d4 2a 2a 2a 2a 2a 2a 00 6a 00 1c 00 0a 00 50 5c 45 4a 45 43 54 00 6a 00 5e 00 10 00 50 42 4d 53 54 41 42 5c 45 51 55 5c 2a 00 6a 00 6c 00 2a 00 50 5c 53 54 52 5c 41 31 2c 41 31 35 5c 53 41 56 45 20 52 45 47 49 53 54 45 52 20 41 31 20 4f 4e 20 ┆****** j P EJECT j ^ PBMSTAB EQU * j l * P STR A1,A15 SAVE REGISTER A1 ON ┆
0x33d4…3424 53 54 41 43 4b 20 00 6a 00 80 00 28 00 50 5c 4c 44 5c 41 35 2c 53 43 54 53 46 41 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 46 52 45 45 20 41 52 45 41 00 6a 00 ae 00 2a 00 50 5c 4c 44 5c 41 32 2c 53 43 54 49 50 4c 5c 47 45 54 20 50 52 4f 47 ┆STACK j ( P LD A5,SCTSFA GET START OF FREE AREA j * P LD A2,SCTIPL GET PROG┆
0x3424…3474 52 41 4d 20 4c 4f 41 44 20 44 45 56 49 43 45 20 00 6a 00 da 00 26 00 50 5c 53 54 52 5c 41 32 2c 41 35 5c 53 54 4f 52 45 20 49 4e 20 53 45 47 4d 45 4e 54 20 54 41 42 4c 45 20 00 6a 01 08 00 2a 00 50 5c 41 44 4b 5c 41 35 2c 32 5c 4e 45 58 54 ┆RAM LOAD DEVICE j & P STR A2,A5 STORE IN SEGMENT TABLE j * P ADK A5,2 NEXT┆
0x3474…34c4 20 45 4e 54 52 59 20 49 4e 20 53 45 47 4d 45 4e 54 20 54 41 42 4c 45 20 00 6a 01 32 00 26 00 50 5c 4c 44 52 2a 5c 41 39 2c 41 34 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 53 45 47 4d 45 4e 54 53 00 6a 01 60 00 14 00 50 5c 4c 44 52 5c 41 ┆ ENTRY IN SEGMENT TABLE j 2 & P LDR* A9,A4 GET NUMBER OF SEGMENTS j ` P LDR A┆
0x34c4…3514 (35, 0, 400) 31 2c 41 39 5c 53 41 56 45 20 00 6a 01 8a 00 26 00 50 5c 53 54 52 5c 41 39 2c 41 35 5c 53 54 4f 52 45 20 49 4e 20 53 45 47 4d 45 4e 54 20 54 41 42 4c 45 20 00 6b 00 12 00 3c 00 50 5c 41 44 53 5c 41 39 2c 53 54 4b 43 4f 4d 2b 54 4f 54 53 47 ┆1,A9 SAVE j & P STR A9,A5 STORE IN SEGMENT TABLE k < P ADS A9,STKCOM+TOTSG┆
0x3514…3564 4d 5c 49 4e 43 52 45 4d 45 4e 54 20 54 4f 54 41 4c 20 4e 55 4d 42 45 52 20 4f 46 20 53 45 47 4d 45 4e 54 53 00 6b 00 3c 00 22 00 50 5c 41 44 4b 5c 41 35 2c 32 5c 53 45 47 4d 45 4e 54 20 54 41 42 4c 45 20 45 4e 54 52 59 20 00 6b 00 7c 00 14 ┆M INCREMENT TOTAL NUMBER OF SEGMENTS k < " P ADK A5,2 SEGMENT TABLE ENTRY k | ┆
0x3564…35b4 00 50 5c 4c 44 52 5c 41 33 2c 41 35 5c 53 41 56 45 20 00 6b 00 a2 00 06 00 50 2a 20 00 6b 00 ba 00 1c 00 50 2a 20 20 42 55 49 4c 44 20 53 45 47 4d 45 4e 54 20 42 4c 4f 43 4b 20 30 00 6b 00 c4 00 06 00 50 2a 20 00 6b 00 e4 00 28 00 50 5c 4c ┆ P LDR A3,A5 SAVE k P* k P* BUILD SEGMENT BLOCK 0 k P* k ( P L┆
0x35b4…3604 44 4b 4c 5c 41 32 2c 2f 38 34 30 30 5c 53 54 41 54 55 53 20 46 4f 52 20 53 45 47 4d 45 4e 54 20 30 20 00 6b 00 ee 00 28 00 50 5c 53 54 52 5c 41 32 2c 41 33 5c 53 54 4f 52 45 20 49 4e 20 53 45 47 4d 45 4e 54 20 42 4c 4f 43 4b 20 30 20 00 6b ┆DKL A2,/8400 STATUS FOR SEGMENT 0 k ( P STR A2,A3 STORE IN SEGMENT BLOCK 0 k┆
0x3604…3654 01 1a 00 36 00 50 42 4d 53 54 32 30 5c 53 54 5c 41 31 2c 53 54 4b 45 4e 44 2b 53 47 4d 43 4e 54 5c 53 41 56 45 20 4e 55 4d 42 45 52 20 4f 46 20 53 45 47 4d 45 4e 54 53 00 6b 01 46 00 20 00 50 5c 41 44 4b 5c 41 33 2c 38 5c 4e 45 58 54 20 53 ┆ 6 PBMST20 ST A1,STKEND+SGMCNT SAVE NUMBER OF SEGMENTS k F P ADK A3,8 NEXT S┆
0x3654…36a4 (36, 0, 400) 45 47 4d 45 4e 54 20 42 4c 4f 43 4b 00 6b 01 80 00 2e 00 50 5c 4c 44 5c 41 39 2c 53 54 4b 45 4e 44 2b 4c 49 4d 49 54 5c 47 45 54 20 45 4e 44 20 4f 46 20 53 59 53 54 45 4d 20 41 52 45 41 00 6c 00 14 00 2a 00 50 5c 4c 44 52 5c 41 31 31 2c 41 ┆EGMENT BLOCK k . P LD A9,STKEND+LIMIT GET END OF SYSTEM AREA l * P LDR A11,A┆
0x36a4…36f4 33 5c 47 45 54 20 45 4e 44 20 4f 46 20 53 45 47 4d 45 4e 54 20 42 4c 4f 43 4b 53 20 00 6c 00 46 00 22 00 50 5c 43 41 4c 4c 5c 43 4d 50 41 44 52 5c 43 4f 4d 50 41 52 45 20 41 44 44 52 45 53 53 45 53 00 6c 00 74 00 16 00 50 5c 52 46 28 4e 47 ┆3 GET END OF SEGMENT BLOCKS l F " P CALL CMPADR COMPARE ADDRESSES l t P RF(NG┆
0x36f4…3744 29 5c 42 4d 53 54 32 35 5c 4f 4b 20 00 6c 00 9a 00 2a 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4c 4d 50 33 5c 49 4e 44 49 43 41 54 45 20 4d 45 4d 4f 52 59 20 4f 56 45 52 46 4c 4f 57 00 6c 00 b4 00 10 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 20 00 6c ┆) BMST25 OK l * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW l P CALL ERROR l┆
0x3744…3794 00 e2 00 26 00 50 42 4d 53 54 32 35 5c 4c 44 52 2a 5c 41 32 2c 41 38 5c 47 45 54 20 53 45 47 4d 45 4e 54 20 54 59 50 45 00 6c 00 f6 00 16 00 50 5c 53 52 4c 5c 41 32 2c 38 5c 49 53 4f 4c 41 54 45 20 00 6c 01 20 00 28 00 50 5c 43 43 4b 5c 41 ┆ & PBMST25 LDR* A2,A8 GET SEGMENT TYPE l P SRL A2,8 ISOLATE l ( P CCK A┆
0x3794…37e4 32 2c 27 52 52 27 5c 43 4f 52 45 20 52 45 53 49 44 45 4e 54 20 53 45 47 4d 45 4e 54 3f 20 00 6c 01 3a 00 16 00 50 5c 52 46 28 45 29 5c 42 4d 53 54 34 30 5c 59 45 53 21 00 6c 01 66 00 22 00 50 5c 4c 44 5c 41 32 2c 53 43 54 4f 50 54 5c 47 45 ┆2,'RR' CORE RESIDENT SEGMENT? l : P RF(E) BMST40 YES! l f " P LD A2,SCTOPT GE┆