6502basiccompiler/arch/6502/__sandbox__/library-asm/neg16.asm

; Negates HL value (16 bit)
__ABS16:
lda #$80       ;- bit 7,h
cmp z80_h
bne *+3        ;- ret z
rts

__NEGHL:
lda z80_l      ;- ld a,l			; HL = -HL
sta z80_a
eor #$ff       ;- cpl
lda z80_a      ;- ld l,a
sta z80_l
lda z80_h      ;- ld a,h
sta z80_a
eor #$ff       ;- cpl
lda z80_a      ;- ld h,a
sta z80_h
inc z80_l      ;- inc hl
bne *+4
inc z80_h
rts            ;- ret