.MCALL	.MODULE
.MODULE	VTMAC,VERSION=02,COMMENT=<VT11 MACROS>

; Copyright (c) 1998 by Mentec, Inc., Nashua, NH.
; All rights reserved
;
; This software is furnished under a license for use only on a
; single computer system and  may  be  copied  only  with  the
; inclusion of the above copyright notice.  This software,  or
; any other copies thereof, may not be provided  or  otherwise
; made available to any other person except for  use  on  such
; system and to one who agrees to these license  terms.  Title
; to  and  ownership of the software shall at all times remain
; in Mentec, Inc.
;
; The information in this document is subject to change without
; notice and should not be construed as a commitment by Digital
; Equipment Corporation, or Mentec, Inc.
;
; Digital and Mentec  assume  no  responsibility for the use or
; reliability of its software on equipment which is not supplied
; by Digital  or Mentec,  and listed  in the  Software  Product
; Description.
; VTMAC IS A LIBRARY OF MACRO CALLS AND MNEMONIC DEFINITIONS WHICH
; PROVIDE SUPPORT OF THE VT11 DISPLAY PROCESSOR. THE MACROS PRODUCE
; CALLS TO THE VT11 DEVICE SUPPORT PACKAGE, USING GLOBAL REFERENCES. 

; MACRO TO GENERATE A MACRO WITH ZERO ARGUMENTS.

.MACRO MAC0 NAME,CALL
	.MACRO NAME
	.GLOBL	CALL
	JSR	PC,CALL
	.ENDM
.ENDM

; MACRO TO GENERATE A MACRO WITH ONE ARGUMENT

.MACRO MAC1 NAME,CALL
	.MACRO NAME ARG
	.IF NB,ARG
	MOV	ARG,%^O0
	.ENDC
	.GLOBL	CALL
	JSR	PC,CALL
	.ENDM
.ENDM

; MACRO TO GENERATE A MACRO WITH TWO OPTIONAL ARGUMENTS

.MACRO MAC2 NAME,CALL
	.MACRO NAME ARG1,ARG2
	.GLOBL	CALL
	.IF NB,ARG1
	MOV	ARG1,%^O0
	.ENDC
	.IF NB,ARG2
	MOV	ARG2,-(SP)
	.IFF
	CLR	-(SP)
	.NARG	T
	.IF EQ,T
	CLR	%^O0
	.ENDC
	.ENDC
	JSR	PC,CALL
	.ENDM
.ENDM

; MACRO LIBRARY FOR VT11:

MAC0	<.CLEAR>,<$VINIT>
MAC0	<.STOP>,<$VSTOP>
MAC0	<.START>,<$VSTRT>
MAC1	<.INSRT>,<$VNSRT>
MAC1	<.REMOV>,<$VRMOV>
MAC1	<.BLANK>,<$VBLNK>
MAC1	<.RESTR>,<$VRSTR>
MAC1	<.STAT>,<$VSTPM>
MAC1	<.LPEN>,<$VLPEN>
MAC1	<.SCROL>,<$VSCRL>
MAC2	<.TRACK>,<$VTRAK>
MAC0	<.LNKRT>,<$VRTLK>
MAC0	<.UNLNK>,<$VUNLK>
; MNEMONIC DEFINITIONS FOR THE VT11 DISPLAY PROCESSOR

DJMP=160000	;DISPLAY JUMP
DNOP=164000	;DISPLAY NOP
DJSR=173400	;DISPLAY SUBROUTINE CALL
DRET=173400	;DISPLAY SUBROUTINE RETURN
DNAME=173520	;SET NAME REGISTER
DSTAT=173420	;RETURN STATUS DATA
DHALT=173500	;STOP DISPLAY AND RETURN STATUS DATA

CHAR=100000	;CHARACTER MODE
SHORTV=104000	;SHORT VECTOR MODE
LONGV=110000	;LONG VECTOR MODE
POINT=114000	;POINT MODE
GRAPHX=120000	;GRAPH X MODE
GRAPHY=124000	;GRAPH Y MODE
RELATV=130000	;RELATIVE VECTOR MODE

INT0=2000	;INTENSITY 0
INT1=2200
INT2=2400
INT3=2600
INT4=3000
INT5=3200
INT6=3400
INT7=3600

LPOFF=100	;LIGHT PEN OFF
LPON=140	;LIGHT PEN ON
BLKOFF=20	;BLINK OFF
BLKON=30	;BLINK ON
LINE0=4		;SOLID LINE
LINE1=5		;LONG DASH
LINE2=6		;SHORT DASH
LINE3=7		;DOT DASH

STATSA=170000	;LOAD STATUS REG A
LPLITE=200	;INTENSIFY ON LPEN HIT
LPDARK=300	;DON'T INTENSIFY
ITAL0=40	;ITALICS OFF
ITAL1=60	;ITALICS ON
SYNC=4		;POWER LINE SYNC

STATSB=174000	;LOAD STATUS REG B
INCR=100	;GRAPH PLOT INCREMENT
INTX=40000	;INTENSIFY VECTOR OR POINT
MAXX=1777	;MAXIMUM X INCR. - LONGV
MAXY=1377	;MAXIMUM Y INCR. - LONGV
MINUSX=20000	;NEGATIVE X INCREMENT
MINUSY=20000	;NEGATIVE Y INCREMENT
MAXSX=17600	;MAXIMUM X INCR. - SHORTV
MAXSY=77	;MAXIMUM Y INCR. - SHORTV
MISVX=20000	;NEGATIVE X INCR. - SHORTV
MISVY=100	;NEGATIVE Y INCR. - SHORTV