From 0b134ff6b868a9772c8562ca60d5b852abb18f74 Mon Sep 17 00:00:00 2001 From: Andrew Alderwick Date: Wed, 8 Jun 2022 00:53:14 +0100 Subject: [PATCH] (asma) Minor optimisations --- projects/library/asma.tal | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/projects/library/asma.tal b/projects/library/asma.tal index bf40b8d..7b0b311 100644 --- a/projects/library/asma.tal +++ b/projects/library/asma.tal @@ -202,10 +202,10 @@ @asma-init-next-pass ( -- ) ;asma/pass LDA INC ;asma/pass STA ;asma-write-buffer ;asma-output/ptr STA2 - #0000 DUP2 + #0100 DUP DUP2 ( 0100 00 0000 ) ;asma/addr STA2 ;asma/state STA - #01 SWP ( 0100 ) ;asma/written-addr STA2 + ;asma/written-addr STA2 ;&preamble-end ;&preamble SUB2k ;asma-assemble-chunk JSR2 POP2 POP2 JMP2r @@ -511,11 +511,6 @@ POP2 #01 JMP2r -@asma-write-short ( short -- ) - SWP - ,asma-write-byte JSR - ,asma-write-byte JMP ( tail call ) - @asma-write-lit ( byte -- ) ;asma/lit LDA2 ,&present JCN ,asma-flush-held JSR @@ -553,6 +548,11 @@ #00 ;asma/jsr STA JMP2r +@asma-write-short ( short -- ) + SWP + ,asma-write-byte JSR + ( fall through ) + @asma-write-byte ( byte -- ) ,asma-flush-held JSR &raw