;	*******
;	The following turns on apple switch assembler switch
apple	EQU	TRUE		; For APPLE ][ with D.C. Hayes Micromodem II.
				; (w/ suitable mods for SCC by RCL)

;	*******
;	The following changes reflect the details of the Apple Corp's
;	Super Serial Card.  If you have a SCC in another slot, then the
;	corresponding port and status addresses would be E088+s0H and
;	E089+s0H.  If anybody is interested, I can give suggestions
;	to add code to program SCC's baud rate from within KERMIT a la
;	the SuperBrain, or detect which slot has the SCC, or modify
;	VT52 emulation to work with a particular 80-column card (My
;	card is ALS's Smarterm)
MNPORT	EQU	0E098H		; Communications Port. (SCC in slot 1.)
MNPRTST EQU	0E099H		; Communications Port Status. (SCC ditto)
OUTPUT	EQU	10H		; Output Buffer Empty. (SCC uses bit 4)
INPUT	EQU	08H		; Input Register Full. (SCC uses bit 3)

;	*******
;	This block commented out
;	call ckdial		; See if dialing is required. (SCC can't)
;	 jmp kermit		;  Go to command loop if aborted.

;	*******
;	This block changed to make a unconditional jump to apintc
IF apple
intch0:	cpi 'D'			;Disconnect Modem?
	jmp apintc		; (SCC can't hangup a phone)
	mvi a,0			;Hangup the modem
	sta mnmodem
	ret
apintc:	cpi 'S'			; Is it status?
ENDIF

;	And that's all.  Changes like these for the SCC can most probably
;	work for any other RS-232 card for the Apple.
;	Oh, don't forget to have the SCC Modem/Terminal jumper block
;	point to 'modem' to talk to a PACX port or a modem.  You can
;	probably leave it pointing to 'terminal' if you wire up a cable
;	that crosses pin 2 and 3.