*****************************************************
****************  ***********************************
*****************************************************
              .mmregs
              .def jump
              .def start
K_SAMPLE_NUM  .set 256

out_data      .usect   "out_data",K_SAMPLE_NUM

in_data       .usect   "in_vars",1
d_cr0_send    .usect   "cr_send",1
d_cr1_send    .usect   "cr_send",1

d_temp        .usect   "temp",1
k_cr0_send    .set 0080h
k_cr1_send    .set 0100h

****************************************************
********************      **************************
****************************************************

K_IPTR        .set   000111000b<<07

K_TEMP        .set   1111111b

D_PMST        .usect   "pmst",1
  
  .sect  "prog"
start:
         NOP
         NOP
         NOP
         NOP
         LDM   PMST,A
         NOP
         NOP
         NOP
         NOP
         AND   #K_TEMP,A
         OR    #K_IPTR,A
         STL   A,ar2
         MVDM  ar2,PMST
       
***************************************************
**************************************************

   stm  #0001h,IMR
   nop
   nop
   stm  #0000h,IFR
   nop
   rsbx  intm
   nop
   
**************************************************
**************************************************

   stm  #d_temp,ar2
   stm  #d_cr0_send,ar1
   st   #k_cr0_send,*ar1+
   st   #k_cr1_send,*ar1
   stm  #d_cr0_send,ar1
   LD   #K_SAMPLE_NUM,A
   stm  #out_data,ar5
   
************************************************
*************寫狀態字***************************
************************************************

   portr 0ffffh,*ar2
   rpt #20
   nop
   
   nop
   
   portw *ar1+,07fffh
   rpt  #20
   nop
   portw *ar1,07fffh
   
   portr 0ffffh,*ar2
   rpt  #20
   nop
   nop
   
**********************************************
*********************************************
WAIT: 
        NOP
        NOP
        BC WAIT,ANEQ
        NOP
        STM #out_data,ar5
        LD #K_SAMPLE_NUM,A
        B WAIT
        NOP
        
        
***********************************************
***   *****************************************
jump: SUB #1h,A
      rsbx xf
      rpt #5
      nop
      portr 07fffh,*ar5
      
      rpt #5
      nop
      ssbx xf
      nop
      portr 0ffffh,*ar2
      nop
      nop
      portw *ar5+,0bfffh
      rete
      .end