8( @W.BAT SYSMOC.I
c}E q0 \ C)CC8`DCeECi D`RP
h1 $E
ȍ @y
b Y)hܭ]L]`
q
DM D u j)` 0
,p0i2
&28jJ1f02 9g iJf0i1)x ԍӭ232002XԦ` *' } *(L
`( L l pL[,L] C
i0
} p gފދLh ( LD 0 C
C \i +$+0' }; $(%)
b
L[C
`D P^߰")(݃
$DD }G@НL]S")M T
H0 G$Ș݃ b
8$}$%8(() T
`$E0(0)8` $GE` P } Li
8GD
}L[ PH >iJ ; yyB } ' |L[ "E(
%H$H #`L]B0G
LO< (
d lH۪!A3A
}jA!BEIC Y$E0 F <
7
JN8Ndâ!,P
h0ʠJd,6 } ' r/
$ ɛ
` ' L[ l }- } L[L } ' L[ p ` g l } )
g '
}L[ ) ̠,L]T-0 | LM N݃:ː6UV LM N L(TU
N,)M }LL[IL3GDIɛ ɜ DI ,
JȊGм
G
I )
GȦ= }*GG
ȄI1200820IH1E1h0hIGI2Ȣ I`FE 0ɛ rɛ $ l ' }蚦TTUVD`M
L $:;Pyȱ$` r
iȱ$/:ȱ$VWyA**⩀
/
} `$***? mL]-+ȱ$ɛ m* ? g.
$0f.?'@ wAsTt/` } 0: gL`$0`j`& CpCi
s L0JCܢ j?I# }FގМގ& & 0 C4 08L`0
| 레L] EGȽGȽ }G | E` 8, }EG)݀G)ȱGȱG `"!L] l!i }栠$8 (Iƭ Ip
h,g+ j?8 ii(Lq)!
}S S0$} ) E9`H)N,L]8GH Lq `g Ngfj**** 8jHi
h` }
2J
&e2i `"%?&;^ $IM ! ! < u hh`$ }Ev옝^!
1EH FHjmGHm
H`u$Ev`L=? +`!,pFE ȄD 8 }q D&E`I0`i`+DOS SYSMOC.I
J
ٍ = ) F) }8`Ll T!U<; Ln <JM -18
HH = }D 5 : /1[ F:M #.! `>C # #`> e }L '>/b;\I\o@ @LK~ L
% /e LL
H }H0S0N:;=91D,1 ɛK$ɛ`:;ʾ ,ɛ }` XYȄ #`DTDRLUFFFCICLRSJ==CIYEEONSMDLNOOUAOOOARPLNCL#####PANVBNFR*),-PQOR}a/%< }) j ө
RES L%-, # 3 0 % 4(H 4(` }( 3 # ZOiۨ L4RE 3 =F
S Z +8 !} 0+
FF % 4 4& 4(X)Y # 4
ʤ Ȅ L "}F F LH hL4`*J 0 B B 0a 8 #} Lkl
);<
:
`
0} T T 7̀ $}LIl <;`<L 3 #/ !R( 7 7 7 89i L7 ,(& %} L480
`
Ln
` HJJJJ h)
ii0 ``0
,BLV &}[J B Vso Fhh`
GH ,H
hɐɀɡ)HDCȱCɛeCD먥D h '}N MS п` ED` O IH`hhXhh nL Free Fil-EBreakI/O-Error 128Disk f (}ullWrite protectedFile MismatchBad FilenameDOS II+/D - Version 6.4 RUN:(c) '87 by S.D.Br`č LLockedDe )}vice doneDIR fullNot foundLoad?Bad DOSHex?AbortFromToHD) S)Eh` ɛLn ;LD5:+DOS SY } opt 37 org $ba00 lda
dl sta $231 lda #0 sta 710 lda #15 +}sta 709 lda #34 sta 559 lda 20 cmp 20 beq *-2 rts org $2f00dl dta d'ppp' dta b($42),a ,}(txt),b($41),a(dl)txt dta d'Ǯ 's org $2f00dl dta d'ppp' dta b($42),a N opt 37 org $2000*-- kopiuje:* LOGO.DAT z $4000 do $6C00-77ff* zaraz za tunel.datskad equ $4000dok equ .}$6c00max equ $77ff lda skad sta $81 lda dok s /}ta $83 lda max sta $85 ldy #0l0 ldx #$ff stx $d301 lda ($80),y ldx #$eb stx 0}$d301 sta ($82),y cpy $84 bne l1 lda $83 cmp $85 beq exitl1 iny bne l0 inc $81 inc $83 jmp l0exit lda #$ff st 1}a $d301 rts,y cpy $84 bne l1 lda $83 cmp $85 beq exitl1 iny bne l0 inc $81 inc $83 jmp l0exit lda #$ff st opt 37 org $d800of equ 8off equ 1bmp equ $1300taba equ bmp+9tabb equ bmp+$45blur equ $7800 , bank $ebbump 3}f equ $800logob equ $9e00 ; celfontb equ $eemtab equ $1f00*-------qkn w banq eetorusc equ $4400scn12 equ $4aceczwo 4}r equ $4c12gwazd equ $4c3dgw2 equ $4e22tmaker equ $2000tunel equ $7c00portb equ $d301sekr equ $b400 ekrsbuf eq 5}u $ba00 buf*-----reallbet equ $c0d8lalf equ $c0d7real equ $c100rset equ real gen. malych tabl.rtab equ real+3 t 6}abl. bankowrini equ real+6 ini. przed obj.rlgh equ real+9 lightsourcingrext equ real+12 exit (wyl. tim.)rani equ 7}real+15 animacjarfil equ real+18 skok do filowaniarstl equ real+21 ustaw na lajt...rstm equ real+24 ustaw na mlajt 8}...rstf equ real+27 ustaw na filowaniealf1 equ real+30bet1 equ real+31gam1 equ real+32skl1 equ real+33xct1 equ real+3 9}4yct1 equ real+35alf2 equ real+36bet2 equ real+37gam2 equ real+38skl2 equ real+39xct2 equ real+40yct2 equ real+41alfa :} equ real+42beta equ real+43gama equ real+44skal equ real+45xcnt equ real+46ycnt equ real+47sefg equ real+48sefm equ r ;}eal+51pom0 equ $fbv2 equ $fcv1 equ $feecr equ $3600epx equ $3700el1 equ $3a00*-----napisyvnap equ $90 adres napi <}suvprc equ $92 vector adres prockixnap equ $94ynap equ $95colr equ $96font equ $4000buff equ $700 32*8 na pocz 0pnap e =}qu $800 adrs procki* ; na DOSa!v2pr equ $a2tmp0 equ $94tmp1 equ $95tmpv equ $90s1 equ $98onap equ $9cvfnt equ $9evb >}uf equ $a0*-------qkn2rawpix equ $90scn equ $91vec equ $92*-------motmotb equ $90mote equ $92motc equ $94mtprc e ?}qu $1000sinx equ $0e00 ; e500siny equ $0f00 ; e600word equ $a0wor2 equ $a2*-- bump+zar $1300-1eff*------ @} (new generation ;) jsr sdl0 lda skl1 sta rbuf jsr rtab lda #0 ldx #$e8 jsr $fece lda #$40 sta $d40e cli ld A}x #0 ; kopiuje sinysks lda $9800,x sta sinx,x lda $9900,x sta siny,x inx bne sks jsr mkmpr gen procki na blur B}a jsr cpcpr gen procki na kop. lda #$e sta bmp+7 lda #0 jsr bbank jsr set lda #$f sta colr lda #0 tay tax jsr C}napz ; zamiast napiz jsr vmak ; 3+tpau lda $7a cmp #of+2 bcc pau jsr clr jsr ecopy jsr sdl1 lda #33 sta 559*>> D}>>>>>>>>>>>>>>>>>>>>>>>>>p1 jsr p0 ; tik lda $7a cmp #of+4 bcc p1 lda #10 ldy #30 ldx #1 jsr napz ; takp2 jsr p0 l E}da $7a cmp #of+6 bcc p2 lda #0 ldy #15 ldx #2 jsr napzp3 jsr p0 ; tik-tak lda $7a cmp #of+8 bcc p3p4 jsr p0 ; tik- F}tak/2 jsr cz jsr cz lda $7b cmp #$1f bcc p4*--- 0 torus 1 12scian 2 4scian*--- 3-4 new 5 baczek lda #1 0=rstf 1 G}=rstl 2=rstm *3=setg 4=sefm sta oblr ldx #4 jsr obj_ lda #50 sta skl1 ; skala lda #0 sta oile sta okdnp5 H} jsr obj lda $7a cmp #18+of bcc p5 inc oilep6 jsr obj lda $7a cmp #26+of bcc p6 lda #1 ldy #0 ldx #3 jsr napzp I}7 dec skl1 dec skl2_p7 jsr obj lda $7a cmp #28+of bcc p7 lda #0 ldy #7 ldx #4 jsr napzp77 lda skl1 beq p77_ dec J} skl1p77_ lda skl2 beq _p77 dec skl2_p77 jsr obj lda skl1 bne p77 lda #2 ldy #20 ldx #5 jsr napzp8 jsr p0 ; n K}icosc jsr cz* jsr cz lda $7a cmp #$20+of bcc p8 lda #0 ldy #25 ldx #6 jsr napz jsr cz clc ; ew. lda 552 L} ; sta timer lda 553 sta timer+1 lda ti0 sta 553 jsr tunm ; mieli tunel.dat* M} ; na przerw. napisp9 lda $7a cmp #$22+of bcc p9 lda #0 sta 538 lda timer ; real3D sta 552 lda timer+1 sta 55 N}3p10 jsr tun ; tunel+3D_1 jsr ecopy jsr cz lda $7a cmp #$24+of bcc p10p10a jsr tun jsr pojw3 jsr ecopy jsr cz O}lda $7a cmp #$26+of bcc p10ap10b jsr tun jsr pojw2 jsr ecopy jsr cz lda $7a cmp #$28+of bcc p10bp10c jsr tun jsr P}pojw jsr ecopy lda $7a cmp #$2a+of bcc p10c lda #0 tay ldx #7 jsr napzp11 inc tpoz ; tunel+3D_2 inc tpoz jsr tun Q} jsr ob3 jsr gnap jsr motion jsr cz lda $7a cmp #$3a+of bcc p11 lda #$f sta pomp11_ ldy tpoz jsr tunel jsr moti R}on jsr cz dec pom bne p11_ lda #8 ;z $0800-$ba00 sta mkn+1 ; do $ba00 lda #$ba sta mkn2+1 jsr mkmprp12 ldy tpoz S} jsr tunel jsr skop jsr cz jsr motion jsr ecopy jsr zwklb * inc klb* lda klb* cmp #29* bcc p12_* l T}da #0* sta klbp12_ lda $7a cmp #$42+of bcc p12p13 jsr p01 jsr motion jsr cz jsr ob01 jsr ecopy jsr zwklb lda $7a U} cmp #$50+of bcc p13 lda #$b4 ; vector na screen sta _ze+1 ; nie na buforp14 lda #$ea sta $d301 jsr blur lda #$fe s V}ta $d301 jsr ob01 jsr cz lda $7a cmp #$50+of beq p14 lda >sekr sta mkn+1 sta mkn2+1 jsr mkmpr jsr clr* lda #4* W}sta pom*p14_ jsr motion * jsr cz* jsr cz* dec pom* bne p14_*------ lda #0 jsr log800 lda #4 X}7 sta line jsr adl ; dl at $2000 lda #32 ; centruj obiekt sta xct1 lda #24 sta yct1 lda #0 jsr slogo ; nazwa tez n Y}a scr/buf jsr ecopy ; (dla efx) jsr set lda #$a0 ; napiz prc -> new addy sta _n1+1 ; bo $0800 zajete sta _n11+2 ; dla Z}jmp pnap lda #8 sta _n2+1 ; scr=$0800 ldy #25 lda #7 sta colr lda #0 ldx #8 jsr napz_p14 jsr p04 lda $7a cmp #$5 [}4+of bcc _p14 ldy #29 lda #0 ldx #10 jsr napzpp14 jsr p04 lda $7a cmp #$56+of bcc pp14 lda #$f sta colr lda #0 \} ldy #34 qw ldx #9 jsr napzp14b jsr p04 lda $7a cmp #$58+of bcc p14b lda #0 sta oile lda #$ff sta okdn lda # ]}50 sta skl1 jsr sdl1 ldx #0 lda #2 jsr obj_ ldx #0 stx alf1 stx bet1 stx gam1 stx 538* lda 552 ; ^}* sta timer* lda 553* sta timer+1 lda ti01 sta 553 inc 538 lda #$ff sta oblrp15 jsr p03 ld _}a alf1 cmp #65 bcc p15 lda ti02 sta 553p16 jsr p02 lda $7a cmp #$60+of bcc p16p16_ lda skl1 `} cmp #20 bcc _p16 dec skl1 dec skl1 dec skl1_p16 jsr p02 lda $7a cmp #$62+of bcc p16_ ldx #0 lda #3 jsr obj_ jsr a} cz lda timer sta 552 lda timer+1 sta 553 lda #65 sta alf1 lda #0 sta bet1 sta gam1 lda >sbuf sta _sk2+1 lda #19 b} sta klbp17 jsr zwklb jsr skop jsr obj jsr motion lda skl1 cmp #63 beq _p17 inc skl1_p17 lda $7a cmp #$82 bcc p1 c}7 lda #$b4 ;z b400 do ba00 sta mkn+1 ;odwrotnie,potem ecopy lda #$ba sta mkn2+1 jsr mkmpr ldx #4 lda #1 jsr obj_ d} lda #55 sta skl1 lda #$ba sta _ze+1 ; gwiaz. na bufor lda >sbuf sta _n2+1 ; nap->bufor ldy #0 sty _e1+1 ; eor zaw e}sze sty okdn ; obj.napis.on jsr nxt lda $7a ; w tpoz clc ; nr song +4 adc #4 ; potem porownac sta tpo f}z ; i next grtx gdy rownep18 jsr p05 lda $7a cmp #$8a+of bcs p18_ cmp tpoz bcc p18 jsr zt jsr nxt jmp p18p18_ j g}sr zt jsr nxt ldx #1 txa jsr obj_ lda #2 sta okdnp19 jsr p05 ; tu konczyc greetzy_p19 lda $7a cmp #$98+of bcs p h}19_ cmp tpoz bcc p19 jsr zt jsr nxt jmp p19p19_ lda #25 ; tu konczyc greetzy sta skl1 sta xct1 lda #15 sta yct1 i}lda #40 sta skl2 inc oile inc _e1+1p20 jsr clr jsr p05_p20 lda $7a cmp #$a0+of bcs p20_ cmp tpoz bcc p20 jsr zt j}jsr nxt jmp p20p20_ jsr clr jsr ecopy lda #$ff sta okdn lda #2 ldx #1 jsr obj_ lda ti02 sta k}553p21 lda #1 jsr slogo jsr p06 jsr ecopy lda $7a cmp #$aa+of bcc p21 lda timer sta 552 lda timer+1 sta 553 l l}dx #0 jsr eo1p22 lda #1 jsr slogo jsr p06 jsr loss jsr ecopy lda $7a cmp #$b6+of bcc p22 lda #3 jsr slogo jsr e m}copy*- kocham anie ! - solo*- i ania solo tez !*--- tunel 2 lda #28 sta xct1 lda #24 sta yct1 lda rbuf sta skl1 l n}da #0 sta oile lda #1 sta _v1+1 jsr vmak + vect. 3D lda #$4e sta _kt1+1 lda #$ae sta kt1+1 jsr tunm lda #$08 s o}ta _n1+1 sta _n11+2 lda #$ba sta _n2+1 lda #0 ldy #30 ldx #29 jsr napz_p22 lda $7a cmp #$ba+of bcc _p22 lda #$b4 p} sta mkn+1 lda #$b4 sta mkn2+1 jsr mkmprp23 inc tpoz inc tpoz jsr tun jsr gnap jsr ob01 jsr ecopy jsr cz lda $7a q} cmp #$ca+of bne p23 lda #45 sta xct2 lda #1 sta skl1 sta skl2 sta oile ldx #0 jsr obj_p24 lda #2 jsr slogo js r}r obj jsr motion lda skl2 cmp #40 beq p24_ inc skl2p24_ lda skl1 cmp #62 bcs p24b inc skl1 inc skl1p24b jmp p24* s}-- loss lda $d20a and #3 bne lo1 jsr eorlo1 rtsp06 jsr ob01 jsr obj jsr motion jmp zskobj_ jsr t}objini jsr rset jmp rinizsk ldy six lda sinx,y sta skl1 ldy siy lda siny,y asl @ sta skl2 inc six inc six inc si u}x dec siy dec siy rtszt clc adc #2 sta tpoz rtsny dta b(0)nx dta b(0)nn dta b(11)nxt ldy ny lda nx ldx nn inc v} nn inc ny jmp napznapz sta xnap sty ynap jmp napizp05 jsr zwklb jsr skop jsr ob01 jsr obj jsr motion jsr eor j w}sr cz jmp ecopysetm8 lda #8 ;z $0800-$ba00 sta mkn+1 ; do $ba00 lda #$ba sta mkn2+1 jmp mkmpreo brkeor ldx #0 ld x}a eo_e1 eor #1 sta eo beq eo1 rtseo1 lda $ba00,x eor #$ff sta $ba00,x lda $bb00,x eor #$ff sta $bb00,x lda $bc00,x y} eor #$ff sta $bc00,x lda $bd00,x eor #$ff sta $bd00,x lda $be00,x eor #$ff sta $be00,x lda $bf00,x eor #$ff sta $ z}bf00,x inx bne eo1 rtsti04 jsr eor+2_t4 jmp $2000 ; adres r3d_timp04 lda #0 jsr log800 jsr gnap jsr cz jsr cz jm {}p czlog800 ldx >bumpf stx _ss1+1 jsr slogo ; gfx to buf ldx >sbuf stx _ss1+1 rtsp02 lda #0 ; obj+tlo jsr slogo jsr |} obj jmp ecopyp03 lda #0 ; obj+tlo+motion jsr slogo jsr obj jmp motionlogoz dta b($c7),b(9) ; bank af,$4000 dta }}b($af),b(0) ; bank af,$4600 dta b($af),b(1) ; face dta b($af),b(9)slogo asl @ tay lda logoz,y sta _sk1+1 ld ~}a logoz+1,y sta klb_ss1 lda >sbuf sta _sk2+1 jsr _sk1 lda >bumpf sta _sk2+1 rtsbbank lda #0 ; nr.logosa, wazne ! } jsr skopl ; logos_bump jsr skopz ; zarowa jmp bmp ; bmp_makadl jsr sdl0 jsr cz lda #0 sta dl_ lda #$20 sta dl_+1 } lda #$08 ; buforek 4 scr sta scr_+1 jsr mkdl jsr cz lda #0 sta $230 lda #$20 sta $231 rtsti01 lda #2 sta 538 in }c alf1 inc alf1 rtsti02 lda #2 sta 538 inc lbet dec lalf rtsti03 jsr gnap lda #3 sta 538 rtsp01 dec tpoz dec tp }oz jsr tun2 jmp skopzwklb inc klb lda klb cmp #29 bcc zl0 lda #0 sta klbzl0 rtsklb brkskop ldx klb qw lda tabb },x sta _sk1+1_sk1 lda #0 sec sbc #off sta $d301 lda klb asl @ tax clc ldy taba+1,x sty s0+2 iny sty s1_+2 iny } sty s2+2 iny sty s3+2 iny sty s4+2 iny sty s5+2_sk2 ldy >bumpf sty s0+5 iny sty s1_+5 iny sty s2+5 iny sty s3 }+5 iny sty s4+5 iny sty s5+5 ldy #0s0 lda $0000,y sta $ba00,ys1_ lda $0100,y sta $bb00,ys2 lda $0200,y sta } $bc00,ys3 lda $0300,y sta $bd00,ys4 lda $0400,y sta $be00,ys5 lda $0500,y sta $bf00,y iny bne s0 lda #$fe s }ta $d301 rtsskopz ldx #0 lda #$17 sta ec+2 lda #$30 sta ec+5 ldy #7ec lda $1700,x sta $3000,x inx bne ec inc ec+ }2 inc ec+5 dey bne ec rts*- adresy logosuff+bankuff*- zmienic reszte !loga dta a($6c00) dta a($6c00)logb dta b }($ea) dta b($ea)skopl tay lda logb,y sta pom tya asl @ tay lda loga,y sta word lda loga+1,y sta word+1 lda }logob sta wor2+1_log2 ldx #12 ldy #0sl lda pom sta $d301 lda (word),y pha lda #$fe sta }$d301 pla sta (wor2),y iny bne sl inc word+1 inc wor2+1 dex bne sl rtspojw ldx six lda sinx,x sta px ldx siy l }da siny,x sta py lda kl1 sta kl jsr tv3pojw2 ldx six+1 lda sinx,x sta px ldx siy+1 lda siny,x sta py lda kl2 sta } kl jsr tv3pojw3 ldx six+2 lda sinx,x sta px ldx siy+2 lda siny,x sta py lda kl3 sta kl jmp tv3*--- 3 obiekty -- }--------------------ob3 ldx six lda sinx,x sta px ldx siy lda siny,x sta py lda kl1 sta kl jsr tv3 lda kl1 sta kl } jsr zwkl sta kl1 inc six inc six inc siy inc siy*- ldx six+1 lda sinx,x sta px ldx siy+1 lda siny,x sta py lda } kl2 sta kl jsr tv3 lda kl2 sta kl jsr zwkl sta kl2 inc six+1 inc six+1 inc siy+1 inc siy+1*- ldx six+2 lda sinx },x sta px ldx siy+2 lda siny,x sta py lda kl3 sta kl jsr tv3 lda kl3 sta kl jsr zwkl sta kl3 inc six+2 inc six+2 } inc siy+2 inc siy+2 rtsob01 ldx six+2 lda sinx,x sta px ldx siy+2 lda siny,x sta py lda kl3 sta kl jsr tv3 lda } kl3 sta kl jsr zwkl sta kl3 inc six+2 inc six+2 dec siy+2 dec siy+2 dec siy+2 rtszwkl inc kl lda kl cmp #42 bn }e zl lda #0zl rts*--- t.obiekttv3 lda #$cf-1 sta $d301*- lda #22 sta nrl lda kl clc adc #$40 sta tv0+2 lda #0 }sta tv0+1 jsr se jsr sxy ldx #11 ldy #0tv0 lda $4000 sta pom beq eh and #$f0 beq tvl lda pom and #$f beq tvp ld }a pom jmp tvstvl lda (word),y and #$f0 ora pom jmp tvstvp lda (word),y and #$f ora pomtvs sta (word),yeh inc tv0+ }1 iny dex bne tv0 ldx #11 jsr zw2 ldy #0 dec nrl bne tv0 lda #22 sta nrl lda #$fe sta $d301 rtszw2 clc lda }word adc #32 sta word bcc *+4 inc word+1 rtsse lda px lsr @ sta word_ze lda #$ba sta word+1 ldy pyze beq _se js }r zw2 dey jmp ze_se rtspx dta b(5)py dta b(10)six dta b(0),b(85),b(170)siy dta b(0),b(85),b(170)kl1 dta b(0)kl2 dta } b(15)kl3 dta b(30)sxy rtskl dta b(0)p0 jsr gnap ; napis,motion,clr,cz jsr motion jsr clr jmp czti0 lda #4 sta 538 } jsr gnap jsr motion jmp clrtimer dta a(0)tunm ldx #1 stx dl_ dex stx scr_ lda #$b2 sta dl_+1 lda #$b4 sta scr_+1 } jsr mkdl jsr sdl2 ; dlist jsr kopt ; kopiuje z banku jmp tmaker ; gen.kodtun inc tpoz lda tpoz and #63 sta tpoz tay } jmp tuneltun2 dec tpoz lda tpoz and #63 sta tpoz tay jmp tuneltpoz dta b(0)vmak lda #1_v1 ldx #3 jsr objini jsr } rset jsr rini ldx #$ff stx oblr stx okdn inx stx 538 stx klt stx alf1 stx alfa stx bet1 stx beta stx gam1 stx g }ama lda #30 sta skl1 jsr sv_ lda #$40 sta tb1+2 lda #22 sta nrlpet jsr clr jsr obj ldy #0 ldx #0tb0 lda (word),y } pha lda #$ce sta $d301 platb1 sta $4000,x lda #$fe sta $d301 iny inx cpy #11 bne tb0 ldy #0 jsr zw2 dec nrl bn }e tb0 lda #22 sta nrl inc tb1+2 jsr sv_ ldx #0 lda alf1 clc adc #6 sta alf1 lda bet1 clc adc #6 sta bet1 lda ga }m1 adc #6 sta gam1 inc klt lda klt cmp #45 bne petpet_ inc 538 rtssv_ lda #$a8 sta word lda #$bb sta word+1 rts }klt dta b(0)nrl dta b(0)*-----------------------------**-- sdl0 lda dl0 sta $231 rtssdl1 } lda dl1 ; set: $0230 sta $230 lda dl1+1 sta $231 rtssdl2 lda dl2 sta $230 lda dl2+1 sta $231 rtsset lda dl1 sta }dl_ lda dl1+1 sta dl_+1 lda sca1 sta scr_ lda sca1+1 sta scr_+1 jsr mkdl lda dl2 sta dl_ lda dl2+1 sta dl_+1 lda }sca2 sta scr_ lda sca2+1 sta scr_+1 jsr mkdl jsr mkmot lda #64 sta 623 rts*-- ɠmotion ldx #31 jsr mtp }rc dex bpl *-4 rtskopt lda #0 tay sta $80 sta $82 lda #$40 sta $81 lda #$20 sta $83 ldx #2kt0 lda #$ea sta $d }301 lda ($80),y pha lda #$fe sta $d301 pla sta ($82),y iny bne kt0 inc $81 inc $83 dex bne kt0_kt1 lda #$42 ;tu }n.dat 42 sta $81 lda #$64 sta $83 ldx #$29kt1 lda #$ea ; ea sta $d301 lda ($80),y pha lda #$fe sta $d301 pla st }a ($82),y iny bne kt1 inc $81 inc $83 dex bne kt1 rtsmkmot ldx #0 txa lsr @ and #$f0 sta pom0 txa and #$0f ls }r @ ora pom0 sta mtab,x inx bne mkmot+2 rts*v1 adres miejsca procedurymkmpr lda mtprc sta v1+1 } ldy #0 sty mote sty motb sty motcmkn lda >sekr sta mote+1 ; inny buformkn2 lda >sekr sta motc+1 lda >sbuf sta motb+ }1 lda #48 sta pom0mkmprl lda #$bc ldy buf,x jsr mkmprp lda motb jsr mkmprp lda motb+1 jsr mkmprp lda #$b9 } lda mtab,y jsr mkmprp lda mtab jsr mkmprp lda #$bc ldy ekr,x jsr mkmprp lda mote j }sr mkmprp lda mote+1 jsr mkmprp lda #$79 adc mtab,y jsr mkmprp lda mtab jsr mkmprp ld }a #$9d sta ekr,x jsr mkmprp lda motc ;e jsr mkmprp ;e lda motc+1 jsr mkmprp lda mote clc adc #32 sta m }ote sta motc sta motb bcc _ph inc mote+1 inc motb+1 inc motc+1* lda mote+1* adc #0* sta mote+1* lda motc+1 ;* adc } #0 ;* sta motc+1 ;* plp* lda motb+1* adc #0* sta motb+1* plp_ph dec pom0 bne mkmprl lda #$60 rtsmk }mprp sta (v1),y iny bne *+4 inc v1+1 rts*kopiowanie bufora do ekranuecopy lda portb pha lda #$e6 sta portb jsr $40 }00 pla sta portb rts*generowanie procki do banku $e7cpcpr lda portb pha lda #$e6 sta portb lda <$4000 sta v1 lda } >$4000 sta v1+1 jsr mkcpr pla sta portb*v1 adres miejsca procedurymkcpr ldy #0 sty mote sty motb lda >sekr sta m }ote+1 lda >sbuf sta motb+1mkcprl lda #$ad lda buf jsr mkmprp lda motb jsr mkmprp lda motb+1 jsr mkmprp lda #$8d } sta ekr jsr mkmprp lda mote jsr mkmprp lda mote+1 jsr mkmprp inc motb bne *+4 inc motb+1 inc mote bne *+4 } inc mote+1 lda mote+1 cmp >sbuf bcc mkcprl lda #$60 rts jmp mkmprpclr lda #0 taycl2 sta sbuf,y sta sbuf+ }$80,y sta sbuf+$100,y sta sbuf+$180,y sta sbuf+$200,y sta sbuf+$280,y sta sbuf+$300,y sta sbuf+$380,y sta sbuf+$400,y } sta sbuf+$480,y sta sbuf+$500,y sta sbuf+$580,y iny bpl cl2 rtsmkdl lda dl_ sta $80 lda dl_+1 sta $81 lda scr_ s }ta $82 lda scr_+1 sta $83 ldy #0 ldx pus ; robi_puste lda #$70_mkp jsr mk0 dex bne _mkp ldx razy lda line st }a pommk1 lda #$4f ; line1 jsr mk0 lda $82 jsr mk0 lda $83 jsr mk0 lda #0 jsr mk0 cpx #0 beq mk2 dex jmp mk1mk }2 clc ; zw.scr_add lda $82 adc #32 sta $82 bcc *+4 inc $83 ldx razy dec pom bne mk1 lda #$41 jsr mk0 lda $80 j }sr mk0 lda $81 jmp mk0 ; endmk0 sta ($80),y iny bne *+4 inc $81 rtscz lda 20 cmp 20 beq *-2 rts*-- napisiki - }--*generowanie napisikow* by lamers/ng*napiz lda #$ae* sta $d301* jsr napiz_* lda #$fe* sta $d301* rtsnapiz lda <