/ROUTINE TO TYPE SIXBIT STRING AT (PC) /ON THE TTY. RETURNS WITH AC CLEAR. / TYPE, 0 TYPELP, CLA CLL TAD I TYPE /GET PAIR OF CHARS RTR /ROTATE INTO AC6-AC11 RTR RTR AND K0077 /MASK OUT HIGH 6 BITS SNA /CONTINUE IF NOT END JMP TYPE1 /OTHERWISE RETURN TAD K0240 /CONVERT TO ASCII TLS /PRINT IT CLA TAD I TYPE /GET PAIR, AGAIN AND K0077 /MASK OUT HIGH CHAR SNA /SKIP IF NOT END JMP TYPE1 /ELSE RETURN TAD K0240 /CONVERT TO ASCII TLS /PRINT IT ISZ TYPE /INC PTR NOP /OVERFLOW IS OK JMP TYPELP /LOOP UNTIL 0 BYTE TYPE1, ISZ TYPE /INC PTR NOP /IGNORE OVERFLOW JMP I TYPE /RETURN TO WORD AFTER STRING / K0077, 77 /MASK TO REMOVE HIGH 6 BITS K0240, 240 /DIFFERENCE BETWEEN SIXBIT AND ASCII / $