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


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


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


8 bity / SAPI-1 / Programové vybavení / ZPS-2 / RUTINY PRO PLOTR ARTMA 0507/0517


Listing programu PROGRAM OBSLUHY MINIGRAFU PRES DESKU DPP-1 V SYSTEMU SAPI-1 ZPS-2

Původní verze tj. jak byl získán listing


	MACRO-80 3.44	09-Dec-81	PAGE	1


    1	                                ;PROGRAM OBSLUHY MINIGRAFU PRES DESKU DPP-1
    2	                                ;V SYSTEMU SAPI-1 ZPS-2
    3	                                ;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
    4	                                ;ODLISNA ADRESACE JE PRO PRIPAD POUZITI DESKY
    5	                                ;PORTU SPOLECNE S OMLADANIM KZD-1 NEBO SP-210
    6	                                
    7	                                ;VERSE V.1-MGF  V EPROM 1800-1FFF KS=9C
    8	                                ;150289
    9	                                
   10	  1800                          MINIG   EQU     01800H
   11	  18F0                          START   EQU     MINIG+0F0H
   12	  1CFD                          STAR1   EQU     MINIG+4FDH
   13	  0033                          PORT    EQU     033H    ;CWR
   14	  0031                          PORT2   EQU     PORT-2  ;PORT B
   15	  C0B1                          INC     EQU     0C0B1H  ;SLUZBA MONITORU
   16	  011E                          IODEF   EQU     0011EH  ;SLUZBA MONITORU
   17	  0139                          NEXT    EQU     00139H  ;NAVRAT DO MONITORU
   18	  FFD0                          ZAZN    EQU     0FFD0H  ;ZAZNAMNIK V RAM
   19	                                ;       EQU     MINIG-1 ;VERSE V RAM
   20	  FFCF                          RMTOP   EQU     ZAZN-1  ;VERSE V EPROM
   21	  FFD2                          SIZXX   EQU     ZAZN+02H
   22	  FFD4                          SIZXY   EQU     ZAZN+04H
   23	  FFD6                          SIZYX   EQU     ZAZN+06H
   24	  FFD8                          SIZYY	EQU	ZAZN+08H
   25	  FFDA                          POL1X   EQU     ZAZN+0AH
   26	  FFDC                          POL1Y   EQU     ZAZN+0CH
   27	  FFDE                          POL2X   EQU     ZAZN+0EH
   28	  FFE0                          POL2Y   EQU     ZAZN+10H
   29	  FFE2                          WIDE	EQU	ZAZN+12H
   30	  FFE3                          REZIM   EQU     ZAZN+13H
   31	  FFE4                          ZBS	EQU	ZAZN+14H
   32	  FFE6                          PENZ    EQU     ZAZN+16H
   33	  FFEC                          ZPOZD	EQU	ZAZN+1CH
   34	  1D40                          TABSK   EQU     01D40H  ;NIZSI BYTE 40H
   35	  001D                          HBYTE   EQU     01DH    ;HORNI BYTE TOTOZNE S TABSK
   36	  3800                          VIRAM   EQU     03800H  ;POCATEK VIDEORAM
   37	  003E                          KVRAM   EQU     03EH    ;HORNI BYTE KONCE VIDEORAM
   38	                                
   39	                                
   40	                                ;TABULKA SKOKU:
   41	                                
   42	  0000'                                 ASEG
   43	                                        ORG     MINIG
   44	  1800    00                            NOP
   45	  1801    00                            NOP
   46	  1802    00                            NOP
   47	  1803    CD 19AE                       CALL    ORGB0   ;INICIALIZACE PORTU
   48	  1806    C3 0139                       JMP     NEXT
   49	  1809    CD 1CFD                       CALL    TEST    ;SPUSTI TEST Z MONITORU
   50	  180C    C3 1806                       JMP     MINIG+06H
   51	  180F    CD 1C77                       CALL    COPY1   ;COPY Z MONITORU
   52	  1812    C3 1806                       JMP     MINIG+06H
   53	  1815    CD 18F5                       CALL    SYST0   ;NASTAVI MINIGRAF JAKO
   54	  1818    C3 1806                       JMP     MINIG+06H;SYST.TISKARNU
   55	  181B    C3 18F0                       JMP     SYSTB   ;DTTO Z BASICU
   56	  181E    00                            NOP
	MACRO-80 3.44	09-Dec-81	PAGE	1-1


   57	  181F    00                            NOP
   58	  1820    00                            NOP
   59	  1821    C3 19B4                       JMP     RAMTP   ;SPUSTENI Z BASICU
   60	  1824    00                            NOP
   61	  1825    00                            NOP
   62	  1826    00                            NOP
   63	  1827    C3 1C72                       JMP     COPYB   ;COPY Z BASICU
   64	  182A    C3 196E                       JMP     MOVA    ;MOVA
   65	  182D    C3 196C                       JMP     MOVAB   ;MOVA Z BASICU
   66	  1830    C3 1976                       JMP     VECTA   ;VECTA
   67	  1833    C3 1974                       JMP     VECTB   ;VECTA Z BASICU
   68	  1836    C3 197E                       JMP     POINA   ;POINTA
   69	  1839    C3 197C                       JMP     POINB   ;POINTA Z BASICU
   70	  183C    C3 1989                       JMP     MOVR    ;MOVR
   71	  183F    C3 1987                       JMP     MOVRB   ;MOVR Z BASICU
   72	  1842    C3 1991                       JMP     VECTR   ;VECTR
   73	  1845    C3 198F                       JMP     VECTC   ;VECTR Z BASICU
   74	  1848    C3 1999                       JMP     POINR   ;POINTR
   75	  184B    C3 1997                       JMP     PONRB   ;POINTR Z BASICU
   76	  184E    C3 19A8                       JMP     SPEED   ;NASTAVI SPEED
   77	  1851    C3 1AE1                       JMP     WRTEB   ;TISK RETEZCE
   78	  1854    C3 1B3E                       JMP     ZNAK    ;TISK ZNAKU
   79	  1857    C3 1950                       JMP     NASXX   ;NASTAVENI SIZE XX A YY
   80	  185A    C3 1958                       JMP     NASYX   ;NASTAVENI SIZE XY A YX
   81	  185D    C3 1960                       JMP     NWIDE   ;NASTAVENI WIDE
   82	  1860    C3 1966                       JMP     NNARR   ;NASTAVENI NARROW
   83	                                
   84	                                
   85	                                        ORG     START
   86	                                
   87	  18F0    E5                    SYSTB:  PUSH    H
   88	  18F1    C1                            POP     B
   89	  18F2    C3 18FB                       JMP     SYST
   90	  18F5    00                    SYST0:  NOP
   91	  18F6    00                            NOP
   92	  18F7    00                            NOP
   93	  18F8    00                            NOP
   94	  18F9    00                            NOP
   95	  18FA    00                            NOP
   96	  18FB    CD 19C7               SYST:   CALL    ORG1
   97	  18FE    3E 01                         MVI     A,001H  ;NAST.ASCII
   98	  1900    32 FFE3                       STA     REZIM
   99	  1903    0E 0D                         MVI     C,00DH
  100	  1905    11 190C                       LXI     D,TISK
  101	  1908    CD 011E                       CALL    IODEF
  102	  190B    C9                            RET
  103	  190C    C5                    TISK:   PUSH    B       ;TEST NA 0AH
  104	  190D    D5                            PUSH    D
  105	  190E    E5                            PUSH    H
  106	  190F    79                            MOV     A,C
  107	  1910    FE 0A                         CPI     00AH
  108	  1912    C2 1923                       JNZ     NO0A
  109	  1915    2A FFE0                       LHLD    POL2Y
  110	  1918    44                            MOV     B,H
  111	  1919    4D                            MOV     C,L
  112	  191A    11 0000                       LXI     D,00000H
	MACRO-80 3.44	09-Dec-81	PAGE	1-2


  113	  191D    CD 196E                       CALL    MOVA
  114	  1920    C3 1945                       JMP     NAVR
  115	                                
  116	  1923    FE 0D                 NO0A:   CPI     00DH    ;TEST NA 0DH
  117	  1925    C2 1949                       JNZ     NO0D
  118	  1928    2A FFD8                       LHLD    SIZYY
  119	  192B    06 08                         MVI     B,008H
  120	  192D    E5                            PUSH    H
  121	  192E    EB                            XCHG
  122	  192F    E1                            POP     H
  123	  1930    19                    POCET:  DAD     D
  124	  1931    19                            DAD     D
  125	  1932    05                            DCR     B
  126	  1933    C2 1930                       JNZ     POCET
  127	  1936    7C                            MOV     A,H
  128	  1937    2F                            CMA
  129	  1938    67                            MOV     H,A
  130	  1939    7D                            MOV     A,L
  131	  193A    2F                            CMA
  132	  193B    6F                            MOV     L,A
  133	  193C    23                            INX     H
  134	  193D    44                            MOV     B,H
  135	  193E    4D                            MOV     C,L
  136	  193F    11 0000                       LXI     D,00000H
  137	  1942    CD 1989                       CALL    MOVR
  138	  1945    E1                    NAVR:   POP     H
  139	  1946    D1                            POP     D
  140	  1947    C1                            POP     B
  141	  1948    C9                            RET
  142	                                
  143	  1949    CD 1B3E               NO0D:   CALL    ZNAK
  144	  194C    E1                            POP     H
  145	  194D    D1                            POP     D
  146	  194E    C1                            POP     B
  147	  194F    C9                            RET
  148	                                
  149	  1950    22 FFD8               NASXX:  SHLD    SIZYY
  150	  1953    EB                            XCHG
  151	  1954    22 FFD2                       SHLD    SIZXX
  152	  1957    C9                            RET
  153	  1958    22 FFD6               NASYX:  SHLD    SIZYX
  154	  195B    EB                            XCHG
  155	  195C    22 FFD4                       SHLD    SIZXY
  156	  195F    C9                            RET
  157	  1960    3E 00                 NWIDE:  MVI     A,000H
  158	  1962    32 FFE2                       STA     WIDE
  159	  1965    C9                            RET
  160	  1966    3E 80                 NNARR:  MVI     A,080H
  161	  1968    32 FFE2                       STA     WIDE
  162	  196B    C9                            RET
  163	                                
  164	  196C    E5                    MOVAB:  PUSH    H
  165	  196D    C1                            POP     B
  166	  196E    CD 1C3D               MOVA:   CALL    PEN0
  167	  1971    C3 1A32                       JMP     SK02
  168	  1974    E5                    VECTB:  PUSH    H
	MACRO-80 3.44	09-Dec-81	PAGE	1-3


  169	  1975    C1                            POP     B
  170	  1976    CD 1C45               VECTA:  CALL    PEN1
  171	  1979    C3 1A32                       JMP     SK02
  172	  197C    E5                    POINB:  PUSH    H
  173	  197D    C1                            POP     B
  174	  197E    CD 1C3D               POINA:  CALL    PEN0
  175	  1981    CD 1A32                       CALL    SK02
  176	  1984    C3 19A2                       JMP     SK06
  177	  1987    E5                    MOVRB:  PUSH    H
  178	  1988    C1                            POP     B
  179	  1989    CD 1C3D               MOVR:   CALL    PEN0
  180	  198C    C3 1A27                       JMP     SK07
  181	  198F    E5                    VECTC:  PUSH    H
  182	  1990    C1                            POP     B
  183	  1991    CD 1C45               VECTR:  CALL    PEN1
  184	  1994    C3 1A27                       JMP     SK07
  185	  1997    E5                    PONRB:  PUSH    H
  186	  1998    C1                            POP     B
  187	  1999    CD 1C3D               POINR:  CALL    PEN0
  188	  199C    CD 1A27                       CALL    SK07
  189	  199F    C3 19A2                       JMP     SK06
  190	  19A2    CD 1C45               SK06:   CALL    PEN1
  191	  19A5    C3 1C3D                       JMP     PEN0
  192	  19A8    C6 08                 SPEED:  ADI     008H
  193	  19AA    32 017C                       STA     0017CH
  194	  19AD    C9                            RET
  195	  19AE    21 0000               ORGB0:  LXI     H,00000H
  196	  19B1    11 0000                       LXI     D,00000H
  197	  19B4    D5                    RAMTP:  PUSH    D       ;NASTAVI RAMTOP
  198	  19B5    0E 08                         MVI     C,08H
  199	  19B7    11 FFCF                       LXI     D,RMTOP
  200	  19BA    CD 011E                       CALL    IODEF
  201	  19BD    D1                            POP     D
  202	  19BE    3E 99                 ORGB:   MVI     A,099H
  203	  19C0    D3 33                         OUT     PORT
  204	  19C2    E5                            PUSH    H
  205	  19C3    C1                            POP     B
  206	  19C4    C3 19C7                       JMP     ORG1
  207	  19C7    3E 14                 ORG1:   MVI     A,014H
  208	  19C9    32 FFEC                       STA     ZPOZD
  209	  19CC    32 FFF5                       STA     ZAZN+25H
  210	  19CF    D5                            PUSH    D
  211	  19D0    C5                            PUSH    B
  212	  19D1    3E 01                         MVI     A,001H
  213	  19D3    32 FFE6                       STA     PENZ
  214	  19D6    01 0008                       LXI     B,00008H
  215	  19D9    50                            MOV     D,B
  216	  19DA    59                            MOV     E,C
  217	  19DB    CD 1989                       CALL    MOVR
  218	  19DE    3E 0B                         MVI     A,00BH
  219	  19E0    32 FFEC                       STA     ZPOZD
  220	  19E3    21 06A4                       LXI     H,006A4H
  221	  19E6    22 FFDA                       SHLD    POL1X
  222	  19E9    21 F95C                       LXI     H,0F95CH
  223	  19EC    22 FFDC                       SHLD    POL1Y
  224	  19EF    C1                            POP     B
	MACRO-80 3.44	09-Dec-81	PAGE	1-4


  225	  19F0    C5                            PUSH    B
  226	  19F1    11 0000                       LXI     D,00000H
  227	  19F4    CD 196E                       CALL    MOVA
  228	  19F7    C1                            POP     B
  229	  19F8    C5                            PUSH    B
  230	  19F9    11 0050                       LXI     D,00050H
  231	  19FC    CD 196E                       CALL    MOVA
  232	  19FF    AF                            XRA     A
  233	  1A00    32 FFDA                       STA     POL1X
  234	  1A03    C1                            POP     B
  235	  1A04    D1                            POP     D
  236	  1A05    CD 196E                       CALL    MOVA
  237	  1A08    3E 0A                 NAST:   MVI     A,00AH
  238	  1A0A    32 FFF5                       STA     ZAZN+25H
  239	  1A0D    21 0003               NSIZE:  LXI     H,00003H
  240	  1A10    22 FFD2                       SHLD    SIZXX
  241	  1A13    22 FFD8                       SHLD    SIZYY
  242	  1A16    2E 00                         MVI     L,000H
  243	  1A18    22 FFD4                       SHLD    SIZXY
  244	  1A1B    22 FFD6                       SHLD    SIZYX
  245	  1A1E    22 FFE3                       SHLD    REZIM
  246	  1A21    3E 80                         MVI     A,080H
  247	  1A23    32 FFE2                       STA     WIDE
  248	  1A26    C9                            RET
  249	                                
  250	  1A27    2A FFDA               SK07:   LHLD    POL1X
  251	  1A2A    19                            DAD     D
  252	  1A2B    EB                            XCHG
  253	  1A2C    2A FFDC                       LHLD    POL1Y
  254	  1A2F    09                            DAD     B
  255	  1A30    44                            MOV     B,H
  256	  1A31    4D                            MOV     C,L
  257	  1A32    2A FFDA               SK02:   LHLD    POL1X
  258	  1A35    EB                            XCHG
  259	  1A36    22 FFDA                       SHLD    POL1X
  260	  1A39    22 FFDE                       SHLD    POL2X
  261	  1A3C    CD 1AC7                       CALL    SK09
  262	  1A3F    E5                            PUSH    H
  263	  1A40    C5                            PUSH    B
  264	  1A41    4F                            MOV     C,A
  265	  1A42    D1                            POP     D
  266	  1A43    2A FFDC                       LHLD    POL1Y
  267	  1A46    EB                            XCHG
  268	  1A47    22 FFDC                       SHLD    POL1Y
  269	  1A4A    22 FFE0                       SHLD    POL2Y
  270	  1A4D    CD 1AC7                       CALL    SK09
  271	  1A50    07                            RLC
  272	  1A51    07                            RLC
  273	  1A52    07                            RLC
  274	  1A53    07                            RLC
  275	  1A54    47                            MOV     B,A
  276	  1A55    B1                            ORA     C
  277	  1A56    32 FFEE                       STA     ZAZN+1EH
  278	  1A59    D1                            POP     D
  279	  1A5A    C8                            RZ
  280	  1A5B    7D                            MOV     A,L
	MACRO-80 3.44	09-Dec-81	PAGE	1-5


  281	  1A5C    93                            SUB     E
  282	  1A5D    7C                            MOV     A,H
  283	  1A5E    9A                            SBB     D
  284	  1A5F    79                            MOV     A,C
  285	  1A60    DA 1A65                       JC      SK10
  286	  1A63    EB                            XCHG
  287	  1A64    78                            MOV     A,B
  288	  1A65    32 FFEF               SK10:   STA     ZAZN+1FH
  289	  1A68    22 FFF0                       SHLD    ZAZN+20H
  290	  1A6B    21 0014                       LXI     H,00014H
  291	  1A6E    CD 1C64                       CALL    ZPOZ0
  292	  1A71    3E 29                         MVI     A,029H
  293	  1A73    32 FFED                       STA     ZAZN+1DH
  294	  1A76    42                            MOV     B,D
  295	  1A77    4B                            MOV     C,E
  296	  1A78    AF                            XRA     A
  297	  1A79    93                            SUB     E
  298	  1A7A    6F                            MOV     L,A
  299	  1A7B    3E 00                         MVI     A,000H
  300	  1A7D    9A                            SBB     D
  301	  1A7E    67                            MOV     H,A
  302	  1A7F    AF                            XRA     A
  303	  1A80    7A                            MOV     A,D
  304	  1A81    1F                            RAR
  305	  1A82    57                            MOV     D,A
  306	  1A83    7B                            MOV     A,E
  307	  1A84    1F                            RAR
  308	  1A85    5F                            MOV     E,A
  309	  1A86    E5                    SK16:   PUSH    H
  310	  1A87    D5                            PUSH    D
  311	  1A88    EB                            XCHG
  312	  1A89    60                            MOV     H,B
  313	  1A8A    69                            MOV     L,C
  314	  1A8B    29                            DAD     H
  315	  1A8C    2B                            DCX     H
  316	  1A8D    19                            DAD     D
  317	  1A8E    21 FFED                       LXI     H,ZAZN+1DH
  318	  1A91    D2 1A9C                       JNC     SK12
  319	  1A94    3A FFF5                       LDA     ZAZN+25H
  320	  1A97    BE                            CMP     M
  321	  1A98    CA 1A9C                       JZ      SK12
  322	  1A9B    35                            DCR     M
  323	  1A9C    3E 28                 SK12:   MVI     A,028H
  324	  1A9E    96                            SUB     M
  325	  1A9F    91                            SUB     C
  326	  1AA0    3E 00                         MVI     A,000H
  327	  1AA2    98                            SBB     B
  328	  1AA3    DA 1AA7                       JC      SK13
  329	  1AA6    34                            INR     M
  330	  1AA7    2A FFF0               SK13:   LHLD    ZAZN+20H
  331	  1AAA    D1                            POP     D
  332	  1AAB    19                            DAD     D
  333	  1AAC    EB                            XCHG
  334	  1AAD    E1                            POP     H
  335	  1AAE    E5                            PUSH    H
  336	  1AAF    19                            DAD     D
	MACRO-80 3.44	09-Dec-81	PAGE	1-6


  337	  1AB0    3A FFEF                       LDA     ZAZN+1FH
  338	  1AB3    D2 1ABA                       JNC     SK14
  339	  1AB6    EB                            XCHG
  340	  1AB7    3A FFEE                       LDA     ZAZN+1EH
  341	  1ABA    D5                    SK14:   PUSH    D
  342	  1ABB    CD 1C21                       CALL    SK15
  343	  1ABE    0B                            DCX     B
  344	  1ABF    78                            MOV     A,B
  345	  1AC0    B1                            ORA     C
  346	  1AC1    D1                            POP     D
  347	  1AC2    E1                            POP     H
  348	  1AC3    C2 1A86                       JNZ     SK16
  349	  1AC6    C9                            RET
  350	                                
  351	  1AC7    7D                    SK09:   MOV     A,L
  352	  1AC8    93                            SUB     E
  353	  1AC9    6F                            MOV     L,A
  354	  1ACA    7C                            MOV     A,H
  355	  1ACB    9A                            SBB     D
  356	  1ACC    67                            MOV     H,A
  357	  1ACD    29                            DAD     H
  358	  1ACE    D2 1ADB                       JNC     SK17
  359	  1AD1    AF                            XRA     A
  360	  1AD2    95                            SUB     L
  361	  1AD3    6F                            MOV     L,A
  362	  1AD4    3E 00                         MVI     A,000H
  363	  1AD6    9C                            SBB     H
  364	  1AD7    67                            MOV     H,A
  365	  1AD8    3E 0F                         MVI     A,00FH
  366	  1ADA    C9                            RET
  367	  1ADB    7C                    SK17:   MOV     A,H
  368	  1ADC    B5                            ORA     L
  369	  1ADD    C8                            RZ
  370	  1ADE    3E 01                         MVI     A,001H
  371	  1AE0    C9                            RET
  372	                                
  373	  1AE1    EB                    WRTEB:  XCHG
  374	  1AE2    59                            MOV     E,C
  375	  1AE3    C3 1AF0                       JMP     WRITE
  376	  1AE6    2A FFD0               SK08:   LHLD    ZAZN
  377	  1AE9    5C                            MOV     E,H
  378	  1AEA    23                            INX     H
  379	  1AEB    23                            INX     H
  380	  1AEC    7E                            MOV     A,M
  381	  1AED    23                            INX     H
  382	  1AEE    66                            MOV     H,M
  383	  1AEF    6F                            MOV     L,A
  384	  1AF0    AF                    WRITE:  XRA     A
  385	  1AF1    32 FFE5                       STA     ZAZN+15H
  386	  1AF4    7B                    SK25:   MOV     A,E
  387	  1AF5    B7                            ORA     A
  388	  1AF6    C8                            RZ
  389	  1AF7    3A FFE5                       LDA     ZAZN+15H
  390	  1AFA    B7                            ORA     A
  391	  1AFB    C2 1B11                       JNZ     SK18
  392	  1AFE    7E                            MOV     A,M
	MACRO-80 3.44	09-Dec-81	PAGE	1-7


  393	  1AFF    B7                            ORA     A
  394	  1B00    CA 1B0A                       JZ      SL19
  395	  1B03    7E                            MOV     A,M
  396	  1B04    CD 1B3E                       CALL    ZNAK
  397	  1B07    C3 1B21               SK19:   JMP     SK20
  398	  1B0A    3C                    SL19:   INR     A
  399	  1B0B    32 FFE5                       STA     ZAZN+15H
  400	  1B0E    CD 1B26                       CALL    SK21
  401	  1B11    7E                    SK18:   MOV     A,M
  402	  1B12    CD 1BAA                       CALL    SK22
  403	  1B15    7E                            MOV     A,M
  404	  1B16    B7                            ORA     A
  405	  1B17    F2 1B21                       JP      SK20
  406	  1B1A    AF                            XRA     A
  407	  1B1B    32 FFE5                       STA     ZAZN+15H
  408	  1B1E    CD 1B9A                       CALL    SK24
  409	  1B21    23                    SK20:   INX     H
  410	  1B22    1D                            DCR     E
  411	  1B23    C3 1AF4                       JMP     SK25
  412	  1B26    E5                    SK21:   PUSH    H
  413	  1B27    21 FFE4                       LXI     H,ZBS
  414	  1B2A    AF                            XRA     A
  415	  1B2B    BE                            CMP     M
  416	  1B2C    77                            MOV     M,A
  417	  1B2D    C2 1B3C                       JNZ     SK26
  418	  1B30    2A FFDE                       LHLD    POL2X
  419	  1B33    22 FFE8                       SHLD    ZAZN+18H
  420	  1B36    2A FFE0                       LHLD    POL2Y
  421	  1B39    22 FFEA                       SHLD    ZAZN+1AH
  422	  1B3C    E1                    SK26:   POP     H
  423	  1B3D    C9                            RET
  424	                                
  425	  1B3E    E5                    ZNAK:   PUSH    H
  426	  1B3F    21 FFE4                       LXI     H,ZBS
  427	  1B42    FE 08                         CPI     008H
  428	  1B44    C2 1B4A                       JNZ     SK27
  429	  1B47    77                            MOV     M,A
  430	  1B48    E1                            POP     H
  431	  1B49    C9                            RET
  432	  1B4A    E6 7F                 SK27:   ANI     07FH
  433	  1B4C    4F                            MOV     C,A
  434	  1B4D    CD 1B26                       CALL    SK21
  435	  1B50    3A FFE3                       LDA     REZIM
  436	  1B53    B7                            ORA     A
  437	  1B54    C2 1B61                       JNZ     SK28
  438	  1B57    79                            MOV     A,C
  439	  1B58    FE 7B                         CPI     07BH
  440	  1B5A    DA 1B61                       JC      SK28
  441	  1B5D    C6 05                         ADI     005H
  442	  1B5F    4F                            MOV     C,A
  443	  1B60    34                            INR     M
  444	  1B61    79                    SK28:   MOV     A,C
  445	  1B62    FE 20                         CPI     020H
  446	  1B64    DA 1B99                       JC      SK29
  447	  1B67    E6 F8                         ANI     0F8H
  448	  1B69    1F                            RAR
	MACRO-80 3.44	09-Dec-81	PAGE	1-8


  449	  1B6A    1F                            RAR
  450	  1B6B    C6 F8                         ADI     0F8H
  451	  1B6D    C6 40                         ADI     040H
  452	  1B6F    6F                            MOV     L,A
  453	  1B70    3E 00                         MVI     A,000H
  454	  1B72    CE 1D                         ACI     HBYTE
  455	  1B74    67                            MOV     H,A
  456	  1B75    7E                            MOV     A,M
  457	  1B76    23                            INX     H
  458	  1B77    66                            MOV     H,M
  459	  1B78    6F                            MOV     L,A
  460	  1B79    79                            MOV     A,C
  461	  1B7A    E6 07                         ANI     007H
  462	  1B7C    4F                            MOV     C,A
  463	  1B7D    CA 1B8A                       JZ      SK31
  464	  1B80    7E                    SK32:   MOV     A,M
  465	  1B81    B7                            ORA     A
  466	  1B82    23                            INX     H
  467	  1B83    F2 1B80                       JP      SK32
  468	  1B86    0D                            DCR     C
  469	  1B87    C2 1B80                       JNZ     SK32
  470	  1B8A    3E 08                 SK31:   MVI     A,008H
  471	  1B8C    CD 1BAA                       CALL    SK22
  472	  1B8F    7E                    SK30:   MOV     A,M
  473	  1B90    CD 1BAA                       CALL    SK22
  474	  1B93    7E                            MOV     A,M
  475	  1B94    23                            INX     H
  476	  1B95    B7                            ORA     A
  477	  1B96    F2 1B8F                       JP      SK30
  478	  1B99    E1                    SK29:   POP     H
  479	  1B9A    E5                    SK24:   PUSH    H
  480	  1B9B    3A FFE2                       LDA     WIDE
  481	  1B9E    07                            RLC
  482	  1B9F    17                            RAL
  483	  1BA0    C6 F6                         ADI     0F6H
  484	  1BA2    2F                            CMA
  485	  1BA3    0E 00                         MVI     C,000H
  486	  1BA5    CD 1BAD                       CALL    SL22
  487	  1BA8    E1                            POP H
  488	  1BA9    C9                            RET
  489	                                
  490	  1BAA    4F                    SK22:   MOV     C,A
  491	  1BAB    E6 07                         ANI     007H
  492	  1BAD    E5                    SL22:   PUSH    H
  493	  1BAE    D5                            PUSH    D
  494	  1BAF    F5                            PUSH    PSW
  495	  1BB0    2A FFD2                       LHLD    SIZXX
  496	  1BB3    EB                            XCHG
  497	  1BB4    2A FFE8                       LHLD    ZAZN+18H
  498	  1BB7    CD 1C0F                       CALL    SL32
  499	  1BBA    EB                            XCHG
  500	  1BBB    79                            MOV     A,C
  501	  1BBC    E6 38                         ANI     038H
  502	  1BBE    1F                            RAR
  503	  1BBF    1F                            RAR
  504	  1BC0    1F                            RAR
	MACRO-80 3.44	09-Dec-81	PAGE	1-9


  505	  1BC1    21 FFE4                       LXI     H,ZBS
  506	  1BC4    86                            ADD     M
  507	  1BC5    47                            MOV     B,A
  508	  1BC6    2A FFD6                       LHLD    SIZYX
  509	  1BC9    EB                            XCHG
  510	  1BCA    CD 1C0F                       CALL    SL32
  511	  1BCD    F1                            POP     PSW
  512	  1BCE    E5                            PUSH    H
  513	  1BCF    2A FFD4                       LHLD    SIZXY
  514	  1BD2    EB                            XCHG
  515	  1BD3    2A FFEA                       LHLD    ZAZN+1AH
  516	  1BD6    CD 1C0F                       CALL    SL32
  517	  1BD9    78                            MOV     A,B
  518	  1BDA    EB                            XCHG
  519	  1BDB    2A FFD8                       LHLD    SIZYY
  520	  1BDE    EB                            XCHG
  521	  1BDF    CD 1C0F                       CALL    SL32
  522	  1BE2    E5                            PUSH    H
  523	  1BE3    79                            MOV     A,C
  524	  1BE4    E6 40                         ANI     040H
  525	  1BE6    CA 1C01                       JZ      SL33
  526	  1BE9    2A FFDE                       LHLD    POL2X
  527	  1BEC    EB                            XCHG
  528	  1BED    2A FFE0                       LHLD    POL2Y
  529	  1BF0    44                            MOV     B,H
  530	  1BF1    4D                            MOV     C,L
  531	  1BF2    3A FFE6                       LDA     PENZ
  532	  1BF5    B7                            ORA     A
  533	  1BF6    CC 196E                       CZ      MOVA
  534	  1BF9    C1                            POP     B
  535	  1BFA    D1                            POP     D
  536	  1BFB    CD 1976                       CALL    VECTA
  537	  1BFE    C3 1C0C                       JMP     SK33
  538	  1C01    CD 1C3D               SL33:   CALL    PEN0
  539	  1C04    E1                            POP     H
  540	  1C05    22 FFE0                       SHLD    POL2Y
  541	  1C08    E1                            POP     H
  542	  1C09    22 FFDE                       SHLD    POL2X
  543	  1C0C    D1                    SK33:   POP     D
  544	  1C0D    E1                            POP     H
  545	  1C0E    C9                            RET
  546	                                
  547	  1C0F    1C                    SL32:   INR     E
  548	  1C10    1D                            DCR     E
  549	  1C11    C8                            RZ
  550	  1C12    E5                            PUSH    H
  551	  1C13    21 0000                       LXI     H,00000H
  552	  1C16    3D                    SK35:   DCR     A
  553	  1C17    FA 1C1E                       JM      SK34
  554	  1C1A    19                            DAD     D
  555	  1C1B    C3 1C16                       JMP     SK35
  556	  1C1E    D1                    SK34:   POP     D
  557	  1C1F    19                            DAD     D
  558	  1C20    C9                            RET
  559	                                
  560	  1C21    2A FFE7               SK15:   LHLD    PENZ+1
	MACRO-80 3.44	09-Dec-81	PAGE	1-10


  561	  1C24    67                            MOV     H,A
  562	  1C25    85                            ADD     L
  563	  1C26    E6 0F                         ANI     00FH
  564	  1C28    5F                            MOV     E,A
  565	  1C29    7C                            MOV     A,H
  566	  1C2A    E6 F0                         ANI     0F0H
  567	  1C2C    85                            ADD     L
  568	  1C2D    E6 F0                         ANI     0F0H
  569	  1C2F    B3                            ORA     E
  570	  1C30    32 FFE7                       STA     PENZ+1
  571	  1C33    AF                            XRA     A
  572	  1C34    67                            MOV     H,A
  573	  1C35    3A FFED                       LDA     ZAZN+1DH
  574	  1C38    1F                            RAR
  575	  1C39    6F                            MOV     L,A
  576	  1C3A    C3 1C52                       JMP     SK36
  577	  1C3D    3A FFE6               PEN0:   LDA     PENZ
  578	  1C40    3D                            DCR     A
  579	  1C41    C0                            RNZ
  580	  1C42    C3 1C4C                       JMP     SK37
  581	  1C45    3A FFE6               PEN1:   LDA     PENZ
  582	  1C48    3D                            DCR     A
  583	  1C49    C8                            RZ
  584	  1C4A    3E 01                         MVI     A,001H
  585	  1C4C    32 FFE6               SK37:   STA     PENZ
  586	  1C4F    21 01F4                       LXI     H,001F4H
  587	  1C52    E5                    SK36:   PUSH    H
  588	  1C53    2A FFE6                       LHLD    PENZ
  589	  1C56    7C                            MOV     A,H
  590	  1C57    E6 0E                         ANI     00EH
  591	  1C59    B5                            ORA     L
  592	  1C5A    6F                            MOV     L,A
  593	  1C5B    7C                            MOV     A,H
  594	  1C5C    E6 E0                         ANI     0E0H
  595	  1C5E    0F                            RRC
  596	  1C5F    B5                            ORA     L
  597	  1C60    0F                            RRC
  598	  1C61    D3 31                         OUT     PORT2
  599	  1C63    E1                            POP     H
  600	  1C64    3A FFEC               ZPOZ0:  LDA     ZPOZD
  601	  1C67    3D                    ZPOZ1:  DCR     A
  602	  1C68    C2 1C67                       JNZ     ZPOZ1
  603	  1C6B    2B                            DCX     H
  604	  1C6C    7C                            MOV     A,H
  605	  1C6D    B5                            ORA     L
  606	  1C6E    C2 1C64                       JNZ     ZPOZ0
  607	  1C71    C9                            RET
  608	                                
  609	  1C72    44                    COPYB:  MOV     B,H
  610	  1C73    4D                            MOV     C,L
  611	  1C74    C3 1C7B                       JMP     COPY2
  612	  1C77    C5                    COPY1:  PUSH    B
  613	  1C78    D5                            PUSH    D
  614	  1C79    C1                            POP     B
  615	  1C7A    D1                            POP     D
  616	  1C7B    C5                    COPY2:  PUSH    B
	MACRO-80 3.44	09-Dec-81	PAGE	1-11


  617	  1C7C    D5                            PUSH    D
  618	  1C7D    CD 196E                       CALL    MOVA
  619	  1C80    11 02F0                       LXI     D,002F0H        ;RAMECEK
  620	  1C83    01 0000                       LXI     B,00000H
  621	  1C86    C5                            PUSH    B
  622	  1C87    CD 1991                       CALL    VECTR
  623	  1C8A    D1                            POP     D
  624	  1C8B    D5                            PUSH    D
  625	  1C8C    01 FD08                       LXI     B,0FD08H
  626	  1C8F    CD 1991                       CALL    VECTR
  627	  1C92    11 FD10                       LXI     D,0FD10H
  628	  1C95    C1                            POP     B
  629	  1C96    CD 1991                       CALL    VECTR
  630	  1C99    D1                            POP     D
  631	  1C9A    C1                            POP     B
  632	  1C9B    CD 1976                       CALL    VECTA
  633	  1C9E    11 0012                       LXI     D,00012H        ;POC.TISKU
  634	  1CA1    01 FFDC                       LXI     B,0FFDCH
  635	  1CA4    CD 1989                       CALL    MOVR
  636	  1CA7    CD 1A0D                       CALL    NSIZE
  637	  1CAA    3E 01                         MVI     A,001H          ;NAST.ASCII
  638	  1CAC    32 FFE3                       STA     REZIM
  639	  1CAF    2A FFDA                       LHLD    POL1X
  640	  1CB2    EB                            XCHG
  641	  1CB3    21 3800                       LXI     H,VIRAM
  642	  1CB6    7E                    DALZN:  MOV     A,M
  643	  1CB7    E6 20                         ANI     020H    ;PREKODOVANI AND->ASCII
  644	  1CB9    7E                            MOV     A,M
  645	  1CBA    C2 1CBF                       JNZ     VYST
  646	  1CBD    F6 40                         ORI     40H     ;DOPL.BITU 6 NA ASCII
  647	  1CBF    CD 1B3E               VYST:   CALL    ZNAK
  648	  1CC2    7E                            MOV     A,M     ;TEST NA DVOJ.SIRKU ZN.
  649	  1CC3    2F                            CMA
  650	  1CC4    E6 C0                         ANI     0C0H
  651	  1CC6    C2 1CCF                       JNZ     NENI
  652	  1CC9    3E 20                         MVI     A,020H  ;KOD MEZERY
  653	  1CCB    CD 1B3E                       CALL    ZNAK
  654	  1CCE    23                            INX     H
  655	  1CCF    23                    NENI:   INX     H
  656	  1CD0    7D                            MOV     A,L
  657	  1CD1    E6 3F                         ANI     03FH    ;DALSI RADEK?
  658	  1CD3    FE 28                         CPI     028H    ;>27HH=K0NEC RADKU
  659	  1CD5    DA 1CB6                       JC      DALZN
  660	  1CD8    C5                    DALR:   PUSH    B
  661	  1CD9    01 0018                       LXI     B,00018H
  662	  1CDC    09                            DAD     B       ;DALSI PAM.MISTO
  663	  1CDD    C1                            POP     B
  664	  1CDE    E5                            PUSH    H
  665	  1CDF    D5                            PUSH    D
  666	  1CE0    01 FFE0                       LXI     B,0FFE0H
  667	  1CE3    2A FFE0                       LHLD    POL2Y
  668	  1CE6    09                            DAD     B
  669	  1CE7    44                            MOV     B,H
  670	  1CE8    4D                            MOV     C,L
  671	  1CE9    CD 196E                       CALL    MOVA    ;NA DALSI RADEK
  672	  1CEC    D1                            POP     D
	MACRO-80 3.44	09-Dec-81	PAGE	1-12


  673	  1CED    E1                            POP     H
  674	  1CEE    7C                            MOV     A,H     ;TEST NA KONEC VIDEORAM
  675	  1CEF    FE 3E                         CPI     KVRAM
  676	  1CF1    DA 1CB6                       JC      DALZN
  677	  1CF4    C3 1A0D                       JMP     NSIZE
  678	                                
  679	                                
  680	                                        ORG     STAR1
  681	                                
  682	  1CFD    11 0186               TEST:   LXI     D,00186H
  683	  1D00    01 0708                       LXI     B,00708H
  684	  1D03    CD 19C7                       CALL    ORG1
  685	  1D06    3E 0A                         MVI     A,00AH
  686	  1D08    32 FFD2                       STA     SIZXX
  687	  1D0B    32 FFD8                       STA     SIZYY
  688	  1D0E    87                            ADD     A
  689	  1D0F    32 FFF5                       STA     ZAZN+25H
  690	  1D12    AF                            XRA     A
  691	  1D13    32 FFE2                       STA     WIDE
  692	  1D16    3C                            INR     A
  693	  1D17    32 FFE3                       STA     REZIM
  694	  1D1A    26 20                         MVI     H,020H
  695	  1D1C    7C                    SK56:   MOV     A,H
  696	  1D1D    CD 1B3E                       CALL    ZNAK
  697	  1D20    24                            INR     H
  698	  1D21    7C                            MOV     A,H
  699	  1D22    E6 07                         ANI     007H
  700	  1D24    C2 1D1C                       JNZ     SK56
  701	  1D27    E5                            PUSH    H
  702	  1D28    62                            MOV     H,D
  703	  1D29    6B                            MOV     L,E
  704	  1D2A    22 FFDE                       SHLD    POL2X
  705	  1D2D    2A FFE0                       LHLD    POL2Y
  706	  1D30    01 FF80                       LXI     B,0FF80H
  707	  1D33    09                            DAD     B
  708	  1D34    22 FFE0                       SHLD    POL2Y
  709	  1D37    E1                            POP     H
  710	  1D38    7C                            MOV     A,H
  711	  1D39    B7                            ORA     A
  712	  1D3A    F2 1D1C                       JP      SK56
  713	  1D3D    C3 1A08                       JMP     NAST
  714	                                
  715	                                        ORG     TABSK
  716	                                
  717	  1D40    1D5A 1D8D                     DW      TAB20,TAB28,TAB30,TAB38,TAB40
  718	  1D44    1DA6 1DE0             
  719	  1D48    1E18                  
  720	  1D4A    1E55 1E7C                     DW      TAB48,TAB50,TAB58,TAB60,TAB68
  721	  1D4E    1EB2 1ECD             
  722	  1D52    1F06                  
  723	  1D54    1F3A 1F69                     DW      TAB70,TAB78,TAB80
  724	  1D58    1F8D                  
  725	                                
  726	  1D5A    80 3A 5A 0A           TAB20:  DB      80H,3AH,5AH,0AH,0CAH,31H,7AH
  727	  1D5E    CA 31 7A              
  728	  1D61    32 FB 39 49                   DB      32H,0FBH,39H,49H,0BH,7BH,2CH,68H,18H,0DCH
	MACRO-80 3.44	09-Dec-81	PAGE	1-13


  729	  1D65    0B 7B 2C 68           
  730	  1D69    18 DC                 
  731	  1D6B    10 53 5C 63                   DB      10H,53H,5CH,63H,61H,68H,71H
  732	  1D6F    61 68 71              
  733	  1D72    74 3A CA 7C                   DB      74H,3AH,0CAH,7CH,39H,70H,69H
  734	  1D76    39 70 69              
  735	  1D79    72 79 1B 52                   DB      72H,79H,1BH,52H,4BH,54H,0DBH
  736	  1D7D    4B 54 DB              
  737	  1D80    0C 68 70 79                   DB      0CH,68H,70H,79H,7AH,73H,6BH
  738	  1D84    7A 73 6B              
  739	  1D87    50 49 4A DC                   DB      50H,49H,4AH,0DCH,3BH,0F2H
  740	  1D8B    3B F2                 
  741	  1D8D    3B 69 59 CB           TAB28:  DB      3BH,69H,59H,0CBH,39H,6BH,5BH
  742	  1D91    39 6B 5B              
  743	  1D94    C9 11 73 24                   DB      0C9H,11H,73H,24H,60H,31H,0D3H
  744	  1D98    60 31 D3              
  745	  1D9B    20 64 32 D2                   DB      20H,64H,32H,0D2H,12H,0C1H,20H
  746	  1D9F    12 C1 20              
  747	  1DA2    E4 0A CA FC                   DB      0E4H,0AH,0CAH,0FCH
  748	  1DA6    7C 34 54 4B           TAB30:  DB      7CH,34H,54H,4BH,49H,50H,70H
  749	  1DAA    49 50 70              
  750	  1DAD    79 7B F4 29                   DB      79H,7BH,0F4H,29H,7BH,0CBH,30H
  751	  1DB1    7B CB 30              
  752	  1DB4    79 7B 74 6C                   DB      79H,7BH,74H,6CH,48H,0CCH,30H
  753	  1DB8    48 CC 30              
  754	  1DBB    79 7B 74 6C                   DB      79H,7BH,74H,6CH,63H,5CH,54H
  755	  1DBF    63 5C 54              
  756	  1DC2    4B 49 D0 0B                   DB      4BH,49H,0D0H,0BH,7BH,58H,0DCH
  757	  1DC6    7B 58 DC              
  758	  1DC9    10 49 4B 54                   DB      10H,49H,4BH,54H,5CH,63H,60H
  759	  1DCD    5C 63 60              
  760	  1DD0    78 FC 34 7B                   DB      78H,0FCH,34H,7BH,79H,70H,50H
  761	  1DD4    79 70 50              
  762	  1DD7    49 4B 54 5C                   DB      49H,4BH,54H,5CH,63H,61H,0D8H,7CH,0F8H
  763	  1DDB    63 61 D8 7C           
  764	  1DDF    F8                    
  765	  1DE0    09 50 58 61           TAB38:  DB      09H,50H,58H,61H,63H,6CH,74H
  766	  1DE4    63 6C 74              
  767	  1DE7    7B 79 70 68                   DB      7BH,79H,70H,68H,61H,63H,5CH
  768	  1DEB    61 63 5C              
  769	  1DEE    54 4B C9 10                   DB      54H,4BH,0C9H,10H,49H,4BH,54H
  770	  1DF2    49 4B 54              
  771	  1DF5    74 7B 79 70                   DB      74H,7BH,79H,70H,68H,61H,63H
  772	  1DF9    68 61 63              
  773	  1DFC    EC 1A 5A 2A                   DB      0ECH,1AH,5AH,2AH,0EAH,01H,52H
  774	  1E00    EA 01 52              
  775	  1E03    22 E2 33 61                   DB      22H,0E2H,33H,61H,0D3H,28H,6CH
  776	  1E07    D3 28 6C              
  777	  1E0A    18 DC 31 63                   DB      18H,0DCH,31H,63H,0D1H,30H,79H
  778	  1E0E    D1 30 79              
  779	  1E11    7B 74 6C 5A                   DB      7BH,74H,6CH,5AH,52H,0AH,0CAH
  780	  1E15    52 0A CA              
  781	  1E18    68 71 73 6C           TAB40:  DB      68H,71H,73H,6CH,54H,4BH,4AH
  782	  1E1C    54 4B 4A              
  783	  1E1F    51 61 6A 63                   DB      51H,61H,6AH,63H,0CBH,7AH,4CH
  784	  1E23    CB 7A 4C              
	MACRO-80 3.44	09-Dec-81	PAGE	1-14


  785	  1E26    21 E3 78 7B                   DB      21H,0E3H,78H,7BH,74H,6CH,63H
  786	  1E2A    74 6C 63              
  787	  1E2D    60 63 5C 54                   DB      60H,63H,5CH,54H,4BH,0C8H,34H
  788	  1E31    4B C8 34              
  789	  1E34    7B 79 70 50                   DB      7BH,79H,70H,50H,49H,4BH,0D4H
  790	  1E38    49 4B D4              
  791	  1E3B    78 7B 74 54                   DB      78H,7BH,74H,54H,4BH,0C8H,3CH
  792	  1E3F    4B C8 3C              
  793	  1E42    78 48 4C 20                   DB      78H,48H,4CH,20H,0E2H,78H,7CH,20H,0E2H
  794	  1E46    E2 78 7C 20           
  795	  1E4A    E2                    
  796	  1E4B    34 7B 79 70                   DB      34H,7BH,79H,70H,50H,49H,4BH,54H,5CH,0DAH
  797	  1E4F    50 49 4B 54           
  798	  1E53    5C DA                 
  799	  1E55    78 3C 4C 20           TAB48:  DB      78H,3CH,4CH,20H,0E4H,09H,4BH,4AH
  800	  1E59    E4 09 4B 4A           
  801	  1E5D    7A 79 FB 10                   DB      7AH,79H,0FBH,10H,49H,4BH,54H
  802	  1E61    49 4B 54              
  803	  1E64    FC 78 3C 60                   DB      0FCH,78H,3CH,60H,0CCH,38H,48H
  804	  1E68    CC 38 48              
  805	  1E6B    CC 78 62 7C                   DB      0CCH,78H,62H,7CH,0CCH,78H,4CH
  806	  1E6F    CC 78 4C              
  807	  1E72    FC 09 50 70                   DB      0FCH,09H,50H,70H,79H,7BH,74H,54H,4BH,0C9H
  808	  1E76    79 7B 74 54           
  809	  1E7A    4B C9                 
  810	  1E7C    78 7B 74 6C           TAB50:  DB      78H,7BH,74H,6CH,63H,0E0H,09H
  811	  1E80    63 E0 09              
  812	  1E83    50 70 79 7B                   DB      50H,70H,79H,7BH,74H,54H,4BH
  813	  1E87    74 54 4B              
  814	  1E8A    49 1A CC 78                   DB      49H,1AH,0CCH,78H,7BH,74H,6CH
  815	  1E8E    7B 74 6C              
  816	  1E91    63 60 CC 10                   DB      63H,60H,0CCH,10H,49H,4BH,54H
  817	  1E95    49 4B 54              
  818	  1E98    5C 63 61 68                   DB      5CH,63H,61H,68H,70H,79H,7BH
  819	  1E9C    70 79 7B              
  820	  1E9F    F4 38 7C 3A                   DB      0F4H,38H,7CH,3AH,0CAH,38H,50H
  821	  1EA3    CA 38 50              
  822	  1EA6    49 4B 54 FC                   DB      49H,4BH,54H,0FCH,38H,4AH,0FCH
  823	  1EAA    38 4A FC              
  824	  1EAD    38 49 6A 4B                   DB      38H,49H,6AH,4BH,0FCH
  825	  1EB1    FC                    
  826	  1EB2    7C 38 CC 38           TAB58:  DB      7CH,38H,0CCH,38H,62H,7CH,22H
  827	  1EB6    62 7C 22              
  828	  1EB9    CA 38 7C 48                   DB      0CAH,38H,7CH,48H,0CCH,3BH,79H
  829	  1EBD    CC 3B 79              
  830	  1EC0    49 CB 38 CC                   DB      49H,0CBH,38H,0CCH,39H,7BH,4BH
  831	  1EC4    39 7B 4B              
  832	  1EC7    C9 31 7A F3                   DB      0C9H,31H,7AH,0F3H,0H,0C4H
  833	  1ECB    00 C4                 
  834	  1ECD    39 F2 29 6B           TAB60:  DB      39H,0F2H,29H,6BH,64H,54H,4BH
  835	  1ED1    64 54 4B              
  836	  1ED4    49 50 59 5B                   DB      49H,50H,59H,5BH,54H,0CCH,78H
  837	  1ED8    54 CC 78              
  838	  1EDB    28 6B 64 54                   DB      28H,6BH,64H,54H,4BH,0C8H,2CH
  839	  1EDF    4B C8 2C              
  840	  1EE2    69 60 50 49                   DB      69H,60H,50H,49H,0CCH,3CH,4CH
	MACRO-80 3.44	09-Dec-81	PAGE	1-15


  841	  1EE6    CC 3C 4C              
  842	  1EE9    49 50 60 69                   DB      49H,50H,60H,69H,0ECH,18H,5CH
  843	  1EED    EC 18 5C              
  844	  1EF0    64 6B 69 60                   DB      64H,6BH,69H,60H,50H,49H,0CCH
  845	  1EF4    50 49 CC              
  846	  1EF7    0A 72 7B 7C                   DB      0AH,72H,7BH,7CH,21H,0E3H,00H
  847	  1EFB    21 E3 00              
  848	  1EFE    43 4C 6C 69                   DB      43H,4CH,6CH,69H,60H,58H,51H,0D4H
  849	  1F02    60 58 51 D4           
  850	  1F06    78 28 6B 64           TAB68:  DB      78H,28H,6BH,64H,0CCH,09H,4BH
  851	  1F0A    CC 09 4B              
  852	  1F0D    4A 6A 69 3A                   DB      4AH,6AH,69H,3AH,0FAH,01H,42H
  853	  1F11    FA 01 42              
  854	  1F14    4B 6B 6A 3B                   DB      4BH,6BH,6AH,3BH,0FBH,78H,2CH
  855	  1F18    FB 78 2C              
  856	  1F1B    58 CC 09 4B                   DB      58H,0CCH,09H,4BH,4AH,7AH,0F9H
  857	  1F1F    4A 7A F9              
  858	  1F22    68 60 69 62                   DB      68H,60H,69H,62H,4AH,22H,6BH
  859	  1F26    4A 22 6B              
  860	  1F29    64 CC 68 60                   DB      64H,0CCH,68H,60H,69H,6BH,64H
  861	  1F2D    69 6B 64              
  862	  1F30    CC 09 50 60                   DB      0CCH,09H,50H,60H,69H,6BH,64H,54H,4BH,0C9H
  863	  1F34    69 6B 64 54           
  864	  1F38    4B C9                 
  865	  1F3A    00 68 6B 64           TAB70:  DB      00H,68H,6BH,64H,5CH,53H,0D0H
  866	  1F3E    5C 53 D0              
  867	  1F41    04 6C 69 60                   DB      04H,6CH,69H,60H,58H,51H,0D4H
  868	  1F45    58 51 D4              
  869	  1F48    09 69 61 6A                   DB      09H,69H,61H,6AH,6BH,0E4H,4BH
  870	  1F4C    6B E4 4B              
  871	  1F4F    54 5B 59 60                   DB      54H,5BH,59H,60H,69H,0ECH,0CH
  872	  1F53    69 EC 0C              
  873	  1F56    4B 52 7A 29                   DB      4BH,52H,7AH,29H,0EBH,28H,50H,49H
  874	  1F5A    EB 28 50 49           
  875	  1F5E    4B 54 EC 28                   DB      4BH,54H,0ECH,28H,4AH,0ECH,28H
  876	  1F62    4A EC 28              
  877	  1F65    49 62 4B EC                   DB      49H,62H,4BH,0ECH
  878	  1F69    6C 28 CC 00           TAB78:  DB      6CH,28H,0CCH,0H,43H,4CH,6CH
  879	  1F6D    43 4C 6C              
  880	  1F70    28 58 51 D4                   DB      28H,58H,51H,0D4H,28H,6CH,48H
  881	  1F74    28 6C 48              
  882	  1F77    CC 0B 52 5A                   DB      0CCH,0BH,52H,5AH,61H,6AH,72H
  883	  1F7B    61 6A 72              
  884	  1F7E    FB 0A FA 09                   DB      0FBH,0AH,0FAH,09H,52H,5AH,63H
  885	  1F82    52 5A 63              
  886	  1F85    6A 72 F9 20                   DB      6AH,72H,0F9H,20H,69H,5BH,0E4H,80H
  887	  1F89    69 5B E4 80           
  888	  1F8D    32 FB 2A 71           TAB80:  DB      32H,0FBH,2AH,71H,7AH,73H,0EAH
  889	  1F91    7A 73 EA              
  890	  1F94    39 72 FB 31                   DB      39H,72H,0FBH,31H,7AH,0F3H,39H,79H,3BH,0FBH
  891	  1F98    7A F3 39 79           
  892	  1F9C    3B FB                 
  893	                                
  894	                                        END
	MACRO-80 3.44	09-Dec-81	PAGE	S


