diff --git a/.Floppies/A2OSX.BOOT.po b/.Floppies/A2OSX.BOOT.po
index 3e0bcd9c..d3fc0aab 100644
Binary files a/.Floppies/A2OSX.BOOT.po and b/.Floppies/A2OSX.BOOT.po differ
diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po
index e7dd1c53..f3e14144 100644
Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ
diff --git a/.Floppies/A2OSX.TEST.po b/.Floppies/A2OSX.TEST.po
index 4ed38f5c..39aafc53 100644
Binary files a/.Floppies/A2OSX.TEST.po and b/.Floppies/A2OSX.TEST.po differ
diff --git a/BIN/CUT.S.txt b/BIN/CUT.S.txt
index d285046b..09a55624 100644
--- a/BIN/CUT.S.txt
+++ b/BIN/CUT.S.txt
@@ -55,35 +55,46 @@ CS.INIT			clc
 				rts
 *--------------------------------------
 CS.RUN			stz ArgCount
+
 				lda #C.SPACE
 				sta Separator
+
 .10				jsr CS.RUN.NextArg
 				bcs .8
+
 				lda (ZPPtr1)
 				cmp #'-'
 				beq .1
+
 				lda ArgCount
 				sta ArgIndex
 				bra .10
+
 .1				ldy #1 
 				lda (ZPPtr1),y
 
-				ldx OptionList
+				ldx #OptionList.Cnt-1
+
 .2				cmp OptionList,x
 				beq .3
 				dex
-				bne .2
+				bpl .2
+
 				bra .97
+
 .3				txa
 				lsr
 				beq .98					-H
+
 				cmp #4					-S
 				bne .4
+
 				jsr CS.RUN.NextArg
 				bcs .97
 				lda (ZPPtr1)
 				sta Separator
 				bra .10
+
 .4				sta OptionIdx
 				jsr CS.RUN.NextArg
 				bcs .97
@@ -96,6 +107,7 @@ CS.RUN			stz ArgCount
 				ldx OptionIdx
 				sta FieldNum-1,x
 				bra .10					scan for any other args		
+
 .97				lda #E.SYN
 .98				pha
 				>PUSHBI 0
@@ -112,11 +124,18 @@ CS.RUN			stz ArgCount
 				stx hBuf
 				lda ArgIndex
 				beq .80
+
 				>SYSCALL ArgV
 				>PUSHYA
 				>LDYA ZPBufPtr
 				>SYSCALL strcpy
-				bra CS.RUN.OUT
+				jsr CS.RUN.OUT
+				bcs .9
+				
+				lda #0					Exit with no Error
+				sec
+				rts
+
 .80				ldy #S.PS.hStdIn
 				lda (pPS),y
 				tax
@@ -126,25 +145,49 @@ CS.RUN			stz ArgCount
 				lda (ZPPtr1)
 				cmp #S.FD.T.PIPE
 				bne .97
+*--------------------------------------
+CS.RUN.LOOP		>SLEEP
+				
 				>PUSHWI	256
 				>PUSHW ZPBufPtr
 				ldy #S.PS.hStdIn
 				lda (pPS),y
 
 				>SYSCALL fgets
-				bcc CS.RUN.OUT
-				cmp #MLI.E.EOF
-				bne .9
-CS.RUN.OUT		lda FieldNum
+				bcs	.8
+
+				lda (ZPBufPtr)
+				beq CS.RUN.LOOP
+				
+*				>LDYA ZPBufPtr
+*				>SYSCALL puts
+
+				jsr CS.RUN.OUT
+				bcs .9
+				bra CS.RUN.LOOP
+				
+.8				cmp #MLI.E.EOF
+				bne .90
+				
+				lda #0
+.90				sec
+.9				rts				
+*--------------------------------------
+CS.RUN.OUT		ldx FieldNum
 				beq CS.RUN.OUT.MN
+
 				ldy #$ff
+
 .1				iny						skip spaces
 				lda (ZPBufPtr),y
 				beq CS.RUN.PRINTCR
