;PRUEFPROGRAMME FUER BG "PIO-PORT-EPROMMER" des SEW
;==================================================
;(BASIS KC85/3)
;
;OUT-ADRESSEN
;	PIO-1AD		0B8H
;	PIO-1BD		0B9H
;	PIO-1AC		0BAH
;	PIO-1BC		0BBH
;	PIO-2AD		0BCH
;	PIO-2BD		0BDH
;	PIO-2AC		0BEH
;	PIO-2BC		0BFH
;
;
;
;PRUEFPROGRAMM FUER BIT 3, BIT 5 PIO1B, PIO2B
;--------------------------------------------
;
;
	DEFW 7F7FH
	DEFM 'B'
	DEFB 0
	LD A,0FFH
	OUT 0BBH
	OUT 0BFH
	LD A, 0
	OUT 0BBH
	OUT 0BFH
MA1:	LD A, 0
	OUT 0B9H	;BIT 3 RESET
	CALL TIME
	LD A, 0
	OUT 0BDH	;BIT 5 RESET
	CALL TIME
	LD A, 8
	OUT 0B9H	;BIT 3 GESETZT
	CALL TIME
	LD A, 20H
	OUT 0BDH	;BIT 5 GESETZT
	CALL TIME
	CALL PV1
	DEFB 2AH
	JRNC MA1
	RET

TIME:	LD B, 0FFH
TIME1:	NOP
	DJNZ TIME1
	RET

;PRUEFPROGRAMM 'Upp' FUER EPROMMER	
;----------------------------------
;
;	PIO-2B(D2=PIN29)	L	H	L	H
;	PIO-2B(D3=PIN30)	L	L	H	H
;	Upp			EIN	EIN	EIN	AUS
;	12,5V					X
;	21V				X
;	25V			X
;
;
	DEFW 7F7FH	
	DEFM 'Up'
	DEFB 0
	LD A, 0FFH	;EINZELBIT-MODUS
	OUT 0BFH
	LD A, 0		;ALLES OUTPORTS
	OUT 0BFH
MA1:	CALL AUS
	CALL TIME
	LD A, 8
	OUT 0BDH
	CALL TIME
	CALL AUS
	CALL TIME
	LD A, 5
	OUT 0BDH
	CALL TIME
	CALL AUS
	CALL TIME
	LD A, 0CH
	CALL TIME
	JR MA1

TIME:	LD B, 0FFH
TIME1:	NOP
	DJNZ TIME1
	RET

AUS:	LD A, 0FFH
	OUT 0BDH
	RET

;ENDE LISTNING