*= $A000
 
 
          LD   HL,inter_
          LD   DE,start_
          LD   B,$81
          JP   $BCD7      ; kl new frame fly
 
inter_ .FILL 9,0
ladz_0 .BYTE 0
 
start_    LD   A,$07
          CALL ladz_1
          LD   (ladz_0),A
          LD   A,(ladz_0)
          AND  1
          JR   Z,ladz_2
          SUB  A
          JR   ladz_3
 
ladz_2    LD   A,$08
          CALL ladz_1
ladz_3    RLCA
          RLCA
          LD   E,A
          LD   D,0
          LD   HL,daten_
          ADD  HL,DE
          LD   DE,$DA34   ; -------------
          PUSH HL
          LDI
          LDI
          LDI
          LDI
          POP  HL
          LD   DE,$E234   ; ------------
          LDI
          LDI
          LDI
          LDI
          LD   A,(ladz_0)
          AND  $02
          JR   Z,ladz_7
          SUB  A
          JR   ladz_4
 
ladz_7    LD   A,$09
          CALL ladz_1
ladz_4    RLCA
          RLCA
          LD   E,A
          LD   D,$00
          LD   HL,daten_
          ADD  HL,DE
          LD   DE,$DA39   ; -----------------
          PUSH HL
          LDI
          LDI
          LDI
          LDI
          POP  HL
          LD   DE,$E239   ; -------------
          LDI
          LDI
          LDI
          LDI
          LD   A,(ladz_0)
          AND  $04
          JR   Z,ladz_5
          SUB  A
          JR   ladz_6
 
ladz_5    LD   A,$0A
          CALL ladz_1
ladz_6    RLCA
          RLCA
          LD   E,A
          LD   D,$00
          LD   HL,daten_
          ADD  HL,DE
          LD   DE,$DA3E   ; -----------------
          PUSH HL
          LDI
          LDI
          LDI
          LDI
          POP  HL
          LD   DE,$E23E   ;----------------
          LDI
          LDI
          LDI
          LDI
          RET
 
ladz_1    DI
          LD   B,$F4
          OUT  (C),A
          LD   B,$F6
          IN   A,(C)
          OR   $C0
          OUT  (C),A
          AND  $3F
          OUT  (C),A
          LD   B,$F7
          LD   D,$92
          OUT  (C),D
          LD   B,$F6
          LD   C,A
          OR   $40
          OUT  (C),A
          LD   B,$F4
          IN   A,(C)
          LD   B,$F7
          LD   D,$82
          OUT  (C),D
          LD   B,$F6
          OUT  (C),C
          EI
          RET
 
 
daten_ .BYTE %00000000,%00000000,0,0 ; Hintergrund wenn 0
 
 
       .BYTE $F0,$00,$00,$00 ; Lautstaerke  1
       .BYTE $FC,$00,$00,$00 ;      "       2
       .BYTE $FF,$00,$00,$00 ;      "       3
       .BYTE $FF,$C0,$00,$00 ;      "       4
       .BYTE $FF,$F0,$00,$00 ;      "       5
       .BYTE $FF,$FC,$00,$00 ;      "       6
       .BYTE $FF,$FF,$00,$00 ;      "       7
       .BYTE $FF,$FF,$C0,$00 ;      "       8
       .BYTE $FF,$FF,$F0,$00 ;      "       9
       .BYTE $FF,$FF,$FC,$00 ;      "       10
       .BYTE $FF,$FF,$FF,$00 ;      "       11
       .BYTE $FF,$FF,$FF,$C0 ;      "       12
       .BYTE $FF,$FF,$FF,$F0 ;      "       13
       .BYTE $FF,$FF,$FF,$FC ;      "       14
       .BYTE $FF,$FF,$FF,$FF ;      "       15