mirror of https://github.com/a2-4am/4sports.git
125 lines
3.1 KiB
Plaintext
125 lines
3.1 KiB
Plaintext
!cpu 6502
|
|
*=$8000
|
|
!to "build/ROCK.N.SCROLL#068000",plain
|
|
!ct "src/lcase.ct"
|
|
|
|
!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 = 1
|
|
kExoProgressWidth = 18 ; depends on total size, max 38
|
|
!src "../common/src/exodecrunch.a"
|
|
|
|
start
|
|
+INIT_MACHINE
|
|
print_loop
|
|
lda LoadingText
|
|
beq +
|
|
jsr ROM_COUT
|
|
inc print_loop+1
|
|
bne print_loop
|
|
inc print_loop+2
|
|
bne print_loop
|
|
+
|
|
!if * != $B55F {
|
|
!serious "Adjust prelaunch to patch JSR at ", *, " to JMP"
|
|
}
|
|
jsr decrunch ; compressed data contains target address
|
|
bit GFXMODE
|
|
bit PAGE1
|
|
bit HIRES
|
|
bit FULLGFX
|
|
jsr $900
|
|
bit CLEARKBD
|
|
jsr PRODOS_MLI
|
|
!byte CMD_QUIT
|
|
!word +
|
|
+ !byte 4
|
|
|
|
get_crunched_byte
|
|
lda compressed_data
|
|
inc get_crunched_byte+1
|
|
bne +
|
|
inc get_crunched_byte+2
|
|
+ rts
|
|
|
|
LoadingText
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
!text " "
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
!text " BEZ PRESENTS "
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
!text " "
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
!text " ROCK AND SCROLL "
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
!text " "
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
!text " BY "
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
!text " "
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
!text " JOHN BESNARD "
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
!text " COPYRIGHT 1987 "
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
!text "______________________________________"
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
|
|
!byte $8D,$8D,$8D
|
|
|
|
!text " SPECIAL COPY FOR FRIENDS OF BEZ",$8D,$8D,$8D,$8D
|
|
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
!scrxor $40,"GAME"
|
|
!scrxor $00," & "
|
|
!scrxor $40,"ROUTINES"
|
|
!scrxor $00,", "
|
|
!scrxor $40,"COPYRIGHT"
|
|
!scrxor $00," "
|
|
!scrxor $40,"BEZ"
|
|
!scrxor $00," 1987 "
|
|
|
|
!scrxor $00," "
|
|
!scrxor $40,"MOCKINGBOARD"
|
|
!scrxor $00,", "
|
|
!scrxor $40,"COPYRIGHT"
|
|
!scrxor $00," "
|
|
!scrxor $40,"SWEET"
|
|
!scrxor $00," "
|
|
!scrxor $40,"MICRO"
|
|
!scrxor $00," "
|
|
|
|
!scrxor $00," "
|
|
|
|
!byte $00
|