.C:0351   20 AF 03   JSR $03AF	; warte auf sync
.C:0354   C9 00      CMP #$00
.C:0356   F0 F9      BEQ $0351	; wenn letztes byte == 0, weiter warten
.C:0358   85 AB      STA $AB
.C:035a   20 D8 03   JSR $03D8
.C:035d   85 C1      STA $C1
.C:035f   20 D8 03   JSR $03D8
.C:0362   85 C2      STA $C2
.C:0364   20 D8 03   JSR $03D8
.C:0367   85 2D      STA $2D
.C:0369   20 D8 03   JSR $03D8
.C:036c   85 2E      STA $2E
leseschleife
.C:036e   20 D8 03   JSR $03D8		; hole byte
.C:0371   91 C1      STA ($C1),Y	; speichern
.C:0373   E6 C1      INC $C1		; naechste speicherzelle
.C:0375   D0 02      BNE $0379
.C:0377   E6 C2      INC $C2		; lowbyte == 0, erhoehe highbyte
.C:0379   A5 C1      LDA $C1		; vergleiche, ob endadresse
.C:037b   C5 2D      CMP $2D
.C:037d   A5 C2      LDA $C2
.C:037f   E5 2E      SBC $2E
.C:0381   90 EB      BCC $036E		; ende erreicht
.C:0383   20 F9 FD   JSR $FDF9
.C:0386   20 52 FD   JSR $FD52
.C:0389   58         CLI
.C:038a   84 C0      STY $C0
.C:038c   20 5B E4   JSR $E45B
.C:038f   A9 6D      LDA #$6D
.C:0391   8D 28 03   STA $0328		; STOP vector
.C:0394   EE 02 03   INC $0302		; BASIC warm start
.C:0397   20 33 C5   JSR $C533
.C:039a   20 60 C6   JSR $C660
.C:039d   20 8E C6   JSR $C68E
.C:03a0   4C AE C7   JMP $C7AE

sync : warte auf 02, dann 09 08 ... 02 01 xx, xx != 0

.C:03af              JSR $03A3  ; motor on ?
.C:03b2              LDA #$27
.C:03b4              STA $9128	; Timer2 low
.C:03b7              LDX #$01
.C:03b9           +-+JSR $03E8
.C:03bc           | |ROL $BD
.C:03be           | |LDA $BD
.C:03c0           | |CMP #$02
.C:03c2           | +BNE $03B9	; warte auf 1 bit
.C:03c4           |  LDY #$09
.C:03c6           | +JSR $03D8
.C:03c9           | |CMP #$02
.C:03cb           | +BEQ $03C6
.C:03cd        +--|- CPY $BD
.C:03cf        |  +--BNE $03B9
.C:03d1        |     JSR $03D8
.C:03d4        |     DEY
.C:03d5        +-----BNE $03CD
.C:03d7              RTS

read byte

.C:03d8   A9 08      LDA #$08
.C:03da   85 A3      STA $A3
.C:03dc   20 E8 03   JSR $03E8
.C:03df   26 BD      ROL $BD
.C:03e1   C6 A3      DEC $A3
.C:03e3   D0 F7      BNE $03DC
.C:03e5   A5 BD      LDA $BD
.C:03e7   60         RTS

read bit

.C:03e8   A9 02      LDA #$02
.C:03ea   2C 2D 91   BIT $912D	; irq flag
.C:03ed   F0 FB      BEQ $03EA
.C:03ef   AD 2D 91   LDA $912D	; irq flag
.C:03f2   8E 29 91   STX $9129	; timer 2 high
.C:03f5   2C 21 91   BIT $9121	; PORT A output
.C:03f8   0A         ASL A
.C:03f9   0A         ASL A
.C:03fa   0A         ASL A
.C:03fb   60         RTS

tape motor on ?

.C:03a3   A0 00      LDY #$00
.C:03a5   84 C0      STY $C0
.C:03a7   CA         DEX
.C:03a8   D0 FD      BNE $03A7
.C:03aa   88         DEY
.C:03ab   D0 FA      BNE $03A7
.C:03ad   78         SEI
.C:03ae   60         RTS