[CURVE
[GENERATES CURVE IN
[QUARTERS 6 AND 7
[SAM 0 = VERTICAL DISPLAY GAIN
[SAM 3 = XAXIS
[SAM 5 = YAXIS
[DEL = RESTART
[OTHER KEYS = UPDATE CURVE
$20
#1E SAM 3
ROL 1
ADAi
3400
STC 2
SAM 5
ADAi
177
ROL 3
STAi
#1Y 0000
#1C SCR 0
ADD 1B+4
DIS 2
#1A SETi1
2777
LDAi1
#1B SCR 0
ADD 1B+4
DIS 1
LDAi
-300
DIS 1
KSTi
JMP 1D
XSK 1
JMP 1B-1
SAM 0
SCR 5
APO
JMP p+4
BSEi
240
JMP p+4
COM
BSEi
340
STA
1C
STC 1B
JMP 1E
[DEL
#1F SETi1
2777
CLR
STAi1
XSK 1
JMP p-2
JMP 1E
[KST
#1D SET 4
0
KBD
SHDi
1300
JMP 1F
LDA
1Y
STA 2
LDAi
-2
ADD 2
STC 3
LDA 3
COM
ADA 2
SCR 1
ADA 3
STAi3
LDAi
2
ADD 2
STC 3
LDA 3
COM
ADA 2
SCR 1
ADA 3
STAi2
JMP 4
[END CURVE
[LAST MOD 24 OCT 69