Directory of image this file is from
This file as a plain text file
/DLINE/ MQL=7421 MQA=7501 ACL=7701 *0020 CTR, 0 FSLOPE, 0 FREM, 0 WPARMS, IXA, 0 IYA, 0 IXB, 0 IYB, 0 DFLG, 0 CHNGE1, 0 CHNGE2, 0 ABSDX, 0 ABSDY, 0 MASK, 0 DISP, 0 FABS, 0 STEPS, 0 TEMP, 0 GXBUF=1400 GXDF=10 PGDF=00 *0200 DLINE, 0 DCA 10 TAD (WPARMS-1) DCA 11 TAD (-5) DCA CTR TAD I 10 DCA I 11 ISZ CTR JMP .-3 TAD IXA CIA TAD IXB SMA JMP POSDX CIA DCA ABSDX TAD (NEGXCH) DCA CHNGE1 JMP GOTXCH POSDX, DCA ABSDX TAD (POSXCH) DCA CHNGE1 GOTXCH, TAD IYA CIA TAD IYB SMA JMP POSDY CIA DCA ABSDY TAD (NEGYCH) DCA CHNGE2 JMP GOTYCH POSDY, DCA ABSDY TAD (POSYCH) DCA CHNGE2 GOTYCH, TAD ABSDY CIA TAD ABSDX SPA CLA JMP BIGDY TAD ABSDX CLL RAL CIA DCA FABS TAD ABSDY CLL RAL DCA FSLOPE TAD ABSDX DCA FREM JMS LPLOT JMP DDONE BIGDY, TAD CHNGE1 MQL TAD CHNGE2 DCA CHNGE1 ACL DCA CHNGE2 TAD ABSDY CLL RAL CIA DCA FABS TAD ABSDX CLL RAL DCA FSLOPE TAD ABSDY DCA FREM JMS LPLOT DDONE, JMP I DLINE PAGE LPLOT, 0 JMS DCONVT TAD FREM CMA DCA STEPS LPL1, TAD (GXBUF) TAD DISP DCA TEMP TAD DFLG SPA CLA JMP UNDRAW TAD MASK MQL CDF GXDF TAD I TEMP MQA DCA I TEMP CDF PGDF JMP LATER UNDRAW, TAD MASK CMA CDF GXDF AND I TEMP DCA I TEMP CDF PGDF LATER, TAD FREM TAD FSLOPE DCA FREM TAD FREM TAD FABS SPA JMP LPNO2 DCA FREM JMS I CHNGE2 LPNO2, CLA CLL JMS I CHNGE1 ISZ STEPS JMP LPL1 JMP I LPLOT POSXCH, 0 TAD MASK CLL RAR DCA MASK SNL JMP I POSXCH CLA CLL CML RAR /4000/ DCA MASK ISZ DISP NOP JMP I POSXCH NEGXCH, 0 TAD MASK CLL RAL DCA MASK SNL JMP I NEGXCH CLA CLL IAC /0001/ DCA MASK CLA CLL CMA /-1/ TAD DISP DCA DISP JMP I NEGXCH POSYCH, 0 TAD DISP TAD (-20) DCA DISP JMP I POSYCH NEGYCH, 0 TAD DISP TAD (+20) DCA DISP JMP I NEGYCH DCONVT, 0 TAD IXA RAR CLL RAR DCA DISP TAD DISP CLL RTL TAD DISP CLL RTL TAD DISP CLL RAL TAD DISP RAR RTR RTR RTR AND (0077) DCA DISP TAD DISP CLL RAL TAD DISP CLL RAL CLL RAL CIA TAD IXA /REM IN AC/ CMA DCA MASK CLA CLL CML RAR ISZ MASK JMP .-2 DCA MASK TAD IYA CLL RTL CLL RTL CIA TAD (6160) TAD DISP DCA DISP JMP I DCONVT $