Za korekce češtiny dekuji: MELSOFTovi, Silliconovi, Martinu Lukáškovi a NOSTALCOMPovi
Když začínám blbnout z 8bitů tak se chodím léčit mezi otaku.
ÚVOD | Novinky | 8 Bitů | Příslušenství | Drobnosti | TTL | Kontakt
SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | klony SM50/40 | PETR | PLAN-80A | IQ151 | TNS | FK-1 | HVĚZDA | SP 830 | PCS 1-QR6000
ZPS | Technické prostředky | Programové vybavení | Dokumentace
Upravena verze s doplněnými komentáři dle "SOUŘADNICOVÝ ZAPISOVAČ ŘÍZENÝ MIKROPROCESOREM" z AR MIKROELEKTONIKA/90 str. 22-24
MACRO-80 3.44 09-Dec-81 PAGE 1
1 ;PROGRAM OBSLUHY MINIGRAFU PRES DESKU DPP-1
2 ;V SYSTEMU SAPI-1 ZPS-2
3 ;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
4 ;ODLISNA ADRESACE JE PRO PRIPAD POUZITI DESKY
5 ;PORTU SPOLECNE S OMLADANIM KZD-1 NEBO SP-210
6
7 ;VERSE V.1-MGF V EPROM 1800-1FFF
8 ;150289
9
10 1800 MINIG EQU 1800H
11 18F0 START EQU MINIG+0F0H
12 1CFD STAR1 EQU MINIG+4FDH
13 0033 PORT EQU 033H ;CWR
14 0031 PORT2 EQU PORT-2 ;PORT B
15 C0B1 INC EQU 0C0B1H ;SLUZBA MONITORU
16 011E IODEF EQU 11EH ;SLUZBA MONITORU
17 0139 NEXT EQU 139H ;NAVRAT DO MONITORU
18 FFD0 ZAZN EQU 0FFD0H ;ZAZNAMNIK V RAM
19 ; EQU MINIG-1 ;VERSE V RAM
20 FFCF RMTOP EQU ZAZN-1 ;VERSE V EPROM
21 1D40 TABSK EQU 1D40H ;ADRESA TABULKY ZNAKU ;NIZSI BYTE 40H
22 3800 VIRAM EQU 3800H ;POCATEK VIDEORAM
23 003E KVRAM EQU 3EH ;HORNI BYTE KONCE VIDEORAM
24
25
26 ;TABULKA SKOKU:
27
28 0000' ASEG
29 ORG MINIG
30 1800 00 NOP
31 1801 00 NOP
32 1802 00 NOP
33 1803 CD 19AE CALL ORGB0 ;INICIALIZACE PORTU
34 1806 C3 0139 EXIT: JMP NEXT
35 1809 CD 1CFD CALL TEST ;SPUSTI TEST Z MONITORU
36 180C C3 1806 JMP EXIT
37 180F CD 1C77 CALL COPY1 ;COPY Z MONITORU
38 1812 C3 1806 JMP EXIT
39 1815 CD 18F5 CALL SYST0 ;NASTAVI MINIGRAF JAKO
40 1818 C3 1806 JMP EXIT ;SYST.TISKARNU
41 181B C3 18F0 JMP SYSTB ;DTTO Z BASICU
42 181E 00 NOP
43 181F 00 NOP
44 1820 00 NOP
45 1821 C3 19B4 JMP RAMTP ;SPUSTENI Z BASICU
46 1824 00 NOP
47 1825 00 NOP
48 1826 00 NOP
49 1827 C3 1C72 JMP COPYB ;COPY Z BASICU
50 182A C3 196E JMP MOVA ;MOVA
51 182D C3 196C JMP MOVAB ;MOVA Z BASICU
52 1830 C3 1976 JMP VECTA ;VECTA
53 1833 C3 1974 JMP VECTB ;VECTA Z BASICU
54 1836 C3 197E JMP POINA ;POINTA
55 1839 C3 197C JMP POINB ;POINTA Z BASICU
56 183C C3 1989 JMP MOVR ;MOVR
MACRO-80 3.44 09-Dec-81 PAGE 1-1
57 183F C3 1987 JMP MOVRB ;MOVR Z BASICU
58 1842 C3 1991 JMP VECTR ;VECTR
59 1845 C3 198F JMP VECTC ;VECTR Z BASICU
60 1848 C3 1999 JMP POINR ;POINTR
61 184B C3 1997 JMP PONRB ;POINTR Z BASICU
62 184E C3 19A8 JMP SPEED ;NASTAVI SPEED
63 1851 C3 1AE1 JMP WRTEB ;TISK RETEZCE
64 1854 C3 1B3E JMP ZNAK ;TISK ZNAKU
65 1857 C3 1950 JMP NASXX ;NASTAVENI SIZE XX A YY
66 185A C3 1958 JMP NASYX ;NASTAVENI SIZE XY A YX
67 185D C3 1960 JMP NWIDE ;NASTAVENI WIDE
68 1860 C3 1966 JMP NNARR ;NASTAVENI NARROW
69
70
71 ORG START
72
73 18F0 E5 SYSTB: PUSH H
74 18F1 C1 POP B
75 18F2 C3 18FB JMP SYST
76 18F5 00 SYST0: NOP
77 18F6 00 NOP
78 18F7 00 NOP
79 18F8 00 NOP
80 18F9 00 NOP
81 18FA 00 NOP
82 18FB CD 19C7 SYST: CALL ORG1
83 18FE 3E 01 MVI A,001H ;NAST.ASCII
84 1900 32 FFE3 STA REZIM
85 1903 0E 0D MVI C,00DH
86 1905 11 190C LXI D,TISK
87 1908 CD 011E CALL IODEF
88 190B C9 RET
89 190C C5 TISK: PUSH B ;TEST NA 0AH
90 190D D5 PUSH D
91 190E E5 PUSH H
92 190F 79 MOV A,C
93 1910 FE 0A CPI 0AH
94 1912 C2 1923 JNZ NO0A
95 1915 2A FFE0 LHLD NOPY
96 1918 44 MOV B,H
97 1919 4D MOV C,L
98 191A 11 0000 LXI D,0
99 191D CD 196E CALL MOVA
100 1920 C3 1945 JMP NAVR
101
102 1923 FE 0D NO0A: CPI 0DH ;TEST NA 0DH
103 1925 C2 1949 JNZ NO0D
104 1928 2A FFD8 LHLD SIYY
105 192B 06 08 MVI B,8
106 192D E5 PUSH H
107 192E EB XCHG
108 192F E1 POP H
109 1930 19 POCET: DAD D
110 1931 19 DAD D
111 1932 05 DCR B
112 1933 C2 1930 JNZ POCET
MACRO-80 3.44 09-Dec-81 PAGE 1-2
113 1936 7C MOV A,H
114 1937 2F CMA
115 1938 67 MOV H,A
116 1939 7D MOV A,L
117 193A 2F CMA
118 193B 6F MOV L,A
119 193C 23 INX H
120 193D 44 MOV B,H
121 193E 4D MOV C,L
122 193F 11 0000 LXI D,0
123 1942 CD 1989 CALL MOVR
124 1945 E1 NAVR: POP H
125 1946 D1 POP D
126 1947 C1 POP B
127 1948 C9 RET
128
129 1949 CD 1B3E NO0D: CALL ZNAK
130 194C E1 POP H
131 194D D1 POP D
132 194E C1 POP B
133 194F C9 RET
134
135 1950 22 FFD8 NASXX: SHLD SIYY
136 1953 EB XCHG
137 1954 22 FFD2 SHLD SIXX
138 1957 C9 RET
139 1958 22 FFD6 NASYX: SHLD SIYX
140 195B EB XCHG
141 195C 22 FFD4 SHLD SIXY
142 195F C9 RET
143 1960 3E 00 NWIDE: MVI A,0
144 1962 32 FFE2 STA WIDE
145 1965 C9 RET
146 1966 3E 80 NNARR: MVI A,80H
147 1968 32 FFE2 STA WIDE
148 196B C9 RET
149
150 196C E5 MOVAB: PUSH H
151 196D C1 POP B
152 196E CD 1C3D MOVA: CALL PEN0
153 1971 C3 1A32 JMP ABSO
154 1974 E5 VECTB: PUSH H
155 1975 C1 POP B
156 1976 CD 1C45 VECTA: CALL PEN1
157 1979 C3 1A32 JMP ABSO
158 197C E5 POINB: PUSH H
159 197D C1 POP B
160 197E CD 1C3D POINA: CALL PEN0
161 1981 CD 1A32 CALL ABSO
162 1984 C3 19A2 JMP SK06
163 1987 E5 MOVRB: PUSH H
164 1988 C1 POP B
165 1989 CD 1C3D MOVR: CALL PEN0
166 198C C3 1A27 JMP RELA
167 198F E5 VECTC: PUSH H
168 1990 C1 POP B
MACRO-80 3.44 09-Dec-81 PAGE 1-3
169 1991 CD 1C45 VECTR: CALL PEN1
170 1994 C3 1A27 JMP RELA
171 1997 E5 PONRB: PUSH H
172 1998 C1 POP B
173 1999 CD 1C3D POINR: CALL PEN0
174 199C CD 1A27 CALL RELA
175 199F C3 19A2 JMP SK06
176 19A2 CD 1C45 SK06: CALL PEN1
177 19A5 C3 1C3D JMP PEN0
178 19A8 C6 08 SPEED: ADI 008H
179 19AA 32 017C STA 0017CH
180 19AD C9 RET
181 19AE 21 0000 ORGB0: LXI H,0
182 19B1 11 0000 LXI D,0
183 19B4 D5 RAMTP: PUSH D ;NASTAVI RAMTOP
184 19B5 0E 08 MVI C,8
185 19B7 11 FFCF LXI D,RMTOP
186 19BA CD 011E CALL IODEF
187 19BD D1 POP D
188 19BE 3E 99 ORGB: MVI A,99H ;PORT [A],[C] DOVNITR, [B] VEN
189 19C0 D3 33 OUT PORT
190 19C2 E5 PUSH H
191 19C3 C1 POP B
192 19C4 C3 19C7 JMP ORG1
193 19C7 3E 14 ORG1: MVI A,14H ;NASTAV SI RYCHLOST
194 19C9 32 FFEC STA SPED
195 19CC 32 FFF5 STA P185
196 19CF D5 PUSH D ;SCHOVEJ ZADANE X,Y
197 19D0 C5 PUSH B
198 19D1 3E 01 MVI A,1
199 19D3 32 FFE6 STA SPEN ;ZVEDNI PERO
200 19D6 01 0008 LXI B,8
201 19D9 50 MOV D,B
202 19DA 59 MOV E,C
203 19DB CD 1989 CALL MOVR ;PAR KROKU DOLEVA NAHORU
204 19DE 3E 0B MVI A,0BH ;UPRAV RYCHLOST
205 19E0 32 FFEC STA SPED
206 19E3 21 06A4 LXI H,06A4H ;MAXIMALNI X
207 19E6 22 FFDA SHLD STPX
208 19E9 21 FE70 LXI H,0FE70H;Y PO ZALOZENI PAPIRU
209 19EC 22 FFDC SHLD STPY
210 19EF C1 POP B
211 19F0 C5 PUSH B ;OBNOV Y - PRESUN NA ZADANE Y
212 19F1 11 0000 LXI D,0 ;OKAMZITE A NA 0 DO X
213 19F4 CD 196E CALL MOVA
214 19F7 C1 POP B ;OBNOV Y
215 19F8 C5 PUSH B
216 19F9 11 0050 LXI D,50H ;KOUSEK DOPRAVA
217 19FC CD 196E CALL MOVA
218 19FF AF XRA A
219 1A00 32 FFDA STA STPX
220 1A03 C1 POP B
221 1A04 D1 POP D
222 1A05 CD 196E CALL MOVA
223 1A08 3E 0A NAST: MVI A,0AH
224 1A0A 32 FFF5 STA P185
MACRO-80 3.44 09-Dec-81 PAGE 1-4
225 1A0D 21 0003 NSIZE: LXI H,3 ;STANDARTNI VELIKOST ZNAKU
226 1A10 22 FFD2 SHLD SIXX
227 1A13 22 FFD8 SHLD SIYY
228 1A16 2E 00 MVI L,0
229 1A18 22 FFD4 SHLD SIXY
230 1A1B 22 FFD6 SHLD SIYX
231 1A1E 22 FFE3 SHLD REZIM ;REZIM
232 1A21 3E 80 MVI A,80H
233 1A23 32 FFE2 STA WIDE ;MEZERA
234 1A26 C9 RET
235
236 1A27 2A FFDA RELA: LHLD STPX ;K X PRICTI RELATIVNI DX
237 1A2A 19 DAD D ;= NOVA X
238 1A2B EB XCHG
239 1A2C 2A FFDC LHLD STPY ;TOTEZ S Y
240 1A2F 09 DAD B
241 1A30 44 MOV B,H
242 1A31 4D MOV C,L ;A MUZES UDELAT ABS. PRESUN
243 1A32 2A FFDA ABSO: LHLD STPX ;DE = ZADAVE XZ
244 1A35 EB XCHG ;HL = SKUTECNE X
245 1A36 22 FFDA SHLD STPX ;DE <=> HL ; X <=> XZ
246 1A39 22 FFDE SHLD NOPX ;A ULOZ NA NOVOU POZ. TISKU
247 1A3C CD 1AC7 CALL SMR ;ZJISTI SMER POSUVU PRO X
248 1A3F E5 PUSH H ;SCHOVEJ ROZDIL X A XZ
249 1A40 C5 PUSH B ;SCHOVEJ YZ
250 1A41 4F MOV C,A ;C = SMER POSUVU
251 1A42 D1 POP D ;DE = PREDESLE BC TJ. ZADANA YZ
252 1A43 2A FFDC LHLD STPY ;HL = SKUTECNA Y
253 1A46 EB XCHG ;DE <=> HL ; Y <=> YZ
254 1A47 22 FFDC SHLD STPY
255 1A4A 22 FFE0 SHLD NOPY ;ULOZ
256 1A4D CD 1AC7 CALL SMR ;A ZJISTI SMER PRO Y
257 1A50 07 RLC
258 1A51 07 RLC
259 1A52 07 RLC
260 1A53 07 RLC ;DO VYSICH 4 BITU A
261 1A54 47 MOV B,A
262 1A55 B1 ORA C ;SLOZ S C
263 1A56 32 FFEE STA DIRE ;<= SMER DO Y A DO X
264 1A59 D1 POP D ;OBNOV ROZDIL X A XZ
265 1A5A C8 RZ ;JSOU JI OBA POVUNY 0 VRAT SE
266 1A5B 7D MOV A,L
267 1A5C 93 SUB E
268 1A5D 7C MOV A,H
269 1A5E 9A SBB D ;TEST, KTERY POSUN JE VETSI
270 1A5F 79 MOV A,C ;A = SMER POSUNU A
271 1A60 DA 1A65 JC DALX ;SKOC PROTOZE (YZ-Y)<(XZ-X)
272 1A63 EB XCHG ;DE <=> HL ; (XZ-X) <=> (YZ-Z)
273 1A64 78 MOV A,B ;A = SMER DO Y
274 1A65 32 FFEF DALX: STA DIR1
275 1A68 22 FFF0 SHLD DIFF
276 1A6B 21 0014 LXI H,14H ;MALE POZASTAVENI
277 1A6E CD 1C64 CALL ZPOZ0
278 1A71 3E 29 MVI A,29H
279 1A73 32 FFED STA ACCE ;ROZBEHOVA RYCHLOST
280 1A76 42 MOV B,D ;BC = ROZDIL
MACRO-80 3.44 09-Dec-81 PAGE 1-5
281 1A77 4B MOV C,E
282 1A78 AF XRA A
283 1A79 93 SUB E
284 1A7A 6F MOV L,A
285 1A7B 3E 00 MVI A,0
286 1A7D 9A SBB D
287 1A7E 67 MOV H,A ;HL = DE * -1
288 1A7F AF XRA A
289 1A80 7A MOV A,D
290 1A81 1F RAR
291 1A82 57 MOV D,A
292 1A83 7B MOV A,E
293 1A84 1F RAR
294 1A85 5F MOV E,A ;DE = DE / 2
295 1A86 E5 ABS1: PUSH H ;SCHOVEJ HL A DE
296 1A87 D5 PUSH D
297 1A88 EB XCHG ;DE <=> HL
298 1A89 60 MOV H,B
299 1A8A 69 MOV L,C ;HL = BC
300 1A8B 29 DAD H
301 1A8C 2B DCX H ;HL = HL * 2 - 1
302 1A8D 19 DAD D ;HL = HL + DE
303 1A8E 21 FFED LXI H,ACCE
304 1A91 D2 1A9C JNC ABS2 ;JE-LI HL >= 0 SKOC
305 1A94 3A FFF5 LDA P185
306 1A97 BE CMP M
307 1A98 CA 1A9C JZ ABS2
308 1A9B 35 DCR M
309 1A9C 3E 28 ABS2: MVI A,28H
310 1A9E 96 SUB M
311 1A9F 91 SUB C
312 1AA0 3E 00 MVI A,0
313 1AA2 98 SBB B
314 1AA3 DA 1AA7 JC ABS3
315 1AA6 34 INR M
316 1AA7 2A FFF0 ABS3: LHLD DIFF
317 1AAA D1 POP D
318 1AAB 19 DAD D
319 1AAC EB XCHG
320 1AAD E1 POP H
321 1AAE E5 PUSH H
322 1AAF 19 DAD D
323 1AB0 3A FFEF LDA DIR1
324 1AB3 D2 1ABA JNC ABS4
325 1AB6 EB XCHG
326 1AB7 3A FFEE LDA DIRE
327 1ABA D5 ABS4: PUSH D
328 1ABB CD 1C21 CALL ELEM
329 1ABE 0B DCX B
330 1ABF 78 MOV A,B
331 1AC0 B1 ORA C
332 1AC1 D1 POP D
333 1AC2 E1 POP H
334 1AC3 C2 1A86 JNZ ABS1
335 1AC6 C9 RET
336
MACRO-80 3.44 09-Dec-81 PAGE 1-6
337 1AC7 7D SMR: MOV A,L ;VRATI A = 0 PRO SKUT. = ZADANE
338 ; A = 1 PRO SKUT. < ZADANE
339 ; A = F PRO SKUT. > ZADANE
340 1AC8 93 SUB E
341 1AC9 6F MOV L,A ;L = L - E
342 1ACA 7C MOV A,H
343 1ACB 9A SBB D
344 1ACC 67 MOV H,A ;H = H - D - PREDCHOZI ZNAM.
345 1ACD 29 DAD H ;HL = HL * 2
346 1ACE D2 1ADB JNC SMVL ;-> JE-LI HL KLADNE
347 1AD1 AF XRA A ;ZAPORNE - PREVED NA KLADNE
348 1AD2 95 SUB L
349 1AD3 6F MOV L,A
350 1AD4 3E 00 MVI A,0
351 1AD6 9C SBB H
352 1AD7 67 MOV H,A ;HL = -1 * HL
353 1AD8 3E 0F MVI A,0FH ;PRIZNAK A NAVRAT
354 1ADA C9 RET
355 1ADB 7C SMVL: MOV A,H
356 1ADC B5 ORA L
357 1ADD C8 RZ ;JE-LI HL = 0 VRAT SE
358 1ADE 3E 01 MVI A,01H
359 1AE0 C9 RET ;JINAK PRIZNAK A NAVRAT
360
361 1AE1 EB WRTEB: XCHG ;TISK TEXTU Z BASICU
362 1AE2 59 MOV E,C ;PRAMETRY PREDANY V DE - ODKUD
363 1AE3 C3 1AF0 JMP WRITE ;A DELKA V C
364
365
366 1AE6 2A FFD0 SK08: LHLD P160 ;MRTVY KOD
367 1AE9 5C MOV E,H ;MRTVY KOD
368 1AEA 23 INX H ;MRTVY KOD
369 1AEB 23 INX H ;MRTVY KOD
370 1AEC 7E MOV A,M ;MRTVY KOD
371 1AED 23 INX H ;MRTVY KOD
372 1AEE 66 MOV H,M ;MRTVY KOD
373 1AEF 6F MOV L,A ;MRTVY KOD
374
375
376 1AF0 AF WRITE: XRA A
377 1AF1 32 FFE5 STA COUNZ
378 1AF4 7B WRIT1: MOV A,E
379 1AF5 B7 ORA A ;JE-LI DELKA NULOVA
380 1AF6 C8 RZ ;VRAT SE
381 1AF7 3A FFE5 LDA COUNZ
382 1AFA B7 ORA A ;NENI-LI 1. ZNAK
383 1AFB C2 1B11 JNZ WRIT3 ;SKOC
384 1AFE 7E MOV A,M ;JE TO PRVNI ZNAK
385 1AFF B7 ORA A ;TESTUJ JE-LI 0
386 1B00 CA 1B0A JZ WRIT2 ;JE-LI TAK SKOC
387 1B03 7E MOV A,M ;NENI, JDI JEJ VYTISKNOUT
388 1B04 CD 1B3E CALL ZNAK
389 1B07 C3 1B21 SK19: JMP WRCON
390 1B0A 3C WRIT2: INR A
391 1B0B 32 FFE5 STA COUNZ
392 1B0E CD 1B26 CALL BS08
MACRO-80 3.44 09-Dec-81 PAGE 1-7
393 1B11 7E WRIT3: MOV A,M
394 1B12 CD 1BAA CALL ZNAK4
395 1B15 7E MOV A,M
396 1B16 B7 ORA A
397 1B17 F2 1B21 JP WRCON
398 1B1A AF XRA A
399 1B1B 32 FFE5 STA COUNZ
400 1B1E CD 1B9A CALL ZNAK3
401 1B21 23 WRCON: INX H ;DALSI POZICE ZNAKU
402 1B22 1D DCR E ;ZBIVAJICI POZET
403 1B23 C3 1AF4 JMP WRIT1 ;A ZNOVU
404 1B26 E5 BS08: PUSH H ;NENI-LI NASTAVEN BS
405 1B27 21 FFE4 LXI H,ZBS ;NA NULU NEDELA NIC
406 1B2A AF XRA A
407 1B2B BE CMP M
408 1B2C 77 MOV M,A
409 1B2D C2 1B3C JNZ BSNA
410 1B30 2A FFDE LHLD NOPX ;JINAK NASTAVI TISK ZNAKU
411 1B33 22 FFE8 SHLD PREX ;NA NOVOU POZICI
412 1B36 2A FFE0 LHLD NOPY
413 1B39 22 FFEA SHLD PREY
414 1B3C E1 BSNA: POP H
415 1B3D C9 RET
416
417 1B3E E5 ZNAK: PUSH H
418 1B3F 21 FFE4 LXI H,ZBS
419 1B42 FE 08 CPI 8
420 1B44 C2 1B4A JNZ NOBS
421 1B47 77 MOV M,A ;MA-LI KOD $08
422 1B48 E1 POP H ;POZE JEJ ULOZ
423 1B49 C9 RET ;A RETURN
424 1B4A E6 7F NOBS: ANI 7FH ;POZE 7 BITU
425 1B4C 4F MOV C,A
426 1B4D CD 1B26 CALL BS08 ;VYHODNOT BYL-LI KOD $08
427 1B50 3A FFE3 LDA REZIM
428 1B53 B7 ORA A
429 1B54 C2 1B61 JNZ NODIA ;SKOC PRI ASCII REZIMU
430 1B57 79 MOV A,C
431 1B58 FE 7B CPI 7BH
432 1B5A DA 1B61 JC NODIA ;SKOC NENI-LI TO DIAKR ZNAK
433 1B5D C6 05 ADI 5 ;ZVIS NA DIAKR. ZNAMENKA
434 1B5F 4F MOV C,A
435 1B60 34 INR M
436 1B61 79 NODIA: MOV A,C ;ZNAK DO A
437 1B62 FE 20 CPI 20H ;JE LI MENSI NEZ 20H
438 1B64 DA 1B99 JC ZNAK2 ;SKOC
439 1B67 E6 F8 ANI 0F8H ;NE NULUJ 3 NEJNIZSI BITY
440 1B69 1F RAR ;VYDEL 2
441 1B6A 1F RAR ; 4
442 1B6B C6 F8 ADI 0F8H ;ODECTI 3
443 1B6D C6 40 ADI LOW TABSK;+ NIZSI BYTE ADRESY TAB
444 1B6F 6F MOV L,A ;DO L
445 1B70 3E 00 MVI A,0
446 1B72 CE 1D ACI HIGH TABSK
447 1B74 67 MOV H,A ;DO H VYSSI BYTE TABULKY
448 1B75 7E MOV A,M
MACRO-80 3.44 09-Dec-81 PAGE 1-8
449 1B76 23 INX H
450 1B77 66 MOV H,M
451 1B78 6F MOV L,A ;DO HL ADRESU GENERATORU
452 1B79 79 MOV A,C
453 1B7A E6 07 ANI 7 ;POUZE 3 NEJNIZSI BITY
454 1B7C 4F MOV C,A
455 1B7D CA 1B8A JZ VYZN ;JSOU-JI 0 SKOC
456 1B80 7E SKZN: MOV A,M ;NEJSOU
457 1B81 B7 ORA A
458 1B82 23 INX H
459 1B83 F2 1B80 JP SKZN ;TESTUJ NEJVISSI BIT
460 1B86 0D DCR C
461 1B87 C2 1B80 JNZ SKZN ;SKOK NA ZNAK PODLE NICH
462 1B8A 3E 08 VYZN: MVI A,8 ;ZNAK V CG VYBRAN
463 1B8C CD 1BAA CALL ZNAK4
464 1B8F 7E ZNAK1: MOV A,M
465 1B90 CD 1BAA CALL ZNAK4
466 1B93 7E MOV A,M
467 1B94 23 INX H
468 1B95 B7 ORA A
469 1B96 F2 1B8F JP ZNAK1
470 1B99 E1 ZNAK2: POP H
471 1B9A E5 ZNAK3: PUSH H
472 1B9B 3A FFE2 LDA WIDE
473 1B9E 07 RLC
474 1B9F 17 RAL
475 1BA0 C6 F6 ADI 0F6H
476 1BA2 2F CMA
477 1BA3 0E 00 MVI C,0
478 1BA5 CD 1BAD CALL ZNAK5
479 1BA8 E1 POP H
480 1BA9 C9 RET
481
482 1BAA 4F ZNAK4: MOV C,A
483 1BAB E6 07 ANI 7
484 1BAD E5 ZNAK5: PUSH H
485 1BAE D5 PUSH D
486 1BAF F5 PUSH PSW
487 1BB0 2A FFD2 LHLD SIXX
488 1BB3 EB XCHG
489 1BB4 2A FFE8 LHLD PREX
490 1BB7 CD 1C0F CALL ZNAK8
491 1BBA EB XCHG
492 1BBB 79 MOV A,C
493 1BBC E6 38 ANI 38H
494 1BBE 1F RAR
495 1BBF 1F RAR
496 1BC0 1F RAR
497 1BC1 21 FFE4 LXI H,ZBS
498 1BC4 86 ADD M
499 1BC5 47 MOV B,A
500 1BC6 2A FFD6 LHLD SIYX
501 1BC9 EB XCHG
502 1BCA CD 1C0F CALL ZNAK8
503 1BCD F1 POP PSW
504 1BCE E5 PUSH H
MACRO-80 3.44 09-Dec-81 PAGE 1-9
505 1BCF 2A FFD4 LHLD SIXY
506 1BD2 EB XCHG
507 1BD3 2A FFEA LHLD PREY
508 1BD6 CD 1C0F CALL ZNAK8
509 1BD9 78 MOV A,B
510 1BDA EB XCHG
511 1BDB 2A FFD8 LHLD SIYY
512 1BDE EB XCHG
513 1BDF CD 1C0F CALL ZNAK8
514 1BE2 E5 PUSH H
515 1BE3 79 MOV A,C
516 1BE4 E6 40 ANI 40H
517 1BE6 CA 1C01 JZ ZNAK6
518 1BE9 2A FFDE LHLD NOPX
519 1BEC EB XCHG
520 1BED 2A FFE0 LHLD NOPY
521 1BF0 44 MOV B,H
522 1BF1 4D MOV C,L
523 1BF2 3A FFE6 LDA SPEN
524 1BF5 B7 ORA A
525 1BF6 CC 196E CZ MOVA
526 1BF9 C1 POP B
527 1BFA D1 POP D
528 1BFB CD 1976 CALL VECTA
529 1BFE C3 1C0C JMP ZNAK7
530 1C01 CD 1C3D ZNAK6: CALL PEN0
531 1C04 E1 POP H
532 1C05 22 FFE0 SHLD NOPY
533 1C08 E1 POP H
534 1C09 22 FFDE SHLD NOPX
535 1C0C D1 ZNAK7: POP D
536 1C0D E1 POP H
537 1C0E C9 RET
538
539 1C0F 1C ZNAK8: INR E
540 1C10 1D DCR E
541 1C11 C8 RZ
542 1C12 E5 PUSH H
543 1C13 21 0000 LXI H,0
544 1C16 3D ZNAK9: DCR A
545 1C17 FA 1C1E JM ZNAK0
546 1C1A 19 DAD D
547 1C1B C3 1C16 JMP ZNAK9
548 1C1E D1 ZNAK0: POP D
549 1C1F 19 DAD D
550 1C20 C9 RET
551
552 ;PROVED KROK S MOTORY
553
554 1C21 2A FFE7 ELEM: LHLD SMOT ;OKAMZITY STAV MOTORU
555 1C24 67 MOV H,A
556 1C25 85 ADD L ;PRICTI KROK K MOTORU
557 1C26 E6 0F ANI 0FH ;SPODNI BITY MOTORU
558 1C28 5F MOV E,A ;DO E
559 1C29 7C MOV A,H ;DRUHY MOTOR
560 1C2A E6 F0 ANI 0F0H ;VYSSI BITY
MACRO-80 3.44 09-Dec-81 PAGE 1-10
561 1C2C 85 ADD L ;PRICTI KROK
562 1C2D E6 F0 ANI 0F0H ;OPET POUZE VYSSI BITY
563 1C2F B3 ORA E ;SLOZ S E
564 1C30 32 FFE7 STA SMOT ;ULOZ TO NA STAV MOTORU
565 1C33 AF XRA A
566 1C34 67 MOV H,A
567 1C35 3A FFED LDA ACCE
568 1C38 1F RAR
569 1C39 6F MOV L,A ;HL = RYCHLOST SNIZENA NA 1/2
570 1C3A C3 1C52 JMP NASTM
571 1C3D 3A FFE6 PEN0: LDA SPEN ;ZVEDNI PERO
572 1C40 3D DCR A
573 1C41 C0 RNZ ;JE LI ZVEDNUTO VRAT SE
574 1C42 C3 1C4C JMP NASTP
575 1C45 3A FFE6 PEN1: LDA SPEN ;SPUST PERO
576 1C48 3D DCR A
577 1C49 C8 RZ ;JE-LI UZ DOLE VRAT SE
578 1C4A 3E 01 MVI A,1
579 1C4C 32 FFE6 NASTP: STA SPEN ;ULOZ TO NA STAV PERA
580 1C4F 21 01F4 LXI H,1F4H ;PAUZA PRO PERO
581 1C52 E5 NASTM: PUSH H
582 1C53 2A FFE6 LHLD SPEN
583 1C56 7C MOV A,H
584 1C57 E6 0E ANI 0EH
585 1C59 B5 ORA L
586 1C5A 6F MOV L,A
587 1C5B 7C MOV A,H
588 1C5C E6 E0 ANI 0E0H
589 1C5E 0F RRC
590 1C5F B5 ORA L
591 1C60 0F RRC
592 1C61 D3 31 OUT PORT2 ;POSLI TO NA MOTORY
593 1C63 E1 POP H
594 1C64 3A FFEC ZPOZ0: LDA SPED
595 1C67 3D ZPOZ1: DCR A
596 1C68 C2 1C67 JNZ ZPOZ1
597 1C6B 2B DCX H
598 1C6C 7C MOV A,H
599 1C6D B5 ORA L
600 1C6E C2 1C64 JNZ ZPOZ0
601 1C71 C9 RET
602
603 1C72 44 COPYB: MOV B,H
604 1C73 4D MOV C,L
605 1C74 C3 1C7B JMP COPY2
606 1C77 C5 COPY1: PUSH B
607 1C78 D5 PUSH D
608 1C79 C1 POP B
609 1C7A D1 POP D
610 1C7B C5 COPY2: PUSH B
611 1C7C D5 PUSH D
612 1C7D CD 196E CALL MOVA
613 1C80 11 02F0 LXI D,2F0H ;RAMECEK
614 1C83 01 0000 LXI B,0
615 1C86 C5 PUSH B
616 1C87 CD 1991 CALL VECTR
MACRO-80 3.44 09-Dec-81 PAGE 1-11
617 1C8A D1 POP D
618 1C8B D5 PUSH D
619 1C8C 01 FD08 LXI B,0FD08H
620 1C8F CD 1991 CALL VECTR
621 1C92 11 FD10 LXI D,0FD10H
622 1C95 C1 POP B
623 1C96 CD 1991 CALL VECTR
624 1C99 D1 POP D
625 1C9A C1 POP B
626 1C9B CD 1976 CALL VECTA
627 1C9E 11 0012 LXI D,12H ;POC.TISKU
628 1CA1 01 FFDC LXI B,0FFDCH
629 1CA4 CD 1989 CALL MOVR
630 1CA7 CD 1A0D CALL NSIZE
631 1CAA 3E 01 MVI A,1 ;NAST.ASCII
632 1CAC 32 FFE3 STA REZIM
633 1CAF 2A FFDA LHLD STPX
634 1CB2 EB XCHG
635 1CB3 21 3800 LXI H,VIRAM
636 1CB6 7E DALZN: MOV A,M
637 1CB7 E6 20 ANI 020H ;PREKODOVANI AND->ASCII
638 1CB9 7E MOV A,M
639 1CBA C2 1CBF JNZ VYST
640 1CBD F6 40 ORI 40H ;DOPL.BITU 6 NA ASCII
641 1CBF CD 1B3E VYST: CALL ZNAK
642 1CC2 7E MOV A,M ;TEST NA DVOJ.SIRKU ZN.
643 1CC3 2F CMA
644 1CC4 E6 C0 ANI 0C0H
645 1CC6 C2 1CCF JNZ NENI
646 1CC9 3E 20 MVI A,020H ;KOD MEZERY
647 1CCB CD 1B3E CALL ZNAK
648 1CCE 23 INX H
649 1CCF 23 NENI: INX H
650 1CD0 7D MOV A,L
651 1CD1 E6 3F ANI 03FH ;DALSI RADEK?
652 1CD3 FE 28 CPI 028H ;>27H=KONEC RADKU
653 1CD5 DA 1CB6 JC DALZN
654 1CD8 C5 DALR: PUSH B
655 1CD9 01 0018 LXI B,18H
656 1CDC 09 DAD B ;DALSI PAM.MISTO
657 1CDD C1 POP B
658 1CDE E5 PUSH H
659 1CDF D5 PUSH D
660 1CE0 01 FFE0 LXI B,0FFE0H
661 1CE3 2A FFE0 LHLD NOPY
662 1CE6 09 DAD B
663 1CE7 44 MOV B,H
664 1CE8 4D MOV C,L
665 1CE9 CD 196E CALL MOVA ;NA DALSI RADEK
666 1CEC D1 POP D
667 1CED E1 POP H
668 1CEE 7C MOV A,H ;TEST NA KONEC VIDEORAM
669 1CEF FE 3E CPI KVRAM
670 1CF1 DA 1CB6 JC DALZN
671 1CF4 C3 1A0D JMP NSIZE
672
MACRO-80 3.44 09-Dec-81 PAGE 1-12
673 ORG STAR1
674
675 1CFD 11 0186 TEST: LXI D,186H
676 1D00 01 FF10 LXI B,0FF10H
677 1D03 CD 19C7 CALL ORG1 ;PROVED ORG NA POZICI X,Y
678 1D06 3E 0A MVI A,0AH
679 1D08 32 FFD2 STA SIXX
680 1D0B 32 FFD8 STA SIYY ;VELIKOST ZNAKU
681 1D0E 87 ADD A
682 1D0F 32 FFF5 STA P185
683 1D12 AF XRA A
684 1D13 32 FFE2 STA WIDE ;MEZERA
685 1D16 3C INR A
686 1D17 32 FFE3 STA REZIM ;ASCII REZIM
687 1D1A 26 20 MVI H,20H
688 1D1C 7C TCON: MOV A,H ;SMICKA PRO TISK CELE TAB.
689 1D1D CD 1B3E CALL ZNAK
690 1D20 24 INR H
691 1D21 7C MOV A,H
692 1D22 E6 07 ANI 7
693 1D24 C2 1D1C JNZ TCON ;DALSI ZNAK
694 1D27 E5 PUSH H ;BYLA UZ RADKA
695 1D28 62 MOV H,D
696 1D29 6B MOV L,E
697 1D2A 22 FFDE SHLD NOPX
698 1D2D 2A FFE0 LHLD NOPY ;POSUN NA DALSI
699 1D30 01 FF80 LXI B,0FF80H;RADEK
700 1D33 09 DAD B
701 1D34 22 FFE0 SHLD NOPY
702 1D37 E1 POP H
703 1D38 7C MOV A,H
704 1D39 B7 ORA A
705 1D3A F2 1D1C JP TCON
706 1D3D C3 1A08 JMP NAST
707
708
709 ORG TABSK
710
711 1D40 1D5A 1D8D DW TAB20,TAB28,TAB30,TAB38,TAB40
712 1D44 1DA6 1DE0
713 1D48 1E18
714 1D4A 1E55 1E7C DW TAB48,TAB50,TAB58,TAB60,TAB68
715 1D4E 1EB2 1ECD
716 1D52 1F06
717 1D54 1F3A 1F69 DW TAB70,TAB78,TAB80
718 1D58 1F8D
719
720 1D5A 80 3A 5A 0A TAB20: DB 80H,3AH,5AH,0AH,0CAH,31H,7AH
721 1D5E CA 31 7A
722 1D61 32 FB 39 49 DB 32H,0FBH,39H,49H,0BH,7BH,2CH,68H,18H,0DCH
723 1D65 0B 7B 2C 68
724 1D69 18 DC
725 1D6B 10 53 5C 63 DB 10H,53H,5CH,63H,61H,68H,71H
726 1D6F 61 68 71
727 1D72 74 3A CA 7C DB 74H,3AH,0CAH,7CH,39H,70H,69H
728 1D76 39 70 69
MACRO-80 3.44 09-Dec-81 PAGE 1-13
729 1D79 72 79 1B 52 DB 72H,79H,1BH,52H,4BH,54H,0DBH
730 1D7D 4B 54 DB
731 1D80 0C 68 70 79 DB 0CH,68H,70H,79H,7AH,73H,6BH
732 1D84 7A 73 6B
733 1D87 50 49 4A DC DB 50H,49H,4AH,0DCH,3BH,0F2H
734 1D8B 3B F2
735 1D8D 3B 69 59 CB TAB28: DB 3BH,69H,59H,0CBH,39H,6BH,5BH
736 1D91 39 6B 5B
737 1D94 C9 11 73 24 DB 0C9H,11H,73H,24H,60H,31H,0D3H
738 1D98 60 31 D3
739 1D9B 20 64 32 D2 DB 20H,64H,32H,0D2H,12H,0C1H,20H
740 1D9F 12 C1 20
741 1DA2 E4 0A CA FC DB 0E4H,0AH,0CAH,0FCH
742 1DA6 7C 34 54 4B TAB30: DB 7CH,34H,54H,4BH,49H,50H,70H
743 1DAA 49 50 70
744 1DAD 79 7B F4 29 DB 79H,7BH,0F4H,29H,7BH,0CBH,30H
745 1DB1 7B CB 30
746 1DB4 79 7B 74 6C DB 79H,7BH,74H,6CH,48H,0CCH,30H
747 1DB8 48 CC 30
748 1DBB 79 7B 74 6C DB 79H,7BH,74H,6CH,63H,5CH,54H
749 1DBF 63 5C 54
750 1DC2 4B 49 D0 0B DB 4BH,49H,0D0H,0BH,7BH,58H,0DCH
751 1DC6 7B 58 DC
752 1DC9 10 49 4B 54 DB 10H,49H,4BH,54H,5CH,63H,60H
753 1DCD 5C 63 60
754 1DD0 78 FC 34 7B DB 78H,0FCH,34H,7BH,79H,70H,50H
755 1DD4 79 70 50
756 1DD7 49 4B 54 5C DB 49H,4BH,54H,5CH,63H,61H,0D8H,7CH,0F8H
757 1DDB 63 61 D8 7C
758 1DDF F8
759 1DE0 09 50 58 61 TAB38: DB 09H,50H,58H,61H,63H,6CH,74H
760 1DE4 63 6C 74
761 1DE7 7B 79 70 68 DB 7BH,79H,70H,68H,61H,63H,5CH
762 1DEB 61 63 5C
763 1DEE 54 4B C9 10 DB 54H,4BH,0C9H,10H,49H,4BH,54H
764 1DF2 49 4B 54
765 1DF5 74 7B 79 70 DB 74H,7BH,79H,70H,68H,61H,63H
766 1DF9 68 61 63
767 1DFC EC 1A 5A 2A DB 0ECH,1AH,5AH,2AH,0EAH,01H,52H
768 1E00 EA 01 52
769 1E03 22 E2 33 61 DB 22H,0E2H,33H,61H,0D3H,28H,6CH
770 1E07 D3 28 6C
771 1E0A 18 DC 31 63 DB 18H,0DCH,31H,63H,0D1H,30H,79H
772 1E0E D1 30 79
773 1E11 7B 74 6C 5A DB 7BH,74H,6CH,5AH,52H,0AH,0CAH
774 1E15 52 0A CA
775 1E18 68 71 73 6C TAB40: DB 68H,71H,73H,6CH,54H,4BH,4AH
776 1E1C 54 4B 4A
777 1E1F 51 61 6A 63 DB 51H,61H,6AH,63H,0CBH,7AH,4CH
778 1E23 CB 7A 4C
779 1E26 21 E3 78 7B DB 21H,0E3H,78H,7BH,74H,6CH,63H
780 1E2A 74 6C 63
781 1E2D 60 63 5C 54 DB 60H,63H,5CH,54H,4BH,0C8H,34H
782 1E31 4B C8 34
783 1E34 7B 79 70 50 DB 7BH,79H,70H,50H,49H,4BH,0D4H
784 1E38 49 4B D4
MACRO-80 3.44 09-Dec-81 PAGE 1-14
785 1E3B 78 7B 74 54 DB 78H,7BH,74H,54H,4BH,0C8H,3CH
786 1E3F 4B C8 3C
787 1E42 78 48 4C 20 DB 78H,48H,4CH,20H,0E2H,78H,7CH,20H,0E2H
788 1E46 E2 78 7C 20
789 1E4A E2
790 1E4B 34 7B 79 70 DB 34H,7BH,79H,70H,50H,49H,4BH,54H,5CH,0DAH
791 1E4F 50 49 4B 54
792 1E53 5C DA
793 1E55 78 3C 4C 20 TAB48: DB 78H,3CH,4CH,20H,0E4H,09H,4BH,4AH
794 1E59 E4 09 4B 4A
795 1E5D 7A 79 FB 10 DB 7AH,79H,0FBH,10H,49H,4BH,54H
796 1E61 49 4B 54
797 1E64 FC 78 3C 60 DB 0FCH,78H,3CH,60H,0CCH,38H,48H
798 1E68 CC 38 48
799 1E6B CC 78 62 7C DB 0CCH,78H,62H,7CH,0CCH,78H,4CH
800 1E6F CC 78 4C
801 1E72 FC 09 50 70 DB 0FCH,09H,50H,70H,79H,7BH,74H,54H,4BH,0C9H
802 1E76 79 7B 74 54
803 1E7A 4B C9
804 1E7C 78 7B 74 6C TAB50: DB 78H,7BH,74H,6CH,63H,0E0H,09H
805 1E80 63 E0 09
806 1E83 50 70 79 7B DB 50H,70H,79H,7BH,74H,54H,4BH
807 1E87 74 54 4B
808 1E8A 49 1A CC 78 DB 49H,1AH,0CCH,78H,7BH,74H,6CH
809 1E8E 7B 74 6C
810 1E91 63 60 CC 10 DB 63H,60H,0CCH,10H,49H,4BH,54H
811 1E95 49 4B 54
812 1E98 5C 63 61 68 DB 5CH,63H,61H,68H,70H,79H,7BH
813 1E9C 70 79 7B
814 1E9F F4 38 7C 3A DB 0F4H,38H,7CH,3AH,0CAH,38H,50H
815 1EA3 CA 38 50
816 1EA6 49 4B 54 FC DB 49H,4BH,54H,0FCH,38H,4AH,0FCH
817 1EAA 38 4A FC
818 1EAD 38 49 6A 4B DB 38H,49H,6AH,4BH,0FCH
819 1EB1 FC
820 1EB2 7C 38 CC 38 TAB58: DB 7CH,38H,0CCH,38H,62H,7CH,22H
821 1EB6 62 7C 22
822 1EB9 CA 38 7C 48 DB 0CAH,38H,7CH,48H,0CCH,3BH,79H
823 1EBD CC 3B 79
824 1EC0 49 CB 38 CC DB 49H,0CBH,38H,0CCH,39H,7BH,4BH
825 1EC4 39 7B 4B
826 1EC7 C9 31 7A F3 DB 0C9H,31H,7AH,0F3H,0H,0C4H
827 1ECB 00 C4
828 1ECD 39 F2 29 6B TAB60: DB 39H,0F2H,29H,6BH,64H,54H,4BH
829 1ED1 64 54 4B
830 1ED4 49 50 59 5B DB 49H,50H,59H,5BH,54H,0CCH,78H
831 1ED8 54 CC 78
832 1EDB 28 6B 64 54 DB 28H,6BH,64H,54H,4BH,0C8H,2CH
833 1EDF 4B C8 2C
834 1EE2 69 60 50 49 DB 69H,60H,50H,49H,0CCH,3CH,4CH
835 1EE6 CC 3C 4C
836 1EE9 49 50 60 69 DB 49H,50H,60H,69H,0ECH,18H,5CH
837 1EED EC 18 5C
838 1EF0 64 6B 69 60 DB 64H,6BH,69H,60H,50H,49H,0CCH
839 1EF4 50 49 CC
840 1EF7 0A 72 7B 7C DB 0AH,72H,7BH,7CH,21H,0E3H,00H
MACRO-80 3.44 09-Dec-81 PAGE 1-15
841 1EFB 21 E3 00
842 1EFE 43 4C 6C 69 DB 43H,4CH,6CH,69H,60H,58H,51H,0D4H
843 1F02 60 58 51 D4
844 1F06 78 28 6B 64 TAB68: DB 78H,28H,6BH,64H,0CCH,09H,4BH
845 1F0A CC 09 4B
846 1F0D 4A 6A 69 3A DB 4AH,6AH,69H,3AH,0FAH,01H,42H
847 1F11 FA 01 42
848 1F14 4B 6B 6A 3B DB 4BH,6BH,6AH,3BH,0FBH,78H,2CH
849 1F18 FB 78 2C
850 1F1B 58 CC 09 4B DB 58H,0CCH,09H,4BH,4AH,7AH,0F9H
851 1F1F 4A 7A F9
852 1F22 68 60 69 62 DB 68H,60H,69H,62H,4AH,22H,6BH
853 1F26 4A 22 6B
854 1F29 64 CC 68 60 DB 64H,0CCH,68H,60H,69H,6BH,64H
855 1F2D 69 6B 64
856 1F30 CC 09 50 60 DB 0CCH,09H,50H,60H,69H,6BH,64H,54H,4BH,0C9H
857 1F34 69 6B 64 54
858 1F38 4B C9
859 1F3A 00 68 6B 64 TAB70: DB 00H,68H,6BH,64H,5CH,53H,0D0H
860 1F3E 5C 53 D0
861 1F41 04 6C 69 60 DB 04H,6CH,69H,60H,58H,51H,0D4H
862 1F45 58 51 D4
863 1F48 09 69 61 6A DB 09H,69H,61H,6AH,6BH,0E4H,4BH
864 1F4C 6B E4 4B
865 1F4F 54 5B 59 60 DB 54H,5BH,59H,60H,69H,0ECH,0CH
866 1F53 69 EC 0C
867 1F56 4B 52 7A 29 DB 4BH,52H,7AH,29H,0EBH,28H,50H,49H
868 1F5A EB 28 50 49
869 1F5E 4B 54 EC 28 DB 4BH,54H,0ECH,28H,4AH,0ECH,28H
870 1F62 4A EC 28
871 1F65 49 62 4B EC DB 49H,62H,4BH,0ECH
872 1F69 6C 28 CC 00 TAB78: DB 6CH,28H,0CCH,0H,43H,4CH,6CH
873 1F6D 43 4C 6C
874 1F70 28 58 51 D4 DB 28H,58H,51H,0D4H,28H,6CH,48H
875 1F74 28 6C 48
876 1F77 CC 0B 52 5A DB 0CCH,0BH,52H,5AH,61H,6AH,72H
877 1F7B 61 6A 72
878 1F7E FB 0A FA 09 DB 0FBH,0AH,0FAH,09H,52H,5AH,63H
879 1F82 52 5A 63
880 1F85 6A 72 F9 20 DB 6AH,72H,0F9H,20H,69H,5BH,0E4H,80H
881 1F89 69 5B E4 80
882 1F8D 32 FB 2A 71 TAB80: DB 32H,0FBH,2AH,71H,7AH,73H,0EAH
883 1F91 7A 73 EA
884 1F94 39 72 FB 31 DB 39H,72H,0FBH,31H,7AH,0F3H,39H,79H,3BH,0FBH
885 1F98 7A F3 39 79
886 1F9C 3B FB
887
888
889 .PHASE ZAZN ;BLOK PROMENICH V ZAZNAMNIKU
890
891 FFD0 P160: DS 2
892 FFD2 SIXX: DS 2 ;VELIKOST PISMA XX
893 FFD4 SIXY: DS 2 ;VELIKOST PISMA XY
894 FFD6 SIYX: DS 2 ;VELIKOST PISMA YX
895 FFD8 SIYY: DS 2 ;VELIKOST PISMA YY
896
MACRO-80 3.44 09-Dec-81 PAGE 1-16
897 FFDA STPX: DS 2 ;OKAMZITA POLOHA PERA X
898 FFDC STPY: DS 2 ;OKAMZITA POLOHA PERA Y
899 FFDE NOPX: DS 2 ;POLOHA PRISTIHO TISKU ZN. X
900 FFE0 NOPY: DS 2 ;POLOHA PRISTIHO TISKU ZN. Y
901
902 FFE2 WIDE: DS 1 ;DRUH MEZERY MEZI ZNAKY
903 FFE3 REZIM: DS 1 ;REZIM DIAKRITICKY/ASCII
904
905 FFE4 ZBS: DS 1 ;ZAZN+14H
906 FFE5 COUNZ: DS 1 ;CITAC ZNAKU PRI F. WRITE
907
908 FFE6 SPEN: DS 1 ;OKAMZITY STAV PERA
909 FFE7 SMOT: DS 1 ;STAV KROKOVYCH MOTORKU
910
911 FFE8 PREX: DS 2 ;SOUR. PREDCHOZIHO TISKU X
912 FFEA PREY: DS 2 ;SOUR. PREDCHOZIHO TISKU Y
913
914 FFEC SPED: DS 1 ;AKTUALNI RICHLOST POSUVU
915
916 FFED ACCE: DS 1 ;RICHLOST PRI ROZBEHU
917 FFEE DIRE: DS 1 ;SMER DO OS Y A X
918 FFEF DIR1: DS 1 ;
919 FFF0 DIFF: DS 2 ;ROZDIL SOUR. ZADANE A SKUT.
920 FFF2 DS 3
921 FFF5 P185: DS 2 ;ZAZN + 25H
922 .DEPHASE
923
924 END
MACRO-80 3.44 09-Dec-81 PAGE S
Macros:
Symbols:
1A86 ABS1 1A9C ABS2 1AA7 ABS3
1ABA ABS4 1A32 ABSO FFED ACCE
1B26 BS08 1B3C BSNA 1C77 COPY1
1C7B COPY2 1C72 COPYB FFE5 COUNZ
1CD8 DALR 1A65 DALX 1CB6 DALZN
FFF0 DIFF FFEF DIR1 FFEE DIRE
1C21 ELEM 1806 EXIT C0B1 INC
011E IODEF 003E KVRAM 1800 MINIG
196E MOVA 196C MOVAB 1989 MOVR
1987 MOVRB 1A08 NAST 1C52 NASTM
1C4C NASTP 1950 NASXX 1958 NASYX
1945 NAVR 1CCF NENI 0139 NEXT
1966 NNARR 1923 NO0A 1949 NO0D
1B4A NOBS 1B61 NODIA FFDE NOPX
FFE0 NOPY 1A0D NSIZE 1960 NWIDE
19C7 ORG1 19BE ORGB 19AE ORGB0
FFD0 P160 FFF5 P185 1C3D PEN0
1C45 PEN1 1930 POCET 197E POINA
197C POINB 1999 POINR 1997 PONRB
0033 PORT 0031 PORT2 FFE8 PREX
FFEA PREY 19B4 RAMTP 1A27 RELA
FFE3 REZIM FFCF RMTOP FFD2 SIXX
FFD4 SIXY FFD6 SIYX FFD8 SIYY
19A2 SK06 1AE6 SK08 1B07 SK19
1B80 SKZN FFE7 SMOT 1AC7 SMR
1ADB SMVL FFEC SPED 19A8 SPEED
FFE6 SPEN 1CFD STAR1 18F0 START
FFDA STPX FFDC STPY 18FB SYST
18F5 SYST0 18F0 SYSTB 1D5A TAB20
1D8D TAB28 1DA6 TAB30 1DE0 TAB38
1E18 TAB40 1E55 TAB48 1E7C TAB50
1EB2 TAB58 1ECD TAB60 1F06 TAB68
1F3A TAB70 1F69 TAB78 1F8D TAB80
1D40 TABSK 1D1C TCON 1CFD TEST
190C TISK 1976 VECTA 1974 VECTB
198F VECTC 1991 VECTR 3800 VIRAM
1CBF VYST 1B8A VYZN FFE2 WIDE
1B21 WRCON 1AF4 WRIT1 1B0A WRIT2
1B11 WRIT3 1AF0 WRITE 1AE1 WRTEB
FFD0 ZAZN FFE4 ZBS 1B3E ZNAK
1C1E ZNAK0 1B8F ZNAK1 1B99 ZNAK2
1B9A ZNAK3 1BAA ZNAK4 1BAD ZNAK5
1C01 ZNAK6 1C0C ZNAK7 1C0F ZNAK8
1C16 ZNAK9 1C64 ZPOZ0 1C67 ZPOZ1
No Fatal error(s)
ABS1 295# 334
ABS2 304 307 309#
ABS3 314 316#
ABS4 324 327#
ABSO 153 157 161 243#
ACCE 279 303 567 916#
BS08 392 404# 426
BSNA 409 414#
COPY1 37 606#
COPY2 605 610#
COPYB 49 603#
COUNZ 377 381 391 399 906#
DALR 654#
DALX 271 274#
DALZN 636# 653 670
DIFF 275 316 919#
DIR1 274 323 918#
DIRE 263 326 917#
ELEM 328 554#
EXIT 34# 36 38 40
INC 15#
IODEF 16# 87 186
KVRAM 23# 669
MINIG 10# 11 12 29
MOVA 50 99 152# 213 217 222 525 612 665
MOVAB 51 150#
MOVR 56 123 165# 203 629
MOVRB 57 163#
NAST 223# 706
NASTM 570 581#
NASTP 574 579#
NASXX 65 135#
NASYX 66 139#
NAVR 100 124#
NENI 645 649#
NEXT 17# 34
NNARR 68 146#
NO0A 94 102#
NO0D 103 129#
NOBS 420 424#
NODIA 429 432 436#
NOPX 246 410 518 534 697 899#
NOPY 95 255 412 520 532 661 698 701 900#
NSIZE 225# 630 671
NWIDE 67 143#
ORG1 82 192 193# 677
ORGB 188#
ORGB0 33 181#
P160 366 891#
P185 195 224 305 682 921#
PEN0 152 160 165 173 177 530 571#
PEN1 156 169 176 575#
POCET 109# 112
POINA 54 160#
POINB 55 158#
POINR 60 173#
PONRB 61 171#
PORT 13# 14 189
PORT2 14# 592
PREX 411 489 911#
PREY 413 507 912#
RAMTP 45 183#
RELA 166 170 174 236#
REZIM 84 231 427 632 686 903#
RMTOP 20# 185
SIXX 137 226 487 679 892#
SIXY 141 229 505 893#
SIYX 139 230 500 894#
SIYY 104 135 227 511 680 895#
SK06 162 175 176#
SK08 366#
SK19 389#
SKZN 456# 459 461
SMOT 554 564 909#
SMR 247 256 337#
SMVL 346 355#
SPED 194 205 594 914#
SPEED 62 178#
SPEN 199 523 571 575 579 582 908#
STAR1 12# 673
START 11# 71
STPX 207 219 236 243 245 633 897#
STPY 209 239 252 254 898#
SYST 75 82#
SYST0 39 76#
SYSTB 41 73#
TAB20 711 720#
TAB28 711 735#
TAB30 711 742#
TAB38 712 759#
TAB40 712 775#
TAB48 714 793#
TAB50 714 804#
TAB58 714 820#
TAB60 715 828#
TAB68 715 844#
TAB70 717 859#
TAB78 717 872#
TAB80 717 882#
TABSK 21# 443 446 709
TCON 688# 693 705
TEST 35 675#
TISK 86 89#
VECTA 52 156# 528 626
VECTB 53 154#
VECTC 59 167#
VECTR 58 169# 616 620 623
VIRAM 22# 635
VYST 639 641#
VYZN 455 462#
WIDE 144 147 233 472 684 902#
WRCON 389 397 401#
WRIT1 378# 403
WRIT2 386 390#
WRIT3 383 393#
WRITE 363 376#
WRTEB 63 361#
ZAZN 18# 20 889
ZBS 405 418 497 905#
ZNAK 64 129 388 417# 641 647 689
ZNAK0 545 548#
ZNAK1 464# 469
ZNAK2 438 470#
ZNAK3 400 471#
ZNAK4 394 463 465 482#
ZNAK5 478 484#
ZNAK6 517 530#
ZNAK7 529 535#
ZNAK8 490 502 508 513 539#
ZNAK9 544# 547
ZPOZ0 277 594# 600
ZPOZ1 595# 596
ÚVOD | Novinky | 8 Bitů | Příslušenství | Drobnosti | TTL | Kontakt
SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | klony SM50/40 | PETR | PLAN-80A | IQ151 | TNS | FK-1 | HVĚZDA | SP 830 | PCS 1-QR6000
ZPS | Technické prostředky | Programové vybavení | Dokumentace