;**************************************************************************
;
; Filename : IO.D
; ---------------
;
; (c) 1990 by Thomas Lehmann
;
;
; Jackophone V5.00
;
;
; I/O Adressen
;
;
;**************************************************************************


	; ==============
	; Eprom Adressen
	; ==============

PAGE1	.equ	$7000	; Eprom Page1
END_PAGE1	.equ	$8000	; Ende Page1
PAGE2	.equ	$f000	; Eprom Page2
INIT_VEKT	.equ	$fffa	; Reset Vektoren


	;=============
	; I/O Adressen
	;=============

Dp_rs	.equ	$1000	; RS-Flag Display
Display	.equ	$1600	; Display Adresse

Dip_sw	.equ	$1700	; DIP-Switch

Via	.equ	$2800	; Basisadresse VIA 6522
Via_portb	.equ	Via	; Via Port B
Wta_port	.equ	Via+1	; VIA Port A, Wähltastatur

Tin	.equ	$1100	; Tasten Y00-Y0F
Tout_1	.equ	Via+$0c	; Tasten X00-X01
Tout_2	.equ	$1000	; Tasten X02-X09
Tout_3	.equ	$1500	; Tasten X0A-X0F

Port_yl	.equ	$1200	; LED YL0-YL7
Port_xl1	.equ	$1300	; LED XL0-XL7
Port_xl2	.equ	$1400	; LED XL8-XL15

;Rl2	.equ	$1500	; RL2
;Rl3	.equ	$1500	; RL3



	;=====================
	; I/O BIT Definitionen
	;=====================


	; ----------
	; VIA Port B
	; ----------

FS	.equ %00000001	; Rel1, Freisprechen
SU	.equ %00000010	; Rel2, Summer
REL3	.equ %00000100	; Rel3, frei
NSI	.equ %00001000	; RL0,  nsi Relais
NSA	.equ %00010000	; RL1,  nsa Relais
GU	.equ %00100000	; SW0,  Gabelumschalter
UHR	.equ %01000000	; SW1,  Uhrimpuls 100Hz
ANR	.equ %10000000	; SW2,  Anruferkennung


	; ------------------------------------------
	; Kopie des DIP Switch in Zeropage: dip_stat
	; ------------------------------------------

DIP_ZRAM	.equ 0		; DIL 1= Zusatz RAM instaliert
DIP2	.equ 1		; Dil 2=
DIP3	.equ 2		; DIL 3=
DIP4	.equ 3		; DIL 4=
DIP_ANRANZ	.equ 4		; DIL 5= LED`s Anzahl Anrufe ein
DIP_SECLED	.equ 5		; Dil 6= Sekunden LED anzeigen
DIP_FS	.equ 6		; Dil 7= Freisprechen oder Lauthören
DIP_SS	.equ 7		; Dil 8= Schlüsselschalter