Macros:

Symbols:
1C77 	COPY1           1C7B 	COPY2           1C72 	COPYB           
1CD8 	DALR            1CB6 	DALZN           001D 	HBYTE           
C0B1 	INC             011E 	IODEF           003E 	KVRAM           
1800 	MINIG           196E 	MOVA            196C 	MOVAB           
1989 	MOVR            1987 	MOVRB           1A08 	NAST            
1950 	NASXX           1958 	NASYX           1945 	NAVR            
1CCF 	NENI            0139 	NEXT            1966 	NNARR           
1923 	NO0A            1949 	NO0D            1A0D 	NSIZE           
1960 	NWIDE           19C7 	ORG1            19BE 	ORGB            
19AE 	ORGB0           1C3D 	PEN0            1C45 	PEN1            
FFE6 	PENZ            1930 	POCET           197E 	POINA           
197C 	POINB           1999 	POINR           FFDA 	POL1X           
FFDC 	POL1Y           FFDE 	POL2X           FFE0 	POL2Y           
1997 	PONRB           0033 	PORT            0031 	PORT2           
19B4 	RAMTP           FFE3 	REZIM           FFCF 	RMTOP           
FFD2 	SIZXX           FFD4 	SIZXY           FFD6 	SIZYX           
FFD8 	SIZYY           1A32 	SK02            19A2 	SK06            
1A27 	SK07            1AE6 	SK08            1AC7 	SK09            
1A65 	SK10            1A9C 	SK12            1AA7 	SK13            
1ABA 	SK14            1C21 	SK15            1A86 	SK16            
1ADB 	SK17            1B11 	SK18            1B07 	SK19            
1B21 	SK20            1B26 	SK21            1BAA 	SK22            
1B9A 	SK24            1AF4 	SK25            1B3C 	SK26            
1B4A 	SK27            1B61 	SK28            1B99 	SK29            
1B8F 	SK30            1B8A 	SK31            1B80 	SK32            
1C0C 	SK33            1C1E 	SK34            1C16 	SK35            
1C52 	SK36            1C4C 	SK37            1D1C 	SK56            
1B0A 	SL19            1BAD 	SL22            1C0F 	SL32            
1C01 	SL33            19A8 	SPEED           1CFD 	STAR1           
18F0 	START           18FB 	SYST            18F5 	SYST0           
18F0 	SYSTB           1D5A 	TAB20           1D8D 	TAB28           
1DA6 	TAB30           1DE0 	TAB38           1E18 	TAB40           
1E55 	TAB48           1E7C 	TAB50           1EB2 	TAB58           
1ECD 	TAB60           1F06 	TAB68           1F3A 	TAB70           
1F69 	TAB78           1F8D 	TAB80           1D40 	TABSK           
1CFD 	TEST            190C 	TISK            1976 	VECTA           
1974 	VECTB           198F 	VECTC           1991 	VECTR           
3800 	VIRAM           1CBF 	VYST            FFE2 	WIDE            
1AF0 	WRITE           1AE1 	WRTEB           FFD0 	ZAZN            
FFE4 	ZBS             1B3E 	ZNAK            1C64 	ZPOZ0           
1C67 	ZPOZ1           FFEC 	ZPOZD           



