add Craps (1979-Softape)

res/ATTRACT/CRAPS

@@ -0,0 +1,5 @@
+#
+# Attract mode for CRAPS
+# This file is automatically generated
+#
+

res/GAMES.CONF

@@ -35,11 +35,12 @@
 011000,CARD.SHARKS=Card Sharks/1988
 110000,BASEBALL=Championship Baseball/1986
 110001,CHAMP.BSKETBALL=Championship Basketball/1986
-000000,CHAMP.BOXING=Sierra Championship Boxing/1985
+000000,CHAMP.BOXING=Championship Boxing/1985
 010000,CHAMP.WRESTLE=Championship Wrestling/1986
 000010,CHECKERS=Checkers/1982
 100001,CHUCK.YEAGER=Chuck Yeager's Flight Sim/1987
 100010,CMPTR.FOOSBALL=Computer Foosball/1981
+000010,CRAPS=Craps/1979
 100001,DIVE.BOMBER=Dive Bomber/1988
 000010,DRAW.POKER=Draw Poker/1981
 100001,F15.STRK.EGL=F-15 Strike Eagle/1985

res/SS/CATLOUNGE.CONF

@@ -1,5 +1,6 @@
 # HGR title slideshow of lounge games
 SHUFFLEBOARD
+CRAPS
 VIDEO.VEGAS
 CMPTR.FOOSBALL
 POOL

res/SS/TITLEABC2.CONF

@@ -1,6 +1,7 @@
 # HGR title slideshow of games that begin with "A"-"C"
 CHAMP.BOXING
 CMPTR.FOOSBALL
+CRAPS
 CHUCK.YEAGER
 BASEBALL
 CHAMP.WRESTLE

res/ports/casino-craps/Makefile

@@ -0,0 +1,53 @@
+# 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=CRAPS
+LOADER=$(BUILDDIR)/LOADER.SYSTEM\#FF2000
+EXEADDR=4000
+DECOMPADDR=0800
+EXE=$(BUILDDIR)/CRAPS\#06$(EXEADDR)
+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/craps.a
+	$(CADIUS) REPLACEFILE "$(BUILDDISK)" "/$(DISKVOLUME)/" "$(EXE)" -C
+	@touch "$@"
+
+$(RES): $(BUILDDIR)
+	$(CADIUS) REPLACEFILE "$(BUILDDISK)" "/$(DISKVOLUME)/" "$@" -C
+	@touch "$@"
+
+$(COMPRESSED):
+	$(EXOMIZER) src/OBJ@0x$(DECOMPADDR) -o "$@"
+
+mount: $(BUILDDISK)
+	@open "$(BUILDDISK)"
+
+clean:
+	rm -rf "$(BUILDDIR)"
+
+$(BUILDDIR):
+	mkdir -p "$@"
+	$(CADIUS) CREATEVOLUME "$(BUILDDISK)" "$(DISKVOLUME)" 140KB -C
+
+all: clean mount
+
+.NOTPARALLEL:

res/ports/casino-craps/src/craps.a

@@ -0,0 +1,34 @@
+!cpu 6502
+*=$4000
+!to "build/CRAPS#064000",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 * != $18B6 {
+;  !serious "Adjust prelaunch to patch JSR at ", *, " to JMP"
+}
+         jsr   decrunch              ; compressed data contains target address
+         ldx   #0
+-        lda   $3840, x
+         sta   $0, x
+         inx
+         bne   -
+         jmp   $D566                 ; RUN
+
+get_crunched_byte
+         lda   compressed_data
+         inc   get_crunched_byte+1
+         bne   +
+         inc   get_crunched_byte+2
++        rts

res/ports/casino-craps/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 $4000
+         !word $FFFF
+         !word 0
+
+filename
+         +PSTRING "CRAPS"

res/ports/common/src/macros.a

@@ -1,3 +1,9 @@
+!macro   PSTRING .string {
+         !byte +-*-1
+         !text .string
++
+}
+
 !macro INIT_MACHINE {
          cld
          bit   $C082