OK Try 2 from 6502d I gave a bit more leway, and blued the different lines. Thanks for your advice 3gen.
Retail
000120BA: 4C9586 JMP $8695
000120BD: ADCD6F LDA $6FCD
000120C0: 4CE585 JMP $85E5
000120C3: A900 LDA #$00
000120C5: 8DAB70 STA $70AB
000120C8: AD9870 LDA $7098
000120CB: 29F9 AND #$F9
000120CD: 8D9870 STA $7098
000120D0: A900 LDA #$00
000120D2: 8DCC6F STA $6FCC
000120D5: A9FE LDA #$FE
000120D7: 8DCD6F STA $6FCD
000120DA: 8DCE6F STA $6FCE
000120DD: A900 LDA #$00
000120DF: 8D4470 STA $7044
000120E2: A9FE LDA #$FE
000120E4: 8D4570 STA $7045
000120E7: 8D4670 STA $7046
000120EA: A900 LDA #$00
000120EC: 8D8470 STA $7084
000120EF: A9FE LDA #$FE
000120F1: 8D8570 STA $7085
000120F4: 8D8670 STA $7086
000120F7: 60 RTS
000120F8: CECD6F DEC $6FCD
000120FB: 1018 BPL $18
000120FD: AECE6F LDX $6FCE
00012100: E8 INX
00012101: E8 INX
00012102: 8ECE6F STX $6FCE
00012105: BDFEAE LDA $AEFE,X
00012108: C9FF CMP #$FF
0001210A: F00C BEQ $0C
0001210C: 8DCD6F STA $6FCD
0001210F: BDFFAE LDA $AEFF,X
00012112: 8DCF6F STA $6FCF
proto
000120BA: 4C9586 JMP $8695
000120BD: ADCD6F LDA $6FCD
000120C0: 4CE585 JMP $85E5
000120C3: A900 LDA #$00
000120C5: 8DAB70 STA $70AB
000120C8: AD986F LDA $6F98
000120CB: 29F9 AND #$F9
000120CD: 8D9870 STA $7098
000120D0: F00C BEQ $0C
000120D2: 8DCD6F STA $6FCD
000120D5: A9FE LDA #$FE
000120D7: 8DCD6F STA $6FCD
000120DA: 8DCE6F STA $6FCE
000120DD: A900 LDA #$00
000120DF: 8D4470 STA $7044
000120E2: A9FE LDA #$FE
000120E4: 8D4570 STA $7045
000120E7: 8D4670 STA $7046
000120EA: A900 LDA #$00
000120EC: 8D8470 STA $7084
000120EF: A9FE LDA #$FE
000120F1: 8D8570 STA $7085
000120F4: 8D6F60 STA $606F
000120F7: A935 LDA #$35
000120F9: 8530 STA $30
000120FB: A93B LDA #$3B
000120FD: 8531 STA $31
000120FF: A9E8 LDA #$E8
00012101: E8 INX
00012102: 8ECE6F STX $6FCE
00012105: BD33AE LDA $AE33,X
00012108: C9FF CMP #$FF
0001210A: F00C BEQ $0C
0001210C: 8DCD6F STA $6FCD
0001210F: BDFFAE LDA $AEFF,X
00012112: 8DCF6F STA $6FCF