Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
getk lda ch
cmp #255
beq getk
ldy #255
sty ch
tay
lda (ktab),y
rts
Zestaw equ $9000
Chbas equ $02F4
ktab equ $79
ch equ $02fc
Start equ $2000
org Start
init lda >zestaw
sta Chbas
pocz putline #powit
putline #pustyw
putline #klawisz
jsr getk
putline #pustyw
putline #kom1
putline #klawisz
jsr getk
putline #pustyw
putline #kom2
putline #klawisz
jsr getk
jmp pocz
getk lda ch
cmp #255
beq getk
ldy #255
sty ch
tay
lda (ktab),y
rts
pustyw .by $9b 0
powit .by 'poczatek petli' $9b 0
kom1 .by 'test 1' $9b 0
kom2 .by 'test 2' $9b 0
klawisz .by 'WCISNIJ DOWOLNY KLAWISZ' $9b 0
.link 'lib\posxy.obx'
.link 'lib\putchar.obx'
.link 'lib\putline.obx'
.link 'lib\printf.obx'
.link 'lib\getline.obx'
org Zestaw
ins 'test.fnt'
run init
getk
lda #255
sta ch
wait
ldy ch
cpy #255
beq wait
sta ch
lda (ktab),y
rts
Atariki:
Licznik programu ANTIC-a jest co prawda szesnastobitowy, ale podczas wykonywania DL pobieranie rozkazów zmienia tylko dziesięć jego najmłodszych bitów; w związku z tym po przekroczeniu granicy 1 KB pobieranie dalszych rozkazów DL jest kontynuowane od początku bloku 1 KB. Np. jeśli umieścimy początek DL pod adresem $43F0, to po pobraniu 16 bajtów DL, kolejne zostaną pobrane począwszy od $4000.key:
lda #$ff
sta $2fc
loop:
cmp $2fc
beq loop
rts
antic dta $4e,a(scr1)
:63 dta $0E
dta $8E
dta $C2,a(tekst)
:14 dta $82
dta $41,a(antic)
tablica
dta a(scr1,scr2,scr3,scr4)
tablica1
dta l(scr1,scr2,scr3,scr4)
tablica2
dta h(scr1,scr2,scr3,scr4)
mwa tablica,x antic+1
mva tablica1,x antic+1
mva tablica2,x antic+2