home *** CD-ROM | disk | FTP | other *** search
/ TCE Demo 2 / TCE_DEMO_CD2.iso / demo_cd_.2 / mags / stosser / stoser11.arj / stoser11.msa / CUSTOM3.FLD / ALERT.S < prev    next >
Text File  |  1987-04-22  |  512b  |  33 lines
  1. * alerts from STOS
  2. * areg(0)=alert$+chr$(0)
  3. * don't make any errors in the string or it'll crash!
  4.  
  5. * There is no error checking so beware!
  6.  
  7. *Auld Bastid 1993
  8.  
  9. alert:
  10.     move.l    #form_alert,aespb
  11.     move    #1,intin
  12.     move.l    a0,addrin
  13.     bsr    aes
  14.     rts
  15.  
  16. aes:    move.l    #aespb,d1
  17.     move.l    #$c8,d0
  18.     trap    #2
  19.     rts
  20.  
  21.     ds.l    128
  22. contrl    ds.w    12
  23. intin    ds.w    128
  24. intout    ds.w    128
  25. global    ds.w    16
  26.  
  27.  
  28. addrin    ds.w    128
  29. addrout    ds.w    128
  30. aespb    dc.l    contrl,global,intin,intout,addrin,addrout
  31.  
  32. form_alert    dc.w    52,1,1,1,0
  33.