123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183 |
- ;:ts=8
- R0 equ 1
- R1 equ 5
- R2 equ 9
- R3 equ 13
- code
- xdef __initInternalRegisters
- func
- __initInternalRegisters:
- longa on
- longi on
- tsc
- sec
- sbc #L2
- tcs
- phd
- tcd
- stz |__characterLocation
- stz |__characterLocation+2
- stz |__characterLocation+4
- stz |__characterLocation+6
- jsr __initDebugMap
- L4:
- pld
- tsc
- clc
- adc #L2
- tcs
- rts
- L2 equ 0
- L3 equ 1
- ends
- efunc
- code
- xdef __preInit
- func
- __preInit:
- longa on
- longi on
- tsc
- sec
- sbc #L5
- tcs
- phd
- tcd
- L7:
- pld
- tsc
- clc
- adc #L5
- tcs
- rts
- L5 equ 0
- L6 equ 1
- ends
- efunc
- code
- xdef __main
- func
- __main:
- longa on
- longi on
- tsc
- sec
- sbc #L8
- tcs
- phd
- tcd
- jsr __initInternalRegisters
- pea #<$0
- pea #<$0
- pea #<$1000
- jsr __setTileMapLocation
- pea #<$0
- pea #<$2000
- jsr __setCharacterLocation
- pea #<$100
- pea #<$0
- lda #<__title_pal
- pha
- jsr __CGRAMLoad
- sep #$20
- longa off
- lda #$1
- sta |8453
- rep #$20
- longa on
- sep #$20
- longa off
- lda #$1
- sta |8492
- rep #$20
- longa on
- sep #$20
- longa off
- lda #$0
- sta |8493
- rep #$20
- longa on
- sep #$20
- longa off
- lda #$f
- sta |8448
- rep #$20
- longa on
- stz |__currentScrollEvent
- stz |__scrollValue
- jsr __debug
- L10001:
- brl L10001
- L8 equ 0
- L9 equ 1
- ends
- efunc
- code
- xdef __IRQHandler
- func
- __IRQHandler:
- longa on
- longi on
- tsc
- sec
- sbc #L10
- tcs
- phd
- tcd
- L12:
- pld
- tsc
- clc
- adc #L10
- tcs
- rts
- L10 equ 0
- L11 equ 1
- ends
- efunc
- code
- xdef __NMIHandler
- func
- __NMIHandler:
- longa on
- longi on
- tsc
- sec
- sbc #L13
- tcs
- phd
- tcd
- L15:
- pld
- tsc
- clc
- adc #L13
- tcs
- rts
- L13 equ 0
- L14 equ 1
- ends
- efunc
- xref __debug
- xref __initDebugMap
- xref __CGRAMLoad
- xref __setCharacterLocation
- xref __setTileMapLocation
- udata
- xdef __scrollValue
- __scrollValue
- ds 2
- ends
- udata
- xdef __currentScrollEvent
- __currentScrollEvent
- ds 2
- ends
- udata
- xdef __pad1
- __pad1
- ds 2
- ends
- xref __characterLocation
- xref __title_pal
- end
|