memset() optimizations from Peter Ferrie. Thanks Peter!

src/vmsrc/a1cmd.pla

@@ -168,25 +168,21 @@ asm memset
 	STA     DSTH
 	INC     ESTKL+1,X
 	INC     ESTKH+1,X
+-	CLC
 SETMLP	DEC     ESTKL+1,X
 	BNE     +
 	DEC     ESTKH+1,X
 	BEQ     SETMEX
 +	LDA     ESTKL,X
-	STA     (DST),Y
+	BCC	+
+	LDA     ESTKH,X
++	STA     (DST),Y
 	INY
-	BNE     +
+	BNE	+
 	INC     DSTH
-+	DEC     ESTKL+1,X
++	BCS	-
-	BNE     +
+	SEC
-	DEC     ESTKH+1,X
+	BCS	SETMLP
-	BEQ     SETMEX
-+	LDA     ESTKH,X
-	STA     (DST),Y
-	INY
-	BNE     SETMLP
-	INC     DSTH
-	BNE     SETMLP
 SETMEX	INX
 	INX
 	RTS
@@ -618,14 +614,14 @@ end
 ; CFFA1 routines
 ; FILE I/O
 ;
-def opendir
+;def opendir
-    perr = syscall($10)
+;    perr = syscall($10)
-    return perr
+;    return perr
-end
+;end
-def readdir
+;def readdir
-    perr = syscall($12)
+;    perr = syscall($12)
-    return *CFFAEntryPtr
+;    return *CFFAEntryPtr
-end
+;end
 def finddirentry(filename)
     *CFFAFileName = filename
     perr = syscall($14)
@@ -905,38 +901,38 @@ end
 ;
 ; Command mode
 ;
-def catalog
+;def catalog
-    byte type, len
+;    byte type, len
-    word entry, filecnt
+;    word entry, filecnt
 
-    opendir
+;    opendir
-    repeat
+;    repeat
-        entry = readdir
+;        entry = readdir
-	if !perr
+;	if !perr
-	    type = ^entry
+;	    type = ^entry
-	    if type
+;	    if type
-	        len = type & $0F
+;	        len = type & $0F
-		^entry = len
+;		^entry = len
-		prstr(entry)
+;		prstr(entry)
-	    if type & $F0 == $D0 ; Is it a directory?
+;	    if type & $F0 == $D0 ; Is it a directory?
-	        cout('/')
+;	        cout('/')
-	        len = len + 1
+;	        len = len + 1
-	    elsif (entry).$10 == $FF
+;	    elsif (entry).$10 == $FF
-	        cout('-')
+;	        cout('-')
-		len = len + 1
+;		len = len + 1
-	    elsif (entry).$10 == $FE
+;	    elsif (entry).$10 == $FE
-	        cout('+')
+;	        cout('+')
-		len = len + 1
+;		len = len + 1
-	    fin
+;	    fin
-	        for len = 19 - len downto 0
+;	        for len = 19 - len downto 0
-		    cout(' ')
+;		    cout(' ')
-                next
+;                next
-            fin
+;            fin
-	fin
+;	fin
-    until perr
+;    until perr
-    perr = 0
+;    perr = 0
-    return crout()
+;    return crout()
-end
+;end
 def stripchars(strptr)
     while ^strptr and ^(strptr + 1) <> ' '
         memcpy(strptr + 1, strptr + 2, ^strptr)
@@ -1036,8 +1032,8 @@ while 1
 	        quit
 	    is 'M'
 	        syscall($02)
-	    is 'C'
+;	    is 'C'
-	        catalog
+;	        catalog
 	    is '+'
 	        execmod(cmdptr)
 	    otherwise

src/vmsrc/cmd.pla

@@ -193,25 +193,21 @@ asm memset
 	STA     DSTH
 	INC     ESTKL+1,X
 	INC     ESTKH+1,X
+-	CLC
 SETMLP	DEC     ESTKL+1,X
 	BNE     +
 	DEC     ESTKH+1,X
 	BEQ     SETMEX
 +	LDA     ESTKL,X
-	STA     (DST),Y
+	BCC	+
+	LDA     ESTKH,X
++	STA     (DST),Y
 	INY
-	BNE     +
+	BNE	+
 	INC     DSTH
-+	DEC     ESTKL+1,X
++	BCS	-
-	BNE     +
+	SEC
-	DEC     ESTKH+1,X
+	BCS	SETMLP
-	BEQ     SETMEX
-+	LDA     ESTKH,X
-	STA     (DST),Y
-	INY
-	BNE     SETMLP
-	INC     DSTH
-	BNE     SETMLP
 SETMEX	INX
 	INX
 	RTS

src/vmsrc/soscmd.pla

@@ -169,25 +169,21 @@ asm memset
 	STA     DSTH
 	INC     ESTKL+1,X
 	INC     ESTKH+1,X
+-	CLC
 SETMLP	DEC     ESTKL+1,X
 	BNE     +
 	DEC     ESTKH+1,X
 	BEQ     SETMEX
 +	LDA     ESTKL,X
-	STA     (DST),Y
+	BCC	+
+	LDA     ESTKH,X
++	STA     (DST),Y
 	INY
-	BNE     +
+	BNE	+
 	INC     DSTH
-+	DEC     ESTKL+1,X
++	BCS	-
-	BNE     +
+	SEC
-	DEC     ESTKH+1,X
+	BCS	SETMLP
-	BEQ     SETMEX
-+	LDA     ESTKH,X
-	STA     (DST),Y
-	INY
-	BNE     SETMLP
-	INC     DSTH
-	BNE     SETMLP
 SETMEX	INX
 	INX
 	RTS