- SECTION "a",HOME
-
-main:
- ld c, $51 ; Note that we are alive.
- ld a, $FF
- ld [c],a
-
- ld sp, $DFF0
-
-; ld hl, $DF81
-; ld a, $80
-; ld [hl], a
-
-; ld c, $07
-; ld a, $07 ;start timer, 4.096KHz
-; ld [c], a
-;diqs: ei
-; ld a, $80
-; ld c, $51
-; ld [c], a
-; jr diqs
- call irqhand
-coqs: jr coqs
-
- section "Diq", HOME[$38]
-fuqed:
- di
- jr fuqed
-
- section "fuq",HOME[$100]
-irqhand:
- PUSH AF
- PUSH BC
- PUSH DE
- PUSH HL
-
-; ld c, $51
-; ld a, $F0
-; ld [c], a
-
- xor a
- ld c, $0F ; ack the irq
- ld [c], a
-
- ;ld a, $41 ; print A
- ;call putc
-
-; ld hl, $DF81
-; ld a, [hl]
-; ld b, 1
-; add b
- ld a, $08
- ld hl, $FF51
-; ld c, $51
- nop
- nop
- ld [hl], a
-
-
-; ld c, $51
-; ld a, $0F
-; ld [c], a
-
- POP HL
- POP DE
- POP BC
- POP AF
- RETI
- db $18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE
- db $18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE
- db $18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE