Google
 

Trailing-Edge - PDP-10 Archives - bb-d868a-bm - 3-sources/pltutl.mac
There are 38 other files named pltutl.mac in the archive. Click here to see a list.
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1973, 1978 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
	TITLE	PLTUTL

	;THIS PROGRAM IS GENERATED FROM AN EQUIVALENT FORTRAN PROGRAM
	;OF THE SAME NAME.

	SEARCH	PLTPRM
	TWOSEG
	RELOC	400000

	EXTERN X,Y,SIDE,TOP,.Q0,.Q1,.Q2,.Q3,.Q4,.Q5,PLTCHA,LPBUF,ERRFND,STEPS

	EXTERN 	PLOTI,LINE,NUMBER,SYMBOL,PLOTS,PLOT,FLOAT.

	ENTRY	PLTORI,PLTPOL,PLTINI,PLTLIN

	PLTORI:
	SAVALL
	ARGS	<SETTOP,SETSID,INCHES>
	MOVE	2,SETTOP
	MOVEM	2,TOP
	MOVE	2,SETSID
	MOVEM	2,SIDE
	MOVEI	16,%7M
	PUSHJ	17,PLOTS
	MOVN	2,ERRFND
	CAIN	2,1
	RETURN
%8M:
		MOVSI	2,201400
	FADR	2,INCHES
	MOVEM	2,.Q0
	MOVNS	3,.Q0
	MOVEI	16,%9M
	PUSHJ	17,PLOT
	MOVEI	16,%10M
	PUSHJ	17,PLOT
	RETURN

	
PLTINI:
	MOVE	1,-2(P)
	MOVEM	1,.Q0
	MOVE	1,-1(P)
	MOVEM	1,.Q1
	FUNCT2	PLOTI,<$2,.Q0,$2,.Q1>
	POPJ	P,0

	
PLTPOL:
	SAVALL
	ARGS	<XSON,YSON,NAMLEN,LNUM,LNAME,LNAME2>
	RNAME=LNAME
		MOVE	2,XSON
	MOVEM	2,X
	MOVN	3,TOP
	FSC	3,777777
	FADR	3,YSON
	MOVEM	3,Y
	MOVE	2,XSON
	MOVEM	2,X+1
	MOVE	3,TOP
	FSC	3,777777
	FADR	3,YSON
	MOVEM	3,Y+1
	MOVE	2,XSON
	FADR	2,SIDE
	MOVEM	2,X+2
	MOVE	2,TOP
	FSC	2,777777
	FADR	2,YSON
	MOVEM	2,Y+2
	MOVE	2,XSON
	FADR	2,SIDE
	MOVEM	2,X+3
	MOVN	2,TOP
	FSC	2,777777
	FADR	2,YSON
	MOVEM	2,Y+3
	MOVE	2,X
	MOVEM	2,X+4
	MOVE	2,Y
	MOVEM	2,Y+4
	MOVE	2,LNUM
	CAILE	2,303237
	JRST	0,%11P
	MOVE	3,[251004020100]
	MOVEM	3,PLTCHA
	MOVSI	2,203700
	FMPR	2,SIDE
	FSC	2,777774
	FADR	2,X
	MOVEM	2,.Q0
	MOVE	2,TOP
	FSC	2,777775
	FADR	2,Y
	MOVEM	2,.Q1
	MOVE	2,SIDE
	FSC	2,777775
	MOVEM	2,.Q2
	FUNCT2	FLOAT.,<LNUM>
	MOVEM	0,2
	MOVEM	2,.Q3
	MOVEI	16,%15M
	PUSHJ	17,NUMBER
	MOVSI	2,204700
	FMPR	2,SIDE
	FSC	2,777774
	FADR	2,X
	MOVEM	2,.Q0
	MOVE	2,TOP
	FSC	2,777775
	FADR	2,Y
	MOVEM	2,.Q1
	MOVE	2,SIDE
	FSC	2,777775
	MOVEM	2,.Q2
	MOVEM	LNAME,.Q3
	MOVEM	LNAME2,.Q4
	MOVEM	NAMLEN,.Q5
	MOVEI	16,%16M
	PUSHJ	17,SYMBOL
	JRST	0,%99P
