Compucolor.org – Virtual Media

Listing of file='PRINT.MAC;01' on disk='vmedia/forutil_1-sector.ccvf'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;	PRINT - SEND A STRING TO THE SCREEN
;
;	ON ENTRY:
;	   HL => STRING TERMINATED BY AN AT SIGN (@)
;
;	CAN BE CALLED FROM FORTRAN
;
	EXTRN	CO

	ENTRY PRINT

PRINT:	MOV	A,M
	CPI	'@'
	RZ
	CALL	CO
	INX	H
	JMP	PRINT

	END