.

Makefile

@@ -23,21 +23,24 @@ asm: md
 	$(ACME) -r build/4cade.lst src/4cade.a
 
 dsk: md asm
-	$(CADIUS) CREATEVOLUME build/"$(DISK)" "${VOLUME}" 32766KB >/dev/null
-	cp res/_FileInformation.txt build/
-	$(CADIUS) ADDFILE build/"$(DISK)" "/${VOLUME}/" "res/PRODOS" >/dev/null
-	$(CADIUS) ADDFILE build/"$(DISK)" "/${VOLUME}/" "build/LAUNCHER.SYSTEM" >/dev/null
-	$(CADIUS) CREATEFOLDER build/"$(DISK)" "/${VOLUME}/X/" >/dev/null
-	$(CADIUS) ADDFILE build/"$(DISK)" "/${VOLUME}/" "res/GAMES.CONF" >/dev/null
-	$(CADIUS) ADDFILE build/"$(DISK)" "/${VOLUME}/" "res/COVER" >/dev/null
-	$(CADIUS) ADDFILE build/"$(DISK)" "/${VOLUME}/" "res/COVER.A2FC" >/dev/null
+	$(CADIUS) CREATEVOLUME build/"$(DISK)" "${VOLUME}" 32766KB >>build/log
+	cp res/_FileInformation.txt build/ >>build/log
+	$(CADIUS) ADDFILE build/"$(DISK)" "/${VOLUME}/" "res/PRODOS" >>build/log
+	$(CADIUS) ADDFILE build/"$(DISK)" "/${VOLUME}/" "build/LAUNCHER.SYSTEM" >>build/log
+	$(CADIUS) CREATEFOLDER build/"$(DISK)" "/${VOLUME}/X/" >>build/log
+	$(CADIUS) ADDFILE build/"$(DISK)" "/${VOLUME}/" "res/GAMES.CONF" >>build/log
+	$(CADIUS) ADDFILE build/"$(DISK)" "/${VOLUME}/" "res/COVER" >>build/log
+	$(CADIUS) ADDFILE build/"$(DISK)" "/${VOLUME}/" "res/COVER.A2FC" >>build/log
+	rsync -aP res/hgr/* build/I >>build/log
+	bin/buildfileinfo.py build/I >>build/log
+	$(CADIUS) ADDFOLDER build/"$(DISK)" "/${VOLUME}/I" "build/I" >>build/log
 #	bin/do2po.py res/dsk/ build/po/
 #	rsync -a res/dsk/*.po build/po/
-#	bin/extract.py build/po/ | sh >/dev/null
+#	bin/extract.py build/po/ | sh >build/log
 #	rm -f build/X/**/.DS_Store
 #	rm -f build/X/**/PRODOS
 #	rm -f build/X/**/LOADER.SYSTEM
-#	$(CADIUS) ADDFOLDER build/"$(DISK)" "/${VOLUME}/X" "build/X" >/dev/null
+#	$(CADIUS) ADDFOLDER build/"$(DISK)" "/${VOLUME}/X" "build/X" >build/log
 
 artwork: dsk
 #	$(CADIUS) ADDFOLDER build/"$(DISK)" "/${VOLUME}/ARTWORK" "res/artwork"

bin/buildfileinfo.py

@@ -0,0 +1,9 @@
+#!/usr/bin/env python3
+
+import sys
+import os
+import os.path
+
+indir = sys.argv[1]
+with open(os.path.join(indir, "_FileInformation.txt"), "w") as writer:
+    writer.write("\r\n".join(["%s=Type(06),AuxType(2000),Access(C3)" % f for f in os.listdir(indir)]))

res/games.conf

