Some minor tweaks

src/vmsrc/a1cmd.pla

@@ -350,11 +350,11 @@ asm dcitos
 	STA	SRCH
 	LDY	#$00
 -	LDA	(SRC),Y
+	CMP	#$80
 	AND	#$7F
-	CMP	(SRC),Y
 	INY
 	STA	(DST),Y
-	BCC	-
+	BCS	-
 	TYA
 	LDY	#$00
 	STA	(DST),Y

src/vmsrc/cmd.pla

@@ -504,11 +504,11 @@ asm dcitos
 	STA	SRCH
 	LDY	#$00
 -	LDA	(SRC),Y
+	CMP	#$80
 	AND	#$7F
-	CMP	(SRC),Y
 	INY
 	STA	(DST),Y
-	BCC	-
+	BCS	-
 	TYA
 	LDY	#$00
 	STA	(DST),Y

src/vmsrc/soscmd.pla

@@ -317,8 +317,8 @@ asm xpokeb
 	ORA	#$80
 	STA	DSTX
 	DEC	DSTX
-	LDA	ESTKL,X
 	LDY	#$00
+	LDA	ESTKL,X
 	STA	(DST),Y
 	STY	DSTX
 	INX
@@ -415,11 +415,11 @@ asm dcitos
 	STA	SRCH
 	LDY	#$00
 -	LDA	(SRC),Y
+	CMP	#$80
 	AND	#$7F
-	CMP	(SRC),Y
 	INY
 	STA	(DST),Y
-	BCC	-
+	BCS	-
 	TYA
 	LDY	#$00
 	STA	(DST),Y
@@ -645,16 +645,6 @@ def close(refnum)
     perr     = syscall($CC, @params)
     return perr
 end
-;def newline(refnum, set, char)
-;    byte params[4]
-;
-;    params.0 = 1
-;    params.1 = refnum
-;    params.2 = set
-;    params.3 = char
-;    perr     = syscall($C9, @params)
-;    return perr
-;end
 def read(refnum, buff, len)
     byte params[8]
 
@@ -679,16 +669,6 @@ end
 ;
 ; DEVICE I/O
 ;
-;def dev_status(devnum, list)
-;    byte params[5]
-;    
-;    params.0 = 3
-;    params.1 = devnum
-;    params.2 = 0
-;    params:3 = list
-;    perr     = syscall($82, @params)
-;    return params.2
-;end
 def dev_control(devnum, code, list)
     byte params[5]
     
@@ -748,40 +728,6 @@ def seg_find(search, base, limit, pages, id)
     *limit   = params:7
     return params.9
 end
-;def seg_change(segnum, mode, pages)
-;    byte params[5]
-;    
-;    params.0 = 3
-;    params.1 = segnum
-;    params.2 = mode
-;    params:3 = pages
-;    perr     = syscall($42, @params)
-;    return params:3
-;end
-;def seg_getinfo(segnum, base, limit, pages, id)
-;    byte params[9]
-;    
-;    params.0 = 6
-;    params.1 = segnum
-;    params:2 = 0
-;    params:4 = 0
-;    params:6 = 0
-;    params.8 = 0
-;    perr      = syscall($43, @params)
-;    *base    = params:2
-;    *limit   = params:4
-;    *pages   = params:6
-;    return params.8
-;end
-;def seg_getnum(segaddr)
-;    byte params[4]
-;    
-;    params.0 = 2
-;    params:1 = segaddr
-;    params.3 = 0
-;    perr     = syscall($44, @params)
-;    return params.3
-;end
 def seg_release(segnum)
     byte params[2]