ÚVOD | Novinky | 8 Bitů | Příslušenství | Drobnosti | TTL | Kontakt


SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | PP01 | PETR | PLAN-80A | IQ151 | TNS


ZPS | Technické prostředky | Programové vybavení | Dokumentace


8 bity / SAPI-1 / Programové vybavení / V5.0 / LST MIKOS/K


Listing programu MIKOS/K V5.0


    1	                                .LIST
    2	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3	                                TITLE FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD
    4	                                ;	6.4.88
    5	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    6	                                
    7	  0000'                         	ASEG
    8	                                ;
    9	                                ;	*** DEFINOVANI PAMETOVEHO PROSTORU *
   10	                                ;
   11	  4000                          @R@	EQU	4000H	; ZACATEK
   12	  00CF                          RSTN	EQU	0CFH	; RST1 .. POUZIVA SYSTEM
   13	                                
   14	                                ;-----------------------------------------------
   15	                                
   16	  0000                          MONIT	EQU	0
   17	  0000                          ERAM	EQU	0000
   18	  1800                          EP3	EQU	1800H
   19	  3800                          TVBEG	EQU	3800H	; TV-RAM
   20	  0C00                          EPROM	EQU	0C00H
   21	                                
   22	                                ;
   23	                                ;	* MONITOR ENTRY *
   24	                                ;
   25	  0103                          CI	EQU	103H
   26	  0106                          RI	EQU	106H
   27	  0109                          CO	EQU	109H
   28	  010C                          PO	EQU	10CH
   29	  0112                          CSTS	EQU	112H
   30	  0115                          IOCHK	EQU	115H
   31	  0118                          IOSET	EQU	118H
   32	  011E                          IODEF	EQU	11EH
   33	  0121                          SPCL	EQU	121H
   34	  0124                          CRLF	EQU	124H
   35	  0127                          EXPR	EQU	127H
   36	  012A                          ERROR	EQU	12AH
   37	  012D                          ASHEX	EQU	12DH
   38	  0130                          DADR	EQU	130H
   39	  0133                          DBYT	EQU	133H
   40	  0136                          HILO	EQU	136H
   41	  0139                          NEXT	EQU	139H
   42	  013C                          SPACE	EQU	13CH
   43	  013F                          CINCR	EQU	13FH
   44	  0142                          TEXT	EQU	142H
   45	  0148                          HXASC	EQU	148H
   46	  0151                          TXIMM	EQU	151H
   47	  0154                          WND@	EQU	154H
   48	  015A                          RNAME	EQU	15AH
   49	  015D                          INTER	EQU	15DH
   50	  017B                          SERI@	EQU	17BH
   51	  017E                          SERO@	EQU	17EH
   52	  0181                          SMST@	EQU	181H
   53	                                ;
   54	                                ; TERMINAL
   55	  0018                          TLINE	EQU	24
   56	  0050                          TCOLUM	EQU	80
   57	                                ; ZAZNAM
   58	  00FF                          LENGHT	EQU	255	; DELKA BLOKU
   59	  000B                          NAMLE	EQU	11	; DELKA JMENA
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-1


   60	  0040                          COMLE	EQU	64	; DELKA KOMENTARE
   61	  00FB                          UVOD	EQU	0FBH	; SYNCHRO BLOKU
   62	                                
   63	                                ;------------------------------------------
   64	                                ; KONSTANTY
   65	  0003                          ETX	EQU	3
   66	  0008                          BS	EQU	8
   67	  0009                          HT	EQU	9
   68	  000A                          LF	EQU	0AH
   69	  000B                          VT	EQU	0BH
   70	  000D                          CR	EQU	0DH
   71	  001A                          SUBS	EQU	1AH	; END FLAG
   72	  001B                          ESC	EQU	1BH
   73	  001D                          HOME	EQU	1DH
   74	                                
   75	                                ; BLOKOVA NAVESTI
   76	  0001                          SOH	EQU	01H	; "START OF HEADER"
   77	  0004                          EOT	EQU	04H	; "END OF TEXT"
   78	  003A                          CAN	EQU	':'	; JMENO PASKY
   79	                                ;		'A'	; DATOVY (ASCII) BLOK
   80	                                ;		'B'	; BINARNI BLOK
   81	                                
   82	                                ; SERIOVY KANAL
   83	                                ; =============
   84	                                
   85	  0010                          UMODE	EQU	10H
   86	  0011                          USTAT	EQU	11H
   87	  0012                          UDATA	EQU	12H
   88	  0013                          URES	EQU	13H
   89	  000D                          PRENOS	EQU	0DH
   90	                                
   91	                                ; PARAMETRY KZD-1
   92	                                ; ===============
   93	                                
   94	  0031                          KZDIN	EQU	31H	; ADRESA VSTUPNIHO PORTU
   95	  0030                          KZDOUT	EQU	30H	; ADRESA VYSTUPNIHO PORTU
   96	  0033                          KZDCTR	EQU	33H	; ADRESA RIDICIHO REGISTRU
   97	                                			; MHB 8255
   98	                                
   99	                                
  100	                                ; VYZNAM CHYBOVYCH HLASENI (PRIZNAK Z=0):
  101	                                ; =======================================
  102	                                ; CHYBA	  <A>
  103	                                ;   0	  30H    ZAZNAM NENI POVOLEN       (SZAVP)
  104	                                ;   2     32H    CHYBA PRI CTENI DAT (CRC) (CTBLD,KOBLD)
  105	                                ;   4     34H    NESOUHLASI CISLO BLOKU	   (@READU)
  106	                                ;	         CHYBA PRI CTENI OZNACENI  (CTOZN)
  107	                                ;   6	  36H	 PRETIZENI MOTORKU	   (TEKP,CTTV)
  108	                                ;   8     38H    BYLA PRECTENA EM	   (@READU)
  109	                                ;   A	  3AH	 NENI BINARNI FORMAT	   (LOAD)
  110	                                ;   C	  3CH	 SOUBOR NEEXISTUJE	   (NUMB,CMPNM)
  111	                                
  112	                                ; DEFINICE KONSTANT:
  113	                                ; ==================
  114	  008B                          SETPPI	EQU	8BH
  115	  001F                          SETOUT	EQU	1FH
  116	  00FE                          KSCVP	EQU	0FEH
  117	  00BE                          KSCVPC	EQU	0BEH
  118	  00BB                          KSCVZC	EQU	0BBH
  119	  00BD                          KSCRVP	EQU	0BDH
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-2


  120	  00B7                          KSCRVZ	EQU	0B7H
  121	  00AE                          KSZAVP	EQU	0AEH
  122	  00FF                          KSTPCT	EQU	0FFH
  123	  00AF                          KSTPZA	EQU	0AFH
  124	  005C                          KONST1	EQU	05CH
  125	  00B3                          KPREVZ	EQU	0B3H
  126	                                
  127	                                ;************************************
  128	  0000                          	ASEG
  129	                                	ORG	EPROM	; START
  130	                                ;************************************
  131	                                
  132	                                ;====================================
  133	                                ;  T A B U L K A  S L U Z E B  K O S
  134	                                ;====================================
  135	                                
  136	  0C00    C3 0C92               	JMP	MICOS	; BRANCH TABLE
  137	  0C03    C3 0C2A               	JMP	INITS	; INIT SYSTEM
  138	  0C06    C3 0DAF               	JMP	FIND	; 1
  139	  0C09    C3 0D44               	JMP	OPEN	; 2
  140	  0C0C    C3 0E87               	JMP	CLOSE	; 3
  141	  0C0F    C3 0DE3               	JMP	LOAD	; 4
  142	  0C12    C3 0E50               	JMP	SAVE	; 5
  143	  0C15    C3 0D14               	JMP	BINAR	; 6
  144	  0C18    C3 1118               ZAC:	JMP	GET@	; 7
  145	  0C1B    C3 14ED               	JMP	REWIND	; 8
  146	  0C1E    C3 117F               	JMP	PUT@	; 9
  147	  0C21    C3 150B               	JMP	STOP	; 10
  148	  0C24    C3 0D36               	JMP	SLEN	; 11
  149	  0C27    C3 0ED4               	JMP	NUMB@	; 12
  150	                                
  151	  002A                          MAXSL	EQU	$-EPROM
  152	                                
  153	                                ;====================================
  154	                                ; INICIALIZACE SYSTEMU KOS
  155	                                ;====================================
  156	                                
  157	  0C2A    3E A9                 INITS:	MVI	A,0A9H	; LO=L,RI-1,PO-1
  158	  0C2C    32 4158               	STA	FND	; NE FIND MODE
  159	  0C2F    32 40E2               	STA	IOBYT
  160	  0C32    CD 0151               	CALL	TXIMM	; OHLASENI
  161	  0C35    4D 49 4B 4F           	DB	'MIKOS/K V5.0 '
  162	  0C39    53 2F 4B 20           
  163	  0C3D    56 35 2E 30           
  164	  0C41    20                    
  165	  0C42    28 43 29 20           	DC	'(C) TESLA DIZ 1987 '
  166	  0C46    54 45 53 4C           
  167	  0C4A    41 20 44 49           
  168	  0C4E    5A 20 31 39           
  169	  0C52    38 37 A0              
  170	  0C55    21 0C81               	LXI	H,KOS@@
  171	  0C58    22 40D1               	SHLD	KOS@+1
  172	  0C5B    AF                    	XRA	A
  173	  0C5C    32 40E4               	STA	@IF1	; FIND FLAG
  174	  0C5F    32 40E6               	STA	@OF1
  175	  0C62    32 4280               	STA	JEVER	; NENI VERIFIKACE
  176	  0C65    21 0C18               	LXI	H,ZAC
  177	  0C68    11 40AC               	LXI	D,R1LOC
  178	  0C6B    06 0C                 	MVI	B,12
  179	  0C6D    CD 1496               	CALL	MOVE
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-3


  180	  0C70    CD 1512               	CALL	INITIO	 ; INICIALIZACE 8255
  181	  0C73    3E FF                 	MVI	A,LENGHT ; IMPLICITNI DELKA
  182	  0C75    32 427F               	STA	DEBL	 ; BLOKU
  183	  0C78    3A 1800               	LDA	EP3	; USER SYSTEM ?
  184	  0C7B    FE C3                 	CPI	0C3H
  185	  0C7D    CC 1803               	CZ	EP3 + 3	; START
  186	  0C80    C9                    	RET
  187	                                
  188	                                ;===================================
  189	                                ;  VYHODNOCENI SLUZBY MONITORU
  190	                                ;===================================
  191	                                
  192	  0C81    0C                    KOS@@:	INR	C
  193	  0C82    11 0C00               	LXI	D,EPROM
  194	  0C85    06 2A                 	MVI	B,MAXSL
  195	  0C87    EB                    SLUZBA:	XCHG		; JMENO
  196	  0C88    79                    	MOV	A,C
  197	  0C89    81                    	ADD	C
  198	  0C8A    81                    	ADD	C	; *3
  199	  0C8B    B8                    	CMP	B
  200	  0C8C    D0                    	RNC		; VETSI
  201	  0C8D    06 00                 	MVI	B,0
  202	  0C8F    4F                    	MOV	C,A	; OFFSET
  203	  0C90    09                    	DAD	B	; VYPOCTI ADR
  204	  0C91    E9                    	PCHL
  205	                                
  206	                                ;===================================
  207	                                ; VYHODNOCENI POVELU OBSLUHY
  208	                                ;===================================
  209	                                
  210	  0C92    CD 150B               MICOS:	CALL	STOP
  211	  0C95    AF                    	XRA	A
  212	  0C96    32 4101               	STA	EXTEXT	; 0..NENI
  213	  0C99    0E 5F                 	MVI	C,'_'
  214	  0C9B    3A 4280               	LDA	JEVER
  215	  0C9E    B7                    	ORA	A
  216	  0C9F    CA 0CA4               	JZ	$+5
  217	  0CA2    0E 2A                 	MVI	C,'*'	; PRO VERIFIKACI
  218	  0CA4    CD 0109               	CALL	CO
  219	  0CA7    CD 148D               	CALL	ECHOCR
  220	  0CAA    FE 49                 	CPI	'I'
  221	  0CAC    CA 0F10               	JZ	INIT	; INICIALIZACE PASKY
  222	  0CAF    FE 4F                 	CPI	'O'
  223	  0CB1    CA 0D44               	JZ	OPEN	; OPEN OUTPUT
  224	  0CB4    FE 43                 	CPI	'C'	; CLOSE OUTPUT
  225	  0CB6    CA 0E87               	JZ	CLOSE
  226	  0CB9    FE 46                 	CPI	'F'	; FIND INPUT
  227	  0CBB    CA 0DAF               	JZ	FIND
  228	  0CBE    FE 53                 	CPI	'S'
  229	  0CC0    CA 0E50               	JZ	SAVE
  230	  0CC3    FE 4C                 	CPI	'L'	; LOAD
  231	  0CC5    CA 0DE3               	JZ	LOAD
  232	  0CC8    FE 45                 	CPI	'E'
  233	  0CCA    CA 15DE               	JZ	EOR
  234	  0CCD    FE 5A                 	CPI	'Z'
  235	  0CCF    CA 153F               	JZ	@BOT	; NASTAV NA "BOT"
  236	  0CD2    FE 42                 	CPI	'B'
  237	  0CD4    CA 15B2               	JZ	@BLOK	; O BLOK VPRED
  238	  0CD7    FE 3E                 	CPI	'>'
  239	  0CD9    CA 1561               	JZ	@SKIP	; O SOUBOR VPRED
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-4


  240	  0CDC    FE 3C                 	CPI	'<'
  241	  0CDE    CA 1573               	JZ	@BACK	; O SOUBOR VZAD
  242	  0CE1    FE 56                 	CPI	'V'
  243	  0CE3    CA 0D3B               	JZ	VERIF	; NASTAV VERIFIKACI
  244	  0CE6    FE 50                 	CPI	'P'
  245	  0CE8    CA 11BE               	JZ	VRF1	; POROVNANI 1 SOUBORU
  246	  0CEB    FE 52                 	CPI	'R'
  247	  0CED    16 01                 	MVI	D,1
  248	  0CEF    CA 14ED               	JZ	REWIND	; PREVINUTI NA ZACATEK
  249	  0CF2    FE 44                 	CPI	'D'
  250	  0CF4    CA 15E2               	JZ	@EOR	; ADRESAR KAZETY
  251	  0CF7    FE 4E                 	CPI	'N'
  252	  0CF9    CA 0EBC               	JZ	NUMB	; NAJDI DLE CISLA SOUBORU
  253	  0CFC    FE 58                 	CPI	'X'
  254	  0CFE    CA 0D20               	JZ	SLEN@	; NASTAV DELKU BLOKU
  255	  0D01    FE 4B                 	CPI	'K'	; ZAPIS EM
  256	  0D03    C0                    	RNZ		; JINY POVEL
  257	                                
  258	                                ;************************************
  259	                                ; REALIZACE POVELU KOS-1
  260	                                ;************************************
  261	                                
  262	                                ;====================================
  263	                                ; ZAPIS EM NA PASKU
  264	                                ;====================================
  265	                                
  266	  0D04    CD 141D               KONEC:	CALL	OK?
  267	  0D07    C0                    	RNZ		; NEPIS
  268	  0D08    CD 1525               	CALL	SCVZC
  269	  0D0B    CD 15C4               	CALL	HLKMM
  270	  0D0E    CD 158F               	CALL	ZAKMM
  271	  0D11    C3 10F1               	JMP	ZAKS1-1
  272	                                
  273	                                ;====================================
  274	                                ; BINARNI SOUBOR NASTAV
  275	                                ;====================================
  276	                                
  277	  0D14    3E 42                 BINAR:	MVI	A,'B'
  278	  0D16    32 4159               	STA	BOUT-1
  279	  0D19    C9                    	RET
  280	                                
  281	                                ;====================================
  282	                                ; UZAVRI A PRIPOJ DALSI SOUBOR
  283	                                ;====================================
  284	                                
  285	  0D1A    CD 0E87               NOVYOT:	CALL	CLOSE
  286	  0D1D    C3 0D78               	JMP	OPE4
  287	                                
  288	                                ;====================================
  289	                                ; NASTAV DELKU BLOKU
  290	                                ;	VSTUP:	E - DELKA BLOKU
  291	                                ;	       (PRI VOLANI SLUZBY 157
  292	                                ;		JE DELKA BLOKU V <L>
  293	                                ;====================================
  294	                                
  295	  0D20    CD 0151               SLEN@:	CALL	TXIMM
  296	  0D23    0D 0A                 	DB	CR,LF
  297	  0D25    44 45 4C 4B           	DC	'DELKA BLOKU'
  298	  0D29    41 20 42 4C           
  299	  0D2D    4F 4B D5              
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-5


  300	  0D30    0E 01                 	MVI	C,1
  301	  0D32    CD 0127               	CALL	EXPR
  302	  0D35    D1                    	POP	D
  303	  0D36    7B                    SLEN:	MOV	A,E
  304	  0D37    32 427F               	STA	DEBL	; NOVA DELKA BLOKU
  305	  0D3A    C9                    	RET
  306	                                
  307	                                ;====================================
  308	                                ; PREPNI NASTAVENI VERIFIKACE
  309	                                ;====================================
  310	                                
  311	  0D3B    3A 4280               VERIF:	LDA	JEVER
  312	  0D3E    EE FF                 	XRI	0FFH
  313	  0D40    32 4280               	STA	JEVER
  314	  0D43    C9                    	RET
  315	                                
  316	                                ;====================================
  317	                                ; OTEVRI NOVY SOUBOR PRO ZAPIS
  318	                                ;====================================
  319	                                
  320	  0D44    AF                    OPEN:	XRA	A
  321	  0D45    CD 1443               	CALL	IOPO	; NASTAV IOBYT
  322	  0D48    CD 1431               	CALL	NPO
  323	  0D4B    F8                    	RM		; PO=SYSTEM..
  324	  0D4C    0E 02                 	MVI	C,2
  325	  0D4E    C2 40D9               	JNZ	CCPM	; USER=2
  326	  0D51    CD 015A               	CALL	RNAME
  327	  0D54    FE 40                 	CPI	'@'	; VYBER
  328	  0D56    CA 0D99               	JZ	OPE2	; ZA SOUBOR
  329	  0D59    FE 2E                 	CPI	'.'
  330	  0D5B    C2 0D8A               	JNZ	OPE5	; NA KONEC (APPEND)
  331	  0D5E    CD 1545               	CALL	BOT	; OD ZACATKU
  332	  0D61    E5                    	PUSH	H
  333	  0D62    CD 0FA1               OPE1:	CALL	SEARCH	; KONEC ZAZNAMU ?
  334	  0D65    CD 0F98               	CALL	VYPISH	; SOH
  335	  0D68    79                    	MOV	A,C
  336	  0D69    32 4151               	STA	BTO	; CISLO SOUBORU
  337	  0D6C    CD 1567               	CALL	SKIP
  338	  0D6F    CD 150B               	CALL	STOP
  339	  0D72    CD 141D               	CALL	OK?
  340	  0D75    C2 0D62               	JNZ	OPE1	; DALSI SOUBOR
  341	  0D78    2A 4150               OPE4:	LHLD	BNO	; CISLO SOUBORU
  342	  0D7B    24                    	INR	H
  343	  0D7C    2E 00                 	MVI	L,0
  344	  0D7E    22 4150               	SHLD	BNO	; CISLO BLOKU A SOUBORU
  345	  0D81    3E 01                 	MVI	A,SOH
  346	  0D83    32 40E6               	STA	@OF1
  347	  0D86    E1                    	POP	H
  348	  0D87    C3 0F27               	JMP	WRNAM
  349	                                
  350	  0D8A    3E 08                 OPE5:	MVI	A,8	; NASTAV PO=1
  351	  0D8C    CD 1449               	CALL	IOPO1
  352	  0D8F    E5                    	PUSH	H
  353	  0D90    CD 1280               	CALL	BLOK4
  354	  0D93    CD 15DE               	CALL	EOR
  355	  0D96    C3 0D78               	JMP	OPE4
  356	                                
  357	  0D99    3E 08                 OPE2:	MVI	A,8
  358	  0D9B    CD 1449               	CALL	IOPO1
  359	  0D9E    3A 40E6               	LDA	@OF1	; PODRUHE ?
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-6


  360	  0DA1    B7                    	ORA	A
  361	  0DA2    C2 0D1A               	JNZ	NOVYOT
  362	  0DA5    E5                    	PUSH	H
  363	  0DA6    CD 1520               	CALL	SCVPC
  364	  0DA9    CD 1582               	CALL	HLDMM	; ZA SOUBOR
  365	  0DAC    C3 0D78               	JMP	OPE4
  366	                                
  367	                                ;====================================
  368	                                ; OTEVRI SOUBOR PRO CTENI
  369	                                ;====================================
  370	                                
  371	  0DAF    AF                    FIND:	XRA	A
  372	  0DB0    CD 144E               	CALL	IORI
  373	  0DB3    CD 143D               	CALL	NRI
  374	  0DB6    F8                    	RM		; SYSTEM RI
  375	  0DB7    0E 01                 	MVI	C,1
  376	  0DB9    C2 40D9               	JNZ	CCPM	; USER 2
  377	  0DBC    CD 015A               	CALL	RNAME
  378	  0DBF    FE 2E                 	CPI	'.'
  379	  0DC1    CC 1545               	CZ	BOT
  380	  0DC4    06 0B                 	MVI	B,NAMLE
  381	  0DC6    11 4144               	LXI	D,FNAME
  382	  0DC9    CD 1496               	CALL	MOVE
  383	  0DCC    CD 0F5B               	CALL	CMPNM
  384	  0DCF    61                    FIND1:	MOV	H,C	; CISLO SOUBORU
  385	  0DD0    2E 01                 	MVI	L,1
  386	  0DD2    22 4152               	SHLD	BNI
  387	  0DD5    22 4150               	SHLD	BNO	; PRO ZAPIS (PO "K_N")
  388	  0DD8    7D                    	MOV	A,L
  389	  0DD9    32 40E4               	STA	@IF1
  390	  0DDC    CD 1174               	CALL	BUFEND
  391	  0DDF    22 4156               	SHLD	ADRI
  392	  0DE2    C9                    	RET
  393	                                
  394	                                ;====================================
  395	                                ; CTI BINARNI SOUBOR
  396	                                ;====================================
  397	                                ;
  398	  0DE3    CD 0DAF               LOAD:	CALL	FIND	; OTEVRI SOUBOR
  399	  0DE6    CD 12C8               LO1:	CALL	RICH
  400	  0DE9    B7                    	ORA	A	; BLANK?
  401	  0DEA    CA 0DE6               	JZ	LO1
  402	  0DED    D6 3C                 	SUI	'<'
  403	  0DEF    F5                    	PUSH	PSW
  404	  0DF0    3E 3A                 	MVI	A,3AH
  405	  0DF2    C2 128E               	JNZ	ERREND	; NENI BINARNI FORMAT
  406	  0DF5    F1                    	POP	PSW
  407	  0DF6    47                    	MOV	B,A	; KONTROLNI SOUCET
  408	  0DF7    CD 12BF               	CALL	RADR@
  409	  0DFA    22 40FE               	SHLD	EADR	; KONCOVA ADRESA
  410	  0DFD    EB                    	XCHG
  411	  0DFE    CD 12BF               	CALL	RADR@
  412	  0E01    22 40FC               	SHLD	SADR	; START. ADRESA
  413	  0E04    CD 12C8               	CALL	RICH
  414	  0E07    FE 3E                 	CPI	'>'
  415	  0E09    F5                    	PUSH	PSW
  416	  0E0A    3E 3A                 	MVI	A,3AH
  417	  0E0C    C2 128E               	JNZ	ERREND	; NENI BINAR
  418	  0E0F    F1                    	POP	PSW
  419	  0E10    E5                    	PUSH	H
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-7


  420	  0E11    CD 12B9               	CALL	CHECK
  421	  0E14    06 00                 	MVI	B,0	; NULUJ
  422	  0E16    CD 12C8               LO2:	CALL	RICH
  423	  0E19    77                    	MOV	M,A
  424	  0E1A    CD 0136               	CALL	HILO
  425	  0E1D    D2 0E16               	JNC	LO2
  426	  0E20    CD 12B9               	CALL	CHECK
  427	  0E23    32 4100               	STA	SUM
  428	  0E26    E1                    	POP	H
  429	  0E27    11 4401               	LXI	D,4401H
  430	  0E2A    CD 0136               	CALL	HILO
  431	  0E2D    C2 0E36               	JNZ	CLSTP
  432	  0E30    21 0000               	LXI	H,0
  433	  0E33    22 40FA               	SHLD	@BT
  434	                                
  435	                                ; UZAVRI VSTUPNI SOUBOR
  436	  0E36    CD 0124               CLSTP:	CALL	CRLF
  437	  0E39    CD 143D               	CALL	NRI
  438	  0E3C    F8                    	RM
  439	  0E3D    C2 0E4B               	JNZ	CLST2
  440	  0E40    AF                    DIRSTP:	XRA	A
  441	  0E41    32 40E4               	STA	@IF1	; CLOSE
  442	  0E44    2F                    	CMA
  443	  0E45    32 427F               	STA	DEBL	; BLOK 255 B
  444	  0E48    C3 1561               	JMP	@SKIP	; ZA EM A STOP
  445	  0E4B    AF                    CLST2:	XRA	A
  446	  0E4C    32 40E5               	STA	@IF2
  447	  0E4F    C9                    	RET
  448	                                ;====================================
  449	                                ; ULOZ BINARNI SOUBOR
  450	                                ;====================================
  451	                                
  452	  0E50    CD 0D44               SAVE:	CALL	OPEN
  453	  0E53    0E 02                 	MVI	C,2
  454	  0E55    CD 0127               	CALL	EXPR	; ROZSAH ADRES
  455	  0E58    CD 1431               	CALL	NPO
  456	  0E5B    CC 0D14               	CZ	BINAR
  457	  0E5E    0E 3C                 	MVI	C,'<'	; PRVNI BYTE
  458	  0E60    CD 12D8               	CALL	POCH
  459	  0E63    06 00                 	MVI	B,0	; KONTROLNI SOUCET
  460	  0E65    E1                    	POP	H	; POCATECNI ADRESA
  461	  0E66    D1                    	POP	D	; KONCOVA ADRESA
  462	  0E67    CD 12D3               	CALL	PADR@
  463	  0E6A    EB                    	XCHG
  464	  0E6B    CD 12D3               	CALL	PADR@
  465	  0E6E    0E 3E                 	MVI	C,'>'
  466	  0E70    CD 12D8               	CALL	POCH
  467	  0E73    48                    	MOV	C,B	; KONTROLNI SUMA ADRES
  468	  0E74    CD 12D8               	CALL	POCH
  469	  0E77    06 00                 	MVI	B,0	; KONTROLNI SUMA DAT
  470	  0E79    4E                    SAV1:	MOV	C,M
  471	  0E7A    CD 12D8               	CALL	POCH
  472	  0E7D    CD 0136               	CALL	HILO
  473	  0E80    D2 0E79               	JNC	SAV1
  474	  0E83    48                    	MOV	C,B	; SUMA
  475	  0E84    CD 12D8               	CALL	POCH
  476	                                
  477	                                ;====================================
  478	                                ; UZAVRI VYSTUPNI SOUBOR
  479	                                ;====================================
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-8


  480	                                
  481	  0E87    CD 1431               CLOSE:	CALL	NPO
  482	  0E8A    F8                    	RM
  483	  0E8B    0E 03                 	MVI	C,3
  484	  0E8D    C2 40D9               	JNZ	CCPM
  485	  0E90    3A 40E6               CLOSE0:	LDA	@OF1	; NENI OTEVREN
  486	  0E93    B7                    	ORA	A
  487	  0E94    C8                    	RZ
  488	  0E95    D5                    	PUSH	D
  489	  0E96    E5                    	PUSH	H
  490	  0E97    2A 4154               	LHLD	ADRO
  491	  0E9A    23                    	INX	H
  492	  0E9B    36 1A                 	MVI	M,SUBS	; ZAPIS POSLEDNI ZNAK
  493	  0E9D    3E 04                 	MVI	A,EOT	; UZAVRI BLOK
  494	  0E9F    32 4159               	STA	BOUT-1
  495	  0EA2    CD 10B4               	CALL	WOB
  496	  0EA5    AF                    	XRA	A
  497	  0EA6    32 40E6               	STA	@OF1	; CLOSE
  498	  0EA9    CD 1630               	CALL	EOR1	; PRED EM
  499	  0EAC    3A 4280               	LDA	JEVER
  500	  0EAF    B7                    	ORA	A
  501	  0EB0    CA 0EB9               	JZ	CLOSE1
  502	  0EB3    CD 1579               	CALL	BACK
  503	  0EB6    CD 11BE               	CALL	VRF1
  504	  0EB9    E1                    CLOSE1:	POP	H
  505	  0EBA    D1                    	POP	D
  506	  0EBB    C9                    	RET
  507	                                
  508	                                ;====================================
  509	                                ; NAJDI SOUBOR DLE CISLA A OTEVRI
  510	                                ;	VSTUP: PRO VOLANI SLUZBOU 157
  511	                                ;	       L - CISLO SOUBORU
  512	                                ;====================================
  513	                                
  514	  0EBC    CD 0151               NUMB:	CALL	TXIMM
  515	  0EBF    0D 0A                 	DB	CR,LF
  516	  0EC1    43 49 53 4C           	DC	'CISLO SOUBORU'
  517	  0EC5    4F 20 53 4F           
  518	  0EC9    55 42 4F 52           
  519	  0ECD    D5                    
  520	  0ECE    0E 01                 	MVI	C,1
  521	  0ED0    CD 0127               	CALL	EXPR
  522	  0ED3    D1                    	POP	D
  523	  0ED4    7B                    NUMB@:	MOV	A,E	; CISLO SOUBORU
  524	  0ED5    B7                    	ORA	A
  525	  0ED6    CA 0F07               	JZ	NUM4	; PRO SOUBOR "00"
  526	  0ED9    F5                    	PUSH	PSW
  527	  0EDA    CD 0FA1               	CALL	SEARCH
  528	  0EDD    FE 38                 	CPI	38H
  529	  0EDF    CA 0EF1               	JZ	NUM2	; PRO EM
  530	  0EE2    F1                    NUM1:	POP	PSW
  531	  0EE3    B9                    	CMP	C	; CISLO SOUBORU ?
  532	  0EE4    CA 0DCF               	JZ	FIND1	; OK - NASEL
  533	  0EE7    F5                    	PUSH	PSW	; CISLO SOUBORU ZADANE
  534	  0EE8    DA 0EF1               	JC	NUM2	; PRO A<C ZPET
  535	  0EEB    CD 1567               	CALL	SKIP	; PRO A>C VPRED
  536	  0EEE    C3 0EF7               	JMP	NUM3
  537	  0EF1    CD 1579               NUM2:	CALL	BACK	; PRO A<C
  538	  0EF4    CD 1579               	CALL	BACK
  539	  0EF7    CD 0FA1               NUM3:	CALL	SEARCH
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-9


  540	  0EFA    FE 38                 	CPI	38H
  541	  0EFC    C2 0EE2               	JNZ	NUM1
  542	  0EFF    CD 1630               	CALL	EOR1
  543	  0F02    3E 3C                 	MVI	A,3CH	; SOUBOR NEEXISTUJE
  544	  0F04    C3 128E               	JMP	ERREND
  545	  0F07    32 4151               NUM4:	STA	BTO	; CISLO SOUBORU PRO ZAPIS
  546	  0F0A    CD 1545               	CALL	BOT
  547	  0F0D    C3 15B2               	JMP	@BLOK	; NAZEV PASKY
  548	                                
  549	                                
  550	                                ;====================================
  551	                                ; INICIALIZUJ NOVOU KAZETU
  552	                                ;====================================
  553	                                
  554	  0F10    CD 163F               INIT:	CALL	FORM	; FORMATOVANI
  555	  0F13    CD 0151               	CALL	TXIMM
  556	  0F16    20 5A 41 44           	DC	' ZADEJ'
  557	  0F1A    45 CA                 
  558	  0F1C    21 0000               	LXI	H,0	; CISLO SOUBORU
  559	  0F1F    22 4150               	SHLD	BNO	; A BLOKU
  560	  0F22    CD 015A               	CALL	RNAME	; JMENO PASKY
  561	  0F25    3E 3A                 	MVI	A,CAN
  562	                                
  563	                                ; ZAPIS JMENO SOUBORU
  564	                                
  565	  0F27    E5                    WRNAM:	PUSH	H
  566	  0F28    F5                    	PUSH	PSW
  567	  0F29    CD 10FF               	CALL	NULBF
  568	  0F2C    F1                    	POP	PSW
  569	  0F2D    77                    	MOV	M,A
  570	  0F2E    23                    	INX	H
  571	  0F2F    06 40                 	MVI	B,COMLE	; JMENO+POZNAMKA
  572	  0F31    EB                    	XCHG
  573	  0F32    E1                    	POP	H
  574	  0F33    D5                    	PUSH	D
  575	  0F34    CD 1496               	CALL	MOVE
  576	  0F37    E1                    	POP	H
  577	  0F38    06 0B                 	MVI	B,NAMLE
  578	  0F3A    11 4259               	LXI	D,WRNM	; VYSTUPNI POLE
  579	  0F3D    7E                    WRN1:	MOV	A,M
  580	  0F3E    B7                    	ORA	A
  581	  0F3F    C2 0F44               	JNZ	$+5
  582	  0F42    3E 20                 	MVI	A,' '	; BLANK
  583	  0F44    12                    	STAX	D
  584	  0F45    23                    	INX	H
  585	  0F46    13                    	INX	D
  586	  0F47    05                    	DCR	B
  587	  0F48    C2 0F3D               	JNZ	WRN1
  588	  0F4B    CD 15AB               	CALL	ZADMM	; DMM PRED SOUBOREM
  589	  0F4E    0E 41                 	MVI	C,COMLE+1 ; DELKA BLOKU
  590	  0F50    CD 10B9               	CALL	WOB1
  591	  0F53    36 41                 	MVI	M,'A'	; TYP DATA
  592	  0F55    C3 0124               	JMP	CRLF
  593	                                
  594	                                ;====================================
  595	                                
  596	                                ; TEST NA JMENO
  597	                                
  598	  0F58    CD 0FAD               	CALL	PHDR
  599	  0F5B    CD 0FA1               CMPNM:	CALL	SEARCH	; POROVNEJ JMENO
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-10


  600	  0F5E    FE 38                 	CPI	38H
  601	  0F60    C2 0F68               	JNZ	CMPN1
  602	  0F63    3E 3C                 	MVI	A,3CH	; KONEC SOUBORU
  603	  0F65    C3 128E               	JMP	ERREND
  604	  0F68    3A 4159               CMPN1:	LDA	BIN-1
  605	  0F6B    FE 3A                 	CPI	CAN
  606	  0F6D    CA 0F58               	JZ	CMPNM-3	; VYPIS VOLUME JMENO
  607	                                			; PRO ZAPIS
  608	  0F70    C5                    CPF10:	PUSH	B	; <C> - CISLO SOUBORU
  609	  0F71    01 4144               	LXI	B,FNAME
  610	  0F74    21 4159               	LXI	H,BIN-1
  611	  0F77    1E 0B                 	MVI	E,NAMLE
  612	  0F79    CD 0F84               	CALL	TESTJM
  613	  0F7C    C1                    	POP	B
  614	  0F7D    C8                    	RZ		; OK - NASEL
  615	  0F7E    CD 1567               	CALL	SKIP
  616	  0F81    C3 0F5B               	JMP	CMPNM	; DALSI JMENO
  617	                                
  618	  0F84    23                    TESTJM:	INX	H	; JMENO
  619	  0F85    0A                    	LDAX	B
  620	  0F86    FE 2A                 	CPI	'*'
  621	  0F88    CA 141A               	JZ	JMENO?
  622	  0F8B    CD 1412               	CALL	@ANAL
  623	  0F8E    CA 0F98               	JZ	VYPISH
  624	  0F91    BE                    	CMP	M
  625	  0F92    C0                    	RNZ
  626	  0F93    03                    	INX	B
  627	  0F94    1D                    	DCR	E
  628	  0F95    C2 0F84               	JNZ	TESTJM
  629	                                
  630	                                
  631	                                ; VYPIS HLAVICKU
  632	                                
  633	  0F98    C5                    VYPISH:	PUSH	B
  634	  0F99    D5                    	PUSH	D
  635	  0F9A    CD 0FAD               	CALL	PHDR
  636	  0F9D    D1                    VYP1:	POP	D
  637	  0F9E    C1                    	POP	B
  638	  0F9F    AF                    	XRA	A
  639	  0FA0    C9                    	RET
  640	                                
  641	                                
  642	  0FA1    CD 1520               SEARCH:	CALL	SCVPC	; NALEZENI SOUBORU
  643	  0FA4    CD 1582               	CALL	HLDMM	; NA PASCE A TEST
  644	  0FA7    CD 1048               	CALL	READBL
  645	  0FAA    C3 150B               	JMP	STOP
  646	                                
  647	                                
  648	                                ; TISK HLAVICKY SOUBORU
  649	                                
  650	  0FAD    CD 0124               PHDR:	CALL	CRLF
  651	  0FB0    21 415A               PHDR1:	LXI	H,BIN
  652	  0FB3    16 40                 	MVI	D,COMLE
  653	  0FB5    C3 0142               	JMP	TEXT
  654	                                
  655	  0FB8    C5                    PDIR:	PUSH	B
  656	  0FB9    79                    	MOV	A,C
  657	  0FBA    CD 0FE5               	CALL	DBTV2
  658	  0FBD    CD 0FB0               	CALL	PHDR1
  659	  0FC0    CD 013C               	CALL	SPACE
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-11


  660	  0FC3    C1                    	POP	B
  661	  0FC4    C9                    	RET
  662	                                
  663	                                
  664	                                ; VYPIS NA CO PRO IDENTIFIKACI BLOKU
  665	                                
  666	  0FC5    21 4264               PNAME:	LXI	H,READNM ; VYPIS "E" ZNAKU Z POLE
  667	  0FC8    7E                    PNAM1:	MOV	A,M	 ; READNM NA CO
  668	  0FC9    FE 1F                 	CPI	1FH
  669	  0FCB    D2 0FD0               	JNC	PNAM2
  670	  0FCE    C6 40                 	ADI	40H	; KOD SAPI-1 NA ASCII
  671	  0FD0    4F                    PNAM2:	MOV	C,A
  672	  0FD1    CD 0109               	CALL	CO
  673	  0FD4    23                    	INX	H
  674	  0FD5    1D                    	DCR	E
  675	  0FD6    C2 0FC8               	JNZ	PNAM1
  676	  0FD9    C9                    	RET
  677	                                
  678	                                
  679	  0FDA    CD 0124               DBTCR:	CALL	CRLF
  680	  0FDD    7A                    DBTV:	MOV	A,D
  681	  0FDE    CD 0133               	CALL	DBYT
  682	  0FE1    CD 013C               DBTV1:	CALL	SPACE
  683	  0FE4    78                    	MOV	A,B
  684	  0FE5    CD 0133               DBTV2:	CALL	DBYT
  685	  0FE8    C3 013C               	JMP	SPACE
  686	                                
  687	                                
  688	  0FEB    2A 427A               OBNOV:	LHLD	POSICE	; VRACENI OKNA
  689	  0FEE    CD 0151               	CALL	TXIMM
  690	  0FF1    9B                    	DB	9BH	; ESC
  691	  0FF2    4D                    	MOV	C,L
  692	  0FF3    CD 0109               	CALL	CO
  693	  0FF6    4C                    	MOV	C,H
  694	  0FF7    CD 0109               	CALL	CO
  695	  0FFA    3A 427C               	LDA	MOD@
  696	  0FFD    32 40E3               	STA	MODE
  697	  1000    C9                    	RET
  698	                                
  699	                                
  700	  1001    D5                    OKNO:	PUSH	D	; NASTAVENI OKNA
  701	  1002    C5                    	PUSH	B
  702	  1003    21 40E3               	LXI	H,MODE
  703	  1006    7E                    	MOV	A,M
  704	  1007    36 00                 	MVI	M,0	; ZRUS ^P
  705	  1009    32 427C               	STA	MOD@
  706	  100C    CD 0121               	CALL	SPCL
  707	  100F    21 2020               	LXI	H,2020H
  708	  1012    19                    	DAD	D
  709	  1013    22 427A               	SHLD	POSICE
  710	  1016    CD 0151               	CALL	TXIMM
  711	  1019    9D                    	DB	HOME OR 80H
  712	  101A    C1                    	POP	B
  713	  101B    D1                    	POP	D
  714	  101C    C9                    	RET
  715	                                
  716	                                
  717	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  718	                                
  719	                                ;  OPERACE SE SOUBORY
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-12


  720	                                
  721	                                ;=======================================
  722	                                ; CTI VSTUPNI BUFFER
  723	                                ;=======================================
  724	                                
  725	  101D    D5                    RIB:	PUSH	D
  726	  101E    C5                    	PUSH	B
  727	  101F    AF                    	XRA	A
  728	  1020    32 4158               	STA	FND	; FIND MOD
  729	  1023    CD 1048               	CALL	READBL
  730	  1026    B7                    	ORA	A
  731	  1027    C2 1263               	JNZ	ERRD	; CHYBA CTENI BLOKU
  732	  102A    CD 103E               	CALL	NUFIL	; CISLA OK ?
  733	  102D    C2 1263               	JNZ	ERRD
  734	  1030    22 4152               RIB1:	SHLD	BNI
  735	  1033    C1                    	POP	B
  736	  1034    D1                    	POP	D
  737	  1035    3A 4159               RIB2:	LDA	BIN-1	; TYP BLOKU
  738	  1038    FE 3A                 	CPI	CAN	; NAZEV PASKY
  739	  103A    C8                    	RZ
  740	  103B    FE 01                 	CPI	SOH	; JMENO SOUBORU
  741	  103D    C9                    	RET		; <A> = TYP BLOKU
  742	                                
  743	                                
  744	  103E    2A 4152               NUFIL:	LHLD	BNI
  745	  1041    23                    	INX	H	; CISLO BLOKU
  746	  1042    79                    	MOV	A,C
  747	  1043    BC                    	CMP	H	; OK?
  748	  1044    C0                    	RNZ
  749	  1045    78                    	MOV	A,B
  750	  1046    BD                    	CMP	L	; CISLO SOUBORU ?
  751	  1047    C9                    	RET
  752	                                
  753	                                
  754	                                ;=============================================
  755	                                ; CTENI BLOKU	VYSTUP:	B -CISLO BLOKU CTENE 
  756	                                ;			C -CISLO SOUBORU CTENE
  757	                                ;			A =0 - CTENI OK
  758	                                ;			A<>0 - CHYBA
  759	                                ;=============================================
  760	                                
  761	  1048    CD 1093               READBL:	CALL	@READU	; CTENI UVODU BLOKU
  762	  104B    B7                    	ORA	A
  763	  104C    C2 1068               	JNZ	KONBL1	; PRO CHYBU
  764	  104F    21 4264               	LXI	H,READNM
  765	  1052    36 3A                 	MVI	M,':'	; VYHLEDAVANI
  766	  1054    3A 4158               	LDA	FND
  767	  1057    B7                    	ORA	A
  768	  1058    C2 1062               	JNZ	KONBL0
  769	  105B    36 2A                 	MVI	M,'*'
  770	  105D    79                    	MOV	A,C
  771	  105E    3D                    	DCR	A
  772	  105F    32 427F               	STA	DEBL	; DELKA BLOKU
  773	  1062    23                    KONBL0:	INX	H
  774	  1063    36 22                 	MVI	M,'"'
  775	  1065    CD 1335               	CALL	CTBLD	; CTENI BLOKU DAT
  776	                                
  777	  1068    F5                    KONBL1:	PUSH	PSW	; <A> = CHYBA
  778	  1069    3A 4159               	LDA	BIN-1
  779	  106C    FE 42                 	CPI	'B'
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-13


  780	  106E    CA 1078               	JZ	KONBL2	; NENI STOP
  781	  1071    3A 4158               	LDA	FND
  782	  1074    B7                    	ORA	A
  783	  1075    CC 150B               	CZ	STOP
  784	  1078    CD 1001               KONBL2:	CALL	OKNO
  785	  107B    1E 0F                 	MVI	E,15
  786	  107D    7B                    	MOV	A,E
  787	  107E    32 4158               	STA	FND	; NE FIND MOD
  788	  1081    CD 0FC5               	CALL	PNAME	; VYPIS JMENA
  789	  1084    CD 0FDD               	CALL	DBTV
  790	  1087    CD 0FEB               	CALL	OBNOV
  791	  108A    21 4159               	LXI	H,BIN-1
  792	  108D    22 4156               	SHLD	ADRI
  793	  1090    F1                    	POP	PSW
  794	  1091    4A                    	MOV	C,D	; CISLO SOUBORU
  795	  1092    C9                    	RET		; A=0  PRO OK
  796	                                			; A<>0 PRO CHYBU
  797	                                
  798	                                ;==============================================
  799	                                ; CTENI UVODU BLOKU
  800	                                ;	VYSTUP: B - CISLO BLOKU CTENE
  801	                                ;		C - DELKA BLOKU
  802	                                ;		D - CISLO SOUBORU CTENE
  803	                                ;	  NEBO  VIZ TEKP
  804	                                ;===========================================
  805	                                
  806	  1093    CD 1520               @READU:	CALL	SCVPC
  807	  1096    CD 15C4               	CALL	HLKMM
  808	  1099    C0                    	RNZ		; PRO CHYBU (A=31)
  809	  109A    CD 151B               	CALL	SCVP
  810	  109D    CD 12DE               	CALL	CTTV
  811	  10A0    FE 36                 	CPI	36H
  812	  10A2    CA 128E               	JZ	ERREND	; KONEC PASKY
  813	  10A5    4F                    	MOV	C,A
  814	  10A6    B7                    	ORA	A
  815	  10A7    3E 38                 	MVI	A,38H
  816	  10A9    C8                    	RZ		; PRO KONEC SOUBORU
  817	  10AA    79                    	MOV	A,C
  818	  10AB    FE FB                 	CPI	UVOD
  819	  10AD    C0                    	RNZ		; NENI SYNCHRONIZACE
  820	  10AE    CD 131B               	CALL	CTOZN
  821	  10B1    C0                    	RNZ		; PRO CHYBU CTENI ONACENI
  822	  10B2    AF                    	XRA	A	;   BLOKU (A=34)
  823	  10B3    C9                    	RET		; PRO CTOZN OK
  824	                                
  825	                                
  826	                                ;==============================================
  827	                                ; ZAPIS VYSTUPNI BUFFER
  828	                                ;==============================================
  829	                                
  830	  10B4    3A 427F               WOB:	LDA	DEBL	; DELKA BLOKU
  831	  10B7    4F                    	MOV	C,A
  832	  10B8    0C                    	INR	C	; + TYP BLOKU
  833	  10B9    2A 4150               WOB1:	LHLD	BNO
  834	  10BC    23                    	INX	H
  835	  10BD    22 4150               	SHLD	BNO
  836	  10C0    45                    	MOV	B,L	; CISLO BLOKU
  837	  10C1    54                    	MOV	D,H	; CISLO SOUBORU
  838	  10C2    C5                    	PUSH	B
  839	  10C3    CD 1001               	CALL	OKNO
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-14


  840	  10C6    CD 0FE1               	CALL	DBTV1	; CISLO BLOKU NA CO
  841	  10C9    CD 0FEB               	CALL	OBNOV
  842	  10CC    C1                    	POP	B
  843	                                
  844	                                ;==============================================
  845	                                ; ZAPIS BLOKU	VSTUP:	B -CISLO BLOKU
  846	                                ;			C -DELKA BLOKU
  847	                                ;			D -CISLO SOUBORU
  848	                                ;		VYSTUP:	B -CISLO BLOKU
  849	                                ;==============================================
  850	                                
  851	  10CD    CD 158F               @WBLOK:	CALL	ZAKMM
  852	  10D0    C2 128E               	JNZ	ERREND	; PRO NEPOVOLENY ZAPIS
  853	  10D3    CD 149F               	CALL	ZAOZN
  854	  10D6    CD 1392               	CALL	ZABLD
  855	  10D9    CD 14CF               	CALL	TEKP
  856	  10DC    C2 128E               	JNZ	ERREND	; PRO CHYBU
  857	  10DF    3A 4159               	LDA	BOUT-1
  858	  10E2    FE 04                 	CPI	EOT	; BYL POSLEDNI BLOK?
  859	  10E4    CA 10EC               	JZ	ZAKS	; ANO=KONEC
  860	  10E7    FE 3A                 	CPI	CAN
  861	  10E9    C2 10FF               	JNZ	NULBF
  862	  10EC    CD 158F               ZAKS:	CALL	ZAKMM	; ZAPIS KONEC SOUBORU
  863	  10EF    CD 14C1               	CALL	ZAKBL	; EM
  864	  10F2    CD 15AB               ZAKS1:	CALL	ZADMM	; DMM ZA SOUBOREM
  865	  10F5    CD 14CF               	CALL	TEKP
  866	  10F8    C0                    	RNZ
  867	  10F9    CD 14C1               ZAKS2:	CALL	ZAKBL	; EM
  868	  10FC    CD 158F               	CALL	ZAKMM
  869	                                
  870	                                ; NULUJ VYSTUPNI BUFFER
  871	                                
  872	  10FF    21 4159               NULBF:	LXI	H,BOUT-1
  873	  1102    22 4154               	SHLD	ADRO
  874	  1105    E5                    	PUSH	H
  875	  1106    3E FF                 	MVI	A,LENGHT
  876	  1108    23                    	INX	H
  877	  1109    36 00                 	MVI	M,0
  878	  110B    3D                    	DCR	A
  879	  110C    C2 1108               	JNZ	$-4
  880	  110F    E1                    	POP	H	; (BLOK TYP) ADR
  881	  1110    7E                    	MOV	A,M
  882	  1111    FE 42                 	CPI	'B'
  883	  1113    C4 150B               	CNZ	STOP
  884	  1116    AF                    	XRA	A	; OK
  885	  1117    C9                    	RET
  886	                                
  887	                                
  888	                                ;==============================
  889	                                ; CTI BYTE Z KAZETY
  890	                                ;==============================
  891	                                
  892	  1118    C5                    GET@:	PUSH	B
  893	  1119    D5                    	PUSH	D
  894	  111A    E5                    	PUSH	H
  895	  111B    3A 40E4               	LDA	@IF1	; BYL OTEVREN SOUBOR?
  896	  111E    B7                    	ORA	A
  897	  111F    CC 0DAF               	CZ	FIND	; KDYZ NE, TAK FIND
  898	  1122    CD 1174               GET0:	CALL	BUFEND
  899	  1125    EB                    	XCHG		; DE = BEIND-1
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-15


  900	  1126    2A 4156               	LHLD	ADRI
  901	  1129    CD 0136               	CALL	HILO
  902	  112C    7E                    	MOV	A,M
  903	  112D    22 4156               	SHLD	ADRI
  904	  1130    DA 1162               	JC	GET1	; <A>..BYTE
  905	  1133    FE 1A                 	CPI	SUBS	; EOF? TEST
  906	  1135    C2 115D               	JNZ	GETEX	; -
  907	  1138    4F                    	MOV	C,A
  908	  1139    CD 116E               	CALL	KONEC?
  909	  113C    79                    GET00:	MOV	A,C	; POSLEDNI BLOK
  910	  113D    C2 115D               	JNZ	GETEX	; -
  911	  1140    45                    	MOV	B,L	; ADR ZNAKU SUBS
  912	  1141    CD 1174               	CALL	BUFEND	; HLEDEJ OD KONCE
  913	  1144    2B                    GET01:	DCX	H
  914	  1145    BE                    	CMP	M	; JE SUBS
  915	  1146    C2 1144               	JNZ	GET01	; -
  916	  1149    7D                    	MOV	A,L
  917	  114A    93                    	SUB	E	; STEJNY ADR?
  918	  114B    C2 113C               	JNZ	GET00	; - NENI KONEC
  919	                                
  920	  114E    AF                    GET2:	XRA	A
  921	  114F    32 40E4               	STA	@IF1	; UZAVRI SOUBOR
  922	  1152    2F                    	CMA
  923	  1153    32 427F               	STA	DEBL	; DELKA BLOKU 255 B
  924	  1156    CD 1561               	CALL	@SKIP	; ZA EM
  925	  1159    3E 1A                 	MVI	A,SUBS
  926	  115B    37                    	STC
  927	  115C    06                    	DB	6
  928	  115D    B7                    GETEX:	ORA	A
  929	  115E    E1                    	POP	H
  930	  115F    D1                    	POP	D
  931	  1160    C1                    	POP	B
  932	  1161    C9                    	RET
  933	                                
  934	  1162    CD 116E               GET1:	CALL	KONEC?
  935	  1165    C4 101D               	CNZ	RIB
  936	  1168    C2 1122               	JNZ	GET0	; KONEC SOUBORU
  937	  116B    C3 114E               	JMP	GET2
  938	                                
  939	  116E    3A 4159               KONEC?:	LDA	BIN-1	; POSLEDNI BLOK?
  940	  1171    FE 04                 	CPI	EOT
  941	  1173    C9                    	RET		; ZY=1...ANO
  942	                                
  943	  1174    3A 427F               BUFEND:	LDA	DEBL	; VYPOCTI KONEC BLOKU
  944	  1177    5F                    	MOV	E,A	;   V BUFFRU
  945	  1178    21 4159               	LXI	H,BIN-1
  946	  117B    16 00                 	MVI	D,0
  947	  117D    19                    	DAD	D
  948	  117E    C9                    	RET
  949	                                
  950	                                
  951	                                ;===============================
  952	                                ; ZAPIS BYTE NA KAZETU
  953	                                ;===============================
  954	                                
  955	  117F    CD 11A9               PUT@:	CALL	PUTEND	; JE ^Z ?
  956	  1182    DA 0E90               	JC	CLOSE0
  957	  1185    C5                    	PUSH	B
  958	  1186    D5                    	PUSH	D
  959	  1187    E5                    	PUSH	H
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-16


  960	  1188    3A 40E6               	LDA	@OF1	; BYL OTEVREN?
  961	  118B    B7                    	ORA	A
  962	  118C    C5                    	PUSH	B
  963	  118D    CC 0D44               	CZ	OPEN	; KDYZ NE, TAK OPEN
  964	  1190    C1                    	POP	B
  965	  1191    CD 1174               	CALL	BUFEND	; DE = BOUT-1
  966	  1194    EB                    	XCHG
  967	  1195    2A 4154               	LHLD	ADRO
  968	  1198    23                    	INX	H
  969	  1199    71                    	MOV	M,C
  970	  119A    22 4154               	SHLD	ADRO
  971	  119D    CD 0136               	CALL	HILO
  972	  11A0    DC 10B4               	CC	WOB
  973	  11A3    E1                     	POP	H
  974	  11A4    D1                    	POP	D
  975	  11A5    C1                    	POP	B
  976	  11A6    79                    	MOV	A,C
  977	  11A7    B7                    	ORA	A	; NCY
  978	  11A8    C9                    	RET
  979	                                
  980	  11A9    3A 4159               PUTEND:	LDA	BOUT-1
  981	  11AC    FE 42                 	CPI	'B'
  982	  11AE    C8                    	RZ
  983	  11AF    3A 40E3               	LDA	MODE
  984	  11B2    E6 02                 	ANI	2
  985	  11B4    EE 02                 	XRI	2
  986	  11B6    C8                    	RZ
  987	  11B7    79                    	MOV	A,C
  988	  11B8    FE 1A                 	CPI	SUBS
  989	  11BA    37                    	STC
  990	  11BB    C8                    	RZ
  991	  11BC    B7                    	ORA	A
  992	  11BD    C9                    	RET
  993	                                
  994	                                
  995	                                ;===============================
  996	                                ; ZKONTROLUJ JEDEN SOUBOR
  997	                                ;===============================
  998	                                
  999	  11BE    CD 0124               VRF1:	CALL	CRLF
 1000	  11C1    CD 0FA1               	CALL	SEARCH
 1001	  11C4    F5                    	PUSH	PSW	; <A> = CHYBA
 1002	  11C5    79                    	MOV	A,C
 1003	  11C6    32 4153               	STA	BTI	; CISLO SOUBORU
 1004	  11C9    AF                    	XRA	A
 1005	  11CA    32 4152               	STA	BNI	; CISLO BLOKU
 1006	  11CD    CD 0FB8               	CALL	PDIR	; CISLO SOUBORU A HLAVICKA
 1007	  11D0    F1                    	POP	PSW	; NA CO
 1008	  11D1    B7                    VRF2:	ORA	A
 1009	  11D2    CA 11E9               	JZ	VRF4	; OK
 1010	  11D5    FE 38                 	CPI	38H
 1011	  11D7    C2 11E2               	JNZ	VRF3	; BYLA EM
 1012	  11DA    3A 4159               	LDA	BIN-1
 1013	  11DD    FE 3A                 	CPI	CAN
 1014	  11DF    CA 150B               	JZ	STOP	; OK
 1015	  11E2    C5                    VRF3:	PUSH	B	; CISLO BLOKU
 1016	  11E3    0E 23                 	MVI	C,'#'
 1017	  11E5    CD 0109               	CALL	CO
 1018	  11E8    C1                    	POP	B
 1019	  11E9    CD 103E               VRF4:	CALL	NUFIL
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-17


 1020	  11EC    0E 25                 	MVI	C,'%'
 1021	  11EE    22 4152               	SHLD	BNI	; ULOZ CISLA
 1022	  11F1    C4 0109               	CNZ	CO	; PRO CHYBU CISEL
 1023	  11F4    3A 4159               	LDA	BIN-1
 1024	  11F7    FE 04                 	CPI	EOT
 1025	  11F9    CA 150B               	JZ	STOP	; KONEC SOUBORU
 1026	  11FC    CD 1048               	CALL	READBL
 1027	  11FF    C3 11D1               	JMP	VRF2
 1028	                                
 1029	                                
 1030	                                ;===============================
 1031	                                ; OSETRENI CHYBY
 1032	                                ;===============================
 1033	                                
 1034	  1202    CD 150B               ERRD0:	CALL	STOP
 1035	  1205    CD 0124               	CALL	CRLF
 1036	  1208    2A 4152               	LHLD	BNI
 1037	  120B    23                    	INX	H
 1038	  120C    EB                    	XCHG		; CISLO SOUBORU
 1039	  120D    43                    	MOV	B,E	;   A BLOKU NA CO
 1040	  120E    CD 0FDA               	CALL	DBTCR
 1041	  1211    CD 0151               	CALL	TXIMM
 1042	  1214    0D 0A 07              	DB	CR,LF,7
 1043	  1217    43 48 59 42           	DC	'CHYBA CTENI: I/D/N/A=ZNOVA ?'
 1044	  121B    41 20 43 54           
 1045	  121F    45 4E 49 3A           
 1046	  1223    20 49 2F 44           
 1047	  1227    2F 4E 2F 41           
 1048	  122B    3D 5A 4E 4F           
 1049	  122F    56 41 20 BF           
 1050	  1233    CD 1480               	CALL	ECHO
 1051	  1236    EB                    	XCHG		; CISLO SOUBORU A BLOKU
 1052	  1237    FE 4E                 	CPI	'N'	;   PRO "N"
 1053	  1239    CA 1030               	JZ	RIB1
 1054	  123C    FE 49                 	CPI	'I'
 1055	  123E    C2 124E               	JNZ	ERRD1
 1056	  1241    3A 4153               	LDA	BTI
 1057	  1244    3C                    	INR	A
 1058	  1245    32 4153               	STA	BTI	; ZVYS CISLO SOUBORU
 1059	  1248    CD 1567               	CALL	SKIP
 1060	  124B    C3 1269               	JMP	ERRD7
 1061	  124E    FE 44                 ERRD1:	CPI	'D'
 1062	  1250    C2 1266               	JNZ	ERRD3
 1063	  1253    3A 4153               	LDA	BTI
 1064	  1256    3D                    	DCR	A	; SNIZ CISLO SOUBORU
 1065	  1257    32 4153               	STA	BTI
 1066	  125A    CD 1579               	CALL	BACK
 1067	  125D    CD 1579               	CALL	BACK
 1068	  1260    C3 1269               	JMP	ERRD7
 1069	  1263    CD 150B               ERRD:	CALL	STOP	; PRO 1. CHYBU - "A"
 1070	  1266    CD 1280               ERRD3:	CALL	BLOK4
 1071	  1269    AF                    ERRD7:	XRA	A
 1072	  126A    32 4158               	STA	FND	; FIND MOD
 1073	  126D    CD 1048               	CALL	READBL
 1074	  1270    B7                    	ORA	A
 1075	  1271    C2 1269               	JNZ	ERRD7
 1076	  1274    CD 103E               	CALL	NUFIL	; NASEL ?
 1077	  1277    CA 1030               	JZ	RIB1	;  ANO - OK
 1078	  127A    D2 1202               	JNC	ERRD0	; PREJEL
 1079	  127D    C3 1269               	JMP	ERRD7
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-18


 1080	                                
 1081	  1280    C5                    BLOK4:	PUSH	B	; ZPET O 4 BLOKY
 1082	  1281    06 04                 	MVI	B,4
 1083	  1283    CD 15BE               BL41:	CALL	BLOK2
 1084	  1286    05                    	DCR	B
 1085	  1287    C2 1283               	JNZ	BL41
 1086	  128A    C1                    	POP	B
 1087	  128B    C9                    	RET
 1088	                                
 1089	                                
 1090	                                ; ZASTAV A OHLAS CHYBU
 1091	                                
 1092	  128C    3E 32                 ERSTP:	MVI	A,32H	; CHYBA SOUCTU
 1093	  128E    F5                    ERREND:	PUSH	PSW
 1094	  128F    CD 0124               	CALL	CRLF
 1095	  1292    CD 0151               	CALL	TXIMM
 1096	  1295    43 48 59 42           	DC	'CHYBA - '
 1097	  1299    41 20 2D A0           
 1098	  129D    F1                    	POP	PSW
 1099	  129E    E6 0F                 	ANI	0FH	; TYP CHYBY
 1100	  12A0    5F                    	MOV	E,A
 1101	  12A1    CD 150B               	CALL	STOP
 1102	  12A4    16 00                 	MVI	D,0
 1103	  12A6    21 1684               	LXI	H,TXERR
 1104	  12A9    19                    	DAD	D
 1105	  12AA    CD 12B0               	CALL	@TEXT
 1106	  12AD    C3 0139               	JMP	NEXT
 1107	                                
 1108	  12B0    5E                    @TEXT:	MOV	E,M
 1109	  12B1    23                    	INX	H
 1110	  12B2    56                    	MOV	D,M
 1111	  12B3    EB                    	XCHG
 1112	  12B4    56                    	MOV	D,M
 1113	  12B5    23                    	INX	H
 1114	  12B6    C3 0142               	JMP	TEXT
 1115	                                
 1116	                                
 1117	  12B9    48                    CHECK:	MOV	C,B	; KONTROLNI SOUCET ?
 1118	  12BA    CD 12C8               	CALL	RICH
 1119	  12BD    B9                    	CMP	C
 1120	  12BE    C8                    	RZ
 1121	                                
 1122	  12BF    CD 12C8               RADR@:	CALL	RICH
 1123	  12C2    6F                    	MOV	L,A
 1124	  12C3    CD 12C8               	CALL	RICH	; HL
 1125	  12C6    67                    	MOV	H,A
 1126	  12C7    C9                    	RET
 1127	                                
 1128	  12C8    CD 0106               RICH:	CALL	RI	; CTENI & SUMA
 1129	  12CB    DA 128C               	JC	ERSTP
 1130	  12CE    F5                    	PUSH	PSW
 1131	  12CF    80                    	ADD	B
 1132	  12D0    47                    	MOV	B,A
 1133	  12D1    F1                    	POP	PSW
 1134	  12D2    C9                    	RET
 1135	                                
 1136	  12D3    4D                    PADR@:	MOV	C,L
 1137	  12D4    CD 12D8               	CALL	POCH
 1138	  12D7    4C                    	MOV	C,H
 1139	                                
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-19


 1140	  12D8    79                    POCH:	MOV	A,C	; ZAPIS & SUMA
 1141	  12D9    80                    	ADD	B
 1142	  12DA    47                    	MOV	B,A
 1143	  12DB    C3 010C               	JMP	PO
 1144	                                
 1145	                                
 1146	                                ;=======================================
 1147	                                ; CTENI TYPU ZAZNAMU
 1148	                                ;	VYSTUP: A = 00 - PRO EM
 1149	                                ;		    FB - PRO DATOVY BLOK
 1150	                                ; 	  NEBO  VIZ TEKP
 1151	                                ;=======================================
 1152	                                
 1153	  12DE    C5                    CTTV:	PUSH	B
 1154	  12DF    D5                    	PUSH	D
 1155	  12E0    11 5000               	LXI	D,5000H	; TIME OUT
 1156	  12E3    C3 12FF               	JMP	CTTV2
 1157	  12E6    3E 05                 CTTV0:	MVI	A,5
 1158	  12E8    3D                    	DCR	A
 1159	  12E9    C2 12E8               	JNZ	$-1
 1160	  12EC    0E 10                 	MVI	C,10H
 1161	  12EE    0D                    CTTV1:	DCR	C
 1162	  12EF    C2 1302               	JNZ	CTTV3
 1163	  12F2    1B                    	DCX	D
 1164	  12F3    7A                    	MOV	A,D
 1165	  12F4    B3                    	ORA	E
 1166	  12F5    C2 12FF               	JNZ	CTTV2
 1167	  12F8    D1                    	POP	D
 1168	  12F9    C1                    	POP	B
 1169	  12FA    3E 38                 	MVI	A,38H
 1170	  12FC    C3 128E               	JMP	ERREND	; KONEC PRO TIME OUT
 1171	  12FF    01 0110               CTTV2:	LXI	B,0110H
 1172	  1302    DB 31                 CTTV3:	IN	KZDIN
 1173	  1304    E6 F0                 	ANI	0F0H
 1174	  1306    CA 12EE               	JZ	CTTV1
 1175	  1309    17                    	RAL
 1176	  130A    78                    	MOV	A,B
 1177	  130B    17                    	RAL
 1178	  130C    47                    	MOV	B,A
 1179	  130D    D2 12E6               	JNC	CTTV0
 1180	  1310    DB 31                 	IN	KZDIN
 1181	  1312    E6 30                 	ANI	30H	; TEST PRETIZENI MOTORKU
 1182	  1314    78                    	MOV	A,B
 1183	  1315    D1                    	POP	D
 1184	  1316    C1                    	POP	B
 1185	  1317    C8                    	RZ		; OK
 1186	  1318    3E 36                 	MVI	A,36H	; PRO CHYBU
 1187	  131A    C9                    	RET
 1188	                                
 1189	                                
 1190	                                ;==============================================
 1191	                                ; CTENI OZNACENI BLOKU
 1192	                                ;	VYSTUP: B  - CISLO BLOKU
 1193	                                ;		C  - DELKA BLOKU
 1194	                                ;		D  - CISLO SOUBORU
 1195	                                ;	  NEBO  NZ - CHYBA CTENI OZNACENI BLOKU
 1196	                                ;		A  - CHYBA 2
 1197	                                ;	  NEBO  VIZ TEKP
 1198	                                ;==============================================
 1199	                                
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-20


 1200	  131B    E5                    CTOZN:	PUSH	H
 1201	  131C    CD 136C               	CALL	CTIBYT
 1202	  131F    47                    	MOV	B,A	; CISLO BLOKU
 1203	  1320    CD 136C               	CALL	CTIBYT
 1204	  1323    4F                    	MOV	C,A	; DELKA BLOKU
 1205	  1324    CD 136C               	CALL	CTIBYT
 1206	  1327    57                    	MOV	D,A	; CISLO SOUBORU
 1207	  1328    CD 136C               	CALL	CTIBYT	; KONTROLNI SOUCET OZNACENI
 1208	  132B    82                    	ADD	D	; BLOKU
 1209	  132C    81                    	ADD	C
 1210	  132D    80                    	ADD	B	; MUSI BYT 0, JINAK CHYBA
 1211	  132E    E1                    	POP	H
 1212	  132F    3E 34                 	MVI	A,34H
 1213	  1331    C0                    	RNZ		; NAVRAT PRO CHYBNY SOUCET
 1214	  1332    C3 14CF               	JMP	TEKP	; PRO OK TEST KONCE PASKY
 1215	                                			; POKUD NENI, JE VSE OK
 1216	                                
 1217	                                
 1218	                                ;====================================
 1219	                                ; CTENI BLOKU DAT
 1220	                                ;	VSTUP:  C  - DELKA BLOKU
 1221	                                ;	VYSTUP: NZ - CHYBA CTENI DAT
 1222	                                ;		A  - CHYBA 2
 1223	                                ;	  NEBO  VIZ TEKP
 1224	                                ;====================================
 1225	                                
 1226	  1335    D5                    CTBLD:	PUSH	D
 1227	  1336    C5                    	PUSH	B
 1228	  1337    11 4159               	LXI	D,BIN-1	; DATA DO VSTUP. BUFFRU
 1229	  133A    21 0000               	LXI	H,0	; PRO VYPOCET CRC
 1230	  133D    CD 136C               CTBLD1:	CALL	CTIBYT
 1231	  1340    12                    	STAX	D	; ULOZENI DAT DO PAMETI
 1232	  1341    13                    	INX	D
 1233	  1342    0D                    	DCR	C
 1234	  1343    C2 133D               	JNZ	CTBLD1
 1235	  1346    CD 136C               CTBLD2:	CALL	CTIBYT	; NACTENI KONTROLNI SUMY
 1236	  1349    CD 136C               	CALL	CTIBYT	; DO HL
 1237	  134C    7C                    	MOV	A,H
 1238	  134D    B5                    	ORA	L	; PRO OK MUSI BYT 0
 1239	  134E    3E 32                 	MVI	A,32H
 1240	  1350    F5                    	PUSH	PSW	; "Z" A CHYBU
 1241	  1351    11 4266               	LXI	D,READNM+2
 1242	  1354    06 0B                 	MVI	B,NAMLE
 1243	  1356    CD 136C               CTBLD3:	CALL	CTIBYT	; CTENI JMENA
 1244	  1359    12                    	STAX	D	; NA CO
 1245	  135A    13                    	INX	D
 1246	  135B    05                    	DCR	B
 1247	  135C    C2 1356               	JNZ	CTBLD3
 1248	  135F    EB                    	XCHG
 1249	  1360    36 22                 	MVI	M,'"'
 1250	  1362    23                    	INX	H
 1251	  1363    36 20                 	MVI	M,' '
 1252	  1365    F1                    	POP	PSW
 1253	  1366    C1                    	POP	B
 1254	  1367    D1                    	POP	D
 1255	  1368    C0                    	RNZ		; PRO CHYBU KONTROL. SOUCTU
 1256	  1369    C3 14CF               	JMP	TEKP	; PRO OK KONTROLA KONCE
 1257	                                			; PASKY
 1258	                                
 1259	                                ;====================================
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-21


 1260	                                ; NACTENI 1 BYTE Z PASKY
 1261	                                ;	VSTUP:  HL - PREDCHOZI CRC
 1262	                                ;	VYSTUP: A  - PRECTENY BYTE
 1263	                                ;		HL - CRC
 1264	                                ;====================================
 1265	                                
 1266	  136C    C5                    CTIBYT:	PUSH	B
 1267	  136D    06 01                 	MVI	B,01	; POCITADLO BITU
 1268	  136F    DB 31                 CTIBY1: IN	KZDIN
 1269	  1371    E6 F0                 	ANI	0F0H
 1270	  1373    CA 136F               	JZ	CTIBY1
 1271	  1376    DB 31                 	IN	KZDIN
 1272	  1378    E6 F0                 	ANI	0F0H
 1273	  137A    CA 136F               	JZ	CTIBY1	; PRO RUSENI
 1274	  137D    17                    	RAL
 1275	  137E    F5                    	PUSH	PSW	; VYPOCET CRC
 1276	  137F    9F                    	SBB	A
 1277	  1380    29                    	DAD	H	; PREDCHOZI CRC
 1278	  1381    8F                    	ADC	A
 1279	  1382    3E 07                 	MVI	A,7
 1280	  1384    EA 1389               	JPE	$+5
 1281	  1387    AD                    	XRA	L
 1282	  1388    6F                    	MOV	L,A
 1283	  1389    F1                    	POP	PSW	; KONEC VYPOCTU CRC
 1284	  138A    78                    	MOV	A,B
 1285	  138B    17                    	RAL		; CYKLUS PRO 8 BITU
 1286	  138C    47                    	MOV	B,A
 1287	  138D    D2 136F               	JNC	CTIBY1
 1288	  1390    C1                    	POP	B
 1289	  1391    C9                    	RET
 1290	                                
 1291	                                
 1292	                                ;====================================
 1293	                                ; ZAPIS BLOKU DAT = "C" BYTU DAT,
 1294	                                ;	  2 BYTY CRC, 11 BYTU JMENO,
 1295	                                ;	  2 BYTY ODDELOVACI <55H>
 1296	                                ;	VSTUP:  C  - DELKA DAT
 1297	                                ;====================================
 1298	                                
 1299	  1392    C5                    ZABLD:	PUSH	B
 1300	  1393    11 4159               	LXI	D,BOUT-1 ; DATA Z VYSTUP. BUFFERU
 1301	  1396    21 0000               	LXI	H,0	; PRO VYPOCET CRC
 1302	  1399    1A                    ZABLD1:	LDAX	D
 1303	  139A    CD 13BE               	CALL	PISBYT	; ZAPIS VLASTNICH DAT
 1304	  139D    13                    	INX	D
 1305	  139E    0D                    	DCR	C
 1306	  139F    C2 1399               	JNZ	ZABLD1
 1307	  13A2    7C                    	MOV	A,H
 1308	  13A3    CD 13BE               	CALL	PISBYT	; ZAPIS CRC ZNAKU
 1309	  13A6    7C                    	MOV	A,H
 1310	  13A7    CD 13BE               	CALL	PISBYT
 1311	  13AA    11 4259               	LXI	D,WRNM
 1312	  13AD    06 0B                 	MVI	B,NAMLE	; Z WRNM
 1313	  13AF    1A                    ZABLD2:	LDAX	D
 1314	  13B0    CD 13BE               	CALL	PISBYT	; ZAPIS JMENA
 1315	  13B3    13                    	INX	D
 1316	  13B4    05                    	DCR	B
 1317	  13B5    C2 13AF               	JNZ	ZABLD2
 1318	  13B8    C1                    	POP	B
 1319	  13B9    3E 55                 PISODD:	MVI	A,55H
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-22


 1320	  13BB    CD 13BE               	CALL	PISBYT	; ZAPIS 16 BITU ODDELOVACICH
 1321	                                
 1322	                                
 1323	                                ;======================================
 1324	                                ; ZAPIS 1 BYTE NA PASKU
 1325	                                ;	VSTUP:  A  - BYTE DAT
 1326	                                ;		HL - PREDCHOZI CRC
 1327	                                ;	VYSTUP: HL - CRC
 1328	                                ;======================================
 1329	                                
 1330	  13BE    C5                    PISBYT:	PUSH	B	
 1331	  13BF    0E 80                 	MVI	C,80H	; POCITADLO (MASKA) BITU
 1332	  13C1    47                    	MOV	B,A	; DATA DO REG.B
 1333	  13C2    A1                    	ANA	C	; VYBER BITU
 1334	  13C3    C6 FF                 	ADI	0FFH	; BIT DO CARRY
 1335	  13C5    3E 5C                 	MVI	A,KONST1
 1336	  13C7    1F                    	RAR
 1337	  13C8    D3 30                 	OUT	KZDOUT	; VYSTUP DAT
 1338	  13CA    F5                    	PUSH	PSW
 1339	  13CB    EE 20                 	XRI	20H
 1340	  13CD    D3 30                 	OUT	KZDOUT	; DATA PLATNA
 1341	                                
 1342	  13CF    17                    	RAL		; VYPOCET CRC
 1343	  13D0    9F                    	SBB	A
 1344	  13D1    29                    	DAD	H
 1345	  13D2    8F                    	ADC	A
 1346	  13D3    3E 07                 	MVI	A,7
 1347	  13D5    EA 13DA               	JPE	$+5
 1348	  13D8    AD                    	XRA	L
 1349	  13D9    6F                    	MOV	L,A
 1350	  13DA    3E 02                 	MVI	A,2
 1351	  13DC    3D                    	DCR	A
 1352	  13DD    C2 13DC               	JNZ	$-1
 1353	  13E0    F1                    	POP	PSW	; KONEC VYP.CRC
 1354	                                
 1355	  13E1    D3 30                 	OUT	KZDOUT	; VRACENI SIGN.D.P.
 1356	  13E3    3E 03                 	MVI	A,3
 1357	  13E5    3D                    	DCR	A
 1358	  13E6    C2 13E5               	JNZ	$-1
 1359	  13E9    79                    	MOV	A,C
 1360	  13EA    0F                    	RRC		; NA DALSI BIT
 1361	  13EB    4F                    	MOV	C,A
 1362	  13EC    78                    	MOV	A,B
 1363	  13ED    D2 13C2               	JNC	PISBYT+4
 1364	  13F0    C1                    	POP	B
 1365	  13F1    C9                    	RET
 1366	                                
 1367	                                
 1368	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 1369	                                
 1370	                                ;   INSTALACE TERMINALU  SM 7202
 1371	                                
 1372	                                	ORG	EPROM+800H
 1373	                                
 1374	  1400    C3 1710               SERIO:	JMP	SINIT
 1375	  1403    C3 017B               	JMP	SERI@
 1376	  1406    C3 172C               	JMP	SCO
 1377	  1409    C3 0181               	JMP	SMST@
 1378	                                
 1379	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-23


 1380	                                
 1381	                                
 1382	                                ; JE EXTERNI JMENO '"' ?
 1383	                                
 1384	  140C    3A 4101               EXT?:	LDA	EXTEXT
 1385	  140F    FE 22                 	CPI	'"'
 1386	  1411    C9                    	RET
 1387	                                
 1388	                                
 1389	                                ; ANALYZA ODDELOVACU
 1390	                                
 1391	  1412    FE 20                 @ANAL:	CPI	' '
 1392	  1414    C8                    	RZ
 1393	  1415    FE 0D                 ANAL:	CPI	CR
 1394	  1417    C8                    	RZ
 1395	  1418    B7                    	ORA	A
 1396	  1419    C9                    	RET
 1397	                                
 1398	  141A    CD 0F98               JMENO?:	CALL	VYPISH	; ANO / NE
 1399	  141D    CD 0151               OK?:	CALL	TXIMM
 1400	  1420    2D 2D 28 41           	DC	'--(A/N)?'
 1401	  1424    2F 4E 29 BF           
 1402	  1428    CD 148D               	CALL	ECHOCR
 1403	  142B    FE 41                 	CPI	'A'
 1404	  142D    C8                    	RZ
 1405	  142E    FE 59                 	CPI	'Y'
 1406	  1430    C9                    	RET
 1407	                                
 1408	                                ;========================================
 1409	                                
 1410	                                ; TEST NA IOBYTE (PO)
 1411	                                
 1412	  1431    3A 40E2               NPO:	LDA	IOBYT
 1413	  1434    0F                    	RRC
 1414	  1435    0F                    	RRC
 1415	  1436    0F                    NRI1:	RRC
 1416	  1437    0F                    	RRC
 1417	  1438    E6 03                 	ANI	3	; ZARIZENI
 1418	  143A    3D                    	DCR	A	; MINUS .. SYSTEM
 1419	  143B    3D                    	DCR	A	; ZY.. USER=1
 1420	  143C    C9                    	RET		; NZ.. USER=2
 1421	                                
 1422	                                ; TEST NA IOBYTE (RI)
 1423	                                
 1424	  143D    3A 40E2               NRI:	LDA	IOBYT
 1425	  1440    C3 1436               	JMP	NRI1
 1426	                                
 1427	                                ; NASTAV IOBYTE PODLE OPTION
 1428	                                
 1429	  1443    CD 1460               IOPO:	CALL	CISLO
 1430	  1446    D8                    	RC
 1431	  1447    07                    	RLC
 1432	  1448    07                    	RLC
 1433	  1449    0E CF                 IOPO1:	MVI	C,0CFH	; MASKA
 1434	  144B    C3 1454               	JMP	ZMIO
 1435	                                
 1436	  144E    CD 1460               IORI:	CALL	CISLO
 1437	  1451    D8                    	RC
 1438	  1452    0E F3                 	MVI	C,0F3H	; MASKA
 1439	  1454    07                    ZMIO:	RLC
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-24


 1440	  1455    07                    	RLC
 1441	  1456    47                    	MOV	B,A
 1442	  1457    3A 40E2               	LDA	IOBYT
 1443	  145A    A1                    	ANA	C
 1444	  145B    B0                    	ORA	B
 1445	  145C    32 40E2               	STA	IOBYT
 1446	  145F    C9                    	RET
 1447	                                
 1448	  1460    D6 30                 CISLO:	SUI	'0'
 1449	  1462    D8                    	RC		; CY=1..NENI
 1450	  1463    FE 03                 	CPI	3
 1451	  1465    3F                    	CMC
 1452	  1466    D8                    	RC
 1453	  1467    3C                    	INR	A
 1454	  1468    C9                    	RET
 1455	                                
 1456	                                
 1457	                                ; VYPIS TEXT
 1458	                                
 1459	  1469    CD 0151               TXNAM:	CALL	TXIMM
 1460	  146C    0D 0A                 	DB	CR,LF
 1461	  146E    20 4E 41 5A           	DC	' NAZEV:'
 1462	  1472    45 56 BA              
 1463	  1475    C9                    	RET
 1464	                                
 1465	                                
 1466	  1476    CD 0112               BREAK:	CALL	CSTS
 1467	  1479    C8                    	RZ
 1468	  147A    CD 0103               	CALL	CI
 1469	  147D    C3 1484               	JMP	ETX?
 1470	                                
 1471	                                
 1472	                                ; CTI A VYPIS ZNAK
 1473	                                
 1474	  1480    CD 013F               ECHO:	CALL	CINCR
 1475	  1483    C8                    	RZ
 1476	  1484    FE 03                 ETX?:	CPI	ETX
 1477	  1486    C0                    	RNZ
 1478	  1487    CD 0E40               	CALL	DIRSTP	; CLOSE & STOP
 1479	  148A    C3 0139               	JMP	NEXT	; BREAK=>C
 1480	                                
 1481	                                
 1482	  148D    CD 1480               ECHOCR:	CALL	ECHO
 1483	  1490    F5                    	PUSH	PSW
 1484	  1491    CD 0124               	CALL	CRLF
 1485	  1494    F1                    	POP	PSW
 1486	  1495    C9                    	RET
 1487	                                
 1488	                                
 1489	  1496    7E                    MOVE:	MOV	A,M	; PRESUN PAMETI
 1490	  1497    12                    	STAX	D	; HL - ODKUD
 1491	  1498    23                    	INX	H	; DE - KAM
 1492	  1499    13                    	INX	D	; B - KOLIK
 1493	  149A    05                    	DCR	B
 1494	  149B    C2 1496               	JNZ	MOVE
 1495	  149E    C9                    	RET
 1496	                                
 1497	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 1498	                                
 1499	                                ;====================================
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-25


 1500	                                ; ZAPIS OZNACENI BLOKU - 0FFH, CISLO
 1501	                                ;	A DELKA BLOKU, CISLO SOUBORU,
 1502	                                ;	KONTROLNI SOUCET
 1503	                                ;	VSTUP:  B - CISLO BLOKU
 1504	                                ;		C - DELKA BLOKU
 1505	                                ;		D - CISLO SOUBORU
 1506	                                ;====================================
 1507	                                
 1508	  149F    3E FB                 ZAOZN:	MVI	A,UVOD	; UVOD BLOKU (0FBH)
 1509	  14A1    CD 13BE               	CALL	PISBYT
 1510	  14A4    CD 14BA               	CALL	ZAOZN1
 1511	  14A7    78                    	MOV	A,B	; CISLO BLOKU
 1512	  14A8    CD 13BE               	CALL	PISBYT
 1513	  14AB    79                    	MOV	A,C	; DELKA BLOKU
 1514	  14AC    CD 13BE               	CALL	PISBYT
 1515	  14AF    7A                    	MOV	A,D
 1516	  14B0    CD 13BE               	CALL	PISBYT	; CISLO SOUBORU
 1517	  14B3    81                    	ADD	C
 1518	  14B4    80                    	ADD	B
 1519	  14B5    2F                    	CMA
 1520	  14B6    3C                    	INR	A
 1521	  14B7    CD 13BE               	CALL	PISBYT	; KONTROLNI SOUCET
 1522	  14BA    3E 20                 ZAOZN1:	MVI	A,32
 1523	  14BC    3D                    	DCR	A
 1524	  14BD    C2 14BC               	JNZ	$-1
 1525	  14C0    C9                    	RET
 1526	                                
 1527	                                
 1528	                                ;====================================
 1529	                                ; ZAPIS KONCOVYCH BLOKU (EM, FM)
 1530	                                ;	- 16 KRAT PISE <00H>
 1531	                                ;	VYSTUP: VIZ TEKP
 1532	                                ;====================================
 1533	                                
 1534	  14C1    C5                    ZAKBL:	PUSH	B
 1535	  14C2    E5                    	PUSH	H
 1536	  14C3    06 10                 	MVI	B,16
 1537	  14C5    AF                    ZAKB1:	XRA	A
 1538	  14C6    CD 13BE               	CALL	PISBYT
 1539	  14C9    05                    	DCR	B
 1540	  14CA    C2 14C5               	JNZ	ZAKB1
 1541	  14CD    E1                    	POP	H
 1542	  14CE    C1                    	POP	B
 1543	                                
 1544	                                
 1545	                                ;====================================
 1546	                                ; TEST KONCE PASKY
 1547	                                ;	VYSTUP: NZ - MOTOREK PRETIZEN
 1548	                                ;		A  - CHYBA 1
 1549	                                ;====================================
 1550	                                
 1551	  14CF    CD 1476               TEKP:	CALL	BREAK
 1552	  14D2    DB 31                 	IN	KZDIN
 1553	  14D4    E6 30                 	ANI	30H	; TEST PRETIZENI
 1554	  14D6    3E 36                 	MVI	A,36H	;   OBOU MOTORKU
 1555	  14D8    C0                    	RNZ		; PRO CHYBU - NENALEZEN KONEC
 1556	  14D9    AF                    	XRA	A	;	      SOUBORU
 1557	  14DA    C9                    	RET		; PRO OK - PASKA STOJI
 1558	                                
 1559	                                ;====================================
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-26


 1560	                                ; PREVINUTI KAZETY
 1561	                                ;	VSTUP:  D=1 - NA ZACATEK
 1562	                                ;		D-0 - NA KONEC
 1563	                                ;	VYSTUP: VIZ TEKP
 1564	                                ;====================================
 1565	                                
 1566	  14DB    D5                    REW3:	PUSH	D
 1567	  14DC    3E B3                 	MVI	A,KPREVZ
 1568	  14DE    15                    	DCR	D	; URCENI SMERU PREMOTANI
 1569	  14DF    CA 14E4               	JZ	REW4
 1570	  14E2    3E BD                 	MVI	A,KSCRVP
 1571	  14E4    D3 30                 REW4:	OUT	KZDOUT
 1572	  14E6    D1                    	POP	D
 1573	  14E7    CD 14CF               REW7:	CALL	TEKP
 1574	  14EA    CA 14E7               	JZ	REW7
 1575	  14ED    D5                    REWIND:	PUSH	D
 1576	  14EE    3E BB                 	MVI	A,KSCVZC
 1577	  14F0    15                    	DCR	D	; URCENI SMERU
 1578	  14F1    CA 14F6               	JZ	REW5
 1579	  14F4    3E BE                 	MVI	A,KSCVPC
 1580	  14F6    D3 30                 REW5:	OUT	KZDOUT
 1581	  14F8    D1                    	POP	D
 1582	  14F9    C5                    	PUSH	B
 1583	  14FA    01 2EE0               	LXI	B,12000D
 1584	  14FD    0B                    REW1:	DCX	B
 1585	  14FE    78                    	MOV	A,B
 1586	  14FF    B1                    	ORA	C
 1587	  1500    C2 14FD               	JNZ	REW1
 1588	  1503    C1                    	POP	B
 1589	  1504    CD 14CF               	CALL	TEKP
 1590	  1507    CA 14DB               	JZ	REW3
 1591	  150A    AF                    	XRA	A
 1592	                                
 1593	                                
 1594	                                ;===================================
 1595	                                ; STOP POHYBU
 1596	                                ;===================================
 1597	                                
 1598	  150B    F5                    STOP:	PUSH	PSW
 1599	  150C    3E FF                 	MVI	A,KSTPCT
 1600	  150E    D3 30                 	OUT	KZDOUT
 1601	  1510    F1                    	POP	PSW
 1602	  1511    C9                    	RET
 1603	                                
 1604	                                
 1605	                                ;==================================
 1606	                                ; INICIALIZACE MHB 8255
 1607	                                ;==================================
 1608	                                
 1609	  1512    3E 8B                 INITIO:	MVI	A,SETPPI
 1610	  1514    D3 33                 	OUT	KZDCTR
 1611	  1516    3E 1F                 	MVI	A,SETOUT
 1612	  1518    D3 30                 	OUT	KZDOUT
 1613	  151A    C9                    	RET
 1614	                                
 1615	                                ;==================================
 1616	                                ; START CTENI VPRED
 1617	                                ;==================================
 1618	                                
 1619	  151B    3E FE                 SCVP:	MVI	A,KSCVP
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-27


 1620	  151D    D3 30                 	OUT	KZDOUT
 1621	  151F    C9                    	RET
 1622	                                
 1623	                                ;==================================
 1624	                                ; START CTENI VPRED (SNIZ.CITL.)
 1625	                                ;==================================
 1626	                                
 1627	  1520    3E BE                 SCVPC:	MVI	A,KSCVPC
 1628	  1522    D3 30                 	OUT	KZDOUT
 1629	  1524    C9                    	RET
 1630	                                
 1631	                                ;==================================
 1632	                                ; START CTENI VZAD (SNIZ.CITL.)
 1633	                                ;==================================
 1634	                                
 1635	  1525    3E BB                 SCVZC:	MVI	A,KSCVZC
 1636	  1527    D3 30                 	OUT	KZDOUT
 1637	  1529    C9                    	RET
 1638	                                
 1639	                                ;==================================
 1640	                                ; START CTENI RYCHLE VPRED
 1641	                                ;==================================
 1642	                                
 1643	  152A    3E BD                 SCRVP:	MVI	A,KSCRVP
 1644	  152C    D3 30                 	OUT	KZDOUT
 1645	  152E    C9                    	RET
 1646	                                
 1647	                                ;==================================
 1648	                                ; START CTENI RYCHLE VZAD
 1649	                                ;==================================
 1650	                                
 1651	  152F    3E B7                 SCRVZ:	MVI	A,KSCRVZ
 1652	  1531    D3 30                 	OUT	KZDOUT
 1653	  1533    C9                    	RET
 1654	                                
 1655	                                ;=======================================
 1656	                                ; START ZAZNAMU VPRED
 1657	                                ;	VYSTUP: NZ - ZAZNAM NENI POVOLEN
 1658	                                ;		A  - CHYBA 0
 1659	                                ;=======================================
 1660	                                
 1661	  1534    3E AE                 SZAVP:	MVI	A,KSZAVP
 1662	  1536    D3 30                 	OUT	KZDOUT
 1663	  1538    DB 31                 	IN	KZDIN
 1664	  153A    E6 08                 	ANI	08H
 1665	  153C    3E 30                 	MVI	A,30H
 1666	  153E    C9                    	RET
 1667	                                
 1668	                                
 1669	                                ;===================================
 1670	                                ; VYHLEDANI ZACATKU PASKY (ZN. BOT)
 1671	                                ;	VYSTUP: VIZ TEKP
 1672	                                ;===================================
 1673	                                
 1674	  153F    CD 1545               @BOT:	CALL	BOT
 1675	  1542    C3 150B               	JMP	STOP
 1676	                                
 1677	  1545    16 01                 BOT:	MVI	D,1	; PREVINUTI NA ZACATEK
 1678	  1547    CD 14ED               	CALL	REWIND
 1679	  154A    CD 1520               	CALL	SCVPC
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-28


 1680	  154D    CD 1582               	CALL	HLDMM
 1681	  1550    CD 1582               	CALL	HLDMM
 1682	  1553    C2 128E               	JNZ	ERREND
 1683	  1556    C5                    	PUSH	B
 1684	  1557    01 01F4               	LXI	B,500D
 1685	  155A    CD 167A               	CALL	HLBOT1
 1686	  155D    C1                    	POP	B
 1687	  155E    C3 1582               	JMP	HLDMM
 1688	                                
 1689	                                
 1690	                                ;===============================
 1691	                                ; SKOK O 1 SOUBOR VPRED
 1692	                                ;	VYSTUP: VIZ TEKP
 1693	                                ;===============================
 1694	                                
 1695	  1561    CD 1567               @SKIP:	CALL	SKIP
 1696	  1564    C3 150B               	JMP	STOP
 1697	                                
 1698	  1567    CD 1520               SKIP:	CALL	SCVPC
 1699	  156A    CD 12DE               	CALL	CTTV
 1700	  156D    CD 152A               	CALL	SCRVP
 1701	  1570    C3 1582               	JMP	HLDMM	; NASTAVI NA KONEC SOUBORU
 1702	                                
 1703	                                
 1704	                                ;===============================
 1705	                                ; SKOK O 1 SOUBOR VZAD
 1706	                                ;	VYSTUP: VIZ TEKP
 1707	                                ;===============================
 1708	                                
 1709	  1573    CD 1579               @BACK:	CALL	BACK
 1710	  1576    C3 150B               	JMP	STOP
 1711	                                
 1712	  1579    CD 1525               BACK:	CALL	SCVZC
 1713	  157C    CD 12DE               	CALL	CTTV	; VYHLED.DAT VZAD
 1714	  157F    CD 152F               	CALL	SCRVZ	; RYCHLE VZAD
 1715	                                
 1716	                                
 1717	                                ;==============================
 1718	                                ; HLEDANI DLOUHE MEZIBL. MEZERY
 1719	                                ;	 VYSTUP: VIZ TEKP
 1720	                                ;==============================
 1721	                                
 1722	  1582    E5                    HLDMM:	PUSH	H
 1723	  1583    21 2000               	LXI	H,2000H
 1724	  1586    CD 15D2               	CALL	HLMM2
 1725	  1589    C2 1583               	JNZ	HLDMM+1
 1726	  158C    C3 15CE               	JMP	HLMM1
 1727	                                
 1728	                                
 1729	                                ;==============================
 1730	                                ; ZAPIS KRATKE MEZIBL. MEZERY
 1731	                                ;	VYSTUP:	VIZ SZAVP, TEKP
 1732	                                ;==============================
 1733	                                
 1734	  158F    C5                    ZAKMM:	PUSH	B
 1735	  1590    01 0450               	LXI	B,450H
 1736	  1593    CD 1534               ZAMM2:	CALL	SZAVP
 1737	  1596    C2 15A6               	JNZ	ZAMM3	; PRO NEPOVOLENY ZAZNAM
 1738	  1599    3E 0B                 ZAMM1:	MVI	A,11
 1739	  159B    3D                    	DCR	A
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-29


 1740	  159C    C2 159B               	JNZ	$-1
 1741	  159F    00                    	NOP
 1742	  15A0    0B                    	DCX	B
 1743	  15A1    79                    	MOV	A,C
 1744	  15A2    B0                    	ORA	B
 1745	  15A3    C2 1599               	JNZ	ZAMM1
 1746	  15A6    C1                    ZAMM3:	POP	B
 1747	  15A7    C0                    	RNZ		; PRO NEPOVOLENY ZAZNAM
 1748	  15A8    C3 14CF               	JMP	TEKP
 1749	                                
 1750	                                
 1751	                                ;==============================
 1752	                                ; ZAPIS DLOUHE MEZIBL. MEZERY
 1753	                                ;	VYSTUP:	VIZ SZAVP, TEKP
 1754	                                ;==============================
 1755	                                
 1756	  15AB    C5                    ZADMM:	PUSH	B
 1757	  15AC    01 2000               	LXI	B,2000H
 1758	  15AF    C3 1593               	JMP	ZAMM2
 1759	                                
 1760	                                
 1761	                                ;==============================
 1762	                                ; SKOK O 1 BLOK VPRED
 1763	                                ;	VYSTUP: VIZ TEKP
 1764	                                ;==============================
 1765	                                
 1766	  15B2    CD 15B8               @BLOK:	CALL	BLOK1
 1767	  15B5    C3 150B               	JMP	STOP
 1768	                                
 1769	  15B8    CD 1520               BLOK1:	CALL	SCVPC
 1770	  15BB    C3 15C1               	JMP	BLOK2+3
 1771	                                
 1772	                                
 1773	                                ;==============================
 1774	                                ; SKOK O 1 BLOK VZAD
 1775	                                ;	VYSTUP: VIZ TEKP
 1776	                                ;==============================
 1777	                                
 1778	  15BE    CD 1525               BLOK2:	CALL	SCVZC
 1779	  15C1    CD 12DE               	CALL	CTTV
 1780	                                
 1781	                                
 1782	                                ;==============================
 1783	                                ; HLEDANI KRATKE MEZIBL.MEZERY
 1784	                                ;	VYSTUP: VIZ TEKP
 1785	                                ;==============================
 1786	                                
 1787	  15C4    E5                    HLKMM:	PUSH	H
 1788	  15C5    21 0200               	LXI	H,200H
 1789	  15C8    CD 15D2               	CALL	HLMM2
 1790	  15CB    C2 15C5               	JNZ	HLKMM+1
 1791	  15CE    E1                    HLMM1:	POP	H
 1792	  15CF    C3 14CF               	JMP	TEKP
 1793	                                
 1794	  15D2    DB 31                 HLMM2:	IN	KZDIN	; HLEDANI MEZERY
 1795	  15D4    E6 C0                 	ANI	0C0H	; V ZADANE DELCE
 1796	  15D6    C0                    	RNZ
 1797	  15D7    2B                    	DCX	H
 1798	  15D8    B4                    	ORA	H
 1799	  15D9    B5                    	ORA	L
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-30


 1800	  15DA    C2 15D2               	JNZ	HLMM2
 1801	  15DD    C9                    	RET		; PRO OK
 1802	                                
 1803	                                
 1804	                                ;==============================
 1805	                                ; VYHLEDANI KONCE VSECH ZAZNAMU
 1806	                                ;	VYSTUP: VIZ TEKP
 1807	                                ;==============================
 1808	                                
 1809	  15DE    AF                    EOR:	XRA	A	; = EOR
 1810	  15DF    C3 15E7               	JMP	EOR0
 1811	  15E2    4F                    @EOR:	MOV	C,A	; C=0/"D" PRO EOR?DIR
 1812	  15E3    3A 4280               	LDA	JEVER
 1813	  15E6    B1                    	ORA	C	; A="D" OR JEVER
 1814	  15E7    F5                    EOR0:	PUSH	PSW	; A<>0 - DIR
 1815	  15E8    C4 1545               	CNZ	BOT
 1816	  15EB    CD 0FA1               EOR2:	CALL	SEARCH	; CTENI BLOKU SE JMENEM
 1817	  15EE    FE 38                 	CPI	38H	; TEST CTENI EM
 1818	  15F0    CA 162F               	JZ	EOR3	; CTENA EM
 1819	  15F3    79                    	MOV	A,C
 1820	  15F4    32 4151               	STA	BTO	; CISLO SOUBORU PRO ZAPIS
 1821	  15F7    32 4153               	STA	BTI	;      -"-	PRO CTENI
 1822	  15FA    F1                    	POP	PSW
 1823	  15FB    F5                    	PUSH	PSW
 1824	  15FC    CA 1611               	JZ	EOR4	; NENI DIR
 1825	  15FF    CD 0FB8               	CALL	PDIR
 1826	  1602    79                    	MOV	A,C
 1827	  1603    B7                    	ORA	A
 1828	  1604    CA 160E               	JZ	EOR41	; PRO NAZEV PASKY
 1829	  1607    F1                    	POP	PSW
 1830	  1608    F5                    	PUSH	PSW
 1831	  1609    FE 44                 	CPI	'D'
 1832	  160B    C2 1617               	JNZ	EOR5	; PRO VERIFIKACI
 1833	  160E    CD 0124               EOR41:	CALL	CRLF
 1834	  1611    CD 1567               EOR4:	CALL	SKIP
 1835	  1614    C3 15EB               	JMP	EOR2
 1836	  1617    AF                    EOR5:	XRA	A	; NENI CHYBA
 1837	  1618    32 4152               	STA	BNI	; CISLO BLOKU
 1838	  161B    CD 11D1               	CALL	VRF2
 1839	  161E    CD 0124               	CALL	CRLF
 1840	  1621    0E 2D                 	MVI	C,'-'
 1841	  1623    CD 0109               	CALL	CO
 1842	  1626    CD 0FE1               	CALL	DBTV1	; CISLO BLOKU
 1843	  1629    CD 0124               	CALL	CRLF
 1844	  162C    C3 15EB               	JMP	EOR2
 1845	  162F    F1                    EOR3:	POP	PSW
 1846	  1630    CD 1525               EOR1:	CALL	SCVZC
 1847	  1633    CD 1582               	CALL	HLDMM
 1848	  1636    CD 15C4               	CALL	HLKMM
 1849	  1639    C2 128E               	JNZ	ERREND
 1850	  163C    C3 150B               	JMP	STOP
 1851	                                
 1852	                                
 1853	                                ;==============================
 1854	                                ; FORMATOVANI (MAZANI) KAZETY
 1855	                                ;	VYSTUP: VIZ TEKP
 1856	                                ;==============================
 1857	                                
 1858	  163F    16 01                 FORM:	MVI	D,1	; PREVIJENI VZAD, TEDY
 1859	  1641    CD 14ED               	CALL	REWIND	; PREVINUTI NA ZACATEK
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-31


 1860	  1644    CD 1534               	CALL	SZAVP
 1861	  1647    C2 128E               	JNZ	ERREND	; PRO ZAPIS NENI POVOLEN
 1862	  164A    C5                    	PUSH	B
 1863	  164B    E5                    	PUSH	H
 1864	  164C    01 2EE0               	LXI	B,12000D
 1865	  164F    3E 55                 	MVI	A,55H
 1866	  1651    CD 13BE               FORM1:	CALL	PISBYT
 1867	  1654    0B                    	DCX	B
 1868	  1655    78                    	MOV	A,B
 1869	  1656    B1                    	ORA	C
 1870	  1657    C2 1651               	JNZ	FORM1
 1871	  165A    CD 152F               	CALL	SCRVZ
 1872	  165D    CD 1582               	CALL	HLDMM
 1873	  1660    CD 1582               	CALL	HLDMM	; PREVINUTI NA ZACATEK
 1874	  1663    CD 1520               	CALL	SCVPC
 1875	  1666    CD 1677               	CALL	HLBOT
 1876	  1669    E1                    	POP	H
 1877	  166A    C1                    	POP	B
 1878	  166B    32 4103               	STA	NAMBUF	; A=0 (<>"@")
 1879	  166E    CD 10F2               	CALL	ZAKS1	; ZAPIS DMM, EM A KMM
 1880	  1671    C2 128E               	JNZ	ERREND
 1881	  1674    C3 1630               	JMP	EOR1	; NASTAVENI PRED EM
 1882	                                
 1883	  1677    01 044C               HLBOT:	LXI	B,1100D
 1884	  167A    CD 12DE               HLBOT1:	CALL	CTTV
 1885	  167D    0B                    	DCX	B
 1886	  167E    78                    	MOV	A,B
 1887	  167F    B1                    	ORA	C
 1888	  1680    C2 167A               	JNZ	HLBOT1
 1889	  1683    C9                    	RET
 1890	                                
 1891	                                ;-----------------------------------
 1892	                                
 1893	                                ; TEXTY CHYBOVYCH HLASENI
 1894	                                
 1895	  1684    1692                  TXERR:	DW	TXER0
 1896	  1686    16A6                  	DW	TXER2
 1897	  1688    16B6                  	DW	TXER4
 1898	  168A    16CB                  	DW	TXER6
 1899	  168C    16D7                  	DW	TXER8
 1900	  168E    16EA                  	DW	TXERA
 1901	  1690    16FE                  	DW	TXERC
 1902	                                
 1903	  1692    13                    TXER0:	DB	19
 1904	  1693    5A 41 5A 4E           	DC	'ZAZNAM NENI POVOLEN'
 1905	  1697    41 4D 20 4E           
 1906	  169B    45 4E 49 20           
 1907	  169F    50 4F 56 4F           
 1908	  16A3    4C 45 CE              
 1909	  16A6    0F                    TXER2:	DB	15
 1910	  16A7    43 48 59 42           	DC	'CHYBA CTENI DAT'
 1911	  16AB    41 20 43 54           
 1912	  16AF    45 4E 49 20           
 1913	  16B3    44 41 D4              
 1914	  16B6    14                    TXER4:	DB	20
 1915	  16B7    43 48 59 42           	DC	'CHYBA OZNACENI BLOKU'
 1916	  16BB    41 20 4F 5A           
 1917	  16BF    4E 41 43 45           
 1918	  16C3    4E 49 20 42           
 1919	  16C7    4C 4F 4B D5           
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-32


 1920	  16CB    0B                    TXER6:	DB	11
 1921	  16CC    4B 4F 4E 45           	DC	'KONEC PASKY'
 1922	  16D0    43 20 50 41           
 1923	  16D4    53 4B D9              
 1924	  16D7    12                    TXER8:	DB	18
 1925	  16D8    4E 45 4E 49           	DC	'NENI KONEC SOUBORU'
 1926	  16DC    20 4B 4F 4E           
 1927	  16E0    45 43 20 53           
 1928	  16E4    4F 55 42 4F           
 1929	  16E8    52 D5                 
 1930	  16EA    13                    TXERA:	DB	19
 1931	  16EB    4E 45 4E 49           	DC	'NENI BINARNI FORMAT'
 1932	  16EF    20 42 49 4E           
 1933	  16F3    41 52 4E 49           
 1934	  16F7    20 46 4F 52           
 1935	  16FB    4D 41 D4              
 1936	  16FE    11                    TXERC:	DB	17
 1937	  16FF    53 4F 55 42           	DC	'SOUBOR NEEXISTUJE'
 1938	  1703    4F 52 20 4E           
 1939	  1707    45 45 58 49           
 1940	  170B    53 54 55 4A           
 1941	  170F    C5                    
 1942	                                
 1943	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 1944	                                
 1945	                                ;  OBSLUHA TERMINALU  SM 7202
 1946	                                
 1947	                                ; INICIALIZACE SYSTEMU
 1948	                                ; --------------------
 1949	                                
 1950	  1710    21 1403               SINIT:	LXI	H,SERIO+3
 1951	  1713    11 40C4               	LXI	D,CI@0
 1952	  1716    06 09                 	MVI	B,9
 1953	  1718    CD 1496               	CALL	MOVE
 1954	  171B    AF                    	XRA	A
 1955	  171C    32 4281               	STA	SEKV	; NENI ESC. SEKVENCE
 1956	  171F    3E 09                 	MVI	A,9	; TERM.+STOP MGF.
 1957	  1721    D3 10                 SINI1:	OUT	UMODE
 1958	  1723    D3 13                 	OUT	URES
 1959	  1725    3E 0D                 	MVI	A,PRENOS ; NASTAVENI PRENOSU
 1960	  1727    D3 11                 	OUT	USTAT
 1961	  1729    DB 12                 	IN	UDATA
 1962	  172B    C9                    	RET
 1963	                                
 1964	                                
 1965	                                ; SERIOVY VYSTUP
 1966	                                ; --------------
 1967	                                
 1968	  172C    3A 4281               SCO:	LDA	SEKV
 1969	  172F    B7                    	ORA	A
 1970	  1730    C2 17AD               	JNZ	SCO7	; JE ESC. SEKVENCE
 1971	  1733    79                    	MOV	A,C	; ANALYZA ZNAKU
 1972	  1734    FE 1B                 	CPI	ESC
 1973	  1736    CA 17A7               	JZ	SCO6	; ZACINA ESC. SEKV.
 1974	  1739    FE 1D                 	CPI	HOME
 1975	  173B    CA 1762               	JZ	SCO1
 1976	  173E    FE 0A                 	CPI	LF
 1977	  1740    CA 176D               	JZ	SCO3
 1978	  1743    FE 0B                 	CPI	VT
 1979	  1745    CA 176D               	JZ	SCO3
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-33


 1980	  1748    FE 0D                 	CPI	CR
 1981	  174A    CA 1766               	JZ	SCO2
 1982	  174D    FE 09                 	CPI	HT
 1983	  174F    CA 177C               	JZ	SCO4
 1984	  1752    FE 08                 	CPI	BS
 1985	  1754    C2 1795               	JNZ	SCO5
 1986	  1757    3A 40E9               	LDA	COLUM	; "BS"
 1987	  175A    B7                    	ORA	A
 1988	  175B    CA 017E               	JZ	SERO@
 1989	  175E    3D                    	DCR	A
 1990	  175F    C3 1767               	JMP	SCO21
 1991	  1762    AF                    SCO1:	XRA	A	; "HOME"
 1992	  1763    32 40E8               	STA	LINE
 1993	  1766    AF                    SCO2:	XRA	A	; "CR"
 1994	  1767    32 40E9               SCO21:	STA	COLUM
 1995	  176A    C3 017E               	JMP	SERO@
 1996	  176D    3A 40E8               SCO3:	LDA	LINE	; "LF" A "VT"
 1997	  1770    FE 18                 	CPI	TLINE	; POCET RADKU
 1998	  1772    CA 017E               	JZ	SERO@
 1999	  1775    3C                    	INR	A
 2000	  1776    32 40E8               	STA	LINE
 2001	  1779    C3 017E               	JMP	SERO@
 2002	  177C    C5                    SCO4:	PUSH	B	; "HT"
 2003	  177D    3A 40E9               	LDA	COLUM
 2004	  1780    3C                    SCO41:	INR	A
 2005	  1781    FE 50                 	CPI	TCOLUM	; POCET SLOUPCU
 2006	  1783    CA 1790               	JZ	SCO42
 2007	  1786    47                    	MOV	B,A
 2008	  1787    E6 07                 	ANI	7
 2009	  1789    78                    	MOV	A,B
 2010	  178A    C2 1780               	JNZ	SCO41
 2011	  178D    C3 1791               	JMP	SCO43	; TABELACNI POZICE
 2012	  1790    3D                    SCO42:	DCR	A	; POSLEDNI SLOUPEC
 2013	  1791    C1                    SCO43:	POP	B
 2014	  1792    C3 1767               	JMP	SCO21
 2015	  1795    79                    SCO5:	MOV	A,C
 2016	  1796    FE 20                 	CPI	20H
 2017	  1798    D2 017E               	JNC	SERO@	; PRO RIDICI ZNAK
 2018	  179B    3A 40E9               	LDA	COLUM
 2019	  179E    FE 4F                 	CPI	TCOLUM-1 ; POCET SLOUPCU
 2020	  17A0    CA 017E               	JZ	SERO@
 2021	  17A3    3C                    	INR	A
 2022	  17A4    C3 1767               	JMP	SCO21
 2023	  17A7    32 4281               SCO6:	STA	SEKV	; NASTAVENI ESC. SEKV.
 2024	  17AA    C3 017E               	JMP	SERO@
 2025	  17AD    E5                    SCO7:	PUSH	H	; ESC. SEKVENCE
 2026	  17AE    3A 4281               	LDA	SEKV
 2027	  17B1    07                    	RLC
 2028	  17B2    DA 17BD               	JC	SCO8	; PRO 3.BYTE
 2029	  17B5    F6 80                 	ORI	80H
 2030	  17B7    21 40E8               	LXI	H,LINE
 2031	  17BA    C3 17C1               	JMP	SCO9
 2032	  17BD    AF                    SCO8:	XRA	A	; KONEC SEKVENCE
 2033	  17BE    21 40E9               	LXI	H,COLUM
 2034	  17C1    32 4281               SCO9:	STA	SEKV
 2035	  17C4    79                    	MOV	A,C
 2036	  17C5    D6 20                 	SUI	20H
 2037	  17C7    DA 17CB               	JC	SCO10	; NENI ADRESACE KURZORU
 2038	  17CA    77                    	MOV	M,A
 2039	  17CB    E1                    SCO10:	POP	H
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-34


 2040	  17CC    C3 017E               	JMP	SERO@
 2041	                                
 2042	                                
 2043	  17CF                          @E@KOS	EQU	$
 2044	                                
 2045	                                ;
 2046	                                ;*********************************************
 2047	                                ;   ROZDELENI   S Y S T E M O V E    R A M
 2048	                                ;*********************************************
 2049	                                ;
 2050	  4000                          RST1	EQU	@R@	; RESTART VEKTORY
 2051	                                ;........>>>
 2052	                                ;......
 2053	                                ;<<... UZIVATELSKY & MONITOR. ZASOBNIK
 2054	                                
 2055	                                
 2056	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 2057	                                	.PHASE	@R@+6DH
 2058	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 2059	                                ; MONITOR DATA
 2060	                                ;
 2061	  406D                          MSTAK:	DS	2
 2062	  406F                          ACSAV:	DS	2
 2063	  4071                          BCSAV:	DS	2
 2064	  4073                          DESAV:	DS	2
 2065	  4075                          HLSAV:	DS	2
 2066	  4077                          PCSAV:	DS	2
 2067	  4079                          SPSAV:	DS	2
 2068	                                ;
 2069	  407B                          BRAD:	DS	2
 2070	  407D                          INSTR:	DS	1
 2071	  407E                          BRAD2:	DS	2
 2072	  4080                          INST2:	DS	1
 2073	  4081                          CADR:	DS	2	; KURZOR ADR.
 2074	                                ;-------------------------
 2075	  4083                          WMKOD:	DS	14	; KOD PRO KURZORY
 2076	  4091                          PREV:	DS	21	; PREVODNI KODY..0
 2077	                                ;-------------------------
 2078	                                ;	USER I/O DEVICE
 2079	                                ;
 2080	  40A6                          CILOC:	DS	3	; 0
 2081	  40A9                          COLOC:	DS	3	; 1
 2082	  40AC                          R1LOC:	DS	3	; 2
 2083	  40AF                          R2LOC:	DS	3	; 3
 2084	  40B2                          P1LOC:	DS	3	; 4
 2085	  40B5                          P2LOC:	DS	3	; 5
 2086	  40B8                          LILOC:	DS	3	; 6
 2087	  40BB                          CSLOC:	DS	3	; 7
 2088	  40BE                          	DS	1
 2089	  40BF                          MEMTOP:	DS	2	; 8
 2090	  40C1                          ERRSW:	DS	3	; 9
 2091	  40C4                          CI@0:	DS	3	; 10
 2092	  40C7                          CO@:	DS	3	; 11
 2093	  40CA                          CSTS@:	DS	3	; 12
 2094	  40CD                          LO@:	DS	3	; 13
 2095	  40D0                          KOS@:	DS	3	; 14
 2096	  40D3                          RI@:	DS	3	; 15
 2097	  40D6                          PO@:	DS	3	; 16
 2098	  40D9                          CCPM:	DS	3	; 17
 2099	  40DC                          GRAF:	DS	3
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-35


 2100	  40DF                          RESER:	DS	3
 2101	  0015                          IONUM	EQU ($-CILOC)/3+1
 2102	                                ;
 2103	  40E2                          IOBYT:	DS	1	; RIZENI I/O ZARIZENI
 2104	                                ;
 2105	                                ;******************************
 2106	                                ;<< EXTERNE OVLADANE FLAGY: >>
 2107	                                ;******************************
 2108	  40E3                          MODE:	DS	1	; CO-MODE
 2109	  40E4                          @IF1:	DS	1
 2110	  40E5                          @IF2:	DS	1
 2111	  40E6                          @OF1:	DS	1
 2112	  40E7                          @OF2:	DS	1
 2113	  40E8                          LINE:	DS	1	; RADEK
 2114	  40E9                          COLUM:	DS	1	; SLOUPEC
 2115	  40EA                          RESL:	DS	1	; RESERVACE
 2116	  40EB                          RESC:	DS	1	; SLOUPEC
 2117	  40EC                          RESL1:	DS	1	; POSLEDNI RADEK
 2118	  40ED                          RESC1:	DS	1	; POSLEDNI SLOUPEC
 2119	  40EE                          PRER:	DS	1	; UROVEN PRERUSENI
 2120	                                ;
 2121	                                ; PROMENNE PRO OPERACNI SYSTEM
 2122	                                ;
 2123	  40EF                          CUR@:	DS	1
 2124	  40F0                          KEY:	DS	1
 2125	  40F1                          CAS:	DS	1
 2126	                                
 2127	  40F2                          WNDP:	DS	6	; PARAMETRY PRO 2.OKNO
 2128	  0015                          EXSER	EQU	$-MODE	; KONEC SLUZEB
 2129	                                ;
 2130	  40F8                          CHAR:	DS	1
 2131	  40F9                          XFLG:	DS	1
 2132	                                ;
 2133	                                ;**********************************
 2134	                                ; DATA SPOLECNA PRO MONITOR A O.S.
 2135	                                ;**********************************
 2136	                                ;
 2137	  40FA                          @BT:	DS	1
 2138	  40FB                          @PED:	DS	1
 2139	  40FC                          SADR:	DS	2	; START ADR
 2140	  40FE                          EADR:	DS	2	; END ADR
 2141	  4100                          SUM:	DS	1
 2142	  4101                          EXTEXT:	DS	1
 2143	  4102                          OPT:	DS	1
 2144	  4103                          NAMBUF:	DS	65
 2145	                                ;
 2146	                                ;""""""""""""""""""""""""""""""""""
 2147	                                ; PROMENNE PRO O.S.
 2148	  4144                          FNAME:	DS	12	; JMENO SOUBORU
 2149	  4150                          BNO:	DS	1	; CISLO BLOKU
 2150	  4151                          BTO:	DS	1	; CISLO SOUBORU
 2151	  4152                          BNI:	DS	1	;
 2152	  4153                          BTI:	DS	1	; INPUT
 2153	  4154                          ADRO:	DS	2	; ADR OUTPUT
 2154	  4156                          ADRI:	DS	2	; ADR INPUT
 2155	  4158                          FND:	DS	1	; FIND/READ
 2156	                                
 2157	                                ;**********************************
 2158	                                ;  I/O BUFFER PRO KOS
 2159	                                ;**********************************
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-36


 2160	  4159                          	DS	1	; TYP BLOKU
 2161	  415A                          BOUT:
 2162	  415A                          BIN:	DS	LENGHT	; DATA
 2163	  4259                          BIEND	EQU	$
 2164	  4259                          BOEND	EQU	$
 2165	  4259                          WRNM:	DS	11	; JMENO SOUBORU
 2166	  4264                          READNM:	DS	22	; BUFFER PRO ZOBRAZENI
 2167	  427A                          POSICE:	DS	2	; ZOBRAZENI BLOKU
 2168	  427C                          MOD@:	DS	1
 2169	                                ;
 2170	  427D                          TSP:	DS	1	; PRO SP-210
 2171	  427E                          JEDE?:	DS	1	;   - " -
 2172	                                ;
 2173	  427F                          DEBL:	DS	1	; DELKA BLOKU
 2174	  4280                          JEVER:	DS	1	; 0 - NENI VERIFIKACE
 2175	                                ;
 2176	  4281                          SEKV:	DS	1	; 0 - NENI ESCAPE SEKV.
 2177	  4282                          TSM:	DS	1	; 0 - JE TERMINAL
 2178	                                ;
 2179	                                	.DEPHASE
 2180	                                ;
 2181	                                	END	;
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	S


Macros:

Symbols:
1412 	@ANAL           1573 	@BACK           15B2 	@BLOK           
153F 	@BOT            40FA 	@BT             17CF 	@E@KOS          
15E2 	@EOR            40E4 	@IF1            40E5 	@IF2            
40E6 	@OF1            40E7 	@OF2            40FB 	@PED            
4000 	@R@             1093 	@READU          1561 	@SKIP           
12B0 	@TEXT           10CD 	@WBLOK          406F 	ACSAV           
4156 	ADRI            4154 	ADRO            1415 	ANAL            
012D 	ASHEX           1579 	BACK            4071 	BCSAV           
4259 	BIEND           415A 	BIN             0D14 	BINAR           
1283 	BL41            15B8 	BLOK1           15BE 	BLOK2           
1280 	BLOK4           4152 	BNI             4150 	BNO             
4259 	BOEND           1545 	BOT             415A 	BOUT            
407B 	BRAD            407E 	BRAD2           1476 	BREAK           
0008 	BS              4153 	BTI             4151 	BTO             
1174 	BUFEND          4081 	CADR            003A 	CAN             
40F1 	CAS             40D9 	CCPM            40F8 	CHAR            
12B9 	CHECK           0103 	CI              40C4 	CI@0            
40A6 	CILOC           013F 	CINCR           1460 	CISLO           
0E87 	CLOSE           0E90 	CLOSE0          0EB9 	CLOSE1          
0E4B 	CLST2           0E36 	CLSTP           0F68 	CMPN1           
0F5B 	CMPNM           0109 	CO              40C7 	CO@             
40A9 	COLOC           40E9 	COLUM           0040 	COMLE           
0F70 	CPF10           000D 	CR              0124 	CRLF            
40BB 	CSLOC           0112 	CSTS            40CA 	CSTS@           
1335 	CTBLD           133D 	CTBLD1          1346 	CTBLD2          
1356 	CTBLD3          136F 	CTIBY1          136C 	CTIBYT          
131B 	CTOZN           12DE 	CTTV            12E6 	CTTV0           
12EE 	CTTV1           12FF 	CTTV2           1302 	CTTV3           
40EF 	CUR@            0130 	DADR            0FDA 	DBTCR           
0FDD 	DBTV            0FE1 	DBTV1           0FE5 	DBTV2           
0133 	DBYT            427F 	DEBL            4073 	DESAV           
0E40 	DIRSTP          40FE 	EADR            1480 	ECHO            
148D 	ECHOCR          15DE 	EOR             15E7 	EOR0            
1630 	EOR1            15EB 	EOR2            162F 	EOR3            
1611 	EOR4            160E 	EOR41           1617 	EOR5            
0004 	EOT             1800 	EP3             0C00 	EPROM           
0000 	ERAM            1263 	ERRD            1202 	ERRD0           
124E 	ERRD1           1266 	ERRD3           1269 	ERRD7           
128E 	ERREND          012A 	ERROR           40C1 	ERRSW           
128C 	ERSTP           001B 	ESC             0003 	ETX             
1484 	ETX?            0127 	EXPR            0015 	EXSER           
140C 	EXT?            4101 	EXTEXT          0DAF 	FIND            
0DCF 	FIND1           4144 	FNAME           4158 	FND             
163F 	FORM            1651 	FORM1           1122 	GET0            
113C 	GET00           1144 	GET01           1162 	GET1            
114E 	GET2            1118 	GET@            115D 	GETEX           
40DC 	GRAF            0136 	HILO            1677 	HLBOT           
167A 	HLBOT1          1582 	HLDMM           15C4 	HLKMM           
15CE 	HLMM1           15D2 	HLMM2           4075 	HLSAV           
001D 	HOME            0009 	HT              0148 	HXASC           
0F10 	INIT            1512 	INITIO          0C2A 	INITS           
4080 	INST2           407D 	INSTR           015D 	INTER           
40E2 	IOBYT           0115 	IOCHK           011E 	IODEF           
0015 	IONUM           1443 	IOPO            1449 	IOPO1           
144E 	IORI            0118 	IOSET           427E 	JEDE?           
4280 	JEVER           141A 	JMENO?          40F0 	KEY             
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	S-1


1062 	KONBL0          1068 	KONBL1          1078 	KONBL2          
0D04 	KONEC           116E 	KONEC?          005C 	KONST1          
40D0 	KOS@            0C81 	KOS@@           00B3 	KPREVZ          
00BD 	KSCRVP          00B7 	KSCRVZ          00FE 	KSCVP           
00BE 	KSCVPC          00BB 	KSCVZC          00FF 	KSTPCT          
00AF 	KSTPZA          00AE 	KSZAVP          0033 	KZDCTR          
0031 	KZDIN           0030 	KZDOUT          00FF 	LENGHT          
000A 	LF              40B8 	LILOC           40E8 	LINE            
0DE6 	LO1             0E16 	LO2             40CD 	LO@             
0DE3 	LOAD            002A 	MAXSL           40BF 	MEMTOP          
0C92 	MICOS           427C 	MOD@            40E3 	MODE            
0000 	MONIT           1496 	MOVE            406D 	MSTAK           
4103 	NAMBUF          000B 	NAMLE           0139 	NEXT            
0D1A 	NOVYOT          1431 	NPO             143D 	NRI             
1436 	NRI1            103E 	NUFIL           10FF 	NULBF           
0EE2 	NUM1            0EF1 	NUM2            0EF7 	NUM3            
0F07 	NUM4            0EBC 	NUMB            0ED4 	NUMB@           
0FEB 	OBNOV           141D 	OK?             1001 	OKNO            
0D62 	OPE1            0D99 	OPE2            0D78 	OPE4            
0D8A 	OPE5            0D44 	OPEN            4102 	OPT             
40B2 	P1LOC           40B5 	P2LOC           12D3 	PADR@           
4077 	PCSAV           0FB8 	PDIR            0FAD 	PHDR            
0FB0 	PHDR1           13BE 	PISBYT          13B9 	PISODD          
0FC8 	PNAM1           0FD0 	PNAM2           0FC5 	PNAME           
010C 	PO              40D6 	PO@             12D8 	POCH            
427A 	POSICE          000D 	PRENOS          40EE 	PRER            
4091 	PREV            117F 	PUT@            11A9 	PUTEND          
40AC 	R1LOC           40AF 	R2LOC           12BF 	RADR@           
1048 	READBL          4264 	READNM          40EB 	RESC            
40ED 	RESC1           40DF 	RESER           40EA 	RESL            
40EC 	RESL1           14FD 	REW1            14DB 	REW3            
14E4 	REW4            14F6 	REW5            14E7 	REW7            
14ED 	REWIND          0106 	RI              40D3 	RI@             
101D 	RIB             1030 	RIB1            1035 	RIB2            
12C8 	RICH            015A 	RNAME           4000 	RST1            
00CF 	RSTN            40FC 	SADR            0E79 	SAV1            
0E50 	SAVE            172C 	SCO             1762 	SCO1            
17CB 	SCO10           1766 	SCO2            1767 	SCO21           
176D 	SCO3            177C 	SCO4            1780 	SCO41           
1790 	SCO42           1791 	SCO43           1795 	SCO5            
17A7 	SCO6            17AD 	SCO7            17BD 	SCO8            
17C1 	SCO9            152A 	SCRVP           152F 	SCRVZ           
151B 	SCVP            1520 	SCVPC           1525 	SCVZC           
0FA1 	SEARCH          4281 	SEKV            017B 	SERI@           
1400 	SERIO           017E 	SERO@           001F 	SETOUT          
008B 	SETPPI          1721 	SINI1           1710 	SINIT           
1567 	SKIP            0D36 	SLEN            0D20 	SLEN@           
0C87 	SLUZBA          0181 	SMST@           0001 	SOH             
013C 	SPACE           0121 	SPCL            4079 	SPSAV           
150B 	STOP            001A 	SUBS            4100 	SUM             
1534 	SZAVP           0050 	TCOLUM          14CF 	TEKP            
0F84 	TESTJM          0142 	TEXT            0018 	TLINE           
4282 	TSM             427D 	TSP             3800 	TVBEG           
1692 	TXER0           16A6 	TXER2           16B6 	TXER4           
16CB 	TXER6           16D7 	TXER8           16EA 	TXERA           
16FE 	TXERC           1684 	TXERR           0151 	TXIMM           
1469 	TXNAM           0012 	UDATA           0010 	UMODE           
0013 	URES            0011 	USTAT           00FB 	UVOD            
0D3B 	VERIF           11BE 	VRF1            11D1 	VRF2            
11E2 	VRF3            11E9 	VRF4            000B 	VT              
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	S-2


0F9D 	VYP1            0F98 	VYPISH          4083 	WMKOD           
0154 	WND@            40F2 	WNDP            10B4 	WOB             
10B9 	WOB1            0F3D 	WRN1            0F27 	WRNAM           
4259 	WRNM            40F9 	XFLG            1392 	ZABLD           
1399 	ZABLD1          13AF 	ZABLD2          0C18 	ZAC             
15AB 	ZADMM           14C5 	ZAKB1           14C1 	ZAKBL           
158F 	ZAKMM           10EC 	ZAKS            10F2 	ZAKS1           
10F9 	ZAKS2           1599 	ZAMM1           1593 	ZAMM2           
15A6 	ZAMM3           149F 	ZAOZN           14BA 	ZAOZN1          
1454 	ZMIO            



No Fatal error(s)



@ANAL	  622	 1391#
@BACK	  241	 1709#
@BLOK	  237	  547	 1766#
@BOT	  235	 1674#
@BT	  433	 2137#
@E@KOS	 2043#
@EOR	  250	 1811#
@IF1	  173	  389	  441	  895	  921	 2109#
@IF2	  446	 2110#
@OF1	  174	  346	  359	  485	  497	  960	 2111#
@OF2	 2112#
@PED	 2138#
@R@	   11#	 2050	 2057
@READU	  761	  806#
@SKIP	  239	  444	  924	 1695#
@TEXT	 1105	 1108#
@WBLOK	  851#
ACSAV	 2062#
ADRI	  391	  792	  900	  903	 2154#
ADRO	  490	  873	  967	  970	 2153#
ANAL	 1393#
ASHEX	   37#
BACK	  502	  537	  538	 1066	 1067	 1709	 1712#
BCSAV	 2063#
BIEND	 2163#
BIN	  604	  610	  651	  737	  778	  791	  939	  945	 1012	 1023	 1228	 2162#
BINAR	  143	  277#	  456
BL41	 1083#	 1085
BLOK1	 1766	 1769#
BLOK2	 1083	 1770	 1778#
BLOK4	  353	 1070	 1081#
BNI	  386	  734	  744	 1005	 1021	 1036	 1837	 2151#
BNO	  341	  344	  387	  559	  833	  835	 2149#
BOEND	 2164#
BOT	  331	  379	  546	 1674	 1677#	 1815
BOUT	  278	  494	  857	  872	  980	 1300	 2161#
BRAD	 2069#
BRAD2	 2071#
BREAK	 1466#	 1551
BS	   66#	 1984
BTI	 1003	 1056	 1058	 1063	 1065	 1821	 2152#
BTO	  336	  545	 1820	 2150#
BUFEND	  390	  898	  912	  943#	  965
CADR	 2073#
CAN	   78#	  561	  605	  738	  860	 1013
CAS	 2125#
CCPM	  325	  376	  484	 2098#
CHAR	 2130#

CHECK	  420	  426	 1117#
CI	   25#	 1468
CI@0	 1951	 2091#
CILOC	 2080#	 2101
CINCR	   43#	 1474
CISLO	 1429	 1436	 1448#
CLOSE	  140	  225	  285	  481#
CLOSE0	  485#	  956
CLOSE1	  501	  504#
CLST2	  439	  445#
CLSTP	  431	  436#
CMPN1	  601	  604#
CMPNM	  383	  599#	  606	  616
CO	   27#	  218	  672	  692	  694	 1017	 1022	 1841
CO@	 2092#
COLOC	 2081#
COLUM	 1986	 1994	 2003	 2018	 2033	 2114#
COMLE	   60#	  571	  589	  652
CPF10	  608#
CR	   70#	  296	  515	 1042	 1393	 1460	 1980
CRLF	   34#	  436	  592	  650	  679	  999	 1035	 1094	 1484	 1833	 1839	 1843
CSLOC	 2087#
CSTS	   29#	 1466
CSTS@	 2093#
CTBLD	  775	 1226#
CTBLD1	 1230#	 1234
CTBLD2	 1235#
CTBLD3	 1243#	 1247
CTIBY1	 1268#	 1270	 1273	 1287
CTIBYT	 1201	 1203	 1205	 1207	 1230	 1235	 1236	 1243	 1266#
CTOZN	  820	 1200#
CTTV	  810	 1153#	 1699	 1713	 1779	 1884
CTTV0	 1157#	 1179
CTTV1	 1161#	 1174
CTTV2	 1156	 1166	 1171#
CTTV3	 1162	 1172#
CUR@	 2123#
DADR	   38#
DBTCR	  679#	 1040
DBTV	  680#	  789
DBTV1	  682#	  840	 1842
DBTV2	  657	  684#
DBYT	   39#	  681	  684
DEBL	  182	  304	  443	  772	  830	  923	  943	 2173#
DESAV	 2064#
DIRSTP	  440#	 1478
EADR	  409	 2140#
ECHO	 1050	 1474#	 1482
ECHOCR	  219	 1402	 1482#

EOR	  233	  354	 1809#
EOR0	 1810	 1814#
EOR1	  498	  542	 1846#	 1881
EOR2	 1816#	 1835	 1844
EOR3	 1818	 1845#
EOR4	 1824	 1834#
EOR41	 1828	 1833#
EOR5	 1832	 1836#
EOT	   77#	  493	  858	  940	 1024
EP3	   18#	  183	  185
EPROM	   20#	  129	  151	  193	 1372
ERAM	   17#
ERRD	  731	  733	 1069#
ERRD0	 1034#	 1078
ERRD1	 1055	 1061#
ERRD3	 1062	 1070#
ERRD7	 1060	 1068	 1071#	 1075	 1079
ERREND	  405	  417	  544	  603	  812	  852	  856	 1093#	 1170	 1682	 1849	 1861
	 1880
ERROR	   36#
ERRSW	 2090#
ERSTP	 1092#	 1129
ESC	   72#	 1972
ETX	   65#	 1476
ETX?	 1469	 1476#
EXPR	   35#	  301	  454	  521
EXSER	 2128#
EXT?	 1384#
EXTEXT	  212	 1384	 2142#
FIND	  138	  227	  371#	  398	  897
FIND1	  384#	  532
FNAME	  381	  609	 2148#
FND	  158	  728	  766	  781	  787	 1072	 2155#
FORM	  554	 1858#
FORM1	 1866#	 1870
GET0	  898#	  936
GET00	  909#	  918
GET01	  913#	  915
GET1	  904	  934#
GET2	  920#	  937
GET@	  144	  892#
GETEX	  906	  910	  928#
GRAF	 2099#
HILO	   40#	  424	  430	  472	  901	  971
HLBOT	 1875	 1883#
HLBOT1	 1685	 1884#	 1888
HLDMM	  364	  643	 1680	 1681	 1687	 1701	 1722#	 1725	 1847	 1872	 1873
HLKMM	  269	  807	 1787#	 1790	 1848
HLMM1	 1726	 1791#

HLMM2	 1724	 1789	 1794#	 1800
HLSAV	 2065#
HOME	   73#	  711	 1974
HT	   67#	 1982
HXASC	   45#
INIT	  221	  554#
INITIO	  180	 1609#
INITS	  137	  157#
INST2	 2072#
INSTR	 2070#
INTER	   49#
IOBYT	  159	 1412	 1424	 1442	 1445	 2103#
IOCHK	   30#
IODEF	   32#
IONUM	 2101#
IOPO	  321	 1429#
IOPO1	  351	  358	 1433#
IORI	  372	 1436#
IOSET	   31#
JEDE?	 2171#
JEVER	  175	  214	  311	  313	  499	 1812	 2174#
JMENO?	  621	 1398#
KEY	 2124#
KONBL0	  768	  773#
KONBL1	  763	  777#
KONBL2	  780	  784#
KONEC	  266#
KONEC?	  908	  934	  939#
KONST1	  124#	 1335
KOS@	  171	 2095#
KOS@@	  170	  192#
KPREVZ	  125#	 1567
KSCRVP	  119#	 1570	 1643
KSCRVZ	  120#	 1651
KSCVP	  116#	 1619
KSCVPC	  117#	 1579	 1627
KSCVZC	  118#	 1576	 1635
KSTPCT	  122#	 1599
KSTPZA	  123#
KSZAVP	  121#	 1661
KZDCTR	   96#	 1610
KZDIN	   94#	 1172	 1180	 1268	 1271	 1552	 1663	 1794
KZDOUT	   95#	 1337	 1340	 1355	 1571	 1580	 1600	 1612	 1620	 1628	 1636	 1644
	 1652	 1662
LENGHT	   58#	  181	  875	 2162
LF	   68#	  296	  515	 1042	 1460	 1976
LILOC	 2086#
LINE	 1992	 1996	 2000	 2030	 2113#
LO1	  399#	  401

LO2	  422#	  425
LO@	 2094#
LOAD	  141	  231	  398#
MAXSL	  151#	  194
MEMTOP	 2089#
MICOS	  136	  210#
MOD@	  695	  705	 2168#
MODE	  696	  702	  983	 2108#	 2128
MONIT	   16#
MOVE	  179	  382	  575	 1489#	 1494	 1953
MSTAK	 2061#
NAMBUF	 1878	 2144#
NAMLE	   59#	  380	  577	  611	 1242	 1312
NEXT	   41#	 1106	 1479
NOVYOT	  285#	  361
NPO	  322	  455	  481	 1412#
NRI	  373	  437	 1424#
NRI1	 1415#	 1425
NUFIL	  732	  744#	 1019	 1076
NULBF	  567	  861	  872#
NUM1	  530#	  541
NUM2	  529	  534	  537#
NUM3	  536	  539#
NUM4	  525	  545#
NUMB	  252	  514#
NUMB@	  149	  523#
OBNOV	  688#	  790	  841
OK?	  266	  339	 1399#
OKNO	  700#	  784	  839
OPE1	  333#	  340
OPE2	  328	  357#
OPE4	  286	  341#	  355	  365
OPE5	  330	  350#
OPEN	  139	  223	  320#	  452	  963
OPT	 2143#
P1LOC	 2084#
P2LOC	 2085#
PADR@	  462	  464	 1136#
PCSAV	 2066#
PDIR	  655#	 1006	 1825
PHDR	  598	  635	  650#
PHDR1	  651#	  658
PISBYT	 1303	 1308	 1310	 1314	 1320	 1330#	 1363	 1509	 1512	 1514	 1516	 1521
	 1538	 1866
PISODD	 1319#
PNAM1	  667#	  675
PNAM2	  669	  671#
PNAME	  666#	  788
PO	   28#	 1143

PO@	 2097#
POCH	  458	  466	  468	  471	  475	 1137	 1140#
POSICE	  688	  709	 2167#
PRENOS	   89#	 1959
PRER	 2119#
PREV	 2076#
PUT@	  146	  955#
PUTEND	  955	  980#
R1LOC	  177	 2082#
R2LOC	 2083#
RADR@	  408	  411	 1122#
READBL	  644	  729	  761#	 1026	 1073
READNM	  666	  764	 1241	 2166#
RESC	 2116#
RESC1	 2118#
RESER	 2100#
RESL	 2115#
RESL1	 2117#
REW1	 1584#	 1587
REW3	 1566#	 1590
REW4	 1569	 1571#
REW5	 1578	 1580#
REW7	 1573#	 1574
REWIND	  145	  248	 1575#	 1678	 1859
RI	   26#	 1128
RI@	 2096#
RIB	  725#	  935
RIB1	  734#	 1053	 1077
RIB2	  737#
RICH	  399	  413	  422	 1118	 1122	 1124	 1128#
RNAME	   48#	  326	  377	  560
RST1	 2050#
RSTN	   12#
SADR	  412	 2139#
SAV1	  470#	  473
SAVE	  142	  229	  452#
SCO	 1376	 1968#
SCO1	 1975	 1991#
SCO10	 2037	 2039#
SCO2	 1981	 1993#
SCO21	 1990	 1994#	 2014	 2022
SCO3	 1977	 1979	 1996#
SCO4	 1983	 2002#
SCO41	 2004#	 2010
SCO42	 2006	 2012#
SCO43	 2011	 2013#
SCO5	 1985	 2015#
SCO6	 1973	 2023#
SCO7	 1970	 2025#

SCO8	 2028	 2032#
SCO9	 2031	 2034#
SCRVP	 1643#	 1700
SCRVZ	 1651#	 1714	 1871
SCVP	  809	 1619#
SCVPC	  363	  642	  806	 1627#	 1679	 1698	 1769	 1874
SCVZC	  268	 1635#	 1712	 1778	 1846
SEARCH	  333	  527	  539	  599	  642#	 1000	 1816
SEKV	 1955	 1968	 2023	 2026	 2034	 2176#
SERI@	   50#	 1375
SERIO	 1374#	 1950
SERO@	   51#	 1988	 1995	 1998	 2001	 2017	 2020	 2024	 2040
SETOUT	  115#	 1611
SETPPI	  114#	 1609
SINI1	 1957#
SINIT	 1374	 1950#
SKIP	  337	  535	  615	 1059	 1695	 1698#	 1834
SLEN	  148	  303#
SLEN@	  254	  295#
SLUZBA	  195#
SMST@	   52#	 1377
SOH	   76#	  345	  740
SPACE	   42#	  659	  682	  685
SPCL	   33#	  706
SPSAV	 2067#
STOP	  147	  210	  338	  645	  783	  883	 1014	 1025	 1034	 1069	 1101	 1598#
	 1675	 1696	 1710	 1767	 1850
SUBS	   71#	  492	  905	  925	  988
SUM	  427	 2141#
SZAVP	 1661#	 1736	 1860
TCOLUM	   56#	 2005	 2019
TEKP	  855	  865	 1214	 1256	 1551#	 1573	 1589	 1748	 1792
TESTJM	  612	  618#	  628
TEXT	   44#	  653	 1114
TLINE	   55#	 1997
TSM	 2177#
TSP	 2170#
TVBEG	   19#
TXER0	 1895	 1903#
TXER2	 1896	 1909#
TXER4	 1897	 1914#
TXER6	 1898	 1920#
TXER8	 1899	 1924#
TXERA	 1900	 1930#
TXERC	 1901	 1936#
TXERR	 1103	 1895#
TXIMM	   46#	  160	  295	  514	  555	  689	  710	 1041	 1095	 1399	 1459
TXNAM	 1459#
UDATA	   87#	 1961

UMODE	   85#	 1957
URES	   88#	 1958
USTAT	   86#	 1960
UVOD	   61#	  818	 1508
VERIF	  243	  311#
VRF1	  245	  503	  999#
VRF2	 1008#	 1027	 1838
VRF3	 1011	 1015#
VRF4	 1009	 1019#
VT	   69#	 1978
VYP1	  636#
VYPISH	  334	  623	  633#	 1398
WMKOD	 2075#
WND@	   47#
WNDP	 2127#
WOB	  495	  830#	  972
WOB1	  590	  833#
WRN1	  579#	  587
WRNAM	  348	  565#
WRNM	  578	 1311	 2165#
XFLG	 2131#
ZABLD	  854	 1299#
ZABLD1	 1302#	 1306
ZABLD2	 1313#	 1317
ZAC	  144#	  176
ZADMM	  588	  864	 1756#
ZAKB1	 1537#	 1540
ZAKBL	  863	  867	 1534#
ZAKMM	  270	  851	  862	  868	 1734#
ZAKS	  859	  862#
ZAKS1	  271	  864#	 1879
ZAKS2	  867#
ZAMM1	 1738#	 1745
ZAMM2	 1736#	 1758
ZAMM3	 1737	 1746#
ZAOZN	  853	 1508#
ZAOZN1	 1510	 1522#
ZMIO	 1434	 1439#

47#
WNDP	 2127#
WOB	  495	  830#	  972
WOB1	  590	  


ÚVOD | Novinky | 8 Bitů | Příslušenství | Drobnosti | TTL | Kontakt


SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | PP01 | PETR | PLAN-80A | IQ151 | TNS


ZPS | Technické prostředky | Programové vybavení | Dokumentace


8 bity / SAPI-1 / Programové vybavení / V5.0 / LST MIKOS/K



SAPI.cz - web o československých osmibitech, zejména SAPI-1. Provozuje EC1045 od roku 2011
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.
Animefest.cz