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.
adv:
Czerwono-niebieskie można wyrzucić do kosza.adv:
W jednym z numerów TA był krótki program imitujący zamieć.adv:
Edit: W jednym z numerów TA był krótki program imitujący zamieć. Ładnie wyglądał w tych okularach. Niestety, po nastu latach nie potrafię go znaleźć w archiwum na AOL.opt %10101
*-Page 0
clock equ $12 (+2)
ekrv equ $58 (+1)
ktab equ $79 (+1)
*-Page II
dliv equ $200 (+1)
vblkd equ $224 (+1)
dmactl equ $22F
dlav equ $230 (+1)
gtictl equ $26F
colps0 equ $2C0
colfs0 equ $2C4
crsin equ $2F0
kbcd1 equ $2F2
chbas equ $2F4
kbcods equ $2FC
*-I/O Rejestr
driv equ $301
iocb0 equ $340
iocom equ iocb0+2
iosta equ iocb0+3
ioadr equ iocb0+4 (+1)
iolen equ iocb0+8 (+1)
iomod equ iocb0+10
ioax2 equ iocb0+11
*-SYSTEM
hposp0 equ $D000 (+4)
sizep0 equ $D008 (+4)
colpf0 equ $D016 (+4)
pmctl equ $D01D
rand equ $D20A
skctl equ $D20F
hscrol equ $D404
vscrol equ $D405
pmbase equ $D407
wsync equ $D40A
vcount equ $D40B
nmien equ $D40E
ciov equ $E456
reset equ $E474 (Warm)
clear equ $F420
bell equ $F556
click equ $F983
*-Wlasne
byt0 equ $C0
byt1 equ $C1
byt2 equ $C2
byt3 equ $C3
byt4 equ $C4 (counter przes.poz.)
plr equ $B000
font equ $E000
*---------------
org $480
jsr snieg
spk lda kbcods
cmp #$FF
beq spk
ldy #$FF
sty kbcods
tay
lda (ktab),y
cmp #$1B
bne spk
*- EXIT -
exit lda #$40
sta nmien
jsr init1
rts jmp ($0A)
*---------------
org $7C00
snieg equ *
jsr iplr * do init plr.
jsr init
lda #$C0
sta nmien
*- Glowna proc. sniegu
loop equ *
dec byt1
lda clock+2
and #1
bne lp0
dec byt2
lp0 lda byt0
sta byt3
lp1 lda vcount
cmp #4
bne lp1
ldx byt1
ldy byt2
lp2 lda plr,x
sta hposp0
lda plr+$100,y
sta hposp0+2
sta wsync
inx
iny
lda byt0
cmp byt3
beq lp2
lda #0
sta hposp0
sta hposp0+2
ldx byt1 * dobudowany przeze mnie
ldy byt2 * fragment zmieniajacy snieg
dex * w tablicy co powoduje nie
dey * powtarzanie sniegu
lda rand *
sta plr,x *
lda rand *
sta plr+$100,y *
lp4 lda kbcods
cmp #$FF
beq loop
rts
*-Proc. Przer I
przer1 equ *
lda dlz
cmp #$FF
bne pr10
lda <nap
sta dlz
lda >nap
sta dlz+1
pr10 dec byt4
beq pr11
lda byt4
sta hscrol
jmp prex
pr11 inc dlz
bne pr12
inc dlz+1
pr12 lda #8
sta byt4
sta hscrol
prex inc byt0
jmp (aprzer)
*-proc. Przerw. DLI
ndli equ *
pha
txa
pha
tya
pha
ldx flx
ldy #4
stx wsync
dli0 lda fcol,x
sta colpf0,y
dex
dey
bpl dli0
lda flx
eor #$0D
sta flx
pla
tay
pla
tax
pla
rti
*-Init PLR
iplr equ *
lda #$80
sta byt1
lda #0
sta byt2
lda >plr
sta pmbase
ldy #2
sty pmctl
ldy #0
sty sizep0
sty sizep0+2
ldy #$80
sty hposp0
ldy #$90
sty hposp0+2
lda #$0E
sta colps0
lda #$0A
sta colps0+2
ustaw equ *
ldx #0
lda #1
pr0 sta plr+$400,x
sta plr+$600,x
inx
cpx #$C0
bne pr0
lda #0
pr1 sta plr+$400,x
sta plr+$600,x
inx
bne pr1
ldx #0
pr2 lda rand
sta plr,x
lda rand
sta plr+$100,x
inx
bne pr2
rts
*-Proc Init
init equ *
lda <nap
sta dlz
lda >nap
sta dlz+1
init1 equ *
lda clock+2
cmp clock+2
beq *-2
ldy vblkd
lda aprzer
sty aprzer
sta vblkd
ldy vblkd+1
lda aprzer+1
sty aprzer+1
sta vblkd+1
ldy dmactl
lda fdmac
sty fdmac
sta dmactl
ldy dlav
lda andl
sty andl
sta dlav
ldy dlav+1
lda andl+1
sty andl+1
sta dlav+1
ldy chbas
lda flfnt
sty flfnt
sta chbas
ldy gtictl
lda fgtic * priorytet sniegu z polem coloru
sty fgtic
sta gtictl
ldy dliv
lda adli
sty adli
sta dliv
ldy dliv+1
lda adli+1
sty adli+1
sta dliv+1
rts
aprzer dta a(przer1)
fdmac dta b($3A)
andl dta a(ndl)
flfnt dta h(font)
fgtic dta b(2)
adli dta a(ndli)
fnmien dta b($40)
flx dta b($04)
fcol dta b($34),b($46),b($74),b($B4),b($80)
dta b($28),b($CA),b($82),b($46),b($00)
*-Nowy Display List
ndl equ *
dta b($70),b($70),b($70)
dta b($46),a(tyt1)
dta b($70)
dta b($46),a(tyt2)
dta b($70)
dta b($47),a(tyt3)
dta b($70)
dta b($48),a(inf)
dta b($48),a(inf)
dta b($48),a(inf)
dta b($48),a(inf)
dta b($48),a(inf)
dta b($48),a(inf)
dta b($48),a(inf)
dta b($48),a(inf)
dta b($48),a(inf)
dta b($48),a(inf)
dta b($48),a(inf)
dta b($48),a(inf)
dta b($F0),b($30)
dta b($D7) * $40+$07+$10 ($10=pr.h)
dlz dta a(nap)
dta b($41),a(ndl)
tyt1 dta d' henryk '
tyt2 dta d' PREZENTUJE '
tyt3 dta d' SNIEG '
inf dta d' JJ '
info dta d' '
dprg equ *
org $8000 * ????
nap equ *
dta d' '
dta d' *
* *
* '
dta d'
*
* '
dta d' Tutaj leci tymczasowy '
dta d'scroll PADA PADA SNIEG'
dta d' *
*
TEKST TEKST te'
dta d'kst tekst KONTROLNY '
dta d'TEKST kontrolny tekst'
dta d' KONTROLNY TEKST kont'
dta d'rolny tekst * *
'
dta d'ABCDEFGHIJKLMNOPQRSTUVW'
dta d'YZ abcdefghijklmnopqrs'
dta d'tuvwxyz 0123456789 '
dta d'
*
*'
dta d' '
dta b($FF) * wskanik end napisu
kpr equ *
*-----------
opt %110
kon0 equ dprg
anp equ nap
kon1 equ kpr
*-----------
end
Od 1 do 10 z 10