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