AML}  X c0C)HCCH Mhhݩh `eCDiCD`  RyHPE   * 1H0芢@) Y0.Ș`i`#(PMLM!SҀ\ \b Pgi 0  %e @ / ՠ`d   0DDԝLx `x` `ɜ;H/`TD`EHI B V-U`` /`i% `l Quick Assembler 1.0 by JBWNo room}!`d!qL9eLfLfL/mLMmLiLkfLzfLfLWhL^fLVLhLhLjiLvm v pp m QgL$e f [rr``j`j`` }ʥː``[r$``^r>` ro ep  Dd fhrLdZljjmBhNooozhPg$v'v*v-vh2h:hPhajjjjajlmml;e9e q`pqoroqeuppppp>q[qX/oZ2}Yprpnpp poMSANRPJBO.6 "$):#&ile%dit2un!ssembly3etup)/error]<<</utofmemory<<<.oroom7}ipeall<<<&ilemodified<<3ave#ontinue<&ileexists<<2eplace!bort<&   D0:QA.SETNONAMED0: }z;q>qD0:Xq]qD0:P:uqwqD0:qqD0:*.*qhr98!&300+*-=~-=,oad<3ave<.ew<$ir<0rn</bj<1uit<7smode~!} <2un <-emhiW<3avesetup<1asm<"ʔF``Lwd@` ```A\n `?`pppB@`}"}ZA ````ddo;prvwLvL?wL!wL`wLvLIvLGvLvL0vL9vL|wLwLwLwLwLwH 9vh^J) i`(e`#}H Gvhe`8吅Ƒ8(ƕ`8`` `XY GvLIv$}G褙 v< Ie Gv䛐`ȽwwwLGvH Svh v v褚 ]v0 v v w%}%o wƗLw8eȦ v褚 vLuv w d w wI`Ł* w䖐論 dLw`䖰`sh`&}`H w0 wLwIh`FMGVBGNFvwwxx v%uȑΤȄŅĢ'} ) Viȕ󅦅0r +y $;iiؠ 7{ 7{$<b(}Lj _Lqx$I0@ 'd…Lqxp @ zLIx 'di v$ꃑʈ`a{E`e)}橩$ ʥ˰+`@B䃝D僝EAHI dL) `i ɛ` ,{L:z:$@<*}>    y`0L{z0  yXYNԩ@l yɛ' y'  z0 * y+}ǽI`! yɛ ,{ { A`ߝمjjj y { Lz FƢ z80 e y {`,}Lz $P  e`$p&` z` zĥ z zeąeŅ`0$p2`G A:-}8`_A[`H @{hJ) i`)Ƨ$Pʆ |@$[ 8 ĥ.}4ȱɛ dįI(!"&`8 m情ĭiŠȑđH`)Ӧ$ O{)`0@/}  $dLxy |0 |0 |0ݨ |0Ѩ浹ĵ |0 |Į`i ɛ)hi . d毥0}` vĥ v%Ĉ銠%` ĥυ`Ɔ$pL}L}$ʥ˰ zL }ƁP$#)cE1}ǽ@<)Ș $d xyL} BHI), d0ܩ d0ե) |Ču} d0 d0 Ȅ 7{櫦2}` y `8 JfJfeũ` }Q)ټ(Ķ$P )ąȱą`iĐ83}ǭЩ 8` yALz yLz }$P }@)` }LzLz@Ĉ 4}ǑĥąŅ` yNAGAĭ郅Ž:i@ą))?űąıąɛ LzLzL}08eąĥ)?ĢJ5}0ܩǥA };$P1 Lz Ld@LzLd) Lz "ee y  yL86}G弅彅Lw`J yL, L5II I   y M]Y)0Lz )L)) 7}7LJy51<)  yLLz`Lz y`)"Lzڥ ) yť)0)040)38}iF 'L€$0 Lz)  $0`i7O$PS8媅嫅8ƥi9}3 LzFf 00 Lzie;00膯 |` y$P  7{ 7{ }):}**|&" #~ ~$0/  ˀɛ yL$P { H @ {h` ܁L ՃHԃH` y_A6ƶ2A;})C E`HL y y ĦLzB$H  LzLzʥ񆴢 |' y@жDf<}$ d | y ЋL灥 ` 700P3.@$ ȥ` 7{L7{ LzLz Lz y@@L=}fz@ *d@ $dLxy$`Lz hh$`)PI@) 7!))pjJ))`>}ǩ Lz |8ȥ` 709* z?#  |ȹ` Lz LzLz恟ꂦ'B#omplete?}&ailure;фeuiaqm}y%5)!1-=9 $,0PpXʈEUIAQM]YLl JFVN^  Hh(*&6.@}->jfvn~@`8xAAA7B7>C>BDBFEFJILJJPLTNOOOXPX\R\cSciTwDNSCCEIMNPRVV{LMPA}PEEETNOQXCNNNMSDDDSOPRRHHLLOOTTBEEETTTAASXXYCDLCSQTIELKCSCDIVPXYCXYADRUTLCXYPRAXYRPTAGAPAPLRISCCDIAXYXYXASA !"B}=#$,/2678@DEFHIQV[`aijklmrwxyAZ$$  4,^i oC} !,3󀀀䀀򀀀D}쀀耀E}W倀倀瀀#"@ 0ass,ine[D0:xփ 'Õ)-F}LjLL-Lv'ȭ(ɩ8``d d` {L0(e`Hhui`8H dh ( ȄG} )*)`H h$J) )`H 詛ȢȠʩ Jʠ 6 h` | d dH}G d dLۈ)?<#' " Lۈ Lۈ`I`Lۈ`I `Lۈ()?Q` L0dɛ@ L? JI}ILj JHH hh?` Y8e` 6  68墨壪 eƅʥeDžeƅ̥eDž`ޥ¥åJ}8…ƥÅX[$00eƅޥeDžߥޥߐ8eƅޥeDž߭`ޭ`ߐeÅe ‘` -dl ‘K}İ‘ץ`لڢȠ 6 YȘ FLLFȠ 6ąŪ¥ÐĤ`L}ɛŢ٦ܽٽڽӖݠ? ݰٙ閈%&@Ӗ`? 詛閤݆8eمi8eمi ӰM} ְ֦ܥٝڝݝӖ轧ȽɐeƝeǝ޹閑و`х҅Ѕ܅ˠɛ Lʠ 6 J N}ǛȠ 68܅٥ڥ YȘ FLʥ˰" Y8ӖeL8ӖLO}뽦Ƚɰ8`8}Җi˰-ԖӖ YҖ`ȭɰ8`ʽӖP}Ԗɛ8eiܘIӖ` - WL8}Ӗi` ¥ (`hhL$ - $Q} a (`%`?䚰8` - ܥL - ahhhR}h - L|HH)JJJ` hh`8ʪ˨`%,Q,`0T:`ʽW `8Y `9& XѤȩ ] S}Ǎ ]XQ J)ȄL: ‹ 獩]Ě :8܅¥8ª8ªŦT} ⽧ӖL)e88ǩ  0 U}0 0 ?i(j%$pFƐ Fǐʆ%EĚ :L`,`EЄ'V}Ǎ( = - ‹ 8 ְ 8 6LTA[a{M`M`?,` ' Ѓ?H閝W}ǘhɛ,` А ְL ڈ,`0 [  L Õ޽ĕ L l 6 -L -X}NjȠ 6 ʥˢ ܥѐц ‹L? -Ԡ 6 6Ӆ`Lv -נ 6 6օ`Lv - d0EʝD˝EY}8ʝH˝I d%ʅ˅HIe̥e L L'd 8 d DE8HI dL -֦פ Z}G 6ӦԤL`Ӡ ԑР ԑhhL$` 8 䑢 6  68 -8ݐ 9eЅ[}[i8嬪奰e楥eeee 6 6 ʠ 6 ɛ \}إŦ姐L‹ 8 䑩Р ԑƭ  6ee $0/8娅¥婅 Ċֆׄ8娅¥婅 ĊӆԄLL‹]}DžЅۅ` - 8Ѕ & t`? 獐Ѕ,` Z` `L6 tleӅօ   ? -eЅi^}ǡ J ‹( eЅӥ( eЅ֥`Щꖝ> Ӱ ְ` 6 3 TL_}ǓЩ ?` 8 Ԡ 6Ӆ L‹ M``H` h`` 6 ƏL I`Е0Е0 d*>)`K`}Q 8 ڈ d+H |h)*+޽| ޽lP ``I``Ъ)JJJ8j]``` d0a}$P -Ѡ 6$pݐݰ)ɛ#썖:)a{I ݍ8eمِʥˠ $LH  6 6hb}Lv`L | 4)*` TTtt6?󔰔XX򓁓%%tt֍֍.@͒3c}+ &ree,o)ns,ine#'#ol+)ns/vr,5op  ~ bkhdrwycvrcbkyf**Kid}i)I)iեԍՍ8ԝL՝M8ֽeօԥeׅՠiԥi Dнѽҽ8Le}ǥMզѥ D`~%ґ 7 @`) T) M҅ȱ҅׈f} LHMhL Dשֆ8֑ 7L/ґ 7L`i(`T) M҅ȱ҅׈O שֆ8֑ 7L/ґ 7L`i(`T) M҅ȱ҅׈=` ;x XY  XY1Y2  X` 1xӭIX LمڠƱi}g\Kiתiw gXXX  g, LfЗۢ g'ܭ(j}ǠL,$0 )l LfCUZL B Vi`8gYީY8g٩ڢܽݠeޑȱk}eߑ܈8ّȱڑѭܭݠgא`,0 @`) ې8) 1ggh郐g>h鄰8gّȹgl}GڑЧgȹgЙYYYYYXHHHP٩ڠ8eمِLٍHI٤ȎDE BLVXLFriend 5.2 installed. m}mShft/Ctrl/1 activates Note Pad. Shft/Ctrl/2 activates Code Table. Shft/Ctrl/3 activates Calculator. Shft/Ctrl/4 activates n}Core Eye. This is not XL/XE computer! Can't uninstall XLFriend! Checking... Loading... XLFriend uninstalled.o} H 2)( 3I+I2 ӱ8h `H))h`XH⃌モ gh p}E4Z g`HB,: Ң-hLH"Y Ӄhhh@KۀPGLH[8XTZL;XLRXLaX^1,^2,^3,q}^4allLF HELPtdelp=Ctrl,=ShftM(Ѝ ԍ I` ?i(j`x܄ݩمڅ&ݢuٕؤۦX` Yr} VYYY4Z04Zܠ XCUZUZ` Xڠ܎ Y YܩZݢZֈs}ǥeمܐݰXl'` ;X@Ԫ4ZH4Z~鿍9Zj:Z X0٭1.'Bمȱمݢȱ :Z܍9Z5SZ0ZTZ1t}9ZX:ZYYZ Zo/) "/4Z Y Yx4Z Yh4Z X0SZ`Lg XY `σ>"$_bu}0D X"/opppBGA5ZH]KLH )J JJeDži$LK v}J KʢHZ$0 XʈhfɽZ Jʘi Kмɢ Jĕ򩄑ґ aXH w}J Jh K Jx HZ @X ILH04;20%23¥ â ӡs Х¥LIŽ Vx}Ǣ $aiU©ZiÊi rI IZƽ I}Z(Z Kа8Z K`ZZ`/y0y}ǐL: aDg@ ;X)ƈƅFȰ` HƢ ӁL~JFȢ (K# ;X JH(H5KH4KHSK i L)Jz}`h` JJ^KH^Kh K`XYSK KRKLKI`8İ`ǥ ǥiĐ` jJ`{}` ~J`RK RK`RKRK`SKSK`SKSK`ZKJXK\KVKTK`H) KhdJ 0iɑ`e…`|}(e`+*-=<>#JiJ}JJJzJJJJJJbJ [cL<[TagineGotoagL,^S/O^>nsertinebov}}eagQuote@| E[ c ] e_ % I` [ _LV[cccc t[` I`,P?-~}Cr X)?<'Qa{E`I I𰻠8 X \( \ #\Ȅc0cc`H #\hvJ) 0c}Lj`XYc \`'i(`8(8('` V \HC [< XhC`H\c}ǝch`LoadSaveFailEdite`(e`i`` \H cc I` [cɛ+)#~!`՝cc͊} 3]chc`@0 i0HHJ \h7cE.S*CBDcEK t\DcE`CLy\ [}c B Vҩ ` 9]0 [IB8@D|EH V $ y\ ]L]D}HDE}IEплٽD}DžE ]L[ 9]0 B8HcI t\L]8` N^ei@|8` b ee}eeL^`8 b 8ei N^0 ` +a cXYc}ȄSR0)ȄRII i(j {_Iܩ {_i(XYc ?\ \`H _ `bh`Hei} \^ɛh`eiL^ \$0C-Lb=Lb e.L]c%c Ab ,\ \LT\c ,\ ?\}c` Tcɛ  c _L`b jckclM [⪩% [D [8@쪩|4 [XY' a}ǩԠ'5%ɛc X`('穛 \' ȱE \}cL`O'c XIʈL\hh ,\c T\`` -b$ɛ b _ c _누ɛLb` c }c bȘ ^( ` cȘ \^` 8e 7c8e b8eL}pb` c c Ab`` AbL c b cLb cLb`ɛ b c b 7cc} 7c ɛ`c Ab`c pb``` b` `cIc` Ab}ǩ` pb c`Hh`ɛLHcɛ \`~  )a9aAbpb-b`b>aCac }c_`bcbb|aa]-^b_Edit$'D1:@IFree:TYLine:`dCol:hcc MOL(MTAB}odeA:tascii,:nternal,:eycodeXmO̥YiͬO GO YO̅ΥͅϢQE N O+ N ;OOOHΠȭO XΈOO}CKO8mO͌OO8e΍MiM ;OhиZC N OH X) Nh! NOJO X (jMOO O}LNiOO8OLN#O0iOLN8OOiOLN ΎOLN ?OLNɇOnO SOLNɆOV}ǏO SOLNɎO<ΐO SO8(̰LNɏOO SO GOLN,OLN LSO XLN YO OLDM 5OR 5OBH 5O }5O,Jh "O&O XO "O H +Oh0J) i Έ`i(ΐ`i(̐` X }O٢kνOH̝Oḧ0ܘ8}୐O i( ` @FL[@ddubtractroductivonlyyteositiventegerllowed5U8@@hC X ALg@ 7E} |D D 9AʍQ٭Eƈ-~EE@E@ X @L9AFԄՌFFȌFF agV80] Y0S}ǰO XFF ԆՎFFHԍ FՍFHHF{E֩ Bhhh FԭFL9ALg@eԅԥiՠF E D:Ј)}F F-Р:F) E ELAԤ XH: E Eh ELAԅҥՅӢFf*Јȱ :Lg@F`F}FF FF`FFFFFFFԅ֥Յ`F FFFF`H iBhFFFFԅ֥Յ`F ԍ FՍFLZBԅ֥Յ׭ }FԭFբFFFFFEҽE BF`leօԥeׅՐLC8ԅԥՅհLC҅ӥ֍F׍F&Ӑ FԭFLC&}ǐ HըeօҥeׅӘhɥ҅ԥӅ`LC)%Щ< X8`҅8ԅҥՅeԅҥeՅ&&<C&&}&ffӥօԥׅ`Uԕ`F ZBFeԍFFeՍFF`F ZB8FԍFFՍFLCFFFFF`FԭF}ǢFF` F`8F(FF F D D |DLD F`Fi(FF F D D |DLD F`FF F D D |DLD F=FF}F F D D |DLDHHԅ֥Յ׮F{Eԩ Bhh`XmFХYmF`ЍDDэDDDDFDD FDDDD}.DDDDDi(DDDDF` D2hE m F `H EhIJ) iЈ`FʘHFʈhF`ڠ E}ǩF EFѠ E< EEYFEFEF` DAAA6B9DDCC~XD!>-}P>$#,2>/\ >("30>%\ >"%3#{DBBBBdCdCdC" WGGL*G>agepABode-=~-=}+registers<<30<0#<&<!<8<9<<uu-XuuL ~XZu_/2sops1} ss uYu67;B@pppBYAuu"ʔFpp@puv{}LvLz1u) !0!)u)uu $x1u 1u `z,7u+u$uP1u) `xx x wLly jz{ L:z{ {}ǩxʽ{x{'ٸ{Lw1u)  {v{vLv` 1u) LxL 1u) WzLJxɾ Lzu {L4wɶ Lzu y{L4}wɖ Lw1u) Ч Wz WzLWx 1u) Г WzLox Lz &{1u)!0!)u)xx $x1u 1u `zx)Lw}Lw1u)!0!)u)xx $x1u 1u `zxwͲ{xw{Ͷ{{ 1u 1u`x{x1u) =)8)3 Wz}ǮuuuHu(uhuuu({muuu`=xBxH h u u u uJJ(`xuxu`xfxxgxexu`}x{xuH((Lx(x0 xLx xuuu`1u) uLCzuiui y xuu yxuxuLWz1u)uLCzu }y WzLx1u) uLCz zu WzLx1u) uLCz zu zu zuLWz1u @1u`1u)uLCzu y WzLx1u) uLC}z zu zu WzLx1u) uLCz zuH({uhu( WzLxuuLxuH(uhuuLx{1u)(0#)u)u $x}G)u)71u 1uhh`{utu`1u)0)u)uȘ $x1u Ǯut{u`1u 1u`1u 1u`x) x`1u)1u`1u=}{1u`uzu{zz{zz{z͵{zz` jz{xɾ u {L{ɶ u y{L{ɖLz @L}nLϒBC }E } e i Le8I @ Ԡ ! ' ` ԅʆee !}$L! :l4,()" ( 0 ) JJ)`HJJJ)" h`  @`)  )} `JJJ)***)) `tsNR!T D ar BҐb̊ BM}TRTHCLLSEEYDAãPN"N# E3 TDPX 8 X^bp 9 8tv 9z 8}  "LLɖLLLDL/L•LĕLfhdgsaLJ:K\^OPUI_|VCBXZ$#&%"![ ]NM?REYTWQ()'@}FHDGSA {   `} } BDE"HILVPress SHIFT/BREAK to get control 'uwMii}G)I)iեԍՍ8ԝN՝O8ֽeօԥeׅՠiԥi Fнѽҽ8NԥOզ}ѥ FLd~%ґ 9 @`) T) M҅ȱ҅׈ NH}OhL Fשֆ8֑ 9L1ґ 9L`i(`T) M҅ȱ҅׈ NHIɯϠ4 F file:_IO.ASMN a date:90.03.24h  author:J.B.Wi$nie}wski  " 9B _iocbF Tequ $340_ciovX tequ $E456_skctl equ $D20Fy}; A: letter-parameter  A: resultH K bv _upper cmp #'a'} } bcc _upp_r !cmp #'z'+1* 5bcs _upp_r> Seor #$20_upp_r rtsWkorx A: da}ta byte )(_ioz0): message addr / Eadc #6N \sta (_ioz0),Ye ideyr urtsy}* X: channel# * 16. D A,Y: fspec addressH e CY: read=0, write=1  | }_open sta _iocb+4,X! %tya. ?FOVl X: channel# * 16p  A,Y: data} address  '. _read2 _kbdnamd oclc (read)x jsr _}open lda #7 ,sta _iocb+2,X5 ?HLV _kbdnam:keyboard name  _iomode:m}ode of I/O  'W _kbdnam dta c'K:',b($9B)_iomode dta b(3)` end of fileame  _iomode:ml ͠4 F file: _PM.ASMN c date: 01.04.1990h rauthor:} }  "Miroslaw Liminowicz9 < S *- page 0_pmtmp equ _pmz0 (2)_pm}point equ _pmz0+2 (2)*- system variablessdmctl equ $22Fgprior equ $26Fpcolr0 equ $2C0hposp0 equ $D000gractl equ $D01}#Dsizep0 equ $D008pmbase equ $D407'P͠A- MSB PM areaY C=0 two line resolutionC=1 one} line resolution *1 _pmon5 ;and #%@1D000M Xsta pmbasea msta _pmaddrv lda sdm}Cctl and #%11101% 0sta sdmctl9 @lda #0I Orol @X csta _pmresl rasl @{ as}l @ asl @ "asl @+ 6ora sdmctl? Eora #%I0N1100W bsta sdmctlk vlda gprior} } and #%110 ora #%$0)10002 =sta gpriorF Llda #%R0U11^ jsta gractls lda #0  } #ldx #7_pmout sta hposp0,x, 9sta sizep0,xB Nsta _pmpx,xW csta _pmpy,xl pdexy bpl  }_pmout jsr _pmpadr' 2ldx _pmres; ?inxH LtxaU [asl @d itaxr yldy #0}  } "tya_pmcpage sta (_pmtmp),y+ /iny8 @bne *-3I Vinc _pmtmp+1_ cdexl bpl _pmcpage  } lda #4 #jsr _pmpadr, 3lda #0< @tayI Xsta (_pmtmp),ya einyn vbne *-3}  }6 rts͠_pmoff lda sdmctl? Nand #%11100011W bsta sdmctlk rlda #0{ st} a gprior sta gractl& BinxK OtxaX casl @ ,clcl ptaxy adc %}_pmaddr sta _pmtmp+1' +pla4 ;cmp #4D Qbcs _pmisileZ ltax_pmsearc dexu bpl *+3&} rts clc$ /lda _pmtmp8 Aadc #$80J Uldy _pmres^ fbeq *+4o xadc #$80} '} sta _pmtmp bcc *+4) 6inc _pmtmp+1? njmp _pmsearc_pmisile ldx _pmres_pmis1 secw lda _p(}mtmp sbc #$80 +sta _pmtmp4 Alda _pmtmp+1J Qsbc #0Z gsta _pmtmp+1p tdex} )} bpl _pmis1 rts/**- My variables_pmaddr org *+1_pmres org *+1_pmhelp org *+1_pmpy *}C org *+8_pmpx =org *+8_pmbuff org *+16_pmmask dta b(%D1G0)P Wdta b(%\1a011)j udta b(%1110y1) +}+ dta b(%101)# =end of filemmask dta b(%D1G0)P Wdta b(%\1a011)j udta b(%1110y1) /䠠2  file: _SOUND.ASM  date: 01.04.1990  author: Janusz Pelc -}  2D * page 0_addrH yequ _sndz0 (2)* systemrtclock equ $14audf1} .}equ $D200audc1 "equ $D201audf2& 5equ $D202audc29 [equ $D203audctl equ $D208skctl_ hequ $D20Dl/}A- volume TX- LSB of music addresY- MSB of music addres jk o_musini equ *0} stx _musaddr /sty _musaddr+18 Aand #$0FJ Vsta _volume_ flda #3o ysta skctl} 1} lda #0 sta audctl) 0ldx #79 @lda #0I Usta audf1,x^ bdexk sbpl *-4| r2}ts0procedure returns5 bcarry set if there is end of music datag j }3} _play equ * ,lda _musaddr5 ?sta _addrH Wlda _musaddr+1` msta _addr+1v inc _mu4}saddr bne *+5 0inc _musaddr+19 Dldy #0_pl1I Wlda (_addr),y` ibmi _plxr ldx #255_p5}l2 inx lda _stab,x) 2bmi _nos; Icmp (_addr),yR [bne _pl2d hinyq lda (_addr),6}y cmp #'#' &bne _snf/ BtyaK Qasl @Z ^tayg kplat ldx #1 9} jsr _sound clc( 1rts_plx6 @lda _addrI Vsta _musaddr_ klda _addr+1t sta _musa:}ddr+1 lda #0 &ldx #3/ ;sta audf1,xD HdexQ Ybpl *-4b fseco rrtsvw|;} QA- volume + 16 * type X- channel's number Y- frequency[ ^ tu y_sou<}C nd equ * pha! (lda #31 ;sta skctlD Klda #0T `sta audctli mtxav and #3=}= asl @ tax% )tya2 >sta audf1,xG KplaT `sta audc1,xi lrtspqy>} &A- del time * 0.02 sec <= AF_waitJ Pequ *Y atax_walf rlda rtclock{ cm?} p rtclock beq *-2$ (dex1 :bne _walC JrtsRV`h_stabl dta c'CDEFGAHcdef@})gah'_frqtab dta b(121),b(108),b(096)2 Kdta b(091),b(081),b(072)T mdta b(064),b(060),b(053)v dta b(0A}47),b(045),b(040) -dta b(035),b(031)6 Odta b(114),b(102),b(091)X qdta b(085),b(076),b(068)z dtaB} b(060),b(057),b(050) 8dta b(045),b(042),b(037)A Sdta b(033),b(029)\ dta b(000)_musaddr org *+2_volC}ume org *+1 8end of file(045),b(042),b(037)A Sdta b(033),b(029)\ dta b(000)_musaddr org *+2_vol$e| Zastosowanie _IO.ASM:|| - kopier/translator || JBW Assembler --> QA |{E}adres #equ $9000list_all equ %(0:111list_mem equ %?0Q110list_err equ %V0h101list_off equ %p0code_mem equF} %0001 0code_dsk equ %001!0#, \opt list_err+code_mem*--- strona zerowa_ioz0` equ $D0 (2 bajty dla _IO)addG}r %equ $D2 (adres w buforze)count) Eequ $D4 (liczba bajtow)cntrJ _equ $D7 (licznik)*d ,.*--- rozne liczbychaH}n0 equ $00 (IOCB nr 0)chan1# :equ $10 (IOCB nr 1)eol@ `equ 155 (znak konca wiersza)eoff equ 136 (status odczytuI})* ;,*--- komorki systemowedosrun equ $0Adlist? Gequ $230L[*--- poczatek*c e'n org adresmainJ} equ * +,* liczba wolnych bajtow4 8secA Klda dlistT ^sbc buff$ Jsta size+1* wypisanie informacjiloopO Zldx #chan1c njsr _closew jsr diL}nfo* pobierz znak 'ldx #chan10 used jsr _read% .cpy #eof7 Dbne io_errorM Ubeq loop[ pjmp* translacjatranu jsr get_Q}fn sec zapis) 3jsr _open< Ibmi io_errorN `* adres w buforzei slda buff sta addr$ /sty addr+14 >* dlugoscG Plda usedY dldy used+1m wsta count} S} sty count+1 +* rozpakuj 1 wiersztrl1 llen; Fjsr _writeO \bmi io_errora m* nastepny?v lda couU}nt ora count+1! )bne trl2 :beq loop@ Ojmp* piszwritT _jsr get_fnh ksecv zapis V} jsr _open (bmi io_error1 ;lda usedW bjsr _writek xbmi io_error} W} +jmp loop* usterkaio_error ldx #chan04 ?lda error\ gjsr _writep xjmp loop|*X}%--- rozpakuj wierszunpack ldx #0. 5ldy #1> Tlda (addr),y dlugosc] fsta lleno siny| bY} pl chklen 0jmp* glowna petlaunpk_l lda #09 Asta cntrG Rpojedynczy[ hlda (addr),yq bpl single Z} and #$7f pha' +iny4 Alda (addr),yJ Rsta cntrX hzwielokrotnionyq pla* pojedy[}9nczysingle iny* powielanie znakurepeat sta line,XB FinxO Wcpx #64` ibcs unretn wlimit=64} \} dec cntr Dbpl repeat* czy wszystkie ?chklen cpy llenM pbcc unpk_l* znak end-of-lineunrett lda #eol]} 2sta line,X* dlugosc otrzymanego wiersza; ?inxH astx llen* zwieksz adresj nclcw tya ^} adc addr "sta addr+ 3bcc *+4< Zinc addr+1* zmniejsz licznikc gsecp lda count _} sty count #sbc count, 6sta count? Klda count+1T [sbc #0d ysta count+1* powrot} `}C rts &*--- pobierz nazwe pliku*6 M'get_fn jsr _setbinV aldx #chan0j tlda prom jsr _write' 3jsr _settxt< Elda #120N Xsta fnlena llda fnlb}en jsr _read +jsr _setbin4 ?ldx #chan1H Rlda fnamn urts*{ ,c}*--- wyswietl infodinfo msg_} d} sta _ioz0+1* ile w buforze...) 5ldy Glda usedP Zjsr _phexc nlda used+1w jsr _pe}hex* ile wolnego... *ldy message" Djmp _write*--- procedury WE/WY J-LU icl 'D1:_IO'*--- nazwa plikufnlen r}C dta a(0)fnam 6org *+120*--- informacjeerror: Jdta a(elen)erm_O mdta c'Niedobrze!',b(eol)elenr equ *-erm_s}smessage dta a(mlen)msg_ *dta b(eol)3 ddta c'׭',b(eol)m dta c'w buforzet}: $.'bu_off equ *-msg_-1( 3dta b(eol)< Cdta c'G Owolne: $S.k'fr_off equ *-msg_-1t dta b(eolu}p),b(eol)read_ch dta c'zytanie 'writ_ch dta c'apis 'tran_ch dta c'ranslacja 'quit_ch dta c'oniec'y dta v}b(eol),b(eol)mlen 'equ *-msg_prom, duszkiX `| wlaczi lsec{ | }grafike jsr _pmon# )| PM2 8ldy #7D X| ustawustapara tyag q| parame-z pha} | try: +ldx kolory,y1 =| kolory ,,F Lldy #1Q d-chude | szerokoscm wjsr _pmset} }C | pla !|* -tay< >|G Rlda llosowaY e| pozycje xn vand #$7F} } | adc #$32 "|+ 9sta xpozycja,y= ?|H Slda llosowaZ f| pozycje yo wand #$7F} } | adc #$32! #|, :sta ypozycja,y> @|I Tlda llosowa[ g| przyrostyp vand #1} } | bne *+4" $|- 5lda #$FF? A|J Xsta xprzyros,y\ a| dxj ulda llosowa| |} and #1 |' .bne *+49 ;|D Llda #$FFV X|a osta yprzyros,ys x| dy} } lda llosowa |! /sta ktoryksz,y3 >| aktualneG JdeyY d| ksztaltym ybpl ustapara} } | clc (| pewne1 =lda xprzyrosC L| duszkiU aadc xprzyrosg p| latajay sta }xprzyros | szybciej" %clc4 6|? Mlda yprzyros+2Q S|\ jadc yprzyros+2n p|y sta } yprzyros+2 | clc+ -|6 Dlda xprzyros+3H J|S aadc xprzyros+3e g|p sta xprzyros+}3 | clc" $|- ;lda yprzyros+3? A|J Xadc yprzyros+3\ ^|g usta yprzyros+3y | } ldx muzyczka= I| parametryR Xlda #8d m| muzykiv jsr _mu}sini |tu_skacz lda #3* 2| petla; Dsta numerM W| glowna*q  4 duszki}tu_tez ldx numer $| duszek- ;ldy ypozycja,x? D| naM [lda xpozycja,x_ i| pozycjer utax} } | X,Y lda numer( *|3 ksztdusz% '|0 3tayB D|M Vlda numer_ a|j vjsr _pmshape| |} ldx numer &| dodaj/ 2clcA L| przyrostU clda xpozycja,xg l| dou adc xprz}Cyros,x | pozycji +sta xpozycja,x/ :| X duszkaC Kcmp #$31U W|` gbcc *+6r t|} } cmp #$D0-8 | $bcc *+9/ 1|: =secL N|W ]lda #0i k|t sbc xprzy}ros,x | "sta xprzyros,x& )|2 5clcD N| a tu doW elda ypozycja,xi s| pozycji| a} dc yprzyros,x | Y duszka% 3sta ypozycja,x7 9|B Jcmp #$21T V|_ fbcc *+6q s|| c} mp #$E0-16 | #bcc *+9. 0|9 GXbtmuzyczka equ *{ dt}a c'c c A A F F G G '% Edta c'ce cg Ac AecFA Fc GH GdH'L ldta c'cegcegAceAecFAcFAcGHdGdH's dta c'cegc}egAceAceFAcFAcGHdGHd' =dta c'cegcgeAceAecFAcFcAGHdGdH'D ddta c'cgecegAceAceFcAFAcGHdGHd'k dta c'cgeECGAecCcC}MFcAA GdGC c'kolory dta b($38),b($7A),b($C6),b($F0)ksztdusz org *+32T edta b(%00011100)l dta b(%00111010)} dta b(%0100) 0dta b(%01010100)7 ?dta b(%0D1H00)O `dta b(%00111010)g xdta b(%01000110)} } dta b(%01) +dta b(%11101011)2 ;dta b(%10?1C01)J [dta b(%10101101)b kdta b(%00o1s00)z dta}C b(%00 100) &dta b(%00111000)- 6dta b(%00:1>00)E Odta b(%000S1X0)_ fdta b(%k0p110)w dta b(} %00011100) #dta b(%00111000)* 2dta b(%071;00)B Sdta b(%01010100)Z bdta b(%0g1k00)r dta b(%0011}1000) dta b(%01000100)% -dta b(%03160)= Ndta b(%01101110)U ]dta b(%0a1f010)m dta b(%00101100)}C dta b(%00100) 1dta b(%00011000)8 Idta b(%00011101)P Wdta b(%[0c1110)l end b(%00101100)pEE