.define .ngi4 .sect .text .sect .rom .sect .data .sect .bss .sect .text ! Exchange 32 bits integer by its two's complement ! Expects operand on stack ! Yields result on stack .ngi4: pop d lxi h,0 dad sp xra a sub m mov m,a inx h mvi a,0 sbb m mov m,a inx h mvi a,0 sbb m mov m,a inx h mvi a,0 sbb m mov m,a push d ret