* ------------------------------------------------------------------ SUBROUTINE F77SST * ------------------------------------------------------------------ * * Name: F77SST - Fortran-77 SST handler * * Computer: LSI-11/23 & LSI-11/73 * Operating System: RSX-11M V4.2 BL38C * Language: FORTRAN-77 * Original Programmer: R. E. K. Neitzel * Process Control Applications * 312 Laveta Pass * Golden, CO 80401 * (303) 966-7203 * * Date Written: 4/8/87 * * * Revisions: Programmer Date Description * ---------- -------- --------------------- * * * Description: * This program contains entry points that allow the user to handle * ssts in his own fashion. Currently the task name is determined and a * message is printed both to TI: and CO:. * * Constants: * type name usage * ---- ---- ----- CHARACTER*43 MSG1 ! SST meassage CHARACTER*43 MSG2 ! " CHARACTER*43 MSG3 ! " CHARACTER*43 MSG4 ! " CHARACTER*43 MSG5 ! " CHARACTER*43 MSG6 ! " INCLUDE 'QIO.PAR' ! Contains qio functions definitions DATA MSG1 /'XXXXXX Exiting- Odd address trap occurred '/ DATA MSG2 /'XXXXXX Exiting- Memory protection violation '/ DATA MSG3 /'XXXXXX Exiting- T bit or BPT trap '/ DATA MSG4 /'XXXXXX Exiting- IOT trap '/ DATA MSG5 /'XXXXXX Exiting- Reserved instruction trap '/ DATA MSG6 /'XXXXXX Exiting- Non-RSX EMT trap '/ * * ---Local variables--- * type name usage * ---- ---- ----- INTEGER*2 PARMS(6) ! Qio parmeters INTEGER*2 TSKBUF(18) ! Task information buffer DATA PARMS(2) /43/ * * * ---Executable statements begin here--- * ENTRY ODD CALL GETTSK (TSKBUF) CALL R50ASC (3,TSKBUF(1),MSG1(1:1)) CALL R50ASC (3,TSKBUF(2),MSG1(4:4)) CALL GETADR(PARMS(1),MSG1(1:1)) GOTO 100 ENTRY MPROT CALL GETTSK (TSKBUF) CALL R50ASC (3,TSKBUF(1),MSG2(1:1)) CALL R50ASC (3,TSKBUF(2),MSG2(4:4)) CALL GETADR(PARMS(1),MSG2(1:1)) GOTO 100 ENTRY TBIT CALL GETTSK (TSKBUF) CALL R50ASC (3,TSKBUF(1),MSG3(1:1)) CALL R50ASC (3,TSKBUF(2),MSG3(4:4)) CALL GETADR(PARMS(1),MSG3(1:1)) GOTO 100 ENTRY IOT CALL GETTSK (TSKBUF) CALL R50ASC (3,TSKBUF(1),MSG4(1:1)) CALL R50ASC (3,TSKBUF(2),MSG4(4:4)) CALL GETADR(PARMS(1),MSG4(1:1)) GOTO 100 ENTRY RES CALL GETTSK (TSKBUF) CALL R50ASC (3,TSKBUF(1),MSG5(1:1)) CALL R50ASC (3,TSKBUF(2),MSG5(4:4)) CALL GETADR(PARMS(1),MSG5(1:1)) GOTO 100 ENTRY EMT CALL GETTSK (TSKBUF) CALL R50ASC (3,TSKBUF(1),MSG6(1:1)) CALL R50ASC (3,TSKBUF(2),MSG6(4:4)) CALL GETADR(PARMS(1),MSG6(1:1)) 100 CALL WTQIO(IOWBT,5,1,,,PARMS) CALL WTQIO(IOWBT,6,1,,,PARMS) CALL EXIT END