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
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1
1 .LIST
2 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3 TITLE FIRMWARE SAPI-1 KOS V5.0A - K10/SP210
4 ; 9.2.1988 (P.P.)
5 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6 ;
7 0000' ASEG
8 ;
9 ; *** DEFINOVANI DATOVEHO PROSTORU *
10 ;
11 4000 @R@ EQU 4000H ; ZACATEK SYSTEMOVE RAM (1K)
12 00CF RSTN EQU 0CFH
13 1800 EP3 EQU 1800H ; USER EPROM SYSTEM
14 ;
15 ;
16
17 0000 MONIT EQU 0 ; ROM VERZE ZPS-2
18 0000 ERAM EQU 0000
19 0C00 EPROM EQU 0C00H ; O.S.
20
21 ;
22 ;
23 ; * MONITOR ENTRY *
24 ;
25 0103 CI EQU 103H
26 0106 RI EQU 106H
27 0109 CO EQU 109H
28 010C PO EQU 10CH
29 0112 CSTS EQU 112H
30 013F CINCR EQU 13FH
31 011E IODEF EQU 11EH
32 0121 SPCL EQU 121H
33 0127 EXPR EQU 127H
34 0133 DBYT EQU 133H
35 0130 DADR EQU 130H
36 0124 CRLF EQU 124H
37 0136 HILO EQU 136H
38 0139 NEXT EQU 139H
39 0142 TEXT EQU 142H
40 0115 IOCHK EQU 115H
41 013C SPACE EQU 13CH
42 0118 IOSET EQU 118H
43 012A ERROR EQU 12AH
44 012D ASHEX EQU 12DH
45 0148 HXASC EQU 148H
46 0151 TXIMM EQU 151H
47 0154 WND@ EQU 154H
48 015A RNAME EQU 15AH
49 015D INTER EQU 15DH
50 017B SERI@ EQU 17BH
51 017E SERO@ EQU 17EH
52
53
54 00FF LENGHT EQU 255 ; DELKA BLOKU
55 000B NAMLE EQU 11 ; DELKA JMENA
56 0040 COMLE EQU 64 ; DELKA KOMENTARE
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-1
57 ;-------------------------------------------
58 000D CR EQU 0DH ; KONSTANTY
59 000A LF EQU 0AH
60 007F DEL EQU 7FH ; DELETE
61 0003 ETX EQU 03H
62 0009 HT EQU 9 ; TAB
63 0010 PREAM EQU 10H ; PREAMBLE/POSTAMBLE
64 001A SUBS EQU 1AH ; END FLAG
65 001D HOME EQU 1DH
66 001E ERS EQU 1EH
67 ;
68 00DF SPREC EQU 0DFH ;KONSTANTY RIZENI
69 00FB SPSTART EQU 0FBH ;SP-210
70 007F SPSTOP EQU 7FH
71 00EF SPPAUS EQU 0EFH
72 00BF SPREWZ EQU 0BFH
73 00F7 SPREWK EQU 0F7H
74 008B SPRS EQU 8BH ;RIDICI SLOVO 8255
75
76 ; SER. I/O
77 0013 URES EQU 13H
78 0012 UDATA EQU 12H
79 0011 USTAT EQU 11H
80 0010 UMODE EQU 10H
81
82 ;PARAREL. I/O
83 0037 SPC EQU 37H
84 0035 SPIN EQU 35H
85 0034 SPOUT EQU 34H
86
87 ; BLOKOVA NAVESTI
88 0000 EOL EQU 0 ; "END OF RECORDS"
89 0001 SOH EQU 01H ; "START OF HEADER"
90 0004 EOT EQU 04H ; "END OF TEXT"
91 003A CAN EQU ':' ; JMENO PASKY
92 ; 'A' ; DATOVY (ASCII) BLOK
93 ; 'B' ; BINARNI BLOK
94
95 ;
96 ;******************************************
97 0000 ASEG
98 ORG EPROM ;START
99 ;******************************************
100 ;
101 ;====================================
102 ; T A B U L K A S L U Z E B K O S
103 ;====================================
104 ;
105
106 0C00 C3 0C8D JMP MICOS
107 0C03 C3 0C2A JMP INITS ; INIT SYSTEM
108 0C06 C3 0DB7 JMP FIND ; 1
109 0C09 C3 0D50 JMP OPEN ; 2
110 0C0C C3 0E86 JMP CLOSE ; 3
111 0C0F C3 0DEE JMP LOAD ; 4
112 0C12 C3 0E4F JMP SAVE ; 5
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-2
113 0C15 C3 0D08 JMP BINAR ; 6
114 0C18 C3 128E ZAC: JMP GET@ ; 7
115 0C1B C3 0CE3 JMP MOTA ; 8
116 0C1E C3 12E3 JMP PUT@ ; 9
117 0C21 C3 0CF8 JMP STOP ; 10
118 ;
119 0024 MAXSL EQU $-EPROM
120 ;
121 0C24 50 45 52 49 CAS: DC 'PERINA'
122 0C28 4E C1
123 ;
124 ;====================================
125 ; INICIALIZACE SYSTEMU KOS
126 ;====================================
127 ;
128 0C2A INITS:
129 0C2A 3E A9 MVI A,0A9H ; LO=L,RI-1,PO-1
130 0C2C 32 4158 STA FND ; NE FIND MODE
131 0C2F 32 40E2 STA IOBYT
132 0C32 CD 0151 CALL TXIMM ; OHLASENI
133 0C35 4D 49 4B 4F DB 'MIKOS V5.0 '
134 0C39 53 20 56 35
135 0C3D 2E 30 20
136 0C40 28 43 29 20 DC '(C) TESLA DIZ 1987'
137 0C44 54 45 53 4C
138 0C48 41 20 44 49
139 0C4C 5A 20 31 39
140 0C50 38 B7
141 0C52 21 0C7C LXI H,KOS@@
142 0C55 22 40D1 SHLD KOS@+1
143 0C58 3E 8B MVI A,SPRS ; RIDICI SLOVO PRO
144 0C5A D3 37 OUT SPC ; SP-210
145 0C5C AF XRA A
146 0C5D 32 40E4 STA @IF1 ; FIND FLAG
147 0C60 32 40E6 STA @OF1
148 0C63 32 427B STA TSP ; NASTAV SP-210
149 0C66 21 0C18 LXI H,ZAC ; VYPLN IODEF
150 0C69 11 40AC LXI D,R1LOC
151 0C6C 06 0C MVI B,12
152 0C6E CD 1106 CALL MOVE
153 0C71 3A 1800 LDA EP3 ; USER SYSTEM ?
154 0C74 FE C3 CPI 0C3H
155 0C76 CC 1803 CZ EP3 + 3 ; START
156 0C79 C3 0CF8 JMP STOP
157 ;
158 ;====================================
159 ; VYHODNOCENI SLUZBY MONITORU
160 ;====================================
161 ;
162 0C7C 0C KOS@@: INR C
163 0C7D 11 0C00 LXI D,EPROM
164 0C80 06 24 MVI B,MAXSL
165 0C82 EB SLUZBA: XCHG ; JMENO
166 0C83 79 MOV A,C
167 0C84 81 ADD C
168 0C85 81 ADD C ; *3
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-3
169 0C86 B8 CMP B
170 0C87 D0 RNC ; VETSI
171 0C88 06 00 MVI B,0
172 0C8A 4F MOV C,A ; OFFSET
173 0C8B 09 DAD B ; VYPOCTI ADR
174 0C8C E9 PCHL
175 ;
176 ;====================================
177 ; VUHODNOCENI POVELU OSLUHY
178 ;====================================
179 ;
180 0C8D CD 0CF8 MICOS: CALL STOP
181 0C90 AF XRA A
182 0C91 32 4101 STA EXTEXT ; 0..NENI
183 0C94 0E 5F MVI C,'_'
184 0C96 CD 10A1 CALL TTSP
185 0C99 C2 0C9E JNZ $+5
186 0C9C 0E 3A MVI C,':'
187 0C9E CD 0109 CALL CO
188 0CA1 CD 10DA CALL ECHOCR
189 0CA4 FE 44 CPI 'D'
190 0CA6 CA 0D21 JZ DIR ; DIRECTORY
191 0CA9 FE 49 CPI 'I'
192 0CAB CA 0EA8 JZ INIT ; INICIALIZACE PASKY
193 0CAE FE 4F CPI 'O'
194 0CB0 CA 0D50 JZ OPEN ; OPEN OUTPUT
195 0CB3 FE 43 CPI 'C' ; CLOSE UOTPUT
196 0CB5 CA 0E86 JZ CLOSE
197 0CB8 FE 46 CPI 'F' ; FIND INPUT
198 0CBA CA 0DB7 JZ FIND
199 0CBD FE 53 CPI 'S'
200 0CBF CA 0E4F JZ SAVE
201 0CC2 FE 4C CPI 'L' ; LOAD
202 0CC4 CA 0DEE JZ LOAD
203 0CC7 FE 4B CPI 'K'
204 0CC9 CA 0D16 JZ KONEC
205 0CCC FE 58 CPI 'X'
206 0CCE CA 0F1F JZ EXCH
207 0CD1 FE 3E CPI '>'
208 0CD3 CA 0CE3 JZ MOTA
209 0CD6 FE 3C CPI '<'
210 0CD8 CA 0F28 JZ REWIZ
211 0CDB FE 52 CPI 'R'
212 0CDD CA 0F31 JZ REWIND
213 0CE0 FE 4D CPI 'M' ; PREVIJENI
214 0CE2 C0 RNZ ; JINY POVEL
215
216 ;
217 ;************************************
218 ; REALIZACE POVELU KOS-I
219 ;************************************
220
221 ;
222 ;====================================
223 ; PREVIN PASKU
224 ;====================================
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-4
225 ;
226 0CE3 CD 10A1 MOTA: CALL TTSP ; TEST SP-210
227 0CE6 CA 0CF0 JZ REWIK ; PRO SP-210
228 0CE9 3E 28 MVI A,28H ; SEPNUTI RELE MGF.
229 0CEB D3 10 OUT UMODE
230 0CED C3 0CF5 JMP MOTA1
231 0CF0 3E F7 REWIK: MVI A,SPREWK ; PREVINUTI NA KONEC
232 0CF2 CD 10B2 CALL SPPULS
233 0CF5 CD 10CE MOTA1: CALL DONE
234 0CF8 CD 10A1 STOP: CALL TTSP ; TEST SP-210
235 0CFB 3E 7F MVI A,SPSTOP
236 0CFD CC 10B2 STOP1: CZ SPPULS ; PRO SP-210
237 0D00 3E 10 MVI A,10H
238 0D02 D3 10 OUT UMODE
239 0D04 32 427F STA JEDE?
240 0D07 C9 RET
241
242 ;
243 ;====================================
244 ; BINARNI SOUBOR NASTAV
245 ;====================================
246 ;
247 0D08 3E 30 BINAR: MVI A,30H
248 0D0A CD 1079 CALL GAPO ; START ZAPISU
249 0D0D CD 10E3 CALL BTIM8
250 0D10 3E 42 MVI A,'B'
251 0D12 32 4159 STA BOUT-1
252 0D15 C9 RET
253
254 ;
255 ;====================================
256 ; ZAPIS KONEC PASKY
257 ;====================================
258
259 0D16 CD 0F87 KONEC: CALL OK? ; ANO ?
260 0D19 C0 RNZ
261 0D1A CD 10BE CALL RECOR
262 0D1D AF XRA A
263 0D1E C3 11F8 JMP WOBW ; 00.. TYP
264
265 ;
266 ;====================================
267 ; DIRECTORY:
268 ;====================================
269 ;
270 0D21 CD 1064 DIR: CALL PLAY
271 0D24 3C INR A
272 0D25 CC 0F7A DIR0: CZ VYPISH
273 0D28 AF XRA A
274 0D29 EB DIR1: XCHG
275 0D2A 22 4152 SHLD BNI ; CISLO SOUBORU..
276 0D2D 0E 25 MVI C,'%' ; CHYBA SEKVENCE
277 0D2F C4 0109 CNZ CO
278 0D32 CD 110F CALL SEARCH ; HLAVICKA
279 0D35 CA 0D25 JZ DIR0
280 0D38 B7 ORA A
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-5
281 0D39 C2 0D42 JNZ DIR1A
282 0D3C CD 0CF8 CALL STOP
283 0D3F C3 0139 JMP NEXT
284 0D42 FE 04 DIR1A: CPI EOT
285 0D44 C2 0D4A JNZ DIR2
286 0D47 CD 0FB9 CALL DBTCR
287 0D4A CD 1284 DIR2: CALL NUFIL
288 0D4D C3 0D29 JMP DIR1
289
290 ;
291 ;====================================
292 ; OPEN: OTEVRI NOVY SOUBOR PRO ZAPIS
293 ;====================================
294 ;
295 0D50 CD 101A OPEN: CALL IOPO ; NASTAV IOBYT
296 0D53 CD 1008 CALL NPO
297 0D56 F8 RM ; PO=SYSTEM..
298 0D57 0E 02 MVI C,2
299 0D59 C2 40D9 JNZ CCPM ; USER=2
300 0D5C CD 015A CALL RNAME
301 0D5F FE 40 CPI '@' ; APPEND?
302 0D61 CA 0DAF JZ OPE5
303 0D64 FE 2E CPI '.'
304 0D66 F5 PUSH PSW
305 0D67 CC 0F31 CZ REWIND
306 0D6A F1 POP PSW
307 0D6B 3A 40E6 LDA @OF1 ; PODRUHE?
308 0D6E B7 ORA A
309 0D6F F5 PUSH PSW ; =====================
310 0D70 C4 0E86 CNZ CLOSE ; UZAVRI A PRIPOJ DALSI
311 0D73 F1 POP PSW ; DALSI SOUBOR
312 0D74 C2 0D97 JNZ OPE4 ; =====================
313 0D77 E5 PUSH H
314 0D78 CD 1064 CALL PLAY
315 0D7B CD 110F OPE1: CALL SEARCH ; KONEC ZAZNAMU ?
316 0D7E CC 0F7A CZ VYPISH ; SOH
317 0D81 7A MOV A,D
318 0D82 32 4151 STA BTO ; CISLO SOUBORU
319 0D85 3A 4159 LDA BOUT-1 ; ANO
320 0D88 FE 04 CPI EOT
321 0D8A CA 0D8F JZ OPE3 ; DALSI BLOK
322 0D8D FE 3A CPI CAN
323 0D8F CC 0F87 OPE3: CZ OK?
324 0D92 C2 0D7B JNZ OPE1 ; DALSI BLOK
325 0D95 E1 POP H
326 0D96 3E DB 3EH
327 0D97 AF OPE4: XRA A ; APPEND
328 0D98 E5 PUSH H
329 0D99 2A 4150 LHLD BNO ; CISLO SOUBORU
330 0D9C 24 INR H
331 0D9D 2E 00 MVI L,0
332 0D9F 22 4150 SHLD BNO ; CISLO BLOKU A SOUBORU
333 0DA2 B7 ORA A ; APPEND?
334 0DA3 C4 10BE CNZ RECOR
335 0DA6 3E 01 MVI A,SOH
336 0DA8 32 40E6 STA @OF1
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-6
337 0DAB E1 POP H
338 0DAC C3 0EF3 JMP WRNAM
339
340 0DAF 3E 08 OPE5: MVI A,8 ; NASTAV PO=1
341 0DB1 CD 1020 CALL IOPO1
342 0DB4 C3 0D97 JMP OPE4
343
344 ;
345 ;====================================
346 ; FIND: OTEVRI SOUBOR PRO CTENI
347 ;====================================
348 ;
349 0DB7 CD 1025 FIND: CALL IORI
350 0DBA CD 1014 CALL NRI
351 0DBD F8 RM ; SYSTEM RI
352 0DBE 0E 01 MVI C,1
353 0DC0 C2 40D9 JNZ CCPM ; USER 2
354 0DC3 CD 015A CALL RNAME
355 0DC6 FE 2E CPI '.'
356 0DC8 F5 PUSH PSW
357 0DC9 CC 0F31 CZ REWIND
358 0DCC F1 POP PSW
359 0DCD 06 0B MVI B,NAMLE
360 0DCF 11 4144 LXI D,FNAME
361 0DD2 CD 1106 CALL MOVE
362 0DD5 CD 0FFA CALL EXT?
363 0DD8 C4 1064 CNZ PLAY
364 0DDB CD 0F4F CALL CMPNM
365 0DDE 3E 01 MVI A,1
366 0DE0 5F MOV E,A
367 0DE1 EB XCHG
368 0DE2 22 4152 SHLD BNI ; CISLO SOUBORU
369 0DE5 32 40E4 STA @IF1
370 0DE8 3E 58 MVI A,LOW(BIEND-1)
371 0DEA 32 4156 STA ADRI
372 0DED C9 RET
373
374 ;
375 ;====================================
376 ; LOAD BINARNI SOUBOR
377 ;====================================
378 ;
379 0DEE CD 0DB7 LOAD: CALL FIND ; OTEVRI SOUBOR
380 0DF1 CD 1333 LO1: CALL RICH
381 0DF4 B7 ORA A ; BLANK?
382 0DF5 CA 0DF1 JZ LO1
383 0DF8 D6 3C SUI '<'
384 0DFA C2 1324 JNZ ERSTP ; NENI BINARNI FORMAT
385 0DFD 47 MOV B,A ; KONTROLNI SOUCET
386 0DFE CD 132A CALL RADR@
387 0E01 22 40FE SHLD EADR ; KONCOVA ADRESA
388 0E04 EB XCHG
389 0E05 CD 132A CALL RADR@
390 0E08 22 40FC SHLD SADR ; START. ADRESA
391 0E0B CD 1333 CALL RICH
392 0E0E FE 3E CPI '>'
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-7
393 0E10 C2 1324 JNZ ERSTP ; NENI BINAR
394 0E13 E5 PUSH H
395 0E14 CD 131E CALL CHECK
396 0E17 06 00 MVI B,0 ; NULUJ
397 0E19 CD 1333 LO2: CALL RICH
398 0E1C 77 MOV M,A
399 0E1D CD 0136 CALL HILO
400 0E20 D2 0E19 JNC LO2
401 0E23 CD 131E CALL CHECK
402 0E26 32 4100 STA SUM
403 0E29 E1 POP H
404 0E2A 11 4401 LXI D,4401H
405 0E2D CD 0136 CALL HILO
406 0E30 C2 0E39 JNZ CLSTP
407 0E33 21 0000 LXI H,0
408 0E36 22 40FA SHLD @BT
409
410 ; UZAVRI VSTUPNI SOUBOR
411 0E39 CD 0124 CLSTP: CALL CRLF
412 0E3C CD 1014 CALL NRI
413 0E3F F8 RM
414 0E40 C2 0E4A JNZ CLST2
415 0E43 AF DIRSTP: XRA A
416 0E44 32 40E4 STA @IF1 ; CLOSE
417 0E47 C3 0CF8 JMP STOP
418 0E4A AF CLST2: XRA A
419 0E4B 32 40E5 STA @IF2
420 0E4E C9 RET
421 ;
422 ;====================================
423 ; SAVE ULOZ BINARNI SOUBOR
424 ;====================================
425 ;
426 0E4F CD 0D50 SAVE: CALL OPEN
427 0E52 0E 02 MVI C,2
428 0E54 CD 0127 CALL EXPR ; ROZSAH ADRES
429 0E57 CD 1008 CALL NPO
430 0E5A CC 0D08 CZ BINAR
431 0E5D 0E 3C MVI C,'<' ; PRVNI BYTE
432 0E5F CD 1341 CALL POCH
433 0E62 06 00 MVI B,0 ; KONTROLNI SOUCET
434 0E64 E1 POP H ; POCATECNI ADRESA
435 0E65 D1 POP D ; KONCOVA ADRESA
436 0E66 CD 133C CALL PADR@
437 0E69 EB XCHG
438 0E6A CD 133C CALL PADR@
439 0E6D 0E 3E MVI C,'>'
440 0E6F CD 1341 CALL POCH
441 0E72 48 MOV C,B ; KONTROLNI SUMA ADRES
442 0E73 CD 1341 CALL POCH
443 ;
444 0E76 06 00 MVI B,0 ; KONTROLNI SUMA DAT
445 0E78 4E SAV1: MOV C,M
446 0E79 CD 1341 CALL POCH
447 0E7C CD 0136 CALL HILO
448 0E7F D2 0E78 JNC SAV1
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-8
449 0E82 48 MOV C,B ; SUMA
450 0E83 CD 1341 CALL POCH
451 ;
452 ;====================================
453 ; SLOSE: UZAVRI VSTUPNI SOUBOR
454 ;====================================
455 ;
456 0E86 CD 1008 CLOSE: CALL NPO
457 0E89 F8 RM
458 0E8A 0E 03 MVI C,3
459 0E8C C2 40D9 JNZ CCPM
460 0E8F 3A 40E6 CLOSE0: LDA @OF1 ; NENI OTEVREN
461 0E92 B7 ORA A
462 0E93 C8 RZ
463 0E94 E5 PUSH H
464 0E95 2A 4154 LHLD ADRO
465 0E98 23 INX H
466 0E99 36 1A MVI M,SUBS ; ZAPIS POSLEDNI ZNAK
467 0E9B 3E 04 MVI A,EOT ; UZAVRI BLOK
468 0E9D CD 11F8 CALL WOBW
469 0EA0 AF XRA A
470 0EA1 32 40E6 STA @OF1 ; CLOSE
471 0EA4 E1 POP H
472 0EA5 C3 0CF8 JMP STOP
473
474 ;
475 ;====================================
476 ; INICIALIZUJ NOVOU KAZETU
477 ;====================================
478 ;
479 0EA8 CD 10A1 INIT: CALL TTSP
480 0EAB C2 0EC2 JNZ INIT2 ; PRO K-10
481 0EAE CD 0F31 CALL REWIND
482 0EB1 CD 10A6 CALL RECPUL
483 0EB4 06 04 MVI B,4
484 0EB6 3E FA INIT1: MVI A,250
485 0EB8 CD 10F6 CALL TIME ; CEKANI 4*2.5 SEC.
486 0EBB 05 DCR B
487 0EBC C2 0EB6 JNZ INIT1
488 0EBF C3 0EDC JMP INIT3
489 0EC2 3E 28 INIT2: MVI A,28H ; SEPNUTI RELE MGF.
490 0EC4 D3 10 OUT UMODE
491 0EC6 CD 0151 CALL TXIMM
492 0EC9 20 50 52 45 DC ' PREVIN A ZAPNI '
493 0ECD 56 49 4E 20
494 0ED1 41 20 5A 41
495 0ED5 50 4E 49 A0
496 0ED9 CD 10BE CALL RECOR
497 0EDC CD 1279 INIT3: CALL XSTOP
498 0EDF CD 0151 CALL TXIMM
499 0EE2 20 5A 41 44 DC ' ZADEJ'
500 0EE6 45 CA
501 0EE8 21 0000 LXI H,0 ;0..CISLO SOUBORU
502 0EEB 22 4150 SHLD BNO
503 0EEE CD 015A CALL RNAME
504 0EF1 3E 3A MVI A,CAN
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-9
505
506 ;
507 ; ZAPIS JMENO SOUBORU
508 ;
509 0EF3 F5 WRNAM: PUSH PSW
510 0EF4 E5 PUSH H ; ADRESA JMENA
511 0EF5 CD 125B CALL NULBF
512 0EF8 23 INX H
513 0EF9 06 40 MVI B,COMLE ; JMENO+POZNAMKA
514 0EFB EB XCHG
515 0EFC E1 POP H
516 0EFD D5 PUSH D
517 0EFE CD 1106 CALL MOVE
518 0F01 E1 POP H
519 0F02 06 0B MVI B,NAMLE
520 0F04 11 4259 LXI D,WRNM ; VYSTUPNI POLE
521 0F07 7E WRN1: MOV A,M
522 0F08 E6 3F ANI 3FH ; KOD PRO AND-1
523 0F0A C2 0F0F JNZ $+5
524 0F0D 3E 20 MVI A,' ' ; BLANK
525 0F0F 12 STAX D
526 0F10 23 INX H
527 0F11 13 INX D
528 0F12 05 DCR B
529 0F13 C2 0F07 JNZ WRN1
530 0F16 F1 POP PSW
531 0F17 CD 11F8 CALL WOBW
532 0F1A 36 41 MVI M,'A' ; TYP DATA
533 0F1C C3 0124 JMP CRLF
534
535 ;
536 ;====================================
537 ; PREPNUTI K-10 / SP-210
538 ;====================================
539 ;
540 0F1F 3A 427B EXCH: LDA TSP
541 0F22 EE FF XRI 0FFH
542 0F24 32 427B STA TSP
543 0F27 C9 RET
544 ;
545 ;====================================
546 ; PREVINUTI NA ZACATEK - RUCNI STOP
547 ;====================================
548 ;
549 0F28 CD 10A1 REWIZ: CALL TTSP
550 0F2B C0 RNZ ; NENI SP-210
551 0F2C 3E BF MVI A,SPREWZ
552 0F2E C3 0CF2 JMP REWIK+2
553 ;
554 ;====================================
555 ; PREVINUTI NA ZACATEK - AUTOMATICKY
556 ;====================================
557 ;
558 0F31 CD 10A1 REWIND: CALL TTSP
559 0F34 C0 RNZ ; NENI SP-210
560 0F35 3E BF MVI A,SPREWZ
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-10
561 0F37 CD 10B2 CALL SPPULS
562 0F3A 3E C8 MVI A,200
563 0F3C CD 10F6 CALL TIME ; CEKANI 2 SEC.
564 0F3F CD 104D REWI1: CALL BREAK@
565 0F42 DB 35 IN SPIN ; STAV SP-210
566 0F44 FE F7 CPI 0F7H ; TEST STOPU
567 0F46 C2 0F3F JNZ REWI1 ; JESTLI NENI STOP
568 0F49 C3 0CF8 JMP STOP
569
570 ;
571 ;====================================
572
573 ; TEST NA JMENO
574 ;
575 0F4C CD 0F9B CALL PHDR
576 0F4F CD 110F CMPNM: CALL SEARCH ; POROVNEJ JMENO
577 0F52 C2 0F4F JNZ CMPNM ; NENI HLAVICKA
578 0F55 FE 3A CPI CAN
579 0F57 CA 0F4C JZ CMPNM-3 ; VYPIS VOLUME JMENO
580 ; PRO ZAPIS
581 0F5A 01 4144 CPF10: LXI B,FNAME
582 0F5D 1E 0B MVI E,NAMLE
583 0F5F CD 0F66 CALL TESTJM
584 0F62 C2 0F4F JNZ CMPNM ; DALSI JMENO
585 0F65 C9 RET
586 ;
587 0F66 23 TESTJM: INX H ; JMENO
588 0F67 0A LDAX B
589 0F68 FE 2A CPI '*'
590 0F6A CA 0F84 JZ JMENO?
591 0F6D CD 1000 CALL @ANAL
592 0F70 CA 0F7A JZ VYPISH
593 0F73 BE CMP M
594 0F74 C0 RNZ
595 0F75 03 INX B
596 0F76 1D DCR E
597 0F77 C2 0F66 JNZ TESTJM
598
599
600 ;
601 ; VYPIS HLAVICKU
602 ;
603 0F7A D5 VYPISH: PUSH D
604 0F7B 21 4159 LXI H,BIN-1
605 0F7E CD 0F9B CALL PHDR
606 0F81 D1 VIP1: POP D
607 0F82 AF XRA A
608 0F83 C9 RET
609 ;
610
611 0F84 CD 0F7A JMENO?: CALL VYPISH
612 ; ANO / NE
613 0F87 CD 0151 OK?: CALL TXIMM
614 0F8A 2D 2D 28 41 DC '--(A/N)?'
615 0F8E 2F 4E 29 BF
616 0F92 CD 10DA CALL ECHOCR
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-11
617 0F95 FE 41 CPI 'A' ; PISMENA
618 0F97 C8 RZ
619 0F98 FE 59 CPI 'Y'
620 0F9A C9 RET
621
622
623 ;
624 ; TISK HLAVICKY SOUBORU
625 ;----------------------
626 0F9B CD 0124 PHDR: CALL CRLF
627 0F9E 23 INX H
628 0F9F 16 40 MVI D,COMLE
629 0FA1 C3 0142 JMP TEXT
630
631
632 ;
633 ; "OKNA" V MIKOSU PRO IDEVTIFIKACI BLOKU
634
635 0FA4 21 4264 PNAME: LXI H,READNM ; VYPIS "B"ZNAKU Z POLE
636 0FA7 7E PNAM1: MOV A,M ; READNM NA CO
637 0FA8 FE 1F CPI 1FH
638 0FAA D2 0FAF JNC PNAM2
639 0FAD C6 40 ADI 40H ; KOD SAPI-1 NA ASCII
640 0FAF 4F PNAM2: MOV C,A
641 0FB0 CD 0109 CALL CO
642 0FB3 23 INX H
643 0FB4 05 DCR B
644 0FB5 C2 0FA7 JNZ PNAM1
645 0FB8 C9 RET
646
647
648 0FB9 CD 0124 DBTCR: CALL CRLF
649 0FBC 7A DBTV: MOV A,D
650 0FBD CD 0133 CALL DBYT
651 0FC0 CD 013C DBTV1: CALL SPACE
652 0FC3 7B MOV A,E
653 0FC4 CD 0133 CALL DBYT
654 0FC7 C3 013C JMP SPACE
655
656
657 0FCA 2A 427C OBNOV: LHLD POSICE ; VRACENI OKNA
658 0FCD CD 0151 CALL TXIMM
659 0FD0 9B DB 9BH ; ESC
660 0FD1 4D MOV C,L
661 0FD2 CD 0109 CALL CO
662 0FD5 4C MOV C,H
663 0FD6 CD 0109 CALL CO
664 0FD9 3A 427E LDA MOD@
665 0FDC 32 40E3 STA MODE
666 0FDF C9 RET
667
668
669 0FE0 D5 OKNO: PUSH D ; NASTAVENI OKNA
670 0FE1 21 40E3 LXI H,MODE
671 0FE4 7E MOV A,M
672 0FE5 36 00 MVI M,0 ; ZRUS ^P
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-12
673 0FE7 32 427E STA MOD@
674 0FEA CD 0121 CALL SPCL
675 0FED 21 2020 LXI H,2020H
676 0FF0 19 DAD D
677 0FF1 22 427C SHLD POSICE
678 0FF4 CD 0151 CALL TXIMM
679 0FF7 9D DB HOME OR 80H
680 0FF8 D1 POP D
681 0FF9 C9 RET
682
683
684 ; JE EXTERNI JMENO '"' ?
685
686 0FFA 3A 4101 EXT?: LDA EXTEXT
687 0FFD FE 22 CPI '"'
688 0FFF C9 RET
689 ;
690 ; ANALIZA ODDELOVACU
691 ;
692 1000 FE 20 @ANAL: CPI 20H
693 1002 C8 RZ
694 1003 FE 0D ANAL: CPI CR
695 1005 C8 RZ
696 1006 B7 ORA A
697 1007 C9 RET
698 ;
699
700 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
701 ;
702 ; TEST NA IOBYTE (PO)
703 ;
704 1008 3A 40E2 NPO: LDA IOBYT
705 100B 0F RRC
706 100C 0F RRC
707 100D 0F NRI1: RRC
708 100E 0F RRC
709 100F E6 03 ANI 3 ; ZARIZENI
710 1011 3D DCR A ; MINUS .. SYSTEM
711 1012 3D DCR A ; ZY.. USER=1
712 1013 C9 RET ; NZ.. USER=2
713 ;
714 ; TEST NA IOBYTE (RI)
715 ;
716 1014 3A 40E2 NRI: LDA IOBYT
717 1017 C3 100D JMP NRI1
718 ;
719 ; NASTAV IOBYTE PODLE OPTION
720 ;
721 101A CD 1037 IOPO: CALL CISLO
722 101D D8 RC
723 101E 07 RLC
724 101F 07 RLC
725 1020 0E CF IOPO1: MVI C,0CFH ; MASKA
726 1022 C3 102B JMP ZMIO
727 ;
728 1025 CD 1037 IORI: CALL CISLO
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-13
729 1028 D8 RC
730 1029 0E F3 MVI C,0F3H ; MASKA
731 102B 07 ZMIO: RLC
732 102C 07 RLC
733 102D 47 MOV B,A
734 102E 3A 40E2 LDA IOBYT
735 1031 A1 ANA C
736 1032 B0 ORA B
737 1033 32 40E2 STA IOBYT
738 1036 C9 RET
739 ;
740 1037 D6 30 CISLO: SUI '0'
741 1039 D8 RC ; CY=1..NENI
742 103A FE 03 CPI 3
743 103C 3F CMC
744 103D D8 RC
745 103E 3C INR A
746 103F C9 RET
747
748 ;
749 ; VYPIS TEXTU
750 ;
751 1040 CD 0151 TXNAM: CALL TXIMM
752 1043 0D 0A DB CR,LF
753 1045 20 4E 41 5A DC ' NAZEV:'
754 1049 45 56 BA
755 104C C9 RET
756
757
758 104D BREAK:
759 104D CD 0112 BREAK@: CALL CSTS
760 1050 C8 RZ
761 1051 CD 0103 CALL CI
762 1054 C3 105B JMP ETX?
763
764
765 ; CTI A VYPIS ZNAK
766 ;
767 1057 CD 013F ECHO: CALL CINCR
768 105A C8 RZ
769 105B FE 03 ETX?: CPI ETX
770 105D C0 RNZ
771 105E CD 0E43 CALL DIRSTP ; CLOSE & STOP
772 1061 C3 0139 JMP NEXT ; BREAK=>C
773
774 ; ZOBRAZ "CTENI"
775
776 1064 CD 10A1 PLAY: CALL TTSP
777 1067 CA 1077 JZ START ; PRO SP-210
778 106A CD 0151 CALL TXIMM
779 106D 20 43 54 45 DC ' CTENI '
780 1071 4E 49 A0
781 1074 CD 10CE RECO: CALL DONE
782
783 ;
784 1077 START:
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-14
785 1077 3E 38 MVI A,38H ; NASTAVENI MGF.
786 1079 4F GAPO: MOV C,A
787 107A 3A 427F LDA JEDE?
788 107D B7 ORA A
789 107E C8 RZ ; MGF JEDE
790 107F CD 10A1 CALL TTSP
791 1082 79 MOV A,C
792 1083 C2 1092 JNZ STAR2 ; PRO K-10
793 1086 F5 PUSH PSW ; RIDICI SLOVO
794 1087 E6 0F ANI 0FH
795 1089 F5 PUSH PSW
796 108A C4 10AD CNZ SPGO ; START CTENI
797 108D F1 POP PSW
798 108E CC 10A6 CZ RECPUL ; START ZAPISU
799 1091 F1 POP PSW ; 38 / 18
800 1092 D3 10 STAR2: OUT UMODE
801 1094 D3 13 OUT URES ; RESET UARTU
802 1096 3E 1F MVI A,1FH
803 1098 D3 11 OUT USTAT ; NASTAVENI PRENOSU
804 109A DB 12 IN UDATA ; NEPLATNA DATA
805 109C AF XRA A
806 109D 32 427F STA JEDE?
807 10A0 C9 RET
808 ;
809
810 ; TEST PRIPOJENI SP-210
811
812 10A1 3A 427B TTSP: LDA TSP
813 10A4 B7 ORA A
814 10A5 C9 RET ; Z=1 PRO SP-210
815
816
817 ; GENEROVANI RIDICIHO PULSU NA SP-210
818 ; VSTUP: A - RIDICI SLOVO
819
820 10A6 CD 10F4 RECPUL: CALL T10MS
821 10A9 3E DF MVI A,SPREC
822 10AB D3 34 OUT SPOUT ; ZAZNAM
823 10AD CD 10F4 SPGO: CALL T10MS
824 10B0 3E FB MVI A,SPSTART ; SPUSTENI
825 10B2 D3 34 SPPULS: OUT SPOUT
826 10B4 3E 15 MVI A,21
827 10B6 CD 10F6 CALL TIME ; PULS DELKY 210 MS
828 10B9 3E FF MVI A,0FFH
829 10BB D3 34 OUT SPOUT ; KONEC SIGNALU
830 10BD C9 RET
831
832
833 ; ZOBRAZ "ZAPIS!"
834
835 10BE CD 10A1 RECOR: CALL TTSP
836 10C1 C8 RZ ; PRO SP-210 NIC
837 10C2 CD 0151 CALL TXIMM
838 10C5 0D 0A DB CR,LF
839 10C7 20 5A 41 50 DC ' ZAPIS!'
840 10CB 49 53 A1
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-15
841 ;
842 10CE CD 0151 DONE: CALL TXIMM
843 10D1 20 48 4F 54 DC ' HOTOVO ?'
844 10D5 4F 56 4F 20
845 10D9 BF
846 10DA CD 1057 ECHOCR: CALL ECHO
847 10DD F5 PUSH PSW
848 10DE CD 0124 CALL CRLF
849 10E1 F1 POP PSW
850 10E2 C9 RET
851 ;
852 ; CASOVE PODPROGRAMY
853 ;
854 10E3 3A 0C24 BTIM8: LDA CAS
855 10E6 47 MOV B,A ; * 10 MS
856 10E7 7E MOV A,M ; 'B' ?
857 10E8 FE 42 CPI 'B'
858 10EA 78 MOV A,B
859 10EB C2 10F6 JNZ TIME
860 10EE 0F RRC
861 10EF 0F RRC
862 10F0 0F RRC ; /8
863 10F1 C3 10F6 JMP TIME
864
865 10F4 3E 01 T10MS: MVI A,1 ; PRO 10 MS
866 10F6 C5 TIME: PUSH B ; ACC*10MS (TCY=500NS)
867 10F7 01 041F TIME1: LXI B,800+255
868 10FA 0B TIME2: DCX B ; ( 5)
869 10FB 04 INR B ; ( 5)
870 10FC 05 DCR B ; ( 5)
871 10FD C2 10FA JNZ TIME2 ; (10) 10MS LOOP @ 12.5US
872 1100 3D DCR A
873 1101 C2 10F7 JNZ TIME1
874 1104 C1 POP B
875 1105 C9 RET
876
877 ;
878 ; PRESUN PAMETI
879 ;
880 1106 7E MOVE: MOV A,M
881 1107 12 STAX D
882 1108 23 INX H
883 1109 13 INX D
884 110A 05 DCR B
885 110B C2 1106 JNZ MOVE
886 110E C9 RET
887
888
889 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
890
891 ; OPERACE SE SOUBORY
892
893 ;====================================
894 ; NAJDI BLOK NA PASCE
895 ;====================================
896 ;
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-16
897 110F AF SEARCH: XRA A
898 1110 0E 23 SEAR1: MVI C,'#' ; CHYBA
899 1112 DC 0109 CC CO
900 1115 CD 1126 CALL ZVYS
901 1118 CD 1347 CALL READF
902 111B DA 1110 JC SEAR1 ; PRO CHYBU
903 111E 7E MOV A,M
904 111F B7 ORA A
905 1120 CA 0139 JZ NEXT ; PRO KONEC SOUBORU
906 1123 C3 1145 JMP RIB2
907
908 ;
909 ; ZVIS CISLO BLOKU
910 ;
911 1126 2A 4152 ZVYS: LHLD BNI
912 1129 23 INX H
913 112A 22 4152 SHLD BNI
914 112D C9 RET
915
916
917
918 ;====================================
919 ; CTI VSTUPNI BUFFER
920 ;====================================
921 ;
922 112E D5 RIB: PUSH D
923 112F C5 PUSH B
924 1130 CD 1126 CALL ZVYS
925 1133 CD 134B CALL READ
926 1136 DA 114B JC ERRD ; CHYBA
927 1139 CD 1284 CALL NUFIL ; CISLO O.K. ?
928 113C C2 114B JNZ ERRD ; CHYBA BLOKU
929 113F C1 RIB1: POP B
930 1140 D1 POP D
931 1141 21 4159 LXI H,BIN-1
932 1144 7E MOV A,M
933 1145 FE 3A RIB2: CPI CAN ; NAZEV PASKY
934 1147 C8 RZ
935 1148 FE 01 CPI SOH ; JMENO SOUBORU
936 114A C9 RET ; (HL)..TYP BLOKU
937
938 ;
939 ; CHYBA C T E N I
940 ;
941 114B CD 1279 ERRD: CALL XSTOP
942 114E CD 10A1 CALL TTSP ; PRO SP-210 1. OPRAVA
943 1151 06 64 MVI B,100
944 1153 CA 11B7 JZ ERR31 ; AUTOMATICKY "A"
945 1156 CD 0CF8 ERRD0: CALL STOP ; ZPRACUJ CHYBU CTENI
946 1159 2A 4152 LHLD BNI
947 115C EB XCHG
948 115D CD 0FB9 CALL DBTCR ; POZADOVANE CISLO
949 1160 CD 0151 CALL TXIMM
950 1163 0D 0A DB CR,LF
951 1165 43 48 59 42 DC 'CHYBA CTENI: I/D/N/A=ZNOVA ?'
952 1169 41 20 43 54
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-17
953 116D 45 4E 49 3A
954 1171 20 49 2F 44
955 1175 2F 4E 2F 41
956 1179 3D 5A 4E 4F
957 117D 56 41 20 BF
958 1181 CD 1057 CALL ECHO ; POKRACUJ
959 1184 FE 4E CPI 'N'
960 1186 CA 11E1 JZ ERRD8
961 1189 FE 49 CPI 'I'
962 118B C2 1198 JNZ ERRD1
963 118E 3A 4153 LDA BTI
964 1191 3C INR A
965 1192 32 4153 STA BTI ; ZVIS CISLO SOUBORU
966 1195 C3 11CF JMP ERRD7
967 1198 FE 44 ERRD1: CPI 'D'
968 119A C2 11B5 JNZ ERRD3
969 119D 3A 4153 LDA BTI
970 11A0 3D DCR A
971 11A1 32 4153 STA BTI
972 11A4 06 C8 ERRD2: MVI B,200 ; PRO "D"
973 11A6 CD 11E7 CALL VRAT ; NAVRAT O 2 SEC.
974 11A9 CD 1347 CALL READF
975 11AC CD 1284 CALL NUFIL
976 11AF D2 11A4 JNC ERRD2 ; JESTE VRACEJ
977 11B2 C3 11CF JMP ERRD7
978 11B5 06 32 ERRD3: MVI B,50 ; PRO "A" NAVRAT O 0.5 SEC
979 11B7 CD 11E7 ERR31: CALL VRAT
980 11BA C3 11CF JMP ERRD7
981 11BD CD 0151 ERRD4: CALL TXIMM
982 11C0 0D 0A DB CR,LF
983 11C2 56 52 41 54 DC 'VRAT ZPET '
984 11C6 20 5A 50 45
985 11CA 54 A0
986 11CC CD 1064 CALL PLAY
987 11CF CD 1347 ERRD7: CALL READF ; ZNOVA CTI
988 11D2 DA 11CF JC ERRD7
989 11D5 CD 1284 CALL NUFIL ; A HLEDEJ
990 11D8 CA 11E1 JZ ERRD8
991 11DB D2 1156 JNC ERRD0 ; PREJEL
992 11DE C3 11CF JMP ERRD7 ; CTI DAL
993 ;
994 11E1 CD 0124 ERRD8: CALL CRLF
995 11E4 C3 113F JMP RIB1 ; JE TO DOBRE
996
997
998
999 11E7 CD 10A1 VRAT: CALL TTSP
1000 11EA E1 POP H ; NAVRATOVA ADRESA VRAT
1001 11EB C2 11BD JNZ ERRD4 ; PRO K-10
1002 11EE E5 PUSH H ; PRO SP-210 OK
1003 11EF 3E BF MVI A,SPREWZ ; PREVIJENI VZAD
1004 11F1 CD 10B2 CALL SPPULS ; DOBA VSTUPUJE V <A>
1005 11F4 78 MOV A,B
1006 11F5 C3 10F6 JMP TIME
1007
1008
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-18
1009 ;====================================
1010 ; ZAPIS VYSTUPNI BUFFER
1011 ;====================================
1012 ;
1013 11F8 32 4159 WOBW: STA BOUT-1
1014 11FB D5 WOB: PUSH D
1015 11FC 2A 4150 LHLD BNO
1016 11FF 23 INX H
1017 1200 22 4150 SHLD BNO
1018 1203 EB XCHG
1019 ;
1020
1021 ;*********************************************
1022 ; ZAPIS BLOKU: HL - ADRESA VYSTUPNIHO BUFFERU
1023 ;*********************************************
1024 ;
1025 1204 C5 WRBLO: PUSH B
1026 1205 D5 PUSH D
1027 1206 21 4159 LXI H,BOUT-1 ; START BLOKU
1028 1209 3E 30 MVI A,30H
1029 120B CD 1079 CALL GAPO ; START WRITE
1030 120E CD 10E3 CALL BTIM8 ; 800/100 MS
1031 1211 3A 40F1 LDA CASK
1032 1214 B7 ORA A
1033 1215 C4 10E3 CNZ BTIM8 ; PRODLOUZENO 2X
1034 1218 CD 13E2 CALL SEROP
1035 121B CD 13E2 CALL SEROP
1036 121E CD 13E2 CALL SEROP ; PREAMBLE
1037 1221 01 0000 LXI B,(LENGHT+1) AND 0FFH
1038 1224 CD 13D8 CALL SEROM ; DATA
1039 1227 21 4259 LXI H,WRNM
1040 122A 0E 0B MVI C,NAMLE
1041 122C CD 13D8 CALL SEROM ; JMENO
1042 122F D1 POP D
1043 1230 7B MOV A,E
1044 1231 CD 13E4 CALL SEROUT ; CISLO BLOKU
1045 1234 7A MOV A,D
1046 1235 CD 13E4 CALL SEROUT ; CISLO SOUBORU
1047 1238 78 MOV A,B
1048 1239 CD 13E4 CALL SEROUT ; KONTROLNI SUMA
1049 123C CD 13E2 CALL SEROP
1050 123F AF XRA A
1051 1240 CD 13E4 CALL SEROUT ; ZAVER BLOKU
1052 1243 CD 0FE0 CALL OKNO
1053 1246 CD 0FC0 CALL DBTV1
1054 1249 CD 0FCA CALL OBNOV
1055 124C C1 POP B
1056 124D CD 10F4 CALL T10MS ; 10 MS
1057 1250 21 4159 LXI H,BOUT-1
1058 1253 22 4154 SHLD ADRO ; ZACATEK
1059 1256 7E MOV A,M
1060 1257 CD 126A CALL ZASTAV
1061 125A D1 POP D
1062
1063 ;
1064 ; NULUJ VYSTUPNI BUFFER
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-19
1065 ;----------------------
1066 ;
1067 125B 21 4159 NULBF: LXI H,BOUT-1
1068 125E E5 PUSH H
1069 125F 3E FF MVI A,LENGHT
1070 1261 23 INX H
1071 1262 36 00 MVI M,0
1072 1264 3D DCR A
1073 1265 C2 1261 JNZ $-4
1074 1268 E1 POP H ; (BLOK TYP) ADRM
1075 1269 C9 RET
1076 ;
1077 ; ZASTAV NA KONCI BLOKU
1078 ;
1079 126A D6 42 ZASTAV: SUI 'B'
1080 126C C8 RZ
1081 126D 3C INR A
1082 126E CA 1279 JZ XSTOP ; 'A'
1083 1271 CD 10E3 CALL BTIM8
1084 1274 7E MOV A,M
1085 1275 3D DCR A ; SOH ?
1086 1276 C2 0CF8 JNZ STOP ; NENI SOH
1087
1088
1089 ; VOLANI STOP NA K-10 / PAUSE NA SP-210
1090
1091 1279 CD 10A1 XSTOP: CALL TTSP
1092 127C 3E EF MVI A,SPPAUS ; PAUSE NA SP-210
1093 127E CA 0CFD JZ STOP1
1094 1281 C2 0CF8 JNZ STOP ; STOP NA K-10
1095
1096 ;
1097 ; CISLO BLOKU O.K. ?
1098 ;
1099 1284 E5 NUFIL: PUSH H
1100 1285 2A 4152 LHLD BNI
1101 1288 2B DCX H
1102 1289 CD 0136 CALL HILO ; POROVNEJ
1103 128C E1 POP H
1104 128D C9 RET
1105
1106
1107 ;====================================
1108 ; CTI BYTE Z KAZETY
1109 ;====================================
1110 ;
1111 128E C5 GET@: PUSH B
1112 128F D5 PUSH D
1113 1290 E5 PUSH H
1114 1291 3A 40E4 LDA @IF1 ; BYL OTEVREN SOUBOR?
1115 1294 B7 ORA A
1116 1295 CC 0DB7 CZ FIND ; KDYZ NE, TAK FIND
1117 1298 2A 4156 LHLD ADRI
1118 129B 23 GET0: INX H
1119 129C 7D MOV A,L ; PRAZDNY?
1120 129D FE 59 CPI BIEND AND 0FFH
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-20
1121 129F 7E MOV A,M
1122 12A0 22 4156 SHLD ADRI
1123 12A3 CA 12D1 JZ GET1 ; <A>..BYTE
1124 12A6 FE 1A CPI SUBS ; EOF? TEST
1125 12A8 C2 12CC JNZ GETEX
1126 12AB 4F MOV C,A
1127 12AC CD 12DD CALL KONEC?
1128 12AF 79 GET00: MOV A,C ; POSLEDNI BLOK
1129 12B0 C2 12CC JNZ GETEX
1130 12B3 5D MOV E,L ; ADR ZNAKU SUBS
1131 12B4 21 4259 LXI H,BIEND ; HLEDEJ OD KONCE
1132 12B7 2B GET01: DCX H
1133 12B8 BE CMP M ; JE SUBS
1134 12B9 C2 12B7 JNZ GET01
1135 12BC 7D MOV A,L
1136 12BD 93 SUB E ; STEJNY ADR?
1137 12BE C2 12AF JNZ GET00 ;- NENI KONEC
1138 ;
1139 12C1 AF GET2: XRA A
1140 12C2 32 40E4 STA @IF1 ; UZAVRI SOUBOR
1141 12C5 CD 0CF8 CALL STOP
1142 12C8 3E 1A MVI A,SUBS
1143 12CA 37 STC ; CY=1
1144 12CB 06 DB 6
1145 12CC B7 GETEX: ORA A
1146 12CD E1 POP H
1147 12CE D1 POP D
1148 12CF C1 POP B
1149 12D0 C9 RET
1150 ;
1151 12D1 CD 12DD GET1: CALL KONEC?
1152 12D4 C4 112E CNZ RIB
1153 12D7 C2 129B JNZ GET0 ; KONEC SOUBORU
1154 12DA C3 12C1 JMP GET2
1155 ; POSLEDNI BLOK ?
1156 12DD 3A 4159 KONEC?: LDA BIN-1
1157 12E0 FE 04 CPI EOT
1158 12E2 C9 RET ; ZY=1...ANO
1159
1160
1161 ;
1162 ;====================================
1163 ; ZAPIS BYTE NA KAZETU
1164 ;====================================
1165 ;
1166 12E3 CD 1309 PUT@: CALL PUTEND ; JE ^Z ?
1167 12E6 DA 0E8F JC CLOSE0
1168 12E9 C5 PUSH B
1169 12EA D5 PUSH D
1170 12EB E5 PUSH H
1171 12EC 3A 40E6 LDA @OF1 ; BYL OTEVREN?
1172 12EF B7 ORA A
1173 12F0 C5 PUSH B
1174 12F1 CC 0D50 CZ OPEN ; KDYZ NE, TAK OPEN
1175 12F4 C1 POP B
1176 12F5 2A 4154 LHLD ADRO
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-21
1177 12F8 23 INX H
1178 12F9 71 MOV M,C ; ZAPIS
1179 12FA 22 4154 SHLD ADRO
1180 12FD 7D MOV A,L
1181 12FE FE 58 CPI (BOEND AND 0FFH)-1
1182 1300 CC 11FB CZ WOB
1183 1303 E1 POP H
1184 1304 D1 POP D
1185 1305 C1 POP B
1186 1306 79 MOV A,C
1187 1307 B7 ORA A ; NCY
1188 1308 C9 RET
1189
1190 1309 3A 4159 PUTEND: LDA BOUT-1
1191 130C FE 42 CPI 'B'
1192 130E C8 RZ
1193 130F 3A 40E3 LDA MODE
1194 1312 E6 02 ANI 2
1195 1314 EE 02 XRI 2
1196 1316 C8 RZ
1197 1317 79 MOV A,C
1198 1318 FE 1A CPI SUBS
1199 131A 37 STC
1200 131B C8 RZ
1201 131C B7 ORA A
1202 131D C9 RET
1203
1204
1205 ;KONTROLNI SOUCET?
1206 131E 48 CHECK: MOV C,B
1207 131F CD 1333 CALL RICH
1208 1322 B9 CMP C
1209 1323 C8 RZ
1210
1211 ; ZASTAV A OHLAS CHYBU
1212 1324 CD 0CF8 ERSTP: CALL STOP
1213 1327 C3 012A JMP ERROR
1214 ;
1215 132A CD 1333 RADR@: CALL RICH
1216 132D 6F MOV L,A
1217 132E CD 1333 CALL RICH ; HL
1218 1331 67 MOV H,A
1219 1332 C9 RET
1220 ;
1221 1333 CD 0106 RICH: CALL RI ; CTENI & SUMA
1222 1336 DA 1324 JC ERSTP
1223 1339 C3 13F1 JMP SUM@
1224 ;
1225 133C 4D PADR@: MOV C,L
1226 133D CD 1341 CALL POCH
1227 1340 4C MOV C,H
1228 ;
1229 1341 79 POCH: MOV A,C ; ZAPI & SUMA
1230 1342 80 ADD B
1231 1343 47 MOV B,A
1232 1344 C3 010C JMP PO
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-22
1233
1234 ;
1235 ;********************************************
1236 ; CTENI BLOKU: HL - ADRESA VSTUPNIHO BUFFERU
1237 ; VYSTUP: DE - CISLO SOUBORU A BLOKU
1238 ; CY=1 PRO CHYBU
1239 ;********************************************
1240
1241 ;
1242 1347 AF READF: XRA A ; NASTAV FIND MOD
1243 1348 32 4158 STA FND
1244 134B READ:
1245 134B C5 RBLOK: PUSH B
1246 134C 21 4264 LXI H,READNM
1247 134F CD 1077 CALL START
1248
1249 ; SYNCHRONIZACE
1250
1251 1352 DB 12 SYNC: IN UDATA
1252 1354 CD 10F4 CALL T10MS ; 10 MS
1253 1357 CD 104D CALL BREAK
1254 135A DB 11 IN USTAT
1255 135C 07 RLC
1256 135D DA 1352 JC SYNC ; CEKEJ NA READY
1257 ;
1258 1360 0E 03 RBL2: MVI C,3 ; 3*PREAMBLE
1259 1362 CD 13EE RBL3: CALL SERIN
1260 1365 FE 10 CPI PREAM
1261 1367 C2 1352 JNZ SYNC
1262 136A 0D DCR C
1263 136B C2 1362 JNZ RBL3
1264 136E 0E 2A MVI C,'*'
1265 1370 3A 4158 LDA FND ; FIND MOD?
1266 1373 B7 ORA A
1267 1374 C2 1379 JNZ $+5 ; NECTE
1268 1377 0E 3A MVI C,':'
1269 1379 71 MOV M,C
1270 137A 23 INX H
1271 137B E5 PUSH H
1272 137C 21 4159 LXI H,BIN-1
1273 137F 01 0000 LXI B,(LENGHT+1) AND 0FFH
1274
1275 ; CTI BLOK DAT
1276 1382 CD 13CE CALL SERIM
1277 1385 E1 POP H
1278 1386 36 22 MVI M,'"'
1279 1388 23 INX H
1280 1389 0E 0B MVI C,NAMLE
1281 138B CD 13CE CALL SERIM
1282 138E 36 22 MVI M,'"'
1283 1390 23 INX H
1284 1391 36 20 MVI M,' '
1285 1393 CD 13EE CALL SERIN
1286 1396 5F MOV E,A
1287 1397 CD 13EE CALL SERIN
1288 139A 57 MOV D,A
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-23
1289 139B 48 MOV C,B ; KONTROLNI SUMA
1290 139C CD 13EE CALL SERIN
1291 139F 91 SUB C
1292 13A0 F5 PUSH PSW
1293 13A1 CD 0FE0 CALL OKNO
1294 13A4 06 0F MVI B,15
1295 13A6 CD 0FA4 CALL PNAME ; VYPIS JMENA
1296 13A9 CD 0FBC CALL DBTV
1297 13AC CD 0FCA CALL OBNOV
1298 13AF 21 4159 LXI H,BIN-1
1299 13B2 22 4156 SHLD ADRI ; POCATECNI ADRESA
1300 13B5 3A 4158 LDA FND
1301 13B8 B7 ORA A
1302 13B9 7E MOV A,M
1303 13BA 06 41 MVI B,'A'
1304 13BC CA 13C0 JZ $+4
1305 13BF 04 INR B
1306 13C0 B8 CMP B
1307 13C1 DC 1279 CC XSTOP
1308 13C4 3E 15 MVI A,21
1309 13C6 32 4158 STA FND ; ZRUS FIND MOD
1310 13C9 F1 POP PSW ; PRO ZERO ..O.K
1311 13CA C1 POP B
1312 13CB C8 RZ
1313 13CC 37 STC
1314 13CD C9 RET ; ELSE ...ERROR
1315
1316 ;
1317 ; ZAPIS DO PAMETI
1318 ;
1319 13CE CD 13EE SERIM: CALL SERIN ; CTI
1320 13D1 77 MOV M,A
1321 13D2 23 INX H
1322 13D3 0D DCR C
1323 13D4 C2 13CE JNZ SERIM
1324 13D7 C9 RET
1325
1326 ;
1327 13D8 7E SEROM: MOV A,M ; Z PAMETI
1328 13D9 23 INX H
1329 13DA CD 13E4 CALL SEROUT ; NA :CT:
1330 13DD 0D DCR C
1331 13DE C2 13D8 JNZ SEROM
1332 13E1 C9 RET ; VSE
1333
1334 13E2 3E 10 SEROP: MVI A,PREAM ; BLOCK-MARK
1335 ;
1336 ; ZAPIS ZNAMU NA MGF
1337 ;
1338 13E4 CD 13F1 SEROUT: CALL SUM@
1339 13E7 C5 PUSH B
1340 13E8 4F MOV C,A
1341 13E9 CD 017E CALL SERO@
1342 13EC C1 POP B
1343 13ED C9 RET
1344 ;
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-24
1345 ; VSTUP ZNAKU Z MGF
1346
1347 13EE CD 017B SERIN: CALL SERI@
1348 13F1 F5 SUM@: PUSH PSW
1349 13F2 80 ADD B
1350 13F3 47 MOV B,A
1351 13F4 CD 104D CALL BREAK
1352 13F7 F1 POP PSW
1353 13F8 C9 RET
1354
1355
1356
1357 13F9 @E@KOS EQU $
1358
1359 ;
1360 ;****************************************
1361 ; ROZDELENI S Y S T E M O V E R A M
1362 ;****************************************
1363 ;
1364 4000 RST1 EQU @R@ ; RESTART VEKTORY
1365 ;........>>>
1366 ;......
1367 ;<<... UZIVATELSKY & MONITOR. ZASOBNIK
1368
1369
1370 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1371 .PHASE @R@+6DH
1372 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1373 ; MONITOR DATA
1374 ;
1375 406D MSTAK: DS 2
1376 406F ACSAV: DS 2
1377 4071 BCSAV: DS 2
1378 4073 DESAV: DS 2
1379 4075 HLSAV: DS 2
1380 4077 PCSAV: DS 2
1381 4079 SPSAV: DS 2
1382 ;
1383 407B BRAD: DS 2
1384 407D INSTR: DS 1
1385 407E BRAD2: DS 2
1386 4080 INST2: DS 1
1387 4081 CADR: DS 2 ; KURZOR ADR.
1388 ;-------------------------
1389 4083 WMKOD: DS 14 ; KOD PRO KURZORY
1390 4091 PREV: DS 21 ; PREVODNI KODY..0
1391 ;-------------------------
1392 ; USER I/O DEVICE
1393 ;
1394 40A6 CILOC: DS 3 ; 0
1395 40A9 COLOC: DS 3 ; 1
1396 40AC R1LOC: DS 3 ; 2
1397 40AF R2LOC: DS 3 ; 3
1398 40B2 P1LOC: DS 3 ; 4
1399 40B5 P2LOC: DS 3 ; 5
1400 40B8 LILOC: DS 3 ; 6
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-25
1401 40BB CSLOC: DS 3 ; 7
1402 40BE DS 1
1403 40BF MEMTOP: DS 2 ; 8
1404 40C1 ERRSW: DS 3 ; 9
1405 40C4 CI@0: DS 3 ; 10
1406 40C7 CO@: DS 3 ; 11
1407 40CA CSTS@: DS 3 ; 12
1408 40CD LO@: DS 3 ; 13
1409 40D0 KOS@: DS 3 ; 14
1410 40D3 RI@: DS 3 ; 15
1411 40D6 PO@: DS 3 ; 16
1412 40D9 CCPM: DS 3 ; 17
1413 40DC GRAF: DS 3
1414 40DF RESER: DS 3
1415 0015 IONUM EQU ($-CILOC)/3+1
1416 ;
1417 40E2 IOBYT: DS 1 ; RIZENI I/O ZARIZENI
1418 ;
1419 ;****************************
1420 ;<< EXTERE OVLADANE FLAGY: >>
1421 ;****************************
1422 40E3 MODE: DS 1 ; CO-MODE
1423 40E4 @IF1: DS 1
1424 40E5 @IF2: DS 1
1425 40E6 @OF1: DS 1
1426 40E7 @OF2: DS 1
1427 40E8 LINE: DS 1 ; RADEK
1428 40E9 COLUM: DS 1 ; SLOUPEC
1429 40EA RESL: DS 1 ; RESERVACE
1430 40EB RESC: DS 1 ; SLOUPEC
1431 40EC RESL1: DS 1 ; POSLEDNI RADEK
1432 40ED RESC1: DS 1 ; POSLEDNI SLOUPEC
1433 40EE PREP: DS 1 ; UROVEN PRERUSENI
1434 ;
1435 ; PROMENE PRO OPRACNI SYSTEM
1436 ;
1437 40EF CUR@: DS 1
1438 40F0 KEY: DS 1
1439 40F1 CASK: DS 1 ; <>0 - PRODLUZ MEZERY
1440
1441 40F2 WNDP: DS 6 ; PARAMETR PRO 2. OKNO
1442 0015 EXSER EQU $-MODE ; KONEC SLUZEB
1443 ;
1444 40F8 CHAR: DS 1
1445 40F9 XFLG: DS 1
1446 ;
1447 ;****************************************************
1448 ; DATA SPOLECNA PRO MONITOR A O.S.
1449 ;****************************************************
1450 ;
1451 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1452 40FA @BT: DS 1
1453 40FB @PED: DS 1
1454 40FC SADR: DS 2 ; START ADR
1455 40FE EADR: DS 2 ; END ADR
1456 4100 SUM: DS 1
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE 1-26
1457 4101 EXTEXT: DS 1
1458 4102 OPT: DS 1
1459 4103 NAMBUF: DS 65
1460 ;
1461 ;""""""""""""""""""""""""""""""""""
1462 ; PROMENE PRO O.S.
1463 4144 FNAME: DS 12 ; JMENO SOUBORU
1464 4150 BNO: DS 1 ; CISLO BLOKU
1465 4151 BTO: DS 1 ; CISLO SOUBORU
1466 4152 BNI: DS 1 ;
1467 4153 BTI: DS 1 ; INPUT
1468 4154 ADRO: DS 2 ; ADR OUTPUT
1469 4156 ADRI: DS 2 ; ADR INPUT
1470 4158 FND: DS 1 ; FIND/READ
1471
1472
1473 ;*******************************
1474 ; I/O BUFFER PRO KOS
1475 ;*******************************
1476 4159 DS 1 ; TYP BLOKU
1477 415A BOUT:
1478 415A BIN: DS LENGHT ; DATA
1479 4259 BIEND EQU $
1480 4259 BOEND EQU $
1481 4259 WRNM: DS 11 ; JMENO SOUBORU
1482 4264 READNM: DS 22 ; BUFFER PRO ZOBRAZENI
1483 427A TSM: DS 1
1484 427B TSP: DS 1 ; PRO SP-210 - 0
1485 427C POSICE: DS 2 ; OKNA V MIKOSU
1486 427E MOD@: DS 1
1487 427F JEDE?: DS 1 ; PRO =0 MGF. JEDE
1488 ; <>0 MGF. STOJI
1489 ;
1490
1491 .DEPHASE
1492 ;
1493 END ; [P]
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE S
Macros:
Symbols:
1000 @ANAL 40FA @BT 13F9 @E@KOS
40E4 @IF1 40E5 @IF2 40E6 @OF1
40E7 @OF2 40FB @PED 4000 @R@
406F ACSAV 4156 ADRI 4154 ADRO
1003 ANAL 012D ASHEX 4071 BCSAV
4259 BIEND 415A BIN 0D08 BINAR
4152 BNI 4150 BNO 4259 BOEND
415A BOUT 407B BRAD 407E BRAD2
104D BREAK 104D BREAK@ 4153 BTI
10E3 BTIM8 4151 BTO 4081 CADR
003A CAN 0C24 CAS 40F1 CASK
40D9 CCPM 40F8 CHAR 131E CHECK
0103 CI 40C4 CI@0 40A6 CILOC
013F CINCR 1037 CISLO 0E86 CLOSE
0E8F CLOSE0 0E4A CLST2 0E39 CLSTP
0F4F CMPNM 0109 CO 40C7 CO@
40A9 COLOC 40E9 COLUM 0040 COMLE
0F5A CPF10 000D CR 0124 CRLF
40BB CSLOC 0112 CSTS 40CA CSTS@
40EF CUR@ 0130 DADR 0FB9 DBTCR
0FBC DBTV 0FC0 DBTV1 0133 DBYT
007F DEL 4073 DESAV 0D21 DIR
0D25 DIR0 0D29 DIR1 0D42 DIR1A
0D4A DIR2 0E43 DIRSTP 10CE DONE
40FE EADR 1057 ECHO 10DA ECHOCR
0000 EOL 0004 EOT 1800 EP3
0C00 EPROM 0000 ERAM 11B7 ERR31
114B ERRD 1156 ERRD0 1198 ERRD1
11A4 ERRD2 11B5 ERRD3 11BD ERRD4
11CF ERRD7 11E1 ERRD8 012A ERROR
40C1 ERRSW 001E ERS 1324 ERSTP
0003 ETX 105B ETX? 0F1F EXCH
0127 EXPR 0015 EXSER 0FFA EXT?
4101 EXTEXT 0DB7 FIND 4144 FNAME
4158 FND 1079 GAPO 129B GET0
12AF GET00 12B7 GET01 12D1 GET1
12C1 GET2 128E GET@ 12CC GETEX
40DC GRAF 0136 HILO 4075 HLSAV
001D HOME 0009 HT 0148 HXASC
0EA8 INIT 0EB6 INIT1 0EC2 INIT2
0EDC INIT3 0C2A INITS 4080 INST2
407D INSTR 015D INTER 40E2 IOBYT
0115 IOCHK 011E IODEF 0015 IONUM
101A IOPO 1020 IOPO1 1025 IORI
0118 IOSET 427F JEDE? 0F84 JMENO?
40F0 KEY 0D16 KONEC 12DD KONEC?
40D0 KOS@ 0C7C KOS@@ 00FF LENGHT
000A LF 40B8 LILOC 40E8 LINE
0DF1 LO1 0E19 LO2 40CD LO@
0DEE LOAD 0024 MAXSL 40BF MEMTOP
0C8D MICOS 427E MOD@ 40E3 MODE
0000 MONIT 0CE3 MOTA 0CF5 MOTA1
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210 MACRO-80 3.44 09-Dec-81 PAGE S-1
1106 MOVE 406D MSTAK 4103 NAMBUF
000B NAMLE 0139 NEXT 1008 NPO
1014 NRI 100D NRI1 1284 NUFIL
125B NULBF 0FCA OBNOV 0F87 OK?
0FE0 OKNO 0D7B OPE1 0D8F OPE3
0D97 OPE4 0DAF OPE5 0D50 OPEN
4102 OPT 40B2 P1LOC 40B5 P2LOC
133C PADR@ 4077 PCSAV 0F9B PHDR
1064 PLAY 0FA7 PNAM1 0FAF PNAM2
0FA4 PNAME 010C PO 40D6 PO@
1341 POCH 427C POSICE 0010 PREAM
40EE PREP 4091 PREV 12E3 PUT@
1309 PUTEND 40AC R1LOC 40AF R2LOC
132A RADR@ 1360 RBL2 1362 RBL3
134B RBLOK 134B READ 1347 READF
4264 READNM 1074 RECO 10BE RECOR
10A6 RECPUL 40EB RESC 40ED RESC1
40DF RESER 40EA RESL 40EC RESL1
0F3F REWI1 0CF0 REWIK 0F31 REWIND
0F28 REWIZ 0106 RI 40D3 RI@
112E RIB 113F RIB1 1145 RIB2
1333 RICH 015A RNAME 4000 RST1
00CF RSTN 40FC SADR 0E78 SAV1
0E4F SAVE 1110 SEAR1 110F SEARCH
017B SERI@ 13CE SERIM 13EE SERIN
017E SERO@ 13D8 SEROM 13E2 SEROP
13E4 SEROUT 0C82 SLUZBA 0001 SOH
013C SPACE 0037 SPC 0121 SPCL
10AD SPGO 0035 SPIN 0034 SPOUT
00EF SPPAUS 10B2 SPPULS 00DF SPREC
00F7 SPREWK 00BF SPREWZ 008B SPRS
4079 SPSAV 00FB SPSTART 007F SPSTOP
1092 STAR2 1077 START 0CF8 STOP
0CFD STOP1 001A SUBS 4100 SUM
13F1 SUM@ 1352 SYNC 10F4 T10MS
0F66 TESTJM 0142 TEXT 10F6 TIME
10F7 TIME1 10FA TIME2 427A TSM
427B TSP 10A1 TTSP 0151 TXIMM
1040 TXNAM 0012 UDATA 0010 UMODE
0013 URES 0011 USTAT 0F81 VIP1
11E7 VRAT 0F7A VYPISH 4083 WMKOD
0154 WND@ 40F2 WNDP 11FB WOB
11F8 WOBW 1204 WRBLO 0F07 WRN1
0EF3 WRNAM 4259 WRNM 40F9 XFLG
1279 XSTOP 0C18 ZAC 126A ZASTAV
102B ZMIO 1126 ZVYS
No Fatal error(s)
@ANAL 591 692#
@BT 408 1452#
@E@KOS 1357#
@IF1 146 369 416 1114 1140 1423#
@IF2 419 1424#
@OF1 147 307 336 460 470 1171 1425#
@OF2 1426#
@PED 1453#
@R@ 11# 1364 1371
ACSAV 1376#
ADRI 371 1117 1122 1299 1469#
ADRO 464 1058 1176 1179 1468#
ANAL 694#
ASHEX 44#
BCSAV 1377#
BIEND 370 1120 1131 1479#
BIN 604 931 1156 1272 1298 1478#
BINAR 113 247# 430
BNI 275 368 911 913 946 1100 1466#
BNO 329 332 502 1015 1017 1464#
BOEND 1181 1480#
BOUT 251 319 1013 1027 1057 1067 1190 1477#
BRAD 1383#
BRAD2 1385#
BREAK 758# 1253 1351
BREAK@ 564 759#
BTI 963 965 969 971 1467#
BTIM8 249 854# 1030 1033 1083
BTO 318 1465#
CADR 1387#
CAN 91# 322 504 578 933
CAS 121# 854
CASK 1031 1439#
CCPM 299 353 459 1412#
CHAR 1444#
CHECK 395 401 1206#
CI 25# 761
CI@0 1405#
CILOC 1394# 1415
CINCR 30# 767
CISLO 721 728 740#
CLOSE 110 196 310 456#
CLOSE0 460# 1167
CLST2 414 418#
CLSTP 406 411#
CMPNM 364 576# 577 579 584
CO 27# 187 277 641 661 663 899
CO@ 1406#
COLOC 1395#
COLUM 1428#
COMLE 56# 513 628
CPF10 581#
CR 58# 694 752 838 950 982
CRLF 36# 411 533 626 648 848 994
CSLOC 1401#
CSTS 29# 759
CSTS@ 1407#
CUR@ 1437#
DADR 35#
DBTCR 286 648# 948
DBTV 649# 1296
DBTV1 651# 1053
DBYT 34# 650 653
DEL 60#
DESAV 1378#
DIR 190 270#
DIR0 272# 279
DIR1 274# 288
DIR1A 281 284#
DIR2 285 287#
DIRSTP 415# 771
DONE 233 781 842#
EADR 387 1455#
ECHO 767# 846 958
ECHOCR 188 616 846#
EOL 88#
EOT 90# 284 320 467 1157
EP3 13# 153 155
EPROM 19# 98 119 163
ERAM 18#
ERR31 944 979#
ERRD 926 928 941#
ERRD0 945# 991
ERRD1 962 967#
ERRD2 972# 976
ERRD3 968 978#
ERRD4 981# 1001
ERRD7 966 977 980 987# 988 992
ERRD8 960 990 994#
ERROR 43# 1213
ERRSW 1404#
ERS 66#
ERSTP 384 393 1212# 1222
ETX 61# 769
ETX? 762 769#
EXCH 206 540#
EXPR 33# 428
EXSER 1442#
EXT? 362 686#
EXTEXT 182 686 1457#
FIND 108 198 349# 379 1116
FNAME 360 581 1463#
FND 130 1243 1265 1300 1309 1470#
GAPO 248 786# 1029
GET0 1118# 1153
GET00 1128# 1137
GET01 1132# 1134
GET1 1123 1151#
GET2 1139# 1154
GET@ 114 1111#
GETEX 1125 1129 1145#
GRAF 1413#
HILO 37# 399 405 447 1102
HLSAV 1379#
HOME 65# 679
HT 62#
HXASC 45#
INIT 192 479#
INIT1 484# 487
INIT2 480 489#
INIT3 488 497#
INITS 107 128#
INST2 1386#
INSTR 1384#
INTER 49#
IOBYT 131 704 716 734 737 1417#
IOCHK 40#
IODEF 31#
IONUM 1415#
IOPO 295 721#
IOPO1 341 725#
IORI 349 728#
IOSET 42#
JEDE? 239 787 806 1487#
JMENO? 590 611#
KEY 1438#
KONEC 204 259#
KONEC? 1127 1151 1156#
KOS@ 142 1409#
KOS@@ 141 162#
LENGHT 54# 1037 1069 1273 1478
LF 59# 752 838 950 982
LILOC 1400#
LINE 1427#
LO1 380# 382
LO2 397# 400
LO@ 1408#
LOAD 111 202 379#
MAXSL 119# 164
MEMTOP 1403#
MICOS 106 180#
MOD@ 664 673 1486#
MODE 665 670 1193 1422# 1442
MONIT 17#
MOTA 115 208 226#
MOTA1 230 233#
MOVE 152 361 517 880# 885
MSTAK 1375#
NAMBUF 1459#
NAMLE 55# 359 519 582 1040 1280
NEXT 38# 283 772 905
NPO 296 429 456 704#
NRI 350 412 716#
NRI1 707# 717
NUFIL 287 927 975 989 1099#
NULBF 511 1067#
OBNOV 657# 1054 1297
OK? 259 323 613#
OKNO 669# 1052 1293
OPE1 315# 324
OPE3 321 323#
OPE4 312 327# 342
OPE5 302 340#
OPEN 109 194 295# 426 1174
OPT 1458#
P1LOC 1398#
P2LOC 1399#
PADR@ 436 438 1225#
PCSAV 1380#
PHDR 575 605 626#
PLAY 270 314 363 776# 986
PNAM1 636# 644
PNAM2 638 640#
PNAME 635# 1295
PO 28# 1232
PO@ 1411#
POCH 432 440 442 446 450 1226 1229#
POSICE 657 677 1485#
PREAM 63# 1260 1334
PREP 1433#
PREV 1390#
PUT@ 116 1166#
PUTEND 1166 1190#
R1LOC 150 1396#
R2LOC 1397#
RADR@ 386 389 1215#
RBL2 1258#
RBL3 1259# 1263
RBLOK 1245#
READ 925 1244#
READF 901 974 987 1242#
READNM 635 1246 1482#
RECO 781#
RECOR 261 334 496 835#
RECPUL 482 798 820#
RESC 1430#
RESC1 1432#
RESER 1414#
RESL 1429#
RESL1 1431#
REWI1 564# 567
REWIK 227 231# 552
REWIND 212 305 357 481 558#
REWIZ 210 549#
RI 26# 1221
RI@ 1410#
RIB 922# 1152
RIB1 929# 995
RIB2 906 933#
RICH 380 391 397 1207 1215 1217 1221#
RNAME 48# 300 354 503
RST1 1364#
RSTN 12#
SADR 390 1454#
SAV1 445# 448
SAVE 112 200 426#
SEAR1 898# 902
SEARCH 278 315 576 897#
SERI@ 50# 1347
SERIM 1276 1281 1319# 1323
SERIN 1259 1285 1287 1290 1319 1347#
SERO@ 51# 1341
SEROM 1038 1041 1327# 1331
SEROP 1034 1035 1036 1049 1334#
SEROUT 1044 1046 1048 1051 1329 1338#
SLUZBA 165#
SOH 89# 335 935
SPACE 41# 651 654
SPC 83# 144
SPCL 32# 674
SPGO 796 823#
SPIN 84# 565
SPOUT 85# 822 825 829
SPPAUS 71# 1092
SPPULS 232 236 561 825# 1004
SPREC 68# 821
SPREWK 73# 231
SPREWZ 72# 551 560 1003
SPRS 74# 143
SPSAV 1381#
SPSTART 69# 824
SPSTOP 70# 235
STAR2 792 800#
START 777 784# 1247
STOP 117 156 180 234# 282 417 472 568 945 1086 1094 1141
1212
STOP1 236# 1093
SUBS 64# 466 1124 1142 1198
SUM 402 1456#
SUM@ 1223 1338 1348#
SYNC 1251# 1256 1261
T10MS 820 823 865# 1056 1252
TESTJM 583 587# 597
TEXT 39# 629
TIME 485 563 827 859 863 866# 1006
TIME1 867# 873
TIME2 868# 871
TSM 1483#
TSP 148 540 542 812 1484#
TTSP 184 226 234 479 549 558 776 790 812# 835 942 999
1091
TXIMM 46# 132 491 498 613 658 678 751 778 837 842 949
981
TXNAM 751#
UDATA 78# 804 1251
UMODE 80# 229 238 490 800
URES 77# 801
USTAT 79# 803 1254
VIP1 606#
VRAT 973 979 999#
VYPISH 272 316 592 603# 611
WMKOD 1389#
WND@ 47#
WNDP 1441#
WOB 1014# 1182
WOBW 263 468 531 1013#
WRBLO 1025#
WRN1 521# 529
WRNAM 338 509#
WRNM 520 1039 1481#
XFLG 1445#
XSTOP 497 941 1082 1091# 1307
ZAC 114# 149
ZASTAV 1060 1079#
ZMIO 726 731#
ZVYS 900 911# 924
Ú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