OldComp.cz

ld sp,zaciatok_druhej_oblasti
ld hl,#2758
exx
ei
ret

init    ld      hl,(#5C3D)      ;; ERRSP
        ld      (hl),low handler
        inc     hl
        ld      (hl),high handler
        ret

handler ld      bc,handler      ;; Adresa error handlera
        push    bc              ;; na zasobniku obnovena
        xor     a
        sbc     hl,sp           ;; Test ci je chyba v cmdline editore
        jp      z,#12B4         ;; Ak ano, pokracuj za editor
        ld      a,(#5C3A)       ;; ERRNR = cislo chyby ktora nastala
        cp      #0B             ;; Nastala chyba 'Nonsense in BASIC' ?
        jr      nz,theend       ;; Ak nie, skok na povodnu cinnost
        ld      hl,(#5C5D)      ;; CHADD = program counter pre basic
        dec     hl
        ld      a,(hl)          ;; Predchadzajuci znak nebol platny prikaz
        cp      '*'             ;; Je to nas novy prikaz (hviezdicka) ?
        jr      nz,theend       ;; Ak nie, skok na povodnu cinnost

        call    tstend          ;; Uz je koniec prikazu ?
        jr      z,theend        ;; Ak ano, je to zle
        call    #1C82           ;; Nacitaj ciselny parameter

        call    tstend          ;; A teraz je uz koniec prikazu ?
        jr      nz,theend       ;; Ak este stale nie, je to zle

cmdok   ld      (iy+#00),#FF    ;; Zrusenie chyby 'Nonsense in BASIC'
        call    #2530           ;; Kontrola syntaxe ?
        jr      z,next          ;; Ak ano, preskoc funkcionalitu

        call    #1E94           ;; Ciselny parameter do registra A
        out     (#fe),a         ;; (nastavenie borderu len ako priklad)

next    jp      #1b76           ;; Pokracovanie na dalsi prikaz v basicu

theend  call    #2530           ;; Kontrola syntaxe ?
        jp      z,#12B7         ;; Ak ano, skok za kontrolu syntaxe
        jp      #1303           ;; Ak nie, skok na vypis chyboveho hlasenia

tstend  rst     #18             ;; Test ci sme uz prisli na koniec prikazu
        cp      ':'             ;; Bud je za prikazom dvojbodka
        ret     z               ;;
        cp      #0D             ;; Alebo enter
        ret                     ;;

10 LET cislo=123
20 * cislo

10 LET Tato premenna sluzi na uchovavanie cisla a jej nazov moze obsahovat aj medzery=0
20 PRINT Tato premenna sluzi na uchovavanie cisla a jej nazov moze obsahovat aj medzery

;**** ulozeni do eprom
        org     $3900
save    ld      ($5b00),sp
        ld      ($5b02),bc
        ld      ($5b04),de
        ld      ($5b06),hl
     
        ld      de,$4000
        ld      hl,skonvrom
        ld      bc,skonovl-szacovl
        ldir
        jp      szacovl
skonvrom
        org     $4000
szacovl ld      a,$01                   ;1= 1 na /CSROM
        out     (csrom),a               
        ld      de,$0000
        ld      hl,$5b00
        ld      bc,$4000
        ldir                            ;tento prikaz je nahrazen ovladacem
        xor     a
        out     (csrom),a               ;0= 0 na /CSROM
        ret
skonovl

;**** nacteni z eprom
load    org     $3a00
        ld      de,$4000
        ld      hl,lkonvrom
        ld      bc,lkonovl-lzacovl
        ldir
        jp      lzacovl
lkonvrom
        org     $4000
lzacovl ld      a,$01                   ;1= 1 na /CSROM
        out     (csrom),a               
        ld      de,$5b00
        ld      hl,$0000
        ld      bc,$4000
        ldir                            ;tento prikaz je nahrazen ovladacem
       
; a ted to spravne nastavit :)
        xor     a
        out     (csrom),a               ;0= 0 na /CSROM
        ld      sp,($5b00)
        ld      bc,($5b02)
        ld      de,($5b04)
        ld      hl,($5b06)
        ret
       
;*****  *0 save   *1 load     
        FPOS    #1B46           ;; Odskok na rom patch
        jp      c,newcmd

        FPOS    #3C01           ;; Umiestnenie patchu v romke
        org     #3C01

newcmd  ld      a,c             ;; Predchadzajuci znak nebol platny prikaz
        cp      '*'             ;; Je to nas novy prikaz (hviezdicka) ?
        jr      nz,error        ;; Ak nie, potom bude chyba

        rst     #18             ;; Daj aktualny znak z basic programu
        cp      '0'             ;; Ak je to mensie ako znak 0
        jr      c,error         ;; potom bude chyba
        cp      '2'             ;; Ak je to vecsie ako znak 1
        jr      nc,error        ;; potom bude tiez chyba
        ld      e,a             ;; Znak je 0..1, odlozime si ho do registra E

        rst     #20             ;; Chod na nasledujuci znak v basic programe
        call    #1BEE           ;; Pri kontrole syntaxe chod na dalsi prikaz

        ld      a,e             ;; Nejaka funkcionalita noveho prikazu
        and     #07
        cp      0
        jp      z,save
        cp      1
        jp      z,load

error   rst     #08             ;; Chyba 'Nonsense in BASIC'
        db      #0B