sgnu8.asm 170 B

1234567891011
  1. ; Returns SGN (SIGN) for 8 bits unsigned integera
  2. ;
  3. __SGNU8:
  4. ora z80_a ;- or a
  5. bne *+3 ;- ret z
  6. rts
  7. lda #1 ;- ld a,1
  8. sta z80_a
  9. rts ;- ret