;
;
;          "subrout.txt" 
;     
;      
;   :   
;---------------------------------------------------------------------
;
;                   
;                "  "
;
;            
;            + / 
 begusta:
		clr egcprt ;     
   lcall kpp
    setb ACC.7 ;      
    lcall wrslus ;  frame1 +    
     lcall wait_wrt ; refram (0x40+refram)
		mov a,#0x10
    mov r2,a
    add a,refram ;    
           ;  reset refram=0,    
           ;   
           ;    ,  
           ;     (0-0x27) ..
           ;  0x27    0
    mov refram,a ;    refram
  shiftl:
     mov a,#0b00011000 ;  "  "
     lcall wrslus
     lcall wait_wrt
     djnz r2,shiftl ;    16  
     ptints str1,frame0 ;   frame0+refram  str1
                   ; ' : '
     clr a
     mov DPL,main_bp
     mov DPH,main_bp+1 ;    main_bp+1:main_bp  dptr, =0
     setb warom ;      
     jmp @a+dptr ;   jmp @a+dptr ( = jmp main_bph:main_bpl )
 ;
 ;     subrout.txt
 ;     
 ; " mov DPL,stabl
 ;    mov DPH,stabl+1 ;     sensel.txt "
 ;  " ajmp step3 " (tp_snsel4)
;---------------------------------------------------------------------
;                   
;           
; /  0 +   E/
;
 kaled:
    mov left_bp+1,#high(bodun_2)
    mov left_bp,#low(bodun_2)
    mov right_bp+1,#high(glokinp)
    mov right_bp,#low(glokinp)
    mov main_bp+1,#high(kaled)
    mov main_bp,#low(kaled)
    mov stabl+1,#high(subrus) ;      
    mov stabl,#low(subrus) ;       
    mov target+1,#high(kedda) ;    
    mov target,#low(kedda)
    mov retter+1,#high(mainret)
    mov retter,#low(mainret)
    mov prefekt,#0 ;    0x00-0x0F (  masktbl)
                 ;       
                 ;    = 0 (  )
    ptints str17,frame1 ;   frame1+refram   str17
                  ; '?      '
    ajmp end_subr
;---------------------------------------------------------------------
;                   
;            
; /  0 +   5/
;
 glokinp:
    mov left_bp+1,#high(kaled)
    mov left_bp,#low(kaled)
    mov right_bp+1,#high(corekti)
    mov right_bp,#low(corekti)
    mov main_bp+1,#high(glokinp)
    mov main_bp,#low(glokinp)
    mov stabl+1,#high(subrus) ;      
    mov stabl,#low(subrus) ;       
    mov target+1,#high(glokdir) ;    
    mov target,#low(glokdir)
    mov retter+1,#high(mainret)
    mov retter,#low(mainret)
    mov prefekt,#0 ;    0x00-0x0F (  masktbl)
                 ;       
                 ;    = 0 (  )
    ptints str4,frame1 ;   frame1+refram   str4
                  ; '? /  '
    ajmp end_subr
;---------------------------------------------------------------------
;
;                   
;              
; /  0 +   6/
;
 corekti:
    mov left_bp+1,#high(glokinp)
    mov left_bp,#low(glokinp)
    mov right_bp+1,#high(stwatch)
    mov right_bp,#low(stwatch)
    mov main_bp+1,#high(corekti)
    mov main_bp,#low(corekti)
    mov stabl+1,#high(subrus) ;      
    mov stabl,#low(subrus) ;       
    mov target+1,#high(coropen)
    mov target,#low(coropen)
    mov retter+1,#high(mainret)
    mov retter,#low(mainret)
    mov prefekt,#0 ;    0x00-0x0F (  masktbl)
                 ;       
                 ;    = 0 (  )
    ptints str5,frame1 ;   frame1+refram   str5
                  ; '?     '
    ajmp end_subr
;---------------------------------------------------------------------
;
;                   
;           ""
; /  0 +   7/
;
 stwatch:
    mov left_bp+1,#high(corekti)
    mov left_bp,#low(corekti)
    mov right_bp+1,#high(tmgluks)
    mov right_bp,#low(tmgluks)
    mov main_bp+1,#high(stwatch)
    mov main_bp,#low(stwatch)
    mov stabl+1,#high(subrus) ;      
    mov stabl,#low(subrus) ;       
    mov target+1,#high(secmetr)
    mov target,#low(secmetr)
    mov retter+1,#high(mainret)
    mov retter,#low(mainret)
    mov prefekt,#0 ;    0x00-0x0F (  masktbl)
                 ;       
                 ;    = 0 (  )
    ptints str2,frame1 ;   frame1+refram   str2
                  ; '?    '
    ajmp end_subr
