c $904C DANDO
; @label:$904C=DANDO
C $904C load A with contents of R register
C $904E add value of SEED (sys var) to A
C $9052 OR A with 128 to set msb
C $9054 load B with A