52 lines
353 B
Z80 Assembly
52 lines
353 B
Z80 Assembly
.org $0000
|
|
main:
|
|
init:
|
|
ld hl, out
|
|
|
|
ld a, (amount)
|
|
ld d, a
|
|
|
|
ld a, (y)
|
|
ld b, a
|
|
|
|
ld a, (x)
|
|
|
|
loop:
|
|
add a, b
|
|
|
|
ld (hl), a
|
|
inc hl
|
|
|
|
ld c, a
|
|
ld a, b
|
|
ld b, c
|
|
|
|
dec d
|
|
jp nz, loop
|
|
|
|
verify_init:
|
|
ld hl, out
|
|
|
|
ld a, (amount)
|
|
ld d, a
|
|
|
|
verify:
|
|
ld a, (hl)
|
|
inc hl
|
|
|
|
dec d
|
|
jp nz, verify
|
|
|
|
done:
|
|
halt
|
|
|
|
|
|
amount:
|
|
.db 10
|
|
x:
|
|
.db 0
|
|
y:
|
|
.db 1
|
|
|
|
out .equ $1000
|