home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / s / s001 / 1.ddi / TS / ASM / GETF.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-08-07  |  436 b   |  24 lines
  1. ;                 ************
  2. ;                 * GETF.asm *
  3. ;               *******************************************
  4. ;               * Copyright TimeSlice, Inc. 1985, 86, 87. *
  5. ;               *******************************************
  6. ;
  7. include ts.inc
  8. ;
  9. start_data
  10. end_data
  11. ;
  12. start_code
  13. ;
  14. ;**********
  15. ;* GETF()
  16. ;* Returns CPU flags registers.
  17. ;**********
  18. routine    getf
  19.     pushf            ;push flags on stack
  20.     pop    ax        ;pop flags in ax
  21. return  getf
  22. ;
  23. end_code
  24.