home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0000 - 0009 / ibm0000-0009 / ibm0003.tar / ibm0003 / TDBPRO3.ZIP / CHAPXMPL.ZIP / TOGLFLAG.ASM < prev    next >
Encoding:
Assembly Source File  |  1988-08-29  |  485 b   |  18 lines
  1.         DOSSEG
  2.         .MODEL  SMALL
  3.         .DATA
  4.         EXTRN   _Flag:word
  5.         .CODE
  6.         PUBLIC  _ToggleFlag
  7. _ToggleFlag     PROC
  8.         cmp     [_Flag],0              ;is the flag reset?
  9.         jz      SetFlag                ;yes, set it
  10.         mov     [_Flag],0              ;no, reset it
  11.         jmp     short EndToggleFlag    ;done
  12. SetFlag:
  13.         mov     [_Flag],1              ;set flag
  14. EndToggleFlag:
  15.         ret
  16. _ToggleFlag     ENDP
  17.         END
  18.