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
Zdrojový kód byl získán pomocí zpětného inženýrství.
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1
1 ; OVLADAC PRO XY4130 PRES PORT3 NA JPR-1
2 ; PRO SAPI-1 ZPS-2 A MONITOR V5.0
3 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
4 ;
5 TITLE OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0
6 ;
7 ; KONSTANTY
8 000D CR EQU 0DH
9 000A LF EQU 0AH
10 0007 BEL EQU 7
11 0003 CTRLC EQU 3
12 ;
13 ;PERIFERIE
14 2C00 PORT2 EQU 2C00H
15 ;
16 ; SLUZBY MONITORU
17 0115 IOCHK EQU 0115H ; I/O BYT CHEK <A>
18 0118 IOSET EQU 0118H ; I/O BYT SET <C>
19 011E IODEF EQU 011EH ; DEFINICE UZIVATELSKYCH PERIFERII
20 0139 NEXT EQU 0139H ; PREDANI OVLADANI MONITORU
21 013F CINCR EQU 013FH ; ECHO+ANALYZA
22 014B EXFLG EQU 014BH ; EXTERNI RIZENI FLAGU
23 ;
24 ; ROZSIRENE SLUZBY MONITORU V5.0
25 0151 TX EQU 0151H ; ZOBRAZENI NASLEDUJICIHO TEXTU
26 ;
27 ; ADRESI V PAMETI
28 1800 ROM EQU 1800H ;ADRESA V ROM
29 4290 RAM EQU 4290H ;ADRESA V RAM
30
31 ;********************************
32 ; START PROGRAMU
33 ;
34 0000' ASEG
35 ORG ROM
36 ;
37 ; TABULKA SKOKU
38
39 1800 C3 185F JMP ZNAKP ; TISK JEDNOHO ZNAKU <C>
40 1803 C3 1828 JMP ZAVOV ; ZAVED OVLADAC
41 1806 C3 18AF JMP VPOZ ; NASTAVI VYCHOZI POZICI PO ZALOZENI PAPIRU
42 ; X V <DE>, Y V <BC> PRO TEXT ?
43 1809 C3 188B JMP AMOVA ; ABSULUTNI PRESUN X V <DE>, Y V <BC>
44 180C C3 1894 JMP AVECTA ; ABSOLUTNI VEKTOR X V <DE>, Y V <BC>
45 180F C3 189D JMP APOIN ; ABSOLUTNI BOD X V <DE>, Y V <BC>
46 1812 C3 1910 JMP RMOVA ; RELATIVNI PRESUN X V <DE>, Y V <BC>
47 1815 C3 18A6 JMP RVECTA ; RELATIVNI VEKTOR X V <DE>, Y V <BC>
48 1818 C3 1C60 JMP RPOIN ; RELATIVNI BOD X V <DE>, Y V <BC>
49 181B C3 186D JMP NASZN ; NASTAV VELIKOST PISMA <HL>
50 ; SIXX, SIXY, SIYX, SIYY
51 181E C3 1CDC JMP TESTT ; TEST TISKARNY (VYTISKNE ZNAKY 10H AZ FFH)
52 1821 C3 1869 JMP NTABGZ ; NASTAV ADRESU GENERATORU ZNAKU <HL>
53 1824 2A 42AA LHLD ATABGZ ; VRAT ADRESU GENERATORU ZNAKU <HL>
54 1827 C9 RET
55 ;
56 ;ZAVEDENI OVLADACE
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-1
57 1828 0E 0D ZAVOV: MVI C,13 ; SYSTEMOVA TISKARNA
58 182A 11 185F LXI D,ZNAKP ; ADRESA OVLADACE
59 182D CD 011E CALL IODEF ; NASTAV
60 1830 CD 0115 CALL IOCHK ; NACTI IOBYT
61 1833 E6 BF ANI 10111111B
62 1835 F6 80 ORI 10000000B ; L=L .. TISKARNA
63 1837 4F MOV C,A
64 1838 CD 0118 CALL IOSET ; NASTAV IOBYT
65 183B 21 1857 LXI H,PVZN
66 183E CD 186D CALL NASZN ; NASTAV POCATECNI VELIKOST ZNAKU
67 1841 21 1D60 LXI H,TABGZ ; ADESA TABULKY ZNAKU V EPROM
68 1844 22 42AA SHLD ATABGZ ; ULOZ AKTUALNI TABULKU ZNAKU
69 1847 CD 0151 CALL TX ; ZOBRAZ TEXT
70 184A 0D 0A DB CR,LF
71 184C 4C 3D 58 59 DB 'L=XY413','0'+80H
72 1850 34 31 33 B0
73 1854 C3 1AA9 JMP HOME
74 ; VYCHOZI HODNOTY PRO VELIKOST TEXTU
75 1857 0004 PVZN: DW 4 ; SIXX
76 1859 0000 DW 0 ; SIXY
77 185B 0000 DW 0 ; SIYX
78 185D 0004 DW 4 ; SIYY
79 ;
80 ;VSTUP DO TISKUVE RUTINY, ZNAK JE V <C>
81 ;
82 185F C5 ZNAKP: PUSH B
83 1860 D5 PUSH D
84 1861 E5 PUSH H
85 1862 CD 19D0 CALL ZNAKC
86 1865 E1 POP H
87 1866 D1 POP D
88 1867 C1 POP B
89 1868 C9 RET
90 ;
91 1869 22 42AA NTABGZ: SHLD ATABGZ ; UKOZ NOVOU ADRESU GENERATORU ZNAKU <HL>
92 186C C9 RET
93 ;
94 186D 11 4290 NASZN: LXI D,SIXX ; NASTAV NOVOU VELIKOST ZNAKU
95 1870 06 08 MVI B,8
96 1872 7E NASZN1: MOV A,M
97 1873 12 STAX D
98 1874 13 INX D
99 1875 23 INX H
100 1876 05 DCR B
101 1877 C2 1872 JNZ NASZN1
102 187A C9 RET
103 ;
104 ; ULOZI <DE> NA TXTSX, <BC> NA TXTSY A TXTNS NASTAVI NA 1
105 ; SOURADNICE V TXTSX A TXTSY SLIUZI PRO TISK TEXTU
106 ;
107 187B EB ULZXY: XCHG ; PROHOT <DE> A <HL>
108 187C 22 42A6 SHLD TXTSX ; <DE> ULOZ NA TXTSX
109 187F EB XCHG ; PROHOT <DE> A <HL>
110 1880 60 MOV H,B
111 1881 69 MOV L,C ; <BC> DO <HL>
112 1882 22 42A8 SHLD TXTSY ; <BC> ULOZ NA TXTSY
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-2
113 1885 3E 01 MVI A,1
114 1887 32 429C STA TXTNS ; PRIZNAK NOVYCH SOURADNIC
115 188A C9 RET
116 ;
117 188B CD 187B AMOVA: CALL ULZXY ; ULOZ X A Y
118 188E CD 1C6C MOVA: CALL PEN0 ; ZVEDNI PERO
119 1891 C3 1921 JMP ABS0 ; ADSULUTNI PRESUN
120 ;
121 1894 CD 187B AVECTA: CALL ULZXY ; ULOZ X A Y
122 1897 CD 1C77 VECTA: CALL PEN1 ; SPUST PERO
123 189A C3 1921 JMP ABS0 ; ADSULUTNI PRESUN
124 ;
125 189D CD 187B APOIN: CALL ULZXY ; ULOZ X A Y
126 18A0 CD 188E CALL MOVA ; ADSULUTNI PRESUN
127 18A3 C3 1C69 JMP PENP ; UDELEJ TECKU
128 ;
129 18A6 CD 187B RVECTA: CALL ULZXY ; ULOZ X A Y
130 18A9 CD 1C77 CALL PEN1 ; SPUST PERO
131 18AC C3 1916 JMP RELA ; RESATIVNI PRESUN
132 ;
133 ; NASTAVI PISATKO DO VYCHOZI POLOHY A POZCE DANE <BC> A <DE>
134 ;
135 18AF CD 187B VPOZ: CALL ULZXY ; ULOZ X A Y
136 18B2 21 1414 VPOZ1: LXI H,1414H ; NASTAV CASOVACI KONSTANTY
137 18B5 22 429F SHLD TKON1
138 18B8 22 42A0 SHLD TKON2
139 ;
140 ;NASTAVY POCATECNI KONSTATY
141 ;TKON1 = 14H KONSTANTA PRO CASOVOU SMICKU 1
142 ;TKON2 = 14H KONSTANTA PRO CASOVOU SMICKU 2
143 ;TKON3 = 14H KONSTANTA PRO CASOVOU SMICKU 3
144 ;
145 18BB D5 PUSH D ; SORADNICE X DO ZASOBNIKU
146 18BC C5 PUSH B ; SORADNICE Y DO ZASOBNIKU
147 18BD 3E 01 MVI A,1
148 18BF 32 42B0 STA SPEN ; SPUST PERO ?????
149 18C2 01 0008 LXI B,8
150 18C5 50 MOV D,B
151 18C6 59 MOV E,C ; "8" DO X A Y
152 18C7 CD 1913 CALL RELA1 ; RELATIVNI PRESUN -> SINCHRONIZOVAT MOTORY
153 18CA 21 0D08 LXI H,0D08H
154 18CD 22 429F SHLD TKON1
155 ;
156 ;NASTAVY KONSTATY
157 ;TKON1 = 08H KONSTANTA PRO CASOVOU SMICKU 1
158 ;TKON2 = 0DH KONSTANTA PRO CASOVOU SMICKU 2
159 ;TKON3 = 14H KONSTANTA PRO CASOVOU SMICKU 3
160 ;
161 18D0 21 06A4 LXI H,06A4H ; 1610, 16.1 CM?
162 18D3 22 42A2 SHLD STPX ; OKAMZITA POLOHA X
163 18D6 21 04B0 LXI H,04B0H ; 1200, 12.0CM?
164 18D9 22 42A4 SHLD STPY ; OKAMZITA POLOHA Y
165 18DC C1 POP B
166 18DD C5 PUSH B ; OBNOV Y DO <BC>
167 18DE 11 0000 LXI D,0 ; X NA 0
168 18E1 CD 188E CALL MOVA ; PRESUN
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-3
169 18E4 C1 POP B
170 18E5 C5 PUSH B ; OBNOV Y DO <BC>
171 18E6 11 0050 LXI D,50H ; 80, 8MM? NASTAV Y
172 18E9 CD 188E CALL MOVA ; PRESUN
173 18EC AF XRA A
174 18ED 32 42A2 STA STPX ; VYNULUJ SPODNI BYTE OKAMZITE POLOHZ NA OSE X
175 18F0 C1 POP B
176 18F1 D1 POP D ; OBOV ZADANE X A Y
177 18F2 CD 188E CALL MOVA ; PRESUN
178 ;
179 ;NASTAVY POCATECNI KONSTATY
180 ;DIAK = 00H PRIZNAK DIAKRITIKY, BUDE ZNAMENKO
181 ;ZBS = 00H ZNAK BS
182 ;DIAK2 = 00H PRIZNAK DIAKRITIKY, BYLO ZNAMENKO
183 ;GZNAK = 00H PRIZNAK GRAFICKEHO ZNAKU
184 ;TXTNS = 00H PRIZNAK NOVYCH SURADNIC PRO TISK TEXTU
185 ;RADKO = 10H ROZSTUP MEZI RADKY
186 ;WIDE = 06H DRUH MEZERY MEZI ZNAKY
187 ;
188 18F5 3E 0A MVI A,0AH
189 18F7 32 42A1 STA TKON3
190 18FA 3E 06 MVI A,6
191 18FC 32 429E STA WIDE ; TISKOVA MEZERA
192 18FF 3D DCR A
193 1900 21 4298 LXI H,DIAK ; PRIZNAK DIAKRITIKY
194 1903 36 00 VPOZ2: MVI M,0
195 1905 23 INX H
196 1906 3D DCR A
197 1907 C2 1903 JNZ VPOZ2 ; POKUT NENI NULA TAK ZNOVU
198 190A 3E 0A MVI A,10
199 190C 32 429D STA RADKO ; ROZESTUP MEZI RADKY
200 190F C9 RET
201 ;
202 ; ABSOLUTNI A RELATIVNI PRESUN
203 ;
204 1910 CD 187B RMOVA: CALL ULZXY ; ULOZ X A Y
205 1913 CD 1C6C RELA1: CALL PEN0 ; ZVEDNI PERO
206 1916 2A 42A2 RELA: LHLD STPX ; K X PRICTI RELATIVNI DX
207 1919 19 DAD D ; = NOVA X
208 191A EB XCHG
209 191B 2A 42A4 LHLD STPY ; TOTEZ S Y
210 191E 09 DAD B
211 191F 44 MOV B,H
212 1920 4D MOV C,L ; A MUZES UDELAT ABS. PRESUN
213 1921 2A 42A2 ABS0: LHLD STPX ; DE = ZADAVE XZ
214 1924 EB XCHG ; HL = SKUTECNE X
215 1925 22 42A2 SHLD STPX ; DE <=> HL ; X <=> XZ
216 1928 22 42AC SHLD NOPX ; A ULOZ NA NOVOU POZ. TISKU
217 192B CD 19B6 CALL SMR ; ZJISTI SMER POSUVU PRO X
218 192E E5 PUSH H ; SCHOVEJ ROZDIL X A XZ
219 192F C5 PUSH B ; SCHOVEJ YZ
220 1930 4F MOV C,A ; C = SMER POSUVU
221 1931 D1 POP D ; DE = PREDESLE BC TJ. ZADANA YZ
222 1932 2A 42A4 LHLD STPY ; HL = SKUTECNA Y
223 1935 EB XCHG ; DE <=> HL ; Y <=> YZ
224 1936 22 42A4 SHLD STPY
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-4
225 1939 22 42AE SHLD NOPY ; ULOZ
226 193C CD 19B6 CALL SMR ; A ZJISTI SMER PRO Y
227 193F 07 RLC
228 1940 07 RLC
229 1941 07 RLC
230 1942 07 RLC ; DO VYSICH 4 BITU A
231 1943 47 MOV B,A
232 1944 B1 ORA C ; SLOZ S C
233 1945 32 42B8 STA DIRE ; <= SMER DO Y A DO X
234 1948 D1 POP D ; OBNOV ROZDIL X A XZ
235 1949 C8 RZ ; JSOU JI OBA POVUNY 0 VRAT SE
236 194A 7D MOV A,L
237 194B 93 SUB E
238 194C 7C MOV A,H
239 194D 9A SBB D ; TEST, KTERY POSUN JE VETSI
240 194E 79 MOV A,C ; A = SMER POSUNU A
241 194F DA 1954 JC DALX ; SKOC PROTOZE (YZ-Y)<(XZ-X)
242 1952 EB XCHG ; DE <=> HL ; (XZ-X) <=> (YZ-Z)
243 1953 78 MOV A,B ; A = SMER DO Y
244 1954 32 42B9 DALX: STA DIR1
245 1957 22 42BA SHLD DIFF
246 195A 21 0014 LXI H,14H ; MALE POZASTAVENI
247 195D CD 1CC4 CALL ZPOZ0
248 1960 3E 29 MVI A,29H
249 1962 32 42B7 STA ACCE ; ROZBEHOVA RYCHLOST
250 1965 42 MOV B,D ; BC = ROZDIL
251 1966 4B MOV C,E
252 1967 AF XRA A
253 1968 93 SUB E
254 1969 6F MOV L,A
255 196A 3E 00 MVI A,0
256 196C 9A SBB D
257 196D 67 MOV H,A ; HL = DE * -1
258 196E AF XRA A
259 196F 7A MOV A,D
260 1970 1F RAR
261 1971 57 MOV D,A
262 1972 7B MOV A,E
263 1973 1F RAR
264 1974 5F MOV E,A ; DE = DE / 2
265 1975 E5 ABS1: PUSH H ; SCHOVEJ HL A DE
266 1976 D5 PUSH D
267 1977 EB XCHG ; DE <=> HL
268 1978 60 MOV H,B
269 1979 69 MOV L,C ; HL = BC
270 197A 29 DAD H
271 197B 2B DCX H ; HL = HL * 2 - 1
272 197C 19 DAD D ; HL = HL + DE
273 197D 21 42B7 LXI H,ACCE
274 1980 D2 198B JNC ABS2 ; JE-LI HL >= 0 SKOC
275 1983 3A 42A1 LDA TKON3
276 1986 BE CMP M
277 1987 CA 198B JZ ABS2
278 198A 35 DCR M
279 198B 3E 28 ABS2: MVI A,28H
280 198D 96 SUB M
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-5
281 198E 91 SUB C
282 198F 3E 00 MVI A,0
283 1991 98 SBB B
284 1992 DA 1996 JC ABS3
285 1995 34 INR M
286 1996 2A 42BA ABS3: LHLD DIFF
287 1999 D1 POP D
288 199A 19 DAD D
289 199B EB XCHG
290 199C E1 POP H
291 199D E5 PUSH H
292 199E 19 DAD D
293 199F 3A 42B9 LDA DIR1
294 19A2 D2 19A9 JNC ABS4
295 19A5 EB XCHG
296 19A6 3A 42B8 LDA DIRE
297 19A9 D5 ABS4: PUSH D
298 19AA CD 1C49 CALL ELEM
299 19AD 0B DCX B
300 19AE 78 MOV A,B
301 19AF B1 ORA C
302 19B0 D1 POP D
303 19B1 E1 POP H
304 19B2 C2 1975 JNZ ABS1
305 19B5 C9 RET
306 ;
307 19B6 7D SMR: MOV A,L ; VRATI A = 0 PRO SKUT. = ZADANE
308 ; A = 8 PRO SKUT. < ZADANE
309 ; A = A PRO SKUT. > ZADANE
310 ;
311 ; (VRATI A = 0 PRO SKUT. = ZADANE MINIGRAF)
312 ; ( A = 1 PRO SKUT. < ZADANE MINIGRAF)
313 ; ( A = F PRO SKUT. > ZADANE MINIGRAF)
314 19B7 93 SUB E
315 19B8 6F MOV L,A ; L = L - E
316 19B9 7C MOV A,H
317 19BA 9A SBB D
318 19BB 67 MOV H,A ; H = H - D - PREDCHOZI ZNAM.
319 19BC 29 DAD H ; HL = HL * 2
320 19BD D2 19CA JNC SMVL ; -> JE-LI HL KLADNE
321 19C0 AF XRA A ; ZAPORNE - PREVED NA KLADNE
322 19C1 95 SUB L
323 19C2 6F MOV L,A
324 19C3 3E 00 MVI A,0
325 19C5 9C SBB H
326 19C6 67 MOV H,A ; HL = -1 * HL
327 19C7 3E 0A MVI A,0AH ; PRIZNAK A NAVRAT (MINIGRAF MVI A,0FH)
328 19C9 C9 RET
329 19CA 7C SMVL: MOV A,H
330 19CB B5 ORA L
331 19CC C8 RZ ; JE-LI HL = 0 VRAT SE
332 19CD 3E 08 MVI A,8 ; (MINIGRAF MVI A,01H)
333 19CF C9 RET ; JINAK PRIZNAK A NAVRAT
334 ;
335 ; ZANAK PRO TISK JE V <C>
336 ;
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-6
337 ; VZYNAM RIDICICH ZNAKU
338 ;
339 ; 00H - ZAPNE REZIM GRAFICKEHO ZNAKU
340 ; 08H - ZNAK ZPET
341 ; 0AH - NOVY RADEK
342 ; 0CH - NOVA STRANKA
343 ; 0DH - NAVRAT VOZU
344 ; 0EH - ZAPNI DIAKRITIKU
345 ; 0FH - VYPNI DIARITIKU
346 ;
347 19D0 3A 429C ZNAKC: LDA TXTNS ; PRIZNAK NOVYCH SOURADNIC PRO TEXT
348 19D3 3D DCR A ; PRIZNAK -1
349 19D4 C2 19DF JNZ ZNAKC1 ; NEJSOU NOVE SOURADNICE - NENI NULA
350 19D7 32 429C STA TXTNS ; NULUJ PRIZNAK
351 19DA C5 PUSH B ; SCHOV ZNAK
352 19DB CD 1AA9 CALL HOME ; NASTAV PISATKO NA VYCHOZI SOURADNICE
353 19DE C1 POP B ; OBNOV ZNAK
354 19DF 3A 429B ZNAKC1: LDA GZNAK ; 0 <> GRAFICKY ZNAK
355 19E2 B7 ORA A
356 19E3 C2 1A10 JNZ GRAFZ ; TISK GRAFICKEHO ZNAKU
357 19E6 B1 ORA C
358 19E7 CA 1BCB JZ NGZ ; NASTAV ZE BUDE GRAFICKY ZNAK, ZNAK BYL 00H
359 19EA FE 10 CPI 10H
360 19EC D2 1ABB JNC KOI ; POKUT ZNAK VETSI NEZ 10H -> TISK
361 19EF FE 0C CPI 0CH
362 19F1 CA 1A5B JZ STRAN ; NOVA STRANKA
363 19F4 FE 0D CPI CR
364 19F6 CA 1A20 JZ PCR ; NAVRAT VORU
365 19F9 FE 0A CPI LF
366 19FB CA 1A4F JZ PLF ; NOVY RADEK
367 19FE FE 0F CPI 0FH
368 1A00 CA 1A0B JZ DIAKS ; NYPNE DIAKRITYKU
369 1A03 FE 0E CPI 0EH
370 1A05 C2 1AF4 JNZ HBS ; TEST NA BS
371 1A08 3E 01 MVI A,1
372 1A0A 06 DB 6 ; (MVI)
373 1A0B AF DIAKS: XRA A
374 ; MVI B,0AFH ; PRI PRIMEM PRUCHODU ZAPNE DIAKRITIKU
375 1A0C 32 4298 STA DIAK ; ULOZ ZDA JDE O NORMANI ZNAK NEBO S DIAKRITIKOU
376 ; 0 = JE ZNAK S DIAKRITIKOU
377 ; 0 <> JE NORMANI ZNAK
378 1A0F C9 RET
379 ;
380 1A10 79 GRAFZ: MOV A,C
381 1A11 F5 PUSH PSW
382 1A12 CD 1BD2 CALL ZNAK4 ; TISK 1 SEGMETU ZNAKU, DATA V <A>
383 1A15 F1 POP PSW
384 1A16 E6 80 ANI 80H
385 1A18 C8 RZ ; DALSI SEGMENT ZNAKU
386 1A19 AF XRA A
387 1A1A 32 429B STA GZNAK ; ZRUS T TIS GAFICKEHO ZNAKU
388 1A1D C3 1BBE JMP ZNAK3 ; MEZI ZNAKOVA MEZERA
389 ;
390 ; NAVRAT VOZU (CR)
391 ;
392 1A20 3A 429D PCR: LDA RADKO ; NACTI RADKOVANI
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-7
393 1A23 47 MOV B,A
394 1A24 2A 4294 LHLD SIYX ; VELIKOST PISMA SIYX
395 1A27 EB XCHG ; A DO <DE>
396 1A28 2A 42A6 LHLD TXTSX ; NACTI POLOHU TEXTU X
397 1A2B CD 1B30 CALL HLMDE ; SPOCITEJ
398 1A2E 7C MOV A,H
399 1A2F B7 ORA A
400 1A30 FA 1A5B JM STRAN ; JE-LI ZAPORNA X, NOVA STRANKA
401 1A33 22 42A6 SHLD TXTSX ; ULOZ NOVOU POLOHU TEXTU X
402 1A36 3A 429D LDA RADKO ; NACTI RADKOVANI
403 1A39 47 MOV B,A
404 1A3A 2A 4296 LHLD SIYY ; VELIKOST PISMA SIYX
405 1A3D EB XCHG ; A DO <DE>
406 1A3E 2A 42A8 LHLD TXTSY ; NACTI POLOHU TEXTU Y
407 1A41 CD 1B30 CALL HLMDE ; SPOCITEJ
408 1A44 7C MOV A,H
409 1A45 B7 ORA A
410 1A46 FA 1A5B JM STRAN ; JE-LI ZAPORNA X, NOVA STRANKA
411 1A49 22 42A8 SHLD TXTSY ; ULOZ NOVOU POLOHU TEXTU Y
412 1A4C C3 1A52 JMP PLF1 ; A NOVY RADEK
413 ;
414 ; NOVY RADEK (LF)
415 ;
416 1A4F 2A 42A8 PLF: LHLD TXTSY ; NACTI SOURADNICI TEXTU Y
417 1A52 44 PLF1: MOV B,H
418 1A53 4D MOV C,L ; DEJ JI DO <BC>
419 1A54 2A 42A6 LHLD TXTSX ; NACTI SOURADNICI TEXTU X
420 1A57 EB XCHG ; DEJ JI DO <DE>
421 1A58 C3 188E JMP MOVA ; PRESUN
422 ;
423 ; ZALOZEZENI NOVEHO PAPIRU
424 ;
425 1A5B AF STRAN: XRA A ; MODE PRO DISPLEJ
426 1A5C 4F MOV C,A ; NORMALNI ZNAK
427 1A5D CD 014B CALL EXFLG
428 1A60 CD 0115 CALL IOCHK ; NACTI IOBYT
429 1A63 4F MOV C,A ; IOBYT DO <C>
430 1A64 C5 PUSH B ; USCHOVEJ IOBYT A PUVODNI OBSAH EXFLAG
431 1A65 E6 FC ANI 11111100B
432 1A67 F6 01 ORI 1 ; C=C POUZE KLAVESNICE S DISPLEJEM
433 1A69 4F MOV C,A
434 1A6A CD 0118 CALL IOSET ; NASTAV
435 1A6D CD 1C6C CALL PEN0 ; ZVEDNI PERO
436 1A70 CD 0151 CALL TX ; ZOBRAZ TEXT
437 1A73 0D 0A 07 5A DB CR,LF,BEL,'ZALOZ '
438 1A77 41 4C 4F 5A
439 1A7B 20
440 1A7C 50 41 50 49 DB 'PAPIR A STISKNI'
441 1A80 52 20 41 20
442 1A84 53 54 49 53
443 1A88 4B 4E 49
444 1A8B 20 4B 4C 41 DB ' KLAVESU',CR,LF+80H
445 1A8F 56 45 53 55
446 1A93 0D 8A
447 1A95 CD 013F CALL CINCR ; CEKEJ NA STISK KLAVESI
448 1A98 C1 POP B ; OBNOV IOBYT A PUVODNI OBSAH EXFLAG
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-8
449 1A99 F5 PUSH PSW ; SCHOV STISKLU KLAVESU
450 1A9A CD 0118 CALL IOSET ; OBNOV PUVODNI IOBYT
451 1A9D 78 MOV A,B
452 1A9E 0E 00 MVI C,0 ; MODE PRO DISPLEJ
453 1AA0 CD 014B CALL EXFLG ; OBNOV PUVODNI TYP ZNAKU
454 1AA3 F1 POP PSW ; OBNOV STISKLU KLAVESU
455 1AA4 FE 03 CPI CTRLC
456 1AA6 CA 0139 JZ NEXT ; POKUT ^C NAVTAT DO MONITORU
457 1AA9 01 099C HOME: LXI B,99CH ; (2460 24.6CM?) POCATECNI HODNOTA OSY Y
458 1AAC 60 MOV H,B
459 1AAD 69 MOV L,C
460 1AAE 22 42A8 SHLD TXTSY ; ULOZ Y
461 1AB1 21 0000 LXI H,0 ; POCATECNI HODNOTA OSY X
462 1AB4 22 42A6 SHLD TXTSX ; ULOZ NOVE X
463 1AB7 EB XCHG ; A X DO <DE>
464 1AB8 C3 18B2 JMP VPOZ1 ; NASTAV VYHOZI POZICI PO ZALOZENI PAPIRU
465 ;
466 ; HLEDANI ZNAKU S DIAKRITIKOU (KOI-8CS) ZNAK JE V <C>
467 ;
468 1ABB 3E F8 KOI: MVI A,11111000B ; JEN HORNICH 5 BITU
469 1ABD A1 ANA C
470 1ABE FE 18 CPI 18H
471 1AC0 C8 RZ ; POKUT ZNAKY 18H AZ 1FH NAVRAT
472 1AC1 79 MOV A,C ; ZNAK DO <A>
473 1AC2 FE 80 CPI 80H
474 1AC4 DA 1AF4 JC HBS ; JE MENSI NEZ 7FH -> KOI-7, TISK
475 1AC7 D6 80 SUI 80H ; <A> - 80H
476 1AC9 FE 40 CPI 40H
477 1ACB DA 1B04 JC DIKZ ; JE MENSI NEZ 3FH -> 80H-BFH, TISK DIAKRITYKY MAL. PIS.
478 1ACE D6 40 SUI 40H ; <A> - 40H -> C0H-FFH
479 1AD0 21 1D20 LXI H,TKOI2 ; ADESA KONVERZNI TABULKY VEL. PIS
480 1AD3 85 ADD L
481 1AD4 6F MOV L,A
482 1AD5 7C MOV A,H
483 1AD6 CE 00 ACI 0
484 1AD8 67 MOV H,A ; SPOCITEJ ADRESU V TABULCE
485 1AD9 CD 1A0B CALL DIAKS ; ULOZI PRIZNAK DIAKRITIKY (0)
486 1ADC 7E MOV A,M ; DATA Z TABULKY
487 1ADD B7 ORA A
488 1ADE CA 1AFF JZ NEDIK ; NENI ZNAK S DIAKRITIKOU
489 1AE1 F5 PUSH PSW ; SCHOV ZNAK Z TABULKY
490 1AE2 07 RLC
491 1AE3 07 RLC
492 1AE4 07 RLC ; O 3 BITI V LEVO
493 1AE5 E6 07 ANI 00000111B ; JEN SPODNI 3 BITY
494 1AE7 F6 18 ORI 00011000B ; PRIDEJ BIT 3 A 4 TJ. 18H AZ 1FH
495 1AE9 CD 1AF4 CALL HBS
496 1AEC F1 POP PSW ; OBNOV ZNAK Z TABULKY
497 1AED E6 3F ANI 00111111B ;
498 1AEF CA 1AFF JZ NEDIK ; POKUT 3F TAK MEZERA
499 1AF2 F6 40 ORI 01000000B ; JINAK PRIDEJ BIT 6
500 1AF4 E5 HBS: PUSH H ; SCHOV <HL>
501 1AF5 FE 08 CPI 8
502 1AF7 C2 1B59 JNZ ZNAK10 ; POKUT NENI 8 JDEM TISKNOUT ZNAK Z <A>
503 1AFA 32 4299 STA ZBS ; ULOZ BS
504 1AFD E1 POP H ; OBNOV <HL>
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-9
505 1AFE C9 RET
506 ;
507 1AFF 3E 20 NEDIK: MVI A,20H ; NENI ZNAK S DIAKRITIKOU? TAK MEZERA
508 1B01 C3 1AF4 JMP HBS
509 ;
510 ; TISKNE DIAKRITICKA ZNAMENKA
511 ;
512 1B04 CD 1B40 DIKZ: CALL TSTBS ; TEST NA BS
513 1B07 79 MOV A,C ; ZNAK DO <A>
514 1B08 06 05 MVI B,5 ; POCITALO NASTAV NA 5
515 1B0A 1F DIKZ1: RAR ; O BIT V PRAVO PRES CY
516 1B0B D2 1B29 JNC DIKZ3 ; NENI-LI 1 TAK DALSI POKUS
517 1B0E C5 PUSH B
518 1B0F F5 PUSH PSW
519 1B10 21 1D08 LXI H,DIKZT ; ADRESA DIAKRITICKYCH ZNAKU
520 1B13 78 MOV A,B ; POCITALO DO <A>
521 1B14 87 ADD A ; * 2
522 1B15 87 ADD A ; * 4 .
523 1B16 85 ADD L
524 1B17 6F MOV L,A
525 1B18 7C MOV A,H
526 1B19 CE 00 ACI 0
527 1B1B 67 MOV H,A ; PRICTI K ADRESE GENERATORO DIAK ZNAMENEK
528 1B1C 16 04 MVI D,4 ; BUDOU DVE USECKY TJ. 4 KROKY
529 1B1E 7E DIKZ2: MOV A,M ; NACTI DATA
530 1B1F CD 1BD2 CALL ZNAK4 ; TISK 1 SEGMETU ZNAKU, DATA V <A>
531 1B22 23 INX H
532 1B23 15 DCR D
533 1B24 C2 1B1E JNZ DIKZ2 ; POKUT NENI 0 TAK DALSI
534 1B27 F1 POP PSW
535 1B28 C1 POP B
536 1B29 05 DIKZ3: DCR B
537 1B2A F2 1B0A JP DIKZ1 ; POKUT JE PARITA TAK DASLI KOLO
538 1B2D C3 1BBE JMP ZNAK3 ; MEZI ZNAKOVA MEZERA
539 ;
540 ;ODECTE KRAT <DE> OD <HL>
541 ;
542 1B30 AF HLMDE: XRA A ; DO <A> 0
543 1B31 B0 ORA B
544 1B32 C8 RZ ; JE-JI B 0 NAVRAT
545 1B33 AF XRA A
546 1B34 93 SUB E
547 1B35 5F MOV E,A
548 1B36 3E 00 MVI A,0
549 1B38 9A SBB D
550 1B39 57 MOV D,A ; <DE>=1-<DE> ... DVOJKOVY DOPLNEK ?
551 1B3A 19 HLMDE1: DAD D ; <HL>=<HL>-<DE>
552 1B3B 05 DCR B
553 1B3C C8 RZ ; JE-LI O NAVRAT
554 1B3D C3 1B3A JMP HLMDE1
555 ;
556 1B40 E5 TSTBS: PUSH H
557 1B41 21 4299 LXI H,ZBS ; DO <HL> ADRESU PRIZNAKU BS
558 1B44 AF XRA A ; ZNULUJ <A>
559 1B45 BE CMP M ; POROVNEJ
560 1B46 77 MOV M,A ; ZNULUJ PRIZNAK BS
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-10
561 1B47 CC 1B4C CZ NPOZ ; POKUT NEBYL BS NOVA POZICE
562 1B4A E1 POP H
563 1B4B C9 RET
564 ;
565 ;NASTAVY NOVOU POZICI
566 ;
567 1B4C 2A 42AC NPOZ: LHLD NOPX
568 1B4F 22 42B2 SHLD PREX
569 1B52 2A 42AE LHLD NOPY
570 1B55 22 42B4 SHLD PREY
571 1B58 C9 RET
572 ;
573 ; TISK ZNAKU, ZNAK JE V <A>
574 ;
575 1B59 F5 ZNAK10: PUSH PSW
576 1B5A 21 429A LXI H,DIAK2 ; PRIZNAK DIAKRYTIKY 2
577 1B5D AF XRA A
578 1B5E BE CMP M
579 1B5F CA 1B6B JZ ZNAK11 ; POKU JE NULA SKOK NA TISK
580 1B62 77 MOV M,A ; A ULOZ NULU
581 1B63 3E 22 MVI A,22H ; DO PROSTRED ZNAKU
582 1B65 CD 1BD2 CALL ZNAK4 ; TISK 1 SEGMETU ZNAKU, DATA V <A>
583 1B68 CD 1B4C CALL NPOZ ; NOVA POZICE O PUL ZNAKU
584 1B6B F1 ZNAK11: POP PSW
585 1B6C 21 4299 LXI H,ZBS ; ADRESU PRIZNAKU BS
586 1B6F E6 7F ANI 7FH ; JEN KOI-7
587 1B71 4F MOV C,A ; ZNAK DO <C>
588 1B72 CD 1B40 CALL TSTBS ; TEST NA BS
589 1B75 3A 4298 LDA DIAK ; NECTI PRIZNAK DIAKRITZKY
590 1B78 B7 ORA A
591 1B79 CA 1B86 JZ ZNAK12 ; NENI TAK TISK
592 1B7C 79 MOV A,C
593 1B7D FE 7B CPI 7BH
594 1B7F DA 1B86 JC ZNAK12 ; JE MENSI NEZ 7BH TJ. {, TAK TISK
595 1B82 C6 05 ADI 5 ; PRICTI 5
596 1B84 4F MOV C,A ; NOVY ZNAK DO <C>
597 1B85 34 INR M ; ULOZ HO NA NIC
598 1B86 79 ZNAK12: MOV A,C ; ZNAK DO <A>
599 1B87 D6 10 SUI 10H ; JE JI MENSI NEZ 10H
600 1B89 DA 1BBD JC ZNAK2 ; SKOC
601 1B8C E6 F8 ANI 0F8H ; NE, NULUJ NEJNISI 3 BZTY
602 1B8E 1F RAR
603 1B8F 1F RAR ; ROTACE PRES CY O DVA BITY VPRAVO
604 1B90 2A 42AA LHLD ATABGZ ; ARESA TABULKY ZNAKU
605 1B93 85 ADD L ; A PRICTI K NIZSI ADRESE TABGZ ZNAKU
606 1B94 6F MOV L,A ; A DO
607 1B95 3E 00 MVI A,0 ; <A>=0
608 1B97 8C ADC H ; A PRICTI CY K VYSSI ADRESE TABGZ ZNAKU
609 1B98 67 MOV H,A ; A DO
610 1B99 7E MOV A,M
611 1B9A 23 INX H
612 1B9B 66 MOV H,M
613 1B9C 6F MOV L,A ; DO <HL> ADRESU GENERATOTU ZNAKU
614 1B9D 79 MOV A,C ; OBVOV ZNAK
615 1B9E E6 07 ANI 7 ; POUZE 3 NEJNIZSI BITY
616 1BA0 4F MOV C,A
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-11
617 1BA1 CA 1BAE JZ VYZN ; JSOU-LI 0 SKOC
618 1BA4 7E SKZN: MOV A,M ; NEJSOU
619 1BA5 B7 ORA A
620 1BA6 23 INX H
621 1BA7 F2 1BA4 JP SKZN ; TESTUJ NEJVYSI BIT
622 1BAA 0D DCR C
623 1BAB C2 1BA4 JNZ SKZN ; POKUT NENI 0 TAK DALSI ZNAK
624 ; TISKOVA DATA VYBRANA
625 1BAE 3E 08 VYZN: MVI A,8 ; ??? NASTAV VYCHOZI POLOHU PRO TISK ???
626 1BB0 CD 1BD2 CALL ZNAK4 ; TISK 1 SEGMETU ZNAKU, DATA V <A>
627 1BB3 7E ZNAK1: MOV A,M ; CTI TISKONA DATA
628 1BB4 CD 1BD2 CALL ZNAK4 ; TISK 1 SEGMETU ZNAKU, DATA V <A>
629 1BB7 7E MOV A,M ; ZNONU NACTI TISKONA DATA
630 1BB8 23 INX H ; UKAZOVATKO +1
631 1BB9 B7 ORA A
632 1BBA F2 1BB3 JP ZNAK1 ; POKUNT NENI PARITA TAK DALSI SEGMENT ZNAKU
633 1BBD E1 ZNAK2: POP H
634 1BBE E5 ZNAK3: PUSH H
635 1BBF 3A 429E LDA WIDE ; TISKOVA MEZERA
636 1BC2 E6 3F ANI 3FH
637 1BC4 0E 00 MVI C,0
638 1BC6 CD 1BD5 CALL ZNAK5
639 1BC9 E1 POP H
640 1BCA C9 RET
641 ;
642 1BCB 3C NGZ: INR A
643 1BCC 32 429B STA GZNAK ; NASTAV PRIZNAK PRO GRAFICKY ZNAK <1>
644 1BCF CD 1B40 CALL TSTBS ; TEST NA BS
645 ;
646 ; KRESLI VLASTNI USECKU ZNAKU
647 ; KPYYYXXX
648 ; !! ! +- 0 AZ 4 (7)
649 ; !! +---- 0 AZ 7
650 ; !+------ 0 - PRESUN, 1 - TISK
651 ; +------- 1 - POSLEDNI ZNAK
652 ;
653 1BD2 4F ZNAK4: MOV C,A
654 1BD3 E6 07 ANI 7 ; OSA X
655 1BD5 E5 ZNAK5: PUSH H
656 1BD6 D5 PUSH D
657 1BD7 F5 PUSH PSW
658 1BD8 2A 4290 LHLD SIXX
659 1BDB EB XCHG
660 1BDC 2A 42B2 LHLD PREX
661 1BDF CD 1C37 CALL ZNAK8
662 1BE2 EB XCHG
663 1BE3 79 MOV A,C
664 1BE4 E6 38 ANI 38H ; OSA Y
665 1BE6 1F RAR
666 1BE7 1F RAR
667 1BE8 1F RAR
668 1BE9 21 4299 LXI H,ZBS
669 1BEC 86 ADD M
670 1BED 47 MOV B,A
671 1BEE 2A 4294 LHLD SIYX
672 1BF1 EB XCHG
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-12
673 1BF2 CD 1C37 CALL ZNAK8
674 1BF5 F1 POP PSW
675 1BF6 E5 PUSH H
676 1BF7 2A 4292 LHLD SIXY
677 1BFA EB XCHG
678 1BFB 2A 42B4 LHLD PREY
679 1BFE CD 1C37 CALL ZNAK8
680 1C01 78 MOV A,B
681 1C02 EB XCHG
682 1C03 2A 4296 LHLD SIYY
683 1C06 EB XCHG
684 1C07 CD 1C37 CALL ZNAK8
685 1C0A E5 PUSH H
686 1C0B 79 MOV A,C
687 1C0C E6 40 ANI 40H ; PERO
688 1C0E CA 1C29 JZ ZNAK6
689 1C11 2A 42AC LHLD NOPX
690 1C14 EB XCHG
691 1C15 2A 42AE LHLD NOPY
692 1C18 44 MOV B,H
693 1C19 4D MOV C,L
694 1C1A 3A 42B0 LDA SPEN
695 1C1D B7 ORA A
696 1C1E CC 188E CZ MOVA
697 1C21 C1 POP B
698 1C22 D1 POP D
699 1C23 CD 1897 CALL VECTA
700 1C26 C3 1C34 JMP ZNAK7
701 1C29 CD 1C6C ZNAK6: CALL PEN0
702 1C2C E1 POP H
703 1C2D 22 42AE SHLD NOPY ; POLOHA PRISTIHO TISKU Y
704 1C30 E1 POP H
705 1C31 22 42AC SHLD NOPX ; POLOHA PRISTIHO TISKU X
706 1C34 D1 ZNAK7: POP D
707 1C35 E1 POP H
708 1C36 C9 RET
709 ;
710 1C37 1C ZNAK8: INR E ; POCITA VELIKOST ZNAKU
711 1C38 1D DCR E
712 1C39 C8 RZ
713 1C3A E5 PUSH H
714 1C3B 21 0000 LXI H,0
715 1C3E 3D ZNAK9: DCR A
716 1C3F FA 1C46 JM ZNAK0
717 1C42 19 DAD D
718 1C43 C3 1C3E JMP ZNAK9
719 1C46 D1 ZNAK0: POP D
720 1C47 19 DAD D
721 1C48 C9 RET
722
723 ;-----------------------------------------------------
724 ; PROVED KROK S MOTORY
725 ;-----------------------------------------------------
726 ; SMR VRATI A = 0 PRO SKUT. = ZADANE 0000
727 ; A = 8 PRO SKUT. < ZADANE 0100
728 ; A = A PRO SKUT. > ZADANE 1010
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-13
729 ;
730 ; 76543210
731 ; <A> YYYYXXXX
732 ;
733 ;PRIPOJENI XY41XX K PORTU 3OUT NA JPR-1
734 ;
735 ; PORT2 OUT0 - PERO
736 ; PORT2 OUT1 - X/Y
737 ; PORT2 OUT6 - +/-
738 ; PORT2 OUT7 - KROK
739 ;
740 1C49 2A 42B1 ELEM: LHLD SMOT ; NACTI STAV MOTORU JE V
741 1C4C 67 MOV H,A ; CO DELAT V DO
742 1C4D 3A 42B1 LDA SMOT ; NACTI STAV MOTORU <A>
743 1C50 E6 44 ANI 01000100B ; JEN BIT 6 A 2
744 1C52 B4 ORA H ; SLOZ PRES OR
745 1C53 32 42B1 STA SMOT ; ULOZ STAV MOTORU
746 1C56 AF XRA A ; VYVUJ <A>
747 1C57 67 MOV H,A ; A TAKY
748 1C58 3A 42B7 LDA ACCE ; RICHLOST PRI ROZBEHU
749 1C5B 1F RAR ; V PRAVO PRES CY TJ. /2
750 1C5C 6F MOV L,A ; A DO
751 1C5D C3 1C93 JMP ROSAY ; JDEM CUKAT S MOTORY
752 ;
753 1C60 CD 187B RPOIN: CALL ULZXY ; ULOZ X A Y
754 1C63 CD 1C6C CALL PEN0 ; DVEDNI PERO
755 1C66 CD 1916 CALL RELA ; RELATIVNI PRESUN
756 1C69 CD 1C77 PENP: CALL PEN1 ; SPUST PERO
757 ;PERO NAHORU
758 1C6C 3A 42B0 PEN0: LDA SPEN ; NACTI STAV PERA
759 1C6F 3D DCR A ; STAV PERA -1
760 1C70 C0 RNZ ; PERO ZVEDNUTO - NAVRAT
761 1C71 2A 429F LHLD TKON1 ; NACTI CASOVACI KONSTANY 1 A 2 DO <HL>
762 1C74 C3 1C7F JMP PENZ ; ZVEDNI PERO V <A> 00H
763 ;PERO DOLU
764 1C77 3A 42B0 PEN1: LDA SPEN ; NACTI STAV PERA
765 1C7A 3D DCR A ; STAV PERA -1
766 1C7B C8 RZ ; PERO DOLE - NAVRAT
767 ; V <A> FFH
768 1C7C 2A 42A0 LHLD TKON2 ; NACTI CASOVACI KONSTANY 2 A 3 DO <HL>
769 1C7F E6 01 PENZ: ANI 1 ; JEN NEN BIT 0
770 1C81 32 42B0 STA SPEN ; ULOZ STAV PERA
771 1C84 7D MOV A,L
772 1C85 32 42B6 STA SPED ; NASTAV AKTUALNI RICHLOST (K3)
773 1C88 21 01F4 LXI H,01F4H ; PAUZA PRO PERO
774 1C8B F6 80 ORI 80H ; KROK NA 1 TJ. BIT 7
775 1C8D 32 2C00 STA PORT2 ; VYSTAV STAV PERA NA PORT
776 1C90 C3 1CC4 JMP ZPOZ0 ; A PAUZA
777 ;
778 ;RESIME OSU Y
779 1C93 E5 ROSAY: PUSH H ; ULOZ "RYCHLOSTI"
780 1C94 2A 42B0 LHLD SPEN ; NACTI STAV PERA A MOTORU DO <HL>
781 1C97 7C MOV A,H ; STAV MOTORU DO <A>
782 1C98 07 RLC ; O BIT V LEVO [65432107]
783 1C99 D2 1CAA JNC ROSAX ; POKUT BIT 7 [0] TAK BUDEM RESIT OSU X
784 1C9C EE 80 XRI 80H ; EX-OR S <A> 10000000
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-14
785 1C9E F2 1CAA JP ROSAX ; POKUT BIT 6 [1] TAK BUDEM RESIT OSU X
786 1CA1 67 MOV H,A ; SCHOV DATA
787 1CA2 E6 40 ANI 40H ; JEN HORNI 4 BITY
788 1CA4 F6 02 ORI 2 ; NASTAV OSU Y NA XY JE TO X
789 1CA6 CD 1CD2 CALL KROK ; UDELEJ KROK
790 1CA9 7C MOV A,H ; OBNOV DATA
791 ;RESIME OSU X
792 1CAA 07 ROSAX: RLC
793 1CAB 07 RLC
794 1CAC 07 RLC
795 1CAD 07 RLC ; PRETOCIT NA DATA PRO OSU X [21076543]
796 1CAE D2 1CBD JNC WAITM ; POKUT BIT 3 [0] TAK BUDEME RESIT PAUZU
797 1CB1 EE C0 XRI 0C0H ; EX-OR S <A> 11000000
798 1CB3 F2 1CBD JP WAITM ; POKUT BIT 2 [1] TAK BUDEME RESIT PAUZU
799 1CB6 67 MOV H,A ; SCHOV DATA
800 1CB7 E6 40 ANI 40H ; JEN HORNI 4 BITY
801 1CB9 CD 1CD2 CALL KROK ; UDELEJ KROK
802 1CBC 7C MOV A,H ; OBNOV DATA
803 1CBD 07 WAITM: RLC
804 1CBE 07 RLC
805 1CBF 07 RLC ; DATA PRO RIZENI MOTORU DO VYCHOZI POLOHY [76543210]
806 1CC0 32 42B1 STA SMOT ; A ULOZ
807 1CC3 E1 POP H ; OBNOV "RYCHLOSTI"
808 ;
809 ;SPOZDOVACI SMICKA
810 ;
811 1CC4 3A 42B6 ZPOZ0: LDA SPED ; AKTUALNI RYCHLOST
812 1CC7 3D ZPOZ1: DCR A
813 1CC8 C2 1CC7 JNZ ZPOZ1
814 1CCB 2B DCX H
815 1CCC 7C MOV A,H
816 1CCD B5 ORA L
817 1CCE C2 1CC4 JNZ ZPOZ0
818 1CD1 C9 RET
819 ;
820 1CD2 B5 KROK: ORA L ; PRIPOJ STAV PERA
821 1CD3 32 2C00 STA PORT2
822 1CD6 F6 80 ORI 80H
823 1CD8 32 2C00 STA PORT2 ; UDELJ KROK
824 1CDB C9 RET
825 ;
826 ; TEST TISKKARNY
827 ; VYTISKNE ZNAKZ OD 10H PO FFH
828 ;
829 1CDC 0E 0C TESTT: MVI C,0CH
830 1CDE CD 19DF CALL ZNAKC1 ; NOVOU STRANKU
831 1CE1 0E 10 MVI C,10H ; OD ZNAKU 10H
832 1CE3 C5 TESTT1: PUSH B ; SCHOV ZNAK
833 1CE4 CD 19DF CALL ZNAKC1 ; TISKNI ZNAK
834 1CE7 3A 4299 LDA ZBS ; NACTI BS NEBO NECO JINEHO
835 1CEA B7 ORA A
836 1CEB 0E 20 MVI C,20H ; MEZERA
837 1CED C4 19DF CNZ ZNAKC1 ; POKUT JE BS TAK TISK
838 1CF0 0E 20 MVI C,20H ; MEZERA
839 1CF2 CD 19DF CALL ZNAKC1 ; VYTISKNIJI
840 1CF5 C1 POP B ; VRAT ZNAK
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-15
841 1CF6 0C INR C ; DALSI ZNAK
842 1CF7 C8 RZ ; POKUT JE VSECH 255 ZNAKU -> NAVRAT
843 1CF8 3E 0F MVI A,0FH
844 1CFA A1 ANA C ; JEN SPODNI 4 BITY
845 1CFB C2 1CE3 JNZ TESTT1 ; POKUT NENI NULA -> DALSI ZNAK
846 1CFE C5 PUSH B
847 1CFF 0E 0D MVI C,0DH
848 1D01 CD 19DF CALL ZNAKC1 ; JINAK NOVY RADEK
849 1D04 C1 POP B
850 1D05 C3 1CE3 JMP TESTT1
851 ;
852 ;DIAKRITICKE ZNAMENKA PRO KOI-8CS
853 ;
854 1D08 38 6A 28 7A DIKZT: DB 38H,6AH,28H,7AH,3AH,6CH,2AH,7CH
855 1D0C 3A 6C 2A 7C
856 1D10 28 5A 18 6A DB 28H,5AH,18H,6AH,2AH,5CH,1AH,6CH
857 1D14 2A 5C 1A 6C
858 1D18 18 4A 08 5A DB 18H,4AH,08H,5AH,1AH,4CH,0AH,5CH
859 1D1C 1A 4C 0A 5C
860 ;
861 ;TABULKA PRO DIAKRITICKE ZNAKZ KOI-8CS
862 ;
863 1D20 00 21 00 63 TKOI2: DB 00H,21H,00H,63H,64H,65H,00H,00H
864 1D24 64 65 00 00
865 1D28 00 29 F5 00 DB 00H,29H,0F5H,00H,00H,00H,35H,2FH
866 1D2C 00 00 35 2F
867 1D30 00 00 72 73 DB 00H,00H,72H,73H,74H,35H,00H,25H
868 1D34 74 35 00 25
869 1D38 00 39 7A 00 DB 00H,39H,7AH,00H,40H,00H,00H,00H
870 1D3C 40 00 00 00
871 1D40 00 01 00 43 DB 00H,01H,00H,43H,44H,45H,00H,00H
872 1D44 44 45 00 00
873 1D48 00 09 D5 00 DB 00H,09H,0D5H,00H,00H,00H,15H,0FH
874 1D4C 00 00 15 0F
875 1D50 00 00 52 53 DB 00H,00H,52H,53H,54H,15H,00H,05H
876 1D54 54 15 00 05
877 1D58 00 19 5A 00 DB 00H,19H,5AH,00H,40H,00H,00H,00H
878 1D5C 40 00 00 00
879 ;
880 ;GENERATOR ZNAKU
881 ;***************
882 ;
883 1D60 1D7E 1DA9 TABGZ: DW TAB10,TAB20,TAB20,TAB28,TAB30
884 1D64 1DA9 1DDC
885 1D68 1DF5
886 1D6A 1E2F 1E67 DW TAB38,TAB40,TAB48,TAB50,TAB58
887 1D6E 1EA4 1ECB
888 1D72 1F01
889 1D74 1F1C 1F55 DW TAB60,TAB68,TAB70,TAB78,TAB80
890 1D78 1F89 1FB8
891 1D7C 1FDC
892 ;
893 1D7E 18 68 71 73 TAB10: DB 18H,68H,71H,73H,6CH,5CH,53H,51H,0D8H ;10H, VELKE KOLECKO
894 1D82 6C 5C 53 51
895 1D86 D8
896 1D87 10 70 74 54 DB 10H,70H,74H,54H,0D0H ;11H, CTVEREC
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-16
897 1D8B D0
898 1D8C 20 72 64 52 DB 20H,72H,64H,52H,0E0H ;12H, KOSOCTVEREC
899 1D90 E0
900 1D91 14 72 50 D4 DB 14H,72H,50H,0D4H ;13H, SIPKA DOLU (TROUHELNIK)
901 1D95 12 70 74 D2 DB 12H,70H,74H,0D2H ;14H, SIPKA DOLU (TROUHELNIK)
902 1D99 12 72 20 E4 DB 12H,72H,20H,0E4H ;15H, VELKE PLUS
903 1D9D 10 74 30 D4 DB 10H,74H,30H,0D4H ;16H, VELKY KRIZEK
904 1DA1 12 72 20 64 DB 12H,72H,20H,64H,14H,70H,10H,0F4H ;17H, VELKA HVEZDICKA
905 1DA5 14 70 10 F4
906 1DA9 80 3A 5A 0A TAB20: DB 80H,3AH,5AH,0AH,0CAH,31H,7AH
907 1DAD CA 31 7A
908 1DB0 32 FB 39 49 DB 32H,0FBH,39H,49H,0BH,7BH,2CH,68H,18H,0DCH
909 1DB4 0B 7B 2C 68
910 1DB8 18 DC
911 1DBA 10 53 5C 63 DB 10H,53H,5CH,63H,61H,68H,71H
912 1DBE 61 68 71
913 1DC1 74 3A CA 7C DB 74H,3AH,0CAH,7CH,39H,70H,69H
914 1DC5 39 70 69
915 1DC8 72 79 1B 52 DB 72H,79H,1BH,52H,4BH,54H,0DBH
916 1DCC 4B 54 DB
917 1DCF 0C 68 70 79 DB 0CH,68H,70H,79H,7AH,73H,6BH
918 1DD3 7A 73 6B
919 1DD6 50 49 4A DC DB 50H,49H,4AH,0DCH,3BH,0F2H
920 1DDA 3B F2
921 1DDC 3B 69 59 CB TAB28: DB 3BH,69H,59H,0CBH,39H,6BH,5BH
922 1DE0 39 6B 5B
923 1DE3 C9 11 73 24 DB 0C9H,11H,73H,24H,60H,31H,0D3H
924 1DE7 60 31 D3
925 1DEA 20 64 32 D2 DB 20H,64H,32H,0D2H,12H,0C1H,20H
926 1DEE 12 C1 20
927 1DF1 E4 0A CA FC DB 0E4H,0AH,0CAH,0FCH
928 1DF5 7C 34 54 4B TAB30: DB 7CH,34H,54H,4BH,49H,50H,70H
929 1DF9 49 50 70
930 1DFC 79 7B F4 29 DB 79H,7BH,0F4H,29H,7BH,0CBH,30H
931 1E00 7B CB 30
932 1E03 79 7B 74 6C DB 79H,7BH,74H,6CH,48H,0CCH,30H
933 1E07 48 CC 30
934 1E0A 79 7B 74 6C DB 79H,7BH,74H,6CH,63H,5CH,54H
935 1E0E 63 5C 54
936 1E11 4B 49 D0 0B DB 4BH,49H,0D0H,0BH,7BH,58H,0DCH
937 1E15 7B 58 DC
938 1E18 10 49 4B 54 DB 10H,49H,4BH,54H,5CH,63H,60H
939 1E1C 5C 63 60
940 1E1F 78 FC 34 7B DB 78H,0FCH,34H,7BH,79H,70H,50H
941 1E23 79 70 50
942 1E26 49 4B 54 5C DB 49H,4BH,54H,5CH,63H,61H,0D8H,7CH,0F8H
943 1E2A 63 61 D8 7C
944 1E2E F8
945 1E2F 09 50 58 61 TAB38: DB 09H,50H,58H,61H,63H,6CH,74H
946 1E33 63 6C 74
947 1E36 7B 79 70 68 DB 7BH,79H,70H,68H,61H,63H,5CH
948 1E3A 61 63 5C
949 1E3D 54 4B C9 10 DB 54H,4BH,0C9H,10H,49H,4BH,54H
950 1E41 49 4B 54
951 1E44 74 7B 79 70 DB 74H,7BH,79H,70H,68H,61H,63H
952 1E48 68 61 63
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-17
953 1E4B EC 1A 5A 2A DB 0ECH,1AH,5AH,2AH,0EAH,01H,52H
954 1E4F EA 01 52
955 1E52 22 E2 33 61 DB 22H,0E2H,33H,61H,0D3H,28H,6CH
956 1E56 D3 28 6C
957 1E59 18 DC 31 63 DB 18H,0DCH,31H,63H,0D1H,30H,79H
958 1E5D D1 30 79
959 1E60 7B 74 6C 5A DB 7BH,74H,6CH,5AH,52H,0AH,0CAH
960 1E64 52 0A CA
961 1E67 68 71 73 6C TAB40: DB 68H,71H,73H,6CH,54H,4BH,4AH
962 1E6B 54 4B 4A
963 1E6E 51 61 6A 63 DB 51H,61H,6AH,63H,0CBH,7AH,4CH
964 1E72 CB 7A 4C
965 1E75 21 E3 78 7B DB 21H,0E3H,78H,7BH,74H,6CH,63H
966 1E79 74 6C 63
967 1E7C 60 63 5C 54 DB 60H,63H,5CH,54H,4BH,0C8H,34H
968 1E80 4B C8 34
969 1E83 7B 79 70 50 DB 7BH,79H,70H,50H,49H,4BH,0D4H
970 1E87 49 4B D4
971 1E8A 78 7B 74 54 DB 78H,7BH,74H,54H,4BH,0C8H,3CH
972 1E8E 4B C8 3C
973 1E91 78 48 4C 20 DB 78H,48H,4CH,20H,0E2H,78H,7CH,20H,0E2H
974 1E95 E2 78 7C 20
975 1E99 E2
976 1E9A 34 7B 79 70 DB 34H,7BH,79H,70H,50H,49H,4BH,54H,5CH,0DAH
977 1E9E 50 49 4B 54
978 1EA2 5C DA
979 1EA4 78 3C 4C 20 TAB48: DB 78H,3CH,4CH,20H,0E4H,09H,4BH,4AH
980 1EA8 E4 09 4B 4A
981 1EAC 7A 79 FB 10 DB 7AH,79H,0FBH,10H,49H,4BH,54H
982 1EB0 49 4B 54
983 1EB3 FC 78 3C 60 DB 0FCH,78H,3CH,60H,0CCH,38H,48H
984 1EB7 CC 38 48
985 1EBA CC 78 62 7C DB 0CCH,78H,62H,7CH,0CCH,78H,4CH
986 1EBE CC 78 4C
987 1EC1 FC 09 50 70 DB 0FCH,09H,50H,70H,79H,7BH,74H,54H,4BH,0C9H
988 1EC5 79 7B 74 54
989 1EC9 4B C9
990 1ECB 78 7B 74 6C TAB50: DB 78H,7BH,74H,6CH,63H,0E0H,09H
991 1ECF 63 E0 09
992 1ED2 50 70 79 7B DB 50H,70H,79H,7BH,74H,54H,4BH
993 1ED6 74 54 4B
994 1ED9 49 1A CC 78 DB 49H,1AH,0CCH,78H,7BH,74H,6CH
995 1EDD 7B 74 6C
996 1EE0 63 60 CC 10 DB 63H,60H,0CCH,10H,49H,4BH,54H
997 1EE4 49 4B 54
998 1EE7 5C 63 61 68 DB 5CH,63H,61H,68H,70H,79H,7BH
999 1EEB 70 79 7B
1000 1EEE F4 38 7C 3A DB 0F4H,38H,7CH,3AH,0CAH,38H,50H
1001 1EF2 CA 38 50
1002 1EF5 49 4B 54 FC DB 49H,4BH,54H,0FCH,38H,4AH,0FCH
1003 1EF9 38 4A FC
1004 1EFC 38 49 6A 4B DB 38H,49H,6AH,4BH,0FCH
1005 1F00 FC
1006 1F01 7C 38 CC 38 TAB58: DB 7CH,38H,0CCH,38H,62H,7CH,22H
1007 1F05 62 7C 22
1008 1F08 CA 38 7C 48 DB 0CAH,38H,7CH,48H,0CCH,3BH,79H
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-18
1009 1F0C CC 3B 79
1010 1F0F 49 CB 38 CC DB 49H,0CBH,38H,0CCH,39H,7BH,4BH
1011 1F13 39 7B 4B
1012 1F16 C9 31 7A F3 DB 0C9H,31H,7AH,0F3H,0H,0C4H
1013 1F1A 00 C4
1014 1F1C 39 F2 29 6B TAB60: DB 39H,0F2H,29H,6BH,64H,54H,4BH
1015 1F20 64 54 4B
1016 1F23 49 50 59 5B DB 49H,50H,59H,5BH,54H,0CCH,78H
1017 1F27 54 CC 78
1018 1F2A 28 6B 64 54 DB 28H,6BH,64H,54H,4BH,0C8H,2CH
1019 1F2E 4B C8 2C
1020 1F31 69 60 50 49 DB 69H,60H,50H,49H,0CCH,3CH,4CH
1021 1F35 CC 3C 4C
1022 1F38 49 50 60 69 DB 49H,50H,60H,69H,0ECH,18H,5CH
1023 1F3C EC 18 5C
1024 1F3F 64 6B 69 60 DB 64H,6BH,69H,60H,50H,49H,0CCH
1025 1F43 50 49 CC
1026 1F46 0A 72 7B 7C DB 0AH,72H,7BH,7CH,21H,0E3H,00H
1027 1F4A 21 E3 00
1028 1F4D 43 4C 6C 69 DB 43H,4CH,6CH,69H,60H,58H,51H,0D4H
1029 1F51 60 58 51 D4
1030 1F55 78 28 6B 64 TAB68: DB 78H,28H,6BH,64H,0CCH,09H,4BH
1031 1F59 CC 09 4B
1032 1F5C 4A 6A 69 3A DB 4AH,6AH,69H,3AH,0FAH,01H,42H
1033 1F60 FA 01 42
1034 1F63 4B 6B 6A 3B DB 4BH,6BH,6AH,3BH,0FBH,78H,2CH
1035 1F67 FB 78 2C
1036 1F6A 58 CC 09 4B DB 58H,0CCH,09H,4BH,4AH,7AH,0F9H
1037 1F6E 4A 7A F9
1038 1F71 68 60 69 62 DB 68H,60H,69H,62H,4AH,22H,6BH
1039 1F75 4A 22 6B
1040 1F78 64 CC 68 60 DB 64H,0CCH,68H,60H,69H,6BH,64H
1041 1F7C 69 6B 64
1042 1F7F CC 09 50 60 DB 0CCH,09H,50H,60H,69H,6BH,64H,54H,4BH,0C9H
1043 1F83 69 6B 64 54
1044 1F87 4B C9
1045 1F89 00 68 6B 64 TAB70: DB 00H,68H,6BH,64H,5CH,53H,0D0H
1046 1F8D 5C 53 D0
1047 1F90 04 6C 69 60 DB 04H,6CH,69H,60H,58H,51H,0D4H
1048 1F94 58 51 D4
1049 1F97 09 69 61 6A DB 09H,69H,61H,6AH,6BH,0E4H,4BH
1050 1F9B 6B E4 4B
1051 1F9E 54 5B 59 60 DB 54H,5BH,59H,60H,69H,0ECH,0CH
1052 1FA2 69 EC 0C
1053 1FA5 4B 52 72 21 DB 4BH,52H,72H,21H,0E3H,28H,50H,49H
1054 1FA9 E3 28 50 49
1055 1FAD 4B 54 EC 28 DB 4BH,54H,0ECH,28H,4AH,0ECH,28H
1056 1FB1 4A EC 28
1057 1FB4 49 62 4B EC DB 49H,62H,4BH,0ECH
1058 1FB8 6C 28 CC 00 TAB78: DB 6CH,28H,0CCH,0H,43H,4CH,6CH
1059 1FBC 43 4C 6C
1060 1FBF 28 58 51 D4 DB 28H,58H,51H,0D4H,28H,6CH,48H
1061 1FC3 28 6C 48
1062 1FC6 CC 0B 52 5A DB 0CCH,0BH,52H,5AH,61H,6AH,72H
1063 1FCA 61 6A 72
1064 1FCD FB 0A FA 09 DB 0FBH,0AH,0FAH,09H,52H,5AH,63H
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE 1-19
1065 1FD1 52 5A 63
1066 1FD4 6A 72 F9 20 DB 6AH,72H,0F9H,20H,69H,5BH,0E4H,80H
1067 1FD8 69 5B E4 80
1068 1FDC 32 FB TAB80: DB 32H,0FBH
1069 1FDE 2A 71 7A 73 TAB81: DB 2AH,71H,7AH,73H,0EAH
1070 1FE2 EA
1071 1FE3 39 72 FB 31 DB 39H,72H,0FBH,31H,7AH,0F3H,39H,79H,3BH,0FBH
1072 1FE7 7A F3 39 79
1073 1FEB 3B FB
1074 ;
1075 1FED 00 00 54 45 DB 0,0,'TESLA DIZ'
1076 1FF1 53 4C 41 20
1077 1FF5 44 49 5A
1078 1FF8 00 00 00 00 DB 0,0,0,0,0,0,0,0
1079 1FFC 00 00 00 00
1080 ;
1081 1FFF KONROM EQU $-1 ;POSLEDNI BYTE V ROM
1082 0800 ROMC EQU $-ROM ;CEKOVA DELAKA KODU
1083 ;
1084 ORG RAM ;BLOK PROMENYCH
1085
1086 4290 SIXX: DS 2 ; VELIKOST PISMA XX 4290H
1087 4292 SIXY: DS 2 ; VELIKOST PISMA XY 4292H
1088 4294 SIYX: DS 2 ; VELIKOST PISMA YX 4294H
1089 4296 SIYY: DS 2 ; VELIKOST PISMA YY 4296H
1090 4298 DIAK: DS 1 ; PRIZNAK DIAKRITIKY, BUDE ZNAMENKO 4298H
1091 4299 ZBS: DS 1 ; ZNAK BS
1092 429A DIAK2: DS 1 ; PRIZNAK DIAKRYTIKY, BYLO ZNAMENKO 429AH
1093 429B GZNAK: DS 1 ; PRIZNAK PRO GRAFICKY ZNAK 429BH
1094 429C TXTNS: DS 1 ; PRIZNAK NOVYCH SURADNIC PRO TISK TEXTU 429CH
1095 429D RADKO: DS 1 ; ROZSTUP MEZI RADKY 429DH
1096 429E WIDE: DS 1 ; DRUH MEZERY MEZI ZNAKY 429EH
1097 429F TKON1: DS 1 ; KONSTANTA PRO CASOVOU SMICKU 1 A249H
1098 42A0 TKON2: DS 1 ; KONSTANTA PRO CASOVOU SMICKU 2 42A0H
1099 42A1 TKON3: DS 1 ; KONSTANTA PRO CASOVOU SMICKU 3 42A1H
1100 42A2 STPX: DS 2 ; OKAMZITA POLOHA PERA X 42A2H
1101 42A4 STPY: DS 2 ; OKAMZITA POLOHA PERA Y 42A4H
1102 42A6 TXTSX: DS 2 ; SOURADNICE X PRO TISK TEXTU 42A6H
1103 42A8 TXTSY: DS 2 ; SOURADNICE Y PRO TISK TEXTU 42A8H
1104 42AA ATABGZ: DS 2 ; ARESA AKTUANIHO GENERATORU ZNAKU 42AAH
1105 42AC NOPX: DS 2 ; POLOHA PRISTIHO TISKU ZN. X 42ACH
1106 42AE NOPY: DS 2 ; POLOHA PRISTIHO TISKU ZN. Y 42AEH
1107 42B0 SPEN: DS 1 ; OKAMZITY STAV PERA 42B0H
1108 42B1 SMOT: DS 1 ; STAV KROKOVYCH MOTORU
1109 42B2 PREX: DS 2 ; SOUR. PREDCHOZIHO TISKU X 42B2H
1110 42B4 PREY: DS 2 ; SOUR. PREDCHOZIHO TISKU Y 42B4H
1111 42B6 SPED: DS 1 ; AKTUALNI RICHLOST POSUVU 42B6H
1112 42B7 ACCE: DS 1 ; RICHLOST PRI ROZBEHU 42B7H
1113 42B8 DIRE: DS 1 ; SMER DO OS Y A X 42B8H
1114 42B9 DIR1: DS 1 ; ? 42B9H
1115 42BA DIFF: DS 2 ; ROZDIL SOUR. ZADANE A SKUT. 42BAH
1116 ;
1117 42BB KONRAM EQU $-1 ; POSLEDNI BZTE V RAM
1118 002C RAMC EQU $-RAM ; CEKOVE OBSAZENI RAM
1119 ;
1120 END
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0 MACRO-80 3.44 09-Dec-81 PAGE S
Macros:
Symbols:
1921 ABS0 1975 ABS1 198B ABS2
1996 ABS3 19A9 ABS4 42B7 ACCE
188B AMOVA 189D APOIN 42AA ATABGZ
1894 AVECTA 0007 BEL 013F CINCR
000D CR 0003 CTRLC 1954 DALX
4298 DIAK 429A DIAK2 1A0B DIAKS
42BA DIFF 1B04 DIKZ 1B0A DIKZ1
1B1E DIKZ2 1B29 DIKZ3 1D08 DIKZT
42B9 DIR1 42B8 DIRE 1C49 ELEM
014B EXFLG 1A10 GRAFZ 429B GZNAK
1AF4 HBS 1B30 HLMDE 1B3A HLMDE1
1AA9 HOME 0115 IOCHK 011E IODEF
0118 IOSET 1ABB KOI 42BB KONRAM
1FFF KONROM 1CD2 KROK 000A LF
188E MOVA 186D NASZN 1872 NASZN1
1AFF NEDIK 0139 NEXT 1BCB NGZ
42AC NOPX 42AE NOPY 1B4C NPOZ
1869 NTABGZ 1A20 PCR 1C6C PEN0
1C77 PEN1 1C69 PENP 1C7F PENZ
1A4F PLF 1A52 PLF1 2C00 PORT2
42B2 PREX 42B4 PREY 1857 PVZN
429D RADKO 4290 RAM 002C RAMC
1916 RELA 1913 RELA1 1910 RMOVA
1800 ROM 0800 ROMC 1CAA ROSAX
1C93 ROSAY 1C60 RPOIN 18A6 RVECTA
4290 SIXX 4292 SIXY 4294 SIYX
4296 SIYY 1BA4 SKZN 42B1 SMOT
19B6 SMR 19CA SMVL 42B6 SPED
42B0 SPEN 42A2 STPX 42A4 STPY
1A5B STRAN 1D7E TAB10 1DA9 TAB20
1DDC TAB28 1DF5 TAB30 1E2F TAB38
1E67 TAB40 1EA4 TAB48 1ECB TAB50
1F01 TAB58 1F1C TAB60 1F55 TAB68
1F89 TAB70 1FB8 TAB78 1FDC TAB80
1FDE TAB81 1D60 TABGZ 1CDC TESTT
1CE3 TESTT1 1D20 TKOI2 429F TKON1
42A0 TKON2 42A1 TKON3 1B40 TSTBS
0151 TX 429C TXTNS 42A6 TXTSX
42A8 TXTSY 187B ULZXY 1897 VECTA
18AF VPOZ 18B2 VPOZ1 1903 VPOZ2
1BAE VYZN 1CBD WAITM 429E WIDE
1828 ZAVOV 4299 ZBS 1C46 ZNAK0
1BB3 ZNAK1 1B59 ZNAK10 1B6B ZNAK11
1B86 ZNAK12 1BBD ZNAK2 1BBE ZNAK3
1BD2 ZNAK4 1BD5 ZNAK5 1C29 ZNAK6
1C34 ZNAK7 1C37 ZNAK8 1C3E ZNAK9
19D0 ZNAKC 19DF ZNAKC1 185F ZNAKP
1CC4 ZPOZ0 1CC7 ZPOZ1
No Fatal error(s)
ABS0 119 123 213#
ABS1 265# 304
ABS2 274 277 279#
ABS3 284 286#
ABS4 294 297#
ACCE 249 273 748 1112#
AMOVA 43 117#
APOIN 45 125#
ATABGZ 53 68 91 604 1104#
AVECTA 44 121#
BEL 10# 437
CINCR 21# 447
CR 8# 70 363 437 445
CTRLC 11# 455
DALX 241 244#
DIAK 193 375 589 1090#
DIAK2 576 1092#
DIAKS 368 373# 485
DIFF 245 286 1115#
DIKZ 477 512#
DIKZ1 515# 537
DIKZ2 529# 533
DIKZ3 516 536#
DIKZT 519 854#
DIR1 244 293 1114#
DIRE 233 296 1113#
ELEM 298 740#
EXFLG 22# 427 453
GRAFZ 356 380#
GZNAK 354 387 643 1093#
HBS 370 474 495 500# 508
HLMDE 397 407 542#
HLMDE1 551# 554
HOME 73 352 457#
IOCHK 17# 60 428
IODEF 19# 59
IOSET 18# 64 434 450
KOI 360 468#
KONRAM 1117#
KONROM 1081#
KROK 789 801 820#
LF 9# 70 365 437 446
MOVA 118# 126 168 172 177 421 696
NASZN 49 66 94#
NASZN1 96# 101
NEDIK 488 498 507#
NEXT 20# 456
NGZ 358 642#
NOPX 216 567 689 705 1105#
NOPY 225 569 691 703 1106#
NPOZ 561 567# 583
NTABGZ 52 91#
PCR 364 392#
PEN0 118 205 435 701 754 758#
PEN1 122 130 756 764#
PENP 127 756#
PENZ 762 769#
PLF 366 416#
PLF1 412 417#
PORT2 14# 775 821 823
PREX 568 660 1109#
PREY 570 678 1110#
PVZN 65 75#
RADKO 199 392 402 1095#
RAM 29# 1084 1118
RAMC 1118#
RELA 131 206# 755
RELA1 152 205#
RMOVA 46 204#
ROM 28# 35 1082
ROMC 1082#
ROSAX 783 785 792#
ROSAY 751 779#
RPOIN 48 753#
RVECTA 47 129#
SIXX 94 658 1086#
SIXY 676 1087#
SIYX 394 671 1088#
SIYY 404 682 1089#
SKZN 618# 621 623
SMOT 740 742 745 806 1108#
SMR 217 226 307#
SMVL 320 329#
SPED 772 811 1111#
SPEN 148 694 758 764 770 780 1107#
STPX 162 174 206 213 215 1100#
STPY 164 209 222 224 1101#
STRAN 362 400 410 425#
TAB10 883 893#
TAB20 883 883 906#
TAB28 884 921#
TAB30 884 928#
TAB38 886 945#
TAB40 886 961#
TAB48 886 979#
TAB50 887 990#
TAB58 887 1006#
TAB60 889 1014#
TAB68 889 1030#
TAB70 889 1045#
TAB78 890 1058#
TAB80 890 1068#
TAB81 1069#
TABGZ 67 883#
TESTT 51 829#
TESTT1 832# 845 850
TKOI2 479 863#
TKON1 137 154 761 1097#
TKON2 138 768 1098#
TKON3 189 275 1099#
TSTBS 512 556# 588 644
TX 25# 69 436
TXTNS 114 347 350 1094#
TXTSX 108 396 401 419 462 1102#
TXTSY 112 406 411 416 460 1103#
ULZXY 107# 117 121 125 129 135 204 753
VECTA 122# 699
VPOZ 41 135#
VPOZ1 136# 464
VPOZ2 194# 197
VYZN 617 625#
WAITM 796 798 803#
WIDE 191 635 1096#
ZAVOV 40 57#
ZBS 503 557 585 668 834 1091#
ZNAK0 716 719#
ZNAK1 627# 632
ZNAK10 502 575#
ZNAK11 579 584#
ZNAK12 591 594 598#
ZNAK2 600 633#
ZNAK3 388 538 634#
ZNAK4 382 530 582 626 628 653#
ZNAK5 638 655#
ZNAK6 688 701#
ZNAK7 700 706#
ZNAK8 661 673 679 684 710#
ZNAK9 715# 718
ZNAKC 85 347#
ZNAKC1 349 354# 830 833 837 839 848
ZNAKP 39 58 82#
ZPOZ0 247 776 811# 817
ZPOZ1 812# 813
Ú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