4sports/src/demo/track.and.field.a
2022-12-19 10:21:25 -08:00

82 lines
1.8 KiB
Plaintext

;license:MIT
;(c) 2022 by qkumba
!cpu 6502
!to "build/DEMO/TRACK.AND.FIELD#060300",plain
*=$300
!source "src/constants.a" ; no code in these
!source "src/macros.a"
+READ_RAM2_WRITE_RAM2
jsr EnableAccelerator
+LOAD_FILE_KEEP_DIR track_and_field, 0, track_and_field_dir_e-track_and_field_dir_b
+READ_ROM_NO_WRITE
lda #$60
sta $861
jsr $800
lda #$60
sta $a648
lda #0
jsr $a600
lda #$0C
jsr $a600
lda #$10
jsr $a600
lda #$11
jsr $a600
lda #$0F
jsr $a600
lda #$0A
jsr $a600
ldx #(patch_e-patch_b)-1
- lda patch_b,x
sta $9975,x
dex
bpl -
ldx #4-1
bne +
- lda patch,x
sta $863,x
sta $B00,x ; set exits
+ lda patch2,x
sta $AD7,x
dex
bpl -
lda #$2C
sta $ECC
sta $ED3
sta $EDA
sta $F02
lda #$D0
sta $18FF
sta $1927
sta $1947
sta $A02D
sta $A037
sta $A1BF
+DISABLE_ACCEL
jmp $800
patch_b
!byte 1, 0, 7, 0, 0, 3, $AE, $AE, $AE, 1, 0, 7, 0, 0, 3, $AE, $AE, $AE, 1, 0, 7, 0, 0
!byte 3, $AE, $AE, $AE
patch_e
patch !byte $4C,$00,$01
patch2 !byte $30,$27,$EA,$EA
track_and_field
!byte track_and_field_e-track_and_field_b
track_and_field_b
track_and_field_dir_b
!text "X/TRACK.AND.FIELD"
track_and_field_dir_e
!text "/TRACK.AND.FIELD"
track_and_field_e
!if * > $3F0 {
!error "code is too large, ends at ", *
}