Kernel 0.93+ ProDOS 2.0.3 src

ProDOS.203/ProDOS.S.XDOS.A.txt

@@ -93,6 +93,7 @@ exitmli			stz bubit				clear backup bit
 				pha
 				lda bnkbyt1				restore language card status
 				jmp HBFA0				and return.
+
 nodevice 		.EQ	*-ofsX
 				lda #$28				no device connected.
 				jsr p8errv				P8 error vector.
@@ -126,6 +127,7 @@ H30CC  			jsr vldbuf1				make sure user buffer is not
 				plp
 				clc	no error
 				rts
+
 dvmgrerr 		plp	restore interrupt status
 gosyserr 		.EQ	*-ofsX
 				jsr p8errv				P8 error vector
@@ -166,6 +168,7 @@ alcint	lda	inttbl-2,x					test high address for 0.
 				sta (A3L),y				pass back to user.
 				clc	no errors.
 				rts
+
 H3118  			inx
 				inx						next lower priority spot
 				cpx #$0B				are all 4 already allocated?
@@ -285,6 +288,7 @@ syserr1			.EQ	*-ofsX
 				plx	pop 1 level of return
 				sec
 				rts
+
 sysdeath1 		.EQ	*-ofsX
 				tax	death error code.
 				sta CLR80DISP			disable 80 col hardware.
@@ -338,6 +342,7 @@ H3274  			jsr gocmd				execute command
 				bcc goodop
 errorsys 		jsr p8errv				P8 error vector
 goodop			rts
+
 setpath			.EQ	*-ofsX
 				ldy #$01				index to pathname pointer
 				lda (A3L),y				low pointer address

ProDOS.203/ProDOS.S.XDOS.C.txt

@@ -721,7 +721,7 @@ L41A9  lda fcbbuf,y			all bytes must match to say that it's
 				dex
 				bne L41A9				loop to check all owner info.
 				inc totent			 	file is already open, now see
-				lda fcbbuf+9,y				  if it's already opened for write.
+				lda fcbbuf+9,y			if it's already opened for write.				and #$02			 if so report file busy (with carry set).
 				and #$02			 	if so report file busy (with carry set).
 				beq L41C1				branch if this file is read access only.
 				sec

ProDOS.203/ProDOS.S.XDOS.E.txt

@@ -559,7 +559,7 @@ L4A9D  lda d_stor			 find out which storage type.
 L4AAE  			jsr renpath				since both names go into the directory,
 				bcs L4A74			  	syntax the new name to get the local
 				ldy rnptr			  	name address. y = index to local name
-				ldx pathbuf,y				   length. adj y to last char of new name.
+				ldx pathbuf,y			length. adj y to last char of new name.				tya
 				tya
 				adc pathbuf,y
 				tay

ProDOS.203/ProDOS.S.XDOS.M.txt

@@ -277,26 +277,26 @@ pcntbl			.EQ	*-ofsX			parameter counts for the calls
 * command table
 
 cmdtable 		.EQ	*-ofsX
-				.DA create		create
-				.DA destroy		destroy
-				.DA rename				  rename
-				.DA setinfo				   setinfo
-				.DA getinfo				   getinfo
-				.DA online			  online
-				.DA setprefx				  set prefix
-				.DA getprefx				  get prefix
-				.DA openf				   open
-				.DA newline				   newline
-				.DA readf				   read
-				.DA writef			  write
-				.DA closef			  close
-				.DA flushf				  flush
-				.DA setmark		set mark
-				.DA getmark				   get mark
-				.DA seteof				  seteof
-				.DA geteof			  geteof
-				.DA setbuf				  setbuf
-				.DA getbuf				  getbuf
+				.DA create
+				.DA destroy
+				.DA rename
+				.DA setinfo
+				.DA getinfo
+				.DA online
+				.DA setprefx
+				.DA getprefx
+				.DA openf
+				.DA newline
+				.DA readf
+				.DA writef
+				.DA closef
+				.DA flushf
+				.DA setmark
+				.DA getmark
+				.DA seteof
+				.DA geteof
+				.DA setbuf
+				.DA getbuf
 
 * corresponding command function bytes