8086 vs. Z80 vs. 6809 vs. 6502　その10

117 ：ナイコンさん：2014/12/05(金) 18:51:25.21 .net

;Z80　16bit加算命令使用　　H*L->HL
　　LD E,L
　　SUB A
　　LD L,A
　　LD D,A
　　LD B,8
LOOP:
　　ADD HL,HL
　　JR NC,SKIP
　　ADD HL,DE
SKIP:
　　DJNZ LOOP
　　RET
　　
;Z80　8bit加算命令使用　　D*E->DE
　　LD B,8
　　SUB A
　　RR E
LOOP:
　　JR NC,SKIP
　　ADD A,D
SKIP:
　　RRA
　　RR E
　　DJNZ LOOP
　　LD D,A
　　RET