123456789101112131415161718192021222324 |
- .define Ngi2
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! This subroutine negates the integer in registerpair AX.
- ! The negation is a one's complement plus one.
- Ngi2:
- eor #0x0FF ! one's complement A
- tay
- txa
- eor #0x0FF ! one's complement X
- tax
- inx ! increment X
- bne 1f
- iny ! increment A if neccesairy
- 1: tya
- rts
|