* Interrupt driven serial data input
*
C848 36 COMMSINT psha
C849 3C pshx
C84A B6 80 2E COMMSIN2 lda REG+SCSR Get serial stat reg.
C84D 85 28 bita #$28 RX Data ready?
C84F 27 14 beq commsend
*
C851 B6 80 2F commsrx ldaa REG+SCDR Get rx data reg
C854 DE 84 ldx rxbinp
C856 A7 00 sta 0,x
C858 08 inx
C859 8C 60 00 cmpx #RXBuffer+$1000 At end of buff??
C85C 26 03 bne commsrx2
C85E CE 50 00 ldx #RXBuffer
C861 DF 84 commsrx2 stx rxbinp
*
C863 20 E5 bra COMMSIN2 loop back for any more
*
C865 38 commsend pulx
C866 32 pula
C867 3B rti
*