year updates and other minor things

This commit is contained in:
4am 2020-03-16 21:58:05 -04:00
parent 8100a03c48
commit 6ac049d44c
16 changed files with 28 additions and 22 deletions

View File

@ -70,8 +70,6 @@ SUMMER.EDITION=Type(06),AuxType(3FF8),Access(C3)
SUMMER.EDITION2=Type(06),AuxType(3FF8),Access(C3) SUMMER.EDITION2=Type(06),AuxType(3FF8),Access(C3)
SUMMER.EDITION3=Type(06),AuxType(3FF8),Access(C3) SUMMER.EDITION3=Type(06),AuxType(3FF8),Access(C3)
TECHNOCOP=Type(06),AuxType(3FF8),Access(C3) TECHNOCOP=Type(06),AuxType(3FF8),Access(C3)
TECHNOCOP.AUX=Type(06),AuxType(3FF8),Access(C3)
TECHNOCOP.BIN=Type(06),AuxType(3FF8),Access(C3)
TETRIS=Type(06),AuxType(3FF8),Access(C3) TETRIS=Type(06),AuxType(3FF8),Access(C3)
TETRIS2=Type(06),AuxType(3FF8),Access(C3) TETRIS2=Type(06),AuxType(3FF8),Access(C3)
TETRIS3=Type(06),AuxType(3FF8),Access(C3) TETRIS3=Type(06),AuxType(3FF8),Access(C3)

View File

@ -1,5 +1,5 @@
;license:MIT ;license:MIT
;(c) 2018-20 by 4am ;(c) 2018-2020 by 4am
; ;
!cpu 6502 !cpu 6502
!to "build/LAUNCHER.SYSTEM",plain !to "build/LAUNCHER.SYSTEM",plain

View File

@ -1,5 +1,5 @@
;license:MIT ;license:MIT
;(c) 2018-20 by 4am ;(c) 2018-2020 by 4am
; ;
; first-run initialization code ; first-run initialization code
; ;

View File

@ -1,5 +1,5 @@
;license:MIT ;license:MIT
;(c) 2019 by 4am & qkumba ;(c) 2019-2020 by 4am & qkumba
; ;
; Functions to enable and disable acceleration on various ; Functions to enable and disable acceleration on various
; Apple II models, cards, and environments ; Apple II models, cards, and environments

View File

@ -1,6 +1,5 @@
;license:MIT ;license:MIT
;(c) 2019-20 by Andrew Roughan, qkumba ;(c) 2019-2020 by Andrew Roughan, qkumba, 4am
; in the style of 4am for Total Replay
; ;
; Mockingboard support functions ; Mockingboard support functions
; ;

View File

@ -1,5 +1,5 @@
;license:MIT ;license:MIT
;(c) 2018-9 by 4am ;(c) 2018-2020 by 4am
; ;
; Parser for global preferences file ; Parser for global preferences file
; ;

View File

@ -1,5 +1,5 @@
;license:MIT ;license:MIT
;(c) 2018-9 by 4am ;(c) 2018-2020 by 4am
; ;
; ProDOS - functions for constructing and passing around ProDOS pathnames ; ProDOS - functions for constructing and passing around ProDOS pathnames
; ;

View File

@ -9,6 +9,8 @@
; - DHGRSingle ; - DHGRSingle
; - BlankHGR ; - BlankHGR
; - HGRMode ; - HGRMode
; - ForceHGRMOde
; - DrawGameTitleInActionSlideshowHGR
; - RedrawForDHGR ; - RedrawForDHGR
; ;
@ -108,9 +110,17 @@ GRMode
bit $C050 bit $C050
DHGRRTS rts DHGRRTS rts
;------------------------------------------------------------------------------
; ForceHGRMode
; if machine is in DHGR mode, switch it back to HGR mode
; otherwise do nothing
;
; in: none
; out: see BlankHGR
;------------------------------------------------------------------------------
ForceHGRMode ForceHGRMode
gMachineInDHGRMode=*+1 gMachineInDHGRMode=*+1
lda #$00 lda #$00 ; SMC
bne BlankHGR bne BlankHGR
beq DHGRRTS beq DHGRRTS

View File

