add Draw Poker

res/ATTRACT/DRAW.POKER

@@ -0,0 +1,8 @@
+#
+# Attract mode for DRAW.POKER
+# This file is automatically generated
+#
+
+DRAW.POKER=A
+
+[eof]

res/GAMES.CONF

@@ -39,6 +39,7 @@
 10000,CHUCK.YEAGER=Chuck Yeager's Flight Sim/1987
 10001,CMPTR.FOOSBALL=Computer Foosball/1981
 10000,DIVE.BOMBER=Dive Bomber/1988
+00001,DRAW.POKER=Draw Poker/1981
 10000,F15.STRK.EGL=F-15 Strike Eagle/1985
 01100,FAMILY.FEUD=All New Family Feud/1989
 10000,FIGHT.NIGHT=Fight Night/1985

res/SS/ACTBOARD.CONF

@@ -6,6 +6,7 @@ REVERSI
 CHECKERS
 MICROCHESS
 GO.FOUR.IT
+DRAW.POKER
 ODIN
 PENSATE
 ULTRACHECKERS

res/SS/ACTDEF1.CONF

@@ -4,8 +4,8 @@
 
 DIVE.BOMBER2=DIVE.BOMBER
 FIGHT.NIGHT
-F15.STRK.EGL
 DIVE.BOMBER
+F15.STRK.EGL
 DIVE.BOMBER5=DIVE.BOMBER
 FORMULA.1.RACER
 

res/SS/ACTDEF2.CONF

@@ -5,6 +5,7 @@
 DIVE.BOMBER3=DIVE.BOMBER
 FS2
 DIVE.BOMBER4=DIVE.BOMBER
+DRAW.POKER
 FOX.AND.GEESE
 DIVE.BOMBER6=DIVE.BOMBER
 

res/SS/CATBOARD.CONF

@@ -6,6 +6,7 @@ PENSATE
 ODIN
 GO.FOUR.IT
 ULTRACHECKERS
+DRAW.POKER
 REVERSI
 GO
 CHECKERS

res/SS/TITLEDEF.CONF

@@ -5,6 +5,7 @@
 DIVE.BOMBER
 FIGHT.NIGHT
 F15.STRK.EGL
+DRAW.POKER
 FORMULA.1.RACER
 FOX.AND.GEESE
 FS2

res/history.md

@@ -10,6 +10,7 @@
 - Card Sharks
 - Checkers
 - Chuck Yeager's Advanced Flight Trainer
+- Draw Poker
 - F-15 Strike Eagle
 - Fox & Geese
 - Go

res/ports/draw-poker/Makefile

