home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / assubs / fcrt0.s < prev    next >
Encoding:
Text File  |  1980-02-17  |  307 b   |  26 lines
  1. / C runtime startup
  2. / with floating point interpreter
  3.  
  4. .globl    savr5
  5. .globl    fptrap,fpjsr
  6. .globl    _exit
  7.  
  8. .globl    _main
  9.  
  10. start:
  11.     sys    signal; 4; fptrap
  12.     jsr    pc,fpjsr
  13.     setd
  14.     mov    sp,r0
  15.     mov    (r0),-(sp)
  16.     tst    (r0)+
  17.     mov    r0,2(sp)
  18.     jsr    pc,_main
  19.     cmp    (sp)+,(sp)+
  20.     mov    r0,(sp)
  21.     jsr    pc,*$_exit
  22.     sys    exit
  23.  
  24. .bss
  25. savr5:    .=.+2
  26.