LPT1D	EQU	3BCH
	.MODEL	SMALL
	.STACK	100H
	.CODE
;Hoofdprogramma
TERUG:	MOV	AL,0FFH
	CALL	LPTOUT	;Schakel alle uitgangen van LPT1 hoog.
	MOV	AH,4CH
	INT	21H	;Sluit het programma af en keer terug naar OS.

;Subroutine LPTOUT
;Schrijf de inhoud van register AL naar U7 t/m U0 van LPT1.
LPTOUT:	PUSH	DX
	MOV	DX,LPT1D
	OUT	DX,AL	;Schrijf naar I/O-adres LPT1D.
	POP	DX
	RET

	END