‘’’’’’’’’’’’’’’’’’’…›ü Óåòéïõó Íáçáúéîå ü›ü       £·         ü›ü                  ü›ü  ÔòáîóÆïîô ö±®°  ü›üãïäå  ÍãÍáóôåò¯ÓÓÇü›ü                  ü›üÒÕÎº ¤Â´°°        ü›š’’’’’’’’’’’’’’’’’’ƒ››     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›››