diff --git a/.Floppies/A2OSX.BUILD.po b/.Floppies/A2OSX.BUILD.po
index 08254aec..7e1a9655 100644
Binary files a/.Floppies/A2OSX.BUILD.po and b/.Floppies/A2OSX.BUILD.po differ
diff --git a/ProDOS.203/ProDOS.S.CCLK.txt b/ProDOS.203/ProDOS.S.CCLK.txt
index 36f6992f..8506ca13 100644
--- a/ProDOS.203/ProDOS.S.CCLK.txt
+++ b/ProDOS.203/ProDOS.S.CCLK.txt
@@ -15,7 +15,7 @@ cclock_0
 				clc		  set e = 0 to set native mode
 				xce		
 *				LONG  I,M		16 bit mode.
-				lda #$0000	   zero out result space.
+				lda ##$0000	   zero out result space.
 				pha		  push 4 words for hex time result
 				pha
 				pha
diff --git a/ProDOS.203/ProDOS.S.GP.txt b/ProDOS.203/ProDOS.S.GP.txt
index 0b8d1f2d..5dc038e6 100644
--- a/ProDOS.203/ProDOS.S.GP.txt
+++ b/ProDOS.203/ProDOS.S.GP.txt
@@ -3,7 +3,7 @@ NEW
 * object code = mli_1
 * global page
 
-ofsG			.EQ	$E00-MLI		offset to global org
+ofsG			.EQ	$2E00-MLI		offset to global org
 
 H2E00			jmp	mlient1			$2E00-2EFF moved to $BF00
 jspare			.EQ	*-ofsG
diff --git a/ProDOS.203/ProDOS.S.LDR.A.txt b/ProDOS.203/ProDOS.S.LDR.A.txt
index 1fe8a61a..c28800e2 100644
--- a/ProDOS.203/ProDOS.S.LDR.A.txt
+++ b/ProDOS.203/ProDOS.S.LDR.A.txt
@@ -89,11 +89,11 @@ set3  			php
 				ora #$40
 				bpl H20FD		always taken.
 				
-mach2 		inc cflag			//c or later
+mach2 			inc cflag			//c or later
 				bvs H20FD
-set7  		ora #$80
+set7  			ora #$80
 
-H20FD 		sta idapple
+H20FD 			sta idapple
 				lda RROMBNK2			read ROM
 				sec
 				jsr idroutine	  returns system info
@@ -106,12 +106,12 @@ H20FD 		sta idapple
 
 * running from gs/os shell so zero out os_boot for appletalk
 
-				sta >OS_BOOT	   indicates O/S initially booted.
+				sta OS_BOOT	   indicates O/S initially booted.
 				jsr patch101	   patch for gs/os - rev note #101
 
 * put dispatcher in bank 2 of language card
 
-H211D 		lda LDR.MLIONLINE.P+1		place boot devnum in globals
+H211D 			lda LDR.MLIONLINE.P+1		place boot devnum in globals
 				sta LDR.MLIREADBLOCK.P+1
 				sta devnum	   last device used
 				jsr devsrch			finish setting up globals
@@ -122,7 +122,7 @@ H211D 		lda LDR.MLIONLINE.P+1		place boot devnum in globals
 				ldy /rlclk64
 				jsr reloc
 
-H2139 		bcs H20CE
+H2139 			bcs H20CE
 				lda #calldisp
 				sta jspare+1			P8 system death vector
 				lda /calldisp
@@ -146,7 +146,7 @@ H2139 		bcs H20CE
 				ldy /dsp64
 				inc newquitflag		using old quit code so set flag
 
-H216E 		jsr reloc
+H216E 			jsr reloc
 				lda #$EE			byte to distinguish LC bank 2
 				sta $D000
 				jsr lc1in			switch in LC bank 1
@@ -189,7 +189,7 @@ noramdsk 		lda RROMWRAMBNK2	   read ROM/write RAM bank 2
 				sty irqv
 				lda #$01
 				
-H21C5 		sta irqflag			1 = new roms
+H21C5 			sta irqflag			1 = new roms
 				stz cortflag			assume not Cortland system
 				lda cortland	   running on a Cortland ?
 				beq H21D5		branch if not.
@@ -198,16 +198,16 @@ H21C5 		sta irqflag			1 = new roms
 
 * check for a rom in slot 3. if no rom, use internal $C300 firmware
 
-H21D5 		sta CLRC3ROM			enable internal slot 3 ROM
+H21D5 			sta CLRC3ROM			enable internal slot 3 ROM
 				lda rommap	   slot ROM bit map
 				and #$08			mask all but slot 3
-				bne isRROMBNK23	   taken if rom in slot 3
+				bne isromin3	   taken if rom in slot 3
 				bra H2247		else continue booting
 
 * found a rom in slot 3. is it an external, identifiable 80 col card
 * with interrupt routines? if so, enable it else use internal $C300 firmware.
 
-isRROMBNK23 		sta SETC3ROM	   enable slot 3 rom
+isromin3 		sta SETC3ROM	   enable slot 3 rom
 				lda $C305	   check card id bytes
 				cmp #$38
 				bne hitswtch	   not terminal card
@@ -244,19 +244,19 @@ hitswtch 		sta CLRC3ROM			enable internal $C300 firmware
 				lsr
 				lsr txtp2
 				cmp txtp2
-				
-H2230 		sta CLRPAGE2			main memory
+			.BS *-$2230
+H2230 			sta CLRPAGE2			main memory
 				sta CLR80STORE		disable 80-col store
 				beq docard	   branch if card is there
 				lda machid	   machine ID byte
 				and #$FD	   clear 80-col bit 2 (no card)
 				bne H2244		always
 				
-docard 		lda machid
+docard 			lda machid
 				ora #$02			turn bit 2 on (80-col card is present)
 				
-H2244  		sta machid
-H2247  		lda cortland			are we running on a //gs ?
+H2244  			sta machid
+H2247  			lda cortland			are we running on a //gs ?
 				beq H225D		if not.
 				lda #$4C	   enable clock routine by putting a jmp
 				sta clockv	   in front of clock vector
@@ -266,7 +266,7 @@ H2247  		lda cortland			are we running on a //gs ?
 				lda #$01			set bit 0 = clock present
 				tsb machid
 				
-H225D 		lda setuprts			get setup entry point flag
+H225D 			lda setuprts			get setup entry point flag
 				beq H2267		taken if normal boot.
 				lda RROMBNK2		read ROM
 				rts		  return to caller at setup entry point.
@@ -275,7 +275,7 @@ setuprts 		.DA #$00				0 = normal boot, <>0 = return
 
 * set prefix to boot device
 
-H2267 		jsr MLI	  online
+H2267 			jsr MLI	  online
 				.DA #MLIONLINE
 				.DA LDR.MLIONLINE.P
 				bcs relocerr
@@ -299,7 +299,7 @@ H2267 		jsr MLI	  online
 				ldy #$02	  read directory into buffer
 				lda /DirBlkBuf
 				
-H228E  		sta dst+1
+H228E  			sta dst+1
 				sta LDR.MLIREADBLOCK.P+4
 				sty LDR.MLIREADBLOCK.P+5
 				stx LDR.MLIREADBLOCK.P+6
@@ -323,7 +323,7 @@ H228E  		sta dst+1
 				cmp /dbuf+$800	  until it points past end of buffer.
 				bcc H228E		if ok, read next block.
 
-H22B7  		jmp lodintrp			jmp to 'licode' (load interpreter)
+H22B7  			jmp lodintrp			jmp to 'licode' (load interpreter)
 
 * relocation/configuration error
 
@@ -332,25 +332,25 @@ relocerr 		sta RROMBNK2			read ROM
 				
 				ldy #$1D
 
-.1	  		lda LDR.MSG.LdrErr,y
+.1	  			lda LDR.MSG.LdrErr,y
 				sta vline12+4,y
 				dey
 				bpl .1
 
 				bmi *
 
-LDR.MSG.LdrErr	.AS "Relocation/Configuration Error"
+LDR.MSG.LdrErr	.AS -"Relocation/Configuration Error"
 
 H22EB			ldy #$23
 				
-.1			  lda LDR.MSG.EnhErr,y
+.1			  	lda LDR.MSG.EnhErr,y
 				sta vline14+2,y
 				dey
 				bpl .1
 				
 				bmi *
 
-LDR.MSG.EnhErr	.AS "REQUIRES ENHANCED APPLE IIE OR LATER"
+LDR.MSG.EnhErr	.AS -"REQUIRES ENHANCED APPLE IIE OR LATER"
 
 LDR.MLIONLINE.P	.DA #2
 				.DA #$60
@@ -369,399 +369,400 @@ LDR.MLIREADBLOCK.P
 cortland 		.BS 1					cortland loader flag (1 = Cortland)
 newquitflag 	.BS 1					1 = old quit code
 
-H232B  		.DA #1	  move interpreter loader code
+H232B  			.DA #1	  move interpreter loader code
 				.DA lodintrp	destination address
-	  .DA H257B-licode			length to move
-	  .DA licode	 source address
-	  .DA #$01	  move $3F0 vectors
-	  .DA p3vect	 destination
-	  .DA $0010	  16 bytes to move
-	  .DA H257B		source
-	  .DA #$01
-	  .DA lookptr
-	  .DA $0002
-	  .DA dst
-	  .DA #$01	  move 128k test to zero page
-	  .DA tst128		destination
-	  .DA LDR.Test128.Len
-	  .DA LDR.Test128
-	  .HS FF		done
+				.DA H257B-licode			length to move
+				.DA licode	 source address
+				.DA #$01	  move $3F0 vectors
+				.DA p3vect	 destination
+				.DA $0010	  16 bytes to move
+				.DA H257B		source
+				.DA #$01
+				.DA lookptr
+				.DA $0002
+				.DA dst
+				.DA #$01	  move 128k test to zero page
+				.DA tst128		destination
+				.DA LDR.Test128.Len
+				.DA LDR.Test128
+				.HS FF					done
 		 
-dsp64	 .DA #$01	  move p8 dispatcher code
-	  .DA displc2	  destination
-	  .DA birdbye-disp1obj	length (must be <= 3 pages)
-	  .DA disp1obj	 source
-	  .HS FF		done
+dsp64	 		.DA #$01	  			move p8 dispatcher code
+				.DA displc2	  			destination
+				.DA birdbye-disp1obj	length (must be <= 3 pages)
+				.DA disp1obj	 		source
+				.HS FF					done
 		 
