home *** CD-ROM | disk | FTP | other *** search
/ PDA Software Library / pdasoftwarelib.iso / PILOT / PC / PILAASSM / STARTUP.INC < prev   
Encoding:
Text File  |  1996-10-02  |  788 b   |  35 lines
  1. ; Startup.inc
  2. ; by Darrin Massena (darrin@massena.com)
  3. ; 17 Jul 96
  4.  
  5.         code
  6.  
  7. proc __Startup__()
  8. local pappi.l
  9. local prevGlobals.l
  10. local globalsPtr.l
  11. beginproc
  12.         systrap SysAppStartup(&pappi(a6), &prevGlobals(a6), &globalsPtr(a6))
  13.         tst.w   d0
  14.         beq.s   _SU1
  15.  
  16.         systrap SndPlaySystemSound(#sndError.b)
  17.         moveq   #-1,d0
  18.         bra.s   _SUExit
  19.  
  20. _SU1:
  21.         movea.l pappi(a6),a0
  22.         call    PilotMain(SysAppInfoType.cmd(a0).w, SysAppInfoType.cmdPBP(a0).l, SysAppInfoType.launchFlags(a0).w)
  23.  
  24.         systrap SysAppExit(pappi(a6).l, prevGlobals(a6).l, globalsPtr(a6).l)
  25.         moveq   #0,d0
  26.  
  27. _SUExit:
  28. endproc
  29.  
  30.         data
  31.  
  32.         ds.l    1                            ;loader stores SysAppInfoPtr here
  33.  
  34.         code
  35.