-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path20511신강민-작업과제24.PGM
70 lines (66 loc) · 1.04 KB
/
20511신강민-작업과제24.PGM
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
PNT VR, V(20)
INT I
B(4).1=0: B(4).2=1: WAIT 500
B(4).2=0: B(4).0=0
SPD = 8000
TAG A
MPTP P1
STBY B(10).0==1
CALL PICK
MPTP P2
B(10).0=0
STBY B(10).0==1
CALL WRITE01
B(10).0=0
STBY B(10).0==1
MINC <20,0>
CALL WRITE02
B(10).0=0
MPTP P1
CALL PLACE
GOTO A
MEND
SPGM WRITE01
VR=GPNT(512)
FOR I = 1 TO 10 : V(I)=VR: ENDF
V(1).1=VR.1+5 : V(2)=V(1)
V(2).2= VR.2+ 16
MPTP V(1)
CALL SOL1
MPTP V(2)
CALL SOL2
MPTP VR
SEND
SPGM WRITE02
VR=GPNT(512)
FOR I = 1 TO 10 : V(I)=VR:ENDF
V(1).2=VR.2+3
V(2).1=VR.1+3
V(3).1=VR.1+7
V(4).1=VR.1+10 : V(4).2=VR.2+3
V(5).2=VR.2+16
V(6).1=VR.1+10: V(6).2=VR.2+16
MPTP V(1)
CALL SOL1
FOR I=2 TO 6 : MPTP V(I) : ENDF
CALL SOL2
MPTP VR
SEND
SPGM SOL1
B(4).1=1: WAIT 500
B(4).1=0: WAIT 500 : STBY (B(0).0==1)
SEND
SPGM SOL2
B(4).2=1: WAIT 500
B(4).2=0: WAIT 500 : STBY (B(0).1==1)
SEND
SPGM PICK
CALL SOL1
B(4).0=1: WAIT 500 : STBY (B(0).3==1)
CALL SOL2
SEND
SPGM PLACE
CALL SOL1
B(4).0=0 : WAIT 500 : STBY (B(0).2==1)
CALL SOL2
SEND