
                               					20-May-1983 10:30:39	VAX-11 FORTRAN V3.2-37              Page   1
								10-May-1983 09:27:58	CAD$VOLSET:[GARY.STATS.SOURCE]CONTROLT.FOR;9

0001    !
0002    !			  COPYRIGHT (c) 1982 BY
0003    !	      MOSTEK CORPORATION, CARROLLTON TX
0004    !
0005    ! This software is furnished under a license and may be used and  copied
0006    ! only  in  accordance  with  the  terms  of  such  license and with the
0007    ! inclusion of the above copyright notice.  This software or  any  other
0008    ! copies  thereof may not be provided or otherwise made available to any
0009    ! other person.  No title to and ownership of  the  software  is  hereby
0010    ! transferred.
0011    !
0012    ! The information in this software is subject to change  without  notice
0013    ! and  should  not  be  construed  as  a commitment by MOSTEK
0014    ! CORPORATION.
0015    !
0016    ! MOSTEK assumes no responsibility for the use or  reliability  of  its
0017    ! software on equipment which is not supplied by MOSTEK.
0018    !
0019     
0020    !++
0021    ! FACILITY:
0022    !   MOSTEK CORPORATION
0023    !
0024    ! ABSTRACT:
0025    !   This subroutine approximates the behavior of the break-key facility
0026    !   found on CP-6 systems
0027    !
0028    ! ENVIRONMENT:
0029    !   VAX-11 VMS
0030    !
0031    ! AUTHOR: Gary Smith, CREATION DATE: 6/24/82
0032    !
0033    ! MODIFIED BY:
0034    !
0035    !--
0036    !
0037    ! TABLE OF CONTENTS:
0038    !
0039    !
0040    ! INCLUDE FILES:
0041    !   none
0042    !
0043    ! MACROS:
0044    !   none
0045    !
0046    ! EQUATED SYMBOLS:
0047    !   none
0048    !
0049    ! EXTERNAL REFERENCES:
0050    !   SYS$ASSIGN, LIB$INIT_TIMER, SYS$QIO, LIB$SHOW_TIMER, LIB$SHOW_VM, TRNLOG
0051    !   CNCINIT, SETRAP
0052     
0053    !++
0054    ! FUNCTIONAL DESCRIPTION:
0055    !   CONTROLT is called with no arguemnts. It sets up the necessary information
0056    !   to create an AST to field the control c when it pressed form the key-
0057    !   board.

                               					20-May-1983 10:30:39	VAX-11 FORTRAN V3.2-37              Page   2
								10-May-1983 09:27:58	CAD$VOLSET:[GARY.STATS.SOURCE]CONTROLT.FOR;9

0058    !
0059    !
0060    ! FORMAL PARAMETERS:
0061    !   none
0062    !
0063    !
0064    ! IMPLICIT INPUTS:
0065    !   none
0066    !
0067    !
0068    ! IMPLICIT OUTPUTS:
0069    !   none
0070    !
0071    !
0072    ! ROUTINE VALUE and
0073    ! COMPLETION CODES:
0074    !   none
0075    !
0076    !
0077    ! SIDE EFFECTS:
0078    !   none to date
0079    !
0080    !
0081    !--
0082    	subroutine controlt
0083    	call cncinit
0084    	call setrap
0085    	return
0086    	end

CONTROLT                       					20-May-1983 10:30:39	VAX-11 FORTRAN V3.2-37              Page   3
								10-May-1983 09:27:58	CAD$VOLSET:[GARY.STATS.SOURCE]CONTROLT.FOR;9

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                   17   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG

    Total Space Allocated                   17


ENTRY POINTS

    Address  Type  Name                      References

  0-00000000       CONTROLT                     82     


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                 References

        CNCINIT                                 83     
        SETRAP                                  84     

                               					20-May-1983 10:30:39	VAX-11 FORTRAN V3.2-37              Page   4
								10-May-1983 09:27:58	CAD$VOLSET:[GARY.STATS.SOURCE]CONTROLT.FOR;9

