home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / winlupe / source / start.s < prev    next >
Encoding:
Text File  |  1994-09-22  |  1.4 KB  |  75 lines
  1.  
  2.         .EXPORT _BasPag
  3.         .EXPORT _app
  4.         .EXPORT errno
  5.  
  6.         .IMPORT main
  7.         .IMPORT _StkSize
  8.  
  9.         .OFFSET 0
  10.  
  11. TpaStart:        .DS.L   1
  12. TpaEnd:            .DS.L   1
  13. TextSegStart:    .DS.L   1
  14. TextSegSize:    .DS.L   1
  15. DataSegStart:   .DS.L   1
  16. DataSegSize:    .DS.L   1
  17. BssSegStart:    .DS.L   1
  18. BssSegSize:     .DS.L   1
  19. DtaPtr:         .DS.L   1
  20. PntPrcPtr:      .DS.L   1
  21. Reserved0:      .DS.L   1
  22. EnvStrPtr:      .DS.L   1
  23. Reserved1:      .DS.B   7
  24. CurDrv:         .DS.B   1
  25. Reserved2:      .DS.L   18
  26. CmdLine:        .DS.B   128
  27. BasePageSize:   .DS     0
  28.  
  29.         .BSS
  30.  
  31. _BasPag:.DS.L   1
  32. _app:   .DS.W   1
  33.  
  34.         .DATA
  35.  
  36. errno:    .DC.W   0
  37.  
  38.         .CODE
  39.  
  40.         MOVEQ.L    #0,D0
  41.  
  42.         MOVE.L  A0,A3
  43.         MOVE.L  A3,D1
  44.         BNE.S   ACC
  45.  
  46.         MOVE.L  4(A7), A3    ; BasePagePointer from Stack
  47.         MOVEQ.L #1,D0        ; Program is Application
  48.  
  49. ACC:      MOVE.W    D0,_app
  50.         MOVE.L  A3,_BasPag
  51.  
  52.         MOVE.L  TextSegSize(A3),A0
  53.         ADD.L   DataSegSize(A3),A0
  54.         ADD.L   BssSegSize(A3),A0
  55.         ADD.W   #BasePageSize,A0
  56.  
  57.         MOVE.L  A3,D0
  58.         ADD.L   A0,D0
  59.         AND.B   #$FC,D0
  60.         MOVE.L  D0,A7
  61.  
  62.         PEA        (A0)
  63.         PEA        (A3)
  64.         CLR.W    -(A7)
  65.         MOVE.W  #74,-(A7)
  66.         TRAP    #1
  67.         LEA.L   12(A7),A7
  68.  
  69.         BSR     main
  70.  
  71.         CLR.W    -(A7)
  72.         TRAP    #1
  73.  
  74.         .END
  75.