cmpi.b #'A'-1,d1 ; 'A' -> 'Z' | 'a' -> 'z' bls.s \End cmpi.b #'Z',d1 bls.s \loop cmpi.b #'a'-1,d1 bls.s \End cmpi.b #'z',d1 bhi.s \End
\upper: cmpi.b #'A'-1,d1 ; 'A' -> 'Z' | 'a' -> 'z' bls.s \End cmpi.b #'Z',d1 bls.s \loop bclr.l #5,d1 bne.s \upper bra.s \End