-newquitbl .DA #$01	  move Bird's Bye code
-	  .DA displc2	  dest
-	  .DA GQdisp-birdbye	length (must be <= 3 pages)
-	  .DA birdbye	  source
-	  .HS FF		done
+newquitbl 		.DA #$01	  move Bird's Bye code
+				.DA displc2	  dest
+				.DA GQdisp-birdbye	length (must be <= 3 pages)
+				.DA birdbye	  source
+				.HS FF		done
 		 
 altdsptbl 		.DA #$01	  move GQuit launcher
-	  .DA displc2				destination
-	  .DA $0300	  length (must be <= 3 pages)
-	  .DA GQdisp	 source
-	  .DA #$01	  move a copy of GQuit launcher
-	  .DA dispadr	  to dispadr for gsos
-	  .DA $0300	  length (must be <= 3 pages)
-	  .DA GQdisp	 source
-	  .HS FF	done
+				.DA displc2				destination
+				.DA $0300	  length (must be <= 3 pages)
+				.DA GQdisp	 source
+				.DA #$01	  move a copy of GQuit launcher
+				.DA dispadr	  to dispadr for gsos
+				.DA $0300	  length (must be <= 3 pages)
+				.DA GQdisp	 source
+				.HS FF	done
 
 * tables for moving 64k version of mli for execution
 
-H2367	 .DA #$01	  relocation table. 1=move src to dst
-	  .DA lanirq	 destination
-	  .DA H2E00-H2D9B		length to move
-	  .DA H2D9B	  source
-	  .DA #$01
-	  .DA MLI		globals
-	  .DA $0100		in one page
-	  .DA H2E00
-	  .HS 00			0=clear buffers $D700-$DDFF
+H2367			.DA #$01	  relocation table. 1=move src to dst
+				.DA lanirq	 destination
+				.DA H2E00-H2D9B		length to move
+				.DA H2D9B	  source
+				.DA #$01
+				.DA MLI		globals
+				.DA $0100		in one page
+				.DA H2E00
+				.HS 00			0=clear buffers $D700-$DDFF
 				.DA pathbuf
 				.DA xdosorg-pathbuf
-	  .DA #$01
-	  .DA xdosorg
-	  .DA ramsrc-xdosobj	length of mli
-	  .DA xdosobj
-	  .DA #$01
-	  .DA rwts
-	  .DA disp1obj-blockio	length of disk ii driver
-	  .DA blockio
-	  .HS FF			done
+				.DA #$01
+				.DA xdosorg
+				.DA ramsrc-xdosobj	length of mli
+				.DA xdosobj
+				.DA #$01
+				.DA rwts
+				.DA disp1obj-blockio	length of disk ii driver
+				.DA blockio
+				.HS FF			done
 
 * move thunderclock
 
-rlclk64   .DA #$01	  relocation table. 1=move src to dst
-	  .DA tclk_in		destination
-	  .DA tclk_end-tclock_0	length of thunderclock driver
-	  .DA tclock_0		source
-	  .DA #$04	  4=relocate and move program
-	  .DA tclk_in
-	  .DA H2F69-tclock_0
-	  .DA tclk_in
-	  .HS 00
-	.HS C1C1
-clock64		.DA #$00
-	  .HS FF			done
+rlclk64   		.DA #$01	  relocation table. 1=move src to dst
+				.DA tclk_in		destination
+				.DA tclk_end-tclock_0	length of thunderclock driver
+				.DA tclock_0		source
+				.DA #$04	  4=relocate and move program
+				.DA tclk_in
+				.DA H2F69-tclock_0
+				.DA tclk_in
+				.HS 00
+				.HS C1C1
+clock64			.DA #$00
+				.HS FF			done
 
 * move cortland clock
 
 cortclock 		.DA #$01	  relocation table. 1=move src to dst
-	  .DA tclk_in		destination
-	  .DA cclk_end-cclock_0	length of cortland clock driver
-	  .DA cclock_0		source
-	  .HS FF			done
+				.DA tclk_in		destination
+				.DA cclk_end-cclock_0	length of cortland clock driver
+				.DA cclock_0		source
+				.HS FF			done
 
 * load and run appletalk configuration file (atinit) if present
 * or continue loading and running .system file
 
 * loader origin $800
 
-ofsL	.EQ	*-lodintrp		offset from loader org
+ofsL			.EQ	*-lodintrp		offset from loader org
 
-licode 		jsr MLI	  check for file 'atinit'
+licode 			jsr MLI	  check for file 'atinit'
 				.DA #MLIGETFILEINFO
 				.DA gfi_list
 				bcc gfi_ok	   branch if 'atinit' file found
 				cmp #$46			file not found?
 				beq H23DF		if so, continue loading interpreter
 				bne H23E2
-gfi_ok 		lda gfi_type
-   cmp #$E2			is 'atinit' correct file type?
-   bne H23E2			error - wrong file type
-   jsr MLI	  open 'atinit' file
-	  .DA #$C8
-	  .DA atopen	 parms
-   bne H23E2		error
-   lda #$9F			max size = 39.75k ($2000-$BF00)
-   sta rdlen+1
-   stz rdlen
-   jsr MLI	  read 'atinit' file to 'sysentry'
-	  .DA #$CA
-	  .DA rdparm
-   bne H23E2		error - too big
-   jsr MLI	  close 'atinit' file
-	  .DA #$CC
-	  .DA clparm
-   bne H23E2		error
-   lda RROMBNK2			enable ROM
-   jsr sysentry			execute ATinit
-H23DF  jmp goloadint		execute .system file
+gfi_ok 			lda gfi_type
+				cmp #$E2			is 'atinit' correct file type?
+				bne H23E2			error - wrong file type
+				jsr MLI	  open 'atinit' file
+				.DA #$C8
+				.DA atopen	 parms
+				bne H23E2		error
+				lda #$9F			max size = 39.75k ($2000-$BF00)
+				sta rdlen+1
+				stz rdlen
+				jsr MLI	  read 'atinit' file to 'sysentry'
+				.DA #$CA
+				.DA rdparm
+				bne H23E2		error - too big
+				jsr MLI	  close 'atinit' file
+				.DA #$CC
+				.DA clparm
+				bne H23E2		error
+				lda RROMBNK2			enable ROM
+				jsr sysentry			execute ATinit
+H23DF  			jmp goloadint		execute .system file
 
 * fatal error
 
-H23E2 		ldx H23F0
-H23E5  		lda H23F0,x
+H23E2 			ldx H23F0
+H23E5  			lda H23F0,x
 				sta vline16,x
 				dex
 				bne H23E5
 				beq *
 
 H23F0			.DA #$1A				length of message
-				.AS "Unable to load ATInit file"
+				.AS -"Unable to load ATInit file"
 				
-gfi_list .EQ	*-ofsL
-	  .DA #$0A
-	.DA atinitname
-	.HS 00
-gfi_type .EQ	*-ofsL
-	.HS 00000000
-	  .HS 0000000000000000
-	  .HS 0000
-atopen	.EQ	*-ofsL			parms to open 'atinit'
-	.HS 03
-	.DA atinitname
-	.DA iobuf		i/o buffer
-   .HS 01		ref# hard coded since no other files
-atinitname .EQ	*-ofsL
-	  .DA #06			length of name
-	.AS "atinit"	  name of appletalk config file
-goloadint .EQ	*-ofsL
-   lda /dbuf			search directory buffer
-   sta idxl+1
-   lda #$04	   start 1 entry past header
-   bne H2434		always.
-H2432  lda idxl			calc next entry position
-H2434  clc
-   adc dbuf+35	  inc to next entry address
-   sta idxl
-   bcs H2451		branch if page cross.
-   adc dbuf+35	  test for end of block.
-   bcc H2453		branch if not page cross
-   lda idxl+1
-   lsr		end of block?
-   bcc H2453		no.
-   cmp #$09	   end of directory?
-   bne H244D		no.
-   jmp nointrp			no interpreter, go quit.
-H244D  lda #$04			reset index to 1st entry in next block.
-   sta idxl
-H2451  inc idxl+1			inc to next page.
-H2453  ldy #$10	   check file type.
-   lda #$FF	   must be a prodos sys file
-   eor (idxl),y
-   bne H2432		if not sys.
-   tay		  see if active
-   lda (idxl),y
-   beq H2432		if deleted file.
-   and #$0F	   strip file 'kind'.
-   sta pbuf	   save length of name.
-   cmp #$08	   must be at least 'x.system'
-   bcc H2432		else, ignore it.
-   tay		  compare last 7 chars for '.system'
-   ldx #$06
-H246C  lda (idxl),y
-   eor iterp,x
-   asl
-   bne H2432			branch if something else
-   dey
-   dex
-   bpl H246C
-   ldy #$00
-H247A  iny
-   lda (idxl),y
-   sta pbuf,y
-   ora #$80			msb on so can be displayed if error
-   sta iomess+$11,y
-   cpy pbuf
-   bne H247A
-   lda #$A0			space after name
-   sta iomess+$12,y
-   tya			 error message length
-   adc #$13	   (carry set)
-   sta ierlen
-   jsr MLI	  open interpreter file
-	  .DA #$C8
-	  .DA opparm
-   bne badlod
-   jsr MLI	  get eof (length of file)
-	  .DA #$D1
-	  .DA efparm
-   bne badlod
-   lda eof+2
-   bne toolong
-   lda eof+1
-   cmp #$9F			max size = 39.75k ($2000-$BF00)
-   bcs toolong
-   sta rdlen+1
-   lda eof
-   sta rdlen			(read entire file)
-   jsr MLI	  read interpreter file
-	  .DA #$CA
-	  .DA rdparm
-   beq H24C8			go close if successfully read.
-   cmp #$56	   memory conflict?
-   beq toolong	  then too large
-   bne badlod	   else, unable to load.
-H24C8  jsr MLI	  close interpreter file
-	  .DA #$CC
-	  .DA clparm
-   bne badlod	   hopefully never taken
+gfi_list 		.EQ	*-ofsL
+				.DA #$0A
+				.DA atinitname
+				.HS 00
+gfi_type 		.EQ	*-ofsL
+				.HS 00000000
+				.HS 0000000000000000
+				.HS 0000
+atopen			.EQ	*-ofsL			parms to open 'atinit'
+				.HS 03
+				.DA atinitname
+				.DA iobuf		i/o buffer
+				.HS 01		ref# hard coded since no other files
+atinitname 		.EQ	*-ofsL
+				.DA #06			length of name
+				.AS -"atinit"	  name of appletalk config file
+goloadint 		.EQ	*-ofsL
+
+				lda /dbuf			search directory buffer
+				sta idxl+1
+				lda #$04	   start 1 entry past header
+				bne H2434		always.
+H2432  			lda idxl			calc next entry position
+H2434  			clc
+				adc dbuf+35	  inc to next entry address
+				sta idxl
+				bcs H2451		branch if page cross.
+				adc dbuf+35	  test for end of block.
+				bcc H2453		branch if not page cross
+				lda idxl+1
+				lsr		end of block?
+				bcc H2453		no.
+				cmp #$09	   end of directory?
+				bne H244D		no.
+				jmp nointrp			no interpreter, go quit.
+H244D  			lda #$04			reset index to 1st entry in next block.
+				sta idxl
+H2451  			inc idxl+1			inc to next page.
+H2453  			ldy #$10	   check file type.
+				lda #$FF	   must be a prodos sys file
+				eor (idxl),y
+				bne H2432		if not sys.
+				tay		  see if active
+				lda (idxl),y
+				beq H2432		if deleted file.
+				and #$0F	   strip file 'kind'.
+				sta pbuf	   save length of name.
+				cmp #$08	   must be at least 'x.system'
+				bcc H2432		else, ignore it.
+				tay		  compare last 7 chars for '.system'
+				ldx #$06
+H246C  			lda (idxl),y
+				eor iterp,x
+				asl
+				bne H2432			branch if something else
+				dey
+				dex
+				bpl H246C
+				ldy #$00
+H247A  			iny
+				lda (idxl),y
+				sta pbuf,y
+				ora #$80			msb on so can be displayed if error
+				sta iomess+$11,y
+				cpy pbuf
+				bne H247A
+				lda #$A0			space after name
+				sta iomess+$12,y
+				tya			 error message length
+				adc #$13	   (carry set)
+				sta ierlen
+				jsr MLI	  open interpreter file
+				.DA #$C8
+				.DA opparm
+				bne badlod
+				jsr MLI	  get eof (length of file)
+				.DA #$D1
+				.DA efparm
+				bne badlod
+				lda eof+2
+				bne toolong
+				lda eof+1
+				cmp #$9F			max size = 39.75k ($2000-$BF00)
+				bcs toolong
+				sta rdlen+1
+				lda eof
+				sta rdlen			(read entire file)
+				jsr MLI	  read interpreter file
+				.DA #$CA
+				.DA rdparm
+				beq H24C8			go close if successfully read.
+				cmp #$56	   memory conflict?
+				beq toolong	  then too large
+				bne badlod	   else, unable to load.
+H24C8  			jsr MLI	  close interpreter file
+				.DA #$CC
+				.DA clparm
+				bne badlod	   hopefully never taken
 
 * if booting on a //c then see if esc is in keyboard buffer
 * and clear it. it may have been pressed to shift speed
 * of accelerator chip
 
