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


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


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


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


Listing programu MIKOS/D V5.0


    1	                                .LIST
    2	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    3	                                TITLE MIKOS/D V5.0 23.3.88/P.P.
    4	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    5	                                ;
    6	                                ;  VOLBA SYSTEMU PODLE CPU-KARTY
    7	  FFFF                          TV64    EQU     -1      ; 64/40 ZNAKU NA RADEK
    8	  0000                          CPM     EQU     00      ; CPM/ZPS-2
    9	  0000                          TYPTER  EQU     00      ; 14H..AMD16,  ODH..SM7202
   10	                                ;
   11	                                ;=========================================
   12	  0000'                                 ASEG
   13	                                ;
   14	                                ;       *** DEFINOVANI PAMETOVEHO PROSTORU *
   15	                                ;
   16	  1300                          BIOS    EQU     1300H   ; ELSE BIOS
   17	  4280                          BUFDX   EQU     4280H   ; BUFFER CPM
   18	  4200                          BUFO    EQU     4200H   ; BUFFER OUTPUT
   19	  4000                          @R@     EQU     4000H   ; ZACATEK SYSTEMOVE RAM (1K)
   20	  00CF                          RSTN    EQU     0CFH    ; RST1 .. POUZIVA SYSTEM
   21	  1800                          EP3     EQU     1800H   ; USER EPROM SYSTEM
   22	  0100                          MONIT   EQU     100H    ; SLUZBY
   23	                                ;-----------------------------------------------
   24	                                        IF      CPM
   25	                                ERAM    EQU     9FFFH   ;TOP RAM
   26	                                        IF TV64
   27	                                TVBEG   EQU     0F800H  ;AND1Z
   28	                                        ELSE
   29	                                TVBEG   EQU     0E800H  ;TV-RAM
   30	                                        ENDIF
   31	                                EPROM   EQU     0C00H+100H      ; O.S. EPROM
   32	                                        ELSE
   33	  0000                          ERAM    EQU     0000
   34	  3800                          TVBEG   EQU     3800H   ;TV-RAM
   35	  0C00                          EPROM   EQU     0C00H
   36	                                        ENDIF
   37	                                ;
   38	                                ;       * MONITOR ENTRY *
   39	                                ;
   40	  0112                          CSTS    EQU     MONIT + 12H
   41	  0103                          CI      EQU     MONIT + 3
   42	  0106                          RI      EQU     MONIT + 6
   43	  0109                          CO      EQU     MONIT + 09H
   44	  010C                          PO      EQU     MONIT + 0CH
   45	  013F                          CINCR   EQU     MONIT + 3FH
   46	  011E                          IODEF   EQU     MONIT + 1EH
   47	  0127                          EXPR    EQU     MONIT + 27H
   48	  0133                          DBYT    EQU     MONIT + 33H
   49	  0130                          DADR    EQU     MONIT + 30H
   50	  0124                          CRLF    EQU     MONIT + 24H
   51	  0136                          HILO    EQU     MONIT + 36H
   52	  0139                          NEXT    EQU     MONIT + 39H
   53	  0142                          TEXT    EQU     MONIT + 42H
   54	  0115                          IOCHK   EQU     MONIT + 15H
   55	  013C                          SPACE   EQU     MONIT + 3CH
   56	  0118                          IOSET   EQU     MONIT + 18H
   57	  012A                          ERROR   EQU     MONIT + 2AH
   58	  012D                          ASHEX   EQU     MONIT + 2DH
   59	  0148                          HXASC   EQU     MONIT + 48H
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-1


   60	  0151                          TXIMM   EQU     MONIT + 51H
   61	  0154                          WND@    EQU     MONIT + 54H
   62	  015A                          RNAM@   EQU     MONIT + 5AH
   63	  015D                          INTER   EQU     MONIT + 5DH
   64	  017B                          SMTAB   EQU     MONIT + 7BH
   65	                                ;
   66	                                ;
   67	  00FF                          LENGHT  EQU     255     ; BLOCK LENGHT
   68	  000B                          NAMLE   EQU     11      ; NAME LENGHT
   69	  0040                          COMLE   EQU     64      ; COMENT LENGHT
   70	  3814                          TVR     EQU     TVBEG+20        ; CTENI
   71	  3824                          TVW     EQU     TVBEG+36        ; ZAPIS
   72	                                ;-------------------------------------------
   73	  000D                          CR      EQU     0DH     ; KONSTANTY
   74	  000A                          LF      EQU     0AH
   75	  007F                          DEL     EQU     7FH     ; DELETE
   76	  0003                          ETX     EQU     03H
   77	  0009                          HT      EQU     9       ; TAB
   78	  0010                          PREAM   EQU     10H     ; PREAMBLE/POSTAMBLE
   79	  001A                          SUBS    EQU     1AH     ; END FLAG
   80	                                ;
   81	                                ; SER. I/O
   82	  0013                          URES    EQU     13H
   83	  0012                          UDATA   EQU     12H
   84	  0011                          USTAT   EQU     11H
   85	  0010                          UMODE   EQU     10H
   86	                                
   87	                                ; BLOK LABELS
   88	  0001                          SOH     EQU     01H     ; "START OF HEADER"
   89	  0004                          EOT     EQU     04H     ; "END OF TEXT"
   90	  003A                          CAN     EQU     ':'     ; JMENO PASKY
   91	                                ;               'A'     ; DATOVY (ASCII) BLOK
   92	                                ;               'B'     ; BINARNI BLOK
   93	                                ;
   94	                                ;******************************************
   95	  0000                                  ASEG
   96	                                        ORG     EPROM   ;START
   97	                                ;******************************************
   98	                                ;
   99	                                ;====================================
  100	                                ;  T A B U L K A  S L U Z E B  K O S
  101	                                ;====================================
  102	                                ;
  103	                                
  104	  0C00    C3 0CB5                       JMP     MICOS   ;BRANCH TABLE
  105	  0C03    C3 0C24                       JMP     INITS   ;INIT SYSTEM
  106	  0C06    C3 0D3B                       JMP     FIND    ;1
  107	  0C09    C3 0DC6                       JMP     OPEN    ;2
  108	  0C0C    C3 0E3D                       JMP     CLOSE   ;3
  109	  0C0F    C3 0D78                       JMP     LOAD    ;4
  110	  0C12    C3 0E09                       JMP     SAVE    ;5
  111	  0C15    C3 10B7                       JMP     BINAR   ;6
  112	  0C18    C3 0FC5               ZAC:    JMP     GET@2   ;7
  113	  0C1B    C3 0D72                       JMP     REWIND  ;8
  114	  0C1E    C3 104F                       JMP     PUT@2   ;9
  115	  0C21    C3 104F                       JMP     PUT@2   ;10
  116	                                ;
  117	  0024                          MAXSL   EQU     $-EPROM
  118	                                ;
  119	                                ;====================================
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-2


  120	                                ;  INICIALIZACE SYSTEMU KOS
  121	                                ;====================================
  122	                                ;
  123	  0C24                          INITS:
  124	  0C24    21 3800                       LXI     H,TVBEG ; TEST NA TERMINAL
  125	  0C27    3E 41                         MVI     A,'A'   ; ZAPIS
  126	  0C29    77                            MOV     M,A
  127	  0C2A    BE                            CMP     M
  128	  0C2B    CA 0C4D                       JZ      INIT1   ; JE AND
  129	  0C2E    3E 09                         MVI     A,9     ; PREPNI
  130	  0C30    D3 10                         OUT     UMODE
  131	  0C32    D3 13                         OUT     URES
  132	  0C34    00                            NOP
  133	  0C35    3E 00                         MVI     A,TYPTER
  134	  0C37    D3 11                         OUT     USTAT
  135	  0C39    21 017B                       LXI     H,SMTAB
  136	  0C3C    11 40C4                       LXI     D,CI@0  ; INSTALUJ OVLADANI
  137	  0C3F    06 09                         MVI     B,9
  138	  0C41    CD 11D6                       CALL    MOVE
  139	  0C44    DB 12                         IN      UDATA
  140	  0C46    CD 0151                       CALL    TXIMM
  141	  0C49    1D 1F                         DB      1DH,1FH
  142	  0C4B    20 A0                         DC      '  '
  143	  0C4D    CD 0151               INIT1:  CALL    TXIMM   ;OHLASENI
  144	  0C50    4D 49 4B 4F                   DB      'MIKOS/D  V5.0   '
  145	  0C54    53 2F 44 20           
  146	  0C58    20 56 35 2E           
  147	  0C5C    30 20 20 20           
  148	  0C60    28 43 29 20                   DC      '(C) TESLA DIZ 1988 '
  149	  0C64    54 45 53 4C           
  150	  0C68    41 20 44 49           
  151	  0C6C    5A 20 31 39           
  152	  0C70    38 38 A0              
  153	  0C73    21 0CA4                       LXI     H,KOS@@
  154	  0C76    22 40D1                       SHLD    KOS@+1
  155	  0C79    21 012A                       LXI     H,ERROR
  156	  0C7C    22 40DA                       SHLD    CCPM+1
  157	  0C7F    21 0000                       LXI     H,0
  158	  0C82    32 40E4                       STA     @IF1    ; FIND FLAG
  159	  0C85    32 40E6                       STA     @OF1
  160	  0C88    21 0C18                       LXI     H,ZAC   ; VYPLN IODEF
  161	  0C8B    11 40AC                       LXI     D,R1LOC
  162	  0C8E    06 0C                         MVI     B,12
  163	  0C90    CD 11D6                       CALL    MOVE
  164	                                ;
  165	                                ; INICIALIZACE A INSTALACE
  166	                                ;
  167	  0C93    3E 09                         MVI     A,09H   ; R=,P=1
  168	  0C95    32 40E2                       STA     IOBYT
  169	  0C98    3A 1800                       LDA     EP3     ; USER SYSTEM ?
  170	  0C9B    FE C3                         CPI     0C3H
  171	  0C9D    CC 1803                       CZ      EP3 + 3 ; START
  172	                                        IF      NOT CPM
  173	  0CA0    CD 1300                       CALL    BIOS    ; START CPM
  174	                                        ELSE
  175	                                        MVI     C,0DH   ;CLEAR
  176	                                        CALL    5
  177	                                        ENDIF
  178	  0CA3    C9                    DUMMY:  RET
  179	                                ;
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-3


  180	                                ;====================================
  181	                                ;  VYHODNOCENI SLUZBY MONITORU
  182	                                ;====================================
  183	                                ;
  184	  0CA4    0C                    KOS@@:  INR     C
  185	  0CA5    11 0C00                       LXI     D,EPROM
  186	  0CA8    06 24                         MVI     B,MAXSL
  187	  0CAA    EB                    SLUZBA: XCHG            ; JMENO
  188	  0CAB    79                            MOV     A,C
  189	  0CAC    81                            ADD     C
  190	  0CAD    81                            ADD     C       ; *3
  191	  0CAE    B8                            CMP     B
  192	  0CAF    D0                            RNC             ; VETSI
  193	  0CB0    06 00                         MVI     B,0
  194	  0CB2    4F                            MOV     C,A     ; OFFSET
  195	  0CB3    09                            DAD     B       ; VYPOCTI ADR
  196	  0CB4    E9                            PCHL
  197	                                ;
  198	                                ;====================================
  199	                                ; VYHODNOCENI POVELU OSLUHY
  200	                                ;====================================
  201	                                ;
  202	  0CB5                          MICOS:
  203	  0CB5    CD 1041                       CALL    SETDMI  ;DMA
  204	  0CB8    AF                            XRA     A
  205	  0CB9    32 4101                       STA     EXTEXT  ; 0..NENI
  206	  0CBC    CD 0151                       CALL    TXIMM
  207	  0CBF    4F 53 2F 44                   DB      'OS/D		MENU:'
  208	  0CC3    09 09 4D 45           
  209	  0CC7    4E 55 3A              
  210	  0CCA    0D 0A                         DB      0DH,0AH
  211	  0CCC    44 49 52 20                   DB      'DIR IDIR ERA TYPE LOAD SAVE'
  212	  0CD0    49 44 49 52           
  213	  0CD4    20 45 52 41           
  214	  0CD8    20 54 59 50           
  215	  0CDC    45 20 4C 4F           
  216	  0CE0    41 44 20 53           
  217	  0CE4    41 56 45              
  218	  0CE7    0D 0A                         DB      0DH,0AH
  219	  0CE9    52 45 4E 41                   DC      'RENAME FIND OPEN CLOSE _'
  220	  0CED    4D 45 20 46           
  221	  0CF1    49 4E 44 20           
  222	  0CF5    4F 50 45 4E           
  223	  0CF9    20 43 4C 4F           
  224	  0CFD    53 45 20 DF           
  225	  0D01    CD 112E                       CALL    ECHO
  226	  0D04    F5                            PUSH    PSW
  227	  0D05    CD 0124                       CALL    CRLF
  228	  0D08    F1                            POP     PSW
  229	  0D09    FE 4F                         CPI     'O'
  230	  0D0B    CA 0DC6                       JZ      OPEN    ; OPEN OUTPUT
  231	  0D0E    FE 43                         CPI     'C'     ; CLOSE UOTPUT
  232	  0D10    CA 0E3D                       JZ      CLOSE
  233	  0D13    FE 53                         CPI     'S'
  234	  0D15    CA 0E09                       JZ      SAVE
  235	  0D18    FE 4C                         CPI     'L'     ; LOAD
  236	  0D1A    CA 0D78                       JZ      LOAD
  237	  0D1D    FE 44                         CPI     'D'
  238	  0D1F    CA 0EA6                       JZ      DIRD
  239	  0D22    FE 49                         CPI     'I'
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-4


  240	  0D24    CA 0E98                       JZ      INITD
  241	  0D27    FE 54                         CPI     'T'
  242	  0D29    CA 0E82                       JZ      TYPE
  243	  0D2C    FE 52                         CPI     'R'
  244	  0D2E    CA 0F54                       JZ      RENAME
  245	  0D31    FE 45                         CPI     'E'
  246	  0D33    CA 0F97                       JZ      ERA
  247	  0D36    FE 46                         CPI     'F'     ; FIND
  248	  0D38    C2 012A                       JNZ     ERROR
  249	                                ;
  250	                                ;************************************
  251	                                ; REALIZACE POVELU KOS-1
  252	                                ;************************************
  253	                                ;
  254	                                ;====================================
  255	                                ; FIND: OTEVRI SOUBOR PRO CTENI
  256	                                ;====================================
  257	                                ;
  258	  0D3B    CD 1109               FIND:   CALL    IORI
  259	  0D3E    CD 10F8                       CALL    NRI
  260	  0D41    F8                            RM              ;SYSTEM RI
  261	  0D42    0E 01                         MVI     C,1
  262	  0D44    C2 40D9                       JNZ     CCPM    ; USER 2
  263	                                ;
  264	                                ; FIND v ram
  265	                                ;
  266	  0D47    CD 1163               FIND2:  CALL    RNAME
  267	  0D4A    CA 0EB8                       JZ      DIR
  268	  0D4D    E5                            PUSH    H
  269	  0D4E    D5                            PUSH    D
  270	  0D4F    C5                            PUSH    B
  271	  0D50    CD 116A                       CALL    CRFCB
  272	  0D53    11 4146               REWI:   LXI     D,FCB
  273	  0D56    0E 0F                         MVI     C,0FH
  274	  0D58    CD 0005                       CALL    5
  275	  0D5B    CD 1091                       CALL    ERCPM
  276	  0D5E    11 4146                       LXI     D,FCB
  277	  0D61    0E 23                         MVI     C,23H
  278	  0D63    CD 0005                       CALL    5       ; DELKA
  279	  0D66    3E 80                         MVI     A,80H
  280	  0D68    32 4144                       STA     IDX
  281	  0D6B    32 40E4                       STA     @IF1
  282	  0D6E    C1                            POP     B
  283	  0D6F    D1                            POP     D
  284	  0D70    E1                            POP     H
  285	  0D71    C9                            RET
  286	                                ;
  287	                                ; REVIND INPUT FILE
  288	                                ;
  289	  0D72    E5                    REWIND: PUSH    H
  290	  0D73    D5                            PUSH    D
  291	  0D74    C5                            PUSH    B
  292	  0D75    C3 0D53                       JMP     REWI    ; NOVE CTENI
  293	                                ;
  294	                                ;====================================
  295	                                ; LOAD BINARNI SOUBOR
  296	                                ;====================================
  297	                                ;
  298	  0D78    CD 0D3B               LOAD:   CALL    FIND    ; OTEVRI SOUBOR
  299	  0D7B    CD 114D               LO1:    CALL    RICH
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-5


  300	  0D7E    B7                            ORA     A       ; BLANK?
  301	  0D7F    CA 0D7B                       JZ      LO1
  302	  0D82    D6 3C                         SUI     '<'
  303	  0D84    C2 1141                       JNZ     ERSTP   ;#NOT BINARY FORMAT
  304	  0D87    47                            MOV     B,A     ;SUM
  305	  0D88    CD 1144                       CALL    RADR@
  306	  0D8B    22 40FE                       SHLD    EADR    ;LAST
  307	  0D8E    EB                            XCHG
  308	  0D8F    CD 1144                       CALL    RADR@   ;LAST
  309	  0D92    22 40FC                       SHLD    SADR    ; START ADR
  310	  0D95    CD 114D                       CALL    RICH
  311	  0D98    FE 3E                         CPI     '>'
  312	  0D9A    C2 1141                       JNZ     ERSTP   ;#NOT BINARY
  313	  0D9D    CD 113B                       CALL    CHECK
  314	  0DA0    06 00                         MVI     B,0     ;CLEAR
  315	  0DA2    CD 114D               LO2:    CALL    RICH
  316	  0DA5    77                            MOV     M,A
  317	  0DA6    CD 0136                       CALL    HILO
  318	  0DA9    D2 0DA2                       JNC     LO2
  319	  0DAC    CD 113B                       CALL    CHECK
  320	  0DAF    32 4100                       STA     SUM
  321	                                ; UZAVRI VSTUPNI SOUBOR
  322	  0DB2    CD 0124               CLSTP:  CALL    CRLF
  323	  0DB5    CD 10F8                       CALL    NRI
  324	  0DB8    F8                            RM
  325	  0DB9    C2 0DC1                       JNZ     CLST2
  326	  0DBC    AF                    DIRSTP: XRA     A
  327	  0DBD    32 40E4                       STA     @IF1    ;CLOSE
  328	  0DC0    C9                            RET
  329	  0DC1    AF                    CLST2:  XRA     A
  330	  0DC2    32 40E5                       STA     @IF2
  331	  0DC5    C9                            RET
  332	                                ;
  333	                                ;====================================
  334	                                ; OPEN: OTEVRI NOVY SOUBOR PRO ZAPIS
  335	                                ;====================================
  336	                                ;
  337	  0DC6    CD 10FE               OPEN:   CALL    IOPO    ; NASTAV IOBYT
  338	  0DC9    CD 10EC                       CALL    NPO
  339	  0DCC    F8                            RM              ; PO=SYSTEM..
  340	  0DCD    0E 02                         MVI     C,2
  341	  0DCF    C2 40D9                       JNZ     CCPM    ; USER=2
  342	                                ;
  343	                                ; OPEN RAM DISK
  344	                                ;
  345	  0DD2    CD 1163               OPEN2:  CALL    RNAME
  346	  0DD5    CA 0EB8                       JZ      DIR
  347	  0DD8    E5                            PUSH    H
  348	  0DD9    D5                            PUSH    D
  349	  0DDA    C5                            PUSH    B
  350	  0DDB    21 416B                       LXI     H,FCBB
  351	  0DDE    CD 116D                       CALL    CRFCBB
  352	  0DE1    CD 11DF                       CALL    HVEZDA  ; *.*
  353	  0DE4    CA 012A                       JZ      ERROR   ; CHYBA
  354	  0DE7    11 416B                       LXI     D,FCBB
  355	  0DEA    0E 13                         MVI     C,13H   ; ZRUS FILE
  356	  0DEC    CD 0005                       CALL    5
  357	  0DEF    0E 16                         MVI     C,16H
  358	  0DF1    11 416B                       LXI     D,FCBB
  359	  0DF4    CD 0005                       CALL    5
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-6


  360	  0DF7    CD 1091                       CALL    ERCPM
  361	  0DFA    AF                            XRA     A
  362	  0DFB    32 4145                       STA     ODX
  363	  0DFE    3C                            INR     A
  364	  0DFF    32 40E6                       STA     @OF1
  365	  0E02    CD 10B3                       CALL    SETTYP  ; BINAR
  366	  0E05    C1                            POP     B
  367	  0E06    D1                            POP     D
  368	  0E07    E1                            POP     H
  369	  0E08    C9                            RET
  370	                                ;
  371	                                ;====================================
  372	                                ; SAVE ULOZ BINARNI SOUBOR
  373	                                ;====================================
  374	                                ;
  375	  0E09    CD 0DC6               SAVE:   CALL    OPEN
  376	  0E0C    CD 10B7                       CALL    BINAR
  377	  0E0F    0E 02                         MVI     C,2
  378	  0E11    CD 0127                       CALL    EXPR    ;FORM TO
  379	  0E14    0E 3C                         MVI     C,'<'   ;START BYTE
  380	  0E16    CD 115D                       CALL    POCH
  381	  0E19    06 00                         MVI     B,0     ;ADR-SUM
  382	  0E1B    E1                            POP     H       ;START
  383	  0E1C    D1                            POP     D       ;LAST
  384	  0E1D    CD 1158                       CALL    PADR@
  385	  0E20    EB                            XCHG
  386	  0E21    CD 1158                       CALL    PADR@
  387	  0E24    0E 3E                         MVI     C,'>'
  388	  0E26    CD 115D                       CALL    POCH
  389	  0E29    48                            MOV     C,B     ;SUM OF ADR.
  390	  0E2A    CD 115D                       CALL    POCH
  391	                                ;
  392	  0E2D    06 00                         MVI     B,0     ;DATA-SUM
  393	  0E2F    4E                    SAV1:   MOV     C,M
  394	  0E30    CD 115D                       CALL    POCH
  395	  0E33    CD 0136                       CALL    HILO
  396	  0E36    D2 0E2F                       JNC     SAV1
  397	  0E39    48                            MOV     C,B     ;SUM
  398	  0E3A    CD 115D                       CALL    POCH
  399	                                ;
  400	                                ;====================================
  401	                                ; SLOSE: UZAVRI VSTUPNI SOUBOR
  402	                                ;====================================
  403	                                ;
  404	  0E3D    CD 10EC               CLOSE:  CALL    NPO
  405	  0E40    F8                            RM
  406	  0E41    0E 03                         MVI     C,3
  407	  0E43    C2 40D9                       JNZ     CCPM
  408	  0E46    3A 40E6                       LDA     @OF1    ;NO OPEN
  409	  0E49    B7                            ORA     A
  410	  0E4A    CA 012A                       JZ      ERROR
  411	                                ;
  412	                                ; UKONC SOUBOR
  413	                                ;
  414	  0E4D    E5                    CLOSE2: PUSH    H
  415	  0E4E    D5                            PUSH    D
  416	  0E4F    C5                            PUSH    B
  417	  0E50    0E 1A                         MVI     C,1AH
  418	  0E52    CD 1067                       CALL    PUT@B
  419	                                ;---
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-7


  420	  0E55    EB                    CLFIL:  XCHG
  421	  0E56    21 427F                       LXI     H,BUFO+7FH      ;KONEC
  422	  0E59    7B                    CLF0:   MOV     A,E
  423	  0E5A    BD                            CMP     L
  424	  0E5B    CA 0E64                       JZ      CLF1
  425	  0E5E    36 00                         MVI     M,0     ; CLEAR
  426	  0E60    2B                            DCX     H
  427	  0E61    C3 0E59                       JMP     CLF0
  428	  0E64    CD 1080               CLF1:   CALL    ZAPISBL
  429	  0E67    11 416B                       LXI     D,FCBB
  430	  0E6A    0E 10                         MVI     C,10H
  431	  0E6C    CD 0005                       CALL    5
  432	  0E6F    CD 1091                       CALL    ERCPM
  433	  0E72    AF                            XRA     A
  434	  0E73    32 40E6                       STA     @OF1
  435	  0E76    3A 40E3                       LDA     MODE    ; ZRUS BINAR
  436	  0E79    E6 FD                         ANI     NOT 2
  437	  0E7B    32 40E3                       STA     MODE
  438	  0E7E    C1                            POP     B
  439	  0E7F    D1                            POP     D
  440	  0E80    E1                            POP     H
  441	  0E81    C9                            RET
  442	                                ;
  443	                                ;
  444	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  445	                                ; REALIZACE POVELU PRO PRACI SE SOUBORY
  446	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  447	                                ;  TYPE FILE
  448	  0E82    CD 0D3B               TYPE:   CALL    FIND
  449	  0E85    CD 0106               TYP0:   CALL    RI
  450	  0E88    DA 0124                       JC      CRLF    ; KONEC
  451	  0E8B    4F                            MOV     C,A
  452	  0E8C    CD 0109                       CALL    CO
  453	  0E8F    CD 1124                       CALL    BREAK
  454	  0E92    C4 112E                       CNZ     ECHO    ; CEKEJ
  455	  0E95    C3 0E85                       JMP     TYP0
  456	                                ;
  457	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  458	                                ;
  459	  0E98    0E 0D                 INITD:  MVI     C,0DH
  460	  0E9A    CD 0005                       CALL    5
  461	  0E9D    21 4146                       LXI     H,FCB
  462	  0EA0    36 01                         MVI     M,1     ;DRIVE A
  463	  0EA2    23                            INX     H
  464	  0EA3    C3 0EB8                       JMP     DIR
  465	                                ;
  466	                                ; DIRECTORY:
  467	                                ;
  468	  0EA6    21 0000               DIRD:   LXI     H,0
  469	  0EA9    CD 1163                       CALL    RNAME
  470	  0EAC    CD 116A                       CALL    CRFCB
  471	  0EAF    21 4147                       LXI     H,FCB+1 ;TEST CR
  472	  0EB2    7E                            MOV     A,M
  473	  0EB3    FE 20                         CPI     ' '
  474	  0EB5    C2 0EC9                       JNZ     DIR22   ; JE JMENO
  475	  0EB8    E5                    DIR:    PUSH    H
  476	  0EB9    CD 1041                       CALL    SETDMI  ; DMA ADR
  477	  0EBC    E1                            POP     H
  478	  0EBD    06 0B                         MVI     B,11
  479	  0EBF    36 3F                 DIRD1:  MVI     M,'?'
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-8


  480	  0EC1    23                            INX     H
  481	  0EC2    05                            DCR     B
  482	  0EC3    C2 0EBF                       JNZ     DIRD1
  483	  0EC6    CD 118A                       CALL    CRF3
  484	  0EC9    0E 11                 DIR22:  MVI     C,11H
  485	  0ECB    AF                            XRA     A
  486	  0ECC    C2 0ED4               DIRD2:  JNZ     DIRD3
  487	  0ECF    CD 0124                       CALL    CRLF
  488	  0ED2    06 02                         MVI     B,2     ; POCET JMEN
  489	  0ED4    11 4146               DIRD3:  LXI     D,FCB
  490	  0ED7    C5                            PUSH    B
  491	  0ED8    CD 0005                       CALL    5
  492	  0EDB    C1                            POP     B
  493	  0EDC    3C                            INR     A
  494	  0EDD    CA 0F15                       JZ      SIZE    ; KONEC
  495	  0EE0    21 4260                       LXI     H,BUFDX-20H
  496	  0EE3    11 0020                       LXI     D,20H   ; OFFSET
  497	  0EE6    19                            DAD     D
  498	  0EE7    3D                            DCR     A
  499	  0EE8    C2 0EE6                       JNZ     $-2     ; ADR
  500	  0EEB    23                            INX     H
  501	  0EEC    16 08                         MVI     D,8
  502	  0EEE    C5                            PUSH    B
  503	  0EEF    CD 10A6                       CALL    TEXT@
  504	  0EF2    CD 0151                       CALL    TXIMM
  505	  0EF5    AE                            DC      '.'
  506	  0EF6    16 03                         MVI     D,3
  507	  0EF8    CD 10A6                       CALL    TEXT@
  508	  0EFB    C1                            POP     B
  509	  0EFC    C5                            PUSH    B
  510	  0EFD    05                            DCR     B
  511	  0EFE    CA 0F0E                       JZ      DIR33
  512	  0F01    CD 0151                       CALL    TXIMM
  513	  0F04    20 20 20 20                   DC      '    :     '
  514	  0F08    3A 20 20 20           
  515	  0F0C    20 A0                 
  516	  0F0E    C1                    DIR33:  POP     B
  517	  0F0F    0E 12                         MVI     C,12H
  518	  0F11    05                            DCR     B
  519	  0F12    C3 0ECC                       JMP     DIRD2
  520	  0F15    CD 0151               SIZE:   CALL    TXIMM
  521	  0F18    0D 0A                         DB      0DH,0AH
  522	  0F1A    4F 42 53 41                   DC      'OBSAZENO '
  523	  0F1E    5A 45 4E 4F           
  524	  0F22    A0                    
  525	  0F23    0E 1B                         MVI     C,27    ; ADRESA ALOK. MAPY
  526	  0F25    CD 0005                       CALL    5       ; DO [HL]
  527	  0F28    CD 0F36                       CALL    USED    ; OBSAZENI DO [DE]
  528	  0F2B    EB                            XCHG
  529	  0F2C    CD 0130                       CALL    DADR    ; VYTISTENI OBSAZENOSTI
  530	  0F2F    0E 0E                         MVI     C,14    ; NASTAVENI DISKO 0
  531	  0F31    1E 00                         MVI     E,0     ; A RETURN
  532	  0F33    C3 0005                       JMP     5
  533	                                ;
  534	  0F36                          USED:   ; VYPOCET OBSAZENI DISKETY
  535	  0F36    06 F1                         MVI     B,241   ; POCITADLO KONCE
  536	  0F38    11 FF98                       LXI     D,0FF98H ; POCITADLO BLOKU
  537	  0F3B    7E                    USED1:  MOV     A,M
  538	  0F3C    0E 08                         MVI     C,8
  539	  0F3E    23                            INX     H
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-9


  540	  0F3F    07                    USED2:  RLC
  541	  0F40    F5                            PUSH    PSW
  542	  0F41    7B                            MOV     A,E
  543	  0F42    CE 00                         ACI     0
  544	  0F44    27                            DAA
  545	  0F45    5F                            MOV     E,A
  546	  0F46    D2 0F4A                       JNC     USED3
  547	  0F49    14                            INR     D
  548	  0F4A    F1                    USED3:  POP     PSW
  549	  0F4B    05                            DCR     B
  550	  0F4C    C8                            RZ
  551	  0F4D    0D                            DCR     C
  552	  0F4E    C2 0F3F                       JNZ     USED2
  553	  0F51    C3 0F3B                       JMP     USED1
  554	                                ;
  555	                                ;******************************
  556	  0F54    CD 0151               RENAME: CALL    TXIMM
  557	  0F57    5A 41 44 45                   DC      'ZADEJ PUVODNI JMENO'
  558	  0F5B    4A 20 50 55           
  559	  0F5F    56 4F 44 4E           
  560	  0F63    49 20 4A 4D           
  561	  0F67    45 4E CF              
  562	  0F6A    CD 1163                       CALL    RNAME
  563	  0F6D    CD 116A                       CALL    CRFCB
  564	  0F70    CD 11EB                       CALL    HVEZDI  ; KONVENCE *.*
  565	  0F73    CA 012A                       JZ      ERROR
  566	  0F76    CD 0151                       CALL    TXIMM
  567	  0F79    4E 4F 56 45                   DC      'NOVE JMENO'
  568	  0F7D    20 4A 4D 45           
  569	  0F81    4E CF                 
  570	  0F83    CD 1163                       CALL    RNAME
  571	  0F86    21 4156                       LXI     H,FCB+10H
  572	  0F89    CD 116D                       CALL    CRFCBB
  573	  0F8C    0E 17                         MVI     C,17H
  574	  0F8E    11 4146                       LXI     D,FCB
  575	  0F91    CD 0005                       CALL    5
  576	  0F94    C3 0124                       JMP     CRLF
  577	                                ;******************************
  578	  0F97    CD 1041               ERA:    CALL    SETDMI
  579	  0F9A    CD 1163                       CALL    RNAME
  580	  0F9D    CD 116A                       CALL    CRFCB
  581	  0FA0    CD 0EC9                       CALL    DIR22   ; VYPIS
  582	  0FA3    CD 0151                       CALL    TXIMM
  583	  0FA6    5A 52 55 53                   DC      'ZRUS A/N ?'
  584	  0FAA    20 41 2F 4E           
  585	  0FAE    20 BF                 
  586	  0FB0    CD 112E                       CALL    ECHO
  587	  0FB3    E6 DF                         ANI     0DFH
  588	  0FB5    FE 4E                         CPI     'N'
  589	  0FB7    CA 0124                       JZ      CRLF    ; NE
  590	  0FBA    0E 13                         MVI     C,13H
  591	  0FBC    11 4146                       LXI     D,FCB
  592	  0FBF    CD 0005                       CALL    5
  593	  0FC2    C3 0124                       JMP     CRLF
  594	                                ;
  595	                                ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  596	                                ; P R A C E   S   D A T Y
  597	                                ;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
  598	                                ;
  599	                                ; CTI   B Y T E
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-10


  600	                                ;
  601	  0FC5    E5                    GET@2:  PUSH    H
  602	  0FC6    D5                            PUSH    D
  603	  0FC7    C5                            PUSH    B
  604	  0FC8    3A 40E4                       LDA     @IF1
  605	  0FCB    B7                            ORA     A
  606	  0FCC    CC 0D3B                       CZ      FIND
  607	  0FCF    CD 100A                       CALL    CTIB
  608	  0FD2    04                            INR     B
  609	  0FD3    05                            DCR     B
  610	  0FD4    7E                            MOV     A,M
  611	  0FD5    C2 1000                       JNZ     FIN1    ; KONEC FILE
  612	  0FD8    FE 1A                         CPI     1AH
  613	  0FDA    CA 0FE2                       JZ      FIN?
  614	  0FDD    B7                    GET@21: ORA     A       ;0->CY
  615	  0FDE    C1                            POP     B
  616	  0FDF    D1                            POP     D
  617	  0FE0    E1                            POP     H
  618	  0FE1    C9                            RET
  619	  0FE2    E5                    FIN?:   PUSH    H
  620	  0FE3    2A 4167                       LHLD    LAST
  621	  0FE6    7D                            MOV     A,L
  622	  0FE7    B4                            ORA     H
  623	  0FE8    E1                            POP     H
  624	  0FE9    3E 1A                 FIN9:   MVI     A,1AH
  625	  0FEB    C2 0FDD                       JNZ     GET@21  ; NENI LAST
  626	  0FEE    EB                            XCHG            ; HLEDEJ
  627	  0FEF    21 4300                       LXI     H,BUFDX+80H
  628	  0FF2    2B                    FIN0:   DCX     H
  629	  0FF3    7B                            MOV     A,E
  630	  0FF4    BD                            CMP     L
  631	  0FF5    CA 1000                       JZ      FIN1
  632	  0FF8    7E                            MOV     A,M
  633	  0FF9    B7                            ORA     A
  634	  0FFA    C2 0FE9                       JNZ     FIN9
  635	  0FFD    C3 0FF2                       JMP     FIN0
  636	  1000    AF                    FIN1:   XRA     A
  637	  1001    32 40E4                       STA     @IF1
  638	  1004    3E 1A                         MVI     A,1AH
  639	  1006    37                            STC
  640	  1007    C3 0FDE                       JMP     GET@21+1        ; KONEC
  641	                                ;
  642	                                ;  CTI BYTE Z DX:
  643	                                ;
  644	  100A    3A 4144               CTIB:   LDA     IDX
  645	  100D    FE 80                         CPI     80H
  646	  100F    06 00                         MVI     B,0
  647	  1011    CC 101B                       CZ      CTIBL
  648	  1014    CD 1038                       CALL    C@ADR
  649	  1017    32 4144                       STA     IDX
  650	  101A    C9                            RET
  651	                                ;
  652	                                ; CTI BLOK Z DX:
  653	                                ;
  654	  101B    CD 1124               CTIBL:  CALL    BREAK
  655	  101E    CD 1041                       CALL    SETDMI
  656	  1021    2A 4167                       LHLD    LAST
  657	  1024    2B                            DCX     H
  658	  1025    22 4167                       SHLD    LAST
  659	  1028    0E 14                         MVI     C,14H
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-11


  660	  102A    11 4146                       LXI     D,FCB
  661	  102D    CD 0005                       CALL    5
  662	  1030    47                            MOV     B,A     ; ERROR FLG
  663	  1031    C9                            RET
  664	                                ;
  665	                                ; VYPOCTI ADR
  666	  1032    21 4200               C@ADRO: LXI     H,BUFO
  667	  1035    C3 103B                       JMP     $+6
  668	                                ;
  669	  1038    21 4280               C@ADR:  LXI     H,BUFDX
  670	  103B    16 00                         MVI     D,0
  671	  103D    5F                            MOV     E,A
  672	  103E    19                            DAD     D
  673	  103F    3C                            INR     A
  674	  1040    C9                            RET
  675	                                ;
  676	  1041    11 4280               SETDMI: LXI     D,BUFDX
  677	  1044    C3 104A                       JMP     $+6
  678	  1047    11 4200               SETDMO: LXI     D,BUFO
  679	  104A    0E 1A                         MVI     C,1AH
  680	  104C    C3 0005                       JMP     5
  681	                                ;
  682	                                ; ZAPIS   B Y T E
  683	                                ;
  684	  104F    E5                    PUT@2:  PUSH    H
  685	  1050    D5                            PUSH    D
  686	  1051    CD 1067                       CALL    PUT@B
  687	  1054    3A 40E3                       LDA     MODE
  688	  1057    E6 02                         ANI     2       ; BINAR
  689	  1059    79                            MOV     A,C
  690	  105A    C2 1064                       JNZ     PUT@3   ;+
  691	  105D    FE 1A                         CPI     1AH     ;^Z
  692	  105F    C5                            PUSH    B
  693	  1060    CA 0E55                       JZ      CLFIL
  694	  1063    C1                            POP     B
  695	  1064    D1                    PUT@3:  POP     D
  696	  1065    E1                            POP     H
  697	  1066    C9                            RET
  698	  1067    C5                    PUT@B:  PUSH    B       ; ZAPIS BYTE
  699	  1068    3A 40E6                       LDA     @OF1
  700	  106B    B7                            ORA     A
  701	  106C    CC 0DC6                       CZ      OPEN
  702	  106F    3A 4145                       LDA     ODX
  703	  1072    FE 80                         CPI     80H
  704	  1074    CC 1080                       CZ      ZAPISBL
  705	  1077    CD 1032                       CALL    C@ADRO
  706	  107A    32 4145                       STA     ODX
  707	  107D    C1                            POP     B
  708	  107E    71                            MOV     M,C
  709	  107F    C9                            RET
  710	                                ;
  711	                                ; ZAPIS BLOK
  712	                                ;
  713	  1080                          ZAPISBL:
  714	  1080    CD 1124                       CALL    BREAK
  715	  1083    CD 1047                       CALL    SETDMO
  716	  1086    0E 15                         MVI     C,15H
  717	  1088    11 416B                       LXI     D,FCBB
  718	  108B    CD 0005                       CALL    5
  719	  108E    B7                            ORA     A
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-12


  720	  108F    C8                            RZ
  721	  1090    21                            DB      21H     ; LXI H,##
  722	  1091    3C                    ERCPM:  INR     A
  723	  1092    C0                            RNZ             ;255=O.K.
  724	  1093    CD 0151                       CALL    TXIMM
  725	  1096    20 43 50 2F                   DC      ' CP/M.. ERROR'
  726	  109A    4D 2E 2E 20           
  727	  109E    45 52 52 4F           
  728	  10A2    D2                    
  729	  10A3    C3 012A                       JMP     ERROR
  730	                                ;
  731	                                ;
  732	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  733	                                ; P O D P R O G R A M Y
  734	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  735	                                ;
  736	                                ; ZOBRAZ TEXT BEZ PARITY
  737	                                ;
  738	  10A6    7E                    TEXT@:  MOV     A,M
  739	  10A7    E6 7F                         ANI     7FH
  740	  10A9    4F                            MOV     C,A
  741	  10AA    CD 0109                       CALL    CO
  742	  10AD    23                            INX     H
  743	  10AE    15                            DCR     D
  744	  10AF    C2 10A6                       JNZ     TEXT@
  745	  10B2    C9                            RET
  746	                                ;
  747	                                ; NASTAV MODE NA BINAR
  748	                                ;
  749	  10B3    CD 10C0               SETTYP: CALL    BIN?
  750	  10B6    C0                            RNZ
  751	                                ;
  752	                                ; BINARNI VYST. SOUBOR
  753	                                ;
  754	  10B7    3A 40E3               BINAR:  LDA     MODE
  755	  10BA    F6 02                         ORI     2
  756	  10BC    32 40E3                       STA     MODE
  757	  10BF    C9                            RET
  758	                                ;
  759	                                ; VYBER PODLE TYPU BIN-FILE
  760	                                ;
  761	  10C0    11 10E3               BIN?:   LXI     D,TABTYP
  762	  10C3    CD 10CB                       CALL    COMT
  763	  10C6    C8                            RZ
  764	  10C7    CD 10CB                       CALL    COMT
  765	  10CA    C8                            RZ
  766	                                ;
  767	                                ; COMPARE TYP
  768	                                ;
  769	  10CB    21 4174               COMT:   LXI     H,FCBB+9
  770	  10CE    0E 03                         MVI     C,3
  771	  10D0    1A                    COMT1:  LDAX    D
  772	  10D1    BE                            CMP     M
  773	  10D2    C2 10DC                       JNZ     COMT2   ; -
  774	  10D5    23                            INX     H
  775	  10D6    13                            INX     D
  776	  10D7    0D                            DCR     C
  777	  10D8    C2 10D0                       JNZ     COMT1
  778	  10DB    C9                            RET             ;+ SHODA
  779	  10DC    13                    COMT2:  INX     D       ; - RUZNE
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-13


  780	  10DD    0D                            DCR     C
  781	  10DE    C2 10DC                       JNZ     COMT2
  782	  10E1    0D                            DCR     C       ;-
  783	  10E2    C9                            RET
  784	                                ;--------------------
  785	  10E3    42 49 4E              TABTYP: DB      'BIN'
  786	  10E6    53 41 56                      DB      'SAV'
  787	  10E9    43 4F 44                      DB      'COD'
  788	                                ;--------------------
  789	                                ;
  790	                                ;
  791	                                ; TEST NA IOBYTE (PO)
  792	                                ;
  793	  10EC    3A 40E2               NPO:    LDA     IOBYT
  794	  10EF    0F                            RRC
  795	  10F0    0F                            RRC
  796	  10F1    0F                    NRI1:   RRC
  797	  10F2    0F                            RRC
  798	  10F3    E6 03                         ANI     3       ; ZARIZENI
  799	  10F5    3D                            DCR     A       ; MINUS .. SYSTEM
  800	  10F6    3D                            DCR     A       ;ZY.. USER=1
  801	  10F7    C9                            RET             ;NZ.. USER=2
  802	                                ;
  803	                                ;TEST NA IOBYTE (RI)
  804	                                ;
  805	  10F8    3A 40E2               NRI:    LDA     IOBYT
  806	  10FB    C3 10F1                       JMP     NRI1
  807	                                ;
  808	                                ; NASTAV IOBYTE PODLE OPTION
  809	                                ;
  810	  10FE    CD 111B               IOPO:   CALL    CISLO
  811	  1101    D8                            RC
  812	  1102    07                            RLC
  813	  1103    07                            RLC
  814	  1104    0E CF                 IOPO1:  MVI     C,0CFH  ;MASKA
  815	  1106    C3 110F                       JMP     ZMIO
  816	                                ;
  817	  1109    CD 111B               IORI:   CALL    CISLO
  818	  110C    D8                            RC
  819	  110D    0E F3                         MVI     C,0F3H  ;MASKA
  820	  110F    07                    ZMIO:   RLC
  821	  1110    07                            RLC
  822	  1111    47                            MOV     B,A
  823	  1112    3A 40E2                       LDA     IOBYT
  824	  1115    A1                            ANA     C
  825	  1116    B0                            ORA     B
  826	  1117    32 40E2                       STA     IOBYT
  827	  111A    C9                            RET
  828	                                ;
  829	  111B    D6 30                 CISLO:  SUI     '0'
  830	  111D    D8                            RC              ;CY=1..NENI
  831	  111E    FE 03                         CPI     3
  832	  1120    3F                            CMC
  833	  1121    D8                            RC
  834	  1122    3C                            INR     A
  835	  1123    C9                            RET
  836	                                
  837	  1124    CD 0112               BREAK:  CALL    CSTS
  838	  1127    C8                            RZ
  839	  1128    CD 0103                       CALL    CI
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-14


  840	  112B    C3 1132                       JMP     ETX?
  841	                                ; CTI A VYPIS ZNAK
  842	  112E    CD 013F               ECHO:   CALL    CINCR
  843	  1131    C8                            RZ
  844	  1132    FE 03                 ETX?:   CPI     ETX
  845	  1134    C0                            RNZ
  846	  1135    CD 0DBC                       CALL    DIRSTP  ; CLOSE & STOP
  847	  1138    C3 0139                       JMP     NEXT    ; BREAK=>C
  848	                                ;
  849	                                ; CHECK SUM ?
  850	  113B    48                    CHECK:  MOV     C,B
  851	  113C    CD 114D                       CALL    RICH
  852	  113F    B9                            CMP     C
  853	  1140    C8                            RZ
  854	                                ; ZASTAV A OHLAS CHYBU
  855	  1141                          ERSTP:
  856	  1141    C3 012A                       JMP     ERROR
  857	                                ;
  858	  1144    CD 114D               RADR@:  CALL    RICH
  859	  1147    6F                            MOV     L,A
  860	  1148    CD 114D                       CALL    RICH    ;HL
  861	  114B    67                            MOV     H,A
  862	  114C    C9                            RET
  863	                                ;
  864	  114D    CD 0106               RICH:   CALL    RI      ;READ & SUM
  865	  1150    DA 1141                       JC      ERSTP
  866	  1153    F5                            PUSH    PSW
  867	  1154    80                            ADD     B
  868	  1155    47                            MOV     B,A
  869	  1156    F1                            POP     PSW
  870	  1157    C9                            RET
  871	                                ;
  872	  1158    4D                    PADR@:  MOV     C,L
  873	  1159    CD 115D                       CALL    POCH
  874	  115C    4C                            MOV     C,H
  875	                                ;
  876	  115D    79                    POCH:   MOV     A,C     ;PUNCH AND SUM
  877	  115E    80                            ADD     B
  878	  115F    47                            MOV     B,A
  879	  1160    C3 010C                       JMP     PO
  880	                                ;
  881	                                ;************************************
  882	                                ;  VYTVARENI JMENA SOUBORU
  883	                                ;************************************
  884	                                ;
  885	                                ; CTI JMENO Z KLAVESNICE NEBO PAMETI
  886	                                ;
  887	  1163    CD 015A               RNAME:  CALL    RNAM@   ; MONITOR
  888	  1166    EB                            XCHG            ; 1.ADR = DE
  889	  1167    FE 40                         CPI     '@'
  890	  1169    C9                            RET             ; ZY=1 ... DIR
  891	                                ;
  892	                                ; VYTVOR FCB
  893	                                ;
  894	  116A    21 4146               CRFCB:  LXI     H,FCB   ; INPUT
  895	  116D    01 4103               CRFCBB: LXI     B,NAMBUF
  896	  1170    EB                            XCHG
  897	  1171    7D                            MOV     A,L
  898	  1172    B9                            CMP     C       ; OPTION ?
  899	  1173    CA 117C                       JZ      CRFC1
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-15


  900	  1176    0A                            LDAX    B       ; CTI
  901	  1177    E6 03                         ANI     11B
  902	  1179    C3 117D                       JMP     $+4     ; JINAK A:
  903	  117C    AF                    CRFC1:  XRA     A
  904	  117D    12                            STAX    D       ; DRIVE
  905	  117E    13                            INX     D
  906	  117F    0E 08                         MVI     C,8
  907	  1181    CD 1194                       CALL    COPNAM
  908	  1184    0E 03                         MVI     C,3
  909	  1186    CD 1194                       CALL    COPNAM
  910	  1189    EB                            XCHG
  911	  118A    0E 18                 CRF3:   MVI     C,35-11
  912	  118C    36 00                 CRF2:   MVI     M,0
  913	  118E    23                            INX     H
  914	  118F    0D                            DCR     C
  915	  1190    C2 118C                       JNZ     CRF2
  916	  1193    C9                            RET             ; VYMAZ ZBITEK
  917	                                ;
  918	  1194    7E                    COPNAM: MOV     A,M     ; CTI
  919	  1195    FE 2A                         CPI     '*'
  920	  1197    CA 11B3                       JZ      COPNA0
  921	  119A    12                            STAX    D
  922	  119B    CD 11C8                       CALL    ANALN
  923	  119E    CA 11B9                       JZ      COPNA1
  924	  11A1    23                            INX     H
  925	  11A2    13                            INX     D
  926	  11A3    0D                            DCR     C
  927	  11A4    C2 1194                       JNZ     COPNAM
  928	  11A7    7E                    COPN9:  MOV     A,M
  929	  11A8    CD 11C8                       CALL    ANALN   ; DLOUHE JMENO
  930	  11AB    23                            INX     H
  931	  11AC    C8                            RZ
  932	  11AD    FE 20                         CPI     ' '
  933	  11AF    C8                            RZ
  934	  11B0    C3 11A7                       JMP     COPN9
  935	                                ;
  936	  11B3    3E 3F                 COPNA0: MVI     A,'?'
  937	  11B5    23                            INX     H
  938	  11B6    C3 11C0                       JMP     COPNA2
  939	                                ;
  940	  11B9    FE 2E                 COPNA1: CPI     '.'     ; KONEC
  941	  11BB    3E 20                         MVI     A,' '
  942	  11BD    CA 11C1                       JZ      $+4
  943	  11C0    23                    COPNA2: INX     H       ; PRESKOC
  944	  11C1    12                            STAX    D
  945	  11C2    13                            INX     D
  946	  11C3    0D                            DCR     C
  947	  11C4    C2 11C1                       JNZ     $-3
  948	  11C7    C9                            RET
  949	                                ;
  950	  11C8    FE 2E                 ANALN:  CPI     '.'
  951	  11CA    C8                            RZ
  952	  11CB    FE 22                         CPI     '"'
  953	  11CD    C8                            RZ
  954	                                
  955	                                ; ANALIZA ODDELOVACU
  956	                                ;
  957	  11CE    FE 0D                 ANAL:   CPI     CR
  958	  11D0    C8                            RZ
  959	  11D1    B7                            ORA     A
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-16


  960	  11D2    C9                            RET
  961	                                ;
  962	                                ;
  963	  11D3    21 4103               PRENOS: LXI     H,NAMBUF
  964	  11D6    7E                    MOVE:   MOV     A,M
  965	  11D7    12                            STAX    D
  966	  11D8    23                            INX     H
  967	  11D9    13                            INX     D
  968	  11DA    05                            DCR     B
  969	  11DB    C2 11D6                       JNZ     MOVE
  970	  11DE    C9                            RET
  971	                                ;
  972	  11DF    3A 4173               HVEZDA: LDA     FCBB+8  ; OUTPUT FILE
  973	  11E2    FE 3F                         CPI     '?'
  974	  11E4    C8                            RZ
  975	  11E5    3A 4176                       LDA     FCBB+11
  976	  11E8    FE 3F                         CPI     '?'
  977	  11EA    C9                            RET             ; ZY=1 POTOM....*.*;
  978	  11EB    3A 414E               HVEZDI: LDA     FCB+8   ; INPUT FILE
  979	  11EE    FE 3F                         CPI     '?'
  980	  11F0    C8                            RZ
  981	  11F1    3A 4151                       LDA     FCB+11
  982	  11F4    FE 3F                         CPI     '?'
  983	  11F6    C9                            RET
  984	                                ;-------------------------------------------
  985	                                
  986	  11F7                          @@@KOS  EQU     $
  987	                                        
  988	                                ;
  989	                                ;****************************************
  990	                                ;  ROZDELENI  S Y S T E M O V E  R A M
  991	                                ;****************************************
  992	                                ;
  993	  4000                          RST1    EQU     @R@     ; RESTART VEKTORY
  994	                                ;........>>>
  995	                                ;......
  996	                                ;<<... UZIVATELSKY & MONITOR. ZASOBNIK
  997	                                
  998	                                
  999	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 1000	                                        .PHASE  @R@+6DH
 1001	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 1002	                                ; MONITOR DATA
 1003	                                ;
 1004	  406D                          MSTAK:  DS      2
 1005	  406F                          ACSAV:  DS      2
 1006	  4071                          BCSAV:  DS      2
 1007	  4073                          DESAV:  DS      2
 1008	  4075                          HLSAV:  DS      2
 1009	  4077                          PCSAV:  DS      2
 1010	  4079                          SPSAV:  DS      2
 1011	                                ;
 1012	  407B                          BRAD:   DS      2
 1013	  407D                          INSTR:  DS      1
 1014	  407E                          BRAD2:  DS      2
 1015	  4080                          INST2:  DS      1
 1016	  4081                          CADR:   DS      2       ; KURZOR ADR.
 1017	                                ;-------------------------
 1018	  4083                          WMKOD:  DS      14      ; KOD PRO KURZORY
 1019	  4091                          PREV:   DS      21      ; PREVODNI KODY..0
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-17


 1020	                                ;-------------------------
 1021	                                ;       USER I/O DEVICE
 1022	                                ;
 1023	  40A6                          CILOC:  DS      3       ; 0
 1024	  40A9                          COLOC:  DS      3       ; 1
 1025	  40AC                          R1LOC:  DS      3       ; 2
 1026	  40AF                          R2LOC:  DS      3       ; 3
 1027	  40B2                          P1LOC:  DS      3       ; 4
 1028	  40B5                          P2LOC:  DS      3       ; 5
 1029	  40B8                          LILOC:  DS      3       ; 6
 1030	  40BB                          CSLOC:  DS      3       ; 7
 1031	  40BE                                  DS      1
 1032	  40BF                          MEMTOP: DS      2       ; 8
 1033	  40C1                          ERRSW:  DS      3       ; 9
 1034	  40C4                          CI@0:   DS      3       ; 10
 1035	  40C7                          CO@:    DS      3       ; 11
 1036	  40CA                          CSTS@:  DS      3       ; 12
 1037	  40CD                          LO@:    DS      3       ; 13
 1038	  40D0                          KOS@:   DS      3       ; 14
 1039	  40D3                          RI@:    DS      3       ; 15
 1040	  40D6                          PO@:    DS      3       ; 16
 1041	  40D9                          CCPM:   DS      3       ; 17
 1042	  40DC                          GRAF:   DS      3
 1043	  40DF                          RESER:  DS      3
 1044	  0015                          IONUM   EQU ($-CILOC)/3+1
 1045	                                ;
 1046	  40E2                          IOBYT:  DS      1       ; RIZENI I/O ZARIZENI
 1047	                                ;
 1048	                                ;****************************
 1049	                                ;<< EXTERE OVLADANE FLAGY: >>
 1050	                                ;****************************
 1051	  40E3                          MODE:   DS      1       ; CO-MODE
 1052	  40E4                          @IF1:   DS      1
 1053	  40E5                          @IF2:   DS      1
 1054	  40E6                          @OF1:   DS      1
 1055	  40E7                          @OF2:   DS      1
 1056	  40E8                          LINE:   DS      1       ; RADEK
 1057	  40E9                          COLUM:  DS      1       ; SLOUPEC
 1058	  40EA                          RESL:   DS      1       ; RESERVACE
 1059	  40EB                          RESC:   DS      1       ; SLOUPEC
 1060	  40EC                          RESL1:  DS      1       ; POSLEDNI RADEK
 1061	  40ED                          RESC1:  DS      1       ; POSLEDNI SLOUPEC
 1062	  40EE                          PREP:   DS      1       ; UROVEN PRERUSENI
 1063	                                ;
 1064	                                ; PROMENE PRO OPRACNI SYSTEM
 1065	                                ;
 1066	  40EF                          CUR@:   DS      1
 1067	  40F0                          KEY:    DS      1
 1068	  40F1                          CASK:   DS      1       ; <>0 - PRODLUZ MEZERY
 1069	                                
 1070	  40F2                          WNDP:   DS      6       ; PARAMETR PRO 2. OKNO
 1071	  0015                          EXSER   EQU     $-MODE  ; KONEC SLUZEB
 1072	                                ;
 1073	  40F8                          CHAR:   DS      1
 1074	  40F9                          XFLG:   DS      1
 1075	                                ;
 1076	                                ;****************************************************
 1077	                                ;        DATA SPOLECNA PRO MONITOR A O.S.
 1078	                                ;****************************************************
 1079	                                ;
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	1-18


 1080	                                ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 1081	  40FA                          @BT:    DS      1
 1082	  40FB                          @PED:   DS      1
 1083	  40FC                          SADR:   DS      2       ; START ADR
 1084	  40FE                          EADR:   DS      2       ; END ADR
 1085	  4100                          SUM:    DS      1
 1086	  4101                          EXTEXT: DS      1
 1087	  4102                          OPT:    DS      1
 1088	  4103                          NAMBUF: DS      65
 1089	                                ;
 1090	                                ;--------------------------------------
 1091	                                ;       D I S K
 1092	                                ;--------------------------------------
 1093	  4144                          IDX:    DS      1
 1094	  4145                          ODX:    DS      1
 1095	  4146                          FCB:    DS      33
 1096	  4167                          LAST:   DS      4
 1097	  416B                          FCBB:   DS      36
 1098	  418F                          EDAT    EQU     $
 1099	                                ;--------------------------------------
 1100	  41CF                          ERAMH   EQU     41CFH   ; KONEC VOLNE RAM
 1101	                                        .DEPHASE
 1102	                                ;
 1103	                                        END     ; [P]
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	S


