Browse code
Redirected asma messages to stderr.
Andrew Alderwick authored on 07/10/2021 20:57:54
Showing 2 changed files
| ... | ... |
@@ -1,7 +1,7 @@ |
| 1 | 1 |
( devices ) |
| 2 | 2 |
|
| 3 | 3 |
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 &debug $1 &halt $1 ] |
| 4 |
-|10 @Console [ &pad $8 &write $1 ] |
|
| 4 |
+|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 &error $1 ] |
|
| 5 | 5 |
|a0 @File [ &vector $2 &success $2 &offset-hs $2 &offset-ls $2 &name $2 &length $2 &load $2 &save $2 ] |
| 6 | 6 |
|
| 7 | 7 |
( vectors ) |
| ... | ... |
@@ -58,13 +58,13 @@ |
| 58 | 58 |
|
| 59 | 59 |
@asma-print-error ( -- ) |
| 60 | 60 |
;asma/error LDA2 ;asma-print-string JSR2 |
| 61 |
- #3a .Console/write DEO |
|
| 62 |
- #20 .Console/write DEO |
|
| 61 |
+ #3a .Console/error DEO |
|
| 62 |
+ #20 .Console/error DEO |
|
| 63 | 63 |
;asma/orig-token LDA2 ;asma-print-string JSR2 |
| 64 | 64 |
;&line ;asma-print-string JSR2 |
| 65 | 65 |
;asma/line LDA2 ;asma-print-short JSR2 |
| 66 |
- #2e .Console/write DEO |
|
| 67 |
- #0a .Console/write DEO |
|
| 66 |
+ #2e .Console/error DEO |
|
| 67 |
+ #0a .Console/error DEO |
|
| 68 | 68 |
JMP2r |
| 69 | 69 |
|
| 70 | 70 |
&line 20 "on 20 "line 20 00 |
| ... | ... |
@@ -99,18 +99,18 @@ |
| 99 | 99 |
( left node ) |
| 100 | 100 |
DUP2 ,asma-print-sublabels JSR |
| 101 | 101 |
( here ) |
| 102 |
- #09 .Console/write DEO |
|
| 102 |
+ #09 .Console/error DEO |
|
| 103 | 103 |
DUP2 #0004 ADD2 |
| 104 | 104 |
&loop |
| 105 | 105 |
DUP2 INC2 SWP2 LDA |
| 106 | 106 |
DUP #00 EQU ,&end JCN |
| 107 |
- .Console/write DEO |
|
| 107 |
+ .Console/error DEO |
|
| 108 | 108 |
,&loop JMP |
| 109 | 109 |
&end |
| 110 | 110 |
POP |
| 111 |
- #09 .Console/write DEO |
|
| 111 |
+ #09 .Console/error DEO |
|
| 112 | 112 |
LDA2 ;asma-print-short JSR2 |
| 113 |
- #0a .Console/write DEO |
|
| 113 |
+ #0a .Console/error DEO |
|
| 114 | 114 |
|
| 115 | 115 |
( right node ) |
| 116 | 116 |
#0002 ADD2 ,asma-print-sublabels JSR |
| ... | ... |
@@ -135,13 +135,13 @@ |
| 135 | 135 |
&loop |
| 136 | 136 |
DUP2 INC2 SWP2 LDA |
| 137 | 137 |
DUP #00 EQU ,&end JCN |
| 138 |
- .Console/write DEO |
|
| 138 |
+ .Console/error DEO |
|
| 139 | 139 |
,&loop JMP |
| 140 | 140 |
&end |
| 141 | 141 |
POP |
| 142 |
- #09 .Console/write DEO |
|
| 142 |
+ #09 .Console/error DEO |
|
| 143 | 143 |
LDA2k ;asma-print-short JSR2 |
| 144 |
- #0a .Console/write DEO |
|
| 144 |
+ #0a .Console/error DEO |
|
| 145 | 145 |
( subtree ) |
| 146 | 146 |
#0002 ADD2 ;asma-print-sublabels JSR2 |
| 147 | 147 |
|
| ... | ... |
@@ -155,13 +155,13 @@ |
| 155 | 155 |
POP POP2 JMP2r |
| 156 | 156 |
|
| 157 | 157 |
&keep-going |
| 158 |
- .Console/write DEO |
|
| 158 |
+ .Console/error DEO |
|
| 159 | 159 |
INC2 |
| 160 | 160 |
,asma-print-string JMP |
| 161 | 161 |
|
| 162 | 162 |
@asma-print-short ( short* -- ) |
| 163 |
- LIT '0 .Console/write DEO |
|
| 164 |
- LIT 'x .Console/write DEO |
|
| 163 |
+ LIT '0 .Console/error DEO |
|
| 164 |
+ LIT 'x .Console/error DEO |
|
| 165 | 165 |
OVR #04 SFT ,&hex JSR |
| 166 | 166 |
SWP #0f AND ,&hex JSR |
| 167 | 167 |
DUP #04 SFT ,&hex JSR |
| ... | ... |
@@ -171,7 +171,7 @@ |
| 171 | 171 |
#30 ADD DUP #3a LTH ,¬-alpha JCN |
| 172 | 172 |
#27 ADD |
| 173 | 173 |
¬-alpha |
| 174 |
- .Console/write DEO |
|
| 174 |
+ .Console/error DEO |
|
| 175 | 175 |
JMP2r |
| 176 | 176 |
|
| 177 | 177 |
( |