-   lda cflag
-   beq H24DF			taken if not booting on a //c
-   lda kbd		else, check for keypress
-   cmp #$9B	   escape?
-   bne H24DF		if not.
-   sta KBDSTROBE	  clear keyboard
-H24DF  lda RROMBNK2			enable ROM
-   jmp sysentry			go run interpreter
-cflag	.EQ	*-ofsL
-	  .HS 00			set if a //c.
-nointrp	.EQ	*-ofsL			no interpreter found,
-   jsr MLI	  so quit.
-	  .DA #$65
-	  .DA quitparm
-badlod	ldy ierlen			center the error message
-   lda #$27
-   sec
-   sbc ierlen
-   lsr
-   adc ierlen
-   tax
-H24FA  lda iomess,y
-   sta vline16,x
-   dex
-   dey
-   bpl H24FA
-   bmi H2511
-toolong  ldy #$1E
-H2508  lda lgmess,y
-   sta vline16+5,y
-   dey
-   bpl H2508
-H2511  bmi H2511
-lgmess	.EQ	*-ofsL
-   .AS "**  System program too large  **"
-iomess	.EQ	*-ofsL
-   .AS "** Unable to load"
-	.AS " X.System *********"
-ierlen	.EQ	*-ofsL
-	  .HS 00
-opparm	.EQ	*-ofsL			parms for open call
-	.HS 03
-	.DA pbuf
-	.DA iobuf
-	.HS 01
-efparm	.EQ	*-ofsL			parms for get eof call
-	.HS 02
-	  .DA #01
-eof	.EQ	*-ofsL
-	.HS 000000		length of file.
-rdparm	.EQ	*-ofsL			parms for read call
-	.HS 04
-	.HS 01
-	.DA sysentry
-rdlen	.EQ	*-ofsL
-	  .HS 0000
-	.HS 0000
-clparm	.EQ	*-ofsL			parms for close call
-	.HS 01
-   .HS 00
-quitparm	.EQ	*-ofsL		parms for quit call
-	.HS 04
-   .HS 00
-	  .HS 0000
-   .HS 00
-	.HS 0000
-iterp	.EQ	*-ofsL			interpreter suffix that is required
-   .AS ".SYSTEM"
+				lda cflag
+				beq H24DF			taken if not booting on a //c
+				lda kbd		else, check for keypress
+				cmp #$9B	   escape?
+				bne H24DF		if not.
+				sta KBDSTROBE	  clear keyboard
+H24DF  			lda RROMBNK2			enable ROM
+				jmp sysentry			go run interpreter
+cflag			.EQ	*-ofsL
+				.HS 00			set if a //c.
+nointrp			.EQ	*-ofsL			no interpreter found,
+				jsr MLI	  so quit.
+				.DA #$65
+				.DA quitparm
+badlod			ldy ierlen			center the error message
+				lda #$27
+				sec
+				sbc ierlen
+				lsr
+				adc ierlen
+				tax
+H24FA  			lda iomess,y
+				sta vline16,x
+				dex
+				dey
+				bpl H24FA
+				bmi H2511
+toolong  		ldy #$1E
+H2508  			lda lgmess,y
+				sta vline16+5,y
+				dey
+				bpl H2508
+H2511  			bmi H2511
+lgmess			.EQ	*-ofsL
+				.AS -"**  System program too large  **"
+iomess			.EQ	*-ofsL
+				.AS -"** Unable to load"
+				.AS -" X.System *********"
+ierlen			.EQ	*-ofsL
+				.HS 00
+opparm			.EQ	*-ofsL			parms for open call
+				.HS 03
+				.DA pbuf
+				.DA iobuf
+				.HS 01
+efparm			.EQ	*-ofsL			parms for get eof call
+				.HS 02
+				.DA #01
+eof				.EQ	*-ofsL
+				.HS 000000		length of file.
+rdparm			.EQ	*-ofsL			parms for read call
+				.HS 04
+				.HS 01
+				.DA sysentry
+rdlen			.EQ	*-ofsL
+				.HS 0000
+				.HS 0000
+clparm			.EQ	*-ofsL			parms for close call
+				.HS 01
+				.HS 00
+quitparm		.EQ	*-ofsL		parms for quit call
+				.HS 04
+				.HS 00
+				.HS 0000
+				.HS 00
+				.HS 0000
+iterp			.EQ	*-ofsL			interpreter suffix that is required
+				.AS -".SYSTEM"
 
 * 16 bytes moved to $03F0 vectors
 
 H257B			.DA breakv
-	  .DA oldrst
-	  .DA #$5A			powerup byte
-   jmp oldrst	   '&' vector
-   jmp oldrst	   ctrl-y vector
-	  .HS 004000
-	  .DA irqent		global page interrupt vector
-lc1in  lda RRAMWRAMBNK1			read/write language card RAM bank 1
-   lda RRAMWRAMBNK1
-   rts
+				.DA oldrst
+				.DA #$5A			powerup byte
+				jmp oldrst	   '&' vector
+				jmp oldrst	   ctrl-y vector
+				.HS 004000
+				.DA irqent		global page interrupt vector
+lc1in  			lda RRAMWRAMBNK1			read/write language card RAM bank 1
+				lda RRAMWRAMBNK1
+				rts
 
 * determine which system model and save in machine id (idapple)
 
-whchrom	stz idapple			assume standard apple //
-   ldx version	  check hardware id
-   cpx #$38	   is it apple // (autostart rom)?
-   beq H25BE			if yes
-   lda #$80
-   cpx #$06	   apple //e?
-   beq H25BC			if yes
-   lda #$40	   
-   cpx #$EA	   apple //+?
-   bne H25B6		it not, then machine is unknown.
-   ldx $FB1E			apple /// in emulation?
-   cpx #$AD
-   beq H25BC			taken if apple //+.
-   lda #$D0	   test again for apple /// emulation
-   cpx #$8A	   because will only have 48k memory.
-   bne H25B6		if taken, then machine is unknown.
-H25B4  sec				apple /// emulation is not allowed
-   rts		  because insufficient memory.
-H25B6  lda #$02			machine unknown
-   sta (dst),y
-   bne H25D9		always.
-H25BC  sta idapple			save machine id
+whchrom			stz idapple			assume standard apple //
+				ldx version	  check hardware id
+				cpx #$38	   is it apple // (autostart rom)?
+				beq H25BE			if yes
+				lda #$80
+				cpx #$06	   apple //e?
+				beq H25BC			if yes
+				lda #$40	   
+				cpx #$EA	   apple //+?
+				bne H25B6		it not, then machine is unknown.
+				ldx $FB1E			apple /// in emulation?
+				cpx #$AD
+				beq H25BC			taken if apple //+.
+				lda #$D0	   test again for apple /// emulation
+				cpx #$8A	   because will only have 48k memory.
+				bne H25B6		if taken, then machine is unknown.
+H25B4  			sec				apple /// emulation is not allowed
+				rts		  because insufficient memory.
+H25B6  			lda #$02			machine unknown
+				sta (dst),y
+				bne H25D9		always.
+H25BC  			sta idapple			save machine id
 
 * check for language card ram
 
-H25BE  jsr lc1in			switch in language card bank 1
-   lda #$AA
-   sta $D000
-   eor $D000			if LC present, result = 0.
-   bne H25B4		othewise, insufficient memory.
-   lsr $D000		check lc again
-   lda #$55
-   eor $D000
-   bne H25B4		not sufficent memory.
-   lda #$20			LC ram is available
-   ora idapple
-H25D9  jmp tst128		jumps to page 0 routine below
+H25BE  			jsr lc1in			switch in language card bank 1
+				lda #$AA
+				sta $D000
+				eor $D000				if LC present, result = 0.
+				bne H25B4				othewise, insufficient memory.
+				lsr $D000				check lc again
+				lda #$55
+				eor $D000
+				bne H25B4				not sufficent memory.
+				lda #$20				LC ram is available
+				ora idapple
+H25D9  			jmp tst128				jumps to page 0 routine below
 
 * test for 128k. use page 0 for this routine
 
