home *** CD-ROM | disk | FTP | other *** search
/ Aminet 10 / aminetcdnumber101996.iso / Aminet / dev / gui / gutil_dev_3657.lha / GadUtil / Examples / BetterTest-C / led.asm < prev    next >
Encoding:
Assembly Source File  |  1995-12-16  |  229 b   |  18 lines
  1.    xdef  _LightState
  2.    xdef  _ToggleLED
  3.  
  4.    section  code
  5. _LightState:
  6.    tst.w 6(sp)    ; Check state
  7.    beq.s setoff
  8.    bclr  #1,$bfe001
  9.    rts
  10. setoff:
  11.    bset  #1,$bfe001
  12.    rts
  13.  
  14. _ToggleLED:
  15.    bchg  #1,$bfe001
  16.    rts
  17.    end
  18.