/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
$