-LDR.Test128			sta idapple			H25DC-2621 was moved to location tst128
-   bpl not128	   if already determined < 128k
-   lda #$EE
-   sta SETWRITEAUX	  write to aux mem while on main zp
-   sta SETREADAUX	  and read aux mem.
-   sta dbuf			write these locs just to test aux mem
-   sta lodintrp	   1k apart from each other.
-   lda dbuf
-   cmp #$EE
-   bne noaux
-   asl dbuf			may be sparse mem mapping so
-   asl		change value and see what happens.
-   cmp dbuf
-   bne noaux		branch if not sparse mapping.
-   cmp lodintrp
-   bne H2606		if not sparse.
-noaux  sec		  no aux memory available.
-   bcs H2607
-H2606  clc
-H2607  sta CLRWRITEAUX	  switch back to main memory
-   sta CLRREADAUX	  
-   bcs not128	   if < 128k
-   lda idapple
-   ora #$30			set id = 128k present
-   sta idapple
-not128 lda lookptr+1
-   sec
-   sbc #$05
-   sta lookptr+1
-   bcs H2620
-   dec lookptr
-H2620  clc
-	rts
+LDR.Test128		sta idapple				H25DC-2621 was moved to location tst128
+				bpl not128	   			if already determined < 128k
+				lda #$EE
+				sta SETWRITEAUX	  		write to aux mem while on main zp
+				sta SETREADAUX	  		and read aux mem.
+				sta dbuf				write these locs just to test aux mem
+				sta lodintrp	   		1k apart from each other.
+				lda dbuf
+				cmp #$EE
+				bne noaux
+				asl dbuf				may be sparse mem mapping so
+				asl						change value and see what happens.
+				cmp dbuf
+				bne noaux				branch if not sparse mapping.
+				cmp lodintrp
+				bne H2606				if not sparse.
+noaux  			sec						no aux memory available.
+				bcs H2607
+H2606  			clc
+H2607  			sta CLRWRITEAUX	  		switch back to main memory
+				sta CLRREADAUX	  
+				bcs not128	  			if < 128k
+				lda idapple
+				ora #$30				set id = 128k present
+				sta idapple
+not128 			lda lookptr+1
+				sec
+				sbc #$05
+				sta lookptr+1
+				bcs H2620
+				dec lookptr
+H2620  			clc
+				rts
 LDR.Test128.len	.EQ *-LDR.Test128
 MAN
 SAVE USR/SRC/PRODOS.203/PRODOS.S.LDR.A
diff --git a/ProDOS.203/ProDOS.S.LDR.B.txt b/ProDOS.203/ProDOS.S.LDR.B.txt
index 5c415eeb..e65aa6b4 100644
--- a/ProDOS.203/ProDOS.S.LDR.B.txt
+++ b/ProDOS.203/ProDOS.S.LDR.B.txt
@@ -22,28 +22,28 @@ LDR.Splash		lda SPEAKER	  click speaker
 		 
 				ldx #$1D
 				
-.2	  		lda LDR.MSG.ProDOS,x
+.2	  			lda LDR.MSG.ProDOS,x
 				sta vline12+5,x
 				dex
 				bpl .2
 				
 				ldx #$0B
 				
-.3	  		lda H202F,x
+.3	  			lda H202F,x
 				sta vline14+14,x
 				dex
 				bpl .3
 				
 				ldx #$26
 				
-.4	  		lda LDR.MSG.Copyright,x
+.4	  			lda LDR.MSG.Copyright,x
 				sta vline23,x
 				dex
 				bpl .4
 				
 				ldx #$13
 				
-.5	  		lda LDR.MSG.Reserved,x
+.5	  			lda LDR.MSG.Reserved,x
 				sta vline24+10,x
 				dex
 				bpl .5
@@ -55,7 +55,7 @@ LDR.Splash		lda SPEAKER	  click speaker
 				lda #$80
 				trb newvideo	video mode select
 				
-.8	  		lda SPEAKER	  	click speaker
+.8	  			lda SPEAKER	  	click speaker
 				rts
 
 * find all disk devices in system slots and set up address
@@ -65,7 +65,7 @@ LDR.Splash		lda SPEAKER	  click speaker
 
 numdev2			.HS 0000000000000000	8 bytes for smartport call
 driveradr		.DA	0
-d2idx  		.DA #0
+d2idx  			.DA #0
 diskins2 		.DA #0					msb clear if drive in slot 2
 
 devsrch 		stz dst
@@ -86,197 +86,197 @@ devsrch 		stz dst
 				lda #$C7	  search slots from high to low
 				sta idxl+1
 				
-H26AB  jsr cmpid
-   bcs H270C		if no ProDOS device in this slot.
-   lda (idxl),y	   check last byte of $Cn rom (y = $ff)
-   beq diskii	   branch if 16 sector disk II.
-   cmp #$FF	   if = $FF then 13 sector disk II.
-   bcs H270C		ignore if 13 sector boot ROM
-   sta driveradr	  else assume it's an intelligent disk.
-   ldy #$07	   check for a smartport device.
-   lda (idxl),y
-   bne H26C4		no smartport
-   jmp smartprt
-H26C4  ldy #$FE
-   lda (idxl),y			get attributes.
-   and #$03	   verify it provides read and status calls.
-   cmp #$03
-   sec				assume it's an off-brand disk
-   bne H270C
-   jsr setdevid	   set up the devid byte from attributes
-   clc
-   php		  remember that it's not a disk //.
-   lsr		move # of units (0=1, 1=2) to carry.
-   lda idxl+1	   store hi entry addr (low already done)
-   bne H26E6		branch always.
-diskii	sta	devid			=0 since disk ii's have null attributes
-   sec
-   php		  remember it's a disk //
-   lda H2802
-   sta driveradr
-   lda H2802+1
-H26E6  sta driveradr+1
-   jsr installdev		install 1 or 2 devices from this slot.
-   plp		  get back if it's a disk // (carry).
-   bcc nxtdsk2	  if not disk //.
-   dex		  move the list pointer back by 2 devices
-   dex
-   stx numdevs	  count (-1) active devices
-   dec d2idx		increase the disk two index
-   dec d2idx
-   ldy d2idx
-   inx		  adj since device count starts with $FF.
-   lda devlist+1,x		get entries for disk //
-   sta devlist,y	  move then toward the end of the list
-   lda devlist,x	  
-   sta devlist+1,y	  
-   dex				back to numdevs again
-nxtdsk2	clc
-H270C  jsr sltrom			test for ROM in given slot and set flags
-   dec idxl+1			next lower slot.
-   lda idxl+1
-   and #$07	   have all slots been checked ?
-   bne H26AB		no.
+H26AB  			jsr cmpid
+				bcs H270C		if no ProDOS device in this slot.
+				lda (idxl),y	   check last byte of $Cn rom (y = $ff)
+				beq diskii	   branch if 16 sector disk II.
+				cmp #$FF	   if = $FF then 13 sector disk II.
+				bcs H270C		ignore if 13 sector boot ROM
+				sta driveradr	  else assume it's an intelligent disk.
+				ldy #$07	   check for a smartport device.
+				lda (idxl),y
+				bne H26C4		no smartport
+				jmp smartprt
+H26C4  			ldy #$FE
+				lda (idxl),y			get attributes.
+				and #$03	   verify it provides read and status calls.
+				cmp #$03
+				sec				assume it's an off-brand disk
+				bne H270C
+				jsr setdevid	   set up the devid byte from attributes
+				clc
+				php		  remember that it's not a disk //.
+				lsr		move # of units (0=1, 1=2) to carry.
+				lda idxl+1	   store hi entry addr (low already done)
+				bne H26E6		branch always.
+diskii			sta	devid			=0 since disk ii's have null attributes
+				sec
+				php		  remember it's a disk //
+				lda H2802
+				sta driveradr
+				lda H2802+1
+H26E6			sta driveradr+1
+				jsr installdev		install 1 or 2 devices from this slot.
+				plp		  get back if it's a disk // (carry).
+				bcc nxtdsk2	  if not disk //.
+				dex		  move the list pointer back by 2 devices
+				dex
+				stx numdevs	  count (-1) active devices
+				dec d2idx		increase the disk two index
+				dec d2idx
+				ldy d2idx
+				inx		  adj since device count starts with $FF.
+				lda devlist+1,x		get entries for disk //
+				sta devlist,y	  move then toward the end of the list
+				lda devlist,x	  
+				sta devlist+1,y	  
+				dex				back to numdevs again
+nxtdsk2			clc
+H270C  			jsr sltrom			test for ROM in given slot and set flags
+				dec idxl+1			next lower slot.
+				lda idxl+1
+				and #$07	   have all slots been checked ?
+				bne H26AB		no.
 
 * perform the new device search, mapping unmounted smartport devices
 * to empty slots in the device table.
 
-   jsr newmount
+				jsr newmount
 
 * now copy the disk // list to the end of the regular list.
 * start by making the device count include disk //'s
 
-   ldx numdevs			current device count - 1
-   lda #$0E
-   sec
-   sbc d2idx
-   beq H2747		if there were no disk //'s then done.
-   clc
-   adc numdevs	  sum of disk //'s and others.
-   sta numdevs
-   inx			move to open space in regular list.
-   ldy #$0D	   first disk // entry.
-H272F  lda devlist,y
-   pha
-   lda devlist,x	  
-   sta devlist,y	  
-   pla
-   sta devlist,x	  
-   inx
-   dey
-   sty d2idx			use as a temp
-   cpx d2idx
-   bcc H272F		continue until indexes cross
-H2747  ldy #$00
-   ldx numdevs	  now change the device order so that
-H274C  lda devlist,x	  the boot device will have highest
-   pha		  priority.
-   and #$7F	   strip off high bit
-   eor devnum	   for comparison.
-   asl
-   bne H275A
-   pla
-   iny
-H275A  dex
-   bpl H274C
-   ldx numdevs	  now reverse order of search, hi to lo.
-   tya		  was boot device found ?
-   beq H2777
-   lda devnum	   make boot device 1st in search order.
-   sta devlist,x
-   dex
-   bmi H277E		branch if only one device.
-   dey		  is this a 2 drive device ?
-   beq H2777		branch if not.
-   eor #$80	   make boot device, drive 2 next.
-   sta devlist,x
-   dex
-   bmi H277E		branch if only 1 device, 2 drives.
-H2777  pla
-   sta devlist,x
-   dex
-   bpl H2777
-H277E  jsr fndtrd	   save accumulated machine id.
-   beq H2787
-   sta machid	   machine ID byte
-   rts
-H2787  jmp H25B6
-stadrv ora devid			combine with attributes.
-   ldx numdevs	  
-   inx		  put device # into device list.
-   sta devlist,x
-   asl		now form drive 2 device number, if any.
-   rts
-sltrom bcc H27F3			branch if disk drive
+				ldx numdevs			current device count - 1
+				lda #$0E
+				sec
+				sbc d2idx
+				beq H2747		if there were no disk //'s then done.
+				clc
+				adc numdevs	  sum of disk //'s and others.
+				sta numdevs
+				inx			move to open space in regular list.
+				ldy #$0D	   first disk // entry.
+H272F  			lda devlist,y
+				pha
+				lda devlist,x	  
+				sta devlist,y	  
+				pla
+				sta devlist,x	  
+				inx
+				dey
+				sty d2idx			use as a temp
+				cpx d2idx
+				bcc H272F		continue until indexes cross
+H2747  			ldy #$00
+				ldx numdevs	  now change the device order so that
+H274C  			lda devlist,x	  the boot device will have highest
+				pha		  priority.
+				and #$7F	   strip off high bit
+				eor devnum	   for comparison.
+				asl
+				bne H275A
+				pla
+				iny
+H275A  			dex
+				bpl H274C
+				ldx numdevs	  now reverse order of search, hi to lo.
+				tya		  was boot device found ?
+				beq H2777
+				lda devnum	   make boot device 1st in search order.
+				sta devlist,x
+				dex
+				bmi H277E		branch if only one device.
+				dey		  is this a 2 drive device ?
+				beq H2777		branch if not.
+				eor #$80	   make boot device, drive 2 next.
+				sta devlist,x
+				dex
+				bmi H277E		branch if only 1 device, 2 drives.
+H2777			pla
+				sta devlist,x
+				dex
+				bpl H2777
+H277E  			jsr fndtrd	   save accumulated machine id.
+				beq H2787
+				sta machid	   machine ID byte
+				rts
+H2787  			jmp H25B6
+stadrv 			ora devid			combine with attributes.
+				ldx numdevs	  
+				inx		  put device # into device list.
+				sta devlist,x
+				asl		now form drive 2 device number, if any.
+				rts
+sltrom 			bcc H27F3			branch if disk drive
 
 * test for clock card
 
