@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr  OPT 32+5VVBLKI EQU $222TIMER EQU 20KBCODES EQU 764SCR EQU 88DLPTR EQU 560DMACTL EQU 559DLIV >} )L-&&&m򌹍I𬹍i(i` ̸hhh` Оm  Оm𹘟i)LB&&&m΍I΍i(i` ͍hhH St-ce 1995-01-14 Witaj Darku ! Jestem ciekaw jak Ci si podoba tensystem? A taki }z y to chyba nie jest? Niele si nad nim napracowa em!Na razie ( jak widzisz ) jest to tylkodemonstracja, ale g wne pr }ocedury(te najtrudniejsze) mam ju za sob.Jest ich chyba co ponad 30. Mimo wszy-stko nie zajmuj one a tak duo pami- }ci,eby nie mona ich uywa przy pisa-niu programw. Nie napisa em jeszczetylko procedur zapamitywania wyglduaktualnego } okna przed otworzeniem nas-tpnego, wyswietlania grafiki orazznormalizowanych ikon i tym podobnychpierd ek.Jak wiesz, }na razie pracuj tylko nadsamym " rodowiskiem graficznym ".Napisanie wsplnie z Tob DOS'aw okienkach wymaga oby sporo cz }asu,wic trzeba powanie si zastanowi,czy bdzie si ten wysi ek op aca .Rozmawia em ostatnio ze `bikiem i dosz-limy d }o wniosku, e system w okienkachnajprawdopodobniej wydamy jako oddziel-ny program, a oprogramowanie dla KARINubdzie stano }wi o odrbn cz.---------------------------------------Teraz troch szczegu w na temat OKIEN: * rozdzielka (jak wid }zisz) tryb grafi- czny 320*200 * a 3 kolory (trzeci to sprite'y) * ilo okien, jednoczenie(!) wywie- tlanych }zestaww znakw, ikon itp. zalena wy cznie od rozmiaru pa- mici * obs uga mysz, a jeli nie masz zwierzaka }, to klawiatur * bardzo szybkie (jak na ATARI) gene- rowanie wszelkich obiektw. * prosta (tak mi si wydaje) obs ug }a programw wykorzystujcych OKNA * mona niele zaszpanowa (no nie?)I to chyba wszystko nt. 'ATARI WINDOWSSYSTEM' }, lecz nie koniec listu - prze-cie zosta o jeszcze mnstwo pamieci:---------------------------------------(Kolejnych par } s w kieruj do te do GRAVEMAN-a)Jeli chodzi o moje plany zwizanez now gr, ktr by moe napisz:Na pewno nie b }dzie mi si chcia o pi-sa czego podobnego do PACMAN-a. Myle pomys jest tak stary, e chyba niezrobilibymy wielkieg }o hitu. Jeli jumia bym zaj si czym podobnym, tomog aby to by np. gierka znana o ilesi nie myl pt.'DYNA BLASTER': }-DU`O ognia, wybuchw, wiele ruchui animacji. Co takiego monaby zrobi, no nie?Myle te nad jakim demkiem, w ktrymu }mieci bym swoje screeny itd., co domuzyki, to mg bym uy waszych talen-tw......ale na razie tylko myl.------------ }---------------------------Dobrze! -koniec artw, aby zape nidysk wysy am Ci (Wam?) 2 moje programi-ki w TURBO BASIC-u, } ktre napisa emjaki czas temu: #1 -gra pt.'saper' ktr na pewno znasz z PC-ta, #2 -test ze s wek w jzyku angie }lskimNie wysy am Ci Darku, tak wielu fajnychprogramw jak ty mnie, a to z tego pro-stego powodu, e nie posiadam ichwie }le, a te co mam, Ty na pewno temasz (very old & primitive).Ma a proba do Ciebie, a szczeglnie do`bika ktry, jak s ys }za em ma do spo-ro programw i literatury:Nie mog nigdzie dosta kompletnej mapypamici ma ego ATARI, czy moglibycie }co takiego mi przys a? (zrobi xeroi odel). Bez niej trudno mi jest pi-sa cokolwiek bardziej skompliowanego..A tera }z wiksza proba do Was:Chcia bym, ebycie na wys anych przezemnie dyskach nagrali mi:jakie programygraficzne (np. nie !}mam do grafiki #15ANTIC-a), narzdziowe, procedury rd- owe: kompresja/dekompresja danych,odtwarzanie sampli w rnych cz "}stotli-wociach oraz wszelkie inne przydatne'PROC'-e, ktre u atwi y by mi (a wictake Wam) prac. - A propos: Zaczyna #}m "rozgryza"procedury sztucznych SPRITE-w, kiedyuda mi si j w pe ni "zdekodowa",przel Ci opis -moliwe, e zrobiw $} asn (czyt. lepsz) wersj.I jeszcze jedna sprawa:Zanim napisz jakiego demo, chcia bymte zobaczy najlepsze waszym zd %}aniemdemka (aby wiedzie w ktr stronnaley pj w ich pisaniu i nie powta-rza czyich pomys w). Te dema, ktrewidzi &}a em (nie jest ich wiele) s bar-dzo stare, wic nie jestem na bierzco.Jest tak dlatego, e po prostu nie mia- em wczeni '}ej kontaktu z grupami takimijak Wy.Czekam wic na ciekawe programy od Was,-na razie mam niezbyt dobre warunkido pisania (}programw...Nie mam w tej chwili forsy na czystedyski, dlatego wysy am tylko 4.Nie chc opnia listu, wic przylij-ci y}Q~~~~~~~~TTTTkkk~}~*}}~~~~~~~~~~qvvvqmkޞގ~ۻ{{c#+}oooooooooogǻ8>gspx|mwmlm,}6m mm۷wwvW?mmn{'v:?? }} xy-}eim??*TTUUSSWWOO7}  3'2NAZWA@A$A$ **@@ D:AWS.COM * PROGRAM LAC(/}ZACY ZBIORY * ************************** !!!䠱"((0};@,-%%(}Please wait- linking AWS.COM.))(! 25@5@@(1} D:AWS.COM<-@@"FA6% P=-A"% A0=( 7@`<|bd&F28kf;  00D((D;}~0~ @<<}0 0 ~~`0 0`````>xdbbb|~`x``~~`x```>`fbb>bb~bbb~~~=}b<dhphdb`````~bvjbbbbrjfbb`<|~bbbbb<bbbb4bbbjvbb44bbbb4>}~ ~@ xx6c~~$ ~<>b> >```> >`<| 8pp8??}88<brjfbb|bbbb~<~~~< >````>~( ~@}~ ~x`x`~<~~<0~0 ~ ~ ~<>b>`|bbb|>```>>bbb>000|00>bb>|`|bbbbA}8<b<`dxhdb8<~IIII|bbbbbbb>|b```>`<|~bbbb>bbb4AIII~b4B}4bbbb>|| ~``hp`~~x|nf8x83LLҐL}LLLgLLĒL֒LݒLLדLjL̔LLLؘL"LLC}LL'LqLL L>L]LuLL'LƜL/L@LLD} E}pp0O`OF}AJJJJ|)i)z zG}?i눭i수8)zz8눭숭|) i){ {ǰ툘8){ {H}`$% ֒f$%` ֒$%`숍눍NnNNJJJ툍)О𹘟rI}HL 8nNh- (2𝂓ǓHIL@8.h-  ȰLؑ툍`J}𹘟r( ȰLi``jkjОi(jkik``` 0K}1`HHmLfl@LfnȐLfnО𹘟mJljJJol)JL3ppIpoH h-pLfh phL}h`?_ow{}~|m?!@`px|~|l ׈`H >hM}i kl J`  ; J`0 ; J`ʽegfÈh b ֒ b`kmm8l` Z ֒ Z` " "`N} ؘ`쩀ԩЩoЍ Ѝ Ѝ Щ Щ0Щ8Щ@ЩHЩPЩpЩЩ`hh񮆈𝇈ȱO}ȱ𝛈ȱÈiiHH` ֒hhsȱtȱuȱvȱwȱxiiHHHsimxitiP}iÈstȌx 'ZxHZs芮st qHsh qhZsst 'Q}smxit? 'uxst qvwxst qitȭsmxi "sthR}` AAAAAAAAAAAAAAAAAAAAAAAACDDDDDDDDDDDDDDDDDDDDDDDDFFFFFFFFFFFFFFFFFFFFFFFFF ֒hhkȱlȱmȱnȱoS}pȱqȱriiHHHklmn 'k9mmʎ;l:mnʎ<i ؘklm qT}kmmʭokli "kko!kmm8l q~HLHkmm&lȌ 'n (U}h ''О𹘟m&&i'klmnm qkmmlmn klȌn 'r3V}mʭoʊ8rJmkilpqr q׈h`99999999999999999999999999999999999999 W} ֒hhȱHȱȱhiiHH "새 "̄`H𩁅JJJLGiiX} ie𭁈)LbJi)ML LI h` ֒hhȱHȱzȱY}yȱȱhiiHHzz{Hz{ qhmzi{y` ֒ j` ֒j g`H|} ОmZ}i}}}hH|i(i}h`~(HHHH h(~hhh` Оm𹘟i[}񭖓)L̚&&&mIi(i` ֒/H/(􈩪 'i ؘ' \}h/`ҩҠ ` Ҡ ֒` ֒ ֒ ֒)΀)LuLw  HH𝦜ȱ𝦜]}i(i hh =f' ȱ=vi(i` Оm𹘟i` ^} _'Ƚi(i `3aBDJ4?'TFILE DTA C'D:LETTER.TXT',B(eol)TD2 DTA D'D1:LETTER.TXT'}FILE DTA C'D:CONFIG.SYS',B(eol)*----A_W_S EQU * JSR ST_OFF JSR CLRSCR LDA >CHWND STA CHBASE JSR BLOCK} DTA B(0),B(0),B(2),B(1),A(T1) JSR BLOCK DTA B(2),B(2),B(2),B(2),A(T3) JSR BLOCK DTA B(1),B(4),B(4),B(1),A(T4) LDA} >CHTXT STA CHBASE JSR BLOCK DTA B(2),B(0),B(38),B(1),A(T2) LDA #255 STA KBCODES LDA #0 } STA PRESS STA BT_IL STA TYPE STA XWIND STA YWIND LDA #on STA SP_PTR JSR FILLSP }DTA B(2),B(0),B(39),B(0) JSR PLACE DTA B(1),B(2),B(4),B(4)*Ԭқ JSR ST_ON JSR SOUNDP_AWS } JSR MOUSE LDA KBCODES CMP #12 BNE _KN12 LDA #1 STA PRESS_KN12 CMP #28 } BNE _KN28 LDA #$10 STA PRESS_KN28 JSR CHECK LDA PRESS CMP #$10 BN}E _NP10 JMP WYJDZ_NP10 CMP #1 BEQ _DIR LDA #0 STA PRESS JMP P_AWS*}ٛ_DIR EQU * LDA #1 JSR CLOSE JSR OPEN DTA B(1),B(4),B(0),A(TFILE) LDA ER_PTR BEQ _OKD }JMP A_W_S_OKD EQU * JSR ST_OFF JSR WINDOW DTA B(7),B(2),B(32),B(18) DTA B(scrl),A(TD0),B(6) LDA >CHWND} STA CHBASE JSR BLOCK DTA B(8),B(4),B(5),B(3),A(TD1) JSR PLACE DTA B(8),B(4),B(12),B(6) JSR ST_ON JSR} SOUNDPT_D1 JSR MOUSE LDA KBCODES CMP #12 BNE K_N12 LDA #1 STA PRESSK_N12} CMP #28 BNE K_N28 LDA #$10 STA PRESSK_N28 JSR CHECK LDA PRESS CMP #$10} BNE _ND10 JMP A_W_S_ND10 CMP #1 BEQ LETTER LDA #0 STA PRESS JMP P}T_D1*----------LETTER EQU * JSR TBLOCK DTA B(1),B(7),A(BUF_T),A($4000) LDA ER_PTR BNE _ND10}-3 LDA #1 JSR CLOSE JSR ST_OFF JSR WINDOW DTA B(0),B(7),B(40),B(18) DTA B(scrl),A(TD2),B(13) LDA }>FONTS STA CHBASE*poczatek textu=pocz.bufora LDA BUF_T STA B_TXT+1 STA POS+1 JSR CONVERT ԛ JSR T_INIT } JSR PAGE JSR ST_ON JSR SET JSR SOUNDPT_D2 JSR MOUSE LDA KBCODES } CMP #28 BNE KN28 LDA #$10  STA PRESSKN28 CMP #14 BNE KN14 LDA #}$20 STA PRESSKN14 CMP #15 BNE KN15 LDA #$30 STA PRESSKN15 JSR CHECK } LDA PRESS CMP #$10 BNE ND_10 JMP A_W_SND_10 CMP #$30 BNE ND_30 } LDA LNUM Ί CMP LAST BNE JN LDA LNUM+1 CMP LAST+1 BNE JN JMP ND_30}JN LDA LNUM CLC ADC #1 STA LNUM LDA LNUM+1 ADC #0 STA LNUM+1} JSR LNDN JSR SETND_30 LDA PRESS CMP #$20 BNE ND_20 LDA LNUM Ί } BNE JN2 LDA LNUM+1 BNE JN2 JMP ND_20JN2 LDA LNUM SEC SBC #1 } STA LNUM LDA LNUM+1 SBC #0 STA LNUM+1 JSR LNUP JSR SETND_20 LDA #0 } STA PRESS JSR PRZES JMP PT_D2 RTS*---LNDN EQU **נ̠Ϡή JSR ST_OFF}*ҩ-poz.docelowa LDY YWIND INY TYA ASL @ ASL @ ASL @ PHA} TAY LDA T_ADR,Y CLC ADC XWIND STA ZR LDA T_ADR+200,Y ADC #0 } STA ZR+1*Ҳ-poz.zrodlowa PLA CLC ADC #8 TAY LDA T_ADR,Y CLC} ADC XWIND STA ZR2 LDA T_ADR+200,Y ADC #0 STA ZR2+1*przepisz zawartosc okna o 8}ln. w gore LDA LPTR SEC SBC #8 STA LINE -end DEC XSIZE DEC XSIZE } LDX #0P8G_ LDY XSIZEP8G LDA (ZR2),Y STA (ZR),Y DEY BPL P8G LDA ZR2 next} line CLC ADC #40 STA ZR2 LDA ZR2+1 ADC #0 STA ZR2+1 LDA ZR } CLC ADC #40 STA ZR LDA ZR+1 ADC #0 STA ZR+1 INX CPX L}INE BNE P8G_ INC XSIZE INC XSIZE*nowa linia na dole JSR ZAP_P LDA LPOS }STA POS LDA LPOS+1 STA POS+1 LDY #39 LDA #128 'C_LN STA LINE,Y DEY } BPL C_LN JSR DOLINE LDA POS STA LPOS LDA POS+1 STA LPOS+1 LDA LINE STA ADRT+1 LDX XWIND LDA YWIND CLC ADC YS}IZE TAY DEY DEY LDA #39 JSR PRINT JSR ODCZ_P JSR DOLINE }ө JSR ST_ON RTS*---LNUP EQU **נŠϠή JSR ST_OFF*Ҳ-poz.zrodlowa } LDA YWIND CLC ADC YSIZE TAY DEY DEY DEY TYA ASL} @ ASL @ ASL @ CLC ADC #7 PHA TAY LDA T_ADR,Y CLC } ADC XWIND STA ZR2 LDA T_ADR+200,Y ADC #0 STA ZR2+1*ҩ-poz.docelowa PL}A CLC ADC #8 TAY LDA T_ADR,Y CLC ADC XWIND STA ZR LDA} T_ADR+200,Y ADC #0 STA ZR+1*przepisz zawartosc okna o 8ln. w dol LDA LPTR SEC } SBC #8 STA LINE -end DEC XSIZE DEC XSIZE LDX #0P8G2_ LDY XSIZEP8G2 LDA (ZR2)},Y STA (ZR),Y DEY BPL P8G2 LDA ZR2 next line SEC SBC #40 STA }ZR2 LDA ZR2+1 SBC #0 STA ZR2+1 LDA ZR SEC SBC #40 STA ZR } LDA ZR+1 SBC #0 STA ZR+1 INX CPX LINE BNE P8G2_ INC XSIZE } INC XSIZE*nowa linia na gorze JSR SUBPOS ө JSR ZAP_P LDY #39 LDA #128 'C_LN2} STA LINE,Y DEY BPL C_LN2 JSR DOLINE LDA LINE } STA ADRT+1 LDX XWIND LDY YWIND INY LDA #39 JSR PRINT LDA LPOS }ӛ STA POS LDA LPOS+1 STA POS+1 JSR SUBPOS LDA POS STA LPOS } LDA POS+1 STA LPOS+1 JSR ODCZ_P JSR ST_ON RTS*--SET EQU **Ԯ٠}Ġˮ LDA #1 STA PTR_ON RTS*өZAP_P LDA POS STA MEMPOS } LDA POS+1 STA MEMPOS+1 RTSODCZ_P LDA MEMPOS STA POS LDA MEMPOS+1 STA POS+1 } RTS*-----SUBPOS EQU **ᠨө*頛 LDA POS ӽ SEC }SBC #1 STA POS LDA POS+1 SBC #0 STA POS+1 LDX #40 LDY #0_PLS LDA} POS ӽ SEC SBC #1 STA POS LDA POS+1 SBC #0 STA POS+1 LD}A (POS),Y ̿ CMP #eol-128+64 BEQ _EEL DEX BNE _PLS_EEL LDA POS ˺ӽ } CLC ADC #1 STA POS LDA POS+1 ADC #0 STA POS+1 RTS*----PRZES EQ}U ** LDA STRIG1 BNE _NPRZ LDA XWIND CLC ADC XSIZE } TAY DEY CPY XZ BNE _NPRZ LDY YWIND INY TYA ASL @ } ASL @ ASL @ CMP YP BCS _NPRZ CLC ADC LPTR CMP YP BCC _NPRZ} JMP _NPRZ+1_NPRZ RTS*˺ JSR CLICK LDA STRIG1 ś BEQ *-3 JSR WAIT} LDA #0 STA PTR_ON*뮽˛ JSR ST_OFF LDA YWIND PHA }TAY INY TYA ASL @ ASL @ ASL @ STA YWIND LDA YP } SEC SBC YWIND STA POZWSK PLA STA YWIND JSR ST_ON LDA DLWSK LSR }@ CMP POZWSK BCC *+5 JMP PRZES1 LDA DLWSK LSR @ CLC ADC }EWSK CMP POZWSK BCS *+5 JMP PRZES2 LSR DLWSK LDA POZWSK SEC } SBC DLWSK STA POZWSK *雛**-POZWSK*(>IL_LN) LDA POZWSK STA B}TB LDA IL_LN+1 STA BTA LDA #0 STA BTA+1 JSR MUL*-RSL/(LPTR-8) LDA LPTR} SEC SBC #8 STA DK LDA #0 STA DK+1 JSR DIV*->LNUM=RSL LDA RSL} STA LNUM+1 LDA #0 STA LNUM**-(RESZTA*256)/(LPTR-8) LDA #0 STA }RSL LDA BTA STA RSL+1 LDA BTA+1 STA RSL+2 LDA LPTR SEC SBC #8} STA DK LDA #0 STA DK+1 JSR DIV*-LINE STA ADRT+1 LDA }YWIND CLC ADC YSIZE TAY DEY STY PML -ᛛ LDY YWIND } INY_PTP1 TYA PHA JSR DOLINE PLA PHA TAY LDA LEN_LN -dl.linii } BEQ _NPRN LDX XWIND JSR PRINT LDX XSIZE DEX TXA CMP LEN_LN } BEQ _NPRN SEC SBC LEN_LN TAX LDA LEN_LN CLC } ADC XWIND STA XCH PLA PHA STA YCH LDY #1 LDA #255 JSR CLRWND}_NPRN PLA TAY INY CPY PML BNE _PTP1*adr.linii pod strona LDA POS ST}A LPOS LDA POS+1 STA LPOS+1 JSR ODCZ_P RTS*-----DOLINE EQU **נLINE}Šՠɛ*ڽ(POS)*נΠàננɛ*(POS)ٛ LDY #0_PP1 LDA (PO}S),Y CMP #eol-128+64 BEQ _EOL STA LINE,Y INY CPY XSIZE BNE _PP1 } DEY_EOL INY zwieksz (POS) TYA CLC ADC POS STA POS LDA POS+1 AD }C #0 STA POS+1 DEY -dl.linii bez eol CPY #0 BNE _N0_ LDA #128 '' ST }A LINE INY_N0_ STY LEN_LN RTS*-----------NEW_V EQU **˛ PHA  } TYA PHA TXA PHA CLD LDA ZR PHA LDA ZR+1 PHA  } LDA #0 ԛ STA 77*kolory sprite'ow LDA COLSPR STA COLPM0 STA COLPM0+1  } STA COLPM0+2 STA COLPM0+3*skas.strzalke LDA HOLD BEQ *+5 JSR KASUJ*}뿛 LDA PTR_ON BNE *+5 JMP _NWSK*˺*-kasuj cala dlugosc LDA XPTR STA ZR} LDA YPTR STA ZR+1 LDX LPTR - LDY #0_KCD1 LDA #$FE STA (ZR),Y} LDA ZR CLC ADC #40 STA ZR LDA ZR+1 ADC #0 STA ZR+1 } DEX LDA #$54 STA (ZR),Y LDA ZR CLC ADC #40 STA ZR } LDA ZR+1 ADC #0 STA ZR+1 DEX BNE _KCD1*-oblicz poz.wsk.*--LNUM*(LPTR-8): } LDA LNUM STA BTA LDA LNUM+1 STA BTA+1 LDA LPTR SEC SBC #8 } STA BTB JSR MUL*--RSL/(IL_LN) LDA IL_LN STA DK LDA IL_LN+1 STA DK+1 JS}R DIV*--poz. wsk.w oknie LDA RSL STA POZWSK*--RSL*40 LDA RSL STA BTA LDA #0} STA BTA+1 LDA #40 STA BTB JSR MUL*--zmien adres wsk. LDA XPTR CLC } ADC RSL STA ZR LDA YPTR ADC RSL+1 STA ZR+1*-oblicz dl.wsk.*--(YSIZE-2)*(LPTR-8) } LDY YSIZE DEY DEY STY BTA LDA #0 STA BTA+1 LDA LPTR SE}C SBC #8 STA BTB JSR MUL*--RSL/(IL_LN) LDA IL_LN STA DK LDA IL_LN+1 } STA DK+1 JSR DIV LDA RSL CLC ADC #8 STA DLWSK TAX LDY #}0PPT1 LDA #%01111110 STA (ZR),Y LDA ZR CLC ADC #40 STA ZR } LDA ZR+1 ADC #0 STA ZR+1 DEX BNE PPT1 LDA #0 STA PTR_ON*--max. p}oz.wsk. LDA LPTR SEC SBC DLWSK STA EWSK*wyswietlic strzalke?_NWSK LDA HOLD } BEQ *+5 JSR RYSUJ*nacisniety FIRE? LDA STRIG1 BEQ _OKF_JJ JMP _NSTR_OKF LDA PRESS } BNE _JJ*sprawdzenie przyciskow LDX BT_IL DEXPSP LDA XZ CMP TXP,X BCC _NO }T1 LDA TXK,X CMP XZ BCC _NOT1 LDA YZ CMP TYP,X BCC _NOT1 LD!}A TYK,X CMP YZ BCC _NOT1*przycisk nacisniety INX STX PRESS JMP _NSTR_NOT1 "}DEX BPL PSP*button LDA YWIND CMP YZ BNE _NOT4 LDX XWIND CPX XZ #} BEQ _OK1 INX CPX XZ BNE _NOT2*ԛ_OK1 LDA #$10 STA PRESS JMP _NST$}R*button_NOT2 LDA TYPE BEQ _NOT4 LDA XWIND CLC ADC XSIZE SEC %}SBC #4 TAX CPX XZ BEQ _OK2 INX CPX XZ BNE _NOT3*ԛ_OK2 LDA #$2&}0 STA PRESS JMP _NSTR*button_NOT3 INX CPX XZ BEQ _OK3 INX CPX '}XZ BNE _NOT4*ԛ_OK3 LDA #$30 STA PRESS JMP _NSTR*Û_NOT4 LDA #0 STA PRESS_(}NSTR PLA STA ZR+1 PLA STA ZR PLA TAX PLA TAY PLA)} JMP (OLD_V)*----------- OPT 6 OPT 32+5 ORG $2E2 DTA A(WNDPROC) END PLAtLzdf=L;k+} ``Lwezdl/j,}  눩_ 9  $ ./ DLIST STA DLPTR+1** LDA VVBLKI STA OLD_V LDA VVBLKI+1 !D} STA OLD_V+1 JSR WAIT LDA NEW_V STA VVBLKI+1 !E} LDA #33 STA DMACTL RTS*----NEW_V EQU * PHA TYA PHA TXA !F} PHA INC COUNT+1 LDA COUNT+1 CMP #7 BCC _N LDA #0 STA COUNT+1 !G} LDA COUNT CMP #103 BCS V_OFF INC COUNT JSR WYSW_N PLA TAX PL!H}A TAY PLA JMP (OLD_V)*----V_OFF LDA OLD_V STA VVBLKI LDA OLD_V+1 ST!I}A VVBLKI+1 JMP _N*-----------WAIT LDA TIMER CMP TIMER BEQ *-2 RTS*-----------WYSW !J} EQU * LDA COUNT PHA LDY #$FF LSR @ LSR @ BEQ _NC TAY !K} DEY LDA #$FF STA TXT0+3,Y_NC PLA AND #%00000011 TAX INY LDA!L} MASK,X STA TXT0+3,Y RTS*-----------DLIST EQU * DTA D'pppppppp' DTA B($40+15),A(TXT1) DTA B($40+2!M}),A(TXT2) DTA B(2) DTA B($40+2),A(TXT2) DTA B($40+2),A(TXT3) DTA B($40+2),A(TXT2) DTA B($40+15),A(TXT1) DTA B($40+2),A(!N}TXT2) DTA B($40+15),A(TXT0) DTA B($40+15),A(TXT0) DTA B($40+15),A(TXT0) DTA B($40+15),A(TXT0) DTA B($40+15),A(TXT0) DTA!O} B($40+15),A(TXT0) DTA B($40+15),A(TXT0) DTA B($40+15),A(TXT0) DTA B($40+15),A(TXT0) DTA B($40+2),A(TXT2) DTA B($40+15),!P}A(TXT1) DTA B($41),A(DLIST)*-----------TXT1 EQU * DTA D'  'TXT2 EQU * DTA D'  !Q}  ' DTA D' Please wait while loading: 'TXT3 EQU * DTA D'  ɠӠ  !R}'TXT0 EQU * DTA D' # '*-----------MASK DTA B(%01010101) DTA B(%11010101) !S} DTA B(%11110101) DTA B(%11111101)COUNT DTA A(0)OLD_V DTA A(0) ORG $2E2 DTA A(START) END z//AA ! t ~!! 0 1"!#! t <" #!/`HHH!!!~!g~! { hhhl!!%U}"!#L] `~!HJJ]!h)Ƚz!]!`ppppppppO B B B:!B O B OZ!OZ!OZ!OZ!OZ!OZ!OZ!OZ!OZ!B O A UUUUUUUU%V}UUUUUUUUUUUUUUUUUUWVBV0leasewaitwhileloadingBV١YBUUUUU%W}UUUUUUUUUUUUUUUUUUUUUU BV0leasewaitwhileloadingBV١YBUUUUU$&//AA ! t ~!! 0 1"!#! t <" #!/`HHH!!!~!g~! { hhhl!!"1Y}!#L] `~!HJJ]!h)Ƚz!]!`ppppppppO B B B:!B O B OZ!OZ!OZ!OZ!OZ!OZ!OZ!OZ!OZ!B O A UUUUUUUUUUUUU1Z}UUUUUUUUUUUUUWVBV0leasewaitwhileloadingBV١YBUUUUUUUUUU1[}UUUUUUUUUUUUUUUUU Q~~~~~~~~TTTT1\}kkk~}~}~~~~~~~~~~qvvvqmkޞގ~ۻ{{1]}c#oooooooooogǻ8>gspx|mw1^}mlm6m mm۷wwvW?mmn{'v:??1_} }} xyeim??*TTU1`}USSWWOOOO+U)… O1a}1t}6 0a N 9` < H -  6 a 6b 6 #b N 눩 9i 0 P`b`L` 0 c}X`b` K ] Za `  ]`).&/ !"#$% &'()*+ ,-./012 345678 :;<=> ?@d}뀀򀑙#ontinueonfigurationD:CONFIG.SYSe}倡򡭩倀怹倀f}  #oldstart퀟9es.oOPQRSTUV!"ልHH[!i!"ig}"8LbȥiLbhh!Ș8n$"%$%`Hሠ ?i(jIh`q}CSTART ASMCCONFIG SYSBCONFIG SYSB&LETTER TXTB<)W COMBeW OBJB{W ASMB*WX OBJB?START ASMBTSTART OBJB .L CAWS COMBSXAUTORUN SYSB%DOS SYSB CP SYSCGRAPH ASMBSGRAPH ASMBCONFIG SYS9:`9:` < -  `b  6 b 6 jb * wb * |b N 9 ׈ ׈ !׈ r} ׈LcLQL`-.123*I*)I)-.N*n),m11-m22.m33,.-..`3+2*1)s},1/-0.N.n-n,H)8,*-+. )*+.1h`1-m22.m33,.-..`3+2*1)I1u}|ffDdddd>`<|bd&F28kf;1v}  00D((D~0~ @<0 0 ~~`0 0`````>xdbbb|~`x``~~1x}`x```>`fbb>bb~bbb~~~b<dhphdb`````~bvjbbbbrjfbb`<|~bbbbb<1y}bbbb4bbbjvbb44bbbb4~ ~@ xx6c~~$ ~<>b> >```> >`<| 8pp8?88<brjfbb|bbbb~<~~~<1{} >````>~( ~~ ~x`x`~<~~<0~0 ~ ~ ~<>b>`|bbb|>```>>bbb1|}>000|00>bb>|`|bbbb8<b<`dxhdb8<~IIII|bbbbbbb>|b```>`<|~1}}bbbb>bbb4AIII~b44bbbb>|| ~``hp`~~x|nf8x83LLҐL}LLLgLLĒL1~}LݒLLדLjL̔LLLؘL"LLLL'LqLL L>L]LuLL'LƜL/L@LL1} 1}pp0O`1}OAJ1}JJJ|)i)z z?i눭i수8)zz8눭숭|) i){1} {ǰ툘8){ {`$% ֒f$%` ֒$%`숍눍NnNNJJJ툍1})О𹘟rHL 8nNh- (2𝂓ǓHIL@8.h- 1} ȰLؑ툍`О𹘟r( ȰLi``jkjОi(jkik`1}`` 01`HHmLfl@LfnȐLfnО𹘟mJljJJol)JL3pp1}*********D:START.OBJ D:W.COM D:W.OBJ END D:L**************** NAZWY ZBIOROW *********,IpoH h-pLfh phh`?_ow{}~|m?!@`px|~|l1} ׈`H >hi kl J`  ; J`0 ; J`ʽegfÈh b ֒ b`kmm1}8l` Z ֒ Z` " "` ؘ`쩀ԩЩoЍ Ѝ Ѝ Щ Щ0Щ8Щ@ЩHЩPЩp1}ЩЩ`hh񮆈𝇈ȱ𝯈ȱ𝛈ȱÈiiHH` ֒hhsȱtȱuȱvȱwȱxiiH1}HHsimxitiiÈstȌx 'ZxHZs芮st qHsh 1}qhZsst 'smxit? 'uxst qvwxst qi1}tȭsmxi "sth` AAAAAAAAAAAAAAAAAAAAAAAACDDDDDDDDDDDDDDDDDDDDDDDDFFFFFFFFFFFFFFFFFFFFFFFFF ֒hh1}kȱlȱmȱnȱoȱpȱqȱriiHHHklmn 'k9mmʎ;l:mnʎ1}<i ؘklm qkmmʭokli "kko!kmm8l q~HLHkmm1}&lȌ 'n (h ''О𹘟m&&i'klmnm qkmmlmn k1}lȌn 'r3mʭoʊ8rJmkilpqr q׈h`999999999999999999999999999999991}999999 ֒hhȱHȱȱhiiHH "새 "̄`H1}𩁅JJJLGii ie𭁈)LbJi)ML LI 1}h` ֒hhȱHȱzȱyȱȱhiiHHzz{Hz{ qhmzi{y` ֒ j` 1}j g`H|} Оm𹘟i}}}hH|i(i}h`~(HHHH h(1}~hhh` Оm𹘟i񭖓)L̚&&&mIi(i` ֒/H1}/(􈩪 'i ؘ' ֒h/`ҩҠ ` Ҡ ֒` ֒ ֒ ֒)΀)Lu1}Lw  HH𝦜ȱ𝦜i(i hh =f' ȱ=vi(i`1} Оm𹘟i`  _'Ƚi(i `3aBDJ4 ?@뀀򀑙#ontinueonfigurationD:CONFIG.S1}YS倡򡭩倀怹1}倀  #oldstart퀟9es.oOPQRSTUV!"1}ልHH[!i!"i"8LbȥiLbhh!Ș8n$"%$%`Hሠ1} ?i(jIh`9:`9:` < -  `b  6 b 6 jb * wb * |b N 9 1}׈ ׈ !׈  ׈LcLQL`-.123*I*)I)-.N*n),m11-m22.m331},.-..`3+2*1),1/-0.N.n-n,H)8,*-+. )*+.1h`Lzdf=L@k1} 1}``L|ezdl/j  1}눩_ 9  $ ./ Z   HH)H 5}p h  hyhy D L> L JJ    ! LA*` BF5}7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L5}EE !E^ ^ E E7EȩEdE/EȩE  D5} .L }  ;F d  ;?F7F? ( .   Z D LL d 5} . D  L    p  E` , d)  D L) 0BM݊L݉5} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G5} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G5} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK5}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU 5} L ? .  t`lvGBJ ~DEHI B V0dV5}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh5}DEL8HI4 0 HI,0 0  9 .G VLO5},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI5} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI5} VY8 B V  @  /DE `E:D1:CP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO 5}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -5}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH5}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu B4}ōP   i ̀i΀i]πiЀ9}i3рiҀʢ ӠG & #̀΀π Ѐ l } DOS 2.5 Command Proces9}sor 3.08 (c) CHAOS software. Winter 1989. J `lXhh8hh  9} &Xآ   90ɛ @ miݦʈ0Θ0 ҁLlɛ."9}ք  Sǩ LTU`L&lɛ ɛ+0: AG80. 9}l *M?Iɛ,ɛ*ɛ 𮅄  L  RL9}ʆlLt   L!RLV䮁L !ɛ  RZ V0= XH9}YR V0 B V0L V8S 샠(   }~ L& ɛ` {9}|L&DE`m.`H) hJJJJ 0:i` 働H BILVB 僩&H V0%H9}:ɛɛ`ۄ˄rŃ-ւDIRRENERACARMEMRUNBOFLo=.... Hi=....BRK at ....9}MOC.Error ...D1:FILENAME.EXT *.*D1:#߅`#ϩҩӭԭ8ԅХՅѠ8fϥ#酐`$ph0'҅Α Ӆ @9}`) ѐF) ?҈遐#҈酰Цѐ$0ֆ8֑ Ӆב ӅLRґ ӅLR`҅Α Ӆ @8knale do `bika, 1 'SONY' jest Twj, a reszta- moje (ju sformatowane).PS2: Zdjcie z ostatnich wakacji: ten w }yszy to ja., 1 'SONY' jest Twj, a reszta- moje (ju sformatowane).PS2: Zdjcie z ostatnich wakacji: ten w  OPT 21DLPTRS EQU 560KBCODES EQU 764CHBASE EQU 756C1 EQU 708C2 EQU 709C3 EQU 710C4 A} EQU 711C0 EQU 712TIMER EQU 20DLIV EQU $200COLPF0 EQU $D016WSYNC EQU $D40ANMIEN EQU $D40EHSCROLA} EQU $D404COLPM0 EQU 704DMACTLS EQU 559HPOSP0 EQU $D000HPOSM0 EQU $D004PMBASE EQU $D407PMCNTL EQU $D01DSIA}ZEP0 EQU $D008GTIACT EQU $26FKONSOLA EQU 53279RANDOM EQU $D20ASTICK EQU 632STRIG0 EQU 644STRIG1 EQU 645PA}ORT_A EQU $D300VVBLKD EQU $224ATRACT EQU 77ZR EQU $F0ZR2 EQU $F2ADRT EQU $F4 SC_ADR A}EQU $A060T_ADR EQU $9ED0CHWND EQU $8400CHTXT EQU $E000SPRITES EQU $8000MISS EQU SPRITES+$180PL0 EQU A}SPRITES+$200PL1 EQU SPRITES+$280PL2 EQU SPRITES+$300PL3 EQU SPRITES+$380GRAPH EQU $8800 ORG A}GRAPH*------------------------------------- LDA #0 STA DMACTL LDA #0 STA 710 LA}DA #$0C STA 709 JSR SCR_ON wlacz ekran JSR WAIT LDA #34 STA DMACTL*------------A}------ LDA #1 STA COLOR LDY #0P LDA #0 STA X STA X+1 STY Y A} JSR PLOT LDA <319 STA X LDA >319 STA X+1 JSR DRAWTO INY A}CPY #200 BCC P* JSR KLAWISZQ RTSL DTA A(0)*-----------DLIST EQU * DTA B($70),B($70)A},B($30) -20 pust.ln DTA B($0F+$40),A(SC_ADR) -100 linii DTA D'///////////////////' DTA D'////////////////////' DTA D'A}////////////////////' DTA D'////////////////////' DTA D'////////////////////' DTA B($0F+$40),A(SC_ADR+4000) -100 DTAA} D'///////////////////' linii DTA D'////////////////////' DTA D'////////////////////' DTA D'////////////////////' B} DTA D'////////////////////' DTA B($41),A(DLIST)*-----------IN_ADR EQU **Stworzenie tablicy 200 adresow ekr. B} LDA SC_ADR STA ADRES+1 LDY #0_P2 STA T_ADR+200,Y B} LDA ADRES STA T_ADR,Y CLC +40 do adresu ADC #40 STA ADRES LDA ADRES+1B} ADC #0 STA ADRES+1 INY CPY #200 BNE _P2 RTS*-----------KLAWISZ EQB}U * LDA #255 STA KBCODESPT LDA KBCODES CMP #255 BEQ PT LDA #255 B} STA KBCODES RTS*-----------CLEAR EQU * LDA #0 LDY #0_P1 STA SC_ADR,Y STA B}SC_ADR+$100,Y STA SC_ADR+$200,Y STA SC_ADR+$300,Y STA SC_ADR+$400,Y STA SC_ADR+$500,Y B} STA SC_ADR+$600,Y STA SC_ADR+$700,Y STA SC_ADR+$800,Y STA SC_ADR+$900,Y STA SC_ADR+B}$A00,Y STA SC_ADR+$B00,Y STA SC_ADR+$C00,Y STA SC_ADR+$D00,Y STA SC_ADR+$E00,Y SB }TA SC_ADR+$F00,Y STA SC_ADR+$1000,Y STA SC_ADR+$1100,Y STA SC_ADR+$1200,Y STA SC_ADR+$130B }0,Y STA SC_ADR+$1400,Y STA SC_ADR+$1500,Y STA SC_ADR+$1600,Y STA SC_ADR+$1700,Y B }STA SC_ADR+$1800,Y STA SC_ADR+$1900,Y STA SC_ADR+$1A00,Y STA SC_ADR+$1B00,Y STA SC_ADR+$1B }C00,Y STA SC_ADR+$1D00,Y STA SC_ADR+$1E00,Y STA SC_ADR+$1EA0,Y INY CPY #0 B } BNE _P1 RTS*-----------WAIT EQU * LDA TIMERWT1 CMP TIMER BEQ WT1 RTS*---B}----------SCR_ON EQU * JSR CLEAR ;czysc ekran JSR IN_ADR ;zapisz adresy LDA DLIST STA DLPTRS+1 RTS***************************************B}crscol equ $55 (2) ؛crsrow equ $54 ٛrowcrs equ crsrow ٛcolcrs equ crscol ؛oldcol equ $5b (2) ؛oldrow equ $5B}a ٛsavmsc equ $88adress equ $64*Ϡcolac equ $72 ؛colinc equ $2f9 ; +/- colcountr equ $7B}e ;deltaC equ $77 ; |newcol-colcrs|deltaR equ $76 ; |newrow-rowcrs|endpt equ $74 ; last pointhold4 equ $2bc ;B}newcol equ $2f6 ;newrow equ $2f5 ;rowac equ $70 ; controlrowinc equ $2f8 ; +/- row*-----------PLOT EQU **ryB}suje punkt o wspolrz.:X,Y (320/200)*kolorem : COLOR 0/1 PHA TYA PHA*czy dobre wspolrzedne?**B}**X: LDA X+1 CMP #%00000001 (256) BCC OK_ BEQ W255 JMP _ENDW255 LDA X B} CMP #%01000000 (64) BCC OK_ JMP _END****Y:OK_ LDA Y CMP #200 BCC OK2_ B} JMP _END*adres liniiOK2_ LDY Y STY oldrow LDA T_ADR,Y STA ZR LDA T_ADR+200,Y B} STA ZR+1*nr bajtu w linii LDA X+1 -starszy bajt STA oldcol+1 LSR @ /2 LDA XB} -mlodszy bajt STA oldcol ROR @ LSR @ /8 LSR @ STA PAMX*nr bitu w bajcieB} LDA X -mlodszy bajt AND #%00000111 TAY*ustawienie maski LDA T_MASK,Y STAB} PAMM LDA COLOR BNE N0 LDA PAMM kolor 0 EOR #%11111111 STA PAMM*wpisanieB} bituN0 LDY PAMX LDA (ZR),Y PHA LDA COLOR BNE N0_ PLA kolor 0 B} AND PAMM STA (ZR),Y JMP _ENDN0_ PLA kolor 1 ORA PAMM STA (ZR),Y_END B} PLA TAY PLA RTS*-----DrawTO EQU * PHA TXA PHA TYA B} PHA* LDA Y جٟ STA crsrow STA newrow LDA X STA crscB }ol STA newcol LDA X+1 STA crscol+1 STA newcol+1 LDA #1 㽱 STA B!}rowinc STA colinc LDA newrow ҽ SEC SBC oldrow STA deltarB"} BCS DLC LDA #$ff 㽭 STA rowinc LDA deltar ҽқ EOR #$ff ORAB#} #1 STA deltarDLC LDA newcol ý SEC SBC oldcol STA deltac B$} LDA newcol+1 SBC oldcol+1 STA deltac+1 BCS SAV LDA #$ff 㽭 STA colinc B%} LDA deltac ýÛ EOR #$ff STA deltac LDA deltac+1 EOR #$ff STA deltac+1 B&} INC deltac BNE SAV ü INC deltac+1SAV LDY #0 STY colac+1 㫱 STYB'} rowac+2 㫲 STY rowac+1 㫱 STY rowac 㠠 LDA oldrow+2 B(} LDX oldrow+1 LDY oldrow STA rowcrs+2 STX rowcrs+1 STY rowcrs LDA deltac LDX #0 B)} TAY LDA deltac+1 򫱽ë STA countr+1 ë STA endpt+1 BNE CKE B*}ᛛ LDA deltac þҠ CMP deltar BCS CKE LDA deltar TAYCKE B+} TYA STA countr STA endpt LDA endpt+1 LSR @ LDA endpt ROR @ STAB,} rowac+2 㫲LOOP LDA countr ORA countr+1 BNE CONT JMP exitCONT LDA rowac 㽽B-}қ CLC ADC deltar STA rowac BCC OMIN INC rowac+1 㫱OMIN LDA rowac+1 CB.}MP endpt+1 BCC COL 㫱 BNE ROW 㫱 LDA rowac CMP endpt B/} BCC COL ROW LDA crsrow CLC ADC rowinc STA crsrow LDA roB0}wac 㽽 SEC SBC endpt STA rowac LDA rowac+1 SBC endpt+1 STA rowac+1COLB1} LDA colac 㽽Û CLC ADC deltac STA colac LDA colac+1 ADC deltac+1 STB2}A colac+1 CMP endpt+1 BCC _PLOT ü BNE CRS þ LDA colac B3} CMP endpt BCC _PLOT CRS BIT colinc BPL ICC DEC crscol 콽 LDA crscB4}ol CMP #$ff BNE POINT 콭 LDA crscol+1 BEQ POINT 쫱 DEC crscol+1 B5} BPL POINT 쫱ICC INC crscol 콽 BNE POINT 쾰 INC crscol+1 쫱B6}POINT LDA rowac+2 㽽 SEC SBC endpt STA rowac+2 LDA rowac+3 SBC endpt+1 B7} STA rowac+3*Ժ_PLOT LDY crsrow -adres linii STY oldrow LDA T_ADR,Y B8} STA ZR LDA T_ADR+200,Y STA ZR+1*nr bajtu w linii LDA crscol+1 -starszy bajt STA oB9}ldcol+1 LSR @ /2 LDA crscol -mlodszy bajt STA oldcol ROR @ LSR @ /8 B:} LSR @ STA PAMX*nr bitu w bajcie LDA crscol -mlodszy bajt AND #%00000111 TAY*B;}ustawienie maski LDA T_MASK,Y STA PAMM LDA COLOR BNE N00 LDA PAMM kolor B<}0 EOR #%11111111 STA PAMM*wpisanie bituN00 LDY PAMX LDA (ZR),Y PHA LDA B=}COLOR BNE N00_ PLA kolor 0 AND PAMM STA (ZR),Y JMP END00N00_ PLA B>} kolor 1 ORA PAMM STA (ZR),YEND00 LDA countr 򽽭 SEC SBC #1 STA countr B?} LDA countr+1 SBC #0 STA countr+1 BMI EXIT 򫱼 JMP LOOP EXIT PLA B@} TAY PLA TAX PLA RTS*----ADRES DTA A(0)X DTA A(0)Y DTA B(0)COLOR BA} DTA B(0)PAMX DTA B(0) zapam.poz.XPAMM DTA B(0) zapam.maskeT_MASK DTA B(%10000000) tablica DTA B(%01BB}000000) mask bitow DTA B(%00100000) DTA B(%00010000) DTA B(%00001000) DTA B(%00000100) BC} DTA B(%00000010) DTA B(%00000001) OPT 6 ENDDTA B(%00001000) DTA B(%00000100) @P/