ack/plat/cpm/libsys/cpm_overwrite_ccp.s
David Given a804375560 Miscellaneous byte shaving; you can now choose whether or not you want the CCP
overwritten or not, and cpm_exit() does the right thing.
2019-06-11 20:32:00 +02:00

13 lines
215 B
ArmAsm

#
#include "asm.h"
.define _cpm_overwrite_ccp
_cpm_overwrite_ccp:
mvi a, 0xaf ! 0xaf = xor a = clear carry bit
sta _cpm_exit
lhld _cpm_ramtop
lxi d, 0x800
dad d
shld _cpm_ramtop
ret