Macros:

Symbols:
11F7 	@@@KOS          40FA 	@BT             40E4 	@IF1            
40E5 	@IF2            40E6 	@OF1            40E7 	@OF2            
40FB 	@PED            4000 	@R@             406F 	ACSAV           
11CE 	ANAL            11C8 	ANALN           012D 	ASHEX           
4071 	BCSAV           10C0 	BIN?            10B7 	BINAR           
1300 	BIOS            407B 	BRAD            407E 	BRAD2           
1124 	BREAK           4280 	BUFDX           4200 	BUFO            
1038 	C@ADR           1032 	C@ADRO          4081 	CADR            
003A 	CAN             40F1 	CASK            40D9 	CCPM            
40F8 	CHAR            113B 	CHECK           0103 	CI              
40C4 	CI@0            40A6 	CILOC           013F 	CINCR           
111B 	CISLO           0E59 	CLF0            0E64 	CLF1            
0E55 	CLFIL           0E3D 	CLOSE           0E4D 	CLOSE2          
0DC1 	CLST2           0DB2 	CLSTP           0109 	CO              
40C7 	CO@             40A9 	COLOC           40E9 	COLUM           
0040 	COMLE           10CB 	COMT            10D0 	COMT1           
10DC 	COMT2           11A7 	COPN9           11B3 	COPNA0          
11B9 	COPNA1          11C0 	COPNA2          1194 	COPNAM          
0000 	CPM             000D 	CR              118C 	CRF2            
118A 	CRF3            117C 	CRFC1           116A 	CRFCB           
116D 	CRFCBB          0124 	CRLF            40BB 	CSLOC           
0112 	CSTS            40CA 	CSTS@           100A 	CTIB            
101B 	CTIBL           40EF 	CUR@            0130 	DADR            
0133 	DBYT            007F 	DEL             4073 	DESAV           
0EB8 	DIR             0EC9 	DIR22           0F0E 	DIR33           
0EA6 	DIRD            0EBF 	DIRD1           0ECC 	DIRD2           
0ED4 	DIRD3           0DBC 	DIRSTP          0CA3 	DUMMY           
40FE 	EADR            112E 	ECHO            418F 	EDAT            
0004 	EOT             1800 	EP3             0C00 	EPROM           
0F97 	ERA             0000 	ERAM            41CF 	ERAMH           
1091 	ERCPM           012A 	ERROR           40C1 	ERRSW           
1141 	ERSTP           0003 	ETX             1132 	ETX?            
0127 	EXPR            0015 	EXSER           4101 	EXTEXT          
4146 	FCB             416B 	FCBB            0FF2 	FIN0            
1000 	FIN1            0FE9 	FIN9            0FE2 	FIN?            
0D3B 	FIND            0D47 	FIND2           0FC5 	GET@2           
0FDD 	GET@21          40DC 	GRAF            0136 	HILO            
4075 	HLSAV           0009 	HT              11DF 	HVEZDA          
11EB 	HVEZDI          0148 	HXASC           4144 	IDX             
0C4D 	INIT1           0E98 	INITD           0C24 	INITS           
4080 	INST2           407D 	INSTR           015D 	INTER           
40E2 	IOBYT           0115 	IOCHK           011E 	IODEF           
0015 	IONUM           10FE 	IOPO            1104 	IOPO1           
1109 	IORI            0118 	IOSET           40F0 	KEY             
40D0 	KOS@            0CA4 	KOS@@           4167 	LAST            
00FF 	LENGHT          000A 	LF              40B8 	LILOC           
40E8 	LINE            0D7B 	LO1             0DA2 	LO2             
40CD 	LO@             0D78 	LOAD            0024 	MAXSL           
40BF 	MEMTOP          0CB5 	MICOS           40E3 	MODE            
0100 	MONIT           11D6 	MOVE            406D 	MSTAK           
4103 	NAMBUF          000B 	NAMLE           0139 	NEXT            
10EC 	NPO             10F8 	NRI             10F1 	NRI1            
4145 	ODX             0DC6 	OPEN            0DD2 	OPEN2           
4102 	OPT             40B2 	P1LOC           40B5 	P2LOC           
1158 	PADR@           4077 	PCSAV           010C 	PO              
40D6 	PO@             115D 	POCH            0010 	PREAM           
MIKOS/D V5.0 23.3.88/P.P.	MACRO-80 3.44	09-Dec-81	PAGE	S-1


