Irmorton
by supermaks64
Game: SMW
Description: Pressing L or R takes you to Morton's Castle
Main: ;SEP #$30 ;LDA #$A5 ;STA.l $7F8000 ;LDA.l $7F8001 ;INC A ;STA.l $7F8001 REP #$30 ;LDA #$8158 LDA $13 ASL #3 ORA #$8000 AND #$83FF ;STA $1008 SEP #$30 LDA $0100 CMP #$28 BEQ + CMP #$24 BEQ + CMP #$1E BEQ + CMP #$1A BEQ + CMP #$13 BEQ + CMP #$0D BEQ + CMP #$14 BNE .end LDA $0D9B BMI .regmadness .end RTL + LDA $0DAE BNE .end LDA $0DB1 BEQ .end LDA $13 AND #$03 ASL TAX LDA.b #Ptrs>>16 STA $02 PHB LDA #$7F PHA PLB REP #$31 LDA.l Ptrs,x STA $00 LDA.l Length,x TAY ADC.w $837B STA.w $837B TAX DEY #2 LDA.w #$FFFF STA.w $837D,x DEX #2 - LDA.b [$00],y STA.w $837D,x DEX #2 DEY #2 BPL - PLB SEP #$30 .regmadness STZ $24 LDA $3E ORA #$08 STA $3E LDA #$80 STA $2100 LDA #$C4 STA $2133 LDA $13 AND #$7F STA $2101 LDA #$31 STA $2108 LDA $0DAE STA $2100 RTL Ptrs: dw Stripe1,Stripe2,Stripe3,Stripe4 Length: dw Stripe1_end-Stripe1,Stripe2_end-Stripe2 dw Stripe3_end-Stripe3,Stripe4_end-Stripe4 Stripe1: db $53,$40,00,.end-.start-1 .start dw $3912,$3954,$3941,$391F dw $3953,$394E,$391F,$390F dw $3940,$3953,$3902,$3943 dw $3951,$391F,$3945,$394E dw $3951,$391F,$3945,$3951 dw $3944,$3944,$391F,$3915 dw $391C,$3901,$3954,$3942 dw $394A,$3952,$391F,$391F .end Stripe2: db $53,$40,00,.end-.start-1 .start dw $3912,$3954,$3941,$391F dw $3953,$394E,$391F,$390F dw $3940,$3953,$3902,$3943 dw $3951,$391F,$3945,$394E dw $3951,$391F,$3940,$391F dw $394D,$394E,$3953,$3948 dw $3945,$3948,$3942,$3940 dw $3953,$3948,$394E,$394D .end Stripe3: db $53,$40,00,.end-.start-1 .start dw $3912,$3954,$3941,$391F dw $3953,$394E,$391F,$390F dw $3940,$3953,$3902,$3943 dw $3951,$391F,$3945,$394E dw $3951,$391F,$3945,$3951 dw $3944,$3944,$391F,$3901 dw $3948,$3953,$3942,$394E dw $3948,$394D,$391F,$391F .end Stripe4: db $53,$44,00,.end-.start-1 .start dw $3906,$3951,$3944,$3944 dw $3953,$3948,$394D,$3946 dw $3952,$391F,$3945,$3951 dw $394E,$394C,$391F,$390F dw $394E,$394B,$3940,$394D dw $3943,$391A,$391F,$391F .end ;"0123456789ABCDEFGHIJKLMNOPQRSTUV" ;"Sub to PatCdr for free V-Bucks " ;"Sub to PatCdr for a notification" ;"Sub to PatCdr for free Bitcoin " ;"Greetings from Poland! "back to listings