@ -17,11 +17,11 @@
; graphics mode set to display hi-res screen ; graphics mode set to display hi-res screen
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
GRActionSlideshow GRActionSlideshow
jsr .LoadGRTransition ; load transition effect code at $6000 jsr LoadGRTransition ; load transition effect code at $6000
jsr BlankGR ; switch GR mode with initial blank screen jsr BlankGR ; switch GR mode with initial blank screen
jsr okvs_iter ; cycle through all listed GR files jsr okvs_iter ; cycle through all listed GR files
!word gSlideshowStore !word gSlideshowStore
!word .GRActionCallback ; address of callback (called on each file) !word GRActionCallback ; address of callback (called on each file)
jmp BlankHGR ; switch back to HGR mode with initial blank screen on exit jmp BlankHGR ; switch back to HGR mode with initial blank screen on exit
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
@ -39,7 +39,7 @@ GRSingle
!word kRootDirectory !word kRootDirectory
@fname !word $FDFD ; SMC @fname !word $FDFD ; SMC
!word $6000 !word $6000
jsr .LoadGRTransition ; load transition effect code at $6400 jsr LoadGRTransition ; load transition effect code at $6400
jsr ExecuteTransitionAt6400AndWait jsr ExecuteTransitionAt6400AndWait
jmp BlankHGR ; switch back to HGR mode with initial blank screen on exit jmp BlankHGR ; switch back to HGR mode with initial blank screen on exit
@ -70,7 +70,7 @@ BlankGR
; $6400..$BFFF/main contains transition effect code (probably not all ; $6400..$BFFF/main contains transition effect code (probably not all
; of that, but no promises) ; of that, but no promises)
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
.LoadGRTransition LoadGRTransition
jsr LoadFile jsr LoadFile
!word kFXDirectory !word kFXDirectory
!word kGRFizzleFile !word kGRFizzleFile
@ -89,7 +89,7 @@ GRRTS rts
; $0800..$1EFF preserved (this contains the gSlideshowStore OKVS data) ; $0800..$1EFF preserved (this contains the gSlideshowStore OKVS data)
; $2000..$BFFF clobbered by graphics data and transition code ; $2000..$BFFF clobbered by graphics data and transition code
;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------
.GRActionCallback GRActionCallback
bit KBD bit KBD
bmi GRRTS bmi GRRTS

View File

@ -1,5 +1,5 @@
;license:MIT ;license:MIT
;(c) 2018-9 by 4am ;(c) 2018-2020 by 4am
; ;
; Browse Mode - main UI ; Browse Mode - main UI
; ;

View File

@ -1,5 +1,5 @@
;License:MIT ;License:MIT
;(c) 2018-9 by 4am ;(c) 2018-2020 by 4am
; ;
; miscellaneous UI functions ; miscellaneous UI functions
; ;

View File

@ -14,7 +14,6 @@
; - DrawBuffer ; - DrawBuffer
; ;
; /!\ execution falls through from ui.attract.hgr/HGRActionCallback
DrawString DrawString
jsr SwitchToBank2 jsr SwitchToBank2
jsr DrawStringInternal jsr DrawStringInternal

View File

@ -1,5 +1,5 @@
;license:MIT ;license:MIT
;(c) 2018-9 by 4am ;(c) 2018-2020 by 4am
; ;
; hi-res font drawing routines ; hi-res font drawing routines
; ;

View File

@ -1,5 +1,5 @@
;License:MIT ;License:MIT
;(c) 2018-9 by 4am ;(c) 2018-2020 by 4am
; ;
; routines for drawing the UI overlay (search bar, browse bar, instructions, cheat mode) ; routines for drawing the UI overlay (search bar, browse bar, instructions, cheat mode)
; on top of whatever else is on the screen ; on top of whatever else is on the screen

View File

@ -1,5 +1,5 @@
;license:MIT ;license:MIT
;(c) 2018-9 by 4am ;(c) 2018-2020 by 4am
; ;
; Search Mode - main UI ; Search Mode - main UI
; ;

View File

@ -1,5 +1,5 @@
;License:MIT ;License:MIT
;(c) 2018-9 by 4am ;(c) 2018-2020 by 4am
; ;
; UI functions for doing things then waiting, or waiting then doing things ; UI functions for doing things then waiting, or waiting then doing things
; ;