12345678910111213141516171819202122232425262728293031 |
- .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
|