RosettaCodeData/Task/Apply-a-callback-to-an-array/Z80-Assembly/apply-a-callback-to-an-array.z80
2023-07-01 13:44:08 -04:00

14 lines
164 B
Z80 Assembly

Array:
byte &01,&02,&03,&04,&05
Array_End:
foo:
ld hl,Array
ld b,Array_End-Array ;ld b,5
bar:
inc (hl)
inc (hl)
inc (hl)
inc hl ;next entry in array
djnz bar