home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / EXTRA-ST / CPM-80-E / CPM-0.2 / CPM-0 / cpm-0.2 / z80-sources / mylib / prmes.mac < prev    next >
Encoding:
Text File  |  1994-06-06  |  512 b   |  17 lines
  1. ;************************************************************************
  2. ;*        print string pointet to by HL                *
  3. ;*        until ASCII 00 occurs                    *
  4. ;************************************************************************
  5.  
  6.         .z80            ;
  7.         entry _prmes        ; print message
  8.  
  9. _prmes:        ld a,(hl)        ; Text ab hl bis 00 ausgeben
  10.         or a            ; Schlu~?
  11.         ret z            ;
  12.         call stdout##        ; gib Zeichen aus
  13.         inc hl            ;
  14.         jr _prmes        ; n{chstes Zeichen
  15.  
  16.         end            ;
  17.