home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 5 / FreshFish_July-August1994.bin / bbs / dev / ace-2.0.lha / ACE-2.0 / prgs / MC / ledflash.b < prev   
Encoding:
Text File  |  1994-01-10  |  683 b   |  37 lines
  1. '...calling a machine code subroutine from ACE with AllocMem. 
  2.  
  3. library exec
  4. declare function AllocMem& library exec
  5. declare function FreeMem library exec
  6. declare function Delay library dos
  7.  
  8. const bytes=50&
  9. const flags=1&
  10.  
  11. power&=AllocMem&(bytes,flags)
  12.  
  13. '...store machine code
  14. for i&=0 to 39
  15.  read a%
  16.  poke power&+i&,a% 
  17. next
  18.  
  19. data &H2f,0,&H20,&H2f,0,8,&Hb0,&H3c,0,1,&H67,0,0,&He,0,&H39,0,2,0,&Hbf
  20. data &He0,1,&H60,0,0,&Ha,2,&H39,0,&Hfd,0,&Hbf,&He0,1,&H20,&H1f,&H4e,&H75,0,0
  21.  
  22. '...flash power LED 5 times
  23. for i=1 to 5
  24.   print "off"
  25.   mode&=0
  26.   call power&(mode&)
  27.   Delay(25&)
  28.   print "on"
  29.   mode&=1
  30.   call power&(mode&)
  31.   Delay(25&)
  32. next  
  33.  
  34. FreeMem(power&,bytes)
  35.  
  36. library close exec
  37.