Trailing-Edge
-
PDP-10 Archives
-
AP-4172F-BM
-
3a-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
MOVN