Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

	SUBTTL	Introduction

; Copyright (c) 1980 Stevens Institute of Technology, Hoboken, New Jersey
; 07030.

; This software may be used and copied provided that this copyright notice
;is included, and provided that copies of all modifications are sent to:
;
;	TECO Project
;	Computer Center
;	Stevens Institute of Technology
;	Castle Point Station
;	Hoboken, New Jersey    07030
;
;
; The information in this software is subject to change without notice
; and should not be construed as a commitment by Stevens Institute of
; Technology.

  ; Search needed universals

	SEARCH	TECUNV		; TECO universal file

  ; Generate the prologue


	TECVER==200		; Major version number
	TECMIN==1		; Minor version number
	TECEDT==1126		; Edit level
	TECWHO==0		; Last editor


	PROLOGUE(MSC,<TECO Misc terminal support>)	; Generate the TITLE and other stuff

	$CODE			; Put into code PSECT

	SUBTTL	Table of Contents

;+
;.pag.lit

;		Table of Contents for TECMSC - Misc terminal support
;
;
;			   Section			      Page
;   1. Introduction . . . . . . . . . . . . . . . . . . . . .    1
;   2. Table of Contents. . . . . . . . . . . . . . . . . . .    2
;   3. Revision History . . . . . . . . . . . . . . . . . . .    3
;   4. Low segment. . . . . . . . . . . . . . . . . . . . . .    7
;   5. End of TECMSC. . . . . . . . . . . . . . . . . . . . .    8

;.end lit.pag
;-

	SUBTTL	Revision History
COMMENT	|

1000	Start of this version

Start of Version 200A(1126)
|

; Macro to define a word of five characters
	DEFINE	TB(A<.CHNUL>,B<.CHNUL>,C<.CHNUL>,D<.CHNUL>,E<.CHNUL>)
<	BYTE	(7)A,B,C,D,E>


; Args to TS macro are:
;	STR  - $STRING type string to perform function
;	BASE - Base cost for multiple use
;	USE  - Per use cost for multiple use

	DEFINE	TS(STR,BASE<0>,USE<0>)<[$STRING(<STR'^N>)]>

; Here for vanilla flavor terminal

	ENTRY	VTTYTBL

CRTINI	VTTY
	CRTENT	CRB,<TB(.CHCNH)>
	CRTENT	DBS,<TB(" ",.CHCNH)>
	CRTENT	SPC,<TB(" ")>
	CRTENT	BCK,<TB(.CHCNH)>
CRTEND

	ENTRY	VCRTTBL

CRTINI	VCRT
	CRTENT	BCK,<TB(.CHCNH)>
	CRTENT	SPC,<TB(" ")>
	CRTENT	DBS,<TB(" ",.CHCNH)>
	CRTENT	CRB,<TB(.CHCNH)>
CRTEND

	SUBTTL	Low segment

	$IMPURE			; Put in correct place

MSCBEG:!
	LOWVER(MSC,<.-MSCBEG>)	; Define the version number

	SUBTTL	End of TECMSC

	END			; End of TECMSC