| | 1 | SECTION "a",HOME |
| | 2 | |
| | 3 | main: |
| | 4 | ld c, $51 ; Note that we are alive. |
| | 5 | ld a, $FF |
| | 6 | ld [c],a |
| | 7 | |
| | 8 | ld sp, $DFF0 |
| | 9 | |
| | 10 | ; ld hl, $DF81 |
| | 11 | ; ld a, $80 |
| | 12 | ; ld [hl], a |
| | 13 | |
| | 14 | ; ld c, $07 |
| | 15 | ; ld a, $07 ;start timer, 4.096KHz |
| | 16 | ; ld [c], a |
| | 17 | ;diqs: ei |
| | 18 | ; ld a, $80 |
| | 19 | ; ld c, $51 |
| | 20 | ; ld [c], a |
| | 21 | ; jr diqs |
| | 22 | call irqhand |
| | 23 | coqs: jr coqs |
| | 24 | |
| | 25 | section "Diq", HOME[$38] |
| | 26 | fuqed: |
| | 27 | di |
| | 28 | jr fuqed |
| | 29 | |
| | 30 | section "fuq",HOME[$100] |
| | 31 | irqhand: |
| | 32 | PUSH AF |
| | 33 | PUSH BC |
| | 34 | PUSH DE |
| | 35 | PUSH HL |
| | 36 | |
| | 37 | ; ld c, $51 |
| | 38 | ; ld a, $F0 |
| | 39 | ; ld [c], a |
| | 40 | |
| | 41 | xor a |
| | 42 | ld c, $0F ; ack the irq |
| | 43 | ld [c], a |
| | 44 | |
| | 45 | ;ld a, $41 ; print A |
| | 46 | ;call putc |
| | 47 | |
| | 48 | ; ld hl, $DF81 |
| | 49 | ; ld a, [hl] |
| | 50 | ; ld b, 1 |
| | 51 | ; add b |
| | 52 | ld a, $08 |
| | 53 | ld hl, $FF51 |
| | 54 | ; ld c, $51 |
| | 55 | nop |
| | 56 | nop |
| | 57 | ld [hl], a |
| | 58 | |
| | 59 | |
| | 60 | ; ld c, $51 |
| | 61 | ; ld a, $0F |
| | 62 | ; ld [c], a |
| | 63 | |
| | 64 | POP HL |
| | 65 | POP DE |
| | 66 | POP BC |
| | 67 | POP AF |
| | 68 | RETI |
| | 69 | db $18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE |
| | 70 | db $18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE |
| | 71 | db $18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE,$18,$FE |
git.joshuawise.com / fpgaboy.git / blame_incremental