mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-01-08 19:33:03 +00:00
118 lines
3.1 KiB
ArmAsm
118 lines
3.1 KiB
ArmAsm
; Loader for Peasant's Quest
|
|
|
|
; Based on QLOAD by qkumba which loads raw tracks off of disks
|
|
|
|
; This particular version only supports using a single disk drive
|
|
; (I have other versions that can look for disks across two drives)
|
|
|
|
; it also loads the QLOAD paramaters from disk separately
|
|
|
|
|
|
.include "zp.inc"
|
|
|
|
.include "hardware.inc"
|
|
|
|
;.include "common_defines.inc"
|
|
|
|
.include "qboot.inc"
|
|
|
|
qload_start:
|
|
|
|
.if FLOPPY=1
|
|
.include "qload_floppy.s"
|
|
.else
|
|
.include "qload_hd.s"
|
|
.endif
|
|
|
|
.align $100
|
|
|
|
which_disk_array:
|
|
.byte 1,1,1,1 ; VID_LOGO, TITLE, INTRO. COPY_CHECK
|
|
.byte 2,2,2,2 ; PEASANT1, PEASANT2, PEASANT3, PEASANT4
|
|
.byte 3,3,1,3 ; TROGDOR, ENDING, MUSIC, CLIFF_BASE
|
|
.byte 1,1,1,3 ; GAME_OVER, INVENTORY, PARSE_INPUT, INN
|
|
.byte 3,3,3,3 ; INSIDE, ARCHERY, MAP, CLIMB
|
|
.byte 3 ; HEIGHTS
|
|
|
|
.byte 1,1,1 ; SAVE1, SAVE2, SAVE3
|
|
.byte $f ; disk detect
|
|
|
|
load_address_array:
|
|
.byte $60,$60,$60,$60 ; VID_LOGO, TITLE, INTRO, COPY_CHECK
|
|
.byte $60,$60,$60,$60 ; PEASANT1, PEASANT2, PEASANT3, PEASANT4
|
|
.byte $60,$60,$D0,$60 ; TROGDOR, ENDING, MUSIC, CLIFF
|
|
.byte $60,$D0,$20,$60 ; GAME_OVER, INVENTORY, PARSE_INPUT, INN
|
|
.byte $60,$60,$60,$60 ; INSIDE, ARCHERY, MAP, CLIMB
|
|
.byte $60 ; HEIGHTS
|
|
|
|
.byte $BC,$BC,$BC ; SAVE1, SAVE2, SAVE3
|
|
.byte $BC ; disk detect
|
|
|
|
track_array:
|
|
.byte 4, 6, 9,1 ; VID_LOGO, TITLE, INTRO, COPY_CHECK
|
|
.byte 15,20,25,30 ; PEASANT1, PEASANT2, PEASANT3, PEASANT4
|
|
.byte 15,19, 3,24 ; TROGDOR, ENDING, MUSIC, CLIFF_BASE
|
|
.byte 15,14,13,11 ; GAME_OVER, INVENTORY, PARSE_INPUT, INN
|
|
.byte 7,3,1,26 ; INSIDE, ARCHERY, MAP, CLIMB
|
|
.byte 30 ; HEIGHTS
|
|
|
|
.byte 0, 0, 0 ; SAVE1, SAVE2, SAVE3
|
|
.byte 0 ; disk detect
|
|
|
|
sector_array:
|
|
.byte 0, 0, 0, 0 ; VID_LOGO, TITLE, INTRO, COPY_CHECK
|
|
.byte 0, 0, 0, 0 ; PEASANT1, PEASANT2, PEASANT3, PEASANT4
|
|
.byte 0, 0, 0, 0 ; TROGDOR, ENDING, MUSIC, CLIFF_BASE
|
|
.byte 0, 0, 0, 0 ; GAME_OVER, INVENTORY, PARSE_INPUT, INN
|
|
.byte 0, 0, 0, 0 ; INSIDE, ARCHERY, MAP, CLIMB
|
|
.byte 0 ; HEIGHTS
|
|
|
|
.byte 11,12,13 ; SAVE1, SAVE2, SAVE3
|
|
.byte 0 ; disk detect
|
|
|
|
length_array:
|
|
.byte 32, 50, 60, 20 ; VID_LOGO, TITLE, INTRO, COPY_CHECK
|
|
.byte 80, 88, 88, 80 ; PEASANT1, PEASANT2, PEASANT3, PEASANT4
|
|
.byte 64, 80, 16, 32 ; TROGDOR, ENDING, MUSIC, CLIFF_BASE
|
|
.byte 16, 16, 16, 64 ; GAME_OVER, INVENTORY, PARSE_INPUT, INN
|
|
.byte 64, 64, 32, 64 ; INSIDE, ARCHERY, MAP, CLIMB
|
|
.byte 64 ; HEIGHTS
|
|
|
|
.byte 1,1,1 ; SAVE1, SAVE2, SAVE3
|
|
.byte 1 ; disk detect
|
|
|
|
|
|
load_file:
|
|
jmp load_file_internal
|
|
|
|
.include "qkumba_popwr.s"
|
|
.include "zx02_optim.s"
|
|
.include "hgr_font.s"
|
|
.include "draw_box.s"
|
|
.include "hgr_rectangle.s"
|
|
.include "hgr_1x28_sprite_mask.s"
|
|
.include "hgr_partial_save.s"
|
|
.include "hgr_input.s"
|
|
.include "hgr_tables.s"
|
|
.include "hgr_text_box.s"
|
|
.include "clear_bottom.s"
|
|
.include "hgr_hgr2.s" ; this one is maybe only needed once?
|
|
.include "gr_offsets.s"
|
|
.include "loadsave_menu.s"
|
|
.include "wait_keypress.s"
|
|
.include "random16.s"
|
|
.include "score.s"
|
|
.include "speaker_beeps.s"
|
|
|
|
peasant_text:
|
|
.byte 25,2,"Peasant's Quest",0
|
|
|
|
qload_end:
|
|
|
|
;.assert (>qload_end - >qload_start) < $e , error, "loader too big"
|
|
.assert (>qload_end - >qload_start) < $15 , error, "loader too big"
|
|
|
|
|
|
|
|
|