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