.data
NFT: .asciz "Not found!"
FNT: .asciz "Found"
A:   .asciz "LOL!"
B:   .asciz "L!"
LNA: .word 4
LNB: .word 2
.text
     ldr r1,=A
     ;ldr r1,[r1];A
     ldr r2,=B
     ;ldr r2,[r2];B
     ldr r3,=LNA
     ldr r3,[r3];length A
     ldr r4,=LNB
     ldr r4,[r4];length B
     sub r5,r3,r4;
     mov r6,#0;i
ILO: cmp r6,r5
     bgt NFN
     mov r7,#0;j
JLO: cmp r7,r4
     beq FND
     ldrb r8,[r2,r7]
     add r10,r7,r6
     ldrb r9,[r1,r10]
     cmp r8,r9
     addeq r7,r7,#1
     beq JLO
     add r6,r6,#1
     b ILO
NFN: ldr r0, =NFT
     swi 0x02
     swi 0x11
FND: ldr r0, =FNT
     swi 0x02
     swi 0x11
.end