home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 6.ddi / TASMEXMP.ZIP / CASMLINK.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  611 b   |  24 lines
  1. ; Turbo Assembler    Copyright (c) 1988, 1991 By Borland International, Inc.
  2.  
  3. ; CASMLINK.ASM
  4.  
  5. ; From the Turbo Assembler Users Guide
  6.  
  7.         .MODEL  small
  8.         .DATA
  9.         EXTRN   _Flag:WORD
  10.         .CODE
  11.         PUBLIC  _ToggleFlag
  12. _ToggleFlag     PROC
  13.         cmp     [_Flag],0              ;is the flag reset?
  14.         jz      SetFlag                ;yes, set it
  15.         mov     [_Flag],0              ;no, reset it
  16.         jmp     short EndToggleFlag    ;done
  17. SetFlag:
  18.         mov     [_Flag],1              ;set flag
  19. EndToggleFlag:
  20.         ret
  21. _ToggleFlag     ENDP
  22.         END
  23.  
  24.