;
;
;          "tabsels.txt"    
;
    org 0x0800
;   " "    
 quietns:
   ajmp holsdis ; 00000000
   ajmp holsdis ; 00000010
   ajmp holsdis ; 00000100
   ajmp holsdis ; 00000110
   ajmp holsdis ; 00001000
   ajmp holsdis ; 00001010
   ajmp holsdis ; 00001100
   ajmp holsdis ; 00001110
   ajmp holsdis ; 00010000
   ajmp holsdis ; 00010010
   ajmp holsdis ; 00010100
   ajmp holsdis ; 00010110
   ajmp holsdis ; 00011000
   ajmp holsdis ; 00011010
   ajmp holsdis ; 00011100
   ajmp holsen ; 00011110sn4
   ajmp holsdis ; 00100000
   ajmp holsdis ; 00100010
   ajmp holsdis ; 00100100
   ajmp holsdis ; 00100110
   ajmp holsdis ; 00101000
   ajmp holsdis ; 00101010
   ajmp holsdis ; 00101100
   ajmp holsen ; 00101110sn3
   ajmp holsdis ; 00110000
   ajmp holsdis ; 00110010
   ajmp holsdis ; 00110100
   ajmp holsdis ; 00110110 sn2
   ajmp holsen ;  00111000  sn0+sn1 (sjmp holsdis=)
   ajmp holsdis ; 00111010 sn1
   ajmp holsdis ; 00111100 sn0
   ajmp holsdis ; 00111110 no sn
  ;-----------------------------------------------
   .ds 2 ;        01000000 0    ( 
   .ds 2 ;        01000010 1  ""  )
   .ds 2 ;        01000100 2
   .ds 2 ;        01000110 3
   .ds 2 ;        01001000 4
   .ds 2 ;        01001010 5
   .ds 2 ;        01001100 6
   .ds 2 ;        01001110 7
   .ds 2 ;        01010000 8
   .ds 2 ;        01010010 9
   .ds 2 ;        01010100 A
   .ds 2 ;        01010110 B
   .ds 2 ;        01011000 C
   .ds 2 ;        01011010 D
   .ds 2 ;        01011100 E
   ajmp trigout  ; 01011110 sn4  .ds 2
   .ds 2 ;        01100000
   .ds 2 ;        01100010
   .ds 2 ;        01100100
   .ds 2 ;        01100110
   .ds 2 ;        01101000
   .ds 2 ;        01101010
   .ds 2 ;        01101100
   ajmp budoff  ; 01101110 sn3  .ds 2
   .ds 2 ;        01110000
   .ds 2 ;        01110010
   .ds 2 ;        01110100
   .ds 2 ;        01110110 sn2
   ajmp holwrk  ; 01111000  sn0+sn1
   .ds 2 ;        01111010 sn1
   .ds 2 ;        01111100 sn0
   .ds 2 ;        01111110 no sn
  ;        
  ;        (= .ds 1)
  ;-----------------------------------------------------
    ;      
      .ds 2 ;   0  0b10000000
      .ds 2 ;   1  0b10000010
      .ds 2 ;   2  0b10000100
      .ds 2 ;   3  0b10000110
      .ds 2 ;   4  0b10001000
      .ds 2 ;   5  0b10001010
      .ds 2 ;   6  0b10001100
      .ds 2 ;   7  0b10001110
      .ds 2 ;   8  0b10010000
      .ds 2 ;   9  0b10010010
      .ds 2 ;   A  0b10010100
      .ds 2 ;   B  0b10010110
      .ds 2 ;   C  0b10011000
      .ds 2 ;   D  0b10011010
      .ds 2 ;   E  0b10011100
      .ds 2 ;   F  0b10011110
  ;-----------------------------------------------------
  ;     (96 -   32  ljmp addr)
 holsdis:
     ljmp step1 ;     (tp_snsel0)
 holsen: 
     ljmp step2 ;     (tp_snsel2)
 holwrk:
     ljmp begusta ;     
 trigout:
     ljmp outru ;      
 budoff:
     ljmp outres ;         ""
            ; (   )
  ;
  ;*************************************************************
  ;
  org 0x0900 ;      256 
