Comment the ATASCII to screen code conversion.

2019-01-23 19:02:26 +01:00
parent 1781a5cfe7
commit 7a034f505b
1 changed files with 6 additions and 6 deletions
--- a/libsrc/atari/cputc.s
+++ b/libsrc/atari/cputc.s
@@ -30,13 +30,13 @@ L4:     cmp     #$0A            ; LF
        cmp     #ATEOL          ; Atari-EOL?
        beq     newline
-        asl     a
+        asl     a               ; shift out the inverse bit
-        adc     #$c0
+        adc     #$c0            ; grab the inverse bit; convert ATASCII to screen code
-        bpl     intok
+        bpl     codeok          ; screen code ok?
-        eor     #$40
+        eor     #$40            ; needs correction
-intok:  lsr
+codeok: lsr     a               ; undo the shift
        bcc     cputdirect
-        eor     #$80
+        eor     #$80            ; restore the inverse bit
 cputdirect:                     ; accepts screen code
        jsr     putchar