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
ZPS | Technické prostředky | Programové vybavení | Dokumentace
1 .LIST
2 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3 TITLE FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD
4 ; 18.5.88
5 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6
7 ; VOLBA SYSTEMU
8
9 0000 TV64 EQU 00 ; AND/G
10 0000 CPM EQU 00 ; 00 = ZPS-2; -1 = ZPS-3
11 0000 SM EQU 00 ; TERMINAL SM 7202
12 0000 HORE EQU 00
13 FFFF IMS EQU -1 ; PRO DPS-1 (IMS)
14
15 ;===============================================
16
17 0000' ASEG
18 ;
19 ; *** DEFINOVANI PAMETOVEHO PROSTORU *
20 ;
21 4000 @R@ EQU 4000H ; ZACATEK
22 00CF RSTN EQU 0CFH ; RST1 .. POUZIVA SYSTEM
23
24 ;-----------------------------------------------
25
26 IF CPM
27 MONIT EQU 100 ; START
28 ERAM EQU 9FFFH ; VRCHOL RAM
29 EP3 EQU 1900H ; USER EPROM
30 IF TV64
31 TVBEG EQU 0F800H
32 ELSE
33 TVBEG EQU 0E800H ; TV-RAM
34 ENDIF
35 EPROM EQU 0C00H+100H ; O.S. EPROM
36 ELSE
37 0000 MONIT EQU 0 ; ROM VERZE ZPS2
38 0000 ERAM EQU 0000
39 1800 EP3 EQU 1800H
40 IF TV64
41 TVBEG EQU 0F800H
42 ELSE
43 3800 TVBEG EQU 3800H ; TV-RAM
44 ENDIF
45 IF HORE
46 EPROM EQU 0B400H
47 ELSE
48 0C00 EPROM EQU 0C00H
49 ENDIF
50 ENDIF
51
52 ;
53 ; * MONITOR ENTRY *
54 ;
55 0103 CI EQU 103H
56 0106 RI EQU 106H
57 0109 CO EQU 109H
58 010C PO EQU 10CH
59 0112 CSTS EQU 112H
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-1
60 0115 IOCHK EQU 115H
61 0118 IOSET EQU 118H
62 011E IODEF EQU 11EH
63 0121 SPCL EQU 121H
64 0124 CRLF EQU 124H
65 0127 EXPR EQU 127H
66 012A ERROR EQU 12AH
67 012D ASHEX EQU 12DH
68 0130 DADR EQU 130H
69 0133 DBYT EQU 133H
70 0136 HILO EQU 136H
71 0139 NEXT EQU 139H
72 013C SPACE EQU 13CH
73 013F CINCR EQU 13FH
74 0142 TEXT EQU 142H
75 0148 HXASC EQU 148H
76 0151 TXIMM EQU 151H
77 0154 WND@ EQU 154H
78 015A RNAME EQU 15AH
79 015D INTER EQU 15DH
80 017B SERI@ EQU 17BH
81 017E SERO@ EQU 17EH
82 0181 SMST@ EQU 181H
83 ;
84 ; TERMINAL
85 0018 TLINE EQU 24
86 0050 TCOLUM EQU 80
87 ; ZAZNAM
88 00FF LENGHT EQU 255 ; DELKA BLOKU
89 000B NAMLE EQU 11 ; DELKA JMENA
90 0040 COMLE EQU 64 ; DELKA KOMENTARE
91 00FB UVOD EQU 0FBH ; SYNCHRO BLOKU
92
93 ;------------------------------------------
94 ; KONSTANTY
95 0003 ETX EQU 3
96 0008 BS EQU 8
97 0009 HT EQU 9
98 000A LF EQU 0AH
99 000B VT EQU 0BH
100 000D CR EQU 0DH
101 001A SUBS EQU 1AH ; END FLAG
102 001B ESC EQU 1BH
103 001D HOME EQU 1DH
104
105 ; BLOKOVA NAVESTI
106 0001 SOH EQU 01H ; "START OF HEADER"
107 0004 EOT EQU 04H ; "END OF TEXT"
108 003A CAN EQU ':' ; JMENO PASKY
109 ; 'A' ; DATOVY (ASCII) BLOK
110 ; 'B' ; BINARNI BLOK
111
112 ; SERIOVY KANAL
113 ; =============
114
115 0010 UMODE EQU 10H
116 0011 USTAT EQU 11H
117 0012 UDATA EQU 12H
118 0013 URES EQU 13H
119 000D PRENOS EQU 0DH ; NASTAVENI PRENOSU (SM7202)
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-2
120 ; (PRO AND-16: 14H)
121 ; PARAMETRY KZD-1
122 ; ===============
123 IF IMS
124 0009 KZDIN EQU 09H ; PRO IMS
125 0008 KZDOUT EQU 08H
126 000B KZDCTR EQU 0BH
127 ELSE ; STD. KZD
128 KZDIN EQU 31H ; ADRESA VSTUPNIHO PORTU
129 KZDOUT EQU 30H ; ADRESA VYSTUPNIHO PORTU
130 KZDCTR EQU 33H ; ADRESA RIDICIHO REGISTRU
131 ENDIF ; MHB 8255
132 0000 PRODL EQU 0 ; CASOVACI PARAMETR
133 ; UDAVA PRODLOUZENI ZAPISOVEHO
134 ; TAKTU V MIKROSEC.
135 ; PRODL=0 ... TAKT = 0,1 MSEC
136 ; PRODL=30 ... TAKT = 0,13 MSEC
137 ; PRODL=100... TAKT = 0,2 MSEC
138
139 ; VYZNAM CHYBOVYCH HLASENI (PRIZNAK Z=0):
140 ; =======================================
141 ; CHYBA &jt;A>
142 ; 0 30H ZAZNAM NENI POVOLEN (SZAVP)
143 ; 2 32H CHYBA PRI CTENI DAT (CRC) (CTBLD,KOBLD)
144 ; 4 34H NESOUHLASI CISLO BLOKU (@READU)
145 ; CHYBA PRI CTENI OZNACENI (CTOZN)
146 ; 6 36H PRETIZENI MOTORKU (TEKP,CTTV)
147 ; 8 38H BYLA PRECTENA EM (@READU)
148 ; A 3AH NENI BINARNI FORMAT (LOAD)
149 ; C 3CH SOUBOR NEEXISTUJE (NUMB,CMPNM)
150
151 ; DEFINICE KONSTANT:
152 ; ==================
153 008B SETPPI EQU 8BH
154 001F SETOUT EQU 1FH
155 00FE KSCVP EQU 0FEH
156 00BE KSCVPC EQU 0BEH
157 00BB KSCVZC EQU 0BBH
158 00BD KSCRVP EQU 0BDH
159 00B7 KSCRVZ EQU 0B7H
160 00AE KSZAVP EQU 0AEH
161 00FF KSTPCT EQU 0FFH
162 00AF KSTPZA EQU 0AFH
163 005C KONST1 EQU 05CH
164 00B3 KPREVZ EQU 0B3H
165
166 ;************************************
167 0000 ASEG
168 IF HORE
169 .PHASE EPROM
170 ELSE
171 ORG EPROM ; START
172 ENDIF
173 ;************************************
174
175 ;====================================
176 ; T A B U L K A S L U Z E B K O S
177 ;====================================
178
179 0C00 C3 0C86 JMP MICOS ; BRANCH TABLE
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-3
180 0C03 C3 0C2A JMP INITS ; INIT SYSTEM
181 0C06 C3 0DA2 JMP FIND ; 1
182 0C09 C3 0D3B JMP OPEN ; 2
183 0C0C C3 0E75 JMP CLOSE ; 3
184 0C0F C3 0DD1 JMP LOAD ; 4
185 0C12 C3 0E3E JMP SAVE ; 5
186 0C15 C3 0D0B JMP BINAR ; 6
187 0C18 C3 1148 ZAC: JMP GET@ ; 7
188 0C1B C3 1523 JMP REWIND ; 8
189 0C1E C3 11AF JMP PUT@ ; 9
190 0C21 C3 1541 JMP STOP ; 10
191 0C24 C3 0D2D JMP SLEN ; 11
192 0C27 C3 0EC2 JMP NUMB@ ; 12
193
194 002A MAXSL EQU $-EPROM
195
196 ;====================================
197 ; INICIALIZACE SYSTEMU KOS
198 ;====================================
199
200 0C2A 3E A9 INITS: MVI A,0A9H ; LO=L,RI-1,PO-1
201 0C2C 32 4158 STA FND ; NE FIND MODE
202 0C2F 32 40E2 STA IOBYT
203 0C32 CD 0151 CALL TXIMM ; OHLASENI
204 0C35 4D 49 4B 4F DB 'MIKOS/K V5.0 '
205 0C39 53 2F 4B 20
206 0C3D 56 35 2E 30
207 0C41 20
208 0C42 28 43 29 20 DC '(C) TESLA DIZ 1987 '
209 0C46 54 45 53 4C
210 0C4A 41 20 44 49
211 0C4E 5A 20 31 39
212 0C52 38 37 A0
213 0C55 21 0C75 LXI H,KOS@@
214 0C58 22 40D1 SHLD KOS@+1
215 0C5B CD 1499 CALL NAF ; NASTAV FLAGY
216 0C5E 21 0C18 LXI H,ZAC ; VYPLN IODEF
217 0C61 11 40AC LXI D,R1LOC
218 0C64 06 0C MVI B,12
219 0C66 CD 12DD CALL MOVE
220 0C69 CD 1548 CALL INITIO ; INICIALIZACE 8255
221 0C6C 3A 1800 LDA EP3 ; USER SYSTEM ?
222 0C6F FE C3 CPI 0C3H
223 0C71 CC 1803 CZ EP3 + 3 ; START
224 ;
225 IF HORE
226 LXI D,0B3F8H
227 MVI C,8
228 CALL 11EH ; IODEF - MEMTOP
229 ENDIF
230 ;
231 0C74 C9 RET
232
233 ;===================================
234 ; VYHODNOCENI SLUZBY MONITORU
235 ;===================================
236
237 0C75 0C KOS@@: INR C
238 0C76 11 0C00 LXI D,EPROM
239 0C79 06 2A MVI B,MAXSL
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-4
240 0C7B EB SLUZBA: XCHG ; JMENO
241 0C7C 79 MOV A,C
242 0C7D 81 ADD C
243 0C7E 81 ADD C ; *3
244 0C7F B8 CMP B
245 0C80 D0 RNC ; VETSI
246 0C81 06 00 MVI B,0
247 0C83 4F MOV C,A ; OFFSET
248 0C84 09 DAD B ; VYPOCTI ADR
249 0C85 E9 PCHL
250
251 ;===================================
252 ; VYHODNOCENI POVELU OBSLUHY
253 ;===================================
254
255 0C86 CD 1541 MICOS: CALL STOP
256 0C89 AF XRA A
257 0C8A 32 4101 STA EXTEXT ; 0..NENI
258 0C8D 0E 5F MVI C,'_'
259 0C8F 3A 4280 LDA JEVER
260 0C92 B7 ORA A
261 0C93 CA 0C98 JZ $+5
262 0C96 0E 2A MVI C,'*' ; PRO VERIFIKACI
263 0C98 CD 0109 CALL CO
264 0C9B CD 1490 CALL ECHOCR
265 0C9E FE 49 CPI 'I'
266 0CA0 CA 0F32 JZ INIT ; INICIALIZACE PASKY
267 0CA3 FE 4F CPI 'O'
268 0CA5 CA 0D3B JZ OPEN ; OPEN OUTPUT
269 0CA8 FE 43 CPI 'C' ; CLOSE OUTPUT
270 0CAA CA 0E75 JZ CLOSE
271 0CAD FE 46 CPI 'F' ; FIND INPUT
272 0CAF CA 0DA2 JZ FIND
273 0CB2 FE 53 CPI 'S'
274 0CB4 CA 0E3E JZ SAVE
275 0CB7 FE 4C CPI 'L' ; LOAD
276 0CB9 CA 0DD1 JZ LOAD
277 0CBC FE 45 CPI 'E'
278 0CBE CA 1614 JZ EOR
279 0CC1 FE 5A CPI 'Z'
280 0CC3 CA 1575 JZ @BOT ; NASTAV NA "BOT"
281 0CC6 FE 42 CPI 'B'
282 0CC8 CA 15E8 JZ @BLOK ; O BLOK VPRED
283 0CCB FE 3E CPI '>'
284 0CCD CA 1597 JZ @SKIP ; O SOUBOR VPRED
285 0CD0 FE 3C CPI '&jt;'
286 0CD2 CA 15A9 JZ @BACK ; O SOUBOR VZAD
287 0CD5 FE 56 CPI 'V'
288 0CD7 CA 0D32 JZ VERIF ; NASTAV VERIFIKACI
289 0CDA FE 50 CPI 'P'
290 0CDC CA 11EE JZ VRF1 ; POROVNANI 1 SOUBORU
291 0CDF FE 52 CPI 'R'
292 0CE1 16 01 MVI D,1
293 0CE3 CA 1523 JZ REWIND ; PREVINUTI NA ZACATEK
294 0CE6 FE 44 CPI 'D'
295 0CE8 CA 1618 JZ @EOR ; ADRESAR KAZETY
296 0CEB FE 4E CPI 'N'
297 0CED CA 0EAA JZ NUMB ; NAJDI DLE CISLA SOUBORU
298 0CF0 FE 58 CPI 'X'
299 0CF2 CA 0D17 JZ SLEN@ ; NASTAV DELKU BLOKU
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-5
300 0CF5 FE 4B CPI 'K' ; ZAPIS EM
301 0CF7 C0 RNZ ; JINY POVEL
302
303 ;************************************
304 ; REALIZACE POVELU KOS-1
305 ;************************************
306
307 ;====================================
308 ; ZAPIS EM NA PASKU
309 ;====================================
310
311 0CF8 CD 141D KONEC: CALL OK?
312 0CFB C0 RNZ ; NEPIS
313 0CFC CD 155B CALL SCVZC
314 0CFF CD 15FA CALL HLKMM
315 0D02 CD 15C5 CALL ZAKMM
316 0D05 CD 1122 CALL ZAKS1
317 0D08 C3 165D JMP EOR1 ; PRED "EM"
318
319 ;====================================
320 ; BINARNI SOUBOR NASTAV
321 ;====================================
322
323 0D0B 3E 42 BINAR: MVI A,'B'
324 0D0D 32 4159 STA BOUT-1
325 0D10 C9 RET
326
327 ;====================================
328 ; UZAVRI A PRIPOJ DALSI SOUBOR
329 ;====================================
330
331 0D11 CD 0E75 NOVYOT: CALL CLOSE
332 0D14 C3 0D6B JMP OPE4
333
334 ;====================================
335 ; NASTAV DELKU BLOKU
336 ; VSTUP: E - DELKA BLOKU
337 ; (PRI VOLANI SLUZBY 157
338 ; JE DELKA BLOKU V &jt;L>
339 ;====================================
340
341 0D17 CD 0151 SLEN@: CALL TXIMM
342 0D1A 0D 0A DB CR,LF
343 0D1C 44 45 4C 4B DC 'DELKA BLOKU'
344 0D20 41 20 42 4C
345 0D24 4F 4B D5
346 0D27 0E 01 MVI C,1
347 0D29 CD 0127 CALL EXPR
348 0D2C D1 POP D
349 0D2D 7B SLEN: MOV A,E
350 0D2E 32 427F STA DEBL ; NOVA DELKA BLOKU
351 0D31 C9 RET
352
353 ;====================================
354 ; PREPNI NASTAVENI VERIFIKACE
355 ;====================================
356
357 0D32 3A 4280 VERIF: LDA JEVER
358 0D35 EE FF XRI 0FFH
359 0D37 32 4280 STA JEVER
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-6
360 0D3A C9 RET
361
362 ;====================================
363 ; OTEVRI NOVY SOUBOR PRO ZAPIS
364 ;====================================
365
366 0D3B AF OPEN: XRA A
367 0D3C CD 1443 CALL IOPO ; NASTAV IOBYT
368 0D3F CD 1431 CALL NPO
369 0D42 F8 RM ; PO=SYSTEM..
370 0D43 0E 02 MVI C,2
371 0D45 C2 40D9 JNZ CCPM ; USER=2
372 0D48 CD 015A CALL RNAME
373 0D4B FE 40 CPI '@' ; VYBER
374 0D4D CA 0D8C JZ OPE2 ; ZA SOUBOR
375 0D50 FE 2E CPI '.'
376 0D52 C2 0D7D JNZ OPE5 ; NA KONEC (APPEND)
377 0D55 CD 157B CALL BOT ; OD ZACATKU
378 0D58 E5 PUSH H
379 0D59 CD 0FC1 OPE1: CALL SEARCH ; KONEC ZAZNAMU ?
380 0D5C CD 0FB8 CALL VYPISH ; SOH
381 0D5F CD 159D CALL SKIP
382 0D62 CD 1541 CALL STOP
383 0D65 CD 141D CALL OK?
384 0D68 C2 0D59 JNZ OPE1 ; DALSI SOUBOR
385 0D6B 2A 4150 OPE4: LHLD BNO ; CISLO SOUBORU
386 0D6E 24 INR H
387 0D6F 2E 00 MVI L,0
388 0D71 22 4150 SHLD BNO ; CISLO BLOKU A SOUBORU
389 0D74 3E 01 MVI A,SOH
390 0D76 32 40E6 STA @OF1
391 0D79 E1 POP H
392 0D7A C3 0F49 JMP WRNAM
393
394 0D7D 3E 08 OPE5: MVI A,8 ; NASTAV PO=1
395 0D7F CD 1449 CALL IOPO1
396 0D82 E5 PUSH H
397 0D83 CD 12AC CALL BLOK4
398 0D86 CD 1614 CALL EOR
399 0D89 C3 0D6B JMP OPE4
400
401 0D8C 3E 08 OPE2: MVI A,8
402 0D8E CD 1449 CALL IOPO1
403 0D91 3A 40E6 LDA @OF1 ; PODRUHE ?
404 0D94 B7 ORA A
405 0D95 C2 0D11 JNZ NOVYOT
406 0D98 E5 PUSH H
407 0D99 CD 1556 CALL SCVPC
408 0D9C CD 15B8 CALL HLDMM ; ZA SOUBOR
409 0D9F C3 0D6B JMP OPE4
410
411 ;====================================
412 ; OTEVRI SOUBOR PRO CTENI
413 ;====================================
414
415 0DA2 AF FIND: XRA A
416 0DA3 CD 144E CALL IORI
417 0DA6 CD 143D CALL NRI
418 0DA9 F8 RM ; SYSTEM RI
419 0DAA 0E 01 MVI C,1
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-7
420 0DAC C2 40D9 JNZ CCPM ; USER 2
421 0DAF CD 015A CALL RNAME
422 0DB2 FE 2E CPI '.'
423 0DB4 CC 157B CZ BOT
424 0DB7 06 0B MVI B,NAMLE
425 0DB9 11 4144 LXI D,FNAME
426 0DBC CD 12DD CALL MOVE
427 0DBF CD 0F7D CALL CMPNM
428 0DC2 3E 01 FIND1: MVI A,1
429 0DC4 32 4152 STA BNI
430 0DC7 32 40E4 STA @IF1
431 0DCA CD 11A4 CALL BUFEND
432 0DCD 22 4156 SHLD ADRI
433 0DD0 C9 RET
434
435 ;====================================
436 ; CTI BINARNI SOUBOR
437 ;====================================
438 ;
439 0DD1 CD 0DA2 LOAD: CALL FIND ; OTEVRI SOUBOR
440 0DD4 CD 12C7 LO1: CALL RICH
441 0DD7 B7 ORA A ; BLANK?
442 0DD8 CA 0DD4 JZ LO1
443 0DDB D6 3C SUI '&jt;'
444 0DDD F5 PUSH PSW
445 0DDE 3E 3A MVI A,3AH
446 0DE0 C2 14AA JNZ ERREND ; NENI BINARNI FORMAT
447 0DE3 F1 POP PSW
448 0DE4 47 MOV B,A ; KONTROLNI SOUCET
449 0DE5 CD 12BE CALL RADR@
450 0DE8 22 40FE SHLD EADR ; KONCOVA ADRESA
451 0DEB EB XCHG
452 0DEC CD 12BE CALL RADR@
453 0DEF 22 40FC SHLD SADR ; START. ADRESA
454 0DF2 CD 12C7 CALL RICH
455 0DF5 FE 3E CPI '>'
456 0DF7 F5 PUSH PSW
457 0DF8 3E 3A MVI A,3AH
458 0DFA C2 14AA JNZ ERREND ; NENI BINAR
459 0DFD F1 POP PSW
460 0DFE E5 PUSH H
461 0DFF CD 12B8 CALL CHECK
462 0E02 06 00 MVI B,0 ; NULUJ
463 0E04 CD 12C7 LO2: CALL RICH
464 0E07 77 MOV M,A
465 0E08 CD 0136 CALL HILO
466 0E0B D2 0E04 JNC LO2
467 0E0E CD 12B8 CALL CHECK
468 0E11 32 4100 STA SUM
469 0E14 E1 POP H
470 0E15 11 4401 LXI D,4401H
471 0E18 CD 0136 CALL HILO
472 0E1B C2 0E24 JNZ CLSTP
473 0E1E 21 0000 LXI H,0
474 0E21 22 40FA SHLD @BT
475
476 ; UZAVRI VSTUPNI SOUBOR
477 0E24 CD 0124 CLSTP: CALL CRLF
478 0E27 CD 143D CALL NRI
479 0E2A F8 RM
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-8
480 0E2B C2 0E39 JNZ CLST2
481 0E2E AF DIRSTP: XRA A
482 0E2F 32 40E4 STA @IF1 ; CLOSE
483 0E32 2F CMA
484 0E33 32 427F STA DEBL ; BLOK 255 B
485 0E36 C3 1597 JMP @SKIP ; ZA EM A STOP
486 0E39 AF CLST2: XRA A
487 0E3A 32 40E5 STA @IF2
488 0E3D C9 RET
489 ;====================================
490 ; ULOZ BINARNI SOUBOR
491 ;====================================
492
493 0E3E CD 0D3B SAVE: CALL OPEN
494 0E41 0E 02 MVI C,2
495 0E43 CD 0127 CALL EXPR ; ROZSAH ADRES
496 0E46 CD 1431 CALL NPO
497 0E49 CC 0D0B CZ BINAR
498 0E4C 0E 3C MVI C,'&jt;' ; PRVNI BYTE
499 0E4E CD 12D7 CALL POCH
500 0E51 06 00 MVI B,0 ; KONTROLNI SOUCET
501 0E53 E1 POP H ; POCATECNI ADRESA
502 0E54 D1 POP D ; KONCOVA ADRESA
503 0E55 CD 12D2 CALL PADR@
504 0E58 EB XCHG
505 0E59 CD 12D2 CALL PADR@
506 0E5C 0E 3E MVI C,'>'
507 0E5E CD 12D7 CALL POCH
508 0E61 48 MOV C,B ; KONTROLNI SUMA ADRES
509 0E62 CD 12D7 CALL POCH
510 0E65 06 00 MVI B,0 ; KONTROLNI SUMA DAT
511 0E67 4E SAV1: MOV C,M
512 0E68 CD 12D7 CALL POCH
513 0E6B CD 0136 CALL HILO
514 0E6E D2 0E67 JNC SAV1
515 0E71 48 MOV C,B ; SUMA
516 0E72 CD 12D7 CALL POCH
517
518 ;====================================
519 ; UZAVRI VYSTUPNI SOUBOR
520 ;====================================
521
522 0E75 CD 1431 CLOSE: CALL NPO
523 0E78 F8 RM
524 0E79 0E 03 MVI C,3
525 0E7B C2 40D9 JNZ CCPM
526 0E7E 3A 40E6 CLOSE0: LDA @OF1 ; NENI OTEVREN
527 0E81 B7 ORA A
528 0E82 C8 RZ
529 0E83 D5 PUSH D
530 0E84 E5 PUSH H
531 0E85 2A 4154 LHLD ADRO
532 0E88 23 INX H
533 0E89 36 1A MVI M,SUBS ; ZAPIS POSLEDNI ZNAK
534 0E8B 3E 04 MVI A,EOT ; UZAVRI BLOK
535 0E8D 32 4159 STA BOUT-1
536 0E90 CD 10E4 CALL WOB
537 0E93 AF XRA A
538 0E94 32 40E6 STA @OF1 ; CLOSE
539 0E97 CD 165D CALL EOR1 ; PRED EM
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-9
540 0E9A 3A 4280 LDA JEVER
541 0E9D B7 ORA A
542 0E9E CA 0EA7 JZ CLOSE1
543 0EA1 CD 15AF CALL BACK
544 0EA4 CD 11EE CALL VRF1
545 0EA7 E1 CLOSE1: POP H
546 0EA8 D1 POP D
547 0EA9 C9 RET
548
549 ;====================================
550 ; NAJDI SOUBOR DLE CISLA A OTEVRI
551 ; VSTUP: PRO VOLANI SLUZBOU 157
552 ; L - CISLO SOUBORU
553 ;====================================
554
555 0EAA CD 0151 NUMB: CALL TXIMM
556 0EAD 0D 0A DB CR,LF
557 0EAF 43 49 53 4C DC 'CISLO SOUBORU'
558 0EB3 4F 20 53 4F
559 0EB7 55 42 4F 52
560 0EBB D5
561 0EBC 0E 01 MVI C,1
562 0EBE CD 0127 CALL EXPR
563 0EC1 D1 POP D
564 0EC2 7B NUMB@: MOV A,E ; CISLO SOUBORU
565 ; &jt;DE> TO DA SLUZBA 157!!
566 0EC3 B7 ORA A
567 0EC4 CA 0ED0 JZ NUM1
568 0EC7 32 4151 STA BTO ; PRO "00"
569 0ECA CD 157B CALL BOT
570 0ECD C3 15E8 JMP @BLOK ; ZA NAZEV PASKY
571 0ED0 CD 0FC1 NUM1: CALL SEARCH
572 0ED3 C2 0EDD JNZ NUM2
573 0ED6 AF XRA A ; PRO "EM"
574 0ED7 32 4281 STA KAM?
575 0EDA C3 0F01 JMP NUM5
576 0EDD 7B NUM2: MOV A,E ; HLEDANE C.S.
577 0EDE B9 CMP C ; CTENE C.S.
578 0EDF D2 0EE3 JNC NUM3
579 0EE2 AF XRA A ; PRO ZPET
580 0EE3 32 4281 NUM3: STA KAM?
581 0EE6 7B NUM4: MOV A,E ; HLEDANE C.S.
582 0EE7 B9 CMP C ; CTENE C.S.
583 0EE8 C2 0DC2 JNZ FIND1 ; OK - NASEL
584 0EEB 3A 4281 LDA KAM?
585 0EEE DA 0F01 JC NUM5
586 0EF1 B7 ORA A ; PRO VPRED
587 0EF2 CA 0F16 JZ NUM6 ; BILO ZPET, HLEDEJ JINAK
588 0EF5 CD 159D CALL SKIP
589 0EF8 CD 0FC1 CALL SEARCH
590 0EFB CA 0F2A JZ NUM8 ; PRO "EM" SOUBOR NENI
591 0EFE C3 0EE6 JMP NUM4
592 0F01 B7 NUM5: ORA A ; PRO ZPET
593 0F02 C2 0F16 JNZ NUM6 ; BYLO VPRED, HLEDEJ JINAK
594 0F05 CD 15AF CALL BACK
595 0F08 CD 15AF CALL BACK
596 0F0B CD 0FC1 CALL SEARCH
597 0F0E 79 MOV A,C ; CTENE C.S.
598 0F0F B7 ORA A
599 0F10 CA 0F2A JZ NUM8 ; PRO "CAN" SOUBOR NENI
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-10
600 0F13 C3 0EE6 JMP NUM4
601
602
603 0F16 CD 157B NUM6: CALL BOT ; HLEDEJ OD ZACATKU
604 0F19 CD 0FC1 NUM7: CALL SEARCH
605 0F1C CA 0F2A JZ NUM8 ; SOUBOR NENI
606 0F1F 7B MOV A,E ; HLEDANE C.S.
607 0F20 B9 CMP C ; CTENE C.S.
608 0F21 CA 0DC2 JZ FIND1 ; OK - NASEL
609 0F24 CD 159D CALL SKIP
610 0F27 C3 0F19 JMP NUM7
611 0F2A CD 165D NUM8: CALL EOR1 ; PRED "EM"
612 0F2D 3E 3C MVI A,3CH
613 0F2F C3 14AA JMP ERREND
614
615 ;====================================
616 ; INICIALIZUJ NOVOU KAZETU
617 ;====================================
618
619 0F32 CD 166C INIT: CALL FORM ; FORMATOVANI
620 0F35 CD 0151 CALL TXIMM
621 0F38 20 5A 41 44 DC ' ZADEJ'
622 0F3C 45 CA
623 0F3E 21 0000 LXI H,0 ; CISLO SOUBORU
624 0F41 22 4150 SHLD BNO ; A BLOKU
625 0F44 CD 015A CALL RNAME ; JMENO PASKY
626 0F47 3E 3A MVI A,CAN
627
628 ; ZAPIS JMENO SOUBORU
629
630 0F49 E5 WRNAM: PUSH H
631 0F4A F5 PUSH PSW
632 0F4B CD 112F CALL NULBF
633 0F4E F1 POP PSW
634 0F4F 77 MOV M,A
635 0F50 23 INX H
636 0F51 06 40 MVI B,COMLE ; JMENO+POZNAMKA
637 0F53 EB XCHG
638 0F54 E1 POP H
639 0F55 D5 PUSH D
640 0F56 CD 12DD CALL MOVE
641 0F59 E1 POP H
642 0F5A 06 0B MVI B,NAMLE
643 0F5C 11 4259 LXI D,WRNM ; VYSTUPNI POLE
644 0F5F 7E WRN1: MOV A,M
645 0F60 B7 ORA A
646 0F61 C2 0F66 JNZ $+5
647 0F64 3E 20 MVI A,' ' ; BLANK
648 0F66 12 STAX D
649 0F67 23 INX H
650 0F68 13 INX D
651 0F69 05 DCR B
652 0F6A C2 0F5F JNZ WRN1
653 0F6D CD 15E1 CALL ZADMM ; DMM PRED SOUBOREM
654 0F70 0E 41 MVI C,COMLE+1 ; DELKA BLOKU
655 0F72 CD 10E9 CALL WOB1
656 0F75 36 41 MVI M,'A' ; TYP DATA
657 0F77 C3 0124 JMP CRLF
658
659 ;====================================
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-11
660 ; TEST NA JMENO
661
662 0F7A CD 0FDD CALL PHDR
663 0F7D CD 0FC1 CMPNM: CALL SEARCH ; POROVNEJ JMENO
664 0F80 C2 0F88 JNZ CMPN1
665 0F83 3E 3C MVI A,3CH ; KONEC SOUBORU
666 0F85 C3 14AA JMP ERREND
667 0F88 3A 4159 CMPN1: LDA BIN-1
668 0F8B FE 3A CPI CAN
669 0F8D CA 0F7A JZ CMPNM-3 ; VYPIS VOLUME JMENO
670 ; PRO ZAPIS
671 0F90 C5 CPF10: PUSH B ; &jt;C> - CISLO SOUBORU
672 0F91 01 4144 LXI B,FNAME
673 0F94 21 4159 LXI H,BIN-1
674 0F97 1E 0B MVI E,NAMLE
675 0F99 CD 0FA4 CALL TESTJM
676 0F9C C1 POP B
677 0F9D C8 RZ ; OK - NASEL
678 0F9E CD 159D CALL SKIP
679 0FA1 C3 0F7D JMP CMPNM ; DALSI JMENO
680
681 0FA4 23 TESTJM: INX H ; JMENO
682 0FA5 0A LDAX B
683 0FA6 FE 2A CPI '*'
684 0FA8 CA 141A JZ JMENO?
685 0FAB CD 1412 CALL @ANAL
686 0FAE CA 0FB8 JZ VYPISH
687 0FB1 BE CMP M
688 0FB2 C0 RNZ
689 0FB3 03 INX B
690 0FB4 1D DCR E
691 0FB5 C2 0FA4 JNZ TESTJM
692
693
694 ; VYPIS HLAVICKU
695
696 0FB8 C5 VYPISH: PUSH B
697 0FB9 D5 PUSH D
698 0FBA CD 0FDD CALL PHDR
699 IF SM
700 LDA TSM
701 ORA A
702 JNZ VYP1
703 MVI C,1FH ; PRO TERMINAL
704 CALL SERO@
705 CALL CRLF
706 ENDIF
707 0FBD D1 VYP1: POP D
708 0FBE C1 POP B
709 0FBF AF XRA A
710 0FC0 C9 RET
711
712
713 IF SM
714 SERCR: MVI C,CR ; ZNAK "CR" NA SERIOVY
715 JMP SERO@ ; VYSTUP
716 ENDIF
717
718
719 0FC1 CD 1556 SEARCH: CALL SCVPC ; NALEZENI SOUBORU
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-12
720 0FC4 CD 15B8 CALL HLDMM ; NA PASCE A TEST
721 0FC7 D5 PUSH D
722 0FC8 CD 1078 CALL READBL
723 0FCB D1 POP D
724 0FCC FE 38 CPI 38H
725 0FCE CA 1541 JZ STOP ; PRO "EM"
726 0FD1 F5 PUSH PSW
727 0FD2 79 MOV A,C ; CISLO BLOKU
728 0FD3 32 4153 STA BTI
729 0FD6 32 4151 STA BTO
730 0FD9 F1 POP PSW
731 0FDA C3 1541 JMP STOP
732
733
734 ; TISK HLAVICKY SOUBORU
735
736 0FDD PHDR: IF SM
737 LDA TSM
738 ORA A
739 PUSH PSW
740 CNZ CRLF ; POUZE PRO TV
741 POP PSW
742 CZ SERCR ; PRO TERMINAL
743 ELSE
744 0FDD CD 0124 CALL CRLF
745 ENDIF
746 0FE0 21 415A PHDR1: LXI H,BIN
747 0FE3 16 40 MVI D,COMLE
748 0FE5 C3 0142 JMP TEXT
749
750 0FE8 C5 PDIR: PUSH B
751 0FE9 79 MOV A,C
752 0FEA CD 1015 CALL DBTV2
753 0FED CD 0FE0 CALL PHDR1
754 0FF0 CD 013C CALL SPACE
755 0FF3 C1 POP B
756 0FF4 C9 RET
757
758
759 ; VYPIS NA CO PRO IDENTIFIKACI BLOKU
760
761 0FF5 21 4264 PNAME: LXI H,READNM ; VYPIS "E" ZNAKU Z POLE
762 0FF8 7E PNAM1: MOV A,M ; READNM NA CO
763 0FF9 FE 1F CPI 1FH
764 0FFB D2 1000 JNC PNAM2
765 0FFE C6 40 ADI 40H ; KOD SAPI-1 NA ASCII
766 1000 4F PNAM2: MOV C,A
767 1001 CD 0109 CALL CO
768 1004 23 INX H
769 1005 1D DCR E
770 1006 C2 0FF8 JNZ PNAM1
771 1009 C9 RET
772
773
774 100A CD 0124 DBTCR: CALL CRLF
775 100D 7A DBTV: MOV A,D
776 100E CD 0133 CALL DBYT
777 1011 CD 013C DBTV1: CALL SPACE
778 1014 78 MOV A,B
779 1015 CD 0133 DBTV2: CALL DBYT
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-13
780 1018 C3 013C JMP SPACE
781
782
783 101B 2A 427A OBNOV: LHLD POSICE ; VRACENI OKNA
784 101E CD 0151 CALL TXIMM
785 1021 9B DB 9BH ; ESC
786 1022 4D MOV C,L
787 1023 CD 0109 CALL CO
788 1026 4C MOV C,H
789 1027 CD 0109 CALL CO
790 102A 3A 427C LDA MOD@
791 102D 32 40E3 STA MODE
792 1030 C9 RET
793
794
795 1031 D5 OKNO: PUSH D ; NASTAVENI OKNA
796 1032 C5 PUSH B
797 1033 21 40E3 LXI H,MODE
798 1036 7E MOV A,M
799 1037 36 00 MVI M,0 ; ZRUS ^P
800 1039 32 427C STA MOD@
801 103C CD 0121 CALL SPCL
802 103F 21 2020 LXI H,2020H
803 1042 19 DAD D
804 1043 22 427A SHLD POSICE
805 1046 CD 0151 CALL TXIMM
806 1049 9D DB HOME OR 80H
807 104A C1 POP B
808 104B D1 POP D
809 104C C9 RET
810
811
812 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
813
814 ; OPERACE SE SOUBORY
815
816 ;=======================================
817 ; CTI VSTUPNI BUFFER
818 ;=======================================
819
820 104D D5 RIB: PUSH D
821 104E C5 PUSH B
822 104F AF XRA A
823 1050 32 4158 STA FND ; FIND MOD
824 1053 CD 1078 CALL READBL
825 1056 B7 ORA A
826 1057 C2 128F JNZ ERRD ; CHYBA CTENI BLOKU
827 105A CD 106E CALL NUFIL ; CISLA OK ?
828 105D C2 128F JNZ ERRD
829 1060 22 4152 RIB1: SHLD BNI
830 1063 C1 POP B
831 1064 D1 POP D
832 1065 3A 4159 RIB2: LDA BIN-1 ; TYP BLOKU
833 1068 FE 3A CPI CAN ; NAZEV PASKY
834 106A C8 RZ
835 106B FE 01 CPI SOH ; JMENO SOUBORU
836 106D C9 RET ; &jt;A> = TYP BLOKU
837
838
839 106E 2A 4152 NUFIL: LHLD BNI
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-14
840 1071 23 INX H ; CISLO BLOKU
841 1072 79 MOV A,C
842 1073 BC CMP H ; OK?
843 1074 C0 RNZ
844 1075 78 MOV A,B
845 1076 BD CMP L ; CISLO SOUBORU ?
846 1077 C9 RET
847
848
849 ;=============================================
850 ; CTENI BLOKU VYSTUP: B -CISLO BLOKU CTENE
851 ; C -CISLO SOUBORU CTENE
852 ; A =0 - CTENI OK
853 ; A&jt;>0 - CHYBA
854 ;=============================================
855
856 1078 CD 10C3 READBL: CALL @READU ; CTENI UVODU BLOKU
857 107B B7 ORA A
858 107C C2 1098 JNZ KONBL1 ; PRO CHYBU
859 107F 21 4264 LXI H,READNM
860 1082 36 3A MVI M,':' ; VYHLEDAVANI
861 1084 3A 4158 LDA FND
862 1087 B7 ORA A
863 1088 C2 1092 JNZ KONBL0
864 108B 36 2A MVI M,'*'
865 108D 79 MOV A,C
866 108E 3D DCR A
867 108F 32 427F STA DEBL ; DELKA BLOKU
868 1092 23 KONBL0: INX H
869 1093 36 22 MVI M,'"'
870 1095 CD 133D CALL CTBLD ; CTENI BLOKU DAT
871
872 1098 F5 KONBL1: PUSH PSW ; &jt;A> = CHYBA
873 1099 3A 4159 LDA BIN-1
874 109C FE 42 CPI 'B'
875 109E CA 10A8 JZ KONBL2 ; NENI STOP
876 10A1 3A 4158 LDA FND
877 10A4 B7 ORA A
878 10A5 CC 1541 CZ STOP
879 10A8 CD 1031 KONBL2: CALL OKNO
880 10AB 1E 0F MVI E,15
881 10AD 7B MOV A,E
882 10AE 32 4158 STA FND ; NE FIND MOD
883 10B1 CD 0FF5 CALL PNAME ; VYPIS JMENA
884 10B4 CD 100D CALL DBTV
885 10B7 CD 101B CALL OBNOV
886 10BA 21 4159 LXI H,BIN-1
887 10BD 22 4156 SHLD ADRI
888 10C0 F1 POP PSW
889 10C1 4A MOV C,D ; CISLO SOUBORU
890 10C2 C9 RET ; A=0 PRO OK
891 ; A&jt;>0 PRO CHYBU
892
893 ;==============================================
894 ; CTENI UVODU BLOKU
895 ; VYSTUP: B - CISLO BLOKU CTENE
896 ; C - DELKA BLOKU
897 ; D - CISLO SOUBORU CTENE
898 ; NEBO VIZ TEKP
899 ;===========================================
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-15
900
901 10C3 CD 1556 @READU: CALL SCVPC
902 10C6 CD 15FA CALL HLKMM
903 10C9 C0 RNZ ; PRO CHYBU (A=31)
904 10CA CD 1551 CALL SCVP
905 10CD CD 12E6 CALL CTTV
906 10D0 FE 36 CPI 36H
907 10D2 CA 14AA JZ ERREND ; KONEC PASKY
908 10D5 4F MOV C,A
909 10D6 B7 ORA A
910 10D7 3E 38 MVI A,38H
911 10D9 C8 RZ ; PRO KONEC SOUBORU
912 10DA 79 MOV A,C
913 10DB FE FB CPI UVOD
914 10DD C0 RNZ ; NENI SYNCHRONIZACE
915 10DE CD 1323 CALL CTOZN
916 10E1 C0 RNZ ; PRO CHYBU CTENI ONACENI
917 10E2 AF XRA A ; BLOKU (A=34)
918 10E3 C9 RET ; PRO CTOZN OK
919
920
921 ;==============================================
922 ; ZAPIS VYSTUPNI BUFFER
923 ;==============================================
924
925 10E4 3A 427F WOB: LDA DEBL ; DELKA BLOKU
926 10E7 4F MOV C,A
927 10E8 0C INR C ; + TYP BLOKU
928 10E9 2A 4150 WOB1: LHLD BNO
929 10EC 23 INX H
930 10ED 22 4150 SHLD BNO
931 10F0 45 MOV B,L ; CISLO BLOKU
932 10F1 54 MOV D,H ; CISLO SOUBORU
933 10F2 C5 PUSH B
934 10F3 CD 1031 CALL OKNO
935 10F6 CD 1011 CALL DBTV1 ; CISLO BLOKU NA CO
936 10F9 CD 101B CALL OBNOV
937 10FC C1 POP B
938
939 ;==============================================
940 ; ZAPIS BLOKU VSTUP: B -CISLO BLOKU
941 ; C -DELKA BLOKU
942 ; D -CISLO SOUBORU
943 ; VYSTUP: B -CISLO BLOKU
944 ;==============================================
945
946 10FD CD 15C5 @WBLOK: CALL ZAKMM
947 1100 C2 14AA JNZ ERREND ; PRO NEPOVOLENY ZAPIS
948 1103 CD 14D5 CALL ZAOZN
949 1106 CD 139B CALL ZABLD
950 1109 CD 1505 CALL TEKP
951 110C C2 14AA JNZ ERREND ; PRO CHYBU
952 110F 3A 4159 LDA BOUT-1
953 1112 FE 04 CPI EOT ; BYL POSLEDNI BLOK?
954 1114 CA 111C JZ ZAKS ; ANO=KONEC
955 1117 FE 3A CPI CAN
956 1119 C2 112F JNZ NULBF
957 111C CD 15C5 ZAKS: CALL ZAKMM ; ZAPIS KONEC SOUBORU
958 111F CD 14F7 CALL ZAKBL ; EM
959 1122 CD 15E1 ZAKS1: CALL ZADMM ; DMM ZA SOUBOREM
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-16
960 1125 CD 1505 CALL TEKP
961 1128 C0 RNZ
962 1129 CD 14F7 ZAKS2: CALL ZAKBL ; EM
963 112C CD 15C5 CALL ZAKMM
964
965 ; NULUJ VYSTUPNI BUFFER
966
967 112F 21 4159 NULBF: LXI H,BOUT-1
968 1132 22 4154 SHLD ADRO
969 1135 E5 PUSH H
970 1136 3E FF MVI A,LENGHT
971 1138 23 INX H
972 1139 36 00 MVI M,0
973 113B 3D DCR A
974 113C C2 1138 JNZ $-4
975 113F E1 POP H ; (BLOK TYP) ADR
976 1140 7E MOV A,M
977 1141 FE 42 CPI 'B'
978 1143 C4 1541 CNZ STOP
979 1146 AF XRA A ; OK
980 1147 C9 RET
981
982
983 ;==============================
984 ; CTI BYTE Z KAZETY
985 ;==============================
986
987 1148 C5 GET@: PUSH B
988 1149 D5 PUSH D
989 114A E5 PUSH H
990 114B 3A 40E4 LDA @IF1 ; BYL OTEVREN SOUBOR?
991 114E B7 ORA A
992 114F CC 0DA2 CZ FIND ; KDYZ NE, TAK FIND
993 1152 CD 11A4 GET0: CALL BUFEND
994 1155 EB XCHG ; DE = BEIND-1
995 1156 2A 4156 LHLD ADRI
996 1159 CD 0136 CALL HILO
997 115C 7E MOV A,M
998 115D 22 4156 SHLD ADRI
999 1160 DA 1192 JC GET1 ; &jt;A>..BYTE
1000 1163 FE 1A CPI SUBS ; EOF? TEST
1001 1165 C2 118D JNZ GETEX ; -
1002 1168 4F MOV C,A
1003 1169 CD 119E CALL KONEC?
1004 116C 79 GET00: MOV A,C ; POSLEDNI BLOK
1005 116D C2 118D JNZ GETEX ; -
1006 1170 45 MOV B,L ; ADR ZNAKU SUBS
1007 1171 CD 11A4 CALL BUFEND ; HLEDEJ OD KONCE
1008 1174 2B GET01: DCX H
1009 1175 BE CMP M ; JE SUBS
1010 1176 C2 1174 JNZ GET01 ; -
1011 1179 7D MOV A,L
1012 117A 93 SUB E ; STEJNY ADR?
1013 117B C2 116C JNZ GET00 ; - NENI KONEC
1014
1015 117E AF GET2: XRA A
1016 117F 32 40E4 STA @IF1 ; UZAVRI SOUBOR
1017 1182 2F CMA
1018 1183 32 427F STA DEBL ; DELKA BLOKU 255 B
1019 1186 CD 1597 CALL @SKIP ; ZA EM
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-17
1020 1189 3E 1A MVI A,SUBS
1021 118B 37 STC ; CY=1 !!!
1022 118C 06 DB 6 ; ZRUS ORA
1023 118D B7 GETEX: ORA A
1024 118E E1 POP H
1025 118F D1 POP D
1026 1190 C1 POP B
1027 1191 C9 RET
1028
1029 1192 CD 119E GET1: CALL KONEC?
1030 1195 C4 104D CNZ RIB
1031 1198 C2 1152 JNZ GET0 ; KONEC SOUBORU
1032 119B C3 117E JMP GET2
1033
1034 119E 3A 4159 KONEC?: LDA BIN-1 ; POSLEDNI BLOK?
1035 11A1 FE 04 CPI EOT
1036 11A3 C9 RET ; ZY=1...ANO
1037
1038 11A4 3A 427F BUFEND: LDA DEBL ; VYPOCTI KONEC BLOKU
1039 11A7 5F MOV E,A ; V BUFFRU
1040 11A8 21 4159 LXI H,BIN-1
1041 11AB 16 00 MVI D,0
1042 11AD 19 DAD D
1043 11AE C9 RET
1044
1045
1046 ;===============================
1047 ; ZAPIS BYTE NA KAZETU
1048 ;===============================
1049
1050 11AF CD 11D9 PUT@: CALL PUTEND ; JE ^Z ?
1051 11B2 DA 0E7E JC CLOSE0
1052 11B5 C5 PUSH B
1053 11B6 D5 PUSH D
1054 11B7 E5 PUSH H
1055 11B8 3A 40E6 LDA @OF1 ; BYL OTEVREN?
1056 11BB B7 ORA A
1057 11BC C5 PUSH B
1058 11BD CC 0D3B CZ OPEN ; KDYZ NE, TAK OPEN
1059 11C0 C1 POP B
1060 11C1 CD 11A4 CALL BUFEND ; DE = BOUT-1
1061 11C4 EB XCHG
1062 11C5 2A 4154 LHLD ADRO
1063 11C8 23 INX H
1064 11C9 71 MOV M,C
1065 11CA 22 4154 SHLD ADRO
1066 11CD CD 0136 CALL HILO
1067 11D0 DC 10E4 CC WOB
1068 11D3 E1 POP H
1069 11D4 D1 POP D
1070 11D5 C1 POP B
1071 11D6 79 MOV A,C
1072 11D7 B7 ORA A ; NCY
1073 11D8 C9 RET
1074
1075 11D9 3A 4159 PUTEND: LDA BOUT-1
1076 11DC FE 42 CPI 'B'
1077 11DE C8 RZ
1078 11DF 3A 40E3 LDA MODE
1079 11E2 E6 02 ANI 2
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-18
1080 11E4 EE 02 XRI 2
1081 11E6 C8 RZ
1082 11E7 79 MOV A,C
1083 11E8 FE 1A CPI SUBS
1084 11EA 37 STC
1085 11EB C8 RZ
1086 11EC B7 ORA A
1087 11ED C9 RET
1088
1089
1090 ;===============================
1091 ; ZKONTROLUJ JEDEN SOUBOR
1092 ;===============================
1093
1094 11EE CD 0124 VRF1: CALL CRLF
1095 11F1 CD 0FC1 CALL SEARCH
1096 11F4 F5 PUSH PSW ; &jt;A> = CHYBA
1097 11F5 AF XRA A
1098 11F6 32 4153 STA BTI ; CISLO SOUBORU
1099 11F9 CD 0FE8 CALL PDIR ; CISLO SOUBORU A HLAVICKA
1100 11FC F1 POP PSW ; NA CO
1101 11FD B7 VRF2: ORA A
1102 11FE CA 1215 JZ VRF4 ; OK
1103 1201 FE 38 CPI 38H
1104 1203 C2 120E JNZ VRF3 ; BYLA EM
1105 1206 3A 4159 LDA BIN-1
1106 1209 FE 3A CPI CAN
1107 120B CA 1541 JZ STOP ; OK
1108 120E C5 VRF3: PUSH B ; CISLO BLOKU
1109 120F 0E 23 MVI C,'#'
1110 1211 CD 0109 CALL CO
1111 1214 C1 POP B
1112 1215 CD 106E VRF4: CALL NUFIL
1113 1218 0E 25 MVI C,'%'
1114 121A 22 4152 SHLD BNI ; ULOZ CISLA
1115 121D C4 0109 CNZ CO ; PRO CHYBU CISEL
1116 1220 3A 4159 LDA BIN-1
1117 1223 FE 04 CPI EOT
1118 1225 CA 1541 JZ STOP ; KONEC SOUBORU
1119 1228 CD 1078 CALL READBL
1120 122B C3 11FD JMP VRF2
1121
1122
1123 ;===============================
1124 ; OSETRENI CHYBY
1125 ;===============================
1126
1127 122E CD 1541 ERRD0: CALL STOP
1128 1231 CD 0124 CALL CRLF
1129 1234 2A 4152 LHLD BNI
1130 1237 23 INX H
1131 1238 EB XCHG ; CISLO SOUBORU
1132 1239 43 MOV B,E ; A BLOKU NA CO
1133 123A CD 100A CALL DBTCR
1134 123D CD 0151 CALL TXIMM
1135 1240 0D 0A 07 DB CR,LF,7
1136 1243 43 48 59 42 DC 'CHYBA CTENI: I/D/N/A=ZNOVA ?'
1137 1247 41 20 43 54
1138 124B 45 4E 49 3A
1139 124F 20 49 2F 44
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-19
1140 1253 2F 4E 2F 41
1141 1257 3D 5A 4E 4F
1142 125B 56 41 20 BF
1143 125F CD 1480 CALL ECHO
1144 1262 EB XCHG ; CISLO SOUBORU A BLOKU
1145 1263 FE 4E CPI 'N' ; PRO "N"
1146 1265 CA 1060 JZ RIB1
1147 1268 FE 49 CPI 'I'
1148 126A C2 127A JNZ ERRD1
1149 126D 3A 4153 LDA BTI
1150 1270 3C INR A
1151 1271 32 4153 STA BTI ; ZVYS CISLO SOUBORU
1152 IF SM
1153 LDA TSM
1154 ORA A
1155 CZ CRLF
1156 ENDIF
1157 1274 CD 159D CALL SKIP
1158 1277 C3 1295 JMP ERRD7
1159 127A FE 44 ERRD1: CPI 'D'
1160 127C C2 1292 JNZ ERRD3
1161 127F 3A 4153 LDA BTI
1162 1282 3D DCR A ; SNIZ CISLO SOUBORU
1163 1283 32 4153 STA BTI
1164 1286 CD 15AF CALL BACK
1165 1289 CD 15AF CALL BACK
1166 128C C3 1295 JMP ERRD7
1167 128F CD 1541 ERRD: CALL STOP ; PRO 1. CHYBU - "A"
1168 1292 CD 12AC ERRD3: CALL BLOK4
1169 1295 AF ERRD7: XRA A
1170 1296 32 4158 STA FND ; FIND MOD
1171 1299 CD 1078 CALL READBL
1172 129C B7 ORA A
1173 129D C2 1295 JNZ ERRD7
1174 12A0 CD 106E CALL NUFIL ; NASEL ?
1175 12A3 CA 1060 JZ RIB1 ; ANO - OK
1176 12A6 D2 122E JNC ERRD0 ; PREJEL
1177 12A9 C3 1295 JMP ERRD7
1178
1179 12AC C5 BLOK4: PUSH B ; ZPET O 4 BLOKY
1180 12AD 06 04 MVI B,4
1181 12AF CD 15F4 BL41: CALL BLOK2
1182 12B2 05 DCR B
1183 12B3 C2 12AF JNZ BL41
1184 12B6 C1 POP B
1185 12B7 C9 RET
1186
1187
1188 12B8 48 CHECK: MOV C,B ; KONTROLNI SOUCET ?
1189 12B9 CD 12C7 CALL RICH
1190 12BC B9 CMP C
1191 12BD C8 RZ
1192
1193 12BE CD 12C7 RADR@: CALL RICH
1194 12C1 6F MOV L,A
1195 12C2 CD 12C7 CALL RICH ; HL
1196 12C5 67 MOV H,A
1197 12C6 C9 RET
1198
1199 12C7 CD 0106 RICH: CALL RI ; CTENI & SUMA
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-20
1200 12CA DA 14A8 JC ERSTP
1201 12CD F5 PUSH PSW
1202 12CE 80 ADD B
1203 12CF 47 MOV B,A
1204 12D0 F1 POP PSW
1205 12D1 C9 RET
1206
1207 12D2 4D PADR@: MOV C,L
1208 12D3 CD 12D7 CALL POCH
1209 12D6 4C MOV C,H
1210
1211 12D7 79 POCH: MOV A,C ; ZAPIS & SUMA
1212 12D8 80 ADD B
1213 12D9 47 MOV B,A
1214 12DA C3 010C JMP PO
1215
1216
1217 12DD 7E MOVE: MOV A,M ; PRESUN PAMETI
1218 12DE 12 STAX D ; HL - ODKUD
1219 12DF 23 INX H ; DE - KAM
1220 12E0 13 INX D ; B - KOLIK
1221 12E1 05 DCR B
1222 12E2 C2 12DD JNZ MOVE
1223 12E5 C9 RET
1224
1225 ;=======================================
1226 ; CTENI TYPU ZAZNAMU
1227 ; VYSTUP: A = 00 - PRO EM
1228 ; FB - PRO DATOVY BLOK
1229 ; NEBO VIZ TEKP
1230 ;=======================================
1231
1232 12E6 C5 CTTV: PUSH B
1233 12E7 D5 PUSH D
1234 12E8 11 5000 LXI D,5000H ; TIME OUT
1235 12EB C3 1307 JMP CTTV2
1236 12EE 3E 05 CTTV0: MVI A,5
1237 12F0 3D DCR A
1238 12F1 C2 12F0 JNZ $-1
1239 12F4 0E 10 MVI C,10H
1240 12F6 0D CTTV1: DCR C
1241 12F7 C2 130A JNZ CTTV3
1242 12FA 1B DCX D
1243 12FB 7A MOV A,D
1244 12FC B3 ORA E
1245 12FD C2 1307 JNZ CTTV2
1246 1300 D1 POP D
1247 1301 C1 POP B
1248 1302 3E 38 MVI A,38H
1249 1304 C3 14AA JMP ERREND ; KONEC PRO TIME OUT
1250 1307 01 0110 CTTV2: LXI B,0110H
1251 130A DB 09 CTTV3: IN KZDIN
1252 130C E6 F0 ANI 0F0H
1253 130E CA 12F6 JZ CTTV1
1254 1311 17 RAL
1255 1312 78 MOV A,B
1256 1313 17 RAL
1257 1314 47 MOV B,A
1258 1315 D2 12EE JNC CTTV0
1259 1318 DB 09 IN KZDIN
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-21
1260 131A E6 30 ANI 30H ; TEST PRETIZENI MOTORKU
1261 131C 78 MOV A,B
1262 131D D1 POP D
1263 131E C1 POP B
1264 131F C8 RZ ; OK
1265 1320 3E 36 MVI A,36H ; PRO CHYBU
1266 1322 C9 RET
1267
1268
1269 ;==============================================
1270 ; CTENI OZNACENI BLOKU
1271 ; VYSTUP: B - CISLO BLOKU
1272 ; C - DELKA BLOKU
1273 ; D - CISLO SOUBORU
1274 ; NEBO NZ - CHYBA CTENI OZNACENI BLOKU
1275 ; A - CHYBA 2
1276 ; NEBO VIZ TEKP
1277 ;==============================================
1278
1279 1323 E5 CTOZN: PUSH H
1280 1324 CD 1374 CALL CTIBYT
1281 1327 47 MOV B,A ; CISLO BLOKU
1282 1328 CD 1374 CALL CTIBYT
1283 132B 4F MOV C,A ; DELKA BLOKU
1284 132C CD 1374 CALL CTIBYT
1285 132F 57 MOV D,A ; CISLO SOUBORU
1286 1330 CD 1374 CALL CTIBYT ; KONTROLNI SOUCET OZNACENI
1287 1333 82 ADD D ; BLOKU
1288 1334 81 ADD C
1289 1335 80 ADD B ; MUSI BYT 0, JINAK CHYBA
1290 1336 E1 POP H
1291 1337 3E 34 MVI A,34H
1292 1339 C0 RNZ ; NAVRAT PRO CHYBNY SOUCET
1293 133A C3 1505 JMP TEKP ; PRO OK TEST KONCE PASKY
1294 ; POKUD NENI, JE VSE OK
1295
1296
1297 ;====================================
1298 ; CTENI BLOKU DAT
1299 ; VSTUP: C - DELKA BLOKU
1300 ; VYSTUP: NZ - CHYBA CTENI DAT
1301 ; A - CHYBA 2
1302 ; NEBO VIZ TEKP
1303 ;====================================
1304
1305 133D D5 CTBLD: PUSH D
1306 133E C5 PUSH B
1307 133F 11 4159 LXI D,BIN-1 ; DATA DO VSTUP. BUFFRU
1308 1342 21 0000 LXI H,0 ; PRO VYPOCET CRC
1309 1345 CD 1374 CTBLD1: CALL CTIBYT
1310 1348 12 STAX D ; ULOZENI DAT DO PAMETI
1311 1349 13 INX D
1312 134A 0D DCR C
1313 134B C2 1345 JNZ CTBLD1
1314 134E CD 1374 CTBLD2: CALL CTIBYT ; NACTENI KONTROLNI SUMY
1315 1351 CD 1374 CALL CTIBYT ; DO HL
1316 1354 7C MOV A,H
1317 1355 B5 ORA L ; PRO OK MUSI BYT 0
1318 1356 3E 32 MVI A,32H
1319 1358 F5 PUSH PSW ; "Z" A CHYBU
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-22
1320 1359 11 4266 LXI D,READNM+2
1321 135C 06 0B MVI B,NAMLE
1322 135E CD 1374 CTBLD3: CALL CTIBYT ; CTENI JMENA
1323 1361 12 STAX D ; NA CO
1324 1362 13 INX D
1325 1363 05 DCR B
1326 1364 C2 135E JNZ CTBLD3
1327 1367 EB XCHG
1328 1368 36 22 MVI M,'"'
1329 136A 23 INX H
1330 136B 36 20 MVI M,' '
1331 136D F1 POP PSW
1332 136E C1 POP B
1333 136F D1 POP D
1334 1370 C0 RNZ ; PRO CHYBU KONTROL. SOUCTU
1335 1371 C3 1505 JMP TEKP ; PRO OK KONTROLA KONCE
1336 ; PASKY
1337
1338 ;====================================
1339 ; NACTENI 1 BYTE Z PASKY
1340 ; VSTUP: HL - PREDCHOZI CRC
1341 ; VYSTUP: A - PRECTENY BYTE
1342 ; HL - CRC
1343 ;====================================
1344
1345 1374 C5 CTIBYT: PUSH B
1346 1375 06 01 MVI B,01 ; POCITADLO BITU
1347 1377 DB 09 CTIBY1: IN KZDIN
1348 1379 E6 F0 ANI 0F0H
1349 137B CA 1377 JZ CTIBY1
1350 137E DB 09 IN KZDIN
1351 1380 E6 F0 ANI 0F0H
1352 1382 CA 1377 JZ CTIBY1 ; PRO RUSENI
1353 1385 17 RAL
1354 1386 F5 PUSH PSW ; VYPOCET CRC
1355 1387 9F SBB A
1356 1388 29 DAD H ; PREDCHOZI CRC
1357 1389 8F ADC A
1358 138A B7 ORA A ; UPRAVA PRO Z-80
1359 138B 3E 07 MVI A,7
1360 138D EA 1392 JPE $+5 ; NA POP PSW
1361 1390 AD XRA L
1362 1391 6F MOV L,A
1363 1392 F1 POP PSW ; KONEC VYPOCTU CRC
1364 1393 78 MOV A,B
1365 1394 17 RAL ; CYKLUS PRO 8 BITU
1366 1395 47 MOV B,A
1367 1396 D2 1377 JNC CTIBY1
1368 1399 C1 POP B
1369 139A C9 RET
1370
1371
1372 ;====================================
1373 ; ZAPIS BLOKU DAT = "C" BYTU DAT,
1374 ; 2 BYTY CRC, 11 BYTU JMENO,
1375 ; 2 BYTY ODDELOVACI &jt;55H>
1376 ; VSTUP: C - DELKA DAT
1377 ;====================================
1378
1379 139B C5 ZABLD: PUSH B
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-23
1380 139C 11 4159 LXI D,BOUT-1 ; DATA Z VYSTUP. BUFFERU
1381 139F 21 0000 LXI H,0 ; PRO VYPOCET CRC
1382 13A2 1A ZABLD1: LDAX D
1383 13A3 CD 13C7 CALL PISBYT ; ZAPIS VLASTNICH DAT
1384 13A6 13 INX D
1385 13A7 0D DCR C
1386 13A8 C2 13A2 JNZ ZABLD1
1387 13AB 7C MOV A,H
1388 13AC CD 13C7 CALL PISBYT ; ZAPIS CRC ZNAKU
1389 13AF 7C MOV A,H
1390 13B0 CD 13C7 CALL PISBYT
1391 13B3 11 4259 LXI D,WRNM
1392 13B6 06 0B MVI B,NAMLE ; Z WRNM
1393 13B8 1A ZABLD2: LDAX D
1394 13B9 CD 13C7 CALL PISBYT ; ZAPIS JMENA
1395 13BC 13 INX D
1396 13BD 05 DCR B
1397 13BE C2 13B8 JNZ ZABLD2
1398 13C1 C1 POP B
1399 13C2 3E 55 PISODD: MVI A,55H
1400 13C4 CD 13C7 CALL PISBYT ; ZAPIS 16 BITU ODDELOVACICH
1401
1402
1403 ;======================================
1404 ; ZAPIS 1 BYTE NA PASKU
1405 ; VSTUP: A - BYTE DAT
1406 ; HL - PREDCHOZI CRC
1407 ; VYSTUP: HL - CRC
1408 ;======================================
1409
1410 13C7 C5 PISBYT: PUSH B
1411 13C8 0E 80 MVI C,80H ; POCITADLO (MASKA) BITU
1412 13CA 47 MOV B,A ; DATA DO REG.B
1413 13CB A1 ANA C ; VYBER BITU
1414 13CC C6 FF ADI 0FFH ; BIT DO CARRY
1415 13CE 3E 5C MVI A,KONST1 ; A=5CH
1416 13D0 1F RAR ; A=X0101110
1417 ; (X-BIT DAT, SNIRENA
1418 ; CITLIVOST, D.P.=H,
1419 ; ZAZNAM, VPRED)
1420 13D1 D3 08 OUT KZDOUT ; VYSTUP DAT
1421 13D3 F5 PUSH PSW
1422 13D4 EE 20 XRI 20H ; A=X0001110
1423 13D6 D3 08 OUT KZDOUT ; DATA PLATNA
1424
1425 13D8 17 RAL ; VYPOCET CRC
1426 13D9 9F SBB A
1427 13DA 29 DAD H
1428 13DB 8F ADC A
1429 13DC B7 ORA A ; UPRAVA PRO Z-80
1430 13DD 3E 07 MVI A,7
1431 13DF EA 13E4 JPE $+5
1432 13E2 AD XRA L
1433 13E3 6F MOV L,A
1434 13E4 3E 02 MVI A,2 ; CEKACI SMICKA
1435 13E6 3D DCR A ; NA PROUDLOZENI
1436 13E7 C2 13E6 JNZ $-1 ; PLATNOSTI DAT !!!
1437 13EA F1 POP PSW ; KONEC VYP.CRC
1438
1439 13EB D3 08 OUT KZDOUT ; VRACENI SIGN.D.P.
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-24
1440 13ED 3E 03 MVI A,3+(2*PRODL/15)
1441 13EF 3D DCR A
1442 13F0 C2 13EF JNZ $-1
1443 13F3 79 MOV A,C
1444 13F4 0F RRC ; NA DALSI BIT
1445 13F5 4F MOV C,A
1446 13F6 78 MOV A,B
1447 13F7 D2 13CB JNC PISBYT+4
1448 13FA C1 POP B
1449 13FB C9 RET
1450
1451
1452 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1453
1454 ; INSTALACE TERMINALU SM 7202
1455
1456 13FC ARAM EQU $
1457
1458 IF ARAM GT EPROM+800H
1459 .PRINTX 'SPATNA TABULKA SM 7202'
1460 ERRRAM ORA
1461
1462 ELSE
1463
1464 IF HORE
1465 BALAST: DS (EPROM+800H)-ARAM
1466 ELSE
1467 ORG EPROM+800H
1468 ENDIF
1469
1470 ENDIF
1471
1472 1400 C3 173D SERIO: JMP SINIT
1473 1403 C3 017B JMP SERI@
1474 1406 C3 1759 JMP SCO
1475 1409 C3 0181 JMP SMST@
1476
1477 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1478
1479
1480 ; JE EXTERNI JMENO '"' ?
1481
1482 140C 3A 4101 EXT?: LDA EXTEXT
1483 140F FE 22 CPI '"'
1484 1411 C9 RET
1485
1486
1487 ; ANALYZA ODDELOVACU
1488
1489 1412 FE 20 @ANAL: CPI ' '
1490 1414 C8 RZ
1491 1415 FE 0D ANAL: CPI CR
1492 1417 C8 RZ
1493 1418 B7 ORA A
1494 1419 C9 RET
1495
1496 141A CD 0FB8 JMENO?: CALL VYPISH ; ANO / NE
1497 141D CD 0151 OK?: CALL TXIMM
1498 1420 2D 2D 28 41 DC '--(A/N)?'
1499 1424 2F 4E 29 BF
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-25
1500 1428 CD 1490 CALL ECHOCR
1501 142B FE 41 CPI 'A'
1502 142D C8 RZ
1503 142E FE 59 CPI 'Y'
1504 1430 C9 RET
1505
1506 ;========================================
1507
1508 ; TEST NA IOBYTE (PO)
1509
1510 1431 3A 40E2 NPO: LDA IOBYT
1511 1434 0F RRC
1512 1435 0F RRC
1513 1436 0F NRI1: RRC
1514 1437 0F RRC
1515 1438 E6 03 ANI 3 ; ZARIZENI
1516 143A 3D DCR A ; MINUS .. SYSTEM
1517 143B 3D DCR A ; ZY.. USER=1
1518 143C C9 RET ; NZ.. USER=2
1519
1520 ; TEST NA IOBYTE (RI)
1521
1522 143D 3A 40E2 NRI: LDA IOBYT
1523 1440 C3 1436 JMP NRI1
1524
1525 ; NASTAV IOBYTE PODLE OPTION
1526
1527 1443 CD 1460 IOPO: CALL CISLO
1528 1446 D8 RC
1529 1447 07 RLC
1530 1448 07 RLC
1531 1449 0E CF IOPO1: MVI C,0CFH ; MASKA
1532 144B C3 1454 JMP ZMIO
1533
1534 144E CD 1460 IORI: CALL CISLO
1535 1451 D8 RC
1536 1452 0E F3 MVI C,0F3H ; MASKA
1537 1454 07 ZMIO: RLC
1538 1455 07 RLC
1539 1456 47 MOV B,A
1540 1457 3A 40E2 LDA IOBYT
1541 145A A1 ANA C
1542 145B B0 ORA B
1543 145C 32 40E2 STA IOBYT
1544 145F C9 RET
1545
1546 1460 D6 30 CISLO: SUI '0'
1547 1462 D8 RC ; CY=1..NENI
1548 1463 FE 03 CPI 3
1549 1465 3F CMC
1550 1466 D8 RC
1551 1467 3C INR A
1552 1468 C9 RET
1553
1554
1555 ; VYPIS TEXT
1556
1557 1469 CD 0151 TXNAM: CALL TXIMM
1558 146C 0D 0A DB CR,LF
1559 146E 20 4E 41 5A DC ' NAZEV:'
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-26
1560 1472 45 56 BA
1561 1475 C9 RET
1562
1563
1564 1476 CD 0112 BREAK: CALL CSTS
1565 1479 C8 RZ
1566 147A CD 0103 CALL CI
1567 147D C3 1484 JMP ETX?
1568
1569
1570 ; CTI A VYPIS ZNAK
1571
1572 1480 CD 013F ECHO: CALL CINCR
1573 1483 C8 RZ
1574 1484 FE 03 ETX?: CPI ETX
1575 1486 C0 RNZ
1576 1487 CD 1541 CALL STOP
1577 148A CD 1499 CALL NAF ; NULUJ FLAGY
1578 148D C3 0139 JMP NEXT ; BREAK=>C
1579
1580
1581 1490 CD 1480 ECHOCR: CALL ECHO
1582 1493 F5 PUSH PSW
1583 1494 CD 0124 CALL CRLF
1584 1497 F1 POP PSW
1585 1498 C9 RET
1586
1587
1588 1499 AF NAF: XRA A ; NASTAVENI FLEGU
1589 149A 32 40E4 STA @IF1
1590 149D 32 40E6 STA @OF1
1591 14A0 32 4280 STA JEVER
1592 14A3 2F CMA ; = LENGHT
1593 14A4 32 427F STA DEBL
1594 14A7 C9 RET
1595
1596 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1597
1598 ; ZASTAV A OHLAS CHYBU
1599
1600 14A8 3E 32 ERSTP: MVI A,32H ; CHYBA SOUCTU
1601 14AA F5 ERREND: PUSH PSW
1602 14AB CD 0124 CALL CRLF
1603 14AE CD 0151 CALL TXIMM
1604 14B1 43 48 59 42 DC 'CHYBA - '
1605 14B5 41 20 2D A0
1606 14B9 F1 POP PSW
1607 14BA E6 0F ANI 0FH ; TYP CHYBY
1608 14BC 5F MOV E,A
1609 14BD CD 1541 CALL STOP
1610 14C0 16 00 MVI D,0
1611 14C2 21 16B1 LXI H,TXERR
1612 14C5 19 DAD D
1613 14C6 CD 14CC CALL @TEXT
1614 14C9 C3 0139 JMP NEXT
1615
1616 14CC 5E @TEXT: MOV E,M
1617 14CD 23 INX H
1618 14CE 56 MOV D,M
1619 14CF EB XCHG
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-27
1620 14D0 56 MOV D,M
1621 14D1 23 INX H
1622 14D2 C3 0142 JMP TEXT
1623
1624
1625 ;====================================
1626 ; ZAPIS OZNACENI BLOKU - 0FFH, CISLO
1627 ; A DELKA BLOKU, CISLO SOUBORU,
1628 ; KONTROLNI SOUCET
1629 ; VSTUP: B - CISLO BLOKU
1630 ; C - DELKA BLOKU
1631 ; D - CISLO SOUBORU
1632 ;====================================
1633
1634 14D5 3E FB ZAOZN: MVI A,UVOD ; UVOD BLOKU (0FBH)
1635 14D7 CD 13C7 CALL PISBYT
1636 14DA CD 14F0 CALL ZAOZN1
1637 14DD 78 MOV A,B ; CISLO BLOKU
1638 14DE CD 13C7 CALL PISBYT
1639 14E1 79 MOV A,C ; DELKA BLOKU
1640 14E2 CD 13C7 CALL PISBYT
1641 14E5 7A MOV A,D
1642 14E6 CD 13C7 CALL PISBYT ; CISLO SOUBORU
1643 14E9 81 ADD C
1644 14EA 80 ADD B
1645 14EB 2F CMA
1646 14EC 3C INR A
1647 14ED CD 13C7 CALL PISBYT ; KONTROLNI SOUCET
1648 14F0 3E 20 ZAOZN1: MVI A,32
1649 14F2 3D DCR A
1650 14F3 C2 14F2 JNZ $-1
1651 14F6 C9 RET
1652
1653
1654 ;====================================
1655 ; ZAPIS KONCOVYCH BLOKU (EM, FM)
1656 ; - 16 KRAT PISE &jt;00H>
1657 ; VYSTUP: VIZ TEKP
1658 ;====================================
1659
1660 14F7 C5 ZAKBL: PUSH B
1661 14F8 E5 PUSH H
1662 14F9 06 10 MVI B,16
1663 14FB AF ZAKB1: XRA A
1664 14FC CD 13C7 CALL PISBYT
1665 14FF 05 DCR B
1666 1500 C2 14FB JNZ ZAKB1
1667 1503 E1 POP H
1668 1504 C1 POP B
1669
1670
1671 ;====================================
1672 ; TEST KONCE PASKY
1673 ; VYSTUP: NZ - MOTOREK PRETIZEN
1674 ; A - CHYBA 1
1675 ;====================================
1676
1677 1505 CD 1476 TEKP: CALL BREAK
1678 1508 DB 09 IN KZDIN
1679 150A E6 30 ANI 30H ; TEST PRETIZENI
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-28
1680 150C 3E 36 MVI A,36H ; OBOU MOTORKU
1681 150E C0 RNZ ; PRO CHYBU - NENALEZEN KONEC
1682 150F AF XRA A ; SOUBORU
1683 1510 C9 RET ; PRO OK - PASKA STOJI
1684
1685 ;====================================
1686 ; PREVINUTI KAZETY
1687 ; VSTUP: D=1 - NA ZACATEK
1688 ; D-0 - NA KONEC
1689 ; VYSTUP: VIZ TEKP
1690 ;====================================
1691
1692 1511 D5 REW3: PUSH D
1693 1512 3E B3 MVI A,KPREVZ
1694 1514 15 DCR D ; URCENI SMERU PREMOTANI
1695 1515 CA 151A JZ REW4
1696 1518 3E BD MVI A,KSCRVP
1697 151A D3 08 REW4: OUT KZDOUT
1698 151C D1 POP D
1699 151D CD 1505 REW7: CALL TEKP
1700 1520 CA 151D JZ REW7 ; DOKUD NEDA PRETIZENI !
1701 1523 D5 REWIND: PUSH D
1702 1524 3E BB MVI A,KSCVZC
1703 1526 15 DCR D ; URCENI SMERU
1704 1527 CA 152C JZ REW5
1705 152A 3E BE MVI A,KSCVPC
1706 152C D3 08 REW5: OUT KZDOUT
1707 152E D1 POP D
1708 152F C5 PUSH B
1709 1530 01 2EE0 LXI B,12000D
1710 1533 0B REW1: DCX B ; CEKACI SMICKA PRO
1711 1534 78 MOV A,B ; PREVIJENI
1712 1535 B1 ORA C
1713 1536 C2 1533 JNZ REW1
1714 1539 C1 POP B
1715 153A CD 1505 CALL TEKP
1716 153D CA 1511 JZ REW3 ; OPAKUJE, DOKUD NADA
1717 1540 AF XRA A ; PRETIZENI
1718
1719
1720 ;===================================
1721 ; STOP POHYBU
1722 ;===================================
1723
1724 1541 F5 STOP: PUSH PSW
1725 1542 3E FF MVI A,KSTPCT
1726 1544 D3 08 OUT KZDOUT
1727 1546 F1 POP PSW
1728 1547 C9 RET
1729
1730
1731 ;==================================
1732 ; INICIALIZACE MHB 8255
1733 ;==================================
1734
1735 1548 3E 8B INITIO: MVI A,SETPPI
1736 154A D3 0B OUT KZDCTR
1737 154C 3E 1F MVI A,SETOUT
1738 154E D3 08 OUT KZDOUT
1739 1550 C9 RET
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-29
1740
1741 ;==================================
1742 ; START CTENI VPRED
1743 ;==================================
1744
1745 1551 3E FE SCVP: MVI A,KSCVP
1746 1553 D3 08 OUT KZDOUT
1747 1555 C9 RET
1748
1749 ;==================================
1750 ; START CTENI VPRED (SNIZ.CITL.)
1751 ;==================================
1752
1753 1556 3E BE SCVPC: MVI A,KSCVPC
1754 1558 D3 08 OUT KZDOUT
1755 155A C9 RET
1756
1757 ;==================================
1758 ; START CTENI VZAD (SNIZ.CITL.)
1759 ;==================================
1760
1761 155B 3E BB SCVZC: MVI A,KSCVZC
1762 155D D3 08 OUT KZDOUT
1763 155F C9 RET
1764
1765 ;==================================
1766 ; START CTENI RYCHLE VPRED
1767 ;==================================
1768
1769 1560 3E BD SCRVP: MVI A,KSCRVP
1770 1562 D3 08 OUT KZDOUT
1771 1564 C9 RET
1772
1773 ;==================================
1774 ; START CTENI RYCHLE VZAD
1775 ;==================================
1776
1777 1565 3E B7 SCRVZ: MVI A,KSCRVZ
1778 1567 D3 08 OUT KZDOUT
1779 1569 C9 RET
1780
1781 ;=======================================
1782 ; START ZAZNAMU VPRED
1783 ; VYSTUP: NZ - ZAZNAM NENI POVOLEN
1784 ; A - CHYBA 0
1785 ;=======================================
1786
1787 156A 3E AE SZAVP: MVI A,KSZAVP
1788 156C D3 08 OUT KZDOUT
1789 156E DB 09 IN KZDIN
1790 1570 E6 08 ANI 08H
1791 1572 3E 30 MVI A,30H
1792 1574 C9 RET
1793
1794
1795 ;===================================
1796 ; VYHLEDANI ZACATKU PASKY (ZN. BOT)
1797 ; VYSTUP: VIZ TEKP
1798 ;===================================
1799
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-30
1800 1575 CD 157B @BOT: CALL BOT
1801 1578 C3 1541 JMP STOP
1802
1803 157B 16 01 BOT: MVI D,1 ; PREVINUTI NA ZACATEK
1804 157D CD 1523 CALL REWIND
1805 1580 CD 1556 CALL SCVPC
1806 1583 CD 15B8 CALL HLDMM
1807 1586 CD 15B8 CALL HLDMM
1808 1589 C2 14AA JNZ ERREND
1809 158C C5 PUSH B
1810 158D 01 01F4 LXI B,500D
1811 1590 CD 16A7 CALL HLBOT1
1812 1593 C1 POP B
1813 1594 C3 15B8 JMP HLDMM
1814
1815
1816 ;===============================
1817 ; SKOK O 1 SOUBOR VPRED
1818 ; VYSTUP: VIZ TEKP
1819 ;===============================
1820
1821 1597 CD 159D @SKIP: CALL SKIP
1822 159A C3 1541 JMP STOP
1823
1824 159D CD 1556 SKIP: CALL SCVPC ; MUSI STAT PRED (NEBO V)
1825 15A0 CD 12E6 CALL CTTV ; SOUBOREM
1826 15A3 CD 1560 CALL SCRVP
1827 15A6 C3 15B8 JMP HLDMM ; NASTAVI NA KONEC SOUBORU
1828
1829
1830 ;===============================
1831 ; SKOK O 1 SOUBOR VZAD
1832 ; VYSTUP: VIZ TEKP
1833 ;===============================
1834
1835 15A9 CD 15AF @BACK: CALL BACK
1836 15AC C3 1541 JMP STOP
1837
1838 15AF CD 155B BACK: CALL SCVZC
1839 15B2 CD 12E6 CALL CTTV ; VYHLED.DAT VZAD
1840 15B5 CD 1565 CALL SCRVZ ; RYCHLE VZAD
1841
1842
1843 ;==============================
1844 ; HLEDANI DLOUHE MEZIBL. MEZERY
1845 ; VYSTUP: VIZ TEKP
1846 ;==============================
1847
1848 15B8 E5 HLDMM: PUSH H ; 853 TAKTU ???
1849 15B9 21 2500 LXI H,2500H ; MA BYT 3840 ???
1850 15BC CD 1608 CALL HLMM2
1851 15BF C2 15B9 JNZ HLDMM+1
1852 15C2 C3 1604 JMP HLMM1
1853
1854
1855 ;==============================
1856 ; ZAPIS KRATKE MEZIBL. MEZERY
1857 ; VYSTUP: VIZ SZAVP, TEKP
1858 ;==============================
1859
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-31
1860 15C5 C5 ZAKMM: PUSH B
1861 15C6 01 0450 LXI B,450H ; MA BYT 500=500 TAKTU ???
1862 15C9 CD 156A ZAMM2: CALL SZAVP
1863 15CC C2 15DC JNZ ZAMM3 ; PRO NEPOVOLENY ZAZNAM
1864 15CF 3E 0B ZAMM1: MVI A,11+(2*PRODL/15) ; CEKACI SMICKA
1865 15D1 3D DCR A ; MEZERY
1866 15D2 C2 15D1 JNZ $-1
1867 15D5 00 NOP
1868 15D6 0B DCX B
1869 15D7 79 MOV A,C
1870 15D8 B0 ORA B
1871 15D9 C2 15CF JNZ ZAMM1
1872 15DC C1 ZAMM3: POP B
1873 15DD C0 RNZ ; PRO NEPOVOLENY ZAZNAM
1874 15DE C3 1505 JMP TEKP
1875
1876
1877 ;==============================
1878 ; ZAPIS DLOUHE MEZIBL. MEZERY
1879 ; VYSTUP: VIZ SZAVP, TEKP
1880 ;==============================
1881
1882 15E1 C5 ZADMM: PUSH B
1883 15E2 01 2000 LXI B,2000H ; MA BYT 5200=5200 TAKTU ???
1884 15E5 C3 15C9 JMP ZAMM2
1885
1886
1887 ;==============================
1888 ; SKOK O 1 BLOK VPRED
1889 ; VYSTUP: VIZ TEKP
1890 ;==============================
1891
1892 15E8 CD 15EE @BLOK: CALL BLOK1
1893 15EB C3 1541 JMP STOP
1894
1895 15EE CD 1556 BLOK1: CALL SCVPC
1896 15F1 C3 15F7 JMP BLOK2+3
1897
1898
1899 ;==============================
1900 ; SKOK O 1 BLOK VZAD
1901 ; VYSTUP: VIZ TEKP
1902 ;==============================
1903
1904 15F4 CD 155B BLOK2: CALL SCVZC
1905 15F7 CD 12E6 CALL CTTV
1906
1907
1908 ;==============================
1909 ; HLEDANI KRATKE MEZIBL.MEZERY
1910 ; VYSTUP: VIZ TEKP
1911 ;==============================
1912
1913 15FA E5 HLKMM: PUSH H ; 125 TAKTU ???
1914 15FB 21 0200 LXI H,200H ; MA BYT 550 ???
1915 15FE CD 1608 CALL HLMM2
1916 1601 C2 15FB JNZ HLKMM+1 ; PRO NAVRAT PRES RNZ
1917 1604 E1 HLMM1: POP H ; PRO DALSI POKUS
1918 1605 C3 1505 JMP TEKP
1919
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-32
1920 1608 DB 09 HLMM2: IN KZDIN ; HLEDANI MEZERY
1921 160A E6 C0 ANI 0C0H ; V ZADANE DELCE
1922 160C C0 RNZ ; PRO SPATNE - BYLY
1923 160D 2B DCX H ; PRETECENY DATA
1924 160E B4 ORA H
1925 160F B5 ORA L
1926 1610 C2 1608 JNZ HLMM2
1927 1613 C9 RET ; PRO OK - NACTEN ZADANY
1928 ; POCET "NEDAT"
1929
1930 ;==============================
1931 ; VYHLEDANI KONCE VSECH ZAZNAMU
1932 ; VYSTUP: VIZ TEKP
1933 ;==============================
1934
1935 1614 AF EOR: XRA A ; = EOR
1936 1615 C3 161D JMP EOR0
1937 1618 4F @EOR: MOV C,A ; C=0/"D" PRO EOR?DIR
1938 1619 3A 4280 LDA JEVER
1939 161C B1 ORA C ; A="D" OR JEVER
1940 161D F5 EOR0: PUSH PSW ; A&jt;>0 - DIR
1941 161E C4 157B CNZ BOT
1942 1621 CD 0FC1 EOR2: CALL SEARCH ; CTENI BLOKU SE JMENEM
1943 1624 CA 165C JZ EOR3 ; CTENA EM
1944 1627 F1 POP PSW
1945 1628 F5 PUSH PSW
1946 1629 CA 163E JZ EOR4 ; NENI DIR
1947 162C CD 0FE8 CALL PDIR
1948 162F 79 MOV A,C
1949 1630 B7 ORA A
1950 1631 CA 163B JZ EOR41 ; PRO NAZEV PASKY
1951 1634 F1 POP PSW
1952 1635 F5 PUSH PSW
1953 1636 FE 44 CPI 'D'
1954 1638 C2 1644 JNZ EOR5 ; PRO VERIFIKACI
1955 163B CD 0124 EOR41: CALL CRLF
1956 163E CD 159D EOR4: CALL SKIP
1957 1641 C3 1621 JMP EOR2
1958 1644 AF EOR5: XRA A ; NENI CHYBA
1959 1645 32 4152 STA BNI ; CISLO BLOKU
1960 1648 CD 11FD CALL VRF2
1961 164B CD 0124 CALL CRLF
1962 164E 0E 2D MVI C,'-'
1963 1650 CD 0109 CALL CO
1964 1653 CD 1011 CALL DBTV1 ; CISLO BLOKU
1965 1656 CD 0124 CALL CRLF
1966 1659 C3 1621 JMP EOR2
1967 165C F1 EOR3: POP PSW
1968 165D CD 155B EOR1: CALL SCVZC
1969 1660 CD 15B8 CALL HLDMM
1970 1663 CD 15FA CALL HLKMM
1971 1666 C2 14AA JNZ ERREND
1972 1669 C3 1541 JMP STOP
1973
1974
1975 ;==============================
1976 ; FORMATOVANI (MAZANI) KAZETY
1977 ; VYSTUP: VIZ TEKP
1978 ;==============================
1979
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-33
1980 166C 16 01 FORM: MVI D,1 ; PREVIJENI VZAD, TEDY
1981 166E CD 1523 CALL REWIND ; PREVINUTI NA ZACATEK
1982 1671 CD 156A CALL SZAVP
1983 1674 C2 14AA JNZ ERREND ; PRO ZAPIS NENI POVOLEN
1984 1677 C5 PUSH B
1985 1678 E5 PUSH H
1986 1679 01 2EE0 LXI B,12000D; ZAPIS DAT (1/10 KAZETY)
1987 167C 3E 55 MVI A,55H
1988 167E CD 13C7 FORM1: CALL PISBYT
1989 1681 0B DCX B
1990 1682 78 MOV A,B
1991 1683 B1 ORA C
1992 1684 C2 167E JNZ FORM1
1993 1687 CD 1565 CALL SCRVZ
1994 168A CD 15B8 CALL HLDMM
1995 168D CD 15B8 CALL HLDMM ; PREVINUTI NA ZACATEK
1996 1690 CD 1556 CALL SCVPC
1997 1693 CD 16A4 CALL HLBOT ; VYHLADANI 6000 BYTE DAT
1998 1696 E1 POP H
1999 1697 C1 POP B
2000 1698 32 4103 STA NAMBUF ; A=0 (&jt;>"@")
2001 169B CD 1122 CALL ZAKS1 ; ZAPIS DMM, EM A KMM
2002 169E C2 14AA JNZ ERREND
2003 16A1 C3 165D JMP EOR1 ; NASTAVENI PRED EM
2004
2005 16A4 01 044C HLBOT: LXI B,1100D
2006 16A7 CD 12E6 HLBOT1: CALL CTTV
2007 16AA 0B DCX B
2008 16AB 78 MOV A,B
2009 16AC B1 ORA C
2010 16AD C2 16A7 JNZ HLBOT1
2011 16B0 C9 RET
2012
2013 ;-----------------------------------
2014
2015 ; TEXTY CHYBOVYCH HLASENI
2016
2017 16B1 16BF TXERR: DW TXER0
2018 16B3 16D3 DW TXER2
2019 16B5 16E3 DW TXER4
2020 16B7 16F8 DW TXER6
2021 16B9 1704 DW TXER8
2022 16BB 1717 DW TXERA
2023 16BD 172B DW TXERC
2024
2025 16BF 13 TXER0: DB 19
2026 16C0 5A 41 5A 4E DC 'ZAZNAM NENI POVOLEN'
2027 16C4 41 4D 20 4E
2028 16C8 45 4E 49 20
2029 16CC 50 4F 56 4F
2030 16D0 4C 45 CE
2031 16D3 0F TXER2: DB 15
2032 16D4 43 48 59 42 DC 'CHYBA CTENI DAT'
2033 16D8 41 20 43 54
2034 16DC 45 4E 49 20
2035 16E0 44 41 D4
2036 16E3 14 TXER4: DB 20
2037 16E4 43 48 59 42 DC 'CHYBA OZNACENI BLOKU'
2038 16E8 41 20 4F 5A
2039 16EC 4E 41 43 45
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-34
2040 16F0 4E 49 20 42
2041 16F4 4C 4F 4B D5
2042 16F8 0B TXER6: DB 11
2043 16F9 4B 4F 4E 45 DC 'KONEC PASKY'
2044 16FD 43 20 50 41
2045 1701 53 4B D9
2046 1704 12 TXER8: DB 18
2047 1705 4E 45 4E 49 DC 'NENI KONEC SOUBORU'
2048 1709 20 4B 4F 4E
2049 170D 45 43 20 53
2050 1711 4F 55 42 4F
2051 1715 52 D5
2052 1717 13 TXERA: DB 19
2053 1718 4E 45 4E 49 DC 'NENI BINARNI FORMAT'
2054 171C 20 42 49 4E
2055 1720 41 52 4E 49
2056 1724 20 46 4F 52
2057 1728 4D 41 D4
2058 172B 11 TXERC: DB 17
2059 172C 53 4F 55 42 DC 'SOUBOR NEEXISTUJE'
2060 1730 4F 52 20 4E
2061 1734 45 45 58 49
2062 1738 53 54 55 4A
2063 173C C5
2064
2065 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2066
2067 ; OBSLUHA TERMINALU SM 7202
2068
2069 ; INICIALIZACE SYSTEMU
2070 ; --------------------
2071
2072 173D 21 1403 SINIT: LXI H,SERIO+3
2073 1740 11 40C4 LXI D,CI@0
2074 1743 06 09 MVI B,9
2075 1745 CD 12DD CALL MOVE
2076 1748 AF XRA A
2077 1749 32 4282 STA SEKV ; NENI ESC. SEKVENCE
2078 174C 3E 09 MVI A,9 ; TERM.+STOP MGF.
2079 174E D3 10 SINI1: OUT UMODE
2080 1750 D3 13 OUT URES
2081 1752 3E 0D MVI A,PRENOS ; NASTAVENI PRENOSU
2082 1754 D3 11 OUT USTAT
2083 1756 DB 12 IN UDATA ; NEPLATNA DATA
2084 1758 C9 RET
2085
2086
2087 ; SERIOVY VYSTUP
2088 ; --------------
2089
2090 1759 3A 4282 SCO: LDA SEKV
2091 175C B7 ORA A
2092 175D C2 17DA JNZ SCO7 ; JE ESC. SEKVENCE
2093 1760 79 MOV A,C ; ANALYZA ZNAKU
2094 1761 FE 1B CPI ESC
2095 1763 CA 17D4 JZ SCO6 ; ZACINA ESC. SEKV.
2096 1766 FE 1D CPI HOME
2097 1768 CA 178F JZ SCO1
2098 176B FE 0A CPI LF
2099 176D CA 179A JZ SCO3
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-35
2100 1770 FE 0B CPI VT
2101 1772 CA 179A JZ SCO3
2102 1775 FE 0D CPI CR
2103 1777 CA 1793 JZ SCO2
2104 177A FE 09 CPI HT
2105 177C CA 17A9 JZ SCO4
2106 177F FE 08 CPI BS
2107 1781 C2 17C2 JNZ SCO5
2108 1784 3A 40E9 LDA COLUM ; "BS"
2109 1787 B7 ORA A
2110 1788 CA 017E JZ SERO@
2111 178B 3D DCR A
2112 178C C3 1794 JMP SCO21
2113 178F AF SCO1: XRA A ; "HOME"
2114 1790 32 40E8 STA LINE
2115 1793 AF SCO2: XRA A ; "CR"
2116 1794 32 40E9 SCO21: STA COLUM
2117 1797 C3 017E JMP SERO@
2118 179A 3A 40E8 SCO3: LDA LINE ; "LF" A "VT"
2119 179D FE 18 CPI TLINE ; POCET RADKU
2120 179F CA 017E JZ SERO@
2121 17A2 3C INR A
2122 17A3 32 40E8 STA LINE
2123 17A6 C3 017E JMP SERO@
2124 17A9 C5 SCO4: PUSH B ; "HT"
2125 17AA 3A 40E9 LDA COLUM
2126 17AD 3C SCO41: INR A
2127 17AE FE 50 CPI TCOLUM ; POCET SLOUPCU
2128 17B0 CA 17BD JZ SCO42
2129 17B3 47 MOV B,A
2130 17B4 E6 07 ANI 7
2131 17B6 78 MOV A,B
2132 17B7 C2 17AD JNZ SCO41
2133 17BA C3 17BE JMP SCO43 ; TABELACNI POZICE
2134 17BD 3D SCO42: DCR A ; POSLEDNI SLOUPEC
2135 17BE C1 SCO43: POP B
2136 17BF C3 1794 JMP SCO21
2137 17C2 79 SCO5: MOV A,C
2138 17C3 FE 20 CPI 20H
2139 17C5 D2 017E JNC SERO@ ; PRO RIDICI ZNAK
2140 17C8 3A 40E9 LDA COLUM
2141 17CB FE 4F CPI TCOLUM-1 ; POCET SLOUPCU
2142 17CD CA 017E JZ SERO@
2143 17D0 3C INR A
2144 17D1 C3 1794 JMP SCO21
2145 17D4 32 4282 SCO6: STA SEKV ; NASTAVENI ESC. SEKV.
2146 17D7 C3 017E JMP SERO@
2147 17DA E5 SCO7: PUSH H ; ESC. SEKVENCE
2148 17DB 3A 4282 LDA SEKV
2149 17DE 07 RLC
2150 17DF DA 17EA JC SCO8 ; PRO 3.BYTE
2151 17E2 F6 80 ORI 80H
2152 17E4 21 40E8 LXI H,LINE
2153 17E7 C3 17EE JMP SCO9
2154 17EA AF SCO8: XRA A ; KONEC SEKVENCE
2155 17EB 21 40E9 LXI H,COLUM
2156 17EE 32 4282 SCO9: STA SEKV
2157 17F1 79 MOV A,C
2158 17F2 D6 20 SUI 20H
2159 17F4 DA 17F8 JC SCO10 ; NENI ADRESACE KURZORU
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-36
2160 17F7 77 MOV M,A
2161 17F8 E1 SCO10: POP H
2162 17F9 C3 017E JMP SERO@
2163
2164
2165 17FC @E@KOS EQU $
2166 IF HORE
2167 .DEPHASE
2168 ENDIF
2169
2170 ;
2171 ;*********************************************
2172 ; ROZDELENI S Y S T E M O V E R A M
2173 ;*********************************************
2174 ;
2175 4000 RST1 EQU @R@ ; RESTART VEKTORY
2176 ;........>>>
2177 ;......
2178 ;&jt;&jt;... UZIVATELSKY & MONITOR. ZASOBNIK
2179
2180
2181 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2182 .PHASE @R@+6DH
2183 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2184 ; MONITOR DATA
2185 ;
2186 406D MSTAK: DS 2
2187 406F ACSAV: DS 2
2188 4071 BCSAV: DS 2
2189 4073 DESAV: DS 2
2190 4075 HLSAV: DS 2
2191 4077 PCSAV: DS 2
2192 4079 SPSAV: DS 2
2193 ;
2194 407B BRAD: DS 2
2195 407D INSTR: DS 1
2196 407E BRAD2: DS 2
2197 4080 INST2: DS 1
2198 4081 CADR: DS 2 ; KURZOR ADR.
2199 ;-------------------------
2200 4083 WMKOD: DS 14 ; KOD PRO KURZORY
2201 4091 PREV: DS 21 ; PREVODNI KODY..0
2202 ;-------------------------
2203 ; USER I/O DEVICE
2204 ;
2205 40A6 CILOC: DS 3 ; 0
2206 40A9 COLOC: DS 3 ; 1
2207 40AC R1LOC: DS 3 ; 2
2208 40AF R2LOC: DS 3 ; 3
2209 40B2 P1LOC: DS 3 ; 4
2210 40B5 P2LOC: DS 3 ; 5
2211 40B8 LILOC: DS 3 ; 6
2212 40BB CSLOC: DS 3 ; 7
2213 40BE DS 1
2214 40BF MEMTOP: DS 2 ; 8
2215 40C1 ERRSW: DS 3 ; 9
2216 40C4 CI@0: DS 3 ; 10
2217 40C7 CO@: DS 3 ; 11
2218 40CA CSTS@: DS 3 ; 12
2219 40CD LO@: DS 3 ; 13
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-37
2220 40D0 KOS@: DS 3 ; 14
2221 40D3 RI@: DS 3 ; 15
2222 40D6 PO@: DS 3 ; 16
2223 40D9 CCPM: DS 3 ; 17
2224 40DC GRAF: DS 3
2225 40DF RESER: DS 3
2226 0015 IONUM EQU ($-CILOC)/3+1
2227 ;
2228 40E2 IOBYT: DS 1 ; RIZENI I/O ZARIZENI
2229 ;
2230 ;******************************
2231 ;&jt;&jt; EXTERNE OVLADANE FLAGY: >>
2232 ;******************************
2233 40E3 MODE: DS 1 ; CO-MODE
2234 40E4 @IF1: DS 1
2235 40E5 @IF2: DS 1
2236 40E6 @OF1: DS 1
2237 40E7 @OF2: DS 1
2238 40E8 LINE: DS 1 ; RADEK
2239 40E9 COLUM: DS 1 ; SLOUPEC
2240 40EA RESL: DS 1 ; RESERVACE
2241 40EB RESC: DS 1 ; SLOUPEC
2242 40EC RESL1: DS 1 ; POSLEDNI RADEK
2243 40ED RESC1: DS 1 ; POSLEDNI SLOUPEC
2244 40EE PRER: DS 1 ; UROVEN PRERUSENI
2245 ;
2246 ; PROMENNE PRO OPERACNI SYSTEM
2247 ;
2248 40EF CUR@: DS 1
2249 40F0 KEY: DS 1
2250 40F1 CAS: DS 1
2251
2252 40F2 WNDP: DS 6 ; PARAMETRY PRO 2.OKNO
2253 0015 EXSER EQU $-MODE ; KONEC SLUZEB
2254 ;
2255 40F8 CHAR: DS 1
2256 40F9 XFLG: DS 1
2257 ;
2258 ;**********************************
2259 ; DATA SPOLECNA PRO MONITOR A O.S.
2260 ;**********************************
2261 ;
2262 40FA @BT: DS 1
2263 40FB @PED: DS 1
2264 40FC SADR: DS 2 ; START ADR
2265 40FE EADR: DS 2 ; END ADR
2266 4100 SUM: DS 1
2267 4101 EXTEXT: DS 1
2268 4102 OPT: DS 1
2269 4103 NAMBUF: DS 65
2270 ;
2271 ;""""""""""""""""""""""""""""""""""
2272 ; PROMENNE PRO O.S.
2273 4144 FNAME: DS 12 ; JMENO SOUBORU
2274 4150 BNO: DS 1 ; CISLO BLOKU
2275 4151 BTO: DS 1 ; CISLO SOUBORU
2276 4152 BNI: DS 1 ;
2277 4153 BTI: DS 1 ; INPUT
2278 4154 ADRO: DS 2 ; ADR OUTPUT
2279 4156 ADRI: DS 2 ; ADR INPUT
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE 1-38
2280 4158 FND: DS 1 ; FIND/READ
2281
2282 ;**********************************
2283 ; I/O BUFFER PRO KOS
2284 ;**********************************
2285 4159 DS 1 ; TYP BLOKU
2286 415A BOUT:
2287 415A BIN: DS LENGHT ; DATA
2288 4259 BIEND EQU $
2289 4259 BOEND EQU $
2290 4259 WRNM: DS 11 ; JMENO SOUBORU
2291 4264 READNM: DS 22 ; BUFFER PRO ZOBRAZENI
2292 427A POSICE: DS 2 ; ZOBRAZENI BLOKU
2293 427C MOD@: DS 1
2294 ;
2295 427D TSP: DS 1 ; PRO SP-210
2296 427E JEDE?: DS 1 ; - " -
2297 ;
2298 427F DEBL: DS 1 ; DELKA BLOKU
2299 4280 JEVER: DS 1 ; 0 - NENI VERIFIKACE
2300 4281 KAM?: DS 1 ; HLEDEJ 0/X - ZPET/VPRED
2301 ;
2302 4282 SEKV: DS 1 ; 0 - NENI ESCAPE SEKV.
2303 4283 TSM: DS 1 ; 0 - JE TERMINAL
2304 ;
2305 .DEPHASE
2306 ;
2307 END ;
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE S
Macros:
Symbols:
1412 @ANAL 15A9 @BACK 15E8 @BLOK
1575 @BOT 40FA @BT 17FC @E@KOS
1618 @EOR 40E4 @IF1 40E5 @IF2
40E6 @OF1 40E7 @OF2 40FB @PED
4000 @R@ 10C3 @READU 1597 @SKIP
14CC @TEXT 10FD @WBLOK 406F ACSAV
4156 ADRI 4154 ADRO 1415 ANAL
13FC ARAM 012D ASHEX 15AF BACK
4071 BCSAV 4259 BIEND 415A BIN
0D0B BINAR 12AF BL41 15EE BLOK1
15F4 BLOK2 12AC BLOK4 4152 BNI
4150 BNO 4259 BOEND 157B BOT
415A BOUT 407B BRAD 407E BRAD2
1476 BREAK 0008 BS 4153 BTI
4151 BTO 11A4 BUFEND 4081 CADR
003A CAN 40F1 CAS 40D9 CCPM
40F8 CHAR 12B8 CHECK 0103 CI
40C4 CI@0 40A6 CILOC 013F CINCR
1460 CISLO 0E75 CLOSE 0E7E CLOSE0
0EA7 CLOSE1 0E39 CLST2 0E24 CLSTP
0F88 CMPN1 0F7D CMPNM 0109 CO
40C7 CO@ 40A9 COLOC 40E9 COLUM
0040 COMLE 0F90 CPF10 0000 CPM
000D CR 0124 CRLF 40BB CSLOC
0112 CSTS 40CA CSTS@ 133D CTBLD
1345 CTBLD1 134E CTBLD2 135E CTBLD3
1377 CTIBY1 1374 CTIBYT 1323 CTOZN
12E6 CTTV 12EE CTTV0 12F6 CTTV1
1307 CTTV2 130A CTTV3 40EF CUR@
0130 DADR 100A DBTCR 100D DBTV
1011 DBTV1 1015 DBTV2 0133 DBYT
427F DEBL 4073 DESAV 0E2E DIRSTP
40FE EADR 1480 ECHO 1490 ECHOCR
1614 EOR 161D EOR0 165D EOR1
1621 EOR2 165C EOR3 163E EOR4
163B EOR41 1644 EOR5 0004 EOT
1800 EP3 0C00 EPROM 0000 ERAM
128F ERRD 122E ERRD0 127A ERRD1
1292 ERRD3 1295 ERRD7 14AA ERREND
012A ERROR 40C1 ERRSW 14A8 ERSTP
001B ESC 0003 ETX 1484 ETX?
0127 EXPR 0015 EXSER 140C EXT?
4101 EXTEXT 0DA2 FIND 0DC2 FIND1
4144 FNAME 4158 FND 166C FORM
167E FORM1 1152 GET0 116C GET00
1174 GET01 1192 GET1 117E GET2
1148 GET@ 118D GETEX 40DC GRAF
0136 HILO 16A4 HLBOT 16A7 HLBOT1
15B8 HLDMM 15FA HLKMM 1604 HLMM1
1608 HLMM2 4075 HLSAV 001D HOME
0000 HORE 0009 HT 0148 HXASC
FFFF IMS 0F32 INIT 1548 INITIO
0C2A INITS 4080 INST2 407D INSTR
015D INTER 40E2 IOBYT 0115 IOCHK
011E IODEF 0015 IONUM 1443 IOPO
1449 IOPO1 144E IORI 0118 IOSET
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE S-1
427E JEDE? 4280 JEVER 141A JMENO?
4281 KAM? 40F0 KEY 1092 KONBL0
1098 KONBL1 10A8 KONBL2 0CF8 KONEC
119E KONEC? 005C KONST1 40D0 KOS@
0C75 KOS@@ 00B3 KPREVZ 00BD KSCRVP
00B7 KSCRVZ 00FE KSCVP 00BE KSCVPC
00BB KSCVZC 00FF KSTPCT 00AF KSTPZA
00AE KSZAVP 000B KZDCTR 0009 KZDIN
0008 KZDOUT 00FF LENGHT 000A LF
40B8 LILOC 40E8 LINE 0DD4 LO1
0E04 LO2 40CD LO@ 0DD1 LOAD
002A MAXSL 40BF MEMTOP 0C86 MICOS
427C MOD@ 40E3 MODE 0000 MONIT
12DD MOVE 406D MSTAK 1499 NAF
4103 NAMBUF 000B NAMLE 0139 NEXT
0D11 NOVYOT 1431 NPO 143D NRI
1436 NRI1 106E NUFIL 112F NULBF
0ED0 NUM1 0EDD NUM2 0EE3 NUM3
0EE6 NUM4 0F01 NUM5 0F16 NUM6
0F19 NUM7 0F2A NUM8 0EAA NUMB
0EC2 NUMB@ 101B OBNOV 141D OK?
1031 OKNO 0D59 OPE1 0D8C OPE2
0D6B OPE4 0D7D OPE5 0D3B OPEN
4102 OPT 40B2 P1LOC 40B5 P2LOC
12D2 PADR@ 4077 PCSAV 0FE8 PDIR
0FDD PHDR 0FE0 PHDR1 13C7 PISBYT
13C2 PISODD 0FF8 PNAM1 1000 PNAM2
0FF5 PNAME 010C PO 40D6 PO@
12D7 POCH 427A POSICE 000D PRENOS
40EE PRER 4091 PREV 0000 PRODL
11AF PUT@ 11D9 PUTEND 40AC R1LOC
40AF R2LOC 12BE RADR@ 1078 READBL
4264 READNM 40EB RESC 40ED RESC1
40DF RESER 40EA RESL 40EC RESL1
1533 REW1 1511 REW3 151A REW4
152C REW5 151D REW7 1523 REWIND
0106 RI 40D3 RI@ 104D RIB
1060 RIB1 1065 RIB2 12C7 RICH
015A RNAME 4000 RST1 00CF RSTN
40FC SADR 0E67 SAV1 0E3E SAVE
1759 SCO 178F SCO1 17F8 SCO10
1793 SCO2 1794 SCO21 179A SCO3
17A9 SCO4 17AD SCO41 17BD SCO42
17BE SCO43 17C2 SCO5 17D4 SCO6
17DA SCO7 17EA SCO8 17EE SCO9
1560 SCRVP 1565 SCRVZ 1551 SCVP
1556 SCVPC 155B SCVZC 0FC1 SEARCH
4282 SEKV 017B SERI@ 1400 SERIO
017E SERO@ 001F SETOUT 008B SETPPI
174E SINI1 173D SINIT 159D SKIP
0D2D SLEN 0D17 SLEN@ 0C7B SLUZBA
0000 SM 0181 SMST@ 0001 SOH
013C SPACE 0121 SPCL 4079 SPSAV
1541 STOP 001A SUBS 4100 SUM
156A SZAVP 0050 TCOLUM 1505 TEKP
0FA4 TESTJM 0142 TEXT 0018 TLINE
4283 TSM 427D TSP 0000 TV64
3800 TVBEG 16BF TXER0 16D3 TXER2
16E3 TXER4 16F8 TXER6 1704 TXER8
1717 TXERA 172B TXERC 16B1 TXERR
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD MACRO-80 3.44 09-Dec-81 PAGE S-2
0151 TXIMM 1469 TXNAM 0012 UDATA
0010 UMODE 0013 URES 0011 USTAT
00FB UVOD 0D32 VERIF 11EE VRF1
11FD VRF2 120E VRF3 1215 VRF4
000B VT 0FBD VYP1 0FB8 VYPISH
4083 WMKOD 0154 WND@ 40F2 WNDP
10E4 WOB 10E9 WOB1 0F5F WRN1
0F49 WRNAM 4259 WRNM 40F9 XFLG
139B ZABLD 13A2 ZABLD1 13B8 ZABLD2
0C18 ZAC 15E1 ZADMM 14FB ZAKB1
14F7 ZAKBL 15C5 ZAKMM 111C ZAKS
1122 ZAKS1 1129 ZAKS2 15CF ZAMM1
15C9 ZAMM2 15DC ZAMM3 14D5 ZAOZN
14F0 ZAOZN1 1454 ZMIO
No Fatal error(s)
@ANAL 685 1489#
@BACK 286 1835#
@BLOK 282 570 1892#
@BOT 280 1800#
@BT 474 2262#
@E@KOS 2165#
@EOR 295 1937#
@IF1 430 482 990 1016 1589 2234#
@IF2 487 2235#
@OF1 390 403 526 538 1055 1590 2236#
@OF2 2237#
@PED 2263#
@R@ 21# 2175 2182
@READU 856 901#
@SKIP 284 485 1019 1821#
@TEXT 1613 1616#
@WBLOK 946#
ACSAV 2187#
ADRI 432 887 995 998 2279#
ADRO 531 968 1062 1065 2278#
ANAL 1491#
ARAM 1456# 1458
ASHEX 67#
BACK 543 594 595 1164 1165 1835 1838#
BCSAV 2188#
BIEND 2288#
BIN 667 673 746 832 873 886 1034 1040 1105 1116 1307 2287#
BINAR 186 323# 497
BL41 1181# 1183
BLOK1 1892 1895#
BLOK2 1181 1896 1904#
BLOK4 397 1168 1179#
BNI 429 829 839 1114 1129 1959 2276#
BNO 385 388 624 928 930 2274#
BOEND 2289#
BOT 377 423 569 603 1800 1803# 1941
BOUT 324 535 952 967 1075 1380 2286#
BRAD 2194#
BRAD2 2196#
BREAK 1564# 1677
BS 96# 2106
BTI 728 1098 1149 1151 1161 1163 2277#
BTO 568 729 2275#
BUFEND 431 993 1007 1038# 1060
CADR 2198#
CAN 108# 626 668 833 955 1106
CAS 2250#
CCPM 371 420 525 2223#
CHAR 2255#
CHECK 461 467 1188#
CI 55# 1566
CI@0 2073 2216#
CILOC 2205# 2226
CINCR 73# 1572
CISLO 1527 1534 1546#
CLOSE 183 270 331 522#
CLOSE0 526# 1051
CLOSE1 542 545#
CLST2 480 486#
CLSTP 472 477#
CMPN1 664 667#
CMPNM 427 663# 669 679
CO 57# 263 767 787 789 1110 1115 1963
CO@ 2217#
COLOC 2206#
COLUM 2108 2116 2125 2140 2155 2239#
COMLE 90# 636 654 747
CPF10 671#
CPM 10# 26
CR 100# 342 556 1135 1491 1558 2102
CRLF 64# 477 657 744 774 1094 1128 1583 1602 1955 1961 1965
CSLOC 2212#
CSTS 59# 1564
CSTS@ 2218#
CTBLD 870 1305#
CTBLD1 1309# 1313
CTBLD2 1314#
CTBLD3 1322# 1326
CTIBY1 1347# 1349 1352 1367
CTIBYT 1280 1282 1284 1286 1309 1314 1315 1322 1345#
CTOZN 915 1279#
CTTV 905 1232# 1825 1839 1905 2006
CTTV0 1236# 1258
CTTV1 1240# 1253
CTTV2 1235 1245 1250#
CTTV3 1241 1251#
CUR@ 2248#
DADR 68#
DBTCR 774# 1133
DBTV 775# 884
DBTV1 777# 935 1964
DBTV2 752 779#
DBYT 69# 776 779
DEBL 350 484 867 925 1018 1038 1593 2298#
DESAV 2189#
DIRSTP 481#
EADR 450 2265#
ECHO 1143 1572# 1581
ECHOCR 264 1500 1581#
EOR 278 398 1935#
EOR0 1936 1940#
EOR1 317 539 611 1968# 2003
EOR2 1942# 1957 1966
EOR3 1943 1967#
EOR4 1946 1956#
EOR41 1950 1955#
EOR5 1954 1958#
EOT 107# 534 953 1035 1117
EP3 39# 221 223
EPROM 48# 171 194 238 1458 1467
ERAM 38#
ERRD 826 828 1167#
ERRD0 1127# 1176
ERRD1 1148 1159#
ERRD3 1160 1168#
ERRD7 1158 1166 1169# 1173 1177
ERREND 446 458 613 666 907 947 951 1249 1601# 1808 1971 1983
2002
ERROR 66#
ERRSW 2215#
ERSTP 1200 1600#
ESC 102# 2094
ETX 95# 1574
ETX? 1567 1574#
EXPR 65# 347 495 562
EXSER 2253#
EXT? 1482#
EXTEXT 257 1482 2267#
FIND 181 272 415# 439 992
FIND1 428# 583 608
FNAME 425 672 2273#
FND 201 823 861 876 882 1170 2280#
FORM 619 1980#
FORM1 1988# 1992
GET0 993# 1031
GET00 1004# 1013
GET01 1008# 1010
GET1 999 1029#
GET2 1015# 1032
GET@ 187 987#
GETEX 1001 1005 1023#
GRAF 2224#
HILO 70# 465 471 513 996 1066
HLBOT 1997 2005#
HLBOT1 1811 2006# 2010
HLDMM 408 720 1806 1807 1813 1827 1848# 1851 1969 1994 1995
HLKMM 314 902 1913# 1916 1970
HLMM1 1852 1917#
HLMM2 1850 1915 1920# 1926
HLSAV 2190#
HOME 103# 806 2096
HORE 12# 45 168 225 1464 2166
HT 97# 2104
HXASC 75#
IMS 13# 123
INIT 266 619#
INITIO 220 1735#
INITS 180 200#
INST2 2197#
INSTR 2195#
INTER 79#
IOBYT 202 1510 1522 1540 1543 2228#
IOCHK 60#
IODEF 62#
IONUM 2226#
IOPO 367 1527#
IOPO1 395 402 1531#
IORI 416 1534#
IOSET 61#
JEDE? 2296#
JEVER 259 357 359 540 1591 1938 2299#
JMENO? 684 1496#
KAM? 574 580 584 2300#
KEY 2249#
KONBL0 863 868#
KONBL1 858 872#
KONBL2 875 879#
KONEC 311#
KONEC? 1003 1029 1034#
KONST1 163# 1415
KOS@ 214 2220#
KOS@@ 213 237#
KPREVZ 164# 1693
KSCRVP 158# 1696 1769
KSCRVZ 159# 1777
KSCVP 155# 1745
KSCVPC 156# 1705 1753
KSCVZC 157# 1702 1761
KSTPCT 161# 1725
KSTPZA 162#
KSZAVP 160# 1787
KZDCTR 126# 1736
KZDIN 124# 1251 1259 1347 1350 1678 1789 1920
KZDOUT 125# 1420 1423 1439 1697 1706 1726 1738 1746 1754 1762 1770
1778 1788
LENGHT 88# 970 2287
LF 98# 342 556 1135 1558 2098
LILOC 2211#
LINE 2114 2118 2122 2152 2238#
LO1 440# 442
LO2 463# 466
LO@ 2219#
LOAD 184 276 439#
MAXSL 194# 239
MEMTOP 2214#
MICOS 179 255#
MOD@ 790 800 2293#
MODE 791 797 1078 2233# 2253
MONIT 37#
MOVE 219 426 640 1217# 1222 2075
MSTAK 2186#
NAF 215 1577 1588#
NAMBUF 2000 2269#
NAMLE 89# 424 642 674 1321 1392
NEXT 71# 1578 1614
NOVYOT 331# 405
NPO 368 496 522 1510#
NRI 417 478 1522#
NRI1 1513# 1523
NUFIL 827 839# 1112 1174
NULBF 632 956 967#
NUM1 567 571#
NUM2 572 576#
NUM3 578 580#
NUM4 581# 591 600
NUM5 575 585 592#
NUM6 587 593 603#
NUM7 604# 610
NUM8 590 599 605 611#
NUMB 297 555#
NUMB@ 192 564#
OBNOV 783# 885 936
OK? 311 383 1497#
OKNO 795# 879 934
OPE1 379# 384
OPE2 374 401#
OPE4 332 385# 399 409
OPE5 376 394#
OPEN 182 268 366# 493 1058
OPT 2268#
P1LOC 2209#
P2LOC 2210#
PADR@ 503 505 1207#
PCSAV 2191#
PDIR 750# 1099 1947
PHDR 662 698 736#
PHDR1 746# 753
PISBYT 1383 1388 1390 1394 1400 1410# 1447 1635 1638 1640 1642 1647
1664 1988
PISODD 1399#
PNAM1 762# 770
PNAM2 764 766#
PNAME 761# 883
PO 58# 1214
PO@ 2222#
POCH 499 507 509 512 516 1208 1211#
POSICE 783 804 2292#
PRENOS 119# 2081
PRER 2244#
PREV 2201#
PRODL 132# 1440 1864
PUT@ 189 1050#
PUTEND 1050 1075#
R1LOC 217 2207#
R2LOC 2208#
RADR@ 449 452 1193#
READBL 722 824 856# 1119 1171
READNM 761 859 1320 2291#
RESC 2241#
RESC1 2243#
RESER 2225#
RESL 2240#
RESL1 2242#
REW1 1710# 1713
REW3 1692# 1716
REW4 1695 1697#
REW5 1704 1706#
REW7 1699# 1700
REWIND 188 293 1701# 1804 1981
RI 56# 1199
RI@ 2221#
RIB 820# 1030
RIB1 829# 1146 1175
RIB2 832#
RICH 440 454 463 1189 1193 1195 1199#
RNAME 78# 372 421 625
RST1 2175#
RSTN 22#
SADR 453 2264#
SAV1 511# 514
SAVE 185 274 493#
SCO 1474 2090#
SCO1 2097 2113#
SCO10 2159 2161#
SCO2 2103 2115#
SCO21 2112 2116# 2136 2144
SCO3 2099 2101 2118#
SCO4 2105 2124#
SCO41 2126# 2132
SCO42 2128 2134#
SCO43 2133 2135#
SCO5 2107 2137#
SCO6 2095 2145#
SCO7 2092 2147#
SCO8 2150 2154#
SCO9 2153 2156#
SCRVP 1769# 1826
SCRVZ 1777# 1840 1993
SCVP 904 1745#
SCVPC 407 719 901 1753# 1805 1824 1895 1996
SCVZC 313 1761# 1838 1904 1968
SEARCH 379 571 589 596 604 663 719# 1095 1942
SEKV 2077 2090 2145 2148 2156 2302#
SERI@ 80# 1473
SERIO 1472# 2072
SERO@ 81# 2110 2117 2120 2123 2139 2142 2146 2162
SETOUT 154# 1737
SETPPI 153# 1735
SINI1 2079#
SINIT 1472 2072#
SKIP 381 588 609 678 1157 1821 1824# 1956
SLEN 191 349#
SLEN@ 299 341#
SLUZBA 240#
SM 11# 699 713 736 1152
SMST@ 82# 1475
SOH 106# 389 835
SPACE 72# 754 777 780
SPCL 63# 801
SPSAV 2192#
STOP 190 255 382 725 731 878 978 1107 1118 1127 1167 1576
1609 1724# 1801 1822 1836 1893 1972
SUBS 101# 533 1000 1020 1083
SUM 468 2266#
SZAVP 1787# 1862 1982
TCOLUM 86# 2127 2141
TEKP 950 960 1293 1335 1677# 1699 1715 1874 1918
TESTJM 675 681# 691
TEXT 74# 748 1622
TLINE 85# 2119
TSM 2303#
TSP 2295#
TV64 9# 40
TVBEG 43#
TXER0 2017 2025#
TXER2 2018 2031#
TXER4 2019 2036#
TXER6 2020 2042#
TXER8 2021 2046#
TXERA 2022 2052#
TXERC 2023 2058#
TXERR 1611 2017#
TXIMM 76# 203 341 555 620 784 805 1134 1497 1557 1603
TXNAM 1557#
UDATA 117# 2083
UMODE 115# 2079
URES 118# 2080
USTAT 116# 2082
UVOD 91# 913 1634
VERIF 288 357#
VRF1 290 544 1094#
VRF2 1101# 1120 1960
VRF3 1104 1108#
VRF4 1102 1112#
VT 99# 2100
VYP1 707#
VYPISH 380 686 696# 1496
WMKOD 2200#
WND@ 77#
WNDP 2252#
WOB 536 925# 1067
WOB1 655 928#
WRN1 644# 652
WRNAM 392 630#
WRNM 643 1391 2290#
XFLG 2256#
ZABLD 949 1379#
ZABLD1 1382# 1386
ZABLD2 1393# 1397
ZAC 187# 216
ZADMM 653 959 1882#
ZAKB1 1663# 1666
ZAKBL 958 962 1660#
ZAKMM 315 946 957 963 1860#
ZAKS 954 957#
ZAKS1 316 959# 2001
ZAKS2 962#
ZAMM1 1864# 1871
ZAMM2 1862# 1884
ZAMM3 1863 1872#
ZAOZN 948 1634#
ZAOZN1 1636 1648#
ZMIO 1532 1537#
Ú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
ZPS | Technické prostředky | Programové vybavení | Dokumentace