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

292 ：ナイコンさん：2021/05/08(土) 15:30:10.17 .net

>>290
修正ありがとうございます。8080もきっとやればできる子です
;HLDE <- DE*BC
　 LD HL,0
　 LD A,D
　 LD D,8
loop1: ADD HL,HL
　 RLA
　 JP NC,skip1
　 ADD HL,BC
　 ADC A,0
skip1: DEC D
　 JP NZ,loop1
　 LD D,A
　 LD A,E
　 LD E,H
　 LD H,0
　 PUSH DE
　 LD E,8
loop2: ADD HL,HL
　 RLA
　 JP NC,skip2
　 ADD HL,BC
　 ADC A,0
skip2: DEC E
　 JP NZ,loop2
　 LD E,A
　 LD D,0
　 EX DE,HL
　 POP BC
　 ADD HL,BC