;
; acqn, 01.16.2020
; CC65 runtime: boolean cast for longs
.export bcasteax
.importzp sreg, tmp1
bcasteax:
stx tmp1
ldx #0 ; High byte of result
ora tmp1
ora sreg
ora sreg+1
beq L0
lda #1
L0: rts