%11P:
		MOVE	2,LNUM
	CAIE	2,303240
	JRST	0,%12P
	SKIPE	2,LPBUF
	JRST	0,%115P
	MOVN	2,SIDE
	FSC	2,777775
	FADR	2,XSON
	MOVEM	2,X
	MOVE	2,YSON
	MOVEM	2,Y
	MOVE	3,SIDE
	FSC	3,777777
	FADR	3,XSON
	MOVEM	3,X+1
	MOVE	3,TOP
	FSC	3,777775
	MOVE	2,TOP
	FSC	2,777777
	FADR	2,YSON
	FADR	2,3
	MOVEM	2,Y+1
	MOVE	3,SIDE
	FSC	3,777775
	MOVE	2,SIDE
	FADR	2,XSON
	FADR	2,3
	MOVEM	2,X+2
	MOVE	2,YSON
	MOVEM	2,Y+2
	MOVE	2,SIDE
	FSC	2,777777
	FADR	2,XSON
	MOVEM	2,X+3
	MOVN	3,TOP
	FSC	3,777775
	MOVN	2,TOP
	FSC	2,777777
	FADR	2,YSON
	FADR	2,3
	MOVEM	2,Y+3
	MOVE	2,X
	MOVEM	2,X+4
	MOVE	2,Y
	MOVEM	2,Y+4
%115P:
		MOVE	2,[221004020100]
	MOVEM	2,PLTCHA
	MOVSI	2,203700
	FMPR	2,SIDE
	FSC	2,777774
	FADR	2,XSON
	MOVEM	2,.Q0
	MOVN	2,TOP
	FSC	2,777776
	FADR	2,YSON
	MOVEM	2,.Q1
	MOVE	2,SIDE
	FDVRI	2,203600
	MOVEM	2,.Q2
	MOVEI	16,%17M
	PUSHJ	17,SYMBOL
	MOVSI	2,204700
	FMPR	2,SIDE
	FSC	2,777774
	FADR	2,XSON
	MOVEM	2,.Q0
	MOVE	2,SIDE
	FDVRI	2,203600
	MOVEM	2,.Q1
	MOVEM	YSON,.Q2
	MOVEM	RNAME,.Q3
	MOVEI	16,%18M
	PUSHJ	17,NUMBER
	JRST	0,%99P
%12P:
		MOVE	2,LNUM
	CAIE	2,303241
	JRST	0,%88P
	SKIPE	2,LPBUF
	JRST	0,%125P
	MOVE	2,XSON
	MOVEM	2,X
	MOVE	4,TOP
	FDVRI	4,203600
	MOVN	3,TOP
	FSC	3,777777
	FADR	3,YSON
	FADR	3,4
	MOVEM	3,Y
	MOVE	2,XSON
	MOVEM	2,X+1
	MOVN	4,TOP
	FDVRI	4,203600
	MOVE	3,TOP
	FSC	3,777777
	FADR	3,YSON
	FADR	3,4
	MOVEM	3,Y+1
	MOVE	2,XSON
	FADR	2,SIDE
	MOVEM	2,X+2
	MOVE	2,TOP
	FSC	2,777777
	FADR	2,YSON
	MOVEM	2,Y+2
	MOVE	2,XSON
	FADR	2,SIDE
	MOVEM	2,X+3
	MOVN	2,TOP
	FSC	2,777777
	FADR	2,YSON
	MOVEM	2,Y+3
	MOVE	2,X
	MOVEM	2,X+4
	MOVE	2,Y
	MOVEM	2,Y+4
