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