etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-26 07:45:14 +00:00
Code Issues Projects Releases Wiki Activity

(asma) Correct relative offsets

Browse source
This commit is contained in:
Andrew Alderwick 2021-11-28 17:45:02 +00:00
parent 1f5086a260
commit 9415c4e04a
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
projects/library/asma.tal
View file

@ -466,10 +466,10 @@
@asma-write-lit ( byte -- )
;asma/lit LDA2 ,&present JCN
POP #01 ;asma/lit STA2
;asma/addr LDA2k INC2 SWP2 STA2
;asma/addr LDA2k INC2 INC2 SWP2 STA2
JMP2r
&present
;asma/addr LDA2k #0001 SUB2 SWP2 STA2
;asma/addr LDA2k #0002 SUB2 SWP2 STA2
LIT LIT2 ,asma-write-byte/raw JSR
,asma-write-byte/raw JSR
,asma-write-byte/raw JSR
@ -480,7 +480,7 @@
;asma/lit LDA2 ,&present JCN
POP JMP2r
&present
;asma/addr LDA2k #0001 SUB2 SWP2 STA2
;asma/addr LDA2k #0002 SUB2 SWP2 STA2
LIT LIT ,asma-write-byte/raw JSR
,asma-write-byte/raw JSR
#0000 ;asma/lit STA2
@ -702,7 +702,9 @@
JMP2r
@asma-literal-rel-addr
,asma-addr-helper JSR ;asma/addr LDA2 SUB2 #0003 SUB2
,asma-addr-helper JSR
;asma/addr LDA2 SUB2
#0003 ;asma/lit-present LDA SUB SUB2
DUP2 #0080 LTH2 STH
DUP2 #ff7f GTH2 STHr ORA ,&in-bounds JCN