Updated to use the new VIA register names

diff --git a/libsrc/pet/joy/pet-ptvjoy.s b/libsrc/pet/joy/pet-ptvjoy.s
index 7620013be28a34828e2a0a20653e5acfe8d71554..c098072fbc8b2e948790c1fe8a160fe5078f69de 100644 (file)
--- a/libsrc/pet/joy/pet-ptvjoy.s
+++ b/libsrc/pet/joy/pet-ptvjoy.s
@@ -10,6 +10,7 @@
 
         .include "joy-kernel.inc"
         .include "joy-error.inc"
+        .include "pet.inc"
 
         .macpack module
 
@@ -40,10 +41,6 @@
 
 JOY_COUNT       = 2                     ; Number of joysticks we support
 
-VIA_PRA         := $E841                ; Port register A
-VIA_DDRA        := $E843                ; Data direction register A
-
-
 .code
 
 ; ------------------------------------------------------------------------
@@ -89,9 +86,9 @@ READ:   lda     #%10000000      ; via port A Data-Direction
 ; Read joystick 1
 
 joy1:   lda     #$80            ; via port A read/write
-        sta     VIA_PRA         ; (output one at PA7)
+        sta     VIA_PA1         ; (output one at PA7)
 
-        lda     VIA_PRA         ; via port A read/write
+        lda     VIA_PA1         ; via port A read/write
         and     #$1f            ; get bit 4-0 (PA4-PA0)
         eor     #$1f
         rts
@@ -99,13 +96,13 @@ joy1:   lda     #$80            ; via port A read/write
 ; Read joystick 2
 
 joy2:   lda     #$00            ; via port A read/write
-        sta     VIA_PRA         ; (output zero at PA7)
+        sta     VIA_PA1         ; (output zero at PA7)
 
-        lda     VIA_PRA         ; via port A read/write
+        lda     VIA_PA1         ; via port A read/write
         and     #$0f            ; get bit 3-0 (PA3-PA0)
         sta     tmp1            ; joy 4 directions
 
-        lda     VIA_PRA         ; via port A read/write
+        lda     VIA_PA1         ; via port A read/write
         and     #%00100000      ; get bit 5 (PA5)
         lsr
         ora     tmp1

diff --git a/libsrc/pet/joy/pet-stdjoy.s b/libsrc/pet/joy/pet-stdjoy.s
index 85b7423022c4fcd9dd61ff191cfc050c28698b23..75b9f74658724a3012114c75817be1c8c96d5734 100644 (file)
--- a/libsrc/pet/joy/pet-stdjoy.s
+++ b/libsrc/pet/joy/pet-stdjoy.s
@@ -85,7 +85,7 @@ READ:
 joy1:
         lda     #0
         sta     VIA_DDRA
-        lda     VIA_PRA
+        lda     VIA_PA1
         and     #$0f
         cmp     #$0c
         bne     @notc1
@@ -102,7 +102,7 @@ joy1:
 joy2:
         lda     #0
         sta     VIA_DDRA
-        lda     VIA_PRA
+        lda     VIA_PA1
         lsr
         lsr
         lsr