123456789101112131415161718192021222324252627282930313233343536 |
- .define .blm
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! Block move
- ! Expects in de-reg: size of block
- ! Expects on stack: destination address
- ! source address
- .blm: pop h
- shld .retadr
- mov h,b
- mov l,c
- shld .bcreg
- pop h ! hl = destination address
- pop b ! bc = source address
- 1: ldax b
- mov m,a
- inx b
- inx h
- dcx d
- mov a,d
- ora e
- jnz 1b
- lhld .bcreg
- mov b,h
- mov c,l
- lhld .retadr
- pchl
|