+
 				cmp Separator
 				beq .1
-				dec FieldNum
+
+				dex
 				beq .4
+
 .2				iny						skip token
 				lda (ZPBufPtr),y
 				beq CS.RUN.PRINTCR
@@ -166,44 +209,45 @@ CS.RUN.OUT		lda FieldNum
 
 .8				>LDYA ZPBufPtr
 				>SYSCALL puts
-				lda #0					Exit with no Error
-				sec
+
 				rts
 *--------------------------------------
 CS.RUN.PRINTCR	>PUSHBI 0
 				>LDYA L.MSG.CRLF
 				>SYSCALL printf
-				bcs .9
-				lda #0
-				sec
-.9				rts
+
+				rts
 *--------------------------------------
 CS.RUN.OUT.MN	ldy #$ff
 
 				ldx StartChar
 				beq .2
+
 .1				iny
 				lda (ZPBufPtr),y
 				beq CS.RUN.PRINTCR
 				dex
 				bne .1
+
 .2				ldx EndChar
 				beq .8
+
 .3				iny
 				lda (ZPBufPtr),y
 				beq .8
 
 				cpy EndChar
 				bne .3
+
 				lda #0
 				sta (ZPBufPtr),y			
+
 .8				ldy StartChar
 				jsr CS.RUN.AddYToBufPtr
 
 				>LDYA ZPBufPtr
 				>SYSCALL puts
-				lda #0					Exit with no Error
-				sec
+
 				rts
 *--------------------------------------
 CS.RUN.NextArg	inc ArgCount
@@ -236,7 +280,8 @@ CS.DOEVENT		sec
 *--------------------------------------
 CS.END
 *--------------------------------------
-OptionList		>PSTR "HhFfMmNnSs"
+OptionList		.AS "HhFfMmNnSs"
+OptionList.Cnt	.EQ *-OptionList
 *--------------------------------------
 MSG.USAGE		.AS "Usage : CUT "line of text"\r\n"
 				.AS "   -H : This help screen\r\n"
@@ -249,8 +294,7 @@ MSG.CRLF		.AZ "\r\n"
 				.DUMMY
 				.OR 0
 DS.START
-DS.END
-				.ED
+DS.END			.ED
 *--------------------------------------
 MAN
 SAVE USR/SRC/BIN/CUT.S
diff --git a/ProDOS.203/ProDOS.S.LDR.A.txt b/ProDOS.203/ProDOS.S.LDR.A.txt
index 2f8c909b..9bde84e5 100644
--- a/ProDOS.203/ProDOS.S.LDR.A.txt
+++ b/ProDOS.203/ProDOS.S.LDR.A.txt
@@ -6,7 +6,7 @@ H2000			jmp prostart
 				jmp p16start			GQuit setup for gs/os
 
 LDR.MSG.AppleII	.AS	-"Apple II"
-LDR.MSG.ProDOS	.AS	-"ProDOS 8 V2.0.3      "
+LDR.MSG.ProDOS	.AS	-"ProDOS 8 V2.0.3tc    "
 				.AS -"06-May-93"
 H202F			.AS	-"            "
 LDR.MSG.Copyright
diff --git a/ProDOS.203/ProDOS.S.txt b/ProDOS.203/ProDOS.S.txt
index c813a358..0005bd68 100644
--- a/ProDOS.203/ProDOS.S.txt
+++ b/ProDOS.203/ProDOS.S.txt
@@ -3,7 +3,7 @@ NEW
 		.LIST OFF
 		.OP	65816
 		.OR $2000
-		.TF PRODOS203,TSYS
+		.TF PRODOS.203,TSYS
 *--------------------------------------
 		.INB INC/ZP.I
 		.INB INC/IO.I
diff --git a/ProDOS.FX/ProDOS.S.GP.txt b/ProDOS.FX/ProDOS.S.GP.txt
index 9b1c7399..b30db973 100644
--- a/ProDOS.FX/ProDOS.S.GP.txt
+++ b/ProDOS.FX/ProDOS.S.GP.txt
@@ -1,9 +1,7 @@
 NEW
   AUTO 3,1
