home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol202 / z3mac.lbr / Z3MSG9.MAC < prev    next >
Encoding:
Text File  |  1985-02-10  |  896 b   |  50 lines
  1. ;
  2. ; Z3LIB Module Name:  Z3MSG9
  3. ; Author:  Richard Conn
  4. ; Z3LIB  Version Number:  1.0
  5. ; Module Version Number:  1.0
  6. ; Module Entry Points:
  7. ;    STOPZEX    STRTZEX    PUTZEX
  8. ; Module External References:
  9. ;    GETMSG
  10. ;
  11.     ext    getmsg
  12.  
  13. ;
  14. ;    STOPZEX suspends ZEX processing.  No registers are affected.
  15. ;
  16. stopzex::
  17.     push    psw
  18.     mvi    a,2    ;suspend ZEX
  19.     call    putzex
  20.     pop    psw
  21.     ret
  22.  
  23. ;
  24. ;    STRTZEX resumes ZEX processing.  No registers are affected.
  25. ;
  26. strtzex::
  27.     push    psw
  28.     xra    a    ;A=0 means to resume ZEX processing
  29.     call    putzex
  30.     pop    psw
  31.     ret
  32.  
  33. ;
  34. ;    PUTZEX sets the ZEX message byte in A.  No registers are affected.
  35. ;
  36. putzex::
  37.     push    h    ;save HL
  38.     push    d    ;save DE
  39.     push    psw    ;save PSW
  40.     call    getmsg    ;get ptr to messages
  41.     lxi    d,7    ;offset to message byte
  42.     dad    d
  43.     pop    psw    ;get PSW
  44.     mov    m,a    ;store message
  45.     pop    d
  46.     pop    h
  47.     ret
  48.  
  49.     end
  50.