3 / PART TWO OF DEC'S XYPLOT DEC-S8-LPLTA-A-LA JULY 1973 M.HURLEY
4 / INCLUDED IS THE LATEST UPDATE F4 4.AAAA FROM LIBRARY FORLIB.RL NOV 77
5 / COPIED J.J. ANDRES 1.NOV. 1980
6 / PLOTS,XYPLOT,FACTOR,WHERE,SYMBOL,SYMB(FOR NUMBER ONLY)
9 / PLOTTER ROUTINES FOR PDP 8
11 / VER 1.0 1.NOV. 1980 H.A.
12 / VER 2.0 12.NOV 1980 H.A.
13 / VER 2.1 20.NOV 1980 H.A. CORRECTS BUG IN SYMBOL CONCERNING #XFCTX,#XFCTY
14 / VER 3.0 27.NOV 1980 H.A. INSERTS SYMBOL (999.,999.,....)
15 / VER 3.1 27.NOV.1980 H.A. CORRECTS PEN UP/DOWN TIMING ERROR
16 / VER 3.2 18.JAN.1981 H.A. CORRECTS WHERE AND OVERLAY PROBLEMS
19 / 1. PLEXIT LOCKED OUT THE PLOTTER.
20 / 2. PLOTS DIDN'T DROVE PLOTTER TO THE ORIGIN
21 / * #XONCE IS REMOVED, SO #XNTST IS CALLED FROM PLOTS ALL TIMES
23 / 3. FACTOR DID NOT WORK CORRECT ALL TIMES.
24 / FACTOR(1),XYPLOT(1,1),FACTOR(2),XYPLOT(1,1) DID NOT WORK
25 / 4. TRUNCATION ERROR IN XYPLOT CAUSED ROUNDING PROBLEMS:
26 / XSTEPS=INT(INT(X/#XINCR)*FACTOR)
27 / * FACTOR NOW WORKS CORRECT IN ANY CASE
28 / * FACTOR NOW HAS AN OPTIONAL SECOND PARAMETER. IF BOTH PRESENT
29 / * THEY SPECIFY THE X-FACTOR AND THE Y-FACTOR.
30 / * A NEGATIVE FACTOR IS NO MORE VALID YET. (ERROR WALKBACK)
31 / * ZERO FACTOR DISABLES PLOTTING.
32 / * XYPLOT NOW COMPUTES XSTEPS=INT(X/#XINCR*FACTOR)
33 / * WHERE HAS GOT AN OPTIONAL FOURTH PARAMETER FOR THE Y-FACTOR.
34 / * IF X AND Y FACTOR DO NOT MATCH AND THERE ARE ONLY THREE PARAMETERS
35 / * AN ERROR WALKBACK IS TAKEN.
37 / 5. SYMBOL CALLS #XMBTB TO LOAD THE SYMBOL TABLE
39 / 6. CALLING SYMBOL/NUMBER WITH X/Y EQUAL TO 999. WILL REPLACE THE
40 / 999. WITH THE ACTUAL POSITION OF THE PEN. VERY USEFULL IF YOU
41 / ARE EDITING AN OUTPUT LINE USEING SOME CALLS TO SYMBOL & NUMBER.
42 / IF YOU CALL FACTOR PRIOR TO SYMBOL(999.,....) THEN THE POSITION
43 / OF THE PEN IS NEVER CHANGED PRIOR PLOTTING THE SYMBOL. BUT THE
44 / FACTOR IS USED WHEN PLOTTING THE SYMBOL.
46 / 7. EACH TIME XYPLOT WAS CALLED IT ISSUED A PEN UP/DOWN COMMAND.
47 / THIS CAUSED A STEP BY STEP MOVING OF THE PEN ALTHOUGH THE
48 / DIRECTION WAS NOT CHANGED. INTERFACE PROBLEM.
49 / NOW WE ISSUE THE PEN MOVE COMMAND ONLY WHEN WE WANT TO CHANGE
50 / THE DIRECTION OF THE PEN. THIS SPEEDS UP THE PLOTTER!
51 / * NOT VALID PEN VALUES (NOT -3 TO 3) CAUSE #ARGERR WITH X0 =1
52 / 27-NOV-80 H.A. A HARD DAY'S NIGHT.... AND MIDNIGHT TOO!
53 / 8. REMOVES BUG IN WHERE ROUTINE
54 / 9. TOO LARGE DELTA X (DELETA Y) CAUSE #ARGER WITH X0=2 (3)
58 / FPP CODE PART CONTAINING PLOTS,PLOT,PLEXIT,WHERE,FACTOR
59 / THIS PROGRAM MAY BE PLACED INTO AN OVERLAY.
60 / IT REFERENCES THE PROGRAM PDPPLT LOCATED IN FIELD 1.
64 / REFERENCES INTO FRTS (FIELD 0)
66 EXTERN #ARGER / WRONG NUMBER OF PARAMETERS
68 / REFERENCES INTO FIELD 1 (PDPPLT)
71 EXTERN #XOLDP / OLD PEN STATUS
72 EXTERN #XXOLD / OLD X PT WITH EFFECT OF FACTOR
73 EXTERN #XYOLD / OLD Y PT WITH EFFECT OF FACTOR
74 EXTERN #XPENC / OLD PEN STATUS (USED BY SYMBOL, NUMBER)
75 EXTERN #XINCR / #XINCREMENT SIZE OF EACH PLOTTER
76 EXTERN #XFCTX / X - FACTOR
77 EXTERN #XFCTY / Y - FACTOR
87 / HERES THE INITIALIZATION ROUTINE
88 / STANDARD CALLING SEQUENCE, SHARED BY ALL SUBROUTINES
90 XRPLOT, 0 / MULTI PURPOSE XRS
91 X0= 0 / AT #ARGER X0 HOLDS THE XYPLOT ERROR NUMBER
100 XR7, 0 / NUMBER OF PARAMETERS AT SUBROUTINE CALL
101 WBW, TEXT #XYPLOT# / WALK BACK WORD
108 YPT, F 0. / VALUE ACTUALLY PLOTTED WITH EFFECT OF FACTOR
109 XPT, F 0. / X VALUE ACTUALLY PLOTTED WITH EFFECT OF FACTOR
113 YDIFF, F 0. / PEN VALUE
117 ORG .+1 / TO MAKE A 3 WORD BASE ENTRY FOR PLTRTN
119 MAJOR, F 0. / HORIZONTAL AXIS MOVE
120 MINOR, F 0. / DIAGONAL AXIS MOVE
122 YACT, F 0. / HOLDS X,Y VALUES TYPED IN
130 PORS, F 0. / =1 IF ENTERED FROM SYMBOL ROUTINE
131 XCHRPT, F 0. / X,Y VALUES FROM PDP TABLES
133 NUMENT, F 0. / INDICATES ENTRY FROM NUMBER SUBROUTINE
136 DEGRAD, F 0.017453293 / RADIANS TO DEGREES
139 XREAL, F 0. / FOR ORIGIN AND WHERE RTN
141 CENTSY, F 0. / CENTERED SYMBOL INDICATOR
142 NUMSYM, F 0. / NO. OF CHARACTERS TO PLOT
144 P22, F 18. / 22 OCTAL=18 DECIMAL
145 TWO, 0;2;0 / CONSTANT
146 F4095, F 4095. / LARGEST NUMBER FITTING INTO 12 BITS PDP 8 WORD
148 / - - - - - - - - - - - - -
150 SYMSTR, JA . / SYMBOL ENTRY
151 JA SYMST / NEEDED TO PICK UP 2 WORD ADDRESSES
155 / SET UP THE BASE PAGE AND INDEX REGISTERS FOR THE PLOT ROUTINES
156 / PLOTS,XYPLOT,WHERE,FACTOR AND SYMBOL
159 PLTSTR, JA . / SAVE TWO WORDS FOR RETURN
161 FLDA 3*10 / SAVE CALLERS RETURN ARGUMENT LIST
163 FLDA% 0 / COMPUTE THE NUMBER OF PARAMETERS
167 LDX 1,1 / DIVIDE BY TWO
170 ATX X7 / AND BUMP INTO X7
171 FLDA 0 / POINTER TO THE PARAMETER LIST --> FAC
174 FSTA ARG1 / POINTER TO PARAMETER LIST --> ARG1
175 JA PLTSTR / 1 --> X1, INDEX TO PARAMETER LIST
177 WB0, TEXT 'XYPLOT' / INSERT THE CORRECT WALK BACK WORD
179 FLDA# WB0 / INSERT THE CORRECT WALK BACK WORD
180 FSTA WBW / IN FRONT OF THE BASE PAGE
181 JSA PLTSTR / SET UP THE BASE PAGE AND X REGISTERS
187 FSTA YDIFF / VALUE OF PEN
190 FDIV #XINCR / ALL INTERNAL CALCULATIONS DONE IN TERMS OF
191 / PLOTTING INTERVALS, HENCE INTEGERS SO
193 JSA MAKINT / INTERGERIZE IT
194 FSTA XACT / WITH FACTOR
195 FSTA XPT / WITH EFFECT OF FACTOR
199 JSA MAKINT / INTERGERIZE IT
201 FSTA YPT / WITH EFFECT OF FACTOR
202 FLDA% YDIFF / 2=DOWN, 3=UP, NEG=NEW ORG
208 ATX 0 / ABS VALUE PEN
209 XTA 0 / FOR THE FPP SIMULATOR
211 FSTA YDIFF / SAVE NEW STATUS OF PEN
212 FSUB P3 / PASS ONLY 0-3
213 JLE ALEGAL / GOOD BOY
214 LDX 1,0 / BAD PEN CMD CAUSES XYPLOT ERROR 1
215 TRAP4 #ARGERR / FUCK OFF
217 FLDA YDIFF / RESTORE THE NEW VALUE OF PEN
218 FSUB #XOLDP / COMPARE WITH THE OLD VALUE
219 JEQ NOCHNG / IF THEY MATCH THEN GOTO NOCHANGE
220 TRAP4 #XETUP / ELSE SET UP THE NEW PEN
222 FLDA YDIFF / SAVE THE NEW PEN STATUS FOR THE NEXT CALL
227 MAKINT, JA . / FOR ALL THOSE INTEGERIZATIONS REQUIRED
228 FADD PT5 / ROUND THE VALUE
229 ALN 0 / GET RID OF FRACTIONAL PART
230 FNORM / NORMALIZE IT FOR OTHER FPP OPE#XATIONS
232 \f/ HERES THE CALCULATING PART OF THE PLOT ROUTINES
234 PREREL, JA . / RTN USED AS SUBROUTINE
235 REALPT, FLDA XPT / AND JA'D TO
236 FSUB #XXOLD / COMPARE NEW X AND OLD
240 ABSDX, FSTA TERM1 / ABS DELTA X
242 FSUB F4095 / IF THE DELTA X DOESN NOT FIT INTO
243 JLE DXOK / A 12 BIT PDP 8 WORD THEN TAKE ERROR 2
244 LDX 2,0 / ELSE CONTINUE FI
245 TRAP4 #ARGER / HOME TO CCL
249 FSUB #XYOLD / SAME FOR Y PNTS
253 DELXY, FADDM TERM1 / DX-DY
255 FNEG / ABS DELTA Y --> FAC
256 FSUB F4095 / IF DELTA Y DOESN'T FIT INTO 12 BITS THEN
257 JLE DYOK / WE ERROR OFF ELSE CONTINUE FI
258 LDX 3,0 / THIS IS ERROR 3
262 FLDA TERM1 / DETERMINE OCTANT + MAJOR AXIS
265 FLDA YDIFF / Y AXIS IS MAJOR
270 XMAJ, FLDA XDIFF / X AXIS MAJOR
274 KNOWOC, LDX 2,1 / 2*OCTANT VALUE COLLECTED IN XR1
275 / USES A SPECIAL (NON SEQUENTIAL) ORDERING
284 ADDX 2,1 / KEEP IT IN XR1
286 FLDA MAJOR / GET MAJOR MOVE
287 JGT POSMAJ / NEED AS ABS. VALUE
288 JEQ NOTHIN / IF NO MAJOR MOVES, THEN NO MOVES
290 FSTA MAJOR / NO ABS. VALUE
293 ATX 1 / PASS THIS TO PDP CODE
295 / USE 2 WORD #XATIO IN PDP CODE TO DET SEQ OF MOVES
297 JGT POSMIN / ABS VALUE
300 POSMIN, FDIV MAJOR / FORM #XATIO OF MINOR TO MAJOR MOVES
302 ZROCAS, FSTA #XATIO / DOWN TO PDP CODE
304 SETX #XDPXR / GET 2*OCTATNT
309 JEQ REGPLT / 0 MEANS WAS FROM XYPLOT
310 JLT SYMSET / WAS A MOVE IN SYMBOL
311 FCLA / IS FIRST MOVE IN SYMBOL (0 ORG)
317 JLT ZEROLD / NEQ MEANS ZERO THE ORG
318 / SET X AND Y FOR NEXT MOVE TO START AT END OF THIS MOVE
324 SYMSET, FLDA XPT / CONT FROM CURRENT POINT
334 FLDA P1 / ENTERED WITH 36 BIT MODE TURNED ON
335 FSTA PORS / SET THE FROM SYMBOL FLAG
336 STARTD / USED BY SYMBOL FOR ORIGIN PLOT
337 FLDA SYMSTR / GET START OF ARG CHAIN
341 \f ENTRY WHERE / WITHOUT EFFECT OF FACTOR
342 WB1, TEXT 'WHERE ' / THE WALK BACK WORD
347 JXN WH0,7 / NO PARAMETERS AT ALL THEN
348 TRAP4 #ARGER / ABORT THE USER PROGRAM
349 / WARNING: WHERE RETURNS A WRONG RESULT IF YOU CALL FACTOR PRIOR
350 / TO THE WHERE ROUTINE WITHOUT PLOTTING WITH XYPLOT.
353 FSTA TERM1 / ADDRESS OF X (FIRST PARAMETER)
355 FSTA YDIFF / SAVE ADDRESS OF Y (SECOND PARAMETER)
359 FDIV #XFCTX / WHERE RETURNS X WITHOUT EFFECT OF FACTOR
361 JXN WH1,7+ / IF ONLY ONE PARAMETER, THEN ABORT USER
366 FDIV #XFCTY / RETURNED WITHOUT EFFECT OF FACTOR
367 FSTA% YDIFF / SEND BACK THE VALUES
368 JXN WH2,7+ / IF ONLY TWO PARAMETERS, THEN ABORT USER
373 FSTA ARG2 / ADR. OF X -FACTOR (THIRD PARAMETER)
375 FSTA ARG1 / ADR. OF Y -FACTOR (FOURTH PARAMETER) --> ARG1
377 FLDA #XFCTX / IF THE X AND Y FACTOR MATCH THEN
379 JNE WHXYF / WE NEED THREE PARAMETERS ONLY, ELSE WE GO WHXYF
382 JXN PLTRTN,X7+ / IF THERE ARE ONLY THREE PARAMETERS THEN RETURN
383 FSTA% ARG1 / ELSE INSERT FACTOR INTO FOURTH PARAMETER AND
385 WHXYF, / WE REQUIRE X AND Y FACTOR PARAMETERS
387 FSTA% ARG2 / INSERT THE X FACTOR INTO THE OUTPUT
389 TRAP4 #ARGER / SORRY, BUT THERE ARE NOT ENOUGH ARGUMENTS
394 ENTRY FACTOR / RESET FACTOR VALUE
400 JXN FA0,7 / IF THERE ARE NO PARAMETERS AT ALL THEN
401 TRAP4 #ARGER / ABORT USER PROGRAM
407 JGE FA1 / IF NEGATIVE FACTOR THEN
408 TRAP4 #ARGER / ABORT USER PROGRAM ELSE
410 FSTA #XFCTX / STORE X AND Y FACTOR
411 FSTA #XFCTY / ONE PARAMETER MEANS X&Y GET THE SAME FACTOR
415 STARTD / TWO PARAMETERS, GET THE Y FACTOR
420 JGE FA2 / IF NEGATIVE FACTOR THEN
421 TRAP4 #ARGER / ABORT USER PROGRAM
427 \f/ MUST DO A PLOTS AS FIRST ROUTINE IN ANY PLOTTING SEQUENCE
428 / USER SPECIFIES #XINCREMENT AND MACHINE TYPE (0=8/E, 1=12,8/I,8/L)
439 STARTF / THIS ROUTINE SETS UP A LOT OF CONSTANTS
444 FLDA P22 / SET MATCHTP TO 22 IF NON-8/E
446 ATX 0 / 0=8/E, 022=12,8/I,8/L
448 SETX #XCHCK / FOR INITIALISATION CHECK
453 FSTA #XFCTX / FACTOR=1 INITIALLY
456 FSTA #XOLDP / AND REALLY MOVE IT!
457 FSTA #XPENC / SO WILL DO FIRST PEN MOVEMENT
462 ENTRY PLEXIT / BE SHURE ALL DONE
474 EXTERN #XMBTB / HERE STARTS THE SYMBOL TABLE
476 / EXTERNAL REFERENCES INTO FIELD 1 (PDPPLT)
495 JSR #XMBTB / LOAD THE SYMBOL TABLE ( SYMBTB )
507 FSTA ARG1 / NUMBER CHARS.
510 FMUL DEGRAD / CONVERT TO RADIANS
511 FSTA XCHRPT / THEN DONT NEED SIND
513 FSTA COSANG / VALUE OF X
514 FSUB F999 / IF X NEQ 999 THEN
515 JNE SY0 / WE USE THE X VALUE SPECIFIED ELSE
516 FLDA #XXOLD / WE START WITH THE OLD VALUE
517 FMUL #XINCR / THIS WILL CAUSE SOME TRUNCATION ERROR
518 FDIV #XFCTX / IN XYPLOT ROUTINE BUT THE ERROR IS SMALL
519 FSTA COSANG / AND WE HOPE FAC > 0 BUT THIS MUST NOT BE SO!
523 FSUB F999 / IF Y NEQ 999 THEN
524 JNE SY1 / WE USE THE Y VALUE SPECIFIED ELSE
525 FLDA #XYOLD / WE START WITH THE OLD Y VALUE
526 FMUL #XINCR / THIS CAUSES SOME TRUNCATION ERRORS
532 FSTA #XPENC / SO ALWAYS DOES INITIAL PEN U/D
534 FLDA TERM1 / GET TEXT ADDRESS
535 FSTA #XTXAD / PUT IT DOWN IN PDP PART
536 \f FLDA% YDIFF / ASSUME ITS A REGULAR
537 JGE NOTNEG / NEGATIVE SIZE IS NOT NICE
539 NOTNEG, FDIV PF7 / ADJUST LATER IF A CENT
541 FLDA% ARG1 / SHOWNS NUM. CHARS + PEN STATUS
543 JGE REGSYM / GT OR =0 IS REG SYM
544 FLDA% TERM1 / CHECK FOR REG CHAR PASSED
545 FSUB F100 / AS AN INTEGER EQUIV.
546 JLT INTEQ / ITS A INTEGER EQUIV
547 FLDA% YDIFF / CENTERED SYMBOL
552 FLDA NUMSYM / -1=PEN UP, -2=PEN DOWN (CNTRD ONLY)
554 JGE UPPEN / MOVE WITH PEN UP
555 FSTA CENTSY / NEG MEANS DOWN FROM THE START
557 CPEN, FSTA YCHRPT / =-2 FOR DOWN (CENT. + INTEQ ONLY)
558 / -3 FOR UP FOR ALL SYMBOLS + INTEQ
559 JSA SYMSTR / PLOT ORIGIN
566 FSTA XREAL / KEEP TRACK OF PASSED VALUES
572 JSA PNDOWN / PUT PEN DOWN NOW (CENT ONLY)
577 FSTA SINANG / SAVE SIN+HGT, USE FOR ALL VALUES
582 FSTA COSANG / COS(ANGLE)+HGT (IN #XINCREMENTS NOW)
583 LDX 0,4 / ZERO STEP COUNT
585 JGT NUM2 / JUMP IF FROM NUMBER
588 FSTA CENTSY / PUT PEN DOWN AFTER INITIAL MOVE
589 JA CPEN / MOVE WITH PEN UP
596 FSTA XCHRPT / GET FIRST MOVE
598 FSUB PF7 / 7,0=PEN UP, 7,7=END
601 JEQ CALALL / CENTEREDS REQUIRE MODIFIED ORIGIN
607 JXN PENSET,5 / PUT PEN BACK DOWN IF NEG
609 INTEQ, FLDA NUMSYM / CHECK ON PEN
615 FLDA YCHRPT / CHECK FOR 7,7 END
617 JEQ NXTCHR / JUMP IF END OF CHARACTER
618 JA ONEXY / ON TO NEXT PAIR
620 LDX 1,5 / SET FOR PEN UP
622 LDX 0,0 / PASS A ZERO FOR UP
628 LDX 1,0 / PASS A ONE FOR DOWN
636 FSTA YCHRPT / Y MOVE AS STEPS (UNITERGERIZED)
639 FSTA TERM1 / =-SINA*Y
647 FSTA XACT / FOR AT END OF TEXT
648 FSTA XPT / X*COSA+OLDX-SINA*Y
649 / REQUIRES AN OLDX+OLDY TERM, BUT I DO THIS ALL REL TO A
650 / LOGICAL 0,0 FOR EACH CHAR, SO I #XLEFT THEM OUT.
660 FSTA YPT / NEWX*SINA*OLDY*COSA*Y
662 FSTA #XPENC / USE SAME ORIGIN THROUOUT THE LETTER
665 JSA PREREL / PEN MUST BE IN NEC POS BY NOW
667 \fLEFTJS, XTA 4 / NUM OF MOVES
669 ATX 0 / PASS NUMBER OF STEPS INTO LETTER
671 TRAP4 #XLEFT / RETURN WITH A X,Y PAIR
677 JNE NOTFST / CHANGE IF BEFORE FIRST MOVE OF CHARACTER
678 JSA PNDOWN / PUT PEN DOWN NOW
679 NOTFST, TRAP4 #XRGHT / SET NEXT XY PAIR
681 ADDX 1,4 / UPDATE COUNT
682 JA LEFTJS / 77 AT END OF CHAR USED TO DET END
686 JNE CENTEX / LEAVE PEN AT CENTER FOR CENTS ONLY
689 FSTA XCHRPT / MOVE PEN TO 7,0 FOR REG CHARS
691 FLDA XACT / UPDATE COLLECTIVE ENDING X VALUE
692 FMUL #XFCTX / WITH EFFECT OF FACTOR
693 FADDM XREAL / ALSO WITH EFFECT OF FACTOR
694 FLDA YACT / UPDATE COLLECTIVE ENDING Y VALUE
695 FMUL #XFCTY / WITH EFFECT OF FACTOR
697 CENTOO, LDX 0,4 / ZERO STEP NUM WITHIN CHAR
703 FADD NUMSYM / UPDATE COUNTER
705 FSTA NUMSYM / MORE, SAVE COUNT
707 JGT NUM3 / EXIT FOR NUM SUBR
709 JXN RTCHAR,3 / 1=CHAR IS #XRGHT SIX BITS
710 FSTLFT, LDX 1,3 / POINT TO #XRGHT 6 WHEN TIME FOR NEXT CHAR
712 JLT NUM5 / JUMP IF CENTERED SYM OR INTEQ
713 / CENTEREDS + INTEQ EQUIV PASSING 3 WORD VALUE IN NUM5
714 / REG SYM USES PDP ROUTINE TO GET ONE WORD OF LIST
717 JA LEFTJS / GO PLOT THE ACTUAL CHAR
718 RTCHAR, LDX 0,3 / POINT TO #XLEFT 6 BITS FOR NEXT TIME
724 FLDA XREAL / UPDATES ORG X VALUE
728 FLDA YREAL / UPDATES ORG Y VALUE
732 JA PLTRTN / NOW CAN CONTINUE PLOT FROM HERE
738 JSA PLTSTR / SPECIAL ENTRY FOR NUMBER SUBROUTINE
739 JSR #XMBTB / LOAD THE SYMBOL TABLE (SYMBTB)
745 NUM2, SETX NUMENT / FOR NUMBER SUBROUTINE ONLY
746 / HERE ONLY FOR FIRST NUMBER OF STRING
748 NUM3, JSA GETARG / FOR SECOND AND LATER NUMBERS
751 NUM5, SETX NUMENT / FOR INTEQ + CENETEREDS
757 SETX NUMENT / USED FOR MORE THAN ONE CHARACTER
759 FLDA #XTXAD+1 / CENTEREDS SYMBOLS AND NUM SUBROUTINE
760 / PASS VALUES AS THREE WORDS
763 FLDA% ARG1,2+ / PASS A NUMBER