Google translate

Материалы

Примеры программ для TEXTIMA COMNIT.

  Некоторые изделия, связанные на вязальной машине TEXTIMA COMNIT.


Ниже приведены в качестве примера несколько программ для TEXTIMA COMNIT.

1 ;P101 3 color poviazka , 8E
2 ;osnova : celnok 5 - vlevo (2 x PAN)
3 ;color 1 : celnok 2 - vlevo (A) (2 x PAN)
4 ;color 2 : celnok 3 - vlevo (+) (2 x PAN)
5 ;razdel : celnok 8 - vpravo
6 ;
7 BEG P101
8 YGP 2 3 5 / 8
9 GP ?21
10 TD ?80
11 VAR ?21(5),?60(5),?61(5)
12 PRNT 11,12,13,21,42,50,60,61
13 J P101,D
14 MSD 2(?42)
15 AD ?50
16 RACK N
17 CALL HILFE ,?100
18 LD ?100,0
19 >> M/?1 ,M/?1 ,5,2
20 << M/?2 ,F ,5,2
21 > M/?1 ,M/?1 ,5
22 < M/?3 ,M/?3 ,8
23 > , ,8
24 >> M ,F ,0,0
25 < M/?4 ,M/?4 ,5
26 > F ,M/?2 ,5
27 < M/?2 ,F ,5
28 CALL CULOK ,?11
29 LD ?30,?21
30 ADD ?30,-9
31 LD ?64,?60
32 ADD ?64,10
33 LD ?62,?64
34 ADD ?62,?61
35 ADD ?62,-1
36 LD ?63,11
37 ADD ?63,?61
38 ADD ?63,-1
39 SAP 10.(JD)1:10.<?64,?62>1Y<11,?63>?30:(.)
40 JC JD(1)
41 > TH Y
42 RACK L1
43 < TV Y
44 RACK N
45 JC JD(1)
46 CALL REPS ,?12
47 CALL VALIK ,1
48 JC JD(9)
49 CALL RAPP1 ,11
50 CALL VALIK ,1
51 JC JD(1)
52 CALL REPS ,?12
53 RACK N
54 END P101
55 ;
56 BEG HILFE
57 VAR 100(3)
58 >>> F ,M/?2 ,5,3,2
59 <<<
60 END HILFE
61 ;
62 BEG CULOK
63 > F ,M/?2 ,5
64 < M/?2 ,F ,5
65 END CULOK
66 ;
67 BEG RAPP1
68 > ./?5 ,MF/?6 ,5
69 > A/?5 ,FM/?6 ,2
70 > +/?5 ,MF/?6 ,3
71 JC +
72 < ./?5 ,FM/?6 ,5
73 < A/?5 ,MF/?6 ,2
74 < +/?5 ,FM/?6 ,3
75 JC +
76 END RAPP1
77 ;
78 BEG VALIK
79 > NY/?8 ,NY/?8 ,2
80 > NY/?7 ,F ,5
81 < , ,5
82 > , ,5
83 < , ,5
84 < NY/?8 ,NY/?8 ,2
85 END VALIK
86 ;
87 BEG REPS
88 > ./?9 ,A/?9 ,5
89 > A/?9 ,./?9 ,2
90 > ./?9 ,A/?9 ,3
91 < A/?9 ,./?9 ,5
92 < ./?9 ,A/?9 ,2
93 < A/?9 ,./?9 ,3
94 END REPS



LISTE DER VARIABLEN p101
VAR TYP UNT.GR. OB.GR. WERT
1 ( 6 , 0 , 99 ) 0
2 ( 6 , 0 , 99 ) 0
3 ( 6 , 0 , 99 ) 0
4 ( 6 , 0 , 99 ) 0
5 ( 6 , 0 , 99 ) 0
6 ( 6 , 0 , 99 ) 0
7 ( 6 , 0 , 99 ) 0
8 ( 6 , 0 , 99 ) 0
9 ( 6 , 0 , 99 ) 0
11 ( 3 , 128-, 255 ) 0
12 ( 3 , 128-, 255 ) 0
21 ( 5 , 0 , 972 ) 0
42 (10 , 20 , 130 ) 55
50 (11 , 15-, 15 ) 0
60 ( 5 , 0 , 972 ) 0
61 ( 5 , 0 , 972 ) 0
80 (12 , 1 , 50 ) 6
100 ( 3 , 128-, 255 ) 0

