Codice:
trasf_coord
LDA $59
CLC
ROR
CLC
ROL
TAX
INX
LDA tabella_row,X
STA posizione_schermo
STA posizione_colore
LDA tabella_row+1,X
ADC #$04
STA posizione_schermo+1
ADC #$D4
STA posizione_colore+1
LDA $58
CLC
ROR
STA $5A
LDA posizione_schermo
CLC
ADC $5A
BCC trasf_coord1
LDY posizione_schermo+1
INY
STY posizione_schermo+1
trasf_coord1
STA posizione_schermo
; Stessa cosa per il colore
LDA $58
CLC
ROR
STA $5A
LDA posizione_colore
CLC
ADC $5A
BCC trasf_coord2
LDY posizione_colore+1
INY
STY posizione_colore+1
trasf_coord2
STA posizione_colore
RTS
tabella_row
.byte $00,$00, $00,$28, $00,$50, $00,$78, $00,$A0, $00,$C8, $00,$F0, $01,$18, $01,$40, $01,$68, $01,$90, $01,$B8, $01,$E0
.byte $02,$08, $02,$30, $02,$58, $02,$80, $02,$A8, $02,$D0, $02,$F8, $03,$20, $03,$48, $03,$70, $03,$98, $03,$C0
posizione_schermo
.byte 0,0 ; FalegnameGeppetto sukaminchia
posizione_colore
.byte 0,0