!xpos = ($100-(5*8))/2 !ypos = ($E0-8)/2 !prop = $30 if read1($00FFD5) == $23 sa1rom !addr = $6000 !bank = $000000 else lorom !addr = $0000 !bank = $800000 endif org $00A25B autoclean jsl draw_text freecode draw_text: inc $1B91|!addr ldx.b #!ypos lda $1B91|!addr : eor #$1F : and #$18 : bne + ldx.b #$F0 + stx $00 phb : phk : plb ldx.b #$00 ldy.b #tiles-xpos-1 .loop: lda.w xpos,y : sta $0200|!addr,x lda $00 : sta $0201|!addr,x lda.w tiles,y : sta $0202|!addr,x lda.b #!prop : sta $0203|!addr,x phx txa : lsr #2 : tax stz $0420|!addr,x plx inx #4 dey : bpl .loop stz $0400|!addr lda #$03 : trb $0401|!addr plb .return: lda $15 : and #$20 rtl function x(n) = !xpos+(n*$08) xpos: db x(0),x(1),x(2),x(3),x(4) tiles: db $69,$38,$5B,$7E,$7F