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