4cade/src/prelaunch/stellar.7.a

49 lines
1010 B
Plaintext
Raw Normal View History

2019-12-15 03:15:27 +00:00
;license:MIT
2024-05-10 23:47:30 +00:00
;(c) 2019, 2022, 2024 by qkumba/Frank M.
2019-12-15 03:15:27 +00:00
!cpu 6502
!to "build/PRELAUNCH.INDEXED/STELLAR.7",plain
2019-12-15 03:15:27 +00:00
*=$106
!source "src/macros.a"
2019-12-15 03:15:27 +00:00
2024-05-10 23:47:30 +00:00
lda #$60
sta $33C
2024-05-10 23:47:30 +00:00
jsr $300
2019-12-15 03:15:27 +00:00
+USES_TEXT_PAGE_2
+ENABLE_ACCEL
2019-12-17 14:46:30 +00:00
lda #$60
sta $863
jsr $800 ; unpack
2019-12-17 14:46:30 +00:00
lda #0
sta $AE2A
lda #1
sta $AE2C
lda #$A4
sta $AE28 ; reset vector patch
2022-05-27 23:29:52 +00:00
+READ_RAM2_NO_WRITE
lda MachineStatus
and #CHEATS_ENABLED
beq +
lda #<callback
sta $AE71
lda #>callback
sta $AE72
+
jsr DisableAccelerator
+READ_ROM_NO_WRITE
2019-12-17 14:46:30 +00:00
jmp $AE27
2022-05-27 23:29:52 +00:00
callback
jsr $AF60
lda #$AD
sta $80D8 ; patch - don't decrease fuel
sta $8095 ; patch - don't increase damage
jmp $A440
2019-12-15 03:15:27 +00:00
!if * > $1C0 {
!error "code is too large, ends at ", *
}