Subroutine f450

f450 b6 c0 1a    ldaa (0xC01A)
f453 97 47       staa (0x0047)
f455 86 ff       ldaa 0xFF
f457 97 49       staa (0x0049)
f459 97 4a       staa (0x004A)
f45b 97 4b       staa (0x004B)
f45d b6 c0 11    ldaa (0xC011)
f460 97 29       staa (0x0029)
f462 cc ff ff    ldd 0xFFFF
f465 dd 34       std (0x0034)
f467 dd 41       std (0x0041)
f469 b6 cf 91    ldaa (0xCF91)
f46c 97 78       staa (0x0078)
f46e fc c0 09    ldd (0xC009) ; Initial 5% Duty Cycle for Sols C
f471 dd 61       std (0x0061) ; SolA Duty Cycle
f473 dd 6c       std (0x006C) ; SolB Duty Cycle
f475 fc c0 07    ldd (0xC007) ; Initial 95% Duty Cycle for Sols AB
f478 dd 79       std (0x0079) ; SolC Duty Cycle
f47a dd 7b       std (0x007B) ; SolC Target Duty
f47c 86 86       ldaa 0x86
f47e 97 4d       staa (0x004D) ; Stick_Position
f480 86 02       ldaa 0x02
f482 97 4f       staa (0x004F)
f484 14 0f 0c    bset (0x000F), 0x0C
f487 86 10       ldaa 0x10
f489 97 58       staa (0x0058)
f48b cc c1 2b    ldd 0xC12B
f48e dd 55       std (0x0055)
f490 86 03       ldaa 0x03
f492 97 3a       staa (0x003A)
f494 86 01       ldaa 0x01
f496 97 84       staa (0x0084)
f498 86 1e       ldaa 0x1E
f49a 97 c5       staa (0x00C5)
f49c 97 5b       staa (0x005B)
f49e 39          rts