OldComp.cz

2      8000            *a
3      8000            ;"# input 08"
4      8000            ;Rutinka "input" pre nacitanie celeho cisla 0-65535
5      8000             
6      8000            ;Pozor !!! Vola romku a potrebuje systemove premenne basicu !!!
7      8000             
8      8000            ;Pri tomto priklade by vam velmi pomohol nejaky komentovany
9      8000            ;vypis romky, kde by ste sa o niektorych rutinkach mohli
10     8000            ;dozvediet viac, nez je v tychto strucnych komentaroch...
11     8000             
12     8000                   org  #8000
13     8000                                            Maly priklad, ako INPUT pouzit:
14     8000 fd213a5c   p      ld   iy,iy               iy=#5c3a (nutne koli CLS)
15     8004 cd6b0d            call #0d6b               toto je basicove CLS
16     8007 cd1c80     loop   call input               volanie INPUTu
17     800a 3c                inc  a                   ak nastala nejaka chyba...
18     800b c0                ret  nz                  ...tak tento priklad skonci
19     800c cd2b2d            call #2d2b               ulozene cisla v BC na zasobnik
20     800f 3e02              ld   a,#02               otvorenie kanala #2 - kanala 'S'
21     8011 cd0116            call #1601               (pre vypis cisla)
22     8014 cde32d            call #2de3               vypis obsahu zasobnika
23     8017 3e0d              ld   a,#0d               vypis znaku 13 (aby dalsie cisla
24     8019 d7                rst  #10                 pisalo na dalsi riadok)
25     801a 18eb              jr   loop                a opakuj slucku znovu.
26     801c             
27     801c            z
28     801c fd213a5c   input  ld   iy,iy               Vystup:
29     8020 fd3600ff          ld   (iy+#00),#ff
30     8024 fb                ei                        a = kod chyby (#ff=bez chyby)
31     8025 2a3d5c            ld   hl,(errsp)          bc = zadana hodnota ak a=#ff
32     8028 e5                push hl
33     8029 2a5d5c            ld   hl,(chadd)          Vie citat lubovolny
34     802c e5                push hl                  v basicu pripustny vyraz
35     802d cd4480            call read                ciselneho typu 0..65535
36     8030 e1                pop  hl
37     8031 225d5c            ld   (chadd),hl          Pozor !!!
38     8034 e1                pop  hl                  Musi existovat Basic-system !
39     8035 223d5c            ld   (errsp),hl          (neznicene systemove premenne)
40     8038 fdcb01fe          set  7,(iy+#01)
41     803c fd7e00            ld   a,(iy+#00)
42     803f fd3600ff          ld   (iy+#00),#ff
43     8043 c9                ret
44     8044                                            Komentare:
45     8044             
46     8044 ed733d5c   read   ld   (errsp),sp          Vektor navratu pri chybe
47     8048 fdcb0196          res  2,(iy+#01)          Znacky: input line
48     804c fdcb01fe          set  7,(iy+#01)                  beh programu
49     8050 fdcb37ee          set  5,(iy+#37)                  input mode
50     8054 af                xor  a                   kanal K
51     8055 cd0116            call #1601               a jeho aktivacia
52     8058 cdbf16            call #16bf               zmazanie pracovnej zony
53     805b 010100            ld   bc,#01              Vyhradenie 1 bajtu
54     805e f7                rst  #30                 v pracovnej zone
55     805f 360d              ld   (hl),#0d            pre koncovy enter
56     8061 225b5c            ld   (kcur),hl           kurzor na zaciatok zony
57     8064 cd2c0f            call #0f2c               samotne volanie editora do romky
58     8067 fd362200          ld   (iy+#22),#00        odoslanie kurzora do aleluja
59     806b cd1d11            call #111d               vypis zony (teraz bez kurzora)
60     806e 2a615c            ld   hl,(worksp)         ukazovatel na zaciatok
61     8071 225d5c            ld   (chadd),hl          zadaneho retazca (nieco ako PC)
62     8074 e5                push hl
63     8075 fdcb01be          res  7,(iy+#01)          najprv skontrolujeme syntax
64     8079 cdfb24            call #24fb               1.vypocet (iba test syntaxe)
65     807c df                rst  #18                 Za vyrazom musi
66     807d fe0d              cp   #0d                 nasledovat enter
67     807f c28a1c            jp   nz,#1c8a            inak chyba
68     8082 e1                pop  hl
69     8083 225d5c            ld   (chadd),hl          Teraz pride
70     8086 fdcb01fe          set  7,(iy+#01)          skutocny vypocet
71     808a cdfb24            call #24fb               2.vypocet (uz naostro)
72     808d fdcb0176          bit  6,(iy+#01)          Akeho typu je vysledok ?
73     8091 ca8a1c            jp   z,#1c8a             ak retazec tak chyba
74     8094 c3991e            jp   #1e99               ak cislo tak ho dame do BC
75     8097            k
76     8097            l      =    k-z                 l = dlzka INPUT rutinky
77     8097             
78     8097            iy     =    #5c3a               definicie niektorych pouzitych
79     8097            errnr  =    #5c3a               adries a systemovych premennych
80     8097            errsp  =    #5c3d
81     8097            kcur   =    #5c5b
82     8097            chadd  =    #5c5d
83     8097            worksp =    #5c61
84     8097            stkbot =    #5c63

 chadd  5c5d  *  errnr  5c3a  *  errsp  5c3d  *  input  801c  *
 iy     5c3a  *  k      8097  *  kcur   5c5b  *  l      007b  *
 loop   8007  *  p      8000  *  read   8044  *  stkbot 5c63  *
 worksp 5c61  *  z      801c  *                               

errors:0

(1 - ok)
Zadej cislo: 1234<
(2 - ok)
Zadej cislo: 123<
(3 - spatne, viz kurzor na nove radce)
Zadej cislo: 123
<

DF_CC   .EQU   $5c84
S_POSN   .EQU   $5c88
ReadNum            ; precte cele kladne cislo do HL; C = max pocet znaku
*       ld   hl,S_POSN   ; reset citace zbyvajiciho mista na radce
*       ld   (hl),0
        ld   hl,DF_CC   ; do HL aktualni pozice kurzoru
_RdNum   ld   a,'<'      ; kresba kurzoru
        rst   10
        call   PAUSE_1      ; cekani na stisk klavesy
        ld   a,(LASTKEY)
        dec   (hl)      ; znak vykreslen na misto kurzoru
        cp   13      ; test zda znak Enter
        jr   z,_atoi
        cp   12      ; test zda znak Backspace
        jr   z,_RdBack
        cp   '0'      ; test zda znak v {0..9}
        jr   c,_RdNum
        cp   '9'+1
        jr   nc,_RdNum
        rst   10
        jr   _RdNum

_RdBack   ld   a,' '
        rst   10
        dec   (hl)
        dec   (hl)
        jr   _RdNum

_atoi   ret ; TODO

atoi    ld      hl,#00
loop    ld      a,(de)
        cp      '9'+1
        ret     nc
        sub     '0'
        ret     c
        add     hl,hl
        ld      b,h
        ld      c,l
        add     hl,hl
        add     hl,hl
        add     hl,bc
        ld      c,a
        ld      b,0
        add     hl,bc
        inc     de
        jr      loop

        ld   hl,(errsp)      Odpametanie povodnej hodnoty error handlera
        push hl
        call read            Zavolanie rutinky v ktorej maju byt odchytene chyby
        pop  hl
        ld   (errsp),hl      Obnovenie povodnej hodnoty error handlera
        ld   a,(iy+#00)      Kod vzniknutej chyby alebo #FF=OK
        ret

read    ld   (errsp),sp      Definovanie noveho error handlera
        ...                  pokracovanie rutinky

ld  a,255    ; aby Ok,0:1
ld  (iy+0),a
ld  hl,#2758   <= toto je nove
exx            <= toto je nove
ret          ; navrat do Basicu

ld  a,255    ; aby Ok,0:1
ld  (iy+0),a

call FP_TO_BC ; do BC vysledek
ret