11D3 	PRENOS          40EE 	PREP            4091 	PREV            
104F 	PUT@2           1064 	PUT@3           1067 	PUT@B           
40AC 	R1LOC           40AF 	R2LOC           1144 	RADR@           
0F54 	RENAME          40EB 	RESC            40ED 	RESC1           
40DF 	RESER           40EA 	RESL            40EC 	RESL1           
0D53 	REWI            0D72 	REWIND          0106 	RI              
40D3 	RI@             114D 	RICH            015A 	RNAM@           
1163 	RNAME           4000 	RST1            00CF 	RSTN            
40FC 	SADR            0E2F 	SAV1            0E09 	SAVE            
1041 	SETDMI          1047 	SETDMO          10B3 	SETTYP          
0F15 	SIZE            0CAA 	SLUZBA          017B 	SMTAB           
0001 	SOH             013C 	SPACE           4079 	SPSAV           
001A 	SUBS            4100 	SUM             10E3 	TABTYP          
0142 	TEXT            10A6 	TEXT@           FFFF 	TV64            
3800 	TVBEG           3814 	TVR             3824 	TVW             
0151 	TXIMM           0E85 	TYP0            0E82 	TYPE            
0000 	TYPTER          0012 	UDATA           0010 	UMODE           
0013 	URES            0F36 	USED            0F3B 	USED1           
0F3F 	USED2           0F4A 	USED3           0011 	USTAT           
4083 	WMKOD           0154 	WND@            40F2 	WNDP            
40F9 	XFLG            0C18 	ZAC             1080 	ZAPISBL         
110F 	ZMIO            