1 ;SD102 Shapka detskaia , 8E
2 ;osnova : celnok 5 - vlevo (2 x PAN)
3 ;color 1 : celnok 2 - vlevo (A) (2 x PAN)
4 ;color 2 : celnok 3 - vlevo (+) (2 x PAN)
5 ;razdel : celnok 8 - vpravo
6 ;

7 BEG SD102
8 YGP 2 3 5 / 8
9 GP ?21
10 TD ?80
11 VAR ?21(5),?60(5),?61(5)
12 PRNT 11,12,13,21,42,50,60,61
13 J P101,D
14 MSD 2(?42)
15 AD ?50
16 RACK N
17 CALL HILFE ,?100
18 LD ?100,0
19 >> M/?1 ,M/?1 ,5,2
20 << M/?2 ,F ,5,2
21 > M/?1 ,M/?1 ,5
22 < M/?3 ,M/?3 ,8
23 > , ,8
24 >> M ,F ,0,0
25 < M/?4 ,M/?4 ,5
26 > F ,M/?2 ,5
27 < M/?2 ,F ,5
28 CALL CULOK ,?11
29 LD ?30,?21
30 ADD ?30,-9
31 LD ?64,?60
32 ADD ?64,10
33 LD ?62,?64
34 ADD ?62,?61
35 ADD ?62,-1
36 LD ?63,11
37 ADD ?63,?61
38 ADD ?63,-1
39 SAP 10.(JD)1:10.<?64,?62>1Y<11,?63>?30:(.)
40 JC JD(1)
41 > TH Y
42 RACK L1
43 < TV Y
44 RACK N
45 JC JD(1)
46 CALL REPS ,?12
47 CALL VALIK ,1
48 JC JD(9)
49 CALL RAPP1 ,11
50 CALL VALIK ,1
51 JC JD(1)
52 CALL REPS ,?12
53 RACK N
54 END P101
55 ;
56 BEG HILFE
57 VAR 100(3)
58 >>> F ,M/?2 ,5,3,2
59 <<<
60 END HILFE
61 ;
62 BEG CULOK
63 > F ,M/?2 ,5
64 < M/?2 ,F ,5
65 END CULOK
66 ;
67 BEG RAPP1
68 > ./?5 ,MF/?6 ,5
69 > A/?5 ,FM/?6 ,2
70 > +/?5 ,MF/?6 ,3
71 JC +
72 < ./?5 ,FM/?6 ,5
73 < A/?5 ,MF/?6 ,2
74 < +/?5 ,FM/?6 ,3
75 JC +
76 END RAPP1
77 ;
78 BEG VALIK
79 > NY/?8 ,NY/?8 ,2
80 > NY/?7 ,F ,5
81 < , ,5
82 > , ,5
83 < , ,5
84 < NY/?8 ,NY/?8 ,2
85 END VALIK
86 ;
87 BEG REPS
88 > ./?9 ,A/?9 ,5
89 > A/?9 ,./?9 ,2
90 > ./?9 ,A/?9 ,3
91 < A/?9 ,./?9 ,5
92 < ./?9 ,A/?9 ,2
93 < A/?9 ,./?9 ,3
94 END REPS



LISTE DER VARIABLEN p101
VAR TYP UNT.GR. OB.GR. WERT
1 ( 6 , 0 , 99 ) 0
2 ( 6 , 0 , 99 ) 0
3 ( 6 , 0 , 99 ) 0
4 ( 6 , 0 , 99 ) 0
5 ( 6 , 0 , 99 ) 0
6 ( 6 , 0 , 99 ) 0
7 ( 6 , 0 , 99 ) 0
8 ( 6 , 0 , 99 ) 0
9 ( 6 , 0 , 99 ) 0
11 ( 3 , 128-, 255 ) 0
12 ( 3 , 128-, 255 ) 0
21 ( 5 , 0 , 972 ) 0
42 (10 , 20 , 130 ) 55
50 (11 , 15-, 15 ) 0
60 ( 5 , 0 , 972 ) 0
61 ( 5 , 0 , 972 ) 0
80 (12 , 1 , 50 ) 6
100 ( 3 , 128-, 255 ) 0

