0000	EQU	$0000
Z0003	EQU	$0003
Z0012	EQU	$0012
Z0080	EQU	$0080
Z0800	EQU	$0800
ADCMD	EQU	$C100
ZC700	EQU	$C700
MEMEND	EQU	$CC2B
ZCC34	EQU	$CC34
HOTDOS	EQU	$CD03
TABLE2	EQU	$ED80
TABLE3	EQU	$EE80
ZEF7F	EQU	$EF7F
ZEF80	EQU	$EF80
VLECT0	EQU	$EF88
VLECT1	EQU	$EF89
MEM1	EQU	$EF8C
MEM2	EQU	$EF8D
MEM3	EQU	$EF8E
TBLCRT	EQU	$EF90
TBLCR2	EQU	$EF91
TBLCR3	EQU	$EF96
SCROLL	EQU	$EFA4
MEM5	EQU	$EFA5
MEM6	EQU	$EFA6
MEM7	EQU	$EFA7
MEM8	EQU	$EFA8
MEM9	EQU	$EFA9
MEM10	EQU	$EFAA
LIGN	EQU	$EFAB
CARACT	EQU	$EFAC
SOUND	EQU	$EFAD
TSOUND	EQU	$EFAF
MEM11	EQU	$EFB1
DEMAND	EQU	$EF82
VSPOOL	EQU	$EFB4
NSECT1	EQU	$EFB6
NSECT2	EQU	$EFB7
MEM12	EQU	$EFB8
IRQUTI	EQU	$EFF2
IRQFLX	EQU	$EFF4
SWI3	EQU	$EFF6
SWI2	EQU	$EFF8
SWI	EQU	$EFFA
NMI	EQU	$EFFC
FIRQ	EQU	$EFFE
FLGCU0	EQU	$F000
FLGCU1	EQU	$F001
DVIDEO	EQU	$F200
*	CONTROLEUR DE DISQUETES
STRCR	EQU	$F600
TR	EQU	$F601
SCR	EQU	$F602
DR	EQU	$F603
*	HORLOGE TEMPS REEL
HORLO	EQU	$F640
HORMA	EQU	$F64E
INTERH	EQU	$F6EF
*	PIA-A DISQUE
PIA1DA	EQU	$F680
PIA1CA	EQU	$F681
*	PIA-B CLAVIER
PIA1DB	EQU	$F682
PIA1CB	EQU	$F683
*	TEMPORISATEUR 1,2 ET 3
TMRCR1	EQU	$F6C8
TMRCR2	EQU	$F6C9
TMRT1L	EQU	$F6CA
TMRT2L	EQU	$F6CC
TMRT3L	EQU	$F6CE
*	PIA-A MANETTES
PIA2DA	EQU	$F6D0
PIA2CA	EQU	$F6D1
*	DEBUT
	ORG	$F800
HOTMON	JMP	>HOTMO2
	JMP	>CLAV1
	JMP	>CLAV2
	JMP	>SORECR
	JMP	>TSTCLA
	JMP	>INIES
	JMP	>LECSEC
	JMP	>ECRSEC
	JMP	>VERSEC
	JMP	>PIST0
	JMP	SELECT
	JMP	>TETRDY
	JMP	>TETRDY
	JMP	LECINI
	JMP	>HOTINI
	JMP	>JMPIST
	JMP	>CTRIRQ
	JMP	>TMROFF
	JMP	>TMRON
	JMP	>TMRINI
	FDB	$EFF4
	FDB	$EFF6
	JMP	>IPIA2A
TABLE5	EQU	*+1
	JMP	>TSTMAN
	ORG	$F846
	FCB	$FB,$15,$FB,$15,$FB,$15,$FB,$15
	FCB	$FB,$15,$FB,$15,$FB,$16,$FB,$2D
	FCB	$FB,$3A,$FB,$4F,$FB,$59,$FB,$66
	FCB	$FB,$4A,$FB,$AB,$FB,$D2,$FB,$15
	FCB	$FB,$15,$FB,$06,$FB,$15,$FB,$0A
	FCB	$FC,$0F,$FC,$16,$FC,$1C,$FC,$20
	FCB	$FB,$15,$FB,$15,$FB,$15
*	INITIALISATION PIA 2 PORT A
IPIA2A	CLR	>PIA2DA
	CLR	>PIA2CA
	LDA	#$04
	STA	>PIA2CA
	RTS
*	TEST MANETTES
TSTMAN	LDX	>MEMEND
	LEAX	-$04,X
	LDA	,X
	CLR	,x+
	LDA	,x
	BNE	ZF8B3
	LDA	>PIA2CA
	ANDA	#$C0
	BNE	ZF8A7
ZF8A4	STA	,x
	RTS
ZF8A7	LSRA
	LSRA
	LSRA
	LSRA
	LSRA
	LSRA
	STA	,x
	LDA	>PIA2DA
	RTS
