home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / asmutl / asmlib1.lbr / GETYORN.AYM / GETYORN.AYM
Encoding:
Text File  |  1994-05-31  |  768 b   |  35 lines
  1. ;----------------------------------------------------------------
  2. ;              This is a module in ASMLIB
  3. ;
  4. ; This module allows the user to get a Y or a N from the
  5. ; console (only) and to return a ZERO flag if it was a Y.
  6. ; The character is returned in A.
  7. ;
  8. ;            Written        R.C.H.    11/02/84
  9. ;            Last Update R.C.H.    11/02/84
  10. ;----------------------------------------------------------------
  11. ;
  12. ;
  13.     name    'getyorn'
  14.     public    getyorn
  15.     extrn    cie,dispatch,caps
  16. ;
  17.     maclib    z80
  18. ;
  19. getyorn:
  20.     call    cie
  21.     call    caps
  22.     cpi    'Y'
  23.     jrz    gy1
  24.     cpi    'N'
  25.     jrnz    getyorn
  26. ;
  27. gy1:
  28.     call    dispatch
  29.     cpi    'Y'
  30.     ret            ; set ZERO flag if a Y
  31.     end
  32.  
  33.  
  34.  
  35.