-   ldy #$06
-H2799  lda (idxl),y
-   cmp dskid,y
-   bne H27BA			no clock
-   dey
-   dey
-   bpl H2799
-   lda idxl+1	   transfer hi slot address
-   sbc #$C1	   minus $C1 (default) to relocate
-   sta clock64	  references to clock rom.
-   lda #$4C			enable jump vector in globals.
-   sta clockv	   P8 clock vector.
-   lda idapple	  mark clock as present.
-   beq H277E
-   ora #$01
-   sta idapple			xxxxxxx1 = clock present.
-   bne H27F3		always taken.
+				ldy #$06
+H2799  			lda (idxl),y
+				cmp dskid,y
+				bne H27BA			no clock
+				dey
+				dey
+				bpl H2799
+				lda idxl+1	   transfer hi slot address
+				sbc #$C1	   minus $C1 (default) to relocate
+				sta clock64	  references to clock rom.
+				lda #$4C			enable jump vector in globals.
+				sta clockv	   P8 clock vector.
+				lda idapple	  mark clock as present.
+				beq H277E
+				ora #$01
+				sta idapple			xxxxxxx1 = clock present.
+				bne H27F3		always taken.
 
 * test for 80 col card
 
-H27BA  ldy #$05
-   lda (idxl),y
-   cmp #$38
-   bne H27E4
-   ldy #$07
-   lda (idxl),y
-   cmp #$18
-   bne H27E4
-   ldy #$0B
-   lda (idxl),y
-   dec 		must = 1
-   bne H27E4
-   iny
-   lda (idxl),y
-   and #$F0	   mask off low nibble.
-   cmp #$80	   generic for 80-col card.
-   bne H27E4
-   lda idapple
-   beq H277E
-   ora #$02
-   sta idapple			xxxxxx1x = 80 col card.
-   bne H27F3		always taken.
+H27BA  			ldy #$05
+				lda (idxl),y
+				cmp #$38
+				bne H27E4
+				ldy #$07
+				lda (idxl),y
+				cmp #$18
+				bne H27E4
+				ldy #$0B
+				lda (idxl),y
+				dec 		must = 1
+				bne H27E4
+				iny
+				lda (idxl),y
+				and #$F0	   mask off low nibble.
+				cmp #$80	   generic for 80-col card.
+				bne H27E4
+				lda idapple
+				beq H277E
+				ora #$02
+				sta idapple			xxxxxx1x = 80 col card.
+				bne H27F3		always taken.
 
 * test for any other rom
 
-H27E4  ldx #$00
-   lda (idxl)
-   cmp #$FF	   apple /// non-slot?
-   beq H2801			invalid rom
-H27EC  cmp (idxl)			look for floating bus
-   bne H2801		no rom
-   inx
-   bne H27EC
-H27F3  lda idxl+1			mark a bit in slot byte
-   and #$07	   to indicate rom present.
-   tax
-   lda sltbit,x
-   ora rommap	   mark bit to flag rom present
-   sta rommap	   slot ROM bit map
-H2801  rts
+H27E4  			ldx #$00
+				lda (idxl)
+				cmp #$FF	   apple /// non-slot?
+				beq H2801			invalid rom
+H27EC  			cmp (idxl)			look for floating bus
+				bne H2801		no rom
+				inx
+				bne H27EC
+H27F3  			lda idxl+1			mark a bit in slot byte
+				and #$07	   to indicate rom present.
+				tax
+				lda sltbit,x
+				ora rommap	   mark bit to flag rom present
+				sta rommap	   slot ROM bit map
+H2801  			rts
 
-H2802	 .DA rwts	 	disk ii driver
+H2802	 		.DA rwts	 	disk ii driver
 
 * id bytes: evens for clock, odds for disk
 
-dskid	 .HS 082028005803703C
+dskid	 		.HS 082028005803703C
 
 * slot bits
 	 	
@@ -284,7 +284,7 @@ sltbit			.HS 0002040810204080
 
 fndtrd			clc
 				ldy sltbit
-H2818  		lda (lookptr),y
+H2818  			lda (lookptr),y
 				and #$DF
 				adc sltbit
 				sta sltbit
@@ -304,7 +304,7 @@ H2818  		lda (lookptr),y
 				lda idapple
 				rts
 
-H283B  		lda #$00
+H283B  			lda #$00
 				rts
 
 installdev 		php				how many drives (carry).
@@ -322,123 +322,123 @@ installdev 		php				how many drives (carry).
 				inx		  else presume that 2nd drive is present.
 				sta devlist,x	  active device list.
 
-H2853  		stx numdevs	  save updated device count.
+H2853  			stx numdevs	  save updated device count.
 				asl		shift # of drives back into carry.
 				lda driveradr		get high address of device driver.
 				sta drivertbl1,y	 device driver table 1.
 				bcc H2862		branch if single drive.
 				sta drivertbl2,y	 device driver table 2.
 
-H2862  		lda driveradr+1
+H2862  			lda driveradr+1
 				sta drivertbl1+1,y
 				bcc H286D
 				sta drivertbl2+1,y
 
-H286D  		rts
+H286D  			rts
 
 * query smartport status to determine # of devices
 * and install up to 4 units in table if card is in slot 5
 * otherwise only 2 units. this includes a patch #74
 
-smartprt jsr setdevid			setup the devid byte from attributes
-   lda idxl+1
-   sta driveradr+1
-   lda driveradr
-   sta pscall+1			modify operand
-   clc
-   adc #$03
-   sta spvect+1
-   lda driveradr+1
-   sta spvect+2
-   sta pscall+2			modify operand
-   asl		convert $Cn to $n0
-   asl
-   asl
-   asl
-   sta unitnum	  unit number
-   stz A4L		force a prodos status call
-   stz buf		dummy pointer
-   stz bloknml	  # of bytes to transfer
-   stz bloknml+1
-   lda #$10
-   sta buf+1		dummy pointer should be <> 0
+smartprt 		jsr setdevid			setup the devid byte from attributes
+				lda idxl+1
+				sta driveradr+1
+				lda driveradr
+				sta pscall+1			modify operand
+				clc
+				adc #$03
+				sta spvect+1
+				lda driveradr+1
+				sta spvect+2
+				sta pscall+2			modify operand
+				asl		convert $Cn to $n0
+				asl
+				asl
+				asl
+				sta unitnum	  unit number
+				stz A4L		force a prodos status call
+				stz buf		dummy pointer
+				stz bloknml	  # of bytes to transfer
+				stz bloknml+1
+				lda #$10
+				sta buf+1		dummy pointer should be <> 0
 
 * do a prodos status call patched in from above
 
-pscall	jsr	$0000			self modifying code
-   ldy #$FB	
-   lda (idxl),y			check device id
-   and #$02	   SCSI?
-   beq H28B1			no, no need to init Cocoon
-   sta statunit	   device = 2 for SCSI
+pscall			jsr	$0000			self modifying code
+				ldy #$FB	
+				lda (idxl),y			check device id
+				and #$02	   SCSI?
+				beq H28B1			no, no need to init Cocoon
+				sta statunit	   device = 2 for SCSI
 
 * initialize SCSI Cocoon to build internal device tables
 * and report true # of devices attached
 
-   jsr spvect			status of Cocoon
-	  .HS 00
-	  .DA spcparms	 ignore any errors.
-H28B1  stz statunit	   set unit# = 0
-   jsr spvect	   call to get the device count.
-	  .HS 00		this is a status call
-	  .DA spcparms
-   lda numdev2
-   beq donesp			no devices, so done.
-   cmp #$02			carry set if 2,3,4
-   jsr installdev		do the 1st and 2nd device if exists.
-   lda idxl+1
-   cmp #$C5
-   bne donesp			if not slot 5
+				jsr spvect			status of Cocoon
+				.HS 00
+				.DA spcparms	 ignore any errors.
+H28B1  			stz statunit	   set unit# = 0
+				jsr spvect	   call to get the device count.
+				.HS 00		this is a status call
+				.DA spcparms
+				lda numdev2
+				beq donesp			no devices, so done.
+				cmp #$02			carry set if 2,3,4
+				jsr installdev		do the 1st and 2nd device if exists.
+				lda idxl+1
+				cmp #$C5
+				bne donesp			if not slot 5
 
 * for slot 5, if there is a disk card in slot 2
 * then only install 2 devices otherwise map
 * extra devices as slot 2
 
