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
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1
1 .LIST
2 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
3 TITLE FIRMWARE SAPI-1 MONITOR V5.0/E
4 ; 9.2.1988 (P.P.)
5 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
6 ;
7 ; MONITOR + MIKOS V5.0 TVORI FIRMWARE SYSTEMU SAPI-1.
8 ; V5.0 JE KOMPATIBILNI S VERZI V4.0 A JE ULOZENA
9 ; V 5K EPROM.
10 ; DALSI SKUPINA PROGRAMU JE NA KAZETE:
11 ; 1) BASIC EXP V5.0
12 ; 2) TEDIT 1
13 ; 3) TOOL ASM-80
14 ;..........................................
15 ; ROZDELENI PAMETI U ZPS-2:
16 ; 0000H-13FFH FIRMWARE EPROM 5K
17 ; 2400H-33FFH PORTY
18 ; 3800H-3FFFH VIDEO RAM
19 ; 4000H-42FFH 1K SYSTEMOVE RAM
20 ; 4400H-0FFFFH RAM---> SYSTEMOVE PROGRAMY
21 ; \--> UZIVATELSKE PROGRAMY
22 ;=========================================
23 0000' ASEG
24 ;
25 ; *** DEFINOVANI PAMETOVEHO PROSTORU *
26 ;
27 4000 @R@ EQU 4000H ; ZACATEK SYSTEMOVE RAM (1K)
28 00CF RSTN EQU 0CFH
29 ;
30 ;
31 4400 BASIC EQU 4400H ; START
32 4C00 TRACER EQU 4C00H ; START
33 4400 PEDIT EQU 4400H ; START
34 ;
35 ;-----------------------------------------------
36
37 0000 MONIT EQU 0 ; ROM VERZE - ZPS2
38 0C00 EP2 EQU 0C00H
39 0000 ERAM EQU 0000
40 1400 TVROM EQU 1400H
41 3800 TVBEG EQU 03800H ; TV-RAM
42
43 ;
44 ; KONSTANTY ASCII...
45 ;
46 000D CR EQU 0DH ; CARRIAGE RETURN
47 0009 HT EQU 9 ; TAB
48 0008 BACK EQU 8 ; BACK SPACE
49 0018 RIGHT EQU 18H ; FORWARDS
50 001A UP EQU 1AH ; UP
51 001B ESC EQU 1BH ; ESCAPE
52 0007 BELL EQU 7 ; BELL
53 000A LF EQU 0AH ; LINE FEED
54 0003 ETX EQU 03H ; BREAK CHAR.( CONTROL C)
55 0004 EOT EQU 4 ; END OF FILE
56 000B VT EQU 0BH
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-1
57 001A SUB@ EQU 1AH ; CTRL Z
58 0017 PRNT EQU 17H ; BREAK CTRL W
59 007F DEL EQU 7FH ; DELETE
60 001C WNDCD EQU 1CH ; ZMENA OKNA
61 0055 BEGIO EQU 55H ; POCATECNI HODNOTA PRO I/O BYTE
62 ;
63 ; T.V. PARAMETRY
64 ;
65 0028 WIDTH EQU 40
66 0018 HEIGHT EQU 24
67 0040 LINOF EQU 64 ; OFFSET
68 0018 LREST EQU LINOF - WIDTH
69 3DE7 TVEND EQU TVBEG + 5E7H
70 00A0 CURSOR EQU 0A0H
71 0067 CURCH EQU 67H
72 001F ERS EQU 1FH ; ERASE SCREEN
73 001E EOL EQU 1EH ; ERASE END OF LINE
74 0011 CTRLQ EQU 11H ; ^Q-REZERVUJ
75 0010 CTRLP EQU 10H ; ^P-LIST
76 001D HOME EQU 1DH ; HOME
77 ;
78 ;-------------------------------------------------
79 ; RIDICI I/O
80 ;
81 ;KLAVESNICE
82 2400 PORTK EQU 2400H ; 2400H-27FFH
83 ;TISKARNA
84 2B00 PORTLC EQU 2B00H ; 2800H-2BFFH
85 2C00 PORTLD EQU 2C00H ; 2C00H-2FFFH
86 ;PRERUSENI 3214
87 3000 PORTI EQU 3000H ; 3000H-33FFH
88 ;
89 ;
90 ; DESKA PARALERNICH PORTU
91 ;
92 001B CWR1 EQU 1BH ; RIDICI SLOVO 8255A/1
93 0018 PA1 EQU 18H
94 0019 PB1 EQU 19H
95 001A PC1 EQU 1AH
96 001F CWR2 EQU 1FH ; RIDICI SLOVO 8255A/2
97 001C PA2 EQU 1CH
98 001D PB2 EQU 1DH
99 001E PC2 EQU 1EH
100 ;
101 ; UART - MAGNETOFON + SERIOVY PRENOS
102 ;
103 0012 UDATA EQU 12H ; UART-DATA
104 0011 USTAT EQU 11H ; STATUS
105 0011 MMODE EQU 11H ; MODEM
106 0010 UMODE EQU 10H ; UART
107 0013 URES EQU 13H ; RESET
108 ;
109 0001 ALLINT EQU 01H ; POUZE RST0
110
111 ;===============================================
112 ; ZACATEK PROGRAMU
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-2
113 ;===============================================
114 ;
115 ORG MONIT ; ROM/RAM DEFINICE
116 0000 C3 018B JMP COLD ; INICIALIZACE SYSTEMU
117
118 ;****************************************************
119 ; POMOCNE PROGRAMY
120 ;****************************************************
121 0003 55 DB 55H
122 0004 50 DB 50H ; V 5.0
123 0005 C3 F006 JMP 0F006H
124 0008 C3 4000 JMP @R@
125 ;
126 000B 3E 2D MINUS: MVI A,'-'
127 000D C3 0568 JMP COA
128 0010 C3 4003 JMP @R@+3
129 ;
130 0013 3E 3D EQUAL: MVI A,'='
131 0015 C3 0568 JMP COA
132 0018 C3 4006 JMP @R@+6
133 ;
134 001B 3E 3F QUES: MVI A,'?'
135 001D C3 0568 JMP COA
136 0020 C3 4009 JMP @R@+9
137 ;
138 ; CTI IOBYTE <A>
139 ;
140 0023 3A 40E2 IOCHK: LDA IOBYT
141 0026 C9 RET
142 0027 50 DB 'P'
143 0028 C3 400C JMP @R@+12
144 ;
145 ; NASTAV IOBYTE <C>
146 ;
147 002B 79 IOSET: MOV A,C
148 002C 32 40E2 STA IOBYT
149 002F C9 RET
150 0030 C3 400F JMP @R@+15
151 ;
152 ; SPECIAL:<A>..ZNAK,<B>..MODE,<DE>..LOG.ADR
153 ; <HL>..FYZ.ADR
154 ;
155 0033 2A 40E8 SPCL: LHLD LINE ; LOG. ADR KORZORU
156 0036 EB XCHG
157 0037 21 DB 21H
158 0038 C3 4012 JMP @R@+18
159 003B 2A 4081 LHLD CADR ; FYZ. ADR ZNAKU
160 003E 3A 40F0 LDA KEY ; KEY ->B
161 0041 47 MOV B,A
162 0042 7E MOV A,M ; CTI ZNAK Z T.V.
163 0043 C9 RET
164
165 ; KOPIRUJ RI -> PO
166 ;
167 0044 CD 05AA COPY: CALL RI
168 0047 DA 04D4 JC CRLF
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-3
169 004A 4F MOV C,A
170 004B CD 05D3 CALL LO ; "H" VYBERE PERIF.
171 004E C3 0044 JMP COPY
172 ;
173 ; READ DALSI BYTE
174 ;
175 0051 3E 30 RBYT0: MVI A,'0'
176 0053 C5 RBYT: PUSH B
177 0054 E5 PUSH H
178 0055 CD 04E1 CALL EXPRM
179 0058 D1 POP D
180 0059 E1 POP H
181 005A 73 MOV M,E
182 005B 78 MOV A,B
183 005C FE 0D CPI CR
184 005E C1 POP B
185 005F C9 RET
186
187 ;**************************************
188 ; OBECNA CAST O.S.
189 ;**************************************
190 ;
191 ; VOLANI O.S Z MONITORU
192 ;
193 0060 0E FF KOS: MVI C,-1
194 0062 C3 40D0 JMP KOS@
195 ;
196 ;INIT O.S
197 ;
198 0065 0E 00 KOSI: MVI C,0
199 0067 C3 40D0 JMP KOS@
200 ;
201 ; SLUZBY KOMPATIBILNI Z MONITOREM V4.0
202 ;
203 006A 0E 01 FIND: MVI C,1
204 006C C3 40D0 JMP KOS@
205 006F 0E 02 OPEN: MVI C,2
206 0071 C3 40D0 JMP KOS@
207 0074 0E 04 LOADCD: MVI C,4
208 0076 C3 40D0 JMP KOS@
209 0079 0E 05 SAVECD: MVI C,5
210 007B C3 40D0 JMP KOS@
211 007E 0E 06 BINAR: MVI C,6
212 0080 C3 40D0 JMP KOS@
213
214 ;****************************************************
215 ;
216 0083 22 0D JMENO: DB '"',CR ; PRAZDNE
217 ;
218 ; INSTALUJ HANDLER PRO TISKARNU
219 ;
220 0085 CD 0500 HNDIN: CALL RADR
221 0088 87 ADD A ; *2
222 0089 FE 10 CPI HNDMX
223 008B D0 RNC ; VETSI...
224 008C 26 00 MVI H,0
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-4
225 008E 6F MOV L,A
226 008F 11 009D LXI D,TABHND
227 0092 19 DAD D ; ADR. ADRESY HNDLR
228 0093 7E MOV A,M
229 0094 32 40CE STA LO@ + 1 ; PREPIS
230 0097 23 INX H
231 0098 7E MOV A,M
232 0099 32 40CF STA LO@ + 2
233 009C C9 DUMMY: RET
234 ;------------------------
235 ; TABULKA HANDLERU
236 ;
237 009D 009C TABHND: DW DUMMY ; 0.. PRAZDNY HANDLER
238 009F 00B0 DW LO@@ ; 1.. C 211
239 00A1 00E4 DW CENTRO ; 2.. CENTRONICS
240 00A3 00C9 DW D100S ; 3.. D 100 S
241 00A5 00AD DW D180 ; 4.. D 180
242 00A7 05C1 DW PO ; 5.. PUNCH DEVICE
243 00A9 40C7 DW CO@ ; 6.. CONSOLE OUTPUT
244 00AB 05FF DW SEROUT ; 7.. SERIOVY VYSTUP
245 0010 HNDMX EQU $-TABHND
246 ;
247 ;****************************************************
248 ; LIST OUTPUT <C>... ZNAK
249 ;****************************************************
250 ;
251 00AD 79 D180: MOV A,C
252 00AE 2F CMA
253 00AF 4F MOV C,A
254
255 00B0 LO@@:
256 00B0 E5 PUSH H
257 00B1 26 2C MVI H,2CH
258 00B3 71 MOV M,C
259 00B4 7E LO@1: MOV A,M
260 00B5 E6 40 ANI 40H
261 00B7 CA 00B4 JZ LO@1
262 00BA 25 DCR H
263 00BB 36 03 MVI M,3
264 00BD 24 INR H
265 00BE 7E LO@2: MOV A,M
266 00BF E6 40 ANI 40H
267 00C1 C2 00BE JNZ LO@2
268 00C4 25 DCR H
269 00C5 36 01 MVI M,1
270 00C7 E1 POP H
271 00C8 C9 RET
272 ;
273 ; SERIOVY INTERFACE PRO :LP:
274 ;
275 00C9 3E 0E D100S: MVI A,0EH ; SERIOVE PRIPOJENI D100
276 00CB D3 11 OUT MMODE ; PREPOJ
277 00CD DB 11 D101: IN USTAT
278 00CF E6 40 ANI 40H
279 00D1 C2 00CD JNZ D101
280 00D4 79 MOV A,C
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-5
281 00D5 D3 12 OUT UDATA
282 00D7 3E 02 MVI A,2
283 00D9 D3 10 OUT UMODE
284 00DB DB 11 D102: IN USTAT
285 00DD E6 40 ANI 40H
286 00DF CA 00DB JZ D102
287 00E2 79 MOV A,C
288 00E3 C9 RET
289
290 ;
291 ; INTERFACE CENTRONICS
292 ;
293 00E4 CENTRO:
294 00E4 E5 PUSH H
295 00E5 26 2C MVI H,2CH
296 00E7 71 MOV M,C
297 00E8 7E CENTR1: MOV A,M
298 00E9 E6 60 ANI 60H
299 00EB FE 20 CPI 20H
300 00ED C2 00E8 JNZ CENTR1 ; CEKEJ NA BUSY
301 00F0 25 DCR H
302 00F1 36 00 MVI M,0
303 00F3 E3 XTHL
304 00F4 E3 XTHL
305 00F5 79 MOV A,C
306 00F6 36 02 MVI M,2
307 00F8 E1 POP H
308 00F9 C9 RET
309
310 ;****************************************************
311 ; KONTROLA KONCE KODU PRED TABULKOU
312 ;
313 00FA R100 EQU $
314 IF R100 GT 100H
315 .PRINTX 'SPATNY KONEC KODU NA 100H'
316 AAAAAAAAAA
317 ENDIF
318 ;****************************************************
319
320 ORG 100H ; TABULKA SLUZEB !!!
321 ;,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
322 ;
323 ; TABULKA "ZAKLADNICH SLUZEB SYSTEMU SAPI-1
324 ;
325 0100 C3 018B JMP COLD ; STUDENY START
326 0103 C3 0596 JMP CI ; CONZOLE INPUT <A>
327 0106 C3 05AA JMP RI ; READER INPUT <A>, CY=1 ERROR
328 0109 C3 05F4 JMP CO ; CONZOLE OUTPUT <C>
329 010C C3 05C1 JMP PO ; PUNCH OUTPUT <C>
330 010F C3 05D3 JMP LO ; LIST OUTPUT <C>
331 0112 C3 058B JMP CSTS ; CONZOLE INPUT STATUS
332 0115 C3 0023 JMP IOCHK ; I/O BYT CHEK <A>
333 0118 C3 002B JMP IOSET ; I/O BYT SET <C>
334 011B C3 051B JMP MEMCK ; MEMTOP
335 011E C3 056F JMP IODEF ; DEFINICE UZIVATELSKYCH PERIFERII
336 0121 C3 0033 JMP SPCL ; I/O CONTROL SPECIAL
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-6
337 0124 C3 04D4 JMP CRLF ; NOVY RADEK
338 0127 C3 04A8 JMP EXPR ; SKLADANI ADRES (N=POCET <C>, SP)
339 012A C3 0A3B JMP ERROR ; OSETRENI CHYBY
340 012D C3 0523 JMP ASHEX ; PREVOD ASCII -> HEX
341 0130 C3 050B JMP DADR ; ZOBRAZENI ADRESY <HL>
342 0133 C3 05E8 JMP DBYT ; ZOBRAZENI ZNAKU <A>
343 0136 C3 04F5 JMP HILO ; HL+1, SROVNANI S DE
344 0139 C3 0203 JMP NEXT ; OVLADANI MONITORU
345 013C C3 09CF JMP SPACE ; MEZERA NA CRT
346 013F C3 053A JMP CINCR ; ECHO+ANALYZA
347 0142 C3 0558 JMP TEXT ; VYPIS TEXTU <HL=ADR>,<D=DELKA>
348 0145 C3 0222 JMP XY ; "DO" PRIKAZ <A>
349 0148 C3 0513 JMP HXASC ; PREVOD HEX -> ASCII
350 014B C3 06A1 JMP EXFLG ; EXTERNI RIZENI FLAGU
351 014E C3 0270 JMP ASSIGN ; PRIRAZENI I/O PERIF.
352 ; -- ROZSIRENI SLUZEB --
353 0151 C3 0549 JMP TX ; ZOBRAZENI NASLEDUJICIHO TEXTU
354 0154 C3 0708 JMP WND@ ; NASTAVENI OKNA
355 0157 C3 40D0 JMP KOS@ ; CALL O.S. <C>-SLUZBA,<HL>-DATA
356 015A C3 0B62 JMP RNAME ; <HL>.. EXT. A VYST. ADR
357 015D C3 0348 JMP INTER ; NASTAVENI PRERUSENI + EI
358 0160 C3 08AD JMP KODWM ; <HL>.. NOVE KODY, CS
359 0163 C3 08B5 JMP KODASC ; <HL>..ZMENY KODU Z KLAVESNICE
360 0166 C3 40DC JMP GRAF ; <HL>..DATA, <D>..KOD, <E> SLUZBA
361 0169 C3 40DF JMP RESER ;
362 ;***************************************************
363 ;
364 ; TABULKY PRO INSTALACI SYSTEMOVYCH HANDLERU
365 ;
366 016C C3 0995 SYSTAB: JMP CI@@ ; VSTUP ZNAKU :CI:
367 016F C3 0617 JMP CO@@ ; VYSTUP ZNAKU :CO:
368 0172 C3 0982 JMP CSTS@@ ; STATUS :CI:
369 0175 C3 009C JMP DUMMY ; :LO:
370 0178 C3 0A3B JMP ERROR ; INIT O.S.
371 017B SMTAB: ; -- ; TABULKA PRO SM 7202
372 017B C3 098B JMP SERIN ; SERIOVY VSTUP
373 017E C3 05FF JMP SEROUT ; SERIOVY VYSTUP
374 0181 C3 097B JMP SMST ; STATUS SER. VSTUPU
375 0184 C3 009C JMP DUMMY
376 0187 C3 009C JMP DUMMY
377 018A SYSEND EQU $
378 018A 55 DB BEGIO
379
380
381 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
382 ; **** S T A R T M O N I T O R U ****
383 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
384 ;
385 018B COLD:
386 018B F3 BEG: DI ; PRIKAZ "B"
387 018C 21 406D LXI HL,MSTAK ; NASTAV STACK POINTER
388 018F F9 SPHL
389 0190 AF XRA A
390 0191 77 BEG0: MOV M,A
391 0192 2C INR L
392 0193 C2 0191 JNZ BEG0 ; NULUJ M-RAM
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-7
393 ;
394 0196 3C INR A
395 0197 D3 13 OUT URES ; RESET UART
396 0199 D3 10 OUT UMODE ; MODEM
397 019B 3C INR A
398 019C 26 28 MVI H,(HIGH PORTK)+4
399 019E 77 MOV M,A
400 019F 25 DCR H
401 01A0 77 MOV M,A
402 01A1 3E 0D MVI A,0DH ; SERIOVY PRENOS
403 01A3 D3 11 OUT USTAT ; STATUS UART
404 ;
405 01A5 21 016C LXI H,SYSTAB ; NASTAV
406 01A8 11 018A LXI D,SYSEND ; SYSTEMOVE PERIFERIE
407 01AB 01 40C4 LXI B,CI@0
408 01AE CD 0480 CALL MO1
409 ;
410 01B1 21 4000 LXI H,@R@ ; NAJDI KONEC RAM
411 01B4 36 C3 MVI M,0C3H
412 01B6 24 MEM1: INR H ; DALSI STRANKA
413 01B7 CA 01C3 JZ MEM2
414 01BA 7E MOV A,M
415 01BB 2F CMA
416 01BC 77 MOV M,A ; ZAPIS DOPLNEK
417 01BD BE CMP M ; ZAPIS O.K. ?
418 01BE 2F CMA
419 01BF 77 MOV M,A ; OBNOVA PAMETI
420 01C0 CA 01B6 JZ MEM1
421 01C3 2B MEM2: DCX H ; POSLEDNI BYTE
422 01C4 22 40BF SHLD MEMTOP ; ULOZ MEMTOP
423 ;
424 01C7 3E 67 MVI A,CURCH ; NASTAV KURZOR CS
425 01C9 32 40EF STA CUR@
426 ;
427 01CC CD 089F CALL CINIT ; KLAVESNICE
428 ;
429 01CF 21 3800 LXI H,TVBEG ; NASTAV T.V.
430 01D2 22 4081 SHLD CADR
431 01D5 3E C3 MVI A,0C3H
432 01D7 32 40C1 STA ERRSW
433 01DA 77 MOV M,A
434 01DB BE CMP M
435 01DC C4 1400 CNZ TVROM
436 01DF CD 0549 CALL TX
437 01E2 1D 9F DB HOME,ERS OR 80H
438 ;
439 01E4 3A 0C00 LDA EP2 ; JE O.S V EPROM ?
440 01E7 FE C3 CPI 0C3H
441 01E9 CC 0C03 CZ EP2+3 ; INICIALIZUJ O.S.
442 ;
443 ; ZOTAVENI PO CHYBE "INIC-6" !!
444 01EC 21 404D LXI H,MSTAK-20H
445 01EF 22 4079 SHLD SPSAV
446 ;
447 ; OHLASENI MONITORU
448 ;
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-8
449 01F2 CD 0549 INIC: CALL TX
450 01F5 0D 0A DB CR,LF
451 01F7 4D 4F 4E 49 DC 'MONITOR V5.0'
452 01FB 54 4F 52 20
453 01FF 56 35 2E B0
454 ;
455 ;------------------------------------
456 ; * VYHODNOCENI POVELU OPERATORA *
457 ;------------------------------------
458
459 0203 31 406D NEXT: LXI SP,MSTAK ; NASTAV STACK PRO MONITOR
460 0206 21 0203 LXI H,NEXT
461 0209 E5 PUSH H ; ADRESA NAVRATU
462 020A 21 0353 LXI H,RESTA
463 020D 22 4001 SHLD @R@+1
464 0210 21 01EC LXI H,INIC-6 ; ZPRACOVANI CHYBY
465 0213 22 40C2 SHLD ERRSW+1
466 0216 CD 0348 CALL INTER ; NASTAV PRERUSENI
467 0219 CD 0549 CALL TX
468 021C 0D 0A AE DB CR,LF,'.' OR 80H
469 021F CD 053A CALL CINCR ; POVEL !!!!!
470 ;
471 0222 6F XY: MOV L,A ; L-PRIKAZ
472 0223 E5 PUSH H ; SAVE
473 0224 D6 41 SUI 'A'
474 0226 FA 0203 JM NEXT ; ASCII < "A"
475 0229 21 023C LXI H,CTBL ; ZACATEK TABULKY PRIKAZU
476 022C 01 1A02 LXI B,(LCT SHL 8) OR 2
477 022F B8 INJM@: CMP B
478 0230 D2 0A3B JNC ERROR ; PRETECENI
479 0233 87 INJMP: ADD A ; 2*
480 0234 85 ADD L
481 0235 6F MOV L,A
482 0236 7E MOV A,M
483 0237 23 INX H
484 0238 66 MOV H,M
485 0239 6F MOV L,A
486 023A E3 XTHL ; NASTAV HL
487 023B C9 RET ; START
488 ;
489 ;----------------------------------
490 ; * TABULKA POVELU MONITORU *
491 ;----------------------------------
492
493 ;
494 023C 0270 CTBL: DW ASSIGN ; NASTAV I/O
495 023E 09F4 DW BCMD ; BASIC
496 0240 018B DW BEG ; CLEAR
497 0242 041F DW DISP ; ZOBRAZ PAMET
498 0244 0A5A DW EOF ; KONEC HEX
499 0246 046A DW FILL ; NAPLN PAMET
500 0248 02FA DW GOTO ; GOTO & BREAK
501 024A 0085 DW HNDIN ; INSTALUJ HANDLER
502 024C 0065 DW KOSI ; INIT O.S
503 024E 0A29 DW JUMP ; J
504 0250 0060 DW KOS ; K
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-9
505 0252 09D4 DW LOADB ; L
506 0254 0479 DW MOVE ; PRESUN PAMET
507 0256 0044 DW COPY ; N
508 0258 09AE DW CHMODE ; ZMENA MODE
509 025A 0A1E DW PCMD ; PEDIT
510 025C 02C6 DW QUERY ; NASTAVENI I/O
511 025E 0A6E DW READ@ ; R
512 0260 048A DW SUBS ; ZMENA OBSAHU
513 0262 0A16 DW TCMD ; TOOL
514 0264 0A4D DW UKAZ ; U ADR
515 0266 09C3 DW VERIFY ; V
516 0268 0AD2 DW WRITE ; W
517 026A 039B DW X ; OBSAHY REGISTRU
518 026C 09B5 DW Y ; NASTAV PRERUSENI
519 026E 09BC DW Z ; CASOVANI MGF
520 001A LCT EQU ($-CTBL)/2
521 IF HIGH ($-CTBL)
522 .PRINTX "CHYBA VE STRANCE S POVELY"
523 CHY EQU $
524 ENDIF
525 ;
526 ;
527 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
528 ; REALIZACE POVELU MONITORU
529 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
530 ;
531 ; NASTAV I/O MODUL
532 ;
533 0270 CD 0537 ASSIGN: CALL CIMIN ; JMENO
534 ; <A>..NAME (EXTERN CALLS)
535 0273 21 02AE LXI H,IOTAB ; TABULKA
536 0276 0E 04 MVI C,4 ; POCITADLO
537 0278 11 0006 LXI D,6 ; OFFSET
538 027B BE ASS0: CMP M
539 027C CA 0287 JZ ASS1 ; +
540 027F 19 DAD D ; ADRESA
541 0280 0D DCR C ; VSE?
542 0281 C2 027B JNZ ASS0 ; -
543 0284 C3 0A3B JMP ERROR
544 0287 CD 0013 ASS1: CALL EQUAL
545 028A CD 0562 CALL ECHO
546 028D 23 INX H
547 028E 46 MOV B,M
548 028F 0E 00 MVI C,0 ;IOBYT
549 0291 23 ASS2: INX H
550 0292 BE CMP M
551 0293 CA 02A2 JZ ASS3 ; +
552 0296 F5 PUSH PSW
553 0297 3E 55 MVI A,55H ; OFFSET
554 0299 81 ADD C
555 029A 4F MOV C,A
556 029B DA 0A3B JC ERROR ; NE #
557 029E F1 POP PSW
558 029F C3 0291 JMP ASS2 ; DALSI
559 02A2 79 ASS3: MOV A,C
560 02A3 A0 ANA B
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-10
561 02A4 4F MOV C,A ; ULOZ
562 02A5 78 MOV A,B
563 02A6 2F CMA ; NEGUJ
564 02A7 21 40E2 IONEW: LXI H,IOBYT
565 02AA A6 ANA M
566 02AB B1 ORA C
567 02AC 77 MOV M,A
568 02AD C9 RET
569 ;
570 ; I/O TABULKA
571 ;
572 02AE 43 03 IOTAB: DB 'C',03H ; CONSOLE
573 02B0 54 43 42 31 DB 'TCB1'
574 02B4 52 0C DB 'R',0CH ; READER
575 02B6 54 50 31 32 DB 'TP12'
576 02BA 50 30 DB 'P',30H ; PUNCHER
577 02BC 54 50 31 32 DB 'TP12'
578 02C0 4C C0 DB 'L',0C0H ; LIST
579 02C2 54 43 4C 31 DB 'TCL1'
580 ;
581 ; VYPIS NASTAVENI I/O
582 ;
583 02C6 2A 40BF QUERY: LHLD MEMTOP
584 02C9 CD 0508 CALL DNADR
585 02CC 21 02AE LXI H,IOTAB ; TABULKA
586 02CF 3A 40E2 LDA IOBYT ; CTI
587 02D2 47 MOV B,A ; ULOZ
588 02D3 CD 02D6 CALL $+3
589 02D6 CD 02D9 CALL $+3
590 ; ZOBRAZ NASTAVENI I/O
591 02D9 CD 09CF CALL SPACE
592 02DC 7E MOV A,M ; CTI LOGICKE JMENO
593 02DD CD 0568 CALL COA
594 02E0 CD 0013 CALL EQUAL
595 02E3 E5 PUSH H ; ULOZ ADR.
596 02E4 23 INX H
597 02E5 23 INX H ; ADR.
598 02E6 78 MOV A,B
599 02E7 E6 03 ANI 3
600 02E9 5F MOV E,A
601 02EA 16 00 MVI D,0
602 02EC 19 DAD D ; FYZICKA ADR.
603 02ED 7E MOV A,M
604 02EE CD 0568 CALL COA
605 02F1 78 MOV A,B
606 02F2 0F RRC
607 02F3 0F RRC ; ROTUJ IOBYT
608 02F4 47 MOV B,A
609 02F5 E1 POP H
610 02F6 1E 06 MVI E,6 ; OFFSET
611 02F8 19 DAD D
612 02F9 C9 RET ; HL=DALSI ADR.
613 ;
614 ; GOTO + VYHODNOCENI PRERUSENI + PROHLIZENI REG.
615 ;***********************************************
616 ;
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-11
617 ;
618 ; "GO TO" PRIKAZ
619 ;
620 02FA CD 0013 GOTO: CALL EQUAL
621 02FD CD 053A CALL CINCR ; PRIKAZ
622 0300 DA 0331 JC GO@ ; IF CR THEN GOTO
623 0303 CA 0313 JZ GO@BR
624 0306 CD 04E1 CALL EXPRM ; START ADR
625 0309 E1 POP H
626 030A 22 4077 SHLD PCSAV
627 030D 78 MOV A,B ; JEN START ADR ?
628 030E FE 0D CPI CR
629 0310 CA 0331 JZ GO@
630 0313 CD 0500 GO@BR: CALL RADR ; CTI BREAK ADR
631 0316 22 407B SHLD BRAD
632 0319 7E MOV A,M ; ULOZ INSTR. KOD
633 031A 32 407D STA INSTR
634 031D 36 CF MVI M,RSTN
635 031F 3E 0D MVI A,CR
636 0321 B8 CMP B ; JEN 1-BREAK ?
637 0322 CA 0331 JZ GO@
638 ; O.S. BREAK
639 0325 CD 0500 CALL RADR
640 0328 22 407E SHLD BRAD2
641 032B 7E MOV A,M
642 032C 32 4080 STA INST2
643 032F 36 CF MVI M,RSTN
644 ; START
645 0331 CD 04D4 GO@: CALL CRLF
646 0334 F3 DI
647 0335 31 406F LXI SP,ACSAV
648 0338 F1 POP PSW
649 0339 C1 POP B
650 033A D1 POP D
651 033B 2A 4079 LHLD SPSAV ; ZASOBNIK
652 033E 2B DCX H
653 033F 2B DCX H
654 0340 F9 SPHL
655 0341 2A 4077 LHLD PCSAV ; PC
656 0344 E3 XTHL
657 0345 2A 4075 LHLD HLSAV
658 ;
659 ; POVOLENI A NASTAVENI PRERUSENI
660 ;
661 0348 F5 INTER: PUSH PSW
662 0349 F3 DI ; ZAKAZ PRI MODIFIKACI
663 034A 3A 40EE LDA PRER ; RIDICI SLOVO
664 034D 32 3000 STA 3000H ; NASTAV
665 0350 F1 POP PSW
666 0351 FB EI ; A TAKY POVOL
667 0352 C9 RET ; POKRACUJ
668 ;
669 ;*********************************************;
670 ; RUN & BREAK MODUL:
671 ;
672 0353 F3 RESTA: DI
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-12
673 0354 22 4075 SHLD HLSAV
674 0357 F5 PUSH PSW
675 0358 21 0004 LXI H,4 ; OFFSET
676 035B 39 DAD SP
677 035C 22 4079 SHLD SPSAV
678 035F F1 POP PSW
679 0360 E1 POP H ; PC
680 0361 31 4075 LXI SP,HLSAV
681 0364 D5 PUSH D
682 0365 C5 PUSH B
683 0366 F5 PUSH PSW ; BYL BREAK ?
684 0367 EB XCHG
685 0368 1B DCX D ; PC-1
686 0369 21 407B LXI H,BRAD ; BREAK ?
687 036C 0E 02 MVI C,2 ; DVA BREAKY
688 036E C5 RST10: PUSH B
689 036F 4E MOV C,M
690 0370 36 00 MVI M,0
691 0372 23 INX H
692 0373 46 MOV B,M
693 0374 36 00 MVI M,0
694 0376 23 INX H
695 0377 79 MOV A,C
696 0378 B0 ORA B ; 0 ?
697 0379 CA 038A JZ RST20 ; NEBYL BREAK
698 037C 7E MOV A,M ; OBNOV INSTR.
699 037D 02 STAX B
700 037E 23 INX H
701 037F E5 PUSH H
702 0380 60 MOV H,B
703 0381 69 MOV L,C ; BYL BREAK ?
704 0382 CD 04FA CALL COMPR
705 0385 E1 POP H
706 0386 C2 038A JNZ RST20
707 0389 1B DCX D ; PC-1
708 038A C1 RST20: POP B
709 038B 0D DCR C
710 038C C2 036E JNZ RST10
711 038F EB XCHG
712 0390 23 INX H ; OBNOV PC
713 0391 22 4077 SHLD PCSAV
714 0394 37 STC
715 0395 CD 039E CALL X+3 ; ZOBRAZ VSECHNY REG.
716 0398 C3 0203 JMP NEXT
717 ;
718 ;*************************************
719 ;
720 ; ZOBRAZ & ZMEN OBSAHY REGISTRU
721 ;
722 039B CD 053A X: CALL CINCR ; PRIKAZ
723 039E 21 040A LXI H,RGNAM ; TABULKA JMEN
724 03A1 16 40 MVI D,HIGH ACSAV ;DATA
725 03A3 D2 03B1 JNC X1 ; ZMENA
726 03A6 CD 04D4 CALL CRLF
727 03A9 CD 03E7 X0: CALL XDISP
728 03AC C8 RZ ;END
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-13
729 03AD 23 INX H
730 03AE C3 03A9 JMP X0
731 03B1 CA 03C6 X1: JZ X2 ; ZADNA ZMENA
732 03B4 5F MOV E,A ; ULOZ JMENO
733 03B5 01 DB 1 ; LXI B,##
734 03B6 23 X10: INX H
735 03B7 23 INX H
736 03B8 7E MOV A,M ; CTI JMENO REG.
737 03B9 CA 0A3B JZ ERROR
738 03BC BB CMP E
739 03BD C2 03B6 JNZ X10 ; DALSI
740 03C0 CD 03F1 CALL XDIS1
741 03C3 C3 03C9 JMP X2+3
742 ;
743 03C6 CD 03EA X2: CALL XDISP+3
744 03C9 C8 RZ
745 03CA CD 0537 CALL CIMIN ; - PRIKAZ
746 03CD D8 RC ; CR - END
747 03CE 5E MOV E,M ; DOLNI ADR.
748 03CF 23 INX H
749 03D0 CA 03C6 JZ X2
750 03D3 EB XCHG
751 03D4 D5 PUSH D
752 03D5 CD 0053 CALL RBYT ; CTI NOVY BYTE A ZMEN
753 03D8 05 DCR B
754 03D9 CA 03DF JZ $+6
755 03DC 72 MOV M,D ; DOLNI BYTE
756
757 03DD 2B DCX H
758 03DE 73 MOV M,E
759 03DF D1 POP D
760 03E0 EB XCHG
761 03E1 FE 0D CPI CR ; POSLEDNI?
762 03E3 C8 RZ ; +
763 03E4 C3 03C6 JMP X2 ; DALSI
764 ;
765 03E7 CD 09CF XDISP: CALL SPACE
766 03EA 7E MOV A,M
767 03EB E6 7F ANI 7FH
768 03ED C8 RZ
769 03EE CD 0568 CALL COA
770 03F1 CD 0013 XDIS1: CALL EQUAL ; JMENO=
771 03F4 7E MOV A,M
772 03F5 07 RLC
773 03F6 3E 01 MVI A,1
774 03F8 CE 00 ACI 0 ; SPOCTI DELKU
775 03FA 47 MOV B,A ; ULOZ
776 03FB 23 INX H
777 03FC 5E MOV E,M ; SPODNI ADR.
778 03FD 1A LDAX D ; HORNI BYTE
779 03FE CD 05E8 CALL DBYT
780 0401 78 MOV A,B
781 0402 3D DCR A
782 0403 1B DCX D
783 0404 1A LDAX D ; CTI DRUHY BYTE
784 0405 C4 05E8 CNZ DBYT ; PRO 2.BYTE REG. ZOBRAZ
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-14
785 0408 B3 ORA E
786 0409 C9 RET
787 ;
788 ; X: TABULKA PRIKAZU
789 040A 41 70 RGNAM: DB 'A',LOW ACSAV+1
790 040C 46 6F DB 'F',LOW ACSAV
791 040E 42 72 DB 'B',LOW BCSAV+1
792 0410 43 71 DB 'C',LOW BCSAV
793 0412 44 74 DB 'D',LOW DESAV+1
794 0414 45 73 DB 'E',LOW DESAV
795 0416 48 76 DB 'H',LOW HLSAV+1
796 0418 4C 75 DB 'L',LOW HLSAV
797 041A D0 78 DB 'P' OR 80H,LOW PCSAV+1
798 041C D3 7A DB 'S' OR 80H,LOW SPSAV+1
799 041E 00 DB 0
800 ;
801 ; PRACE S PAMETI: PROHLIZENI, PLNENI, PRESUV A ZAMENA
802 ;****************************************************
803 ;
804 ; ZOBRAZENI OBSAHU PAMETI
805 ;
806 041F CD 04A8 DISP: CALL EXPR ; OD - DO
807 0422 D1 POP D
808 0423 E1 POP H
809 0424 E5 DI0: PUSH H ; PRVNI ADR.
810 0425 CD 0508 CALL DNADR ; NOVA ADR.
811 0428 7E DI1: MOV A,M
812 0429 CD 09CC CALL DBYTE
813 042C CD 04F5 CALL HILO
814 042F DA 0438 JC DIA ; ZOBRAZ ASCII
815 0432 7D MOV A,L
816 0433 E6 07 ANI 7
817 0435 C2 0428 JNZ DI1 ; DALSI BYTE
818 0438 E1 DIA: POP H
819 0439 CD 09CF CALL SPACE
820 043C 7E DI2: MOV A,M
821 043D CD 0894 CALL BIG
822 0440 FE 20 CPI ' '
823 0442 DA 044A JC DI4
824 0445 FE 7B CPI 7BH
825 0447 DA 044C JC DI5
826 044A 3E 2E DI4: MVI A,'.'
827 044C CD 0568 DI5: CALL COA
828 044F CD 04F5 CALL HILO
829 0452 D8 RC
830 0453 7D MOV A,L
831 0454 E6 07 ANI 7
832 0456 C2 043C JNZ DI2 ; DALSI ASCII
833 0459 CD 058B CALL CSTS
834 045C CA 0424 JZ DI0 ; DALSI RADEK
835 045F CD 0537 CALL CIMIN ; ' '..PRERUSENI
836 0462 D8 RC ; CR
837 0463 CD 053A DI3: CALL CINCR
838 0466 D8 RC ; CR
839 0467 C3 0424 JMP DI0
840 ;*************************************
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-15
841 ;
842 ; NAPLNENI PAMETI KONSTANTOU
843 ;
844 046A 0C FILL: INR C
845 046B CD 04A8 CALL EXPR ; OD-DO-CIM
846 046E C1 POP B
847 046F D1 POP D
848 0470 E1 POP H
849 0471 71 FI1: MOV M,C
850 0472 CD 04F5 CALL HILO
851 0475 D2 0471 JNC FI1
852 0478 C9 RET
853 ;*************************************
854 ;
855 ; PRESUN BLOKU PAMETI
856 ;
857 0479 0C MOVE: INR C
858 047A CD 04A8 CALL EXPR
859 047D C1 POP B
860 047E D1 POP D
861 047F E1 POP H
862 0480 7E MO1: MOV A,M
863 0481 02 STAX B
864 0482 03 INX B
865 0483 CD 04F5 CALL HILO
866 0486 D2 0480 JNC MO1
867 0489 C9 RET
868 ;*************************************
869 ;
870 ; ZMENA OBSAHU PAMETI
871 ;
872 048A CD 0500 SUBS: CALL RADR ; ADR.
873 048D 7E SU1: MOV A,M
874 048E CD 05E8 CALL DBYT
875 0491 CD 0537 CALL CIMIN
876 0494 D8 RC ; CR
877 0495 CA 049C JZ SU2
878 0498 CD 0053 CALL RBYT ; ZMENA
879 049B C8 RZ ; KONEC
880 049C 23 SU2: INX H ; DALSI BYTE
881 049D FE 2C CPI ',' ; PRO "," ZOBRAZ ADR.
882 049F CC 0508 CZ DNADR
883 04A2 C3 048D JMP SU1
884 ;
885 ;********************************************
886 ; PODPROGRAMY MONITORU A SLUZBY
887 ;********************************************
888 ;
889 ; SKLADANI ADRES (VSTUP PARAMETRU) DO ZASOBNIKU,
890 ; POCET V C-REG.
891 ;
892 04A5 DA 0A3B EXPR0: JC ERROR
893 04A8 CD 0013 EXPR: CALL EQUAL ; TISK =
894 04AB 21 0000 LXI H,0
895 04AE CD 0562 EX0: CALL ECHO
896 04B1 47 EX1: MOV B,A
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-16
897 04B2 FE 27 CPI 27H ; "'"
898 04B4 CA 04E9 JZ EX4
899 04B7 CD 0523 CALL ASHEX
900 04BA DA 04C6 EX2: JC EX3 ; HEX CIFRA ?
901 04BD 29 DAD H ; POSUV "HL" O 4 BITY VLEVO
902 04BE 29 DAD H
903 04BF 29 DAD H
904 04C0 29 DAD H
905 04C1 B5 ORA L
906 04C2 6F MOV L,A
907 04C3 C3 04AE JMP EX0 ; DALSI ZNAK
908
909 04C6 78 EX3: MOV A,B
910 04C7 CD 053D CALL ANAL
911 04CA C2 04DA JNZ EX5 ; NENI HEX CIFRA
912 04CD E3 XTHL
913 04CE E5 PUSH H
914 04CF 0D DCR C ; CARKA, MEZERA
915 04D0 C2 04A5 JNZ EXPR0 ; DALSI ADRESY
916 04D3 D0 RNC
917 ;
918 04D4 CD 0549 CRLF: CALL TX
919 04D7 0D 8A DB CR,LF OR 80H
920 04D9 C9 RET
921 ;
922 04DA CD 0549 EX5: CALL TX
923 04DD 88 DB 88H ; BACK SPACE
924 04DE C3 04AE JMP EX0 ; ZRUS CHYBU
925 ;
926 04E1 0E 01 EXPRM: MVI C,1
927 04E3 21 0000 LXI H,0
928 04E6 C3 04B1 JMP EX1
929 ;
930 04E9 CD 053A EX4: CALL CINCR ; PRIKAZ
931 04EC 47 MOV B,A ; ULOZ
932 04ED CA 04C6 JZ EX3
933 04F0 65 MOV H,L
934 04F1 6F MOV L,A
935 04F2 C3 04E9 JMP EX4
936 ;**************************************
937
938
939 ; INKREMENTUJE "HL" ,KONTROLUJE "HL"=0 NEBO
940 ; "HL">"DE"...CARRY=1
941
942 04F5 23 HILO: INX H
943 04F6 7C MOV A,H
944 04F7 B5 ORA L
945 04F8 37 STC
946 04F9 C8 RZ ; NAVRAT PO "HL"=0000
947 04FA 7A COMPR: MOV A,D
948 04FB BC CMP H
949 04FC C0 RNZ
950 04FD 7B MOV A,E
951 04FE BD CMP L
952 04FF C9 RET
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-17
953
954 ; CTI ADRESU
955
956 0500 0E 01 RADR: MVI C,1
957 0502 CD 04A8 CALL EXPR
958 0505 E1 POP H
959 0506 7D MOV A,L
960 0507 C9 RET
961
962 ; ZOBRAZ NOVOU ADRESU
963
964 0508 CD 04D4 DNADR: CALL CRLF
965 050B CD 05E3 DADR: CALL DADR0
966 050E C3 09CF JMP SPACE
967 ;
968 ; PREVOD HEXADECIMALNI CIFRY NA ASCII V "C" REG
969
970 0511 E6 0F HXANIB: ANI 0FH
971 ;
972 0513 C6 90 HXASC: ADI 90H
973 0515 27 DAA
974 0516 CE 40 ACI 40H
975 0518 27 DAA
976 0519 4F MOV C,A
977 051A C9 RET
978
979 ; ZJISTI KONEC RAM <A>,<B>..HIGH
980
981 051B E5 MEMCK: PUSH H
982 051C 2A 40BF LHLD MEMTOP
983 051F 7D MOV A,L
984 0520 44 MOV B,H
985 0521 E1 POP H
986 0522 C9 RET
987
988
989 ; PREVOD ZNAKU ASCII NA HEXADEC.
990
991 0523 CD 0894 ASHEX: CALL BIG ; VELKA PISMENA
992 0526 D6 30 SUI '0'
993 0528 D8 RC ; FILTR < (00-2F)
994 0529 FE 17 CPI 17H ; '0'..'F'..HEX
995 052B 3F CMC
996 052C D8 RC ; CY=1..CHYBA
997 052D FE 0A CPI 10
998 052F 3F CMC
999 0530 D0 RNC ; 0-9 .. KOD
1000 0531 FE 11 CPI 11H
1001 0533 D8 RC ; CHYBA
1002 0534 D6 07 SUI 7
1003 0536 C9 RET ; A-F .. KOD
1004
1005 0537 CD 000B CIMIN: CALL MINUS ; -
1006 ;
1007 053A CD 0562 CINCR: CALL ECHO
1008 053D FE 2C ANAL: CPI ','
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-18
1009 053F C8 ANAL0: RZ
1010 0540 FE 20 CPI ' '
1011 0542 C8 ANAL2: RZ
1012 0543 FE 0D CPI CR
1013 0545 37 STC
1014 0546 C8 RZ
1015 0547 B7 ORA A
1016 0548 C9 RET ; PO CR CARRY=1
1017 ;
1018 ; TEXT PRIMO ZA VOLANIM
1019 ;
1020 0549 E3 TX: XTHL
1021 054A 7E MOV A,M
1022 054B E6 7F ANI 7FH
1023 054D CD 0568 CALL COA
1024 0550 7E MOV A,M
1025 0551 07 RLC
1026 0552 23 INX H
1027 0553 D2 054A JNC TX+1
1028 0556 E3 XTHL
1029 0557 C9 RET
1030
1031 ; VYPIS TEXTU - HL ADRESA, D DELKA
1032
1033 0558 7E TEXT: MOV A,M
1034 0559 23 INX H
1035 055A CD 0568 CALL COA
1036 055D 15 DCR D
1037 055E C2 0558 JNZ TEXT
1038 0561 C9 RET
1039 ;
1040 ; ECHO
1041 ;
1042 0562 CD 0596 ECHO: CALL CI
1043 0565 CD 0894 CALL BIG
1044 0568 C5 COA: PUSH B
1045 0569 4F MOV C,A
1046 056A CD 05F4 CALL CO
1047 056D C1 POP B
1048 056E C9 RET
1049
1050 ; IODEF:... DEFINICE UZIVATELSKYCH I/0 RUTIN
1051
1052 056F 79 IODEF: MOV A,C ; CISLO
1053 0570 FE 15 CPI IONUM
1054 0572 F0 RP
1055 0573 C5 PUSH B
1056 0574 E5 PUSH H
1057 0575 81 ADD C
1058 0576 81 ADD C
1059 0577 4F MOV C,A
1060 0578 06 00 MVI B,0 ; OFFSET
1061 057A 21 40A6 LXI H,CILOC ; SPOCTI ADR.
1062 057D 09 DAD B
1063 057E 36 C3 MVI M,0C3H
1064 0580 23 INX H
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-19
1065 0581 4E MOV C,M
1066 0582 73 MOV M,E
1067 0583 23 INX H
1068 0584 46 MOV B,M
1069 0585 72 MOV M,D ; ADR.
1070 0586 50 MOV D,B ; DE..PUVODNI OBSAH
1071 0587 59 MOV E,C
1072 0588 E1 POP H
1073 0589 C1 POP B
1074 058A C9 RET
1075 ;
1076 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1077 ; I/O PERIFERIE
1078 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1079 ;
1080 ; VOLBA PERIFERII PODLE IOBYTE
1081 ;
1082 058B 3A 40E2 CSTS: LDA IOBYT ; USER1, USER2
1083 058E 1F RAR
1084 058F 1F RAR
1085 0590 DA 40BB JC CSLOC ; USER CSTS
1086 0593 C3 40CA JMP CSTS@ ; SYSTEM.CSTS
1087 ;
1088 0596 CD 05A1 CI: CALL DEV
1089 0599 0841 0841 CITB: DW CI@,CI@,RI,CILOC
1090 059D 05AA 40A6
1091
1092 IF HIGH ($-CITB)
1093 .PRINTX "CHYBA V DEFINICI I/O TABULKY"
1094 ERRIO EQU $
1095 ENDIF
1096 ;
1097 05A1 3A 40E2 DEV: LDA IOBYT
1098 05A4 E6 03 DEV0: ANI 3
1099 05A6 E3 XTHL
1100 05A7 C3 0233 JMP INJMP
1101 ;
1102 05AA 3A 40E2 RI: LDA IOBYT
1103 05AD 0F RRC
1104 05AE 0F RRC
1105 05AF CD 05A4 CALL DEV0
1106 ;
1107 05B2 0841 40D3 RITB: DW CI@,RI@,R1LOC,R2LOC
1108 05B6 40AC 40AF
1109 ;
1110 IF HIGH ($-RITB)
1111 .PRINTX "CHYBA V DEFINICI I/O TABULKY"
1112 ERRIO EQU $
1113 ENDIF
1114 ;
1115 05BA 0F HBT: RRC
1116 05BB 0F RRC
1117 05BC 0F RRC
1118 05BD 0F RRC
1119 05BE CD 0511 LBT: CALL HXANIB
1120 ;
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-20
1121 05C1 3A 40E2 PO: LDA IOBYT
1122 05C4 0F RRC
1123 05C5 0F RRC
1124 05C6 0F RRC
1125 05C7 0F RRC
1126 05C8 CD 05A4 CALL DEV0
1127 ;
1128 05CB 05F4 40D6 POTB: DW CO,PO@,P1LOC,P2LOC
1129 05CF 40B2 40B5
1130 ;
1131 IF HIGH ($-POTB)
1132 .PRINTX "CHYBA V DEFINICI I/O TABULKY"
1133 ERRIO EQU $
1134 ENDIF
1135 ;
1136 05D3 3A 40E2 LO: LDA IOBYT
1137 05D6 07 RLC
1138 05D7 07 RLC
1139 05D8 CD 05A4 CALL DEV0
1140 ;
1141 05DB 060A 05F4 LOTB: DW COLO,CO,LO@,LILOC
1142 05DF 40CD 40B8
1143
1144 IF HIGH ($-LOTB)
1145 .PRINTX "CHYBA V DEFINICI I/O TABULKY"
1146 ERRIO EQU $
1147 ENDIF
1148 ;
1149 ; ZOBRAZ ADRESU Z "HL"
1150
1151 05E3 7C DADR0: MOV A,H
1152 05E4 CD 05E8 CALL DBYT
1153 05E7 7D MOV A,L
1154
1155 ; ZOBRAZ BYTE <A>
1156
1157 05E8 F5 DBYT: PUSH PSW
1158 05E9 0F RRC
1159 05EA 0F RRC
1160 05EB 0F RRC
1161 05EC 0F RRC
1162 05ED CD 05F1 CALL LBYTE
1163 05F0 F1 POP PSW
1164 05F1 DNIBL:
1165 05F1 CD 0511 LBYTE: CALL HXANIB
1166 ;
1167 05F4 CD 05A1 CO: CALL DEV
1168 ;
1169 05F7 060A 060D COTB: DW COLO,COOUT,LO,COLOC
1170 05FB 05D3 40A9
1171 ;
1172 IF HIGH ($-COTB)
1173 .PRINTX "CHYBA V DEFINICI I/O TABULKY"
1174 ERRIO EQU $
1175 ENDIF
1176 ;****************************************************
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-21
1177 ; OBSLUHA T.V. A NEBO TERMINALU
1178 ;****************************************************
1179 ;
1180 ; CONSOLE OUTPUT
1181 ; <C>...ZAPISE NA OBRAZOVKU
1182 ;
1183 ; SM 7202 .. SERIOVY VYSTUP
1184 ;
1185 05FF DB 11 SEROUT: IN USTAT
1186 0601 E6 40 ANI 40H
1187 0603 CA 05FF JZ SEROUT
1188 0606 79 MOV A,C
1189 0607 D3 12 OUT UDATA
1190 0609 C9 RET
1191 ;
1192 ; ZOBRAZ A TISKNI
1193 ;
1194 060A CD 05D3 COLO: CALL LO
1195 ;
1196 ;********************************************
1197 ; OBSLUHA T.V. A SIMULACE DISPLEJE <C>..ZNAK
1198 ;********************************************
1199 ;
1200 060D 3A 40E3 COOUT: LDA MODE
1201 0610 0F RRC
1202 0611 DC 40CD CC LO@ ; TISK
1203 0614 C3 40C7 JMP CO@ ; TERMINAL
1204 ;
1205 ;--------------------------------
1206 ;
1207 0617 79 CO@@: MOV A,C
1208 0618 FE 7F CPI 7FH ; DEL
1209 061A C8 RZ
1210 061B FE 09 CPI HT
1211 061D CA 082F JZ TAB@
1212 0620 D5 PUSH D
1213 0621 E5 PUSH H
1214 0622 C5 PUSH B
1215 0623 2A 4081 LHLD CADR ; VYMAZ KURSOR
1216 0626 FE 20 CPI ' ' ; PRO ' '...'Z' PIS
1217 0628 DA 065A JC CONTROL ; RIZENI T.V.
1218 ;
1219 ; ZAPIS ZNAKU DO VIDEO RAM
1220 ;
1221 062B 3A 40F9 CO@WR: LDA XFLG ; ADRESACE KURSORU?
1222 062E B7 ORA A
1223 062F C2 06E1 JNZ ADRCUR ; +
1224 0632 79 MOV A,C ; VYTVOR KOD PRO AND-1
1225 0633 CD 0894 CALL BIG
1226 0636 E6 3F ANI 3FH
1227 0638 77 MOV M,A ; ZAPIS ZNAK !
1228 0639 3A 40E3 LDA MODE
1229 063C E6 C0 ANI 0C0H
1230 063E C4 071B CNZ ATTR
1231 ;
1232 0641 CD 0723 COEXAT: CALL CONXT ; VYPOCTI DALSI ADRESU
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-22
1233 ; ZAPIS NOVY KURZOR
1234 0644 C1 COEXX: POP B
1235 0645 7E COEX0: MOV A,M
1236 0646 32 40F8 STA CHAR
1237 0649 22 4081 SHLD CADR
1238 064C 3A 40E3 LDA MODE ; KURSOR (Y/N)
1239 064F E6 20 ANI 20H
1240 0651 C2 0656 JNZ COEX1
1241 0654 36 A0 MVI M,CURSOR
1242 0656 E1 COEX1: POP H
1243 0657 D1 POP D
1244 0658 79 MOV A,C
1245 0659 C9 RET ; KONEC CONSOLE OUTPUT
1246
1247 ;***********************************************
1248 ;
1249 ; ZPRACOVANI RIDICICH ZNAKU ( SIMULACE SM7202 )
1250 ;
1251 065A CONTROL:
1252 065A 21 069B LXI H,COEX ; ADRESA NAVRATU
1253 065D E5 PUSH H ; OBNOVENI ZNAKU MISTO
1254 065E CD 06C5 CALL OBNOV ; KURZORU
1255 0661 79 MOV A,C
1256 0662 FE 0D CPI CR
1257 0664 CA 07BF JZ CR@
1258 0667 FE 0A CPI LF
1259 0669 CA 0733 JZ LF@
1260 066C FE 1E CPI EOL
1261 066E CA 0796 JZ EOL@
1262 0671 FE 08 CPI BACK
1263 0673 CA 07A6 JZ BACK@
1264 0676 FE 18 CPI RIGHT
1265 0678 CA 0723 JZ CONXT
1266 067B FE 1D CPI HOME
1267 067D CA 07B9 JZ HOME@
1268 0680 FE 1F CPI ERS
1269 0682 CA 0761 JZ ERS@
1270 0685 FE 1A CPI UP
1271 0687 CA 07C6 JZ UP@
1272 068A FE 0B CPI VT
1273 068C CA 0785 JZ VT@
1274 068F FE 1C CPI WNDCD
1275 0691 CA 0705 JZ WNDCH
1276 0694 FE 1B CPI ESC
1277 0696 C0 RNZ
1278 0697 32 40F9 ESC@: STA XFLG
1279 069A C9 RET
1280 ;
1281 ; VYPOCTI NOVOU POZICI
1282 ;
1283 069B CD 06CC COEX: CALL COADR
1284 069E C3 0644 JMP COEXX ; ZAPIS KURZOR
1285 ;
1286 ;-------------------------------------------------
1287 ; PODPROGRAMY
1288 ;--------------------------------------------------
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-23
1289 ;
1290 ; NASTAV MODE A I/O FLAGY
1291 ;
1292 06A1 47 EXFLG: MOV B,A
1293 06A2 0C INR C ; SPEC. FUNKCE
1294 06A3 CA 007E JZ BINAR
1295 06A6 0D DCR C
1296 06A7 79 MOV A,C
1297 06A8 FE 15 CPI EXSER ; PRETECENI?
1298 06AA 78 MOV A,B
1299 06AB D0 RNC
1300 06AC E5 PUSH H ; <A> .. PRIKAZ
1301 ; <C> .. 0-N SLUZBA
1302 06AD 06 00 MVI B,0 ; 0-MODE, 1-@IF1..4-@OF2
1303 06AF 21 40E3 LXI H,MODE ; C=O
1304 06B2 09 DAD B
1305 06B3 46 MOV B,M ; <B>..PUVODNI NASTAVENI
1306 06B4 77 MOV M,A
1307 06B5 E1 POP H
1308 06B6 79 MOV A,C
1309 06B7 FE 05 CPI 5
1310 06B9 D8 RC ; C=5,6 .. OBNOV KORZOR
1311 06BA FE 07 CPI 7
1312 06BC D0 RNC
1313 06BD D5 EXFLG1: PUSH D
1314 06BE E5 PUSH H
1315 06BF CD 06C5 CALL OBNOV
1316 06C2 C3 0645 JMP COEX0 ; OBNOV KURZOR
1317 ;
1318 ; OBNOVA KURSORU
1319 ;
1320 06C5 2A 4081 OBNOV: LHLD CADR
1321 06C8 3A 40F8 LDA CHAR
1322 06CB 77 MOV M,A
1323 ;
1324 ; VYPOCTI NOVOU ADRESU
1325 ;
1326 06CC 2A 40E8 COADR: LHLD LINE ; SPOCTI ADR.<HL>
1327 06CF E5 PUSH H
1328 06D0 26 00 MVI H,0
1329 06D2 29 DAD H
1330 06D3 29 DAD H
1331 06D4 29 DAD H
1332 06D5 29 DAD H
1333 06D6 29 DAD H
1334 06D7 29 DAD H ; 64*
1335 06D8 11 3800 LXI D,TVBEG ; TV-RAM
1336 06DB 19 DAD D ; ZACATEK RADKU
1337 06DC D1 POP D
1338 06DD 7D MOV A,L ; D-SLOUPEC
1339 06DE B2 ORA D ; E-RADEK
1340 06DF 6F MOV L,A ; HL...ADR
1341 06E0 C9 RET
1342 ;
1343 ; ADRESACE KURZORU: ESC, Y, X
1344 ;
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-24
1345 06E1 3D ADRCUR: DCR A
1346 06E2 79 MOV A,C ; ZNAK
1347 06E3 CA 06F3 JZ ADRCX ; "X"
1348 06E6 D6 20 SUI ' ' ; "Y"
1349 06E8 FE 18 CPI HEIGHT
1350 06EA D0 RNC
1351 06EB 32 40E8 STA LINE
1352 06EE 3E 01 MVI A,1
1353 06F0 C3 06FC JMP ESC@0
1354 06F3 D6 20 ADRCX: SUI ' '
1355 06F5 FE 28 CPI WIDTH
1356 06F7 D0 RNC
1357 06F8 32 40E9 STA COLUM
1358 06FB AF XRA A ; ZRUS PRIZNAK
1359 06FC 32 40F9 ESC@0: STA XFLG
1360 06FF CD 06C5 CALL OBNOV
1361 0702 C3 0644 JMP COEXX
1362 ;
1363 ; ZMENA OKNA
1364 ;
1365 0705 21 40F2 WNDCH: LXI H,WNDP ; ADRESA NOVYCH PARAMETRU
1366 0708 11 40E8 WND@: LXI D,LINE ; PUVODNI NASTAVENI
1367 070B 06 06 MVI B,6 ; DELKA
1368 070D 1A WND@0: LDAX D
1369 070E 4E MOV C,M ; ZAMENA
1370 070F 77 MOV M,A
1371 0710 79 MOV A,C
1372 0711 12 STAX D
1373 0712 13 INX D
1374 0713 23 INX H
1375 0714 05 DCR B
1376 0715 C2 070D JNZ WND@0
1377 0718 C3 06BD JMP EXFLG1 ; OBNOV KURZOR
1378 ;
1379 ; ZPRACUJ ATTRIBUT
1380 ;
1381 071B B6 ATTR: ORA M
1382 071C 77 MOV M,A
1383 071D D6 C0 SUI 0C0H
1384 071F D4 0723 CNC CONXT
1385 0722 C9 RET
1386 ;
1387 ; VYPOCTI DALSI ADRESU
1388 ;
1389 0723 23 CONXT: INX H ; JE TO
1390 0724 CD 081F CALL CMAX ; POSLEDNI ZNAK
1391 0727 47 MOV B,A
1392 0728 7D MOV A,L ; KONEC RADKU ?
1393 0729 E6 3F ANI 3FH
1394 072B 32 40E9 STA COLUM
1395 072E B8 CMP B ; KONEC RADKU
1396 072F D8 RC ; NE
1397 0730 CD 07BF CONX1: CALL CR@ ; NASTAV SLOUPEC
1398 ;
1399 ; NOVY RADEK
1400 ;
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-25
1401 0733 CD 0785 LF@: CALL VT@
1402 0736 D0 RNC
1403 ;
1404 ; ROLUJ OBRAZOVKU
1405 ;
1406 0737 2A 40EA ROLL@: LHLD RESL
1407 073A 79 MOV A,C
1408 073B 95 SUB L
1409 073C 3D DCR A
1410 073D 4F MOV C,A ; POCET RADKU
1411 073E CD 081F CALL CMAX
1412 0741 94 SUB H
1413 0742 47 MOV B,A ; POCET ZNAKU
1414 0743 CD 06CF CALL COADR+3 ; PRVNI RADEK
1415 0746 EB ROLL: XCHG
1416 0747 21 0040 LXI H,LINOF ; OFFSET
1417 074A 19 DAD D
1418 074B C5 PUSH B
1419 074C E5 PUSH H ; PRO DALSI RADEK
1420 074D 7E ROLL1: MOV A,M
1421 074E 12 STAX D
1422 074F 13 INX D ; +
1423 0750 23 INX H
1424 0751 05 DCR B
1425 0752 C2 074D JNZ ROLL1 ; VSECHNY RADKY
1426 0755 E1 POP H
1427 0756 C1 POP B
1428 0757 0D DCR C ; KONEC ?
1429 0758 C2 0746 JNZ ROLL
1430 075B CD 0796 ROLL2: CALL EOL@
1431 075E C3 06CC JMP COADR
1432 ;
1433 ; VYMAZ ZBYTEK OBRAZOVKY
1434 ;
1435 0761 CD 0796 ERS@: CALL EOL@
1436 0764 2A 40E8 LHLD LINE
1437 0767 3A 40EB LDA RESC
1438 076A 67 MOV H,A ; 1.ZNAK NA RADKU
1439 076B CD 0827 CALL LMAX ; POCET RADKU
1440 076E 95 SUB L
1441 076F 3D DCR A
1442 0770 4F MOV C,A ; CITAC
1443 0771 CA 06CC JZ COADR ; KONEC
1444 0774 CD 06CF CALL COADR+3
1445 0777 11 0040 ERS@1: LXI D,LINOF
1446 077A 19 DAD D
1447 077B E5 PUSH H
1448 077C CD 0796 CALL EOL@
1449 077F E1 POP H
1450 0780 0D DCR C
1451 0781 C2 0777 JNZ ERS@1
1452 0784 C9 RET
1453 ;
1454 ; VERTIKALNI TAB.
1455 ;
1456 0785 CD 0827 VT@: CALL LMAX ; POSLEDNI RADEK ?
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-26
1457 0788 4F MOV C,A
1458 0789 3A 40E8 LDA LINE ; CISLO RADKU
1459 078C 3C INR A
1460 078D B9 CMP C ; KONEC?
1461 078E 3F CMC
1462 078F D8 RC
1463 0790 32 40E8 STA LINE
1464 0793 C3 06CC JMP COADR
1465
1466
1467 ; VYMAZ ZBYTEK RADKU
1468 ;
1469 0796 7D EOL@: MOV A,L
1470 0797 E6 3F ANI 3FH ; CISLO ZNAKU
1471 0799 47 MOV B,A
1472 079A CD 081F CALL CMAX ; MAX. POCET ZNAKU
1473 079D 90 SUB B ; POCET ZNAKU PRO VYMAZ
1474 079E 36 20 EOL@1: MVI M,' ' ; CISTI
1475 07A0 23 INX H
1476 07A1 3D DCR A
1477 07A2 C2 079E JNZ EOL@1
1478 07A5 C9 RET
1479 ;
1480 ; VRAT KURZOR ZPET
1481 ;
1482 07A6 3A 40EB BACK@: LDA RESC ; JE TO 1. ZNAK
1483 07A9 BA CMP D
1484 07AA 7A MOV A,D
1485 07AB C2 07B5 JNZ BAC@1
1486 07AE CD 07C6 CALL UP@
1487 07B1 D0 RNC ; HORNI OKRAJ
1488 07B2 CD 081F CALL CMAX
1489 07B5 3D BAC@1: DCR A
1490 07B6 C3 07C2 JMP CR@+3
1491 ;
1492 ; NASTAV ZACATEK OBRAZOVKY
1493 ;
1494 07B9 3A 40EA HOME@: LDA RESL
1495 07BC 32 40E8 STA LINE
1496 ;
1497 ; NOVY RADEK
1498 ;
1499 07BF 3A 40EB CR@: LDA RESC
1500 07C2 32 40E9 STA COLUM
1501 07C5 C9 RET
1502 ;
1503 ; KURZOR NAHORU
1504 ;
1505 07C6 3A 40EA UP@: LDA RESL
1506 07C9 BB CMP E
1507 07CA C8 RZ ; REZERVA
1508 07CB 7B MOV A,E
1509 07CC B7 ORA A
1510 07CD C8 RZ ; VRCHOL
1511 07CE 3D DCR A
1512 07CF 32 40E8 STA LINE
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-27
1513 07D2 37 STC
1514 07D3 C9 RET
1515 ;****************************************************
1516 ; PREKODOVANI ZNAKU PRO :CI:
1517 ;----------------------------
1518 ; PREVOD PRO 262.3 PL-CS
1519 ;
1520 07D4 D2 80 8D 1D TABZN: DB 0D2H,80H,8DH,1DH ; CS-LOCK, HOME
1521 07D8 82 81 83 81 DB 82H,81H,83H,81H ; CS-COPY
1522 07DC C1 1A C2 0B DB 0C1H,1AH,0C2H,0BH ; KURZOR
1523 07E0 C3 18 C4 08 DB 0C3H,18H,0C4H,08H
1524 07E4 D0 DC D1 E0 DB 0D0H,0DCH,0D1H,0E0H ; '^
1525 07E8 00 DB 0 ; KONEC
1526 ;
1527 ; TABULKA ZNAKU:
1528 ;
1529 07E9 CSKOD: ; CISLA NA CS-KODY
1530 07E9 D7 2B C5 D3 DB 0D7H,02BH,0C5H,0D3H,0C3H
1531 07ED C3
1532 07EE D2 DA D9 C1 DB 0D2H,0DAH,0D9H,0C1H,0C9H
1533 07F2 C9
1534 ;
1535 ; PREVOD WM-KODU A CISEL
1536 ;
1537 07F3 2C 2D 2E TBWM: DB ',-.' ; ,-.
1538 07F6 81 DB 81H ; CS 0
1539 07F7 30 31 32 33 DB '0123456789'
1540 07FB 34 35 36 37
1541 07FF 38 39
1542 0801 RRAM EQU $
1543 ;*****************************************************
1544 IF RRAM GT 809H
1545 .PRINTX 'SPATNA TABULKA O.S'
1546 QQQQQQ
1547 ENDIF
1548
1549 ORG 809H ; SLUZBY MIKOSU
1550 0809 C3 006A JMP FIND
1551 080C C3 006F JMP OPEN
1552 080F C3 0A69 JMP CLOSE
1553 0812 C3 0074 JMP LOADCD
1554 0815 C3 0079 JMP SAVECD
1555 0818 50 45 52 49 DB 'PERINA '
1556 081C 4E 41 20
1557 ;****************************************************
1558 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1559 ; PRACE S OKNY
1560 ;
1561 081F 3A 40ED CMAX: LDA RESC1 ; MAX POCET ZNAKU
1562 0822 B7 ORA A
1563 0823 C0 RNZ ; JE ZADAN
1564 0824 3E 28 CMAX0: MVI A,WIDTH
1565 0826 C9 RET
1566 ;
1567 0827 3A 40EC LMAX: LDA RESL1 ; MAX POCET RADKU
1568 082A B7 ORA A
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-28
1569 082B C0 RNZ
1570 082C 3E 18 LMAX0: MVI A,HEIGHT
1571 082E C9 RET
1572
1573
1574 082F C5 TAB@: PUSH B
1575 0830 CD 09CF CALL SPACE
1576 0833 3A 4081 LDA CADR ; MODULO 8
1577 0836 E6 07 ANI 7
1578 0838 C2 0830 JNZ TAB@+1
1579 083B C1 POP B
1580 083C 79 MOV A,C
1581 083D C9 RET
1582 ;
1583 ;****************************************************
1584 ; OBSLUHA KLAVSNICE NEBO TERMINALU <A>..ZNAK
1585 ;****************************************************
1586 ;
1587 083E CD 01EC CALL INIC-6 ; ^W
1588 0841 3A 40F0 CI@: LDA KEY ; NASTAV TYP KURZORU
1589 0844 B7 ORA A
1590 0845 3E A0 MVI A,CURSOR ; NORMALNI ZNAK
1591 0847 CA 0852 JZ SETCUR
1592 084A 3E 5E MVI A,5EH ; ' ^
1593 084C F2 0852 JP SETCUR
1594 084F 3A 40EF LDA CUR@ ; CS-LOCK
1595 0852 E5 SETCUR: PUSH H
1596 0853 2A 4081 LHLD CADR
1597 0856 77 MOV M,A ; ZAPIS
1598 0857 E1 POP H
1599 0858 CD 40C4 CALL CI@0 ; HANDLER
1600 085B C5 CI@1: PUSH B
1601 085C 47 MOV B,A
1602 085D CD 093F CALL DEKOD ; DEKODUJ KLAVESY
1603 0860 3A 4086 LDA CSKOD@ ; KOD CS
1604 0863 4F MOV C,A
1605 ;NORMALNI MOD NEBO CS
1606 0864 3A 40E3 LDA MODE
1607 0867 E6 04 ANI 4
1608 0869 C2 08C2 JNZ CICS ; CESKA ABECEDA
1609 ; POCITACOVE ZNAKY ...
1610 086C 78 MOV A,B
1611 086D C1 POP B
1612 086E CD 0894 CALL BIG
1613 0871 FE 17 CPI PRNT
1614 0873 CA 083E JZ CI@-3 ; ^W
1615 0876 FE 10 CPI CTRLP
1616 0878 CA 0889 JZ CHANGE ; ^P
1617 087B FE 11 CPI CTRLQ ; ^Q
1618 087D C0 RNZ
1619 087E CD 0841 CALL CI@
1620 0881 E6 0F ANI 0FH ; MAX 0-15
1621 0883 32 40EA STA RESL
1622 0886 C3 0841 JMP CI@ ; NOVY ZNAK
1623 ;
1624 0889 3A 40E3 CHANGE: LDA MODE
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-29
1625 088C EE 01 XRI 1
1626 088E 32 40E3 STA MODE
1627 0891 C3 0841 JMP CI@
1628 ; PREVOD NA VELKA PISMENA
1629 0894 E6 7F BIG: ANI 7FH
1630 0896 FE 7B CPI 7BH
1631 0898 D0 RNC
1632 0899 FE 61 CPI 61H
1633 089B D8 RC
1634 089C D6 20 SUI 20H
1635 089E C9 RET
1636 ;
1637 ; INICIALIZACE
1638 ;
1639 089F 3E 01 CINIT: MVI A,ALLINT ; POVOL A NASTAV RST 0
1640 08A1 32 40EE STA PRER ; NASTAV UROVEN
1641 08A4 21 07D4 LXI H,TABZN ; DEKODOVANI 263 CS-PL
1642 08A7 CD 08B5 CALL KODASC
1643 08AA 21 07F3 LXI H,TBWM
1644 ;
1645 ; SLUZBA PRO NASTAVENI WM. KODU A CS. KODU
1646 ;
1647 08AD 01 4083 KODWM: LXI B,WMKOD
1648 08B0 1E 0D MVI E,14-1 ; DELKA
1649 08B2 C3 08BA JMP FIL@
1650 ;
1651 ; SLUZBA PRO NASTAVENI PREVODU ZNAKU
1652 ;
1653 08B5 01 4091 KODASC: LXI B,PREV
1654 08B8 1E 14 MVI E,21-1
1655 ; POMOCNY
1656 08BA 16 00 FIL@: MVI D,0 ; DELKA
1657 08BC EB XCHG
1658 08BD 19 DAD D ; KONCOVA ADR.
1659 08BE EB XCHG
1660 08BF C3 0480 JMP MO1
1661 ; CTENI ZNAKU Z KLAVESNICE S CESKYMI KODY
1662 ;========================================
1663 08C2 79 CICS: MOV A,C
1664 08C3 B8 CMP B
1665 08C4 3E 81 MVI A,81H ; CS-KOD
1666 08C6 CA 08F9 JZ ZMECS
1667 08C9 78 MOV A,B
1668 08CA FE DC CPI 0DCH ; HACEK
1669 08CC CA 08F9 JZ ZMECS
1670 08CF FE E0 CPI 0E0H ; CARKA
1671 08D1 CA 08F9 JZ ZMECS
1672 08D4 FE 80 CPI 80H ; CS-LOCK
1673 08D6 CA 08F4 JZ ZMENA
1674 08D9 3A 40F0 LDA KEY
1675 08DC B7 ORA A
1676 08DD FA 0920 JM CESKY ; 1 ZNAK CS
1677 08E0 C2 0900 JNZ CTICS ; CS LOCK
1678 08E3 78 MOV A,B
1679 08E4 C1 POP B
1680 ;
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-30
1681 ; VYPOCTI WM-KOD MISTO CISEL
1682 ;
1683 08E5 FE AC WMDO: CPI 0ACH
1684 08E7 D8 RC ; NENI CS-KOD
1685 08E8 FE BA CPI 0BAH ; JE > '9' OR 80H
1686 08EA D0 RNC
1687 08EB E5 PUSH H
1688 08EC 21 0747 LXI H,TBWM - 0ACH
1689 08EF CD 0973 CALL KODUJ
1690 08F2 E1 POP H
1691 08F3 C9 RET
1692 ;
1693 ; ZMEN KEY TLACITKO SET
1694 08F4 3A 40F0 ZMENA: LDA KEY
1695 08F7 EE 01 XRI 1
1696 08F9 32 40F0 ZMECS: STA KEY
1697 08FC C1 POP B
1698 08FD C3 0841 JMP CI@
1699 ; CTI CS.KOD
1700 0900 CTICS:
1701 0900 78 MOV A,B
1702 0901 C1 POP B
1703 0902 FE C0 CPI 0C0H ; CS U
1704 0904 D0 RNC
1705 0905 B7 ORA A
1706 0906 F2 090C JP CTIC1
1707 0909 E6 7F ANI 7FH ; UDELEJ CISLA
1708 090B C9 RET
1709 090C CD 0919 CTIC1: CALL CISLO
1710 090F D8 RC ; NENI
1711 0910 E5 CTIC2: PUSH H ; MISTO CISLA CS
1712 0911 21 07B9 LXI H,CSKOD-'0'
1713 0914 CD 0973 CALL KODUJ
1714 0917 E1 POP H
1715 0918 C9 RET
1716 ; JE CISLO ? CY=0 ANO
1717 0919 FE 30 CISLO: CPI '0' ; MISTO CISEL CS. KOD
1718 091B D8 RC
1719 091C FE 3A CPI '9'+1
1720 091E 3F CMC
1721 091F C9 RET
1722 ; CESKY - 1 ZNAK
1723 0920 CESKY:
1724 0920 FE E0 CPI 0E0H
1725 0922 CC 0953 CZ ZCARKA
1726 0925 FE DC CPI 0DCH
1727 0927 CC 095A CZ ZHACEK
1728 092A D6 81 SUI 81H
1729 092C CA 0931 JZ $+5 ; ZRUS CS !!
1730 092F 3E 01 MVI A,1
1731 0931 32 40F0 STA KEY ; NASTAV SET NA CS
1732 0934 78 MOV A,B
1733 0935 C1 POP B
1734 0936 CD 0919 CALL CISLO
1735 0939 D2 0910 JNC CTIC2
1736 093C EE A0 XRI 0A0H
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-31
1737 093E C9 RET
1738 ;
1739 ; ZMEN HACEK
1740 093F E5 DEKOD: PUSH H
1741 0940 21 4090 LXI H,PREV-1
1742 0943 F5 ZHA0: PUSH PSW
1743 0944 23 ZHA1: INX H
1744 0945 7E MOV A,M
1745 0946 B7 ORA A
1746 0947 CA 0950 JZ ZHA2 ; KONEC
1747 094A 23 INX H
1748 094B B8 CMP B ; ZNAK
1749 094C C2 0944 JNZ ZHA1
1750 094F 46 MOV B,M ; ZMENA
1751 0950 F1 ZHA2: POP PSW
1752 0951 E1 POP H
1753 0952 C9 RET
1754 ; ZMEN CARKU
1755 0953 E5 ZCARKA: PUSH H
1756 0954 21 0965 LXI H,TCARKA-1
1757 0957 C3 0943 JMP ZHA0
1758 ; ZMEN KODY KLAVES
1759 095A E5 ZHACEK: PUSH H
1760 095B 21 0960 LXI H,THACEK-1
1761 095E C3 0943 JMP ZHA0
1762 ;-----------------------------
1763 0961 75 6A 55 4A THACEK: DB 'ujUJ',0 ; ZMENY PRO HACEK
1764 0965 00
1765 0966 72 66 52 46 TCARKA: DB 'rfRFewEWlkLK',0 ; CARKU
1766 096A 65 77 45 57
1767 096E 6C 6B 4C 4B
1768 0972 00
1769 ;---------------------------------------
1770 ; VYPOCTI NOVY KOD
1771 0973 C5 KODUJ: PUSH B
1772 0974 06 00 MVI B,0
1773 0976 4F MOV C,A
1774 0977 09 DAD B
1775 0978 7E MOV A,M
1776 0979 C1 POP B
1777 097A C9 RET
1778 ;
1779 ;****************************************************
1780 ; ZJISTI STATUS ZY=1..NENI ZNAK, #0 JE ZNAK
1781 ;****************************************************
1782 ;
1783 ; STATUS SM 7202 ZY=1 .. NENI ZNAK
1784 ;
1785 097B DB 11 SMST: IN USTAT
1786 097D 17 RAL
1787 097E 3E 00 MVI A,0
1788 0980 9F SBB A
1789 0981 C9 RET
1790 ;
1791 ; STATUS KLAVESNICE ZY=0 JE ZNAK
1792 ;
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-32
1793 0982 3A 2400 CSTS@@: LDA PORTK
1794 0985 0F RRC
1795 0986 3E FF MVI A,-1
1796 0988 CE 00 ACI 0
1797 098A C9 RET
1798 ;
1799 ;****************************************************
1800 ; HANDLER PRO KLAVESNICI
1801 ;****************************************************
1802 ;
1803 ; CTENI ZNAKU ZE SERIOVE LINKY
1804 ;
1805 098B DB 11 SERIN: IN USTAT
1806 098D 17 RAL
1807 098E D2 098B JNC SERIN ; SERIOVY VSTUP
1808 0991 DB 12 IN UDATA
1809 0993 B7 ORA A
1810 0994 C9 RET
1811 ;
1812 ; VSTUP ZNAKU Z KLAVESNICE
1813 ;
1814 0995 CD 0982 CI@@: CALL CSTS@@
1815 0998 DA 0995 JC CI@@
1816 099B E5 PUSH H
1817 099C 26 28 MVI H,(HIGH PORTK) + 4
1818 099E 7E MOV A,M
1819 099F 2F CMA
1820 09A0 6F MOV L,A ; DATA
1821 09A1 25 DCR H
1822 09A2 36 03 MVI M,3
1823 09A4 7E CI2: MOV A,M
1824 09A5 0F RRC
1825 09A6 D2 09A4 JNC CI2
1826 09A9 36 02 MVI M,2
1827 09AB 7D MOV A,L
1828 09AC E1 POP H
1829 09AD C9 RET
1830 ;
1831 ; NASTAV MODE
1832 ;
1833 09AE CD 0500 CHMODE: CALL RADR
1834 09B1 32 40E3 STA MODE
1835 09B4 C9 RET
1836 ;
1837 ; NASTAV UROVEN PRERUSENI
1838 ;
1839 09B5 CD 0500 Y: CALL RADR ; CTI
1840 09B8 32 40EE STA PRER
1841 09BB C9 RET ; ZAPIS
1842 ;
1843 ; NASTAV CASOVANI MGF
1844 ;
1845 09BC CD 0500 Z: CALL RADR
1846 09BF 32 40F1 STA CASK
1847 09C2 C9 RET
1848 ;
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-33
1849 ; VERIFY: KONTOLNI SOUCET
1850 ;
1851 09C3 CD 04A8 VERIFY: CALL EXPR ; OD-DO
1852 09C6 D1 POP D
1853 09C7 E1 POP H
1854 09C8 CD 0A41 CALL VYPSUM
1855 09CB 78 MOV A,B
1856 09CC CD 05E8 DBYTE: CALL DBYT
1857 09CF 0E 20 SPACE: MVI C,' '
1858 09D1 C3 05F4 JMP CO
1859
1860 ;------------------------------------------------
1861 ;
1862 ; ZAVED 1. PROGRAM NA PASCE
1863 ;
1864 09D4 21 0083 LOADB: LXI H,JMENO
1865 09D7 CD 0074 CALL LOADCD
1866 09DA 2A 40FC LHLD SADR ; 1.ADR
1867 09DD 7E MOV A,M
1868 09DE FE C3 CPI 0C3H
1869 09E0 C2 0A4D JNZ UKAZ
1870 09E3 11 4401 LXI D,BASIC+1
1871 09E6 CD 04F5 CALL HILO
1872 09E9 C2 0A29 JNZ JUMP ; START (NENI SYS.)
1873 09EC 13 INX D
1874 09ED 13 INX D
1875 09EE 1A LDAX D ; BASIC/TOOL..
1876 09EF FE C3 CPI 0C3H
1877 09F1 CA 0A1E JZ PCMD ; NENI BASIC
1878 ;
1879 ; SKOK NA SYSTEMOVE PROGRAMY
1880 ;
1881 09F4 06 42 BCMD: MVI B,'B' ; BASIC
1882 09F6 21 4400 LXI H,BASIC
1883 09F9 11 40FA B0: LXI D,@BT
1884 09FC 7E B1: MOV A,M
1885 09FD FE C3 CPI 0C3H ; SKOK
1886 09FF C2 0A3B JNZ ERROR ; NENI EPROM SYSTEM
1887 0A02 1A LDAX D
1888 0A03 B8 CMP B ; TEPLY START ?
1889 0A04 CA 0A0F JZ B2 ; +
1890 0A07 B7 ORA A
1891 0A08 C2 0A3B JNZ ERROR
1892 0A0B 78 MOV A,B
1893 0A0C 12 STAX D ; NASTAV FLAGY
1894 0A0D 2B DCX H
1895 0A0E 11 DB 11H
1896 ;
1897 0A0F 23 B2: INX H
1898 0A10 23 INX H
1899 0A11 23 INX H
1900 0A12 E5 PUSH H ; TEPLY START
1901 0A13 C3 0348 JMP INTER
1902 ;
1903 0A16 06 54 TCMD: MVI B,'T'
1904 0A18 21 4C00 LXI H,TRACER
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-34
1905 0A1B C3 09F9 JMP B0
1906 ;
1907 0A1E 06 50 PCMD: MVI B,'P' ; PEDIT
1908 0A20 21 4400 LXI H,PEDIT
1909 0A23 11 40FB LXI D,@PED
1910 0A26 C3 09FC JMP B1
1911 ;
1912 ; SKOK DO UZIVATELSKEHO PROGRAMU
1913 ;
1914 0A29 CD 0A4D JUMP: CALL UKAZ
1915 0A2C EB XCHG
1916 0A2D 7D MOV A,L ; ZADNY PROGRAM
1917 0A2E B4 ORA H
1918 0A2F CA 0A3B JZ ERROR ; PRAZDNY
1919 0A32 E5 PUSH H ; START
1920 0A33 CD 0A41 CALL VYPSUM
1921 0A36 3A 4100 LDA SUM
1922 0A39 B8 CMP B
1923 0A3A C8 RZ
1924 ;
1925 ; OSETRENI CHYBY
1926 ;
1927 0A3B CD 001B ERROR: CALL QUES
1928 0A3E C3 40C1 JMP ERRSW ; PREDEJ RIZENI PO CHYBE
1929 ;
1930 0A41 06 00 VYPSUM: MVI B,0 ; SUMA
1931 0A43 7E J1: MOV A,M
1932 0A44 80 ADD B
1933 0A45 47 MOV B,A
1934 0A46 CD 04F5 CALL HILO
1935 0A49 D2 0A43 JNC J1
1936 0A4C C9 RET
1937 ;
1938 ; UKAZ ADRESY PROGRAMU OD-DO
1939 ;
1940 0A4D 2A 40FC UKAZ: LHLD SADR
1941 0A50 CD 0508 CALL DNADR
1942 0A53 EB XCHG
1943 0A54 2A 40FE LHLD EADR
1944 0A57 C3 050B JMP DADR
1945 ;
1946 ; "END OF FILE" PRIKAZ
1947 ;
1948
1949 0A5A CD 0500 EOF: CALL RADR ; START.ADR
1950 0A5D 06 01 MVI B,1 ; TYP ZAZNAMU
1951 0A5F AF XRA A ; PARAM.
1952 0A60 5F MOV E,A ; POCET BYTE
1953 0A61 CD 0B2C CALL PBEG
1954 0A64 AF XRA A
1955 0A65 92 SUB D ; KONTROLNI SOUCET
1956 0A66 CD 0B49 CALL PBYTE
1957 0A69 0E 03 CLOSE: MVI C,3 ; CLOSE
1958 0A6B C3 40D0 JMP KOS@
1959 ;
1960 ; CTI HEX INTEL FORMAT
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-35
1961 ;
1962 0A6E CD 006A READ@: CALL FIND
1963 0A71 CD 04D4 CALL CRLF
1964 0A74 CD 0500 CALL RADR ; OFFSET
1965 0A77 3E DB 3EH ; MVI A,#
1966 0A78 E1 RED1: POP H
1967 0A79 E5 PUSH H
1968 0A7A CD 0B56 REDC1: CALL MREAD ; CTI BYTE
1969 0A7D D6 3A SUI ':' ; ZACATEK ZAZNAMU ?
1970 0A7F C2 0A7A JNZ REDC1 ; ANO
1971 0A82 57 REDC2: MOV D,A ; NULOVANI KONTR. SOUCTU
1972 0A83 CD 0B0F CALL RBYTE ; DELKA RADKU
1973 0A86 CA 0AB7 JZ RED3 ; KDYZ 0, KONEC
1974 0A89 5F MOV E,A ; NASTAVENI CITACE
1975 0A8A CD 0B0F CALL RBYTE ; HORNI ADR.
1976 0A8D F5 PUSH PSW
1977 0A8E CD 0B0F CALL RBYTE ; SPODNI ADR.
1978 0A91 C1 POP B
1979 0A92 4F MOV C,A
1980 0A93 09 DAD B ; OFFSET ADRESY
1981 0A94 CD 0B0F CALL RBYTE ; PRIZNAK
1982 0A97 CD 0B0F RED2: CALL RBYTE ; STROJ. KOD
1983 0A9A 77 MOV M,A
1984 0A9B BE CMP M ; TEST PAMETI
1985 0A9C 0E 4D MVI C,'M' ; ERROR 'M'
1986 0A9E C2 0AAE JNZ REDER
1987 0AA1 23 INX H
1988 0AA2 1D DCR E ; CITAC BYTE STROJ. KODU
1989 0AA3 C2 0A97 JNZ RED2
1990 0AA6 CD 0B0F CALL RBYTE ; KONTR. SOUCET Z PASKY
1991 0AA9 CA 0A78 JZ RED1 ; OK
1992 0AAC 0E 53 MVI C,'S' ; ERROR 'S' - KONTROLNI SUMA
1993 0AAE CD 05F4 REDER: CALL CO ; TYP CHYBY
1994 0AB1 CD 050B CALL DADR
1995 0AB4 C3 0A3B JMP ERROR
1996 0AB7 E5 RED3: PUSH H
1997 0AB8 CD 0B0F CALL RBYTE ; HORNI START.ADR
1998 0ABB 67 MOV H,A
1999 0ABC CD 0B0F CALL RBYTE ; SPODNI START.ADR
2000 0ABF 6F MOV L,A
2001 0AC0 CD 0B0F CALL RBYTE ; KONTROLNI SUMA
2002 0AC3 CD 0B0F CALL RBYTE
2003 0AC6 C2 0AAC JNZ REDER-2 ; CHYBA
2004 0AC9 D1 POP D
2005 0ACA 7A MOV A,D
2006 0ACB B3 ORA E ; OFFSET ?
2007 0ACC D1 POP D
2008 0ACD C0 RNZ ; ANO, NE START
2009 0ACE 7C MOV A,H
2010 0ACF B5 ORA L ; START.ADR
2011 0AD0 C8 RZ ; NE
2012 0AD1 E9 PCHL
2013 ;
2014 ; ZAPIS HEX FORMAT
2015
2016 0AD2 0E 02 WRITE: MVI C,2
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-36
2017 0AD4 CD 04A8 CALL EXPR
2018 0AD7 CD 04D4 CALL CRLF
2019 0ADA D1 POP D
2020 0ADB E1 POP H
2021 0ADC 7D WR1: MOV A,L
2022 0ADD C6 10 ADI 10H
2023 0ADF 4F MOV C,A
2024 0AE0 7C MOV A,H
2025 0AE1 CE 00 ACI 0
2026 0AE3 47 MOV B,A
2027 0AE4 7B MOV A,E
2028 0AE5 91 SUB C
2029 0AE6 4F MOV C,A
2030 0AE7 7A MOV A,D
2031 0AE8 98 SBB B
2032 0AE9 DA 0AF1 JC WR2
2033 0AEC 3E 10 MVI A,10H ; >16
2034 0AEE C3 0AF4 JMP WR3
2035 0AF1 79 WR2: MOV A,C ; <16
2036 0AF2 C6 11 ADI 11H
2037 0AF4 B7 WR3: ORA A
2038 0AF5 C8 RZ ; DALSI
2039 0AF6 D5 PUSH D ; USCHOVA HORNI ADR.
2040 0AF7 5F MOV E,A ; NASTAVENI CITACE
2041 0AF8 AF XRA A
2042 0AF9 47 MOV B,A ; TYP
2043 0AFA CD 0B2C CALL PBEG
2044 0AFD 7E WR4: MOV A,M
2045 0AFE 23 INX H
2046 0AFF CD 0B49 CALL PBYTE ; STROJ. KOD
2047 0B02 1D DCR E
2048 0B03 C2 0AFD JNZ WR4
2049 0B06 AF XRA A
2050 0B07 92 SUB D
2051 0B08 CD 0B49 CALL PBYTE ; KONTR. SOUCET
2052 0B0B D1 POP D
2053 0B0C C3 0ADC JMP WR1
2054
2055
2056 ; PRECTE 2 ZNAKY, SESTAVI BYTE, TVORI KONTR. SOUCET
2057
2058 0B0F CD 0B56 RBYTE: CALL MREAD ; CTE ZNAK S MASKOU 7F
2059 0B12 CD 0523 CALL ASHEX ; PREVOD ASCII-HEX
2060 0B15 07 RLC
2061 0B16 07 RLC
2062 0B17 07 RLC
2063 0B18 07 RLC
2064 0B19 4F MOV C,A
2065 0B1A CD 0B56 CALL MREAD
2066 0B1D CD 0523 CALL ASHEX
2067 0B20 B1 ORA C ; SESTAVI BYTE
2068 0B21 4F MOV C,A
2069 0B22 82 ADD D ; KONTROLNI SOUCET
2070 0B23 57 MOV D,A
2071 0B24 79 MOV A,C
2072 0B25 C9 RET
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-37
2073
2074 ; KONEC VYRAZU
2075
2076 0B26 FE 09 TERM: CPI HT
2077 0B28 C8 RZ
2078 0B29 C3 053D JMP ANAL
2079
2080
2081
2082 ; PIS ZACATEK ZAZNAMU
2083
2084 0B2C 57 PBEG: MOV D,A ; NULUJ KONTROLNI SUMU
2085 0B2D 0E 0D MVI C,CR
2086 0B2F CD 05C1 CALL PO
2087 0B32 0E 0A MVI C,LF
2088 0B34 CD 05C1 CALL PO
2089 0B37 0E 3A MVI C,':'
2090 0B39 CD 05C1 CALL PO
2091 0B3C 7B MOV A,E ; E .. POCET BYTE
2092 0B3D CD 0B49 CALL PBYTE
2093 0B40 7C MOV A,H ; HL .. ADR
2094 0B41 CD 0B49 CALL PBYTE
2095 0B44 7D MOV A,L
2096 0B45 CD 0B49 CALL PBYTE
2097 0B48 78 MOV A,B ; TYP
2098 0B49 F5 PBYTE: PUSH PSW
2099 0B4A CD 05BA CALL HBT
2100 0B4D F1 POP PSW
2101 0B4E F5 PUSH PSW
2102 0B4F CD 05BE CALL LBT
2103 0B52 F1 POP PSW
2104 0B53 82 ADD D
2105 0B54 57 MOV D,A
2106 0B55 C9 RET
2107 ;
2108 ; CTE ZNAK S MASKOU, PRO CHYBU NASTAVI CARRY
2109
2110 0B56 CD 05AA MREAD: CALL RI
2111 0B59 DA 0A3B JC ERROR
2112 0B5C E6 7F ANI 7FH ; POTLACENI PARITNIHO BITU
2113 0B5E CA 0B56 JZ MREAD
2114 0B61 C9 RET
2115 ;
2116 ;
2117 ; CTI JMENO Z KLAVESNICE NEBO PROGRAMU
2118 ;
2119 0B62 EB RNAME: XCHG
2120 0B63 7E MOV A,M ; HL UKAZUJE NA EXTERNI TEXT
2121 0B64 32 4101 STA EXTEXT ; ".. JE JMENO
2122 0B67 FE 22 CPI '"'
2123 0B69 23 INX H
2124 0B6A 06 3E MVI B,62 ; MAX. DELKA
2125 0B6C 11 4103 LXI D,NAMBUF
2126 0B6F D5 PUSH D ; ADR PRO ZAPIS
2127 0B70 C2 0BB6 JNZ RNAMC ; CTI Z CI
2128 0B73 3E 20 RNAM1: MVI A,' '
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-38
2129 0B75 12 STAX D
2130 0B76 7E MOV A,M
2131 0B77 CD 0894 CALL BIG
2132 0B7A CD 0BB1 CALL ANAL1
2133 0B7D CA 0B87 JZ RNAM2-1
2134 0B80 12 STAX D
2135 0B81 23 INX H
2136 0B82 13 INX D
2137 0B83 05 DCR B
2138 0B84 C2 0B73 JNZ RNAM1 ; JE JESTE MISTO
2139 0B87 EB XCHG
2140 0B88 23 RNAM2: INX H
2141 0B89 36 20 MVI M,' ' ; KONEC
2142 0B8B 3E 44 MVI A,LOW @RAM ; VYCISTI BUFFER
2143 0B8D 23 INX H
2144 0B8E 36 00 MVI M,0
2145 0B90 BD CMP L
2146 0B91 C2 0B8D JNZ $-4
2147 0B94 E1 POP H ; ANALYZA POVELU
2148 0B95 7E MOV A,M
2149 0B96 FE 40 CPI '@' ; APPEND ?
2150 0B98 23 INX H
2151 0B99 CA 0BAD JZ RNAM3
2152 0B9C FE 2E CPI '.' ; REWIND
2153 0B9E CA 0BAD JZ RNAM3
2154 0BA1 7E MOV A,M ; VOLBA IOBYTE
2155 0BA2 FE 3A CPI ':' ; DEF. USER 1/2
2156 0BA4 2B DCX H
2157 0BA5 3E 00 MVI A,0 ; NENI
2158 0BA7 C2 0BAD JNZ RNAM3
2159 0BAA 7E MOV A,M ; ZAPIS KOD
2160 0BAB 23 INX H
2161 0BAC 23 INX H
2162 0BAD 32 4102 RNAM3: STA OPT ; <A>.. OPTION
2163 0BB0 C9 RET ; <HL>.. 1. ADRESA JMENA
2164 ;
2165 ; ANALYZA ODDELOVACE
2166 ;
2167 0BB1 FE 22 ANAL1: CPI '"'
2168 0BB3 C3 0542 JMP ANAL2
2169 ;-----------------------------------
2170 0BB6 D5 RNAMC: PUSH D
2171 0BB7 CD 0549 CALL TX
2172 0BBA 0D 0A DB CR,LF
2173 0BBC 20 4E 41 5A DC ' NAZEV:'
2174 0BC0 45 56 BA
2175 0BC3 E1 POP H
2176 0BC4 5D MOV E,L
2177 0BC5 36 20 RNAM6: MVI M,' '
2178 0BC7 CD 0596 CALL CI
2179 0BCA CD 0894 CALL BIG
2180 0BCD FE 03 CPI ETX
2181 0BCF CA 0203 JZ NEXT
2182 0BD2 FE 0D CPI CR
2183 0BD4 CA 0BFA JZ RNAM9
2184 0BD7 FE 7F CPI DEL
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-39
2185 0BD9 CA 0BE1 JZ RNAM7
2186 0BDC FE 08 CPI 8
2187 0BDE C2 0BF1 JNZ RNAM8
2188 0BE1 7B RNAM7: MOV A,E
2189 0BE2 BD CMP L ; PRVNI
2190 0BE3 CA 0BC5 JZ RNAM6
2191 0BE6 2B DCX H
2192 0BE7 04 INR B
2193 0BE8 CD 0549 CALL TX ; DELETE
2194 0BEB 08 20 88 DB 08,20H,88H
2195 0BEE C3 0BC5 JMP RNAM6
2196 0BF1 77 RNAM8: MOV M,A
2197 0BF2 23 INX H
2198 0BF3 CD 0568 CALL COA
2199 0BF6 05 DCR B
2200 0BF7 C2 0BC5 JNZ RNAM6
2201 0BFA CD 04D4 RNAM9: CALL CRLF
2202 0BFD C3 0B88 JMP RNAM2
2203 ;********** KONEC MONITORU ***************
2204 0C00 FF DB 255
2205 ;
2206 0C01 @@@MON EQU $
2207 ;
2208 ;*********************************************
2209 ; ROZDELENI S Y S T E M O V E R A M
2210 ;*********************************************
2211 ;
2212 4000 RST1 EQU @R@ ; RST VEKTORY
2213 ;........>>>
2214 ;......
2215 ;<<... UZIVATELSKY & MONITOR. ZASOBNIK
2216 ;
2217 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2218 .PHASE @R@+6DH
2219 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2220 ; DATA MONITORU
2221 ;
2222 406D MSTAK: DS 2 ; USCHOVA REGISTRU
2223 406F ACSAV: DS 2
2224 4071 BCSAV: DS 2
2225 4073 DESAV: DS 2
2226 4075 HLSAV: DS 2
2227 4077 PCSAV: DS 2
2228 4079 SPSAV: DS 2
2229 ;
2230 407B BRAD: DS 2
2231 407D INSTR: DS 1
2232 407E BRAD2: DS 2
2233 4080 INST2: DS 1
2234 4081 CADR: DS 2 ; ADRESA KURSORU
2235 ;-------------------------
2236 4083 WMKOD: DS 14 ; KOD PRO KURZORY
2237 4091 PREV: DS 21 ; PREVODNI KODY..0
2238 4086 CSKOD@ EQU WMKOD+3
2239 ;-------------------------
2240 ; USER I/O DEVICE
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-40
2241 ;
2242 40A6 CILOC: DS 3 ; 0
2243 40A9 COLOC: DS 3 ; 1
2244 40AC R1LOC: DS 3 ; 2
2245 40AF R2LOC: DS 3 ; 3
2246 40B2 P1LOC: DS 3 ; 4
2247 40B5 P2LOC: DS 3 ; 5
2248 40B8 LILOC: DS 3 ; 6
2249 40BB CSLOC: DS 3 ; 7
2250 40BE DS 1
2251 40BF MEMTOP: DS 2 ; 8
2252 40C1 ERRSW: DS 3 ; 9
2253 40C4 CI@0: DS 3 ; 10
2254 40C7 CO@: DS 3 ; 11
2255 40CA CSTS@: DS 3 ; 12
2256 40CD LO@: DS 3 ; 13
2257 40D0 KOS@: DS 3 ; 14
2258 40D3 RI@: DS 3 ; 15
2259 40D6 PO@: DS 3 ; 16
2260 40D9 CCPM: DS 3 ; 17
2261 40DC GRAF: DS 3 ; 18
2262 40DF RESER: DS 3 ; 19
2263 ;--------------------------
2264 ;
2265 0015 IONUM EQU ($-CILOC)/3+1
2266 ;
2267 40E2 IOBYT: DS 1 ; RIZENI I/O ZARIZENI
2268 ;
2269 ;******************************
2270 ;<< EXTERNE OVLADANE FLAGY: >>
2271 ;******************************
2272 40E3 MODE: DS 1 ; CO-MODE
2273 40E4 @IF1: DS 1
2274 40E5 @IF2: DS 1
2275 40E6 @OF1: DS 1
2276 40E7 @OF2: DS 1
2277 40E8 LINE: DS 1 ; RADEK
2278 40E9 COLUM: DS 1 ; SLOUPEC
2279 40EA RESL: DS 1 ; REZERVACE
2280 40EB RESC: DS 1 ; SLOUPEC
2281 40EC RESL1: DS 1 ; POSLEDNI RADEK
2282 40ED RESC1: DS 1 ; POSLEDNI SLOUPEC
2283 40EE PRER: DS 1 ; UROVEN PRERUSENI
2284 ;
2285 ; PROMENE PRO OPERACNI SYSTEM
2286 ;
2287 40EF CUR@: DS 1
2288 40F0 KEY: DS 1
2289 40F1 CASK: DS 1
2290 40F2 WNDP: DS 6 ; PARAMETRY PRO 2.OKNO
2291 0015 EXSER EQU $-MODE
2292 ;
2293 40F8 CHAR: DS 1
2294 40F9 XFLG: DS 1
2295 ;
2296 ;****************************************************
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE 1-41
2297 ; DATA SPOLECNA PRO MONITOR A O.S.
2298 ;****************************************************
2299 ;
2300 ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2301 40FA @BT: DS 1
2302 40FB @PED: DS 1
2303 40FC SADR: DS 2 ; START.ADR
2304 40FE EADR: DS 2 ; KONC.ADR
2305 4100 SUM: DS 1
2306 4101 EXTEXT: DS 1
2307 4102 OPT: DS 1
2308 4103 NAMBUF: DS 65
2309 4144 @RAM EQU $
2310 ;*******************************
2311 .DEPHASE
2312 ;
2313 END ; [P]
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE S
Macros:
Symbols:
0C01 @@@MON 40FA @BT 40E4 @IF1
40E5 @IF2 40E6 @OF1 40E7 @OF2
40FB @PED 4000 @R@ 4144 @RAM
406F ACSAV 06E1 ADRCUR 06F3 ADRCX
0001 ALLINT 053D ANAL 053F ANAL0
0BB1 ANAL1 0542 ANAL2 0523 ASHEX
027B ASS0 0287 ASS1 0291 ASS2
02A2 ASS3 0270 ASSIGN 071B ATTR
09F9 B0 09FC B1 0A0F B2
07B5 BAC@1 0008 BACK 07A6 BACK@
4400 BASIC 09F4 BCMD 4071 BCSAV
018B BEG 0191 BEG0 0055 BEGIO
0007 BELL 0894 BIG 007E BINAR
407B BRAD 407E BRAD2 4081 CADR
40F1 CASK 40D9 CCPM 00E8 CENTR1
00E4 CENTRO 0920 CESKY 0889 CHANGE
40F8 CHAR 09AE CHMODE 0596 CI
09A4 CI2 0841 CI@ 40C4 CI@0
085B CI@1 0995 CI@@ 08C2 CICS
40A6 CILOC 0537 CIMIN 053A CINCR
089F CINIT 0919 CISLO 0599 CITB
0A69 CLOSE 081F CMAX 0824 CMAX0
05F4 CO 40C7 CO@ 0617 CO@@
062B CO@WR 0568 COA 06CC COADR
069B COEX 0645 COEX0 0656 COEX1
0641 COEXAT 0644 COEXX 018B COLD
060A COLO 40A9 COLOC 40E9 COLUM
04FA COMPR 065A CONTROL 0730 CONX1
0723 CONXT 060D COOUT 0044 COPY
05F7 COTB 000D CR 07BF CR@
04D4 CRLF 07E9 CSKOD 4086 CSKOD@
40BB CSLOC 058B CSTS 40CA CSTS@
0982 CSTS@@ 023C CTBL 090C CTIC1
0910 CTIC2 0900 CTICS 0010 CTRLP
0011 CTRLQ 40EF CUR@ 0067 CURCH
00A0 CURSOR 001B CWR1 001F CWR2
00C9 D100S 00CD D101 00DB D102
00AD D180 050B DADR 05E3 DADR0
05E8 DBYT 09CC DBYTE 093F DEKOD
007F DEL 4073 DESAV 05A1 DEV
05A4 DEV0 0424 DI0 0428 DI1
043C DI2 0463 DI3 044A DI4
044C DI5 0438 DIA 041F DISP
0508 DNADR 05F1 DNIBL 009C DUMMY
40FE EADR 0562 ECHO 0A5A EOF
001E EOL 0796 EOL@ 079E EOL@1
0004 EOT 0C00 EP2 0013 EQUAL
0000 ERAM 0A3B ERROR 40C1 ERRSW
001F ERS 0761 ERS@ 0777 ERS@1
001B ESC 0697 ESC@ 06FC ESC@0
0003 ETX 04AE EX0 04B1 EX1
04BA EX2 04C6 EX3 04E9 EX4
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE S-1
04DA EX5 06A1 EXFLG 06BD EXFLG1
04A8 EXPR 04A5 EXPR0 04E1 EXPRM
0015 EXSER 4101 EXTEXT 0471 FI1
08BA FIL@ 046A FILL 006A FIND
0331 GO@ 0313 GO@BR 02FA GOTO
40DC GRAF 05BA HBT 0018 HEIGHT
04F5 HILO 4075 HLSAV 0085 HNDIN
0010 HNDMX 001D HOME 07B9 HOME@
0009 HT 0511 HXANIB 0513 HXASC
01F2 INIC 022F INJM@ 0233 INJMP
4080 INST2 407D INSTR 0348 INTER
40E2 IOBYT 0023 IOCHK 056F IODEF
02A7 IONEW 0015 IONUM 002B IOSET
02AE IOTAB 0A43 J1 0083 JMENO
0A29 JUMP 40F0 KEY 08B5 KODASC
0973 KODUJ 08AD KODWM 0060 KOS
40D0 KOS@ 0065 KOSI 05BE LBT
05F1 LBYTE 001A LCT 000A LF
0733 LF@ 40B8 LILOC 40E8 LINE
0040 LINOF 0827 LMAX 082C LMAX0
05D3 LO 40CD LO@ 00B4 LO@1
00BE LO@2 00B0 LO@@ 09D4 LOADB
0074 LOADCD 05DB LOTB 0018 LREST
01B6 MEM1 01C3 MEM2 051B MEMCK
40BF MEMTOP 000B MINUS 0011 MMODE
0480 MO1 40E3 MODE 0000 MONIT
0479 MOVE 0B56 MREAD 406D MSTAK
4103 NAMBUF 0203 NEXT 06C5 OBNOV
006F OPEN 4102 OPT 40B2 P1LOC
40B5 P2LOC 0018 PA1 001C PA2
0019 PB1 001D PB2 0B2C PBEG
0B49 PBYTE 001A PC1 001E PC2
0A1E PCMD 4077 PCSAV 4400 PEDIT
05C1 PO 40D6 PO@ 3000 PORTI
2400 PORTK 2B00 PORTLC 2C00 PORTLD
05CB POTB 40EE PRER 4091 PREV
0017 PRNT 02C6 QUERY 001B QUES
00FA R100 40AC R1LOC 40AF R2LOC
0500 RADR 0053 RBYT 0051 RBYT0
0B0F RBYTE 0A6E READ@ 0A78 RED1
0A97 RED2 0AB7 RED3 0A7A REDC1
0A82 REDC2 0AAE REDER 40EB RESC
40ED RESC1 40DF RESER 40EA RESL
40EC RESL1 0353 RESTA 040A RGNAM
05AA RI 40D3 RI@ 0018 RIGHT
05B2 RITB 0B73 RNAM1 0B88 RNAM2
0BAD RNAM3 0BC5 RNAM6 0BE1 RNAM7
0BF1 RNAM8 0BFA RNAM9 0BB6 RNAMC
0B62 RNAME 0746 ROLL 074D ROLL1
075B ROLL2 0737 ROLL@ 0801 RRAM
4000 RST1 036E RST10 038A RST20
00CF RSTN 40FC SADR 0079 SAVECD
098B SERIN 05FF SEROUT 0852 SETCUR
097B SMST 017B SMTAB 09CF SPACE
0033 SPCL 4079 SPSAV 048D SU1
049C SU2 001A SUB@ 048A SUBS
FIRMWARE SAPI-1 MONITOR V5.0/E MACRO-80 3.44 09-Dec-81 PAGE S-2
4100 SUM 018A SYSEND 016C SYSTAB
082F TAB@ 009D TABHND 07D4 TABZN
07F3 TBWM 0966 TCARKA 0A16 TCMD
0B26 TERM 0558 TEXT 0961 THACEK
4C00 TRACER 3800 TVBEG 3DE7 TVEND
1400 TVROM 0549 TX 0012 UDATA
0A4D UKAZ 0010 UMODE 001A UP
07C6 UP@ 0013 URES 0011 USTAT
09C3 VERIFY 000B VT 0785 VT@
0A41 VYPSUM 0028 WIDTH 08E5 WMDO
4083 WMKOD 0708 WND@ 070D WND@0
001C WNDCD 0705 WNDCH 40F2 WNDP
0ADC WR1 0AF1 WR2 0AF4 WR3
0AFD WR4 0AD2 WRITE 039B X
03A9 X0 03B1 X1 03B6 X10
03C6 X2 03F1 XDIS1 03E7 XDISP
40F9 XFLG 0222 XY 09B5 Y
09BC Z 0953 ZCARKA 0943 ZHA0
0944 ZHA1 0950 ZHA2 095A ZHACEK
08F9 ZMECS 08F4 ZMENA
No Fatal error(s)
@@@MON 2206#
@BT 1883 2301#
@IF1 2273#
@IF2 2274#
@OF1 2275#
@OF2 2276#
@PED 1909 2302#
@R@ 27# 124 128 132 136 143 150 158 410 463 2212 2218
@RAM 2142 2309#
ACSAV 647 724 789 790 2223#
ADRCUR 1223 1345#
ADRCX 1347 1354#
ALLINT 109# 1639
ANAL 910 1008# 2078
ANAL0 1009#
ANAL1 2132 2167#
ANAL2 1011# 2168
ASHEX 340 899 991# 2059 2066
ASS0 538# 542
ASS1 539 544#
ASS2 549# 558
ASS3 551 559#
ASSIGN 351 494 533#
ATTR 1230 1381#
B0 1883# 1905
B1 1884# 1910
B2 1889 1897#
BAC@1 1485 1489#
BACK 48# 1262
BACK@ 1263 1482#
BASIC 31# 1870 1882
BCMD 495 1881#
BCSAV 791 792 2224#
BEG 386# 496
BEG0 390# 392
BEGIO 61# 378
BELL 52#
BIG 821 991 1043 1225 1612 1629# 2131 2179
BINAR 211# 1294
BRAD 631 686 2230#
BRAD2 640 2232#
CADR 159 430 1215 1237 1320 1576 1596 2234#
CASK 1846 2289#
CCPM 2260#
CENTR1 297# 300
CENTRO 239 293#
CESKY 1676 1723#
CHANGE 1616 1624#
CHAR 1236 1321 2293#
CHMODE 508 1833#
CI 326 1042 1088# 2178
CI2 1823# 1825
CI@ 1089 1089 1107 1588# 1614 1619 1622 1627 1698
CI@0 407 1599 2253#
CI@1 1600#
CI@@ 366 1814# 1815
CICS 1608 1663#
CILOC 1061 1090 2242# 2265
CIMIN 533 745 835 875 1005#
CINCR 346 469 621 722 837 930 1007#
CINIT 427 1639#
CISLO 1709 1717# 1734
CITB 1089# 1092
CLOSE 1552 1957#
CMAX 1390 1411 1472 1488 1561#
CMAX0 1564#
CO 328 1046 1128 1141 1167# 1858 1993
CO@ 243 1203 2254#
CO@@ 367 1207#
CO@WR 1221#
COA 127 131 135 593 604 769 827 1023 1035 1044# 2198
COADR 1283 1326# 1414 1431 1443 1444 1464
COEX 1252 1283#
COEX0 1235# 1316
COEX1 1240 1242#
COEXAT 1232#
COEXX 1234# 1284 1361
COLD 116 325 385#
COLO 1141 1169 1194#
COLOC 1170 2243#
COLUM 1357 1394 1500 2278#
COMPR 704 947#
CONTROL 1217 1251#
CONX1 1397#
CONXT 1232 1265 1384 1389#
COOUT 1169 1200#
COPY 167# 171 507
COTB 1169# 1172
CR 46# 183 216 450 468 628 635 761 919 1012 1256 2085
2172 2182
CR@ 1257 1397 1490 1499#
CRLF 168 337 645 726 918# 964 1963 2018 2201
CSKOD 1529# 1712
CSKOD@ 1603 2238#
CSLOC 1085 2249#
CSTS 331 833 1082#
CSTS@ 1086 2255#
CSTS@@ 368 1793# 1814
CTBL 475 494# 520 521
CTIC1 1706 1709#
CTIC2 1711# 1735
CTICS 1677 1700#
CTRLP 75# 1615
CTRLQ 74# 1617
CUR@ 425 1594 2287#
CURCH 71# 424
CURSOR 70# 1241 1590
CWR1 92#
CWR2 96#
D100S 240 275#
D101 277# 279
D102 284# 286
D180 241 251#
DADR 341 965# 1944 1994
DADR0 965 1151#
DBYT 342 779 784 874 1152 1157# 1856
DBYTE 812 1856#
DEKOD 1602 1740#
DEL 59# 2184
DESAV 793 794 2225#
DEV 1088 1097# 1167
DEV0 1098# 1105 1126 1139
DI0 809# 834 839
DI1 811# 817
DI2 820# 832
DI3 837#
DI4 823 826#
DI5 825 827#
DIA 814 818#
DISP 497 806#
DNADR 584 810 882 964# 1941
DNIBL 1164#
DUMMY 233# 237 369 375 376
EADR 1943 2304#
ECHO 545 895 1007 1042#
EOF 498 1949#
EOL 73# 1260
EOL@ 1261 1430 1435 1448 1469#
EOL@1 1474# 1477
EOT 55#
EP2 38# 439 441
EQUAL 130# 544 594 620 770 893
ERAM 39#
ERROR 339 370 478 543 556 737 892 1886 1891 1918 1927# 1995
2111
ERRSW 432 465 1928 2252#
ERS 72# 437 1268
ERS@ 1269 1435#
ERS@1 1445# 1451
ESC 51# 1276
ESC@ 1278#
ESC@0 1353 1359#
ETX 54# 2180
EX0 895# 907 924
EX1 896# 928
EX2 900#
EX3 900 909# 932
EX4 898 930# 935
EX5 911 922#
EXFLG 350 1292#
EXFLG1 1313# 1377
EXPR 338 806 845 858 893# 957 1851 2017
EXPR0 892# 915
EXPRM 178 624 926#
EXSER 1297 2291#
EXTEXT 2121 2306#
FI1 849# 851
FIL@ 1649 1656#
FILL 499 844#
FIND 203# 1550 1962
GO@ 622 629 637 645#
GO@BR 623 630#
GOTO 500 620#
GRAF 360 2261#
HBT 1115# 2099
HEIGHT 66# 1349 1570
HILO 343 813 828 850 865 942# 1871 1934
HLSAV 657 673 680 795 796 2226#
HNDIN 220# 501
HNDMX 222 245#
HOME 76# 437 1266
HOME@ 1267 1494#
HT 47# 1210 2076
HXANIB 970# 1119 1165
HXASC 349 972#
INIC 449# 464 1587
INJM@ 477#
INJMP 479# 1100
INST2 642 2233#
INSTR 633 2231#
INTER 357 466 661# 1901
IOBYT 140 148 564 586 1082 1097 1102 1121 1136 2267#
IOCHK 140# 332
IODEF 335 1052#
IONEW 564#
IONUM 1053 2265#
IOSET 147# 333
IOTAB 535 572# 585
J1 1931# 1935
JMENO 216# 1864
JUMP 503 1872 1914#
KEY 160 1588 1674 1694 1696 1731 2288#
KODASC 359 1642 1653#
KODUJ 1689 1713 1771#
KODWM 358 1647#
KOS 193# 504
KOS@ 194 199 204 206 208 210 212 355 1958 2257#
KOSI 198# 502
LBT 1119# 2102
LBYTE 1162 1165#
LCT 476 520#
LF 53# 450 468 919 1258 2087 2172
LF@ 1259 1401#
LILOC 1142 2248#
LINE 155 1326 1351 1366 1436 1458 1463 1495 1512 2277#
LINOF 67# 68 1416 1445
LMAX 1439 1456 1567#
LMAX0 1570#
LO 170 330 1136# 1169 1194
LO@ 229 232 1141 1202 2256#
LO@1 259# 261
LO@2 265# 267
LO@@ 238 255#
LOADB 505 1864#
LOADCD 207# 1553 1865
LOTB 1141# 1144
LREST 68#
MEM1 412# 420
MEM2 413 421#
MEMCK 334 981#
MEMTOP 422 583 982 2251#
MINUS 126# 1005
MMODE 105# 276
MO1 408 862# 866 1660
MODE 1200 1228 1238 1303 1606 1624 1626 1834 2272# 2291
MONIT 37# 115
MOVE 506 857#
MREAD 1968 2058 2065 2110# 2113
MSTAK 387 444 459 2222#
NAMBUF 2125 2308#
NEXT 344 459# 460 474 716 2181
OBNOV 1254 1315 1320# 1360
OPEN 205# 1551
OPT 2162 2307#
P1LOC 1128 2246#
P2LOC 1129 2247#
PA1 93#
PA2 97#
PB1 94#
PB2 98#
PBEG 1953 2043 2084#
PBYTE 1956 2046 2051 2092 2094 2096 2098#
PC1 95#
PC2 99#
PCMD 509 1877 1907#
PCSAV 626 655 713 797 2227#
PEDIT 33# 1908
PO 242 329 1121# 2086 2088 2090
PO@ 1128 2259#
PORTI 87#
PORTK 82# 398 1793 1817
PORTLC 84#
PORTLD 85#
POTB 1128# 1131
PRER 663 1640 1840 2283#
PREV 1653 1741 2237#
PRNT 58# 1613
QUERY 510 583#
QUES 134# 1927
R100 313# 314
R1LOC 1107 2244#
R2LOC 1108 2245#
RADR 220 630 639 872 956# 1833 1839 1845 1949 1964
RBYT 176# 752 878
RBYT0 175#
RBYTE 1972 1975 1977 1981 1982 1990 1997 1999 2001 2002 2058#
READ@ 511 1962#
RED1 1966# 1991
RED2 1982# 1989
RED3 1973 1996#
REDC1 1968# 1970
REDC2 1971#
REDER 1986 1993# 2003
RESC 1437 1482 1499 2280#
RESC1 1561 2282#
RESER 361 2262#
RESL 1406 1494 1505 1621 2279#
RESL1 1567 2281#
RESTA 462 672#
RGNAM 723 789#
RI 167 327 1089 1102# 2110
RI@ 1107 2258#
RIGHT 49# 1264
RITB 1107# 1110
RNAM1 2128# 2138
RNAM2 2133 2140# 2202
RNAM3 2151 2153 2158 2162#
RNAM6 2177# 2190 2195 2200
RNAM7 2185 2188#
RNAM8 2187 2196#
RNAM9 2183 2201#
RNAMC 2127 2170#
RNAME 356 2119#
ROLL 1415# 1429
ROLL1 1420# 1425
ROLL2 1430#
ROLL@ 1406#
RRAM 1542# 1544
RST1 2212#
RST10 688# 710
RST20 697 706 708#
RSTN 28# 634 643
SADR 1866 1940 2303#
SAVECD 209# 1554
SERIN 372 1805# 1807
SEROUT 244 373 1185# 1187
SETCUR 1591 1593 1595#
SMST 374 1785#
SMTAB 371#
SPACE 345 591 765 819 966 1575 1857#
SPCL 155# 336
SPSAV 445 651 677 798 2228#
SU1 873# 883
SU2 877 880#
SUB@ 57#
SUBS 512 872#
SUM 1921 2305#
SYSEND 377# 406
SYSTAB 366# 405
TAB@ 1211 1574# 1578
TABHND 226 237# 245
TABZN 1520# 1641
TBWM 1537# 1643 1688
TCARKA 1756 1765#
TCMD 513 1903#
TERM 2076#
TEXT 347 1033# 1037
THACEK 1760 1763#
TRACER 32# 1904
TVBEG 41# 69 429 1335
TVEND 69#
TVROM 40# 435
TX 353 436 449 467 918 922 1020# 1027 2171 2193
UDATA 103# 281 1189 1808
UKAZ 514 1869 1914 1940#
UMODE 106# 283 396
UP 50# 1270
UP@ 1271 1486 1505#
URES 107# 395
USTAT 104# 277 284 403 1185 1785 1805
VERIFY 515 1851#
VT 56# 1272
VT@ 1273 1401 1456#
VYPSUM 1854 1920 1930#
WIDTH 65# 68 1355 1564
WMDO 1683#
WMKOD 1647 2236# 2238
WND@ 354 1366#
WND@0 1368# 1376
WNDCD 60# 1274
WNDCH 1275 1365#
WNDP 1365 2290#
WR1 2021# 2053
WR2 2032 2035#
WR3 2034 2037#
WR4 2044# 2048
WRITE 516 2016#
X 517 715 722#
X0 727# 730
X1 725 731#
X10 734# 739
X2 731 741 743# 749 763
XDIS1 740 770#
XDISP 727 743 765#
XFLG 1221 1278 1359 2294#
XY 348 471#
Y 518 1839#
Z 519 1845#
ZCARKA 1725 1755#
ZHA0 1742# 1757 1761
ZHA1 1743# 1749
ZHA2 1746 1751#
ZHACEK 1727 1759#
ZMECS 1666 1669 1671 1696#
ZMENA 1673 1694#
65#
WNDP 1365 2290#
WR1 2021# 2053
WR2 2032 2035#
WR3 2034 2037#
WR4 2044# 2048
WRITE 516 2016#
Ú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