Outro Problemas com código em assembly (6502)

Parrez · 27 de janeiro de 2021

Ola, tudo bem? Sou acadêmico de Sistemas para Internet e estou com problemas no meu código que está sendo feito no Easy 6502 (https://skilldrick.github.io/easy6502). O objetivo é fazer um ponto na tela se mexer nas direções conforme os comandos w,a,s,d; como se fosse um joystick. Entretanto, não consegui fazer funcionar e não sei o que pode estar faltando. Desde já agradeço a atenção e espero que possam me dar uma orientação.

define pontoL     $10 
define pontoH     $11 
define pontoStart $12 
define PontoDirecao $02 
define pontoLeitura    $03 

; Direcao 
define cima      1
define direita   2
define baixo    4
define esquerda    8

; Movimentação
define ASCII_w      $77
define ASCII_a      $61
define ASCII_s      $73
define ASCII_d      $64

; Variaveis
define sysRandom    $fe
define sysLastKey   $ff


  jsr inicia
  jsr loop

inicia:
  jsr iniciaPonto
  jsr generateApplePosition
  rts


iniciaPonto:
  lda #direita  
  sta pontoDirecao


  lda #$11
  sta pontoL
  
  lda #$10
  sta pontoStart
  
  lda #$0f
  sta $14 
  
  lda #$04
  sta pontoH
  sta $13 
  sta $15 
  rts


loop:
  jsr readKeys
  jsr pintaPonto
  jsr spinWheels
  jmp loop


readKeys:
  lda sysLastKey
  cmp #ASCII_w
  beq upKey
  cmp #ASCII_d
  beq rightKey
  cmp #ASCII_s
  beq downKey
  cmp #ASCII_a
  beq leftKey
  rts
upKey:

  lda #cima
  sta pontoDirecao
  rts
rightKey:

  lda #direita
  sta pontoDirecao
  rts
downKey:

  lda #baixo
  sta pontoDirecao
  rts
leftKey:

  lda #esquerda
  sta pontoDireccao
  rts


updateloop:
  lda pontoL,x
  sta pontoStart,x
  dex
  bpl updateloop

  lda pontoDirecao
  lsr
  bcs paracima
  lsr
  bcs paradireita
  lsr
  bcs parabaixo
  lsr
  bcs paraesquerda
paracima:
  lda pontoL
  sec
  sbc #$20
  sta pontoL
  bcc cimacima
  rts
cimacima:
  dec pontoH
  lda #$1
  cmp pontoH
  beq bate
  rts
paradireita:
  inc pontoL
  lda #$1f
  bit pontoL
  beq bate
  rts
parabaixo:
  lda pontoL
  clc
  adc #$20
  sta pontoL
  bcs baixobaixo
  rts
baixobaixo:
  inc pontoH
  lda #$6
  cmp pontoH
  beq bate
  rts
paraesquerda:
  dec pontoL
  lda pontoL
  and #$1f
  cmp #$1f
  beq bate
  rts
bate:
  jmp fim


pintaPonto:
  ldx pontoLeitura
  lda #0
  sta (pontoL,x) 

  ldx #0
  lda #1
  sta (pontoL,x) 
  rts


spinWheels:
  ldx #0
spinloop:
  nop
  nop
  dex
  bne spinloop
  rts


fim: