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


SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | klony SM50/40 | PETR | PLAN-80A | IQ151 | TNS


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	                                ;       18.5.88
    5	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    6	                                
    7	                                ;  VOLBA SYSTEMU
    8	                                
    9	  0000                          TV64    EQU     00      ; AND/G
   10	  0000                          CPM     EQU     00      ; 00 = ZPS-2; -1 = ZPS-3
   11	  0000                          SM      EQU     00      ; TERMINAL SM 7202
   12	  0000                          HORE    EQU     00
   13	  FFFF                          IMS     EQU     -1      ; PRO DPS-1 (IMS)
   14	                                
   15	                                ;===============================================
   16	                                
   17	  0000'                         	ASEG
   18	                                ;
   19	                                ;	*** DEFINOVANI PAMETOVEHO PROSTORU *
   20	                                ;
   21	  4000                          @R@	EQU	4000H	; ZACATEK
   22	  00CF                          RSTN	EQU	0CFH	; RST1 .. POUZIVA SYSTEM
   23	                                
   24	                                ;-----------------------------------------------
   25	                                
   26	                                        IF      CPM
   27	                                MONIT   EQU     100     ; START
   28	                                ERAM    EQU     9FFFH   ; VRCHOL RAM
   29	                                EP3     EQU     1900H   ; USER EPROM
   30	                                        IF      TV64
   31	                                TVBEG   EQU     0F800H
   32	                                        ELSE
   33	                                TVBEG   EQU     0E800H  ; TV-RAM
   34	                                        ENDIF
   35	                                EPROM   EQU     0C00H+100H ; O.S. EPROM
   36	                                        ELSE
   37	  0000                          MONIT   EQU     0       ; ROM VERZE ZPS2
   38	  0000                          ERAM	EQU	0000
   39	  1800                          EP3	EQU	1800H
   40	                                        IF      TV64
   41	                                TVBEG   EQU     0F800H
   42	                                        ELSE
   43	  3800                          TVBEG	EQU	3800H	; TV-RAM
   44	                                        ENDIF
   45	                                        IF      HORE
   46	                                EPROM   EQU     0B400H
   47	                                        ELSE
   48	  0C00                          EPROM	EQU	0C00H
   49	                                        ENDIF
   50	                                        ENDIF
   51	                                
   52	                                ;
   53	                                ;	* MONITOR ENTRY *
   54	                                ;
   55	  0103                          CI	EQU	103H
   56	  0106                          RI	EQU	106H
   57	  0109                          CO	EQU	109H
   58	  010C                          PO	EQU	10CH
   59	  0112                          CSTS	EQU	112H
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-1


   60	  0115                          IOCHK	EQU	115H
   61	  0118                          IOSET	EQU	118H
   62	  011E                          IODEF	EQU	11EH
   63	  0121                          SPCL	EQU	121H
   64	  0124                          CRLF	EQU	124H
   65	  0127                          EXPR	EQU	127H
   66	  012A                          ERROR	EQU	12AH
   67	  012D                          ASHEX	EQU	12DH
   68	  0130                          DADR	EQU	130H
   69	  0133                          DBYT	EQU	133H
   70	  0136                          HILO	EQU	136H
   71	  0139                          NEXT	EQU	139H
   72	  013C                          SPACE	EQU	13CH
   73	  013F                          CINCR	EQU	13FH
   74	  0142                          TEXT	EQU	142H
   75	  0148                          HXASC	EQU	148H
   76	  0151                          TXIMM	EQU	151H
   77	  0154                          WND@	EQU	154H
   78	  015A                          RNAME	EQU	15AH
   79	  015D                          INTER	EQU	15DH
   80	  017B                          SERI@	EQU	17BH
   81	  017E                          SERO@	EQU	17EH
   82	  0181                          SMST@	EQU	181H
   83	                                ;
   84	                                ; TERMINAL
   85	  0018                          TLINE	EQU	24
   86	  0050                          TCOLUM	EQU	80
   87	                                ; ZAZNAM
   88	  00FF                          LENGHT	EQU	255	; DELKA BLOKU
   89	  000B                          NAMLE	EQU	11	; DELKA JMENA
   90	  0040                          COMLE	EQU	64	; DELKA KOMENTARE
   91	  00FB                          UVOD	EQU	0FBH	; SYNCHRO BLOKU
   92	                                
   93	                                ;------------------------------------------
   94	                                ; KONSTANTY
   95	  0003                          ETX	EQU	3
   96	  0008                          BS	EQU	8
   97	  0009                          HT	EQU	9
   98	  000A                          LF	EQU	0AH
   99	  000B                          VT	EQU	0BH
  100	  000D                          CR	EQU	0DH
  101	  001A                          SUBS	EQU	1AH	; END FLAG
  102	  001B                          ESC	EQU	1BH
  103	  001D                          HOME	EQU	1DH
  104	                                
  105	                                ; BLOKOVA NAVESTI
  106	  0001                          SOH	EQU	01H	; "START OF HEADER"
  107	  0004                          EOT	EQU	04H	; "END OF TEXT"
  108	  003A                          CAN	EQU	':'	; JMENO PASKY
  109	                                ;		'A'	; DATOVY (ASCII) BLOK
  110	                                ;		'B'	; BINARNI BLOK
  111	                                
  112	                                ; SERIOVY KANAL
  113	                                ; =============
  114	                                
  115	  0010                          UMODE	EQU	10H
  116	  0011                          USTAT	EQU	11H
  117	  0012                          UDATA	EQU	12H
  118	  0013                          URES	EQU	13H
  119	  000D                          PRENOS  EQU     0DH     ; NASTAVENI PRENOSU (SM7202)
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-2


  120	                                                        ;          (PRO AND-16: 14H)
  121	                                ; PARAMETRY KZD-1
  122	                                ; ===============
  123	                                        IF      IMS
  124	  0009                          KZDIN   EQU     09H     ;    PRO IMS
  125	  0008                          KZDOUT  EQU     08H
  126	  000B                          KZDCTR  EQU     0BH
  127	                                        ELSE            ;    STD. KZD
  128	                                KZDIN	EQU	31H	; ADRESA VSTUPNIHO PORTU
  129	                                KZDOUT	EQU	30H	; ADRESA VYSTUPNIHO PORTU
  130	                                KZDCTR	EQU	33H	; ADRESA RIDICIHO REGISTRU
  131	                                        ENDIF           ; MHB 8255
  132	  0000                          PRODL   EQU     0       ; CASOVACI PARAMETR
  133	                                                        ; UDAVA PRODLOUZENI ZAPISOVEHO
  134	                                                        ; TAKTU V MIKROSEC.
  135	                                                        ;   PRODL=0  ... TAKT = 0,1 MSEC
  136	                                                        ;   PRODL=30 ... TAKT = 0,13 MSEC
  137	                                                        ;   PRODL=100... TAKT = 0,2 MSEC
  138	                                
  139	                                ; VYZNAM CHYBOVYCH HLASENI (PRIZNAK Z=0):
  140	                                ; =======================================
  141	                                ; CHYBA	  &jt;A>
  142	                                ;   0	  30H    ZAZNAM NENI POVOLEN       (SZAVP)
  143	                                ;   2     32H    CHYBA PRI CTENI DAT (CRC) (CTBLD,KOBLD)
  144	                                ;   4     34H    NESOUHLASI CISLO BLOKU	   (@READU)
  145	                                ;	         CHYBA PRI CTENI OZNACENI  (CTOZN)
  146	                                ;   6	  36H	 PRETIZENI MOTORKU	   (TEKP,CTTV)
  147	                                ;   8     38H    BYLA PRECTENA EM	   (@READU)
  148	                                ;   A	  3AH	 NENI BINARNI FORMAT	   (LOAD)
  149	                                ;   C	  3CH	 SOUBOR NEEXISTUJE	   (NUMB,CMPNM)
  150	                                
  151	                                ; DEFINICE KONSTANT:
  152	                                ; ==================
  153	  008B                          SETPPI	EQU	8BH
  154	  001F                          SETOUT	EQU	1FH
  155	  00FE                          KSCVP	EQU	0FEH
  156	  00BE                          KSCVPC	EQU	0BEH
  157	  00BB                          KSCVZC	EQU	0BBH
  158	  00BD                          KSCRVP	EQU	0BDH
  159	  00B7                          KSCRVZ	EQU	0B7H
  160	  00AE                          KSZAVP	EQU	0AEH
  161	  00FF                          KSTPCT	EQU	0FFH
  162	  00AF                          KSTPZA	EQU	0AFH
  163	  005C                          KONST1	EQU	05CH
  164	  00B3                          KPREVZ	EQU	0B3H
  165	                                
  166	                                ;************************************
  167	  0000                          	ASEG
  168	                                        IF      HORE
  169	                                        .PHASE  EPROM
  170	                                        ELSE
  171	                                	ORG	EPROM	; START
  172	                                        ENDIF
  173	                                ;************************************
  174	                                
  175	                                ;====================================
  176	                                ;  T A B U L K A  S L U Z E B  K O S
  177	                                ;====================================
  178	                                
  179	  0C00    C3 0C86               	JMP	MICOS	; BRANCH TABLE
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-3


  180	  0C03    C3 0C2A               	JMP	INITS	; INIT SYSTEM
  181	  0C06    C3 0DA2               	JMP	FIND	; 1
  182	  0C09    C3 0D3B               	JMP	OPEN	; 2
  183	  0C0C    C3 0E75               	JMP	CLOSE	; 3
  184	  0C0F    C3 0DD1               	JMP	LOAD	; 4
  185	  0C12    C3 0E3E               	JMP	SAVE	; 5
  186	  0C15    C3 0D0B               	JMP	BINAR	; 6
  187	  0C18    C3 1148               ZAC:	JMP	GET@	; 7
  188	  0C1B    C3 1523               	JMP	REWIND	; 8
  189	  0C1E    C3 11AF               	JMP	PUT@	; 9
  190	  0C21    C3 1541               	JMP	STOP	; 10
  191	  0C24    C3 0D2D               	JMP	SLEN	; 11
  192	  0C27    C3 0EC2               	JMP	NUMB@	; 12
  193	                                
  194	  002A                          MAXSL	EQU	$-EPROM
  195	                                
  196	                                ;====================================
  197	                                ; INICIALIZACE SYSTEMU KOS
  198	                                ;====================================
  199	                                
  200	  0C2A    3E A9                 INITS:	MVI	A,0A9H	; LO=L,RI-1,PO-1
  201	  0C2C    32 4158               	STA	FND	; NE FIND MODE
  202	  0C2F    32 40E2               	STA	IOBYT
  203	  0C32    CD 0151               	CALL	TXIMM	; OHLASENI
  204	  0C35    4D 49 4B 4F           	DB	'MIKOS/K V5.0 '
  205	  0C39    53 2F 4B 20           
  206	  0C3D    56 35 2E 30           
  207	  0C41    20                    
  208	  0C42    28 43 29 20           	DC	'(C) TESLA DIZ 1987 '
  209	  0C46    54 45 53 4C           
  210	  0C4A    41 20 44 49           
  211	  0C4E    5A 20 31 39           
  212	  0C52    38 37 A0              
  213	  0C55    21 0C75               	LXI	H,KOS@@
  214	  0C58    22 40D1               	SHLD	KOS@+1
  215	  0C5B    CD 1499                       CALL    NAF     ; NASTAV FLAGY
  216	  0C5E    21 0C18                       LXI     H,ZAC   ; VYPLN IODEF
  217	  0C61    11 40AC               	LXI	D,R1LOC
  218	  0C64    06 0C                 	MVI	B,12
  219	  0C66    CD 12DD               	CALL	MOVE
  220	  0C69    CD 1548               	CALL	INITIO	 ; INICIALIZACE 8255
  221	  0C6C    3A 1800               	LDA	EP3	; USER SYSTEM ?
  222	  0C6F    FE C3                 	CPI	0C3H
  223	  0C71    CC 1803               	CZ	EP3 + 3	; START
  224	                                ;
  225	                                        IF      HORE
  226	                                        LXI     D,0B3F8H
  227	                                        MVI     C,8
  228	                                        CALL    11EH    ; IODEF - MEMTOP
  229	                                        ENDIF
  230	                                ;
  231	  0C74    C9                    	RET
  232	                                
  233	                                ;===================================
  234	                                ;  VYHODNOCENI SLUZBY MONITORU
  235	                                ;===================================
  236	                                
  237	  0C75    0C                    KOS@@:	INR	C
  238	  0C76    11 0C00               	LXI	D,EPROM
  239	  0C79    06 2A                 	MVI	B,MAXSL
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-4


  240	  0C7B    EB                    SLUZBA:	XCHG		; JMENO
  241	  0C7C    79                    	MOV	A,C
  242	  0C7D    81                    	ADD	C
  243	  0C7E    81                    	ADD	C	; *3
  244	  0C7F    B8                    	CMP	B
  245	  0C80    D0                    	RNC		; VETSI
  246	  0C81    06 00                 	MVI	B,0
  247	  0C83    4F                    	MOV	C,A	; OFFSET
  248	  0C84    09                    	DAD	B	; VYPOCTI ADR
  249	  0C85    E9                    	PCHL
  250	                                
  251	                                ;===================================
  252	                                ; VYHODNOCENI POVELU OBSLUHY
  253	                                ;===================================
  254	                                
  255	  0C86    CD 1541               MICOS:	CALL	STOP
  256	  0C89    AF                    	XRA	A
  257	  0C8A    32 4101               	STA	EXTEXT	; 0..NENI
  258	  0C8D    0E 5F                 	MVI	C,'_'
  259	  0C8F    3A 4280               	LDA	JEVER
  260	  0C92    B7                    	ORA	A
  261	  0C93    CA 0C98               	JZ	$+5
  262	  0C96    0E 2A                 	MVI	C,'*'	; PRO VERIFIKACI
  263	  0C98    CD 0109               	CALL	CO
  264	  0C9B    CD 1490               	CALL	ECHOCR
  265	  0C9E    FE 49                 	CPI	'I'
  266	  0CA0    CA 0F32               	JZ	INIT	; INICIALIZACE PASKY
  267	  0CA3    FE 4F                 	CPI	'O'
  268	  0CA5    CA 0D3B               	JZ	OPEN	; OPEN OUTPUT
  269	  0CA8    FE 43                 	CPI	'C'	; CLOSE OUTPUT
  270	  0CAA    CA 0E75               	JZ	CLOSE
  271	  0CAD    FE 46                 	CPI	'F'	; FIND INPUT
  272	  0CAF    CA 0DA2               	JZ	FIND
  273	  0CB2    FE 53                 	CPI	'S'
  274	  0CB4    CA 0E3E               	JZ	SAVE
  275	  0CB7    FE 4C                 	CPI	'L'	; LOAD
  276	  0CB9    CA 0DD1               	JZ	LOAD
  277	  0CBC    FE 45                 	CPI	'E'
  278	  0CBE    CA 1614               	JZ	EOR
  279	  0CC1    FE 5A                 	CPI	'Z'
  280	  0CC3    CA 1575               	JZ	@BOT	; NASTAV NA "BOT"
  281	  0CC6    FE 42                 	CPI	'B'
  282	  0CC8    CA 15E8               	JZ	@BLOK	; O BLOK VPRED
  283	  0CCB    FE 3E                 	CPI	'>'
  284	  0CCD    CA 1597               	JZ	@SKIP	; O SOUBOR VPRED
  285	  0CD0    FE 3C                 	CPI	'&jt;'
  286	  0CD2    CA 15A9               	JZ	@BACK	; O SOUBOR VZAD
  287	  0CD5    FE 56                 	CPI	'V'
  288	  0CD7    CA 0D32               	JZ	VERIF	; NASTAV VERIFIKACI
  289	  0CDA    FE 50                 	CPI	'P'
  290	  0CDC    CA 11EE               	JZ	VRF1	; POROVNANI 1 SOUBORU
  291	  0CDF    FE 52                 	CPI	'R'
  292	  0CE1    16 01                 	MVI	D,1
  293	  0CE3    CA 1523               	JZ	REWIND	; PREVINUTI NA ZACATEK
  294	  0CE6    FE 44                 	CPI	'D'
  295	  0CE8    CA 1618               	JZ	@EOR	; ADRESAR KAZETY
  296	  0CEB    FE 4E                 	CPI	'N'
  297	  0CED    CA 0EAA               	JZ	NUMB	; NAJDI DLE CISLA SOUBORU
  298	  0CF0    FE 58                 	CPI	'X'
  299	  0CF2    CA 0D17               	JZ	SLEN@	; NASTAV DELKU BLOKU
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-5


  300	  0CF5    FE 4B                 	CPI	'K'	; ZAPIS EM
  301	  0CF7    C0                    	RNZ		; JINY POVEL
  302	                                
  303	                                ;************************************
  304	                                ; REALIZACE POVELU KOS-1
  305	                                ;************************************
  306	                                
  307	                                ;====================================
  308	                                ; ZAPIS EM NA PASKU
  309	                                ;====================================
  310	                                
  311	  0CF8    CD 141D               KONEC:	CALL	OK?
  312	  0CFB    C0                    	RNZ		; NEPIS
  313	  0CFC    CD 155B               	CALL	SCVZC
  314	  0CFF    CD 15FA               	CALL	HLKMM
  315	  0D02    CD 15C5               	CALL	ZAKMM
  316	  0D05    CD 1122                       CALL    ZAKS1
  317	  0D08    C3 165D                       JMP     EOR1    ; PRED "EM"
  318	                                
  319	                                ;====================================
  320	                                ; BINARNI SOUBOR NASTAV
  321	                                ;====================================
  322	                                
  323	  0D0B    3E 42                 BINAR:	MVI	A,'B'
  324	  0D0D    32 4159               	STA	BOUT-1
  325	  0D10    C9                    	RET
  326	                                
  327	                                ;====================================
  328	                                ; UZAVRI A PRIPOJ DALSI SOUBOR
  329	                                ;====================================
  330	                                
  331	  0D11    CD 0E75               NOVYOT:	CALL	CLOSE
  332	  0D14    C3 0D6B               	JMP	OPE4
  333	                                
  334	                                ;====================================
  335	                                ; NASTAV DELKU BLOKU
  336	                                ;	VSTUP:	E - DELKA BLOKU
  337	                                ;	       (PRI VOLANI SLUZBY 157
  338	                                ;		JE DELKA BLOKU V &jt;L>
  339	                                ;====================================
  340	                                
  341	  0D17    CD 0151               SLEN@:	CALL	TXIMM
  342	  0D1A    0D 0A                 	DB	CR,LF
  343	  0D1C    44 45 4C 4B           	DC	'DELKA BLOKU'
  344	  0D20    41 20 42 4C           
  345	  0D24    4F 4B D5              
  346	  0D27    0E 01                 	MVI	C,1
  347	  0D29    CD 0127               	CALL	EXPR
  348	  0D2C    D1                    	POP	D
  349	  0D2D    7B                    SLEN:	MOV	A,E
  350	  0D2E    32 427F               	STA	DEBL	; NOVA DELKA BLOKU
  351	  0D31    C9                    	RET
  352	                                
  353	                                ;====================================
  354	                                ; PREPNI NASTAVENI VERIFIKACE
  355	                                ;====================================
  356	                                
  357	  0D32    3A 4280               VERIF:	LDA	JEVER
  358	  0D35    EE FF                 	XRI	0FFH
  359	  0D37    32 4280               	STA	JEVER
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-6


  360	  0D3A    C9                    	RET
  361	                                
  362	                                ;====================================
  363	                                ; OTEVRI NOVY SOUBOR PRO ZAPIS
  364	                                ;====================================
  365	                                
  366	  0D3B    AF                    OPEN:	XRA	A
  367	  0D3C    CD 1443               	CALL	IOPO	; NASTAV IOBYT
  368	  0D3F    CD 1431               	CALL	NPO
  369	  0D42    F8                    	RM		; PO=SYSTEM..
  370	  0D43    0E 02                 	MVI	C,2
  371	  0D45    C2 40D9               	JNZ	CCPM	; USER=2
  372	  0D48    CD 015A               	CALL	RNAME
  373	  0D4B    FE 40                 	CPI	'@'	; VYBER
  374	  0D4D    CA 0D8C               	JZ	OPE2	; ZA SOUBOR
  375	  0D50    FE 2E                 	CPI	'.'
  376	  0D52    C2 0D7D               	JNZ	OPE5	; NA KONEC (APPEND)
  377	  0D55    CD 157B               	CALL	BOT	; OD ZACATKU
  378	  0D58    E5                    	PUSH	H
  379	  0D59    CD 0FC1               OPE1:	CALL	SEARCH	; KONEC ZAZNAMU ?
  380	  0D5C    CD 0FB8               	CALL	VYPISH	; SOH
  381	  0D5F    CD 159D                       CALL    SKIP
  382	  0D62    CD 1541               	CALL	STOP
  383	  0D65    CD 141D               	CALL	OK?
  384	  0D68    C2 0D59               	JNZ	OPE1	; DALSI SOUBOR
  385	  0D6B    2A 4150               OPE4:	LHLD	BNO	; CISLO SOUBORU
  386	  0D6E    24                    	INR	H
  387	  0D6F    2E 00                 	MVI	L,0
  388	  0D71    22 4150               	SHLD	BNO	; CISLO BLOKU A SOUBORU
  389	  0D74    3E 01                 	MVI	A,SOH
  390	  0D76    32 40E6               	STA	@OF1
  391	  0D79    E1                    	POP	H
  392	  0D7A    C3 0F49               	JMP	WRNAM
  393	                                
  394	  0D7D    3E 08                 OPE5:	MVI	A,8	; NASTAV PO=1
  395	  0D7F    CD 1449               	CALL	IOPO1
  396	  0D82    E5                    	PUSH	H
  397	  0D83    CD 12AC               	CALL	BLOK4
  398	  0D86    CD 1614               	CALL	EOR
  399	  0D89    C3 0D6B               	JMP	OPE4
  400	                                
  401	  0D8C    3E 08                 OPE2:	MVI	A,8
  402	  0D8E    CD 1449               	CALL	IOPO1
  403	  0D91    3A 40E6               	LDA	@OF1	; PODRUHE ?
  404	  0D94    B7                    	ORA	A
  405	  0D95    C2 0D11               	JNZ	NOVYOT
  406	  0D98    E5                    	PUSH	H
  407	  0D99    CD 1556               	CALL	SCVPC
  408	  0D9C    CD 15B8               	CALL	HLDMM	; ZA SOUBOR
  409	  0D9F    C3 0D6B               	JMP	OPE4
  410	                                
  411	                                ;====================================
  412	                                ; OTEVRI SOUBOR PRO CTENI
  413	                                ;====================================
  414	                                
  415	  0DA2    AF                    FIND:	XRA	A
  416	  0DA3    CD 144E               	CALL	IORI
  417	  0DA6    CD 143D               	CALL	NRI
  418	  0DA9    F8                    	RM		; SYSTEM RI
  419	  0DAA    0E 01                 	MVI	C,1
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-7


  420	  0DAC    C2 40D9               	JNZ	CCPM	; USER 2
  421	  0DAF    CD 015A               	CALL	RNAME
  422	  0DB2    FE 2E                 	CPI	'.'
  423	  0DB4    CC 157B               	CZ	BOT
  424	  0DB7    06 0B                 	MVI	B,NAMLE
  425	  0DB9    11 4144               	LXI	D,FNAME
  426	  0DBC    CD 12DD               	CALL	MOVE
  427	  0DBF    CD 0F7D               	CALL	CMPNM
  428	  0DC2    3E 01                 FIND1:  MVI     A,1
  429	  0DC4    32 4152                       STA     BNI
  430	  0DC7    32 40E4               	STA	@IF1
  431	  0DCA    CD 11A4               	CALL	BUFEND
  432	  0DCD    22 4156               	SHLD	ADRI
  433	  0DD0    C9                    	RET
  434	                                
  435	                                ;====================================
  436	                                ; CTI BINARNI SOUBOR
  437	                                ;====================================
  438	                                ;
  439	  0DD1    CD 0DA2               LOAD:	CALL	FIND	; OTEVRI SOUBOR
  440	  0DD4    CD 12C7               LO1:	CALL	RICH
  441	  0DD7    B7                    	ORA	A	; BLANK?
  442	  0DD8    CA 0DD4               	JZ	LO1
  443	  0DDB    D6 3C                 	SUI	'&jt;'
  444	  0DDD    F5                    	PUSH	PSW
  445	  0DDE    3E 3A                 	MVI	A,3AH
  446	  0DE0    C2 14AA               	JNZ	ERREND	; NENI BINARNI FORMAT
  447	  0DE3    F1                    	POP	PSW
  448	  0DE4    47                    	MOV	B,A	; KONTROLNI SOUCET
  449	  0DE5    CD 12BE               	CALL	RADR@
  450	  0DE8    22 40FE               	SHLD	EADR	; KONCOVA ADRESA
  451	  0DEB    EB                    	XCHG
  452	  0DEC    CD 12BE               	CALL	RADR@
  453	  0DEF    22 40FC               	SHLD	SADR	; START. ADRESA
  454	  0DF2    CD 12C7               	CALL	RICH
  455	  0DF5    FE 3E                 	CPI	'>'
  456	  0DF7    F5                    	PUSH	PSW
  457	  0DF8    3E 3A                 	MVI	A,3AH
  458	  0DFA    C2 14AA               	JNZ	ERREND	; NENI BINAR
  459	  0DFD    F1                    	POP	PSW
  460	  0DFE    E5                    	PUSH	H
  461	  0DFF    CD 12B8               	CALL	CHECK
  462	  0E02    06 00                 	MVI	B,0	; NULUJ
  463	  0E04    CD 12C7               LO2:	CALL	RICH
  464	  0E07    77                    	MOV	M,A
  465	  0E08    CD 0136               	CALL	HILO
  466	  0E0B    D2 0E04               	JNC	LO2
  467	  0E0E    CD 12B8               	CALL	CHECK
  468	  0E11    32 4100               	STA	SUM
  469	  0E14    E1                    	POP	H
  470	  0E15    11 4401               	LXI	D,4401H
  471	  0E18    CD 0136               	CALL	HILO
  472	  0E1B    C2 0E24               	JNZ	CLSTP
  473	  0E1E    21 0000               	LXI	H,0
  474	  0E21    22 40FA               	SHLD	@BT
  475	                                
  476	                                ; UZAVRI VSTUPNI SOUBOR
  477	  0E24    CD 0124               CLSTP:	CALL	CRLF
  478	  0E27    CD 143D               	CALL	NRI
  479	  0E2A    F8                    	RM
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-8


  480	  0E2B    C2 0E39               	JNZ	CLST2
  481	  0E2E    AF                    DIRSTP:	XRA	A
  482	  0E2F    32 40E4               	STA	@IF1	; CLOSE
  483	  0E32    2F                    	CMA
  484	  0E33    32 427F               	STA	DEBL	; BLOK 255 B
  485	  0E36    C3 1597               	JMP	@SKIP	; ZA EM A STOP
  486	  0E39    AF                    CLST2:	XRA	A
  487	  0E3A    32 40E5               	STA	@IF2
  488	  0E3D    C9                    	RET
  489	                                ;====================================
  490	                                ; ULOZ BINARNI SOUBOR
  491	                                ;====================================
  492	                                
  493	  0E3E    CD 0D3B               SAVE:	CALL	OPEN
  494	  0E41    0E 02                 	MVI	C,2
  495	  0E43    CD 0127               	CALL	EXPR	; ROZSAH ADRES
  496	  0E46    CD 1431               	CALL	NPO
  497	  0E49    CC 0D0B               	CZ	BINAR
  498	  0E4C    0E 3C                 	MVI	C,'&jt;'	; PRVNI BYTE
  499	  0E4E    CD 12D7               	CALL	POCH
  500	  0E51    06 00                 	MVI	B,0	; KONTROLNI SOUCET
  501	  0E53    E1                    	POP	H	; POCATECNI ADRESA
  502	  0E54    D1                    	POP	D	; KONCOVA ADRESA
  503	  0E55    CD 12D2               	CALL	PADR@
  504	  0E58    EB                    	XCHG
  505	  0E59    CD 12D2               	CALL	PADR@
  506	  0E5C    0E 3E                 	MVI	C,'>'
  507	  0E5E    CD 12D7               	CALL	POCH
  508	  0E61    48                    	MOV	C,B	; KONTROLNI SUMA ADRES
  509	  0E62    CD 12D7               	CALL	POCH
  510	  0E65    06 00                 	MVI	B,0	; KONTROLNI SUMA DAT
  511	  0E67    4E                    SAV1:	MOV	C,M
  512	  0E68    CD 12D7               	CALL	POCH
  513	  0E6B    CD 0136               	CALL	HILO
  514	  0E6E    D2 0E67               	JNC	SAV1
  515	  0E71    48                    	MOV	C,B	; SUMA
  516	  0E72    CD 12D7               	CALL	POCH
  517	                                
  518	                                ;====================================
  519	                                ; UZAVRI VYSTUPNI SOUBOR
  520	                                ;====================================
  521	                                
  522	  0E75    CD 1431               CLOSE:	CALL	NPO
  523	  0E78    F8                    	RM
  524	  0E79    0E 03                 	MVI	C,3
  525	  0E7B    C2 40D9               	JNZ	CCPM
  526	  0E7E    3A 40E6               CLOSE0:	LDA	@OF1	; NENI OTEVREN
  527	  0E81    B7                    	ORA	A
  528	  0E82    C8                    	RZ
  529	  0E83    D5                    	PUSH	D
  530	  0E84    E5                    	PUSH	H
  531	  0E85    2A 4154               	LHLD	ADRO
  532	  0E88    23                    	INX	H
  533	  0E89    36 1A                 	MVI	M,SUBS	; ZAPIS POSLEDNI ZNAK
  534	  0E8B    3E 04                 	MVI	A,EOT	; UZAVRI BLOK
  535	  0E8D    32 4159               	STA	BOUT-1
  536	  0E90    CD 10E4               	CALL	WOB
  537	  0E93    AF                    	XRA	A
  538	  0E94    32 40E6               	STA	@OF1	; CLOSE
  539	  0E97    CD 165D               	CALL	EOR1	; PRED EM
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-9


  540	  0E9A    3A 4280               	LDA	JEVER
  541	  0E9D    B7                    	ORA	A
  542	  0E9E    CA 0EA7               	JZ	CLOSE1
  543	  0EA1    CD 15AF               	CALL	BACK
  544	  0EA4    CD 11EE               	CALL	VRF1
  545	  0EA7    E1                    CLOSE1:	POP	H
  546	  0EA8    D1                    	POP	D
  547	  0EA9    C9                    	RET
  548	                                
  549	                                ;====================================
  550	                                ; NAJDI SOUBOR DLE CISLA A OTEVRI
  551	                                ;	VSTUP: PRO VOLANI SLUZBOU 157
  552	                                ;	       L - CISLO SOUBORU
  553	                                ;====================================
  554	                                
  555	  0EAA    CD 0151               NUMB:	CALL	TXIMM
  556	  0EAD    0D 0A                 	DB	CR,LF
  557	  0EAF    43 49 53 4C           	DC	'CISLO SOUBORU'
  558	  0EB3    4F 20 53 4F           
  559	  0EB7    55 42 4F 52           
  560	  0EBB    D5                    
  561	  0EBC    0E 01                 	MVI	C,1
  562	  0EBE    CD 0127               	CALL	EXPR
  563	  0EC1    D1                    	POP	D
  564	  0EC2    7B                    NUMB@:	MOV	A,E	; CISLO SOUBORU
  565	                                                        ; &jt;DE> TO DA SLUZBA 157!!
  566	  0EC3    B7                    	ORA	A
  567	  0EC4    CA 0ED0                       JZ      NUM1
  568	  0EC7    32 4151                       STA     BTO     ; PRO "00"
  569	  0ECA    CD 157B                       CALL    BOT
  570	  0ECD    C3 15E8                       JMP     @BLOK   ; ZA NAZEV PASKY
  571	  0ED0    CD 0FC1               NUM1:   CALL    SEARCH
  572	  0ED3    C2 0EDD                       JNZ     NUM2
  573	  0ED6    AF                            XRA     A       ; PRO "EM"
  574	  0ED7    32 4281                       STA     KAM?
  575	  0EDA    C3 0F01                       JMP     NUM5
  576	  0EDD    7B                    NUM2:   MOV     A,E     ; HLEDANE C.S.
  577	  0EDE    B9                            CMP     C       ; CTENE C.S.
  578	  0EDF    D2 0EE3                       JNC     NUM3
  579	  0EE2    AF                            XRA     A       ; PRO ZPET
  580	  0EE3    32 4281               NUM3:   STA     KAM?
  581	  0EE6    7B                    NUM4:   MOV     A,E     ; HLEDANE C.S.
  582	  0EE7    B9                            CMP     C       ; CTENE C.S.
  583	  0EE8    C2 0DC2                       JNZ     FIND1   ; OK - NASEL
  584	  0EEB    3A 4281                       LDA     KAM?
  585	  0EEE    DA 0F01                       JC      NUM5
  586	  0EF1    B7                            ORA     A       ; PRO VPRED
  587	  0EF2    CA 0F16                       JZ      NUM6    ; BILO ZPET, HLEDEJ JINAK
  588	  0EF5    CD 159D                       CALL    SKIP
  589	  0EF8    CD 0FC1                       CALL    SEARCH
  590	  0EFB    CA 0F2A                       JZ      NUM8    ; PRO "EM" SOUBOR NENI
  591	  0EFE    C3 0EE6                       JMP     NUM4
  592	  0F01    B7                    NUM5:   ORA     A       ; PRO ZPET
  593	  0F02    C2 0F16                       JNZ     NUM6    ; BYLO VPRED, HLEDEJ JINAK
  594	  0F05    CD 15AF                       CALL    BACK
  595	  0F08    CD 15AF                       CALL    BACK
  596	  0F0B    CD 0FC1                       CALL    SEARCH
  597	  0F0E    79                            MOV     A,C     ; CTENE C.S.
  598	  0F0F    B7                            ORA     A
  599	  0F10    CA 0F2A                       JZ      NUM8    ; PRO "CAN" SOUBOR NENI
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-10


  600	  0F13    C3 0EE6                       JMP     NUM4
  601	                                
  602	                                
  603	  0F16    CD 157B               NUM6:   CALL    BOT     ; HLEDEJ OD ZACATKU
  604	  0F19    CD 0FC1               NUM7:   CALL    SEARCH
  605	  0F1C    CA 0F2A                       JZ      NUM8    ; SOUBOR NENI
  606	  0F1F    7B                            MOV     A,E     ; HLEDANE C.S.
  607	  0F20    B9                            CMP     C       ; CTENE C.S.
  608	  0F21    CA 0DC2                       JZ      FIND1   ; OK - NASEL
  609	  0F24    CD 159D                       CALL    SKIP
  610	  0F27    C3 0F19                       JMP     NUM7
  611	  0F2A    CD 165D               NUM8:   CALL    EOR1    ; PRED "EM"
  612	  0F2D    3E 3C                         MVI     A,3CH
  613	  0F2F    C3 14AA                       JMP     ERREND
  614	                                
  615	                                ;====================================
  616	                                ; INICIALIZUJ NOVOU KAZETU
  617	                                ;====================================
  618	                                
  619	  0F32    CD 166C               INIT:	CALL	FORM	; FORMATOVANI
  620	  0F35    CD 0151               	CALL	TXIMM
  621	  0F38    20 5A 41 44           	DC	' ZADEJ'
  622	  0F3C    45 CA                 
  623	  0F3E    21 0000               	LXI	H,0	; CISLO SOUBORU
  624	  0F41    22 4150               	SHLD	BNO	; A BLOKU
  625	  0F44    CD 015A               	CALL	RNAME	; JMENO PASKY
  626	  0F47    3E 3A                 	MVI	A,CAN
  627	                                
  628	                                ; ZAPIS JMENO SOUBORU
  629	                                
  630	  0F49    E5                    WRNAM:	PUSH	H
  631	  0F4A    F5                    	PUSH	PSW
  632	  0F4B    CD 112F               	CALL	NULBF
  633	  0F4E    F1                    	POP	PSW
  634	  0F4F    77                    	MOV	M,A
  635	  0F50    23                    	INX	H
  636	  0F51    06 40                 	MVI	B,COMLE	; JMENO+POZNAMKA
  637	  0F53    EB                    	XCHG
  638	  0F54    E1                    	POP	H
  639	  0F55    D5                    	PUSH	D
  640	  0F56    CD 12DD               	CALL	MOVE
  641	  0F59    E1                    	POP	H
  642	  0F5A    06 0B                 	MVI	B,NAMLE
  643	  0F5C    11 4259               	LXI	D,WRNM	; VYSTUPNI POLE
  644	  0F5F    7E                    WRN1:	MOV	A,M
  645	  0F60    B7                    	ORA	A
  646	  0F61    C2 0F66               	JNZ	$+5
  647	  0F64    3E 20                 	MVI	A,' '	; BLANK
  648	  0F66    12                    	STAX	D
  649	  0F67    23                    	INX	H
  650	  0F68    13                    	INX	D
  651	  0F69    05                    	DCR	B
  652	  0F6A    C2 0F5F               	JNZ	WRN1
  653	  0F6D    CD 15E1               	CALL	ZADMM	; DMM PRED SOUBOREM
  654	  0F70    0E 41                 	MVI	C,COMLE+1 ; DELKA BLOKU
  655	  0F72    CD 10E9               	CALL	WOB1
  656	  0F75    36 41                 	MVI	M,'A'	; TYP DATA
  657	  0F77    C3 0124               	JMP	CRLF
  658	                                
  659	                                ;====================================
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-11


  660	                                ; TEST NA JMENO
  661	                                
  662	  0F7A    CD 0FDD               	CALL	PHDR
  663	  0F7D    CD 0FC1               CMPNM:	CALL	SEARCH	; POROVNEJ JMENO
  664	  0F80    C2 0F88               	JNZ	CMPN1
  665	  0F83    3E 3C                 	MVI	A,3CH	; KONEC SOUBORU
  666	  0F85    C3 14AA               	JMP	ERREND
  667	  0F88    3A 4159               CMPN1:	LDA	BIN-1
  668	  0F8B    FE 3A                 	CPI	CAN
  669	  0F8D    CA 0F7A               	JZ	CMPNM-3	; VYPIS VOLUME JMENO
  670	                                			; PRO ZAPIS
  671	  0F90    C5                    CPF10:	PUSH	B	; &jt;C> - CISLO SOUBORU
  672	  0F91    01 4144               	LXI	B,FNAME
  673	  0F94    21 4159               	LXI	H,BIN-1
  674	  0F97    1E 0B                 	MVI	E,NAMLE
  675	  0F99    CD 0FA4               	CALL	TESTJM
  676	  0F9C    C1                    	POP	B
  677	  0F9D    C8                    	RZ		; OK - NASEL
  678	  0F9E    CD 159D               	CALL	SKIP
  679	  0FA1    C3 0F7D               	JMP	CMPNM	; DALSI JMENO
  680	                                
  681	  0FA4    23                    TESTJM:	INX	H	; JMENO
  682	  0FA5    0A                    	LDAX	B
  683	  0FA6    FE 2A                 	CPI	'*'
  684	  0FA8    CA 141A               	JZ	JMENO?
  685	  0FAB    CD 1412               	CALL	@ANAL
  686	  0FAE    CA 0FB8               	JZ	VYPISH
  687	  0FB1    BE                    	CMP	M
  688	  0FB2    C0                    	RNZ
  689	  0FB3    03                    	INX	B
  690	  0FB4    1D                    	DCR	E
  691	  0FB5    C2 0FA4               	JNZ	TESTJM
  692	                                
  693	                                
  694	                                ; VYPIS HLAVICKU
  695	                                
  696	  0FB8    C5                    VYPISH:	PUSH	B
  697	  0FB9    D5                    	PUSH	D
  698	  0FBA    CD 0FDD               	CALL	PHDR
  699	                                        IF      SM
  700	                                        LDA     TSM
  701	                                        ORA     A
  702	                                        JNZ     VYP1
  703	                                        MVI     C,1FH   ; PRO TERMINAL
  704	                                        CALL    SERO@
  705	                                        CALL    CRLF
  706	                                        ENDIF
  707	  0FBD    D1                    VYP1:	POP	D
  708	  0FBE    C1                    	POP	B
  709	  0FBF    AF                    	XRA	A
  710	  0FC0    C9                    	RET
  711	                                
  712	                                
  713	                                        IF      SM
  714	                                SERCR:  MVI     C,CR    ; ZNAK "CR" NA SERIOVY
  715	                                        JMP     SERO@   ; VYSTUP
  716	                                        ENDIF
  717	                                
  718	                                
  719	  0FC1    CD 1556               SEARCH:	CALL	SCVPC	; NALEZENI SOUBORU
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-12


  720	  0FC4    CD 15B8               	CALL	HLDMM	; NA PASCE A TEST
  721	  0FC7    D5                            PUSH    D
  722	  0FC8    CD 1078               	CALL	READBL
  723	  0FCB    D1                            POP     D
  724	  0FCC    FE 38                         CPI     38H
  725	  0FCE    CA 1541                       JZ      STOP    ; PRO "EM"
  726	  0FD1    F5                            PUSH    PSW
  727	  0FD2    79                            MOV     A,C     ; CISLO BLOKU
  728	  0FD3    32 4153                       STA     BTI
  729	  0FD6    32 4151                       STA     BTO
  730	  0FD9    F1                            POP     PSW
  731	  0FDA    C3 1541               	JMP	STOP
  732	                                
  733	                                
  734	                                ; TISK HLAVICKY SOUBORU
  735	                                
  736	  0FDD                          PHDR:   IF      SM
  737	                                        LDA     TSM
  738	                                        ORA     A
  739	                                        PUSH    PSW
  740	                                        CNZ     CRLF    ; POUZE PRO TV
  741	                                        POP     PSW
  742	                                        CZ      SERCR   ; PRO TERMINAL
  743	                                        ELSE
  744	  0FDD    CD 0124                       CALL    CRLF
  745	                                        ENDIF
  746	  0FE0    21 415A               PHDR1:	LXI	H,BIN
  747	  0FE3    16 40                 	MVI	D,COMLE
  748	  0FE5    C3 0142               	JMP	TEXT
  749	                                
  750	  0FE8    C5                    PDIR:	PUSH	B
  751	  0FE9    79                    	MOV	A,C
  752	  0FEA    CD 1015               	CALL	DBTV2
  753	  0FED    CD 0FE0               	CALL	PHDR1
  754	  0FF0    CD 013C               	CALL	SPACE
  755	  0FF3    C1                    	POP	B
  756	  0FF4    C9                    	RET
  757	                                
  758	                                
  759	                                ; VYPIS NA CO PRO IDENTIFIKACI BLOKU
  760	                                
  761	  0FF5    21 4264               PNAME:	LXI	H,READNM ; VYPIS "E" ZNAKU Z POLE
  762	  0FF8    7E                    PNAM1:	MOV	A,M	 ; READNM NA CO
  763	  0FF9    FE 1F                 	CPI	1FH
  764	  0FFB    D2 1000               	JNC	PNAM2
  765	  0FFE    C6 40                 	ADI	40H	; KOD SAPI-1 NA ASCII
  766	  1000    4F                    PNAM2:	MOV	C,A
  767	  1001    CD 0109               	CALL	CO
  768	  1004    23                    	INX	H
  769	  1005    1D                    	DCR	E
  770	  1006    C2 0FF8               	JNZ	PNAM1
  771	  1009    C9                    	RET
  772	                                
  773	                                
  774	  100A    CD 0124               DBTCR:	CALL	CRLF
  775	  100D    7A                    DBTV:	MOV	A,D
  776	  100E    CD 0133               	CALL	DBYT
  777	  1011    CD 013C               DBTV1:	CALL	SPACE
  778	  1014    78                    	MOV	A,B
  779	  1015    CD 0133               DBTV2:	CALL	DBYT
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-13


  780	  1018    C3 013C               	JMP	SPACE
  781	                                
  782	                                
  783	  101B    2A 427A               OBNOV:	LHLD	POSICE	; VRACENI OKNA
  784	  101E    CD 0151               	CALL	TXIMM
  785	  1021    9B                    	DB	9BH	; ESC
  786	  1022    4D                    	MOV	C,L
  787	  1023    CD 0109               	CALL	CO
  788	  1026    4C                    	MOV	C,H
  789	  1027    CD 0109               	CALL	CO
  790	  102A    3A 427C               	LDA	MOD@
  791	  102D    32 40E3               	STA	MODE
  792	  1030    C9                    	RET
  793	                                
  794	                                
  795	  1031    D5                    OKNO:	PUSH	D	; NASTAVENI OKNA
  796	  1032    C5                    	PUSH	B
  797	  1033    21 40E3               	LXI	H,MODE
  798	  1036    7E                    	MOV	A,M
  799	  1037    36 00                 	MVI	M,0	; ZRUS ^P
  800	  1039    32 427C               	STA	MOD@
  801	  103C    CD 0121               	CALL	SPCL
  802	  103F    21 2020               	LXI	H,2020H
  803	  1042    19                    	DAD	D
  804	  1043    22 427A               	SHLD	POSICE
  805	  1046    CD 0151               	CALL	TXIMM
  806	  1049    9D                    	DB	HOME OR 80H
  807	  104A    C1                    	POP	B
  808	  104B    D1                    	POP	D
  809	  104C    C9                    	RET
  810	                                
  811	                                
  812	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  813	                                
  814	                                ;  OPERACE SE SOUBORY
  815	                                
  816	                                ;=======================================
  817	                                ; CTI VSTUPNI BUFFER
  818	                                ;=======================================
  819	                                
  820	  104D    D5                    RIB:	PUSH	D
  821	  104E    C5                    	PUSH	B
  822	  104F    AF                    	XRA	A
  823	  1050    32 4158               	STA	FND	; FIND MOD
  824	  1053    CD 1078               	CALL	READBL
  825	  1056    B7                    	ORA	A
  826	  1057    C2 128F               	JNZ	ERRD	; CHYBA CTENI BLOKU
  827	  105A    CD 106E               	CALL	NUFIL	; CISLA OK ?
  828	  105D    C2 128F               	JNZ	ERRD
  829	  1060    22 4152               RIB1:	SHLD	BNI
  830	  1063    C1                    	POP	B
  831	  1064    D1                    	POP	D
  832	  1065    3A 4159               RIB2:	LDA	BIN-1	; TYP BLOKU
  833	  1068    FE 3A                 	CPI	CAN	; NAZEV PASKY
  834	  106A    C8                    	RZ
  835	  106B    FE 01                 	CPI	SOH	; JMENO SOUBORU
  836	  106D    C9                    	RET		; &jt;A> = TYP BLOKU
  837	                                
  838	                                
  839	  106E    2A 4152               NUFIL:	LHLD	BNI
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-14


  840	  1071    23                    	INX	H	; CISLO BLOKU
  841	  1072    79                    	MOV	A,C
  842	  1073    BC                    	CMP	H	; OK?
  843	  1074    C0                    	RNZ
  844	  1075    78                    	MOV	A,B
  845	  1076    BD                    	CMP	L	; CISLO SOUBORU ?
  846	  1077    C9                    	RET
  847	                                
  848	                                
  849	                                ;=============================================
  850	                                ; CTENI BLOKU	VYSTUP:	B -CISLO BLOKU CTENE 
  851	                                ;			C -CISLO SOUBORU CTENE
  852	                                ;			A =0 - CTENI OK
  853	                                ;			A&jt;>0 - CHYBA
  854	                                ;=============================================
  855	                                
  856	  1078    CD 10C3               READBL:	CALL	@READU	; CTENI UVODU BLOKU
  857	  107B    B7                    	ORA	A
  858	  107C    C2 1098               	JNZ	KONBL1	; PRO CHYBU
  859	  107F    21 4264               	LXI	H,READNM
  860	  1082    36 3A                 	MVI	M,':'	; VYHLEDAVANI
  861	  1084    3A 4158               	LDA	FND
  862	  1087    B7                    	ORA	A
  863	  1088    C2 1092               	JNZ	KONBL0
  864	  108B    36 2A                 	MVI	M,'*'
  865	  108D    79                    	MOV	A,C
  866	  108E    3D                    	DCR	A
  867	  108F    32 427F               	STA	DEBL	; DELKA BLOKU
  868	  1092    23                    KONBL0:	INX	H
  869	  1093    36 22                 	MVI	M,'"'
  870	  1095    CD 133D               	CALL	CTBLD	; CTENI BLOKU DAT
  871	                                
  872	  1098    F5                    KONBL1:	PUSH	PSW	; &jt;A> = CHYBA
  873	  1099    3A 4159               	LDA	BIN-1
  874	  109C    FE 42                 	CPI	'B'
  875	  109E    CA 10A8               	JZ	KONBL2	; NENI STOP
  876	  10A1    3A 4158               	LDA	FND
  877	  10A4    B7                    	ORA	A
  878	  10A5    CC 1541               	CZ	STOP
  879	  10A8    CD 1031               KONBL2:	CALL	OKNO
  880	  10AB    1E 0F                 	MVI	E,15
  881	  10AD    7B                    	MOV	A,E
  882	  10AE    32 4158               	STA	FND	; NE FIND MOD
  883	  10B1    CD 0FF5               	CALL	PNAME	; VYPIS JMENA
  884	  10B4    CD 100D               	CALL	DBTV
  885	  10B7    CD 101B               	CALL	OBNOV
  886	  10BA    21 4159               	LXI	H,BIN-1
  887	  10BD    22 4156               	SHLD	ADRI
  888	  10C0    F1                    	POP	PSW
  889	  10C1    4A                    	MOV	C,D	; CISLO SOUBORU
  890	  10C2    C9                    	RET		; A=0  PRO OK
  891	                                			; A&jt;>0 PRO CHYBU
  892	                                
  893	                                ;==============================================
  894	                                ; CTENI UVODU BLOKU
  895	                                ;	VYSTUP: B - CISLO BLOKU CTENE
  896	                                ;		C - DELKA BLOKU
  897	                                ;		D - CISLO SOUBORU CTENE
  898	                                ;	  NEBO  VIZ TEKP
  899	                                ;===========================================
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-15


  900	                                
  901	  10C3    CD 1556               @READU:	CALL	SCVPC
  902	  10C6    CD 15FA               	CALL	HLKMM
  903	  10C9    C0                    	RNZ		; PRO CHYBU (A=31)
  904	  10CA    CD 1551               	CALL	SCVP
  905	  10CD    CD 12E6               	CALL	CTTV
  906	  10D0    FE 36                 	CPI	36H
  907	  10D2    CA 14AA               	JZ	ERREND	; KONEC PASKY
  908	  10D5    4F                    	MOV	C,A
  909	  10D6    B7                    	ORA	A
  910	  10D7    3E 38                 	MVI	A,38H
  911	  10D9    C8                    	RZ		; PRO KONEC SOUBORU
  912	  10DA    79                    	MOV	A,C
  913	  10DB    FE FB                 	CPI	UVOD
  914	  10DD    C0                    	RNZ		; NENI SYNCHRONIZACE
  915	  10DE    CD 1323               	CALL	CTOZN
  916	  10E1    C0                    	RNZ		; PRO CHYBU CTENI ONACENI
  917	  10E2    AF                    	XRA	A	;   BLOKU (A=34)
  918	  10E3    C9                    	RET		; PRO CTOZN OK
  919	                                
  920	                                
  921	                                ;==============================================
  922	                                ; ZAPIS VYSTUPNI BUFFER
  923	                                ;==============================================
  924	                                
  925	  10E4    3A 427F               WOB:	LDA	DEBL	; DELKA BLOKU
  926	  10E7    4F                    	MOV	C,A
  927	  10E8    0C                    	INR	C	; + TYP BLOKU
  928	  10E9    2A 4150               WOB1:	LHLD	BNO
  929	  10EC    23                    	INX	H
  930	  10ED    22 4150               	SHLD	BNO
  931	  10F0    45                    	MOV	B,L	; CISLO BLOKU
  932	  10F1    54                    	MOV	D,H	; CISLO SOUBORU
  933	  10F2    C5                    	PUSH	B
  934	  10F3    CD 1031               	CALL	OKNO
  935	  10F6    CD 1011               	CALL	DBTV1	; CISLO BLOKU NA CO
  936	  10F9    CD 101B               	CALL	OBNOV
  937	  10FC    C1                    	POP	B
  938	                                
  939	                                ;==============================================
  940	                                ; ZAPIS BLOKU	VSTUP:	B -CISLO BLOKU
  941	                                ;			C -DELKA BLOKU
  942	                                ;			D -CISLO SOUBORU
  943	                                ;		VYSTUP:	B -CISLO BLOKU
  944	                                ;==============================================
  945	                                
  946	  10FD    CD 15C5               @WBLOK:	CALL	ZAKMM
  947	  1100    C2 14AA               	JNZ	ERREND	; PRO NEPOVOLENY ZAPIS
  948	  1103    CD 14D5               	CALL	ZAOZN
  949	  1106    CD 139B               	CALL	ZABLD
  950	  1109    CD 1505               	CALL	TEKP
  951	  110C    C2 14AA               	JNZ	ERREND	; PRO CHYBU
  952	  110F    3A 4159               	LDA	BOUT-1
  953	  1112    FE 04                 	CPI	EOT	; BYL POSLEDNI BLOK?
  954	  1114    CA 111C               	JZ	ZAKS	; ANO=KONEC
  955	  1117    FE 3A                 	CPI	CAN
  956	  1119    C2 112F               	JNZ	NULBF
  957	  111C    CD 15C5               ZAKS:	CALL	ZAKMM	; ZAPIS KONEC SOUBORU
  958	  111F    CD 14F7               	CALL	ZAKBL	; EM
  959	  1122    CD 15E1               ZAKS1:	CALL	ZADMM	; DMM ZA SOUBOREM
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-16


  960	  1125    CD 1505               	CALL	TEKP
  961	  1128    C0                    	RNZ
  962	  1129    CD 14F7               ZAKS2:	CALL	ZAKBL	; EM
  963	  112C    CD 15C5               	CALL	ZAKMM
  964	                                
  965	                                ; NULUJ VYSTUPNI BUFFER
  966	                                
  967	  112F    21 4159               NULBF:	LXI	H,BOUT-1
  968	  1132    22 4154               	SHLD	ADRO
  969	  1135    E5                    	PUSH	H
  970	  1136    3E FF                 	MVI	A,LENGHT
  971	  1138    23                    	INX	H
  972	  1139    36 00                 	MVI	M,0
  973	  113B    3D                    	DCR	A
  974	  113C    C2 1138               	JNZ	$-4
  975	  113F    E1                    	POP	H	; (BLOK TYP) ADR
  976	  1140    7E                    	MOV	A,M
  977	  1141    FE 42                 	CPI	'B'
  978	  1143    C4 1541               	CNZ	STOP
  979	  1146    AF                    	XRA	A	; OK
  980	  1147    C9                    	RET
  981	                                
  982	                                
  983	                                ;==============================
  984	                                ; CTI BYTE Z KAZETY
  985	                                ;==============================
  986	                                
  987	  1148    C5                    GET@:	PUSH	B
  988	  1149    D5                    	PUSH	D
  989	  114A    E5                    	PUSH	H
  990	  114B    3A 40E4               	LDA	@IF1	; BYL OTEVREN SOUBOR?
  991	  114E    B7                    	ORA	A
  992	  114F    CC 0DA2               	CZ	FIND	; KDYZ NE, TAK FIND
  993	  1152    CD 11A4               GET0:	CALL	BUFEND
  994	  1155    EB                    	XCHG		; DE = BEIND-1
  995	  1156    2A 4156               	LHLD	ADRI
  996	  1159    CD 0136               	CALL	HILO
  997	  115C    7E                    	MOV	A,M
  998	  115D    22 4156               	SHLD	ADRI
  999	  1160    DA 1192               	JC	GET1	; &jt;A>..BYTE
 1000	  1163    FE 1A                 	CPI	SUBS	; EOF? TEST
 1001	  1165    C2 118D               	JNZ	GETEX	; -
 1002	  1168    4F                    	MOV	C,A
 1003	  1169    CD 119E               	CALL	KONEC?
 1004	  116C    79                    GET00:	MOV	A,C	; POSLEDNI BLOK
 1005	  116D    C2 118D               	JNZ	GETEX	; -
 1006	  1170    45                    	MOV	B,L	; ADR ZNAKU SUBS
 1007	  1171    CD 11A4               	CALL	BUFEND	; HLEDEJ OD KONCE
 1008	  1174    2B                    GET01:	DCX	H
 1009	  1175    BE                    	CMP	M	; JE SUBS
 1010	  1176    C2 1174               	JNZ	GET01	; -
 1011	  1179    7D                    	MOV	A,L
 1012	  117A    93                    	SUB	E	; STEJNY ADR?
 1013	  117B    C2 116C               	JNZ	GET00	; - NENI KONEC
 1014	                                
 1015	  117E    AF                    GET2:	XRA	A
 1016	  117F    32 40E4               	STA	@IF1	; UZAVRI SOUBOR
 1017	  1182    2F                    	CMA
 1018	  1183    32 427F               	STA	DEBL	; DELKA BLOKU 255 B
 1019	  1186    CD 1597               	CALL	@SKIP	; ZA EM
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-17


 1020	  1189    3E 1A                 	MVI	A,SUBS
 1021	  118B    37                            STC             ; CY=1 !!!
 1022	  118C    06                            DB      6       ; ZRUS ORA
 1023	  118D    B7                    GETEX:	ORA	A
 1024	  118E    E1                    	POP	H
 1025	  118F    D1                    	POP	D
 1026	  1190    C1                    	POP	B
 1027	  1191    C9                    	RET
 1028	                                
 1029	  1192    CD 119E               GET1:	CALL	KONEC?
 1030	  1195    C4 104D               	CNZ	RIB
 1031	  1198    C2 1152               	JNZ	GET0	; KONEC SOUBORU
 1032	  119B    C3 117E               	JMP	GET2
 1033	                                
 1034	  119E    3A 4159               KONEC?:	LDA	BIN-1	; POSLEDNI BLOK?
 1035	  11A1    FE 04                 	CPI	EOT
 1036	  11A3    C9                    	RET		; ZY=1...ANO
 1037	                                
 1038	  11A4    3A 427F               BUFEND:	LDA	DEBL	; VYPOCTI KONEC BLOKU
 1039	  11A7    5F                    	MOV	E,A	;   V BUFFRU
 1040	  11A8    21 4159               	LXI	H,BIN-1
 1041	  11AB    16 00                 	MVI	D,0
 1042	  11AD    19                    	DAD	D
 1043	  11AE    C9                    	RET
 1044	                                
 1045	                                
 1046	                                ;===============================
 1047	                                ; ZAPIS BYTE NA KAZETU
 1048	                                ;===============================
 1049	                                
 1050	  11AF    CD 11D9               PUT@:	CALL	PUTEND	; JE ^Z ?
 1051	  11B2    DA 0E7E               	JC	CLOSE0
 1052	  11B5    C5                    	PUSH	B
 1053	  11B6    D5                    	PUSH	D
 1054	  11B7    E5                    	PUSH	H
 1055	  11B8    3A 40E6               	LDA	@OF1	; BYL OTEVREN?
 1056	  11BB    B7                    	ORA	A
 1057	  11BC    C5                    	PUSH	B
 1058	  11BD    CC 0D3B               	CZ	OPEN	; KDYZ NE, TAK OPEN
 1059	  11C0    C1                    	POP	B
 1060	  11C1    CD 11A4               	CALL	BUFEND	; DE = BOUT-1
 1061	  11C4    EB                    	XCHG
 1062	  11C5    2A 4154               	LHLD	ADRO
 1063	  11C8    23                    	INX	H
 1064	  11C9    71                    	MOV	M,C
 1065	  11CA    22 4154               	SHLD	ADRO
 1066	  11CD    CD 0136               	CALL	HILO
 1067	  11D0    DC 10E4               	CC	WOB
 1068	  11D3    E1                     	POP	H
 1069	  11D4    D1                    	POP	D
 1070	  11D5    C1                    	POP	B
 1071	  11D6    79                    	MOV	A,C
 1072	  11D7    B7                    	ORA	A	; NCY
 1073	  11D8    C9                    	RET
 1074	                                
 1075	  11D9    3A 4159               PUTEND:	LDA	BOUT-1
 1076	  11DC    FE 42                 	CPI	'B'
 1077	  11DE    C8                    	RZ
 1078	  11DF    3A 40E3               	LDA	MODE
 1079	  11E2    E6 02                 	ANI	2
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-18


 1080	  11E4    EE 02                 	XRI	2
 1081	  11E6    C8                    	RZ
 1082	  11E7    79                    	MOV	A,C
 1083	  11E8    FE 1A                 	CPI	SUBS
 1084	  11EA    37                    	STC
 1085	  11EB    C8                    	RZ
 1086	  11EC    B7                    	ORA	A
 1087	  11ED    C9                    	RET
 1088	                                
 1089	                                
 1090	                                ;===============================
 1091	                                ; ZKONTROLUJ JEDEN SOUBOR
 1092	                                ;===============================
 1093	                                
 1094	  11EE    CD 0124               VRF1:	CALL	CRLF
 1095	  11F1    CD 0FC1               	CALL	SEARCH
 1096	  11F4    F5                    	PUSH	PSW	; &jt;A> = CHYBA
 1097	  11F5    AF                            XRA     A
 1098	  11F6    32 4153               	STA	BTI	; CISLO SOUBORU
 1099	  11F9    CD 0FE8               	CALL	PDIR	; CISLO SOUBORU A HLAVICKA
 1100	  11FC    F1                    	POP	PSW	; NA CO
 1101	  11FD    B7                    VRF2:	ORA	A
 1102	  11FE    CA 1215               	JZ	VRF4	; OK
 1103	  1201    FE 38                 	CPI	38H
 1104	  1203    C2 120E               	JNZ	VRF3	; BYLA EM
 1105	  1206    3A 4159               	LDA	BIN-1
 1106	  1209    FE 3A                 	CPI	CAN
 1107	  120B    CA 1541               	JZ	STOP	; OK
 1108	  120E    C5                    VRF3:	PUSH	B	; CISLO BLOKU
 1109	  120F    0E 23                 	MVI	C,'#'
 1110	  1211    CD 0109               	CALL	CO
 1111	  1214    C1                    	POP	B
 1112	  1215    CD 106E               VRF4:	CALL	NUFIL
 1113	  1218    0E 25                 	MVI	C,'%'
 1114	  121A    22 4152               	SHLD	BNI	; ULOZ CISLA
 1115	  121D    C4 0109               	CNZ	CO	; PRO CHYBU CISEL
 1116	  1220    3A 4159               	LDA	BIN-1
 1117	  1223    FE 04                 	CPI	EOT
 1118	  1225    CA 1541               	JZ	STOP	; KONEC SOUBORU
 1119	  1228    CD 1078               	CALL	READBL
 1120	  122B    C3 11FD               	JMP	VRF2
 1121	                                
 1122	                                
 1123	                                ;===============================
 1124	                                ; OSETRENI CHYBY
 1125	                                ;===============================
 1126	                                
 1127	  122E    CD 1541               ERRD0:	CALL	STOP
 1128	  1231    CD 0124               	CALL	CRLF
 1129	  1234    2A 4152               	LHLD	BNI
 1130	  1237    23                    	INX	H
 1131	  1238    EB                    	XCHG		; CISLO SOUBORU
 1132	  1239    43                    	MOV	B,E	;   A BLOKU NA CO
 1133	  123A    CD 100A               	CALL	DBTCR
 1134	  123D    CD 0151               	CALL	TXIMM
 1135	  1240    0D 0A 07              	DB	CR,LF,7
 1136	  1243    43 48 59 42           	DC	'CHYBA CTENI: I/D/N/A=ZNOVA ?'
 1137	  1247    41 20 43 54           
 1138	  124B    45 4E 49 3A           
 1139	  124F    20 49 2F 44           
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-19


 1140	  1253    2F 4E 2F 41           
 1141	  1257    3D 5A 4E 4F           
 1142	  125B    56 41 20 BF           
 1143	  125F    CD 1480               	CALL	ECHO
 1144	  1262    EB                    	XCHG		; CISLO SOUBORU A BLOKU
 1145	  1263    FE 4E                 	CPI	'N'	;   PRO "N"
 1146	  1265    CA 1060               	JZ	RIB1
 1147	  1268    FE 49                 	CPI	'I'
 1148	  126A    C2 127A               	JNZ	ERRD1
 1149	  126D    3A 4153               	LDA	BTI
 1150	  1270    3C                    	INR	A
 1151	  1271    32 4153               	STA	BTI	; ZVYS CISLO SOUBORU
 1152	                                        IF      SM
 1153	                                        LDA     TSM
 1154	                                        ORA     A
 1155	                                        CZ      CRLF
 1156	                                        ENDIF
 1157	  1274    CD 159D               	CALL	SKIP
 1158	  1277    C3 1295               	JMP	ERRD7
 1159	  127A    FE 44                 ERRD1:	CPI	'D'
 1160	  127C    C2 1292               	JNZ	ERRD3
 1161	  127F    3A 4153               	LDA	BTI
 1162	  1282    3D                    	DCR	A	; SNIZ CISLO SOUBORU
 1163	  1283    32 4153               	STA	BTI
 1164	  1286    CD 15AF               	CALL	BACK
 1165	  1289    CD 15AF               	CALL	BACK
 1166	  128C    C3 1295               	JMP	ERRD7
 1167	  128F    CD 1541               ERRD:	CALL	STOP	; PRO 1. CHYBU - "A"
 1168	  1292    CD 12AC               ERRD3:	CALL	BLOK4
 1169	  1295    AF                    ERRD7:	XRA	A
 1170	  1296    32 4158               	STA	FND	; FIND MOD
 1171	  1299    CD 1078               	CALL	READBL
 1172	  129C    B7                    	ORA	A
 1173	  129D    C2 1295               	JNZ	ERRD7
 1174	  12A0    CD 106E               	CALL	NUFIL	; NASEL ?
 1175	  12A3    CA 1060               	JZ	RIB1	;  ANO - OK
 1176	  12A6    D2 122E               	JNC	ERRD0	; PREJEL
 1177	  12A9    C3 1295               	JMP	ERRD7
 1178	                                
 1179	  12AC    C5                    BLOK4:	PUSH	B	; ZPET O 4 BLOKY
 1180	  12AD    06 04                 	MVI	B,4
 1181	  12AF    CD 15F4               BL41:	CALL	BLOK2
 1182	  12B2    05                    	DCR	B
 1183	  12B3    C2 12AF               	JNZ	BL41
 1184	  12B6    C1                    	POP	B
 1185	  12B7    C9                    	RET
 1186	                                
 1187	                                
 1188	  12B8    48                    CHECK:	MOV	C,B	; KONTROLNI SOUCET ?
 1189	  12B9    CD 12C7               	CALL	RICH
 1190	  12BC    B9                    	CMP	C
 1191	  12BD    C8                    	RZ
 1192	                                
 1193	  12BE    CD 12C7               RADR@:	CALL	RICH
 1194	  12C1    6F                    	MOV	L,A
 1195	  12C2    CD 12C7               	CALL	RICH	; HL
 1196	  12C5    67                    	MOV	H,A
 1197	  12C6    C9                    	RET
 1198	                                
 1199	  12C7    CD 0106               RICH:	CALL	RI	; CTENI & SUMA
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-20


 1200	  12CA    DA 14A8               	JC	ERSTP
 1201	  12CD    F5                    	PUSH	PSW
 1202	  12CE    80                    	ADD	B
 1203	  12CF    47                    	MOV	B,A
 1204	  12D0    F1                    	POP	PSW
 1205	  12D1    C9                    	RET
 1206	                                
 1207	  12D2    4D                    PADR@:	MOV	C,L
 1208	  12D3    CD 12D7               	CALL	POCH
 1209	  12D6    4C                    	MOV	C,H
 1210	                                
 1211	  12D7    79                    POCH:	MOV	A,C	; ZAPIS & SUMA
 1212	  12D8    80                    	ADD	B
 1213	  12D9    47                    	MOV	B,A
 1214	  12DA    C3 010C               	JMP	PO
 1215	                                
 1216	                                
 1217	  12DD    7E                    MOVE:   MOV     A,M     ; PRESUN PAMETI
 1218	  12DE    12                            STAX    D       ; HL - ODKUD
 1219	  12DF    23                            INX     H       ; DE - KAM
 1220	  12E0    13                            INX     D       ; B - KOLIK
 1221	  12E1    05                            DCR     B
 1222	  12E2    C2 12DD                       JNZ     MOVE
 1223	  12E5    C9                            RET
 1224	                                
 1225	                                ;=======================================
 1226	                                ; CTENI TYPU ZAZNAMU
 1227	                                ;	VYSTUP: A = 00 - PRO EM
 1228	                                ;		    FB - PRO DATOVY BLOK
 1229	                                ; 	  NEBO  VIZ TEKP
 1230	                                ;=======================================
 1231	                                
 1232	  12E6    C5                    CTTV:	PUSH	B
 1233	  12E7    D5                    	PUSH	D
 1234	  12E8    11 5000               	LXI	D,5000H	; TIME OUT
 1235	  12EB    C3 1307               	JMP	CTTV2
 1236	  12EE    3E 05                 CTTV0:	MVI	A,5
 1237	  12F0    3D                    	DCR	A
 1238	  12F1    C2 12F0               	JNZ	$-1
 1239	  12F4    0E 10                 	MVI	C,10H
 1240	  12F6    0D                    CTTV1:	DCR	C
 1241	  12F7    C2 130A               	JNZ	CTTV3
 1242	  12FA    1B                    	DCX	D
 1243	  12FB    7A                    	MOV	A,D
 1244	  12FC    B3                    	ORA	E
 1245	  12FD    C2 1307               	JNZ	CTTV2
 1246	  1300    D1                    	POP	D
 1247	  1301    C1                    	POP	B
 1248	  1302    3E 38                 	MVI	A,38H
 1249	  1304    C3 14AA               	JMP	ERREND	; KONEC PRO TIME OUT
 1250	  1307    01 0110               CTTV2:	LXI	B,0110H
 1251	  130A    DB 09                 CTTV3:	IN	KZDIN
 1252	  130C    E6 F0                 	ANI	0F0H
 1253	  130E    CA 12F6               	JZ	CTTV1
 1254	  1311    17                    	RAL
 1255	  1312    78                    	MOV	A,B
 1256	  1313    17                    	RAL
 1257	  1314    47                    	MOV	B,A
 1258	  1315    D2 12EE               	JNC	CTTV0
 1259	  1318    DB 09                 	IN	KZDIN
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-21


 1260	  131A    E6 30                 	ANI	30H	; TEST PRETIZENI MOTORKU
 1261	  131C    78                    	MOV	A,B
 1262	  131D    D1                    	POP	D
 1263	  131E    C1                    	POP	B
 1264	  131F    C8                    	RZ		; OK
 1265	  1320    3E 36                 	MVI	A,36H	; PRO CHYBU
 1266	  1322    C9                    	RET
 1267	                                
 1268	                                
 1269	                                ;==============================================
 1270	                                ; CTENI OZNACENI BLOKU
 1271	                                ;	VYSTUP: B  - CISLO BLOKU
 1272	                                ;		C  - DELKA BLOKU
 1273	                                ;		D  - CISLO SOUBORU
 1274	                                ;	  NEBO  NZ - CHYBA CTENI OZNACENI BLOKU
 1275	                                ;		A  - CHYBA 2
 1276	                                ;	  NEBO  VIZ TEKP
 1277	                                ;==============================================
 1278	                                
 1279	  1323    E5                    CTOZN:	PUSH	H
 1280	  1324    CD 1374               	CALL	CTIBYT
 1281	  1327    47                    	MOV	B,A	; CISLO BLOKU
 1282	  1328    CD 1374               	CALL	CTIBYT
 1283	  132B    4F                    	MOV	C,A	; DELKA BLOKU
 1284	  132C    CD 1374               	CALL	CTIBYT
 1285	  132F    57                    	MOV	D,A	; CISLO SOUBORU
 1286	  1330    CD 1374               	CALL	CTIBYT	; KONTROLNI SOUCET OZNACENI
 1287	  1333    82                    	ADD	D	; BLOKU
 1288	  1334    81                    	ADD	C
 1289	  1335    80                    	ADD	B	; MUSI BYT 0, JINAK CHYBA
 1290	  1336    E1                    	POP	H
 1291	  1337    3E 34                 	MVI	A,34H
 1292	  1339    C0                    	RNZ		; NAVRAT PRO CHYBNY SOUCET
 1293	  133A    C3 1505               	JMP	TEKP	; PRO OK TEST KONCE PASKY
 1294	                                			; POKUD NENI, JE VSE OK
 1295	                                
 1296	                                
 1297	                                ;====================================
 1298	                                ; CTENI BLOKU DAT
 1299	                                ;	VSTUP:  C  - DELKA BLOKU
 1300	                                ;	VYSTUP: NZ - CHYBA CTENI DAT
 1301	                                ;		A  - CHYBA 2
 1302	                                ;	  NEBO  VIZ TEKP
 1303	                                ;====================================
 1304	                                
 1305	  133D    D5                    CTBLD:	PUSH	D
 1306	  133E    C5                    	PUSH	B
 1307	  133F    11 4159               	LXI	D,BIN-1	; DATA DO VSTUP. BUFFRU
 1308	  1342    21 0000               	LXI	H,0	; PRO VYPOCET CRC
 1309	  1345    CD 1374               CTBLD1:	CALL	CTIBYT
 1310	  1348    12                    	STAX	D	; ULOZENI DAT DO PAMETI
 1311	  1349    13                    	INX	D
 1312	  134A    0D                    	DCR	C
 1313	  134B    C2 1345               	JNZ	CTBLD1
 1314	  134E    CD 1374               CTBLD2:	CALL	CTIBYT	; NACTENI KONTROLNI SUMY
 1315	  1351    CD 1374               	CALL	CTIBYT	; DO HL
 1316	  1354    7C                    	MOV	A,H
 1317	  1355    B5                    	ORA	L	; PRO OK MUSI BYT 0
 1318	  1356    3E 32                 	MVI	A,32H
 1319	  1358    F5                    	PUSH	PSW	; "Z" A CHYBU
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-22


 1320	  1359    11 4266               	LXI	D,READNM+2
 1321	  135C    06 0B                 	MVI	B,NAMLE
 1322	  135E    CD 1374               CTBLD3:	CALL	CTIBYT	; CTENI JMENA
 1323	  1361    12                    	STAX	D	; NA CO
 1324	  1362    13                    	INX	D
 1325	  1363    05                    	DCR	B
 1326	  1364    C2 135E               	JNZ	CTBLD3
 1327	  1367    EB                    	XCHG
 1328	  1368    36 22                 	MVI	M,'"'
 1329	  136A    23                    	INX	H
 1330	  136B    36 20                 	MVI	M,' '
 1331	  136D    F1                    	POP	PSW
 1332	  136E    C1                    	POP	B
 1333	  136F    D1                    	POP	D
 1334	  1370    C0                    	RNZ		; PRO CHYBU KONTROL. SOUCTU
 1335	  1371    C3 1505               	JMP	TEKP	; PRO OK KONTROLA KONCE
 1336	                                			; PASKY
 1337	                                
 1338	                                ;====================================
 1339	                                ; NACTENI 1 BYTE Z PASKY
 1340	                                ;	VSTUP:  HL - PREDCHOZI CRC
 1341	                                ;	VYSTUP: A  - PRECTENY BYTE
 1342	                                ;		HL - CRC
 1343	                                ;====================================
 1344	                                
 1345	  1374    C5                    CTIBYT:	PUSH	B
 1346	  1375    06 01                 	MVI	B,01	; POCITADLO BITU
 1347	  1377    DB 09                 CTIBY1: IN	KZDIN
 1348	  1379    E6 F0                 	ANI	0F0H
 1349	  137B    CA 1377               	JZ	CTIBY1
 1350	  137E    DB 09                 	IN	KZDIN
 1351	  1380    E6 F0                 	ANI	0F0H
 1352	  1382    CA 1377               	JZ	CTIBY1	; PRO RUSENI
 1353	  1385    17                    	RAL
 1354	  1386    F5                    	PUSH	PSW	; VYPOCET CRC
 1355	  1387    9F                    	SBB	A
 1356	  1388    29                    	DAD	H	; PREDCHOZI CRC
 1357	  1389    8F                    	ADC	A
 1358	  138A    B7                            ORA     A       ; UPRAVA PRO Z-80
 1359	  138B    3E 07                 	MVI	A,7
 1360	  138D    EA 1392                       JPE     $+5     ; NA POP PSW
 1361	  1390    AD                    	XRA	L
 1362	  1391    6F                    	MOV	L,A
 1363	  1392    F1                    	POP	PSW	; KONEC VYPOCTU CRC
 1364	  1393    78                    	MOV	A,B
 1365	  1394    17                    	RAL		; CYKLUS PRO 8 BITU
 1366	  1395    47                    	MOV	B,A
 1367	  1396    D2 1377               	JNC	CTIBY1
 1368	  1399    C1                    	POP	B
 1369	  139A    C9                    	RET
 1370	                                
 1371	                                
 1372	                                ;====================================
 1373	                                ; ZAPIS BLOKU DAT = "C" BYTU DAT,
 1374	                                ;	  2 BYTY CRC, 11 BYTU JMENO,
 1375	                                ;	  2 BYTY ODDELOVACI &jt;55H>
 1376	                                ;	VSTUP:  C  - DELKA DAT
 1377	                                ;====================================
 1378	                                
 1379	  139B    C5                    ZABLD:	PUSH	B
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-23


 1380	  139C    11 4159               	LXI	D,BOUT-1 ; DATA Z VYSTUP. BUFFERU
 1381	  139F    21 0000               	LXI	H,0	; PRO VYPOCET CRC
 1382	  13A2    1A                    ZABLD1:	LDAX	D
 1383	  13A3    CD 13C7               	CALL	PISBYT	; ZAPIS VLASTNICH DAT
 1384	  13A6    13                    	INX	D
 1385	  13A7    0D                    	DCR	C
 1386	  13A8    C2 13A2               	JNZ	ZABLD1
 1387	  13AB    7C                    	MOV	A,H
 1388	  13AC    CD 13C7               	CALL	PISBYT	; ZAPIS CRC ZNAKU
 1389	  13AF    7C                    	MOV	A,H
 1390	  13B0    CD 13C7               	CALL	PISBYT
 1391	  13B3    11 4259               	LXI	D,WRNM
 1392	  13B6    06 0B                 	MVI	B,NAMLE	; Z WRNM
 1393	  13B8    1A                    ZABLD2:	LDAX	D
 1394	  13B9    CD 13C7               	CALL	PISBYT	; ZAPIS JMENA
 1395	  13BC    13                    	INX	D
 1396	  13BD    05                    	DCR	B
 1397	  13BE    C2 13B8               	JNZ	ZABLD2
 1398	  13C1    C1                    	POP	B
 1399	  13C2    3E 55                 PISODD:	MVI	A,55H
 1400	  13C4    CD 13C7               	CALL	PISBYT	; ZAPIS 16 BITU ODDELOVACICH
 1401	                                
 1402	                                
 1403	                                ;======================================
 1404	                                ; ZAPIS 1 BYTE NA PASKU
 1405	                                ;	VSTUP:  A  - BYTE DAT
 1406	                                ;		HL - PREDCHOZI CRC
 1407	                                ;	VYSTUP: HL - CRC
 1408	                                ;======================================
 1409	                                
 1410	  13C7    C5                    PISBYT:	PUSH	B	
 1411	  13C8    0E 80                 	MVI	C,80H	; POCITADLO (MASKA) BITU
 1412	  13CA    47                    	MOV	B,A	; DATA DO REG.B
 1413	  13CB    A1                    	ANA	C	; VYBER BITU
 1414	  13CC    C6 FF                 	ADI	0FFH	; BIT DO CARRY
 1415	  13CE    3E 5C                         MVI     A,KONST1 ; A=5CH
 1416	  13D0    1F                            RAR             ; A=X0101110
 1417	                                                        ; (X-BIT DAT, SNIRENA
 1418	                                                        ; CITLIVOST, D.P.=H,
 1419	                                                        ; ZAZNAM, VPRED)
 1420	  13D1    D3 08                 	OUT	KZDOUT	; VYSTUP DAT
 1421	  13D3    F5                    	PUSH	PSW
 1422	  13D4    EE 20                         XRI     20H     ; A=X0001110
 1423	  13D6    D3 08                 	OUT	KZDOUT	; DATA PLATNA
 1424	                                
 1425	  13D8    17                    	RAL		; VYPOCET CRC
 1426	  13D9    9F                    	SBB	A
 1427	  13DA    29                    	DAD	H
 1428	  13DB    8F                    	ADC	A
 1429	  13DC    B7                            ORA     A       ; UPRAVA PRO Z-80
 1430	  13DD    3E 07                 	MVI	A,7
 1431	  13DF    EA 13E4               	JPE	$+5
 1432	  13E2    AD                    	XRA	L
 1433	  13E3    6F                    	MOV	L,A
 1434	  13E4    3E 02                         MVI     A,2     ; CEKACI SMICKA
 1435	  13E6    3D                            DCR     A       ; NA PROUDLOZENI
 1436	  13E7    C2 13E6                       JNZ     $-1     ; PLATNOSTI DAT !!!
 1437	  13EA    F1                    	POP	PSW	; KONEC VYP.CRC
 1438	                                
 1439	  13EB    D3 08                 	OUT	KZDOUT	; VRACENI SIGN.D.P.
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-24


 1440	  13ED    3E 03                         MVI     A,3+(2*PRODL/15)
 1441	  13EF    3D                    	DCR	A
 1442	  13F0    C2 13EF               	JNZ	$-1
 1443	  13F3    79                    	MOV	A,C
 1444	  13F4    0F                    	RRC		; NA DALSI BIT
 1445	  13F5    4F                    	MOV	C,A
 1446	  13F6    78                    	MOV	A,B
 1447	  13F7    D2 13CB               	JNC	PISBYT+4
 1448	  13FA    C1                    	POP	B
 1449	  13FB    C9                    	RET
 1450	                                
 1451	                                
 1452	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 1453	                                
 1454	                                ;   INSTALACE TERMINALU  SM 7202
 1455	                                
 1456	  13FC                          ARAM    EQU     $
 1457	                                
 1458	                                        IF      ARAM GT EPROM+800H
 1459	                                .PRINTX 'SPATNA TABULKA SM 7202'
 1460	                                ERRRAM  ORA
 1461	                                
 1462	                                        ELSE
 1463	                                
 1464	                                        IF      HORE
 1465	                                BALAST: DS      (EPROM+800H)-ARAM
 1466	                                        ELSE
 1467	                                	ORG	EPROM+800H
 1468	                                        ENDIF
 1469	                                
 1470	                                        ENDIF
 1471	                                
 1472	  1400    C3 173D               SERIO:	JMP	SINIT
 1473	  1403    C3 017B               	JMP	SERI@
 1474	  1406    C3 1759               	JMP	SCO
 1475	  1409    C3 0181               	JMP	SMST@
 1476	                                
 1477	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 1478	                                
 1479	                                
 1480	                                ; JE EXTERNI JMENO '"' ?
 1481	                                
 1482	  140C    3A 4101               EXT?:	LDA	EXTEXT
 1483	  140F    FE 22                 	CPI	'"'
 1484	  1411    C9                    	RET
 1485	                                
 1486	                                
 1487	                                ; ANALYZA ODDELOVACU
 1488	                                
 1489	  1412    FE 20                 @ANAL:	CPI	' '
 1490	  1414    C8                    	RZ
 1491	  1415    FE 0D                 ANAL:	CPI	CR
 1492	  1417    C8                    	RZ
 1493	  1418    B7                    	ORA	A
 1494	  1419    C9                    	RET
 1495	                                
 1496	  141A    CD 0FB8               JMENO?:	CALL	VYPISH	; ANO / NE
 1497	  141D    CD 0151               OK?:	CALL	TXIMM
 1498	  1420    2D 2D 28 41           	DC	'--(A/N)?'
 1499	  1424    2F 4E 29 BF           
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-25


 1500	  1428    CD 1490               	CALL	ECHOCR
 1501	  142B    FE 41                 	CPI	'A'
 1502	  142D    C8                    	RZ
 1503	  142E    FE 59                 	CPI	'Y'
 1504	  1430    C9                    	RET
 1505	                                
 1506	                                ;========================================
 1507	                                
 1508	                                ; TEST NA IOBYTE (PO)
 1509	                                
 1510	  1431    3A 40E2               NPO:	LDA	IOBYT
 1511	  1434    0F                    	RRC
 1512	  1435    0F                    	RRC
 1513	  1436    0F                    NRI1:	RRC
 1514	  1437    0F                    	RRC
 1515	  1438    E6 03                 	ANI	3	; ZARIZENI
 1516	  143A    3D                    	DCR	A	; MINUS .. SYSTEM
 1517	  143B    3D                    	DCR	A	; ZY.. USER=1
 1518	  143C    C9                    	RET		; NZ.. USER=2
 1519	                                
 1520	                                ; TEST NA IOBYTE (RI)
 1521	                                
 1522	  143D    3A 40E2               NRI:	LDA	IOBYT
 1523	  1440    C3 1436               	JMP	NRI1
 1524	                                
 1525	                                ; NASTAV IOBYTE PODLE OPTION
 1526	                                
 1527	  1443    CD 1460               IOPO:	CALL	CISLO
 1528	  1446    D8                    	RC
 1529	  1447    07                    	RLC
 1530	  1448    07                    	RLC
 1531	  1449    0E CF                 IOPO1:	MVI	C,0CFH	; MASKA
 1532	  144B    C3 1454               	JMP	ZMIO
 1533	                                
 1534	  144E    CD 1460               IORI:	CALL	CISLO
 1535	  1451    D8                    	RC
 1536	  1452    0E F3                 	MVI	C,0F3H	; MASKA
 1537	  1454    07                    ZMIO:	RLC
 1538	  1455    07                    	RLC
 1539	  1456    47                    	MOV	B,A
 1540	  1457    3A 40E2               	LDA	IOBYT
 1541	  145A    A1                    	ANA	C
 1542	  145B    B0                    	ORA	B
 1543	  145C    32 40E2               	STA	IOBYT
 1544	  145F    C9                    	RET
 1545	                                
 1546	  1460    D6 30                 CISLO:	SUI	'0'
 1547	  1462    D8                    	RC		; CY=1..NENI
 1548	  1463    FE 03                 	CPI	3
 1549	  1465    3F                    	CMC
 1550	  1466    D8                    	RC
 1551	  1467    3C                    	INR	A
 1552	  1468    C9                    	RET
 1553	                                
 1554	                                
 1555	                                ; VYPIS TEXT
 1556	                                
 1557	  1469    CD 0151               TXNAM:	CALL	TXIMM
 1558	  146C    0D 0A                 	DB	CR,LF
 1559	  146E    20 4E 41 5A           	DC	' NAZEV:'
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-26


 1560	  1472    45 56 BA              
 1561	  1475    C9                    	RET
 1562	                                
 1563	                                
 1564	  1476    CD 0112               BREAK:	CALL	CSTS
 1565	  1479    C8                    	RZ
 1566	  147A    CD 0103               	CALL	CI
 1567	  147D    C3 1484               	JMP	ETX?
 1568	                                
 1569	                                
 1570	                                ; CTI A VYPIS ZNAK
 1571	                                
 1572	  1480    CD 013F               ECHO:	CALL	CINCR
 1573	  1483    C8                    	RZ
 1574	  1484    FE 03                 ETX?:	CPI	ETX
 1575	  1486    C0                    	RNZ
 1576	  1487    CD 1541                       CALL    STOP
 1577	  148A    CD 1499                       CALL    NAF     ; NULUJ FLAGY
 1578	  148D    C3 0139                       JMP     NEXT    ; BREAK=>C
 1579	                                
 1580	                                
 1581	  1490    CD 1480               ECHOCR:	CALL	ECHO
 1582	  1493    F5                    	PUSH	PSW
 1583	  1494    CD 0124               	CALL	CRLF
 1584	  1497    F1                    	POP	PSW
 1585	  1498    C9                    	RET
 1586	                                
 1587	                                
 1588	  1499    AF                    NAF:    XRA     A       ; NASTAVENI FLEGU
 1589	  149A    32 40E4                       STA     @IF1
 1590	  149D    32 40E6                       STA     @OF1
 1591	  14A0    32 4280                       STA     JEVER
 1592	  14A3    2F                            CMA             ; = LENGHT
 1593	  14A4    32 427F                       STA     DEBL
 1594	  14A7    C9                            RET
 1595	                                
 1596	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 1597	                                
 1598	                                ; ZASTAV A OHLAS CHYBU
 1599	                                
 1600	  14A8    3E 32                 ERSTP:	MVI	A,32H	; CHYBA SOUCTU
 1601	  14AA    F5                    ERREND:	PUSH	PSW
 1602	  14AB    CD 0124               	CALL	CRLF
 1603	  14AE    CD 0151               	CALL	TXIMM
 1604	  14B1    43 48 59 42           	DC	'CHYBA - '
 1605	  14B5    41 20 2D A0           
 1606	  14B9    F1                    	POP	PSW
 1607	  14BA    E6 0F                 	ANI	0FH	; TYP CHYBY
 1608	  14BC    5F                    	MOV	E,A
 1609	  14BD    CD 1541               	CALL	STOP
 1610	  14C0    16 00                 	MVI	D,0
 1611	  14C2    21 16B1               	LXI	H,TXERR
 1612	  14C5    19                    	DAD	D
 1613	  14C6    CD 14CC               	CALL	@TEXT
 1614	  14C9    C3 0139               	JMP	NEXT
 1615	                                
 1616	  14CC    5E                    @TEXT:	MOV	E,M
 1617	  14CD    23                    	INX	H
 1618	  14CE    56                    	MOV	D,M
 1619	  14CF    EB                    	XCHG
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-27


 1620	  14D0    56                    	MOV	D,M
 1621	  14D1    23                    	INX	H
 1622	  14D2    C3 0142               	JMP	TEXT
 1623	                                
 1624	                                
 1625	                                ;====================================
 1626	                                ; ZAPIS OZNACENI BLOKU - 0FFH, CISLO
 1627	                                ;	A DELKA BLOKU, CISLO SOUBORU,
 1628	                                ;	KONTROLNI SOUCET
 1629	                                ;	VSTUP:  B - CISLO BLOKU
 1630	                                ;		C - DELKA BLOKU
 1631	                                ;		D - CISLO SOUBORU
 1632	                                ;====================================
 1633	                                
 1634	  14D5    3E FB                 ZAOZN:	MVI	A,UVOD	; UVOD BLOKU (0FBH)
 1635	  14D7    CD 13C7               	CALL	PISBYT
 1636	  14DA    CD 14F0               	CALL	ZAOZN1
 1637	  14DD    78                    	MOV	A,B	; CISLO BLOKU
 1638	  14DE    CD 13C7               	CALL	PISBYT
 1639	  14E1    79                    	MOV	A,C	; DELKA BLOKU
 1640	  14E2    CD 13C7               	CALL	PISBYT
 1641	  14E5    7A                    	MOV	A,D
 1642	  14E6    CD 13C7               	CALL	PISBYT	; CISLO SOUBORU
 1643	  14E9    81                    	ADD	C
 1644	  14EA    80                    	ADD	B
 1645	  14EB    2F                    	CMA
 1646	  14EC    3C                    	INR	A
 1647	  14ED    CD 13C7               	CALL	PISBYT	; KONTROLNI SOUCET
 1648	  14F0    3E 20                 ZAOZN1:	MVI	A,32
 1649	  14F2    3D                    	DCR	A
 1650	  14F3    C2 14F2               	JNZ	$-1
 1651	  14F6    C9                    	RET
 1652	                                
 1653	                                
 1654	                                ;====================================
 1655	                                ; ZAPIS KONCOVYCH BLOKU (EM, FM)
 1656	                                ;	- 16 KRAT PISE &jt;00H>
 1657	                                ;	VYSTUP: VIZ TEKP
 1658	                                ;====================================
 1659	                                
 1660	  14F7    C5                    ZAKBL:	PUSH	B
 1661	  14F8    E5                    	PUSH	H
 1662	  14F9    06 10                 	MVI	B,16
 1663	  14FB    AF                    ZAKB1:	XRA	A
 1664	  14FC    CD 13C7               	CALL	PISBYT
 1665	  14FF    05                    	DCR	B
 1666	  1500    C2 14FB               	JNZ	ZAKB1
 1667	  1503    E1                    	POP	H
 1668	  1504    C1                    	POP	B
 1669	                                
 1670	                                
 1671	                                ;====================================
 1672	                                ; TEST KONCE PASKY
 1673	                                ;	VYSTUP: NZ - MOTOREK PRETIZEN
 1674	                                ;		A  - CHYBA 1
 1675	                                ;====================================
 1676	                                
 1677	  1505    CD 1476               TEKP:	CALL	BREAK
 1678	  1508    DB 09                 	IN	KZDIN
 1679	  150A    E6 30                 	ANI	30H	; TEST PRETIZENI
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-28


 1680	  150C    3E 36                 	MVI	A,36H	;   OBOU MOTORKU
 1681	  150E    C0                    	RNZ		; PRO CHYBU - NENALEZEN KONEC
 1682	  150F    AF                    	XRA	A	;	      SOUBORU
 1683	  1510    C9                    	RET		; PRO OK - PASKA STOJI
 1684	                                
 1685	                                ;====================================
 1686	                                ; PREVINUTI KAZETY
 1687	                                ;	VSTUP:  D=1 - NA ZACATEK
 1688	                                ;		D-0 - NA KONEC
 1689	                                ;	VYSTUP: VIZ TEKP
 1690	                                ;====================================
 1691	                                
 1692	  1511    D5                    REW3:	PUSH	D
 1693	  1512    3E B3                 	MVI	A,KPREVZ
 1694	  1514    15                    	DCR	D	; URCENI SMERU PREMOTANI
 1695	  1515    CA 151A               	JZ	REW4
 1696	  1518    3E BD                 	MVI	A,KSCRVP
 1697	  151A    D3 08                 REW4:	OUT	KZDOUT
 1698	  151C    D1                    	POP	D
 1699	  151D    CD 1505               REW7:	CALL	TEKP
 1700	  1520    CA 151D                       JZ      REW7    ; DOKUD NEDA PRETIZENI !
 1701	  1523    D5                    REWIND:	PUSH	D
 1702	  1524    3E BB                 	MVI	A,KSCVZC
 1703	  1526    15                    	DCR	D	; URCENI SMERU
 1704	  1527    CA 152C               	JZ	REW5
 1705	  152A    3E BE                 	MVI	A,KSCVPC
 1706	  152C    D3 08                 REW5:	OUT	KZDOUT
 1707	  152E    D1                    	POP	D
 1708	  152F    C5                    	PUSH	B
 1709	  1530    01 2EE0               	LXI	B,12000D
 1710	  1533    0B                    REW1:   DCX     B       ; CEKACI SMICKA PRO
 1711	  1534    78                            MOV     A,B     ; PREVIJENI
 1712	  1535    B1                    	ORA	C
 1713	  1536    C2 1533               	JNZ	REW1
 1714	  1539    C1                    	POP	B
 1715	  153A    CD 1505               	CALL	TEKP
 1716	  153D    CA 1511                       JZ      REW3    ; OPAKUJE, DOKUD NADA
 1717	  1540    AF                            XRA     A       ; PRETIZENI
 1718	                                
 1719	                                
 1720	                                ;===================================
 1721	                                ; STOP POHYBU
 1722	                                ;===================================
 1723	                                
 1724	  1541    F5                    STOP:	PUSH	PSW
 1725	  1542    3E FF                 	MVI	A,KSTPCT
 1726	  1544    D3 08                 	OUT	KZDOUT
 1727	  1546    F1                    	POP	PSW
 1728	  1547    C9                    	RET
 1729	                                
 1730	                                
 1731	                                ;==================================
 1732	                                ; INICIALIZACE MHB 8255
 1733	                                ;==================================
 1734	                                
 1735	  1548    3E 8B                 INITIO:	MVI	A,SETPPI
 1736	  154A    D3 0B                 	OUT	KZDCTR
 1737	  154C    3E 1F                 	MVI	A,SETOUT
 1738	  154E    D3 08                 	OUT	KZDOUT
 1739	  1550    C9                    	RET
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-29


 1740	                                
 1741	                                ;==================================
 1742	                                ; START CTENI VPRED
 1743	                                ;==================================
 1744	                                
 1745	  1551    3E FE                 SCVP:	MVI	A,KSCVP
 1746	  1553    D3 08                 	OUT	KZDOUT
 1747	  1555    C9                    	RET
 1748	                                
 1749	                                ;==================================
 1750	                                ; START CTENI VPRED (SNIZ.CITL.)
 1751	                                ;==================================
 1752	                                
 1753	  1556    3E BE                 SCVPC:	MVI	A,KSCVPC
 1754	  1558    D3 08                 	OUT	KZDOUT
 1755	  155A    C9                    	RET
 1756	                                
 1757	                                ;==================================
 1758	                                ; START CTENI VZAD (SNIZ.CITL.)
 1759	                                ;==================================
 1760	                                
 1761	  155B    3E BB                 SCVZC:	MVI	A,KSCVZC
 1762	  155D    D3 08                 	OUT	KZDOUT
 1763	  155F    C9                    	RET
 1764	                                
 1765	                                ;==================================
 1766	                                ; START CTENI RYCHLE VPRED
 1767	                                ;==================================
 1768	                                
 1769	  1560    3E BD                 SCRVP:	MVI	A,KSCRVP
 1770	  1562    D3 08                 	OUT	KZDOUT
 1771	  1564    C9                    	RET
 1772	                                
 1773	                                ;==================================
 1774	                                ; START CTENI RYCHLE VZAD
 1775	                                ;==================================
 1776	                                
 1777	  1565    3E B7                 SCRVZ:	MVI	A,KSCRVZ
 1778	  1567    D3 08                 	OUT	KZDOUT
 1779	  1569    C9                    	RET
 1780	                                
 1781	                                ;=======================================
 1782	                                ; START ZAZNAMU VPRED
 1783	                                ;	VYSTUP: NZ - ZAZNAM NENI POVOLEN
 1784	                                ;		A  - CHYBA 0
 1785	                                ;=======================================
 1786	                                
 1787	  156A    3E AE                 SZAVP:	MVI	A,KSZAVP
 1788	  156C    D3 08                 	OUT	KZDOUT
 1789	  156E    DB 09                 	IN	KZDIN
 1790	  1570    E6 08                 	ANI	08H
 1791	  1572    3E 30                 	MVI	A,30H
 1792	  1574    C9                    	RET
 1793	                                
 1794	                                
 1795	                                ;===================================
 1796	                                ; VYHLEDANI ZACATKU PASKY (ZN. BOT)
 1797	                                ;	VYSTUP: VIZ TEKP
 1798	                                ;===================================
 1799	                                
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-30


 1800	  1575    CD 157B               @BOT:	CALL	BOT
 1801	  1578    C3 1541               	JMP	STOP
 1802	                                
 1803	  157B    16 01                 BOT:	MVI	D,1	; PREVINUTI NA ZACATEK
 1804	  157D    CD 1523               	CALL	REWIND
 1805	  1580    CD 1556               	CALL	SCVPC
 1806	  1583    CD 15B8               	CALL	HLDMM
 1807	  1586    CD 15B8               	CALL	HLDMM
 1808	  1589    C2 14AA               	JNZ	ERREND
 1809	  158C    C5                    	PUSH	B
 1810	  158D    01 01F4               	LXI	B,500D
 1811	  1590    CD 16A7               	CALL	HLBOT1
 1812	  1593    C1                    	POP	B
 1813	  1594    C3 15B8               	JMP	HLDMM
 1814	                                
 1815	                                
 1816	                                ;===============================
 1817	                                ; SKOK O 1 SOUBOR VPRED
 1818	                                ;	VYSTUP: VIZ TEKP
 1819	                                ;===============================
 1820	                                
 1821	  1597    CD 159D               @SKIP:	CALL	SKIP
 1822	  159A    C3 1541               	JMP	STOP
 1823	                                
 1824	  159D    CD 1556               SKIP:   CALL    SCVPC   ; MUSI STAT PRED (NEBO V)
 1825	  15A0    CD 12E6                       CALL    CTTV    ; SOUBOREM
 1826	  15A3    CD 1560               	CALL	SCRVP
 1827	  15A6    C3 15B8               	JMP	HLDMM	; NASTAVI NA KONEC SOUBORU
 1828	                                
 1829	                                
 1830	                                ;===============================
 1831	                                ; SKOK O 1 SOUBOR VZAD
 1832	                                ;	VYSTUP: VIZ TEKP
 1833	                                ;===============================
 1834	                                
 1835	  15A9    CD 15AF               @BACK:	CALL	BACK
 1836	  15AC    C3 1541               	JMP	STOP
 1837	                                
 1838	  15AF    CD 155B               BACK:	CALL	SCVZC
 1839	  15B2    CD 12E6               	CALL	CTTV	; VYHLED.DAT VZAD
 1840	  15B5    CD 1565               	CALL	SCRVZ	; RYCHLE VZAD
 1841	                                
 1842	                                
 1843	                                ;==============================
 1844	                                ; HLEDANI DLOUHE MEZIBL. MEZERY
 1845	                                ;	 VYSTUP: VIZ TEKP
 1846	                                ;==============================
 1847	                                
 1848	  15B8    E5                    HLDMM:  PUSH    H       ; 853 TAKTU ???
 1849	  15B9    21 2500                       LXI     H,2500H ; MA BYT 3840 ???
 1850	  15BC    CD 1608               	CALL	HLMM2
 1851	  15BF    C2 15B9               	JNZ	HLDMM+1
 1852	  15C2    C3 1604               	JMP	HLMM1
 1853	                                
 1854	                                
 1855	                                ;==============================
 1856	                                ; ZAPIS KRATKE MEZIBL. MEZERY
 1857	                                ;	VYSTUP:	VIZ SZAVP, TEKP
 1858	                                ;==============================
 1859	                                
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-31


 1860	  15C5    C5                    ZAKMM:	PUSH	B
 1861	  15C6    01 0450                       LXI     B,450H  ; MA BYT 500=500 TAKTU ???
 1862	  15C9    CD 156A               ZAMM2:	CALL	SZAVP
 1863	  15CC    C2 15DC               	JNZ	ZAMM3	; PRO NEPOVOLENY ZAZNAM
 1864	  15CF    3E 0B                 ZAMM1:  MVI     A,11+(2*PRODL/15) ; CEKACI SMICKA
 1865	  15D1    3D                            DCR     A                 ; MEZERY
 1866	  15D2    C2 15D1               	JNZ	$-1
 1867	  15D5    00                    	NOP
 1868	  15D6    0B                    	DCX	B
 1869	  15D7    79                    	MOV	A,C
 1870	  15D8    B0                    	ORA	B
 1871	  15D9    C2 15CF               	JNZ	ZAMM1
 1872	  15DC    C1                    ZAMM3:	POP	B
 1873	  15DD    C0                    	RNZ		; PRO NEPOVOLENY ZAZNAM
 1874	  15DE    C3 1505               	JMP	TEKP
 1875	                                
 1876	                                
 1877	                                ;==============================
 1878	                                ; ZAPIS DLOUHE MEZIBL. MEZERY
 1879	                                ;	VYSTUP:	VIZ SZAVP, TEKP
 1880	                                ;==============================
 1881	                                
 1882	  15E1    C5                    ZADMM:	PUSH	B
 1883	  15E2    01 2000                       LXI     B,2000H ; MA BYT 5200=5200 TAKTU ???
 1884	  15E5    C3 15C9               	JMP	ZAMM2
 1885	                                
 1886	                                
 1887	                                ;==============================
 1888	                                ; SKOK O 1 BLOK VPRED
 1889	                                ;	VYSTUP: VIZ TEKP
 1890	                                ;==============================
 1891	                                
 1892	  15E8    CD 15EE               @BLOK:	CALL	BLOK1
 1893	  15EB    C3 1541               	JMP	STOP
 1894	                                
 1895	  15EE    CD 1556               BLOK1:	CALL	SCVPC
 1896	  15F1    C3 15F7               	JMP	BLOK2+3
 1897	                                
 1898	                                
 1899	                                ;==============================
 1900	                                ; SKOK O 1 BLOK VZAD
 1901	                                ;	VYSTUP: VIZ TEKP
 1902	                                ;==============================
 1903	                                
 1904	  15F4    CD 155B               BLOK2:	CALL	SCVZC
 1905	  15F7    CD 12E6               	CALL	CTTV
 1906	                                
 1907	                                
 1908	                                ;==============================
 1909	                                ; HLEDANI KRATKE MEZIBL.MEZERY
 1910	                                ;	VYSTUP: VIZ TEKP
 1911	                                ;==============================
 1912	                                
 1913	  15FA    E5                    HLKMM:  PUSH    H       ; 125 TAKTU ???
 1914	  15FB    21 0200                       LXI     H,200H  ; MA BYT 550 ???
 1915	  15FE    CD 1608               	CALL	HLMM2
 1916	  1601    C2 15FB                       JNZ     HLKMM+1 ; PRO NAVRAT PRES RNZ
 1917	  1604    E1                    HLMM1:  POP     H       ; PRO DALSI POKUS
 1918	  1605    C3 1505               	JMP	TEKP
 1919	                                
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-32


 1920	  1608    DB 09                 HLMM2:	IN	KZDIN	; HLEDANI MEZERY
 1921	  160A    E6 C0                 	ANI	0C0H	; V ZADANE DELCE
 1922	  160C    C0                            RNZ             ; PRO SPATNE - BYLY
 1923	  160D    2B                            DCX     H       ; PRETECENY DATA
 1924	  160E    B4                    	ORA	H
 1925	  160F    B5                    	ORA	L
 1926	  1610    C2 1608               	JNZ	HLMM2
 1927	  1613    C9                            RET             ; PRO OK - NACTEN ZADANY
 1928	                                                        ;          POCET "NEDAT"
 1929	                                
 1930	                                ;==============================
 1931	                                ; VYHLEDANI KONCE VSECH ZAZNAMU
 1932	                                ;	VYSTUP: VIZ TEKP
 1933	                                ;==============================
 1934	                                
 1935	  1614    AF                    EOR:	XRA	A	; = EOR
 1936	  1615    C3 161D               	JMP	EOR0
 1937	  1618    4F                    @EOR:	MOV	C,A	; C=0/"D" PRO EOR?DIR
 1938	  1619    3A 4280               	LDA	JEVER
 1939	  161C    B1                    	ORA	C	; A="D" OR JEVER
 1940	  161D    F5                    EOR0:	PUSH	PSW	; A&jt;>0 - DIR
 1941	  161E    C4 157B               	CNZ	BOT
 1942	  1621    CD 0FC1               EOR2:	CALL	SEARCH	; CTENI BLOKU SE JMENEM
 1943	  1624    CA 165C               	JZ	EOR3	; CTENA EM
 1944	  1627    F1                    	POP	PSW
 1945	  1628    F5                    	PUSH	PSW
 1946	  1629    CA 163E               	JZ	EOR4	; NENI DIR
 1947	  162C    CD 0FE8               	CALL	PDIR
 1948	  162F    79                    	MOV	A,C
 1949	  1630    B7                    	ORA	A
 1950	  1631    CA 163B               	JZ	EOR41	; PRO NAZEV PASKY
 1951	  1634    F1                    	POP	PSW
 1952	  1635    F5                    	PUSH	PSW
 1953	  1636    FE 44                 	CPI	'D'
 1954	  1638    C2 1644               	JNZ	EOR5	; PRO VERIFIKACI
 1955	  163B    CD 0124               EOR41:	CALL	CRLF
 1956	  163E    CD 159D               EOR4:	CALL	SKIP
 1957	  1641    C3 1621               	JMP	EOR2
 1958	  1644    AF                    EOR5:	XRA	A	; NENI CHYBA
 1959	  1645    32 4152               	STA	BNI	; CISLO BLOKU
 1960	  1648    CD 11FD               	CALL	VRF2
 1961	  164B    CD 0124               	CALL	CRLF
 1962	  164E    0E 2D                 	MVI	C,'-'
 1963	  1650    CD 0109               	CALL	CO
 1964	  1653    CD 1011               	CALL	DBTV1	; CISLO BLOKU
 1965	  1656    CD 0124               	CALL	CRLF
 1966	  1659    C3 1621               	JMP	EOR2
 1967	  165C    F1                    EOR3:	POP	PSW
 1968	  165D    CD 155B               EOR1:	CALL	SCVZC
 1969	  1660    CD 15B8               	CALL	HLDMM
 1970	  1663    CD 15FA               	CALL	HLKMM
 1971	  1666    C2 14AA               	JNZ	ERREND
 1972	  1669    C3 1541               	JMP	STOP
 1973	                                
 1974	                                
 1975	                                ;==============================
 1976	                                ; FORMATOVANI (MAZANI) KAZETY
 1977	                                ;	VYSTUP: VIZ TEKP
 1978	                                ;==============================
 1979	                                
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-33


 1980	  166C    16 01                 FORM:	MVI	D,1	; PREVIJENI VZAD, TEDY
 1981	  166E    CD 1523               	CALL	REWIND	; PREVINUTI NA ZACATEK
 1982	  1671    CD 156A               	CALL	SZAVP
 1983	  1674    C2 14AA               	JNZ	ERREND	; PRO ZAPIS NENI POVOLEN
 1984	  1677    C5                    	PUSH	B
 1985	  1678    E5                    	PUSH	H
 1986	  1679    01 2EE0                       LXI     B,12000D; ZAPIS DAT (1/10 KAZETY)
 1987	  167C    3E 55                 	MVI	A,55H
 1988	  167E    CD 13C7               FORM1:	CALL	PISBYT
 1989	  1681    0B                    	DCX	B
 1990	  1682    78                    	MOV	A,B
 1991	  1683    B1                    	ORA	C
 1992	  1684    C2 167E               	JNZ	FORM1
 1993	  1687    CD 1565               	CALL	SCRVZ
 1994	  168A    CD 15B8               	CALL	HLDMM
 1995	  168D    CD 15B8               	CALL	HLDMM	; PREVINUTI NA ZACATEK
 1996	  1690    CD 1556               	CALL	SCVPC
 1997	  1693    CD 16A4                       CALL    HLBOT   ; VYHLADANI 6000 BYTE DAT
 1998	  1696    E1                    	POP	H
 1999	  1697    C1                    	POP	B
 2000	  1698    32 4103               	STA	NAMBUF	; A=0 (&jt;>"@")
 2001	  169B    CD 1122               	CALL	ZAKS1	; ZAPIS DMM, EM A KMM
 2002	  169E    C2 14AA               	JNZ	ERREND
 2003	  16A1    C3 165D               	JMP	EOR1	; NASTAVENI PRED EM
 2004	                                
 2005	  16A4    01 044C               HLBOT:	LXI	B,1100D
 2006	  16A7    CD 12E6               HLBOT1:	CALL	CTTV
 2007	  16AA    0B                    	DCX	B
 2008	  16AB    78                    	MOV	A,B
 2009	  16AC    B1                    	ORA	C
 2010	  16AD    C2 16A7               	JNZ	HLBOT1
 2011	  16B0    C9                    	RET
 2012	                                
 2013	                                ;-----------------------------------
 2014	                                
 2015	                                ; TEXTY CHYBOVYCH HLASENI
 2016	                                
 2017	  16B1    16BF                  TXERR:	DW	TXER0
 2018	  16B3    16D3                  	DW	TXER2
 2019	  16B5    16E3                  	DW	TXER4
 2020	  16B7    16F8                  	DW	TXER6
 2021	  16B9    1704                  	DW	TXER8
 2022	  16BB    1717                  	DW	TXERA
 2023	  16BD    172B                  	DW	TXERC
 2024	                                
 2025	  16BF    13                    TXER0:	DB	19
 2026	  16C0    5A 41 5A 4E           	DC	'ZAZNAM NENI POVOLEN'
 2027	  16C4    41 4D 20 4E           
 2028	  16C8    45 4E 49 20           
 2029	  16CC    50 4F 56 4F           
 2030	  16D0    4C 45 CE              
 2031	  16D3    0F                    TXER2:	DB	15
 2032	  16D4    43 48 59 42           	DC	'CHYBA CTENI DAT'
 2033	  16D8    41 20 43 54           
 2034	  16DC    45 4E 49 20           
 2035	  16E0    44 41 D4              
 2036	  16E3    14                    TXER4:	DB	20
 2037	  16E4    43 48 59 42           	DC	'CHYBA OZNACENI BLOKU'
 2038	  16E8    41 20 4F 5A           
 2039	  16EC    4E 41 43 45           
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-34


 2040	  16F0    4E 49 20 42           
 2041	  16F4    4C 4F 4B D5           
 2042	  16F8    0B                    TXER6:	DB	11
 2043	  16F9    4B 4F 4E 45           	DC	'KONEC PASKY'
 2044	  16FD    43 20 50 41           
 2045	  1701    53 4B D9              
 2046	  1704    12                    TXER8:	DB	18
 2047	  1705    4E 45 4E 49           	DC	'NENI KONEC SOUBORU'
 2048	  1709    20 4B 4F 4E           
 2049	  170D    45 43 20 53           
 2050	  1711    4F 55 42 4F           
 2051	  1715    52 D5                 
 2052	  1717    13                    TXERA:	DB	19
 2053	  1718    4E 45 4E 49           	DC	'NENI BINARNI FORMAT'
 2054	  171C    20 42 49 4E           
 2055	  1720    41 52 4E 49           
 2056	  1724    20 46 4F 52           
 2057	  1728    4D 41 D4              
 2058	  172B    11                    TXERC:	DB	17
 2059	  172C    53 4F 55 42           	DC	'SOUBOR NEEXISTUJE'
 2060	  1730    4F 52 20 4E           
 2061	  1734    45 45 58 49           
 2062	  1738    53 54 55 4A           
 2063	  173C    C5                    
 2064	                                
 2065	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 2066	                                
 2067	                                ;  OBSLUHA TERMINALU  SM 7202
 2068	                                
 2069	                                ; INICIALIZACE SYSTEMU
 2070	                                ; --------------------
 2071	                                
 2072	  173D    21 1403               SINIT:	LXI	H,SERIO+3
 2073	  1740    11 40C4               	LXI	D,CI@0
 2074	  1743    06 09                 	MVI	B,9
 2075	  1745    CD 12DD               	CALL	MOVE
 2076	  1748    AF                    	XRA	A
 2077	  1749    32 4282               	STA	SEKV	; NENI ESC. SEKVENCE
 2078	  174C    3E 09                 	MVI	A,9	; TERM.+STOP MGF.
 2079	  174E    D3 10                 SINI1:	OUT	UMODE
 2080	  1750    D3 13                 	OUT	URES
 2081	  1752    3E 0D                 	MVI	A,PRENOS ; NASTAVENI PRENOSU
 2082	  1754    D3 11                 	OUT	USTAT
 2083	  1756    DB 12                         IN      UDATA   ; NEPLATNA DATA
 2084	  1758    C9                    	RET
 2085	                                
 2086	                                
 2087	                                ; SERIOVY VYSTUP
 2088	                                ; --------------
 2089	                                
 2090	  1759    3A 4282               SCO:	LDA	SEKV
 2091	  175C    B7                    	ORA	A
 2092	  175D    C2 17DA               	JNZ	SCO7	; JE ESC. SEKVENCE
 2093	  1760    79                    	MOV	A,C	; ANALYZA ZNAKU
 2094	  1761    FE 1B                 	CPI	ESC
 2095	  1763    CA 17D4               	JZ	SCO6	; ZACINA ESC. SEKV.
 2096	  1766    FE 1D                 	CPI	HOME
 2097	  1768    CA 178F               	JZ	SCO1
 2098	  176B    FE 0A                 	CPI	LF
 2099	  176D    CA 179A               	JZ	SCO3
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-35


 2100	  1770    FE 0B                 	CPI	VT
 2101	  1772    CA 179A               	JZ	SCO3
 2102	  1775    FE 0D                 	CPI	CR
 2103	  1777    CA 1793               	JZ	SCO2
 2104	  177A    FE 09                 	CPI	HT
 2105	  177C    CA 17A9               	JZ	SCO4
 2106	  177F    FE 08                 	CPI	BS
 2107	  1781    C2 17C2               	JNZ	SCO5
 2108	  1784    3A 40E9               	LDA	COLUM	; "BS"
 2109	  1787    B7                    	ORA	A
 2110	  1788    CA 017E               	JZ	SERO@
 2111	  178B    3D                    	DCR	A
 2112	  178C    C3 1794               	JMP	SCO21
 2113	  178F    AF                    SCO1:	XRA	A	; "HOME"
 2114	  1790    32 40E8               	STA	LINE
 2115	  1793    AF                    SCO2:	XRA	A	; "CR"
 2116	  1794    32 40E9               SCO21:	STA	COLUM
 2117	  1797    C3 017E               	JMP	SERO@
 2118	  179A    3A 40E8               SCO3:	LDA	LINE	; "LF" A "VT"
 2119	  179D    FE 18                 	CPI	TLINE	; POCET RADKU
 2120	  179F    CA 017E               	JZ	SERO@
 2121	  17A2    3C                    	INR	A
 2122	  17A3    32 40E8               	STA	LINE
 2123	  17A6    C3 017E               	JMP	SERO@
 2124	  17A9    C5                    SCO4:	PUSH	B	; "HT"
 2125	  17AA    3A 40E9               	LDA	COLUM
 2126	  17AD    3C                    SCO41:	INR	A
 2127	  17AE    FE 50                 	CPI	TCOLUM	; POCET SLOUPCU
 2128	  17B0    CA 17BD               	JZ	SCO42
 2129	  17B3    47                    	MOV	B,A
 2130	  17B4    E6 07                 	ANI	7
 2131	  17B6    78                    	MOV	A,B
 2132	  17B7    C2 17AD               	JNZ	SCO41
 2133	  17BA    C3 17BE               	JMP	SCO43	; TABELACNI POZICE
 2134	  17BD    3D                    SCO42:	DCR	A	; POSLEDNI SLOUPEC
 2135	  17BE    C1                    SCO43:	POP	B
 2136	  17BF    C3 1794               	JMP	SCO21
 2137	  17C2    79                    SCO5:	MOV	A,C
 2138	  17C3    FE 20                 	CPI	20H
 2139	  17C5    D2 017E               	JNC	SERO@	; PRO RIDICI ZNAK
 2140	  17C8    3A 40E9               	LDA	COLUM
 2141	  17CB    FE 4F                 	CPI	TCOLUM-1 ; POCET SLOUPCU
 2142	  17CD    CA 017E               	JZ	SERO@
 2143	  17D0    3C                    	INR	A
 2144	  17D1    C3 1794               	JMP	SCO21
 2145	  17D4    32 4282               SCO6:	STA	SEKV	; NASTAVENI ESC. SEKV.
 2146	  17D7    C3 017E               	JMP	SERO@
 2147	  17DA    E5                    SCO7:	PUSH	H	; ESC. SEKVENCE
 2148	  17DB    3A 4282               	LDA	SEKV
 2149	  17DE    07                    	RLC
 2150	  17DF    DA 17EA               	JC	SCO8	; PRO 3.BYTE
 2151	  17E2    F6 80                 	ORI	80H
 2152	  17E4    21 40E8               	LXI	H,LINE
 2153	  17E7    C3 17EE               	JMP	SCO9
 2154	  17EA    AF                    SCO8:	XRA	A	; KONEC SEKVENCE
 2155	  17EB    21 40E9               	LXI	H,COLUM
 2156	  17EE    32 4282               SCO9:	STA	SEKV
 2157	  17F1    79                    	MOV	A,C
 2158	  17F2    D6 20                 	SUI	20H
 2159	  17F4    DA 17F8               	JC	SCO10	; NENI ADRESACE KURZORU
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-36


 2160	  17F7    77                    	MOV	M,A
 2161	  17F8    E1                    SCO10:	POP	H
 2162	  17F9    C3 017E               	JMP	SERO@
 2163	                                
 2164	                                
 2165	  17FC                          @E@KOS	EQU	$
 2166	                                        IF      HORE
 2167	                                        .DEPHASE
 2168	                                        ENDIF
 2169	                                
 2170	                                ;
 2171	                                ;*********************************************
 2172	                                ;   ROZDELENI   S Y S T E M O V E    R A M
 2173	                                ;*********************************************
 2174	                                ;
 2175	  4000                          RST1	EQU	@R@	; RESTART VEKTORY
 2176	                                ;........>>>
 2177	                                ;......
 2178	                                ;&jt;&jt;... UZIVATELSKY & MONITOR. ZASOBNIK
 2179	                                
 2180	                                
 2181	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 2182	                                	.PHASE	@R@+6DH
 2183	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 2184	                                ; MONITOR DATA
 2185	                                ;
 2186	  406D                          MSTAK:	DS	2
 2187	  406F                          ACSAV:	DS	2
 2188	  4071                          BCSAV:	DS	2
 2189	  4073                          DESAV:	DS	2
 2190	  4075                          HLSAV:	DS	2
 2191	  4077                          PCSAV:	DS	2
 2192	  4079                          SPSAV:	DS	2
 2193	                                ;
 2194	  407B                          BRAD:	DS	2
 2195	  407D                          INSTR:	DS	1
 2196	  407E                          BRAD2:	DS	2
 2197	  4080                          INST2:	DS	1
 2198	  4081                          CADR:	DS	2	; KURZOR ADR.
 2199	                                ;-------------------------
 2200	  4083                          WMKOD:	DS	14	; KOD PRO KURZORY
 2201	  4091                          PREV:	DS	21	; PREVODNI KODY..0
 2202	                                ;-------------------------
 2203	                                ;	USER I/O DEVICE
 2204	                                ;
 2205	  40A6                          CILOC:	DS	3	; 0
 2206	  40A9                          COLOC:	DS	3	; 1
 2207	  40AC                          R1LOC:	DS	3	; 2
 2208	  40AF                          R2LOC:	DS	3	; 3
 2209	  40B2                          P1LOC:	DS	3	; 4
 2210	  40B5                          P2LOC:	DS	3	; 5
 2211	  40B8                          LILOC:	DS	3	; 6
 2212	  40BB                          CSLOC:	DS	3	; 7
 2213	  40BE                          	DS	1
 2214	  40BF                          MEMTOP:	DS	2	; 8
 2215	  40C1                          ERRSW:	DS	3	; 9
 2216	  40C4                          CI@0:	DS	3	; 10
 2217	  40C7                          CO@:	DS	3	; 11
 2218	  40CA                          CSTS@:	DS	3	; 12
 2219	  40CD                          LO@:	DS	3	; 13
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-37


 2220	  40D0                          KOS@:	DS	3	; 14
 2221	  40D3                          RI@:	DS	3	; 15
 2222	  40D6                          PO@:	DS	3	; 16
 2223	  40D9                          CCPM:	DS	3	; 17
 2224	  40DC                          GRAF:	DS	3
 2225	  40DF                          RESER:	DS	3
 2226	  0015                          IONUM	EQU ($-CILOC)/3+1
 2227	                                ;
 2228	  40E2                          IOBYT:	DS	1	; RIZENI I/O ZARIZENI
 2229	                                ;
 2230	                                ;******************************
 2231	                                ;&jt;&jt; EXTERNE OVLADANE FLAGY: >>
 2232	                                ;******************************
 2233	  40E3                          MODE:	DS	1	; CO-MODE
 2234	  40E4                          @IF1:	DS	1
 2235	  40E5                          @IF2:	DS	1
 2236	  40E6                          @OF1:	DS	1
 2237	  40E7                          @OF2:	DS	1
 2238	  40E8                          LINE:	DS	1	; RADEK
 2239	  40E9                          COLUM:	DS	1	; SLOUPEC
 2240	  40EA                          RESL:	DS	1	; RESERVACE
 2241	  40EB                          RESC:	DS	1	; SLOUPEC
 2242	  40EC                          RESL1:	DS	1	; POSLEDNI RADEK
 2243	  40ED                          RESC1:	DS	1	; POSLEDNI SLOUPEC
 2244	  40EE                          PRER:	DS	1	; UROVEN PRERUSENI
 2245	                                ;
 2246	                                ; PROMENNE PRO OPERACNI SYSTEM
 2247	                                ;
 2248	  40EF                          CUR@:	DS	1
 2249	  40F0                          KEY:	DS	1
 2250	  40F1                          CAS:	DS	1
 2251	                                
 2252	  40F2                          WNDP:	DS	6	; PARAMETRY PRO 2.OKNO
 2253	  0015                          EXSER	EQU	$-MODE	; KONEC SLUZEB
 2254	                                ;
 2255	  40F8                          CHAR:	DS	1
 2256	  40F9                          XFLG:	DS	1
 2257	                                ;
 2258	                                ;**********************************
 2259	                                ; DATA SPOLECNA PRO MONITOR A O.S.
 2260	                                ;**********************************
 2261	                                ;
 2262	  40FA                          @BT:	DS	1
 2263	  40FB                          @PED:	DS	1
 2264	  40FC                          SADR:	DS	2	; START ADR
 2265	  40FE                          EADR:	DS	2	; END ADR
 2266	  4100                          SUM:	DS	1
 2267	  4101                          EXTEXT:	DS	1
 2268	  4102                          OPT:	DS	1
 2269	  4103                          NAMBUF:	DS	65
 2270	                                ;
 2271	                                ;""""""""""""""""""""""""""""""""""
 2272	                                ; PROMENNE PRO O.S.
 2273	  4144                          FNAME:	DS	12	; JMENO SOUBORU
 2274	  4150                          BNO:	DS	1	; CISLO BLOKU
 2275	  4151                          BTO:	DS	1	; CISLO SOUBORU
 2276	  4152                          BNI:	DS	1	;
 2277	  4153                          BTI:	DS	1	; INPUT
 2278	  4154                          ADRO:	DS	2	; ADR OUTPUT
 2279	  4156                          ADRI:	DS	2	; ADR INPUT
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	1-38


 2280	  4158                          FND:	DS	1	; FIND/READ
 2281	                                
 2282	                                ;**********************************
 2283	                                ;  I/O BUFFER PRO KOS
 2284	                                ;**********************************
 2285	  4159                          	DS	1	; TYP BLOKU
 2286	  415A                          BOUT:
 2287	  415A                          BIN:	DS	LENGHT	; DATA
 2288	  4259                          BIEND	EQU	$
 2289	  4259                          BOEND	EQU	$
 2290	  4259                          WRNM:	DS	11	; JMENO SOUBORU
 2291	  4264                          READNM:	DS	22	; BUFFER PRO ZOBRAZENI
 2292	  427A                          POSICE:	DS	2	; ZOBRAZENI BLOKU
 2293	  427C                          MOD@:	DS	1
 2294	                                ;
 2295	  427D                          TSP:	DS	1	; PRO SP-210
 2296	  427E                          JEDE?:	DS	1	;   - " -
 2297	                                ;
 2298	  427F                          DEBL:	DS	1	; DELKA BLOKU
 2299	  4280                          JEVER:	DS	1	; 0 - NENI VERIFIKACE
 2300	  4281                          KAM?:   DS      1       ; HLEDEJ 0/X - ZPET/VPRED
 2301	                                ;
 2302	  4282                          SEKV:	DS	1	; 0 - NENI ESCAPE SEKV.
 2303	  4283                          TSM:	DS	1	; 0 - JE TERMINAL
 2304	                                ;
 2305	                                	.DEPHASE
 2306	                                ;
 2307	                                	END	;
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	S


Macros:

Symbols:
1412 	@ANAL           15A9 	@BACK           15E8 	@BLOK           
1575 	@BOT            40FA 	@BT             17FC 	@E@KOS          
1618 	@EOR            40E4 	@IF1            40E5 	@IF2            
40E6 	@OF1            40E7 	@OF2            40FB 	@PED            
4000 	@R@             10C3 	@READU          1597 	@SKIP           
14CC 	@TEXT           10FD 	@WBLOK          406F 	ACSAV           
4156 	ADRI            4154 	ADRO            1415 	ANAL            
13FC 	ARAM            012D 	ASHEX           15AF 	BACK            
4071 	BCSAV           4259 	BIEND           415A 	BIN             
0D0B 	BINAR           12AF 	BL41            15EE 	BLOK1           
15F4 	BLOK2           12AC 	BLOK4           4152 	BNI             
4150 	BNO             4259 	BOEND           157B 	BOT             
415A 	BOUT            407B 	BRAD            407E 	BRAD2           
1476 	BREAK           0008 	BS              4153 	BTI             
4151 	BTO             11A4 	BUFEND          4081 	CADR            
003A 	CAN             40F1 	CAS             40D9 	CCPM            
40F8 	CHAR            12B8 	CHECK           0103 	CI              
40C4 	CI@0            40A6 	CILOC           013F 	CINCR           
1460 	CISLO           0E75 	CLOSE           0E7E 	CLOSE0          
0EA7 	CLOSE1          0E39 	CLST2           0E24 	CLSTP           
0F88 	CMPN1           0F7D 	CMPNM           0109 	CO              
40C7 	CO@             40A9 	COLOC           40E9 	COLUM           
0040 	COMLE           0F90 	CPF10           0000 	CPM             
000D 	CR              0124 	CRLF            40BB 	CSLOC           
0112 	CSTS            40CA 	CSTS@           133D 	CTBLD           
1345 	CTBLD1          134E 	CTBLD2          135E 	CTBLD3          
1377 	CTIBY1          1374 	CTIBYT          1323 	CTOZN           
12E6 	CTTV            12EE 	CTTV0           12F6 	CTTV1           
1307 	CTTV2           130A 	CTTV3           40EF 	CUR@            
0130 	DADR            100A 	DBTCR           100D 	DBTV            
1011 	DBTV1           1015 	DBTV2           0133 	DBYT            
427F 	DEBL            4073 	DESAV           0E2E 	DIRSTP          
40FE 	EADR            1480 	ECHO            1490 	ECHOCR          
1614 	EOR             161D 	EOR0            165D 	EOR1            
1621 	EOR2            165C 	EOR3            163E 	EOR4            
163B 	EOR41           1644 	EOR5            0004 	EOT             
1800 	EP3             0C00 	EPROM           0000 	ERAM            
128F 	ERRD            122E 	ERRD0           127A 	ERRD1           
1292 	ERRD3           1295 	ERRD7           14AA 	ERREND          
012A 	ERROR           40C1 	ERRSW           14A8 	ERSTP           
001B 	ESC             0003 	ETX             1484 	ETX?            
0127 	EXPR            0015 	EXSER           140C 	EXT?            
4101 	EXTEXT          0DA2 	FIND            0DC2 	FIND1           
4144 	FNAME           4158 	FND             166C 	FORM            
167E 	FORM1           1152 	GET0            116C 	GET00           
1174 	GET01           1192 	GET1            117E 	GET2            
1148 	GET@            118D 	GETEX           40DC 	GRAF            
0136 	HILO            16A4 	HLBOT           16A7 	HLBOT1          
15B8 	HLDMM           15FA 	HLKMM           1604 	HLMM1           
1608 	HLMM2           4075 	HLSAV           001D 	HOME            
0000 	HORE            0009 	HT              0148 	HXASC           
FFFF 	IMS             0F32 	INIT            1548 	INITIO          
0C2A 	INITS           4080 	INST2           407D 	INSTR           
015D 	INTER           40E2 	IOBYT           0115 	IOCHK           
011E 	IODEF           0015 	IONUM           1443 	IOPO            
1449 	IOPO1           144E 	IORI            0118 	IOSET           
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	S-1


427E 	JEDE?           4280 	JEVER           141A 	JMENO?          
4281 	KAM?            40F0 	KEY             1092 	KONBL0          
1098 	KONBL1          10A8 	KONBL2          0CF8 	KONEC           
119E 	KONEC?          005C 	KONST1          40D0 	KOS@            
0C75 	KOS@@           00B3 	KPREVZ          00BD 	KSCRVP          
00B7 	KSCRVZ          00FE 	KSCVP           00BE 	KSCVPC          
00BB 	KSCVZC          00FF 	KSTPCT          00AF 	KSTPZA          
00AE 	KSZAVP          000B 	KZDCTR          0009 	KZDIN           
0008 	KZDOUT          00FF 	LENGHT          000A 	LF              
40B8 	LILOC           40E8 	LINE            0DD4 	LO1             
0E04 	LO2             40CD 	LO@             0DD1 	LOAD            
002A 	MAXSL           40BF 	MEMTOP          0C86 	MICOS           
427C 	MOD@            40E3 	MODE            0000 	MONIT           
12DD 	MOVE            406D 	MSTAK           1499 	NAF             
4103 	NAMBUF          000B 	NAMLE           0139 	NEXT            
0D11 	NOVYOT          1431 	NPO             143D 	NRI             
1436 	NRI1            106E 	NUFIL           112F 	NULBF           
0ED0 	NUM1            0EDD 	NUM2            0EE3 	NUM3            
0EE6 	NUM4            0F01 	NUM5            0F16 	NUM6            
0F19 	NUM7            0F2A 	NUM8            0EAA 	NUMB            
0EC2 	NUMB@           101B 	OBNOV           141D 	OK?             
1031 	OKNO            0D59 	OPE1            0D8C 	OPE2            
0D6B 	OPE4            0D7D 	OPE5            0D3B 	OPEN            
4102 	OPT             40B2 	P1LOC           40B5 	P2LOC           
12D2 	PADR@           4077 	PCSAV           0FE8 	PDIR            
0FDD 	PHDR            0FE0 	PHDR1           13C7 	PISBYT          
13C2 	PISODD          0FF8 	PNAM1           1000 	PNAM2           
0FF5 	PNAME           010C 	PO              40D6 	PO@             
12D7 	POCH            427A 	POSICE          000D 	PRENOS          
40EE 	PRER            4091 	PREV            0000 	PRODL           
11AF 	PUT@            11D9 	PUTEND          40AC 	R1LOC           
40AF 	R2LOC           12BE 	RADR@           1078 	READBL          
4264 	READNM          40EB 	RESC            40ED 	RESC1           
40DF 	RESER           40EA 	RESL            40EC 	RESL1           
1533 	REW1            1511 	REW3            151A 	REW4            
152C 	REW5            151D 	REW7            1523 	REWIND          
0106 	RI              40D3 	RI@             104D 	RIB             
1060 	RIB1            1065 	RIB2            12C7 	RICH            
015A 	RNAME           4000 	RST1            00CF 	RSTN            
40FC 	SADR            0E67 	SAV1            0E3E 	SAVE            
1759 	SCO             178F 	SCO1            17F8 	SCO10           
1793 	SCO2            1794 	SCO21           179A 	SCO3            
17A9 	SCO4            17AD 	SCO41           17BD 	SCO42           
17BE 	SCO43           17C2 	SCO5            17D4 	SCO6            
17DA 	SCO7            17EA 	SCO8            17EE 	SCO9            
1560 	SCRVP           1565 	SCRVZ           1551 	SCVP            
1556 	SCVPC           155B 	SCVZC           0FC1 	SEARCH          
4282 	SEKV            017B 	SERI@           1400 	SERIO           
017E 	SERO@           001F 	SETOUT          008B 	SETPPI          
174E 	SINI1           173D 	SINIT           159D 	SKIP            
0D2D 	SLEN            0D17 	SLEN@           0C7B 	SLUZBA          
0000 	SM              0181 	SMST@           0001 	SOH             
013C 	SPACE           0121 	SPCL            4079 	SPSAV           
1541 	STOP            001A 	SUBS            4100 	SUM             
156A 	SZAVP           0050 	TCOLUM          1505 	TEKP            
0FA4 	TESTJM          0142 	TEXT            0018 	TLINE           
4283 	TSM             427D 	TSP             0000 	TV64            
3800 	TVBEG           16BF 	TXER0           16D3 	TXER2           
16E3 	TXER4           16F8 	TXER6           1704 	TXER8           
1717 	TXERA           172B 	TXERC           16B1 	TXERR           
FIRMWARE SAPI-1 MIKOS/K V5.0 - KZD	MACRO-80 3.44	09-Dec-81	PAGE	S-2


0151 	TXIMM           1469 	TXNAM           0012 	UDATA           
0010 	UMODE           0013 	URES            0011 	USTAT           
00FB 	UVOD            0D32 	VERIF           11EE 	VRF1            
11FD 	VRF2            120E 	VRF3            1215 	VRF4            
000B 	VT              0FBD 	VYP1            0FB8 	VYPISH          
4083 	WMKOD           0154 	WND@            40F2 	WNDP            
10E4 	WOB             10E9 	WOB1            0F5F 	WRN1            
0F49 	WRNAM           4259 	WRNM            40F9 	XFLG            
139B 	ZABLD           13A2 	ZABLD1          13B8 	ZABLD2          
0C18 	ZAC             15E1 	ZADMM           14FB 	ZAKB1           
14F7 	ZAKBL           15C5 	ZAKMM           111C 	ZAKS            
1122 	ZAKS1           1129 	ZAKS2           15CF 	ZAMM1           
15C9 	ZAMM2           15DC 	ZAMM3           14D5 	ZAOZN           
14F0 	ZAOZN1          1454 	ZMIO            



No Fatal error(s)



@ANAL	  685	 1489#
@BACK	  286	 1835#
@BLOK	  282	  570	 1892#
@BOT	  280	 1800#
@BT	  474	 2262#
@E@KOS	 2165#
@EOR	  295	 1937#
@IF1	  430	  482	  990	 1016	 1589	 2234#
@IF2	  487	 2235#
@OF1	  390	  403	  526	  538	 1055	 1590	 2236#
@OF2	 2237#
@PED	 2263#
@R@	   21#	 2175	 2182
@READU	  856	  901#
@SKIP	  284	  485	 1019	 1821#
@TEXT	 1613	 1616#
@WBLOK	  946#
ACSAV	 2187#
ADRI	  432	  887	  995	  998	 2279#
ADRO	  531	  968	 1062	 1065	 2278#
ANAL	 1491#
ARAM	 1456#	 1458
ASHEX	   67#
BACK	  543	  594	  595	 1164	 1165	 1835	 1838#
BCSAV	 2188#
BIEND	 2288#
BIN	  667	  673	  746	  832	  873	  886	 1034	 1040	 1105	 1116	 1307	 2287#
BINAR	  186	  323#	  497
BL41	 1181#	 1183
BLOK1	 1892	 1895#
BLOK2	 1181	 1896	 1904#
BLOK4	  397	 1168	 1179#
BNI	  429	  829	  839	 1114	 1129	 1959	 2276#
BNO	  385	  388	  624	  928	  930	 2274#
BOEND	 2289#
BOT	  377	  423	  569	  603	 1800	 1803#	 1941
BOUT	  324	  535	  952	  967	 1075	 1380	 2286#
BRAD	 2194#
BRAD2	 2196#
BREAK	 1564#	 1677
BS	   96#	 2106
BTI	  728	 1098	 1149	 1151	 1161	 1163	 2277#
BTO	  568	  729	 2275#
BUFEND	  431	  993	 1007	 1038#	 1060
CADR	 2198#
CAN	  108#	  626	  668	  833	  955	 1106
CAS	 2250#
CCPM	  371	  420	  525	 2223#

CHAR	 2255#
CHECK	  461	  467	 1188#
CI	   55#	 1566
CI@0	 2073	 2216#
CILOC	 2205#	 2226
CINCR	   73#	 1572
CISLO	 1527	 1534	 1546#
CLOSE	  183	  270	  331	  522#
CLOSE0	  526#	 1051
CLOSE1	  542	  545#
CLST2	  480	  486#
CLSTP	  472	  477#
CMPN1	  664	  667#
CMPNM	  427	  663#	  669	  679
CO	   57#	  263	  767	  787	  789	 1110	 1115	 1963
CO@	 2217#
COLOC	 2206#
COLUM	 2108	 2116	 2125	 2140	 2155	 2239#
COMLE	   90#	  636	  654	  747
CPF10	  671#
CPM	   10#	   26
CR	  100#	  342	  556	 1135	 1491	 1558	 2102
CRLF	   64#	  477	  657	  744	  774	 1094	 1128	 1583	 1602	 1955	 1961	 1965
CSLOC	 2212#
CSTS	   59#	 1564
CSTS@	 2218#
CTBLD	  870	 1305#
CTBLD1	 1309#	 1313
CTBLD2	 1314#
CTBLD3	 1322#	 1326
CTIBY1	 1347#	 1349	 1352	 1367
CTIBYT	 1280	 1282	 1284	 1286	 1309	 1314	 1315	 1322	 1345#
CTOZN	  915	 1279#
CTTV	  905	 1232#	 1825	 1839	 1905	 2006
CTTV0	 1236#	 1258
CTTV1	 1240#	 1253
CTTV2	 1235	 1245	 1250#
CTTV3	 1241	 1251#
CUR@	 2248#
DADR	   68#
DBTCR	  774#	 1133
DBTV	  775#	  884
DBTV1	  777#	  935	 1964
DBTV2	  752	  779#
DBYT	   69#	  776	  779
DEBL	  350	  484	  867	  925	 1018	 1038	 1593	 2298#
DESAV	 2189#
DIRSTP	  481#
EADR	  450	 2265#

ECHO	 1143	 1572#	 1581
ECHOCR	  264	 1500	 1581#
EOR	  278	  398	 1935#
EOR0	 1936	 1940#
EOR1	  317	  539	  611	 1968#	 2003
EOR2	 1942#	 1957	 1966
EOR3	 1943	 1967#
EOR4	 1946	 1956#
EOR41	 1950	 1955#
EOR5	 1954	 1958#
EOT	  107#	  534	  953	 1035	 1117
EP3	   39#	  221	  223
EPROM	   48#	  171	  194	  238	 1458	 1467
ERAM	   38#
ERRD	  826	  828	 1167#
ERRD0	 1127#	 1176
ERRD1	 1148	 1159#
ERRD3	 1160	 1168#
ERRD7	 1158	 1166	 1169#	 1173	 1177
ERREND	  446	  458	  613	  666	  907	  947	  951	 1249	 1601#	 1808	 1971	 1983
	 2002
ERROR	   66#
ERRSW	 2215#
ERSTP	 1200	 1600#
ESC	  102#	 2094
ETX	   95#	 1574
ETX?	 1567	 1574#
EXPR	   65#	  347	  495	  562
EXSER	 2253#
EXT?	 1482#
EXTEXT	  257	 1482	 2267#
FIND	  181	  272	  415#	  439	  992
FIND1	  428#	  583	  608
FNAME	  425	  672	 2273#
FND	  201	  823	  861	  876	  882	 1170	 2280#
FORM	  619	 1980#
FORM1	 1988#	 1992
GET0	  993#	 1031
GET00	 1004#	 1013
GET01	 1008#	 1010
GET1	  999	 1029#
GET2	 1015#	 1032
GET@	  187	  987#
GETEX	 1001	 1005	 1023#
GRAF	 2224#
HILO	   70#	  465	  471	  513	  996	 1066
HLBOT	 1997	 2005#
HLBOT1	 1811	 2006#	 2010
HLDMM	  408	  720	 1806	 1807	 1813	 1827	 1848#	 1851	 1969	 1994	 1995

HLKMM	  314	  902	 1913#	 1916	 1970
HLMM1	 1852	 1917#
HLMM2	 1850	 1915	 1920#	 1926
HLSAV	 2190#
HOME	  103#	  806	 2096
HORE	   12#	   45	  168	  225	 1464	 2166
HT	   97#	 2104
HXASC	   75#
IMS	   13#	  123
INIT	  266	  619#
INITIO	  220	 1735#
INITS	  180	  200#
INST2	 2197#
INSTR	 2195#
INTER	   79#
IOBYT	  202	 1510	 1522	 1540	 1543	 2228#
IOCHK	   60#
IODEF	   62#
IONUM	 2226#
IOPO	  367	 1527#
IOPO1	  395	  402	 1531#
IORI	  416	 1534#
IOSET	   61#
JEDE?	 2296#
JEVER	  259	  357	  359	  540	 1591	 1938	 2299#
JMENO?	  684	 1496#
KAM?	  574	  580	  584	 2300#
KEY	 2249#
KONBL0	  863	  868#
KONBL1	  858	  872#
KONBL2	  875	  879#
KONEC	  311#
KONEC?	 1003	 1029	 1034#
KONST1	  163#	 1415
KOS@	  214	 2220#
KOS@@	  213	  237#
KPREVZ	  164#	 1693
KSCRVP	  158#	 1696	 1769
KSCRVZ	  159#	 1777
KSCVP	  155#	 1745
KSCVPC	  156#	 1705	 1753
KSCVZC	  157#	 1702	 1761
KSTPCT	  161#	 1725
KSTPZA	  162#
KSZAVP	  160#	 1787
KZDCTR	  126#	 1736
KZDIN	  124#	 1251	 1259	 1347	 1350	 1678	 1789	 1920
KZDOUT	  125#	 1420	 1423	 1439	 1697	 1706	 1726	 1738	 1746	 1754	 1762	 1770
	 1778	 1788

LENGHT	   88#	  970	 2287
LF	   98#	  342	  556	 1135	 1558	 2098
LILOC	 2211#
LINE	 2114	 2118	 2122	 2152	 2238#
LO1	  440#	  442
LO2	  463#	  466
LO@	 2219#
LOAD	  184	  276	  439#
MAXSL	  194#	  239
MEMTOP	 2214#
MICOS	  179	  255#
MOD@	  790	  800	 2293#
MODE	  791	  797	 1078	 2233#	 2253
MONIT	   37#
MOVE	  219	  426	  640	 1217#	 1222	 2075
MSTAK	 2186#
NAF	  215	 1577	 1588#
NAMBUF	 2000	 2269#
NAMLE	   89#	  424	  642	  674	 1321	 1392
NEXT	   71#	 1578	 1614
NOVYOT	  331#	  405
NPO	  368	  496	  522	 1510#
NRI	  417	  478	 1522#
NRI1	 1513#	 1523
NUFIL	  827	  839#	 1112	 1174
NULBF	  632	  956	  967#
NUM1	  567	  571#
NUM2	  572	  576#
NUM3	  578	  580#
NUM4	  581#	  591	  600
NUM5	  575	  585	  592#
NUM6	  587	  593	  603#
NUM7	  604#	  610
NUM8	  590	  599	  605	  611#
NUMB	  297	  555#
NUMB@	  192	  564#
OBNOV	  783#	  885	  936
OK?	  311	  383	 1497#
OKNO	  795#	  879	  934
OPE1	  379#	  384
OPE2	  374	  401#
OPE4	  332	  385#	  399	  409
OPE5	  376	  394#
OPEN	  182	  268	  366#	  493	 1058
OPT	 2268#
P1LOC	 2209#
P2LOC	 2210#
PADR@	  503	  505	 1207#
PCSAV	 2191#

PDIR	  750#	 1099	 1947
PHDR	  662	  698	  736#
PHDR1	  746#	  753
PISBYT	 1383	 1388	 1390	 1394	 1400	 1410#	 1447	 1635	 1638	 1640	 1642	 1647
	 1664	 1988
PISODD	 1399#
PNAM1	  762#	  770
PNAM2	  764	  766#
PNAME	  761#	  883
PO	   58#	 1214
PO@	 2222#
POCH	  499	  507	  509	  512	  516	 1208	 1211#
POSICE	  783	  804	 2292#
PRENOS	  119#	 2081
PRER	 2244#
PREV	 2201#
PRODL	  132#	 1440	 1864
PUT@	  189	 1050#
PUTEND	 1050	 1075#
R1LOC	  217	 2207#
R2LOC	 2208#
RADR@	  449	  452	 1193#
READBL	  722	  824	  856#	 1119	 1171
READNM	  761	  859	 1320	 2291#
RESC	 2241#
RESC1	 2243#
RESER	 2225#
RESL	 2240#
RESL1	 2242#
REW1	 1710#	 1713
REW3	 1692#	 1716
REW4	 1695	 1697#
REW5	 1704	 1706#
REW7	 1699#	 1700
REWIND	  188	  293	 1701#	 1804	 1981
RI	   56#	 1199
RI@	 2221#
RIB	  820#	 1030
RIB1	  829#	 1146	 1175
RIB2	  832#
RICH	  440	  454	  463	 1189	 1193	 1195	 1199#
RNAME	   78#	  372	  421	  625
RST1	 2175#
RSTN	   22#
SADR	  453	 2264#
SAV1	  511#	  514
SAVE	  185	  274	  493#
SCO	 1474	 2090#
SCO1	 2097	 2113#

SCO10	 2159	 2161#
SCO2	 2103	 2115#
SCO21	 2112	 2116#	 2136	 2144
SCO3	 2099	 2101	 2118#
SCO4	 2105	 2124#
SCO41	 2126#	 2132
SCO42	 2128	 2134#
SCO43	 2133	 2135#
SCO5	 2107	 2137#
SCO6	 2095	 2145#
SCO7	 2092	 2147#
SCO8	 2150	 2154#
SCO9	 2153	 2156#
SCRVP	 1769#	 1826
SCRVZ	 1777#	 1840	 1993
SCVP	  904	 1745#
SCVPC	  407	  719	  901	 1753#	 1805	 1824	 1895	 1996
SCVZC	  313	 1761#	 1838	 1904	 1968
SEARCH	  379	  571	  589	  596	  604	  663	  719#	 1095	 1942
SEKV	 2077	 2090	 2145	 2148	 2156	 2302#
SERI@	   80#	 1473
SERIO	 1472#	 2072
SERO@	   81#	 2110	 2117	 2120	 2123	 2139	 2142	 2146	 2162
SETOUT	  154#	 1737
SETPPI	  153#	 1735
SINI1	 2079#
SINIT	 1472	 2072#
SKIP	  381	  588	  609	  678	 1157	 1821	 1824#	 1956
SLEN	  191	  349#
SLEN@	  299	  341#
SLUZBA	  240#
SM	   11#	  699	  713	  736	 1152
SMST@	   82#	 1475
SOH	  106#	  389	  835
SPACE	   72#	  754	  777	  780
SPCL	   63#	  801
SPSAV	 2192#
STOP	  190	  255	  382	  725	  731	  878	  978	 1107	 1118	 1127	 1167	 1576
	 1609	 1724#	 1801	 1822	 1836	 1893	 1972
SUBS	  101#	  533	 1000	 1020	 1083
SUM	  468	 2266#
SZAVP	 1787#	 1862	 1982
TCOLUM	   86#	 2127	 2141
TEKP	  950	  960	 1293	 1335	 1677#	 1699	 1715	 1874	 1918
TESTJM	  675	  681#	  691
TEXT	   74#	  748	 1622
TLINE	   85#	 2119
TSM	 2303#
TSP	 2295#

TV64	    9#	   40
TVBEG	   43#
TXER0	 2017	 2025#
TXER2	 2018	 2031#
TXER4	 2019	 2036#
TXER6	 2020	 2042#
TXER8	 2021	 2046#
TXERA	 2022	 2052#
TXERC	 2023	 2058#
TXERR	 1611	 2017#
TXIMM	   76#	  203	  341	  555	  620	  784	  805	 1134	 1497	 1557	 1603
TXNAM	 1557#
UDATA	  117#	 2083
UMODE	  115#	 2079
URES	  118#	 2080
USTAT	  116#	 2082
UVOD	   91#	  913	 1634
VERIF	  288	  357#
VRF1	  290	  544	 1094#
VRF2	 1101#	 1120	 1960
VRF3	 1104	 1108#
VRF4	 1102	 1112#
VT	   99#	 2100
VYP1	  707#
VYPISH	  380	  686	  696#	 1496
WMKOD	 2200#
WND@	   77#
WNDP	 2252#
WOB	  536	  925#	 1067
WOB1	  655	  928#
WRN1	  644#	  652
WRNAM	  392	  630#
WRNM	  643	 1391	 2290#
XFLG	 2256#
ZABLD	  949	 1379#
ZABLD1	 1382#	 1386
ZABLD2	 1393#	 1397
ZAC	  187#	  216
ZADMM	  653	  959	 1882#
ZAKB1	 1663#	 1666
ZAKBL	  958	  962	 1660#
ZAKMM	  315	  946	  957	  963	 1860#
ZAKS	  954	  957#
ZAKS1	  316	  959#	 2001
ZAKS2	  962#
ZAMM1	 1864#	 1871
ZAMM2	 1862#	 1884
ZAMM3	 1863	 1872#
ZAOZN	  948	 1634#

ZAOZN1	 1636	 1648#
ZMIO	 1532	 1537#  


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


SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | klony SM50/40 | PETR | PLAN-80A | IQ151 | TNS


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