$L;LHLELLLwL} } lhd`,($ NE$%A$% 0"$)$$H hLP ,
`e$$%`
R@P1
* :.`GH`@1 ` L: CDCH hC DD CDL"LLY u$%8C C $$%%
Ym @x
B ++@ @
D:IBM2.ASM ++@ @
E:IBM2.BIG }$)@ $@2 A $)@ $"@2 @ L+6-&++!@ ,*+ A# ,,$@2 8*@ }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(((((( * * 1n} ?Od$ $`O #d i ?OO? fJ
Ih <<