-* object code = mli_1
-* global page
-
-H2E00			jmp	mlient1				$2E00-2EFF moved to $BF00
+*--------------------------------------
+H2E00			jmp	GP.MLIENTRY			$2E00-2EFF moved to $BF00
 jspare			jmp *					will be changed to point to dispatcher.
 clockv 			rts						changed to jmp ($4C) if clock present.
 				.DA tclk_in				clock routine entry address.
@@ -31,26 +29,34 @@ numdevs  		.DA #$ff				count (-1) active devices
 devlist  		.HS 00000000000000		up to 14 units may be active
 				.HS 00000000000000
 				.DA #0
-
+*--------------------------------------
 				.AS "(C)APPLE  "
-mlient1			php
+*--------------------------------------
+GP.MLIENTRY		php
 				sei
-				jmp mlicont
-aftirq			sta RRAMWRAMBNK1		read/write RAM bank 1
-				jmp fix45				restore $45 after interrupt in LC
-oldacc			.DA #0
-afbank			.HS 00
-
+				jmp GP.MLICONT
+*--------------------------------------
+*aftirq			sta RRAMWRAMBNK1		read/write RAM bank 1
+*				jmp fix45				restore $45 after interrupt in LC
+*oldacc			.DA #0
+*afbank			.HS 00
+*--------------------------------------
+				.LIST ON
+GP.FREE1		.EQ $BF58-*
+				.LIST OFF
+				.BS GP.FREE1
+*--------------------------------------				
 * memory map of lower 48k. each bit represents 1 page.
 * protected pages = 1, unprotected = 0
 
+*--------------------------------------
 memmap 			.HS C000000000000000
 				.HS 0000000000000000
 				.HS 0000000000000001
-
+*--------------------------------------
 * table of buffer addresses for currently open files.
 * these can only be changed thru the mli call setbuf.
-
+*--------------------------------------
 buftbl 			.HS 0000				file #1
 				.HS 0000	  			file #2
 				.HS 0000	  			file #3
@@ -59,23 +65,27 @@ buftbl 			.HS 0000				file #1
 				.HS 0000				file #6
 				.HS 0000				file #7
 				.HS 0000				file #8
-
+*--------------------------------------
 * table of interrupt vectors. these can only be changed
 * by the mli call allocate_interrupt. values of the registers
 * at the time of the most recent interrupt are stored here along
 * with the address interrupted.
-
+*--------------------------------------
 inttbl 			.HS 0000				int #1
 				.HS 0000				int #2
 				.HS 0000				int #3
 				.HS 0000				int #4
-p8areg 			.DA #0					A register savearea
-p8xreg 			.DA #0					X register savearea
-p8yreg 			.DA #0					Y register savearea
-p8sreg 			.DA #0					S register savearea
-p8preg 			.DA #0					P register savearea
-bankid			.DA #1					bank ID byte (ROM/RAM)
-intadr 			.HS 0000				interrupt return address
+*--------------------------------------
+*p8areg 			.DA #0					A register savearea
+*p8xreg 			.DA #0					X register savearea
+*p8yreg 			.DA #0					Y register savearea
+*p8sreg 			.DA #0					S register savearea
+*p8preg 			.DA #0					P register savearea
+*bankid			.DA #1					bank ID byte (ROM/RAM)
+*intadr 			.HS 0000				interrupt return address
+*--------------------------------------
+				.BS 8
+*--------------------------------------
 p8date 			.HS 0000				bits 15-9=yr, 8-5=mo, 4-0=day
 p8time 			.HS 0000				bits 12-8=hr, 5-0=min, low-hi format
 flevel  		.DA #0					current file level
@@ -89,11 +99,11 @@ mliact 			.DA #0					MLI active flag
 mliretn  		.DA 0					last MLI call return address
 mlix   			.DA #0					MLI X register savearea
 mliy   			.DA #0					MLI Y register savearea