No Fatal error(s)



COPY1	   51	  612#
COPY2	  611	  616#
COPYB	   63	  609#
DALR	  660#
DALZN	  642#	  659	  676
HBYTE	   35#	  454
INC	   15#
IODEF	   16#	  101	  200
KVRAM	   37#	  675
MINIG	   10#	   11	   12	   43	   50	   52	   54
MOVA	   64	  113	  166#	  227	  231	  236	  533	  618	  671
MOVAB	   65	  164#
MOVR	   70	  137	  179#	  217	  635
MOVRB	   71	  177#
NAST	  237#	  713
NASXX	   79	  149#
NASYX	   80	  153#
NAVR	  114	  138#
NENI	  651	  655#
NEXT	   17#	   48
NNARR	   82	  160#
NO0A	  108	  116#
NO0D	  117	  143#
NSIZE	  239#	  636	  677
NWIDE	   81	  157#
ORG1	   96	  206	  207#	  684
ORGB	  202#
ORGB0	   47	  195#
PEN0	  166	  174	  179	  187	  191	  538	  577#
PEN1	  170	  183	  190	  581#
PENZ	   32#	  213	  531	  560	  570	  577	  581	  585	  588
POCET	  123#	  126
POINA	   68	  174#
POINB	   69	  172#
POINR	   74	  187#
POL1X	   25#	  221	  233	  250	  257	  259	  639
POL1Y	   26#	  223	  253	  266	  268
POL2X	   27#	  260	  418	  526	  542	  704
POL2Y	   28#	  109	  269	  420	  528	  540	  667	  705	  708
PONRB	   75	  185#
PORT	   13#	   14	  203
PORT2	   14#	  598
RAMTP	   59	  197#
REZIM	   30#	   98	  245	  435	  638	  693
RMTOP	   20#	  199
SIZXX	   21#	  151	  240	  495	  686
SIZXY	   22#	  155	  243	  513
SIZYX	   23#	  153	  244	  508

