LD A,10100101B ;
OUT (01),A
START LD HL,0070H
LD C,0AH
COMP LD A,(HL)
CP B
INC HL
JP Z,MATCH
DEC C
LD A, 00H
CP C
JP NZ,COMP
JP Z, NMATCH
MATCH LD A,0F0H
OUT (01),A
HALT
NMATCH LD A, 0FH
OUT (01),A
HALT
Ah yes. Machine Language in Hex. Once I learned this, my old Trash 80 performed at light speed.
LD A,10100101B
OUT (01),A
START :
LD HL,0070H
LD C,0AH
COMP :
LD A,(HL)
CP B
INC HL
JP Z,MATCH
DEC C
LD A, 00H
CP C
JP NZ,COMP
JP Z, NMATCH
MATCH :
LD A,0F0H
OUT (01),A
HALT
NMATCH :
LD A, 0FH
OUT (01),A
HALT