6917: sta E7 6919: lda D2 691B: pha 691C: lda D3 691E: pha 691F: lda #3 6921: sta D2 6923: lda #1 6925: sta D3 6927: lda 5E 6929: sta 1E6C 692C: lda 5F 692E: sta 1E6D 6931: lda 8A 6933: pha 6934: jsr 1CFB 6937: jsr 1D9A 693A: jsr 49B6 693D: lda #5 693F: sta 5A 6941: jsr 4B32 6944: sei 6945: jsr 5905 6948: jsr E1C7 694B: jsr 6967 694E: lda F6 6950: bne 6953 6952: cli 6953: lda 7F 6955: cmp #EF 6957: bne 6944 6959: pla 695A: sta 8A 695C: pla 695D: sta D3 695F: pla 6960: sta D2 6962: lda C9 6964: sta 89 6966: rts