6502
/
of816
mirror of https://github.com/mgcaret/of816.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

save a few bytes

This commit is contained in:
mgcaret 2020-01-04 17:31:32 -08:00
parent 32ec1e9df4
commit f4a4504b0e
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
asm/forth-dictionary.s
View File

@ -1315,7 +1315,6 @@ dword LITERAL,"LITERAL",F_IMMED
bra COMMA::code ; compile actual number
.else
lda STACKBASE+2,x
ora #$0000
beq COMMA::code ; compile fast literal
ldy #.loword(_LIT)
lda #.hiword(_LIT)
@ -1688,19 +1687,17 @@ dword DROP,"DROP"
NEXT
eword
; H: ( n1 n2 -- )
dword TWODROP,"2DROP"
; H: ( n1 n2 n3 -- )
dword THREEDROP,"3DROP"
jsr _stackincr
twodrop: jsr _stackincr
jsr _stackincr
NEXT
eword
; H: ( n1 n2 n3 -- )
dword THREEDROP,"3DROP"
jsr _stackincr
jsr _stackincr
jsr _stackincr
NEXT
; H: ( n1 n2 -- )
dword TWODROP,"2DROP"
bra THREEDROP::twodrop
eword
; H: ( n1 ... nx -- ) empty stack