1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
; Multipart Test code ; ; $Id$ ; org 0x8100 loop: ld bc,6912 ld hl,16384 loop1: inc (hl) inc hl dec c jr nz,loop1 djnz loop1 ret