PVALP V02L00 73 8 1130 DPS (1130-CX-14X) V02M00 2-28-69 PVALP * // JOB PVAL0010 // ASM PVAL0040 *LIST PVAL0050 HDNG PVALP - ALPHA STRING CONTROL-VARIABLE PVAL0060 ENT PVALP PVAL0070 PVALP DC 0 PVAL0080 STX 1 SAVE&1 SAVE INDEX REGISTERS PVAL0090 STX 2 SAVE&3 PVAL0100 LDX I2 PVALP ADDRESS OF ARGUMENT LIST PVAL0110 LD L2 2 PEN CONTROL TABLE ADDRESS PVAL0120 STO *&1 PVAL0130 LDX L1 0 PEN CONTROL TO XR1 PVAL0140 LD I2 0 XSTART PVAL0150 STO L1 0 TO XTARGET PVAL0160 LD I2 1 YSTART PVAL0170 STO L1 -4 TO YTARGET PVAL0180 STX 1 AXT XTARGET ADDRESS FOR MOVE PVAL0190 STX 1 CLIST AND CHARACTER DRAW PVAL0200 MDX 1 -8 SET PVAL0210 STX 1 ASI PVAL0220 CALL UP RAISE PEN PVAL0230 ASI DC 0 PVAL0240 CALL DRAW MOVE TO START OF LABEL PVAL0250 AXT DC 0 PVAL0260 LD L2 3 X SCALE VALUE ADDRESS PVAL0270 STO CLIST&1 PVAL0280 STO D10 PVAL0290 LD L2 4 Y SCALE VALUE ADDRESS PVAL0300 STO CLIST&2 PVAL0310 STO D11 PVAL0320 LD L2 5 ADDRESS OF ROTATION PVAL0330 STO CLIST&3 PVAL0340 STO D06 PVAL0350 STO D07 PVAL0360 LD L2 6 ADDRESS OF CHARACTER PVAL0370 STO D15&1 PVAL0380 STX 1 D13&1 SAVE REGISTER PVAL0390 STX 2 D08&1 PVAL0400 D17 LDX L1 0 LOCATION OF CHARACTER PVAL0410 D04 LDX 2 2 PVAL0420 D15 LD L1 0 PVAL0430 SRT 8 SEPARATE FIRST CHARACTER PVAL0440 SLA 8 PVAL0450 SRA 8 PVAL0460 STO HOLD&1 PVAL0470 SLA 8 PVAL0480 SLT 8 PVAL0490 STO HOLD SECOND CHARACTER PVAL0500 LD HOLD&1 ACCESS PVAL0510 D02 S EOM END OF MESSAGE PVAL0520 BSC L SAVE,&- YES-BRANCH PVAL0530 LD HOLD&1 PVAL0540 S EOL END OF LINE PVAL0550 BSC L NLINE,&- PVAL0560 CALL VCGEN PVAL0570 CLIST BSS 4 PEN CTL,XSIZE,YSIZE,ROT PVAL0580 DC HOLD&1 CHARACTER PVAL0590 D05 MDX 2 -1 PVAL0600 MDX D01 PVAL0610 MDX 1 0 IS REGISTER NOW ZERO PVAL0620 MDX D16 PVAL0630 LDX 1 1 PVAL0640 MDX D04 PVAL0650 D16 MDX L D15&1,-2 PVAL0660 MDX D17 PVAL0670 D01 LD HOLD PVAL0680 STO HOLD&1 PVAL0690 MDX D02 PVAL0700 HOLD DEC 0 PVAL0710 SIZE DEC 10. PVAL0720 EOM DC /004C 12-8-4 PUNCH PVAL0730 EOL DC /0061 0-1 PUNCH PVAL0740 SAVE LDX L1 0 RESTORE INDEX REGISTERS PVAL0750 LDX L2 0 PVAL0760 MDX L PVALP,7 PVAL0770 BSC I PVALP EXIT PVAL0780 NLINE STX 1 D12&1 PVAL0790 D13 LDX L1 0 PVAL0800 STX 2 D09&1 PVAL0810 D08 LDX L2 0 PVAL0820 CALL FSIN SINE ROTATION PVAL0830 D07 DC 0 PVAL0840 LIBF FMPY PVAL0850 DC SIZE * BASIC CHARACTER GRID PVAL0860 LIBF FMPY PVAL0870 D10 DC 0 * SCALE FACTOR PVAL0880 LIBF IFIX PVAL0890 A I2 0 & XSTART PVAL0900 STO L1 8 PVAL0910 STO I2 0 # XTARGET PVAL0920 CALL FCOS PVAL0930 D06 DC 0 COSINE ROTATION PVAL0940 LIBF FMPY PVAL0950 DC SIZE * CHAR GRID SIZE PVAL0960 LIBF FMPY PVAL0970 D11 DC 0 * SCALE FACTOR PVAL0980 LIBF IFIX PVAL0990 S I2 1 - YSTART PVAL1000 STO L1 4 PVAL1010 SLA 16 PVAL1020 S L1 4 REVERSE SIGN PVAL1030 STO L1 4 # Y TARGET PVAL1040 STO I2 1 RESTORE Y COORDINATE PVAL1050 LD AXT PVAL1060 STO *&2 PVAL1070 CALL DRAW MOVE TO NEW LINE PVAL1080 DC 0 PVAL1090 STX 1 D13&1 RESTORE XR1 PVAL1100 D12 LDX L1 0 PVAL1110 STX 2 D08&1 RESTORE XR2 PVAL1120 D09 LDX L2 0 PVAL1130 MDX D05 PVAL1140 END PVAL1150 // DUP PVAL1160 *DELETE PVALP PVAL1164 *DUMP WS CD PVALP PVAL1165 *STORE WS UA PVALP PVAL1170