@@ -0,0 +1,51 @@
+# https://sourceforge.net/projects/acme-crossass/
+ACME=acme
+
+# https://github.com/mach-kernel/cadius
+CADIUS=cadius
+
+EXOMIZER=exomizer mem -lnone -P23 -f -q
+
+BUILDDIR=build
+DISKVOLUME=DRAW.POKER
+LOADER=$(BUILDDIR)/LOADER.SYSTEM\#FF2000
+EXE=$(BUILDDIR)/DRAW.POKER\#068000
+COMPRESSED=src/OBJ.X
+SOURCES=$(wildcard src/*.a) $(COMPRESSED)
+RES=$(wildcard res/*) $(wildcard ../common/res/*)
+BUILDDISK=$(BUILDDIR)/$(DISKVOLUME).po
+
+.PHONY: clean mount all
+
+$(BUILDDISK): $(EXE) $(LOADER) $(RES)
+
+$(LOADER): $(SOURCES) | $(BUILDDIR)
+	$(ACME) src/loader.a
+	$(CADIUS) REPLACEFILE "$(BUILDDISK)" "/$(DISKVOLUME)/" "$(LOADER)" -C
+	@touch "$@"
+
+$(EXE): $(SOURCES) $(COMPRESSED) | $(BUILDDIR)
+	$(ACME) src/draw.poker.a
+	$(CADIUS) REPLACEFILE "$(BUILDDISK)" "/$(DISKVOLUME)/" "$(EXE)" -C
+	@touch "$@"
+
+$(RES): $(BUILDDIR)
+	$(CADIUS) REPLACEFILE "$(BUILDDISK)" "/$(DISKVOLUME)/" "$@" -C
+	@touch "$@"
+
+$(COMPRESSED):
+	$(EXOMIZER) src/OBJ@0x1500 -o "$@"
+
+mount: $(BUILDDISK)
+	@open "$(BUILDDISK)"
+
+clean:
+	rm -rf "$(BUILDDIR)"
+
+$(BUILDDIR):
+	mkdir -p "$@"
+	$(CADIUS) CREATEVOLUME "$(BUILDDISK)" "$(DISKVOLUME)" 140KB -C
+
+all: clean mount
+
+.NOTPARALLEL:

res/ports/draw-poker/src/draw.poker.a

@@ -0,0 +1,29 @@
+!cpu 6502
+*=$8000
+!to "build/DRAW.POKER#068000",plain
+
+         !src  "../common/src/constants.a"
+         !src  "../common/src/macros.a"
+
+         jmp   start
+
+compressed_data
+         !bin "src/OBJ.X"
+FORWARD_DECRUNCHING = 1
+SHOW_PROGRESS_DURING_DECRUNCH = 0
+         !src  "../common/src/exodecrunch.a"
+
+start
+         +INIT_MACHINE
+!if * != $9FE9 {
+  !serious "Adjust prelaunch to patch JSR at ", *, " to JMP"
+}
+         jsr   decrunch              ; compressed data contains target address
+         jmp   $1500
+
+get_crunched_byte
+         lda   compressed_data
+         inc   get_crunched_byte+1
+         bne   +
+         inc   get_crunched_byte+2
++        rts

res/ports/draw-poker/src/loader.a

@@ -0,0 +1,25 @@
+!cpu 6502
+*=$2000
+!to "build/LOADER.SYSTEM#FF2000",plain
+
+         !src  "../common/src/constants.a"
+         !src  "../common/src/macros.a"
+
+         +READ_ENTIRE_FILE parm_boot_open, parm_boot_read
+         jmp   (entry)
+
+parm_boot_open
+         !byte 3
+         !word filename
+         !word $2100
+         !byte 0
+
+parm_boot_read
+         !byte 4
+         !byte 1
+entry    !word $8000
+         !word $FFFF
+         !word 0
+
+filename
+         !text 10,"DRAW.POKER"

src/index/artwork.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2661759
+         !be24  2679622
          !le16      630

src/index/attract.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2645966
+         !be24  2663761
          !le16     1543

src/index/cache00.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2633185
+         !be24  2650825
-         !le16      567
+         !le16      574

src/index/cache01.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2635902
+         !be24  2653581
-         !le16      928
+         !le16      935

src/index/cache10.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2639032
+         !be24  2656750
-         !le16      910
+         !le16      924

src/index/cache11.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2643105
+         !be24  2660869
-         !le16     1356
+         !le16     1370

src/index/count00.a

@@ -3,4 +3,4 @@
 ;
 ; This file is automatically generated
 ;
-!word       42
+!word       43

src/index/count01.a

@@ -3,4 +3,4 @@
 ;
 ; This file is automatically generated
 ;
-!word       61
+!word       62

src/index/count10.a

@@ -3,4 +3,4 @@
 ;
 ; This file is automatically generated
 ;
-!word       63
+!word       64

src/index/count11.a

@@ -3,4 +3,4 @@
 ;
 ; This file is automatically generated
 ;
-!word       87
+!word       88

src/index/coverfade.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2662389
+         !be24  2680252
          !le16      306

src/index/credits.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2663039
+         !be24  2680902
          !le16      336

src/index/decrunch.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2663375
+         !be24  2681238
          !le16      303

src/index/demo.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2128189
+         !be24  2137591
          !le16       69

src/index/dfx.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2650149
+         !be24  2667944
          !le16     1640

src/index/dgr.fizzle.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2662771
+         !be24  2680634
          !le16       67

src/index/dgr.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2661747
+         !be24  2679610
          !le16       12

src/index/dhgr.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2660633
+         !be24  2678496
          !le16     1062

src/index/dtitle.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2658116
+         !be24  2675962
          !le16      365

src/index/fx.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2647509
+         !be24  2665304
          !le16     2640

src/index/gamehelp.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2652147
+         !be24  2669942
-         !le16     1505
+         !le16     1522

src/index/gr.fizzle.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2662695
+         !be24  2680558
          !le16       76

src/index/gr.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2661695
+         !be24  2679558
          !le16       52

src/index/helptext.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2662838
+         !be24  2680701
          !le16      201

src/index/hgr0.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2658481
+         !be24  2676327
-         !le16      421
+         !le16      438

src/index/hgr1.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2658902
+         !be24  2676765
          !le16      209

src/index/hgr2.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2659111
+         !be24  2676974
          !le16      107

src/index/hgr3.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2659218
+         !be24  2677081
          !le16      292

src/index/hgr4.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2659510
+         !be24  2677373
          !le16      791

src/index/hgr5.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2660301
+         !be24  2678164
          !le16      305

src/index/hgr6.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2660606
+         !be24  2678469
          !le16       27

src/index/joystick.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2663678
+         !be24  2681541
          !le16     2370

src/index/miniattract0.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2655409
+         !be24  2673221
-         !le16      880
+         !le16      897

src/index/miniattract1.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2656289
+         !be24  2674118
          !le16      629

src/index/prelaunch.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2644461
+         !be24  2662239
-         !le16     1505
+         !le16     1522

src/index/res.cover.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24   842795
+         !be24   850475
          !le16     8184

src/index/res.help.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24   859171
+         !be24   866851
          !le16     8184

src/index/res.title.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24   850979
+         !be24   858659
          !le16     8192

src/index/search00.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2631794
+         !be24  2649402
-         !le16     1391
+         !le16     1423

src/index/search01.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2633752
+         !be24  2651399
-         !le16     2150
+         !le16     2182

src/index/search10.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2636830
+         !be24  2654516
-         !le16     2202
+         !le16     2234

src/index/search11.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2639942
+         !be24  2657674
-         !le16     3163
+         !le16     3195

src/index/sfx.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2651789
+         !be24  2669584
          !le16      358

src/index/slideshow.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2653652
+         !be24  2671464
          !le16     1757

src/index/title.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2656918
+         !be24  2674747
-         !le16     1198
+         !le16     1215

src/index/xsingle.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2631116
+         !be24  2648705
-         !le16      678
+         !le16      697

src/prelaunch/draw.poker.a

@@ -0,0 +1,18 @@
+;license:MIT
+
+!cpu 6502
+!to "build/PRELAUNCH.INDEXED/DRAW.POKER",plain
+*=$106
+
+    !source "src/prelaunch/common.a"
+
+         +ENABLE_ACCEL
+         lda   #$4C
+         sta   $9FE9
+         jsr   $8000
+         +DISABLE_ACCEL
+         jmp   $9FE9+3
+
+!if * > $1C0 {
+  !error "code is too large, ends at ", *
+}