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


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


8 bity / PLAN-80A

Výpis programu PLAN80A TINY BASIC V3Q


Obsah:




        TITLE   'PLAN80A  TINY BASIC  V3Q'





















;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;X                                                          X
;X                                                          X
;X            PLAN-80A      V.3.Q     27.09.88              X
;X                                                          X
;X                    T I N Y   B A S I C                   X
;X                                                          X
;X                                                          X
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

























        ;*************************************************
        ;
        ;       ZAKLADNI ADRESY
        ;
UZIRAM  EQU     0006H   ; ZACATEK UZIVATELSKE RAM
RAMEND  EQU     0004H   ; ADR. OBSAHUJICI KONEC RAM
BASIC   EQU     0E000H  ; POCATECNI ADRESA TINY BASICU
TCLOSE  EQU     0F028H  ; UZAVRI SOUBOR
JOIN0   EQU     0F004H  ; INICIUJ MAGNETOFON
ADRTPR  EQU     0F000H  ; POCATECNI ADRESA PROGRAMU MAGNETOFONU
        ;
        ;       SPOJOVACI ADRESY NA MONITOR
        ;
CI      EQU     0F803H  ; VSTUP Z KONZOLY (A)
COM     EQU     0F809H  ; VYSTUP NA KONZOLU (C)
RI      EQU     0F806H  ; VSTUP ZE SNIMACE (MAGNETOFONU) (A)
PO      EQU     0F80CH  ; VYSTUP NA DEROVAC (MAGNETOFON) (C)
LO      EQU     0F80FH  ; VYSTUP NA TISKARNU (C)
CSTS    EQU     0F812H  ; STAV KONZOLY (A)
MEMCHK  EQU     0F81BH  ; KONEC UZIVATELSKE RAM (B,A)
NEXTM   EQU     0F839H  ; TEPLY START MONITORU
SPACE   EQU     0F83CH  ; ZOBRAZ MEZERU
DADR    EQU     0F830H  ; VYPIS (HL) JAKO ASCII
DBYTE   EQU     0F833H  ; VYPIS (A) JAKO ASCII
ASHEX   EQU     0F82DH  ; ASCII NA HEX NIBBLE
ADRKUR  EQU     0F845H  ; ADRESA KURZORU (HL)
TIMER   EQU     0F84BH  ; PODPROGRAM CEKANI <BC> MS
        ;
        ;       DEFINICE KONSTANT
        ;