-
+*--------------------------------------
 * language card bank switching routines which must reside at $BFA0 because
 * workstation software patches this area
-
-HBFA0			eor $E000				test for rom enable
+*--------------------------------------
+GP.MLIEXIT		eor $E000				test for rom enable
 				beq .1	  				taken if ram enabled
 				sta RROMBNK2			read ROM
 				bne .2	 				always
@@ -103,8 +113,8 @@ HBFA0			eor $E000				test for rom enable
 				lda RRAMWRAMBNK2		else enable alt $D000
 .2  			pla		 			 	return code
 				rti		  				re-enable interrupts and return
-
-mlicont			sec
+*--------------------------------------
+GP.MLICONT		sec
 				ror mliact	   			notify interrupt routines MLI active.
 				lda $E000				preserve language card/rom orientation
 				sta bnkbyt1	  			for proper restoration when mli exits.
@@ -113,30 +123,35 @@ mlicont			sec
 				lda RRAMWRAMBNK1		force ram card on
 				lda RRAMWRAMBNK1		with write allowed
 				jmp XDOS.MLI
+*--------------------------------------
+*GP.IrqExit		lda bankid	   			determine state of ram card (ROM/RAM)
+*irqxit0
+*				beq .2					branch if ram card enabled.
+*				bmi .1					branch if alternate $D000 enabled.
 
-GP.IrqExit		lda bankid	   			determine state of ram card (ROM/RAM)
+*				lsr						determine if no ram card present.
+*				bcc .3					branch if rom only system.
 
-irqxit0			beq .2					branch if ram card enabled.
-				bmi .1					branch if alternate $D000 enabled.
+*				lda RROMWRAMBNK2	   	enable rom
+*				bcs .3					always taken
 
-				lsr						determine if no ram card present.
-				bcc .3					branch if rom only system.
+*.1	  			lda RRAMWRAMBNK2		enable alternate $D000
 
-				lda RROMWRAMBNK2	   	enable rom
-				bcs .3					always taken
-
-.1	  			lda RRAMWRAMBNK2		enable alternate $D000
-
-.2	  			lda #$01	   			preset bankid for rom.
-				sta bankid	   			(reset if ram card interrupt)
-
-.3				lda	p8areg	  			restore acc
-				rti		  				exit
-
-irqent			bit	RRAMWRAMBNK1	   	this entry only used when rom
-				bit	RRAMWRAMBNK1		was enabled at time of interrupt.
-				jmp	irqrecev
+*.2	  			lda #$01	   			preset bankid for rom.
+*				sta bankid	   			(reset if ram card interrupt)
 
+*.3				lda	p8areg	  			restore acc
+*				rti		  				exit
+*--------------------------------------
+				.LIST ON
+GP.FREE2		.EQ $BFEB-*
+				.LIST OFF
+				.BS GP.FREE2
+*--------------------------------------
+GP.IRQV			bit	RRAMWRAMBNK1	   	***NEW ROM ONLY IRQ $fffe > $Cxxx space***
+				bit	RRAMWRAMBNK1		Entry used when rom/mainLC/auxLC
+				jmp	XDOS.IRQV
+*--------------------------------------
 bnkbyt1			.DA #0
 bnkbyt2			.DA #0
 				.HS 00000000			pad to before $BFFA
diff --git a/ProDOS.FX/ProDOS.S.IRQ.txt b/ProDOS.FX/ProDOS.S.IRQ.txt
index f87952fa..50f3e2e9 100644
--- a/ProDOS.FX/ProDOS.S.IRQ.txt
+++ b/ProDOS.FX/ProDOS.S.IRQ.txt
@@ -5,53 +5,63 @@ NEW
 * address $FFCB (ROM rts opcode) for rom switching to function.
 * $2D9B-2DFF moved to $FF9B-FFFF
 *--------------------------------------
