/ROUTINE TO TYPE ASCII STRING AT (PC) /ON THE TTY. RETURNS WITH AC CLEAR. / TYPE, 0 CLA TAD I TYPE /GET A CHAR ISZ TYPE /POINT AT NEXT ONE NOP /OVERFLOW ISN'T MY PROBLEM SNA /CONTINUE IF NOT END JMP I TYPE /RETURN IF 0 TLS /PRINT THE CHAR JMP TYPE+1 /LOOP ; $