1 ;P101 3 color poviazka , 8E
2 ;osnova : celnok 5 - vlevo (2 x PAN)
3 ;color 1 : celnok 2 - vlevo (A) (2 x PAN)
4 ;color 2 : celnok 3 - vlevo (+) (2 x PAN)
5 ;razdel : celnok 8 - vpravo
6 ;
7 BEG P101
8 YGP 2 3 5 / 8
9 GP ?21
10 TD ?80
11 VAR ?21(5),?60(5),?61(5)
12 PRNT 11,12,13,21,42,50,60,61
13 J P101,D
14 MSD 2(?42)
15 AD ?50
16 RACK N
17 CALL HILFE ,?100
18 LD ?100,0
19 >> M/?1 ,M/?1 ,5,2
20 << M/?2 ,F ,5,2
21 > M/?1 ,M/?1 ,5
22 < M/?3 ,M/?3 ,8
23 > , ,8
24 >> M ,F ,0,0
25 < M/?4 ,M/?4 ,5
26 > F ,M/?2 ,5
27 < M/?2 ,F ,5
28 CALL CULOK ,?11
29 LD ?30,?21
30 ADD ?30,-9
31 LD ?64,?60
32 ADD ?64,10
33 LD ?62,?64
34 ADD ?62,?61
35 ADD ?62,-1
36 LD ?63,11
37 ADD ?63,?61
38 ADD ?63,-1
39 SAP 10.(JD)1:10.<?64,?62>1Y<11,?63>?30:(.)
40 JC JD(1)
41 > TH Y
42 RACK L1
43 < TV Y
44 RACK N
45 JC JD(1)
46 CALL REPS ,?12
47 CALL VALIK ,1
48 JC JD(9)
49 CALL RAPP1 ,11
50 CALL VALIK ,1
51 JC JD(1)
52 CALL REPS ,?12
53 RACK N
54 END P101
55 ;
56 BEG HILFE
57 VAR 100(3)
58 >>> F ,M/?2 ,5,3,2
59 <<<
60 END HILFE
61 ;
62 BEG CULOK
63 > F ,M/?2 ,5
64 < M/?2 ,F ,5
65 END CULOK
66 ;
67 BEG RAPP1
68 > ./?5 ,MF/?6 ,5
69 > A/?5 ,FM/?6 ,2
70 > +/?5 ,MF/?6 ,3
71 JC +
72 < ./?5 ,FM/?6 ,5
73 < A/?5 ,MF/?6 ,2
74 < +/?5 ,FM/?6 ,3
75 JC +
76 END RAPP1
77 ;
78 BEG VALIK
79 > NY/?8 ,NY/?8 ,2
80 > NY/?7 ,F ,5
81 < , ,5
82 > , ,5
83 < , ,5
84 < NY/?8 ,NY/?8 ,2
85 END VALIK
86 ;
87 BEG REPS
88 > ./?9 ,A/?9 ,5
89 > A/?9 ,./?9 ,2
90 > ./?9 ,A/?9 ,3
91 < A/?9 ,./?9 ,5
92 < ./?9 ,A/?9 ,2
93 < A/?9 ,./?9 ,3
94 END REPS



LISTE DER VARIABLEN p101
VAR TYP UNT.GR. OB.GR. WERT
1 ( 6 , 0 , 99 ) 0
2 ( 6 , 0 , 99 ) 0
3 ( 6 , 0 , 99 ) 0
4 ( 6 , 0 , 99 ) 0
5 ( 6 , 0 , 99 ) 0
6 ( 6 , 0 , 99 ) 0
7 ( 6 , 0 , 99 ) 0
8 ( 6 , 0 , 99 ) 0
9 ( 6 , 0 , 99 ) 0
11 ( 3 , 128-, 255 ) 0
12 ( 3 , 128-, 255 ) 0
21 ( 5 , 0 , 972 ) 0
42 (10 , 20 , 130 ) 55
50 (11 , 15-, 15 ) 0
60 ( 5 , 0 , 972 ) 0
61 ( 5 , 0 , 972 ) 0
80 (12 , 1 , 50 ) 6
100 ( 3 , 128-, 255 ) 0




