| ... | ... |
@@ -128,6 +128,10 @@ |
| 128 | 128 |
DUP2 ,asma-print-labels JSR |
| 129 | 129 |
( here ) |
| 130 | 130 |
DUP2 #0004 ADD2 |
| 131 |
+ LDAk LIT 'A LTH ,&loop JCN |
|
| 132 |
+ LDAk LIT 'Z GTH ,&loop JCN |
|
| 133 |
+ POP2 |
|
| 134 |
+ ,&skip-device-label JMP |
|
| 131 | 135 |
&loop |
| 132 | 136 |
DUP2 INC2 SWP2 LDA |
| 133 | 137 |
DUP #00 EQU ,&end JCN |
| ... | ... |
@@ -141,6 +145,7 @@ |
| 141 | 145 |
( subtree ) |
| 142 | 146 |
#0002 ADD2 ;asma-print-sublabels JSR2 |
| 143 | 147 |
|
| 148 |
+ &skip-device-label |
|
| 144 | 149 |
( right node ) |
| 145 | 150 |
#0002 ADD2 ,asma-print-labels JSR |
| 146 | 151 |
JMP2r |