title PUTSTR subttl Module from library C_6 : PUTSTR maclib SYSEQU.LIB ; FILE: PUTSTR.MAC ; DATE: 820825:1701 ; FOR: Output msg from <HL> to STDOUT ; Put out message on STDOUT ; ENTRY : Reg HL points to message entry putstr ext putstf,stdout putstr: push af push bc ld a,(stdout) ; Get channel ld c,a call putstf ; .. give string pop bc pop af ret end