No Fatal error(s)



@@@KOS	  986#
@BT	 1081#
@IF1	  158	  281	  327	  604	  637	 1052#
@IF2	  330	 1053#
@OF1	  159	  364	  408	  434	  699	 1054#
@OF2	 1055#
@PED	 1082#
@R@	   19#	  993	 1000
ACSAV	 1005#
ANAL	  957#
ANALN	  922	  929	  950#
ASHEX	   58#
BCSAV	 1006#
BIN?	  749	  761#
BINAR	  111	  376	  754#
BIOS	   16#	  173
BRAD	 1012#
BRAD2	 1014#
BREAK	  453	  654	  714	  837#
BUFDX	   17#	  495	  627	  669	  676
BUFO	   18#	  421	  666	  678
C@ADR	  648	  669#
C@ADRO	  666#	  705
CADR	 1016#
CAN	   90#
CASK	 1068#
CCPM	  156	  262	  341	  407	 1041#
CHAR	 1073#
CHECK	  313	  319	  850#
CI	   41#	  839
CI@0	  136	 1034#
CILOC	 1023#	 1044
CINCR	   45#	  842
CISLO	  810	  817	  829#
CLF0	  422#	  427
CLF1	  424	  428#
CLFIL	  420#	  693
CLOSE	  108	  232	  404#
CLOSE2	  414#
CLST2	  325	  329#
CLSTP	  322#
CO	   43#	  452	  741
CO@	 1035#
COLOC	 1024#
COLUM	 1057#
COMLE	   69#
COMT	  762	  764	  769#
COMT1	  771#	  777

