Find8 ldr r0,=lstl ; point to list length f2 ldr r1,[r0] ; r1 = list length f2a sub r1,r1,#1 ; decrement so r1 = list length - 1 f3 ldr r0,=dlst ; point to list start f4 ldr r2,=0 ; init max val reg f5 ldr r4,=0 ; zero offset counter f8lp1 ldrb r3,[r0,r4] ; read list element f6 cmp r2,r3 ; comp against max val f8 bhi f8ct1 ; branch if r2> r3 f9 mov r2,r3 ; else new max val f8ct1 add r4,r4,#1 ; increment offset counter f10 cmp r4,r1 f11 bls f8lp1 ; loop for all list f12 ldr r0,=maxv f13 strb r2,[r0] ; save max val c4 ; c5 ; no infinite loop because c6 ; the emulator stops at end c7 ; c8 ; stop bal stop c9 ; lstl dcb 15 ; lstl - count offset 0 -> (lstl - 1) maxv dcb 0 dlst dcb 254,5,25,250,100,150,30,200,253,15, 23,46,73,175,0 ; end ; end directive to show nothing more in file