d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(asma) Minor optimisations

This commit is contained in:
Andrew Alderwick 2022-06-08 00:53:14 +01:00
parent 02696fa437
commit 0b134ff6b8
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
projects/library/asma.tal
View File

@ -202,10 +202,10 @@
@asma-init-next-pass ( -- ) @asma-init-next-pass ( -- )
;asma/pass LDA INC ;asma/pass STA ;asma/pass LDA INC ;asma/pass STA
;asma-write-buffer ;asma-output/ptr STA2 ;asma-write-buffer ;asma-output/ptr STA2
#0000 DUP2 #0100 DUP DUP2 ( 0100 00 0000 )
;asma/addr STA2 ;asma/addr STA2
;asma/state STA ;asma/state STA
#01 SWP ( 0100 ) ;asma/written-addr STA2 ;asma/written-addr STA2
;&preamble-end ;&preamble SUB2k ;asma-assemble-chunk JSR2 POP2 POP2 ;&preamble-end ;&preamble SUB2k ;asma-assemble-chunk JSR2 POP2 POP2
JMP2r JMP2r
@ -511,11 +511,6 @@
POP2 #01 POP2 #01
JMP2r JMP2r
@asma-write-short ( short -- )
SWP
,asma-write-byte JSR
,asma-write-byte JMP ( tail call )
@asma-write-lit ( byte -- ) @asma-write-lit ( byte -- )
;asma/lit LDA2 ,&present JCN ;asma/lit LDA2 ,&present JCN
,asma-flush-held JSR ,asma-flush-held JSR
@ -553,6 +548,11 @@
#00 ;asma/jsr STA #00 ;asma/jsr STA
JMP2r JMP2r
@asma-write-short ( short -- )
SWP
,asma-write-byte JSR
( fall through )
@asma-write-byte ( byte -- ) @asma-write-byte ( byte -- )
,asma-flush-held JSR ,asma-flush-held JSR
&raw &raw