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


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


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


8 bity / SAPI-1 / Programové vybavení / ZPS-2 / RUTINY PRO PLOTR XY4130


Listing programu OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0

Zdrojový kód byl získán pomocí zpětného inženýrství.


OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1


    1	                                ; OVLADAC PRO XY4130 PRES PORT3 NA JPR-1
    2	                                ; PRO SAPI-1 ZPS-2 A MONITOR V5.0
    3	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    4	                                ;
    5	                                TITLE OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0
    6	                                ;
    7	                                	; KONSTANTY
    8	  000D                          CR	EQU	0DH
    9	  000A                          LF	EQU	0AH
   10	  0007                          BEL	EQU	7
   11	  0003                          CTRLC	EQU	3
   12	                                ;
   13	                                	;PERIFERIE
   14	  2C00                          PORT2	EQU	2C00H
   15	                                ;
   16	                                	; SLUZBY MONITORU
   17	  0115                          IOCHK	EQU	0115H		; I/O BYT CHEK <A>
   18	  0118                          IOSET	EQU	0118H		; I/O BYT SET <C>
   19	  011E                          IODEF	EQU	011EH		; DEFINICE UZIVATELSKYCH PERIFERII
   20	  0139                          NEXT	EQU	0139H		; PREDANI OVLADANI MONITORU
   21	  013F                          CINCR	EQU	013FH		; ECHO+ANALYZA
   22	  014B                          EXFLG	EQU	014BH		; EXTERNI RIZENI FLAGU
   23	                                ;
   24	                                	; ROZSIRENE SLUZBY MONITORU V5.0
   25	  0151                          TX	EQU	0151H		; ZOBRAZENI NASLEDUJICIHO TEXTU
   26	                                ;
   27	                                	; ADRESI V PAMETI
   28	  1800                          ROM	EQU	1800H		;ADRESA V ROM
   29	  4290                          RAM	EQU	4290H		;ADRESA V RAM
   30	                                
   31	                                ;********************************
   32	                                ; START PROGRAMU
   33	                                ;
   34	  0000'                         	ASEG
   35	                                	ORG	ROM
   36	                                ;
   37	                                ; TABULKA SKOKU
   38	                                
   39	  1800    C3 185F               	JMP	ZNAKP		; TISK JEDNOHO ZNAKU <C>
   40	  1803    C3 1828               	JMP	ZAVOV		; ZAVED OVLADAC
   41	  1806    C3 18AF               	JMP	VPOZ		; NASTAVI VYCHOZI POZICI PO ZALOZENI PAPIRU
   42	                                				; X V <DE>, Y V <BC> PRO TEXT ?
   43	  1809    C3 188B               	JMP	AMOVA		; ABSULUTNI PRESUN X V <DE>, Y V <BC>
   44	  180C    C3 1894               	JMP	AVECTA		; ABSOLUTNI VEKTOR X V <DE>, Y V <BC>
   45	  180F    C3 189D               	JMP	APOIN		; ABSOLUTNI BOD X V <DE>, Y V <BC>
   46	  1812    C3 1910               	JMP	RMOVA		; RELATIVNI PRESUN X V <DE>, Y V <BC>
   47	  1815    C3 18A6               	JMP	RVECTA		; RELATIVNI VEKTOR X V <DE>, Y V <BC>
   48	  1818    C3 1C60               	JMP	RPOIN		; RELATIVNI BOD X V <DE>, Y V <BC>
   49	  181B    C3 186D               	JMP	NASZN		; NASTAV VELIKOST PISMA <HL>
   50	                                				; SIXX, SIXY, SIYX, SIYY
   51	  181E    C3 1CDC               	JMP	TESTT		; TEST TISKARNY (VYTISKNE ZNAKY 10H AZ FFH)
   52	  1821    C3 1869               	JMP	NTABGZ		; NASTAV ADRESU GENERATORU ZNAKU <HL>
   53	  1824    2A 42AA               	LHLD	ATABGZ		; VRAT ADRESU GENERATORU ZNAKU <HL>
   54	  1827    C9                    	RET
   55	                                ;
   56	                                ;ZAVEDENI OVLADACE
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-1


   57	  1828    0E 0D                 ZAVOV:	MVI	C,13		; SYSTEMOVA TISKARNA
   58	  182A    11 185F               	LXI	D,ZNAKP		; ADRESA OVLADACE
   59	  182D    CD 011E               	CALL	IODEF		; NASTAV
   60	  1830    CD 0115               	CALL	IOCHK		; NACTI IOBYT
   61	  1833    E6 BF                 	ANI	10111111B
   62	  1835    F6 80                 	ORI	10000000B	; L=L .. TISKARNA
   63	  1837    4F                    	MOV	C,A
   64	  1838    CD 0118               	CALL	IOSET		; NASTAV IOBYT
   65	  183B    21 1857               	LXI	H,PVZN
   66	  183E    CD 186D               	CALL	NASZN		; NASTAV POCATECNI VELIKOST ZNAKU
   67	  1841    21 1D60               	LXI	H,TABGZ		; ADESA TABULKY ZNAKU V EPROM
   68	  1844    22 42AA               	SHLD	ATABGZ		; ULOZ AKTUALNI TABULKU ZNAKU
   69	  1847    CD 0151               	CALL	TX		; ZOBRAZ TEXT
   70	  184A    0D 0A                 	DB	CR,LF
   71	  184C    4C 3D 58 59           	DB	'L=XY413','0'+80H
   72	  1850    34 31 33 B0           
   73	  1854    C3 1AA9               	JMP	HOME
   74	                                ; VYCHOZI HODNOTY PRO VELIKOST TEXTU
   75	  1857    0004                  PVZN:	DW	4		; SIXX
   76	  1859    0000                  	DW	0		; SIXY
   77	  185B    0000                  	DW	0		; SIYX
   78	  185D    0004                  	DW	4		; SIYY
   79	                                ;
   80	                                ;VSTUP DO TISKUVE RUTINY, ZNAK JE V <C>
   81	                                ;
   82	  185F    C5                    ZNAKP:	PUSH	B
   83	  1860    D5                    	PUSH	D
   84	  1861    E5                    	PUSH	H
   85	  1862    CD 19D0               	CALL	ZNAKC
   86	  1865    E1                    	POP	H
   87	  1866    D1                    	POP	D
   88	  1867    C1                    	POP	B
   89	  1868    C9                    	RET
   90	                                ;
   91	  1869    22 42AA               NTABGZ:	SHLD	ATABGZ		; UKOZ NOVOU ADRESU GENERATORU ZNAKU <HL>
   92	  186C    C9                    	RET
   93	                                ;
   94	  186D    11 4290               NASZN:	LXI	D,SIXX		; NASTAV NOVOU VELIKOST ZNAKU
   95	  1870    06 08                 	MVI	B,8
   96	  1872    7E                    NASZN1:	MOV	A,M
   97	  1873    12                    	STAX	D
   98	  1874    13                    	INX	D
   99	  1875    23                    	INX	H
  100	  1876    05                    	DCR	B
  101	  1877    C2 1872               	JNZ	NASZN1
  102	  187A    C9                    	RET
  103	                                ;
  104	                                ; ULOZI <DE> NA TXTSX, <BC> NA TXTSY A TXTNS NASTAVI NA 1
  105	                                ; SOURADNICE V TXTSX A TXTSY SLIUZI PRO TISK TEXTU
  106	                                ;
  107	  187B    EB                    ULZXY:	XCHG			; PROHOT <DE> A <HL>
  108	  187C    22 42A6               	SHLD	TXTSX		; <DE> ULOZ NA TXTSX
  109	  187F    EB                    	XCHG			; PROHOT <DE> A <HL>
  110	  1880    60                    	MOV	H,B
  111	  1881    69                    	MOV	L,C		; <BC> DO <HL>
  112	  1882    22 42A8               	SHLD	TXTSY		; <BC> ULOZ NA TXTSY
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-2


  113	  1885    3E 01                 	MVI	A,1
  114	  1887    32 429C               	STA	TXTNS		; PRIZNAK NOVYCH SOURADNIC
  115	  188A    C9                    	RET
  116	                                ;
  117	  188B    CD 187B               AMOVA:	CALL	ULZXY		; ULOZ X A Y
  118	  188E    CD 1C6C               MOVA:	CALL	PEN0		; ZVEDNI PERO
  119	  1891    C3 1921               	JMP	ABS0		; ADSULUTNI PRESUN
  120	                                ;
  121	  1894    CD 187B               AVECTA:	CALL	ULZXY		; ULOZ X A Y
  122	  1897    CD 1C77               VECTA:	CALL	PEN1		; SPUST PERO
  123	  189A    C3 1921               	JMP	ABS0		; ADSULUTNI PRESUN
  124	                                ;
  125	  189D    CD 187B               APOIN:	CALL	ULZXY		; ULOZ X A Y
  126	  18A0    CD 188E               	CALL	MOVA		; ADSULUTNI PRESUN
  127	  18A3    C3 1C69               	JMP	PENP		; UDELEJ TECKU
  128	                                ;
  129	  18A6    CD 187B               RVECTA:	CALL	ULZXY		; ULOZ X A Y
  130	  18A9    CD 1C77               	CALL	PEN1		; SPUST PERO
  131	  18AC    C3 1916               	JMP	RELA		; RESATIVNI PRESUN
  132	                                ;
  133	                                ; NASTAVI PISATKO DO VYCHOZI POLOHY A POZCE DANE <BC> A <DE>
  134	                                ;
  135	  18AF    CD 187B               VPOZ:	CALL	ULZXY		; ULOZ X A Y
  136	  18B2    21 1414               VPOZ1:	LXI	H,1414H		; NASTAV CASOVACI KONSTANTY
  137	  18B5    22 429F               	SHLD	TKON1
  138	  18B8    22 42A0               	SHLD	TKON2
  139	                                ;
  140	                                ;NASTAVY POCATECNI KONSTATY
  141	                                ;TKON1	= 14H KONSTANTA PRO CASOVOU SMICKU 1
  142	                                ;TKON2	= 14H KONSTANTA PRO CASOVOU SMICKU 2
  143	                                ;TKON3	= 14H KONSTANTA PRO CASOVOU SMICKU 3
  144	                                ;
  145	  18BB    D5                    	PUSH	D		; SORADNICE X DO ZASOBNIKU
  146	  18BC    C5                    	PUSH	B		; SORADNICE Y DO ZASOBNIKU
  147	  18BD    3E 01                 	MVI	A,1
  148	  18BF    32 42B0               	STA	SPEN		; SPUST PERO ?????
  149	  18C2    01 0008               	LXI	B,8
  150	  18C5    50                    	MOV	D,B
  151	  18C6    59                    	MOV	E,C		; "8" DO X A Y
  152	  18C7    CD 1913               	CALL	RELA1		; RELATIVNI PRESUN -> SINCHRONIZOVAT MOTORY
  153	  18CA    21 0D08               	LXI	H,0D08H
  154	  18CD    22 429F               	SHLD	TKON1
  155	                                ;
  156	                                ;NASTAVY KONSTATY
  157	                                ;TKON1	= 08H KONSTANTA PRO CASOVOU SMICKU 1
  158	                                ;TKON2	= 0DH KONSTANTA PRO CASOVOU SMICKU 2
  159	                                ;TKON3	= 14H KONSTANTA PRO CASOVOU SMICKU 3
  160	                                ;
  161	  18D0    21 06A4               	LXI	H,06A4H		; 1610, 16.1 CM?
  162	  18D3    22 42A2               	SHLD	STPX		; OKAMZITA POLOHA X
  163	  18D6    21 04B0               	LXI	H,04B0H		; 1200, 12.0CM?
  164	  18D9    22 42A4               	SHLD	STPY		; OKAMZITA POLOHA Y
  165	  18DC    C1                    	POP	B
  166	  18DD    C5                    	PUSH	B		; OBNOV Y DO <BC>
  167	  18DE    11 0000               	LXI	D,0		; X NA 0
  168	  18E1    CD 188E               	CALL	MOVA		; PRESUN
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-3


  169	  18E4    C1                    	POP	B
  170	  18E5    C5                    	PUSH	B		; OBNOV Y DO <BC>
  171	  18E6    11 0050               	LXI	D,50H		; 80, 8MM? NASTAV Y
  172	  18E9    CD 188E               	CALL	MOVA		; PRESUN
  173	  18EC    AF                    	XRA	A
  174	  18ED    32 42A2               	STA	STPX		; VYNULUJ SPODNI BYTE OKAMZITE POLOHZ NA OSE X
  175	  18F0    C1                    	POP	B
  176	  18F1    D1                    	POP	D		; OBOV ZADANE X A Y
  177	  18F2    CD 188E               	CALL	MOVA		; PRESUN
  178	                                ;
  179	                                ;NASTAVY POCATECNI KONSTATY
  180	                                ;DIAK	= 00H PRIZNAK DIAKRITIKY, BUDE ZNAMENKO
  181	                                ;ZBS	= 00H ZNAK BS
  182	                                ;DIAK2	= 00H PRIZNAK DIAKRITIKY, BYLO ZNAMENKO
  183	                                ;GZNAK	= 00H PRIZNAK GRAFICKEHO ZNAKU
  184	                                ;TXTNS	= 00H PRIZNAK NOVYCH SURADNIC PRO TISK TEXTU
  185	                                ;RADKO	= 10H ROZSTUP MEZI RADKY
  186	                                ;WIDE	= 06H DRUH MEZERY MEZI ZNAKY
  187	                                ;
  188	  18F5    3E 0A                 	MVI	A,0AH
  189	  18F7    32 42A1               	STA	TKON3
  190	  18FA    3E 06                 	MVI	A,6
  191	  18FC    32 429E               	STA	WIDE		; TISKOVA MEZERA
  192	  18FF    3D                    	DCR	A
  193	  1900    21 4298               	LXI	H,DIAK		; PRIZNAK DIAKRITIKY
  194	  1903    36 00                 VPOZ2:	MVI	M,0
  195	  1905    23                    	INX	H
  196	  1906    3D                    	DCR	A
  197	  1907    C2 1903               	JNZ	VPOZ2		; POKUT NENI NULA TAK ZNOVU
  198	  190A    3E 0A                 	MVI	A,10
  199	  190C    32 429D               	STA	RADKO		; ROZESTUP MEZI RADKY
  200	  190F    C9                    	RET
  201	                                ;
  202	                                ; ABSOLUTNI A RELATIVNI PRESUN
  203	                                ;
  204	  1910    CD 187B               RMOVA:	CALL	ULZXY		; ULOZ X A Y
  205	  1913    CD 1C6C               RELA1:	CALL	PEN0		; ZVEDNI PERO
  206	  1916    2A 42A2               RELA:	LHLD	STPX		; K X PRICTI RELATIVNI DX
  207	  1919    19                    	DAD	D		; = NOVA X
  208	  191A    EB                    	XCHG
  209	  191B    2A 42A4               	LHLD	STPY		; TOTEZ S Y
  210	  191E    09                    	DAD	B
  211	  191F    44                    	MOV	B,H
  212	  1920    4D                    	MOV	C,L		; A MUZES UDELAT ABS. PRESUN
  213	  1921    2A 42A2               ABS0:	LHLD	STPX		; DE = ZADAVE XZ
  214	  1924    EB                    	XCHG			; HL = SKUTECNE X
  215	  1925    22 42A2               	SHLD	STPX		; DE <=> HL ; X <=> XZ
  216	  1928    22 42AC               	SHLD	NOPX		; A ULOZ NA NOVOU POZ. TISKU
  217	  192B    CD 19B6               	CALL	SMR		; ZJISTI SMER POSUVU PRO X
  218	  192E    E5                    	PUSH	H		; SCHOVEJ ROZDIL X A XZ
  219	  192F    C5                    	PUSH	B		; SCHOVEJ YZ
  220	  1930    4F                    	MOV	C,A		; C = SMER POSUVU
  221	  1931    D1                    	POP	D		; DE = PREDESLE BC TJ. ZADANA YZ
  222	  1932    2A 42A4               	LHLD	STPY		; HL = SKUTECNA Y
  223	  1935    EB                    	XCHG			; DE <=> HL ; Y <=> YZ
  224	  1936    22 42A4               	SHLD	STPY
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-4


  225	  1939    22 42AE               	SHLD	NOPY		; ULOZ
  226	  193C    CD 19B6               	CALL	SMR		; A ZJISTI SMER PRO Y
  227	  193F    07                    	RLC
  228	  1940    07                    	RLC
  229	  1941    07                    	RLC
  230	  1942    07                    	RLC			; DO VYSICH 4 BITU A
  231	  1943    47                    	MOV	B,A
  232	  1944    B1                    	ORA	C		; SLOZ S C
  233	  1945    32 42B8               	STA	DIRE		; <= SMER DO Y A DO X
  234	  1948    D1                    	POP	D		; OBNOV ROZDIL X A XZ
  235	  1949    C8                    	RZ			; JSOU JI OBA POVUNY 0 VRAT SE
  236	  194A    7D                    	MOV	A,L
  237	  194B    93                    	SUB	E
  238	  194C    7C                    	MOV	A,H
  239	  194D    9A                    	SBB	D		; TEST, KTERY POSUN JE VETSI
  240	  194E    79                    	MOV	A,C		; A = SMER POSUNU A
  241	  194F    DA 1954               	JC	DALX		; SKOC PROTOZE (YZ-Y)<(XZ-X)
  242	  1952    EB                    	XCHG			; DE <=> HL ; (XZ-X) <=> (YZ-Z)
  243	  1953    78                    	MOV	A,B		; A = SMER DO Y
  244	  1954    32 42B9               DALX:	STA	DIR1
  245	  1957    22 42BA               	SHLD	DIFF
  246	  195A    21 0014               	LXI	H,14H		; MALE POZASTAVENI
  247	  195D    CD 1CC4               	CALL	ZPOZ0
  248	  1960    3E 29                 	MVI	A,29H
  249	  1962    32 42B7               	STA	ACCE		; ROZBEHOVA RYCHLOST
  250	  1965    42                    	MOV	B,D		; BC = ROZDIL
  251	  1966    4B                    	MOV	C,E
  252	  1967    AF                    	XRA	A
  253	  1968    93                    	SUB	E
  254	  1969    6F                    	MOV	L,A
  255	  196A    3E 00                 	MVI	A,0
  256	  196C    9A                    	SBB	D
  257	  196D    67                    	MOV	H,A		; HL = DE * -1
  258	  196E    AF                    	XRA	A
  259	  196F    7A                    	MOV	A,D
  260	  1970    1F                    	RAR
  261	  1971    57                    	MOV	D,A
  262	  1972    7B                    	MOV	A,E
  263	  1973    1F                    	RAR
  264	  1974    5F                    	MOV	E,A		; DE = DE / 2
  265	  1975    E5                    ABS1:	PUSH	H		; SCHOVEJ HL A DE
  266	  1976    D5                    	PUSH	D
  267	  1977    EB                    	XCHG			; DE <=> HL
  268	  1978    60                    	MOV	H,B
  269	  1979    69                    	MOV	L,C		; HL = BC
  270	  197A    29                    	DAD	H
  271	  197B    2B                    	DCX	H		; HL = HL * 2 - 1
  272	  197C    19                    	DAD	D		; HL = HL + DE
  273	  197D    21 42B7               	LXI	H,ACCE
  274	  1980    D2 198B               	JNC	ABS2		; JE-LI HL >= 0 SKOC
  275	  1983    3A 42A1               	LDA	TKON3
  276	  1986    BE                    	CMP	M
  277	  1987    CA 198B               	JZ	ABS2
  278	  198A    35                    	DCR	M
  279	  198B    3E 28                 ABS2:	MVI	A,28H
  280	  198D    96                    	SUB	M
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-5


  281	  198E    91                    	SUB	C
  282	  198F    3E 00                 	MVI	A,0
  283	  1991    98                    	SBB	B
  284	  1992    DA 1996               	JC	ABS3
  285	  1995    34                    	INR	M
  286	  1996    2A 42BA               ABS3:	LHLD	DIFF
  287	  1999    D1                    	POP	D
  288	  199A    19                    	DAD	D
  289	  199B    EB                    	XCHG
  290	  199C    E1                    	POP	H
  291	  199D    E5                    	PUSH	H
  292	  199E    19                    	DAD	D
  293	  199F    3A 42B9               	LDA	DIR1
  294	  19A2    D2 19A9               	JNC	ABS4
  295	  19A5    EB                    	XCHG
  296	  19A6    3A 42B8               	LDA	DIRE
  297	  19A9    D5                    ABS4:	PUSH	D
  298	  19AA    CD 1C49               	CALL	ELEM
  299	  19AD    0B                    	DCX	B
  300	  19AE    78                    	MOV	A,B
  301	  19AF    B1                    	ORA	C
  302	  19B0    D1                    	POP	D
  303	  19B1    E1                    	POP	H
  304	  19B2    C2 1975               	JNZ	ABS1
  305	  19B5    C9                    	RET
  306	                                ;
  307	  19B6    7D                    SMR:	MOV	A,L		; VRATI A = 0 PRO SKUT. = ZADANE
  308	                                				;	A = 8 PRO SKUT. < ZADANE
  309	                                				;	A = A PRO SKUT. > ZADANE
  310	                                ;
  311	                                				; (VRATI A = 0 PRO SKUT. = ZADANE MINIGRAF)
  312	                                				; (	A = 1 PRO SKUT. < ZADANE MINIGRAF)
  313	                                				; (	A = F PRO SKUT. > ZADANE MINIGRAF)
  314	  19B7    93                    	SUB	E
  315	  19B8    6F                    	MOV	L,A		; L = L - E
  316	  19B9    7C                    	MOV	A,H
  317	  19BA    9A                    	SBB	D
  318	  19BB    67                    	MOV	H,A		; H = H - D - PREDCHOZI ZNAM.
  319	  19BC    29                    	DAD	H		; HL = HL * 2
  320	  19BD    D2 19CA               	JNC	SMVL		; -> JE-LI HL KLADNE
  321	  19C0    AF                    	XRA	A		; ZAPORNE - PREVED NA KLADNE
  322	  19C1    95                    	SUB	L
  323	  19C2    6F                    	MOV	L,A
  324	  19C3    3E 00                 	MVI	A,0
  325	  19C5    9C                    	SBB	H
  326	  19C6    67                    	MOV	H,A		; HL = -1 * HL
  327	  19C7    3E 0A                 	MVI	A,0AH		; PRIZNAK A NAVRAT (MINIGRAF 	MVI	A,0FH)
  328	  19C9    C9                    	RET
  329	  19CA    7C                    SMVL:	MOV	A,H
  330	  19CB    B5                    	ORA	L
  331	  19CC    C8                    	RZ			; JE-LI HL = 0 VRAT SE
  332	  19CD    3E 08                 	MVI	A,8		; (MINIGRAF 	MVI	A,01H)
  333	  19CF    C9                    	RET			; JINAK PRIZNAK A NAVRAT
  334	                                ;
  335	                                ; ZANAK PRO TISK JE V <C>
  336	                                ;
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-6


  337	                                ; VZYNAM RIDICICH ZNAKU
  338	                                ;
  339	                                ; 00H - ZAPNE REZIM GRAFICKEHO ZNAKU
  340	                                ; 08H - ZNAK ZPET
  341	                                ; 0AH - NOVY RADEK
  342	                                ; 0CH - NOVA STRANKA
  343	                                ; 0DH - NAVRAT VOZU
  344	                                ; 0EH - ZAPNI DIAKRITIKU
  345	                                ; 0FH - VYPNI DIARITIKU
  346	                                ;
  347	  19D0    3A 429C               ZNAKC:	LDA	TXTNS		; PRIZNAK NOVYCH SOURADNIC PRO TEXT
  348	  19D3    3D                    	DCR	A		; PRIZNAK -1
  349	  19D4    C2 19DF               	JNZ	ZNAKC1		; NEJSOU NOVE SOURADNICE - NENI NULA
  350	  19D7    32 429C               	STA	TXTNS		; NULUJ PRIZNAK
  351	  19DA    C5                    	PUSH	B		; SCHOV ZNAK
  352	  19DB    CD 1AA9               	CALL	HOME		; NASTAV PISATKO NA VYCHOZI SOURADNICE
  353	  19DE    C1                    	POP	B		; OBNOV ZNAK
  354	  19DF    3A 429B               ZNAKC1:	LDA	GZNAK		; 0 <> GRAFICKY ZNAK
  355	  19E2    B7                    	ORA	A
  356	  19E3    C2 1A10               	JNZ	GRAFZ		; TISK GRAFICKEHO ZNAKU
  357	  19E6    B1                    	ORA	C
  358	  19E7    CA 1BCB               	JZ	NGZ		; NASTAV ZE BUDE GRAFICKY ZNAK, ZNAK BYL 00H
  359	  19EA    FE 10                 	CPI	10H
  360	  19EC    D2 1ABB               	JNC	KOI		; POKUT ZNAK VETSI NEZ 10H -> TISK
  361	  19EF    FE 0C                 	CPI	0CH
  362	  19F1    CA 1A5B               	JZ	STRAN		; NOVA STRANKA
  363	  19F4    FE 0D                 	CPI	CR
  364	  19F6    CA 1A20               	JZ	PCR		; NAVRAT VORU
  365	  19F9    FE 0A                 	CPI	LF
  366	  19FB    CA 1A4F               	JZ	PLF		; NOVY RADEK
  367	  19FE    FE 0F                 	CPI	0FH
  368	  1A00    CA 1A0B               	JZ	DIAKS		; NYPNE DIAKRITYKU
  369	  1A03    FE 0E                 	CPI	0EH
  370	  1A05    C2 1AF4               	JNZ	HBS		; TEST NA BS
  371	  1A08    3E 01                 	MVI	A,1
  372	  1A0A    06                    	DB	6		; (MVI)
  373	  1A0B    AF                    DIAKS:	XRA	A
  374	                                ;	MVI	B,0AFH		; PRI PRIMEM PRUCHODU ZAPNE DIAKRITIKU
  375	  1A0C    32 4298               	STA	DIAK		; ULOZ ZDA JDE O NORMANI ZNAK NEBO S DIAKRITIKOU
  376	                                				; 0 = JE ZNAK S DIAKRITIKOU
  377	                                				; 0 <> JE NORMANI ZNAK
  378	  1A0F    C9                    	RET
  379	                                ;
  380	  1A10    79                    GRAFZ:	MOV	A,C
  381	  1A11    F5                    	PUSH	PSW
  382	  1A12    CD 1BD2               	CALL	ZNAK4		; TISK 1 SEGMETU ZNAKU, DATA V <A>
  383	  1A15    F1                    	POP	PSW
  384	  1A16    E6 80                 	ANI	80H
  385	  1A18    C8                    	RZ			; DALSI SEGMENT ZNAKU
  386	  1A19    AF                    	XRA	A
  387	  1A1A    32 429B               	STA	GZNAK		; ZRUS T TIS GAFICKEHO ZNAKU
  388	  1A1D    C3 1BBE               	JMP	ZNAK3		; MEZI ZNAKOVA MEZERA
  389	                                ;
  390	                                ; NAVRAT VOZU (CR)
  391	                                ;
  392	  1A20    3A 429D               PCR:	LDA	RADKO		; NACTI RADKOVANI
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-7


  393	  1A23    47                    	MOV	B,A
  394	  1A24    2A 4294               	LHLD	SIYX		; VELIKOST PISMA SIYX
  395	  1A27    EB                    	XCHG			; A DO <DE>
  396	  1A28    2A 42A6               	LHLD	TXTSX		; NACTI POLOHU TEXTU X
  397	  1A2B    CD 1B30               	CALL	HLMDE		; SPOCITEJ
  398	  1A2E    7C                    	MOV	A,H
  399	  1A2F    B7                    	ORA	A
  400	  1A30    FA 1A5B               	JM	STRAN		; JE-LI ZAPORNA X, NOVA STRANKA
  401	  1A33    22 42A6               	SHLD	TXTSX		; ULOZ NOVOU POLOHU TEXTU X
  402	  1A36    3A 429D               	LDA	RADKO		; NACTI RADKOVANI
  403	  1A39    47                    	MOV	B,A
  404	  1A3A    2A 4296               	LHLD	SIYY		; VELIKOST PISMA SIYX
  405	  1A3D    EB                    	XCHG			; A DO <DE>
  406	  1A3E    2A 42A8               	LHLD	TXTSY		; NACTI POLOHU TEXTU Y
  407	  1A41    CD 1B30               	CALL	HLMDE		; SPOCITEJ
  408	  1A44    7C                    	MOV	A,H
  409	  1A45    B7                    	ORA	A
  410	  1A46    FA 1A5B               	JM	STRAN		; JE-LI ZAPORNA X, NOVA STRANKA
  411	  1A49    22 42A8               	SHLD	TXTSY		; ULOZ NOVOU POLOHU TEXTU Y
  412	  1A4C    C3 1A52               	JMP	PLF1		; A NOVY RADEK
  413	                                ;
  414	                                ; NOVY RADEK (LF)
  415	                                ;
  416	  1A4F    2A 42A8               PLF:	LHLD	TXTSY		; NACTI SOURADNICI TEXTU Y
  417	  1A52    44                    PLF1:	MOV	B,H
  418	  1A53    4D                    	MOV	C,L		; DEJ JI DO <BC>		
  419	  1A54    2A 42A6               	LHLD	TXTSX		; NACTI SOURADNICI TEXTU X
  420	  1A57    EB                    	XCHG			; DEJ JI DO <DE>
  421	  1A58    C3 188E               	JMP	MOVA		; PRESUN
  422	                                ;
  423	                                ; ZALOZEZENI NOVEHO PAPIRU
  424	                                ;
  425	  1A5B    AF                    STRAN:	XRA	A		; MODE PRO DISPLEJ
  426	  1A5C    4F                    	MOV	C,A		; NORMALNI ZNAK
  427	  1A5D    CD 014B               	CALL	EXFLG
  428	  1A60    CD 0115               	CALL	IOCHK		; NACTI IOBYT
  429	  1A63    4F                    	MOV	C,A		; IOBYT DO <C>
  430	  1A64    C5                    	PUSH	B		; USCHOVEJ IOBYT A PUVODNI OBSAH EXFLAG
  431	  1A65    E6 FC                 	ANI	11111100B
  432	  1A67    F6 01                 	ORI	1		; C=C POUZE KLAVESNICE S DISPLEJEM
  433	  1A69    4F                    	MOV	C,A
  434	  1A6A    CD 0118               	CALL	IOSET		; NASTAV
  435	  1A6D    CD 1C6C               	CALL	PEN0		; ZVEDNI PERO
  436	  1A70    CD 0151               	CALL	TX		; ZOBRAZ TEXT
  437	  1A73    0D 0A 07 5A           	DB	CR,LF,BEL,'ZALOZ '
  438	  1A77    41 4C 4F 5A           
  439	  1A7B    20                    
  440	  1A7C    50 41 50 49           	DB	'PAPIR A STISKNI'
  441	  1A80    52 20 41 20           
  442	  1A84    53 54 49 53           
  443	  1A88    4B 4E 49              
  444	  1A8B    20 4B 4C 41           	DB	' KLAVESU',CR,LF+80H
  445	  1A8F    56 45 53 55           
  446	  1A93    0D 8A                 
  447	  1A95    CD 013F               	CALL	CINCR		; CEKEJ NA STISK KLAVESI
  448	  1A98    C1                    	POP	B		; OBNOV IOBYT A PUVODNI OBSAH EXFLAG
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-8


  449	  1A99    F5                    	PUSH	PSW		; SCHOV STISKLU KLAVESU
  450	  1A9A    CD 0118               	CALL	IOSET		; OBNOV PUVODNI IOBYT
  451	  1A9D    78                    	MOV	A,B
  452	  1A9E    0E 00                 	MVI	C,0		; MODE PRO DISPLEJ
  453	  1AA0    CD 014B               	CALL	EXFLG		; OBNOV PUVODNI TYP ZNAKU
  454	  1AA3    F1                    	POP	PSW		; OBNOV STISKLU KLAVESU
  455	  1AA4    FE 03                 	CPI	CTRLC
  456	  1AA6    CA 0139               	JZ	NEXT		; POKUT ^C NAVTAT DO MONITORU
  457	  1AA9    01 099C               HOME:	LXI	B,99CH		; (2460 24.6CM?) POCATECNI HODNOTA OSY Y
  458	  1AAC    60                    	MOV	H,B
  459	  1AAD    69                    	MOV	L,C
  460	  1AAE    22 42A8               	SHLD	TXTSY		; ULOZ Y
  461	  1AB1    21 0000               	LXI	H,0		; POCATECNI HODNOTA OSY X
  462	  1AB4    22 42A6               	SHLD	TXTSX		; ULOZ NOVE X
  463	  1AB7    EB                    	XCHG			; A X DO <DE>
  464	  1AB8    C3 18B2               	JMP	VPOZ1		; NASTAV VYHOZI POZICI PO ZALOZENI PAPIRU
  465	                                ;
  466	                                ; HLEDANI ZNAKU S DIAKRITIKOU (KOI-8CS) ZNAK JE V <C>
  467	                                ;
  468	  1ABB    3E F8                 KOI:	MVI	A,11111000B	; JEN HORNICH 5 BITU
  469	  1ABD    A1                    	ANA	C
  470	  1ABE    FE 18                 	CPI	18H
  471	  1AC0    C8                    	RZ			; POKUT ZNAKY 18H AZ 1FH NAVRAT
  472	  1AC1    79                    	MOV	A,C		; ZNAK DO <A>
  473	  1AC2    FE 80                 	CPI	80H
  474	  1AC4    DA 1AF4               	JC	HBS		; JE MENSI NEZ 7FH -> KOI-7, TISK
  475	  1AC7    D6 80                 	SUI	80H		; <A> - 80H
  476	  1AC9    FE 40                 	CPI	40H
  477	  1ACB    DA 1B04               	JC	DIKZ		; JE MENSI NEZ 3FH -> 80H-BFH, TISK DIAKRITYKY MAL. PIS.
  478	  1ACE    D6 40                 	SUI	40H		; <A> - 40H -> C0H-FFH
  479	  1AD0    21 1D20               	LXI	H,TKOI2		; ADESA KONVERZNI TABULKY VEL. PIS
  480	  1AD3    85                    	ADD	L
  481	  1AD4    6F                    	MOV	L,A
  482	  1AD5    7C                    	MOV	A,H
  483	  1AD6    CE 00                 	ACI	0
  484	  1AD8    67                    	MOV	H,A		; SPOCITEJ ADRESU V TABULCE
  485	  1AD9    CD 1A0B               	CALL	DIAKS		; ULOZI PRIZNAK DIAKRITIKY (0)
  486	  1ADC    7E                    	MOV	A,M		; DATA Z TABULKY
  487	  1ADD    B7                    	ORA	A
  488	  1ADE    CA 1AFF               	JZ	NEDIK		; NENI ZNAK S DIAKRITIKOU
  489	  1AE1    F5                    	PUSH	PSW		; SCHOV ZNAK Z TABULKY
  490	  1AE2    07                    	RLC
  491	  1AE3    07                    	RLC
  492	  1AE4    07                    	RLC			; O 3 BITI V LEVO
  493	  1AE5    E6 07                 	ANI	00000111B	; JEN SPODNI 3 BITY
  494	  1AE7    F6 18                 	ORI	00011000B	; PRIDEJ BIT 3 A 4 TJ. 18H AZ 1FH 
  495	  1AE9    CD 1AF4               	CALL	HBS
  496	  1AEC    F1                    	POP	PSW		; OBNOV ZNAK Z TABULKY
  497	  1AED    E6 3F                 	ANI	00111111B	; 
  498	  1AEF    CA 1AFF               	JZ	NEDIK		; POKUT 3F TAK MEZERA
  499	  1AF2    F6 40                 	ORI	01000000B	; JINAK PRIDEJ BIT 6
  500	  1AF4    E5                    HBS:	PUSH	H		; SCHOV <HL>
  501	  1AF5    FE 08                 	CPI	8
  502	  1AF7    C2 1B59               	JNZ	ZNAK10		; POKUT NENI 8 JDEM TISKNOUT ZNAK Z <A>
  503	  1AFA    32 4299               	STA	ZBS		; ULOZ BS
  504	  1AFD    E1                    	POP	H		; OBNOV <HL>
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-9


  505	  1AFE    C9                    	RET
  506	                                ;
  507	  1AFF    3E 20                 NEDIK:	MVI	A,20H		; NENI ZNAK S DIAKRITIKOU? TAK MEZERA
  508	  1B01    C3 1AF4               	JMP	HBS
  509	                                ;
  510	                                ; TISKNE DIAKRITICKA ZNAMENKA
  511	                                ;
  512	  1B04    CD 1B40               DIKZ:	CALL	TSTBS		; TEST NA BS
  513	  1B07    79                    	MOV	A,C		; ZNAK DO <A>
  514	  1B08    06 05                 	MVI	B,5		; POCITALO NASTAV NA 5
  515	  1B0A    1F                    DIKZ1:	RAR			; O BIT V PRAVO PRES CY
  516	  1B0B    D2 1B29               	JNC	DIKZ3		; NENI-LI 1 TAK DALSI POKUS
  517	  1B0E    C5                    	PUSH	B
  518	  1B0F    F5                    	PUSH	PSW
  519	  1B10    21 1D08               	LXI	H,DIKZT		; ADRESA DIAKRITICKYCH ZNAKU
  520	  1B13    78                    	MOV	A,B		; POCITALO DO <A>
  521	  1B14    87                    	ADD	A		; * 2
  522	  1B15    87                    	ADD	A		; * 4		.
  523	  1B16    85                    	ADD	L
  524	  1B17    6F                    	MOV	L,A
  525	  1B18    7C                    	MOV	A,H
  526	  1B19    CE 00                 	ACI	0
  527	  1B1B    67                    	MOV	H,A		; PRICTI K ADRESE GENERATORO DIAK ZNAMENEK
  528	  1B1C    16 04                 	MVI	D,4		; BUDOU DVE USECKY TJ. 4 KROKY
  529	  1B1E    7E                    DIKZ2:	MOV	A,M		; NACTI DATA
  530	  1B1F    CD 1BD2               	CALL	ZNAK4		; TISK 1 SEGMETU ZNAKU, DATA V <A>
  531	  1B22    23                    	INX	H
  532	  1B23    15                    	DCR	D
  533	  1B24    C2 1B1E               	JNZ	DIKZ2		; POKUT NENI 0 TAK DALSI
  534	  1B27    F1                    	POP	PSW
  535	  1B28    C1                    	POP	B
  536	  1B29    05                    DIKZ3:	DCR	B
  537	  1B2A    F2 1B0A               	JP	DIKZ1		; POKUT JE PARITA TAK DASLI KOLO
  538	  1B2D    C3 1BBE               	JMP	ZNAK3		; MEZI ZNAKOVA MEZERA
  539	                                ;
  540	                                ;ODECTE  KRAT <DE> OD <HL>
  541	                                ;
  542	  1B30    AF                    HLMDE:	XRA	A		; DO <A> 0
  543	  1B31    B0                    	ORA	B
  544	  1B32    C8                    	RZ			; JE-JI B 0 NAVRAT
  545	  1B33    AF                    	XRA	A
  546	  1B34    93                    	SUB	E
  547	  1B35    5F                    	MOV	E,A
  548	  1B36    3E 00                 	MVI	A,0
  549	  1B38    9A                    	SBB	D
  550	  1B39    57                    	MOV	D,A		; <DE>=1-<DE> ... DVOJKOVY DOPLNEK ?
  551	  1B3A    19                    HLMDE1:	DAD	D		; <HL>=<HL>-<DE>
  552	  1B3B    05                    	DCR	B
  553	  1B3C    C8                    	RZ			; JE-LI  O NAVRAT
  554	  1B3D    C3 1B3A               	JMP	HLMDE1
  555	                                ;
  556	  1B40    E5                    TSTBS:	PUSH	H
  557	  1B41    21 4299               	LXI	H,ZBS		; DO <HL> ADRESU PRIZNAKU BS
  558	  1B44    AF                    	XRA	A		; ZNULUJ <A>
  559	  1B45    BE                    	CMP	M		; POROVNEJ
  560	  1B46    77                    	MOV	M,A		; ZNULUJ PRIZNAK BS
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-10


  561	  1B47    CC 1B4C               	CZ	NPOZ		; POKUT NEBYL BS NOVA POZICE
  562	  1B4A    E1                    	POP	H
  563	  1B4B    C9                    	RET
  564	                                ;
  565	                                ;NASTAVY NOVOU POZICI
  566	                                ;
  567	  1B4C    2A 42AC               NPOZ:	LHLD	NOPX
  568	  1B4F    22 42B2               	SHLD	PREX
  569	  1B52    2A 42AE               	LHLD	NOPY
  570	  1B55    22 42B4               	SHLD	PREY
  571	  1B58    C9                    	RET
  572	                                ;
  573	                                ; TISK ZNAKU, ZNAK JE V <A>
  574	                                ;
  575	  1B59    F5                    ZNAK10:	PUSH	PSW
  576	  1B5A    21 429A               	LXI	H,DIAK2		; PRIZNAK DIAKRYTIKY 2
  577	  1B5D    AF                    	XRA	A
  578	  1B5E    BE                    	CMP	M
  579	  1B5F    CA 1B6B               	JZ	ZNAK11		; POKU JE NULA SKOK NA TISK
  580	  1B62    77                    	MOV	M,A		; A ULOZ NULU
  581	  1B63    3E 22                 	MVI	A,22H		; DO PROSTRED ZNAKU
  582	  1B65    CD 1BD2               	CALL	ZNAK4		; TISK 1 SEGMETU ZNAKU, DATA V <A>
  583	  1B68    CD 1B4C               	CALL	NPOZ		; NOVA POZICE O PUL ZNAKU
  584	  1B6B    F1                    ZNAK11:	POP	PSW
  585	  1B6C    21 4299               	LXI	H,ZBS		; ADRESU PRIZNAKU BS
  586	  1B6F    E6 7F                 	ANI	7FH		; JEN KOI-7
  587	  1B71    4F                    	MOV	C,A		; ZNAK DO <C>
  588	  1B72    CD 1B40               	CALL	TSTBS		; TEST NA BS
  589	  1B75    3A 4298               	LDA	DIAK		; NECTI PRIZNAK DIAKRITZKY
  590	  1B78    B7                    	ORA	A
  591	  1B79    CA 1B86               	JZ	ZNAK12		; NENI TAK TISK
  592	  1B7C    79                    	MOV	A,C
  593	  1B7D    FE 7B                 	CPI	7BH
  594	  1B7F    DA 1B86               	JC	ZNAK12		; JE MENSI NEZ 7BH TJ. {, TAK TISK
  595	  1B82    C6 05                 	ADI	5		; PRICTI 5
  596	  1B84    4F                    	MOV	C,A		; NOVY ZNAK DO <C>
  597	  1B85    34                    	INR	M		; ULOZ HO NA NIC
  598	  1B86    79                    ZNAK12:	MOV	A,C		; ZNAK DO <A>
  599	  1B87    D6 10                 	SUI	10H		; JE JI MENSI NEZ 10H
  600	  1B89    DA 1BBD               	JC	ZNAK2		; SKOC
  601	  1B8C    E6 F8                 	ANI	0F8H		; NE, NULUJ NEJNISI 3 BZTY
  602	  1B8E    1F                    	RAR
  603	  1B8F    1F                    	RAR			; ROTACE PRES CY O DVA BITY VPRAVO
  604	  1B90    2A 42AA               	LHLD	ATABGZ		; ARESA TABULKY ZNAKU
  605	  1B93    85                    	ADD	L		; A PRICTI K NIZSI ADRESE TABGZ ZNAKU
  606	  1B94    6F                    	MOV	L,A		; A DO 
  607	  1B95    3E 00                 	MVI	A,0		; <A>=0
  608	  1B97    8C                    	ADC	H		; A PRICTI CY K VYSSI ADRESE TABGZ ZNAKU
  609	  1B98    67                    	MOV	H,A		; A DO 
  610	  1B99    7E                    	MOV	A,M
  611	  1B9A    23                    	INX	H
  612	  1B9B    66                    	MOV	H,M
  613	  1B9C    6F                    	MOV	L,A		; DO <HL> ADRESU GENERATOTU ZNAKU
  614	  1B9D    79                    	MOV	A,C		; OBVOV ZNAK
  615	  1B9E    E6 07                 	ANI	7		; POUZE 3 NEJNIZSI BITY
  616	  1BA0    4F                    	MOV	C,A
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-11


  617	  1BA1    CA 1BAE               	JZ	VYZN		; JSOU-LI 0 SKOC
  618	  1BA4    7E                    SKZN:	MOV	A,M		; NEJSOU
  619	  1BA5    B7                    	ORA	A
  620	  1BA6    23                    	INX	H
  621	  1BA7    F2 1BA4               	JP	SKZN		; TESTUJ NEJVYSI BIT
  622	  1BAA    0D                    	DCR	C
  623	  1BAB    C2 1BA4               	JNZ	SKZN		; POKUT NENI 0 TAK DALSI ZNAK
  624	                                				; TISKOVA DATA VYBRANA
  625	  1BAE    3E 08                 VYZN:	MVI	A,8		; ??? NASTAV VYCHOZI POLOHU PRO TISK ???
  626	  1BB0    CD 1BD2               	CALL	ZNAK4		; TISK 1 SEGMETU ZNAKU, DATA V <A>
  627	  1BB3    7E                    ZNAK1:	MOV	A,M		; CTI TISKONA DATA
  628	  1BB4    CD 1BD2               	CALL	ZNAK4		; TISK 1 SEGMETU ZNAKU, DATA V <A>
  629	  1BB7    7E                    	MOV	A,M		; ZNONU NACTI TISKONA DATA
  630	  1BB8    23                    	INX	H		; UKAZOVATKO +1
  631	  1BB9    B7                    	ORA	A
  632	  1BBA    F2 1BB3               	JP	ZNAK1		; POKUNT NENI PARITA TAK DALSI SEGMENT ZNAKU
  633	  1BBD    E1                    ZNAK2:	POP	H
  634	  1BBE    E5                    ZNAK3:	PUSH	H
  635	  1BBF    3A 429E               	LDA	WIDE		; TISKOVA MEZERA
  636	  1BC2    E6 3F                 	ANI	3FH
  637	  1BC4    0E 00                 	MVI	C,0
  638	  1BC6    CD 1BD5               	CALL	ZNAK5
  639	  1BC9    E1                    	POP	H
  640	  1BCA    C9                    	RET
  641	                                ;
  642	  1BCB    3C                    NGZ:	INR	A
  643	  1BCC    32 429B               	STA	GZNAK		; NASTAV PRIZNAK PRO GRAFICKY ZNAK <1>
  644	  1BCF    CD 1B40               	CALL	TSTBS		; TEST NA BS
  645	                                ;
  646	                                ; KRESLI VLASTNI USECKU ZNAKU
  647	                                ; KPYYYXXX
  648	                                ; !! !  +- 0 AZ 4 (7)
  649	                                ; !! +---- 0 AZ 7
  650	                                ; !+------ 0 - PRESUN, 1 - TISK
  651	                                ; +------- 1 - POSLEDNI ZNAK
  652	                                ;
  653	  1BD2    4F                    ZNAK4:	MOV	C,A
  654	  1BD3    E6 07                 	ANI	7		; OSA X
  655	  1BD5    E5                    ZNAK5:	PUSH	H
  656	  1BD6    D5                    	PUSH	D
  657	  1BD7    F5                    	PUSH	PSW
  658	  1BD8    2A 4290               	LHLD	SIXX
  659	  1BDB    EB                    	XCHG
  660	  1BDC    2A 42B2               	LHLD	PREX
  661	  1BDF    CD 1C37               	CALL	ZNAK8
  662	  1BE2    EB                    	XCHG
  663	  1BE3    79                    	MOV	A,C		
  664	  1BE4    E6 38                 	ANI	38H		; OSA Y
  665	  1BE6    1F                    	RAR
  666	  1BE7    1F                    	RAR
  667	  1BE8    1F                    	RAR
  668	  1BE9    21 4299               	LXI	H,ZBS
  669	  1BEC    86                    	ADD	M
  670	  1BED    47                    	MOV	B,A
  671	  1BEE    2A 4294               	LHLD	SIYX
  672	  1BF1    EB                    	XCHG
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-12


  673	  1BF2    CD 1C37               	CALL	ZNAK8
  674	  1BF5    F1                    	POP	PSW
  675	  1BF6    E5                    	PUSH	H
  676	  1BF7    2A 4292               	LHLD	SIXY
  677	  1BFA    EB                    	XCHG
  678	  1BFB    2A 42B4               	LHLD	PREY
  679	  1BFE    CD 1C37               	CALL	ZNAK8
  680	  1C01    78                    	MOV	A,B
  681	  1C02    EB                    	XCHG
  682	  1C03    2A 4296               	LHLD	SIYY
  683	  1C06    EB                    	XCHG
  684	  1C07    CD 1C37               	CALL	ZNAK8
  685	  1C0A    E5                    	PUSH	H
  686	  1C0B    79                    	MOV	A,C
  687	  1C0C    E6 40                 	ANI	40H		; PERO
  688	  1C0E    CA 1C29               	JZ	ZNAK6
  689	  1C11    2A 42AC               	LHLD	NOPX
  690	  1C14    EB                    	XCHG
  691	  1C15    2A 42AE               	LHLD	NOPY
  692	  1C18    44                    	MOV	B,H
  693	  1C19    4D                    	MOV	C,L
  694	  1C1A    3A 42B0               	LDA	SPEN
  695	  1C1D    B7                    	ORA	A
  696	  1C1E    CC 188E               	CZ	MOVA
  697	  1C21    C1                    	POP	B
  698	  1C22    D1                    	POP	D
  699	  1C23    CD 1897               	CALL	VECTA
  700	  1C26    C3 1C34               	JMP	ZNAK7
  701	  1C29    CD 1C6C               ZNAK6:	CALL	PEN0
  702	  1C2C    E1                    	POP	H
  703	  1C2D    22 42AE               	SHLD	NOPY		; POLOHA PRISTIHO TISKU Y
  704	  1C30    E1                    	POP	H
  705	  1C31    22 42AC               	SHLD	NOPX		; POLOHA PRISTIHO TISKU X
  706	  1C34    D1                    ZNAK7:	POP	D
  707	  1C35    E1                    	POP	H
  708	  1C36    C9                    	RET
  709	                                ;
  710	  1C37    1C                    ZNAK8:	INR	E		; POCITA VELIKOST ZNAKU
  711	  1C38    1D                    	DCR	E
  712	  1C39    C8                    	RZ
  713	  1C3A    E5                    	PUSH	H
  714	  1C3B    21 0000               	LXI	H,0
  715	  1C3E    3D                    ZNAK9:	DCR	A
  716	  1C3F    FA 1C46               	JM	ZNAK0
  717	  1C42    19                    	DAD	D
  718	  1C43    C3 1C3E               	JMP	ZNAK9
  719	  1C46    D1                    ZNAK0:	POP	D
  720	  1C47    19                    	DAD	D
  721	  1C48    C9                    	RET
  722	                                
  723	                                ;-----------------------------------------------------
  724	                                ;	PROVED KROK S MOTORY
  725	                                ;-----------------------------------------------------
  726	                                ; SMR VRATI A = 0 PRO SKUT. = ZADANE 0000
  727	                                ;	    A = 8 PRO SKUT. < ZADANE 0100
  728	                                ;	    A = A PRO SKUT. > ZADANE 1010
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-13


  729	                                ;
  730	                                ;     76543210
  731	                                ; <A> YYYYXXXX
  732	                                ;
  733	                                ;PRIPOJENI XY41XX K PORTU 3OUT NA JPR-1
  734	                                ;
  735	                                ; PORT2 OUT0 - PERO
  736	                                ; PORT2 OUT1 - X/Y
  737	                                ; PORT2 OUT6 - +/-
  738	                                ; PORT2 OUT7 - KROK
  739	                                ;
  740	  1C49    2A 42B1               ELEM:	LHLD	SMOT		; NACTI STAV MOTORU JE V 
  741	  1C4C    67                    	MOV	H,A		; CO DELAT V DO 
  742	  1C4D    3A 42B1               	LDA	SMOT		; NACTI STAV MOTORU <A>
  743	  1C50    E6 44                 	ANI	01000100B	; JEN BIT 6 A 2
  744	  1C52    B4                    	ORA	H		; SLOZ PRES OR
  745	  1C53    32 42B1               	STA	SMOT		; ULOZ STAV MOTORU
  746	  1C56    AF                    	XRA	A		; VYVUJ <A>
  747	  1C57    67                    	MOV	H,A		; A TAKY 
  748	  1C58    3A 42B7               	LDA	ACCE		; RICHLOST PRI ROZBEHU
  749	  1C5B    1F                    	RAR			; V PRAVO PRES CY TJ. /2
  750	  1C5C    6F                    	MOV	L,A		; A DO 
  751	  1C5D    C3 1C93               	JMP	ROSAY		; JDEM CUKAT S MOTORY
  752	                                ;
  753	  1C60    CD 187B               RPOIN:	CALL	ULZXY		; ULOZ X A Y
  754	  1C63    CD 1C6C               	CALL	PEN0		; DVEDNI PERO
  755	  1C66    CD 1916               	CALL	RELA		; RELATIVNI PRESUN
  756	  1C69    CD 1C77               PENP:	CALL	PEN1		; SPUST PERO
  757	                                ;PERO NAHORU
  758	  1C6C    3A 42B0               PEN0:	LDA	SPEN		; NACTI STAV PERA
  759	  1C6F    3D                    	DCR	A		; STAV PERA -1
  760	  1C70    C0                    	RNZ			; PERO ZVEDNUTO - NAVRAT
  761	  1C71    2A 429F               	LHLD	TKON1		; NACTI CASOVACI KONSTANY 1 A 2 DO <HL>
  762	  1C74    C3 1C7F               	JMP	PENZ		; ZVEDNI PERO V <A> 00H
  763	                                ;PERO DOLU
  764	  1C77    3A 42B0               PEN1:	LDA	SPEN		; NACTI STAV PERA
  765	  1C7A    3D                    	DCR	A		; STAV PERA -1
  766	  1C7B    C8                    	RZ			; PERO DOLE - NAVRAT
  767	                                				; V <A> FFH
  768	  1C7C    2A 42A0               	LHLD	TKON2		; NACTI CASOVACI KONSTANY 2 A 3 DO <HL>
  769	  1C7F    E6 01                 PENZ:	ANI	1		; JEN NEN BIT 0
  770	  1C81    32 42B0               	STA	SPEN		; ULOZ STAV PERA
  771	  1C84    7D                    	MOV	A,L
  772	  1C85    32 42B6               	STA	SPED		; NASTAV AKTUALNI RICHLOST (K3)
  773	  1C88    21 01F4               	LXI	H,01F4H		; PAUZA PRO PERO
  774	  1C8B    F6 80                 	ORI	80H		; KROK NA 1 TJ. BIT 7 
  775	  1C8D    32 2C00               	STA	PORT2		; VYSTAV STAV PERA NA PORT
  776	  1C90    C3 1CC4               	JMP	ZPOZ0		; A PAUZA
  777	                                ;
  778	                                ;RESIME OSU Y
  779	  1C93    E5                    ROSAY:	PUSH	H		; ULOZ "RYCHLOSTI"
  780	  1C94    2A 42B0               	LHLD	SPEN		; NACTI STAV PERA A MOTORU DO <HL>
  781	  1C97    7C                    	MOV	A,H		; STAV MOTORU DO <A>
  782	  1C98    07                    	RLC			; O BIT V LEVO [65432107]
  783	  1C99    D2 1CAA               	JNC	ROSAX		; POKUT BIT 7 [0] TAK BUDEM RESIT OSU X
  784	  1C9C    EE 80                 	XRI	80H		; EX-OR S <A> 10000000
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-14


  785	  1C9E    F2 1CAA               	JP	ROSAX		; POKUT BIT 6 [1] TAK BUDEM RESIT OSU X
  786	  1CA1    67                    	MOV	H,A		; SCHOV DATA
  787	  1CA2    E6 40                 	ANI	40H		; JEN HORNI 4 BITY
  788	  1CA4    F6 02                 	ORI	2		; NASTAV OSU Y NA XY JE TO X
  789	  1CA6    CD 1CD2               	CALL	KROK		; UDELEJ KROK
  790	  1CA9    7C                    	MOV	A,H		; OBNOV DATA
  791	                                ;RESIME OSU X
  792	  1CAA    07                    ROSAX:	RLC
  793	  1CAB    07                    	RLC
  794	  1CAC    07                    	RLC
  795	  1CAD    07                    	RLC			; PRETOCIT NA DATA PRO OSU X [21076543]
  796	  1CAE    D2 1CBD               	JNC	WAITM		; POKUT BIT 3 [0] TAK BUDEME RESIT PAUZU
  797	  1CB1    EE C0                 	XRI	0C0H		; EX-OR S <A> 11000000
  798	  1CB3    F2 1CBD               	JP	WAITM		; POKUT BIT 2 [1] TAK BUDEME RESIT PAUZU
  799	  1CB6    67                    	MOV	H,A		; SCHOV DATA
  800	  1CB7    E6 40                 	ANI	40H		; JEN HORNI 4 BITY
  801	  1CB9    CD 1CD2               	CALL	KROK		; UDELEJ KROK
  802	  1CBC    7C                    	MOV	A,H		; OBNOV DATA
  803	  1CBD    07                    WAITM:	RLC
  804	  1CBE    07                    	RLC
  805	  1CBF    07                    	RLC			; DATA PRO RIZENI MOTORU DO VYCHOZI POLOHY [76543210]
  806	  1CC0    32 42B1               	STA	SMOT		; A ULOZ
  807	  1CC3    E1                    	POP	H		; OBNOV "RYCHLOSTI"
  808	                                ;
  809	                                ;SPOZDOVACI SMICKA
  810	                                ;
  811	  1CC4    3A 42B6               ZPOZ0:	LDA	SPED		; AKTUALNI RYCHLOST
  812	  1CC7    3D                    ZPOZ1:	DCR	A
  813	  1CC8    C2 1CC7               	JNZ	ZPOZ1
  814	  1CCB    2B                    	DCX	H
  815	  1CCC    7C                    	MOV	A,H
  816	  1CCD    B5                    	ORA	L
  817	  1CCE    C2 1CC4               	JNZ	ZPOZ0
  818	  1CD1    C9                    	RET
  819	                                ;
  820	  1CD2    B5                    KROK:	ORA	L		; PRIPOJ STAV PERA
  821	  1CD3    32 2C00               	STA	PORT2
  822	  1CD6    F6 80                 	ORI	80H
  823	  1CD8    32 2C00               	STA	PORT2		; UDELJ KROK
  824	  1CDB    C9                    	RET
  825	                                ;
  826	                                ; TEST TISKKARNY
  827	                                ; VYTISKNE ZNAKZ OD 10H PO FFH
  828	                                ;
  829	  1CDC    0E 0C                 TESTT:	MVI	C,0CH
  830	  1CDE    CD 19DF               	CALL	ZNAKC1		; NOVOU STRANKU
  831	  1CE1    0E 10                 	MVI	C,10H		; OD ZNAKU 10H
  832	  1CE3    C5                    TESTT1:	PUSH	B		; SCHOV ZNAK
  833	  1CE4    CD 19DF               	CALL	ZNAKC1		; TISKNI ZNAK
  834	  1CE7    3A 4299               	LDA	ZBS		; NACTI BS NEBO NECO JINEHO
  835	  1CEA    B7                    	ORA	A
  836	  1CEB    0E 20                 	MVI	C,20H		; MEZERA
  837	  1CED    C4 19DF               	CNZ	ZNAKC1		; POKUT JE BS TAK TISK
  838	  1CF0    0E 20                 	MVI	C,20H		; MEZERA
  839	  1CF2    CD 19DF               	CALL	ZNAKC1		; VYTISKNIJI
  840	  1CF5    C1                    	POP	B		; VRAT ZNAK
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-15


  841	  1CF6    0C                    	INR	C		; DALSI ZNAK
  842	  1CF7    C8                    	RZ			; POKUT JE VSECH 255 ZNAKU -> NAVRAT
  843	  1CF8    3E 0F                 	MVI	A,0FH
  844	  1CFA    A1                    	ANA	C		; JEN SPODNI 4 BITY
  845	  1CFB    C2 1CE3               	JNZ	TESTT1		; POKUT NENI NULA -> DALSI ZNAK
  846	  1CFE    C5                    	PUSH	B
  847	  1CFF    0E 0D                 	MVI	C,0DH
  848	  1D01    CD 19DF               	CALL	ZNAKC1		; JINAK NOVY RADEK
  849	  1D04    C1                    	POP	B
  850	  1D05    C3 1CE3               	JMP	TESTT1
  851	                                	;
  852	                                	;DIAKRITICKE ZNAMENKA PRO KOI-8CS
  853	                                	;
  854	  1D08    38 6A 28 7A           DIKZT:	DB	38H,6AH,28H,7AH,3AH,6CH,2AH,7CH
  855	  1D0C    3A 6C 2A 7C           
  856	  1D10    28 5A 18 6A           	DB	28H,5AH,18H,6AH,2AH,5CH,1AH,6CH
  857	  1D14    2A 5C 1A 6C           
  858	  1D18    18 4A 08 5A           	DB	18H,4AH,08H,5AH,1AH,4CH,0AH,5CH
  859	  1D1C    1A 4C 0A 5C           
  860	                                	;
  861	                                	;TABULKA PRO DIAKRITICKE ZNAKZ KOI-8CS
  862	                                	;
  863	  1D20    00 21 00 63           TKOI2:	DB	00H,21H,00H,63H,64H,65H,00H,00H
  864	  1D24    64 65 00 00           
  865	  1D28    00 29 F5 00           	DB	00H,29H,0F5H,00H,00H,00H,35H,2FH
  866	  1D2C    00 00 35 2F           
  867	  1D30    00 00 72 73           	DB	00H,00H,72H,73H,74H,35H,00H,25H
  868	  1D34    74 35 00 25           
  869	  1D38    00 39 7A 00           	DB	00H,39H,7AH,00H,40H,00H,00H,00H
  870	  1D3C    40 00 00 00           
  871	  1D40    00 01 00 43           	DB	00H,01H,00H,43H,44H,45H,00H,00H
  872	  1D44    44 45 00 00           
  873	  1D48    00 09 D5 00           	DB	00H,09H,0D5H,00H,00H,00H,15H,0FH
  874	  1D4C    00 00 15 0F           
  875	  1D50    00 00 52 53           	DB	00H,00H,52H,53H,54H,15H,00H,05H
  876	  1D54    54 15 00 05           
  877	  1D58    00 19 5A 00           	DB	00H,19H,5AH,00H,40H,00H,00H,00H
  878	  1D5C    40 00 00 00           
  879	                                	;
  880	                                	;GENERATOR ZNAKU
  881	                                	;***************
  882	                                	;
  883	  1D60    1D7E 1DA9             TABGZ:	DW	TAB10,TAB20,TAB20,TAB28,TAB30
  884	  1D64    1DA9 1DDC             
  885	  1D68    1DF5                  
  886	  1D6A    1E2F 1E67             	DW	TAB38,TAB40,TAB48,TAB50,TAB58
  887	  1D6E    1EA4 1ECB             
  888	  1D72    1F01                  
  889	  1D74    1F1C 1F55             	DW	TAB60,TAB68,TAB70,TAB78,TAB80
  890	  1D78    1F89 1FB8             
  891	  1D7C    1FDC                  
  892	                                	;
  893	  1D7E    18 68 71 73           TAB10:	DB	18H,68H,71H,73H,6CH,5CH,53H,51H,0D8H	;10H, VELKE KOLECKO
  894	  1D82    6C 5C 53 51           
  895	  1D86    D8                    
  896	  1D87    10 70 74 54           	DB	10H,70H,74H,54H,0D0H			;11H, CTVEREC
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-16


  897	  1D8B    D0                    
  898	  1D8C    20 72 64 52           	DB	20H,72H,64H,52H,0E0H			;12H, KOSOCTVEREC
  899	  1D90    E0                    
  900	  1D91    14 72 50 D4           	DB	14H,72H,50H,0D4H			;13H, SIPKA DOLU (TROUHELNIK)
  901	  1D95    12 70 74 D2           	DB	12H,70H,74H,0D2H			;14H, SIPKA DOLU (TROUHELNIK)
  902	  1D99    12 72 20 E4           	DB	12H,72H,20H,0E4H			;15H, VELKE PLUS
  903	  1D9D    10 74 30 D4           	DB	10H,74H,30H,0D4H			;16H, VELKY KRIZEK
  904	  1DA1    12 72 20 64           	DB	12H,72H,20H,64H,14H,70H,10H,0F4H	;17H, VELKA HVEZDICKA
  905	  1DA5    14 70 10 F4           
  906	  1DA9    80 3A 5A 0A           TAB20:  DB	80H,3AH,5AH,0AH,0CAH,31H,7AH
  907	  1DAD    CA 31 7A              
  908	  1DB0    32 FB 39 49           	DB	32H,0FBH,39H,49H,0BH,7BH,2CH,68H,18H,0DCH
  909	  1DB4    0B 7B 2C 68           
  910	  1DB8    18 DC                 
  911	  1DBA    10 53 5C 63           	DB	10H,53H,5CH,63H,61H,68H,71H
  912	  1DBE    61 68 71              
  913	  1DC1    74 3A CA 7C           	DB	74H,3AH,0CAH,7CH,39H,70H,69H
  914	  1DC5    39 70 69              
  915	  1DC8    72 79 1B 52           	DB	72H,79H,1BH,52H,4BH,54H,0DBH
  916	  1DCC    4B 54 DB              
  917	  1DCF    0C 68 70 79           	DB	0CH,68H,70H,79H,7AH,73H,6BH
  918	  1DD3    7A 73 6B              
  919	  1DD6    50 49 4A DC           	DB	50H,49H,4AH,0DCH,3BH,0F2H
  920	  1DDA    3B F2                 
  921	  1DDC    3B 69 59 CB           TAB28:  DB	3BH,69H,59H,0CBH,39H,6BH,5BH
  922	  1DE0    39 6B 5B              
  923	  1DE3    C9 11 73 24           	DB	0C9H,11H,73H,24H,60H,31H,0D3H
  924	  1DE7    60 31 D3              
  925	  1DEA    20 64 32 D2           	DB	20H,64H,32H,0D2H,12H,0C1H,20H
  926	  1DEE    12 C1 20              
  927	  1DF1    E4 0A CA FC           	DB	0E4H,0AH,0CAH,0FCH
  928	  1DF5    7C 34 54 4B           TAB30:  DB	7CH,34H,54H,4BH,49H,50H,70H
  929	  1DF9    49 50 70              
  930	  1DFC    79 7B F4 29           	DB	79H,7BH,0F4H,29H,7BH,0CBH,30H
  931	  1E00    7B CB 30              
  932	  1E03    79 7B 74 6C           	DB	79H,7BH,74H,6CH,48H,0CCH,30H
  933	  1E07    48 CC 30              
  934	  1E0A    79 7B 74 6C           	DB	79H,7BH,74H,6CH,63H,5CH,54H
  935	  1E0E    63 5C 54              
  936	  1E11    4B 49 D0 0B           	DB	4BH,49H,0D0H,0BH,7BH,58H,0DCH
  937	  1E15    7B 58 DC              
  938	  1E18    10 49 4B 54           	DB	10H,49H,4BH,54H,5CH,63H,60H
  939	  1E1C    5C 63 60              
  940	  1E1F    78 FC 34 7B           	DB	78H,0FCH,34H,7BH,79H,70H,50H
  941	  1E23    79 70 50              
  942	  1E26    49 4B 54 5C           	DB	49H,4BH,54H,5CH,63H,61H,0D8H,7CH,0F8H
  943	  1E2A    63 61 D8 7C           
  944	  1E2E    F8                    
  945	  1E2F    09 50 58 61           TAB38:  DB	09H,50H,58H,61H,63H,6CH,74H
  946	  1E33    63 6C 74              
  947	  1E36    7B 79 70 68           	DB	7BH,79H,70H,68H,61H,63H,5CH
  948	  1E3A    61 63 5C              
  949	  1E3D    54 4B C9 10           	DB	54H,4BH,0C9H,10H,49H,4BH,54H
  950	  1E41    49 4B 54              
  951	  1E44    74 7B 79 70           	DB	74H,7BH,79H,70H,68H,61H,63H
  952	  1E48    68 61 63              
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-17


  953	  1E4B    EC 1A 5A 2A           	DB	0ECH,1AH,5AH,2AH,0EAH,01H,52H
  954	  1E4F    EA 01 52              
  955	  1E52    22 E2 33 61           	DB	22H,0E2H,33H,61H,0D3H,28H,6CH
  956	  1E56    D3 28 6C              
  957	  1E59    18 DC 31 63           	DB	18H,0DCH,31H,63H,0D1H,30H,79H
  958	  1E5D    D1 30 79              
  959	  1E60    7B 74 6C 5A           	DB	7BH,74H,6CH,5AH,52H,0AH,0CAH
  960	  1E64    52 0A CA              
  961	  1E67    68 71 73 6C           TAB40:  DB	68H,71H,73H,6CH,54H,4BH,4AH
  962	  1E6B    54 4B 4A              
  963	  1E6E    51 61 6A 63           	DB	51H,61H,6AH,63H,0CBH,7AH,4CH
  964	  1E72    CB 7A 4C              
  965	  1E75    21 E3 78 7B           	DB	21H,0E3H,78H,7BH,74H,6CH,63H
  966	  1E79    74 6C 63              
  967	  1E7C    60 63 5C 54           	DB	60H,63H,5CH,54H,4BH,0C8H,34H
  968	  1E80    4B C8 34              
  969	  1E83    7B 79 70 50           	DB	7BH,79H,70H,50H,49H,4BH,0D4H
  970	  1E87    49 4B D4              
  971	  1E8A    78 7B 74 54           	DB	78H,7BH,74H,54H,4BH,0C8H,3CH
  972	  1E8E    4B C8 3C              
  973	  1E91    78 48 4C 20           	DB	78H,48H,4CH,20H,0E2H,78H,7CH,20H,0E2H
  974	  1E95    E2 78 7C 20           
  975	  1E99    E2                    
  976	  1E9A    34 7B 79 70           	DB	34H,7BH,79H,70H,50H,49H,4BH,54H,5CH,0DAH
  977	  1E9E    50 49 4B 54           
  978	  1EA2    5C DA                 
  979	  1EA4    78 3C 4C 20           TAB48:  DB	78H,3CH,4CH,20H,0E4H,09H,4BH,4AH
  980	  1EA8    E4 09 4B 4A           
  981	  1EAC    7A 79 FB 10           	DB	7AH,79H,0FBH,10H,49H,4BH,54H
  982	  1EB0    49 4B 54              
  983	  1EB3    FC 78 3C 60           	DB	0FCH,78H,3CH,60H,0CCH,38H,48H
  984	  1EB7    CC 38 48              
  985	  1EBA    CC 78 62 7C           	DB	0CCH,78H,62H,7CH,0CCH,78H,4CH
  986	  1EBE    CC 78 4C              
  987	  1EC1    FC 09 50 70           	DB	0FCH,09H,50H,70H,79H,7BH,74H,54H,4BH,0C9H
  988	  1EC5    79 7B 74 54           
  989	  1EC9    4B C9                 
  990	  1ECB    78 7B 74 6C           TAB50:  DB	78H,7BH,74H,6CH,63H,0E0H,09H
  991	  1ECF    63 E0 09              
  992	  1ED2    50 70 79 7B           	DB	50H,70H,79H,7BH,74H,54H,4BH
  993	  1ED6    74 54 4B              
  994	  1ED9    49 1A CC 78           	DB	49H,1AH,0CCH,78H,7BH,74H,6CH
  995	  1EDD    7B 74 6C              
  996	  1EE0    63 60 CC 10           	DB	63H,60H,0CCH,10H,49H,4BH,54H
  997	  1EE4    49 4B 54              
  998	  1EE7    5C 63 61 68           	DB	5CH,63H,61H,68H,70H,79H,7BH
  999	  1EEB    70 79 7B              
 1000	  1EEE    F4 38 7C 3A           	DB	0F4H,38H,7CH,3AH,0CAH,38H,50H
 1001	  1EF2    CA 38 50              
 1002	  1EF5    49 4B 54 FC           	DB	49H,4BH,54H,0FCH,38H,4AH,0FCH
 1003	  1EF9    38 4A FC              
 1004	  1EFC    38 49 6A 4B           	DB	38H,49H,6AH,4BH,0FCH
 1005	  1F00    FC                    
 1006	  1F01    7C 38 CC 38           TAB58:  DB	7CH,38H,0CCH,38H,62H,7CH,22H
 1007	  1F05    62 7C 22              
 1008	  1F08    CA 38 7C 48           	DB	0CAH,38H,7CH,48H,0CCH,3BH,79H
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-18


 1009	  1F0C    CC 3B 79              
 1010	  1F0F    49 CB 38 CC           	DB	49H,0CBH,38H,0CCH,39H,7BH,4BH
 1011	  1F13    39 7B 4B              
 1012	  1F16    C9 31 7A F3           	DB	0C9H,31H,7AH,0F3H,0H,0C4H
 1013	  1F1A    00 C4                 
 1014	  1F1C    39 F2 29 6B           TAB60:  DB	39H,0F2H,29H,6BH,64H,54H,4BH
 1015	  1F20    64 54 4B              
 1016	  1F23    49 50 59 5B           	DB	49H,50H,59H,5BH,54H,0CCH,78H
 1017	  1F27    54 CC 78              
 1018	  1F2A    28 6B 64 54           	DB	28H,6BH,64H,54H,4BH,0C8H,2CH
 1019	  1F2E    4B C8 2C              
 1020	  1F31    69 60 50 49           	DB	69H,60H,50H,49H,0CCH,3CH,4CH
 1021	  1F35    CC 3C 4C              
 1022	  1F38    49 50 60 69           	DB	49H,50H,60H,69H,0ECH,18H,5CH
 1023	  1F3C    EC 18 5C              
 1024	  1F3F    64 6B 69 60           	DB	64H,6BH,69H,60H,50H,49H,0CCH
 1025	  1F43    50 49 CC              
 1026	  1F46    0A 72 7B 7C           	DB	0AH,72H,7BH,7CH,21H,0E3H,00H
 1027	  1F4A    21 E3 00              
 1028	  1F4D    43 4C 6C 69           	DB	43H,4CH,6CH,69H,60H,58H,51H,0D4H
 1029	  1F51    60 58 51 D4           
 1030	  1F55    78 28 6B 64           TAB68:  DB	78H,28H,6BH,64H,0CCH,09H,4BH
 1031	  1F59    CC 09 4B              
 1032	  1F5C    4A 6A 69 3A           	DB	4AH,6AH,69H,3AH,0FAH,01H,42H
 1033	  1F60    FA 01 42              
 1034	  1F63    4B 6B 6A 3B           	DB	4BH,6BH,6AH,3BH,0FBH,78H,2CH
 1035	  1F67    FB 78 2C              
 1036	  1F6A    58 CC 09 4B           	DB	58H,0CCH,09H,4BH,4AH,7AH,0F9H
 1037	  1F6E    4A 7A F9              
 1038	  1F71    68 60 69 62           	DB	68H,60H,69H,62H,4AH,22H,6BH
 1039	  1F75    4A 22 6B              
 1040	  1F78    64 CC 68 60           	DB	64H,0CCH,68H,60H,69H,6BH,64H
 1041	  1F7C    69 6B 64              
 1042	  1F7F    CC 09 50 60           	DB	0CCH,09H,50H,60H,69H,6BH,64H,54H,4BH,0C9H
 1043	  1F83    69 6B 64 54           
 1044	  1F87    4B C9                 
 1045	  1F89    00 68 6B 64           TAB70:  DB	00H,68H,6BH,64H,5CH,53H,0D0H
 1046	  1F8D    5C 53 D0              
 1047	  1F90    04 6C 69 60           	DB	04H,6CH,69H,60H,58H,51H,0D4H
 1048	  1F94    58 51 D4              
 1049	  1F97    09 69 61 6A           	DB	09H,69H,61H,6AH,6BH,0E4H,4BH
 1050	  1F9B    6B E4 4B              
 1051	  1F9E    54 5B 59 60           	DB	54H,5BH,59H,60H,69H,0ECH,0CH
 1052	  1FA2    69 EC 0C              
 1053	  1FA5    4B 52 72 21           	DB	4BH,52H,72H,21H,0E3H,28H,50H,49H
 1054	  1FA9    E3 28 50 49           
 1055	  1FAD    4B 54 EC 28           	DB	4BH,54H,0ECH,28H,4AH,0ECH,28H
 1056	  1FB1    4A EC 28              
 1057	  1FB4    49 62 4B EC           	DB	49H,62H,4BH,0ECH
 1058	  1FB8    6C 28 CC 00           TAB78:  DB	6CH,28H,0CCH,0H,43H,4CH,6CH
 1059	  1FBC    43 4C 6C              
 1060	  1FBF    28 58 51 D4           	DB	28H,58H,51H,0D4H,28H,6CH,48H
 1061	  1FC3    28 6C 48              
 1062	  1FC6    CC 0B 52 5A           	DB	0CCH,0BH,52H,5AH,61H,6AH,72H
 1063	  1FCA    61 6A 72              
 1064	  1FCD    FB 0A FA 09           	DB	0FBH,0AH,0FAH,09H,52H,5AH,63H
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	1-19


 1065	  1FD1    52 5A 63              
 1066	  1FD4    6A 72 F9 20           	DB	6AH,72H,0F9H,20H,69H,5BH,0E4H,80H
 1067	  1FD8    69 5B E4 80           
 1068	  1FDC    32 FB                 TAB80:  DB	32H,0FBH
 1069	  1FDE    2A 71 7A 73           TAB81:	DB	2AH,71H,7AH,73H,0EAH
 1070	  1FE2    EA                    
 1071	  1FE3    39 72 FB 31           	DB	39H,72H,0FBH,31H,7AH,0F3H,39H,79H,3BH,0FBH
 1072	  1FE7    7A F3 39 79           
 1073	  1FEB    3B FB                 
 1074	                                	;
 1075	  1FED    00 00 54 45           	DB	0,0,'TESLA DIZ'
 1076	  1FF1    53 4C 41 20           
 1077	  1FF5    44 49 5A              
 1078	  1FF8    00 00 00 00           	DB	0,0,0,0,0,0,0,0
 1079	  1FFC    00 00 00 00           
 1080	                                ;
 1081	  1FFF                          KONROM	EQU	$-1	;POSLEDNI BYTE V ROM
 1082	  0800                          ROMC	EQU	$-ROM	;CEKOVA DELAKA KODU
 1083	                                ;
 1084	                                	ORG	RAM	;BLOK PROMENYCH
 1085	                                
 1086	  4290                          SIXX:	DS	2	; VELIKOST PISMA XX 4290H
 1087	  4292                          SIXY:	DS	2	; VELIKOST PISMA XY 4292H
 1088	  4294                          SIYX:	DS	2	; VELIKOST PISMA YX 4294H
 1089	  4296                          SIYY:	DS	2	; VELIKOST PISMA YY 4296H
 1090	  4298                          DIAK:	DS	1	; PRIZNAK DIAKRITIKY, BUDE ZNAMENKO 4298H
 1091	  4299                          ZBS:	DS	1	; ZNAK BS
 1092	  429A                          DIAK2:	DS	1	; PRIZNAK DIAKRYTIKY, BYLO ZNAMENKO 429AH
 1093	  429B                          GZNAK:	DS	1	; PRIZNAK PRO GRAFICKY ZNAK 429BH
 1094	  429C                          TXTNS:	DS	1	; PRIZNAK NOVYCH SURADNIC PRO TISK TEXTU 429CH
 1095	  429D                          RADKO:	DS	1	; ROZSTUP MEZI RADKY 429DH
 1096	  429E                          WIDE:	DS	1	; DRUH MEZERY MEZI ZNAKY 429EH
 1097	  429F                          TKON1:	DS	1	; KONSTANTA PRO CASOVOU SMICKU 1 A249H
 1098	  42A0                          TKON2:	DS	1	; KONSTANTA PRO CASOVOU SMICKU 2 42A0H
 1099	  42A1                          TKON3:	DS	1	; KONSTANTA PRO CASOVOU SMICKU 3 42A1H
 1100	  42A2                          STPX:	DS	2	; OKAMZITA POLOHA PERA X 42A2H
 1101	  42A4                          STPY:	DS	2	; OKAMZITA POLOHA PERA Y 42A4H
 1102	  42A6                          TXTSX:	DS	2	; SOURADNICE X PRO TISK TEXTU 42A6H
 1103	  42A8                          TXTSY:	DS	2	; SOURADNICE Y PRO TISK TEXTU 42A8H
 1104	  42AA                          ATABGZ:	DS	2	; ARESA AKTUANIHO GENERATORU ZNAKU 42AAH
 1105	  42AC                          NOPX:	DS	2	; POLOHA PRISTIHO TISKU ZN. X 42ACH
 1106	  42AE                          NOPY:	DS	2	; POLOHA PRISTIHO TISKU ZN. Y 42AEH
 1107	  42B0                          SPEN:	DS	1	; OKAMZITY STAV PERA 42B0H
 1108	  42B1                          SMOT:	DS	1	; STAV KROKOVYCH MOTORU
 1109	  42B2                          PREX:	DS	2	; SOUR. PREDCHOZIHO TISKU X 42B2H
 1110	  42B4                          PREY:	DS	2	; SOUR. PREDCHOZIHO TISKU Y 42B4H
 1111	  42B6                          SPED:	DS	1	; AKTUALNI RICHLOST POSUVU 42B6H
 1112	  42B7                          ACCE:	DS	1	; RICHLOST PRI ROZBEHU 42B7H
 1113	  42B8                          DIRE:	DS	1	; SMER DO OS Y A X 42B8H
 1114	  42B9                          DIR1:	DS	1	; ? 42B9H
 1115	  42BA                          DIFF:	DS	2	; ROZDIL SOUR. ZADANE A SKUT. 42BAH
 1116	                                ;
 1117	  42BB                          KONRAM	EQU	$-1	; POSLEDNI BZTE V RAM
 1118	  002C                          RAMC	EQU	$-RAM	; CEKOVE OBSAZENI RAM
 1119	                                ;
 1120	                                	END
OVLADAC PRO XY4130 NA SAPI-1 ZPS-2 MON V5.0	MACRO-80 3.44	09-Dec-81	PAGE	S


Macros:

Symbols:
1921 	ABS0            1975 	ABS1            198B 	ABS2            
1996 	ABS3            19A9 	ABS4            42B7 	ACCE            
188B 	AMOVA           189D 	APOIN           42AA 	ATABGZ          
1894 	AVECTA          0007 	BEL             013F 	CINCR           
000D 	CR              0003 	CTRLC           1954 	DALX            
4298 	DIAK            429A 	DIAK2           1A0B 	DIAKS           
42BA 	DIFF            1B04 	DIKZ            1B0A 	DIKZ1           
1B1E 	DIKZ2           1B29 	DIKZ3           1D08 	DIKZT           
42B9 	DIR1            42B8 	DIRE            1C49 	ELEM            
014B 	EXFLG           1A10 	GRAFZ           429B 	GZNAK           
1AF4 	HBS             1B30 	HLMDE           1B3A 	HLMDE1          
1AA9 	HOME            0115 	IOCHK           011E 	IODEF           
0118 	IOSET           1ABB 	KOI             42BB 	KONRAM          
1FFF 	KONROM          1CD2 	KROK            000A 	LF              
188E 	MOVA            186D 	NASZN           1872 	NASZN1          
1AFF 	NEDIK           0139 	NEXT            1BCB 	NGZ             
42AC 	NOPX            42AE 	NOPY            1B4C 	NPOZ            
1869 	NTABGZ          1A20 	PCR             1C6C 	PEN0            
1C77 	PEN1            1C69 	PENP            1C7F 	PENZ            
1A4F 	PLF             1A52 	PLF1            2C00 	PORT2           
42B2 	PREX            42B4 	PREY            1857 	PVZN            
429D 	RADKO           4290 	RAM             002C 	RAMC            
1916 	RELA            1913 	RELA1           1910 	RMOVA           
1800 	ROM             0800 	ROMC            1CAA 	ROSAX           
1C93 	ROSAY           1C60 	RPOIN           18A6 	RVECTA          
4290 	SIXX            4292 	SIXY            4294 	SIYX            
4296 	SIYY            1BA4 	SKZN            42B1 	SMOT            
19B6 	SMR             19CA 	SMVL            42B6 	SPED            
42B0 	SPEN            42A2 	STPX            42A4 	STPY            
1A5B 	STRAN           1D7E 	TAB10           1DA9 	TAB20           
1DDC 	TAB28           1DF5 	TAB30           1E2F 	TAB38           
1E67 	TAB40           1EA4 	TAB48           1ECB 	TAB50           
1F01 	TAB58           1F1C 	TAB60           1F55 	TAB68           
1F89 	TAB70           1FB8 	TAB78           1FDC 	TAB80           
1FDE 	TAB81           1D60 	TABGZ           1CDC 	TESTT           
1CE3 	TESTT1          1D20 	TKOI2           429F 	TKON1           
42A0 	TKON2           42A1 	TKON3           1B40 	TSTBS           
0151 	TX              429C 	TXTNS           42A6 	TXTSX           
42A8 	TXTSY           187B 	ULZXY           1897 	VECTA           
18AF 	VPOZ            18B2 	VPOZ1           1903 	VPOZ2           
1BAE 	VYZN            1CBD 	WAITM           429E 	WIDE            
1828 	ZAVOV           4299 	ZBS             1C46 	ZNAK0           
1BB3 	ZNAK1           1B59 	ZNAK10          1B6B 	ZNAK11          
1B86 	ZNAK12          1BBD 	ZNAK2           1BBE 	ZNAK3           
1BD2 	ZNAK4           1BD5 	ZNAK5           1C29 	ZNAK6           
1C34 	ZNAK7           1C37 	ZNAK8           1C3E 	ZNAK9           
19D0 	ZNAKC           19DF 	ZNAKC1          185F 	ZNAKP           
1CC4 	ZPOZ0           1CC7 	ZPOZ1           



No Fatal error(s)



ABS0	  119	  123	  213#
ABS1	  265#	  304
ABS2	  274	  277	  279#
ABS3	  284	  286#
ABS4	  294	  297#
ACCE	  249	  273	  748	 1112#
AMOVA	   43	  117#
APOIN	   45	  125#
ATABGZ	   53	   68	   91	  604	 1104#
AVECTA	   44	  121#
BEL	   10#	  437
CINCR	   21#	  447
CR	    8#	   70	  363	  437	  445
CTRLC	   11#	  455
DALX	  241	  244#
DIAK	  193	  375	  589	 1090#
DIAK2	  576	 1092#
DIAKS	  368	  373#	  485
DIFF	  245	  286	 1115#
DIKZ	  477	  512#
DIKZ1	  515#	  537
DIKZ2	  529#	  533
DIKZ3	  516	  536#
DIKZT	  519	  854#
DIR1	  244	  293	 1114#
DIRE	  233	  296	 1113#
ELEM	  298	  740#
EXFLG	   22#	  427	  453
GRAFZ	  356	  380#
GZNAK	  354	  387	  643	 1093#
HBS	  370	  474	  495	  500#	  508
HLMDE	  397	  407	  542#
HLMDE1	  551#	  554
HOME	   73	  352	  457#
IOCHK	   17#	   60	  428
IODEF	   19#	   59
IOSET	   18#	   64	  434	  450
KOI	  360	  468#
KONRAM	 1117#
KONROM	 1081#
KROK	  789	  801	  820#
LF	    9#	   70	  365	  437	  446
MOVA	  118#	  126	  168	  172	  177	  421	  696
NASZN	   49	   66	   94#
NASZN1	   96#	  101
NEDIK	  488	  498	  507#
NEXT	   20#	  456
NGZ	  358	  642#

NOPX	  216	  567	  689	  705	 1105#
NOPY	  225	  569	  691	  703	 1106#
NPOZ	  561	  567#	  583
NTABGZ	   52	   91#
PCR	  364	  392#
PEN0	  118	  205	  435	  701	  754	  758#
PEN1	  122	  130	  756	  764#
PENP	  127	  756#
PENZ	  762	  769#
PLF	  366	  416#
PLF1	  412	  417#
PORT2	   14#	  775	  821	  823
PREX	  568	  660	 1109#
PREY	  570	  678	 1110#
PVZN	   65	   75#
RADKO	  199	  392	  402	 1095#
RAM	   29#	 1084	 1118
RAMC	 1118#
RELA	  131	  206#	  755
RELA1	  152	  205#
RMOVA	   46	  204#
ROM	   28#	   35	 1082
ROMC	 1082#
ROSAX	  783	  785	  792#
ROSAY	  751	  779#
RPOIN	   48	  753#
RVECTA	   47	  129#
SIXX	   94	  658	 1086#
SIXY	  676	 1087#
SIYX	  394	  671	 1088#
SIYY	  404	  682	 1089#
SKZN	  618#	  621	  623
SMOT	  740	  742	  745	  806	 1108#
SMR	  217	  226	  307#
SMVL	  320	  329#
SPED	  772	  811	 1111#
SPEN	  148	  694	  758	  764	  770	  780	 1107#
STPX	  162	  174	  206	  213	  215	 1100#
STPY	  164	  209	  222	  224	 1101#
STRAN	  362	  400	  410	  425#
TAB10	  883	  893#
TAB20	  883	  883	  906#
TAB28	  884	  921#
TAB30	  884	  928#
TAB38	  886	  945#
TAB40	  886	  961#
TAB48	  886	  979#
TAB50	  887	  990#
TAB58	  887	 1006#

TAB60	  889	 1014#
TAB68	  889	 1030#
TAB70	  889	 1045#
TAB78	  890	 1058#
TAB80	  890	 1068#
TAB81	 1069#
TABGZ	   67	  883#
TESTT	   51	  829#
TESTT1	  832#	  845	  850
TKOI2	  479	  863#
TKON1	  137	  154	  761	 1097#
TKON2	  138	  768	 1098#
TKON3	  189	  275	 1099#
TSTBS	  512	  556#	  588	  644
TX	   25#	   69	  436
TXTNS	  114	  347	  350	 1094#
TXTSX	  108	  396	  401	  419	  462	 1102#
TXTSY	  112	  406	  411	  416	  460	 1103#
ULZXY	  107#	  117	  121	  125	  129	  135	  204	  753
VECTA	  122#	  699
VPOZ	   41	  135#
VPOZ1	  136#	  464
VPOZ2	  194#	  197
VYZN	  617	  625#
WAITM	  796	  798	  803#
WIDE	  191	  635	 1096#
ZAVOV	   40	   57#
ZBS	  503	  557	  585	  668	  834	 1091#
ZNAK0	  716	  719#
ZNAK1	  627#	  632
ZNAK10	  502	  575#
ZNAK11	  579	  584#
ZNAK12	  591	  594	  598#
ZNAK2	  600	  633#
ZNAK3	  388	  538	  634#
ZNAK4	  382	  530	  582	  626	  628	  653#
ZNAK5	  638	  655#
ZNAK6	  688	  701#
ZNAK7	  700	  706#
ZNAK8	  661	  673	  679	  684	  710#
ZNAK9	  715#	  718
ZNAKC	   85	  347#
ZNAKC1	  349	  354#	  830	  833	  837	  839	  848
ZNAKP	   39	   58	   82#
ZPOZ0	  247	  776	  811#	  817
ZPOZ1	  812#	  813


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


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


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


8 bity / SAPI-1 / Programové vybavení / ZPS-2 / RUTINY PRO PLOTR XY4130



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