~rabbits/tiny-basic

a0354d8c5cb7ac14f7f452bcf2ccabe3717b3bfe — neauoire 2 months ago 59cbbd9
Minor opt
1 files changed, 8 insertions(+), 8 deletions(-)

M src/basic.tal
M src/basic.tal => src/basic.tal +8 -8
@@ 261,7 261,7 @@ JMP2r
&peek ( uc -- v* )
	POP [ LIT2 &pval 0000 ] LDA2 JMP2r
&time ( uc -- v* )
	POP ;make-time JSR2 JMP2r
	POP ;make-time JMP2
&width ( uc -- v* )
	POP .Screen/width DEI2 JMP2r



@@ 407,7 407,7 @@ JMP2
		LITr 40 SFT2r
		LITr 00
		LDAk ;chex JSR2 STH ADD2r
		INC2 LDAk ;chex JSR2 #ff NEQ ,&hw JCN
		INC2 LDAk ;chex JSR2 INC ,&hw JCN
	STH2r

JMP2r


@@ 446,9 446,9 @@ JMP2r
		DUP2 ;store/addr LDA2 ;mem/prg SUB2 ;mclr JSR2
		;store/addr STA2
	;mem/prg ;mem/root STA2
	;variables #0034 ;mclr JSR2
	;variables #0034 ;mclr ( .. )

JMP2r
JMP2

@print-line ( line* -- )



@@ 622,7 622,7 @@ JMP2

	STH2k
	;walk-expr JSR2 NIP2 ;find-line JSR2 NIP2
	DUP2 #ffff NEQ2 ,&no-error JCN
	INC2k ORA ,&no-error JCN
		STH2r ;walk-blank JSR2 ;err/line ;draw-error JMP2
		&no-error
	POP2r


@@ 891,15 891,15 @@ JMP2

	;mem/prg ;store/addr STA2
	;dict/varvara ;draw-str JSR2
	;draw-lb JSR2 ;draw-lb JSR2
	,draw-lb JSR ,draw-lb JSR
	;dict/ram ;draw-str JSR2
	#ffff ;mem/prg SUB2 ;draw-dec JSR2
	;dict/intro ;draw-str JSR2
	;draw-lb JSR2
	,draw-lb JSR

@draw-ready ( -- )

	;draw-lb JSR2
	,draw-lb JSR
	;dict/ready ;draw-str JSR2

@draw-lb ( -- )