home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / zsys / simtel20 / z3lib / zlib1.lbr / Z3CLRCL.Z80 < prev    next >
Encoding:
Text File  |  1986-02-07  |  768 b   |  40 lines
  1. ;
  2. ; Z3LIB Module Name:  Z3CLRCL
  3. ; Author:  Richard Conn
  4. ; Z3LIB  Version Number:  1.3
  5. ; Module Version Number:  1.1
  6. ;
  7.     public    clrcl
  8.  
  9.     ext    envptr
  10.  
  11. ;
  12. ;    CLRCL clears the ZCPR3 command line, setting it to empty.
  13. ;    On exit, A=0 and Zero Flag Set if no CL
  14. ;
  15. clrcl:
  16.     push    hl        ;save regs
  17.     push    de
  18.     ld    hl,(envptr)    ;pt to environment
  19.     ld    de,18h        ;pt to entry
  20.     add    hl,de
  21.     ld    e,(hl)        ;get address in DE
  22.     inc    hl
  23.     ld    d,(hl)
  24.     ld    a,d        ;check for no buffer
  25.     or    e
  26.     jp    z,clrcl1
  27.     ld    a,(de)        ;get low address of next char
  28.     ld    l,a
  29.     inc    de
  30.     ld    a,(de)        ;get high address of next char
  31.     ld    h,a
  32.     ld    (hl),0        ;store 0 for no line
  33.     or    0ffh        ;set NZ for OK
  34. clrcl1:
  35.     pop    de        ;get regs
  36.     pop    hl
  37.     ret
  38.  
  39.     end
  40.