emailler/client/drivers/rr-net.s

35 lines
753 B
ArmAsm

; RR-Net driver
.export cs_init
.export cs_packet_page
.export cs_packet_data
.export cs_rxtx_data
.export cs_tx_cmd
.export cs_tx_len
.export cs_driver_name
rr_ctl = $de01 ;address of 'control' port on Retro-Replay
cs_packet_page = $de02 ;address of 'packet page' port on RR-Net
cs_packet_data = $de04;address of 'packet data' port on RR-Net
cs_rxtx_data = $de08 ;address of 'recieve/transmit data' port on RR-Net
cs_tx_cmd = $de0c;address of 'transmit command' port on RR-Net
cs_tx_len = $de0e;address of 'transmission length' port on RR-Net
.code
;initialise Retro Replay so we can access the network adapter
;inputs: none
;outputs: none
cs_init:
lda rr_ctl
ora #1
sta rr_ctl
rts
.rodata
cs_driver_name:
.asciiz "RR-NET"