Skipped reporting of device label values.
This commit is contained in:
parent
4d6fc06778
commit
0f9b03e0cb
|
@ -128,6 +128,10 @@
|
||||||
DUP2 ,asma-print-labels JSR
|
DUP2 ,asma-print-labels JSR
|
||||||
( here )
|
( here )
|
||||||
DUP2 #0004 ADD2
|
DUP2 #0004 ADD2
|
||||||
|
LDAk LIT 'A LTH ,&loop JCN
|
||||||
|
LDAk LIT 'Z GTH ,&loop JCN
|
||||||
|
POP2
|
||||||
|
,&skip-device-label JMP
|
||||||
&loop
|
&loop
|
||||||
DUP2 INC2 SWP2 LDA
|
DUP2 INC2 SWP2 LDA
|
||||||
DUP #00 EQU ,&end JCN
|
DUP #00 EQU ,&end JCN
|
||||||
|
@ -141,6 +145,7 @@
|
||||||
( subtree )
|
( subtree )
|
||||||
#0002 ADD2 ;asma-print-sublabels JSR2
|
#0002 ADD2 ;asma-print-sublabels JSR2
|
||||||
|
|
||||||
|
&skip-device-label
|
||||||
( right node )
|
( right node )
|
||||||
#0002 ADD2 ,asma-print-labels JSR
|
#0002 ADD2 ,asma-print-labels JSR
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
Loading…
Reference in New Issue