Adding framwork for PET. Platform function are dummies so far

Author: cyborgar

pet/base.p8

@@ -0,0 +1,21 @@
+%import sound
+%import joystick
+%import keyboard
+
+base {
+
+  ; Define playfield limits
+  const ubyte LBORDER = 0
+  const ubyte RBORDER = 30;
+  const ubyte UBORDER = 0
+  const ubyte DBORDER = UBORDER + 24;
+
+  ; Not needed on PET
+  sub platform_setup() {
+  }
+
+  ; Not needed on PET
+  sub draw_extra_border() {
+  }
+
+}

pet/joystick.p8

@@ -0,0 +1,31 @@
+; No PET joystick support yet
+;
+joystick {
+
+  ubyte joy_info
+
+  sub init() {
+    joy_info = 0
+  }
+
+  sub pull_info() {
+    joy_info = 0
+  }
+
+  sub pushing_start() -> ubyte {
+    return joy_info
+  }
+
+  sub pushing_fire() -> ubyte {
+    return joy_info
+  }
+
+  sub pushing_left() -> ubyte {
+    return joy_info
+  }
+
+  sub pushing_right() -> ubyte{
+    return joy_info
+  }
+
+}

pet/keyboard.p8

@@ -0,0 +1,34 @@
+; Custom keyboard input handler to allow for smooth movement with keyboard 
+; control. Need to be able to
+;  a) see if movement a key is kept pressed down and
+;  b) allow fire key be pressed together with one of the movement keys
+;
+; Assembly function returs a bit pattern where 
+;  - bit 0 = L_SHIFT pressed (fire)
+;  - bit 1 = K pressed (left)
+;  - bit 2 = L pressed (right)
+;
+; Note that K takes presedence over L so if K is pressed, we don't check for L.
+;
+
+keyboard {
+
+  ubyte key
+
+  sub pull_info() {
+    key = cbm.GETIN()
+  }
+
+  sub pushing_fire() -> bool {
+    return key == 'z'
+  }
+
+  sub pushing_left() -> bool {
+    return key == 'k' or key == 157
+  }
+
+  sub pushing_right() -> bool {
+    return key == 'l' or key == 29
+  }
+
+}

pet/page_usage.p8

