;     monitu.inc
;
;     
;     ,
;       
;  .................
;       cnt_wario
;      
; +   
;  
;   rb0
;--------------------------------------
;
;
 cnt_sner set r7 ;  
 cnt_wario set r2 ;      note7:note0
;
;
monitu:
    mov cnt_sner,#0x5
    mov cnt_wario,#50
    mov r5,#16
 mon_pt:
    jbc step,ptm00
    sjmp mon_pt ;   
 ptm00:
    jb fkod,ptm20
    jnb frect,ptm21
		clr fwait
 ptm21:
    djnz cnt_wario,mon_pt
    mov cnt_wario,#50
    djnz cnt_sner,mon_pt
    mov cnt_sner,#0x5
    acall dispvar
    setb relode
    sjmp mon_pt
;--------------------------------------------------------------
ptm20:
    jnb fwait,ptm22
    sjmp ptm21
ptm22:
    setb fwait
    ajmp direkt_sn
;--------------------------------------------------------------
mon_pt1:
    ret
dispvar:
     mov a,tmp0
      acall znak
      mov r0,#note0
      mov @r0,a ;   
      inc tmp0
      anl tmp0,#0x0f
      mov a,tmp1
      acall znak
      mov r0,#note1
      mov @r0,a ;   
      inc tmp1
      anl tmp1,#0x0f
      mov a,tmp2
      acall znak
      mov r0,#note2
      mov @r0,a ;   
      inc tmp2
      anl tmp2,#0x0f
      mov a,tmp3
      acall znak
      mov r0,#note3
      mov @r0,a ;   
      inc tmp3
      anl tmp3,#0x0f
      mov a,tmp5
      mov r0,#note5
      mov @r0,a
      rl a
      mov tmp5,a
      mov a,tmp6
      mov r0,#note6
      mov @r0,a
      rr a
      mov tmp6,a
      mov r0,#note7
      mov @r0,tmp7
      djnz r5,mon_pt1
      mov r5,#16
varios:
    jb fwt2,varios2
    mov a,disp_num
    cjne a,#4,tsvr3
    mov r0,#note_tmal
    mov @r0,#low(frame3oll)
    inc r0
    mov @r0,#high(frame3oll)
    inc r0
    mov @r0,#low(frame3oll)
    inc r0
    mov @r0,#high(frame3oll)
    inc r0
    mov @r0,#3 ; x3
    inc r0
    mov @r0,#2 ;  100%
    ret
 tsvr3:
    mov a,disp_num
		cjne a,#3,tsvr2
    mov r0,#note_tmal
    mov @r0,#low(frame2oll)
    inc r0
    mov @r0,#high(frame2oll)
    inc r0
    mov @r0,#low(frame2oll)
    inc r0
    mov @r0,#high(frame2oll)
    inc r0
    mov @r0,#2 ; x2
    inc r0
    mov @r0,#2 ;  100%
    inc r0
    mov @r0,#1 ;   
    ret
 tsvr2:
    mov r0,#note_tmal
    mov @r0,#low(frame4oll)
    inc r0
    mov @r0,#high(frame4oll)
    inc r0
    mov @r0,#low(frame4oll)
    inc r0
    mov @r0,#high(frame4oll)
    inc r0
    mov @r0,#4 ; x4
    inc r0
    mov @r0,#2 ;  100%
    inc r0
    mov @r0,#0 ;   
    setb fwt2
    ret
 varios2:
    mov a,disp_num
    cjne a,#4,tsvr31
    mov r0,#note_tmal
    mov @r0,#low(frame3on50)
    inc r0
    mov @r0,#high(frame3on50)
    inc r0
    mov @r0,#low(frame3of50)
    inc r0
    mov @r0,#high(frame3of50)
    inc r0
    mov @r0,#3 ; x3
    inc r0
    mov @r0,#1 ;  50%
    ret
 tsvr31:
    mov a,disp_num
		cjne a,#3,tsvr21
    mov r0,#note_tmal
    mov @r0,#low(frame2on50)
    inc r0
    mov @r0,#high(frame2on50)
    inc r0
    mov @r0,#low(frame2of50)
    inc r0
    mov @r0,#high(frame2of50)
    inc r0
    mov @r0,#2 ; x2
    inc r0
    mov @r0,#1 ;  50%
    ret
 tsvr21:
    mov r0,#note_tmal
    mov @r0,#low(frame4on50)
    inc r0
    mov @r0,#high(frame4on50)
    inc r0
    mov @r0,#low(frame4of50)
    inc r0
    mov @r0,#high(frame4of50)
    inc r0
    mov @r0,#4 ; x4
    inc r0
    mov @r0,#1 ;  50%
    clr fwt2
    ret
;       
