Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download

  1.         module DEGBUG
  2.  
  3. grid:
  4.         ld hl,#5800
  5.         ld bc,(%01000111 * 256) + %01000000
  6. .loop:
  7.         ld (hl),b
  8.         inc hl
  9.         ld a,l
  10.         and #1f
  11.         jr z,.loop
  12.         ld a,b
  13.         xor c
  14.         ld b,a
  15.         ld a,h
  16.         cp #5b
  17.         jr c,.loop
  18.         ret
  19.  
  20.         endmodule
  21.