	.TITLE	DEMO
;TO RUN:  MAC DEMO+M/LIB	DEMONSTRATION PROGRAM FOR PLOT PROCEDURES
;	  LINK DEMO,L
;	  R DEMO
A0=R0
A1=R1
A2=R2
	.MCALL	.AA,.A,.AR,.AXESQ,.C,.CI,.D,.DI,.G,.L,.LBSQ,.OA,.PA,.PD
	.MCALL	.PU,.R,.SCALE,.SP,.SI,.V,.TSQ,.TF,.EXIT,.COS,.EXP,.NPN,.PNP

	
GO:	.PA	#19,#3		;PLOT IN cm
	.PD
	.A	#18,#3		;AMPLIFIER TRIANGLE
	.PU
	.PA	#17,#2.7
	.PD
	.PA	#16,#2.7
	.G			;GROUND
	.PU
	.PA	#17,#3.3
	.PD
	.D	#15,#3.3	;DIODE
	.V	#12,#3.3		;VOLTAGE SOURCE
	.G
	.PU
	.PA	#16.5,#3.3
	.PD
	.L	#16.5,#5	;INDUCTOR
	.C	#18.5,#5	;CAPACITOR
	.R	#18.5,#7	;RESISTOR
	.AR	#16.5,#7	;ARROW
	.PU
	.PA	#14,#6
	.NPN	#16.5,#5,#16.5,#7
	.PU
	.PA	#14,#6
	.PD
	.PNP	#12,#5,#12,#7
	.PU
	.PA	#14,#11
	.PD
	.AA	#14,#13,#-180	;ARC ABSOLUTE, -180 deg
	.PU
	.PA	#22,#6
	.PD
	.CI	#1.6		;CIRCLE OR RADIUS=1.6 cm
	.PU
	.PA	#8,#17
	.LBSQ	<SMALL LETTERS> ;LABEL QUICK
	.PA	#8,#15.6
	.SI	#0.7,#1		;LETTER SIZE, WIDTH, HEIGHT IN cm
	.DI	#-0.1745	;radians TILT LETTERS 10 deg COUNTERCLOCKWISE
	.LBSQ	<BIG LETTERS>

;USE SCALING, .PA, & .AXES
	.SCALE	#0,#-1,#40,#1	;XMIN,YMIN,XMAX,YMAX
	CLRF	A0		;ANGLE IN RADIANS
L:	.COS	A0,A1
	LDF	A0,A2
	MULF	#-0.1,A2
	.EXP	A2,A2
	MULF	A2,A1
	.PA	A0,A1		;Y=COS(ANGLE)
	.PD
	ADDF	#0.1,A0		;ANGLE=ANGLE+0.1;
	CMPF	#40,A0		;REPEAT UNTIL ANGLE>XMAX
	CFCC
	BGT	L

	.PU
	.AXESQ	<ANGLE IN RADIANS>,<DAMPED SINUSOID>	;DRAW & LABEL AXES

	.OA	A0,A1,R0	;OUTPUT PEN POSITION (A0,A1). R0=1 IF PEN DOWN
	.TSQ	<PEN POSITION IS >
	.TF	A0
	.TF	A1
	.EXIT
	.END	GO
              