COMT2	  773	  779#	  781
COPN9	  928#	  934
COPNA0	  920	  936#
COPNA1	  923	  940#
COPNA2	  938	  943#
COPNAM	  907	  909	  918#	  927
CPM	    8#	   24	  172
CR	   73#	  957
CRF2	  912#	  915
CRF3	  483	  911#
CRFC1	  899	  903#
CRFCB	  271	  470	  563	  580	  894#
CRFCBB	  351	  572	  895#
CRLF	   50#	  227	  322	  450	  487	  576	  589	  593
CSLOC	 1030#
CSTS	   40#	  837
CSTS@	 1036#
CTIB	  607	  644#
CTIBL	  647	  654#
CUR@	 1066#
DADR	   49#	  529
DBYT	   48#
DEL	   75#
DESAV	 1007#
DIR	  267	  346	  464	  475#
DIR22	  474	  484#	  581
DIR33	  511	  516#
DIRD	  238	  468#
DIRD1	  479#	  482
DIRD2	  486#	  519
DIRD3	  486	  489#
DIRSTP	  326#	  846
DUMMY	  178#
EADR	  306	 1084#
ECHO	  225	  454	  586	  842#
EDAT	 1098#
EOT	   89#
EP3	   21#	  169	  171
EPROM	   35#	   96	  117	  185
ERA	  246	  578#
ERAM	   33#
ERAMH	 1100#
ERCPM	  275	  360	  432	  722#
ERROR	   57#	  155	  248	  353	  410	  565	  729	  856
ERRSW	 1033#
ERSTP	  303	  312	  855#	  865
ETX	   76#	  844
ETX?	  840	  844#
EXPR	   47#	  378

