home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / utility / disk / boots170 / example.s < prev   
Text File  |  1994-07-15  |  488b  |  18 lines
  1. print           EQU 9
  2. gemdos          EQU 1
  3.  
  4.                 TEXT
  5.                 pea     message(PC)
  6.                 move.w  #print,-(SP)
  7.                 trap    #gemdos
  8.                 addq.l  #6,SP
  9.                 rts
  10.  
  11. message:        DC.B 27,'p'
  12.                 DC.B '              ',$0D,$0A
  13.                 DC.B ' Hello world! ',$0D,$0A
  14.                 DC.B '              ',$0D,$0A
  15.                 DC.B 27,'q',$0D,$0A,$0A,0
  16.                 EVEN
  17.                 END
  18.