.org   0
         nop    
         jmp    start
         .org   3
         nop
         jmp    intsvc
;
start    clr    a
         mov    r0,#24
         mov    @r0,a
         mov    r0,a
         mov    r1,a
         en     i
loop     inc    r0
         mov    a,r0
         jnz    loop
         inc    r1
         jmp    loop
;
intsvc   mov    a,r0
         sel    rb1
         movx   @r0,a
         inc    r0
         sel    rb0
         retr
         .end