;---------------------------------------------------------------------
;
;                   
;           "  "
; /  0 +   8  9/
;
 tmgluks:
    mov left_bp+1,#high(stwatch)
    mov left_bp,#low(stwatch)
    mov right_bp+1,#high(bodun_1)
    mov right_bp,#low(bodun_1)
    mov main_bp+1,#high(tmgluks)
    mov main_bp,#low(tmgluks)
    mov stabl+1,#high(subrus) ;      
    mov stabl,#low(subrus) ;       
    mov target+1,#high(kitchen1)
    mov target,#low(kitchen1)
    mov retter+1,#high(mainret)
    mov retter,#low(mainret)
    mov prefekt,#0 ;    0x00-0x0F (  masktbl)
                 ;       
                 ;    = 0 (  )
    ptints str3,frame1 ;   frame1+refram   str3
                  ; '?        '
    ajmp end_subr
;---------------------------------------------------------------------
;
;                   
;           " 1"
; /  0 +   C/
;
 bodun_1:
    mov left_bp+1,#high(tmgluks)
    mov left_bp,#low(tmgluks)
    mov right_bp+1,#high(bodun_2)
    mov right_bp,#low(bodun_2)
    mov main_bp+1,#high(bodun_1)
    mov main_bp,#low(bodun_1)
    mov stabl+1,#high(subrus) ;      
    mov stabl,#low(subrus) ;       
    mov target+1,#high(ubodun1)
    mov target,#low(ubodun1)
    mov retter+1,#high(mainret)
    mov retter,#low(mainret)
    mov prefekt,#0 ;    0x00-0x0F (  masktbl)
                 ;       
                 ;    = 0 (  )
    ptints str12,frame1 ;   frame1+refram   str12
                  ; '?   1 '
    ajmp end_subr
;---------------------------------------------------------------------
;
;                   
;           " 2"
; /  0 +   C/
;
 bodun_2:
    mov left_bp+1,#high(bodun_1)
    mov left_bp,#low(bodun_1)
    mov right_bp+1,#high(glokinp)
    mov right_bp,#low(glokinp)
    mov main_bp+1,#high(bodun_2)
    mov main_bp,#low(bodun_2)
    mov stabl+1,#high(subrus) ;      
    mov stabl,#low(subrus) ;       
    mov target+1,#high(ubodun2)
    mov target,#low(ubodun2)
    mov retter+1,#high(mainret)
    mov retter,#low(mainret)
    mov prefekt,#0 ;    0x00-0x0F (  masktbl)
                 ;       
                 ;    = 0 (  )
    ptints str13,frame1 ;   frame1+refram   str13
                  ; '?   2 '
;   ajmp end_subr
;---------------------------------------------------------------------------
;
;                     
;              "   "
 end_subr:
      lcall pks1 ;    frame1+refram,    kursadr
        ;          !!!
        ;      :
        ; kursadr-(frameN+refram)
      setb ACC.7 ;     ?
      lcall wrslus ; /  / 
      lcall wait_wrt ; =  0   
      mov a,#0b00001111
      lcall wrslus
      lcall wait_wrt ;   =    
                   ;  
     mov DPL,stabl
     mov DPH,stabl+1 ;     sensel.txt
    ljmp step3 ; tp_snsel4
;---------------------------------------------------------------------
;
;                     
;                   "  "
;
;     (  )  
;
 mainret:
      mov a,#0b00001100 ; -
     lcall wrslus
     lcall wait_wrt ;
      mov a,refram
      add a,#frame1 ;   
      mov kursadr,a
    setb ACC.7 ;      
      lcall wrslus
     lcall wait_wrt
      mov r2,#0x10
     mov a,refram
     clr c ; kontrol clr CY
    subb a,r2
    mov refram,a
  shiftr:
     mov a,#0b00011100 ;  "  "
     lcall wrslus
     lcall wait_wrt
     djnz r2,shiftr ;    16  
    mov dptr,#quietns ;      
    mov stabl,DPL
     mov stabl+1,DPH ;      stabl_h:stabl_l
     setb gclkrl ;      
    setb egcprt ;     
    clr warom
   ljmp step3 ;     (tp_snsel4)
;----------------------------------------------------------------
;   1,2,3,A,B,D,E,F
;
;----------------------------------------------------------------