home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / cpm / utils / a / arc20.arc / ARCMACS.ARC / FPUTC.MAC < prev    next >
Encoding:
Text File  |  1989-10-26  |  425 b   |  25 lines
  1. ; FPUTC f}r Turbo-ARC, TR 251089
  2.     .z80
  3.     extrn    f,c
  4.  
  5.     ld    de,(f)        ; Zeiger auf F
  6.     ld    hl,104h
  7.     add    hl,de        ; ^ACTPOS
  8.     push    hl
  9.     ld    l,(hl)
  10.     ld    h,0        ; HL = ACTPOS.B0
  11.     add    hl,de        ; Zeiger auf aktuelle Pufferadresse
  12.     ld    a,(c)
  13.     ld    (hl),a        ; Zeichen speichern
  14.     pop    hl        ; ^ACTPOS
  15.     inc    (hl)
  16.     ret    nz        ; INC, <>0 : ok, Ende
  17.     inc    hl
  18.     inc    (hl)
  19.     jr    nz,incok
  20.     inc    hl
  21.     inc    (hl)
  22. incok    equ    $        ; anschlie~en BLOCKWRITE
  23.  
  24.     end
  25.