~rabbits/tiny-basic

a79d7e42183a167592948af0f88f33e85e9f3185 — neauoire 2 months ago a0354d8
Migrated to = rune
1 files changed, 13 insertions(+), 13 deletions(-)

M src/basic.tal
M src/basic.tal => src/basic.tal +13 -13
@@ 153,7 153,7 @@ JMP2r
		&no-insert
		POP2
	( append )
	[ LIT2r &addr :mem/prg ]
	[ LIT2r &addr =mem/prg ]
	[ LIT2 &link $2 ] STH2kr STA2 INC2r INC2r
	[ LIT2 &id $2 ] STH2kr STA2 INC2r INC2r
	[ LIT &statement $1 ] STH2kr STA INC2r


@@ 1185,19 1185,19 @@ JMP2r
	$1

@statements-tbl
	:do-let :do-goto :do-rem :do-if
	:do-gosub :do-clear :do-input :do-return
	:do-list :do-print :do-end :do-run
	( display ) :do-color :do-cls :do-draw :do-mode :do-sprite :do-pict
	( system ) :do-save :do-load :do-make :do-poke
	=do-let =do-goto =do-rem =do-if
	=do-gosub =do-clear =do-input =do-return
	=do-list =do-print =do-end =do-run
	( display ) =do-color =do-cls =do-draw =do-mode =do-sprite =do-pict
	( system ) =do-save =do-load =do-make =do-poke

@arithmetic-tbl
	"+ :math/add "- :math/sub
	"* :math/mul "/ :math/div
	"& :math/and "| :math/ora
	"< :math/lth "> :math/gth
	"= :math/equ "! :math/neq
	"% :math/mod
	"+ =math/add "- =math/sub
	"* =math/mul "/ =math/div
	"& =math/and "| =math/ora
	"< =math/lth "> =math/gth
	"= =math/equ "! =math/neq
	"% =math/mod
	$3

@dict


@@ 1280,7 1280,7 @@ $2

@mem
	&root
		:&prg
		=&prg
		0000
		00
	&prg