12345678910111213141516171819202122232425 |
- .define .com
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! Complement bytes on top of stack.
- ! Expects in de-registers: number of bytes
- .com: pop h
- shld .retadr
- lxi h,0
- dad sp
- 1: mov a,m
- cma
- mov m,a
- inx h
- dcx d
- mov a,e
- ora d
- jnz 1b
- lhld .retadr
- pchl
|