A large commit.
[pdp8.git] / sw / rescue / lab8e_goettingen / disk1_im6100 / rka / paroff / plt.pa
CommitLineData
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
7START, CLA\r
8 TAD (2\r
9 6506 /PEN UP\r
10 6501\r
11 JMP .-1\r
12LOOP, 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
22COUNT, 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