home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1993 / USERJN93.MSA / DEVPAC2_DEMO.S < prev    next >
Text File  |  1993-04-20  |  571b  |  30 lines
  1. * a simple test program for DevpacST version 2
  2. * prints a simple message, waits for a key, then quits
  3. * two deliberate mistakes
  4.  
  5. c_conws    equ    9
  6. c_conin    equ    1
  7.  
  8.     opt    d+            long labels for debugging
  9.     opt    e-            disable odd address checking
  10.     
  11. * firstly print the string
  12.  
  13.     move.l    #string,-(sp)
  14.     move.w    #c_conws,-(sp)
  15.     trap    #1
  16.     addq.l    #6,a7            restore stack
  17.  
  18. * now wait for a key
  19.     
  20.     mov.w    c_conin,-(sp)
  21.     trap    #1
  22.     addq.l    #2,a7
  23.  
  24. * and quit
  25.     clr.w    -(sp)
  26.     trap    #1            quick exit
  27.  
  28. string    dc.b    "A simple GEMDOS program",13,10
  29.     dc.b    "Press any key to Quit...",0
  30.