SIZYY	   24#	  118	  149	  241	  519	  687
SK02	  167	  171	  175	  257#
SK06	  176	  189	  190#
SK07	  180	  184	  188	  250#
SK08	  376#
SK09	  261	  270	  351#
SK10	  285	  288#
SK12	  318	  321	  323#
SK13	  328	  330#
SK14	  338	  341#
SK15	  342	  560#
SK16	  309#	  348
SK17	  358	  367#
SK18	  391	  401#
SK19	  397#
SK20	  397	  405	  409#
SK21	  400	  412#	  434
SK22	  402	  471	  473	  490#
SK24	  408	  479#
SK25	  386#	  411
SK26	  417	  422#
SK27	  428	  432#
SK28	  437	  440	  444#
SK29	  446	  478#
SK30	  472#	  477
SK31	  463	  470#
SK32	  464#	  467	  469
SK33	  537	  543#
SK34	  553	  556#
SK35	  552#	  555
SK36	  576	  587#
SK37	  580	  585#
SK56	  695#	  700	  712
SL19	  394	  398#
SL22	  486	  492#
SL32	  498	  510	  516	  521	  547#
SL33	  525	  538#
SPEED	   76	  192#
STAR1	   12#	  680
START	   11#	   85
SYST	   89	   96#
SYST0	   53	   90#
SYSTB	   55	   87#
TAB20	  717	  726#
TAB28	  717	  741#
TAB30	  717	  748#
TAB38	  718	  765#
TAB40	  718	  781#
TAB48	  720	  799#