ZF8B3	CMPA	#$01
	BNE	ZF8C2
	LDA	>PIA2DA
	LSRA
	LSRA
	LSRA
	LSRA
	BSR	ZF8D0
	BRA	ZF8A4
ZF8C2	CMPA	#$02
	BNE	ZF8CD
	LDA	>PIA2DA
	BSR	ZF8D0
	BRA	ZF8A4
ZF8CD	CLRA
	BRA	ZF8A4
ZF8D0	LDB	#$04
ZF8D2	LSRA
	BCC	ZF8D8
	DECB
	BNE	ZF8D2
ZF8D8	TFR	B,A
	RTS
*	ISP POUR HORLOGE
SHORL1	CLR	>INTERH
	LDA	>INTERH
	LDA	>INTERH
	LDA	>INTERH
	RTS
*	INITIALISATION
START	LDS	#ZEF7F	POINTEUR DE PILE S
	JSR	>INITIRQ
*	INITIALISATION HORLOGE
	CLR	>HORLO
	BSR	SHORLO
	LDA	#$01
	STA	>HORMA
	CLR	>ZCC34
*	INITIALISATION TABLES CLAVIER
	ANDCC	#$EF
	LDX	#TABLE3
	CLRA
LOOP3	STA	A,X
	INCA
	BNE	LOOP3
	LDX	#TABLE2
	CLRA
ZLLOP4	STA	A,X
	INCA
	CMPA	#$80
	BNE	ZLLOP4
	LDX	#TBLCRT
	LDY	#TABLE1
LOOP1	LDA	,Y+
	STA	,X+
	CMPX	#MEM12
	BNE	LOOP1
	JSR	>IPIA2A
	JSR	>INIES
	LDA	#$0C
	JSR	>SORECR
*	ENTREE A CHAUD MONITEUR
HOTMO2	LDX	#TEXTE1
	JSR	>CLAV1
	PUSH	A
	LDA	#$20
	JSR	>SORECR
	PULS	A
	ANDA	#$5F
	TFR	A,B
	LDX	#ZF984
LOOP2	CMPB	,X+
	BEQ	ZF956
	LEAX	$02,X
	CMPX	#TABLE1
	BNE	LOOP2
ZF951	LDX	#ETOILE
	BRA	ZF930
ZF956	JSR	[,X]
	BRA	ZF951
	JMP	>HOTDOS
TEXTE1	FCB	$0D
	FCB	$0A
	FCC	"MONITEUR 80 COPYRIGHT MICROKIT"
	FCB	$0D
	FCB	$0A
ETOILE	FCB	$0D
	FCB	$0A
	FCC	"*"
	FCB	$04
ZF984	FCB	$44,$FE,$9D,$47,$FE,$C1,$4D,$FE
	FCB	$C8,$46,$F9,$5A
TABLE1	FCB	$7F,$50,$5F,$09,$1D,$0C,$18,$1A
	FCB	$48,$09,$60,$09,$00,$00,$00,$00
	FCB	$00,$00,$00,$00,$01,$00,$00,$00
	FCB	$00,$00,$00,$00,$00,$01,$5D,$01
	FCB	$E0,$00,$00,$00,$27,$10,$0A,$12
*	INITIALISATION DES E/S
INIES	LDA	#$A1
	STA	>TMRCR1
	LDA	#$81
	STA	>TMRCR2
	LDX	>SOUND
ZF9C6	EQU	*+1
	STX	>TMRT2L
	LDX	>TSOUND
	STX	>TMRT3L
	LDA	#$00
	STA	>TMRCR1
	LDB	#$00
	LDX	#TBLCRT
ZF9D8	STB	>FLGCU0
	LDA	,X+	
	STA	>FLGCU1
	INCB
	CMPB#$14
	BNE	ZF9D8
	LDA	#$1F
	STA	>FLGCU0
	LDA	>FLGCU1
	CLR	>PIA1CB
	CLR	>PIA1DB
	LDA	#$0C
	STA	>PIA1CB
	RTS
*	TEST CLAVIER
TSTCLA	PSHS	A
	LDA	>PIA1CB
	ANDA	#%10000000
	PULS	A
*	CLAVIER SANS ECHO
CLAV2	TST	>PIA1CB
	BPL	CLAV2
	LDA	>PIA1DB
	PUSHS	X
	LDX	#TABLE2
	ANDA	#%01111111
	LDA	A,X
	PULS	X
	RTS
*	CLAVIER AVEC ECHO
CLAV1	BSR	CLAV2
*	SORTIE SUR ECHAN
SORECR	PSHS	Y,X,B,A
	LDX	#TABLE3
	LDA	A,X
	CMPA	#$00
	BEQ	RET2
	CMPA	#$20
	LBCS	CMDCHR
	BSR	ZFA2F
RET2	PULS	Y,X,B,A
RET1	RTS
ZFA2F	LDB	>CARACT