;    
 subrus:
   ajmp holsdis ; 00000000
   ajmp holsdis ; 00000010
   ajmp holsdis ; 00000100
   ajmp holsdis ; 00000110
   ajmp holsdis ; 00001000
   ajmp holsdis ; 00001010
   ajmp holsdis ; 00001100
   ajmp holsdis ; 00001110
   ajmp holsdis ; 00010000
   ajmp holsdis ; 00010010
   ajmp holsdis ; 00010100
   ajmp holsdis ; 00010110
   ajmp holsdis ; 00011000
   ajmp holsdis ; 00011010
   ajmp holsdis ; 00011100
   ajmp holsdis ; 00011110 sn4
   ajmp holsdis ; 00100000
   ajmp holsdis ; 00100010
   ajmp holsdis ; 00100100
   ajmp holsdis ; 00100110
   ajmp holsdis ; 00101000
   ajmp holsdis ; 00101010
   ajmp holsdis ; 00101100
   ajmp holsen ;  00101110 sn3
   ajmp holsdis ; 00110000
   ajmp holsdis ; 00110010
   ajmp holsdis ; 00110100
   ajmp holsen ;  00110110 sn2
   ajmp holsdis ; 00111000  sn0+sn1 (sjmp holsdis=)
   ajmp holsen ;  00111010 sn1
   ajmp holsen ;  00111100 sn0
   ajmp holsdis ; 00111110 no sn
  ;-----------------------------------------------
   .ds 2 ;         01000000
   .ds 2 ;         01000010
   .ds 2 ;         01000100
   .ds 2 ;         01000110
   .ds 2 ;         01001000
   .ds 2 ;         01001010
   .ds 2 ;         01001100
   .ds 2 ;         01001110
   .ds 2 ;         01010000
   .ds 2 ;         01010010
   .ds 2 ;         01010100
   .ds 2 ;         01010110
   .ds 2 ;         01011000
   .ds 2 ;         01011010
   .ds 2 ;         01011100
   .ds 2 ;         01011110 sn4
   .ds 2 ;         01100000
   .ds 2 ;         01100010
   .ds 2 ;         01100100
   .ds 2 ;         01100110
   .ds 2 ;         01101000
   .ds 2 ;         01101010
   .ds 2 ;         01101100
   ajmp s_maines ; 01101110 sn3
   .ds 2 ;         01110000
   .ds 2 ;         01110010
   .ds 2 ;         01110100
   ajmp s_plus  ;  01110110 sn2
   .ds 2 ;         01111000
   ajmp s_rait  ;  01111010sn1
   ajmp s_left  ;  01111100 sn0
   .ds 2 ;         01111110 no sn
  ;-----------------------------------------------------
    ;      
      .ds 2 ;   0  0b10000000
      ajmp u_kitchen ; .ds 2   1  0b10000010
			              ;     
	              ;/ +   bufust2:bufust0
      .ds 2 ;   2  0b10000100 ;    0
      .ds 2 ;   3  0b10000110 ;    1
      .ds 2 ;   4  0b10001000
      .ds 2 ;   5  0b10001010
      .ds 2 ;   6  0b10001100
      .ds 2 ;   7  0b10001110
      .ds 2 ;   8  0b10010000
      .ds 2 ;   9  0b10010010
      .ds 2 ;   A  0b10010100
      .ds 2 ;   B  0b10010110
      .ds 2 ;   C  0b10011000
      .ds 2 ;   D  0b10011010      RTC/
                 ;     RTC
      ajmp u_corse ; .ds 2   E  0b10011100  
                  ;    
      ajmp seldir ; .ds 2   F  0b10011110
                 ;      
  ;-----------------------------------------------------
  ;     (96 -   32  ljmp addr)
 s_left:
  ljmp gw_left
 s_rait:
  ljmp gw_rait
 s_plus:
  ljmp gw_plus
 s_maines:
  ljmp gw_maines
 u_corse:
  ljmp corsinp
 u_resecs:
  ljmp resecs ;   + / 
 u_kitchen:
  ljmp fnukit ;     
	          ;/ +   bufust2:bufust0
  ;
  ;******************************************************************
  ;
  .org 0x0A00
    .ds 256 ;    
  ;-----------------------------------------------------
  ;      +/-
  ;
 masktbl0:
 .db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F
    ;       ,   
    ; -     
 masktbl1:
 .db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F
 masktbl2:
 .db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F
 masktbl3:
 .db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F
 masktbl4:
 .db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F
 masktbl5:
 .db 0,0,0,0,0,0,0x33,0x3A,0,0,0,0,0,0x36,0x3A,0 ;  glokdir ("datclock.txt")
            ; '? ',0xC0,0x61,0x63,'.  :',0xBC,0xB8,0xBD,'.   '
 masktbl6:
 .db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0x80,0 ;  coropen ("stepcor.txt")
            ; '?     nnnn    % '   = '%'
 masktbl7:
 .db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0x80 ;  secmetr ("semetr.txt")
            ; '?   nn:nn:nn   C'   ? ""=/,
						; ""=   (  )
            ;   ""=   , ""=
 masktbl8:
 .db 0,0,0,0,0x3A,0x3A,0,0x36,0x3A,0,0x36,0x3A,0,0,0,0x80 ;  
           ;  " .  " (kitchen1, "kitchen.txt")
           ; '?   nn:nn:nn   '   ? ""=  bufust2:bufust0
           ;      " :  "
					 ; ""=  
					 ;  
					 ;   ""
					 ; ""=     RTC
					 ; ""=   RTC  
 masktbl9:
 .db 0,0x80,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 
           ;  " :  " (kitchen2, "kitchen.txt")
           ; '?  nn:nn:nn    '   ? ""=/,
           ; ""=   (   /
					 ;    )
					 ;   -    
					 ;     ()- 
					 ;  ""= bufust2:bufust0    = -
					 ; ""=
					 ;     () -
					 ; ""=
					 ; ""= ,  ,   
					 ;   bufust2:bufust0     
 masktblA:
 .db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F
 masktblB:
 .db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F
 masktblC:
 .db 0,0,0,0,0,0x33,0x3A,0,0x36,0x3A,0,0,0,0,0,0x32 ; 0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F
           ;     "? tm=00:00 out=0" ("boduns.txt")
 masktblD:
 .db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F
 masktblE:
 .db 0,0,0,0x38,0,0x34,0x3A,0,0x32,0x3A,0,0,0,0x3A,0x3A,0 ; 0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F
           ;     "?   -  -  -20   "
 masktblF:
 .db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ; 0-1-2-3-4-5-6-7-8-9-A-B-C-D-E-F
  ;-----------------------------------------------------
;
; masktbl    16 (      / 
; lddptr1   prokos.txt   )    
;             15-
; (       -  
; prefekt ).
;
  ;-----------------------------------------------------
;   F  0b10011110
;  
seldir:
   mov a,#(8<<4) ;      
	 cjne a,prefekt,s_true
	 sjmp s_false ;         ,  s_false
s_true:         ;    ->>
   ajmp u_resecs ;   + /  (7<<4)
s_false:
   ljmp rem_rtc ;       rem_rtc (in "kitchen.txt")
  ;-----------------------------------------------------