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