FRAME IS TOO SHORT!
[enJine.git] / testc00.zas
bloba7669d95794b005fe820844be94016a85ff85960
1 ; test code
2 .buildLoop:
3   ld   a,2
4   ld   (zzz),a
5   halt
6   out  (254),a
7   call buildPushers
8   ld   a,1
9   ld   (zzz),a
10   out  (254),a
11   call blitMap
12   xor  a
13   ld   (zzz),a
14   out  (254),a
15   ;
16   call pauseXX
17   ;jr   .skipxi
18   ;
19   ld   a,(plrXOffset)
20   inc  a
21   and  #07
22   ld   (plrXOffset),a
23   jr   nz,.buildLoop
24   ld   a,(mapX)
25   inc  a
26   and  #3f
27   ld   (mapX),a
28   jr   nz,.buildLoop
29 .skipxi:
30   ld   a,(plrYOffset)
31   inc  a
32   and  #07
33   ld   (plrYOffset),a
34   jr   nz,.buildLoop
35   ld   a,(mapY)
36   inc  a
37   and  #3f
38   ld   (mapY),a
39   ;
40   jr   .buildLoop
42 pauseXX:
43   ret
44   call  8020
45   jr    c,$-3
46   call  8020
47   jr    nc,$-3
48   ret
52 ;;.loop:
53 ;;  ld   hl,shiftedTilesBuf
54 ;;  call showTiles
55 ;;  call pause
56 ;;  call showTiles
57 ;;  call pause
58 ;;  call showTiles
59 ;;  call pause
60 ;;  call showTiles
61 ;;  call pause
62 ;;  jr   .loop
63 ;;pause:
64 ;;  ei
65 ;;  ld   b,30
66 ;;  halt
67 ;;  djnz $-1
68 ;;  ret
71 ;;showTiles:
72 ;;  ld   de,#4000
73 ;;  ld   b,16*4  ; one set
74 ;;.oneRow:
75 ;;  push de
76 ;;  ld   c,d
77 ;;  ldi
78 ;;  ldi
79 ;;  ldi
80 ;;  ldi
81 ;;  ldi
82 ;;  ldi
83 ;;  pop  de
84 ;;  inc  d
85 ;;  ld   a,d
86 ;;  and  #07
87 ;;  jr   nz,.scrlineok
88 ;;  ld   a,d
89 ;;  sub  8
90 ;;  ld   d,a
91 ;;  ld   a,e
92 ;;  add  a,32
93 ;;  ld   e,a
94 ;;.scrlineok:
95 ;;  djnz .oneRow
96 ;;  ret