home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / zsys / simtel20 / z3lib / zlib2.lbr / Z3MSGA.Z80 < prev    next >
Encoding:
Text File  |  1986-02-07  |  512 b   |  26 lines
  1. ;
  2. ; Z3LIB Module Name:  Z3MSGA
  3. ; Author:  Richard Conn
  4. ; Z3LIB  Version Number:  1.3
  5. ; Module Version Number:  1.1
  6. ;
  7.     public    geterc
  8.  
  9.     ext    getmsg
  10.  
  11. ;
  12. ;    GETERC returns the address of the error command line in HL and
  13. ; A=0 and Zero Flag Set if no entry in command line.  HL and PSW affected.
  14. ;
  15. geterc:
  16.     push    de        ;save DE
  17.     call    getmsg        ;get ptr to messages
  18.     ld    de,10h        ;offset to buffer
  19.     add    hl,de
  20.     ld    a,(hl)        ;get first char
  21.     pop    de        ;get DE
  22.     or    a        ;set flag
  23.     ret
  24.  
  25.     end
  26.