	.code
	.bank 82
	.org $7754
;-----------------------------------------------------------------------
; Write a single bit to memory base 128.
; ($7754)
; in:    A = input byte
;
l7754_01:
          ; Extract the first bit from A.
          AND     #$01
          STA     $1000
          ; Wait.
          PHA     
          PLA     
          NOP     
          ; Send 0x02 | byte.
          ORA     #$02
          STA     $1000
          ; Wait a little bit longer.
          PHA     
          PLA     
          PHA     
          PLA     
          PHA     
          PLA
          ; Re-send the extracted bit.
          AND     #$01
          STA     $1000
          ; Wait. 
          PHA
          PLA     
          NOP     
          RTS     
