emailler/drivers/a2slotcombo.s
Oliver Schmidt c4f196c71b Check for W5100 first.
Check first for a W5100 as checking for the CS8900A / LAN91C96 on similiar ports accidentally screws up a potential W5100 shared access (https://github.com/a2retrosystems/mxp/wiki/W5100-Shared-Access).
2016-09-18 17:57:13 +02:00

60 lines
1.3 KiB
ArmAsm

.include "zeropage.inc"
.export a2_set_slot
.import _w5100_driver_io_base
.import _cs8900a_driver_io_base
.import _lan91c96_driver_io_base
.code
; set Apple 2 ethernet adaptor slot
; inputs:
; A: slot number (1-7)
; outputs:
; none
a2_set_slot:
asl
asl
asl
asl
sta tmp1
lda _w5100_driver_io_base
and #%10001111
ora tmp1
sta _w5100_driver_io_base
lda _cs8900a_driver_io_base
and #%10001111
ora tmp1
sta _cs8900a_driver_io_base
lda _lan91c96_driver_io_base
and #%10001111
ora tmp1
sta _lan91c96_driver_io_base
rts
; -- LICENSE FOR a2slotcombo.s --
; The contents of this file are subject to the Mozilla Public License
; Version 1.1 (the "License"); you may not use this file except in
; compliance with the License. You may obtain a copy of the License at
; http://www.mozilla.org/MPL/
;
; Software distributed under the License is distributed on an "AS IS"
; basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the
; License for the specific language governing rights and limitations
; under the License.
;
; The Original Code is ip65.
;
; The Initial Developer of the Original Code is Jonno Downes,
; jonno@jamtronix.com.
; Portions created by the Initial Developer are Copyright (C) 2009
; Jonno Downes. All Rights Reserved.
; -- LICENSE END --