home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 181.img / TASM-101.ZIP / TOGLFLAG.ASM < prev    next >
Assembly Source File  |  1988-10-31  |  485b  |  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.