.code print START 0 CLEAR X loop LDA txt, X COMP NULL JEQ halt WD #AA halt J halt .data txt BYTE C'SIC/XE' NULL BYTE 0 textend EQU * textlen EQU textend- text -1 END print