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