interleave.asm

5509的代码程序

    .ref    Encoded_data
    .def    Interleave
    .def    Inte_data

Inte_data .usect "vars",52
     
     
    
    .text
     
Interleave: 
    amov  #Encoded_data,xar1
    amov  #Inte_data,xar0
    mov   #0,t1
    mov   #0,t0
    mov   #0,ac1
    mov   #51,brc0
    rptb  Lable1_1-1
    mov   *ar1(t1),t2
    mov   t2,*ar0(t0)
    add   #1,t1
    add   #4,t0
    add   #1,ac1
    sub	  #13,ac1,ac3
    bcc   Lable1_2,ac3!=0
    add   #1,ar0
    mov   #0,t0
    mov   #0,ac1
Lable1_2:
    nop
Lable1_1:
    nop
    nop
    ret