LDA #$BC + LDY #$B9 + JSR $B850 + LDA

Load well known address of float constant 1.0 and call subtract float.