home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / s / s001 / 1.ddi / TS / ASM / PUTF.ASM < prev    next >
Encoding:
Assembly Source File  |  1987-08-07  |  589 b   |  32 lines
  1. ;                 ************
  2. ;                 * PUTF.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. ;* PUTF( FLAGS )
  16. ;* Sets CPU flags register to FLAGS.
  17. ;***
  18. start_struct
  19. mbr p_bp    d_int    ?
  20. mbr p_ret    d_ret    ?
  21. mbr p_flags    d_int    ?
  22.  
  23. routine    putf
  24.     push    bp
  25.     mov    bp,sp        ;new frame pointer
  26.     push    [bp].p_flags    ;put flags on top of stack
  27.     popf            ;pop to flags register
  28.     pop    bp
  29. return    putf
  30. ;
  31. end_code                   
  32.