Serious Magazine 7/Serious_Magazine_07_2000_Dial_pl_Side_B.atr/sstuff07.lzh/TRANSFNT.LZH/TRANSF.ASM

Assembly Source File | 1988-09-01 | 4KB | 1 lines

æÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆà¢ⁿáצσ≥Θ∩⌡≤áלβτβ·Θ∈σáⁿ¢ⁿáááááááúÃáááááááááⁿ¢ⁿááááááááááááááááááⁿ¢ⁿááק≥β∈≤ה∩∈⌠á÷õ«ãááⁿ¢ⁿπ∩Σσááלπלβ≤⌠σ≥»צצוⁿ¢ⁿááááááááááááááááááⁿ¢ⁿפרמ´áñאœããááááááááⁿ¢ÜÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆÆ⢢     opt %10101 |do pamieci¢¢buf   equ $b000¢fnt   equ $ac00¢iocb  equ $340¢cio   equ $e456¢fr0   equ $d4¢fasc  equ $d8e6¢ifp   equ $d9aa¢lbuff equ $580¢char  equ $f0¢¢ org $b400¢¢ lda #1¢ sta $2da¢ jsr init¢ ldx <tyt1¢ ldy >tyt1¢ jsr $c642¢ ldx <tyt2¢ ldy >tyt2¢ jsr $c642¢start ldx <tyt3¢ ldy >tyt3¢ jsr $c642¢ lda #$ff¢ sta $2fc¢keys2 lda $2dc¢ cmp #$11¢ bne *+5¢ jsr part2¢ lda $2fc¢ beq load¢ cmp #$ff¢ beq keys2¢ cmp #28¢ bne *+3¢ rts¢ cmp #62¢ bne keys2¢ jsr get_tex¢ lda #8¢ jsr open¢ bmi s2¢ lda #11¢ sta iocb+2,x¢ jsr block¢ bpl *+5¢s2 jsr error¢ jsr close¢ jmp start¢¢load jsr get_tex¢ lda #4¢ jsr open¢ bmi l1¢ lda #7¢ sta iocb+2,x¢ jsr block¢ bpl *+5¢l1 jsr error¢ jsr close¢ jmp start¢¢open ldx #$10¢ sta iocb+10,x¢ lda #3¢ sta iocb+2,x¢ lda <file¢ sta iocb+4,x¢ lda >file¢ sta iocb+5,x¢ jmp cio¢¢close ldx #$10¢ lda #$c¢ sta iocb+2,x¢ jmp cio¢¢block lda <fnt¢ sta iocb+4,x¢ lda >fnt¢ sta iocb+5,x¢ lda #0¢ sta iocb+8,x¢ lda #4¢ sta iocb+9,x¢ jmp cio¢¢get_tex lda #$ff¢ sta $2fc¢ ldx <tyt5¢ ldy >tyt5¢ jsr $c642¢ lda #5¢ sta iocb+2¢ lda <file¢ sta iocb+4¢ lda >file¢ sta iocb+5¢ lda #$80¢ sta iocb+8¢ jsr cio¢ ldx #0¢g1 lda file,x¢ inx¢ cmp #'*'¢ beq dir¢ cmp #$9b¢ bne g1¢ rts¢dir lda #6¢ jsr open¢d1 ldx #$10¢ lda #5¢ sta iocb+2,x¢ lda <file¢ sta iocb+4,x¢ lda >file¢ sta iocb+5,x¢ lda #$20¢ sta iocb+8,x¢ jsr cio¢ bpl d2¢ cpy #136¢ beq *+5¢ jsr error¢ jsr close¢ jmp get_tex¢d2 ldx <file¢ ldy >file¢ jsr $c642¢ jmp d1¢¢part2 lda #0¢ sta $2dc¢ lda $2f4¢ pha¢ lda $230¢ pha¢ lda $231¢ pha¢ lda >fnt¢ sta $2f4¢ lda <dl¢ sta $230¢ lda >dl¢ sta $231¢ lda <dli¢ sta $200¢ lda >dli¢ sta $201¢ lda #$c0¢ sta $d40e¢ lda #$21¢ sta $22f¢pt1 lda #$ff¢ sta $2fc¢keys lda $2fc¢ cmp #$1f¢ bne *+8¢ jsr intasc¢ jmp pt1¢ cmp #$1e¢ bne *+8¢ jsr intsxs¢ jmp pt1¢ cmp #$1a¢ beq ascint¢ cmp #$18¢ beq sxsint¢ lda $2dc¢ cmp #$11¢ bne keys¢ lda #0¢ sta $2dc¢ lda #$7f¢ sta $d40e¢ pla¢ sta $231¢ pla¢ sta $230¢ pla¢ sta $2f4¢ lda #$22¢ sta $22f¢ rts¢¢ascint jsr intasc¢ jsr intasc¢ jmp pt1¢¢sxsint jsr intsxs¢ jsr intsxs¢ jsr intsxs¢ jsr intsxs¢ jmp pt1¢¢intasc ldx #0¢ia1 lda fnt+$300,x¢ pha¢ lda fnt+$100,x¢ pha¢ lda fnt,x¢ sta fnt+$100,x¢ pla¢ sta fnt+$300,x¢ pla¢ sta fnt,x¢ inx¢ bne ia1¢ rts¢¢intsxs lda >fnt¢ sta is1+2¢ lda >fnt+$100¢ sta is3+2¢ lda >buf¢ sta is2+2¢ sta is4+2¢ ldy #1¢is5 ldx #$f¢is1 lda fnt,x¢is2 sta buf,x¢is3 lda fnt+$100,x¢is4 sta buf+$10,x¢ dex¢ bpl is1¢ clc¢ lda is2+1¢ adc #$20¢ sta is2+1¢ clc¢ lda is4+1¢ adc #$20¢ sta is4+1¢ bcc *+9¢ inc is2+2¢ inc is4+2¢ clc¢ lda is1+1¢ adc #$10¢ sta is1+1¢ sta is3+1¢ bcc is5¢ inc is1+2¢ inc is1+2¢ inc is3+2¢ inc is3+2¢ dey¢ bpl is5¢¢przep ldx #0¢prz1 lda buf,x¢ sta fnt,x¢ lda buf+$100,x¢ sta fnt+$100,x¢ lda buf+$200,x¢ sta fnt+$200,x¢ lda buf+$300,x¢ sta fnt+$300,x¢ inx¢ bne prz1¢ rts¢¢init ldx #0¢i1 txa¢ sta fntint,x¢ and #$41¢ sta char¢ txa¢ lsr @¢ lsr @¢ php¢ asl @¢ and #$1f¢ plp¢ bcc i3¢ clc¢ adc #$20¢i3 adc char¢ tay¢ txa¢ sta fntsxs,y¢ asl @¢ php¢ cmp #$c0¢ bcs i2¢ sbc #$3f¢ bcs i2¢ adc #$c0¢i2 plp¢ ror @¢ sta fntasc,x¢ inx¢ bpl i1¢ rts¢¢dli pha¢ sta $d40a¢ lda #0¢ sta $d018¢ lda #$e0¢ sta $d409¢ lda <dli2¢ sta $200¢ lda >dli2¢ sta $201¢ pla¢ rti¢¢dli2 pha¢ sta $d40a¢ lda #$84¢ sta $d018¢ lda >fnt¢ sta $d409¢ lda <dli¢ sta $200¢ lda >dli¢ sta $201¢ pla¢ rti¢¢error lda #0¢ sta fr0+1¢ sty fr0¢ jsr ifp¢ jsr fasc¢ ldx #3¢er1 lda lbuff,x¢ and #$7f¢ sta tyt4+7,x¢ dex¢ bne er1¢ ldx <tyt4¢ ldy >tyt4¢ jmp $c642¢¢dl dta d'pppp'¢ dta b($80),b($c2),a(txint),d' ⇩'¢ dta a(fntint),d'"""'¢ dta b($80),b($c2),a(txasc),d' ⇩'¢ dta a(fntasc),d'"""'¢ dta b($80),b($c2),a(txsxs),d' ⇩'¢ dta a(fntsxs),d'"""p'¢ dta b($80),b($42),a(txinf),b($82)¢ dta b($41),a(dl)¢¢tyt1  dta c'}    >>TRANSFont 1.0<<',b($9b)¢tyt2  dta c'Written for Serious by McMaster/SSG',b($9b)¢tyt3  dta c'Press L,S,Help or Esc',b($9b)¢tyt4  dta c'Error - 000²',b($9b)¢tyt5  dta c'Input ->Dev:filname.ext',b($9b)¢txint dta d'           internal             '¢txasc dta d'            atascii             '¢txsxs dta d'          16*16 edytor          '¢txinf dta d'     1) int->asc 2)int->sxs     '¢      dta d'     3) asc->int 4)sxs->int     '¢¢fntsxs equ *¢fntasc equ *+$80¢fntint equ *+$100¢file   equ *+$180¢¢ end of file¢¢¢