0001    !
0002    	subroutine cncinit
0003    	character*64 devnam
0004    	integer devlen,dvperm
0005    	integer*4 chan,func
0006    	external brkon
0007    	call trnlog('TT',devnam,devlen,dvperm)
0008    	call SYS$ASSIGN(devnam(1:devlen),%ref(chan),,)
0009    	call LIB$INIT_TIMER()
0010    	return
0011    !
0012    	entry setrap
0013    	data func /'00000123'X/
0014    	call SYS$QIO(,%val(chan),%val(func),,,,brkon,,,,,)
0015    	return
0016    	end




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                   71   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                   3   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                 204   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  278


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       CNCINIT                                         2     
  0-0000002B       SETRAP                                         12     


VARIABLES

    Address  Type  Name                            Attributes  References

  2-00000048  I*4  CHAN                                            5         8A       14     
  2-00000040  I*4  DEVLEN                                          4         7A        8     
  2-00000000  CHAR DEVNAM                                          3         7A        8A    
  2-00000044  I*4  DVPERM                                          4         7A    
  2-0000004C  I*4  FUNC                                            5        13D       14     


CNCINIT                        					20-May-1983 10:30:39	VAX-11 FORTRAN V3.2-37              Page   5
								10-May-1983 09:27:58	CAD$VOLSET:[GARY.STATS.SOURCE]CONTROLT.FOR;9

FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                                   References

        BRKON                                                      6        14A    
        LIB$INIT_TIMER                                             9     
        SYS$ASSIGN                                                 8     
        SYS$QIO                                                   14     
        TRNLOG                                                     7     


                               					20-May-1983 10:30:39	VAX-11 FORTRAN V3.2-37              Page   6
								10-May-1983 09:27:58	CAD$VOLSET:[GARY.STATS.SOURCE]CONTROLT.FOR;9

0001    !
0002    	subroutine brkon
0003    	call setrap
0004    	call LIB$SHOW_TIMER()
0005    	call LIB$SHOW_VM()
0006    	return
0007    	end




PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                   31   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  2 $LOCAL                                   8   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                   39


ENTRY POINTS

    Address  Type  Name                                        References

  0-00000000       BRKON                                           2     


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name                                                   References

        LIB$SHOW_TIMER                                             4     
        LIB$SHOW_VM                                                5     
        SETRAP                                                     3     


  +----------------------------------------------+
  |           KEY TO REFERENCE FLAGS             |
  |   =   - Value Modified                       |
  |   #   - Defining Reference                   |
  |   A   - Actual Argument, possibly modified   |
  |   D   - Data Initialization                  |
  |  (n)  - Number of occurrences on line        |
  +----------------------------------------------+



COMMAND QUALIFIERS

  FORTRAN /DEBUG/OBJECT=OBJ:CONTROLT/LIST=LIS:CONTROLT/CONT=99/CROSS/NOOPT SRC:CONTROLT

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(SYMBOLS,TRACEBACK)
  /STANDARD=(NOSYNTAX,NOSOURCE_FORM)
  /SHOW=(NOPREPROCESSOR,NOINCLUDE,MAP)
  /F77  /NOG_FLOATING  /I4  /NOOPTIMIZE  /WARNINGS  /NOD_LINES  /CROSS_REFERENCE  /NOMACHINE_CODE  /CONTINUATIONS=99

BRKON                          					20-May-1983 10:30:39	VAX-11 FORTRAN V3.2-37              Page   7
								10-May-1983 09:27:58	CAD$VOLSET:[GARY.STATS.SOURCE]CONTROLT.FOR;9

COMPILATION STATISTICS

  Run Time:           1.18 seconds
  Elapsed Time:       3.72 seconds
  Page Faults:        402
  Dynamic Memory:     806 pages
