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/ATTRACT/ULTRACHECKERS

@@ -0,0 +1,8 @@
+#
+# Attract mode for ULTRACHECKERS
+# This file is automatically generated
+#
+
+ULTRACHECKERS=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
@@ -102,6 +103,7 @@
 11100,TSN.BASEBALL=The Sporting News Baseball/1988
 10001,TOMAHAWK=Tomahawk/1987
 00000,TRACK.AND.FIELD=Track & Field/1984
+00001,ULTRACHECKERS=Ultracheckers/1980
 00001,WARI=Wari/1988
 00000,WINTER.GAMES=Winter Games/1985
 01100,WORLD.GAMES=World Games/1987

res/SS/ACTBOARD.CONF

@@ -6,8 +6,10 @@ REVERSI
 CHECKERS
 MICROCHESS
 GO.FOUR.IT
+DRAW.POKER
 ODIN
 PENSATE
+ULTRACHECKERS
 GO
 
 [eof]

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/ACTTZ1.CONF

@@ -5,6 +5,7 @@
 WORLD.KARATE2=WORLD.KARATE
 ZZFS
 TOMAHAWK
+ULTRACHECKERS
 WARI
 THE.DAM.BUSTERS
 

res/SS/CATBOARD.CONF

@@ -5,6 +5,8 @@
 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/SS/TITLETZ.CONF

@@ -5,6 +5,7 @@
 THE.DAM.BUSTERS
 WINTER.GAMES
 TRACK.AND.FIELD
+ULTRACHECKERS
 WORLD.KARATE
 TOMAHAWK
 ZZFS

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
@@ -42,6 +43,7 @@
 - The Sporting News Baseball
 - Wari
 - Wipeout
+- Ultracheckers
 - Zig Zag Flag Shag
 
 ## Revision 1.0-alpha.3 / 20231114

res/notes/wishlist.txt

@@ -62,7 +62,6 @@ The World's Greatest Baseball Game (Enhanced Version) [4am crack][64K][supports-
 The World's Greatest Football Game [4am crack][64K]
 Top Fuel Eliminator (Activision) [4am crack][HGR-but-128K]
 Trick Shot (IDSI) [needs-crack][48K][supports-data-disk]
-Ultracheckers (Malibu Microcomputing) [needs-crack][48K]
 World Class Leader Board (Access Software) [64K]
 World Series Baseball
 

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"

res/ports/ultracheckers/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=ULTRACHECKERS
+LOADER=$(BUILDDIR)/LOADER.SYSTEM\#FF2000
+EXE=$(BUILDDIR)/ULTRACHECKERS\#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/ultracheckers.a
+	$(CADIUS) REPLACEFILE "$(BUILDDISK)" "/$(DISKVOLUME)/" "$(EXE)" -C
+	@touch "$@"
+
+$(RES): $(BUILDDIR)
+	$(CADIUS) REPLACEFILE "$(BUILDDISK)" "/$(DISKVOLUME)/" "$@" -C
+	@touch "$@"
+
+$(COMPRESSED):
+	$(EXOMIZER) src/OBJ@0x0800 -o "$@"
+
+mount: $(BUILDDISK)
+	@open "$(BUILDDISK)"
+
+clean:
+	rm -rf "$(BUILDDIR)"
+
+$(BUILDDIR):
+	mkdir -p "$@"
+	$(CADIUS) CREATEVOLUME "$(BUILDDISK)" "$(DISKVOLUME)" 140KB -C
+
+all: clean mount
+
+.NOTPARALLEL:

res/ports/ultracheckers/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 13,"ULTRACHECKERS"

res/ports/ultracheckers/src/ultracheckers.a

@@ -0,0 +1,48 @@
+!cpu 6502
+*=$8000
+!to "build/ULTRACHECKERS#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 * != $93CB {
+  !serious "Adjust prelaunch to patch JSR at ", *
+}
+         jsr   decrunch              ; compressed data contains target address
+         bit   GFXMODE
+         bit   PAGE1
+         bit   HIRES
+         bit   FULLGFX
+         lda   #$F9                  ; set by original bootloader
+         sta   $20
+         lda   #$E3
+         sta   $21
+         lda   #$F4
+         sta   $22
+         lda   #$15
+         sta   $23
+         lda   #$2F
+         sta   $24
+         lda   #$16
+         sta   $25
+         lda   #$00
+         sta   $3FE
+         sta   $3FF
+         jmp   $19BB
+
+get_crunched_byte
+         lda   compressed_data
+         inc   get_crunched_byte+1
+         bne   +
+         inc   get_crunched_byte+2
++        rts

src/index/artwork.idx.a

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

src/index/attract.idx.a

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

src/index/cache00.idx.a

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

src/index/cache01.idx.a

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

src/index/cache10.idx.a

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

src/index/cache11.idx.a

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

src/index/count00.a

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

src/index/count01.a

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

src/index/count10.a

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

src/index/count11.a

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

src/index/coverfade.idx.a

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

src/index/credits.idx.a

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

src/index/decrunch.idx.a

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

src/index/demo.idx.a

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

src/index/dfx.idx.a

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

src/index/dgr.fizzle.idx.a

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

src/index/dgr.idx.a

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

src/index/dhgr.idx.a

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

src/index/dtitle.idx.a

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

src/index/fx.idx.a

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

src/index/gamehelp.idx.a

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

src/index/gr.fizzle.idx.a

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

src/index/gr.idx.a

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

src/index/helptext.idx.a

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

src/index/hgr0.idx.a

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

src/index/hgr1.idx.a

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

src/index/hgr2.idx.a

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

src/index/hgr3.idx.a

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

src/index/hgr4.idx.a

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

src/index/hgr5.idx.a

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

src/index/hgr6.idx.a

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

src/index/joystick.idx.a

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

src/index/miniattract0.idx.a

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

src/index/miniattract1.idx.a

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

src/index/prelaunch.idx.a

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

src/index/res.cover.idx.a

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

src/index/res.help.idx.a

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

src/index/res.title.idx.a

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

src/index/search00.idx.a

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

src/index/search01.idx.a

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

src/index/search10.idx.a

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

src/index/search11.idx.a

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

src/index/sfx.idx.a

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

src/index/slideshow.idx.a

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

src/index/title.idx.a

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

src/index/xsingle.idx.a

@@ -4,5 +4,5 @@
 ; This file is automatically generated
 ;
          !byte 0
-         !be24  2617244
-         !le16      656
+         !be24  2648705
+         !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 ", *
+}

src/prelaunch/ultracheckers.a

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