; TITLE ZMAS-1.Z80 - 01/01/88 - ZMD I/O Overlay for APPLE SS/CCS 7711 ; Copyrighted (c) 1987, 1988 ; Robert W. Kramer III PAGE ;- -; ; Update History ; ; ; ; Date Release Comments ; ; -------- ------- ---------------------------------------------- ; ; ; ; 01/01/88 v1.00 - SoftCard -Initial version ; ;- -; ; OFFSET EQU 2000H ; Offset for Softcard types SLOT EQU 2 ; For SSC/CCS SLOTVAL EQU (SLOT*16)+OFFSET ; Allows relocating modem slot MODDATP EQU 0C088H+SLOTVAL ; Data IN port STATUS EQU 0C089H+SLOTVAL ; Control/status port MODSNDB EQU 10H ; Bit to test for send MODSNDR EQU 10H ; Value when ready MODRCVB EQU 08H ; Bit to test for receive MODRCVR EQU 08H ; Value when ready MODDCDB EQU 40H ; Carrier detect bit (SSC DSR) MODDCDA EQU 00H ; Value when active ; ;-------------------------------------------------------------------------; ; Input/Output Jump Table | ;-------------------------------------------------------------------------; ; ORG 0580H ; Start after configuration table JP 0000H ; See CONOUT.INF JP INIT ; Initialization routine JP UNINIT ; Unititialize routine JP SNDCHR ; Send character JP CARCHK ; Test for carrier JP GETCHR ; Get character from modem JP RCVRDY ; Check receive ready JP SNDRDY ; Check send ready ; ;-------------------------------------------------------------------------; ; System startup inititialization routine | ;-------------------------------------------------------------------------; INIT: RET ; ;-------------------------------------------------------------------------; ; System exit unititialization routine | ;-------------------------------------------------------------------------; UNINIT: RET ; ;-------------------------------------------------------------------------; ; Send character out modem | ;-------------------------------------------------------------------------; SNDCHR: POP AF ; Get the character back LD IY,MODDATP LD (IY),A ; Send it to the modem output RET ; ;-------------------------------------------------------------------------; ; Check for carrier | ;-------------------------------------------------------------------------; CARCHK: LD IY,STATUS LD A,(IY) AND MODDCDB ; Get carrier detect bit CP MODDCDA ; Test bit RET ; ;-------------------------------------------------------------------------; ; Get character from modem | ;-------------------------------------------------------------------------; GETCHR: LD IY,MODDATP LD A,(IY) ; Get the character, if any RET ; ;-------------------------------------------------------------------------; ; Check modem receive ready | ;-------------------------------------------------------------------------; RCVRDY: LD IY,STATUS LD A,(IY) AND MODRCVB ; Isolate ready bit CP MODRCVR ; Test it RET ; ;-------------------------------------------------------------------------; ; Check modem send ready | ;-------------------------------------------------------------------------; SNDRDY: LD IY,STATUS LD A,(IY) AND MODSNDB ; Isolate ready bit CP MODSNDR ; Ready to send? RET END