blob: 0b7541420c74f3a26813ba44c6a076fe85b1a075 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
;;; -*- asm -*-
;;;
.ORG 4000h
call cond_jr ;cd
halt
inc8:
ld bc,data8 ;01
;; BC should have &data8
ld a,(bc) ;0a
inc a ;3c
ld (bc),a ;02
halt
dec8:
ld a,0a5h ;3e
dec a ;3d
ret ;c9
cond_jr:
ld a,01h ;3e 01
cp a ;bf
jr nz,wrong ;20 07
ccf ;3f
jr c,wrong ;38
scf ;37
jr nc,wrong ;30
ret ;c9
wrong:
jp wrong
data8:
.db 0a5h
data16:
.dw data8
|
