nesdev.com

//#include <snes.h>
#include "snes/console.h"
#include "snes/interrupt.h"
#include "snes/pad.h"

int main(void)
{
   consoleInit();   
   unsigned short pad0;
   
   //setMode(BG_MODE1,0);
   //bgSetDisable(1);
   //bgSetDisable(2);
   //setScreenOn();
   
   while(true)
   {
      pad0 = padsCurrent(0);
      if (pad0 & KEY_DOWN)
      {
         consoleNocashMessage("PRESSED\r\n");
      }
      else
         consoleNocashMessage("RELEASED\r\n");
      
      WaitForVBlank();
   }
   return 0;
}

;---------------------------------------------------------------------------------
; void scanPads(void)
scanPads:
   php
   phb
   phy
   
   sep   #$20                                   ; change bank address to 0
   lda.b   #$0
   pha
   plb
   
   rep   #$20                                   ; copy joy states
   ldy   pad_keys
   sty   pad_keysold
   ldy   pad_keys+2
   sty   pad_keysold+2
   
;-:   lda   REG_SLHV                                   ; wait until past lines 224,225
;   lda   REG_OPHCT
;   cmp   #224
;   beq   -
;   cmp   #225
;   beq   -

-:   lda   REG_HVBJOY                             ; wait until joypads are ready
   lsr
   bcs -

   lda   REG_JOY1L                              ; read joypad register #1
   bit   #$0F                                   ; catch non-joypad input
   beq   +                                      ; (bits 0-3 should be zero)
   lda.b   #$0
+   sta   pad_keys                               ; store 'current' state
   eor   pad_keysold                            ; compute 'down' state from bits that
   and   pad_keys                               ; have changed from 0 to 1
   sta   pad_keysrepeat                         ;

   lda   REG_JOY2L                              ; read joypad register #2
   bit   #$0F                                   ; catch non-joypad input
   beq   +                                      ; (bits 0-3 should be zero)
   lda.b   #$0
+   sta   pad_keys+2                             ; store 'current' state
   eor   pad_keysold+2                          ; compute 'down' state from bits that
   and   pad_keys+2                             ; have changed from 0 to 1
   sta   pad_keysrepeat+2                       ;

   ply
   plb
   plp
   rtl

.include "hdr.asm"
.accu 16
.index 16
.16bit
.define __main_locals 2
.section ".text_0x0" superfree
main:
.ifgr __main_locals 0
tsa
sec
sbc #__main_locals
tas
.endif
jsr.l consoleInit
__local_2:
lda.l pad_keys + 0
sta -2 + __main_locals + 1,s
and.w #1024
sta.b tcc__r0
lda.b tcc__r0 ; DON'T OPTIMIZE
bne +
brl __local_0
+
pea.w :__tccs_L.5
pea.w __tccs_L.5 + 0
jsr.l consoleNocashMessage
tsa
clc
adc #4
tas
bra __local_1
__local_0:
pea.w :__tccs_L.6
pea.w __tccs_L.6 + 0
jsr.l consoleNocashMessage
tsa
clc
adc #4
tas
__local_1:
jsr.l WaitForVBlank
bra __local_2
lda.w #0
sta.b tcc__r0
__local_3:
.ifgr __main_locals 0
tsa
clc
adc #__main_locals
tas
.endif
rtl
.ends
.ramsection "ram.data" bank $7f slot 3
__local_dummy.data dsb 1
.ends
.section ".data" superfree
__local_dummy.data: .db 0
.ends
.section ".rodata" superfree
__tccs_L.5: .db $50,$52,$45,$53,$53,$45,$44,$d,$a,$0
__tccs_L.6: .db $52,$45,$4c,$45,$41,$53,$45,$44,$d,$a,$0
.ends



.ramsection ".bss" bank $7e slot 2
__local_dummybss dsb 1
.ends

-:   lda   REG_HVBJOY                             ; wait until joypads are ready
   lsr
   bcs -

-:   lda   REG_HVBJOY                             ; wait until joypads are being read
   lsr
   bcc -

-:   lda   REG_HVBJOY                             ; wait until joypads are ready
   lsr
   bcs -