-   bit diskins2			disk in slot 2 ?
-   bpl donesp	   yes - so done
-   lda numdev2
-   cmp #$03			carry set if 3,4,...
-   bcc donesp
-   cmp #$04	   carry set if 4,5,6,...
-   lda #$C2			map extra devices as slot 2
-   sta idxl+1
-   jsr installdev
-   lda #$C5
-   sta idxl+1
-donesp	jmp nxtdsk2			it's a disk device.
-setdevid ldy #$FE			check attributes byte.
-H28E8  lda (idxl),y
-   lsr		move hi nibble to lo nibble for
-   lsr		device table entries.
-   lsr
-   lsr
-   sta devid
-   rts
+				bit diskins2			disk in slot 2 ?
+				bpl donesp	   yes - so done
+				lda numdev2
+				cmp #$03			carry set if 3,4,...
+				bcc donesp
+				cmp #$04	   carry set if 4,5,6,...
+				lda #$C2			map extra devices as slot 2
+				sta idxl+1
+				jsr installdev
+				lda #$C5
+				sta idxl+1
+donesp			jmp nxtdsk2			it's a disk device.
+setdevid 		ldy #$FE			check attributes byte.
+H28E8  			lda (idxl),y
+				lsr		move hi nibble to lo nibble for
+				lsr		device table entries.
+				lsr
+				lsr
+				sta devid
+				rts
 
 * check unknown card to see if disk id = $Cn00:nn 20 nn 00 nn 03
 
-cmpid  lda CLRC8ROM	   switch out $C8 ROMs
-   ldy #$05
-H28F6  lda (idxl),y	   compare id bytes
-   cmp dskid,y
-   sec		  set if no disk card
-   bne H2903
-   dey
-   dey
-   bpl H28F6			loop until all 4 id bytes match.
-   clc				clear if disk card
-H2903  rts
+cmpid  			lda CLRC8ROM	   switch out $C8 ROMs
+				ldy #$05
+H28F6  			lda (idxl),y	   compare id bytes
+				cmp dskid,y
+				sec		  set if no disk card
+				bne H2903
+				dey
+				dey
+				bpl H28F6			loop until all 4 id bytes match.
+				clc				clear if disk card
+H2903  			rts
 
 * smartport call parameters
 
-spcparms	.DA #$03			# of parms
-statunit	.DA #$00	unit number (code for smartport stat)
-	  .DA numdev2
-	  .DA #00	 status code (0 = general status)
+spcparms		.DA #$03			# of parms
+statunit		.DA #$00	unit number (code for smartport stat)
+				.DA numdev2
+				.DA #00	 status code (0 = general status)
 
 * indexes into driver table
 
-driveridx   .DA #$06				s3, d1
+driveridx   	.DA #$06				s3, d1
 				.DA #$1E 				s7, d2
 				.DA #$0E	 	s7, d1
 				.DA #$1C	 	s6, d2
@@ -454,123 +454,123 @@ driveridx   .DA #$06				s3, d1
 
 * self modifying jmp = smartport entry address
 
-spvect jmp	$0000			self modifying
-newmount stz idxl
-   lda #$C7			start with slot 7 ($C700)
-   sta idxl+1
-H291F  jsr H29EB			is there a smartport device here?
-   bcs H2974		no, next device.
-   ldy #$FF	   get smartport address.
-   lda (idxl),y
-   clc
-   adc #$03			add 3 for smartport call
-   sta spvect+1
-   lda idxl+1
-   sta spvect+2
-   dey
-   jsr H28E8			set up device attributes
-   stz statunit
-   jsr spvect			do a status call on smartport itself
-	  .HS 00
-	  .DA spcparms
-   lda numdev2			# of devices on smartport
-   cmp #$03
-   bcc H2974		only 2 devices,skip to next one.
-   inc		add 1 for comparisons.
-   sta driveradr	  # of devices + 1.
-   lda #$03	   start at unit #3 (non-slot 5)
-   ldx spvect+2
-   cpx #$C5	   is this slot 5?
-   bne H295B		no, start at 3.
-   bit diskins2	   disk controller in slot 2?
-   bpl H295B		yes, so allow remapping of s5 devices
-   lda #$05	   else start looking at unit #5
+spvect 			jmp	$0000			self modifying
+newmount 		stz idxl
+				lda #$C7			start with slot 7 ($C700)
+				sta idxl+1
+H291F  			jsr H29EB			is there a smartport device here?
+				bcs H2974		no, next device.
+				ldy #$FF	   get smartport address.
+				lda (idxl),y
+				clc
+				adc #$03			add 3 for smartport call
+				sta spvect+1
+				lda idxl+1
+				sta spvect+2
+				dey
+				jsr H28E8			set up device attributes
+				stz statunit
+				jsr spvect			do a status call on smartport itself
+				.HS 00
+				.DA spcparms
+				lda numdev2			# of devices on smartport
+				cmp #$03
+				bcc H2974		only 2 devices,skip to next one.
+				inc		add 1 for comparisons.
+				sta driveradr	  # of devices + 1.
+				lda #$03	   start at unit #3 (non-slot 5)
+				ldx spvect+2
+				cpx #$C5	   is this slot 5?
+				bne H295B		no, start at 3.
+				bit diskins2	   disk controller in slot 2?
+				bpl H295B		yes, so allow remapping of s5 devices
+				lda #$05	   else start looking at unit #5
 
 * find block devices on this smartport
 
-H295B  cmp driveradr	  have we done all units in this slot?
-   bcs H2974		yes, skip to next slot.
-   sta statunit	   store the unit#.
-   jsr spvect	   do status call
-	  .HS 00
-	  .DA spcparms
-   lda numdev2	  is this a block device?
-   bmi mount		yes, so mount it.
-H296E  lda statunit	   go check the next unit#
-   inc
-   bra H295B
-H2974  dec idxl+1
-   lda idxl+1
-   cmp #$C0			searched down to slot 0?
-   bne H291F		if not.
-   rts
-mount  ldx #$0C
-H297F  ldy driveridx,x
-   lda drivertbl1,y	 device driver table 1
-   cmp #nodevice
-   bne H2990
-   lda drivertbl1+1,y
-   cmp /nodevice
-   beq H2994
-H2990  dex
-   bpl H297F
-   rts				ran out of space for devices, exit.
+H295B  			cmp driveradr	  have we done all units in this slot?
+				bcs H2974		yes, skip to next slot.
+				sta statunit	   store the unit#.
+				jsr spvect	   do status call
+				.HS 00
+				.DA spcparms
+				lda numdev2	  is this a block device?
+				bmi mount		yes, so mount it.
+H296E  			lda statunit	   go check the next unit#
+				inc
+				bra H295B
+H2974  			dec idxl+1
+				lda idxl+1
+				cmp #$C0			searched down to slot 0?
+				bne H291F		if not.
+				rts
+mount  			ldx #$0C
+H297F  			ldy driveridx,x
+				lda drivertbl1,y	 device driver table 1
+				cmp #nodevice
+				bne H2990
+				lda drivertbl1+1,y
+				cmp /nodevice
+				beq H2994
+H2990  			dex
+				bpl H297F
+				rts				ran out of space for devices, exit.
 
 * empty slot found
 
-H2994  lda idxl+1
-   pha
-   phx
-   phy
-   tya				which slot is empty?
-   lsr 				shift into slot#
-   and #$07	   now 1-7
-   ora #$C0	   now $C1-$C7
-   sta idxl+1
-   jsr H29EB			smartport interface in this slot?
-   ply
-   plx
-   pla
-   sta idxl+1
-   bcc H2990			yes, can't use to mirror the device.
-   jsr lc1in		write enable LC ram bank 1.
-   tya		  divide index by 2
-   lsr
-   tax
-   lda statunit
-   sta spunit-1,x		store the smartport unit #
-   lda spvect+1	   and entry address.
-   sta spvectlo-1,x
-   lda spvect+2
-   sta spvecthi-1,x
-   lda RROMBNK2			write protect lc ram.
-   inc numdevs
-   ldx numdevs
-   tya
-   lsr
-   cmp #$08
-   bcc nodev2			drive 2 mount
-   sbc #$08
-   ora #$08
-nodev2 asl
-   asl
-   asl
-   asl
-   ora devid			include device attributes
-   sta devlist,x	  in the active device list.
-   lda #remap_sp
-   sta drivertbl1,y	 device driver table 1
-   lda /remap_sp
-   sta drivertbl1+1,y
-   bra H296E
-H29EB  jsr cmpid			is it a disk controller?
-   bcs H29F8		no, so return.
-   sec		  assume no smartport
-   ldy #$07
-   lda (idxl),y			is it a smartport?
-   bne H29F8		if not.
-   clc				smartport found
-H29F8  rts
+H2994  			lda idxl+1
+				pha
+				phx
+				phy
+				tya				which slot is empty?
+				lsr 				shift into slot#
+				and #$07	   now 1-7
+				ora #$C0	   now $C1-$C7
+				sta idxl+1
+				jsr H29EB			smartport interface in this slot?
+				ply
+				plx
+				pla
+				sta idxl+1
+				bcc H2990			yes, can't use to mirror the device.
+				jsr lc1in		write enable LC ram bank 1.
+				tya		  divide index by 2
+				lsr
+				tax
+				lda statunit
+				sta spunit-1,x		store the smartport unit #
+				lda spvect+1	   and entry address.
+				sta spvectlo-1,x
+				lda spvect+2
+				sta spvecthi-1,x
+				lda RROMBNK2			write protect lc ram.
+				inc numdevs
+				ldx numdevs
+				tya
+				lsr
+				cmp #$08
+				bcc nodev2			drive 2 mount
+				sbc #$08
+				ora #$08
+nodev2 			asl
+				asl
+				asl
+				asl
+				ora devid			include device attributes
+				sta devlist,x	  in the active device list.
+				lda #remap_sp
+				sta drivertbl1,y	 device driver table 1
+				lda /remap_sp
+				sta drivertbl1+1,y
+				bra H296E
+H29EB  			jsr cmpid			is it a disk controller?
+				bcs H29F8		no, so return.
+				sec		  assume no smartport
+				ldy #$07
+				lda (idxl),y			is it a smartport?
+				bne H29F8		if not.
+				clc				smartport found
+H29F8  			rts
 
 * relocation subroutine. on entry, regs yx = address of parameter table
 * with the following parameters:
@@ -593,231 +593,234 @@ H29F8  rts
 * on exit, carry set if error and yx = addr of error
 *  with acc = $00 for table error or $FF if illegal opcode
 
