Add DI/EI delay test. Add LD M, A.
[fpgaboy.git] / rom.asm
CommitLineData
616eebe0 1 SECTION "a",HOME
20204e79 2
616eebe0 3main:
20204e79 4 ld c, $51 ; Note that we are alive.
616eebe0
JW
5 ld a, $FF
6 ld [c],a
62940da0 7
9c834ff2
JW
8 ld sp, $DFF0
9
30ef1ae0
JW
10 ld hl, $DF81
11 ld a, $80
12 ld [hl], a
9c834ff2 13
30ef1ae0
JW
14 ld c, $07
15 ld a, $04 ;start timer, 4.096KHz
16 ld [c], a
5bac4cf0
JW
17;diqs: ei
18; ld a, $80
19; ld c, $51
20; ld [c], a
21; jr diqs
22 call irqhand
30ef1ae0 23 ei
5bac4cf0 24coqs: jr coqs
20204e79 25
5bac4cf0
JW
26 section "Diq", HOME[$38]
27fuqed:
31833112 28 di
5bac4cf0 29 jr fuqed
20204e79 30
5bac4cf0 31 section "fuq",HOME[$100]
31833112
JW
32irqhand:
33 PUSH AF
34 PUSH BC
35 PUSH DE
36 PUSH HL
9c834ff2 37
31833112
JW
38 xor a
39 ld c, $0F ; ack the irq
40 ld [c], a
9c834ff2 41
30ef1ae0
JW
42 ld a, $41 ; print A
43 call putc
9c834ff2 44
30ef1ae0 45 ld hl, $DF81
f9000d73 46 inc [hl]
30ef1ae0 47 ld a, [hl]
30ef1ae0
JW
48 ld c, $51
49 ld [c], a
9c834ff2
JW
50
51
31833112
JW
52 POP HL
53 POP DE
54 POP BC
55 POP AF
56 RETI
5bac4cf0
JW
57 db $18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE
58 db $18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE
59 db $18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE
30ef1ae0
JW
60
61putc:
62 ld b, 0
63 ld c, $50
64 push af
65.waitport:
66 ld a,[c]
67 cp b
68 jr nz,.waitport
69 pop af
70 ld [c],a
71 ret
This page took 0.026619 seconds and 4 git commands to generate.