Code: Select all
;*** I/O Locations *******************************
; Picoblaze-style UART on 6502 Playground
UART_BASE equ $C008
UART_STATUS equ UART_BASE
UART_DATA equ UART_BASE +1
Code: Select all
ACIA1_Output pha ;save registers
ACIA1_Out1 lda UART_STATUS ;serial port status
and #$02 ;is tx buffer empty
bne ACIA1_Out1 ;no
pla ;get chr
sta UART_DATA ;put character to Port
rts ;doneCode: Select all
ACIA1_Input lda UART_STATUS ;Serial port status
and #$40 ;mask data present bit
beq ACIA1_Input ;no char to get
lda UART_DATA ;get chr
rts ;