-reloc  stx idxl			save address of control table
-   sty idxl+1
-rloop  lda (idxl)			get relocation command.
-   cmp #$05
-   bcs rlend		taken if >= 5 then done.
-   tax				move destination to page 0
-   ldy #$01	   for indirect access.
-   lda (idxl),y
-   sta dst
-   iny
-   lda (idxl),y
-   sta dst+1
-   iny
-   lda (idxl),y			also the length (byte count)
-   sta cnt		of the destination area.
-   iny
-   lda (idxl),y
-   sta cnt+1
-   bmi rlerr			branch if >= 32k.
-   txa		  is it a request to zero destination?
-   beq zero			if yes.
-   iny
-   lda (idxl),y			get source address.
-   sta src		used for move.
-   sta cde		used for relocation
-   iny
-   clc
-   adc cnt		add length to get final address
-   sta ecde
-   lda (idxl),y
-   sta src+1
-   sta cde+1
-   adc cnt+1
-   sta ecde+1
-   dex				test for 'move' command
-   beq H2AA3		branch if move only (no relocation)
-   stx wsize			save element size (1,2,3)
-   iny
-   lda (idxl),y	   get # of ranges that are valid
-   sta sgcnt		relocation target addresses.
-   tax		  separate serial range groups into tbls
-H2A42  iny
-   lda (idxl),y			transfer low limits to 'limlo' table
-   sta limlo,x
-   dex
-   bpl H2A42
-   ldx sgcnt			# of ranges
-H2A4E  iny
-   lda (idxl),y			transfer high limits to 'limhi' table
-   sta limhi,x
-   dex
-   bpl H2A4E
-   ldx sgcnt			# of ranges
-H2A5A  iny
-   lda (idxl),y			transfer offsets to 'ofset' table
-   sta ofset,x
-   dex
-   bpl H2A5A
-   jsr adjtbl			adj index pointer to next entry.
-   ldx wsize		test for machine code relocation
-   cpx #$03
-   beq rlcode	   branch if program relocation
-   jsr reladr	   otherwise, relocate addresses in
-H2A70  jsr moveSrcDst	   tables then move to destination.
-   bra rloop		do next table
-rlend  clc
-   rts
-rlerr  jmp tblerr
-rlcode	jsr rlprog			relocate machine code refs
-   bra H2A70
+reloc  			stx idxl			save address of control table
+				sty idxl+1
+rloop  			lda (idxl)			get relocation command.
+				cmp #$05
+				bcs rlend		taken if >= 5 then done.
+				tax				move destination to page 0
+				ldy #$01	   for indirect access.
+				lda (idxl),y
+				sta dst
+				iny
+				lda (idxl),y
+				sta dst+1
+				iny
+				lda (idxl),y			also the length (byte count)
+				sta cnt		of the destination area.
+				iny
+				lda (idxl),y
+				sta cnt+1
+				bmi rlerr			branch if >= 32k.
+				txa		  is it a request to zero destination?
+				beq zero			if yes.
+				iny
+				lda (idxl),y			get source address.
+				sta src		used for move.
+				sta cde		used for relocation
+				iny
+				clc
+				adc cnt		add length to get final address
+				sta ecde
+				lda (idxl),y
+				sta src+1
+				sta cde+1
+				adc cnt+1
+				sta ecde+1
+				dex				test for 'move' command
+				beq H2AA3		branch if move only (no relocation)
+				stx wsize			save element size (1,2,3)
+				iny
+				lda (idxl),y	   get # of ranges that are valid
+				sta sgcnt		relocation target addresses.
+				tax		  separate serial range groups into tbls
+H2A42  			iny
+				lda (idxl),y			transfer low limits to 'limlo' table
+				sta limlo,x
+				dex
+				bpl H2A42
+				ldx sgcnt			# of ranges
+H2A4E  			iny
+				lda (idxl),y			transfer high limits to 'limhi' table
+				sta limhi,x
+				dex
+				bpl H2A4E
+				ldx sgcnt			# of ranges
+H2A5A  			iny
+				lda (idxl),y			transfer offsets to 'ofset' table
+				sta ofset,x
+				dex
+				bpl H2A5A
+				jsr adjtbl			adj index pointer to next entry.
+				ldx wsize		test for machine code relocation
+				cpx #$03
+				beq rlcode	   branch if program relocation
+				jsr reladr	   otherwise, relocate addresses in
+H2A70  			jsr moveSrcDst	   tables then move to destination.
+				bra rloop		do next table
+rlend  			clc
+				rts
+rlerr  			jmp tblerr
+rlcode			jsr rlprog			relocate machine code refs
+				bra H2A70
 
 * fill destination range with 0's
 
-zero	jsr adjtbl			adj table pointer to next entry.
-   lda #$00
-   ldy cnt+1		is it at least 1 page?
-   beq H2A94		branch if not.
-   tay
-H2A89  sta (dst),y
-   iny
-   bne H2A89
-   inc dst+1			next page
-   dec cnt+1
-   bne H2A89		if more pages to clear.
-H2A94  ldy cnt		any bytes left to 0?
-   beq H2AA0		if not.
-   tay
-H2A99  sta (dst),y	  zero out remainder
-   iny
-   cpy cnt
-   bcc H2A99
-H2AA0  jmp rloop
-H2AA3  jsr adjtbl
-   bra H2A70
-adjtbl tya				add previous table length to
-   sec		  get next entry position in table
-   adc idxl
-   sta idxl
-   bcc H2AB2
-   inc idxl+1
-H2AB2  rts
-moveSrcDst	lda src+1			is move up, down or not at all?
-   cmp dst+1
-   bcc movup
-   bne movdn
-   lda src
-   cmp dst
-   bcc movup
-   bne movdn
-   rts				no move.
-movup  ldy cnt+1			calc highest page to move up
-   tya		  and adj src and dst.
-   clc
-   adc src+1
-   sta src+1
-   tya
-   clc
-   adc dst+1
-   sta dst+1
-   ldy cnt		move partial page 1st.
-   beq H2ADE		taken if no partial pages
-H2AD6  dey
-   lda (src),y
-   sta (dst),y
-   tya				end of page transfer?
-   bne H2AD6		no
-H2ADE  dec dst+1
-   dec src+1
-   dec cnt+1			done with all pages?
-   bpl H2AD6		no
-   rts
-movdn  ldy #$00
-   lda cnt+1		partial page move only?
-   beq H2AFC		taken if < 1 page to move
-H2AED  lda (src),y
-   sta (dst),y
-   iny
-   bne H2AED
-   inc dst+1		next page
-   inc src+1
-   dec cnt+1		more pages?
-   bne H2AED		if more.
-H2AFC  lda cnt		move partial page.
-   beq H2B09		if no more to move
-H2B00  lda (src),y
-   sta (dst),y
-   iny
-   cpy cnt
-   bne H2B00
-H2B09  rts
+zero			jsr adjtbl			adj table pointer to next entry.
+				lda #$00
+				ldy cnt+1		is it at least 1 page?
+				beq H2A94		branch if not.
+				tay
+H2A89  			sta (dst),y
+				iny
+				bne H2A89
+				inc dst+1			next page
+				dec cnt+1
+				bne H2A89		if more pages to clear.
+H2A94  			ldy cnt		any bytes left to 0?
+				beq H2AA0		if not.
+				tay
+H2A99  			sta (dst),y	  zero out remainder
+				iny
+				cpy cnt
+				bcc H2A99
+H2AA0  			jmp rloop
+H2AA3  			jsr adjtbl
+				bra H2A70
+adjtbl 			tya				add previous table length to
+				sec		  get next entry position in table
+				adc idxl
+				sta idxl
+				bcc H2AB2
+				inc idxl+1
+H2AB2  			rts
+moveSrcDst		lda src+1			is move up, down or not at all?
+				cmp dst+1
+				bcc movup
+				bne movdn
+				lda src
+				cmp dst
+				bcc movup
+				bne movdn
+				rts				no move.
+movup  			ldy cnt+1			calc highest page to move up
+				tya		  and adj src and dst.
+				clc
+				adc src+1
+				sta src+1
+				tya
+				clc
+				adc dst+1
+				sta dst+1
+				ldy cnt		move partial page 1st.
+				beq H2ADE		taken if no partial pages
+H2AD6  			dey
+				lda (src),y
+				sta (dst),y
+				tya				end of page transfer?
+				bne H2AD6		no
+H2ADE  			dec dst+1
+				dec src+1
+				dec cnt+1			done with all pages?
+				bpl H2AD6		no
+				rts
+movdn  			ldy #$00
+				lda cnt+1		partial page move only?
+				beq H2AFC		taken if < 1 page to move
+H2AED  			lda (src),y
+				sta (dst),y
+				iny
+				bne H2AED
+				inc dst+1		next page
+				inc src+1
+				dec cnt+1		more pages?
+				bne H2AED		if more.
+H2AFC			lda cnt		move partial page.
+				beq H2B09		if no more to move
+H2B00  			lda (src),y
+				sta (dst),y
+				iny
+				cpy cnt
+				bne H2B00
+H2B09  			rts
 
 * relocate addresses
 
