34 lines
No EOL
1.2 KiB
NASM
34 lines
No EOL
1.2 KiB
NASM
scr START 0
|
|
LDB screen
|
|
LDT scrlen
|
|
ADDR T, B . B = screen + scrlen (konec zaslona)
|
|
JSUB scrfil
|
|
SUBR T, B . B = screen (zacetek zaslona) ČE PUSTIMO TKO NE CLEARA ZADNJEGA ZNAKA
|
|
LDT #1
|
|
SUBR T, B
|
|
JSUB scrclear
|
|
halt J halt
|
|
|
|
|
|
scrfil LDCH #97 . V skrajno desni bajt A nalozimo a
|
|
+STCH @screen . Zapisemo a na zaslon
|
|
LDA screen
|
|
ADD #1
|
|
STA screen . Pointr na pomnilnisko lokacijo kjer je zaslon premaknemo za 1 naprej
|
|
COMPR A, B . 2000 znakov lahko napisemo, ko bo A == B(screen + scrlen) smo zapolnili celoten zaslon
|
|
JLT scrfil
|
|
RSUB
|
|
|
|
scrclear LDCH #0
|
|
+STCH @screen
|
|
LDA screen
|
|
SUB #1
|
|
STA screen
|
|
COMPR A, B . Brisemo dokler ne pobrisemo vseh 2000 znakov
|
|
JGT scrclear
|
|
RSUB
|
|
|
|
scrcol WORD 80 . Default stevilo stolpcev
|
|
scrrow WORD 25 . Default stevilo vrstic
|
|
scrlen WORD 2000 . Lahko shranimo 2000 znakov
|
|
screen WORD 0xb800 . Tabela se zacne na tem naslovu |