home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progasm / pcmac.arj / DEMOS / STDEMO.ASM < prev   
Encoding:
Assembly Source File  |  1991-05-22  |  231 b   |  22 lines
  1. var loop,st
  2. limit    equ    100
  3. macro("FILL")
  4. #stack st
  5. loop    := limit
  6. #while loop
  7. #push st,loop
  8. loop := loop -1
  9. #wend
  10.  
  11. endm
  12.  
  13. macro("DEFINE")
  14. #while tos(st) != limit
  15.     dw    pop(st)
  16. #wend
  17. #clostack    st
  18. endm
  19.  
  20.     FILL
  21.     DEFINE
  22.