Subroutine ea01 ea01 ce cc be ldx 0xCCBE ea04 d6 75 ldab (0x0075) ea06 3a abx ea07 d6 6b ldab (0x006B) ea09 8d 33 bsr [0xEA3E] ea0b 47 asra ea0c 56 rorb ea0d 47 asra ea0e 56 rorb ea0f dd c7 std (0x00C7) ea11 dc 70 ldd (0x0070) ea13 d3 c7 addd (0x00C7) ea15 8d 37 bsr [0xEA4E] ea17 4d tsta ea18 2c 03 bge [0xEA1D] ea1a cc 00 00 ldd 0x0000 ea1d 83 4a 38 subd 0x4A38 Branch Target from ea18 subtract 95% ea20 25 02 bcs [0xEA24] ea22 4f clra ea23 5f clrb ea24 c3 4a 38 addd 0x4A38 Branch Target from ea20 add 95% ea27 83 03 e8 subd 0x03E8 subtract 5% ea2a 22 02 bhi [0xEA2E] ea2c 4f clra ea2d 5f clrb ea2e c3 03 e8 addd 0x03E8 Branch Target from ea2a add 5% ea31 dd 6c std (0x006C) ; SolB Duty Cycle ea33 d6 6b ldab (0x006B) ea35 8d 0f bsr [0xEA46] ea37 47 asra ea38 56 rorb ea39 47 asra ea3a 56 rorb ea3b dd 72 std (0x0072) ea3d 39 rts