home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 8 / FreshFishVol8-CD1.bin / useful / dev / c / rkrm / workbench / startup2.0 / startup.asm < prev   
Assembly Source File  |  1992-09-03  |  28KB  |  831 lines
  1. *
  2. * Copyright (c) 1990 Commodore-Amiga, Inc.
  3. * 
  4. * This example is provided in electronic form by Commodore-Amiga, Inc. for 
  5. * use with the "Amiga ROM Kernel Reference Manual: Devices", 3rd Edition, 
  6. * published by Addison-Wesley (ISBN 0-201-56775-X).
  7. * 
  8. * The "Amiga ROM Kernel Reference Manual: Devices" contains additional 
  9. * information on the correct usage of the techniques and operating system 
  10. * functions presented in these examples.  The source and executable code 
  11. * of these examples may only be distributed in free electronic form, via 
  12. * bulletin board or as part of a fully non-commercial and freely 
  13. * redistributable diskette.  Both the source and executable code (including 
  14. * comments) must be included, without modification, in any copy.  This 
  15. * example may not be published in printed form or distributed with any
  16. * commercial product.  However, the programming techniques and support
  17. * routines set forth in these examples may be used in the development
  18. * of original executable software products for Commodore Amiga computers.
  19. * 
  20. * All other rights reserved.
  21. * 
  22. * This example is provided "as-is" and is subject to change; no
  23. * warranties are made.  All use is at your own risk. No liability or
  24. * responsibility is assumed.
  25. *
  26. **********************************************************************
  27. *
  28. *------ startup.asm  v 36.13
  29. *
  30. **********************************************************************
  31.  
  32.  
  33. *
  34. * Copyright (c) 1990 Commodore-Amiga, Inc.
  35. *
  36. *
  37. *------
  38. *------ Conditional assembly flags
  39. *------ ASTART:   1=Standard Globals Defined    0=Reentrant Only
  40. *------ WINDOW:   1=AppWindow for WB startup    0=No AppWindow code
  41. *------ XNIL:     1=Remove startup NIL: init    0=Default Nil: WB Output
  42. *------ NARGS:    1=Argv[0] only                0=Normal cmd line arg parse
  43. *------ DEBUG:    1=Set up old statics for Wack 0=No extra statics
  44. *------ QARG:     1=No argv                     0=Passes argc,argv
  45.  
  46. * Include the appropriate startup.i (example rstartup.i) here or in
  47. * your assem line
  48.  
  49.         INCLUDE "allstartup.i"
  50.  
  51. * Flags for  [A]start  AWstart  Rstart  RWstart  RXstart  QStart
  52. * ASTART         1        1       0        0        0       0
  53. * WINDOW         0        1       0        1        0       0
  54. * XNIL           0        0       0        0        1       1
  55. * NARGS          0        0       0        0        0       0
  56. * DEBUG          0        0       0        0        0       0
  57. * QARG           0        0       0        0        0       1
  58.  
  59. ;------   Flag WB output initialization
  60. NNIL      SET    (1-XNIL)
  61. WBOUT     SET   (ASTART!WINDOW!NNIL)
  62.  
  63. ************************************************************************
  64. *
  65. *   startup.asm --- Reentrant C Program Startup/Exit (CLI and WB)
  66. *                   v36.13  011/07/90
  67. *
  68. *   Copyright (c) 1988, 1990 Commodore-Amiga, Inc.
  69. *
  70. *   Title to this software and all copies thereof remain vested in the
  71. *   authors indicated in the above copyright notice.  The object version
  72. *   of this code may be used in software for Commodore Amiga computers.
  73. *   All other rights are reserved.
  74. *
  75. *   NO REPRESENTATIONS OR WARRANTIES ARE MADE WITH RESPECT TO THE
  76. *   ACCURACY, RELIABILITY, PERFORMANCE OR OPERATION OF THIS SOFTWARE,
  77. *   AND ALL SUCH USE IS AT YOUR OWN RISK.  NEITHER COMMODORE NOR THE
  78. *   AUTHORS ASSUME ANY RESPONSIBILITY OR LIABILITY WHATSOEVER WITH
  79. *   RESPECT TO YOUR USE OF THIS SOFTWARE.
  80. *
  81. *
  82. *   RSTARTUP.ASM
  83. *
  84. *  Changes for 2.0 - since commands may now receive a >256 character command
  85. *  line, the argv buffer size is now dynamic, based on DosCmdLen passed in.
  86. *  The argv count is also dynamic, based on number of spaces in the command
  87. *  line.
  88. *
  89. *      This startup dynamically allocates a structure which includes
  90. *   the argv buffers.  If you use this startup, your code must return
  91. *   to this startup when it exits.  Use exit(n) or final curly brace
  92. *   (rts) to return here.  Do not use AmigaDOS Exit( ) function.
  93. *   Due to this dynamic allocation and some code consolidation, this
  94. *   startup can make executables several hundred bytes smaller.
  95. *
  96. *       Because a static initialSP variable can not be used, this
  97. *   code depends on the fact that AmigaDOS places the address of
  98. *   the top of our stack in SP and proc->pr_ReturnAddr right before
  99. *   JSR'ing to us.  This code uses pr_ReturnAddr when restoring SP.
  100. *
  101. *       Most versions of startup will initialize a Workbench process's
  102. *   input and output streams (and stdio globals if present) to NIL:
  103. *   if no other form of Workbench output (like WINDOW) is provided.
  104. *   This should help prevent crashes if a user puts an icon on a CLI
  105. *   program, and will also protect against careless stdio debugging
  106. *   or error messages left in a Workbench program.  The code for
  107. *   initializing Workbench IO streams only be removed by assembling
  108. *   startup with ASTART and WINDOW set to 0, and XNIL set to 1.
  109. *
  110. *
  111. *   Some startups which can be conditionally assembled:
  112. *
  113. *      1. Standard Astartup for non-reentrant code
  114. *      2. Reentrant Rstartup (no unshareable globals)
  115. *      3. Smaller reentrant-only RXstartup (no NIL: WB init code)
  116. *      4. Standard AWstartup (WB output window) for non-reentrant code
  117. *      5. Reentrant RWstartup (WB output window, no unshareable globals)
  118. *      6. Smallest Qstartup  (No argv - argv is ptr to NULL string)
  119. *
  120. *
  121. *   Explanation of conditional assembly flags:
  122. *
  123. *      ASTART (ASTART SET 1) startups will set up and XDEF the
  124. *   global variables _stdin, _stdout, _stderr, _errno and  _WBenchMsg.
  125. *   These startups can be used as smaller replacements for startups
  126. *   like (A)startup.obj and TWstartup.obj.  Startups with ASTART
  127. *   would generally be used for non-reentrant programs, although the
  128. *   startup code itself is still reentrant if the globals are not
  129. *   referenced.
  130. *      Reentrant (ASTART SET 0) startups will NOT set up or
  131. *   XDEF the stdio and WBenchMsg globals.  This not only makes the
  132. *   startup slightly smaller, but also lets you know if your code
  133. *   is referencing these non-reentrant globals (you will get an
  134. *   unresolved external reference when you link).  Programs
  135. *   get their input and output handles from Input( ) and Output( ),
  136. *   and the WBenchMsg is passed in argv on Workbench startup.
  137. *
  138. *      WINDOW (WINDOW SET 1) startups use an XREF'd CON: string
  139. *   named AppWindow, defined in your application, to open a stdio
  140. *   console window when your application is started from Workbench.
  141. *   For non-reentrant programs, this window can be used for normal
  142. *   stdio (printf, getchar, etc).  For reentrant programs the window
  143. *   is Input( ) and Output( ).  WINDOW is useful when adding Workbench
  144. *   capability to a stdio application, and also for debugging other
  145. *   Workbench applications.  To insure that applications requiring
  146. *   a window startup are linked with a window startup, the label
  147. *   _NeedWStartup can be externed and referenced in the application
  148. *   so that a linker error will occur if linked with a standard
  149. *   startup.
  150. *
  151. *       example:   /* Optional safety reference to NeedWStartup */
  152. *                    extern UBYTE  NeedWStartup;
  153. *                    UBYTE  *HaveWStartup = &NeedWStartup;
  154. *                  /* Required window specification */
  155. *                    char AppWindow[] = "CON:30/30/200/150/MyProgram";
  156. *                    ( OR  char AppWindow[] = "\0";  for no window )
  157. *
  158. *
  159. *      XNIL (XNIL SET 1) allows the creation of a smaller startup
  160. *   by removing the code that initializes a Workbench process's
  161. *   output streams to NIL:.  This flag can only remove the code
  162. *   if it is not required for ASTART or WINDOW.
  163. *
  164. *      NARGS (NARGS SET 1) removes the code used to parse command line
  165. *   arguments.  The command name is still passed to _main as argv[0].
  166. *   This option can take about 120 bytes off the size of any program that
  167. *   does not use command line args.
  168. *
  169. *      DEBUG (DEBUG SET 1) will cause the old startup.asm statics
  170. *   initialSP, dosCmdLen and dosCmdBuf to be defined and initialized
  171. *   by the startup code, for use as debugging symbols when using Wack.
  172. *
  173. *      QARG (QARG SET TO 1) will bypass all argument parsing.  A CLI
  174. *   startup is passed argc == 1, and a Workbench startu