chiark - git - mdw - ssr/blob - StraySrc/Libraries/Sapphire/csapph/s/cstart

   1 ;
   2 ; cstart.s
   3 ;
   4 ; Starts up a Sapphire application written in C
   5 ;
   6 ; © 1995 Straylight
   7 ;
   8
   9 ;----- Standard header ------------------------------------------------------
  10
  11                 GET     libs:header
  12 ;               GET     libs:swis
  13
  14                 GET     libs:stream
  15
  16 ;----- External dependencies ------------------------------------------------
  17
  18                 GET     sapphire:sapphire
  19
  20                 IMPORT  sapph_main
  21                 IMPORT  appname
  22
  23 ;----- Main code ------------------------------------------------------------
  24
  25                 AREA    |!!Start$$Code|,CODE,READONLY
  26                 ENTRY
  27
  28                 LDR     R0,=appname
  29                 MOV     R1,#512
  30                 MOV     R2,#0
  31                 BL      sapphire_init
  32                 BL      sapph_main
  33                 SWI     &11                     ;OS_Exit
  34
  35                 LTORG
  36
  37 ;----- That's all, folks ----------------------------------------------------
  38
  39                 END