1 ;DABI:5-bar.zakar (5E)
2 ;2 dily vedle sebe
3 ;navlek a postaveni vodicu:
4 ;patent - vodic 1 -vlevo,(2xMouline)
5 ;zaklad - vodic 5 -vlevo,1xMouline (.)
6 ;barva I : vodic c. 4 - vlevo,1xMouline (A)
7 ;barva II: vodic c. 3 - vlevo,1xMouline (+)
8 ;barva III: vodic c. 7 - vlevo,2x mele(I)
9 ;barva IV: vodic c.2 - vlevo,1x Mouline (@)
10 ;gumicka : vodic c.6 - vlevo
11 ;odparovaci nit,patent:vodic c.8 - vpravo,2xMouline
12 ;
13 BEG DABI
14 YGP 1 2 3 4 5 6 7 / 8
15 GP ?21
16 VAR ?21(5),?60(5),?61(5)
17 PRNT 11,13,21,42,50,60,61
18 J DABI,J
19 MSD 2(?42),1(?43)
20 AD ?50
21 RACK N
22 CALL HILFE ,?100
23 LD ?100,0
24 > M/?1 ,M/?1 ,1
25 < M/?2 ,F ,1
26 > F ,M/?2 ,1
27 < M/?1 ,M/?1 ,1
28 > , ,1
29 < M/?2 ,F ,1
30 < TV
31 > M/?1 ,2MF/?1 ,1
32 < M/?2 ,F ,1
33 > , ,1
34 < , ,1
35 < M/?3 ,2MF/?3 ,8
36 > , ,8
37 MS 1
38 << M ,F ,0,0
39 RACK L1
40 > MFM/?4 ,2MF/?4 ,1
41 < MFM/?2 ,F ,1
42 > F ,2MF/?2 ,6
43 < F ,2MF/?2 ,6
44 MS 2
45 RACK N
46 > MFM/?1 ,2MF/?1 ,1
47 < MFM/?1 ,2MF/?1 ,1
48 CALL BU2/1 ,?11
49 CALL BU1/1 ,?12
50 > M/?2 ,F ,5
51 < F ,M/?2 ,5
52 LD ?30,?21
53 ADD ?30,-5
54 LD ?64,?60
55 ADD ?64,6
56 LD ?62,?64
57 ADD ?62,?61
58 ADD ?62,-1
59 LD ?63,7
60 ADD ?63,?61
61 ADD ?63,-1
62 SAP 6A(JJ)1:6A<?64,?62>1Y<7,?63>?30:(A)
63 JC JJ(1)
64 > TH Y
65 RACK L1
66 < TV Y
67 RACK N
68 CALL RAPP1 ,13
69 CALL RAPP2 ,13
70 CALL RAPP3 ,12
71 SAP 6.(JJ)1:6.<?64,?62>1Y<7,?63>?30:(.)
72 CALL RAPP4 ,16
73 SAP 6A(JJ)1:6A<?64,?62>1Y<7,?63>?30:(A)
74 JC JJ(1)
75 CALL RAPP1 ,13
76 CALL RAPP2 ,13
77 CALL RAPP3 ,?13
78 RACK N
79 END DABI
80 ;
81 BEG HILFE
82 VAR 100(3)
83 >>> F ,M/?2 ,2,4,5
84 <<<
85 END HILFE
86 ;
87 BEG BU2/1
88 > MFM/?1 ,2MF/?1 ,1
89 < MFM/?1 ,2MF/?1 ,1
90 > F ,F
91 < MFM/?1 ,2MF/?1 ,8
92 > MFM/?1 ,2MF/?1 ,8
93 < F ,F
94 END BU2/1
95 ;
96 BEG BU1/1
97 > MFM/?1 ,2MF/?1 ,1
98 < MFM/?1 ,2MF/?1 ,1
99 END BU1/1
100 ;
101 BEG RAPP1
102 > ./?5 ,NY/?6 ,5
103 > A/?5 ,NY/?6 ,4
104 > @/?5 ,NY/?6 ,2
105 JC +
106 < ./?5 ,NY/?6 ,5
107 < A/?5 ,NY/?6 ,4
108 < @/?5 ,NY/?6 ,2
109 JC +
110 END RAPP1
111 ;
112 BEG RAPP2
113 > ./?5 ,NY/?6 ,5
114 > A/?5 ,NY/?6 ,4
115 > +/?5 ,NY/?6 ,3
116 JC +
117 < ./?5 ,NY/?6 ,5
118 < A/?5 ,NY/?6 ,4
119 < +/?5 ,NY/?6 ,3
120 JC +
121 END RAPP2
122 ;
123 BEG RAPP3
124 > A/?5 ,NY/?6 ,4
125 > I/?5 ,NY/?6 ,7
126 > @/?5 ,NY/?6 ,2
127 JC +
128 < A/?5 ,NY/?6 ,4
129 < I/?5 ,NY/?6 ,7
130 < @/?5 ,NY/?6 ,2
131 JC +
132 END RAPP3
133 ;
134 BEG RAPP4
135 > ./?5 ,NY/?6 ,5
136 > +/?5 ,NY/?6 ,3
137 > @/?5 ,NY/?6 ,2
138 JC +
139 < ./?5 ,NY/?6 ,5
140 < +/?5 ,NY/?6 ,3
141 < @/?5 ,NY/?6 ,2
142 JC +
143 END RAPP4
144 ;





