Browse code
Added dump of asma's labels after run
Andrew Alderwick authored on 14/05/2021 07:09:55
Showing 1 changed files
| ... | ... |
@@ -6,22 +6,82 @@ |
| 6 | 6 |
( vectors ) |
| 7 | 7 |
|
| 8 | 8 |
|0100 |
| 9 |
+ ;reset JMP2 |
|
| 9 | 10 |
|
| 10 | 11 |
%asma-IF-ERROR { ;asma/error LDA2 ORA }
|
| 11 | 12 |
|
| 13 |
+@asma-dump-sublabels ( incoming-ptr* -- ) |
|
| 14 |
+ LDA2 |
|
| 15 |
+ ORAk ,&valid-incoming-ptr JCN |
|
| 16 |
+ POP2 JMP2r |
|
| 17 |
+ |
|
| 18 |
+ &valid-incoming-ptr |
|
| 19 |
+ ( left node ) |
|
| 20 |
+ DUP2 ,asma-dump-sublabels JSR |
|
| 21 |
+ ( here ) |
|
| 22 |
+ #09 .Console/char DEO |
|
| 23 |
+ DUP2 #0004 ADD2 |
|
| 24 |
+ &loop |
|
| 25 |
+ DUP2 #0001 ADD2 SWP2 LDA |
|
| 26 |
+ DUP #00 EQU ,&end JCN |
|
| 27 |
+ .Console/char DEO |
|
| 28 |
+ ,&loop JMP |
|
| 29 |
+ &end |
|
| 30 |
+ POP |
|
| 31 |
+ #09 .Console/char DEO |
|
| 32 |
+ LDA2 .Console/short DEO2 |
|
| 33 |
+ #0a .Console/char DEO |
|
| 34 |
+ |
|
| 35 |
+ ( right node ) |
|
| 36 |
+ #0002 ADD2 ,asma-dump-sublabels JSR |
|
| 37 |
+ JMP2r |
|
| 38 |
+ |
|
| 39 |
+@asma-dump-labels ( incoming-ptr* -- ) |
|
| 40 |
+ LDA2 |
|
| 41 |
+ ORAk ,&valid-incoming-ptr JCN |
|
| 42 |
+ POP2 JMP2r |
|
| 43 |
+ |
|
| 44 |
+ &valid-incoming-ptr |
|
| 45 |
+ ( left node ) |
|
| 46 |
+ DUP2 ,asma-dump-labels JSR |
|
| 47 |
+ ( here ) |
|
| 48 |
+ DUP2 #0004 ADD2 |
|
| 49 |
+ &loop |
|
| 50 |
+ DUP2 #0001 ADD2 SWP2 LDA |
|
| 51 |
+ DUP #00 EQU ,&end JCN |
|
| 52 |
+ .Console/char DEO |
|
| 53 |
+ ,&loop JMP |
|
| 54 |
+ &end |
|
| 55 |
+ POP |
|
| 56 |
+ #09 .Console/char DEO |
|
| 57 |
+ LDA2k .Console/short DEO2 |
|
| 58 |
+ #0a .Console/char DEO |
|
| 59 |
+ ( subtree ) |
|
| 60 |
+ #0002 ADD2 ,asma-dump-sublabels JSR |
|
| 61 |
+ |
|
| 62 |
+ ( right node ) |
|
| 63 |
+ #0002 ADD2 ,asma-dump-labels JSR |
|
| 64 |
+ JMP2r |
|
| 65 |
+ |
|
| 12 | 66 |
@reset |
| 13 | 67 |
;asma-init-assembler JSR2 |
| 14 |
- ;&filename ,asma-assemble-file-pass JSR |
|
| 68 |
+ ;&filename ;asma-assemble-file-pass JSR2 |
|
| 15 | 69 |
asma-IF-ERROR ,asma-print-error JCN |
| 16 | 70 |
;asma-init-assembler-pass JSR2 |
| 17 |
- ;&filename ,asma-assemble-file-pass JSR |
|
| 71 |
+ ;&filename ;asma-assemble-file-pass JSR2 |
|
| 18 | 72 |
asma-IF-ERROR ,asma-print-error JCN |
| 73 |
+ ;asma-trees/labels ,asma-dump-labels JSR |
|
| 74 |
+ ;asma/line LDA2 .Console/short DEO2 |
|
| 75 |
+ ;&lines .Console/string DEO2 |
|
| 76 |
+ #0000 DIV |
|
| 19 | 77 |
BRK |
| 20 | 78 |
|
| 21 | 79 |
&filename |
| 22 | 80 |
( "test.usm 00 ) |
| 23 | 81 |
"projects/demos/piano.usm 00 |
| 24 | 82 |
|
| 83 |
+ &lines [ 20 "lines 20 "in 20 "total. 0a 00 ] |
|
| 84 |
+ |
|
| 25 | 85 |
@asma-print-error ( -- ) |
| 26 | 86 |
;asma/error LDA2 .Console/string DEO2 |
| 27 | 87 |
#3a .Console/char DEO |
| ... | ... |
@@ -431,7 +491,7 @@ |
| 431 | 491 |
;asma-parse-hex-string JSR2 |
| 432 | 492 |
,&valid JCN |
| 433 | 493 |
|
| 434 |
- ;asma-msg-hex ;asma/error STZ2 |
|
| 494 |
+ ;asma-msg-hex ;asma/error STA2 |
|
| 435 | 495 |
JMP2r |
| 436 | 496 |
|
| 437 | 497 |
&valid |