... | ... |
@@ -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 |