Prev: F014 Up: Map Next: F04D
F028: setup for RS232 transmit
Used by the routine at F014.
F028 AD A1 02 LDA $02A1 get the RS-232 interrupt enable byte
F02B 4A LSR A shift the enable bit to Cb
F02C B0 1E BCS $F04C if interrupts are enabled just exit
F02E A9 10 LDA #$10 start timer A
F030 8D 0E DD STA $DD0E save VIA 2 CRA
F033 AD 99 02 LDA $0299 get the baud rate bit time low byte
F036 8D 04 DD STA $DD04 save VIA 2 timer A low byte
F039 AD 9A 02 LDA $029A get the baud rate bit time high byte
F03C 8D 05 DD STA $DD05 save VIA 2 timer A high byte
F03F A9 81 LDA #$81 enable timer A interrupt
F041 20 3B EF JSR $EF3B set VIA 2 ICR from A
F044 20 06 EF JSR $EF06 setup next RS232 Tx byte
F047 A9 11 LDA #$11 load timer A, start timer A
F049 8D 0E DD STA $DD0E save VIA 2 CRA
F04C 60 RTS
Prev: F014 Up: Map Next: F04D