-lanirq			.LIST ON
+OLDROM.IRQV
 *				pha
 *				lda accsav
 *				sta oldacc
 *				pla
 *				sta accsav		
-				pla						get status register from stack
-				pha		 				and put it back.
-				and #$10	   			is it a break or interrupt?
-				bne	H2DC2	   			branch if break.
 
-				lda $D000				get ram bankid (LC1 = $D8, LC2=$EE)
-				eor #$D8	   			is the system active? ($D8)
-				beq	sysactv	   			branch if it is
-				lda	#$FF
-sysactv			sta	bankid
-				sta afbank
-				lda /aftirq				setup return address
-				pha
-				lda #aftirq
-				pha
-				lda #$04				status reg with interrupt flag set
-				pha
-H2DC2  			lda /romirq				setup ROM re-entry
-				pha
-				lda #romirq
-				pha
+*				pla						get status register from stack
+*				pha		 				and put it back.
+*				and #$10	   			is it a break or interrupt?
+*				bne	H2DC2	   			branch if break.
+
+*				lda $D000				get ram bankid (LC1 = $D8, LC2=$EE)
+*				eor #$D8	   			is the system active? ($D8)
+*				beq	sysactv	   			branch if it is
+
+*				lda	#$FF
+
+*sysactv		sta	bankid
+*				sta afbank
+*				lda /aftirq				setup return address
+*				pha
+*				lda #aftirq
+*				pha
+*				lda #$04				status reg with interrupt flag set
+*				pha
+
+*H2DC2  		lda /romirq				setup ROM re-entry
+*				pha
+*				lda #romirq
+*				pha
+
+				.LIST ON
+IRQ.FREE1		.EQ $ffc8-*
+				.LIST OFF
+				
+				.BS IRQ.FREE1
+				
 gorom			sta RROMBNK2			hits ROM rts at $FFCB
 
 * 'lreset' address must = $FFCB for rom switch i/o to work
-				.BS *-$ffcb
 
-lreset			lda rreset+1
+lreset			lda /resetv-1
 				pha
-				lda rreset
+				lda #resetv-1
 				pha
 				jmp gorom
 
-rreset			.DA resetv-1			rts to resetv
+*rreset			.DA resetv-1			rts to resetv
 
-fix45			sta p8areg	  			A register savearea
+*fix45			sta p8areg	  			A register savearea
 *				lda oldacc
 *				sta accsav
-				lda RRAMWRAMBNK1		read/write RAM bank 1
-				lda RRAMWRAMBNK1
-				lda afbank
-				jmp irqxit0
+*				lda RRAMWRAMBNK1		read/write RAM bank 1
+*				lda RRAMWRAMBNK1
+*				lda afbank
+*				jmp irqxit0
 
 stypfx			sty newpfxptr			fix appletalk PFI bug
 				sty preflag	  			prefix flag
@@ -60,12 +70,17 @@ stypfx			sty newpfxptr			fix appletalk PFI bug
 stapfx			sta newpfxptr
 				sta preflag
 				rts
-				
-				.BS *-$fffa
+
+				.LIST ON
+IRQ.FREE2		.EQ $fffa-*
+				.LIST OFF
+
+				.BS IRQ.FREE2
 
 				.DA nmivect	 			nmi handler
 				.DA lreset	 			reset handler
-irqv			.DA lanirq				irq handler
+irqv			.DA *					PATCHED with ROM vector by LDR
+				.LIST OFF
 *--------------------------------------
 MAN
 SAVE USR/SRC/PRODOS.FX/PRODOS.S.IRQ
diff --git a/ProDOS.FX/ProDOS.S.LDR.A.txt b/ProDOS.FX/ProDOS.S.LDR.A.txt
index 81e3aecb..19ab599c 100644
--- a/ProDOS.FX/ProDOS.S.LDR.A.txt
+++ b/ProDOS.FX/ProDOS.S.LDR.A.txt
@@ -68,6 +68,7 @@ m64k  			ldx #H2367				yx=2367 relocation table
 				sta xdosver				save current version for dir use
 H20CE  			bcc H20D3
 				jmp relocerr
