$L;LHLELLLwL}}lhd`,($ NE$%A$% 0"$)$$H hLP , `e$$%`  R@P1   *  :.`GH`@1`  L:CDCH hC DD CDL"LLY  u$%8CC$$%% Ym@x B++@@ D:IBM2.ASM++@@ E:IBM2.BIG}$)@$@2A$)@$"@2@L+6-&++!@,*+ A#,,$@28*@}L"AU@)@ @d+AU!*@@:.,+ @e @ N D:QA_BIG.}BAS"AU@)@ @d+AU!*@@:.,+ @e @ N D:QA_BIG. opt %10101 org $b000obr equ $9010zp equ $f0zp2 equ $f2 lda #0 sta 559 jsr wait lda #1 } sta $2db lda #$0 sta 712 lda #$c4 sta 710 lda #$a sta 709 ldy #0 tyaloop sta } scre+$000,y sta scre+$100,y sta scre+$200,y sta scre+$300,y sta scre+$400,y iny bne loop  } lda #0 sta poz jsr clr lda #$22 sta 559******petl lda
dl sta $230 stx $23 }1 jsr wait ldy #39s44 lda txt,y and #$7f sta txt,y dey bpl s44 ldy poz lda tab1,y } tay ldx #0o1 lda txt,y eor #$80 sta txt,y iny inx cpx #7 bne o1ko jsr key } cmp #7 bne s2 lda poz cmp #3 beq ko inc poz jmp petls2 cmp #6 bne s3 lda poz } beq ko dec poz jmp petls3 cmp #$c bne ko lda dl1 sta $230 stx $231 l}da poz bne z1 jmp filez1 cmp #3 bne z2 jmp aboutz2 jmp koabout equ * lda ok3 ldy #27 jsr okno jsr key jsr cls jmp petlfile equ *f1 lda ok1 ldy #$0 jsr okno lda #3 sta max lda scre+41 ldy #13 jsr pyt} cmp #$ff bne a2 jmp koa2 cmp #3 * exit beq exit cmp #1 bne a3 jmp loada3 jmp ko}exit lda ok2 ldy #$d8 jsr okno lda #1 sta max lda scre+$101 } ldy #4 jsr pyt cmp #1 bne d1 jsr $e474d1 jsr cls jmp f1load equ * lda ok4 ldy #$7c jsr okno lda scre+177 sta zp stx zp+1 lda #255 sta 76}4 ldy #0tk2 lda (zp),y beq tk1 iny cpy #3+8+4 bne tk2tk1 lda #$80 sta (zp),y sty l_}l jsr $f302 jsr clik cmp #$7e beq fus pha ldy #15j1 lda #$20 sta name,y lda #0 } sta (zp),y sta inpu,y dey bne j1 sta l_l lda #$80 sta (zp),y pla jmp fustk jsr} $f302 * Ascii-Int. jsr clikfus cmp #$9b * ret. bne ok ldy l_l sta name,y brk rts } ** RETURN **ok and #$7f jsr spr bmi tk cpy #'' bne dal jsr cls jmp filedal ldy l_l } sta name,y tay rol @ rol @ rol @ rol @ and #3 tax tya and #$9f ora ainc,}x ldy l_l sta (zp),y sta inpu,y cpy #3+8+4 bcs n1 iny sty l_ln1 lda #$80 sta (zp)},y jmp tkspr cmp #'.' beq da2 cmp #'a' bcc da1 cmp #'z'+1 bcs da1 sec sbc #$20d}a1 cmp #'' bne da6 tay rtsda6 cmp #'.' beq dal cmp #':' beq dal cmp #'_' beq dal } cmp #'A' bcc da3 cmp #'Z'+1 bcc da2da3 cmp #'0' bcc da4 cmp #'9'+1 bcc da2da4 ldy #$ff!} rtsda2 ldy #0 rtspyt equ * sta zp stx zp+1 sty ill+1 lda #0 sta liczpy1 jsr ill"} jsr waitpyk jsr key cmp #$c bne w1 lda licz rtsw1 cmp #$f bne w2 lda licz cmp #}max beq pyk inc licz jsr ill lda zp clc adc #40 sta zp bcc e1 inc zp+1e1 jmp$} py1w2 cmp #$e bne w3 lda licz beq pyk dec licz jsr ill lda zp sec sbc #40 %}sta zp lda zp+1 sbc #0 sta zp+1e2 jmp py1w3 cmp #$1c *esc bne w4 jsr cls lda #$ff &}rtsw4 jmp pykill ldy #$eeila lda (zp),y eor #$80 sta (zp),y dey bpl ila rtsokno equ * '} sta zp stx zp+1 sty ad+1 lda scre-1 adc #0 s(}ta zp2+1 ldy #0 lda (zp),y sta ile+1q4 equ * ldy #1 lda (zp),y cmp #$ff beq exile )}ldy #$eeq1 lda (zp),y sta (zp2),y dey bne q1 lda zp2 clc adc #40 sta zp2 bcc q2*} inc zp2+1q2 lda zp clc adc ile+1 sta zp bcc q3 inc zp+1q3 jmp q4ex rtskey lda #$+}ff sta 764s1 lda 764 cmp #$ff beq s1clik ldy #$40cil sty $d01f dey bne cil rtswait lda ,}20 cmp 20 beq *-2 rtscls ldy #0 tyacl1 sta scre+$000,y sta scre+$100,y iny bne cl1 -} jsr wait rtsclr lda >obr sta zp+1 lda #0 sta zp ldx #$1f taycr sta (zp),y dey .} bne cr inc zp+1 dex bpl cr rtstab1 dta b(1),b(11),b(21),b(31)dl dta d'p' dta b($42),a(txt) /} dta b($0),b($4e),a(obr) dta d'.....................................' dta d'...................................'0} dta d'.............................' dta b($4e),a(obr+$ff0) dta d'...................................' d1}ta d'...................................' dta d'...................................' dta d' ',b($42),a(last) 2} dta b($41),a(dl)dl1 dta d'p' dta b($42),a(txt) dta b($0),b($42),a(scre) dta d'"""""""""""""""""""""""""' 3} dta d' ',b($42),a(last) dta b($41),a(dl)poz dta d' ' * nr.na gorzelicz dta d' ' * nr. w okienkumax dta d4}' ' * max.nr.w ok.l_l dta d' 'ok1 dta b(16) dta d' ' dta d'Directory ' dta d'Lo5}ad Pic C-64 ' dta d'Save Mic ATARI' dta d'Exit ' dta d'',b($ff)ok2 dta b(7) 6} dta d' ' dta d' No ' dta d' Yes ' dta d'',b($ff)ok3 dta b(13) dta d' '7} dta d' Denomia ' dta d' C64 ' dta d' picture ' dta d' converter ' dta d' 8} ' dta d'by:GUMI ',b(7),d'94' dta d' DENOMIA.' dta d'',b($ff)ok4 dta b(32) dta d'9} ' dta d'Input file: 'inpu dta d' ' dta d'(D:CAT or D1:DOG.64 o:}r I:IBM.A' dta d'',b($ff)nam dta c'D:'name dta c'................'ainc dta b($40);},b($0),b($20),b($60)txt dta d' Files Works Prefs About 'last dta d' Name of picture: <} 'scre equ *$60)txt dta d' Files Works Prefs About 'last dta d' Name of picture: *=$A000%=*.DL ('p'),$30,$42,TXT,$90,$4E,OBR('....................................')('................................>}....')('.............................'),$4E,OBR+$FF0 ('...................................')('............................?}.......')('..........................'),$10,$42,LAST,$41,DL.DL1 ('p'),$30,$42,TXT,$10,$42,SCRE('""""""""""""""""""@}""""""'),$10,$42,LAST ,$41,DL1.POZ ,0 ;* NR.NA GORZE.LICZ ,0 ;* NR. W OKIENKU.MAX ,0 ;* MAX.NA}R.W OK..HOW ,0 ;1-C64 ,2-ATAR, 0-NIC.L_L ,0 .X ,0.Y ,0.XD ,0.YD ,0.TYK ,0.OK1 ,16('B} ')('DIRECTORY ')('LOAD PIC C-64 ')('LOAD MIC ATARI')('SAVE MIC ATARI')('EXIT ')('C}'),$FF.OK2 ,7 (' ')(' NO ')(' YES ')(''),$FF .OK3 ,14 (' ')('D}This program')('was writting')(' by ')('GUMI in 1994')('from TIGHT,')('in the past ') (' E}DENOMIA. ')(''),$FF .OK4 ,32 (' ')('INPUT FILE: ').INPU(' F} ')('for example D:NAME or I:IBM.86')(''),$FF.ERR ,13(' ')('ERG}ROR - $00')(''),$FF.FNL ,17(' ')('File not found.')(''),$FF.OK5 ,18H}(' ')('START CONVERSION')('AUTOMATIC CHANGE')('CHANGE COLOURS ')(''),$FF.OK6 I} ,33 (' ')('OUTPUT FILE: ').INPL(' ')('for example D1:NAME or IJ}:IBM.86')(''),$FF.NAM ("D1:").NAME ("................").AINC ,$40,$0,$20,$60.TXT K}(' FILES WORKS PREFS ABOUT ').LAST (' TIGHT C64 PICTURE CONVERTER ver.')('2.0 ').OBR= $8010 ;OBECNL}Y ;$8010-9F4F.BUF= $5700 ;WCZYTAJ ;$4FFE-7722.SIZE=$2722.DUPM=$AC00 .DUCH=DUPM+$380.COL= $FF.CIOV=$E456.ZP= M} $F0.ZP2= $F2.AD1= $F4.AD2= $F6.ADD= $F8.RUNLDA #$40STA $D40ELDA #0STA 559JSR WAITLDY #1LDA $101CMP #$48BNE N}LLDA $102CMP #$A9BNE LSTY $216STY $217.L STY $2DBLDA #20STA $2D9LDA #4STA $2DALDA #$0STA HOWSTA POZSTA XDO}STA YDSTA 712LDY #7.LK STA $D000,YDEYBPL LKLDA #1STA HOWLDA #$C4STA 710LDA #$ASTA 709LDA #>DUPMSTA $D407P}LDY #0STY $D00BLDY #2STY $D01DDEY STY $26FJSR CLEARJSR CLRLDA #DLISTA $200STX $201LDA #PRZSTA $228STX $229LDY #1STY $21ADEYSTY $21BLDA #$2ASTA 559LDA #$C0STA $D40E;******.PETL LDA #DLSR}TA $230STX $231CLIJSR WAITLDY #39.S44 LDA TXT,YAND #$7FSTA TXT,YDEYBPL S44LDY POZLDA TAB1,YTAYLDX #0.O1 LDS}A TXT,YEOR #$80STA TXT,YINYINXCPX #7BNE O1.KO JSR KEYCMP #7BNE S2LDA POZCMP #3BEQ KOINC POZJMP PETL.S2 CMT}P #6BNE S3LDA POZBEQ KODEC POZJMP PETL.S3 CMP #$CBNE KOLDA #DL1STA $230STX $231LDA POZBNE Z1JMP FU}ILE.Z1 CMP #3BNE Z2JMP ABOUT.Z2 CMP #1BNE Z3JMP WORKS.Z3 JMP KO.ABOUTJSR CLSLDA #OK3V}LDY #26JSR OKNOJSR KEYJSR CLSJMP PETL.FILE .F1 LDA #OK1LDY #$0JSR OKNOLDA #4STA MAXLDA W}#SCRE+41LDY #13JSR PYTCMP #$FFBNE A2JSR CLS JMP PETL.A2 CMP #4 ;* EXITBEQ EXITCMP #1BNE A3X}JMP LOAD.A3 CMP #3BNE A4JMP SAVE.A4 CMP #2BNE A5JMP LMIC.A5 BRK.EXIT JSR WAIT LDA #OK2LDY #$D5+Y}40JSR OKNOLDA #1STA MAXLDA #SCRE+$FE+40LDY #4JSR PYTCMP #1BEQ D2JSR CLSJMP F1.D2 JMP $E474Z}.LMIC LDA #OK4LDY #$7C+40JSR OKNOLDA #SCRE+177+40STA ZPSTX ZP+1JSR WIERSZADC #NAMADC #0STA $345,XLDA #$80STA $34B,XJSR CIOVBPL OKQJMP ERROR.OKQ LDA #$40STA $303,XLDA #<8000\}STA $348,XLDA #>8000STA $349,XLDA #7STA $342,XLDA #BUF+2STA $345,XJSR CIOVBPL OKQ1CMP #136]}BEQ OKQ1JMP ERROR.OKQ1LDA #2STA HOWJSR CLOSEJSR CLSJMP PETL.LOAD LDA #OK4LDY #$7C+40JSR OKNOLDA #SCRE+177+40STA ZPSTX ZP+1JSR WIERSZADC #NAMADC #0STA $345,XLDA #$80STA $34B,X_}JSR CIOVBPL OKAJMP ERROR.OKA LDA #$40STA $303,XLDA #SIZESTA $349,XLDA #7STA $342,XLDA #BUFSTA $345,XJSR CIOVBPL OKA1JMP ERROR.OKA1LDA #1STA HOWJSR CLOSEJSR CLSJMP PETL.SAVELDA #OK6LDY #$7C+40JSR OKNOLDA #SCRE+178+40STA ZPSTX ZP+1JSR WIERSZADC #NAMADC #0STA $345,XLDA #8 STA $34A,XLDA #$80STA $34B,XJSR CIOVBPL OKPJMP ERROR.OKP LDA #$40STA $303,XLDA #c}<8000STA $348,XLDA #>8000STA $349,XLDA #$BSTA $342,XLDA #OBRSTA $345,XJSR CIOVBPL OKP1JMP ERRd}OR.OKP1JSR CLOSEJSR CLS JMP PETL.SPR CMP #126BEQ DA7CMP #46BEQ DA2CMP #97 BCC DA1CMP #123 BCS DA1SECSBC #$2e}0.DA1 CMP #27 BNE DA6.DA7 TAY RTS.DA6 CMP #42BEQ DA2CMP #63BEQ DA2CMP #95 BEQ DA2CMP #65 BCC DA3CMP #9h}1 BCC DA2.DA3 CMP #48 BCC DA4CMP #59 BCC DA2.DA4 LDY #$FFRTS.DA2 LDY #0RTS.PYTSTA ZPSTX ZP+1STY ILL+1Li}DA #0STA LICZ.PY1 JSR ILLJSR WAIT.PYK JSR KEYCMP #$CBNE W1LDA LICZRTS.W1 CMP #$FBNE W2LDA LICZCMP MAXBEQ j}PYKINC LICZJSR ILLLDA ZPCLCADC #40STA ZPBCC E1INC ZP+1.E1 JMP PY1.W2 CMP #$EBNE W3LDA LICZBEQ PYKDEC LIC ^} ?G l}@0p  m}??c((((((**1 n}?Od$ $`O#di?OO?fJ Ih<<j ?Oc## ## o}i?OO?|1?Cc &Ƥ2<1 ?Od jJ222????? p}h*$#O?***90dO?(??dHH#i q}?O?*?f JF0# `## ddi?O?###S?$iB< r} J1<iySo96 o?5 }//?? }  :-96 }77 ? }/ }0ÀА0 000 }? / }zz0À }0 000 }? }0 } }:  ( }30??330?<< 0??? }?_) }2$) ˲ }... /]w i j?3?3 ?<<<<0 }:::: }   |?  0 }h3333???:묰@ } }  wjj ?3?333 }>:묰 @@ } }./, ,‹|G3ff?3dÎNBNBN } } ... }"! }   }   }gp }` } };  gp.@ }  }@@@.gp.A; } } G/:/ LZ j }99ųlw:9:l }T^fól:k:9:k9:;[ }ww/ A( 69 0 }:9:;;;;{@../-/...V΂ }........:9;;;묰l;;:9:;;;V, D8,L  // } 0; };; ...AAA?;;7 ...  } }>WWWWWWWWWWWWWWWWWWWWWWWWWWWWWs }>n>6>>c>>6>>>>6~c }v v }VuX }  XX Y ; } f11>11c>cn>n>ncc;1 }cc{>>cc>>>>>>>>>>> <>c6>>66>>>>>kkkk;<6c }6_ _ _   } } }   }     }       }      }      }      @UU_WUU_W}@?@U%UUUU_}?@??}UUUU?_PW\E@p}<3 ?U@O}}TU@T@5<P0  __ZUU}_UU_U}?}tZ |>m}>?CCC}o_[}}_[[[[______}}_c@ ??oAW_?}]??__?}________}p//ok4?> L @@=A@@L? ??}}p@???[___o  <8 }00p04 <62oooooo嗷w===55USUT[SO?B<Ϣb"=}}}}____UUUU_UUUUUw]wwwwwww}UUUUUUUUUUUUUWT?}Օ11W?????? 330 =5??U__}?OSS? __YUU}UUEVUեUUU | ==33333331#3311554 </P}?0__?____UW_=UUUT??}? =??~~^^^W_W%}]__}/Oss330033331100011540 8:@UUWG__{00  ????3}??UUW__<?OO?3?}O}??\?=UUW_}<|??0 00}UV???U@T@}C_?_0}0}oxT@}?}రరరn}`o`𰰿}{}'{+}{ }ppp }  +~ర}ర/} N   }  !! }      .  }  !. }+   .   +  } !        +      N  }          ..    }        . }.     . "D@@}t}&f"U"U fbD"Hf"b "B B .}DPBK/@@DDDH"}e"!W?}"Ut"U"f !""" }BKOO@ B?@@DK"}fjDfUf bYbtH"UU /QUUTUU_WWEuUUUf@P^WUUU~W}"GMGEGIF wgg}jCCCAAvYVBH MAwUffAaPt@@*7W(PTpVYYf}YfYUeUUVUVUUYeUnfYVUUUefUVYVYVUnVYV[f[VYWUeeYzt\fUU""V""f f @}' '%&wCÃVf  0 if*PX|}(( #!UTC 0 YfYffUUwݷtQTjUUWuUUw{wUfVYUeennYnfVUUQEQuuUUVXUU}UUj .?3_TdeYeY  }%'7?gUw   츨dTTTADPBK:f D@ prB*)U] f]W AP}&YUU*fUUe fUw/AQ꺪_B?4A` .f?`TUUp A"}BJ &YUdUB fU HaPt@@ *.;/?7w   wUjFtPw}]w@P@ " &wwuAAEVvUu?; ʊfWftYf fUUw?`TT]wA &jBq}Mûw]UUñEEEAf;b@  "(E*fff?f} * GwUfUndB KGMqqQAFA33ꪦeUI͉eee }fIFFbscYfOOObTeeeUg7  fU]u]wj`SCCA eYjYjIBwUGAB]w}w\pЂff !}@P#0 wUfjq? @1@EEFFUfDDAAOMGE"}ss ""VfjGGjjfYeYAFwⳢb* *;/?7UVf#} jjYfewUUfbPRw )UWw`pC?||w_w]E   fcbQRQQ$}@Tffn@TUssssbr9:ʒUfn@QVYe橥UQEQEssssbsbbj%}FFFFNFNUYeYUUEAEMM꺪fUUUVVVVWVW*& fUUU::WWwǪUfj 5 ]w_UUU&}ufZjjZf%&l\\\wUfsQawUwUfqqAFFAQjfUDdTDWUDuUUD+!@]5wUYVfssQS`sT)}jTDnjEfUD@@@@@0 U 0 Uf/?fUUfUUUffTPC B D*}7# jVUUw=@Rd @ 07 CwU BUYVjF?wUYPwUe&ⰨdD 0fU&Afj/AaT+}` fw CU@`  wUY& fUUp ,}A *U`<@<0(Q33@*"@@ 0 -}PC 0A?? #! wWUeYfcQPt@@@; ,fTwU@j@ @# .}@/}(@70000}1}2}P=UPuuYhjj ^{fUuha 3}4}5}`PX6}|@@`PX|@7}`PX|@???@@???8}`XU@UUUUUUUUi|lU_U% `TUU_U@@UUUUUUUUi|lj9}@@PUUUUUUUUj~oU_UzW| **jkU_UUUUUZUTX\lTUUUUUUUUj~oU_U:}oV_Zo}u}o_[U_U @`TZo}u}o_[U_U `VUU_Up kjPUUU;}UVW[oUUVW[o}u}hUUUUU^^TTdxUVW[o}u}hUUUUU^^XTdxUVW[o}u}jUUUWT<}TX\ljjUUUWTTX\lUVW[o}u}jUUUWVW[_noUUUUUUWVUY^o=}oUUUUUUWVUY^o**)'/./oUUU@%%)%UUVW[ooVUUUhTX %V[[^nmyhoVU>}UUhTX %V[[^nmyh@oVUUUjV[V@oVUUU&;zU_UVoVUUU?}zU_UV%9.^UW~VVW[[^moVVW[[^m Zխ@}j@@@U`mmmuUUUV[^mx[UUj@@mmmuUUUV[^mx^UU5 T^z^@mmmuUUUV[^my[A}UU@UV[n kU d@@|mmmuUUUV[^my[UU@@@@-5UUVW[^nmB}okUokUUUVZUn>@jwl|C}jwl|[nn[VUXTTTTljwoV[nn[VUUhD}訨\jwo:6')**m嵕UUUV[nn[VUUjꪪ^V[nn[VUUjꪪ^E}oiUn[VUWXXTTUn[VUWXXTTUV[o}l|hUF}n[VUWVVUUAUUV[_oX|ظUn[VUWVVUUAUUV[_oX|ظUn[VUWAkkow_)>G}UUUyUUV[_o[}ڻUUV[_o[}ڻ)>UUUy@@/VgnkV^{mm{^UTTTXlH}TV^{mm{^UTTTXlTkgyTTTXTXhhV^{mm{^UUUUZoUnnUUUZ^TTTXTXhV^{mm{^UUUUZoUnnI}UUUZPTTXP`V^{mm{^UUUUZoUvjZ^UUUVUVZjjꫭ^o[VUUYnUUUVUVZJ}o[VUUYnUUUVUVZjjꫭ^[[nUUUV}jj먬UUUVTXP`T`UUUVTXP`T`UUVXK}P`@XUUUVTXP`V`UUUVTXP`V`UUUVTXP`V`L}UX`UUUVTXP`V`UUUVTXP`V`UX`@M}ddddddLLLddddldNNFFN}|dd}|?<<<<<͝<<5<<<<SCRE-1ADC #0STA ZP2+1LDY #0LDA (ZP),YSTA ILE+1.Q4 LDY #1LDA (ZP),YCMP #$FF a}BEQ EX.ILE LDY #$EE.Q1 LDA (ZP),YSTA (ZP2),YDEYBNE Q1LDA ZP2CLCADC #40STA ZP2BCC Q2INC ZP2+1.Q2 LDA ZPC b}LCADC ILE+1STA ZPBCC Q3INC ZP+1.Q3 JMP Q4.EX RTS.KEY LDA #$FFSTA 764.S1 LDA 764CMP #$FFBEQ S1.CLIK LDY c} #$40.CIL STY $D01FDEYBNE CILRTS.WAIT LDA $D40BCMP #116BNE WAITRTS.CLOSELDX #$10LDA #12STA $342,XJSR CIOVLDA d} #3STA $D20FTYABMI ERRORRTS.ERRORCPY #170BEQ FNFTYALSR A LSR ALSR ALSR ACMP #$ABCC ZCLCADC #$7 .Z C }88888||088888888888l 0 f} |888888|||||00ap<3s<88g}888|||8888888q}BQA_BIG BASB5CONV ASMBi=CONV BIGBQkPIC12 BQPIC13 BQ PIC2 B eSFC FNTwSFC BIGBQKOALA1 B@RYS BQUKOALA2 QKOALA3 TCPC COM@)PIC04 TCPC DOCyNIC ||||888888||88||8800r}x 8888888|||0 888888888888l8| 0|s}00000000|8x888|||<|>|||~00SCRSTA ZPSTX ZP+1LDx}Y #0LDX #3TYA.L STA (ZP),YDEYBNE LINC ZP+1DEXBNE LLDY #39LDA #$3E.LL STA SCR,YSTA SCR+200,YDEYBPL LLLDy}A #$54STA 712STA 710LDA #$ASTA 709LDA #DLSTA $230STX $231LDA #>FNTSTA 756LDA #$22STA 559LDA #TX1JSR PISLDA #SCR+2+40JSR PISZLDA #TX2JSR PISLDA #SCR+92+40JSR PISZ{}LDX #$FFSTX $D301LDA PORTBSTA $D301STA $40FFSTX $D301CMP $40FFBNE XELDA #TX3JSR PISLDA #SCR+244JSR PISZLDA #TX4JSR PISLDA #SCR+328JSR PISZJSR PISZJSR KEYJMP QUIT.XELDA #T_LOAJSR PISLDA #SCR+240JSR PISZLDY #0STY POZINY STY IN.LO JSR KEYCMP #40 ;RBEQ~} LRAMCMP #58 ;DBNE LO JMP LDYS;; LOAD RAMDYSK ;;;.LRAM JSR CLEA LDA #TX5JSR PISLDA #SCR+246JSR PISZJSR TABELAJSR WAITLDA #0STA STRSTA PSTRLDA PORTBSTA $D301LDY #>$4100LDX #$3FJSR KAWOL}DA PORTB+1STA $D301JSR KAWALDA PORTB+2STA $D301JSR KAWALDA PORTB+3STA $D301LDX #$10JSR KAWMLDA #$D8STA STRLDX }#$28JSR KAWPLDA PSTRCMP #12 BCS OKB JSR CLEALDA #NSTJSR PISLDA #SCR+240JSR PISZJSR KEY}JSR CLEAJMP XE .OKBJMP DALEJ.KAWA LDX #$40.KAWM LDY #>$4000.KAWO LDA #0 STA ADRSTY ADR+1.KAWP STX LICZ.JES1 LD}Y #0LDA (ADR),Y.JES CMP (ADR),YBNE NICDEY BNE JESLDY PSTRSTA ZAWAR,YLDA STRCMP #$CBCS YES CMP #5BEQ YESCMP #6B}NE NIC.YESSTA STRONY,YINC PSTR.NICLDA STRAND #$3BNE NIC2JSR WAITJSR PASEKJSR PASEK.NIC2INC STRINC ADR+1DEC LI}CZBNE JES1RTS;; LOAD DISK ;;;;;;.LDYSJSR CLEALDA #WLJSR PISLDA #SCR+243JSR PISZJSR KEYJ}SR CLEAJSR TABELAJSR PASEKLDA #$E3STA $D301LDY #0 ;SEC=$04STY $30B ;POR=$E3STY $304 ;BUF=$4000INYSTY }$301LDA #4STA $30ALDA #$52STA $302 LDA #$40STA $305.ER JSR $E453BMI ERINC $305LDA #6STA $30A.ER2 JSR $E4}53BMI ER2.DALEJJMP DALEJ.QUITRTS.CLEA JSR WAITLDY #0TYA.S1 STA SCR+240,YINYBNE S1RTS.TABELALDX #$3DSTX }SCR+243+80LDY #31LDA #$3E.S2 STA SCR+244+80,YSTA SCR+244+200,YDEYBPL S2LDA #$3FSTA SCR+276+80LDA #$7DSTA SCR+243+}200LDA #$7FSTA SCR+276+200LDA #$F STA SCR+276+120STA SCR+276+160LDA #$4FSTA SCR+243+120STA SCR+243+160RTS.PASEKLD}A ININC INCMP #3BNE S4LDA #0STA INLDY POZCPY #31BEQ S5INC POZSTA SCR+244+120,YSTA SCR+244+160,Y.S4 LDY IN LDA }DATA,YLDY #7.S3 STA $80D8,YDEYBPL S3LDY POZLDA #$1BSTA SCR+244+120,YSTA SCR+244+160,Y.S5 RTS.PISSTA O+1STX O}+2 RTS.PISZSTA ZPSTX ZP+1LDX #0.O LDA TX1,XBMI EXITLDY #0CMP #$20BCS OKORA #$40.OK STA (ZP),YLDY #40EOR #!}LCADC #$10STA ERR+24TYAAND #$FCMP #$ABCC ZZCLCADC #7.ZZ CLCADC #$10STA ERR+25LDA #0STA HOWLDA # }ERRLDY #$D7+40.KF JSR OKNOJSR CLOSEJSR KEY JSR CLSJMP FILE.FNF LDA #FNLLDY #$D5+40JMP KF.CLS JSR } WAITLDY #0TYA.CL1 STA SCRE+$000,YSTA SCRE+$100,YINYBNE CL1RTS.CLR LDA #>OBRSTA ZP+1LDA #OK5LDY #6JSR OKNOLDA #2STA MAXLDA #SCRE+47LDY #15JSR PYTCMP #$FFBNE WW1JSR CLSJMP PETL.WW1 C }MP #0BEQ STARTCMP #2BNE LL JMP CHANG.LL JMP AUTO.START LDA HOWBNE NSIJMP NST.NSI PHA JSR CLRLDA #
DLSTA $230STX $231LDA #BUF+2STA AD1STX AD1+1LDA #OBRSTA AD2STX AD2+1PLACMP #1BEQ NST }1LDX #31.HIPP LDY #0.HIP LDA (AD1),YSTA (AD2),YDEYBNE HIPINC AD1+1INC AD2+1LDY #$A0.HIL NOPDEYBNE HILJSR CLIK }DEXBNE HIPPLDY #63.HIJ LDA (AD1),YSTA (AD2),YDEYBPL HIJJMP NST.NST1 LDA #0STA Y.WW6 LDA #0STA X.WW5 LDX }#7LDY #0.WW2 LDA (AD1),YSTA (AD2),YLDA AD2CLCADC #40STA AD2BCC WW3 INC AD2+1.WW3 LDA AD1CLCADC #1STA AD }1BCC WW4INC AD1+1.WW4DEXBPL WW2LDA AD2SECSBC #<320-1STA AD2LDA AD2+1SBC #>320-1STA AD2+1INC XLDA XCMP #40BN }E WW5LDA AD2CLC ADC #<280STA AD2LDA AD2+1ADC #>280STA AD2+1JSR CLIK INC YLDA YCMP #25BNE WW6.NST JSR CLS J }MP PETL.JOYS LDA TYKBEQ TIKCMP #2BEQ CZALDA #20-4BNE CZAO.CZA LDA #4.CZAO CLCADC 20CMP 20BNE *-2.TIKJ LDA #2 }BNE TIKM.TIK LDA #1 .TIKM RTS.BITS STA UU+1LDA CHLASL AASL A.UU ADC #0TAYLDA CHGN,YRTS.M320LDA YDTAYASL }AASL AASL AASL AASL AASL A STA AD1TYA LSR A LSR A CLC ADC YDSTA AD1+1LDA AD1CLCADC #OBRSTA AD1+1LDA AD1CLCADC XDSTA AD1LDA AD1+1ADC #0 STA AD1+1LDA AD1STA AD2LDA AD }1+1STA AD2+1LDX #0LDY #0.FF1 LDA (AD2),YSTA BAJTY,XLDA AD2 CLC ADC #40STA AD2LDA AD2+1ADC #0STA AD2+1INX CPX } #8BNE FF1LDA AD1STA AD2LDA AD1+1STA AD2+1RTS.ZACZ LDY #0STY LICO+1.LICO LDY #0LDA BAJTY,YTAXAND #$C0LSR ALS }R ALSR ALSR ALSR ALSR AJSR BITSASL AASL AASL AASL AASL AASL ASTA B1+1TXAAND #$30LSR ALSR ALSR ALSR AJSR BI }TSASL AASL AASL AASL ASTA B2+1TXAAND #$CLSR ALSR AJSR BITS ASL AASL ASTA B3+1TXAAND #$3JSR BITSCLC.B1 ADC } #0.B2 ADC #0.B3 ADC #0LDY #0STA (AD1),YLDA AD1CLCADC #40STA AD1LDA AD1+1ADC #0STA AD1+1INC LICO+1LDA LIC }O+1CMP #8 BNE LICO RTS.RET ; MNOZENIE PRZEZ 320 ;JSR M320LDY #0STY CHL.ZAC JSR ZACZLDA #255STA 764.V2 }%}"" @Ȉ"D@%}&fUUfbtD"fb"!""""" H%}H" B"eWUUf! Bٙ.K@%}"?" @}tBD/ PDDD%}Bfb @DKfjUYtH@ "fb"/_uP%}DUWU^B@ UUWK@TWUU%}O?UUfU~OUQUEՙUW"GwCBw*eUUnVWȈ%}MM݄YUUYf""GgCHUA(fVnUVVUzU@EAaYUY[UVffGg%}Cv fP@PfUUfeVfeIAY @7TYUYYY["" FjAV ftpVUVeVfVVet %}WYUUYY\'C *X UwUwUnVuUT V 0|#T YU޹Uϔ' !%}fW{enUuU?df ƻC޻YUϔ%   ftuwfnUUj3e (0YQ%}UݙQU_Y& i(fUTUUVefEV ew fPUjYQX.Y Af%}`" %gDĀ  ?BBUP*P* J H'w B)/4.%} dKDW&ffЫ`p&dfa7 TpY_ATYP@T:@BUf AUUeUAU U%}UUt@? T r]]UUwQBf?UA * uffYf`ABfbEffff.]&ݺ?fUT @%}; ww Wt UT&qA /"wV;]л? j@@ݻAv wwjMwE %} ݙwUߪ];"7wwFtPAu?UEUP EUE(*? Ud %}IeIYOTfjAI]ffq?*AFfe7 BGwPw  nBFeO U`Ц@#@@wA%}Fe]SeA}0U1U KqeOuCYՉ f 3be]jBwfGGqefsb%}UwCYw\ͪMQ3Uͩcg jUp jEUDO"Vj*Uߒ| EDϢ" Vj%}wb pcFfAMfj*ݐ)C| G⪋;fjUP bFAsjGf/YU%}w QEѪY? fURW?_RsGeA`w fQ ѻYFwb7efww]E%}Q@ϚϒsFUAV*:WU Ufws<<@TêˣU@sjFYEVªUZ@TfUsϒQYUsFeMV&:WɺfUjlUQwwQ%}sˣfVeQsFYV]՘\VfnsΣEbNUMfWfwj wuj%\fagwgsnQsFUUVUߨ5_Zݩfb%}9γEbUWUf&\fger:󮮥bNEU UݰYnUU%MUwG= ݋M wq+wseUw G%}U*݇7w*KV.UjWuӪnfUMU UG= U M wqUUswwOU"Y%U*KE.UAfdUUYQjjffV]NJe%}G8KW;fF!@VSsKsP.)Dff #&BD>FUTDDTEUDD̈CSwA8*B fTA]f`s" P*QપP%}l&UBDߪQDD5TDD@@0UUϰUfBDj@?fA  ff7R@7wwDUfa ݘ@@ T V F%}&TwfƪPUd0CwUUUj@U@®ffCUUYY` UU 0 #ݠVPeAf%}C Y /UU w d `&p?UU= Bj&0/wU Q* P?;fwj%}A`@CA?w U*<3@  ݁T@@# <03@00Wc,@ %}U(@" UQ@#eP@!Y@%} ft@70%}00%}(@%}P fhh^UP{uauj݃%}=՛ uj%}UY%}%}`%}``PPPXXX|%}||?@?@@@@`%}??X?@?U@UiU`Ui@UjUUUTUjUZUZU`jUUUTUjUjUX%}UooVUVUUUڪU媬U\U}@}UkUWUU@U@UUlUu`uUᅰ[U_@UڀU_z| _U_o%}}_ڰ}_poUUUUUWkUUUV_oUoUڪU|%_U|U~*ZU~_ _ _ PUl UUlPUo*UTUo[T%}[U UUhUTUhUXUjUTjjUTUjUVoUVoUVo@UVUTVUTVUTUTVUWUUUU*UWUdWUdWUXUXWU[UYUY%}*V[Ux[Ux[\\[_^^)Հ%WoUoUollonoo'Հ%[}}}}UU/U)o%}u^u^uuUU.U%}^}^}WW}WUWUW/Uoh[hoh[hojooVoVZ@VT[%}VT[VVVVVV@U^U^UUzUz^WWUnUnUUUUUU[[@UmUm%}UU_U_W[[ y y%~^^X%X%[&9mm V吻V@V@%};UVUV.jU`mU[j@mU^mU[@UkdmU[UokokUZnmVmVTmVVmV@UU@m[m[^m[[@%}m[@VVu^Uu^Uz@u^Un@u^U@WmU@mU뀵mU UmU@-[Uxx5y y%}5^UUUU UUnUU^U|Um>jljl[XjoVhjomVj%}Vjo||nT[:[[ۼۼTۿnۿ6nnwwTwnwnn%}nT['[[[V\)UV^V^iVU*UUU%}UlU*UUUUXUXUlUVUXUVUXUUU[U[U@VXXV|VUVUo)UUU)U@gT%}T[UVUV>UVV>UnTnTonU[nU[n[[[[}[_|[_|[_}_}VVh%}VoVoVooUUUUUkwyy/nWWWAWAWAk_启kVTVTkTVUnZT%}VUnZTVUZUjoUoUj[Vj^T^TT^UnT^UnT^UUj[U[Uj[}j{T{TT{UT{UX{UvUVUVUnmXmXXmZXmZP%}mZVUVUVmlmlTmoTmo`mojUUUUU{{X{UX{U{VYVYVU^^gh^Uh^U^Z%}^nZnZ^UUTUTyhUUU^UUUPUU^UUTUTUXUVUVUVUUVUVU@U`U`UU`U`U`XU`%}U`XUUVUUU`UU`VVXVVVVVTTPTTTTT%}XX`XXXXXPP@PPPPP```````$} LDA 764CMP #255BNE V1LDA $278CMP #15BNE V4LDA $284BNE V2JSR CLIKLDA $284BEQ *-3BNE V3.V4 JSR CLIKJMP JOY }.V1 JSR CLIKCMP #12BNE WYMU.V3 LDA AD2STA AD1LDA AD2+1STA AD1+1INC CHLLDA CHLCMP #6BEQ VV1 JMP ZAC.VV1 LDA } #0STA CHLJMP ZAC.IDZ LDA #0 STA $D003JSR CLSJMP PETL.CHANGLDA #DLSTA $230STX $231.IOPP JSR POKAZ }.IOPI LDA #$FFSTA 764.IOP LDX $278CPX #$FBNE JOYLDA #0STA TYKLDA $284BNE VV2JSR CLIKLDA $284BEQ *-3JMP RET.V }V2LDA 764CMP #255BEQ IOP JSR CLIK.WYMU CMP #$1CBEQ IDZCMP #15BEQ DULCMP #14BEQ GORCMP #7BEQ PRACMP #6BEQ LEWC }MP #12BNE IOPIJMP RET .JOY JSR JOYSSTA TYKLDX $278CPX #15BEQ IOPIJSR CLIKCPX #$7BEQ PRACPX #14BEQ GORCPX #11 }BEQ LEWCPX #13BEQ DULCPX #7BEQ PRACPX #6BEQ PGCPX #5BEQ PDCPX #9BEQ LDBNE LG.GOR JSR GO.BZIK BNE IOPPBEQ IOP }I.DUL JSR DUJMP BZIK.PRA JSR PRJMP BZIK.LEW JSR LEJMP BZIK.PG JSR GOJSR PRJMP IOPP.PD JSR DUJSR PRJMP IOPP }.LG JSR GOJSR LEJMP IOPP.LD JSR DUJSR LEJMP IOPP.GO LDA YDBEQ RTKDEC YDLDA #1RTS .DU LDA YDCMP #24BEQ }RTK INC YD.RTK RTS.PR LDA XDCMP #39BEQ RTK INC XDBNE RTK.LE LDA XDBEQ RTK DEC XDLDA #1 RTS.AUTOLDA #
DLSTA $230STX $231LDA #BUF+9002+16STA ADDSTX ADD+1LDA #SCRESTA AD1STX AD1+1LD }X #4LDY #0.AUT9 LDA (ADD),YAND #$FSTA (AD1),YDEYBNE AUT9INC ADD+1INC AD1+1DEXBNE AUT9LDA #BUF+ }9002+16STA ADDSTX ADD+1LDA XDPHALDA YDPHALDA #0 STA XDSTA YD .AUT1 LDY XDLDA (ADD),YAND #$FTAYLDX JAKOSC,YS }TX CHLJSR M320JSR ZACZ INC XDLDA XDCMP #40BNE AUT1JSR CLIKLDA #0STA XDLDA ADDCLCADC #40STA ADDBCC AUT2INC A }DD+1.AUT2INC YDLDA YDCMP #25BNE AUT1PLASTA YDPLASTA XDJMP PETL.POKAZJSR WAITLDY #$7FLDA #$0.MKK STA DUCH,Y }DEYBPL MKKLDA YDASL AASL ACLCADC #$E TAYLDA #$FCSTA DUCH,YINYLDX #4LDA #$84.MK STA DUCH,YINYDEXBNE MKLDA } #$FCSTA DUCH,YLDA XDASL AASL ACLC ADC #$2FSTA $D003RTS.CLEARLDY #0TYA.LOOP STA SCRE+$000,YSTA SCRE+$100,YSTA } SCRE+$200,YSTA SCRE+$300,YSTA SCRE+$400,YINYBNE LOOPRTS.DLIPHALDA #DLI2STA $201LDA #$36STA } $D40ASTA $D016LDA #$3ASTA $D017LDA #$3FSTA $D018LDA #$0STA $D01APLARTI.DLI2 PHA LDA # }DLISTA $201LDA #$ASTA $D40ASTA $D017LDA #$C4STA $D018PLARTI.WIERSZ LDA #255STA 764LDY #0.TK2 LDA (ZP), }YBEQ TK1INYCPY #3+8+4BNE TK2.TK1 LDA #$80STA (ZP),YSTY L_L.DA8 JSR $F302JSR CLIKCMP #$9BBEQ FUSCMP #$7EBEQ }FUSCMP #27BEQ FUSAND #$7FJSR SPRBMI DA8.J2 PHALDY #15.J1 LDA #$20STA NAME,YLDA #0STA (ZP),YSTA INPU,YSTA I }NPL,YDEYBNE J1STA L_LLDA #$80STA (ZP),YPLAJMP FUS.TK JSR $F302JSR CLIK.FUS CMP #$9B ; * RET.BNE NOT } ;;;;;;;LDY L_LSTA NAME,YJSR CLOSELDX #$10LDA #4STA $34A,XLDA #3STA $342,XLDY #$3A ; DWUKR.CPY NAME+1 }BEQ SETICPY NAME+2BEQ SETILDA #0.SETI CLCRTS.NOT AND #$7F ;;;;;;;;;;;;;JSR SPRBPL TIKLJMP TK.TIKL CPY #27 BN }E DALJSR CLSJMP FILE.DAL CMP #$7EBNE DAL1LDY L_LBEQ TKOLDA #0STA INPU,YSTA INPL,YSTA INPU-1,YSTA INPL-1,YSTA (ZP }),YSTA NAME-1,YDEYSTY L_LLDA #$80STA (ZP),YBNE TKO.DAL1 LDY L_L ;ASCII-INTSTA NAME,YTAYROL AROL AROL AROL } AAND #3TAXTYAAND #$9FORA AINC,XLDY L_LSTA (ZP),YSTA INPU,YSTA INPL,YCPY #3+8+4BCS N1INYSTY L_L.N1 LDA #$80 }STA (ZP),Y.TKO JMP TK.PRZ LDA #$0 STA 707EOR #$FF STA PRZ+1BNE PRZ2LDA #1JMP PEZ.PRZ2 LDA #2.PEZ STA $26FLD }A #30STA $21ARTS.TAB1 ,1,11,21,31.JAKOSC,5,5,4,3,5,5,4,5,2,4,3,2,4,3,5,1 ; ; ; ; 5 ;;0,1,2,3,4,5,6 },7,8,9,A,B,C,D,E,F; ! " # $ % & ' ( ) * + , - . /.CHGN ,0,3,2,1,0,3,1,2,0,2,1,3,0,2,3,1,0,1,3,2,0,1,2,3.CHL ,0.B }AJTY ,0,0,0,0,0,0,0,0*=$B000%=*.SCRE /.CHGN ,0,3,2,1,0,3,1,2,0,2,1,3,0,2,3,1,0,1,3,2,0,1,2,3.CHL ,0.B2@  "*"~zjMM UUUUUUUUUUUUUUUU%%%%%%%%UUUUUUUUUUUUUUUTRRRRRRRR"}TTTTTTTTUUUUUUUUIIIIIIIIUUUUUUUUTTTTTTTTRRRJJJJJ"}??????TTTTTTTT 訪"000 ><*ϝ+RԖVU%ƪ"}UUUUUUUU%%%%%%%%UUUUUUUUTTTTTPAEUQAUUUTUETUUUQEUEEEQQEUUUUUUUUUUUPE(hIHPZjU"}EYZTTUUUUUUUUUUIIIIIIIIUUUUUUUUTTTTTTTT?????TTTTTTTT /%Zjj" }j0 ??=1????~{VeƆƪ%%%%%%$ TPQEUUUUUUUUTTUUEUQTUEUUUEUEQE" }B*QQѥTFjfJjZZZ[jn^OJKKזՕEEQUUUUUUUUIIIIIIIIUUUUUUUUTTTTTTTT" }??TTTTTTTT003 ">3V*Y" }K KUUUUUUUU!!!UUUUUUUTQUQDUUUTEUQUUUDTQUTQISUhdPR~jhX j&J" }G.@@BQD NviAE@UUUUIIIIIIIIUUUUUUUUTTTTTTTT"}C~{Օ:Ƞ ???>ꪪۛKFUUUUUUUUUUUUUUTUUUUUUUUTUUUDTE"}UUEM QRQRTQfjꪪ~MM]Ed9i餠 E!TP$TPUII APP"}TTTTTTTT?TTTTTTTT@/Ue ?0 00 3 3"}jjjjQ MUUUUUUUUTUUUDQUTQTQUUTEUUUUQTUQTUQ****U"}QQTTTUUTRRQRUV$QIA@@@@E ?"}耂 0>?O??333 %jM UUUUUUUU$$$%%%QUUTEEQTUUUUDT@ >j(yin*j"}mi]洕MMMMTTTTTPUQzjheU"}@PTTTTTTTTTTTTTTTTZiꑔ000 0 0 33 ??3 ]W]W] GOφFF"}UUUUUUUU////////PQAFFQQjꪩ@Uj&W~kfyfIhZ??OPjUEQ?"}UZj뺥zUQi曛mZjiۨe@P `U$ $ !TTTTTTTTTTTTTTTTj0" }0330 33?0TA?NNNNUUUUUUUUUUUUUUUU////////UUUUTTPAPO??UU?UV@"!}?CYfjj&h䤩* ??OOj&kgjZk뾮檯뻪ڪpPf)ЪcUUUU""}UUUUTtttt d```t`TTTTTTTT﫩fUꥡdADA00? 33  ~>N3L3L)??՗W]UU"#}VXɉI UUUUUUUUUUUUUUUU%$$!FYnifVhfSf**?O?fFi($"$}??!<*iciviiePBAB &ꪦj`C#CpttttTTTTTTTTTTT"%}TTTTT pI0 3?3Pjjk /ﯿ͍MUUTTTQQQjvj*j:iꮿꮾ٪"&}faFaj&KFd`.DQOj ???OO?<?iU@ JdZf8hdA"'}A 򟟟F??<<<<<UUUUUTTTTTTTTTTTTTTTTꊢ/300 L3LLUU"(}UVUQ_]UNNNQFFFFF9f):y&)빦j䙦iiiPFI$IiJf馚kժBiO@")}TUUUUUUUTAB@tUU IIIIIIFFFFFFFF  UUUUUUUUTTTT"*}TTTTTTTTTTTT /Օ000 **)**{zkj_~MMFE"+}&* AaaF$`fbEfꚦijj몪ٿ꺙ik?YPf YjKFQɉ IUUUUUUUUP@jAPdf*@`ij"3})&a$YfJ DD@fDhji$B//?ƉSdiP %UUT&iD)J Rh "4}jfdG7STTTTTTTTTTTTTTTTT香30000003 3?20↑U"5}NNNUUUUUUUUUUUUUUUU0,//////fjEBQP F@Ф&Zf @difk:FvFdji/><<"6}ņdddA( YddbS8ZfEfIjffAjifih@$($ IUUUUUUUUTTTTTTTTTTTTTTTT'~"7}镕Uࠈ 0  <003???[kjjjj%NNNUUUUUUUUUUUUUUUU%%%%%%%%BPTTTThd$%*"8}QAffF* BZ&>mkZ$)jB@hiZWUZZidAeOO.<<<&&(fbdfnjj"9}@fjideIIII UUUUUUUUTTTTTTTTTTTTTTTTuP*w 0>0 <0333":};ﯫ[Z͍M UUUUUUUUUUUUUUUU%%%%%%%% BfQ&ij&jB@PPSOO**f I&";}ef@<<<>/ORSSRP1F<<<.OOOO4)fZ& hdfij@difAEUUUUUUUUTTTTTTTT"<}TTTTTTTTZ ?0000 0! ) * *"" }uV_UW_W]NNNNNUUUUUUUUUUUUUUUU%%%%%%%%UUUUUUUUTTT"=}TTTTTZ AAAAPeSSO???@TUUKCUT@Z8QKcb Ffi">}Z Afj ifY@iiffIjaEEUUUUUUUUTTTTTTTTTTTTTTTT* wu(fjj0 0 30 3O?"?}?~?3  :˦Ye E ˋKKK55555555TTTTTTTTRJJJRRRRZiYf"@}iiYF@@QifjUEPf@IhafmPPP@@?????FBPPTUUF&@if$ifUUEUUUUIIIIIIIIUUUUUUU"A}UTTTTTTTT>VeUQ 3003  L3L3O3?EEE<KK ////"B}////UUUUUUUUTTTTTTTTTPPRRRRRAZifjYVfYfjjjA@@eUUTPTDPA"C}UUUUUUUU UUUUUUUUIIIIIIIIUUUUUUUUTTTTTTTT  0"D}˟ɸϜ"E}ȜϟϘϟϟϜ"F}ϟϜϟϟ"G}ϘϟɘϜ"H}ϟϜϘ"I}ϟyϘx"J}ϜɘϜϟϟ"K}ϜϿ"L}뻜h )I K ol,OL;K I;K[;+K[ [ Yk kI H( K++KL "M}Y+x((K+ +! [kK\KK K(HH IYhKK [lK"N}I+KKY OKI)I[I"O} K[HHH+KkQ+KH"P} Wk K HH(h[+ (X+KL\ ( ˨ !aKkLK[ HH(8+kH"Q} IW K K)(H(hHk +{K_[{IXHHXXKKHG"R}W)K KLȫK HhHקG(H+k+ۈ+ (HH'ǨH+K |[ k[ki+ XHGhHHHK{"S}˯ ++[;KkKKK+GHI L Khx+  kkYi k+ۈX8( ۋKIL"T}˯ ++[;KkKKK+GHI L Khx+  kkYi k+ۈX8( ۋKIL @ 0>;?ᆵkkյafUU]UM\,3 33 0 3*V}00 3 33;못U0cc> 8è?0.**W}<,<3<>0030<̺̏7MMq*X}ꪪ/,/, :켬 0333;3?ﺿW^︬e i\L2L*Y}00 .. ******﫼==~gg3 3?oo[Vej>:꺪ﻮ:*:.>*^} ?wv Uff_j|*_}3 0, 03fn뮻馩|ww=3/;/3EuEuEuuꪪꫪv^V*`}|sC|cd\??>꺾/@0 *a} 3 ?>eWw_ggeV33weU3}U|3f 3̰/,w*b}fj+HxK]q]}Q]tZji:*c}*@PdX 000 0 ?;>iefVffUujU3fW3eU3f*d}ULfSp<꫚kw~~~fn{\__l\_W\w_w_ww7*e}몪뮫~wwj1]_eww]湵uUfiide  000*f}  3/UgeWffee3Lf]?L0U333fk*g}VgZg{o_?3vf뮫hhfYuYuuq|*ﻮ̳i&0̙j*h}fꮪ뺪j@@@@33 3 ??3uw3fYf}3fU3*i}fU?3UW?f]w33ev*馀``ZjV! Pfg{Tlpp"=??eVUYu~fYyu*j}qsjj릪뮻00jV 30U 0/*k}0 3 3;3?w 3uVY?UYfYfjWefGݕfWֵwᇝUUw_ww*l}PPDg\pp  """" """u3VYUt߮{iZV{wt\eeW555=͞緪kjzjjk뮻*m}00 <0 &i0@pLsO57 ;g\@>3 뮻eYUe*n}헟[j뾖UYk^PPd"("""jff*o}qwu՛fYEQPꩥTϏ*jk*U]WW_w| 0 1?~颙+TUYf@DY0|\c\3 <00*p}00 ??eefkܴ0jxj*q}2MN j驹h0 """"!f(&ffWekffn쪶:::*;661bb>66:)*?56Vc(::+++')&))* wwݕmdꨇfZkknyn0*u}L3?3?003 3?33w53uUU=fZii0*v}*;*fj*{/nGfࠠ`@t𯪪𯪪 33< 3 3wwfwjffn}}ccoc *w}???>>:W\\\ssVZgZV%jw]W"ww]榞``Xd[3?33*x} )VZ9 ^z~NOCfʪ<0 P4ꪪ*y} "**""ff&fn矟|s%嵭0j<W\?FEёёѯjkk*}ꪦY[fZkZkp2 "0::YoL}2s *}:>fffj켬麪ꪻkfj2ϲ]*}mepss>nsll\lV%ꪺlllp :9kkdYV*}UuU s\@<0::kꮻ.뮻DT*}uu?33 0;Ϧfj껻ffkk5sO 5몹ګjꪪ%*}ﻯꮺ꺪ppp@@ njZݿTQEl6Zjh?j3ü??3 30*} :.++㬬3<GVV}0 ?3 03303*}33 0>:>;>3 뾮ꪪꪪࠠplkn'꺪=??7;3*}ꦙ$UdE=h333 3??33ϼ023̀""303<3 DB fj*󰬻*}N00 3  0/,<>3 8;>?>eUwoo_*}00{onkpps]W?g}wϼ333  3333 ;33*};30000+.+*+*J ::NRtZ/ #3<0 3*} ////3 >>>Yfn몛kkkco0{j>jjiꪪ骺*}?=@@LC00 2 33333<ϼ333̿003<03!"*k*}* lotAFe 0300,< 33?+fUVk*}k{}oooo7  jj3<> ==>@ 0  3223300*} 303333 ??330.+:  Ͼ3300?3̀3 23*}32323#33033 <333??<1U?UUUU"UU3UUQUU3"UUQ*}UX蘅XX蘅XXXX*}XX踏蘘X艉ؘXό艏ؘX*}ϼ菏ՅϿ菏Յ酅؉菏酅؅*}腅_Ͽ鉉Xȅ艘菋ȇ{鉉Xxxx]xȇ鉉Xxxx艉*}Ս菏xȘ{XXxx腘ՍXxxxXՅxx؍]XXՅ蘉؅ՅX*}XXXؘ蘅՘XՍՅȅՍ荘腅؍*}迿X؍Չ蘅՘腅ȸ٘X*}XˌϿxȏXx*}    *}         *}             *}              *}          *}          *}        *}      *}      (@ 00  00 3 3 . 2h@@0V@D.}0<3< 0   ""0 C` 0? ><.}0 7= ?.}0 DZYZVPP  0 03 "!.}!( /d-y9Zfj~(*ౡ pB+-_  .}>@@| > 9:f[zf{;3Ȁ" ""<3?.}300 200   È*km0.}00 51 >ZUeiֵH pL?000  .} 99;;o~;쿯;0**+.̿3f3ᅴo00 0 .}5NC`bŠ**hXi#㰌` #020>996c<3  .}0Dā,ADд# 8"8#f ?""+0 /.} -f٦<|000!  #` @&me-w}rve0 bckxȁ04 00 ?.}00 0 3B@PE0 @>2 S>3% 0@`(PAa<0.},0∠3> > >twwwdf@ fZ^ ? >33 :<.nxvzzZ 0 ##.}33330 * ⎎ED@DXBJ1ۇ}4lmmc.gq%`S@CG00<< .8?Z0Bfj*fP& j+.}/p<kg.}ww޾zo 33<-2-~~b000 0(* ;ق1C0 0*U (+.} 0<=3 3`B T@0AP02̔Y\;N_n<|<  < .} "   :,2" @@DP595VYe_~.^vwwuwvgh|l뮺2 3 3 >"9;zrz.}j0 0/ (@*@ #3,+HXL0020<<<<$0 00@@3 .}???@p =3 (  ((*8 :(2("" @< CrH;.}罷뺬{{003 ,+< 3 :>?13zjn00 0*  ,.}## $   40D003*.* * ::3}.}  @ DL0""  "h#  08N2L>2 3<0@RB 0@@  .}?===ho`000P=7;U}DQUh0wU@PDB0@B*./-.}wߨ*0#@7=nj::;?fǀ̃$ 00 ,88> 00 $!""".}EIFJFIFEF0Jb_usP0PD<3? 3====sc̳0 ^.}Yf{fe婪fj묻 0  --0 20 @D@@:*켯3.};?A@@;>? #£谌HbbEFMNC:aaGldT8Mj.} 0    330<00  0fzjjffkn33333   .}8"<ꨠ 03?;8  ( B003̸3< 0000 3  8>.}"""sˎˎˀ**" 褤` @@P0  0033 ??#0 0 302 ??#.}33;230 000000@@  " ;찱( 3.}" 0 @@D@@0",;3˺( .}3 .̳m 0????00 2 &3o~u.~{3꺮"n⨳30030 .} 0?LST3㬫 @0 +*?8B  ,H?<00.}(("*&( @@ 2,@;@g?&v[fQfffglg[ ? 3 I啪6.}컯<3<3g0?;:Ue0xk0 +(# #@06P00 00.}0L*"꺠  (   " ! 8?ȿ30.}  30 >;;z箾fk?00 " -5ifo_\|p333 00.;罿 wwݷ_~.}`00888: 0 000  @@@PR +?@@@@ .}0"  ﻊ""h !PESC3?8; 3Ee:]ww|l888b+Z.}ii((/쳪⻮*>+00 .}000 0S###d`  @ ".*ꐁ.}@LL λo/+;ʋpp0  * 0 + .?0.}>( "33? 0000 0 033300#"xl.}  u  *.*̸ . >83 0.} 03 0 "" (" " ("""00000 3 3.}300 3>0+8  0 .}33000 3 <000?333"" Vi׻޿.}0 3 03 0  0(""*# .?몫민.}  8.}m˭t{͈p0xx222 Ϗ(03 # + +wj 3   .}3=6 @xpea ɀ(23 000 8#83.}1 9!X{{vCwv.8ꨮ (¼/2﫢* .}ꫯ{֟03" 00 me0 bh("0 003 33< <.}, 00 *.2B.}rTRFVPWvz**+?0020 33?(?'澻[nWn.} B` BO>>;,Kc~>,  .}nnxnnȸ h .} xxS:DEMO 7yxx  hl .}ȜȂyyxȜxxyxx xxxxxxxxhȜ.}xxx hh  h˜ ȸ.}Ɉ{ȼƼ  ˼  h .} ֖ϼ  hϼ ȋ ɼϼ .}       ˼   .}  (  .}xx             .}                 .}                     .}                      .}              .}              .}                .}                .}                ,p0BNN2}BAp0BB2}BA٠FMMMMMMMMMMMMMMGV$)2%#4/29BV,/!$0)## BV,/!$-)#!4!2)BV3!6%-)#!4!2)BV%8)4BGNNNN2}NNNNNNNNNNFFMMMMMGV./BV9%3BGNNNNNFFMMMMMMMMMMMMGV4hisprogramBVwaswrittingBVbyBV'5-)inBVfrom4)'(42} BVinthepastBV$%./-)!BGNNNNNNNNNNNNF FMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMGV).054&),%BVforexample$2}.!-%or))"-BGNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNF FMMMMMMMMMMMGV%22/2 BGNNNNNNNNNNNFFMMMMMMMMMMMMMMMGV&ilenotfound2}BGNNNNNNNNNNNNNNNFFMMMMMMMMMMMMMMMMGV34!24#/.6%23)/.BV!54/-!4)##(!.'%BV#(!.'%#/,/523BGNNNNNNNNNNNNNNNNF!FMMMMMMMMMMMM2}MMMMMMMMMMMMMMMMMMMGV/54054&),%BVforexample$.!-%or))"-BGNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNFD1:..2}..............@ `&),%37/2+302%&3!"/544)'(4#0)#452%#/.6%24%2ver@ԩ/ H ɩ3} Јč Ԡ РЈo { s()*/3}01X ')ҭI  Lܤ Lܤ ٩٢01LmLXLL 3}c cLܤ ) 1 cLܤL4LLϥ } & 1 cLmLt 3}٢ ϬiݝDiEK VL@@HIBDWE VɈL  cLܤ ٢ ϬiݝDiE3}K VL@"H'IBDWE VL  cLܤW ڢ ϬiݝDiEJK VL@@H3}I BDE VL  cLܤ~.0a{8 `*?_A[ 0;``񌘧 3}` i(L= 8(L=`LCI`񌮧iiǧ#3}i(mǧL`@Ј` t` B VҘ0` SUPER FREEZER CUTER VER.1.0. =>'),$FF.TX2('BY: GUMI IN 1994'),%}$FF.TX3('NIESTETY, TW&J KOMPUTER POSIADA'),$FF.TX4('ZBYT MA}T7?}< " 7@}D( ++7A} * *@7B}XWH@ZHUZP, 7C} , =t Pt( 5U =e 7D}p@(GUe@`(M@@u,Ư3P@u(7E},ſ0Po(0=*%̃X-@*$ˠ7F}U -_dʀZ-d V-@d;@7G}f/O*DO}>`UUVU+O DS(?XU@)H Y- 7H}W@*X U/E EU_Pa%Q0ED)EPe%A8ЏQ)U@7I}Tde%@ŹQѥ@TXY%@ tQ`ETh Tі tѦP7J}G ^*L/)\PE& >M]UZPE~&¡>t%߆iVTX7K}E_ơtiUT`Q~ʡUtT `U` Pɤt_ꘪ`eP7L}R_Մ l_`U_rUPRQ W`eWT5tUDRe@*_`U_*UV7M}S"eW T UTV i]P%VU@WeWUU)VUUW7N}"")U<%ZUUUTjWUWtJVUUU*)]UUT7R}*wfebU@UUTT.UUUU`WPU\D. UUUbUT"Z@U**7S}WUUU`W U\U}DEUT. UU]bUTUSUEUUU*f(UU_}`U VSUU]EUUT.*" UQW7T}b]T %C]}EUUQ*VjjUVTa_֠WQU@U]UUT*UUW%WZwT Wu@UJUUU*UV@WXUU%7U}UU*VBUUDUU`&W`uD%WUT bUQUVh@]`UP%UURUP%DDU`&]`D%UURUU7V}%b(UV P]5UURUU% Z=Ѐ&U@UUIuU%` e֪G$UUUIIb7W}ZG\%U@ UUJIiN܀U*UUJUUuI ZN܀%V%UUJeUR 7X}VjN܀V@ )UUJUuR Z WEܠ-V *"%UUJVU]R VPV UUNYUT` U7Y}=p-UT UUNUZUԠ ` fUT u]OUjUT` U -UUXP JUUҪAԠ`:V7Z}UUX P +BR(u *Z-X BfR] YfU""P@(} **Z"*7[}/h"P (*jV "@@*Z"*%`"P *%jUj=`7\}"D%W `"? _ f)U`X􊖨@U+jj*#U`b7]}S WjjUUB83ZU*j""*UYH|`5j]tfjjUi}Dզ7^}U*jY "*eYwujU}ZUUjj Vic՚@*jUYUUgU%U@7_}eYwV(`]usUjU@(UU `UUsY UPufPUUtbUe"UP"UY7`}Ytg Tt Uj UtbUP* %\"U)Yb ] Uj7a}VDbWU *iHb ~@Ub*U7b}*c?Ј U  cP ,t"(U""m+] V7c}Lm+}" 7d} ( ( * ( (( ((( ( (((*( (* ((7e} (*( * ((  7f} ( ( ( * 7g}  *(  (( (* 7h} (*( 4} na ATARI- SAVE PIC ATARI - zapis obrazka ATARI- EXIT - bardzo ciekawa opcja.2. WORKS- START CONVERSI;j}ON - konwersja obrazka- AUTOMATIC CHANGE - konwersja obrazka z ewentualnym po- pra;k}wieniem lub do- branim koloru da- nego obrazka. UWAGA! - ta opcja dzia a tylko je;l}eli obrazek zosta wczytany z komodorwskiego pliku.- CHANGE COLOURS - opcja ta s uy do ;m} poprawiania b dw lub dobraniu kolorw w danym obrazku. Do- k;n}onuje si tego przy pomocy ma ego okie- nka, ktrym porusza- my si ;o}po ekranie klawiszami kursora i RETURN'em lub JOYSTICKIEM i FIRE.3;p}. PREFS4. ABOUT- informacja na miejscu. CREDITS: Program : Micha Franczak Logo : Mariusz Krawiec Fonty ;q} : Commodore 128 Instrukcja : Mariusz Krawiec TTTTTT IIII GGGGG HH HH TTTTTT TT II GG HH HH TT TT;r} II GG GG HHHHH TT TT II GG GG HH HH TT TT IIII GGGGG HH HH TT PODZIKOWANIA DLA: JAGER SOFTMIX;s} BAC SHANGO (C128) BIK STANLEY/STAN-BIT ;t} LASER ELECTRON JASKIER SEBAN ;u}ROBOCOP MIKER ADAM BIENIAS RZG KONOP ;v} CEDY MR. WIT JORDAN TABU TL SOF;w}T SKARA SPECJALE FUCKANIE NA: SAMURAI NBP(denominacja ;x} mnie wkurza) I to tyle. BYE. B.BP(denominacja 8eTb opt %10101 org $8000scr equ $58key equ $2fczp equ $f0 *2rod?z}z equ $f2x equ $f3y equ $f4szer equ $f5wys equ $f6lin equ $f7buf equ $f8 *2nrok equ $fapom equ $fbzp2 eq?{}u $fc *2ad equ $fe *2px equ $e0py equ $e1te equ $e2****** lda #$ff ! sta nrok ! lda b?|}ufor ! sta buf ! stx buf+1 ! lda lini sta $58 stx $59 lda txto sta zp ?}} stx zp+1 ldx #4 ldy #0 tya sta pozycjah1 sta (zp),y iny bne h1 inc zp+1 dex bne h1****** ?~} jsr wait lda
dl sta $230 stx $231 lda #$a ldx #$c4 sta $2c5 stx $2c6********************?}****loo equ * jsr main lda skoh,y pha lda skol,y pha rtsskol dta l(files-1),l(work-1),l(prefs-1),l(abo?}ut-1)skoh dta h(files-1),h(work-1),h(prefs-1),h(about-1)*******about equ * ldy #0 (about) jsr open jsr getk?} jsr close jmp loowork equ * rtsprefs equ * rtsqui equ * jsr close jmp loo******files equ * ldy?} #1 jsr openll1 jsr get bmi qui lda filh,y pha lda fill,y pha rtsfill equ * dta l(dir-1),l(loac64-?}1),l(loa200-1),l(loa192-1) dta l(sav200-1),l(sav192-1),l(exit-1)filh equ * dta h(dir-1),h(loac64-1),h(loa200-1),h(loa1?}92-1) dta h(sav200-1),h(sav192-1),h(exit-1)dir equ * rtsloac64 equ * ldy #3 jsr open jsr write lda lpi sta te stx te+1 lda #19 ldx #17 ldy #9 jsr bget ldx TCPC v. 2.5< was written by:' dta d' Gumi/Tight!Lublin, 1995.'win1 dta b(01),?}b(0),b(1),b(13),b(7) dta d'Directory' dta d'Load PIC C-64' dta d'Load MIC 200' dta d'Load MIC 192' dta d'S?}ave MIC 200' dta d'Save MIC 192' dta d'Exit...'win2 dta b(2),b(12),b(7),b(3),b(2) dta d'NoYes'win3 dta b(0),b?}(5),b(8),b(31),b(2) dta d'Load file:for example: D:NAME or I:PIC.64'pli dta c'D:'lpi dta b($9b),d' ?}'**************** icl 'D8:WIND.ASM'name dta d' TIGHT C64 PICTURE CONVERTER ver.2.5 'lini dta d' Files Work! ?} Prefs About ' txto equ * org *+1000bufor equ ** equ *5 'lini dta d' Files Work! <[j