EXSER	 1071#
EXTEXT	  205	 1086#
FCB	  272	  276	  461	  471	  489	  571	  574	  591	  660	  894	  978	  981
	 1095#
FCBB	  350	  354	  358	  429	  717	  769	  972	  975	 1097#
FIN0	  628#	  635
FIN1	  611	  631	  636#
FIN9	  624#	  634
FIN?	  613	  619#
FIND	  106	  258#	  298	  448	  606
FIND2	  266#
GET@2	  112	  601#
GET@21	  614#	  625	  640
GRAF	 1042#
HILO	   51#	  317	  395
HLSAV	 1008#
HT	   77#
HVEZDA	  352	  972#
HVEZDI	  564	  978#
HXASC	   59#
IDX	  280	  644	  649	 1093#
INIT1	  128	  143#
INITD	  240	  459#
INITS	  105	  123#
INST2	 1015#
INSTR	 1013#
INTER	   63#
IOBYT	  168	  793	  805	  823	  826	 1046#
IOCHK	   54#
IODEF	   46#
IONUM	 1044#
IOPO	  337	  810#
IOPO1	  814#
IORI	  258	  817#
IOSET	   56#
KEY	 1067#
KOS@	  154	 1038#
KOS@@	  153	  184#
LAST	  620	  656	  658	 1096#
LENGHT	   67#
LF	   74#
LILOC	 1029#
LINE	 1056#
LO1	  299#	  301
LO2	  315#	  318
LO@	 1037#
LOAD	  109	  236	  298#
MAXSL	  117#	  186
MEMTOP	 1032#

