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

Added dump of asma's labels after run

Browse source
This commit is contained in:
Andrew Alderwick 2021-05-14 08:09:55 +01:00
parent 696958a413
commit b2b5932a5a
1 changed files with 63 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

66
projects/software/asma.usm
View file

@ -6,22 +6,82 @@
( vectors )
|0100
;reset JMP2
%asma-IF-ERROR { ;asma/error LDA2 ORA }
@asma-dump-sublabels ( incoming-ptr* -- )
LDA2
ORAk ,&valid-incoming-ptr JCN
POP2 JMP2r
&valid-incoming-ptr
( left node )
DUP2 ,asma-dump-sublabels JSR
( here )
#09 .Console/char DEO
DUP2 #0004 ADD2
&loop
DUP2 #0001 ADD2 SWP2 LDA
DUP #00 EQU ,&end JCN
.Console/char DEO
,&loop JMP
&end
POP
#09 .Console/char DEO
LDA2 .Console/short DEO2
#0a .Console/char DEO
( right node )
#0002 ADD2 ,asma-dump-sublabels JSR
JMP2r
@asma-dump-labels ( incoming-ptr* -- )
LDA2
ORAk ,&valid-incoming-ptr JCN
POP2 JMP2r
&valid-incoming-ptr
( left node )
DUP2 ,asma-dump-labels JSR
( here )
DUP2 #0004 ADD2
&loop
DUP2 #0001 ADD2 SWP2 LDA
DUP #00 EQU ,&end JCN
.Console/char DEO
,&loop JMP
&end
POP
#09 .Console/char DEO
LDA2k .Console/short DEO2
#0a .Console/char DEO
( subtree )
#0002 ADD2 ,asma-dump-sublabels JSR
( right node )
#0002 ADD2 ,asma-dump-labels JSR
JMP2r
@reset
;asma-init-assembler JSR2
;&filename ,asma-assemble-file-pass JSR
;&filename ;asma-assemble-file-pass JSR2
asma-IF-ERROR ,asma-print-error JCN
;asma-init-assembler-pass JSR2
;&filename ,asma-assemble-file-pass JSR
;&filename ;asma-assemble-file-pass JSR2
asma-IF-ERROR ,asma-print-error JCN
;asma-trees/labels ,asma-dump-labels JSR
;asma/line LDA2 .Console/short DEO2
;&lines .Console/string DEO2
#0000 DIV
BRK
&filename
( "test.usm 00 )
"projects/demos/piano.usm 00
&lines [ 20 "lines 20 "in 20 "total. 0a 00 ]
@asma-print-error ( -- )
;asma/error LDA2 .Console/string DEO2
#3a .Console/char DEO
@ -431,7 +491,7 @@
;asma-parse-hex-string JSR2
,&valid JCN
;asma-msg-hex ;asma/error STZ2
;asma-msg-hex ;asma/error STA2
JMP2r
&valid