home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / discs / shareware / share_46 / sasm / Demo / Data < prev    next >
Text File  |  1994-03-23  |  845b  |  35 lines
  1.  
  2.  
  3.         ;----- Create a data block using the AREA directive
  4.  
  5. # area  data    4
  6.  
  7.         TaskHandle  4          
  8.         IconHandle  4
  9.         BlockPtr    4
  10.  
  11. # ea
  12.  
  13.  
  14.         ;----- Structure for menu, uses predefined macros ------
  15. .main_menu
  16.         @ New_Menu   "SAsm Demo", 148   ;call macro to make a menu header
  17.         @ Menu_Item  "Click me", 0, 0   ;items on the menu
  18.         @ Menu_Item  "Me Too!", 2, 0
  19.         @ Menu_Item  "Quit", &80, 0
  20.  
  21.        
  22.  
  23.         ;----- Other asorted data items------
  24.  
  25. .task           db "TASK"
  26. .title          db Title$,0     :align
  27. .block          db *0100,0      ;area to pass data to Wimp Poll
  28. .stack          db *050,0       ;local stack
  29. .icon_data      dd -1,-8,0,56,96,02002
  30.                 db "!demoapp",0        :align
  31.  
  32.  
  33.         ;---- This is the last file so put the END directive here -----
  34. # end
  35.