[] 1988 |
1780 MAAL=MAAL-1:IFMAAL=0THENGOTO1810
1810 POKECROSS+4096,1 :REM MARK EXIT ON THE MAP
1820 SYS16540 :REM COPY MAP TO SCREEN
1830 POKESID+11,0:POKE53248+21,0:REM STOP SOUND AND DISABLE SPRITES
1840 GOTO1840 :REM ENDLESS LOOP
L40CB: LDA #$FF ; >-- --
STA $FB ; |
LDA #$6F ; |
STA $FC ; |
LDA #$F4 ; |
STA $FD ; |
LDA #$D7 ; |
STA $FE ; <--------------------
LDX #$04 ; >-- -----------------
L40DD: LDY #$FA ; >-- . I --- |
L40DF: LDA ($FB),Y ; ( ) | |
STA ($FD),Y ; | |
DEY ; | |
BNE L40DF ; <------------------- |
LDY #$FA ; >-- . II ----------- |
L40E8: INC $FB ; ( ) | |
BNE L40EE ; | |
INC $FC ; | |
L40EE: INC $FD ; | |
BNE L40F4 ; | |
INC $FE ; | |
L40F4: DEY ; | |
BNE L40E8 ; <---------------------------- |
DEX ; |
BNE L40DD ; <-------------------------------
LDX #$04
;
;
;
DEX
BNE L40DD
L40DD: LDY #$FA
L40DF: LDA ($FB),Y
STA ($FD),Y
DEY
BNE L40DF
LDA ($FB),Y
:3670 DATA 252,169,244,133,253