Bueno, yo he decidido hacer también una pequeña aportación a la comunidad juanker. Por todos es sabido que un programa como este basado en la "fuerza bruta" necesita ser rápido, y yo me he dicho ¿qué hay más rápido que el ensamblador? De momento está sin compilar, así que igual peta (seguramente[tomaaa] ) y no puedas entrar al sistema, mañana lo ensamblo y lo optimizo si hace falta.
;JuAnKaR.asm
ABSOLUTE
DATA EQU $36000
PROG EQU $34000
ORG DATA
IP DS.W $31,$32,$37,$2E,$30,$2E,$30,$2E,$31,$00
TRUE DC.B 1
ACCESO DC.B $4C,$61,$60,$49,$50,$60,$65,$73,$60,$00
NOACC DC.B $4E,$6F,$60,$68,$61,$73,$60,$70,$6F,$64,$69,$64,$6F,$60,$61,$63,$63,$65,$64,$65,$72,$2E,$00
FINCAD EQU $00
ORG PROG
MOVEA.L IP,A0
MOVEA.l TRUE,A1
MOVE.W #1,1(A0)
MOVE.W #127000,(A0)
CMP #1,TRUE
BEQ PASS
NOPASS CLR D1
BUCLE3 MOVE.B D1(NOACC),-(A7)
CMP.B FINCAD,(A7)
BEQ FIN
MOVE.L #24,D0
TRAP #0
ADDA.L #4,A7
ADDI.B #1,D1
JMP BUCLE3
PASS CLR D1
BUCLE1 MOVE.B D1(ACCESO),-(A7)
CMP.B FINCAD,(A7)
BEQ ESC_IP
MOVE.L #24,D0
TRAP #0
ADDA.L #4,A7
ADDI.B #1,D1
JMP BUCLE1
ESC_IP CLR D1
BUCLE2 MOVE.B D1(IP),-(A7)
CMP.B FINCAD,(A7)
BEQ FIN
MOVE.L #24,D0
TRAP #0
ADDA.L #4,A7
ADDI.B #1,D1
JMP BUCLE2
FIN END
PD: Raharu, no se si es este el que pedías, yo es el que usaba para programar en 68000. Por cierto, que si todavía tenéis alguna vieja mega-drive, se lo podéis meter y jugar con cartucho piratas, también vale.