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