Trailing-Edge
-
PDP-10 Archives
-
BB-K840A-BM_1981
-
sources/cespio.for
There is 1 other file named cespio.for in the archive. Click here to see a list.
C Copyright (C) 1980, by Digital Equipment Corporation, Maynard, Mass.
C cespio -- character editor i/o
C Copyright (C) 1980, by Digital Equipment Corporation, Maynard, Mass.
C operating system dependent switches
C Copyright (C) 1980, by Digital Equipment Corporation, Maynard, Mass.
C copyright notice
C
C
C C O P Y R I G H T
C
C
C Copyright (C) 1980 by
C Digital Equipment Corporation, Maynard, Mass.
C
C
C This software is furnished under a license and may be used and
C copied only in accordance with the terms of such license and
C with the inclusion of the above copyright notice. This
C software or any other copies thereof may not be provided or
C otherwise made available to any other person. No title to and
C ownership of the software is hereby transferred.
C
C The information in this software is subject to change without
C notice and should not be construed as a commitment by Digital
C Equipment Corporation.
C
C DIGITAL assumes no responsibility for the use or reliability
C of its software on equipment that is not supplied by DIGITAL.
C
C ** Symbolic definitions **
C data types
C define character byte
C max string storage
C max string index storage
C important string indices (see gs module)
C cdisp - function codes
C coord - axis codes
C cpystr - option codes
C da1 - function codes
C da2 - function codes
C dcs - function codes
C ffopen - modes
C frtyp - record types
C (careful - used in computed goto's)
C ftran - function codes
C undo - function codes
C utty - function codes
C codes returned by keypad function
C character types
C composites
C CTKEY = CTALPHA + CTNUM + CTHYPH
C CTFILE = CTALPHA + CTNUM + CTDOT + CTSLASH + CTCOLON
C colors - temporarily all white
C screen dimensions (pixels)
C displays in area 3
C must match showtab in gm
C maximum mosaic dimensions
C dimensions of mosaic display window
C quan to subtract from char to get fmat/fmatc subscript
C lowest, highest, number of characters in VK100 font
C number of loadable fonts in VK100
C character definitions
C Copyright (C) 1980, by Digital Equipment Corporation, Maynard, Mass.
C character definitions
C Copyright (C) 1980, by Digital Equipment Corporation, Maynard, Mass.
C Copyright (C) 1980, by Digital Equipment Corporation, Maynard, Mass.
C copyright notice
C
C
C C O P Y R I G H T
C
C
C Copyright (C) 1980 by
C Digital Equipment Corporation, Maynard, Mass.
C
C
C This software is furnished under a license and may be used and
C copied only in accordance with the terms of such license and
C with the inclusion of the above copyright notice. This
C software or any other copies thereof may not be provided or
C otherwise made available to any other person. No title to and
C ownership of the software is hereby transferred.
C
C The information in this software is subject to change without
C notice and should not be construed as a commitment by Digital
C Equipment Corporation.
C
C DIGITAL assumes no responsibility for the use or reliability
C of its software on equipment that is not supplied by DIGITAL.
C
C ========== Ratfor character definitions ==========
C 9-FEB-79
C 12-MAY-80
C ampersand
C exclamation mark
C ASCIZ strings as used by SYSLIB
C max element count in packed char array
C input record size
C must be 2 more than MAXRECORD
C alternative to YES, NO
C a linefeed
C for OPENF calls
C "
C "
C "
C char i/o format: "r1" for TOPS-20; "a1" otherwise
C quoted string version of above
C first char for single space with LIST carriagecontrol:
C ' ' for RSTS, nothing for VMS
C ascii numeric value corresponding to LISTSS, above
C if "#", omit packed string code for this machine
C 5 for TOPS-20, 1 otherwise
C if "#", omit TOPS20 code
C define (PBUFLEN,30)
C # putc -- write a character to the terminal
C
C subroutine putc (c)
C
C character c
C
C DEBUG include ced:logcom
C
C logical inesc, indcs, inquot
C
C if (c == NEWLINE)
C call pchar(CR)
C if (c == 27)
C call pchar(ESCAPE)
C else
C call pchar(c)
C
C DEBUG LOGIF
C DEBUG {
C DEBUG if (c == NEWLINE)
C DEBUG write (LOGTTOUT, 100) CR
C
C DEBUG if ((c & \177) == 27)
C DEBUG write (LOGTTOUT, 200)
C DEBUG else
C DEBUG write (LOGTTOUT, 100) c
C
C DEBUG 100 format ('+', $, a1)
C DEBUG 200 format ('+<ESC>', $)
C DEBUG }
C end
C # pchar -- buffer a character for tt output
C
C subroutine pchar (c)
C
C character c
C
C include ced:pccom
C
C if (bufp > PBUFLEN)
C call pflush # flush buffer when full
C
C pbuf (bufp) = c
C bufp = bufp + 1
C
C return
C end
C # pflush -- flush the ttout buffer
C
C subroutine pflush
C
C include ced:pccom
C
C if (bufp > 1)
C call putln (pbuf, bufp-1)
C
C bufp = 1
C return
C end
C # utty -- set terminal modes?
C
C subroutine utty(arg)
C
C integer arg
C
C include ced:ttecho
C DEBUG include ced:logcom
C
C DEBUG LOGSTAR 'utty>', arg
C DEBUG LOGSTAR
C
C echosw = (arg != 4)
C
C call pflush
C
C call putln (0, 0) # force completion of qio
C
C end
C putarg - dump a string argument in several ways
C subroutine putarg (str)
C character str(ARB)
C include ced:logcom
C LOGIF
C {
C ln = min (length(str), 100)
C for (i=1; i<=ln; i=i+1)
C if (str(i) < 0 | str(i) > \777) break
C if (i <= ln)
C write (LOGTTOUT,110) (str(i), i=1, ln+1)
C else
C write (LOGTTOUT,100) (str(i), i=1, ln+1)
C 100 format (' ', 20 (x,o3))
C 110 format (' ', 8 o8)
C write (LOGTTOUT,200) (str(i), i=1, ln)
C write (LOGTTOUT,200)
C 200 format (' ', 80 CHARFORMAT)
C }
C end
C block data
block data
C include ced:logcom
C include ced:pccom
C include ced:ttecho
C data logsw /.true./
C data bufp /1/
C data echosw /.true./
end