MICOS	  104	  202#
MODE	  435	  437	  687	  754	  756	 1051#	 1071
MONIT	   22#	   40	   41	   42	   43	   44	   45	   46	   47	   48	   49	   50
	   51	   52	   53	   54	   55	   56	   57	   58	   59	   60	   61	   62
	   63	   64
MOVE	  138	  163	  964#	  969
MSTAK	 1004#
NAMBUF	  895	  963	 1088#
NAMLE	   68#
NEXT	   52#	  847
NPO	  338	  404	  793#
NRI	  259	  323	  805#
NRI1	  796#	  806
ODX	  362	  702	  706	 1094#
OPEN	  107	  230	  337#	  375	  701
OPEN2	  345#
OPT	 1087#
P1LOC	 1027#
P2LOC	 1028#
PADR@	  384	  386	  872#
PCSAV	 1009#
PO	   44#	  879
PO@	 1040#
POCH	  380	  388	  390	  394	  398	  873	  876#
PREAM	   78#
PRENOS	  963#
PREP	 1062#
PREV	 1019#
PUT@2	  114	  115	  684#
PUT@3	  690	  695#
PUT@B	  418	  686	  698#
R1LOC	  161	 1025#
R2LOC	 1026#
RADR@	  305	  308	  858#
RENAME	  244	  556#
RESC	 1059#
RESC1	 1061#
RESER	 1043#
RESL	 1058#
RESL1	 1060#
REWI	  272#	  292
REWIND	  113	  289#
RI	   42#	  449	  864
RI@	 1039#
RICH	  299	  310	  315	  851	  858	  860	  864#
RNAM@	   62#	  887
RNAME	  266	  345	  469	  562	  570	  579	  887#
RST1	  993#
RSTN	   20#

