ack/plat/cpm/libsys/cpm_overwrite_ccp.s

13 lines
215 B
ArmAsm
Raw Normal View History

#
#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