; PC geld automaat------24 juli 1999
; ****************
; PROBLEEM .. HET KOMT VOOR DAT TELLERS(timers) ELKAAR IN DE WEG
; ZITTEN EN DAAR DOOR DUS NIET WERKEN HET GEEN RESULTEERT IN HET NIET UIT GAAN VAN EEN PC
;ik heb het scannen van timers, knoppen en geld achter elkaar gezet
;om timers meer tijd te geven
;echter het probleem blijft in mindere mate
; SYMBOL DEFINITIONS
; ------------------
MON4	DEFOUT	#1	; ZET MONITOR AAN
MON3	DEFOUT	#2	; ZET MONITOR AAN
MON2	DEFOUT	#3	; ZET MONITOR AAN
MON1	DEFOUT	#4	; ZET MONITOR AAN
;RUIMTE VOOR LED

MO4	DEFOUT	#5	; ZET MONITOR AAN
MO3	DEFOUT	#6	; ZET MONITOR AAN
MO2	DEFOUT	#7	; ZET MONITOR AAN
MO1	DEFOUT	#8	; ZET MONITOR AAN

PC4	DEFIN	#9	; DETECTIE VAN PC4
PC3	DEFIN	#10	; DETECTIE VAN PC3
PC2	DEFIN	#11	; DETECTIE VAN PC2
PC1	DEFIN	#12	; DETECTIE VAN PC1

F500	DEFIN	#13	; DETECTIE VAN F5,00
F250	DEFIN	#14	; DETECTIE VAN F2,50
F100	DEFIN	#15	; DETECTIE VAN F1,00
F025	DEFIN	#16	; DETECTIE VAN F0,25

DA1	DEFDAC	#1	;8-BIT ANALOOG UITGANG VOOR GELD METER

CREDIT	DEFBYT		; TELLER VOOR INWORP
CRPC1	DEFBYT		; TELLER VOOR CREDITS PC 1
CRPC2	DEFBYT		; TELLER VOOR CREDITS PC 2
CRPC3	DEFBYT		; TELLER VOOR CREDITS PC 3
CRPC4	DEFBYT		; TELLER VOOR CREDITS PC 4

TIME1	DEFTMR		;TIMERS VOOR ELKE PC 1
TIME2	DEFTMR	
TIME3	DEFTMR	
TIME4	DEFTMR	

;HET SCANNEN VAN ALLE INGANGEN EN DE TIMERS EN DE KNOPPEN

	REDGE	F025,W	;registratie f0,25
	SKPS	TEL1

	REDGE	PC1,W	;registratie drukknop
	SKPS	COMP1

	MOV	TIME1,MO1	;zet led aan	
	FEDGE	TIME1,W		;kijk of timer 1 afvalt
	SKPS	TELAF1

	REDGE	F100,W
	SKPS	TEL4

	REDGE	PC2,W
	SKPS	COMP2

	MOV	TIME2,MO2
	FEDGE	TIME2,W
	SKPS	TELAF2

	REDGE	F250,W
	SKPS	TEL10

	REDGE	PC3,W
	SKPS	COMP3

	MOV	TIME3,MO3
	FEDGE	TIME3,W
	SKPS	TELAF3

	REDGE	F500,W
	SKPS	TEL20

	REDGE	PC4,W
	SKPS	COMP4

	MOV	TIME4,MO4
	FEDGE	TIME4,W
	SKPS	TELAF4

	MOVA	CREDIT,DA1
	END

;POEN TELLEN 
TEL1	MOVA	#3,WA		;tel 3 credits(cr) op in geheugen
	ADDW	CREDIT		;tel op bij cr
	MOVA	WA,CREDIT	;zet waarde in cr
	END

TEL4	MOVA	#15,WA
	ADDW	CREDIT
	MOVA	WA,CREDIT
	END

TEL10	MOVA	#40,WA
	ADDW	CREDIT
	MOVA	WA,CREDIT
	END

TEL20	MOVA	#90,WA
	ADDW	CREDIT
	MOVA	WA,CREDIT
	END

;WELKE PC?

COMP1	EQ	#0,CREDIT	;al is leeg ga end1
	SKPS	END1		
	MOVA	CRPC1,WA	;stop sc in wa
	ADDW	CREDIT		;tel cr er bij
	MOVA	WA,CRPC1	;stop wa in cr1
	CLRA	CREDIT		;maak cr leeg
	GOTO	TELAF1		;ga naar telaf1
END1	END

COMP2	EQ	#0,CREDIT
	SKPS	END2
	MOVA	CRPC2,WA
	ADDW	CREDIT
	MOVA	WA,CRPC2
	CLRA	CREDIT
	GOTO	TELAF2
END2	END


COMP3	EQ	#0,CREDIT
	SKPS	END3
	MOVA	CRPC3,WA
	ADDW	CREDIT
	MOVA	WA,CRPC3
	CLRA	CREDIT
	GOTO	TELAF3
END3	END


COMP4	EQ	#0,CREDIT
	SKPS	END4
	MOVA	CRPC4,WA
	ADDW	CREDIT
	MOVA	WA,CRPC4
	CLRA	CREDIT
	GOTO	TELAF4
END4	END


;TIMERS AAN

TELAF1	EQ	#0,CRPC1	;zijn er nog cr
	SKPS	PC1UIT		;zo niet pc1uit
	SET	MON1		;zet led aan
	SHRTMR	TIME1,#120	;timer 1 minuut
	DEC	CRPC1		;tel cr af
	END			;begin opnieuw

PC1UIT	CLR	MON1	;zet led uit
	END

TELAF2	EQ	#0,CRPC2
	SKPS	PC2UIT
	SET	MON2
	SHRTMR	TIME2,#120	;*****
	DEC	CRPC2
	END

PC2UIT	CLR	MON2
	END

TELAF3	EQ	#0,CRPC3
	SKPS	PC3UIT
	SET	MON3
	SHRTMR	TIME3,#120	;*******
	DEC	CRPC3
	END

PC3UIT	CLR	MON3
	END

TELAF4	EQ	#0,CRPC4
	SKPS	PC4UIT
	SET	MON4
	SHRTMR	TIME4,#120	;********
	DEC	CRPC4
	END

PC4UIT	CLR	MON4
	END

;kijk eens of timer hoog is
;kijk ef er cr zijn
;is cr >0 dan nix aan de hand
;cr=0 stop/start timer en zet mo uit
; dus kijk of het rechtvaardig is dat timer hoog is