
;PAS_ASM--G13_17_3
;***********************************************************
;PORTOUT.ASM--Routine to send data byte to I/O Port
;	to be used with pascal programs
;**********************************************************

coder	segment	byte	public	;define segment

	assume	cs:coder

;----------------------------------------------------------
public	portout

portout	proc	far		;define procedure

	push	bp		;save old BP
	mov	bp,sp		;load current SP into BP

	mov	dx,[bp+8]	;put port address in DX
	mov	al,[bp+6]	;put data byte in AL
	out	dx,al		;output the byte

	pop 	bp		;restore old BP
	ret	4		;return to Pascal prog

portout	endp			;end procedure
;-----------------------------------------------------------
coder	ends			;end segment
;***********************************************************

	end			;end assembly

;			(3)
