repo.or.cz
/
enJine.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
FRAME IS TOO SHORT!
[enJine.git]
/
testc00.zas
blob
a7669d95794b005fe820844be94016a85ff85960
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
41
42
pauseXX:
43
ret
44
call 8020
45
jr c,$-3
46
call 8020
47
jr nc,$-3
48
ret
49
50
51
;;
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
69
;;
70
;;
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