4cade/src/prodos.path.a

172 lines
3.2 KiB
Plaintext
Raw Normal View History

2018-09-13 13:53:04 +00:00
;license:MIT
2020-03-17 01:58:05 +00:00
;(c) 2018-2020 by 4am
2018-09-13 13:53:04 +00:00
;
; ProDOS - functions for constructing and passing around ProDOS pathnames
;
; Public functions
; - SetPath
2018-09-13 13:53:04 +00:00
; - AddToPath
;
2019-10-10 04:26:18 +00:00
;------------------------------------------------------------------------------
; SetPath/AddToPath
; append a length-prefixed string to gPathname
; SetPath will reset the path first
;
; 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
; $02/$03 (PTR/PTR+1) clobbered
; gPathname updated with concatenated length-prefixed string
;------------------------------------------------------------------------------
SetPath
kRootDirectory=*+1
ldx #0
stx gPathname
; execution falls through here
!if RELBASE != $2000 {
!ifdef PASS2 {
} else { ;PASS2
!if * != iAddToPath {
!error "iAddToPath=",*, ", fix constants.a"
}
}
}
2019-10-10 04:26:18 +00:00
AddToPath
2020-03-24 20:30:14 +00:00
+ST16 PTR
2019-10-10 04:26:18 +00:00
ldy #0
lda (PTR),y ; length of this segment
beq @done
tay
iny
sty @max
ldx gPathname ; current pathname length
ldy #$01
- lda (PTR),y
sta gPathname+1,x
inx
iny
@max = *+1
cpy #$D1 ; SMC
bcc -
stx gPathname
@done
rts
2018-12-29 18:29:17 +00:00
kHGRTitleDirectory
!byte 10
!raw "TITLE.HGR/"
2019-02-09 01:48:07 +00:00
kDHGRTitleDirectory
!byte 11
!raw "TITLE.DHGR/"
2018-10-28 18:04:52 +00:00
2019-09-28 12:35:48 +00:00
kAnimatedTitleDirectory
!byte 15
!raw "TITLE.ANIMATED/"
2018-12-29 18:29:17 +00:00
kHGRActionDirectory
!byte 11
!raw "ACTION.HGR/"
2018-12-29 18:29:17 +00:00
2019-02-09 01:48:07 +00:00
kDHGRActionDirectory
!byte 12
!raw "ACTION.DHGR/"
2018-09-13 13:53:04 +00:00
kGRActionDirectory
!byte 10
!raw "ACTION.GR/"
2019-01-13 23:55:40 +00:00
kSHRArtworkDirectory
!byte 12
!raw "ARTWORK.SHR/"
2019-01-13 23:55:40 +00:00
2019-06-27 02:51:34 +00:00
kMiniAttractDirectory
!byte 8
!raw "ATTRACT/"
2018-10-27 22:47:27 +00:00
kAttractModeSlideshowDirectory
!byte 3
!raw "SS/"
2018-10-27 22:47:27 +00:00
2018-10-28 21:20:48 +00:00
kDemoDirectory
!byte 5
!raw "DEMO/"
2018-10-28 21:20:48 +00:00
2019-01-08 19:10:26 +00:00
kGameDirectory
!byte 2
!raw "X/"
2019-10-09 04:25:10 +00:00
kGameDirectoryLen = 3 ; we need this elsewhere
2019-01-08 19:10:26 +00:00
kFXDirectory
!byte 3
!raw "FX/"
2019-09-15 02:57:52 +00:00
kPrelaunchDirectory
!byte 10
!raw "PRELAUNCH/"
2020-04-02 21:58:13 +00:00
kGameHelpDirectory
!byte 9
!raw "GAMEHELP/"
2019-09-15 02:57:52 +00:00
kStandardPrelaunch
!byte 8
!raw "STANDARD"
2019-09-21 22:11:52 +00:00
kGlobalPrefsFilename
!byte 10
!raw "PREFS.CONF"
kAttractModeConfFile
!byte 12
!raw "ATTRACT.CONF"
2019-09-21 22:04:38 +00:00
kFXConfFile
!byte 7
2019-09-21 22:11:52 +00:00
!raw "FX.CONF"
2019-09-21 22:04:38 +00:00
kDFXConfFile
!byte 8
2019-09-21 22:11:52 +00:00
!raw "DFX.CONF"
2019-09-21 22:04:38 +00:00
kCreditsFile
!byte 7
2019-09-21 22:11:52 +00:00
!raw "CREDITS"
kHelpBackgroundFile
!byte 4
!raw "HELP"
kHelpTextFile
!byte 8
!raw "HELPTEXT"
2019-09-21 22:11:52 +00:00
kTitleFile
!byte 5
!raw "TITLE"
kCoverFile
!byte 5
!raw "COVER"
2019-09-21 22:04:38 +00:00
kCoverFadeFile
!byte 9
2019-09-21 22:11:52 +00:00
!raw "COVERFADE"
kGRFizzleFile
!byte 9
!raw "GR.FIZZLE"
kSFXFizzleFile
!byte 10
!raw "SHR.FIZZLE"
2020-03-14 02:04:03 +00:00
kDecrunchFile
!byte 8
!raw "DECRUNCH"
kJoystickFile
!byte 8
!raw "JOYSTICK"