****************************************************
*                                                  *
*   Provisional Subroutine to switch cursor on/off *
*   last update:  27.10.86    18h40                *
*                                                  *
***************************************CP-10/86*****
       DC.L   0              for loader            *
       DC.L   0                                    *
       DC     $10            type: module          *
       DC.B   'CURSEA'       module name           *
****************************************************
*      hyperprocessor and trap definitions         *
OFF    OPD    $4E4F          switch dispatcher off *
****************************************************
>CAUS  V0                                          *
       MOVEA.L A0,A1                               *
       MOVEA.L $83E,A3                             *
       OFF                   to supervisor mode    *
       BCLR   =2,4(A3)                             *
       BTST   =6,2(A3)                             *
       BEQ.S  CA1                                  *
       JSR    $FA000C                              *
       BCLR   =6,2(A3)                             *
CA1    ANDI   =$DBFF,SR                            *
       MOVEA.L A1,A0                               *
       JMP    2(A0)          return to caller      *
****************************************************
>CEIN  V0                                          *
       MOVEA.L $83E,A3                             *
       BSET   =2,4(A3)                             *
       JMP    2(A0)          return to caller      *
****************************************************
       END    OF             JOY                   *
****************************************************