%125P:
		MOVE	2,[401004020100]
	MOVEM	2,PLTCHA
	MOVSI	2,203700
	FMPR	2,SIDE
	FSC	2,777774
	FADR	2,XSON
	MOVEM	2,.Q0
	MOVN	2,TOP
	FDVRI	2,202600
	FADR	2,YSON
	MOVEM	2,.Q1
	MOVE	2,SIDE
	FDVRI	2,203600
	MOVEM	2,.Q2
	MOVEI	16,%19M
	PUSHJ	17,SYMBOL
	MOVSI	2,204700
	FMPR	2,SIDE
	FSC	2,777774
	FADR	2,XSON
	MOVEM	2,.Q0
	MOVN	2,TOP
	FSC	2,777776
	FADR	2,YSON
	MOVEM	2,.Q1
	MOVE	2,SIDE
	FDVRI	2,203600
	MOVEM	2,.Q2
	MOVEM	RNAME,.Q3
	MOVEI	16,%20M
	PUSHJ	17,NUMBER
	MOVSI	2,204700
	FMPR	2,SIDE
	FSC	2,777774
	FADR	2,XSON
	MOVEM	2,.Q0
	MOVE	2,SIDE
	FDVRI	2,203600
	MOVEM	2,.Q1
	MOVEM	YSON,.Q2
	MOVEM	LNAME2,.Q3
	MOVEI	16,%21M
	PUSHJ	17,SYMBOL
%99P:
		MOVEI	16,%22M
	PUSHJ	17,LINE
	RETURN

	
	PLTLIN:
	SAVALL
	ARGS	<XSELF,YSELF,XDAU,YDAU>
		MOVE	2,[365004020100]
	MOVEM	2,PLTCHA
	MOVE	2,XSELF
	MOVEM	2,X
	MOVE	2,YSELF
	MOVEM	2,Y
	MOVE	2,XDAU
	MOVEM	2,X+1
	MOVE	2,YDAU
	MOVEM	2,Y+1
	MOVEI	16,%25M
	PUSHJ	17,LINE
	RETURN
%88P:
		SETOB	2,ERRFND
%1M:
	RETURN

; *** CONSTANTS

DD:	ASCII "TREE "
TT:	ASCII "ARC  "

		777774,,0
%25M:	200,,X
	200,,Y
	100,,[000000000002]
	100,,[000000000001]
	777774,,0
%22M:	200,,X
	200,,Y
	100,,[000000000005]
	100,,[000000000001]
	777772,,0
%21M:	200,,.Q0
	200,,.Q2
	200,,.Q1
	100,,.Q3
	200,,[207550000000]
	100,,[000000000001]
	777772,,0
%20M:	200,,.Q0
	200,,.Q1
	200,,.Q2
	200,,.Q3
	200,,[207550000000]
	100,,[777777777777]
	777772,,0
%19M:	200,,.Q0
	200,,.Q1
	200,,.Q2
	200,,TT
	200,,[207550000000]
	100,,[000000000003]
	777772,,0
%18M:	200,,.Q0
	200,,.Q2
	200,,.Q1
	200,,.Q3
	200,,[207550000000]
	100,,[777777777777]
	777772,,0
%17M:	200,,.Q0
	200,,.Q1
	200,,.Q2
	200,,DD
	200,,[207550000000]
	100,,[000000000004]
	777772,,0
%16M:	200,,.Q0
	200,,.Q1
	200,,.Q2
	100,,.Q3
	200,,[207550000000]
	100,,.Q5
	777772,,0
%15M:	200,,.Q0
	200,,.Q1
	200,,.Q2
	200,,.Q3
	200,,[207550000000]
	100,,[777777777777]
	777775,,0
%10M:	100,,[000000000000]
	200,,[200400000000]
	100,,[777777777775]
	777775,,0
%9M:	100,,[000000000000]
	200,,.Q0
	100,,[777777777775]
	777776,,0
%7M:	100,,ERRFND
	200,,STEPS
	
	END