;
;        
;            progpak.txt
;
;      - 
;
;  :
; .DB     (0-128),    (1-255)
;
;  DR_JMP:
; .DB 0,0
; .DW (  <<1)
;
;  DR_CALL:
; .DB   ,0
; .DW (  <<1)
;           ,
;    DR_CALL,
;      DR_RET
;          ,
;      DR_NOP
;        DR_RET  DR_NOP  
;  
;   "  "       
;   ( -  :
;  "":
;       .db 0,1
;     DR_JMP "" )
;
;          
;   (  preparing4.txt  )
;
kanpak0: .db 0,0 ; dr_jmp channel0
         .dw (channel0<<1) ;      1 
kanpak1: .db 0,0 ; dr_jmp channel1
         .dw (channel1<<1) ;      1 
kanpak2: .db 0,0 ; dr_jmp channel2
         .dw (channel2<<1) ;      1 
kanpak3: .db 0,0 ; dr_jmp channel3
         .dw (channel3<<1) ;      1 
kanpak4: .db 0,0 ; dr_jmp channel4
         .dw (channel4<<1) ;      1 
kanpak5: .db 0,0 ; dr_jmp channel5
         .dw (channel5<<1) ;      1 
kanpak6: .db 0,0 ; dr_jmp channel6
         .dw (channel6<<1) ;      1 
kanpak7: .db 0,0 ; dr_jmp channel7
         .dw (channel7<<1) ;      1 
;
;     allability (   16)
;  = 0
;
;        1   0,016S
;        255   255*0,016=4,08S
;
;    :
;
channel0:
        .db 0,55
        .db 255,32
        .db 0,50
      com_call kanal0,m_0
        .db 0,65
      com_call kanal0,m1_0
      com_call kanal0,rostok
      com_call kanal0,twinkling1
      com_call kanal0,airflash0
      com_call kanal0,airflash0
      com_call kanal0,airflash0
      com_jmp channel0
channel1:
        .db 0,55
        .db 255,32
        .db 0,50
      com_call kanal1,m_1
        .db 0,65
      com_call kanal1,m1_1
      com_call kanal1,rostok
      com_call kanal1,twinkling2
      com_call kanal1,airflash1
      com_call kanal1,airflash1
      com_call kanal1,airflash1
      com_jmp channel1
channel2:
        .db 0,55
        .db 255,32
        .db 0,50
      com_call kanal2,m_2
        .db 0,65
      com_call kanal2,m1_2
      com_call kanal2,rostok
      com_call kanal2,twinkling1
      com_call kanal2,airflash2
      com_call kanal2,airflash2
      com_call kanal2,airflash2
      com_jmp channel2
channel3:
        .db 0,55
        .db 255,32
        .db 0,50
      com_call kanal3,m_3
        .db 0,65
      com_call kanal3,m1_3
      com_call kanal3,rostok
      com_call kanal3,twinkling2
      com_call kanal3,airflash3
      com_call kanal3,airflash3
      com_call kanal3,airflash3
      com_jmp channel3
channel4:
        .db 0,55
        .db 255,32
        .db 0,50
      com_call kanal4,m_4
        .db 0,65
      com_call kanal4,m1_4
      com_call kanal4,rostok
      com_call kanal4,twinkling1
      com_call kanal4,airflash4
      com_call kanal4,airflash4
      com_call kanal4,airflash4
      com_jmp channel4
channel5:
        .db 0,55
        .db 255,32
        .db 0,50
      com_call kanal5,m_5
        .db 0,65
      com_call kanal5,m1_5
      com_call kanal5,rostok
      com_call kanal5,twinkling2
      com_call kanal5,airflash5
      com_call kanal5,airflash5
      com_call kanal5,airflash5
      com_jmp channel5
channel6:
        .db 0,55
        .db 255,32
        .db 0,50
      com_call kanal6,m_6
        .db 0,65
      com_call kanal6,m1_6
      com_call kanal6,rostok
      com_call kanal6,twinkling1
      com_call kanal6,airflash6
      com_call kanal6,airflash6
      com_call kanal6,airflash6
      com_jmp channel6
channel7:
        .db 0,55
        .db 255,32
        .db 0,50
      com_call kanal7,m_7
        .db 0,65
      com_call kanal7,m1_7
      com_call kanal7,rostok
      com_call kanal7,twinkling2
      com_call kanal7,airflash7
      com_call kanal7,airflash7
      com_call kanal7,airflash7
      com_jmp channel7
;----------------------------------
;   0-  ""
m_7:
   .db 0,12
m_6:
   .db 0,12
m_5:
   .db 0,12
m_4:
   .db 0,12
m_3:
   .db 0,12
m_2:
   .db 0,12
m_1:
   .db 0,12
m_0:
   .db 0,12
   .db 255,12
  com_ret kanal7
   .db 255,12
  com_ret kanal6
   .db 255,12
  com_ret kanal5
   .db 255,12
  com_ret kanal4
   .db 255,12
  com_ret kanal3
   .db 255,12
  com_ret kanal2
   .db 255,12
  com_ret kanal1
   .db 255,12
  com_ret kanal0
;----------------------------------
;  1
m1_7:
     .db 0,30
m1_6:
     .db 0,30
m1_5:
     .db 0,30
m1_4:
     .db 0,30
m1_3:
     .db 0,30
m1_2:
     .db 0,30
m1_1:
     .db 0,30
m1_0:
     .db 255,30
  com_ret kanal7
     .db 0,30
  com_ret kanal6
     .db 0,30
  com_ret kanal5
     .db 0,30
  com_ret kanal4
     .db 0,30
  com_ret kanal3
     .db 0,30
  com_ret kanal2
     .db 0,30
  com_ret kanal1
     .db 0,30
  com_ret kanal0
;----------------------------------
twinkling1:
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
    com_rets
;----------------------------------
twinkling2:
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
      .db 16,6
      .db 255,6
    com_rets
;----------------------------------
rostok:
        .db 0,50
        .db 1,8
        .db 2,8
        .db 3,8
        .db 4,8
        .db 5,8
        .db 6,8
        .db 7,8
        .db 8,8
        .db 9,8
        .db 10,8
        .db 11,8
        .db 12,8
        .db 13,8
        .db 14,10
        .db 15,10
        .db 16,10
        .db 32,10
        .db 42,10
        .db 52,10
        .db 64,10
        .db 74,10
        .db 84,10
        .db 94,10
        .db 128,10
        .db 168,10
        .db 200,10
        .db 255,10
        .db 0,50
      com_rets
;----------------------------------
airflash7:
      .db 0,66
airflash6:
      .db 0,66
airflash5:
      .db 0,66
airflash4:
      .db 0,66
airflash3:
      .db 0,66
airflash2:
      .db 0,66
airflash1:
      .db 0,66
airflash0:
   .db 2,50
   .db 4,50
   .db 8,50
   .db 16,30
   .db 20,30
   .db 26,30
   .db 32,20
   .db 36,20
   .db 40,20
   .db 64,10
   .db 128,5
   .db 255,3
   .db 0,5
   .db 255,3
   .db 0,6
   .db 255,4
   .db 0,7
   .db 255,2
 com_ret kanal7
       .db 0,66
 com_ret kanal6
       .db 0,66
 com_ret kanal5
       .db 0,66
 com_ret kanal4
       .db 0,66
 com_ret kanal3
       .db 0,66
 com_ret kanal2
       .db 0,66
 com_ret kanal1
       .db 0,66
 com_ret kanal0
;----------------------------------
    .dw 0xaa55 ;     