home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / EFFO / forum16.lzh / SOFTWARE / ASSEMBLER / FCCTL / fcctl.a next >
Text File  |  1991-01-09  |  393b  |  29 lines
  1.     nam     fcctl
  2.     ttl    Interface to F#CCtl
  3.     use    /dd/defs/oskdefs.d
  4.  
  5. Edition    equ    1
  6. Typ_lang equ    0
  7. Attr_Rev equ    (ReEnt<<8)+0
  8. Stacksiz equ    0
  9.  
  10.     psect    fcctl,Typ_lang,Attr_Rev,Edition,Stacksiz,0
  11.  
  12. * status = FCCtl (mode)
  13.  
  14. FCCtl:    
  15.     link    a5,#0
  16.     movem.l    d1,-(sp)
  17.     os9    F$CCtl
  18. testit  bcs.s    xerror
  19.       clr.l    d0
  20. final    movem.l    (sp)+,d1
  21.     unlk    a5
  22.     rts
  23.  
  24. xerror    move.l    d1,errno(a6)
  25.     move.l    #-1,d0
  26.     bra.s    final
  27.     
  28.     ends
  29.