home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / DEVPAC31.LZH / EXAMPLES / DEMO.S next >
Text File  |  1992-08-13  |  605b  |  31 lines
  1. * a simple test program for Devpac
  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    xdebug            long labels for debugging
  9.     opt    hcln            and compressed line info
  10.     opt    noeven            disable odd address checking
  11.     
  12. * firstly print the string
  13.  
  14.     move.l    #string,-(sp)
  15.     move.w    #c_conws,-(sp)
  16.     trap    #1
  17.     addq.l    #6,a7            restore stack
  18.  
  19. * now wait for a key
  20.     
  21.     mov.w    c_conin,-(sp)
  22.     trap    #1
  23.     addq.l    #2,a7
  24.  
  25. * and quit
  26.     clr.w    -(sp)
  27.     trap    #1            quick exit
  28.  
  29. string    dc.b    "A simple GEMDOS program",13,10
  30.     dc.b    "Press any key to Quit...",0
  31.