CR      EQU     0DH     ;  CR
LF      EQU     0AH     ;  LF
CTRLC   EQU     03H     ; CTRL C
CTRLX   EQU     18H     ; CTRL X
CTRLD   EQU     04H     ; CTRL D
CTRLY   EQU     19H     ; CTRL Y
CTRLS   EQU     13H     ; CTRL S
DOWN    EQU     18H     ; SIPKA DOLU
LEFT    EQU     08H     ; SIPKA VLEVO
RIGHT   EQU     04H     ; SIPKA VPRAVO
RUB     EQU     7FH     ; VYMAZ (DEL)
SUBS    EQU     1AH     ; SUB
BS      EQU     08H     ; ZPETNY POSUV
KILO    EQU     512     ; KONSTANTA PRO RAM < 1 KBYTE
FF      EQU     0CH     ; NOVA STRANKA
BELL    EQU     07H     ; ZVONEK
ESC     EQU     1BH     ; CTRL [
HOME    EQU     1DH     ; LEVY HORNI ROH OBRAZOVKY
DL      EQU     1EH     ; VYMAZ RADKY
DSCR    EQU     1FH     ; VYMAZ OBRAZOVKY
SUBS    EQU     1AH     ; CTRL Z
LINECO  EQU     35H     ; CITAC LINEK
KEYTPR  EQU     55H     ; PRIZNAK MAGNETOFONU
        ;
        ;*************************************************
        ;
        .PHASE  BASIC
        ;
BASPET: JMP     START   ; STUDENY START BASIC
        JMP     RSTART  ; TEPLY START BASIC
        ;
INTSTA: INX     SP      ; START PO BREAKU - RST 7
        INX     SP      ; OBNOVENI SP
        JMP     RSTART
        ;
TOP:    LHLD    TXTUNF
        INX     H
        RET
        ;
LENGHT: LHLD    LEGT
        DCX     H
        RET
        ;
BEND:   CALL    ENDCHK
        JMP     RSTART
        ;
        ;       START
        ;
START:  DI
        LHLD    RAMEND  ; KONEC PROGRAMOVE RAM V <HL>
        DCX     H
        DCX     H
        SPHL            ; NASTAV SP
        CALL    DISP    ; CO:=CO
        XRA     A       ; A:=0
        STA     MODE    ; FORMAT ZNAKU:= OBYCEJNY
        LXI     D,MSG1
        CALL    PRTSTG  ; OHLASENI BASICU
        LXI     H,TXTBGN
        SHLD    TXTUNF  ; INICIACE UKAZATELE KONCE PROGRAMU
        CALL    USREND  ; V <HL> KONEC UZIVATELSKE OBLASTI RAM
        JMP     RAM1    ; NASTAV RAM V BASICU
START1: SHLD    TXTEND
        ;
        ;       RSTART - PRIHRATY START
        ;
RSTART: CALL    CRLF
RSTAR1: LHLD    RAMEND
        DCX     H
        DCX     H       ; V <HL> (KONEC PROGRAMOVE RAM -2)
        SPHL            ; NASTAV SP
        MVI     A,0C3H  ; OBSLUHA RST 7 TO RAM
        STA     RST7RA
        LXI     H,INTSTA
        SHLD    RST7RA+1
        LXI     D,OK            ; DE:=ADR TEXTU 'READY'
        SUB     A               ; A:=0
        STA     MODE
        CMA                     ; A:=0FFH
        STA     MASKIN
        CALL    PRTSTG          ; 'READY' NA OBRAZOVKU
        LXI     H,ST2+1
        SHLD    CURRNT
ST2:    LXI     H,0
        SHLD    LOPVAR  ;  POINTER PRO 'FOR':=0
        SHLD    STKGOS
ST3:    MVI     B,5CH   ;  5CH JAKO PROMT NA ZACATKU RADKU
        CALL    GETLN   ;  PREVEZMI RADEK BASIC Z KLAVESNICE
ST5:    PUSH    D       ;  V <DE> ADRESA POSL. ZNAKU + 1
        CALL    DBUFF   ;  V <DE> ADRESA BUFFERU
        CALL    TSTNUM  ;  VSTUP CISLA DO <HL>, V <DE> ADR. DAL. ZN.
        CALL    IGNB    ;  VYNECH MEZERY
        MOV     A,H
        ORA     L       ;  JE CISLO NULOVE
        POP     B       ;  V <BC> ADRESA POSL. ZNAKU + 1
        JZ      DIRECT  ;  PRI NULOVEM CISLE PROVED IHNED
        DCX     D
        MOV     A,H
        STAX    D
        DCX     D
        MOV     A,L
        STAX    D       ;  ZAPIS CISLO RADKU BINARNE
EDIST:  PUSH    B
        PUSH    D
        MOV     A,C
        SUB     E
        PUSH    PSW     ;  V <A> POCET ZNAKU
        CALL    FNDLN   ;  NAJDI ADRESU RADKU <HL>
        PUSH    D
        JNZ     ST4     ;  TAKOVY RADEK JESTE NENI - SKOC
        PUSH    D
        CALL    FNDNXT  ;  NAJDI ADRESU DALSIHO RADKU
        POP     B
        LHLD    TXTUNF  ;  V <HL> ADRESA KONCE PROGRAMU
        CALL    MVUP    ;  STARY RADEK ZNIC
        MOV     H,B
        MOV     L,C
        SHLD    TXTUNF  ;  NOVY KONEC PROGRAMU
ST4:    POP     B
        LHLD    TXTUNF
        POP     PSW     ;  V <A> POCET ZNAKU
        PUSH    H
        CPI     3       ;  PRAZDNY RADEK ?
        JZ      RSTART  ;  ANO - RESTART
        ADD     L
        MOV     L,A
        MVI     A,0
        ADC     H
        MOV     H,A     ;  NOVY KONEC PROGRAMU V <HL>
        CALL    DTXTE   ;  MAXIMALNI ADRESA V <DE>
        CALL    COMP    ;  PRETECENI ?
        JNC     QSORRY  ;  ANO - CHYBA
        SHLD    TXTUNF  ;  NOVY KONEC PROGRAMU V <HL>
        POP     D       ;  ADRESA RADKU V <DE>
        CALL    MVDOWN  ;  VLOZ RADEK
        POP     D
        POP     H
        CALL    MVUP
        JMP     ST3
        ;
        ;       ZJISTENI KONCE UZIVATELSKE OBLASTI PAMETI RAM
        ;
USREND: PUSH    B
        CALL    MEMCHK
        MOV     H,B
        MOV     L,A
        DCX     H
        POP     B
        RET
        ;
MSG1:   DB      '  TINY BASIC V3Q',0
        ;
        ;       TABULKA KLICOVICH SLOV
        ;
TAB1:   DB      'LIST',0
        DW      LIST
        DB      'LLIST',0
        DW      LLIST
        DB      'RUN',0
        DW      RUN
        DB      'NEW',0
        DW      NEW
TXMON:  DB      'MONITOR',0
        DW      MONIT
        DB      'RAM',0
        DW      RAM
        DB      'LOAD',0
        DW      LOAD
        DB      'SAVE',0
        DW      SAVE
TAB2:   DB      'NEXT',0
        DW      NEXT
        DB      'LET',0
        DW      LET
        DB      'CLS',0
        DW      CLS
        DB      'CLEAR',0
        DW      CLEAR
        DB      'HARD',0
        DW      HARD
        DB      'DISPL',0
        DW      DISPL
        DB      'IF',0
        DW      IFF
        DB      'GOTO',0
        DW      GOTO
        DB      'GOSUB',0
        DW      GOSUB
        DB      'RETURN',0
        DW      RETURN
        DB      'REM',0
        DW      REM
        DB      'FOR',0
        DW      FOR
        DB      'INPUT',0
        DW      INPUT
        DB      'PRINT',0
        DW      PRINT
        DB      'LPRINT',0
        DW      LPRINT
        DB      'END',0
        DW      BEND
        DB      'STOP',0
        DW      STOP
        DB      'CALL',0
        DW      BCALL
        DB      'OUTCHAR',0
        DW      OUTCHR
        DB      'OUT',0
        DW      BOUT
        DB      'O$',0
        DW      O
        DB      'I$',0
        DW      I
        DB      'WAIT',0
        DW      WAIT
        DB      'BEEP',0
        DW      BEEP
        DB      'POKE',0
        DW      POKE
        DB      'MASK',0
        DW      MASK
        DB      'TAB',0
        DW      TAB
        DB      'BYTE',0
        DW      BYTE
        DB      'WORD',0
        DW      WORD
        DB      'PUT',0
        DW      PUT
        DB      'CLOSE',0
        DW      CLOSE
        DB      'INIT',0
        DW      INIT
        DB      'PLOT',0
        DW      PLOT
        DB      'DRAW',0
        DW      DRAW
        DB      'MOVE',0
        DW      MOVE
        DB      'CURS',0
        DW      CURS
        DB      'EDIT',0
        DW      EDIT
        DB      0
        DW      DEFLT
TAB4:   DB      'RND',0
        DW      RND
        DB      'ABS',0
        DW      ABS
        DB      'SIZE',0
        DW      SIZE
        DB      'PEEK',0
        DW      PEEK
        DB      'INCHAR',0
        DW      INCHAR
        DB      'HEX',0
        DW      HEX
        DB      'INM',0
        DW      INM
        DB      'IN',0
        DW      BIN
        DB      27H,0   ;  UVOZOVKA '
        DW      QUOTE
        DB      'TOP',0
        DW      TOP
        DB      'AREM',0
        DW      AREM
        DB      'LEN',0
        DW      LENGHT
        DB      'GET',0
        DW      GET
        DB      0
        DW      XP40
TAB5:   DB      'TO',0
        DW      FR1
        DB      0
        DW      QWHAT
TAB6:   DB      'STEP',0
        DW      FR2
        DB      0
        DW      FR3
TAB8:   DB      '>=',0
        DW      XP11
        DB      '#',0
        DW      XP12
        DB      '>',0
        DW      XP13
        DB      '=',0
        DW      XP15
        DB      '<=',0
        DW      XP14
        DB      '<',0
        DW      XP16
        DB      0
        DW      XP17
        ;
        ;  COMP  POROVNANI <HL> A <DE>
        ;  <HL> < <DE> ... CARRY
        ;  <HL> = <DE> ... ZERO
        ;
COMP:   MOV     A,H
        CMP     D
        RNZ
        MOV     A,L
        CMP     E
        RET
        ;
        ;  IGNB  VYNECHANI MAEZER PODLE <DE>
        ;
IGNB:   LDAX    D
        CPI     ' '
        RNZ
        INX     D
        JMP     IGNB
        ;
        ;  FINI
        ;
FINI:   POP     PSW
        CALL    FIN
        JMP     QWHAT
        ;
        ;  INDEXOVANA PROMENA
        ;
TSTV:   CALL    IGNB
        SUI     40H
        RC
        JNZ     TV1
        INX     D
        CALL    PARN
        DAD     H
        JC      QHOW
        PUSH    D
        XCHG
        CALL    SIZE
        CALL    COMP
        JC      ASORRY
        LHLD    TXTEND
        CALL    SUBDE
        POP     D
        RET
        ;
        ;  VYPOCET ADRESY ULOZENI PROMENE
        ;
TV1:    CPI     1BH
        CMC
        RC
        INX     D
        LXI     H,VARBGN
        RLC
        ADD     L
        MOV     L,A
        MVI     A,0
        ADC     H
        MOV     H,A
        RET
        ;
        ;  TSTC   POROVNANI TEXTU PODLE <DE> SE ZNAKEM
        ;  KTERY JE ZA CALL+3. JE-LI SHODNY POKRACUJE
        ;  SE NA CALL+5, JINAK NA ADRESE CALL+N+2.
        ;  N JE NA ADRESE CALL...+4
        ;
TSTC:   XTHL
        CALL    IGNB
        CMP     M
        INX     H
        JZ      TC2
        PUSH    B
        MOV     C,M
        MVI     B,0
        DAD     B
        POP     B
        DCX     D
TC2:    INX     D
        INX     H
        XTHL
        RET
        ;
        ;  TSTNUM   PREVOD ASCII CISLA Z BUFFERU
        ;  NA BINARNI CISLO V <HL>, V <DE> ADRESA DALSIHO ZNAKU.
        ;
TSTNUM: LXI     H,0
        MOV     B,H
        CALL    IGNB    ;  VYNECH MEZERY
TN1:    CPI     '0'     ;  NULA ?
        RC
        CPI     3AH
        RNC
        MVI     A,0F0H
        ANA     H
        JNZ     QHOW
        INR     B
        PUSH    B
        MOV     B,H
        MOV     C,L
        DAD     H
        DAD     H
        DAD     B
        DAD     H
        LDAX    D
        INX     D
        ANI     0FH
        ADD     L
        MOV     L,A
        MVI     A,0
        ADC     H
        MOV     H,A
        POP     B
        LDAX    D
        JP      TN1
        ;
        ;  QHOW  OTAZKA HOW
        ;
QHOW:   PUSH    D
AHOW:   LXI     D,HOW
        JMP     ERROR
        ;
        ;  TEXTY OTAZEK
        ;
HOW:    DB      'HOW?',CR
OK:     DB      'READY',CR
WHAT:   DB      'WHAT?',CR
SORRY:  DB      'SORRY',CR
        ;
        ;  NEW
        ;
NEW:    CALL    ENDCHK
        LXI     H,TXTBGN
        SHLD    TXTUNF
        ;
        ;  RUN
        ;
RUN:    CALL    ENDCHK
        LXI     D,TXTBGN
RUNNXL: LXI     H,0
        CALL    FNDLP
        JC      RSTART
RUNTSL: XCHG
        SHLD    CURRNT
        XCHG
        INX     D
        INX     D
RUNSML: XRA     A
        STA     MODE    ;  NORMALNI ZNAK
        CALL    CONT
        LXI     H,TAB2-1
        JMP     EXEC
        ;
        ;  GOTO
        ;
GOTO:   CALL    EXPR
        PUSH    D
        CALL    ENDCHK
        CALL    FNDLN
        JNZ     AHOW
        POP     PSW
        JMP     RUNTSL
        ;
        ;  HARD
        ;
HARD:   CALL    PRNTST
        CALL    FINI
        ;
        ;  DISPL
        ;
DISPL:  CALL    DISP
        CALL    FINI
        ;
        ;  LIST
        ;
LLIST:  CALL    PRNTST
LIST:   CALL    TSTNUM
        MVI     A,0FFH
        STA     LISTC
        CALL    IGNB
        CPI     CR
        JNZ     LS4
LS0:    CALL    FNDLN
LS1:    JC      LS6
        LDA     LISTC
        CPI     0FFH
        JZ      LS5
        DCR     A
        JZ      RSTART
LS5:    STA     LISTC
LS3:    CALL    PRTLN
        CALL    FNDLP
        JMP     LS1
LS4:    CPI     '+'
        JNZ     LS0
        INX     D
        CALL    IGNB
        PUSH    H
        CALL    TSTNUM
        MOV     A,L
        INR     A
        INR     A
        STA     LISTC
        POP     H
        JMP     LS0
LS6:    CALL    DISP
        JMP     RSTAR1
        ;
        ;  PRINT
        ;
LPRINT: CALL    PRNTST
PRINT:  MVI     C,8
        CALL    TSTC    ;  JDE O ":" ?
        DB      ':'
        DB      9
        CALL    CRLF    ;  ANO - VICENASOBNY PRIKAZ
        CALL    DISP
        JMP     RUNSML
PR1:    CALL    TSTC    ;  JDE O CR ?
        DB      CR
        DB      9
        CALL    CRLF    ;  ANO - KONEC PRIKAZU
PR6:    CALL    DISP
        JMP     RUNNXL
PR0:    CALL    TSTC    ;  JDE O "*" ?
        DB      '*'
        DB      14
        CALL    EXPR    ;  ANO - VSTUP PARAMETRU ZOBRAZENI
        MOV     A,L
        RRC
        RRC
        ANI     0C0H
        STA     MODE    ;  NASTAV REZIM ZOBRAZENI (0-NORM, 1-INVER)
        JMP     PR3
        CALL    TSTC    ;  JDE O "#" ?
        DB      '#'
        DB      7
        CALL    EXPR    ;  ANO - VSTUP PARAMETU IND. PROMENNE
        MOV     C,L
        JMP     PR3
        CALL    QTSTG
        JMP     PR8
PR3:    CALL    TSTC    ;  JDE O "," ?
        DB      ','
        DB      6
        CALL    FIN     ;  ANO - DALSI ARGUMENT
        JMP     PR0
        CALL    CRLF
        CALL    DISP
        CALL    FINI
PR8:    CALL    EXPR    ;  ZOBRAZ CISLO
        PUSH    B
        CALL    PRTNUM
        POP     B
        JMP     PR3
        ;
        ;  GOSUB
        ;
GOSUB:  CALL    PUSHA
        CALL    EXPR
        PUSH    D
        CALL    FNDLN
        JNZ     AHOW
        LHLD    CURRNT
        PUSH    H
        LHLD    STKGOS
        PUSH    H
        LXI     H,0
        SHLD    LOPVAR
        DAD     SP
        SHLD    STKGOS
        JMP     RUNTSL
        ;
        ;  RETURN
        ;
RETURN: CALL    ENDCHK
        LHLD    STKGOS
        MOV     A,H
        ORA     L
        JZ      QWHAT
        SPHL
        POP     H
        SHLD    STKGOS
        POP     H
        SHLD    CURRNT
        POP     D
        CALL    POPA
        CALL    FINI
        ;
        ;  FOR
        ;
FOR:    CALL    PUSHA
        CALL    SETVAL
        DCX     H
        SHLD    LOPVAR
        LXI     H,TAB5-1
        JMP     EXEC
        ;
FR1:    CALL    EXPR
        SHLD    LOPLMT
        LXI     H,TAB6-1
        JMP     EXEC
        ;
FR2:    CALL    EXPR
        JMP     FR4
        ;
FR3:    LXI     H,1
FR4:    SHLD    LOPINC
        LHLD    CURRNT
        SHLD    LOPLN
        XCHG
        SHLD    LOPPT
        LXI     B,LF
        LHLD    LOPVAR
        XCHG
        MOV     H,B
        MOV     L,B
        DAD     SP
        DB      3EH
FR7:    DAD     B
        MOV     A,M
        INX     H
        ORA     M
        JZ      FR8
        MOV     A,M
        DCX     H
        CMP     D
        JNZ     FR7
        MOV     A,M
        CMP     E
        JNZ     FR7
        XCHG
        LXI     H,0
        DAD     SP
        MOV     B,H
        MOV     C,L
        LXI     H,LF
        DAD     D
        CALL    MVDOWN
        SPHL
FR8:    LHLD    LOPPT
        XCHG
        CALL    FINI
        ;
        ;  NEXT
        ;
NEXT:   CALL    TSTV
        JC      QWHAT
        SHLD    VARNXT
NX0:    PUSH    D
        XCHG
        LHLD    LOPVAR
        MOV     A,H
        ORA     L
        JZ      AWHAT
        CALL    COMP
        JZ      NX3
        POP     D
        CALL    POPA
        LHLD    VARNXT
        JMP     NX0
NX3:    MOV     E,M
        INX     H
        MOV     D,M
        LHLD    LOPINC
        PUSH    H
        MOV     A,H
        XRA     D
        MOV     A,D
        DAD     D
        JM      NX4
        XRA     H
        JM      NX5
NX4:    XCHG
        LHLD    LOPVAR
        MOV     M,E
        INX     H
        MOV     M,D
        LHLD    LOPLMT
        POP     PSW
        ORA     A
        JP      NX1
        XCHG
NX1:    CALL    CKHLDE
        POP     D
        JC      NX2
        LHLD    LOPLN
        SHLD    CURRNT
        LHLD    LOPPT
        XCHG
        CALL    FINI
NX5:    POP     H
        POP     D
NX2:    CALL    POPA
        CALL    FINI
        ;
        ;  REM
        ;
REM:    XCHG
        SHLD    ARMM
        XCHG
        LXI     H,0
        JMP     IFFR
        ;
        ;  AREM
        ;
AREM:   LHLD    ARMM
        RET
        ;
        ;
        ;  CLEAR
        ;
CLEAR:  LXI     H,VARBGN
        PUSH    D
        LXI     D,54
NULD20: MVI     M,0     ; ZAPLN PROSTOR PRO PROMENNE 0
        INX     H
        DCX     D
        MOV     A,D
        ORA     E
        JNZ     NULD20
        POP     D
        CALL    FINI
        ;
        ;  IF
        ;
IFF:    CALL    EXPR
IFFR:   MOV     A,H
        ORA     L
        JNZ     RUNSML
        CALL    FNDSKP
        JNC     RUNTSL
        JMP     RSTART
        ;
        ;  CHYBA VSTUPU
        ;
INPERR: LHLD    STKINP
        SPHL
        POP     H
        SHLD    CURRNT
        POP     D
        POP     D
        ;
        ;  INPUT
        ;
INPUT:
IP1:    PUSH    D
        CALL    QTSTG
        JMP     IP2
        CALL    TSTV
        JC      IP4
        JMP     IP3
IP2:    PUSH    D
        CALL    TSTV
        JC      QWHAT
        LDAX    D
        MOV     C,A
        SUB     A
        STAX    D
        POP     D
        CALL    PRTSTG
        MOV     A,C
        DCX     D
        STAX    D
IP3:    PUSH    D
        XCHG
        LHLD    CURRNT
        PUSH    H
        LXI     H,IP1
        SHLD    CURRNT
        LXI     H,0
        DAD     SP
        SHLD    STKINP
        PUSH    D
        MVI     B,':'
        CALL    GETLN   ; VYTISKNI NA OBRAZOVKU ':'
                        ; A PREVZEMI Z KLAVESNICE RADEK
        CALL    DBUFF   ; DE:=ADR. ZACATKU RADKU S REAKCI
                        ; NA INPUT
        LDAX    D       ; A:=PRVNI ZNAK REAKCE
        CPI     ESC     ; IF <>ESC THEN
        JNZ     NOBRK   ; VYHODNOCENI VYRAZU
        POP     D       ; ELSE OBNOV DE
        XCHG            ; HL:=DE
        MOV     M,E     ; ULOZ
        INX     H
        MOV     M,D
        POP     H       ; HL:=CURRNT
        SHLD    CURRNT  ; ULOZ
        JMP     BREAK1  ; BREAK
NOBRK:  CALL    EXPR    ; VYHODNOCENI VYRAZU
        POP     D
        XCHG
        MOV     M,E
        INX     H
        MOV     M,D
        POP     H
        SHLD    CURRNT
        CALL    CONT
        POP     D
IP4:    POP     PSW
        CALL    TSTC
        DB      ','
        DB      3
        JMP     IP1
        CALL    FINI
        ;
        ;
        ;
DEFLT:  LDAX    D
        CPI     CR
        JZ      LT1
        ;
        ;  LET
        ;
LET:    CALL    SETVAL
        CALL    TSTC
        DB      ','
        DB      3
        JMP     LET
LT1:    CALL    FINI
        ;
        ;       EXPR  VYHODNOCENI VYRAZU
        ;
EXPR:   CALL    EXPR2
        PUSH    H
EXPR1:  LXI     H,TAB8-1
        JMP     EXEC
XP11:   CALL    XP18
        RC
        MOV     L,A
        RET
XP12:   CALL    XP18
        RZ
        MOV     L,A
        RET
XP13:   CALL    XP18
        RZ
        RC
        MOV     L,A
        RET
XP14:   CALL    XP18
        MOV     L,A
        RZ
        RC
        MOV     L,H
        RET
XP15:   CALL    XP18
        RNZ
        MOV     L,A
        RET
XP16:   CALL    XP18
        RNC
        MOV     L,A
        RET
XP17:   POP     H
        RET
XP18:   MOV     A,C
        POP     H
        POP     B
        PUSH    H
        PUSH    B
        MOV     C,A
        CALL    EXPR2
        XCHG
        XTHL
        CALL    CKHLDE
        POP     D
        LXI     H,0
        MVI     A,1
        RET
EXPR2:  CALL    TSTC
        DB      '-'
        DB      6
        LXI     H,0
        JMP     XP26
        CALL    TSTC
        DB      '+'
        DB      0
        CALL    EXPR3
XP23:   CALL    TSTC
        DB      '+'
        DB      15H
        PUSH    H
        CALL    EXPR3
XP24:   XCHG
        XTHL
        MOV     A,H
        XRA     D
        MOV     A,D
        DAD     D
        POP     D
        JM      XP23
        XRA     H
        JP      XP23
        JMP     QHOW
        CALL    TSTC
        DB      '-'
        DB      92H
XP26:   PUSH    H
        CALL    EXPR3
        CALL    CHGSGN
        JMP     XP24
EXPR3:  CALL    EXPR4
XP31:   CALL    TSTC
        DB      '*'
        DB      2DH
        PUSH    H
        CALL    EXPR4
        MVI     B,0
        CALL    CHKSGN
        XTHL
        CALL    CHKSGN
        XCHG
        XTHL
        MOV     A,H
        ORA     A
        JZ      XP32
        MOV     A,D
        ORA     D
        XCHG
        JNZ     AHOW
XP32:   MOV     A,L
        LXI     H,0
        ORA     A
        JZ      XP35
XP33:   DAD     D
        JC      AHOW
        DCR     A
        JNZ     XP33
        JMP     XP35
        CALL    TSTC
        DB      '/'
        DB      4EH
        PUSH    H
        CALL    EXPR4
        MVI     B,0
        CALL    CHKSGN
        XTHL
        CALL    CHKSGN
        XCHG
        XTHL
        XCHG
        MOV     A,D
        ORA     E
        JZ      AHOW
        PUSH    B
        CALL    DIVIDE
        MOV     H,B
        MOV     L,C
        POP     B
XP35:   POP     D
        MOV     A,H
        ORA     A
        JM      QHOW
        MOV     A,B
        ORA     A
        CM      CHGSGN
        JMP     XP31
EXPR4:  LXI     H,TAB4-1
        JMP     EXEC
XP40:   CALL    TSTV
        JC      XP41
        MOV     A,M
        INX     H
        MOV     H,M
        MOV     L,A
        RET
XP41:   CALL    TSTNUM
        MOV     A,B
        ORA     A
        RNZ
PARN:   CALL    TSTC
        DB      '('
        DB      09
        CALL    EXPR
        CALL    TSTC
        DB      ')'
        DB      1
        RET
        JMP     QWHAT
        ;
        ;
        ;
        ;       GENERATOR NAHODNICH CISEL
        ;
        ;       PRO PRACI POUZIVA PARAMETR RANPNT. PRINCIPEM CINNOSTI
        ;       JE GENERACE TOHOTO PARAMETRU NACITANIM OBLASTI PAMETI,
        ;       V NIZ JE NAHRAN INTERPRET. NAHODNA HODNOTA JE ZBITKEM
        ;       PO DELENI PARAMETRU RANPNT UDANOU MAXIMALNI HODNOTOU.
        ;
RND:    CALL    PARN    ; HL:=MAX. HODNOTA
        MOV     A,H
        ORA     A
        JM      QHOW    ; IF ZAPORNA ERROR
        ORA     L
        PUSH    D
        INX     H
        PUSH    H
        JNZ     RA2     ; IF 0 --> INICIUJ
        LXI     H,BASPET
        SHLD    RANPNT
RA2:    LHLD    RANPNT  ; PARAMETR
        LXI     D,MONIT
        CALL    COMP    ; PARAMETR MIMO INTERPRET ?
        JC      RA1
        LXI     H,BASPET ; ANO - INICIUJ
RA1:    MOV     E,M
        INX     H
        MOV     D,M
        SHLD    RANPNT  ; NOVY PARAMETR
        POP     H       ; MAX. HODNOTA DO <DE>
        XCHG            ; PSEUDONAHODNE CISLO DO <HL>
        PUSH    B
        CALL    DIVIDE  ; <HL>/<DE> ... ZBITEK V <HL>
        POP     B
        POP     D
        RET
        ;
        ;
        ;
        ;       ABS
        ;
ABS:    CALL    PARN
        DCX     D
        CALL    CHKSGN
        INX     D
        RET
        ;
        ;  SIZE
        ;
SIZE:   LHLD    TXTUNF
        PUSH    D
        XCHG
        LHLD    TXTEND
        CALL    SUBDE
        POP     D
        RET
        ;
        ;  DIVIE <HL>/<DE> --> <BC>,  ZBITEK V <HL>
        ;
DIVIDE: PUSH    H
        MOV     L,H
        MVI     H,0
        CALL    DV1
        MOV     B,C
        MOV     A,L
        POP     H
        MOV     H,A
DV1:    MVI     C,0FFH
DV2:    INR     C
        CALL    SUBDE
        JNC     DV2
        DAD     D
        RET
SUBDE:  MOV     A,L
        SUB     E
        MOV     L,A
        MOV     A,H
        SBB     D
        MOV     H,A
        RET
        ;
CHKSGN: MOV     A,H
        ORA     A
        RP
CHGSGN: MOV     A,H     ; ZMENA ZNAMENKA
        ORA     L
        RZ              ; CISLO JE NULA !
        MOV     A,H
        PUSH    PSW
        CMA
        MOV     H,A     ; INVERZE HIGH BYTE
        MOV     A,L
        CMA
        MOV     L,A     ; INVERZE LOW BYTE
        INX     H       ; PRICTENI 1
        POP     PSW
        XRA     H
        JP      QHOW    ; PRETECENI
        MOV     A,B
        XRI     80H     ; INVERZE D7 V <B>
        MOV     B,A
        RET
        ;
CKHLDE: MOV     A,H
        XRA     D
        JP      CK1
        XCHG
CK1:    JMP     COMP
        ;
        ;  SETVAL
        ;
SETVAL: CALL    TSTV
        JC      QWHAT
        PUSH    H
        CALL    TSTC
        DB      '='
        DB      LF
        CALL    EXPR
        MOV     B,H
        MOV     C,L
        POP     H
        MOV     M,C
        INX     H
        MOV     M,B
        RET
        JMP     QWHAT
        ;
        ;  FIN
        ;
FIN:    CALL    TSTC
        DB      ':'
        DB      4
        POP     PSW
        JMP     RUNSML
        CALL    TSTC
        DB      CR
        DB      4
        POP     PSW
        JMP     RUNNXL
        RET
        ;
        ;  ENDCHK
        ;
ENDCHK: CALL    IGNB
        CPI     CR
        RZ
QWHAT:  PUSH    D
AWHAT:  LXI     D,WHAT
ERROR:  SUB     A
        STA     MODE    ;  NORMALNI ZOBRAZENI
        CALL    PRTSTG
        CALL    DISP
        POP     D
        LDAX    D
        PUSH    PSW
        SUB     A
        STAX    D
        LHLD    CURRNT
        PUSH    H
        MOV     A,M
        INX     H
        ORA     M
        POP     D
        JZ      RSTART
        MOV     A,M
        ORA     A
        JM      INPERR
        CALL    PRTLN
        DCX     D
        POP     PSW
        STAX    D
        MVI     A,03FH
        CALL    OUTC
        SUB     A
        CALL    PRTSTG
        JMP     RSTART
QSORRY: PUSH    D
ASORRY: LXI     D,SORRY
        JMP     ERROR
        ;
        ;
        ;
        ;       GETLN
        ;
        ;       ULOZ RADEK DO BUFFERU, V <DE> ADRESA POSLRNIHO ZNAKU + 1
        ;
GETLN:  MOV     A,B     ; VYTISKNI (B) - VESMES 5CH
        CALL    OUTC
        CALL    DBUFF   ; DE:=UKAZATEL NA ZACATEK
                        ; VYROVNAVACI PAMETI RADKU
GL1:    CALL    CI      ; A:= ZNAK Z KLAVESNICE
        CPI     ESC
        JZ      GL1     ; IGNORUJ ZNAK ESC
        CPI     RUB     ; IF RUB OUT THEN
        JZ      GL3     ; OPRAV POSLEDNI ZNAK
        CPI     BS      ; IF BACK SPACE THEN
        JZ      GL3     ; OPRAV POSLEDNI ZNAK
        CPI     CTRLX   ; IF CTRL X THEN
        JZ      GL4     ; ZRUS RADEK
        CALL    OUTC    ; ECHO ZNAK NA OBRAZOVKU
        STAX    D       ; ULOZ ZNAK DO VYROVNAVACI PAMETI
                        ; RADKU
        INX     D       ; INKREMENTUJ UKAZATEL VYROVNAVACI
                        ; PAMETI RADKU
        CPI     CR      ; IF POSLEDNI ZNAK (CR) THEN
        RZ              ; NAVRAT
        MOV     A,E     ; ELSE A:=NIZSI BYTE UKAZATELE
                        ; VYROVNAVACI PAMETI RADKU
CXBUFE: PUSH    H       ; USCHOVEJ HL
        LHLD    BUFEND  ; HL:=ADR. KONEC VYROVNAVACI
                        ; PAMETI RADKU
        CMP     L       ; IF UKAZATEL VYROVNAVACI PAMETI <>
                        ; ADR. KONCE RADKU THEN
        POP     H       ; OBNOV HL
        JNZ     GL1     ; PREVEZMI DALSI ZNAK Z KLAVESNICE
                        ; ELSE OPRAVUJ POSLEDNI ZNAK A CEKEJ
                        ; NA (CR)
                        ; OPRAV POSLEDNI ZNAK
GL3:    MOV     A,E     ; A:=NIZSI BYTE UKAZATELE VYROVNAVACI
                        ; PAMETI RADKU
CXBUFA: PUSH    H       ; USCHOVEJ HL
        LHLD    BUFFER  ; HL:=ADR. ZACATKU VYROVNAVACI PAMETI
                        ; RADKU
        CMP     L       ; IF UKAZATEL NA ZACATKU VYROV. PAMETI
        POP     H       ; THEN OBNOV HL
        JZ      GL4     ; NASTAV ZACATEK RADKU
        CALL    GL5     ; ELSE ZRUS POSLEDNI ZNAK
        JMP     GL1     ; PREVEZMI DALSI ZNAK Z KLAVESNICE
                        ; ZRUS RADEK
GL4:    CALL    CRLF    ; VYTISKNI NA OBRAZOVKU (CR),(LF)
        MVI     B,5CH   ; VYTISKNI 5CH
        JMP     GETLN   ; PREVEZMI Z KLAVESNICE NOVY RADEK
                        ; OPRAV POSLEDNI ZNAK
GL5:    DCX     D       ; DEKREMENTUJ UKAZATEL VYROVNAVACI
                        ; PAMETI RADKU NA POSLEDNI
                        ; PLATNY ZNAK
        MVI     A,8     ; A:=BACK SPACE
        CALL    OUTC    ; POSUN KURZORU O 1 MISTO VLEVO
        MVI     A,' '   ; A:=MEZERA
        CALL    OUTC    ; VYTISKNI NA MISTO NEPLATNEHO ZNAKU
                        ; MEZERU
        MVI     A,8     ; POSUN KURZORU ZPET NA MEZERU
        JMP     OUTC    ; NAVRAT RETURNEM Z OUTC
        ;
        ;
        ;
        ;       FNDLN
        ;
        ;       NAJDI ADRESU RADKU S CISLEM <HL> A ULOZ JI DO <DE>
        ;       NASTAV PRIZNAK FF-Z PRI ROVNOSTI. FF-C PRI NEEXISTENCI
        ;
FNDLN:  MOV     A,H
        ORA     A
        JM      QHOW
        LXI     D,TXTBGN
FNDLP:  PUSH    H
        LHLD    TXTUNF
        DCX     H
        CALL    COMP
        POP     H
        RC
        LDAX    D
        SUB     L
        MOV     B,A
        INX     D
        LDAX    D
        SBB     H
        JC      FL2
        DCX     D
        ORA     B
        RET
        ;
        ;
        ;
        ;       FNDNXT
        ;
        ;       NAJDI KONEC RADKU, DO <HL> ULOZ ADRESU DALSIHO RADKU
        ;
FNDNXT: INX     D
FL2:    INX     D
FNDSKP: LDAX    D
        CPI     CR
        JNZ     FL2
        INX     D
        JMP     FNDLP
        ;
        ;  PRTSTG
        ;
PRTSTG: MOV     B,A
PS1:    LDAX    D
        INX     D
        CMP     B
        RZ
        CALL    OUTC
        CPI     CR
        JNZ     PS1
        RET
        ;
        ;  QTSTG
        ;
QTSTG:  CALL    TSTC
        DB      '"'
        DB      0FH
        MVI     A,'"'
QT1:    CALL    PRTSTG
        CPI     CR
        POP     H
        JZ      PR6
QT2:    INX     H
        INX     H
        INX     H
        PCHL
        RET
        ;
        ;  PRTNUM
        ;
PRTNUM: MVI     B,0
        CALL    CHKSGN
        JP      PN1
        MVI     B,2DH
        DCR     C
PN1:    PUSH    D
        LXI     D,0AH   ;  PREVOD BIN --> DEC
        PUSH    D
        DCR     C
        PUSH    B
PN2:    CALL    DIVIDE
        MOV     A,B
        ORA     C
        JZ      PN3
        XTHL
        DCR     L
        PUSH    H
        MOV     H,B
        MOV     L,C
        JMP     PN2
PN3:    POP     B
PN4:    DCR     C
        MOV     A,C
        ORA     A
        JM      PN5
        MVI     A,20H
        CALL    OUTC
        JMP     PN4
PN5:    MOV     A,B
        ORA     A
        CNZ     OUTC
        MOV     E,L
PN6:    MOV     A,E
        CPI     LF
        POP     D
        RZ
        ADI     30H
        CALL    OUTC
        JMP     PN6
        ;
        ;
        ;
        ;       PRTLN
        ;
        ;       ZOBRAZ RADEK VCETNE CISLA, V <DE> ADRESA LOW CISLA RADKU
        ;
PRTLN:  LDAX    D
        MOV     L,A
        INX     D
        LDAX    D
        MOV     H,A
        INX     D
        MVI     C,4
        CALL    PRTNUM
        MVI     A,20H
        CALL    OUTC
        SUB     A
        CALL    PRTSTG
        RET
        ;
        ;
        ;
        ;       MVUP
        ;
        ;       POSUN PAMETI OD <DE> PO <HL> NA <BC> (DOPREDU)
        ;
MVUP:   CALL    COMP
        RZ
        LDAX    D
        STAX    B
        INX     D
        INX     B
        JMP     MVUP
        ;
        ;
        ;
        ;       MVDOWN
        ;
        ;       POSUN PAMET Z <DE> PO <BC> NA <HL> (POZPATKU)
        ;
MVDOWN: MOV     A,B
        SUB     D
        JNZ     MD1
        MOV     A,C
        SUB     E
        RZ
MD1:    DCX     D
        DCX     H
        LDAX    D
        MOV     M,A
        JMP     MVDOWN
        ;
        ;  POPA
        ;
POPA:   POP     B
        POP     H
        SHLD    LOPVAR
        MOV     A,H
        ORA     L
        JZ      PP1
        POP     H
        SHLD    LOPINC
        POP     H
        SHLD    LOPLMT
        POP     H
        SHLD    LOPLN
        POP     H
        SHLD    LOPPT
PP1:    PUSH    B
        RET
        ;
        ;  PUSHA
        ;
PUSHA:  PUSH    D               ; USCHOVEJ DE
        LHLD    RAMEND
        LXI     D,0FFC4H        ; DVOJKOVY DOPLNEK (64-5)
        DAD     D               ; HL:=KONEC STACKU +5
        POP     D               ; OBNOV DE
        CALL    CHGSGN          ; ZMEN ZNAMENKO <HL>
        POP     B
        DAD     SP              ; PREKROCENI ZASOBNIKU?
        JNC     QSORRY          ; ANO - CHYBA
        LHLD    LOPVAR
        MOV     A,H
        ORA     L
        JZ      PU1             ; JDE O CYKLUS ?
        LHLD    LOPPT
        PUSH    H
        LHLD    LOPLN
        PUSH    H
        LHLD    LOPLMT
        PUSH    H
        LHLD    LOPINC
        PUSH    H
        LHLD    LOPVAR
PU1:    PUSH    H               ; ULOZ PARAMETRY PROMENNE
        PUSH    B
        RET
        ;
        ;  CRLF , OUTC
        ;
CRLF:   MVI     A,CR
OUTC:   PUSH    PSW
        CPI     CR
        JZ      LINEF
        CALL    CO
H2:     POP     PSW
        RET
LINEF:  CALL    CROUT
        JMP     H2
CROUT:  MVI     A,CR
        CALL    CO
        MVI     A,LF
        JMP     CO
        ;
        ;  NULOVANI DISPLEJE
        ;
CLS:    PUSH    B
        MVI     A,FF
        CALL    CO
        MVI     A,HOME
        CALL    CO
        MVI     A,DSCR
        CALL    CO
        POP     B
        CALL    FINI
        ;
        ;  DIRECT MODUL
        ;
DIRECT: LXI     H,TAB1-1
EXEC:   CALL    IGNB
        PUSH    D
EX1:    LDAX    D
        INX     D
        CPI     '.'
        JZ      EX3
        INX     H
        CMP     M
        JZ      EX1
        MVI     A,0
        DCX     D
        CMP     M
        JZ      EX5
EX2:    INX     H
        CMP     M
        JNZ     EX2
        INX     H
        INX     H
        POP     D
        JMP     EXEC
EX3:    MVI     A,0
EX4:    INX     H
        CMP     M
        JNZ     EX4
EX5:    INX     H
        MOV     A,M
        INX     H
        MOV     H,M
        MOV     L,A
        POP     PSW
        PCHL
        ;
        ;  DBUFF
        ;
DBUFF:  PUSH    H
        LHLD    BUFFER
        MOV     D,H
        MOV     E,L
        POP     H
        RET
        ;
        ;
        ;
        ; DTXTE
        ;
DTXTE:  PUSH    H
        LHLD    TXTEND
        MOV     D,H
        MOV     E,L
        POP     H
        RET
        ;
        ;
        ;
        ; MASKA
        ;
MASK:   CALL    EXPR
        MOV     A,L
        STA     MASKIN
        CALL    FINI
        ;
        ;  RAM
        ;
RAM:    CALL    EXPR    ; VSTUP PARAMETRU DO <HL>
RAM1:   XCHG            ; SCHOVEJ <HL> DO <DE>
        LXI     H,TXTE  ; MINIMALNI ADRESA KONCE PROGRAMU
        CALL    COMP
        JNC     ASORRY  ; CHYBA V PODTECENI MOZNE PROGRAMOVE RAM
        CALL    USREND  ; MAXIMALNI ADRESA KONCE PROGRAMU
        CALL    COMP
        JC      ASORRY  ; CHYBA V PRETECENI MOZNE PROGRAMOVE RAM
        XCHG            ; OBNOV <HL>
        SHLD    BUFEND  ; NASTAVENI KONCE BUFFERU
        LXI     D,0FFC0H        ; DNOJKOVY DOPLNEK 64
        DAD     D       ; PRO BUFFER VYHRAZENO 64 BYTE
        SHLD    BUFFER  ; NASTAVENI UKAZATELE ZACATKU BUFFERU
        DCX     H
        DCX     H
        JMP     START1
        ;
        ;  CALL
        ;
BCALL:  CALL    EXPR
        PUSH    D
        LXI     B,HERE
        PUSH    B
        PCHL
HERE:   POP     D
        CALL    FINI
        ;
        ;  OUT
        ;
BOUT:   CALL    EXPR
        PUSH    H
        CALL    TSTC
        DB      ','
        DB      1AH
        CALL    EXPR
        MOV     B,L
        MVI     A,0D3H
        STA     IOBUFA
        POP     H
        MOV     A,L
        STA     IOBUFB
        MVI     A,0C9H
        STA     IOBUFC
        MOV     A,B
        CALL    IOBUFA
        CALL    FINI
        JMP     QWHAT
        ;
        ;
        ;  TAB
        ;
TAB:    CALL    PARN
A1:     MOV     A,H
        ORA     L
        CZ      FINI
        DCX     H
        MVI     A,20H
        CALL    CO
        JMP     A1
        ;
        ;  IN , INM
        ;
BIN:    CALL    INEM
        MOV     L,A
        RET
INM:    CALL    INEM
        MOV     L,A
        LDA     MASKIN
        ANA     L
        MOV     L,A
        RET
INEM:   CALL    PARN
        PUSH    H
        MVI     A,0DBH
        STA     IOBUFA
        POP     H
        MOV     A,L
        STA     IOBUFB
        MVI     A,0C9H
        STA     IOBUFC
        CALL    IOBUFA
        MVI     H,0
        RET
        ;
        ;  O$
        ;
O:      CALL    EXPR
        PUSH    D
        XCHG
        XRA     A
        CALL    PRTSTG
ZZZ4:   POP     D
        CALL    FINI
        ;
        ;  I$
        ;
I:      CALL    EXPR
        PUSH    D
        XCHG
        LHLD    TXTUNF
        XCHG
        CALL    COMP
        JC      ASORRY
        CALL    DBUFF
        CALL    GL1
        MOV     B,H
        MOV     C,L
        XCHG
        DCX     H
        CALL    DBUFF
        PUSH    D
        CALL    MVUP
        XRA     A
        STAX    B
        POP     D
        INX     H
        CALL    SUBDE
        XCHG
        LXI     H,LEGT
        MOV     M,E
        INX     H
        MOV     M,D
        JMP     ZZZ4
        ;
        ;  PEEK
        ;
PEEK:   CALL    PARN
        MOV     L,M
        MVI     H,0
        RET
        ;
        ;  POKE
        ;
POKE:   CALL    EXPR
        PUSH    H
        CALL    TSTC
        DB      ','
        DB      9
        CALL    EXPR
        MOV     A,L
        POP     H
        MOV     M,A
        CALL    FINI
        JMP     QWHAT
        ;
        ;  BYTE
        ;
BYTE:   CALL    PARN
        MOV     A,L
        CALL    WRIT2
        CALL    FINI
        ;
        ;
        ;
        ;  WORD
        ;
WORD:   CALL    PARN
        CALL    DADR
        CALL    FINI
        ;
        ;
        ;
        ;       WRIT2
        ;
WRIT2:  PUSH    PSW
        RRC
        RRC
        RRC
        RRC
        CALL    IST
        POP     PSW
IST:    ANI     0FH
        ADI     90H
        DAA
        ACI     40H
        DAA
        JMP     OUTC
        ;
        ;
        ;
        ;       QUOTE
        ;
QUOTE:  LDAX    D
        INX     D
        MOV     L,A
        MVI     H,0
        CALL    TSTC
        DB      27H
        DB      1
        RET
        JMP     QWHAT
        ;
        ;  OUTCHAR
        ;
OUTCHR: CALL    EXPR
        MOV     A,L
        CALL    CO
        CALL    FINI
        ;
        ;  INCHAR
        ;
INCHAR: LXI     H,0
        CALL    CSTS
        RZ
        CALL    CI
        MOV     L,A
        RET
        ;
        ;  HEX
        ;
HEX:    PUSH    B
        LXI     H,0
        CALL    TSTC
        DB      '('
        DB      1DH
HNXTH:  LDAX    D
        CPI     CR
        JZ      QWHAT
        CALL    ASHEX
        JC      QWHAT
        DAD     H
        DAD     H
        DAD     H
        DAD     H
        MVI     B,0
        MOV     C,A
        DAD     B
        INX     D
        CALL    TSTC
        DB      ')'
        DB      3
        JMP     POPRET
        JMP     HNXTH
        JMP     QWHAT
POPRET: POP     B
        RET
        ;
        ;
        ;
        ;       TEST TLACITKA BREAK
        ;
CONT:   CALL    CSTS    ; IF KLAVESA VESTISKNUTA
        ORA     A       ; THEN POKRACUJ
        RZ
        CALL    CI
        CPI     CTRLC   ; IF <> CTRL-C THEN
        RNZ             ; POKRACUJ
        JMP     BREAK   ; ELSE BREAK
        ;
STOP:   CALL    ENDCHK
BREAK:  LHLD    CURRNT
BREAK1: XCHG
        CALL    CRLF
        MVI     A,'*'
        CALL    OUTC
        CALL    PRTLN
        JMP     RSTART
        ;
        ;
        ;
        ;       ZMENA VYSTUPU
        ;
PRNTST: LXI     H,LO1
SETCO:  SHLD    CO+1
        RET

DISP:   MVI     A,0C3H
        STA     CO
        LXI     H,OUTDIS
        JMP     SETCO

LO1:    PUSH    B       ; USCHOVEJ POCITADLO
        MOV     C,A
        CALL    LO
        POP     B       ; OBNOV POCITADLO
        RET

OUTDIS: PUSH    B       ; USCHOVEJ POCITADLO
        MOV     C,A
        CALL    ECOM
        POP     B       ; OBNOV POCITADLO
        RET
        ;
ECOM:   PUSH    PSW
        LDA     MODE
        ORA     A
        JZ      ECOM0   ;  ZOBRAZ INVERZNE ?
        MOV     A,C
        CPI     20H
        JC      ECOM0   ;  RIDICI ZNAKY NORMALNE
        MVI     A,80H
        ORA     C
        MOV     C,A
ECOM0:  CALL    COM
        POP     PSW
        RET
        ;
        ;
        ;       SKOK DO MONITORU

MONIT:  JMP     NEXTM   ; TEPLY START MONITORU
        ;
        ;
        ;
        ;*********************************************
        ;
        ;       DOPLNUJICI CAST PRO PLAN80A
        ;
        ;*********************************************
        ;
        ;
        ;  WAIT
        ;
WAIT:   CALL    EXPR
        PUSH    B       ; USCHOVEJ BC
        MOV     C,L
        MOV     B,H
        CALL    TIMER   ; CEKEJ <HL> MILISEKUND
        POP     B       ; OBNOV BC
        CALL    FINI
        ;
        ;
        ;
        ;  BEEP
        ;
BEEP:   CALL    EXPR
        PUSH    B       ;USCHOVEJ PRACOVNI REGISTRY
        PUSH    D
        MOV     A,H
        ORA     A
        JM      QHOW    ; IF ZAPORNA ERROR
        ORA     L
        JZ      QHOW    ; IF 0 ERROR
        XCHG            ; <DE> POCET PIPNUTI DELKY 0.1 S
BEEP0:  MVI     A,07H
        CALL    CO
        LXI     B,100
        CALL    TIMER   ; CEKEJ 100 MILISEKUND
        DCX     D
        MOV     A,D
        ORA     E       ; VSECHNA PIPNUTI PROVEDENA ?
        JNZ     BEEP0   ; NE - ZNOVU
        POP     D       ; OBNOV REGISTRY
        POP     B
        CALL    FINI
        ;
        ;
        ;
        ;
        ; PLOT
        ;
        ; PRIKAZ KRESLENI PLOT X,Y
        ;
PLOT:   CALL    EXPR    ;  VSTUP 1. PARAMETRU ... X
        PUSH    B
        PUSH    H
        MOV     A,L
        CPI     144     ; X MAX?
        JNC     QHOW
        CALL    TSTC
        DB      ','
        DB      PLTF-$
        CALL    EXPR    ; VSTUP 2. PARAMETRU ... Y
        MOV     A,L
        STA     YKUR
        CPI     64      ; Y MAX?
        JNC     QHOW
        MOV     A,L
        STA     XKUR
        MOV     H,L
        POP     B
        MOV     L,C
        CALL    PIXL    ; VYKRESLI BOD NA <L>=X, <H>=Y
        POP     B
        CALL    FINI
PLTF:   JMP     QWHAT
        ;
        ;
        ;
        ; PIXL
        ;
        ; PODPROGRAM ZOBRAZENI PIXLU GRAFIKY <H>=Y, <L>=X
        ;
PIXL:   PUSH    PSW
        PUSH    B
        PUSH    D
        PUSH    H
        MOV     A,H     ;  Y - SOURADNICE
        ORA     A
        RAR             ;  Y/2
        MOV     L,A
        MVI     H,0
        DAD     H
        DAD     H
        DAD     H
        DAD     H
        DAD     H
        DAD     H       ;  Y/2 * 64
        XCHG
        LHLD    RAMEND
        INX     H       ;  ADRESA PRVNIHO ZNAKU DISPLAYE
        DAD     D       ;  Y/2 * 64 + ADRDIS
        XCHG
        POP     H
        PUSH    H
        MOV     A,L     ;  X - SOURADNICE
        CALL    DIVTRI  ;  X/3
        MOV     L,C
        MVI     H,0
        DAD     D       ;  Y/2*64 + ADRDIS + X/3 ... ADRESA ZNAKU
        MOV     A,M
        ANI     60H
        CPI     60H     ;  JDE O GRAFICKY SYMBOL ?
        JZ      PIXL0
        MVI     M,20H   ;  NE - VYMAZ ZNAKU
PIXL0:  XTHL            ;  V <HL> SOURADNICE
        MOV     A,H     ;  Y - SOURADNICE
        ANI     01H     ;  Y MOD 2
        MOV     B,A
        MVI     A,1
        SUB     B       ;  1 - (Y MOD 2)
        MOV     B,A
        ADD     A
        ADD     B       ;  (1 - (Y MOD 2)) * 3
        MOV     B,A
        MOV     A,L     ;  X - SOURADNICE
        POP     H       ;  V <HL> ADRESA ZNAKU
        PUSH    H
        CALL    DIVTRI  ;  X MOD 3
        ADD     B       ;  (1 - (Y MOD 2))*3 + (X MOD 3)
        CPI     5       ;  JDE O NEPOKRITY PIXL ?
        JZ      NEPOK   ;  ANO - SKOK
        ;
POK:    MOV     B,A
        MVI     A,80H
POK0:   RLC
        DCR     B
        JP      POK0    ;  GENERUJ MASKU POKRITEHO PIXLU
        MOV     B,A
        MOV     A,M
        ORA     A
        JM      POK1    ;  JE NASTAVEN D7=1 ?
        MOV     A,B
        ORA     M
        ANI     1FH
        ORI     60H
        MOV     M,A     ;  NASTAVENI PIXLU 0 - 4 BEZ PIXLU 5
        JMP     PIXL1
POK1:   ANI     1FH
        CMA
        ORA     B
        CMA
        ORI     0E0H
        MOV     M,A     ;  NASTAVENI PIXLU 0 - 4 PRI PIXLU 5
        JMP     PIXL1
        ;
NEPOK:  MOV     A,M
        ORA     A
        JM      PIXL1   ;  PIXL 5 JIZ NASTAVEN
        ANI     1FH
        CMA
        MOV     M,A     ;  NASTAVENI PIXLU 5
        ;
PIXL1:  POP     H
        POP     D
        POP     B
        POP     PSW
        RET
        ;
DIVTRI: MVI     C,0FFH
DIVT0:  INR     C
        SUI     3
        JNC     DIVT0
        ADI     3
        RET
        ;
        ;
        ;
        ;       DRAW - PRIKAZ SPOJENI DVOU BODU PRIMKOU
        ;              XKUR,YKUR ... STARY BOD
        ;              PARAMETRY ... NOVY BOD
        ;
DRAW:   CALL    EXPR
        PUSH    B
        PUSH    H
        MOV     A,L
        CPI     144     ; XNEW MAX?
        JNC     QHOW
        CALL    TSTC
        DB      ','
        DB      DRAF-$
        CALL    EXPR
        MOV     A,L
        CPI     64      ; YNEW MAX?
        JNC     QHOW
        MOV     H,L
        POP     B
        MOV     L,C     ; <H> = YNEW, <L> = XNEW
        CALL    INTERP  ; POMOCI INTERPOLATORU KRESLI
        POP     B
        CALL    FINI    ; XKUR = XNEW, YKUR = YNEW
DRAF:   JMP     QWHAT
        ;
        ;
        ;       INTERPOL - PODPROGRAM INTERPOLATOTU Z PMD-85
        ;                  <H> = YNEW, <L> = XNEW
        ;
INTERP: PUSH    PSW
        PUSH    B
        PUSH    D
        PUSH    H
        ;
        LDA     XKUR
        CMP     L       ; SVISLI SMER?
        JZ      INPO9   ; ANO - SKOK
        JC      INPO11  ; XOLD < XNEW ... SKOK
        ;
        ;       XOLD > XNEW
        ;
        SUB     L
        MOV     E,A     ; XOLD - XNEW
        MVI     C,0FFH  ; SMER INTERPOLACE
INPO1:  LDA     YKUR    ; YOLD
        CMP     H       ; VODOROVNY SMER?
        JZ      INPO10  ; ANO - SKOK
        JC      INPO12  ; YOLD < YNEW ... SKOK
        ;
        ;       YOLD > YNEW
        ;
        SUB     H
        MOV     D,A     ; YOLD - YNEW
        MVI     B,0FFH  ; SMER INTERPOLACE
INPO2:  MOV     A,E
        STA     DELTAX  ; ROZDIL X SOURADNIC
        MOV     A,D
        STA     DELTAY  ; ROZDIL Y SOURADNIC
        CMP     E       ; DELTAX < DELTAY?
        JC      INPO13  ; ANO - SKOK
        ;
        ;       DELTAX > DELTAY
        ;
        MOV     H,E
        MOV     E,D     ;DELTAY
        MOV     D,H     ;DELTAX
        ANA     A
        RAR
        MOV     H,A     ; DELTAY / 2
        ;
        ;       VLASTNI INTERPOLACE
        ;
INPO3:  MVI     L,0     ; CITAC
INPO4:  MOV     A,L
        CMP     E       ; KOMEC?
        JZ      INPO14  ; ANO - NAVRAT Z PODPROGRAMU
        INR     L       ; INKR. CITAC
        MOV     A,H
        ADD     D
        MOV     H,A     ; DELTAX + DELTAY/2
        JC      INPO8   ; >255 ... SKOK
        CMP     E       ; =>DELTAY ?
        JZ      INPOEX  ; ROVNO ... SKOK
        JNC     INPOEX  ; VETSI ... SKOK
        LDA     DELTAX
        CMP     E       ; POSUN VE SMERU X?
        JNZ     INPO5   ; NE - SKOK
        LDA     XKUR    ; XOLD
        ADD     C
        STA     XKUR    ; PROVET POSUN X
INPO5:  LDA     DELTAY
        CMP     E       ; POSUN VE SMERU Y?
        JNZ     INPO7   ; NE - SKOK
        ;
INPO6:  LDA     YKUR    ; YOLD
        ADD     B
        STA     YKUR    ; PROVED POSUN Y
INPO7:  PUSH    H
        PUSH    PSW
        LHLD    XKUR
        MOV     A,H
        CPI     64
        JNC     INPO15
        MOV     A,L
        CPI     144
        JNC     INPO15
        CALL    PIXL    ; ZOBRAZ BOD [XKUR,YKUR]
INPO15: POP     PSW
        POP     H
        JMP     INPO4   ; DALSI BOD
        ;
        ;       DELTAX + DELTA/2 > 255
        ;
INPO8:  MOV     A,E
        CMA
        ADD     H
        MOV     H,A     ; BY JUMP HERE IS: LDA 6793
        DB      3AH     ; BY JUMP HERE IS: SUB E
        ;
        ;       DELTAX + DELTAY/2 => DELTAY
        ;
INPOEX: SUB     E
        MOV     H,A
        LDA     XKUR    ; XOLD
        ADD     C
        STA     XKUR    ; XOLD
        JMP     INPO6
        ;
        ;       XOLD = XNEW
        ;
INPO9:  XRA     A
        MOV     E,A
        MOV     C,A
        JMP     INPO1
        ;
        ;       YOLD = YNEW
        ;
INPO10: XRA     A
        MOV     D,A
        MOV     B,A
        JMP     INPO2
        ;
        ;       XOJD < XNEW
        ;
INPO11: MOV     E,A
        MOV     A,L
        SUB     E
        MOV     E,A
        MVI     C,1
        JMP     INPO1
        ;
        ;       YOLD < YNEW
        ;
INPO12: MOV     D,A
        MOV     A,H
        SUB     D
        MOV     D,A
        MVI     B,1
        JMP     INPO2
        ;
        ;       DELTAX < DELTAY
        ;
INPO13: ANA     A
        MOV     A,E
        RAR
        MOV     H,A
        JMP     INPO3
        ;
        ;       UKONCENI INTERPOLACE
        ;
INPO14: POP     H
        POP     D
        POP     B
        POP     PSW
        RET
        ;
        ;
        ;
        ;       MOVE - PRIKAZ POSUNU GRAFICKEHO KURZORU
        ;
MOVE:   CALL    EXPR
        PUSH    B
        PUSH    H
        MOV     A,L
        CPI     144     ; X MAX?
        JNC     QHOW
        CALL    TSTC
        DB      ','
        DB      MOVF-$
        CALL    EXPR
        MOV     A,L
        CPI     64      ; Y MAX?
        JNC     QHOW
        MOV     H,L
        POP     B
        MOV     L,C
        SHLD    XKUR    ; X --> XKUR, Y --> YKUR
        POP     B
        CALL    FINI
MOVF:   JMP     QWHAT
        ;
        ;
        ;
        ;       CURS
        ;       ====
        ;
        ;       PRIKAZ PRO NASTAVENI KURZORU.
        ;
CURS:   CALL    EXPR
        PUSH    B
        PUSH    H
        MOV     A,L
        CPI     48
        JNC     QHOW
        CALL    TSTC
        DB      ','
        DB      CURF - $
        CALL    EXPR
        MOV     A,L
        CPI     20H
        JNC     QHOW
        PUSH    D
        LXI     D,LINECO
        LHLD    RAMEND
        INX     H
        DAD     D
        POP     D
        MOV     M,A
        INX     H
        POP     B
        MOV     M,C
        POP     B
        CALL    FINI
CURF:   JMP     QWHAT
        ;
        ;
        ;
        ;       EDIT
        ;
        ;       PRIKAZ PRO EDITACI JEDNOHO RADKU PROGRAMU.
        ;
        ;       POSUN KURZORU VLRVO: BS, CTRL-S, SIPKA VLEVO
        ;       POSUN KURZORU VPRAVO: CTRL-D, SIPKA VPRAVO
        ;       VYMAZ ZNAKU VPRAVO OD KURZORU: CTRL-X,DEL
        ;       UKONCENI EDITACE: CR
        ;       PRERUSENI PRIKAZU: ESC,CS,CTRL-[
        ;       VLOZENI ZNAKU VLEVO OD KURZORU: JINE ZNAKY > 20H
        ;
EDIT:   CALL    TSTNUM  ;  PREVOD ASCII Z BUFFERU NA BIN V <HL>
        CALL    IGNB    ;  VYNECH MEZERY
        CPI     CR
        JNZ     QWHAT   ;  CHYBA PRIKAZU
        CALL    FNDLN   ;  NAJDI ADRESU RADKU <DE>
        JC      QHOW    ;  NENI TAKOVY ANI VETSI RADEK
        ;
        ;       PRESUN RADEK Z PROGRAMU DO BUFFERU
        ;
        PUSH    D
        CALL    FNDNXT
        XCHG            ;  V <HL> ADRESA NASL. RADKU
        CALL    DBUFF
        PUSH    D
        POP     B       ;  V <BC> ADRESA BUFFERU
        POP     D       ;  V <DE> ADRESA EDITOVANEHO RADKU
        CALL    MVUP    ;  PRESUN EDIT. RADEK DO BUFFERU
        MVI     A,2
        STA     EDKUR   ;  POC. HODNOTA KURZORU
        MVI     A,'_'
        CALL    VSUN
        ;
        ;       ZOBRAZ RADEK
        ;
EDIT0:  MVI     A,HOME
        CALL    CO      ;  NA ZACETAK OBRAZOVKY
        MVI     A,DSCR
        CALL    CO      ;  VYMAZ OBRAZOVKY
        CALL    DBUFF
        CALL    PRTLN   ;  ZOBRAZ RADEK Z BUFFERU
        ;
        ;       VSTUP PRIKAZU
        ;
EDIT2:  CALL    CI
        CPI     LEFT    ; SIPKA VLEVO
        JZ      VLEVO
        CPI     CTRLS   ; STRL S
        JZ      VLEVO
        CPI     RIGHT   ; SIPKA VLEVO
        JZ      VPRAVO
        CPI     CTRLD   ; CTRL D
        JZ      VPRAVO
        CPI     DOWN    ; SIPKA DOLU
        JZ      VYMAZ
        CPI     CTRLX   ; CTRL X
        JZ      VYMAZ
        CPI     RUB     ; DEL
        JZ      VYMAZ
        CPI     ESC     ; ESC (CTRL [)
        JZ      RSTART
        CPI     CR      ; CR
        JNZ     VLOZ
        ;
        ;       UKONCENI EDITACE
        ;
        CALL    VYHOD
        PUSH    D
        POP     B       ;  V <BC> ADRESA POSL. ZNAKU + 1
        CALL    DBUFF   ;  V <DE> ADRESA BUFFERU
        LDAX    D
        MOV     L,A
        INX     D
        LDAX    D
        MOV     H,A
        DCX     D       ;  V <HL> CISLO RADKU
        MVI     A,HOME
        CALL    CO
        MVI     A,DSCR
        CALL    CO
        JMP     EDIST   ;  VLOZ EDITOVANY RADEK DO PROGRAMU
        ;
        ;       VSUN ZNAK
        ;
VLOZ:   CPI     20H
        JC      EDIT0
        CALL    VSUN
        LDA     EDKUR
        INR     A
        STA     EDKUR
        JMP     EDIT0
        ;
VSUN:   PUSH    PSW
        LHLD    BUFFER
        MVI     B,0
        LDA     EDKUR
        MOV     C,A
        DAD     B       ;  V <HL> ADRESA KURZORU
        POP     PSW
VSU0:   MOV     C,M
        MOV     M,A
        MOV     A,C
        CPI     CR
        INX     H
        JNZ     VSU0    ; VLOZ ZNAK
        MOV     M,A     ; VLOZ CR
        INX     D
        RET
        ;
        ;       POSUN KURZORU VLEVO
        ;
VLEVO:  LDA     EDKUR
        CPI     3
        JC      EDIT0
        PUSH    PSW
        CALL    VYHOD
        POP     PSW
        DCR     A
        STA     EDKUR
        MVI     A,'_'
        CALL    VSUN
        JMP     EDIT0
        ;
        ;       POSUN KURZOR VPRAVO
        ;
VPRAVO: LHLD    BUFFER
        LDA     EDKUR
        MOV     C,A
        MVI     B,0
        DAD     B       ;  V <HL> ADRESA KURZORU
        INX     H
        INX     H       ; ZAHRN I ZNAK CR NA KONCI RADKU
        CALL    COMP    ; NA KONCI RADKU?
        JNC     EDIT0   ; ANO - DAL NEPOSOUVEJ
VPRA0:  CALL    VYHOD
        LDA     EDKUR
        INR     A
        STA     EDKUR
        MVI     A,'_'
        CALL    VSUN
        JMP     EDIT0
        ;
        ;       VYMAZ ZNAKU
        ;
VYMAZ:  LHLD    BUFFER
        LDA     EDKUR
        MOV     C,A
        MVI     B,0
        DAD     B       ;  V <HL> ADRESA KURZORU
        CALL    COMP
        INX     H
        INX     H
        INX     H
        INX     H       ; ZAHRN I ZNAK CR MA KONCI RADKU
        JNC     EDIT0   ; KONEC RADKU - SKOK
        LDA     EDKUR
        INR     A
        STA     EDKUR
        CALL    VYHOD
        LDA     EDKUR
        DCR     A
        STA     EDKUR
        JMP     EDIT0
        ;
VYHOD:  LHLD    BUFFER
        LDA     EDKUR
        MOV     C,A
        MVI     B,0
        DAD     B       ; V <HL> ADRESA KURZORU
VYH0:   INX     H
        MOV     A,M
        DCX     H
        MOV     M,A
        INX     H
        CPI     CR
        JNZ     VYH0
        DCX     D
        RET
        ;
        ;
        ;
        ;       LOAD
        ;
        ;       SNIMAC A DEROVAC (=>MODEM+MAGNETOFON)
        ;
LOAD:   LXI     D,TXTBGN
LOA1:   CALL    RI
        CPI     00H
        JZ      LOA1
        CPI     '$'
        JNZ     LOA1
        CALL    RI
        MOV     L,A
        CALL    RI
        MOV     H,A
        DAD     D       ;  KONCOVA ADRESA
        SHLD    TXTUNF
        XCHG
LOA0:   CALL    RI
        MOV     M,A
        INX     H
        CALL    COMP
        JNZ     LOA0
        PUSH    D
        PUSH    B
        CALL    JOIN0
        POP     B
        POP     D
        JMP     RSTART
        ;
        ;
        ;
        ;       SAVE
        ;
SAVE:   MVI     C,'$'
        CALL    PO
        LHLD    TXTUNF
        XCHG            ;  V <DE> KONEC PROGRAMU
        LXI     H,TXTBGN        ;  V <HL> ZACATEK PROGRAMU
        MOV     A,E
        SUB     L
        MOV     C,A
        MOV     A,D
        SBB     H
        MOV     B,A
        CALL    PO      ;  POCET BYTU LOW
        MOV     C,B
        CALL    PO      ;  POCET BYTU HIGH
SAVE1:  CALL    COMP
        JZ      SAVE2
        MOV     C,M
        CALL    PO
        INX     H
        JMP     SAVE1
SAVE2:  MVI     C,SUBS
        CALL    PO
        PUSH    D
        PUSH    B
        CALL    TCLOSE
        POP     B
        POP     D
        JMP     RSTART
        ;
        ;
        ;
        ;       GET
        ;
GET:    CALL    RI
        MOV     L,A
        CALL    RI
        MOV     H,A
        RET
        ;
        ;
        ;
        ;       PUT
        ;
PUT:    CALL    PARN
        PUSH    B
        MOV     C,L
        CALL    PO
        MOV     C,H
        CALL    PO
        POP     B
        CALL    FINI
        JMP     QWHAT
        ;
        ;
        ;
        ;       CLOSE
        ;
CLOSE:  CALL    CHKTPR  ; JE PRIPOJEN MAGNETOFON ?
        PUSH    D
        PUSH    B
        CALL    TCLOSE
        POP     B
        POP     D
        CALL    FINI
        JMP     QWHAT
        ;
        ;
        ;
        ;       INIT
        ;
INIT:   CALL    CHKTPR  ; JE PRIPOJEN MAGNETOFON ?
        PUSH    D
        PUSH    B
        CALL    JOIN0
        POP     B
        POP     D
        CALL    FINI
        JMP     QWHAT
        ;
        ;
        ;       CHKTPR - TEST PRITOMNOSTI MAGNETOFONU
        ;
CHKTPR: LDA     ADRTPR
        CPI     KEYTPR
        JNZ     QWHAT
        RET
        ;
        .DEPHASE
        ;
        ;*********************************************
        ;
        ;       DEFINICE RAM
        ;
        ;*********************************************
        ;
        .PHASE  UZIRAM
        ;
LEGT:   DS      2
IOBUFA: DS      1
IOBUFB: DS      1
IOBUFC: DS      1
LISTC:  DS      1
CO:     DS      3       ; SKUTECNA ADR. CO OR LO
MASKIN: DS      1       ; MASKA PRO FUNKCI 'INM'
CURRNT: DS      2       ; PRAVE ZPRACOVAVANY RADEK PROGRAM
STKGOS: DS      2       ; POINTER PRO GOSUB
VARNXT: DS      2
STKINP: DS      2
LOPVAR: DS      2       ; POINTER PRO FOR
LOPINC: DS      2
LOPLMT: DS      2
LOPLN:  DS      2
LOPPT:  DS      2
RANPNT: DS      2       ; PARAMETR PRO RANDOM
ARMM:   DS      2
MODE:   DS      1       ; REZIM ZOBRAZENI (0-PRIMO, 1-INVERZNE)
TXTEND: DS      2       ; MAXIMALNI ADR. PRO BASIC PROGRAMU
BUFFER: DS      2       ; POINTER NA RADKONY BUFFER
BUFEND: DS      2       ; POINTER NA KONEC RADKOVEHO BUFFERU
XKUR:   DS      1       ; X SOURADNICE GRAF. KURZORU
YKUR:   DS      1       ; Y SOURADNICE GRAF. KURZORU
DELTAX: DS      1       ; POMOCNA PROMENA INTRPOLATORU
DELTAY: DS      1       ; POMOCNA PROMENA INTRPOLATORU
EDKUR:  DS      1       ; KURZOR EDITORU
        .DEPHASE
        ;
        ; OBSLUHA TVRDEHO BREAKU - RST 7
        ;
        .PHASE  38H
        ;
RST7RA: DS      3
        ;
TXTUNF: DS      2       ; POINTER NA KONEC PROGRAMU BASIC
        DS      40
VARBGN: DS      54      ; PROSTOR PRO PROMENE V BASICU
TXTBGN: DS      32      ; MINIMALNI PROSTOR PRO PROGRAM V BASICU
TXTE:   DS      1       ; KONEC MINIMALNIHO PROGRAMU
        ;
        .DEPHASE
        ;
        END


Obsah:



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


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


8 bity / PLAN-80A

Výpis programu PLAN80A TINY BASIC V3Q



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