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

Redirected asma messages to stderr.

This commit is contained in:
Andrew Alderwick 2021-10-07 21:57:54 +01:00
parent 0f9b03e0cb
commit ac2d30cdb9
2 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
projects/examples/demos/asma-piano.tal
View File

@ -1,7 +1,7 @@
( devices ) ( devices )
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ] |00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ]
|10 @Console [ &pad $8 &write $1 ] |10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ]
|a0 @File [ &vector $2 &success $2 &offset-hs $2 &offset-ls $2 &name $2 &length $2 &load $2 &save $2 ] |a0 @File [ &vector $2 &success $2 &offset-hs $2 &offset-ls $2 &name $2 &length $2 &load $2 &save $2 ]
( vectors ) ( vectors )

30
projects/library/asma.tal
View File

@ -58,13 +58,13 @@
@asma-print-error ( -- ) @asma-print-error ( -- )
;asma/error LDA2 ;asma-print-string JSR2 ;asma/error LDA2 ;asma-print-string JSR2
#3a .Console/write DEO #3a .Console/error DEO
#20 .Console/write DEO #20 .Console/error DEO
;asma/orig-token LDA2 ;asma-print-string JSR2 ;asma/orig-token LDA2 ;asma-print-string JSR2
;&line ;asma-print-string JSR2 ;&line ;asma-print-string JSR2
;asma/line LDA2 ;asma-print-short JSR2 ;asma/line LDA2 ;asma-print-short JSR2
#2e .Console/write DEO #2e .Console/error DEO
#0a .Console/write DEO #0a .Console/error DEO
JMP2r JMP2r
&line 20 "on 20 "line 20 00 &line 20 "on 20 "line 20 00
@ -99,18 +99,18 @@
( left node ) ( left node )
DUP2 ,asma-print-sublabels JSR DUP2 ,asma-print-sublabels JSR
( here ) ( here )
#09 .Console/write DEO #09 .Console/error DEO
DUP2 #0004 ADD2 DUP2 #0004 ADD2
&loop &loop
DUP2 INC2 SWP2 LDA DUP2 INC2 SWP2 LDA
DUP #00 EQU ,&end JCN DUP #00 EQU ,&end JCN
.Console/write DEO .Console/error DEO
,&loop JMP ,&loop JMP
&end &end
POP POP
#09 .Console/write DEO #09 .Console/error DEO
LDA2 ;asma-print-short JSR2 LDA2 ;asma-print-short JSR2
#0a .Console/write DEO #0a .Console/error DEO
( right node ) ( right node )
#0002 ADD2 ,asma-print-sublabels JSR #0002 ADD2 ,asma-print-sublabels JSR
@ -135,13 +135,13 @@
&loop &loop
DUP2 INC2 SWP2 LDA DUP2 INC2 SWP2 LDA
DUP #00 EQU ,&end JCN DUP #00 EQU ,&end JCN
.Console/write DEO .Console/error DEO
,&loop JMP ,&loop JMP
&end &end
POP POP
#09 .Console/write DEO #09 .Console/error DEO
LDA2k ;asma-print-short JSR2 LDA2k ;asma-print-short JSR2
#0a .Console/write DEO #0a .Console/error DEO
( subtree ) ( subtree )
#0002 ADD2 ;asma-print-sublabels JSR2 #0002 ADD2 ;asma-print-sublabels JSR2
@ -155,13 +155,13 @@
POP POP2 JMP2r POP POP2 JMP2r
&keep-going &keep-going
.Console/write DEO .Console/error DEO
INC2 INC2
,asma-print-string JMP ,asma-print-string JMP
@asma-print-short ( short* -- ) @asma-print-short ( short* -- )
LIT '0 .Console/write DEO LIT '0 .Console/error DEO
LIT 'x .Console/write DEO LIT 'x .Console/error DEO
OVR #04 SFT ,&hex JSR OVR #04 SFT ,&hex JSR
SWP #0f AND ,&hex JSR SWP #0f AND ,&hex JSR
DUP #04 SFT ,&hex JSR DUP #04 SFT ,&hex JSR
@ -171,7 +171,7 @@
#30 ADD DUP #3a LTH ,&not-alpha JCN #30 ADD DUP #3a LTH ,&not-alpha JCN
#27 ADD #27 ADD
&not-alpha &not-alpha
.Console/write DEO .Console/error DEO
JMP2r JMP2r
( (