@@ -1 +1 @@
-#
# 4cade master game list
#
# Format:
# AB,name=directory
#
# A=1 if game requires joystick, 0 if playable on keyboard
# B=1 if game requires 128K, 0 if playable on 64K
# all other values for A or B -> ignore entire line (like this one!)
#
00,Agent USA=AGENT.USA
11,Airheart=AIRHEART
00,Alcazar=ALCAZAR
00,Alien Downpour=ALIEN.DOWNPOUR
# TODO: Alien Rain volume name and executable filename do not match (one has period, one doesn't)
00,Alien Rain=ALIENRAIN
00,Ankh=ANKH
00,Apple Panic=APPLE.PANIC
00,Aquatron=AQUATRON
10,Arkanoid=ARKANOID
00,Battlezone=BATTLEZONE
10,BC's Quest For Tires=BCS.QUEST
00,Beer Run=BEER.RUN
00,Bellhop=BELLHOP
00,Bill Budge's Trilogy=BUDGETRILOGY
00,Blister Ball=BLISTER.BALL
00,Bolo=BOLO
00,Brainteaser Boulevard=BRAINTEASERBLVD
00,BurgerTime=BURGERTIME
00,Cannonball Blitz=CANNONBALL.BLTZ
00,Canyon Climber=CANYON.CLIMBER
00,Centipede=CENTIPEDE
10,Choplifter=CHOPLIFTER
00,Commando=COMMANDO
00,Conan=CONAN
10,Crisis Mountain=CRISIS.MOUNTAIN
00,Crossfire=CROSSFIRE
01,D-Generation=D.GENERATION
10,David's Midnight Magic=DAVIDS.MAGIC
10,Defender=DEFENDER
00,Dig Dug=DIG.DUG
10,Dino Eggs=DINO.EGGS
10,Donkey Kong=DONKEY.KONG
10,Drelbs=DRELBS
00,Drol=DROL
00,Epoch=EPOCH
00,Falcons=FALCONS
00,Flight Simulator I=FS1
00,Flip Out=FLIP.OUT
10,Formula 1 Racer=FORMULA.1
00,Frogger=FROGGER
10,Galaxian=GALAXIAN
10,The Goonies=GOONIES
00,Gremlins=GREMLINS
10,H.E.R.O.=HERO
00,Hard Hat Mack=HARD.HAT.MACK
00,Head On=HEAD.ON
00,High Rise=HIGH.RISE
00,Hungry Boy=HUNGRYBOY
10,Impossible Mission=IMPOSSIBLE.MISS
00,Joust=JOUST
00,Jungle Hunt=JUNGLE.HUNT
00,Karateka=KARATEKA
00,Lady Tut=LADY.TUT
10,Lost Tomb=LOST.TOMB
10,Mad Bomber=MAD.BOMBER
00,Mario Bros=MARIO.BROS
00,Montezuma's Revenge=MONTEZUMA
00,Moon Patrol=MOON.PATROL
00,Mr. Cool=MR.COOL
10,Mr. Do=MR.DO
00,Mr. Robot=MR.ROBOT
00,Ms. Pacman=MS.PACMAN
00,Nibbler=NIBBLER
00,Night Stalker=NIGHT.STALKER
00,Nightmare Gallery=NIGHTMARE
00,NORAD=NORAD
00,O'Riley's Mine=ORILEYS.MINE
00,Outpost=OUTPOST
00,Pac-Man=PAC.MAN
00,Paperboy=PAPERBOY
00,Pest Patrol=PEST.PATROL
00,Pie-Man=PIEMAN
00,Pit Stop II=PITSTOP.II
10,Pitfall II=PITFALL.II
00,Plasmania=PLASMANIA
00,Pooyan=POOYAN
01,Prince of Persia=PRINCEUNP
00,Puckman=PUCK.MAN
11,Qix=QIX
01,Radwarrior=RADWARRIOR
00,Repton=REPTON
00,Ribbit=RIBBIT
00,Robotron 2084=ROBOTRON.2084
00,Sabotage=SABOTAGE
00,Serpentine=SERPENTINE
10,Shamus=SHAMUS
00,Snack Attack=SNACK.ATTACK
00,Snake Byte=SNAKE.BYTE
00,Sneakers=SNEAKERS
00,Snoggle=SNOGGLE
00,Space Raiders=SPACE.RAIDERS
00,Spider Raid=SPIDER.RAID
01,Spiderbot=SPIDERBOT
00,Spy Hunter=SPY.HUNTER
00,Spy's Demise=SPYS.DEMISE
10,Starblaster=STARBLASTER
10,Stargate=STARGATE
00,Stellar 7=STELLAR.7
00,Succession=SUCCESSION
00,Swashbuckler=SWASHBUCKLER
00,Tag Team Wrestling=TAG.TEAM
00,Tapper=TAPPER
00,Thief=THIEF
00,Thunder Bombs=THUNDERBOMBS
10,Tomahawk=TOMAHAWK
00,Track N Field=TRACK.AND.FIELD
10,Tubeway ][=TUBEWAY
01,Victory Road=VICTORY.ROAD
00,Wavy Navy=WAVY.NAVY

[eof]
+#
# 4cade master game list
#
# Format:
# AB,name=directory
#
# A=1 if game requires joystick, 0 if playable on keyboard
# B=1 if game requires 128K, 0 if playable on 64K
# all other values for A or B -> ignore entire line (like this one!)
#
00,Agent USA=AGENT.USA
11,Airheart=AIRHEART
00,Alcazar=ALCAZAR
00,Alien Downpour=ALIEN.DOWNPOUR
# TODO: Alien Rain volume name and executable filename do not match (one has period, one doesn't)
00,Alien Rain=ALIENRAIN
00,Ankh=ANKH
00,Apple Panic=APPLE.PANIC
00,Aquatron=AQUATRON
10,Arkanoid=ARKANOID
00,Battlezone=BATTLEZONE
10,BC's Quest For Tires=BCS.QUEST
00,Beer Run=BEER.RUN
00,Bellhop=BELLHOP
00,Bill Budge's Trilogy=BUDGETRILOGY
00,Blister Ball=BLISTER.BALL
00,Bolo=BOLO
00,Brainteaser Boulevard=BRAINTEASERBLVD
00,BurgerTime=BURGERTIME
00,Cannonball Blitz=CANNONBALL.BLTZ
00,Canyon Climber=CANYON.CLIMBER
00,Centipede=CENTIPEDE
10,Choplifter=CHOPLIFTER
00,Commando=COMMANDO
00,Conan=CONAN
10,Crisis Mountain=CRISIS.MOUNTAIN
00,Crossfire=CROSSFIRE
01,D-Generation=D.GENERATION
10,David's Midnight Magic=DAVIDS.MAGIC
10,Defender=DEFENDER
00,Dig Dug=DIG.DUG
10,Dino Eggs=DINO.EGGS
10,Donkey Kong=DONKEY.KONG
10,Drelbs=DRELBS
00,Drol=DROL
00,Epoch=EPOCH
00,Falcons=FALCONS
00,Flight Simulator I=FS1
00,Flip Out=FLIP.OUT
10,Formula 1 Racer=FORMULA.1
00,Frogger=FROGGER
10,Galaxian=GALAXIAN
10,The Goonies=GOONIES
00,Gremlins=GREMLINS
10,H.E.R.O.=HERO
00,Hard Hat Mack=HARD.HAT.MACK
00,Head On=HEAD.ON
00,High Rise=HIGH.RISE
00,Hungry Boy=HUNGRYBOY
10,Impossible Mission=IMPOSSIBLE.MISS
00,Joust=JOUST
00,Juggler=JUGGLER
00,Jungle Hunt=JUNGLE.HUNT
00,Karateka=KARATEKA
00,Lady Tut=LADY.TUT
10,Lost Tomb=LOST.TOMB
10,Mad Bomber=MAD.BOMBER
00,Mario Bros=MARIO.BROS
00,Montezuma's Revenge=MONTEZUMA
00,Moon Patrol=MOON.PATROL
00,Mr. Cool=MR.COOL
10,Mr. Do=MR.DO
00,Mr. Robot=MR.ROBOT
00,Ms. Pacman=MS.PACMAN
00,Nibbler=NIBBLER
00,Night Stalker=NIGHT.STALKER
00,Nightmare Gallery=NIGHTMARE
00,NORAD=NORAD
00,O'Riley's Mine=ORILEYS.MINE
00,Outpost=OUTPOST
00,Pac-Man=PAC.MAN
00,Paperboy=PAPERBOY
00,Pest Patrol=PEST.PATROL
00,Pie-Man=PIEMAN
00,Pit Stop II=PITSTOP.II
10,Pitfall II=PITFALL.II
00,Plasmania=PLASMANIA
00,Pooyan=POOYAN
01,Prince of Persia=PRINCEUNP
00,Puckman=PUCK.MAN
11,Qix=QIX
01,Radwarrior=RADWARRIOR
00,Repton=REPTON
00,Ribbit=RIBBIT
00,Robotron 2084=ROBOTRON.2084
00,Sabotage=SABOTAGE
00,Serpentine=SERPENTINE
10,Shamus=SHAMUS
00,Snack Attack=SNACK.ATTACK
00,Snake Byte=SNAKE.BYTE
00,Sneakers=SNEAKERS
00,Snoggle=SNOGGLE
00,Space Raiders=SPACE.RAIDERS
00,Spider Raid=SPIDER.RAID
01,Spiderbot=SPIDERBOT
00,Spy Hunter=SPY.HUNTER
00,Spy's Demise=SPYS.DEMISE
10,Starblaster=STARBLASTER
10,Stargate=STARGATE
00,Stellar 7=STELLAR.7
00,Succession=SUCCESSION
00,Swashbuckler=SWASHBUCKLER
00,Tag Team Wrestling=TAG.TEAM
00,Tapper=TAPPER
00,Tetris=TETRIS
00,Thief=THIEF
00,Thunder Bombs=THUNDERBOMBS
10,Tomahawk=TOMAHAWK
00,Track N Field=TRACK.AND.FIELD
10,Tubeway ][=TUBEWAY
01,Victory Road=VICTORY.ROAD
00,Wavy Navy=WAVY.NAVY

[eof]

res/quick.s

@@ -0,0 +1,147 @@
+!cpu 6502
+!to "quick#061000",plain
+*=$1000
+
+zpword	=	$0 ;and $1
+zpstring=	$2 ;and $3
+runningscore=	$4 ;and $5
+startat	=	$6
+i	=	$7
+tmp	=	$8
+
+jsr quick
+tax
+lda #0
+jmp $ed24 ;hex to dec
+
+quick
+
+	lda	#<word
+	sta	zpword
+	lda	#>word
+	sta	zpword+1
+	lda	#<string
+	sta	zpstring
+	lda	#>string
+	sta	zpstring+1
+	ldy	word
+	cpy	string
+	bne	+
+-	lda	(zpword), y
+	cmp	(zpstring), y
+	bne	+
+	dey
+	bne	-
+	lda	#100
+	rts
+
++	lda	#0
+	sta	runningscore
+	sta	runningscore+1
+	ldy	#1
+	sty	startat
+-	sty	i
+	lda	(zpword), y
+	jsr	tolower
+	sta	tmp
+	ldy	startat
+--	lda	(zpstring), y
+	jsr	tolower
+	cmp	tmp
+	beq	+
+	cpy	string
+	iny
+	bcc	--
+	lda	#0
+	rts
+
++	ldx	#80
+	cpy	startat
+	beq	+
+	ldx	#10
+	cpy     #1
+	beq	+
+        dey
+	lda	(zpstring), y
+        iny
+	cmp	' '
+	bne	+
+        ldx     #90
++       txa
+	clc
+	adc	runningscore
+	sta	runningscore
+	bcc	+
+	inc	runningscore+1
++	iny
+	sty	startat
+	ldy	i
+	cpy	word
+	iny
+	bcc	-
+
+	lda	runningscore
+	ldx	runningscore+1
+        ldy     string
+        jsr     div
+        sta     tmp
+	lda	runningscore
+	ldx	runningscore+1
+        ldy     word
+        jsr     div
+        clc
+        adc     tmp
+        lsr
+        ldx     word+1
+        cpx     string+1
+        bne     +
+        cmp     #85
+        bcs     +
+        adc     #15
++	rts
+
+tolower
+	cmp	#$41
+	bcc	+
+	cmp	#$5b
+	bcs	+
+	ora	#$20
++	rts
+
+div
+        sta num1
+        stx num1+1
+        sty num2
+
+        lda #0
+        sta rem
+        sta rem+1
+        ldx #16
+-       asl num1
+        rol num1+1
+        rol rem
+        rol rem+1
+        lda rem
+        sec
+        sbc num2
+        bcc +
+        sta rem
+        dec rem+1
+        inc num1
++       dex
+        bne -
+        lda num1
+        rts
+
+rem !byte 0,0
+num1 !byte 0,0
+num2 !byte 0
+
+word	!byte word_e-word_b
+word_b
+	!text "HE"
+word_e
+string	!byte string_e-string_b
+string_b
+	!text "HELLO WORLD"
+string_e

res/wishlist.txt

@@ -83,6 +83,7 @@ Xevious
 //4am has unreleased crack
 Black Magic
 Bop N Wrestle
+Congo
 County Fair
 Free Fall
 Galactic Attack
@@ -106,52 +107,47 @@ Injured Engine
 Jawbreaker ][
 Mating Zone
 Randamn
+Rescue Raiders [priority]
+Saracen
 Test Drive
-Tetris [priority]
+Thexder [DHGR]
 
 //TODO(woz-imaged but uncracked)
+Alien Ambush
+Buzzard Bait [priority]
+Caverns of Callisto
+Cyber Strike [priority]
 The Dam Busters
 Fight Night
+Gorgon [priority]
 Hardball
 One on One
-Saracen
-Rescue Raiders [priority]
-Thexder [DHGR]
+Pulsar II [priority]
+Shuffleboard [priority]
+Space Eggs [priority]
 Zaxxon [priority]
 
 //TODO(flux-imaged but not woz)
 The Bilestoad
 Borg
-Buzzard Bait
-Cyber Strike
+Copts and Robbers
 Flywars
-Gamma Goblins
-Gorgon
+Horizon V
+Lemmings
 Lode Runner [priority]
-Night Mission Pinball [priority]
 Orbitron
 Phantoms Five
 Phaser Fire
-Pulsar II
 Raster Blaster
-Space Eggs
 Spare Change [priority]
 Twerps
 Warp Destroyer
 Wayout
 
 //TODO(unacquired)
-Ceiling Zero
-Congo
-Copts and Robbers
-Dung Beetles
 Eggs It
-Firebird
-Horizon V
 Ice Hockey
 International Hockey
-Lemmings
-Shuffleboard
 Super Zaxxon
 Tempest
 

src/4cade.a

@@ -5,14 +5,14 @@
          !source "src/constants.a"
          !source "src/macros.a"
 
-Init
          jsr   Has64K                ; check for 64K (required)
          bcs   @no64K
          jsr   DisableAccelerator    ; set to 1 MHz
          jsr   Has128K               ; check for 128K (absence is OK, we just filter out some games)
          ror   MachineStatus
          jsr   HasJoystick           ; check for joystick (absence is OK, we just filter out some games)
-         ror   MachineStatus
+         ror   MachineStatus         ; now bit 6 = 1 if 128K
+                                     ;     bit 7 = 1 if joystick
 
          +READ_ROM_WRITE_RAM1
          ldx   #$00                  ; relocate rest of program to RAM bank 1 in language card
@@ -44,9 +44,9 @@ Init
 @no64Klen=*-@s_no64K
 
          ; these routines will only be called once, from main memory, before relocating to language card
-         !source "src/memcheck.a"
-         !source "src/joystick.a"
-         !source "src/normfast.a"
+         !source "src/hw.memcheck.a"
+         !source "src/hw.joystick.a"
+         !source "src/hw.normfast.a"
          ; ProRWTS2 has its own function to relocate itself
          !source "src/prorwts2.a"
 
@@ -54,12 +54,43 @@ FirstMover
 !pseudopc $D000 {
 !zone
 Start
+         jsr   LoadFile
+-        !word gamesconf
+
+         jsr   ParseGamesList
+         !word gGamesListStore
+         !word -
+
+         jsr   okvs_iter_values
+         !word gGamesListStore
+         !word HGRLoad
+         brk
+
+HGRLoad
+         ldx   $C000
+         bmi   @exit
+         +STAY PTR
+         jsr   ResetPath
+         +LDADDR kHGRScreenshotDirectory
+         jsr   AddToPath
+         +LDADDR kPathSeparator
+         jsr   AddToPath
+         +LDAY PTR
+         jsr   AddToPath
+         jsr   LoadFile
+         !word gPathname
+         jsr   FizzleHGR
+@exit    rts
+
+ShowCover
          bit   MachineStatus
          bvs   @Load128
+
          jsr   LoadFile
          !word cover64
          clc
          bcc   @Show
+
 @Load128
          jsr   LoadDHRFile
          !word cover128
@@ -67,23 +98,18 @@ Start
          sta   $C00D
          sta   $C05E
          sta   $C001
+
 @Show
          sta   $C057                 ; show graphics page 1 (HGR or DHGR)
          sta   $C052
          sta   $C054
          sta   $C050
 
-         jsr   LoadFile
--        !word gamesconf
-         jsr   ParseGamesList
-         !word gGamesListStore
-         !word -
-
          bit   $C010
 -        lda   $C000
          bpl   -
          bit   $C010
-         brk
+         rts
 
 gamesconf
          !byte gamesconf_e-gamesconf_b
@@ -101,9 +127,12 @@ cover128_b
          !text "COVER.A2FC"
 cover128_e
          ; these routines will only be called after relocating to language card
+         !source "src/prodos.path.a"
          !source "src/glue.prorwts2.a"
          !source "src/okvs.a"
          !source "src/parse.games.a"
+         !source "src/fx.hgr.fizzle.a"
+         !source "src/fx.dhgr.fizzle.a"
 gGamesListStore
          !word *+2                   ; address of first okvs store
 }

src/constants.a

@@ -26,6 +26,7 @@ MachineStatus =$F0        ; bit 7 = 1 if machine has joystick
 ;              $FF        ; used by ParseGamesList
 
 ; main memory
+gPathname    = $1F00      ; used by ResetPath/AddToPath
 gKeyLen      = $1F00      ; used by ParseGamesList
 gKey         = $1F01
 gValLen      = $1F80

src/fx.dhgr.fizzle.a

@@ -0,0 +1,85 @@
+;license:MIT
+;(c) 2017-2018 by qkumba
+;
+; NOTE:  must be run from language card, or caller must ensure that
+;        this code is in an identical location in auxmem
+;
+FizzleDHGR
+         ;init RNG
+
+         ldx   #1
+         stx   @rnd1+1
+         dex
+         stx   @rnd2+1
+
+         ;iterate
+
+@loop
+         ldy   @rnd1+1
+         ldx   @rnd2+1
+         lsr   @rnd2+1
+         ror   @rnd1+1
+         bcc   +
+
+         ;feedback polynomial forms #$2015 for period of 16383
+
+         lda   @rnd1+1
+         eor   #$15
+         sta   @rnd1+1
+         lda   @rnd2+1
+         eor   #$20
+         sta   @rnd2+1
+
+         ;little hack to avoid missing offset zero
+         ;screen hole at $xxFF is missed instead
+
++        tya
+         eor   #$ff
+         sta   $26
+         sta   $3c
+         txa
+         and   #$1f
+
+         ;target page 1
+
+         ora   #$20
+         sta   $27
+         eor   #$60
+         sta   $3d
+
+         ;copy pixel from other page to this page
+
+         ldy   #0
+         cpx   #$20
+         bcc   +
+         sta   $c003
+         sta   $c005
++        lda   ($3c),y
+         sta   ($26),y
+         sta   $c002
+         sta   $c004
+
+        ;check for keypress
+
+         lda   $c000
+         bmi   @exit
+
+        ;and exit condition
+
+@rnd2    lda   #0
+         bne   @loop
+@rnd1    lda   #0
+         cmp   #1
+         bne   @loop
+
+        ;graphics mode
+
+         sta   $c00d
+         sta   $c057
+         sta   $c054
+         sta   $c052
+         sta   $c050
+         sta   $c05e
+
+@exit
+         rts

src/fx.hgr.fizzle.a

@@ -0,0 +1,73 @@
+;license:MIT
+;(c) 2017-2018 by qkumba
+
+FizzleHGR
+         ;init RNG
+
+         ldx   #1
+         stx   @rnd1+1
+         dex
+         stx   @rnd2+1
+
+         ;iterate
+
+@loop
+         ldy   @rnd1+1
+         ldx   @rnd2+1
+         lsr   @rnd2+1
+         ror   @rnd1+1
+         bcc   +
+
+         ;feedback polynomial forms #$100D for period of 8191
+
+         lda   @rnd1+1
+         eor   #$0d
+         sta   @rnd1+1
+         lda   @rnd2+1
+         eor   #$10
+         sta   @rnd2+1
+
+         ;little hack to avoid missing offset zero
+         ;screen hole at $xxFF is missed instead
+
++        tya
+         eor   #$ff
+         sta   $26
+         sta   $3c
+         txa
+
+         ;target page 1
+
+         ora   #$20
+         sta   $27
+         eor   #$60
+         sta   $3d
+
+         ;copy pixel from other page to this page
+
+         ldy   #0
+         lda   ($3c),y
+         sta   ($26),y
+
+         ;check for keypress
+
+         lda   $c000
+         bmi   @exit
+
+         ;and exit condition
+
+@rnd2    lda   #0
+         bne   @loop
+@rnd1    lda   #0
+         cmp   #1
+         bne   @loop
+
+         ;graphics mode
+
+         lda   $c057
+         lda   $c054
+         lda   $c052
+         lda   $c050
+
+@exit
+         rts

src/okvs.a

@@ -14,8 +14,6 @@
 ; - okvs_iter_values(address, callback)         iterate through values
 ; - okvs_as_boolean(value)                      set Z flag based on value
 ;
-; Used for global preferences, per-game options, and per-game version lists
-;
 ; Call init() once. Call it again to reset the store to 0 keys.
 ;
 ; Keys are maintained in a singly linked list, so most functions are O(n).
@@ -441,28 +439,6 @@ okvs_iter_values
          bne   @loop
 @exit    rts
 
-;------------------------------------------------------------------------------
-; okvs_as_boolean
-;
-; in:    A = address of value [lo]
-;        Y = address of value [hi]
-; out:   Z clear if value is a 1-byte string with value #$00 or the digit '0'
-;        Z set otherwise
-;        X preserved, A/Y clobbered
-;------------------------------------------------------------------------------
-okvs_as_boolean
-         +STAY PTR
-         ldy   #0
-         lda   (PTR),y
-         cmp   #1
-         bne   +
-         iny
-         lda   (PTR),y
-         beq   +
-         ora   #$80
-         cmp   #$B0
-+        rts
-
 ;------------------------------------------------------------------------------
 ; internal functions
 

src/prodos.path.a

@@ -0,0 +1,61 @@
+;license:MIT
+;(c) 2018 by 4am
+;
+; ProDOS - functions for constructing and passing around ProDOS pathnames
+;
+; Public functions
+; - ResetPath
+; - AddToPath
+;
+; Public constants
+; - kPathSeparator
+
+kPathSeparator
+         !byte 1
+         !raw  "/"
+
+kHGRScreenshotDirectory
+         !byte 1
+         !raw  "I"
+
+;------------------------------------------------------------------------------
+; ResetPath
+; reset gPathname to length 0
+;
+; in:    none
+; out:   X = 0
+;        A/Y preserved
+;------------------------------------------------------------------------------
+ResetPath
+         ldx   #0
+         stx   gPathname
+         rts
+
+;------------------------------------------------------------------------------
+; AddToPath
+; append a length-prefixed string to gPathname
+;
+; in:    A contains low byte of address of length-prefixed string to append
+;        Y contains high byte of address of length-prefixed string to append
+; out:   all registers and flags clobbered
+;        $00/$01 clobbered
+;        gPathname updated with concatenated length-prefixed string
+;------------------------------------------------------------------------------
+AddToPath
+         +STAY $00
+         ldx   gPathname             ; current pathname length
+         ldy   #0
+         lda   ($00),y               ; length of this segment
+         tay
+         iny
+         sty   @len
+         ldy   #$01
+-        lda   ($00),y
+         sta   gPathname+1,x
+         inx
+         iny
+@len=*+1
+         cpy   #$FD                  ; SMC
+         bcc   -
+         stx   gPathname
+         rts