-reladr ldy wsize			1 or 2 byte reference
-   dey
-   lda (cde),y
-   jsr adjadr			relocate reference.
-   lda wsize		update and test code pointer.
-   jsr adjcde
-   bcc reladr			if more to do
-   rts
-rlprog	ldy #$00			get next opcode
-   lda (cde),y
-   jsr oplen			determine if a 3 byte instruction.
-   beq rperr		branch if not an opcode
-   cmp #$03
-   bne H2B30
-   ldy #$02
-   jsr adjadr			relocate address
-   lda #$03
-H2B30  jsr adjcde			update and test if done.
-   bcc rlprog	   if more to do
-   rts
-rperr  pla
-   pla
-   ldx cde			bad code address in y,x
-   ldy cde+1
-   lda #$FF	   indicates bad opcode
-   sec
-   rts
-tblerr ldx idxl			bad table address in y,x
-   ldy idxl+1
-   lda #$00	   indicates input table error
-   sec
-   rts
-adjadr lda (cde),y			get page address and
-   ldx sgcnt		test against limits.
-H2B4D  cmp limlo,x	  is it >= low?
-   bcc H2B59		if not.
-   cmp limhi,x	  is it <= high?
-   bcc H2B5D		branch if it is
-   beq H2B5D
-H2B59  dex		  try next limit set
-   bpl H2B4D
-   rts		  return w/o adjustment.
-H2B5D  clc		  add offset to form relocated
-   adc ofset,x	  page address and replace
-   sta (cde),y	  old address with result.
-   rts
-adjcde clc		  update code pointer
-   adc cde
-   ldy cde+1
-   bcc H2B6C		branch if not page cross
-   iny		  otherwise, update page#.
-H2B6C  cpy ecde+1	   has all code/data been processed?
-   bcc H2B72		if not.
-   cmp ecde
-H2B72  sta cde		save updated values.
-   sty cde+1
-   rts		  return result (carry set = done).
-oplen  pha				form index to tbl & which 2-bit group.
-   and #$03	   low 2 bits specify group
-   tay
-   pla
-   lsr		upper 6 bits specify byte in table
-   lsr
-   tax
-   lda opcodln,x
-nxgroup  dey				is opcode len in lowest 2 bits of acc?
-   bmi H2B89		branch if it is
-   lsr		shift to next group.
-   lsr		(if length = 0 then error)
-   bne nxgroup
-H2B89  and #$03
-   rts		  if z-set then error
+reladr 			ldy wsize			1 or 2 byte reference
+				dey
+				lda (cde),y
+				jsr adjadr			relocate reference.
+				lda wsize		update and test code pointer.
+				jsr adjcde
+				bcc reladr			if more to do
+				rts
+rlprog			ldy #$00			get next opcode
+				lda (cde),y
+				jsr oplen			determine if a 3 byte instruction.
+				beq rperr		branch if not an opcode
+				cmp #$03
+				bne H2B30
+				ldy #$02
+				jsr adjadr			relocate address
+				lda #$03
+H2B30  			jsr adjcde			update and test if done.
+				bcc rlprog	   if more to do
+				rts
+rperr  			pla
+				pla
+				ldx cde			bad code address in y,x
+				ldy cde+1
+				lda #$FF	   indicates bad opcode
+				sec
+				rts
+tblerr 			ldx idxl			bad table address in y,x
+				ldy idxl+1
+				lda #$00	   indicates input table error
+				sec
+				rts
+adjadr 			lda (cde),y			get page address and
+				ldx sgcnt		test against limits.
+H2B4D  			cmp limlo,x	  is it >= low?
+				bcc H2B59		if not.
+				cmp limhi,x	  is it <= high?
+				bcc H2B5D		branch if it is
+				beq H2B5D
+H2B59  			dex		  try next limit set
+				bpl H2B4D
+				rts		  return w/o adjustment.
+H2B5D  			clc		  add offset to form relocated
+				adc ofset,x	  page address and replace
+				sta (cde),y	  old address with result.
+				rts
+adjcde 			clc		  update code pointer
+				adc cde
+				ldy cde+1
+				bcc H2B6C		branch if not page cross
+				iny		  otherwise, update page#.
+H2B6C  			cpy ecde+1	   has all code/data been processed?
+				bcc H2B72		if not.
+				cmp ecde
+H2B72  			sta cde		save updated values.
+				sty cde+1
+				rts		  return result (carry set = done).
+oplen  			pha				form index to tbl & which 2-bit group.
+				and #$03	   low 2 bits specify group
+				tay
+				pla
+				lsr		upper 6 bits specify byte in table
+				lsr
+				tax
+				lda opcodln,x
+nxgroup  		dey				is opcode len in lowest 2 bits of acc?
+				bmi H2B89		branch if it is
+				lsr		shift to next group.
+				lsr		(if length = 0 then error)
+				bne nxgroup
+
+			.LIST ON
+
+H2B89  			and #$03
+				rts		  if z-set then error
 
 * relocation table contains length of each opcode in 2-bit groups
 
@@ -830,20 +833,20 @@ opcodln   		.HS 0928193C0A280D3C
 				.HS 0A2A193F0A280D3C
 				.HS 0A2A193F0A280D3C
 
-wsize	 .HS 00
-sgcnt	 .HS 00
-limlo	 .HS 0000000000000000
-limhi	 .HS 0000000000000000
-ofset	 .HS 0000000000000000
+wsize	 		.HS 00
+sgcnt	 		.HS 00
+limlo	 		.HS 0000000000000000
+limhi	 		.HS 0000000000000000
+ofset	 		.HS 0000000000000000
 
 * patch to gsos vectors so error is returned for os calls - rev note #101
 
 patch101 		php
-				sei				disable interrupts
+				sei					disable interrupts
 				clc
-				xce		  full native mode
+				xce		  			full native mode
 
-				phb		  save DBR
+				phb		  			save DBR
 				pha
 				pha
 				pea $0000			length of patch
@@ -864,39 +867,39 @@ patch101 		php
 				pea $0000			length of patch = 0000/0010
 				pea $0010
 				>IIGS PtrToHand
-				plx		  low word of handle
-				plb		  set DBR to handle's bank
-				lda	>1,x			get upper 16 bits of 24 bit address
-				tay		  save in y
-				lda	0,x			get low 8 bits of address
-				and #$00FF	   clear high byte
-				xba		  put address in high byte
-				ora #$005C	   include JML opcode
-				sta >GSOS2	   store in gsos vectors
+				plx		  			low word of handle
+				plb		  			set DBR to handle's bank
+				lda	1,x				get upper 16 bits of 24 bit address
+				tay		  			save in y
+				lda	0,x				get low 8 bits of address
+				and ##$00FF	   		clear high byte
+				xba		  			put address in high byte
+				ora ##$005C	   		include JML opcode
+				sta GSOS2	   		store in gsos vectors
 				clc
-				adc #$000B
-				sta >GSOS
-				tya				store upper 16 bits too
-				sta >GSOS2+2
-				adc #$0000	   adj for possible page crossing
-				sta >GSOS+2
-				plb				remove garbage byte from stack
-				plb		  restore DBR.
+				adc ##$000B
+				sta GSOS
+				tya					store upper 16 bits too
+				sta GSOS2+2
+				adc ##$0000	   		adj for possible page crossing
+				sta GSOS+2
+				plb					remove garbage byte from stack
+				plb		  			restore DBR.
 				sec
-				xce		  back to emulation mode
+				xce		  			back to emulation mode
 				plp
 				rts
 
 * copy of the code that goes in the handle
 
-L2C4D			lda $01,s
-				sta $07,s
-				lda $02,s
-				sta $08,s
+L2C4D			lda 1,s
+				sta 7,s
+				lda 2,s
+				sta 8,s
 				pla
 				pla
 				pla
-				lda #$00FF			#NoOS
+				lda ##$00FF			#NoOS
 				sec
 				rtl
 
diff --git a/ProDOS.203/ProDOS.S.RAMX.txt b/ProDOS.203/ProDOS.S.RAMX.txt
index 3d14f9ec..5acef5a9 100644
--- a/ProDOS.203/ProDOS.S.RAMX.txt
+++ b/ProDOS.203/ProDOS.S.RAMX.txt
@@ -305,7 +305,7 @@ BITMAP			.EQ	*-ofsR0
 				   .HS FFFFFFFE
 VDIR			.EQ	*-ofsR0			start of vdir.
 				.HS F3			storage type = F, name length = 3
-				.AS "RAM"
+				.AS -"RAM"
 access			.EQ	*-ofsR0
 				.DA #$C3			destroy, rename, read enabled
 				.HS 27			  entry length
diff --git a/ProDOS.203/ProDOS.S.SEL2.txt b/ProDOS.203/ProDOS.S.SEL2.txt
index 558825f4..56967a6e 100644
--- a/ProDOS.203/ProDOS.S.SEL2.txt
+++ b/ProDOS.203/ProDOS.S.SEL2.txt
@@ -18,7 +18,7 @@ ofsQ			.EQ	*-dispadr		offset to GQuit dispatcher org
 GQdisp			lda RRAMWRAMBNK1			read/write LC bank 1
 				clc
 				xce				16 bit native mode.
-				jmp	>P8QUIT				  go to GQuit.
+				jmp	P8QUIT				  go to GQuit.
 				.DA #0000000000			offset to paragraph boundary.
 				.AS "GQ"			id bytes so GQuit can identify this
 
diff --git a/ProDOS.203/ProDOS.S.XDOS.M.txt b/ProDOS.203/ProDOS.S.XDOS.M.txt
index c55c23e3..040d43d5 100644
--- a/ProDOS.203/ProDOS.S.XDOS.M.txt
+++ b/ProDOS.203/ProDOS.S.XDOS.M.txt
@@ -4,9 +4,9 @@ NEW
 *
 * allocate buffer in memory tables
 
-alcbuffr .EQ	*-ofsX
+alcbuffr 		.EQ	*-ofsX
 				ldy #$04			index to user specified buffer.
-alcbufr1 .EQ	*-ofsX			 
+alcbufr1 		.EQ	*-ofsX			 
 				lda (A3L),y			this buffer must be on a page boundary.
 				tax		 save for validation.
 				cmp #$08
@@ -22,7 +22,7 @@ alcbufr1 .EQ	*-ofsX
 				inx
 				inx
 				inx
-L4DED  dex		 test for conflicts.
+L4DED			dex		 test for conflicts.
 				jsr cmembit			test for free buffer space
 				and memmap,y					P8 memory bitmap
 				bne L4E1E			  report memory conflict, if any.
diff --git a/ProDOS.203/ProDOS.S.txt b/ProDOS.203/ProDOS.S.txt
index 092ec45e..918e108f 100644
--- a/ProDOS.203/ProDOS.S.txt
+++ b/ProDOS.203/ProDOS.S.txt
@@ -1,15 +1,15 @@
 NEW
   AUTO 3,1
-				.LIST OFF
-				.OP	65816
-				.OR	$0000
-				.TF PRODOS203,TSYS
+		.LIST OFF
+		.OP	65816
+		.OR	$0000
+		.TF PRODOS203,TSYS
 *--------------------------------------
-				.INB INC/ZP.I
-				.INB INC/IO.I
-				.INB INC/MONITOR.I
-				.INB INC/MLI.I
-				.INB INC/MLI.E.I
+		.INB INC/ZP.I
+		.INB INC/IO.I
+		.INB INC/MONITOR.I
+		.INB INC/MLI.I
+		.INB INC/MLI.E.I
 *--------------------------------------
 MMStartUp			.EQ $0202
 NewHandle			.EQ $0902
@@ -20,10 +20,12 @@ MMShutDown			.EQ $0303
 ReadTimeHex			.EQ $0D03
 Int2Hex				.EQ $220B
 TLTextMountVolume	.EQ $1201
+*--------------------------------------
 				.MA IIGS
 				ldx ##]1
 				jsl $E10000
 				.EM
+*--------------------------------------
 P8QUIT			.EQ	$E0D000
 GSOS     		.EQ	$E100A8
 GSOS2    		.EQ	$E100B0
@@ -156,7 +158,7 @@ lcdest			.EQ	$FF00
 *  $5D00 sel_1	enhanced quit code (Bird's Better Bye)
 *  $6000 sel_2	GQuit dispatcher support
 
-				.PH $2000
+		.PH $2000
 
 		.INB USR/SRC/PRODOS.203/PRODOS.S.LDR.A
 		.INB USR/SRC/PRODOS.203/PRODOS.S.LDR.B
@@ -179,7 +181,7 @@ lcdest			.EQ	$FF00
 		.INB USR/SRC/PRODOS.203/PRODOS.S.SEL1
 		.INB USR/SRC/PRODOS.203/PRODOS.S.SEL2
 
-				.EP
+		.EP
 *--------------------------------------
 MAN
 SAVE USR/SRC/PRODOS.203/PRODOS.S