[BASIC] Size optimizations

commanderx16 · Sep 28, 2019 · 8b1f368 · 8b1f368
1 parent 09215c7
commit 8b1f368
Show file tree

Hide file tree

Showing 7 changed files with 14 additions and 21 deletions.
diff --git a/basic/code10.s b/basic/code10.s
@@ -28,11 +28,11 @@ isvret	sta facmo
 	lda #0
 	sta facov
 	jsr tstrom      ;see if an array
-	bcc strrts      ;don't test st(i),ti(i)
+	bcc tstr10      ;don't test st(i),ti(i)
 	cpx #'T'
-	bne strrts
+	bne tstr10
 	cpy #$c9
-	bne strrts
+	bne tstr10
 	jsr gettim
 	sty tenexp
 	dey
@@ -42,7 +42,6 @@ isvret	sta facmo
 	ldy #fdcend-foutbl
 	jsr foutim
 	jmp timstr
-strrts	rts
 gooo	bit intflg
 	bpl gooooo
 	ldy #0

diff --git a/basic/code16.s b/basic/code16.s
@@ -21,6 +21,7 @@ mvdone	clc
 	bcc mvstrt
 	inc frespc+1
 mvstrt	rts
+frmstr	jsr frmevl
 frestr	jsr chkstr
 frefac	lda facmo
 	ldy facmo+1
@@ -109,8 +110,7 @@ midd	lda #255
 	jsr chrgot
 	cmp #41
 	beq mid2
-	jsr chkcom
-	jsr getbyt
+	jsr combyt
 mid2	jsr pream
 	beq gofuc
 	dex

diff --git a/basic/code26.s b/basic/code26.s
@@ -267,8 +267,7 @@ paoc5	jsr paoc19      ;store x,y then maybe quit
 	ldx eormsk
 	lda andmsk
 	jsr paoc19      ;store x,y then maybe quit
-paoc15	jsr frmevl
-	jsr frestr      ;length in .a
+paoc15	jsr frmstr      ;length in .a
 	ldx index1
 	ldy index1+1
 	jmp $ffbd

diff --git a/basic/code3.s b/basic/code3.s
@@ -8,8 +8,7 @@ golst	jsr linget
 	beq lstend
 	cmp #minutk
 	bne flnrts
-	jsr chrget
-	jsr linget
+	jsr clnget
 	bne flnrts
 lstend	pla
 	pla

diff --git a/basic/code5.s b/basic/code5.s
@@ -74,12 +74,12 @@ onglop	dec faclo
 	bne onglp1
 	pla
 	jmp gone2
-onglp1	jsr chrget
-	jsr linget
+onglp1	jsr clnget
 	cmp #44
 	beq onglop
 	pla
 ongrts	rts
+clnget	jsr chrget
 linget	ldx #0
 	stx linnum
 	stx linnum+1

diff --git a/basic/code7.s b/basic/code7.s
@@ -51,11 +51,7 @@ get	jsr errdir
 	cmp #'#'
 	bne gettty
 	jsr chrget
-	jsr getbyt
-	lda #44
-	jsr synchr
-	stx channl
-	jsr coin
+	jsr inpn10
 zz2=buf+1
 gettty	ldx #<zz2
 zz3=buf+2
@@ -67,11 +63,12 @@ zz3=buf+2
 	ldx channl
 	bne iorele
 	rts
-inputn	jsr getbyt
+inpn10	jsr getbyt
 	lda #44
 	jsr synchr
 	stx channl
-	jsr coin
+	jmp coin
+inputn	jsr inpn10
 	jsr notqti
 iodone	lda channl
 iorele	jsr clschn

diff --git a/basic/x16additions.s b/basic/x16additions.s
@@ -121,8 +121,7 @@ geos	jsr jsrfar
 
 ;***************
 dos	beq ptstat      ;no argument: print status
-	jsr frmevl
-	jsr frestr      ;length in .a
+	jsr frmstr      ;length in .a
 	cmp #0
 	beq ptstat      ;no argument: print status
 	ldx index1