+
 H20D3  			lda RROMBNK2			read ROM
 				ldx version	  			ROM id byte
 				cpx #$06
@@ -175,7 +176,8 @@ noramdsk 		lda RROMWRAMBNK2	   	read ROM/write RAM bank 2
 				ldx irqv+1	   			x = high byte
 				jsr lc1in				set language card bank 1 to r/w
 				cpx #$D0	   			is it > $D000 (old roms)
-				lda #$00
+
+*				lda #$00				was for setting removed IRQFLAG
 				bcc .1
 				
 				jmp H22EB				need enhanced Roms
@@ -188,9 +190,9 @@ noramdsk 		lda RROMWRAMBNK2	   	read ROM/write RAM bank 2
 				sta CLRALTZP	  		use main zero page/stack
 				stx irqv+1	   			save irq vector in main lc
 				sty irqv
-				lda #$01
+*				lda #$01				was for setting removed IRQFLAG
 
-H21C5 			stz cortflag			assume not Cortland system
+				stz cortflag			assume not Cortland system
 
 				lda cortland	   		running on a Cortland ?
 				beq H21D5				branch if not.
@@ -657,7 +659,7 @@ H257B			.DA breakv
 				jmp oldrst	  			'&' vector
 				jmp oldrst	   			ctrl-y vector
 				.HS 004000
-				.DA irqent				global page interrupt vector
+				.DA GP.IRQV				global page interrupt vector
 lc1in  			lda RRAMWRAMBNK1		read/write language card RAM bank 1
 				lda RRAMWRAMBNK1
 				rts
diff --git a/ProDOS.FX/ProDOS.S.XDOS.A.txt b/ProDOS.FX/ProDOS.S.XDOS.A.txt
index 00366d4e..2edc6792 100644
--- a/ProDOS.FX/ProDOS.S.XDOS.A.txt
+++ b/ProDOS.FX/ProDOS.S.XDOS.A.txt
@@ -96,7 +96,7 @@ exitmli			stz bubit				clear backup bit
 				ldy mliy				MLI Y register savearea
 				pha
 				lda bnkbyt1				restore language card status
-				jmp HBFA0				and return.
+				jmp GP.MLIEXIT			and return.
 
 nodevice 		lda #MLI.E.NODEV		no device connected.
 				.HS 2C					BIT ABS
@@ -195,13 +195,13 @@ dealcint		ldy #$01			   	zero out interrupt vector
 				clc
 				rts
 *--------------------------------------
-irqrecev 		
+XDOS.IRQV
 *				lda accsav				get acc from where old ROM put it.
 *				sta p8areg
-				stx p8xreg				entry point on ram card interrupt
-				sty p8yreg
-				tsx
-				stx p8sreg
+*				stx p8xreg				entry point on ram card interrupt
+*				sty p8yreg
+*				tsx
+*				stx p8sreg
 
 *				lda irqflag				irq flag = 0 if old roms
 *				bne .1					and 1 if new roms.
@@ -213,7 +213,7 @@ irqrecev
 *				pla
 *				sta intadr+1
 *.1
-				txs
+*				txs
 *				lda mslot				set up to re-enable $Cn00 rom
 *				sta irqdev+2
 
@@ -265,8 +265,8 @@ H31AE  			lda	svzerop-$FA,x		restore the zero page
 *				lda irqdev+2			restore device id.
 *				sta mslot				slot being accessed.
 
-H31DD  			jmp GP.IrqExit			do necessary bank switches and return.
-
+*H31DD  			jmp GP.IrqExit			do necessary bank switches and return.
+				rti
 *irqflag			.HS 00					0 = old roms. 1 = new roms.
 irqcount 		.HS 00					# of unclaimed interrupts.
 irqXindex		.HS 00
