home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / forst / header.s < prev    next >
Encoding:
Text File  |  1993-10-23  |  839 b   |  36 lines
  1. ; HEADER.S: TOS header for file
  2. ; Copyright <C> John Redmond 1989, 1990
  3. ; Public domain for non-commercial use.
  4. ;
  5.     section    text
  6.     even
  7. ;
  8. index:  dc.w    $601a           ;BRA.S flag
  9.     dc.l    0           ;code space
  10.     dc.l    0           ;data space
  11.     dc.l    wspace+hspace  ;bss space
  12.     dc.l    0,0,0
  13.     dc.w    $ffff           ;relocation flag
  14. ;
  15. ;********************************************************;
  16. ;                             ;
  17. ; Absolute entry and exit for ForST             ;
  18. ;                             ;
  19. ;********************************************************;
  20. ;
  21.     bra     setup
  22. cold:   bsr     init
  23.     lea     auto,a0
  24.     move.l  (a0),d0
  25.     beq     start       ;no autoexecute
  26.     jsr     0(a5,d0.l)
  27.     bra     endup
  28. ;
  29. start:  lea     signon,a0       ;Forth message
  30.     push    a0
  31.     bsr     _message
  32. ;
  33. warm:   bsr     outer       ;outer interpreter loop
  34. finish: bsr     endup
  35. ;
  36.