SADR	  309	 1083#
SAV1	  393#	  396
SAVE	  110	  234	  375#
SETDMI	  203	  476	  578	  655	  676#
SETDMO	  678#	  715
SETTYP	  365	  749#
SIZE	  494	  520#
SLUZBA	  187#
SMTAB	   64#	  135
SOH	   88#
SPACE	   55#
SPSAV	 1010#
SUBS	   79#
SUM	  320	 1085#
TABTYP	  761	  785#
TEXT	   53#
TEXT@	  503	  507	  738#	  744
TV64	    7#
TVBEG	   34#	   70	   71	  124
TVR	   70#
TVW	   71#
TXIMM	   60#	  140	  143	  206	  504	  512	  520	  556	  566	  582	  724
TYP0	  449#	  455
TYPE	  242	  448#
TYPTER	    9#	  133
UDATA	   83#	  139
UMODE	   85#	  130
URES	   82#	  131
USED	  527	  534#
USED1	  537#	  553
USED2	  540#	  552
USED3	  546	  548#
USTAT	   84#	  134
WMKOD	 1018#
WND@	   61#
WNDP	 1070#
XFLG	 1074#
ZAC	  112#	  160
ZAPISBL	  428	  704	  713#
ZMIO	  815	  820#



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


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


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


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



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