$FE0E/65038:   Write $55 10240 times

Jump from $FCAE:

FE0E: AD 0C 1C  LDA $1C0C
FE11: 29 1F     AND #$1F
FE13: 09 C0     ORA #$C0        ; switch PCR to writing
FE15: 8D 0C 1C  STA $1C0C
FE18: A9 FF     LDA #$FF
FE1A: 8D 03 1C  STA $1C03       ; port A to output (write head)
FE1D: A9 55     LDA #$55        ; %01010101
FE1F: 8D 01 1C  STA $1C01       ; to port A (write head)
FE22: A2 28     LDX #$28
FE24: A0 00     LDY #$00

Jump from $FE26, $FE2A, $FE2D:

FE26: 50 FE     BVC $FE26       ; byte ready for write electronics
FE28: B8        CLV
FE29: 88        DEY
FE2A: D0 FA     BNE $FE26       ; 10240 times
FE2C: CA        DEX
FE2D: D0 F7     BNE $FE26
FE2F: 60        RTS

    Previous Page / Next Page