-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path20511신강민-응용과제1.PGM
132 lines (129 loc) · 2.25 KB
/
20511신강민-응용과제1.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
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
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 = 7000
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
STBY B(10).0==1
MINC <20,0>
CALL WRITE03
B(10).0=0
STBY B(10).0==1
MINC <20,0>
CALL WRITE04
B(10).0=0
STBY B(10).0==1
MINC <20,0>
CALL WRITE05
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 WRITE03
VR=GPNT(512)
FOR I = 1 TO 12 : 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).1=VR.1+10 : V(5).2=VR.2+5
V(6).1=VR.1+7 : V(6).2=VR.2+8
V(7).2=VR.2+8
V(8).1=VR.1+7 : V(8).2=VR.2+8
V(9).1=VR.1+10 : V(9).2=VR.2+11
V(10).1=VR.1+10 : V(10).2=VR.2+13
V(11).1=VR.1+7 : V(11).2=VR.2+16
V(12).2=VR.2+16
MPTP V(1)
CALL SOL1
FOR I=2 TO 12 : MPTP V(I) : ENDF
CALL SOL2
MPTP VR
SEND
SPGM WRITE04
VR=GPNT(512)
FOR I = 1 TO 10 : V(I)=VR:ENDF
V(1).1=VR.1+7 : V(1).2=VR.2+16
V(2).1=VR.1+7
V(3).2=VR.2+10
V(4).1=VR.1+10 : V(4).2=VR.2+10
MPTP V(1)
CALL SOL1
FOR I=2 TO 4 : MPTP V(I) : ENDF
CALL SOL2
MPTP VR
SEND
SPGM WRITE05
VR=GPNT(512)
FOR I = 1 TO 10 : V(I)=VR:ENDF
V(1).1=VR.1+10
V(2).2=VR.2
V(3).2=VR.2+8
V(4).1=VR.1+7 : V(4).2=VR.2+8
V(5).1=VR.1+10 : V(5).2=VR.2+11
V(6).1=VR.1+10 : V(6).2=VR.2+13
V(7).1=VR.1+7 : V(7).2=VR.2+16
V(8).2=VR.2+16
MPTP V(1)
CALL SOL1
FOR I=2 TO 8 : 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