diff --git a/ProDOS.FX/ProDOS.S.XDOS.B.txt b/ProDOS.FX/ProDOS.S.XDOS.B.txt
index d8600bea..5ee5d2a4 100644
--- a/ProDOS.FX/ProDOS.S.XDOS.B.txt
+++ b/ProDOS.FX/ProDOS.S.XDOS.B.txt
@@ -828,7 +828,8 @@ L3B96  			ldx vcbptr			 	mark which block had 1st free space
 				lda nofree
 				bmi L3BBE			 	if no free space was found.
 				sta vcbbuf+28,x			update the free count.
-				lda scrtch+1					sta vcbbuf+21,x			update volume control byte.
+				lda scrtch+1
+				sta vcbbuf+21,x			update volume control byte.
 				lda scrtch
 				sta vcbbuf+20,x
 L3BAD  			lda vcbbuf+20,x			compare total available free blocks
diff --git a/ProDOS.FX/ProDOS.S.XRW.txt b/ProDOS.FX/ProDOS.S.XRW.txt
index db36053b..ea880543 100644
--- a/ProDOS.FX/ProDOS.S.XRW.txt
+++ b/ProDOS.FX/ProDOS.S.XRW.txt
@@ -1,7 +1,7 @@
 NEW
   AUTO 3,1
-* disk ii driver. object code = xrw_0
-* $5300-5A00 moved to language card bank 1 at $D000
+*--------------------------------------
+FASTSEEK		.EQ 0
 *--------------------------------------
 blockio			cld						$D8 to flag language card bank 1 (main)
 				jsr rsetphse
@@ -167,6 +167,7 @@ L53FD  			ldx A2L
 				rol		 				write protect-->carry-->bit 0=1
 				lda q6l,x				keep in read mode
 				jmp statdne
+				
 myseek			asl						assume two phase stepper
 				sta track				save destination track * 2
 				jsr alloff				turn all phases off to be sure.
@@ -175,7 +176,9 @@ myseek			asl						assume two phase stepper
 				sta curtrk	   			current position.
 				lda track				where to go next.
 				sta iobpdn,x
+
 				jsr seek				move head there
+
 alloff			ldy #$03	   			turn off all phases before returning.
 L5427  			tya		  				(send phase in acc)
 				jsr clrphase			carry clear, phases should be turned off
@@ -184,7 +187,7 @@ L5427  			tya		  				(send phase in acc)
 				lsr curtrk				divide back down
 				clc
 				rts
-
+*--------------------------------------
 * fast seek subroutine
 *
 * on entry:
@@ -201,53 +204,111 @@ L5427  			tya		  				(send phase in acc)
 *	   seek for motor on time overlap.
 *
 * variables used: curtrk, trkn, countn, prior, A2L, montimel, montimeh
-
+*--------------------------------------
+				.DO FASTSEEK=0
 seek			sta trkn				save target track.
 				cmp curtrk	   			on desired track ?
-				beq setphase			yes, energize phase and return
+				beq setphase			CS, yes, phase OFF and return
+
 				lda #$00
 				sta trkcnt	   			half track count.
+
 L5440  			lda curtrk	   			save curtrk for delayed turnoff
 				sta prior
 				sec
 				sbc trkn	   			delta-tracks.
 				beq L5483				branch if curtrk = destination
+
 				bcs mvout				move out, not in.
+
 				eor #$FF	   			calculate tracks to go.
 				inc curtrk	   			increment current track (in).
 				bcc L545A				always taken.
+
 mvout  			adc #$FE				calculate tracks to go.
 				dec curtrk	   			decrement current track (out).
+
 L545A 			cmp trkcnt
 				bcc L5462				and 'tracks moved'
+
 				lda trkcnt
+
 L5462  			cmp #$09
 				bcs L5468				if trkcnt > 8 then leave y alone (y=8)
 				tay						else set acceleration index in y
 				sec
+
 L5468  			jsr setphase
 				lda ontable,y			for 'ontime'
 				jsr mswait	   			(100us intervals)
+
 				lda prior
 				clc		  				for phaseoff
 				jsr clrphase	  		turn off prior phase
