+L4: cmp #$0A ; LF
+ beq newline
+ cmp #ATEOL ; Atari-EOL?
+ beq newline
+
+ asl a ; shift out the inverse bit
+ adc #$c0 ; grab the inverse bit; convert ATASCII to screen code
+ bpl codeok ; screen code ok?
+ eor #$40 ; needs correction
+codeok: lsr a ; undo the shift
+ bcc cputdirect
+ eor #$80 ; restore the inverse bit
+
+cputdirect: ; accepts screen code
+ jsr putchar