$EF90/61328: Process RS232 Byte
Jump from $EF5B:
EF90: A5 A7 LDA $A7 ; Tape temporary
EF92: D0 EA BNE $EF7E ; Set Up To Receive
EF94: 4C D3 E4 JMP $E4D3 ; Unused Bytes For Future Patches
* Old KERNAL:
EF94: 85 A9 STA $A9 ; RS232 Flag: Start Bit check/Tape temporary
EF96: 60 RTS
Jump from $EF5F:
EF97: AC 9B 02 LDY $029B ; RS232 Index to End of Input Buffer
EF9A: C8 INY
EF9B: CC 9C 02 CPY $029C ; RS232 Pointer: High Byte of Input Buffer
EF9E: F0 2A BEQ $EFCA
EFA0: 8C 9B 02 STY $029B ; RS232 Index to End of Input Buffer
EFA3: 88 DEY
EFA4: A5 AA LDA $AA ; RS232 Input Byte Buffer/Tape temporary
EFA6: AE 98 02 LDX $0298 ; RS232 Number of Bits left to send
Jump from $EFAF:
EFA9: E0 09 CPX #$09
EFAB: F0 04 BEQ $EFB1
EFAD: 4A LSR
EFAE: E8 INX
EFAF: D0 F8 BNE $EFA9
Jump from $EFAB:
EFB1: 91 F7 STA ($F7),Y ; RS232 Input Buffer Pointer
EFB3: A9 20 LDA #$20
EFB5: 2C 94 02 BIT $0294 ; RS232 Pseudo 6551 command Register Image
EFB8: F0 B4 BEQ $EF6E ; RS232 Receive
EFBA: 30 B1 BMI $EF6D ; RS232 Receive
EFBC: A5 A7 LDA $A7 ; Tape temporary
EFBE: 45 AB EOR $AB ; RS232 Input parity/Tape temporary
EFC0: F0 03 BEQ $EFC5
EFC2: 70 A9 BVS $EF6D ; RS232 Receive
EFC4: 2C .BYTE $2C
Jump from $EFC0:
EFC5: 50 A6 BVC $EF6D ; RS232 Receive
EFC7: A9 01 LDA #$01
EFC9: 2C .BYTE $2C
Jump from $EF9E:
EFCA: A9 04 LDA #$04
EFCC: 2C .BYTE $2C
Jump from $EFDF:
EFCD: A9 80 LDA #$80
EFCF: 2C .BYTE $2C
Jump from $EFDD:
EFD0: A9 02 LDA #$02
EFD2: 0D 97 02 ORA $0297 ; RS232 Pseudo 6551 Status Register Image
EFD5: 8D 97 02 STA $0297 ; RS232 Pseudo 6551 Status Register Image
EFD8: 4C 7E EF JMP $EF7E ; Set Up To Receive
Jump from $EF72:
EFDB: A5 AA LDA $AA ; RS232 Input Byte Buffer/Tape temporary
EFDD: D0 F1 BNE $EFD0
EFDF: F0 EC BEQ $EFCD
Previous Page / Next Page