6502/of816
1
0
Fork 0
mirror of https://github.com/mgcaret/of816.git synced 2024-05-28 14:41:27 +00:00
Code Issues Projects Releases Wiki Activity

save a few bytes

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