.title "interrupt.asm"
    .mmregs
    .global int0isr,_row,_sample_p,_ARM_p,_num
    .bss x,1
    .text
int0isr:
     pshm st0
     pshm st1
     pshm brc
     pshm AG
     pshm AH
     pshm AL
     pshm ar7
     pshm ar2
     nop
     ld *(_num),a
     stlm a,ar7
     sub *(_ARM_p),a
     stlm a,ar2
     portr 1,*(x)
     ld *(x),2,a
     banz find,*ar2
back1:   
     mvdk *(_num),*(_sample_p)   
     popm ar2
     popm ar7
     popm AL
     popm AH
     popm AG
     popm brc
     popm st1
     popm st0     
     ret     
find:   
     stl a,*ar7
     cmpm *(_num),#0ffffh
     ld #1,a
     add *(_num),a
     stl a,*(_num)
     xc 2,tc
     st #8000h,*(_num)
      
     ld #1,a
     add *(_row),a
     stl a,*(_row)
back0:     
     popm ar2
     popm ar7
     popm AL
     popm AH
     popm AG
     popm brc
     popm st1
     popm st0     
     rete
    .end