.Program MODS2
C --------------------------------------------------
C ????? ??????? ??? ??-01 ????? ?? 2
C --------------------------------------------------
C ?????? ???????:
C 1 GO.HOME - ??? ? ?????? ?????????
C 2 SET.SP - ???????? ????? ???????? ???
C 3 TAKE.G - ????? ???
C 4 PUT.G - ???????? ???
C 5 OUT.EP - ???? ?????? ??????
C 6 TAKE.PB - ????? ?????? ? ??????? ? ???????? ?? ?????
C ??????
C 7 TAKE.S - ????? ???
C 8 SUM.W - ????? ??? ??? Willett
C 9 PUT.S - ???????? ???
C 10 SUM.L - ??????? ??? ??? ?????? ??????
C 11 TAKE.L - ????? ????
C 12 LAB.W - ????? ???? ??? Willett
C 13 LAB.L - ??????? ???? ??? ?????? ??????
C 14 PUT.L - ???????? ????
C 15 PUT.PB - ????? ?????? ? ??????? ? ???????? ? ???
C 16 Exit - ??? ?? ?????
C
C ?????????? ????? ?? 1
CALL INIMS
C ????
RETURN
C ------
C
PRINT 'Robot is ready'
C
10 PRINT '$'
C <==> ??? - ???????? ???????
CALL SWITCH.
JUMP 101
JUMP 10
C 1 ??????
CALL GO.HOME
JUMP 101
JUMP 10
C 2 ??????
CALL SET.SP
JUMP 101
JUMP 10
C 3 ??????
CALL TAKE.G
JUMP 101
JUMP 10
C 4 ??????
CALL PUT.G
JUMP 101
JUMP 10
C 5 ??????
CALL OUT.EP
JUMP 101
JUMP 10
C 6 ??????
CALL TAKE.PB
JUMP 101
JUMP 10
C 7 ??????
CALL TAKE.S
JUMP 101
JUMP 10
C 8 ??????
CALL SUM.W
JUMP 101
JUMP 10
C 9 ??????
CALL PUT.S
JUMP 101
JUMP 10
C 10 ??????
CALL SUM.L
JUMP 101
JUMP 10
C 11 ??????
CALL TAKE.L
JUMP 101
JUMP 10
C 12 ??????
CALL LAB.W
JUMP 101
JUMP 10
C 13 ??????
CALL LAB.L
JUMP 101
JUMP 10
C 14 ??????
CALL PUT.L
JUMP 101
JUMP 10
C 15 ??????
CALL PUT.PB
JUMP 101
JUMP 10
C 16 ?????? - ??? ?? ?????
RETURN
C ------
C
101 CALL ERROR.
JUMP 10
.End
C
C
C ????? ???????
C
C
.Program GO.HOME
C --------------------------
C 1 ??? ? ?????? ?????????
C --------------------------
C ??????:
C PAR1. - ????? ????? ? ?????? ????????? (1-5)
C
SET NFRAGM. = 1
SET ERRORW. = 0
PRINT NFRAGM.
IF PAR1. = 1 THEN JUMP 10
IF PAR1. = 2 THEN JUMP 20
IF PAR1. = 3 THEN JUMP 30
IF PAR1. = 4 THEN JUMP 40
IF PAR1. = 5 THEN JUMP 50
C ???? ? ??????
SET ERRORW. = ER1
JUMP 102
C ?? ???? ? #HOME
10 GO #HOME
JUMP 90
C ?? #HOME ? #HOME.1
20 GO #HOME.1
JUMP 90
C ?? #HOME ??? #HOME.1 ? #HOME.2
30 GO #GO.1
GO #GO.2
GO #HOME.2
JUMP 90
C ?? #HOME.2 ? #HOME.1
40 GO #GO.2
GO #GO.1
GO #HOME.1
JUMP 90
C ?? #HOME.2 ? #HOME
50 GO #GO.2
GO #GO.1
GO #HOME
C ???????? ??? ??? ????? ??????
90 OUT O.R1.N, O.R2.N, O.R3.N
OUT O.R4.N, O.R5.N
C ==> ???
SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
.Program SET.SP
C ---------------------------------------
C 2 ???????? ????? ???????? ??? (%)
C ---------------------------------------
C ??????:
C PAR1. - ?????? ????? ??? (1%-300%)
C
SET NFRAGM. = 2
SET ERRORW. = 0
PRINT NFRAGM.
IF PAR1. < 1 THEN JUMP 102
IF PAR1. > 300 THEN JUMP 102
SET SPEED = PAR1.
SPEED% SPEED
C ==> ???
SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ???? ? ??????
102 SET ERRORW. = ER1
C ==> ???
SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
.Program TAKE.G
C -----------
C 3 ????? ???
C -----------
C ??????:
C PAR1. - ????? ????? ??? ? ???????? (1-3)
C
SET NFRAGM. = 3
SET ERRORW. = 0
PRINT NFRAGM.
IF PAR1. = 1 THEN JUMP 10
IF PAR1. = 2 THEN JUMP 20
IF PAR1. = 3 THEN JUMP 30
C ???? ? ??????
SET ERRORW. = ER1
JUMP 102
C ?????? 1
10 LOCATE #GRIP.P = #GRIP1.P
LOCATE #GRIP.T = #GRIP1.T
JUMP 50
C ?????? 2
20 LOCATE #GRIP.P = #GRIP2.P
LOCATE #GRIP.T = #GRIP2.T
JUMP 50
C ?????? 3
30 LOCATE #GRIP.P = #GRIP3.P
LOCATE #GRIP.T = #GRIP3.T
C
50 GONEAR #GRIP.T,40
OPEN
SPEED% 100
SPEED NEXT 150
GOS #GRIP.T
CLOSE
SPEED NEXT 150
GOS #GRIP.P
SPEED% SPEED
GO #GRIP
GO #GO.1
GO #HOME
C ==> ???
SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C --------
C ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
.Program PUT.G
C --------------
C 4 ???????? ???
C --------------
C ??????:
C PAR1. - ????? ????? ??? ? ???????? (1-3)
C
SET NFRAGM. = 4
SET ERRORW. = 0
PRINT NFRAGM.
C
IF PAR1. = 1 THEN JUMP 10
IF PAR1. = 2 THEN JUMP 20
IF PAR1. = 3 THEN JUMP 30
C ???? ? ??????
SET ERRORW. = ER1
JUMP 102
C ?????? 1
10 LOCATE #GRIP.P = #GRIP1.P
LOCATE #GRIP.T = #GRIP1.T
JUMP 50
C ?????? 2
20 LOCATE #GRIP.P = #GRIP2.P
LOCATE #GRIP.T = #GRIP2.T
JUMP 50
C ?????? 3
30 LOCATE #GRIP.P = #GRIP3.P
LOCATE #GRIP.T = #GRIP3.T
C
50 GO #GO.1
GO #GRIP
GO #GRIP.P
C
DELAY 0.1
SPEED% 100
SPEED NEXT 150
GOS #GRIP.T
OPEN
SPEED% SPEED
GOSNEAR #GRIP.T,40
GO #HOME
C ==> ???
SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C --------
C ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
.Program OUT.EP
C -------------------------------
C 5 ????? ?????? ?????? (????? 2)
C -------------------------------
C ???????:
C PAR2. - ????? ??? ????? (1,3)
C PAR1. - ????? ?????? ? ??? (1-10)
C
SET NFRAGM. = 5
SET ERRORW. = 0
PRINT NFRAGM.
C
SET I = PAR1.
SET J = PAR2.
IF J = 1 THEN JUMP 1
IF J = 3 THEN JUMP 1
C ???? ? ???????
SET ERRORW. = ER1
JUMP 102
C ??????? ??????? ????????? ??????
1 CALL PAL.Z
JUMP 102
C ????? ?????? ??????
GO #POS
OUT O.GY3.P, O.GY4.P
ENABLE BREAK
GONEAR POS,25
SPEED% 100
SPEED NEXT 30
GOS POS
OUT O.GY3.A, O.GY4.A
DELAY 0.5
SPEED% SPEED
GOSNEAR POS,25
DISABLE BREAK
C
IF IN I.GP.Y THEN JUMP 10
C ???? - ????? ?? ????
SET ERRORW. = ER4
OUT O.GY3.P ,O.GY4.P
GO #POS
GO #POS1
JUMP 102
C
10 GOS #POS
C
SET I = 11 - PAR1.
SET J = PAR2. + 1
C ??????? ??????? ????????? ??????
CALL PAL.Z
JUMP 102
C ???????? ?????? ??????
GOS #POS
ENABLE BREAK
GONEAR POS,25
SPEED% 100
SPEED NEXT 30
GOS POS
OUT O.GY3.P, O.GY4.P
DELAY 0.5
SPEED% SPEED
GOSNEAR POS,25
DISABLE BREAK
C
IF IN I.GP.N THEN JUMP 20
C ???? - ????? ?? ?????
SET ERRORW. = ER5
JUMP 102
C
20 GO #POS
GO #POS1
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
.Program TAKE.PB
C -----------------------------------
C 6 ????? ?????? ? ??????? ?? ???
C ? ???????? ?? ????? ??????
C -----------------------------------
C ???????:
C PAR2. - ????? ??? ????? (7,8)
C PAR1. - ????? ?????? ? ??? (1-10)
C
SET NFRAGM. = 6
SET ERRORW. = 0
PRINT NFRAGM.
C
SET I = PAR1.
SET J = PAR2.
IF J = 7 THEN JUMP 1
IF J = 8 THEN JUMP 1
C ???? ? ???????
SET ERRORW. = ER1
JUMP 102
C ??????? ????????? ??????
1 CALL PAL.Z
JUMP 102
C ????? ?????? ? ???????
GO #GO.1
GO #GO.2
GO #POS1
GO #POS
OUT O.GY3.P, O.GY4.P
ENABLE BREAK
GONEAR POS,25
SPEED% 100
SPEED NEXT 30
GOS POS
OUT O.GY3.A, O.GY4.A
DELAY 0.5
SPEED% SPEED
GOSNEAR POS,25
DISABLE BREAK
C
IF IN I.GP.Y THEN JUMP 10
C ???? - ????? ?? ????
SET ERRORW. = ER4
OUT O.GY3.P ,O.GY4.P
GO #POS
GO #POS1
GO #GO.2
GO #GO.1
GO #HOME
JUMP 102
C
10 GOS #POS
GO #W.BP
C ???????? ?????????? ??? ?????
WAIT IN I.R1.N
C ?????? ????? ?????? ? Willett
OUT O.R1.Y, O.R2.Y
C ???????? ?????? ?? ????? ??????
ENABLE BREAK
GONEAR #PAL.W,25
SPEED% 100
SPEED NEXT 30
GOS #PAL.W
OUT O.GY3.P, O.GY4.P
DELAY 0.8
SPEED% SPEED
GOSNEAR #PAL.W,25
DISABLE BREAK
C
IF IN I.GP.N THEN JUMP 20
C ???? - ????? ?? ?????
SET ERRORW. = ER5
GO #W.BP
C ???????? ????? ?????? ? Willett
OUT O.R1.N, O.R2.N
JUMP 102
C
20 GO #W.BT
GO #HOME
C ???????? ????? ?????? ? Willett
OUT O.R1.N, O.R2.N
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
.Program TAKE.S
C ---------------------------
C 7 ????? ??? ?? ?????? ? ???
C ---------------------------
C ???????:
C PAR3. - ????? ??? ????? (3)
C PAR2. - ????? ?????? ? ??? (1-10)
C PAR1. - ????? ????? ? ????? (1-60)
C
SET NFRAGM. = 7
SET ERRORW. = 0
PRINT NFRAGM.
C
SET K = PAR1.
SET I = PAR2.
SET J = PAR3.
C ??????? ????????? ??? ? ?????
CALL PAL.S
JUMP 102
C ????? ???
GO #POS
OUT O.GT1.O, O.GT2.O
ENABLE BREAK
GONEAR POS,25
SPEED% 100
SPEED NEXT 30
GOS POS
OUT O.GT1.C, O.GT2.C
DELAY 0.5
SPEED% SPEED
GOSNEAR POS,25
DISABLE BREAK
GO #POS
GO #HOME.1
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
.Program SUM.W
C ------------------------
C 8 ????? ??? ??? Willett
C ------------------------
C ?????? ???
C
SET NFRAGM. = 8
SET ERRORW. = 0
PRINT NFRAGM.
C
GO #WIL.S
C ???????? ?????????? ????? Willett
WAIT IN I.R2.N
C ?????? ????? ??????, ??????
C ?????? ? Willett
OUT O.R2.Y, O.R3.Y, O.R1.Y
C
ENABLE BREAK
GO #WIL.S1
DELAY 0.5
SPEED NEXT 70
MOVES ,260
MOVES -100
DISABLE BREAK
GO #WIL.S
C ???????? ????? ??????, ??????
C ?????? ? Willett
OUT O.R2.N, O.R3.N, O.R1.N
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ????
101 RETURN
.End
.Program PUT.S
C ------------------------
C 9 ???????? ??? ? ???????
C ------------------------
C ??????:
C PAR1. - ????? ????? ? ??? ????? (1-6)
C
SET NFRAGM. = 9
SET ERRORW. = 0
PRINT NFRAGM.
C
SET I = PAR1.
LOCATE P1 = W.S1
C ??????? ????????? ???
C ? ??? ?????
CALL PAL.W
JUMP 102
C ???????? ???
GO #GO.1
GO #W.S
C ???????? ?????????? ??? ?????
WAIT IN I.R1.N
C ?????? ????? ?????? ? Willett
OUT O.R1.Y, O.R2.Y
C
ENABLE BREAK
GOS POS1
SPEED% 100
SPEED NEXT 30
GOS POS
OUT O.GT1.O, O.GT2.O
DELAY 0.5
GOSNEAR ,12
OUT O.GT1.C, O.GT2.C
GOSNEAR ,-13
SPEED% SPEED
GOS POS1
DISABLE BREAK
OUT O.GT1.O, O.GT2.O
GOS #W.S
C ???????? ????? ?????? ? Willett
OUT O.R1.N, O.R2.N
C
GO #GO.1
GO #HOME
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
.Program SUM.L
C -------------------------------------
C 10 ??????? ??? ??? ?????? ??????
C -------------------------------------
C ??????:
C PAR1. - ????? ????? ??? (1,2)
C
SET NFRAGM. = 10
SET ERRORW. = 0
PRINT NFRAGM.
C
IF PAR1. = 1 THEN JUMP 10
IF PAR1. = 2 THEN JUMP 20
C ???? ? ??????
SET ERRORW. = ER1
JUMP 102
C ?????? 1
10 LOCATE #POS = #LS.S1
JUMP 50
C ?????? 2
20 LOCATE #POS = #LS.S2
C
50 GO #LS.S
C ????? ??????? ??????
OUT O.LS.P
C ???????? ?????????? ?????
C ??????? ??????
WAIT IN I.R3.N
C ?????? ?????? ??????? ??????
C ? Willett
OUT O.R3.Y, O.R2.Y
C
ENABLE BREAK
GO #POS
C ????? ??????? ??????
OUT O.LS.A
C
MOVES 3,,1
MOVES -3,,-1
DELAY 0.5
C ????? ??????? ??????
OUT O.LS.P
C
MOVES ,110
C ????? ??????? ??????
OUT O.LS.A
C
MOVES 3,,1
MOVES -3,,-1
DELAY 0.5
C ????? ??????? ??????
OUT O.LS.P
DISABLE BREAK
GO #LS.S
C ???????? ?????? ??????? ??????
C ? Willett
OUT O.R3.N, O.R2.N
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
.Program TAKE.L
C --------------------------------
C 11 ????? ???? ?? ?????? ? ???
C --------------------------------
C ???????:
C PAR3. - ????? ??? ????? (1)
C PAR2. - ????? ?????? ? ??? (1-10)
C PAR1. - ????? ????? ? ????? (1-6)
C
SET NFRAGM. = 11
SET ERRORW. = 0
PRINT NFRAGM.
C
SET K = PAR1.
SET I = PAR2.
SET J = PAR3.
C ??????? ????????? ???? ? ?????
CALL PAL.L
JUMP 102
C ????? ????
GO #POS
ENABLE BREAK
GO POS1
SPEED% 100
SPEED NEXT 30
GOS POS
OUT O.GY1.A, O.GY2.A
DELAY 0.5
SPEED% SPEED
GOS POS1
DISABLE BREAK
GO #POS
GO #HOME.1
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
.Program LAB.W
C -----------------------------
C 12 ????? ???? ??? Willett
C -----------------------------
C ??????:
C PAR1. - ????? ????? ???? (1,2)
C
SET NFRAGM. = 12
SET ERRORW. = 0
PRINT NFRAGM.
C
IF PAR1. = 1 THEN JUMP 10
IF PAR1. = 2 THEN JUMP 20
C ???? ? ??????
SET ERRORW. = ER1
JUMP 102
C ?????? 1
10 LOCATE #POS = #WIL.L1
JUMP 50
C ?????? 2
20 LOCATE #POS = #WIL.L2
C
50 GO #WIL.L
C ???????? ?????????? ????? Willett
WAIT IN I.R2.N
C ?????? ????? ??????, ??????
C ?????? ? Willett
OUT O.R2.Y, O.R3.Y, O.R1.Y
C
ENABLE BREAK
GO #POS
DELAY 0.5
SPEED NEXT 70
MOVES ,300
MOVES -140
DISABLE BREAK
GO #WIL.L
C ???????? ????? ??????, ??????
C ?????? ? Willett
OUT O.R2.N, O.R3.N, O.R1.N
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
.Program LAB.L
C ------------------------------------------
C 13 ??????? ???? ??? ?????? ??????
C ------------------------------------------
C ?????? ???
C
SET NFRAGM. = 13
SET ERRORW. = 0
PRINT NFRAGM.
C
GO #LS.L
C ????? ??????? ??????
OUT O.LS.P
C ???????? ?????????? ?????
C ??????? ??????
WAIT IN I.R3.N
C ?????? ?????? ??????? ??????
C ? Willett
OUT O.R3.Y, O.R2.Y
C
ENABLE BREAK
C ?????? 1
GO #LS.L1
C ????? ??????? ??????
OUT O.LS.A
C
MOVES 3,,1
MOVES -3,,-1
DELAY 0.5
C ????? ??????? ??????
OUT O.LS.P
C
MOVES ,110
C ????? ??????? ??????
OUT O.LS.A
C
MOVES 3,,1
MOVES -3,,-1
DELAY 0.5
C ????? ??????? ??????
OUT O.LS.P
C ?????? 2
GO #LS.L2
C ????? ??????? ??????
OUT O.LS.A
C
MOVES 3,,1
MOVES -3,,-1
DELAY 0.5
C ????? ??????? ??????
OUT O.LS.P
C
MOVES ,110
C ????? ??????? ??????
OUT O.LS.A
C
MOVES 3,,1
MOVES -3,,-1
DELAY 0.5
C ????? ??????? ??????
OUT O.LS.P
C ?????? 3
GO #LS.L3
C ????? ??????? ??????
OUT O.LS.A
C
MOVES 3,,1
MOVES -3,,-1
DELAY 0.5
C ????? ??????? ??????
OUT O.LS.P
C
MOVES ,110
C ????? ??????? ??????
OUT O.LS.A
C
MOVES 3,,1
MOVES -3,,-1
DELAY 0.5
C ????? ??????? ??????
OUT O.LS.P
DISABLE BREAK
GO #LS.L
C ???????? ?????? ??????? ??????
C ? Willett
OUT O.R3.N, O.R2.N
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ????
101 RETURN
.End
.Program PUT.L
C --------------------------
C 14 ???????? ???? ? ????
C --------------------------
C ?????? ???
C
SET NFRAGM. = 14
SET ERRORW. = 0
PRINT NFRAGM.
C
GO #GO.1
GO #GO.2
C ???????? ???? ? ???? ????? ???
WAIT IN I.R5.Y
C ???? ????
OUT O.R5.Y
C ???????? ?????
WAIT IN I.R5.N
C ???????? ????
ENABLE BREAK
GO #MEET.I
SPEED% 100
SPEED NEXT 30
GOS #MEET
OUT O.GY1.P, O.GY2.P
DELAY 0.5
SPEED% SPEED
GOS #MEET.I
DISABLE BREAK
C ???? ?????
OUT O.R5.N
GO #GO.2
GO #GO.1
GO #HOME.1
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ????
101 RETURN
.End
.Program PUT.PB
C -------------------------------------------
C 15 ????? ?????? ? ??????? ? ???????? ? ???
C -------------------------------------------
C ???????:
C PAR2. - ????? ??? ????? (5,6)
C PAR1. - ????? ?????? ? ??? (1-10)
C
SET NFRAGM. = 15
SET ERRORW. = 0
PRINT NFRAGM.
C
SET I = PAR1.
SET J = PAR2.
IF J = 5 THEN JUMP 1
IF J = 6 THEN JUMP 1
C ???? ? ???????
SET ERRORW. = ER1
JUMP 102
C ??????? ????????? ??????
1 CALL PAL.Z
JUMP 102
C ???????? ?????????? ??? ?????
WAIT IN I.R1.N
C ?????? ????? ?????? ? Willett
OUT O.R1.Y, O.R2.Y
C ????? ?????? ? ???????
GO #W.BT
ENABLE BREAK
OUT O.GY3.P, O.GY4.P
GONEAR #PAL.W,25
SPEED% 100
SPEED NEXT 30
GOS #PAL.W
OUT O.GY3.A, O.GY4.A
DELAY 0.8
SPEED% SPEED
GOSNEAR #PAL.W,25
DISABLE BREAK
C
IF IN I.GP.Y THEN JUMP 10
C ???? - ????? ?? ????
SET ERRORW. = ER4
OUT O.GY3.P ,O.GY4.P
GO #W.BT
GO #HOME
C ???????? ????? ?????? ? Willett
OUT O.R1.N, O.R2.N
JUMP 102
C
10 GO #W.BP
C ???????? ????? ?????? ? Willett
OUT O.R1.N, O.R2.N
C ???????? ?????? ? ??????? ? ???
GO #POS
ENABLE BREAK
GONEAR POS,25
SPEED% 100
SPEED NEXT 30
GOS POS
OUT O.GY3.P, O.GY4.P
DELAY 0.8
SPEED% SPEED
GOSNEAR POS,25
DISABLE BREAK
C
IF IN I.GP.N THEN JUMP 20
C ???? - ????? ?? ?????
SET ERRORW. = ER5
GOS #POS
JUMP 102
C
20 GO #POS
GO #POS1
GO #GO.2
GO #GO.1
GO #HOME
C ??????? ?? ????
SET LABNUM = LABNUM - 1
C
IF LABNUM > 0 THEN JUMP 100
C ??? ????? ?????? ? ??????
SET LUBNUM = 10
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
C ????
101 RETURN
.End
C
C
C ????????
C
C
.Program PAL.S
C ---------------------------------
C ??????? ????????? ??? ? ?????
C ---------------------------------
C
IF I < 1 THEN JUMP 102
IF I > 10 THEN JUMP 102
C
IF K < 1 THEN JUMP 102
IF K > 60 THEN JUMP 102
C
IF J = 1 THEN JUMP 1
IF J = 3 THEN JUMP 3
IF J = 5 THEN JUMP 5
IF J = 7 THEN JUMP 7
JUMP 102
C ?????? 1
1 LOCATE #POS = #POS.1
LOCATE P1 = O.1
LOCATE P2 = POS.1
JUMP 10
C ?????? 3
3 LOCATE #POS = #POS.3
LOCATE P1 = O.3
LOCATE P2 = POS.3
JUMP 10
C ?????? 5
5 LOCATE #POS = #POS.5
LOCATE P1 = O.5
LOCATE P2 = POS.5
JUMP 10
C ?????? 7
7 LOCATE #POS = #POS.7
LOCATE P1 = O.7
LOCATE P2 = POS.7
C ??????? ???????? Z
10 IF I <= 1 THEN JUMP 20
SHIFT P2 = ,,-24.8
SET I = I - 1
JUMP 10
C ??????? ???????? Y
20 IF K <= 30 THEN JUMP 30
SHIFT P2 = ,220
SET K = K - 30
C ??????? ???????? X
30 IF K <= 1 THEN JUMP 40
SHIFT P2 = 8.75
SET K = K - 1
JUMP 30
C ??????? ????????? ???
40 LOCATE POS = P1(P2)
C
100 RETURN 1
C ???? ? ???????
102 SET ERRORW. = ER1
RETURN
.End
.Program PAL.L
C --------------------------------------
C ??????? ????????? ???? ? ?????
C --------------------------------------
C
IF I < 1 THEN JUMP 102
IF I > 10 THEN JUMP 102
C
IF LABNUM < 1 THEN JUMP 102
IF LABNUM > 10 THEN JUMP 102
C
IF K < 1 THEN JUMP 102
IF K > 6 THEN JUMP 102
C
IF J = 1 THEN JUMP 1
IF J = 3 THEN JUMP 3
IF J = 5 THEN JUMP 5
IF J = 7 THEN JUMP 7
JUMP 102
C ?????? 1
1 LOCATE #POS = #POS.1
LOCATE P1 = O.1
LOCATE P2 = POS.1
JUMP 10
C ?????? 3
3 LOCATE #POS = #POS.3
LOCATE P1 = O.3
LOCATE P2 = POS.3
JUMP 10
C ?????? 5
5 LOCATE #POS = #POS.5
LOCATE P1 = O.5
LOCATE P2 = POS.5
JUMP 10
C ?????? 7
7 LOCATE #POS = #POS.7
LOCATE P1 = O.7
LOCATE P2 = POS.7
C ??????? ???????? Z
10 IF I <= 1 THEN JUMP 11
SHIFT P2 = ,,-24.8
SET I = I - 1
JUMP 10
C
11 SET I = LABNUM
12 IF I <= 1 THEN JUMP 20
SHIFT P2 = ,,-0.2
SET I = I - 1
JUMP 12
C ??????? ???????? Y
20 IF K <= 3 THEN JUMP 30
SHIFT P2 = ,220
SET K = K - 3
C ??????? ???????? X
30 IF K <= 1 THEN JUMP 40
SHIFT P2 = 100
SET K = K - 1
JUMP 30
C ??????? ??????? ?????????
40 LOCATE POS = P1(P2)
C ??????? ??????? ?????????
SHIFT P2 = ,,-25
LOCATE POS1 = P1(P2)
C
100 RETURN 1
C ???? ? ???????
102 SET ERRORW. = ER1
RETURN
.End
.Program PAL.W
C -----------------------------------------
C ??????? ????????? ??? ? ??? ?????
C -----------------------------------------
C
IF I < 1 THEN JUMP 102
IF I > 6 THEN JUMP 102
C ??????? ???????? Y
IF I <= 3 THEN JUMP 30
SHIFT P1 = ,220
SET I = I - 3
C ??????? ???????? X
30 IF I <= 1 THEN JUMP 40
SHIFT P1 = 100
SET I = I - 1
JUMP 30
C ??????? ??????? ?????????
40 LOCATE POS = O.W(P1)
C ??????? ??????? ?????????
SHIFT P1 = ,,-25
LOCATE POS1 = O.W(P1)
C
100 RETURN 1
C ???? ? ???????
102 SET ERRORW. = ER1
RETURN
.End
.Program PAL.Z
C -----------------------------------
C ??????? ????????? ?????? ? ???
C -----------------------------------
C
IF I < 1 THEN JUMP 102
IF I > 10 THEN JUMP 102
C
IF J = 1 THEN JUMP 1
IF J = 2 THEN JUMP 2
IF J = 3 THEN JUMP 3
IF J = 4 THEN JUMP 4
IF J = 5 THEN JUMP 5
IF J = 6 THEN JUMP 6
IF J = 7 THEN JUMP 7
IF J = 8 THEN JUMP 8
JUMP 102
C ?????? 1
1 LOCATE #POS = #PAL.1
LOCATE #POS1 = #HOME.1
LOCATE P1 = O.1
LOCATE P2 = PAL.1
JUMP 10
C ?????? 2
2 LOCATE #POS = #PAL.2
LOCATE #POS1 = #HOME.1
LOCATE P1 = O.2
LOCATE P2 = PAL.2
JUMP 10
C ?????? 3
3 LOCATE #POS = #PAL.3
LOCATE #POS1 = #HOME.1
LOCATE P1 = O.3
LOCATE P2 = PAL.3
JUMP 10
C ?????? 4
4 LOCATE #POS = #PAL.4
LOCATE #POS1 = #HOME.1
LOCATE P1 = O.4
LOCATE P2 = PAL.4
JUMP 10
C ?????? 5
5 LOCATE #POS = #PAL.5
LOCATE #POS1 = #HOME.2
LOCATE P1 = O.5
LOCATE P2 = PAL.5
JUMP 10
C ?????? 6
6 LOCATE #POS = #PAL.6
LOCATE #POS1 = #HOME.2
LOCATE P1 = O.6
LOCATE P2 = PAL.6
JUMP 10
C ?????? 7
7 LOCATE #POS = #PAL.7
LOCATE #POS1 = #HOME.2
LOCATE P1 = O.7
LOCATE P2 = PAL.7
JUMP 10
C ?????? 8
8 LOCATE #POS = #PAL.8
LOCATE #POS1 = #HOME.2
LOCATE P1 = O.8
LOCATE P2 = PAL.8
C ??????? ???????? Z
10 IF I <= 1 THEN JUMP 20
SHIFT P2 = ,,-24.8
SET I = I - 1
JUMP 10
C ??????? ????????? ??????
20 LOCATE POS = P1(P2)
C
100 RETURN 1
C ???? ? ???????
102 SET ERRORW. = ER1
RETURN
.End
.Program INIMS
C -----------------------------
C ?????????? ????? ?? 2
C -----------------------------
C
C ?????????? ??????????? ????
CALL INID2.
C
C ***** ?????????? ??? / ???? *****
C ???? ???????? ??????
SET I.P.Y = 1
SET I.P.N = -1
C ???? ?????? ?????????? (24 ?)
SET I.E.Y = 2
SET I.E.N = -2
C ????? ??????
SET I.S.O = 5
SET I.S.C = -5
C ????? ??? Y
C ??? ?????
SET I.GP.Y = 6
SET I.GP.N = -6
C ??????? ?? ????? ???
C ?????? ??????
SET I.R1.Y = -11
SET I.R1.N = 11
C ?????? Willett
SET I.R2.Y = -12
SET I.R2.N = 12
C ?????? ??????? ??????
SET I.R3.Y = -13
SET I.R3.N = 13
C ?????? ???
SET I.R4.Y = -14
SET I.R4.N = 14
C ???? ?????
SET I.R5.Y = -15
SET I.R5.N = 15
C ???????? ????? ?????
SET I.R6.Y = -16
SET I.R6.N = 16
C
C ------------------------------------------------
C ?????? ?????
OUTGROUP 1 = 0
C ???????? ??? Y
C 1 ???? ????
SET O.GY1.A = 5
SET O.GY2.A = -6
SET O.GY1.P = -5
SET O.GY2.P = 6
C 2 ???? ????
SET O.GY3.A = 1
SET O.GY4.A = -2
SET O.GY3.P = -1
SET O.GY4.P = 2
C ???????? ??? T
SET O.GT1.C = 1
SET O.GT2.C = -2
SET O.GT1.O = -1
SET O.GT2.O = 2
C ???????? ?????? ???????
SET O.LS.A = 10
SET O.LS.P = -10
C ??????? ??? ????? ???
C ?????? ??????
SET O.R1.Y = 11
SET O.R1.N = -11
C ?????? Willett
SET O.R2.Y = 12
SET O.R2.N = -12
C ?????? ??????? ??????
SET O.R3.Y = 13
SET O.R3.N = -13
C ?????? ???
SET O.R4.Y = 14
SET O.R4.N = -14
C ???? ?????
SET O.R5.Y = 15
SET O.R5.N = -15
C ???????? ?????
SET O.R6.Y = 16
SET O.R6.N = -16
C ?? ????? ??????
OUT O.R1.Y, O.R2.Y, O.R3.Y, O.R4.Y
C ????? ?? ???
OUT O.R6.N, O.R5.N
C
C ***** ???? *****
C ?????? ??????
SET ER1 = 50
C ??? ???????? ??????
SET ER2 = 51
C ??? ?????????? 24 ?
SET ER3 = 52
C ????? ?? ????
SET ER4 = 53
C ????? ?? ?????
SET ER5 = 54
C
C ***** ??????? *****
C
C ??????: I, J, K
C ??? ??????
SET MAX.FR. = 16
C ?????? ?????? ????? ???
SET SPEED = 100
C ????? ????? ???? ? ?????
SET LABNUM = 10
C
C **********
C
SPEED% SPEED
ODELAY 1
CDELAY 1
TOL NARROW
TOOL
C
C ***** ???? *****
C ???? ??????????
10 IF IN I.E.Y THEN JUMP 20
SET ERRORW. = ER3
JUMP 102
C ???? ???????? ??????
20 IF IN I.P.Y THEN JUMP 30
SET ERRORW. = ER2
JUMP 102
C ???????? ??????? ????? ?????
30 WAIT IN I.R6.Y
C ????? ???
OUT O.R6.Y
C ==> ???
100 SET MARKER. = NULL.
CALL TRANSC.
JUMP 101
C
RETURN 1
C -------- ==> ???
102 SET MARKER. = ERRORW.
CALL TRANSC.
JUMP 101
101 RETURN
C ------
C
C ***** ????????? *****
C ??????:
C #HOME - ????? 0
C #HOME.1 - ????? 1
C #HOME.2 - ????? 2
C #GO.1 - ??? ????? ?? #HOME.1 ? #HOME.2
C #GO.2 - ??? ????? ?? #HOME.2 ? #HOME.1
C #GRIP - ?????? ??? ??? ???
C #GRIP1.P- ??????? ??? ? ?????? 1 ????????
C #GRIP1.T- ???? ??? ?? ????? 1 ????????
C #GRIP2.P- ??????? ??? ? ?????? 2 ????????
C #GRIP2.T- ???? ??? ?? ????? 2 ????????
C #GRIP3.P- ??????? ??? ? ?????? 3 ????????
C #GRIP3.T- ???? ??? ?? ????? 3 ????????
C #W.BP - ?????? ??? ??????? ?????? ? ??????? ?? ?????
C ??????
C #W.BT - ?????? ??? ????? ?????? ? ??????? ? ??? ?????
C #PAL.W - ???? ??????
C #PAL.1 - ??? ?? ??? ????? ? ????? 1
C #PAL.2 - ??? ?? ??? ????? ? ????? 2
C #PAL.3 - ??? ?? ??? ????? ? ????? 3
C #PAL.4 - ??? ?? ??? ????? ? ????? 4
C #PAL.5 - ??? ?? ??? ????? ? ????? 5
C #PAL.6 - ??? ?? ??? ????? ? ????? 6
C #PAL.7 - ??? ?? ??? ????? ? ????? 7
C #PAL.8 - ??? ?? ??? ????? ? ????? 8
C PAL.1 - ???? ????? ? ??? ? ????? 1 ? ???? ??????? O.1
C PAL.2 - ???? ????? ? ??? ? ????? 2 ? ???? ??????? O.2
C PAL.3 - ???? ????? ? ??? ? ????? 3 ? ???? ??????? O.3
C PAL.4 - ???? ????? ? ??? ? ????? 4 ? ???? ??????? O.4
C PAL.5 - ???? ????? ? ??? ? ????? 5 ? ???? ??????? O.5
C PAL.6 - ???? ????? ? ??? ? ????? 6 ? ???? ??????? O.6
C PAL.7 - ???? ????? ? ??? ? ????? 7 ? ???? ??????? O.7
C PAL.8 - ???? ????? ? ??? ? ????? 8 ? ???? ??????? O.8
C #POS.1 - ??? ??? ????? ????? ?? ??? ????? 1
C #POS.3 - ??? ??? ????? ????? ?? ??? ????? 2
C #POS.5 - ??? ??? ????? ????? ?? ??? ????? 3
C #POS.7 - ??? ??? ????? ????? ?? ??? ????? 4
C O.1 - ???? ??????? ??? ????? 1
C O.2 - ???? ??????? ??? ????? 2
C O.3 - ???? ??????? ??? ????? 3
C O.4 - ???? ??????? ??? ????? 4
C O.5 - ???? ??????? ??? ????? 5
C O.6 - ???? ??????? ??? ????? 6
C O.7 - ???? ??????? ??? ????? 7
C O.8 - ???? ??????? ??? ????? 8
C O.W - ???? ??????? ??? ?????
C POS.1 - ???? ??? ????? ? ????? 1 ????? 1 ? ???? O.1
C POS.3 - ???? ??? ????? ? ????? 1 ????? 3 ? ???? O.3
C POS.5 - ???? ??? ????? ? ????? 1 ????? 5 ? ???? O.5
C POS.7 - ???? ??? ????? ? ????? 1 ????? 7 ? ???? O.7
C #WIL.L - ?????? ??? Willett
C #WIL.S - ??? ??? Willett
C #WIL.L1 - ???? ??? Willett ? ????????? 1
C #WIL.L2 - ???? ??? Willett ? ????????? 2
C #LS.S - ?????? ??? ??????? ??????
C #LS.S1 - ??? ??? ?????? ??????? ? ????????? 1
C #LS.S2 - ??? ??? ?????? ??????? ? ????????? 2
C #LS.L1 - ???? ??? ?????? ??????? ? ????????? 1
C #LS.L2 - ???? ??? ?????? ??????? ? ????????? 2
C #LS.L3 - ???? ??? ?????? ??????? ? ????????? 3
C #W.S - ?????? ??? ????? ??? ? ??????? ?? ??? ?????
C W.S1 - ???? ??? ??? ? ??? ????? ? ???? O.W
C #W.L - ?????? ??? ????? ???? ? ??????? ?? ??? ?????
C W.L1 - ???? ??? ???? ? ??? ????? ? ???? O.W
C #MEET.I - ???? ? ???? ?? ???? ? ????
C #MEET - ???? ?? ???? ? ????
C
C ??????:
C #GRIP.P, #GRIP.T, #POS, POS, #POS1, POS1, P1, P2
.End





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.