;
;
;          "subrout.txt" 
;     
;      
;   :   
;---------------------------------------------------------------------
;
;                   
;                "  "
;
;            
;            + / 
 begusta:
      cli
     lds accl,gc_flags
     cbr accl,(1<<egcprt) ;     
     sts gc_flags,accl
      sei
     rcall pimb1
     sbr accl,(1<<7) ;      
     rcall wr_wus ;  frame1 +    
     rcall wait_wrt ; refram (0x40+refram)
    ldi cntxl,16
    lds accl,refram
    add accl,cntxl ;    
           ;  reset refram=0,    
           ;   
           ;    ,  
           ;     (0-0x27) ..
           ;  0x27    0
    sts refram,accl ;    refram
  shiftl:
     ldi accl,0b00011000 ;  "  "
     rcall wr_wus
     rcall wait_wrt
     dec cntxl
     brne shiftl ;    16  
    prints str1,frame0 ;   frame0+refram  str1
                   ; ' : '
      sbr vars,(1<<warom) ;      
      movw zl,retterl
      ijmp
 ;
 ;     subrout.txt
 ;     
 ; " mov DPL,stabl
 ;    mov DPH,stabl+1 ;     sensel.txt "
 ;  " ajmp step3 " (tp_snsel4)
;---------------------------------------------------------------------
;                   
;            
;
 glokinp:
      ldwi acch,accl,glokinp_fsb
		 movw fsbl,accl
    ldwi acch,accl,glokinp
   movw retterl,accl
  prints str4,frame1 ;   frame1+refram   str4
                  ; '? /  '
    rjmp end_subr
;---------------------------------------------------------------------
;
;                   
;              
;
 corekti:
      ldwi acch,accl,corekti_fsb
		 movw fsbl,accl
    ldwi acch,accl,corekti
   movw retterl,accl
  prints str5,frame1 ;   frame1+refram   str5
                  ; '?     '
    rjmp end_subr
;---------------------------------------------------------------------
;
;                   
;           ""
;
 stwatch:
      ldwi acch,accl,stwatch_fsb
		 movw fsbl,accl
    ldwi acch,accl,stwatch
   movw retterl,accl
 prints str2,frame1 ;   frame1+refram   str2
                  ; '?    '
    rjmp end_subr
;---------------------------------------------------------------------
;
;                   
;           "  "
;
 tmgluks:
      ldwi acch,accl,tmgluks_fsb
		 movw fsbl,accl
    ldwi acch,accl,tmgluks
   movw retterl,accl
  prints str3,frame1 ;   frame1+refram   str3
                  ; '?        '
    rjmp end_subr
;---------------------------------------------------------------------
;
;                   
;           " 1"
;
 bodun_1:
      ldwi acch,accl,bodun_1_fsb
		 movw fsbl,accl
    ldwi acch,accl,bodun_1
   movw retterl,accl
  prints str12,frame1 ;   frame1+refram   str12
                  ; '?   1 '
    rjmp end_subr
;---------------------------------------------------------------------
;
;                   
;           " 2"
;
 bodun_2:
      ldwi acch,accl,bodun_2_fsb
		 movw fsbl,accl
    ldwi acch,accl,bodun_2
   movw retterl,accl
  prints str13,frame1 ;   frame1+refram   str13
                  ; '?   2 '
   rjmp end_subr
;---------------------------------------------------------------------------
;
;                     
;              "   "
 end_subr:
      rcall pzet1 ;    frame1+refram,    kursadr
        ;          !!!
        ;      :
        ; kursadr-(frameN+refram)
      sbr accl,(1<<7) ;     '?'
      rcall wr_wus ; /  /
      rcall wait_wrt ; =  0   
      ldi accl,0b00001111
      rcall wr_wus ;   =    
      rcall wait_wrt ;  
    rjmp step3 ; tp_snsel4
;---------------------------------------------------------------------
;
;                     
;                   "  "
;
;     (  )  
;
 mainret:
      ldi accl,0b00001100 ; -
     rcall wr_wus
     rcall wait_wrt ;
      lds kursadr,refram
      ldi accl,frame1
      add kursadr,accl ;   
      mov accl,kursadr
    sbr accl,(1<<7) ;      
      rcall wr_wus
      rcall wait_wrt ;
      ldi cntxl,16
      lds accl,refram
      sub accl,cntxl
      sts refram,accl
  shiftr:
     ldi accl,0b00011100 ;  "  "
     rcall wr_wus
     rcall wait_wrt ;
      dec cntxl
      brne shiftr ;    16  
      ldwi acch,accl,wait_fsb ;      
     movw fsbl,accl
    cbr vars,(1<<warom) ;  " "
      cli
     lds accl,gc_flags
     sbr accl,(1<<egcprt | 1<<gclkrl) ;     
     sts gc_flags,accl ; +      
      sei
   rjmp step3 ;     (tp_snsel4)
;----------------------------------------------------------------