home *** CD-ROM | disk | FTP | other *** search
/ Dave Lowe: Devpac ST / Lowe_DevpacST.img / DEMO.S < prev    next >
Encoding:
Text File  |  1988-04-21  |  530 b   |  29 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.  
  10. * firstly print the string
  11.  
  12.     move.l    #string,-(sp)
  13.     move.w    #c_conws,-(sp)
  14.     trap    #1
  15.     addq.l    #6,a7            restore stack
  16.  
  17. * now wait for a key
  18.     
  19.     mov.w    c_conin,-(sp)
  20.     trap    #1
  21.     addq.l    #2,a7
  22.  
  23. * and quit
  24.     clr.w    -(sp)
  25.     trap    #1            quick exit
  26.  
  27. string    dc.b    "A simple GEMDOS program",13,10
  28.     dc.b    "Press any key to Quit...",0
  29.