2018-08-23 20:02:48 +00:00
|
|
|
!cpu 6502
|
|
|
|
|
!to "build/LAUNCHER.SYSTEM",plain
|
|
|
|
|
*=$2000
|
|
|
|
|
|
2018-08-27 19:39:08 +00:00
|
|
|
jmp Start
|
2018-08-23 20:02:48 +00:00
|
|
|
|
2018-08-26 19:33:32 +00:00
|
|
|
!source "src/constants.a"
|
|
|
|
|
!source "src/macros.a"
|
2018-08-27 19:39:08 +00:00
|
|
|
!source "src/memcheck.a"
|
|
|
|
|
!source "src/joystick.a"
|
|
|
|
|
!source "src/normfast.a"
|
2018-08-23 20:02:48 +00:00
|
|
|
|
2018-08-27 19:39:08 +00:00
|
|
|
!zone {
|
|
|
|
|
Start
|
|
|
|
|
jsr $FE89
|
|
|
|
|
jsr $FE93
|
|
|
|
|
jsr $FB2F
|
|
|
|
|
jsr $FC58
|
2018-08-26 19:33:32 +00:00
|
|
|
jsr Has128K
|
2018-08-27 19:39:08 +00:00
|
|
|
bmi @found128K
|
|
|
|
|
ldy #9
|
|
|
|
|
- lda @s_needs128K,y
|
|
|
|
|
sta $400,y
|
2018-08-26 19:33:32 +00:00
|
|
|
dey
|
|
|
|
|
bpl -
|
2018-08-27 19:39:08 +00:00
|
|
|
@hang bmi @hang
|
|
|
|
|
@s_needs128K
|
|
|
|
|
!text "NEEDS 128K"
|
|
|
|
|
@found128K
|
|
|
|
|
jsr DisableAccelerator
|
|
|
|
|
jsr HasJoystick
|
|
|
|
|
bcc @hang
|
|
|
|
|
ldy #10
|
|
|
|
|
- lda @s_nojoystick,y
|
|
|
|
|
sta $400,y
|
2018-08-26 19:33:32 +00:00
|
|
|
dey
|
|
|
|
|
bpl -
|
2018-08-27 19:39:08 +00:00
|
|
|
bmi @hang
|
|
|
|
|
@s_nojoystick
|
|
|
|
|
!text "NO JOYSTICK"
|
|
|
|
|
}
|
2018-08-23 20:02:48 +00:00
|
|
|
|
|
|
|
|
; jsr init ; initialize ProRWTS2
|
|
|
|
|
; lda $C08B
|
|
|
|
|
; lda $C08B
|
|
|
|
|
; lda #<cover
|
|
|
|
|
; sta namlo
|
|
|
|
|
; lda #>cover
|
|
|
|
|
; sta namhi
|
|
|
|
|
; lda #0
|
|
|
|
|
; sta sizelo
|
|
|
|
|
; lda #$20
|
|
|
|
|
; sta sizehi
|
|
|
|
|
; jsr hddopendir
|
|
|
|
|
; bit $C055
|
|
|
|
|
; bit $C052
|
|
|
|
|
; bit $C057
|
|
|
|
|
; bit $C050
|
2018-08-26 19:33:32 +00:00
|
|
|
;cover !byte cover_e-cover_b
|
|
|
|
|
;cover_b !text "COVER"
|
|
|
|
|
;cover_e
|
2018-08-23 20:02:48 +00:00
|
|
|
|
|
|
|
|
;LoadDHGR
|
|
|
|
|
; sta $C000
|
|
|
|
|
; ldx #$20 ; copy $2000 bytes to auxmem
|
|
|
|
|
; stx @copya+2
|
|
|
|
|
; stx @copyb+2
|
|
|
|
|
; ldy #0
|
|
|
|
|
;@writeToAuxLoop
|
|
|
|
|
; sta $C005
|
|
|
|
|
;@copya lda $FF00, y
|
|
|
|
|
;@copyb sta $FF00, y
|
|
|
|
|
; iny
|
|
|
|
|
; bne @copya
|
|
|
|
|
; sta $C004
|
|
|
|
|
; inc @copya+2
|
|
|
|
|
; inc @copyb+2
|
|
|
|
|
; dex
|
|
|
|
|
; bne @writeToAuxLoop
|
