Ú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í / V5.0 / LST MIKOS


Listing programu MIKOS V5.0


FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1


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


   57	                                ;-------------------------------------------
   58	  000D                          CR      EQU     0DH     ; KONSTANTY
   59	  000A                          LF      EQU     0AH
   60	  007F                          DEL     EQU     7FH     ; DELETE
   61	  0003                          ETX     EQU     03H
   62	  0009                          HT      EQU     9       ; TAB
   63	  0010                          PREAM   EQU     10H     ; PREAMBLE/POSTAMBLE
   64	  001A                          SUBS    EQU     1AH     ; END FLAG
   65	  001D                          HOME    EQU     1DH
   66	  001E                          ERS     EQU     1EH
   67	                                ;
   68	  00DF                          SPREC   EQU     0DFH    ;KONSTANTY RIZENI
   69	  00FB                          SPSTART EQU     0FBH    ;SP-210
   70	  007F                          SPSTOP  EQU     7FH
   71	  00EF                          SPPAUS  EQU     0EFH
   72	  00BF                          SPREWZ  EQU     0BFH
   73	  00F7                          SPREWK  EQU     0F7H
   74	  008B                          SPRS    EQU     8BH     ;RIDICI SLOVO 8255
   75	                                
   76	                                ; SER. I/O
   77	  0013                          URES    EQU     13H
   78	  0012                          UDATA   EQU     12H
   79	  0011                          USTAT   EQU     11H
   80	  0010                          UMODE   EQU     10H
   81	                                
   82	                                ;PARAREL. I/O
   83	  0037                          SPC     EQU     37H
   84	  0035                          SPIN    EQU     35H
   85	  0034                          SPOUT   EQU     34H
   86	                                
   87	                                ; BLOKOVA NAVESTI
   88	  0000                          EOL     EQU     0       ; "END OF RECORDS"
   89	  0001                          SOH     EQU     01H     ; "START OF HEADER"
   90	  0004                          EOT     EQU     04H     ; "END OF TEXT"
   91	  003A                          CAN     EQU     ':'     ; JMENO PASKY
   92	                                ;               'A'     ; DATOVY (ASCII) BLOK
   93	                                ;               'B'     ; BINARNI BLOK
   94	                                
   95	                                ;
   96	                                ;******************************************
   97	  0000                                  ASEG
   98	                                        ORG     EPROM   ;START
   99	                                ;******************************************
  100	                                ;
  101	                                ;====================================
  102	                                ;  T A B U L K A  S L U Z E B  K O S
  103	                                ;====================================
  104	                                ;
  105	                                
  106	  0C00    C3 0C8D                       JMP     MICOS
  107	  0C03    C3 0C2A                       JMP     INITS   ; INIT SYSTEM
  108	  0C06    C3 0DB7                       JMP     FIND    ; 1
  109	  0C09    C3 0D50                       JMP     OPEN    ; 2
  110	  0C0C    C3 0E86                       JMP     CLOSE   ; 3
  111	  0C0F    C3 0DEE                       JMP     LOAD    ; 4
  112	  0C12    C3 0E4F                       JMP     SAVE    ; 5
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-2


  113	  0C15    C3 0D08                       JMP     BINAR   ; 6
  114	  0C18    C3 128E               ZAC:    JMP     GET@    ; 7
  115	  0C1B    C3 0CE3                       JMP     MOTA    ; 8
  116	  0C1E    C3 12E3                       JMP     PUT@    ; 9
  117	  0C21    C3 0CF8                       JMP     STOP    ; 10
  118	                                ;
  119	  0024                          MAXSL   EQU     $-EPROM
  120	                                ;
  121	  0C24    50 45 52 49           CAS:    DC      'PERINA'
  122	  0C28    4E C1                 
  123	                                ;
  124	                                ;====================================
  125	                                ;  INICIALIZACE SYSTEMU KOS
  126	                                ;====================================
  127	                                ;
  128	  0C2A                          INITS:
  129	  0C2A    3E A9                         MVI     A,0A9H  ; LO=L,RI-1,PO-1
  130	  0C2C    32 4158                       STA     FND     ; NE FIND MODE
  131	  0C2F    32 40E2                       STA     IOBYT
  132	  0C32    CD 0151                       CALL    TXIMM   ; OHLASENI
  133	  0C35    4D 49 4B 4F                   DB      'MIKOS V5.0 '
  134	  0C39    53 20 56 35           
  135	  0C3D    2E 30 20              
  136	  0C40    28 43 29 20                   DC      '(C) TESLA DIZ 1987'
  137	  0C44    54 45 53 4C           
  138	  0C48    41 20 44 49           
  139	  0C4C    5A 20 31 39           
  140	  0C50    38 B7                 
  141	  0C52    21 0C7C                       LXI     H,KOS@@
  142	  0C55    22 40D1                       SHLD    KOS@+1
  143	  0C58    3E 8B                         MVI     A,SPRS  ; RIDICI SLOVO PRO
  144	  0C5A    D3 37                         OUT     SPC     ; SP-210
  145	  0C5C    AF                            XRA     A
  146	  0C5D    32 40E4                       STA     @IF1    ; FIND FLAG
  147	  0C60    32 40E6                       STA     @OF1
  148	  0C63    32 427B                       STA     TSP     ; NASTAV SP-210
  149	  0C66    21 0C18                       LXI     H,ZAC   ; VYPLN IODEF
  150	  0C69    11 40AC                       LXI     D,R1LOC
  151	  0C6C    06 0C                         MVI     B,12
  152	  0C6E    CD 1106                       CALL    MOVE
  153	  0C71    3A 1800                       LDA     EP3     ; USER SYSTEM ?
  154	  0C74    FE C3                         CPI     0C3H
  155	  0C76    CC 1803                       CZ      EP3 + 3 ; START
  156	  0C79    C3 0CF8                       JMP     STOP
  157	                                ;
  158	                                ;====================================
  159	                                ;  VYHODNOCENI SLUZBY MONITORU
  160	                                ;====================================
  161	                                ;
  162	  0C7C    0C                    KOS@@:  INR     C
  163	  0C7D    11 0C00                       LXI     D,EPROM
  164	  0C80    06 24                         MVI     B,MAXSL
  165	  0C82    EB                    SLUZBA: XCHG            ; JMENO
  166	  0C83    79                            MOV     A,C
  167	  0C84    81                            ADD     C
  168	  0C85    81                            ADD     C       ; *3
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-3


  169	  0C86    B8                            CMP     B
  170	  0C87    D0                            RNC             ; VETSI
  171	  0C88    06 00                         MVI     B,0
  172	  0C8A    4F                            MOV     C,A     ; OFFSET
  173	  0C8B    09                            DAD     B       ; VYPOCTI ADR
  174	  0C8C    E9                            PCHL
  175	                                ;
  176	                                ;====================================
  177	                                ; VUHODNOCENI POVELU OSLUHY
  178	                                ;====================================
  179	                                ;
  180	  0C8D    CD 0CF8               MICOS:  CALL    STOP
  181	  0C90    AF                            XRA     A
  182	  0C91    32 4101                       STA     EXTEXT  ; 0..NENI
  183	  0C94    0E 5F                         MVI     C,'_'
  184	  0C96    CD 10A1                       CALL    TTSP
  185	  0C99    C2 0C9E                       JNZ     $+5
  186	  0C9C    0E 3A                         MVI     C,':'
  187	  0C9E    CD 0109                       CALL    CO
  188	  0CA1    CD 10DA                       CALL    ECHOCR
  189	  0CA4    FE 44                         CPI     'D'
  190	  0CA6    CA 0D21                       JZ      DIR     ; DIRECTORY
  191	  0CA9    FE 49                         CPI     'I'
  192	  0CAB    CA 0EA8                       JZ      INIT    ; INICIALIZACE PASKY
  193	  0CAE    FE 4F                         CPI     'O'
  194	  0CB0    CA 0D50                       JZ      OPEN    ; OPEN OUTPUT
  195	  0CB3    FE 43                         CPI     'C'     ; CLOSE UOTPUT
  196	  0CB5    CA 0E86                       JZ      CLOSE
  197	  0CB8    FE 46                         CPI     'F'     ; FIND INPUT
  198	  0CBA    CA 0DB7                       JZ      FIND
  199	  0CBD    FE 53                         CPI     'S'
  200	  0CBF    CA 0E4F                       JZ      SAVE
  201	  0CC2    FE 4C                         CPI     'L'     ; LOAD
  202	  0CC4    CA 0DEE                       JZ      LOAD
  203	  0CC7    FE 4B                         CPI     'K'
  204	  0CC9    CA 0D16                       JZ      KONEC
  205	  0CCC    FE 58                         CPI     'X'
  206	  0CCE    CA 0F1F                       JZ      EXCH
  207	  0CD1    FE 3E                         CPI     '>'
  208	  0CD3    CA 0CE3                       JZ      MOTA
  209	  0CD6    FE 3C                         CPI     '<'
  210	  0CD8    CA 0F28                       JZ      REWIZ
  211	  0CDB    FE 52                         CPI     'R'
  212	  0CDD    CA 0F31                       JZ      REWIND
  213	  0CE0    FE 4D                         CPI     'M'     ; PREVIJENI
  214	  0CE2    C0                            RNZ             ; JINY POVEL
  215	                                
  216	                                ;
  217	                                ;************************************
  218	                                ; REALIZACE POVELU KOS-I
  219	                                ;************************************
  220	                                
  221	                                ;
  222	                                ;====================================
  223	                                ; PREVIN PASKU
  224	                                ;====================================
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-4


  225	                                ;
  226	  0CE3    CD 10A1               MOTA:   CALL    TTSP    ; TEST SP-210
  227	  0CE6    CA 0CF0                       JZ      REWIK   ; PRO SP-210
  228	  0CE9    3E 28                         MVI     A,28H   ; SEPNUTI RELE MGF.
  229	  0CEB    D3 10                         OUT     UMODE
  230	  0CED    C3 0CF5                       JMP     MOTA1
  231	  0CF0    3E F7                 REWIK:  MVI     A,SPREWK ; PREVINUTI NA KONEC
  232	  0CF2    CD 10B2                       CALL    SPPULS
  233	  0CF5    CD 10CE               MOTA1:  CALL    DONE
  234	  0CF8    CD 10A1               STOP:   CALL    TTSP    ; TEST SP-210
  235	  0CFB    3E 7F                         MVI     A,SPSTOP
  236	  0CFD    CC 10B2               STOP1:  CZ      SPPULS  ; PRO SP-210
  237	  0D00    3E 10                         MVI     A,10H
  238	  0D02    D3 10                         OUT     UMODE
  239	  0D04    32 427F                       STA     JEDE?
  240	  0D07    C9                            RET
  241	                                
  242	                                ;
  243	                                ;====================================
  244	                                ; BINARNI SOUBOR NASTAV
  245	                                ;====================================
  246	                                ;
  247	  0D08    3E 30                 BINAR:  MVI     A,30H
  248	  0D0A    CD 1079                       CALL    GAPO    ; START ZAPISU
  249	  0D0D    CD 10E3                       CALL    BTIM8
  250	  0D10    3E 42                         MVI     A,'B'
  251	  0D12    32 4159                       STA     BOUT-1
  252	  0D15    C9                            RET
  253	                                
  254	                                ;
  255	                                ;====================================
  256	                                ; ZAPIS KONEC PASKY
  257	                                ;====================================
  258	                                
  259	  0D16    CD 0F87               KONEC:  CALL    OK?     ; ANO ?
  260	  0D19    C0                            RNZ
  261	  0D1A    CD 10BE                       CALL    RECOR
  262	  0D1D    AF                            XRA     A
  263	  0D1E    C3 11F8                       JMP     WOBW    ; 00.. TYP
  264	                                
  265	                                ;
  266	                                ;====================================
  267	                                ; DIRECTORY:
  268	                                ;====================================
  269	                                ;
  270	  0D21    CD 1064               DIR:    CALL    PLAY
  271	  0D24    3C                            INR     A
  272	  0D25    CC 0F7A               DIR0:   CZ      VYPISH
  273	  0D28    AF                            XRA     A
  274	  0D29    EB                    DIR1:   XCHG
  275	  0D2A    22 4152                       SHLD    BNI     ; CISLO SOUBORU..
  276	  0D2D    0E 25                         MVI     C,'%'   ; CHYBA SEKVENCE
  277	  0D2F    C4 0109                       CNZ     CO
  278	  0D32    CD 110F                       CALL    SEARCH  ; HLAVICKA
  279	  0D35    CA 0D25                       JZ      DIR0
  280	  0D38    B7                            ORA     A
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-5


  281	  0D39    C2 0D42                       JNZ     DIR1A
  282	  0D3C    CD 0CF8                       CALL    STOP
  283	  0D3F    C3 0139                       JMP     NEXT
  284	  0D42    FE 04                 DIR1A:  CPI     EOT
  285	  0D44    C2 0D4A                       JNZ     DIR2
  286	  0D47    CD 0FB9                       CALL    DBTCR
  287	  0D4A    CD 1284               DIR2:   CALL    NUFIL
  288	  0D4D    C3 0D29                       JMP     DIR1
  289	                                
  290	                                ;
  291	                                ;====================================
  292	                                ; OPEN: OTEVRI NOVY SOUBOR PRO ZAPIS
  293	                                ;====================================
  294	                                ;
  295	  0D50    CD 101A               OPEN:   CALL    IOPO    ; NASTAV IOBYT
  296	  0D53    CD 1008                       CALL    NPO
  297	  0D56    F8                            RM              ; PO=SYSTEM..
  298	  0D57    0E 02                         MVI     C,2
  299	  0D59    C2 40D9                       JNZ     CCPM    ; USER=2
  300	  0D5C    CD 015A                       CALL    RNAME
  301	  0D5F    FE 40                         CPI     '@'     ; APPEND?
  302	  0D61    CA 0DAF                       JZ      OPE5
  303	  0D64    FE 2E                         CPI     '.'
  304	  0D66    F5                            PUSH    PSW
  305	  0D67    CC 0F31                       CZ      REWIND
  306	  0D6A    F1                            POP     PSW
  307	  0D6B    3A 40E6                       LDA     @OF1    ; PODRUHE?
  308	  0D6E    B7                            ORA     A
  309	  0D6F    F5                            PUSH    PSW     ; =====================
  310	  0D70    C4 0E86                       CNZ     CLOSE   ; UZAVRI A PRIPOJ DALSI
  311	  0D73    F1                            POP     PSW     ; DALSI SOUBOR
  312	  0D74    C2 0D97                       JNZ     OPE4    ; =====================
  313	  0D77    E5                            PUSH    H
  314	  0D78    CD 1064                       CALL    PLAY
  315	  0D7B    CD 110F               OPE1:   CALL    SEARCH  ; KONEC ZAZNAMU ?
  316	  0D7E    CC 0F7A                       CZ      VYPISH  ; SOH
  317	  0D81    7A                            MOV     A,D
  318	  0D82    32 4151                       STA     BTO     ; CISLO SOUBORU
  319	  0D85    3A 4159                       LDA     BOUT-1  ; ANO
  320	  0D88    FE 04                         CPI     EOT
  321	  0D8A    CA 0D8F                       JZ      OPE3    ; DALSI BLOK
  322	  0D8D    FE 3A                         CPI     CAN
  323	  0D8F    CC 0F87               OPE3:   CZ      OK?
  324	  0D92    C2 0D7B                       JNZ     OPE1    ; DALSI BLOK
  325	  0D95    E1                            POP     H
  326	  0D96    3E                            DB      3EH
  327	  0D97    AF                    OPE4:   XRA     A       ; APPEND
  328	  0D98    E5                            PUSH    H
  329	  0D99    2A 4150                       LHLD    BNO     ; CISLO SOUBORU
  330	  0D9C    24                            INR     H
  331	  0D9D    2E 00                         MVI     L,0
  332	  0D9F    22 4150                       SHLD    BNO     ; CISLO BLOKU A SOUBORU
  333	  0DA2    B7                            ORA     A       ; APPEND?
  334	  0DA3    C4 10BE                       CNZ     RECOR
  335	  0DA6    3E 01                         MVI     A,SOH
  336	  0DA8    32 40E6                       STA     @OF1
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-6


  337	  0DAB    E1                            POP     H
  338	  0DAC    C3 0EF3                       JMP     WRNAM
  339	                                
  340	  0DAF    3E 08                 OPE5:   MVI     A,8     ; NASTAV PO=1
  341	  0DB1    CD 1020                       CALL    IOPO1
  342	  0DB4    C3 0D97                       JMP     OPE4
  343	                                
  344	                                ;
  345	                                ;====================================
  346	                                ; FIND: OTEVRI SOUBOR PRO CTENI
  347	                                ;====================================
  348	                                ;
  349	  0DB7    CD 1025               FIND:   CALL    IORI
  350	  0DBA    CD 1014                       CALL    NRI
  351	  0DBD    F8                            RM              ; SYSTEM RI
  352	  0DBE    0E 01                         MVI     C,1
  353	  0DC0    C2 40D9                       JNZ     CCPM    ; USER 2
  354	  0DC3    CD 015A                       CALL    RNAME
  355	  0DC6    FE 2E                         CPI     '.'
  356	  0DC8    F5                            PUSH    PSW
  357	  0DC9    CC 0F31                       CZ      REWIND
  358	  0DCC    F1                            POP     PSW
  359	  0DCD    06 0B                         MVI     B,NAMLE
  360	  0DCF    11 4144                       LXI     D,FNAME
  361	  0DD2    CD 1106                       CALL    MOVE
  362	  0DD5    CD 0FFA                       CALL    EXT?
  363	  0DD8    C4 1064                       CNZ     PLAY
  364	  0DDB    CD 0F4F                       CALL    CMPNM
  365	  0DDE    3E 01                         MVI     A,1
  366	  0DE0    5F                            MOV     E,A
  367	  0DE1    EB                            XCHG
  368	  0DE2    22 4152                       SHLD    BNI     ; CISLO SOUBORU
  369	  0DE5    32 40E4                       STA     @IF1
  370	  0DE8    3E 58                         MVI     A,LOW(BIEND-1)
  371	  0DEA    32 4156                       STA     ADRI
  372	  0DED    C9                            RET
  373	                                
  374	                                ;
  375	                                ;====================================
  376	                                ; LOAD BINARNI SOUBOR
  377	                                ;====================================
  378	                                ;
  379	  0DEE    CD 0DB7               LOAD:   CALL    FIND    ; OTEVRI SOUBOR
  380	  0DF1    CD 1333               LO1:    CALL    RICH
  381	  0DF4    B7                            ORA     A       ; BLANK?
  382	  0DF5    CA 0DF1                       JZ      LO1
  383	  0DF8    D6 3C                         SUI     '<'
  384	  0DFA    C2 1324                       JNZ     ERSTP   ; NENI BINARNI FORMAT
  385	  0DFD    47                            MOV     B,A     ; KONTROLNI SOUCET
  386	  0DFE    CD 132A                       CALL    RADR@
  387	  0E01    22 40FE                       SHLD    EADR    ; KONCOVA ADRESA
  388	  0E04    EB                            XCHG
  389	  0E05    CD 132A                       CALL    RADR@
  390	  0E08    22 40FC                       SHLD    SADR    ; START. ADRESA
  391	  0E0B    CD 1333                       CALL    RICH
  392	  0E0E    FE 3E                         CPI     '>'
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-7


  393	  0E10    C2 1324                       JNZ     ERSTP   ; NENI BINAR
  394	  0E13    E5                            PUSH    H
  395	  0E14    CD 131E                       CALL    CHECK
  396	  0E17    06 00                         MVI     B,0     ; NULUJ
  397	  0E19    CD 1333               LO2:    CALL    RICH
  398	  0E1C    77                            MOV     M,A
  399	  0E1D    CD 0136                       CALL    HILO
  400	  0E20    D2 0E19                       JNC     LO2
  401	  0E23    CD 131E                       CALL    CHECK
  402	  0E26    32 4100                       STA     SUM
  403	  0E29    E1                            POP     H
  404	  0E2A    11 4401                       LXI     D,4401H
  405	  0E2D    CD 0136                       CALL    HILO
  406	  0E30    C2 0E39                       JNZ     CLSTP
  407	  0E33    21 0000                       LXI     H,0
  408	  0E36    22 40FA                       SHLD    @BT
  409	                                
  410	                                ; UZAVRI VSTUPNI SOUBOR
  411	  0E39    CD 0124               CLSTP:  CALL    CRLF
  412	  0E3C    CD 1014                       CALL    NRI
  413	  0E3F    F8                            RM
  414	  0E40    C2 0E4A                       JNZ     CLST2
  415	  0E43    AF                    DIRSTP: XRA     A
  416	  0E44    32 40E4                       STA     @IF1    ; CLOSE
  417	  0E47    C3 0CF8                       JMP     STOP
  418	  0E4A    AF                    CLST2:  XRA     A
  419	  0E4B    32 40E5                       STA     @IF2
  420	  0E4E    C9                            RET
  421	                                ;
  422	                                ;====================================
  423	                                ; SAVE ULOZ BINARNI SOUBOR
  424	                                ;====================================
  425	                                ;
  426	  0E4F    CD 0D50               SAVE:   CALL    OPEN
  427	  0E52    0E 02                         MVI     C,2
  428	  0E54    CD 0127                       CALL    EXPR    ; ROZSAH ADRES
  429	  0E57    CD 1008                       CALL    NPO
  430	  0E5A    CC 0D08                       CZ      BINAR
  431	  0E5D    0E 3C                         MVI     C,'<'   ; PRVNI BYTE
  432	  0E5F    CD 1341                       CALL    POCH
  433	  0E62    06 00                         MVI     B,0     ; KONTROLNI SOUCET
  434	  0E64    E1                            POP     H       ; POCATECNI ADRESA
  435	  0E65    D1                            POP     D       ; KONCOVA ADRESA
  436	  0E66    CD 133C                       CALL    PADR@
  437	  0E69    EB                            XCHG
  438	  0E6A    CD 133C                       CALL    PADR@
  439	  0E6D    0E 3E                         MVI     C,'>'
  440	  0E6F    CD 1341                       CALL    POCH
  441	  0E72    48                            MOV     C,B     ; KONTROLNI SUMA ADRES
  442	  0E73    CD 1341                       CALL    POCH
  443	                                ;
  444	  0E76    06 00                         MVI     B,0     ; KONTROLNI SUMA DAT
  445	  0E78    4E                    SAV1:   MOV     C,M
  446	  0E79    CD 1341                       CALL    POCH
  447	  0E7C    CD 0136                       CALL    HILO
  448	  0E7F    D2 0E78                       JNC     SAV1
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-8


  449	  0E82    48                            MOV     C,B     ; SUMA
  450	  0E83    CD 1341                       CALL    POCH
  451	                                ;
  452	                                ;====================================
  453	                                ; SLOSE: UZAVRI VSTUPNI SOUBOR
  454	                                ;====================================
  455	                                ;
  456	  0E86    CD 1008               CLOSE:  CALL    NPO
  457	  0E89    F8                            RM
  458	  0E8A    0E 03                         MVI     C,3
  459	  0E8C    C2 40D9                       JNZ     CCPM
  460	  0E8F    3A 40E6               CLOSE0: LDA     @OF1    ; NENI OTEVREN
  461	  0E92    B7                            ORA     A
  462	  0E93    C8                            RZ
  463	  0E94    E5                            PUSH    H
  464	  0E95    2A 4154                       LHLD    ADRO
  465	  0E98    23                            INX     H
  466	  0E99    36 1A                         MVI     M,SUBS  ; ZAPIS POSLEDNI ZNAK
  467	  0E9B    3E 04                         MVI     A,EOT   ; UZAVRI BLOK
  468	  0E9D    CD 11F8                       CALL    WOBW
  469	  0EA0    AF                            XRA     A
  470	  0EA1    32 40E6                       STA     @OF1    ; CLOSE
  471	  0EA4    E1                            POP     H
  472	  0EA5    C3 0CF8                       JMP     STOP
  473	                                
  474	                                ;
  475	                                ;====================================
  476	                                ; INICIALIZUJ NOVOU KAZETU
  477	                                ;====================================
  478	                                ;
  479	  0EA8    CD 10A1               INIT:   CALL    TTSP
  480	  0EAB    C2 0EC2                       JNZ     INIT2   ; PRO K-10
  481	  0EAE    CD 0F31                       CALL    REWIND
  482	  0EB1    CD 10A6                       CALL    RECPUL
  483	  0EB4    06 04                         MVI     B,4
  484	  0EB6    3E FA                 INIT1:  MVI     A,250
  485	  0EB8    CD 10F6                       CALL    TIME    ; CEKANI 4*2.5 SEC.
  486	  0EBB    05                            DCR     B
  487	  0EBC    C2 0EB6                       JNZ     INIT1
  488	  0EBF    C3 0EDC                       JMP     INIT3
  489	  0EC2    3E 28                 INIT2:  MVI     A,28H   ; SEPNUTI RELE MGF.
  490	  0EC4    D3 10                         OUT     UMODE
  491	  0EC6    CD 0151                       CALL    TXIMM
  492	  0EC9    20 50 52 45                   DC      ' PREVIN A ZAPNI '
  493	  0ECD    56 49 4E 20           
  494	  0ED1    41 20 5A 41           
  495	  0ED5    50 4E 49 A0           
  496	  0ED9    CD 10BE                       CALL    RECOR
  497	  0EDC    CD 1279               INIT3:  CALL    XSTOP
  498	  0EDF    CD 0151                       CALL    TXIMM
  499	  0EE2    20 5A 41 44                   DC      ' ZADEJ'
  500	  0EE6    45 CA                 
  501	  0EE8    21 0000                       LXI     H,0     ;0..CISLO SOUBORU
  502	  0EEB    22 4150                       SHLD    BNO
  503	  0EEE    CD 015A                       CALL    RNAME
  504	  0EF1    3E 3A                         MVI     A,CAN
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-9


  505	                                
  506	                                ;
  507	                                ; ZAPIS JMENO SOUBORU
  508	                                ;
  509	  0EF3    F5                    WRNAM:  PUSH    PSW
  510	  0EF4    E5                            PUSH    H       ; ADRESA JMENA
  511	  0EF5    CD 125B                       CALL    NULBF
  512	  0EF8    23                            INX     H
  513	  0EF9    06 40                         MVI     B,COMLE ; JMENO+POZNAMKA
  514	  0EFB    EB                            XCHG
  515	  0EFC    E1                            POP     H
  516	  0EFD    D5                            PUSH    D
  517	  0EFE    CD 1106                       CALL    MOVE
  518	  0F01    E1                            POP     H
  519	  0F02    06 0B                         MVI     B,NAMLE
  520	  0F04    11 4259                       LXI     D,WRNM  ; VYSTUPNI POLE
  521	  0F07    7E                    WRN1:   MOV     A,M
  522	  0F08    E6 3F                         ANI     3FH     ; KOD PRO AND-1
  523	  0F0A    C2 0F0F                       JNZ     $+5
  524	  0F0D    3E 20                         MVI     A,' '   ; BLANK
  525	  0F0F    12                            STAX    D
  526	  0F10    23                            INX     H
  527	  0F11    13                            INX     D
  528	  0F12    05                            DCR     B
  529	  0F13    C2 0F07                       JNZ     WRN1
  530	  0F16    F1                            POP     PSW
  531	  0F17    CD 11F8                       CALL    WOBW
  532	  0F1A    36 41                         MVI     M,'A'   ; TYP DATA
  533	  0F1C    C3 0124                       JMP     CRLF
  534	                                
  535	                                ;
  536	                                ;====================================
  537	                                ; PREPNUTI K-10 / SP-210
  538	                                ;====================================
  539	                                ;
  540	  0F1F    3A 427B               EXCH:   LDA     TSP
  541	  0F22    EE FF                         XRI     0FFH
  542	  0F24    32 427B                       STA     TSP
  543	  0F27    C9                            RET
  544	                                ;
  545	                                ;====================================
  546	                                ; PREVINUTI NA ZACATEK - RUCNI STOP
  547	                                ;====================================
  548	                                ;
  549	  0F28    CD 10A1               REWIZ:  CALL    TTSP
  550	  0F2B    C0                            RNZ             ; NENI SP-210
  551	  0F2C    3E BF                         MVI     A,SPREWZ
  552	  0F2E    C3 0CF2                       JMP     REWIK+2
  553	                                ;
  554	                                ;====================================
  555	                                ; PREVINUTI NA ZACATEK - AUTOMATICKY
  556	                                ;====================================
  557	                                ;
  558	  0F31    CD 10A1               REWIND: CALL    TTSP
  559	  0F34    C0                            RNZ             ; NENI SP-210
  560	  0F35    3E BF                         MVI     A,SPREWZ
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-10


  561	  0F37    CD 10B2                       CALL    SPPULS
  562	  0F3A    3E C8                         MVI     A,200
  563	  0F3C    CD 10F6                       CALL    TIME    ; CEKANI 2 SEC.
  564	  0F3F    CD 104D               REWI1:  CALL    BREAK@
  565	  0F42    DB 35                         IN      SPIN    ; STAV SP-210
  566	  0F44    FE F7                         CPI     0F7H    ; TEST STOPU
  567	  0F46    C2 0F3F                       JNZ     REWI1   ; JESTLI NENI STOP
  568	  0F49    C3 0CF8                       JMP     STOP
  569	                                
  570	                                ;
  571	                                ;====================================
  572	                                
  573	                                ; TEST NA JMENO
  574	                                ;
  575	  0F4C    CD 0F9B                       CALL    PHDR
  576	  0F4F    CD 110F               CMPNM:  CALL    SEARCH  ; POROVNEJ JMENO
  577	  0F52    C2 0F4F                       JNZ     CMPNM   ; NENI HLAVICKA
  578	  0F55    FE 3A                         CPI     CAN
  579	  0F57    CA 0F4C                       JZ      CMPNM-3 ; VYPIS VOLUME JMENO
  580	                                                        ; PRO ZAPIS
  581	  0F5A    01 4144               CPF10:  LXI     B,FNAME
  582	  0F5D    1E 0B                         MVI     E,NAMLE
  583	  0F5F    CD 0F66                       CALL    TESTJM
  584	  0F62    C2 0F4F                       JNZ     CMPNM   ; DALSI JMENO
  585	  0F65    C9                            RET
  586	                                ;
  587	  0F66    23                    TESTJM: INX     H       ; JMENO
  588	  0F67    0A                            LDAX    B
  589	  0F68    FE 2A                         CPI     '*'
  590	  0F6A    CA 0F84                       JZ      JMENO?
  591	  0F6D    CD 1000                       CALL    @ANAL
  592	  0F70    CA 0F7A                       JZ      VYPISH
  593	  0F73    BE                            CMP     M
  594	  0F74    C0                            RNZ
  595	  0F75    03                            INX     B
  596	  0F76    1D                            DCR     E
  597	  0F77    C2 0F66                       JNZ     TESTJM
  598	                                
  599	                                
  600	                                ;
  601	                                ; VYPIS HLAVICKU
  602	                                ;
  603	  0F7A    D5                    VYPISH: PUSH    D
  604	  0F7B    21 4159                       LXI     H,BIN-1
  605	  0F7E    CD 0F9B                       CALL    PHDR
  606	  0F81    D1                    VIP1:   POP     D
  607	  0F82    AF                            XRA     A
  608	  0F83    C9                            RET
  609	                                ;
  610	                                
  611	  0F84    CD 0F7A               JMENO?: CALL    VYPISH
  612	                                ; ANO / NE
  613	  0F87    CD 0151               OK?:    CALL    TXIMM
  614	  0F8A    2D 2D 28 41                   DC      '--(A/N)?'
  615	  0F8E    2F 4E 29 BF           
  616	  0F92    CD 10DA                       CALL    ECHOCR
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-11


  617	  0F95    FE 41                         CPI     'A'     ; PISMENA
  618	  0F97    C8                            RZ
  619	  0F98    FE 59                         CPI     'Y'
  620	  0F9A    C9                            RET
  621	                                
  622	                                
  623	                                ;
  624	                                ; TISK HLAVICKY SOUBORU
  625	                                ;----------------------
  626	  0F9B    CD 0124               PHDR:   CALL    CRLF
  627	  0F9E    23                            INX     H
  628	  0F9F    16 40                         MVI     D,COMLE
  629	  0FA1    C3 0142                       JMP     TEXT
  630	                                
  631	                                
  632	                                ;
  633	                                ; "OKNA" V MIKOSU PRO IDEVTIFIKACI BLOKU
  634	                                
  635	  0FA4    21 4264               PNAME:  LXI     H,READNM ; VYPIS "B"ZNAKU Z POLE
  636	  0FA7    7E                    PNAM1:  MOV     A,M      ; READNM NA CO
  637	  0FA8    FE 1F                         CPI     1FH
  638	  0FAA    D2 0FAF                       JNC     PNAM2
  639	  0FAD    C6 40                         ADI     40H     ; KOD SAPI-1 NA ASCII
  640	  0FAF    4F                    PNAM2:  MOV     C,A
  641	  0FB0    CD 0109                       CALL    CO
  642	  0FB3    23                            INX     H
  643	  0FB4    05                            DCR     B
  644	  0FB5    C2 0FA7                       JNZ     PNAM1
  645	  0FB8    C9                            RET
  646	                                
  647	                                
  648	  0FB9    CD 0124               DBTCR:  CALL    CRLF
  649	  0FBC    7A                    DBTV:   MOV     A,D
  650	  0FBD    CD 0133                       CALL    DBYT
  651	  0FC0    CD 013C               DBTV1:  CALL    SPACE
  652	  0FC3    7B                            MOV     A,E
  653	  0FC4    CD 0133                       CALL    DBYT
  654	  0FC7    C3 013C                       JMP     SPACE
  655	                                
  656	                                
  657	  0FCA    2A 427C               OBNOV:  LHLD    POSICE  ; VRACENI OKNA
  658	  0FCD    CD 0151                       CALL    TXIMM
  659	  0FD0    9B                            DB      9BH     ; ESC
  660	  0FD1    4D                            MOV     C,L
  661	  0FD2    CD 0109                       CALL    CO
  662	  0FD5    4C                            MOV     C,H
  663	  0FD6    CD 0109                       CALL    CO
  664	  0FD9    3A 427E                       LDA     MOD@
  665	  0FDC    32 40E3                       STA     MODE
  666	  0FDF    C9                            RET
  667	                                
  668	                                
  669	  0FE0    D5                    OKNO:   PUSH    D       ; NASTAVENI OKNA
  670	  0FE1    21 40E3                       LXI     H,MODE
  671	  0FE4    7E                            MOV     A,M
  672	  0FE5    36 00                         MVI     M,0     ; ZRUS ^P
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-12


  673	  0FE7    32 427E                       STA     MOD@
  674	  0FEA    CD 0121                       CALL    SPCL
  675	  0FED    21 2020                       LXI     H,2020H
  676	  0FF0    19                            DAD     D
  677	  0FF1    22 427C                       SHLD    POSICE
  678	  0FF4    CD 0151                       CALL    TXIMM
  679	  0FF7    9D                            DB      HOME OR 80H
  680	  0FF8    D1                            POP     D
  681	  0FF9    C9                            RET
  682	                                
  683	                                
  684	                                ; JE EXTERNI JMENO '"' ?
  685	                                
  686	  0FFA    3A 4101               EXT?:   LDA     EXTEXT
  687	  0FFD    FE 22                         CPI     '"'
  688	  0FFF    C9                            RET
  689	                                ;
  690	                                ; ANALIZA ODDELOVACU
  691	                                ;
  692	  1000    FE 20                 @ANAL:  CPI     20H
  693	  1002    C8                            RZ
  694	  1003    FE 0D                 ANAL:   CPI     CR
  695	  1005    C8                            RZ
  696	  1006    B7                            ORA     A
  697	  1007    C9                            RET
  698	                                ;
  699	                                
  700	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  701	                                ;
  702	                                ; TEST NA IOBYTE (PO)
  703	                                ;
  704	  1008    3A 40E2               NPO:    LDA     IOBYT
  705	  100B    0F                            RRC
  706	  100C    0F                            RRC
  707	  100D    0F                    NRI1:   RRC
  708	  100E    0F                            RRC
  709	  100F    E6 03                         ANI     3       ; ZARIZENI
  710	  1011    3D                            DCR     A       ; MINUS .. SYSTEM
  711	  1012    3D                            DCR     A       ; ZY.. USER=1
  712	  1013    C9                            RET             ; NZ.. USER=2
  713	                                ;
  714	                                ; TEST NA IOBYTE (RI)
  715	                                ;
  716	  1014    3A 40E2               NRI:    LDA     IOBYT
  717	  1017    C3 100D                       JMP     NRI1
  718	                                ;
  719	                                ; NASTAV IOBYTE PODLE OPTION
  720	                                ;
  721	  101A    CD 1037               IOPO:   CALL    CISLO
  722	  101D    D8                            RC
  723	  101E    07                            RLC
  724	  101F    07                            RLC
  725	  1020    0E CF                 IOPO1:  MVI     C,0CFH  ; MASKA
  726	  1022    C3 102B                       JMP     ZMIO
  727	                                ;
  728	  1025    CD 1037               IORI:   CALL    CISLO
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-13


  729	  1028    D8                            RC
  730	  1029    0E F3                         MVI     C,0F3H  ; MASKA
  731	  102B    07                    ZMIO:   RLC
  732	  102C    07                            RLC
  733	  102D    47                            MOV     B,A
  734	  102E    3A 40E2                       LDA     IOBYT
  735	  1031    A1                            ANA     C
  736	  1032    B0                            ORA     B
  737	  1033    32 40E2                       STA     IOBYT
  738	  1036    C9                            RET
  739	                                ;
  740	  1037    D6 30                 CISLO:  SUI     '0'
  741	  1039    D8                            RC              ; CY=1..NENI
  742	  103A    FE 03                         CPI     3
  743	  103C    3F                            CMC
  744	  103D    D8                            RC
  745	  103E    3C                            INR     A
  746	  103F    C9                            RET
  747	                                
  748	                                ;
  749	                                ; VYPIS TEXTU
  750	                                ;
  751	  1040    CD 0151               TXNAM:  CALL    TXIMM
  752	  1043    0D 0A                         DB      CR,LF
  753	  1045    20 4E 41 5A                   DC      ' NAZEV:'
  754	  1049    45 56 BA              
  755	  104C    C9                            RET
  756	                                
  757	                                
  758	  104D                          BREAK:
  759	  104D    CD 0112               BREAK@: CALL    CSTS
  760	  1050    C8                            RZ
  761	  1051    CD 0103                       CALL    CI
  762	  1054    C3 105B                       JMP     ETX?
  763	                                
  764	                                
  765	                                ; CTI A VYPIS ZNAK
  766	                                ;
  767	  1057    CD 013F               ECHO:   CALL    CINCR
  768	  105A    C8                            RZ
  769	  105B    FE 03                 ETX?:   CPI     ETX
  770	  105D    C0                            RNZ
  771	  105E    CD 0E43                       CALL    DIRSTP  ; CLOSE & STOP
  772	  1061    C3 0139                       JMP     NEXT    ; BREAK=>C
  773	                                
  774	                                ; ZOBRAZ "CTENI"
  775	                                
  776	  1064    CD 10A1               PLAY:   CALL    TTSP
  777	  1067    CA 1077                       JZ      START   ; PRO SP-210
  778	  106A    CD 0151                       CALL    TXIMM
  779	  106D    20 43 54 45                   DC      ' CTENI '
  780	  1071    4E 49 A0              
  781	  1074    CD 10CE               RECO:   CALL    DONE
  782	                                
  783	                                ;
  784	  1077                          START:
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-14


  785	  1077    3E 38                         MVI     A,38H   ; NASTAVENI MGF.
  786	  1079    4F                    GAPO:   MOV     C,A
  787	  107A    3A 427F                       LDA     JEDE?
  788	  107D    B7                            ORA     A
  789	  107E    C8                            RZ              ; MGF JEDE
  790	  107F    CD 10A1                       CALL    TTSP
  791	  1082    79                            MOV     A,C
  792	  1083    C2 1092                       JNZ     STAR2   ; PRO K-10
  793	  1086    F5                            PUSH    PSW     ; RIDICI SLOVO
  794	  1087    E6 0F                         ANI     0FH
  795	  1089    F5                            PUSH    PSW
  796	  108A    C4 10AD                       CNZ     SPGO    ; START CTENI
  797	  108D    F1                            POP     PSW
  798	  108E    CC 10A6                       CZ      RECPUL  ; START ZAPISU
  799	  1091    F1                            POP     PSW     ; 38 / 18
  800	  1092    D3 10                 STAR2:  OUT     UMODE
  801	  1094    D3 13                         OUT     URES    ; RESET UARTU
  802	  1096    3E 1F                         MVI     A,1FH
  803	  1098    D3 11                         OUT     USTAT   ; NASTAVENI PRENOSU
  804	  109A    DB 12                         IN      UDATA   ; NEPLATNA DATA
  805	  109C    AF                            XRA     A
  806	  109D    32 427F                       STA     JEDE?
  807	  10A0    C9                            RET
  808	                                ;
  809	                                
  810	                                ; TEST PRIPOJENI SP-210
  811	                                
  812	  10A1    3A 427B               TTSP:   LDA     TSP
  813	  10A4    B7                            ORA     A
  814	  10A5    C9                            RET             ; Z=1 PRO SP-210
  815	                                
  816	                                
  817	                                ; GENEROVANI RIDICIHO PULSU NA SP-210
  818	                                ;       VSTUP: A - RIDICI SLOVO
  819	                                
  820	  10A6    CD 10F4               RECPUL: CALL    T10MS
  821	  10A9    3E DF                         MVI     A,SPREC
  822	  10AB    D3 34                         OUT     SPOUT   ; ZAZNAM
  823	  10AD    CD 10F4               SPGO:   CALL    T10MS
  824	  10B0    3E FB                         MVI     A,SPSTART ; SPUSTENI
  825	  10B2    D3 34                 SPPULS: OUT     SPOUT
  826	  10B4    3E 15                         MVI     A,21
  827	  10B6    CD 10F6                       CALL    TIME    ; PULS DELKY 210 MS
  828	  10B9    3E FF                         MVI     A,0FFH
  829	  10BB    D3 34                         OUT     SPOUT   ; KONEC SIGNALU
  830	  10BD    C9                            RET
  831	                                
  832	                                
  833	                                ; ZOBRAZ "ZAPIS!"
  834	                                
  835	  10BE    CD 10A1               RECOR:  CALL    TTSP
  836	  10C1    C8                            RZ              ; PRO SP-210 NIC
  837	  10C2    CD 0151                       CALL    TXIMM
  838	  10C5    0D 0A                         DB      CR,LF
  839	  10C7    20 5A 41 50                   DC      ' ZAPIS!'
  840	  10CB    49 53 A1              
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-15


  841	                                ;
  842	  10CE    CD 0151               DONE:   CALL    TXIMM
  843	  10D1    20 48 4F 54                   DC      ' HOTOVO ?'
  844	  10D5    4F 56 4F 20           
  845	  10D9    BF                    
  846	  10DA    CD 1057               ECHOCR: CALL    ECHO
  847	  10DD    F5                            PUSH    PSW
  848	  10DE    CD 0124                       CALL    CRLF
  849	  10E1    F1                            POP     PSW
  850	  10E2    C9                            RET
  851	                                ;
  852	                                ; CASOVE PODPROGRAMY
  853	                                ;
  854	  10E3    3A 0C24               BTIM8:  LDA     CAS
  855	  10E6    47                            MOV     B,A     ; * 10 MS
  856	  10E7    7E                            MOV     A,M     ; 'B' ?
  857	  10E8    FE 42                         CPI     'B'
  858	  10EA    78                            MOV     A,B
  859	  10EB    C2 10F6                       JNZ     TIME
  860	  10EE    0F                            RRC
  861	  10EF    0F                            RRC
  862	  10F0    0F                            RRC             ; /8
  863	  10F1    C3 10F6                       JMP     TIME
  864	                                
  865	  10F4    3E 01                 T10MS:  MVI     A,1     ; PRO 10 MS
  866	  10F6    C5                    TIME:   PUSH    B       ; ACC*10MS (TCY=500NS)
  867	  10F7    01 041F               TIME1:  LXI     B,800+255
  868	  10FA    0B                    TIME2:  DCX     B       ; ( 5)
  869	  10FB    04                            INR     B       ; ( 5)
  870	  10FC    05                            DCR     B       ; ( 5)
  871	  10FD    C2 10FA                       JNZ     TIME2   ; (10) 10MS LOOP @ 12.5US
  872	  1100    3D                            DCR     A
  873	  1101    C2 10F7                       JNZ     TIME1
  874	  1104    C1                            POP     B
  875	  1105    C9                            RET
  876	                                
  877	                                ;
  878	                                ; PRESUN PAMETI
  879	                                ;
  880	  1106    7E                    MOVE:   MOV     A,M
  881	  1107    12                            STAX    D
  882	  1108    23                            INX     H
  883	  1109    13                            INX     D
  884	  110A    05                            DCR     B
  885	  110B    C2 1106                       JNZ     MOVE
  886	  110E    C9                            RET
  887	                                
  888	                                
  889	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  890	                                
  891	                                ; OPERACE SE SOUBORY
  892	                                
  893	                                ;====================================
  894	                                ; NAJDI BLOK NA PASCE
  895	                                ;====================================
  896	                                ;
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-16


  897	  110F    AF                    SEARCH: XRA     A
  898	  1110    0E 23                 SEAR1:  MVI     C,'#'   ; CHYBA
  899	  1112    DC 0109                       CC      CO
  900	  1115    CD 1126                       CALL    ZVYS
  901	  1118    CD 1347                       CALL    READF
  902	  111B    DA 1110                       JC      SEAR1   ; PRO CHYBU
  903	  111E    7E                            MOV     A,M
  904	  111F    B7                            ORA     A
  905	  1120    CA 0139                       JZ      NEXT    ; PRO KONEC SOUBORU
  906	  1123    C3 1145                       JMP     RIB2
  907	                                
  908	                                ;
  909	                                ; ZVIS CISLO BLOKU
  910	                                ;
  911	  1126    2A 4152               ZVYS:   LHLD    BNI
  912	  1129    23                            INX     H
  913	  112A    22 4152                       SHLD    BNI
  914	  112D    C9                            RET
  915	                                
  916	                                
  917	                                
  918	                                ;====================================
  919	                                ; CTI VSTUPNI BUFFER
  920	                                ;====================================
  921	                                ;
  922	  112E    D5                    RIB:    PUSH    D
  923	  112F    C5                            PUSH    B
  924	  1130    CD 1126                       CALL    ZVYS
  925	  1133    CD 134B                       CALL    READ
  926	  1136    DA 114B                       JC      ERRD    ; CHYBA
  927	  1139    CD 1284                       CALL    NUFIL   ; CISLO O.K. ?
  928	  113C    C2 114B                       JNZ     ERRD    ; CHYBA BLOKU
  929	  113F    C1                    RIB1:   POP     B
  930	  1140    D1                            POP     D
  931	  1141    21 4159                       LXI     H,BIN-1
  932	  1144    7E                            MOV     A,M
  933	  1145    FE 3A                 RIB2:   CPI     CAN     ; NAZEV PASKY
  934	  1147    C8                            RZ
  935	  1148    FE 01                         CPI     SOH     ; JMENO SOUBORU
  936	  114A    C9                            RET             ; (HL)..TYP BLOKU
  937	                                
  938	                                ;
  939	                                ; CHYBA  C T E N I
  940	                                ;
  941	  114B    CD 1279               ERRD:   CALL    XSTOP
  942	  114E    CD 10A1                       CALL    TTSP    ; PRO SP-210 1. OPRAVA
  943	  1151    06 64                         MVI     B,100
  944	  1153    CA 11B7                       JZ      ERR31   ; AUTOMATICKY "A"
  945	  1156    CD 0CF8               ERRD0:  CALL    STOP    ; ZPRACUJ CHYBU CTENI
  946	  1159    2A 4152                       LHLD    BNI
  947	  115C    EB                            XCHG
  948	  115D    CD 0FB9                       CALL    DBTCR   ; POZADOVANE CISLO
  949	  1160    CD 0151                       CALL    TXIMM
  950	  1163    0D 0A                         DB      CR,LF
  951	  1165    43 48 59 42                   DC      'CHYBA CTENI: I/D/N/A=ZNOVA ?'
  952	  1169    41 20 43 54           
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-17


  953	  116D    45 4E 49 3A           
  954	  1171    20 49 2F 44           
  955	  1175    2F 4E 2F 41           
  956	  1179    3D 5A 4E 4F           
  957	  117D    56 41 20 BF           
  958	  1181    CD 1057                       CALL    ECHO    ; POKRACUJ
  959	  1184    FE 4E                         CPI     'N'
  960	  1186    CA 11E1                       JZ      ERRD8
  961	  1189    FE 49                         CPI     'I'
  962	  118B    C2 1198                       JNZ     ERRD1
  963	  118E    3A 4153                       LDA     BTI
  964	  1191    3C                            INR     A
  965	  1192    32 4153                       STA     BTI     ; ZVIS CISLO SOUBORU
  966	  1195    C3 11CF                       JMP     ERRD7
  967	  1198    FE 44                 ERRD1:  CPI     'D'
  968	  119A    C2 11B5                       JNZ     ERRD3
  969	  119D    3A 4153                       LDA     BTI
  970	  11A0    3D                            DCR     A
  971	  11A1    32 4153                       STA     BTI
  972	  11A4    06 C8                 ERRD2:  MVI     B,200   ; PRO "D"
  973	  11A6    CD 11E7                       CALL    VRAT    ; NAVRAT O 2 SEC.
  974	  11A9    CD 1347                       CALL    READF
  975	  11AC    CD 1284                       CALL    NUFIL
  976	  11AF    D2 11A4                       JNC     ERRD2   ; JESTE VRACEJ
  977	  11B2    C3 11CF                       JMP     ERRD7
  978	  11B5    06 32                 ERRD3:  MVI     B,50    ; PRO "A" NAVRAT O 0.5 SEC
  979	  11B7    CD 11E7               ERR31:  CALL    VRAT
  980	  11BA    C3 11CF                       JMP     ERRD7
  981	  11BD    CD 0151               ERRD4:  CALL    TXIMM
  982	  11C0    0D 0A                         DB      CR,LF
  983	  11C2    56 52 41 54                   DC      'VRAT ZPET '
  984	  11C6    20 5A 50 45           
  985	  11CA    54 A0                 
  986	  11CC    CD 1064                       CALL    PLAY    
  987	  11CF    CD 1347               ERRD7:  CALL    READF   ; ZNOVA CTI
  988	  11D2    DA 11CF                       JC      ERRD7
  989	  11D5    CD 1284                       CALL    NUFIL   ; A HLEDEJ
  990	  11D8    CA 11E1                       JZ      ERRD8
  991	  11DB    D2 1156                       JNC     ERRD0   ; PREJEL
  992	  11DE    C3 11CF                       JMP     ERRD7   ; CTI DAL
  993	                                ;
  994	  11E1    CD 0124               ERRD8:  CALL    CRLF
  995	  11E4    C3 113F                       JMP     RIB1    ; JE TO DOBRE
  996	                                
  997	                                
  998	                                
  999	  11E7    CD 10A1               VRAT:   CALL    TTSP
 1000	  11EA    E1                            POP     H       ; NAVRATOVA ADRESA VRAT
 1001	  11EB    C2 11BD                       JNZ     ERRD4   ; PRO K-10
 1002	  11EE    E5                            PUSH    H       ; PRO SP-210 OK
 1003	  11EF    3E BF                         MVI     A,SPREWZ ; PREVIJENI VZAD
 1004	  11F1    CD 10B2                       CALL    SPPULS   ; DOBA VSTUPUJE V <A>
 1005	  11F4    78                            MOV     A,B
 1006	  11F5    C3 10F6                       JMP     TIME
 1007	                                
 1008	                                
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-18


 1009	                                ;====================================
 1010	                                ; ZAPIS VYSTUPNI BUFFER
 1011	                                ;====================================
 1012	                                ;
 1013	  11F8    32 4159               WOBW:   STA     BOUT-1
 1014	  11FB    D5                    WOB:    PUSH    D
 1015	  11FC    2A 4150                       LHLD    BNO
 1016	  11FF    23                            INX     H
 1017	  1200    22 4150                       SHLD    BNO
 1018	  1203    EB                            XCHG
 1019	                                ;
 1020	                                
 1021	                                ;*********************************************
 1022	                                ;  ZAPIS BLOKU: HL - ADRESA VYSTUPNIHO BUFFERU
 1023	                                ;*********************************************
 1024	                                ;
 1025	  1204    C5                    WRBLO:  PUSH    B
 1026	  1205    D5                            PUSH    D
 1027	  1206    21 4159                       LXI     H,BOUT-1 ; START BLOKU
 1028	  1209    3E 30                         MVI     A,30H
 1029	  120B    CD 1079                       CALL    GAPO    ; START WRITE
 1030	  120E    CD 10E3                       CALL    BTIM8   ; 800/100 MS
 1031	  1211    3A 40F1                       LDA     CASK
 1032	  1214    B7                            ORA     A
 1033	  1215    C4 10E3                       CNZ     BTIM8   ; PRODLOUZENO 2X
 1034	  1218    CD 13E2                       CALL    SEROP
 1035	  121B    CD 13E2                       CALL    SEROP
 1036	  121E    CD 13E2                       CALL    SEROP   ; PREAMBLE
 1037	  1221    01 0000                       LXI     B,(LENGHT+1) AND 0FFH
 1038	  1224    CD 13D8                       CALL    SEROM   ; DATA
 1039	  1227    21 4259                       LXI     H,WRNM
 1040	  122A    0E 0B                         MVI     C,NAMLE
 1041	  122C    CD 13D8                       CALL    SEROM   ; JMENO
 1042	  122F    D1                            POP     D
 1043	  1230    7B                            MOV     A,E
 1044	  1231    CD 13E4                       CALL    SEROUT  ; CISLO BLOKU
 1045	  1234    7A                            MOV     A,D
 1046	  1235    CD 13E4                       CALL    SEROUT  ; CISLO SOUBORU
 1047	  1238    78                            MOV     A,B
 1048	  1239    CD 13E4                       CALL    SEROUT  ; KONTROLNI SUMA
 1049	  123C    CD 13E2                       CALL    SEROP
 1050	  123F    AF                            XRA     A
 1051	  1240    CD 13E4                       CALL    SEROUT  ; ZAVER BLOKU
 1052	  1243    CD 0FE0                       CALL    OKNO
 1053	  1246    CD 0FC0                       CALL    DBTV1
 1054	  1249    CD 0FCA                       CALL    OBNOV
 1055	  124C    C1                            POP     B
 1056	  124D    CD 10F4                       CALL    T10MS   ; 10 MS
 1057	  1250    21 4159                       LXI     H,BOUT-1
 1058	  1253    22 4154                       SHLD    ADRO    ; ZACATEK
 1059	  1256    7E                            MOV     A,M
 1060	  1257    CD 126A                       CALL    ZASTAV
 1061	  125A    D1                            POP     D
 1062	                                
 1063	                                ;
 1064	                                ; NULUJ VYSTUPNI BUFFER
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-19


 1065	                                ;----------------------
 1066	                                ;
 1067	  125B    21 4159               NULBF:  LXI     H,BOUT-1
 1068	  125E    E5                            PUSH    H
 1069	  125F    3E FF                         MVI     A,LENGHT
 1070	  1261    23                            INX     H
 1071	  1262    36 00                         MVI     M,0
 1072	  1264    3D                            DCR     A
 1073	  1265    C2 1261                       JNZ     $-4
 1074	  1268    E1                            POP     H       ; (BLOK TYP) ADRM
 1075	  1269    C9                            RET
 1076	                                ;
 1077	                                ; ZASTAV NA KONCI BLOKU
 1078	                                ;
 1079	  126A    D6 42                 ZASTAV: SUI     'B'
 1080	  126C    C8                            RZ
 1081	  126D    3C                            INR     A
 1082	  126E    CA 1279                       JZ      XSTOP   ; 'A'
 1083	  1271    CD 10E3                       CALL    BTIM8
 1084	  1274    7E                            MOV     A,M
 1085	  1275    3D                            DCR     A       ; SOH ?
 1086	  1276    C2 0CF8                       JNZ     STOP    ; NENI SOH
 1087	                                
 1088	                                
 1089	                                ; VOLANI STOP NA K-10 / PAUSE NA SP-210
 1090	                                
 1091	  1279    CD 10A1               XSTOP:  CALL    TTSP
 1092	  127C    3E EF                         MVI     A,SPPAUS ; PAUSE NA SP-210
 1093	  127E    CA 0CFD                       JZ      STOP1
 1094	  1281    C2 0CF8                       JNZ     STOP    ; STOP NA K-10
 1095	                                
 1096	                                ;
 1097	                                ; CISLO BLOKU O.K. ?
 1098	                                ;
 1099	  1284    E5                    NUFIL:  PUSH    H
 1100	  1285    2A 4152                       LHLD    BNI
 1101	  1288    2B                            DCX     H
 1102	  1289    CD 0136                       CALL    HILO    ; POROVNEJ
 1103	  128C    E1                            POP     H
 1104	  128D    C9                            RET
 1105	                                
 1106	                                
 1107	                                ;====================================
 1108	                                ; CTI BYTE Z KAZETY
 1109	                                ;====================================
 1110	                                ;
 1111	  128E    C5                    GET@:   PUSH    B
 1112	  128F    D5                            PUSH    D
 1113	  1290    E5                            PUSH    H
 1114	  1291    3A 40E4                       LDA     @IF1    ; BYL OTEVREN SOUBOR?
 1115	  1294    B7                            ORA     A
 1116	  1295    CC 0DB7                       CZ      FIND    ; KDYZ NE, TAK FIND
 1117	  1298    2A 4156                       LHLD    ADRI
 1118	  129B    23                    GET0:   INX     H
 1119	  129C    7D                            MOV     A,L     ; PRAZDNY?
 1120	  129D    FE 59                         CPI     BIEND AND 0FFH
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-20


 1121	  129F    7E                            MOV     A,M
 1122	  12A0    22 4156                       SHLD    ADRI
 1123	  12A3    CA 12D1                       JZ      GET1    ; <A>..BYTE
 1124	  12A6    FE 1A                         CPI     SUBS    ; EOF? TEST
 1125	  12A8    C2 12CC                       JNZ     GETEX
 1126	  12AB    4F                            MOV     C,A
 1127	  12AC    CD 12DD                       CALL    KONEC?
 1128	  12AF    79                    GET00:  MOV     A,C     ; POSLEDNI BLOK
 1129	  12B0    C2 12CC                       JNZ     GETEX
 1130	  12B3    5D                            MOV     E,L     ; ADR ZNAKU SUBS
 1131	  12B4    21 4259                       LXI     H,BIEND ; HLEDEJ OD KONCE
 1132	  12B7    2B                    GET01:  DCX     H
 1133	  12B8    BE                            CMP     M       ; JE SUBS
 1134	  12B9    C2 12B7                       JNZ     GET01
 1135	  12BC    7D                            MOV     A,L
 1136	  12BD    93                            SUB     E       ; STEJNY ADR?
 1137	  12BE    C2 12AF                       JNZ     GET00   ;- NENI KONEC
 1138	                                ;
 1139	  12C1    AF                    GET2:   XRA     A
 1140	  12C2    32 40E4                       STA     @IF1    ; UZAVRI SOUBOR
 1141	  12C5    CD 0CF8                       CALL    STOP
 1142	  12C8    3E 1A                         MVI     A,SUBS
 1143	  12CA    37                            STC             ; CY=1
 1144	  12CB    06                            DB      6
 1145	  12CC    B7                    GETEX:  ORA     A
 1146	  12CD    E1                            POP     H
 1147	  12CE    D1                            POP     D
 1148	  12CF    C1                            POP     B
 1149	  12D0    C9                            RET
 1150	                                ;
 1151	  12D1    CD 12DD               GET1:   CALL    KONEC?
 1152	  12D4    C4 112E                       CNZ     RIB
 1153	  12D7    C2 129B                       JNZ     GET0    ; KONEC SOUBORU
 1154	  12DA    C3 12C1                       JMP     GET2
 1155	                                ; POSLEDNI BLOK ?
 1156	  12DD    3A 4159               KONEC?: LDA     BIN-1
 1157	  12E0    FE 04                         CPI     EOT
 1158	  12E2    C9                            RET             ; ZY=1...ANO
 1159	                                
 1160	                                
 1161	                                ;
 1162	                                ;====================================
 1163	                                ; ZAPIS BYTE NA KAZETU
 1164	                                ;====================================
 1165	                                ;
 1166	  12E3    CD 1309               PUT@:   CALL    PUTEND  ; JE ^Z ?
 1167	  12E6    DA 0E8F                       JC      CLOSE0
 1168	  12E9    C5                            PUSH    B
 1169	  12EA    D5                            PUSH    D
 1170	  12EB    E5                            PUSH    H
 1171	  12EC    3A 40E6                       LDA     @OF1    ; BYL OTEVREN?
 1172	  12EF    B7                            ORA     A
 1173	  12F0    C5                            PUSH    B
 1174	  12F1    CC 0D50                       CZ      OPEN    ; KDYZ NE, TAK OPEN
 1175	  12F4    C1                            POP     B
 1176	  12F5    2A 4154                       LHLD    ADRO
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-21


 1177	  12F8    23                            INX     H
 1178	  12F9    71                            MOV     M,C     ; ZAPIS
 1179	  12FA    22 4154                       SHLD    ADRO
 1180	  12FD    7D                            MOV     A,L
 1181	  12FE    FE 58                         CPI     (BOEND AND 0FFH)-1
 1182	  1300    CC 11FB                       CZ      WOB
 1183	  1303    E1                            POP     H
 1184	  1304    D1                            POP     D
 1185	  1305    C1                            POP     B
 1186	  1306    79                            MOV     A,C
 1187	  1307    B7                            ORA     A       ; NCY
 1188	  1308    C9                            RET
 1189	                                
 1190	  1309    3A 4159               PUTEND: LDA     BOUT-1
 1191	  130C    FE 42                         CPI     'B'
 1192	  130E    C8                            RZ
 1193	  130F    3A 40E3                       LDA     MODE
 1194	  1312    E6 02                         ANI     2
 1195	  1314    EE 02                         XRI     2
 1196	  1316    C8                            RZ
 1197	  1317    79                            MOV     A,C
 1198	  1318    FE 1A                         CPI     SUBS
 1199	  131A    37                            STC
 1200	  131B    C8                            RZ
 1201	  131C    B7                            ORA     A
 1202	  131D    C9                            RET
 1203	                                
 1204	                                
 1205	                                ;KONTROLNI SOUCET?
 1206	  131E    48                    CHECK:  MOV     C,B
 1207	  131F    CD 1333                       CALL    RICH
 1208	  1322    B9                            CMP     C
 1209	  1323    C8                            RZ
 1210	                                
 1211	                                ; ZASTAV A OHLAS CHYBU
 1212	  1324    CD 0CF8               ERSTP:  CALL    STOP
 1213	  1327    C3 012A                       JMP     ERROR
 1214	                                ;
 1215	  132A    CD 1333               RADR@:  CALL    RICH
 1216	  132D    6F                            MOV     L,A
 1217	  132E    CD 1333                       CALL    RICH    ; HL
 1218	  1331    67                            MOV     H,A
 1219	  1332    C9                            RET
 1220	                                ;
 1221	  1333    CD 0106               RICH:   CALL    RI      ; CTENI & SUMA
 1222	  1336    DA 1324                       JC      ERSTP
 1223	  1339    C3 13F1                       JMP     SUM@
 1224	                                ;
 1225	  133C    4D                    PADR@:  MOV     C,L
 1226	  133D    CD 1341                       CALL    POCH
 1227	  1340    4C                            MOV     C,H
 1228	                                ;
 1229	  1341    79                    POCH:   MOV     A,C     ; ZAPI & SUMA
 1230	  1342    80                            ADD     B
 1231	  1343    47                            MOV     B,A
 1232	  1344    C3 010C                       JMP     PO
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-22


 1233	                                
 1234	                                ;
 1235	                                ;********************************************
 1236	                                ; CTENI BLOKU:  HL - ADRESA VSTUPNIHO BUFFERU
 1237	                                ;      VYSTUP:  DE - CISLO SOUBORU A BLOKU
 1238	                                ;               CY=1 PRO CHYBU
 1239	                                ;********************************************
 1240	                                
 1241	                                ;
 1242	  1347    AF                    READF:  XRA     A       ; NASTAV FIND MOD
 1243	  1348    32 4158                       STA     FND
 1244	  134B                          READ:
 1245	  134B    C5                    RBLOK:  PUSH    B
 1246	  134C    21 4264                       LXI     H,READNM
 1247	  134F    CD 1077                       CALL    START
 1248	                                
 1249	                                ; SYNCHRONIZACE
 1250	                                
 1251	  1352    DB 12                 SYNC:   IN      UDATA
 1252	  1354    CD 10F4                       CALL    T10MS   ; 10 MS
 1253	  1357    CD 104D                       CALL    BREAK
 1254	  135A    DB 11                         IN      USTAT
 1255	  135C    07                            RLC
 1256	  135D    DA 1352                       JC      SYNC    ; CEKEJ NA READY
 1257	                                ;
 1258	  1360    0E 03                 RBL2:   MVI     C,3     ; 3*PREAMBLE
 1259	  1362    CD 13EE               RBL3:   CALL    SERIN
 1260	  1365    FE 10                         CPI     PREAM
 1261	  1367    C2 1352                       JNZ     SYNC
 1262	  136A    0D                            DCR     C
 1263	  136B    C2 1362                       JNZ     RBL3
 1264	  136E    0E 2A                         MVI     C,'*'
 1265	  1370    3A 4158                       LDA     FND     ; FIND MOD?
 1266	  1373    B7                            ORA     A
 1267	  1374    C2 1379                       JNZ     $+5     ; NECTE
 1268	  1377    0E 3A                         MVI     C,':'
 1269	  1379    71                            MOV     M,C
 1270	  137A    23                            INX     H
 1271	  137B    E5                            PUSH    H
 1272	  137C    21 4159                       LXI     H,BIN-1
 1273	  137F    01 0000                       LXI     B,(LENGHT+1) AND 0FFH
 1274	                                
 1275	                                ; CTI BLOK DAT
 1276	  1382    CD 13CE                       CALL    SERIM
 1277	  1385    E1                            POP     H
 1278	  1386    36 22                         MVI     M,'"'
 1279	  1388    23                            INX     H
 1280	  1389    0E 0B                         MVI     C,NAMLE
 1281	  138B    CD 13CE                       CALL    SERIM
 1282	  138E    36 22                         MVI     M,'"'
 1283	  1390    23                            INX     H
 1284	  1391    36 20                         MVI     M,' '
 1285	  1393    CD 13EE                       CALL    SERIN
 1286	  1396    5F                            MOV     E,A
 1287	  1397    CD 13EE                       CALL    SERIN
 1288	  139A    57                            MOV     D,A
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-23


 1289	  139B    48                            MOV     C,B     ; KONTROLNI SUMA
 1290	  139C    CD 13EE                       CALL    SERIN
 1291	  139F    91                            SUB     C
 1292	  13A0    F5                            PUSH    PSW
 1293	  13A1    CD 0FE0                       CALL    OKNO
 1294	  13A4    06 0F                         MVI     B,15
 1295	  13A6    CD 0FA4                       CALL    PNAME   ; VYPIS JMENA
 1296	  13A9    CD 0FBC                       CALL    DBTV
 1297	  13AC    CD 0FCA                       CALL    OBNOV
 1298	  13AF    21 4159                       LXI     H,BIN-1
 1299	  13B2    22 4156                       SHLD    ADRI    ; POCATECNI ADRESA
 1300	  13B5    3A 4158                       LDA     FND
 1301	  13B8    B7                            ORA     A
 1302	  13B9    7E                            MOV     A,M
 1303	  13BA    06 41                         MVI     B,'A'
 1304	  13BC    CA 13C0                       JZ      $+4
 1305	  13BF    04                            INR     B
 1306	  13C0    B8                            CMP     B
 1307	  13C1    DC 1279                       CC      XSTOP
 1308	  13C4    3E 15                         MVI     A,21
 1309	  13C6    32 4158                       STA     FND     ; ZRUS FIND MOD
 1310	  13C9    F1                            POP     PSW     ; PRO ZERO ..O.K
 1311	  13CA    C1                            POP     B
 1312	  13CB    C8                            RZ
 1313	  13CC    37                            STC
 1314	  13CD    C9                            RET             ; ELSE ...ERROR
 1315	                                
 1316	                                ;
 1317	                                ; ZAPIS DO PAMETI
 1318	                                ;
 1319	  13CE    CD 13EE               SERIM:  CALL    SERIN   ; CTI
 1320	  13D1    77                            MOV     M,A
 1321	  13D2    23                            INX     H
 1322	  13D3    0D                            DCR     C
 1323	  13D4    C2 13CE                       JNZ     SERIM
 1324	  13D7    C9                            RET
 1325	                                
 1326	                                ;
 1327	  13D8    7E                    SEROM:  MOV     A,M     ; Z PAMETI
 1328	  13D9    23                            INX     H
 1329	  13DA    CD 13E4                       CALL    SEROUT  ; NA :CT:
 1330	  13DD    0D                            DCR     C
 1331	  13DE    C2 13D8                       JNZ     SEROM
 1332	  13E1    C9                            RET             ; VSE
 1333	                                
 1334	  13E2    3E 10                 SEROP:  MVI     A,PREAM ; BLOCK-MARK
 1335	                                ;
 1336	                                ; ZAPIS ZNAMU NA MGF
 1337	                                ;
 1338	  13E4    CD 13F1               SEROUT: CALL    SUM@
 1339	  13E7    C5                            PUSH    B
 1340	  13E8    4F                            MOV     C,A
 1341	  13E9    CD 017E                       CALL    SERO@
 1342	  13EC    C1                            POP     B
 1343	  13ED    C9                            RET
 1344	                                ;
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-24


 1345	                                ; VSTUP ZNAKU Z MGF
 1346	                                
 1347	  13EE    CD 017B               SERIN:  CALL    SERI@
 1348	  13F1    F5                    SUM@:   PUSH    PSW
 1349	  13F2    80                            ADD     B
 1350	  13F3    47                            MOV     B,A
 1351	  13F4    CD 104D                       CALL    BREAK
 1352	  13F7    F1                            POP     PSW
 1353	  13F8    C9                            RET
 1354	                                
 1355	                                
 1356	                                
 1357	  13F9                          @E@KOS  EQU     $
 1358	                                        
 1359	                                ;
 1360	                                ;****************************************
 1361	                                ;  ROZDELENI  S Y S T E M O V E  R A M
 1362	                                ;****************************************
 1363	                                ;
 1364	  4000                          RST1    EQU     @R@     ; RESTART VEKTORY
 1365	                                ;........>>>
 1366	                                ;......
 1367	                                ;<<... UZIVATELSKY & MONITOR. ZASOBNIK
 1368	                                
 1369	                                
 1370	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 1371	                                        .PHASE  @R@+6DH
 1372	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 1373	                                ; MONITOR DATA
 1374	                                ;
 1375	  406D                          MSTAK:  DS      2
 1376	  406F                          ACSAV:  DS      2
 1377	  4071                          BCSAV:  DS      2
 1378	  4073                          DESAV:  DS      2
 1379	  4075                          HLSAV:  DS      2
 1380	  4077                          PCSAV:  DS      2
 1381	  4079                          SPSAV:  DS      2
 1382	                                ;
 1383	  407B                          BRAD:   DS      2
 1384	  407D                          INSTR:  DS      1
 1385	  407E                          BRAD2:  DS      2
 1386	  4080                          INST2:  DS      1
 1387	  4081                          CADR:   DS      2       ; KURZOR ADR.
 1388	                                ;-------------------------
 1389	  4083                          WMKOD:  DS      14      ; KOD PRO KURZORY
 1390	  4091                          PREV:   DS      21      ; PREVODNI KODY..0
 1391	                                ;-------------------------
 1392	                                ;       USER I/O DEVICE
 1393	                                ;
 1394	  40A6                          CILOC:  DS      3       ; 0
 1395	  40A9                          COLOC:  DS      3       ; 1
 1396	  40AC                          R1LOC:  DS      3       ; 2
 1397	  40AF                          R2LOC:  DS      3       ; 3
 1398	  40B2                          P1LOC:  DS      3       ; 4
 1399	  40B5                          P2LOC:  DS      3       ; 5
 1400	  40B8                          LILOC:  DS      3       ; 6
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-25


 1401	  40BB                          CSLOC:  DS      3       ; 7
 1402	  40BE                                  DS      1
 1403	  40BF                          MEMTOP: DS      2       ; 8
 1404	  40C1                          ERRSW:  DS      3       ; 9
 1405	  40C4                          CI@0:   DS      3       ; 10
 1406	  40C7                          CO@:    DS      3       ; 11
 1407	  40CA                          CSTS@:  DS      3       ; 12
 1408	  40CD                          LO@:    DS      3       ; 13
 1409	  40D0                          KOS@:   DS      3       ; 14
 1410	  40D3                          RI@:    DS      3       ; 15
 1411	  40D6                          PO@:    DS      3       ; 16
 1412	  40D9                          CCPM:   DS      3       ; 17
 1413	  40DC                          GRAF:   DS      3
 1414	  40DF                          RESER:  DS      3
 1415	  0015                          IONUM   EQU ($-CILOC)/3+1
 1416	                                ;
 1417	  40E2                          IOBYT:  DS      1       ; RIZENI I/O ZARIZENI
 1418	                                ;
 1419	                                ;****************************
 1420	                                ;<< EXTERE OVLADANE FLAGY: >>
 1421	                                ;****************************
 1422	  40E3                          MODE:   DS      1       ; CO-MODE
 1423	  40E4                          @IF1:   DS      1
 1424	  40E5                          @IF2:   DS      1
 1425	  40E6                          @OF1:   DS      1
 1426	  40E7                          @OF2:   DS      1
 1427	  40E8                          LINE:   DS      1       ; RADEK
 1428	  40E9                          COLUM:  DS      1       ; SLOUPEC
 1429	  40EA                          RESL:   DS      1       ; RESERVACE
 1430	  40EB                          RESC:   DS      1       ; SLOUPEC
 1431	  40EC                          RESL1:  DS      1       ; POSLEDNI RADEK
 1432	  40ED                          RESC1:  DS      1       ; POSLEDNI SLOUPEC
 1433	  40EE                          PREP:   DS      1       ; UROVEN PRERUSENI
 1434	                                ;
 1435	                                ; PROMENE PRO OPRACNI SYSTEM
 1436	                                ;
 1437	  40EF                          CUR@:   DS      1
 1438	  40F0                          KEY:    DS      1
 1439	  40F1                          CASK:   DS      1       ; <>0 - PRODLUZ MEZERY
 1440	                                
 1441	  40F2                          WNDP:   DS      6       ; PARAMETR PRO 2. OKNO
 1442	  0015                          EXSER   EQU     $-MODE  ; KONEC SLUZEB
 1443	                                ;
 1444	  40F8                          CHAR:   DS      1
 1445	  40F9                          XFLG:   DS      1
 1446	                                ;
 1447	                                ;****************************************************
 1448	                                ;        DATA SPOLECNA PRO MONITOR A O.S.
 1449	                                ;****************************************************
 1450	                                ;
 1451	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 1452	  40FA                          @BT:    DS      1
 1453	  40FB                          @PED:   DS      1
 1454	  40FC                          SADR:   DS      2       ; START ADR
 1455	  40FE                          EADR:   DS      2       ; END ADR
 1456	  4100                          SUM:    DS      1
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	1-26


 1457	  4101                          EXTEXT: DS      1
 1458	  4102                          OPT:    DS      1
 1459	  4103                          NAMBUF: DS      65
 1460	                                ;
 1461	                                ;""""""""""""""""""""""""""""""""""
 1462	                                ; PROMENE PRO O.S.
 1463	  4144                          FNAME:  DS      12      ; JMENO SOUBORU
 1464	  4150                          BNO:    DS      1       ; CISLO BLOKU
 1465	  4151                          BTO:    DS      1       ; CISLO SOUBORU
 1466	  4152                          BNI:    DS      1       ;
 1467	  4153                          BTI:    DS      1       ; INPUT
 1468	  4154                          ADRO:   DS      2       ; ADR OUTPUT
 1469	  4156                          ADRI:   DS      2       ; ADR INPUT
 1470	  4158                          FND:    DS      1       ; FIND/READ
 1471	                                
 1472	                                
 1473	                                ;*******************************
 1474	                                ;  I/O BUFFER PRO KOS
 1475	                                ;*******************************
 1476	  4159                                  DS      1       ; TYP BLOKU
 1477	  415A                          BOUT:
 1478	  415A                          BIN:    DS      LENGHT  ; DATA
 1479	  4259                          BIEND   EQU     $
 1480	  4259                          BOEND   EQU     $
 1481	  4259                          WRNM:   DS      11      ; JMENO SOUBORU
 1482	  4264                          READNM: DS      22      ; BUFFER PRO ZOBRAZENI
 1483	  427A                          TSM:    DS      1
 1484	  427B                          TSP:    DS      1       ; PRO SP-210 - 0
 1485	  427C                          POSICE: DS      2       ; OKNA V MIKOSU
 1486	  427E                          MOD@:   DS      1
 1487	  427F                          JEDE?:  DS      1       ; PRO =0 MGF. JEDE
 1488	                                                        ;    <>0 MGF. STOJI
 1489	                                ;
 1490	                                
 1491	                                        .DEPHASE
 1492	                                ;
 1493	                                        END     ; [P]
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	S


Macros:

Symbols:
1000 	@ANAL           40FA 	@BT             13F9 	@E@KOS          
40E4 	@IF1            40E5 	@IF2            40E6 	@OF1            
40E7 	@OF2            40FB 	@PED            4000 	@R@             
406F 	ACSAV           4156 	ADRI            4154 	ADRO            
1003 	ANAL            012D 	ASHEX           4071 	BCSAV           
4259 	BIEND           415A 	BIN             0D08 	BINAR           
4152 	BNI             4150 	BNO             4259 	BOEND           
415A 	BOUT            407B 	BRAD            407E 	BRAD2           
104D 	BREAK           104D 	BREAK@          4153 	BTI             
10E3 	BTIM8           4151 	BTO             4081 	CADR            
003A 	CAN             0C24 	CAS             40F1 	CASK            
40D9 	CCPM            40F8 	CHAR            131E 	CHECK           
0103 	CI              40C4 	CI@0            40A6 	CILOC           
013F 	CINCR           1037 	CISLO           0E86 	CLOSE           
0E8F 	CLOSE0          0E4A 	CLST2           0E39 	CLSTP           
0F4F 	CMPNM           0109 	CO              40C7 	CO@             
40A9 	COLOC           40E9 	COLUM           0040 	COMLE           
0F5A 	CPF10           000D 	CR              0124 	CRLF            
40BB 	CSLOC           0112 	CSTS            40CA 	CSTS@           
40EF 	CUR@            0130 	DADR            0FB9 	DBTCR           
0FBC 	DBTV            0FC0 	DBTV1           0133 	DBYT            
007F 	DEL             4073 	DESAV           0D21 	DIR             
0D25 	DIR0            0D29 	DIR1            0D42 	DIR1A           
0D4A 	DIR2            0E43 	DIRSTP          10CE 	DONE            
40FE 	EADR            1057 	ECHO            10DA 	ECHOCR          
0000 	EOL             0004 	EOT             1800 	EP3             
0C00 	EPROM           0000 	ERAM            11B7 	ERR31           
114B 	ERRD            1156 	ERRD0           1198 	ERRD1           
11A4 	ERRD2           11B5 	ERRD3           11BD 	ERRD4           
11CF 	ERRD7           11E1 	ERRD8           012A 	ERROR           
40C1 	ERRSW           001E 	ERS             1324 	ERSTP           
0003 	ETX             105B 	ETX?            0F1F 	EXCH            
0127 	EXPR            0015 	EXSER           0FFA 	EXT?            
4101 	EXTEXT          0DB7 	FIND            4144 	FNAME           
4158 	FND             1079 	GAPO            129B 	GET0            
12AF 	GET00           12B7 	GET01           12D1 	GET1            
12C1 	GET2            128E 	GET@            12CC 	GETEX           
40DC 	GRAF            0136 	HILO            4075 	HLSAV           
001D 	HOME            0009 	HT              0148 	HXASC           
0EA8 	INIT            0EB6 	INIT1           0EC2 	INIT2           
0EDC 	INIT3           0C2A 	INITS           4080 	INST2           
407D 	INSTR           015D 	INTER           40E2 	IOBYT           
0115 	IOCHK           011E 	IODEF           0015 	IONUM           
101A 	IOPO            1020 	IOPO1           1025 	IORI            
0118 	IOSET           427F 	JEDE?           0F84 	JMENO?          
40F0 	KEY             0D16 	KONEC           12DD 	KONEC?          
40D0 	KOS@            0C7C 	KOS@@           00FF 	LENGHT          
000A 	LF              40B8 	LILOC           40E8 	LINE            
0DF1 	LO1             0E19 	LO2             40CD 	LO@             
0DEE 	LOAD            0024 	MAXSL           40BF 	MEMTOP          
0C8D 	MICOS           427E 	MOD@            40E3 	MODE            
0000 	MONIT           0CE3 	MOTA            0CF5 	MOTA1           
FIRMWARE SAPI-1 KOS V5.0A - K10/SP210	MACRO-80 3.44	09-Dec-81	PAGE	S-1


1106 	MOVE            406D 	MSTAK           4103 	NAMBUF          
000B 	NAMLE           0139 	NEXT            1008 	NPO             
1014 	NRI             100D 	NRI1            1284 	NUFIL           
125B 	NULBF           0FCA 	OBNOV           0F87 	OK?             
0FE0 	OKNO            0D7B 	OPE1            0D8F 	OPE3            
0D97 	OPE4            0DAF 	OPE5            0D50 	OPEN            
4102 	OPT             40B2 	P1LOC           40B5 	P2LOC           
133C 	PADR@           4077 	PCSAV           0F9B 	PHDR            
1064 	PLAY            0FA7 	PNAM1           0FAF 	PNAM2           
0FA4 	PNAME           010C 	PO              40D6 	PO@             
1341 	POCH            427C 	POSICE          0010 	PREAM           
40EE 	PREP            4091 	PREV            12E3 	PUT@            
1309 	PUTEND          40AC 	R1LOC           40AF 	R2LOC           
132A 	RADR@           1360 	RBL2            1362 	RBL3            
134B 	RBLOK           134B 	READ            1347 	READF           
4264 	READNM          1074 	RECO            10BE 	RECOR           
10A6 	RECPUL          40EB 	RESC            40ED 	RESC1           
40DF 	RESER           40EA 	RESL            40EC 	RESL1           
0F3F 	REWI1           0CF0 	REWIK           0F31 	REWIND          
0F28 	REWIZ           0106 	RI              40D3 	RI@             
112E 	RIB             113F 	RIB1            1145 	RIB2            
1333 	RICH            015A 	RNAME           4000 	RST1            
00CF 	RSTN            40FC 	SADR            0E78 	SAV1            
0E4F 	SAVE            1110 	SEAR1           110F 	SEARCH          
017B 	SERI@           13CE 	SERIM           13EE 	SERIN           
017E 	SERO@           13D8 	SEROM           13E2 	SEROP           
13E4 	SEROUT          0C82 	SLUZBA          0001 	SOH             
013C 	SPACE           0037 	SPC             0121 	SPCL            
10AD 	SPGO            0035 	SPIN            0034 	SPOUT           
00EF 	SPPAUS          10B2 	SPPULS          00DF 	SPREC           
00F7 	SPREWK          00BF 	SPREWZ          008B 	SPRS            
4079 	SPSAV           00FB 	SPSTART         007F 	SPSTOP          
1092 	STAR2           1077 	START           0CF8 	STOP            
0CFD 	STOP1           001A 	SUBS            4100 	SUM             
13F1 	SUM@            1352 	SYNC            10F4 	T10MS           
0F66 	TESTJM          0142 	TEXT            10F6 	TIME            
10F7 	TIME1           10FA 	TIME2           427A 	TSM             
427B 	TSP             10A1 	TTSP            0151 	TXIMM           
1040 	TXNAM           0012 	UDATA           0010 	UMODE           
0013 	URES            0011 	USTAT           0F81 	VIP1            
11E7 	VRAT            0F7A 	VYPISH          4083 	WMKOD           
0154 	WND@            40F2 	WNDP            11FB 	WOB             
11F8 	WOBW            1204 	WRBLO           0F07 	WRN1            
0EF3 	WRNAM           4259 	WRNM            40F9 	XFLG            
1279 	XSTOP           0C18 	ZAC             126A 	ZASTAV          
102B 	ZMIO            1126 	ZVYS            



No Fatal error(s)



@ANAL	  591	  692#
@BT	  408	 1452#
@E@KOS	 1357#
@IF1	  146	  369	  416	 1114	 1140	 1423#
@IF2	  419	 1424#
@OF1	  147	  307	  336	  460	  470	 1171	 1425#
@OF2	 1426#
@PED	 1453#
@R@	   11#	 1364	 1371
ACSAV	 1376#
ADRI	  371	 1117	 1122	 1299	 1469#
ADRO	  464	 1058	 1176	 1179	 1468#
ANAL	  694#
ASHEX	   44#
BCSAV	 1377#
BIEND	  370	 1120	 1131	 1479#
BIN	  604	  931	 1156	 1272	 1298	 1478#
BINAR	  113	  247#	  430
BNI	  275	  368	  911	  913	  946	 1100	 1466#
BNO	  329	  332	  502	 1015	 1017	 1464#
BOEND	 1181	 1480#
BOUT	  251	  319	 1013	 1027	 1057	 1067	 1190	 1477#
BRAD	 1383#
BRAD2	 1385#
BREAK	  758#	 1253	 1351
BREAK@	  564	  759#
BTI	  963	  965	  969	  971	 1467#
BTIM8	  249	  854#	 1030	 1033	 1083
BTO	  318	 1465#
CADR	 1387#
CAN	   91#	  322	  504	  578	  933
CAS	  121#	  854
CASK	 1031	 1439#
CCPM	  299	  353	  459	 1412#
CHAR	 1444#
CHECK	  395	  401	 1206#
CI	   25#	  761
CI@0	 1405#
CILOC	 1394#	 1415
CINCR	   30#	  767
CISLO	  721	  728	  740#
CLOSE	  110	  196	  310	  456#
CLOSE0	  460#	 1167
CLST2	  414	  418#
CLSTP	  406	  411#
CMPNM	  364	  576#	  577	  579	  584
CO	   27#	  187	  277	  641	  661	  663	  899
CO@	 1406#

COLOC	 1395#
COLUM	 1428#
COMLE	   56#	  513	  628
CPF10	  581#
CR	   58#	  694	  752	  838	  950	  982
CRLF	   36#	  411	  533	  626	  648	  848	  994
CSLOC	 1401#
CSTS	   29#	  759
CSTS@	 1407#
CUR@	 1437#
DADR	   35#
DBTCR	  286	  648#	  948
DBTV	  649#	 1296
DBTV1	  651#	 1053
DBYT	   34#	  650	  653
DEL	   60#
DESAV	 1378#
DIR	  190	  270#
DIR0	  272#	  279
DIR1	  274#	  288
DIR1A	  281	  284#
DIR2	  285	  287#
DIRSTP	  415#	  771
DONE	  233	  781	  842#
EADR	  387	 1455#
ECHO	  767#	  846	  958
ECHOCR	  188	  616	  846#
EOL	   88#
EOT	   90#	  284	  320	  467	 1157
EP3	   13#	  153	  155
EPROM	   19#	   98	  119	  163
ERAM	   18#
ERR31	  944	  979#
ERRD	  926	  928	  941#
ERRD0	  945#	  991
ERRD1	  962	  967#
ERRD2	  972#	  976
ERRD3	  968	  978#
ERRD4	  981#	 1001
ERRD7	  966	  977	  980	  987#	  988	  992
ERRD8	  960	  990	  994#
ERROR	   43#	 1213
ERRSW	 1404#
ERS	   66#
ERSTP	  384	  393	 1212#	 1222
ETX	   61#	  769
ETX?	  762	  769#
EXCH	  206	  540#
EXPR	   33#	  428

EXSER	 1442#
EXT?	  362	  686#
EXTEXT	  182	  686	 1457#
FIND	  108	  198	  349#	  379	 1116
FNAME	  360	  581	 1463#
FND	  130	 1243	 1265	 1300	 1309	 1470#
GAPO	  248	  786#	 1029
GET0	 1118#	 1153
GET00	 1128#	 1137
GET01	 1132#	 1134
GET1	 1123	 1151#
GET2	 1139#	 1154
GET@	  114	 1111#
GETEX	 1125	 1129	 1145#
GRAF	 1413#
HILO	   37#	  399	  405	  447	 1102
HLSAV	 1379#
HOME	   65#	  679
HT	   62#
HXASC	   45#
INIT	  192	  479#
INIT1	  484#	  487
INIT2	  480	  489#
INIT3	  488	  497#
INITS	  107	  128#
INST2	 1386#
INSTR	 1384#
INTER	   49#
IOBYT	  131	  704	  716	  734	  737	 1417#
IOCHK	   40#
IODEF	   31#
IONUM	 1415#
IOPO	  295	  721#
IOPO1	  341	  725#
IORI	  349	  728#
IOSET	   42#
JEDE?	  239	  787	  806	 1487#
JMENO?	  590	  611#
KEY	 1438#
KONEC	  204	  259#
KONEC?	 1127	 1151	 1156#
KOS@	  142	 1409#
KOS@@	  141	  162#
LENGHT	   54#	 1037	 1069	 1273	 1478
LF	   59#	  752	  838	  950	  982
LILOC	 1400#
LINE	 1427#
LO1	  380#	  382
LO2	  397#	  400

LO@	 1408#
LOAD	  111	  202	  379#
MAXSL	  119#	  164
MEMTOP	 1403#
MICOS	  106	  180#
MOD@	  664	  673	 1486#
MODE	  665	  670	 1193	 1422#	 1442
MONIT	   17#
MOTA	  115	  208	  226#
MOTA1	  230	  233#
MOVE	  152	  361	  517	  880#	  885
MSTAK	 1375#
NAMBUF	 1459#
NAMLE	   55#	  359	  519	  582	 1040	 1280
NEXT	   38#	  283	  772	  905
NPO	  296	  429	  456	  704#
NRI	  350	  412	  716#
NRI1	  707#	  717
NUFIL	  287	  927	  975	  989	 1099#
NULBF	  511	 1067#
OBNOV	  657#	 1054	 1297
OK?	  259	  323	  613#
OKNO	  669#	 1052	 1293
OPE1	  315#	  324
OPE3	  321	  323#
OPE4	  312	  327#	  342
OPE5	  302	  340#
OPEN	  109	  194	  295#	  426	 1174
OPT	 1458#
P1LOC	 1398#
P2LOC	 1399#
PADR@	  436	  438	 1225#
PCSAV	 1380#
PHDR	  575	  605	  626#
PLAY	  270	  314	  363	  776#	  986
PNAM1	  636#	  644
PNAM2	  638	  640#
PNAME	  635#	 1295
PO	   28#	 1232
PO@	 1411#
POCH	  432	  440	  442	  446	  450	 1226	 1229#
POSICE	  657	  677	 1485#
PREAM	   63#	 1260	 1334
PREP	 1433#
PREV	 1390#
PUT@	  116	 1166#
PUTEND	 1166	 1190#
R1LOC	  150	 1396#
R2LOC	 1397#

RADR@	  386	  389	 1215#
RBL2	 1258#
RBL3	 1259#	 1263
RBLOK	 1245#
READ	  925	 1244#
READF	  901	  974	  987	 1242#
READNM	  635	 1246	 1482#
RECO	  781#
RECOR	  261	  334	  496	  835#
RECPUL	  482	  798	  820#
RESC	 1430#
RESC1	 1432#
RESER	 1414#
RESL	 1429#
RESL1	 1431#
REWI1	  564#	  567
REWIK	  227	  231#	  552
REWIND	  212	  305	  357	  481	  558#
REWIZ	  210	  549#
RI	   26#	 1221
RI@	 1410#
RIB	  922#	 1152
RIB1	  929#	  995
RIB2	  906	  933#
RICH	  380	  391	  397	 1207	 1215	 1217	 1221#
RNAME	   48#	  300	  354	  503
RST1	 1364#
RSTN	   12#
SADR	  390	 1454#
SAV1	  445#	  448
SAVE	  112	  200	  426#
SEAR1	  898#	  902
SEARCH	  278	  315	  576	  897#
SERI@	   50#	 1347
SERIM	 1276	 1281	 1319#	 1323
SERIN	 1259	 1285	 1287	 1290	 1319	 1347#
SERO@	   51#	 1341
SEROM	 1038	 1041	 1327#	 1331
SEROP	 1034	 1035	 1036	 1049	 1334#
SEROUT	 1044	 1046	 1048	 1051	 1329	 1338#
SLUZBA	  165#
SOH	   89#	  335	  935
SPACE	   41#	  651	  654
SPC	   83#	  144
SPCL	   32#	  674
SPGO	  796	  823#
SPIN	   84#	  565
SPOUT	   85#	  822	  825	  829
SPPAUS	   71#	 1092

SPPULS	  232	  236	  561	  825#	 1004
SPREC	   68#	  821
SPREWK	   73#	  231
SPREWZ	   72#	  551	  560	 1003
SPRS	   74#	  143
SPSAV	 1381#
SPSTART	   69#	  824
SPSTOP	   70#	  235
STAR2	  792	  800#
START	  777	  784#	 1247
STOP	  117	  156	  180	  234#	  282	  417	  472	  568	  945	 1086	 1094	 1141
	 1212
STOP1	  236#	 1093
SUBS	   64#	  466	 1124	 1142	 1198
SUM	  402	 1456#
SUM@	 1223	 1338	 1348#
SYNC	 1251#	 1256	 1261
T10MS	  820	  823	  865#	 1056	 1252
TESTJM	  583	  587#	  597
TEXT	   39#	  629
TIME	  485	  563	  827	  859	  863	  866#	 1006
TIME1	  867#	  873
TIME2	  868#	  871
TSM	 1483#
TSP	  148	  540	  542	  812	 1484#
TTSP	  184	  226	  234	  479	  549	  558	  776	  790	  812#	  835	  942	  999
	 1091
TXIMM	   46#	  132	  491	  498	  613	  658	  678	  751	  778	  837	  842	  949
	  981
TXNAM	  751#
UDATA	   78#	  804	 1251
UMODE	   80#	  229	  238	  490	  800
URES	   77#	  801
USTAT	   79#	  803	 1254
VIP1	  606#
VRAT	  973	  979	  999#
VYPISH	  272	  316	  592	  603#	  611
WMKOD	 1389#
WND@	   47#
WNDP	 1441#
WOB	 1014#	 1182
WOBW	  263	  468	  531	 1013#
WRBLO	 1025#
WRN1	  521#	  529
WRNAM	  338	  509#
WRNM	  520	 1039	 1481#
XFLG	 1445#
XSTOP	  497	  941	 1082	 1091#	 1307
ZAC	  114#	  149

ZASTAV	 1060	 1079#
ZMIO	  726	  731#
ZVYS	  900	  911#	  924


Ú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í / V5.0 / LST MIKOS



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