TAB50	  720	  810#
TAB58	  720	  826#
TAB60	  721	  834#
TAB68	  721	  850#
TAB70	  723	  865#
TAB78	  723	  878#
TAB80	  723	  888#
TABSK	   34#	  715
TEST	   49	  682#
TISK	  100	  103#
VECTA	   66	  170#	  536	  632
VECTB	   67	  168#
VECTC	   73	  181#
VECTR	   72	  183#	  622	  626	  629
VIRAM	   36#	  641
VYST	  645	  647#
WIDE	   29#	  158	  161	  247	  480	  691
WRITE	  375	  384#
WRTEB	   77	  373#
ZAZN	   18#	   20	   21	   22	   23	   24	   25	   26	   27	   28	   29	   30
	   31	   32	   33	  209	  238	  277	  288	  289	  293	  317	  319	  330
	  337	  340	  376	  385	  389	  399	  407	  419	  421	  497	  515	  573
	  689
ZBS	   31#	  413	  426	  505
ZNAK	   78	  143	  396	  425#	  647	  653	  696
ZPOZ0	  291	  600#	  606
ZPOZ1	  601#	  602
ZPOZD	   33#	  208	  219	  600


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


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


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


8 bity / SAPI-1 / Programové vybavení / ZPS-2 / RUTINY PRO PLOTR ARTMA 0507/0517



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