@@ -0,0 +1,38 @@
+; Roller page
+;  - show controls for Commodore 64
+
+page_usage {
+
+  ubyte[] chars_1 = [
+    $20,$20,$20,$20,$20,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$61,$E1,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$6F,$20,$20,$20,$20,$20,
+    $20,$20,$20,$20,$20,$20,$70,$40,$40,$43,$43,$43,$6E,$70,$43,$43,$43,$43,$43,$43,$43,$43,$72,$43,$43,$43,$43,$43,$43,$43,$43,$43,$43,$6E,$20,$20,$20,$20,$20,$20,
+    $40,$40,$40,$40,$40,$40,$42,$20,$03,$0D,$04,$20,$5D,$42,$0A,$0F,$19,$13,$14,$09,$03,$0B,$42,$20,$0B,$05,$19,$02,$0F,$01,$12,$04,$20,$5D,$20,$20,$20,$20,$20,$20,
+    $40,$40,$40,$40,$40,$40,$6B,$40,$40,$40,$40,$40,$73,$6B,$43,$43,$43,$43,$43,$43,$43,$43,$5B,$43,$43,$43,$43,$43,$43,$43,$43,$43,$43,$73,$20,$20,$40,$20,$20,$20,
+    $20,$20,$20,$20,$20,$20,$42,$13,$14,$01,$12,$14,$5D,$42,$20,$20,$20,$20,$20,$20,$20,$20,$42,$20,$20,$13,$10,$01,$03,$05,$20,$20,$20,$5D,$20,$20,$20,$20,$20,$20,
+    $20,$20,$20,$20,$20,$20,$42,$06,$09,$12,$05,$20,$5D,$42,$20,$20,$10,$0F,$12,$14,$20,$20,$42,$0C,$05,$06,$14,$20,$13,$08,$09,$06,$14,$5D,$20,$20,$20,$20,$20,$20 ]
+
+  ubyte[] chars_2 = [
+    $40,$40,$40,$40,$40,$40,$42,$0C,$05,$06,$14,$20,$5D,$42,$20,$20,$20,$32,$20,$20,$20,$20,$42,$20,$20,$20,$20,$0B,$20,$20,$20,$20,$20,$5D,$20,$20,$20,$20,$20,$20,
+    $40,$40,$40,$40,$40,$40,$42,$12,$09,$07,$08,$14,$5D,$42,$20,$20,$20,$20,$20,$40,$40,$20,$42,$20,$20,$20,$20,$0C,$20,$20,$20,$20,$20,$5D,$20,$20,$20,$20,$20,$20,
+    $20,$20,$20,$40,$40,$40,$6D,$43,$43,$43,$43,$40,$7D,$6D,$43,$43,$43,$43,$43,$43,$43,$43,$71,$43,$43,$43,$43,$43,$43,$43,$40,$40,$40,$7D,$20,$20,$20,$20,$20,$20,
+    $20,$20,$20,$20,$20,$77,$77,$77,$77,$77,$77,$77,$61,$E1,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$77,$20,$20,$20,$20,$20,
+    $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,
+    $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20 ]
+    
+  ubyte[] colors_1 = [
+    $01,$00,$01,$00,$00,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$03,$00,$00,$00,$00,$00,
+    $03,$03,$03,$03,$03,$03,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$03,$0D,$03,$03,
+    $00,$00,$00,$00,$00,$00,$0D,$00,$01,$01,$01,$01,$0D,$0D,$01,$01,$01,$01,$01,$01,$01,$01,$0D,$0D,$01,$01,$01,$01,$01,$01,$01,$01,$0D,$0D,$07,$07,$0A,$07,$0A,$0A,
+    $00,$00,$00,$00,$00,$00,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$07,$07,$00,$07,$0A,$0A,
+    $07,$07,$07,$07,$07,$07,$0D,$0E,$0E,$0E,$0E,$0E,$0D,$0D,$01,$01,$01,$01,$01,$01,$01,$01,$0D,$0E,$0E,$0A,$0A,$0A,$0A,$0A,$0E,$0E,$0E,$0D,$07,$07,$07,$07,$07,$07,
+    $07,$07,$07,$07,$07,$07,$0D,$0E,$0E,$0E,$0E,$0E,$0D,$0D,$01,$0A,$0A,$0A,$0A,$0A,$01,$01,$0D,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0D,$07,$07,$07,$07,$07,$07 ]
+
+  ubyte[] colors_2 = [
+    $00,$00,$00,$00,$00,$00,$0D,$0E,$0E,$0E,$0E,$0E,$0D,$0D,$01,$01,$01,$0A,$01,$01,$01,$01,$0D,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0D,$0A,$0A,$0A,$0A,$0A,$0A,
+    $00,$00,$00,$00,$00,$00,$0D,$0E,$0E,$0E,$0E,$0E,$0D,$0D,$07,$07,$07,$07,$07,$00,$00,$07,$0D,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A,$0D,$0A,$00,$0A,$0A,$0A,$0A,
+    $01,$00,$01,$00,$00,$00,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D,$0E,$0E,$0E,$0E,$0E,$0E,
+    $01,$00,$01,$00,$00,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$05,$00,$00,$00,$00,$00,
+    $07,$07,$07,$07,$07,$07,$07,$07,$07,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,
+    $0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$07,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E,$0E ]
+
+}

pet/sound.p8

@@ -0,0 +1,32 @@
+;
+; PET sound effects
+; 
+; Just dummy functions for now
+;
+sound {
+  ubyte sound_priority = 0
+
+  sub init() {
+  }
+
+  sub check() {
+  }
+
+  sub fire() {
+  }
+
+  sub hit() {
+  }
+
+  sub bomb() {
+  }
+
+  sub small_explosion() {
+  }
+
+  sub large_explosion() {
+  }
+  
+  sub score_sound_and_delay() {
+  }
+}