home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / P_FOTRAN.LZH / 68881 / SETCS8.ASM < prev    next >
Assembly Source File  |  1987-12-31  |  813b  |  37 lines
  1.           title     setcs8
  2.  
  3.           module    setcs8
  4. ;
  5. ;         Copyright (C) 1988 Prospero Software
  6. ;
  7.           include   fpumac.lib
  8.  
  9.           section   .setcs8
  10. ;
  11.           xdef      setcr8         ; set control-register
  12.           xdef      setsr8         ; set status-register
  13.           xref      .hdnit         ; reset 68881
  14. ;
  15. setcr8:
  16.           move.l    #$000000f0,d0
  17.           move.w    #$9000,command
  18. s0
  19.           move.l    (sp),a0
  20.           move.l    4(sp),a1
  21.           and.l     (a1),d0
  22. s1        cmp.w     #$8900,response
  23.           beq.s     s1
  24.           sopr      d0
  25.           jsr       .hdnit
  26.           adda.w    #8,sp
  27.           jmp       (a0)
  28.  
  29. setsr8:
  30.           move.l    #$00000050,d0
  31.           move.w    #$8800,command
  32.           bra.s     s0
  33.  
  34.           END
  35.  
  36.  
  37.