1 ;DABI:5-bar.zakar (5E)
2 ;2 dily vedle sebe
3 ;navlek a postaveni vodicu:
4 ;patent - vodic 1 -vlevo,(2xMouline)
5 ;zaklad - vodic 5 -vlevo,1xMouline (.)
6 ;barva I : vodic c. 4 - vlevo,1xMouline (A)
7 ;barva II: vodic c. 3 - vlevo,1xMouline (+)
8 ;barva III: vodic c. 7 - vlevo,2x mele(I)
9 ;barva IV: vodic c.2 - vlevo,1x Mouline (@)
10 ;gumicka : vodic c.6 - vlevo
11 ;odparovaci nit,patent:vodic c.8 - vpravo,2xMouline
12 ;
13 BEG DABI
14 YGP 1 2 3 4 5 6 7 / 8
15 GP ?21
16 VAR ?21(5),?60(5),?61(5)
17 PRNT 11,13,21,42,50,60,61
18 J DABI,J
19 MSD 2(?42),1(?43)
20 AD ?50
21 RACK N
22 CALL HILFE ,?100
23 LD ?100,0
24 > M/?1 ,M/?1 ,1
25 < M/?2 ,F ,1
26 > F ,M/?2 ,1
27 < M/?1 ,M/?1 ,1
28 > , ,1
29 < M/?2 ,F ,1
30 < TV
31 > M/?1 ,2MF/?1 ,1
32 < M/?2 ,F ,1
33 > , ,1
34 < , ,1
35 < M/?3 ,2MF/?3 ,8
36 > , ,8
37 MS 1
38 << M ,F ,0,0
39 RACK L1
40 > MFM/?4 ,2MF/?4 ,1
41 < MFM/?2 ,F ,1
42 > F ,2MF/?2 ,6
43 < F ,2MF/?2 ,6
44 MS 2
45 RACK N
46 > MFM/?1 ,2MF/?1 ,1
47 < MFM/?1 ,2MF/?1 ,1
48 CALL BU2/1 ,?11
49 CALL BU1/1 ,?12
50 > M/?2 ,F ,5
51 < F ,M/?2 ,5
52 LD ?30,?21
53 ADD ?30,-5
54 LD ?64,?60
55 ADD ?64,6
56 LD ?62,?64
57 ADD ?62,?61
58 ADD ?62,-1
59 LD ?63,7
60 ADD ?63,?61
61 ADD ?63,-1
62 SAP 6A(JJ)1:6A<?64,?62>1Y<7,?63>?30:(A)
63 JC JJ(1)
64 > TH Y
65 RACK L1
66 < TV Y
67 RACK N
68 CALL RAPP1 ,13
69 CALL RAPP2 ,13
70 CALL RAPP3 ,12
71 SAP 6.(JJ)1:6.<?64,?62>1Y<7,?63>?30:(.)
72 CALL RAPP4 ,16
73 SAP 6A(JJ)1:6A<?64,?62>1Y<7,?63>?30:(A)
74 JC JJ(1)
75 CALL RAPP1 ,13
76 CALL RAPP2 ,13
77 CALL RAPP3 ,?13
78 RACK N
79 END DABI
80 ;
81 BEG HILFE
82 VAR 100(3)
83 >>> F ,M/?2 ,2,4,5
84 <<<
85 END HILFE
86 ;
87 BEG BU2/1
88 > MFM/?1 ,2MF/?1 ,1
89 < MFM/?1 ,2MF/?1 ,1
90 > F ,F
91 < MFM/?1 ,2MF/?1 ,8
92 > MFM/?1 ,2MF/?1 ,8
93 < F ,F
94 END BU2/1
95 ;
96 BEG BU1/1
97 > MFM/?1 ,2MF/?1 ,1
98 < MFM/?1 ,2MF/?1 ,1
99 END BU1/1
100 ;
101 BEG RAPP1
102 > ./?5 ,NY/?6 ,5
103 > A/?5 ,NY/?6 ,4
104 > @/?5 ,NY/?6 ,2
105 JC +
106 < ./?5 ,NY/?6 ,5
107 < A/?5 ,NY/?6 ,4
108 < @/?5 ,NY/?6 ,2
109 JC +
110 END RAPP1
111 ;
112 BEG RAPP2
113 > ./?5 ,NY/?6 ,5
114 > A/?5 ,NY/?6 ,4
115 > +/?5 ,NY/?6 ,3
116 JC +
117 < ./?5 ,NY/?6 ,5
118 < A/?5 ,NY/?6 ,4
119 < +/?5 ,NY/?6 ,3
120 JC
121 END RAPP2
122 ;
123 BEG RAPP3
124 > A/?5 ,NY/?6 ,4
125 > I/?5 ,NY/?6 ,7
126 > @/?5 ,NY/?6 ,2
127 JC +
128 < A/?5 ,NY/?6 ,4
129 < I/?5 ,NY/?6 ,7
130 < @/?5 ,NY/?6 ,2
131 JC +
132 END RAPP3
133 ;
134 BEG RAPP4
135 > ./?5 ,NY/?6 ,5
136 > +/?5 ,NY/?6 ,3
137 > @/?5 ,NY/?6 ,2
138 JC +
139 < ./?5 ,NY/?6 ,5
140 < +/?5 ,NY/?6 ,3
141 < @/?5 ,NY/?6 ,2
142 JC +
143 END RAPP
144 ;



