add Pool to the collection

res/GAMES.CONF

@@ -3,6 +3,7 @@
 0000,BLACK.BELT
 0000,BOP.N.WRESTLE=Bop'n Wrestle
 0110,CALI.GAMES=California Games
+1000,CMPTR.FOOSBALL=Computer Foosball
 1000,FIGHT.NIGHT
 1000,FORMULA.1.RACER
 1000,FUJI.SPEED.WAY=Fuji Crowded Speedway
@@ -11,6 +12,7 @@
 1000,INTL.HOCKEY=International Hockey
 1000,KARATE.CHAMP
 1000,ONE.ON.ONE=One on One
+1000,POOL
 0000,SKI.CRAZED
 0000,SHUFFLEBOARD
 0000,SPDWAY.CLASSIC=Speedway Classic

res/TITLE.HGR/_FileInformation.txt

@@ -4,6 +4,7 @@ AMER.CHALLENGE=Type(06),AuxType(4000),Access(C3)
 AUTOBAHN=Type(06),AuxType(4000),Access(C3)
 BLACK.BELT=Type(06),AuxType(4000),Access(C3)
 BOP.N.WRESTLE=Type(06),AuxType(4000),Access(C3)
+CMPTR.FOOSBALL=Type(06),AuxType(4000),Access(C3)
 FIGHT.NIGHT=Type(06),AuxType(4000),Access(C3)
 FORMULA.1.RACER=Type(06),AuxType(4000),Access(C3)
 FUJI.SPEED.WAY=Type(06),AuxType(4000),Access(C3)
@@ -12,6 +13,7 @@ INTL.GRAN.PRIX=Type(06),AuxType(4000),Access(C3)
 INTL.HOCKEY=Type(06),AuxType(4000),Access(C3)
 KARATE.CHAMP=Type(06),AuxType(4000),Access(C3)
 ONE.ON.ONE=Type(06),AuxType(4000),Access(C3)
+POOL=Type(06),AuxType(4000),Access(C3)
 SHUFFLEBOARD=Type(06),AuxType(4000),Access(C3)
 SKI.CRAZED=Type(06),AuxType(4000),Access(C3)
 SPDWAY.CLASSIC=Type(06),AuxType(4000),Access(C3)

src/constants.a

@@ -153,9 +153,11 @@ iAuxReq        = $DB27
 launchpatch    = $D616
 iAddToPath     = $FEC3
 itraverse      = $D8E0
-ldrhi          = $56
-namlo          = $57
-namhi          = $58
+ldrhi          = $56                 ; constant
+namlo          = $57                 ; constant
+namhi          = $58                 ; constant
+ldrlo2         = $59                 ; constant
+ldrhi2         = $5A                 ; constant
 
 _CONSTANTS_=*
 }

src/prelaunch/computer.foosball.a

@@ -11,7 +11,7 @@
          lda   #$60
          sta   $2026
          jsr   $2000      ; decompress
-         +ENABLE_ACCEL
+         +DISABLE_ACCEL
          jmp   $800
 
 !if * > $1C0 {

src/prelaunch/pool.a

@@ -0,0 +1,19 @@
+;license:MIT
+;(c) 2022 by qkumba
+
+!cpu 6502
+!to "build/PRELAUNCH/POOL",plain
+*=$106
+
+    !source "src/prelaunch/common.a"
+
+         +ENABLE_ACCEL
+         lda   #$60
+         sta   $1F5B
+         jsr   $1F24      ; decompress
+         +DISABLE_ACCEL
+         jmp   $A003
+
+!if * > $1C0 {
+  !error "code is too large, ends at ", *
+}

src/prelaunch/standard.a

@@ -1,23 +1,21 @@
 ;license:MIT
-;(c) 2019 by qkumba
+;(c) 2021 by qkumba
 
 !cpu 6502
 !to "build/PRELAUNCH/STANDARD",plain
 *=$106
 
-         ldy   $5A                   ; set up game entry point in stack page
-         ldx   $59                   ; (last ProRWTS load address - 1)
-         bne   +
-         dey
-+        dex
-         stx   $1FE
-         sty   $1FF
+         !source "src/constants.a"
+
+         lda   ldrhi2                ; set up game entry point in stack page
+         pha
+         lda   ldrlo2                ; last ProRWTS load address
+         pha
 
          !source "src/prelaunch/common.a"
 
-         ldx   #$FD                  ; Jump to game entry point via stack pop.
-         txs
-         rts
+         php
+         rti                         ; Jump to game entry point via stack pop.
 
 !if * > $1C0 {
   !error "code is too large, ends at ", *