+
 				lda offtable,y	 		then wait 'offtime'
 				jsr mswait	   			(100us intervals)
+
 				inc trkcnt	   			count of 'tracks moved'
 				bne L5440				always taken
+
 L5483  			jsr mswait	   			settle 25 msec
 
 				clc		  				set for phase off
 
 setphase 		lda curtrk	  			get current track
+
 clrphase 		and #$03	   			mask for 1 of 4 phases
-				rol						double for phaseon/off index
-				ora A2L
+				rol						double for phase on(CS)/off(CC) index
+				ora A2L					Slot $n0
 				tax
 				lda phaseoff,x			turn on/off one phase
 				ldx A2L					restore x reg
 				rts		  				and return
+				.FIN
+*--------------------------------------
+				.DO FASTSEEK=1
+XRW.NewSeek		STA   $26
 
+.1		       	LDA   $FF
+				STA   $27
+				SEC
+				SBC   $26
+				BEQ   XRW.NewSeek.rts
+
+				BCS   .2
+
+				INC   $FF
+				BCC   .3
+				
+.2		    	DEC   $FF
+
+.3			    JSR   XRW.NewSeek.TrOff
+
+				JSR   XRW.NewSeek.Wait
+XRW.NewSeek.TrOn
+				LDA   $27
+				AND   #$03
+				ASL
+				TAY
+				LDA   $C0E0,Y
+				JSR   XRW.NewSeek.Wait
+				BEQ   .1
+
+XRW.NewSeek.TrOff
+				LDA   $FF
+				AND   #$03
+				ASL
+				TAY
+				LDA   $C0E1,Y
+XRW.NewSeek.rts
+				rts
+
+XRW.NewSeek.Wait
+				LDA   #$25
+				JMP   $FCA8    F8ROM:WAIT
+				.FIN
+*--------------------------------------
 * 7-bit to 6-bit 'deniblize' table (16-sector format)
 *
 * valid codes are $96 to $FF only. codes with more than one pair of
@@ -255,7 +316,7 @@ clrphase 		and #$03	   			mask for 1 of 4 phases
 *
 * nibles in the ranges of $A0-$A3, $C0-$C7, $E0-$E3 are used for
 * other tables since no valid nibles are in these ranges.
-
+*--------------------------------------
 dnibl			.HS 0004FFFF080CFF10	aligned to page boundary minus $96
 				.HS 1418
 twobit3			.HS 008040C0FFFF		used in fast prenib as lookup for 2-bit quantities.
@@ -350,15 +411,13 @@ montimel 		.HS 00
 montimeh 		.HS 00					also 'volume'
 prior			.HS 00
 trkn			.HS 00
-
+				.DO FASTSEEK=0
 * phase on, off time tables
 * in 100 usec intervals (seek)
 
-ontable			.HS 013028
-				.HS 24201E1D1C1C
-offtable 		.HS 702C
-				.HS 26221F1E1D1C1C
-
+ontable			.HS 01302824201E1D1C1C
+offtable 		.HS 702C26221F1E1D1C1C
+				.FIN
 * mswait subroutine
 *
 * delays a specified number of 100 usec intervals for motor timing.
diff --git a/ProDOS.FX/ProDOS.S.txt b/ProDOS.FX/ProDOS.S.txt
index db336f95..9c689579 100644
--- a/ProDOS.FX/ProDOS.S.txt
+++ b/ProDOS.FX/ProDOS.S.txt
@@ -72,7 +72,7 @@ A3L				.EQ	$40
 A4L				.EQ	$42
 unitnum			.EQ	$43
 buf				.EQ	$44					2-byte data buffer pointer which
-accsav			.EQ	$45					overlaps accsav (temp acc save byte)
+*accsav			.EQ	$45					overlaps accsav (temp acc save byte)
 bloknml			.EQ	$46					used mostly as 16 bit block # pointer
 zpt				.EQ	$48					highly used zero page index pointer
 datptr			.EQ	$4A					ptr to data area of buffer.