1 ;DABI:5-bar.zakar (5E)
2 ;2 dily vedle sebe
3 ;navlek a postaveni vodicu:
4 ;patent - vodic 1 -vlevo,(2xMouline)
5 ;zaklad - vodic 5 -vlevo,1xMouline (.)
6 ;barva I : vodic c. 4 - vlevo,1xMouline (A)
7 ;barva II: vodic c. 3 - vlevo,1xMouline (+)
8 ;barva III: vodic c. 7 - vlevo,2x mele(I)
9 ;barva IV: vodic c.2 - vlevo,1x Mouline (@)
10 ;gumicka : vodic c.6 - vlevo
11 ;odparovaci nit,patent:vodic c.8 - vpravo,2xMouline
12 ;
13 BEG DABI
14 YGP 1 2 3 4 5 6 7 / 8
15 GP ?21
16 VAR ?21(5),?60(5),?61(5)
17 PRNT 11,13,21,42,50,60,61
18 J DABI,J
19 MSD 2(?42),1(?43)
20 AD ?50
21 RACK N
22 CALL HILFE ,?100
23 LD ?100,0
24 > M/?1 ,M/?1 ,1
25 < M/?2 ,F ,1
26 > F ,M/?2 ,1
27 < M/?1 ,M/?1 ,1
28 > , ,1
29 < M/?2 ,F ,1
30 < TV
31 > M/?1 ,2MF/?1 ,1
32 < M/?2 ,F ,1
33 > , ,1
34 < , ,1
35 < M/?3 ,2MF/?3 ,8
36 > , ,8
37 MS 1
38 << M ,F ,0,0
39 RACK L1
40 > MFM/?4 ,2MF/?4 ,1
41 < MFM/?2 ,F ,1
42 > F ,2MF/?2 ,6
43 < F ,2MF/?2 ,6
44 MS 2
45 RACK N
46 > MFM/?1 ,2MF/?1 ,1
47 < MFM/?1 ,2MF/?1 ,1
48 CALL BU2/1 ,?11
49 CALL BU1/1 ,?12
50 > M/?2 ,F ,5
51 < F ,M/?2 ,5
52 LD ?30,?21
53 ADD ?30,-5
54 LD ?64,?60
55 ADD ?64,6
56 LD ?62,?64
57 ADD ?62,?61
58 ADD ?62,-1
59 LD ?63,7
60 ADD ?63,?63
61 ADD ?63,-1
62 SAP 6A(JJ)1:6A<?64,?62>1Y<7,?63>?30:(A)
63 JC JJ(1)
64 > TH Y
65 RACK L1
66 < TV Y
67 RACK N
68 CALL RAPP1 ,13
69 CALL RAPP2 ,13
70 CALL RAPP3 ,12
71 SAP 6.(JJ)1:6.<?64,?62>1Y<7,?63>?30:(.)
72 CALL RAPP4 ,16
73 SAP 6A(JJ)1:6A<?64,?62>1Y<7,?63>?30:(A)
74 JC JJ(1)
75 CALL RAPP1 ,13
76 CALL RAPP2 ,13
77 CALL RAPP3 ,?13
78 RACK N
79 END DABI
80 ;
81 BEG HILFE
82 VAR 100(3)
83 >>> F ,M/?2 ,2,4,5
84 <<<
85 END HILFE
86 ;
87 BEG BU2/1
88 > MFM/?1 ,2MF/?1 ,1
89 < MFM/?1 ,2MF/?1 ,1
90 > F ,F
91 < MFM/?1 ,2MF/?1 ,8
92 > MFM/?1 ,2MF/?1 ,8
93 < F ,F
94 END BU2/1
95 ;
96 BEG BU1/1
97 > MFM/?1 ,2MF/?1 ,1
98 < MFM/?1 ,2MF/?1 ,1
99 END BU1/1
100 ;
101 BEG RAPP1
102 > ./?5 ,NY/?6 ,5
103 > A/?5 ,NY/?6 ,4
104 > @/?5 ,NY/?6 ,2
105 JC +
106 < ./?5 ,NY/?6 ,5
107 < A/?5 ,NY/?6 ,4
108 < @/?5 ,NY/?6 ,2
109 JC +
110 END RAPP1
111 ;
112 BEG RAPP2
113 > ./?5 ,NY/?6 ,5
114 > A/?5 ,NY/?6 ,4
115 > +/?5 ,NY/?6 ,3
116 JC +
117 < ./?5 ,NY/?6 ,5
118 < A/?5 ,NY/?6 ,4
119 < +/?5 ,NY/?6 ,3
120 JC +
121 END RAPP2
122 ;
123 BEG RAPP3
124 > A/?5 ,NY/?6 ,4
125 > I/?5 ,NY/?6 ,7
126 > @/?5 ,NY/?6 ,2
127 JC +
128 < A/?5 ,NY/?6 ,4
129 < I/?5 ,NY/?6 ,7
130 < @/?5 ,NY/?6 ,2
131 JC +
132 END RAPP3
133 ;
134 BEG RAPP4
135 > ./?5 ,NY/?6 ,5
136 > +/?5 ,NY/?6 ,3
137 > @/?5 ,NY/?6 ,2
138 JC +
139 < ./?5 ,NY/?6 ,5
140 < +/?5 ,NY/?6 ,3
141 < @/?5 ,NY/?6 ,2
142 JC +
143 END RAPP4
144 ;


Добавить комментарий


Защитный код
Обновить