[pdp8.git] / sw / rescue / lab8e_goettingen / disk1_im6100 / rka / paroff / plt.pa

/PLT.PA   1/10/78\r
/\r
/RESET PLOTTER TO LOWER LEFT CORNER\r
/CLEARS PLOTTER FLAG\r
\r
	*200\r
START,	CLA\r
	TAD (2\r
	6506	/PEN UP\r
	6501\r
	JMP .-1\r
LOOP,	CLA\r
	TAD (44\r
	6506	/LOAD DIRECTION REGISTER\r
	6501	/SKIP\r
	JMP .-1\r
	ISZ COUNT\r
	JMP LOOP\r
	6502	/CLEAR PLOTTER FLAG\r
	CLA\r
	JMP I (7600\r
COUNT,	0\r
	$$$\r
\f\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0
Commit	Line	Data
81e70d48 PH	1	/PLT.PA 1/10/78\r
	2	/\r
	3	/RESET PLOTTER TO LOWER LEFT CORNER\r
	4	/CLEARS PLOTTER FLAG\r
	5	\r
	6	*200\r
	7	START, CLA\r
	8	TAD (2\r
	9	6506 /PEN UP\r
	10	6501\r
	11	JMP .-1\r
	12	LOOP, CLA\r
	13	TAD (44\r
	14	6506 /LOAD DIRECTION REGISTER\r
	15	6501 /SKIP\r
	16	JMP .-1\r
	17	ISZ COUNT\r
	18	JMP LOOP\r
	19	6502 /CLEAR PLOTTER FLAG\r
	20	CLA\r
	21	JMP I (7600\r
	22	COUNT, 0\r
	23	$$$\r
	24	\f\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0