Code : Tout sélectionner
GETCHAR:
call GETKEY
ld c,a
OUTCHAR:
push hl
push de
push bc
ld hl,VTCSTATUS
ld (hl),0B0H
ld b,000H
loop4:
ld a,(hl)
rrca
jr c,VDC_OUT
djnz loop4
VTC_START:
ld (hl),00EH
VTC_RESET:
ld (hl),00AH
dec hl
call VTCTEST0
ld a,063H
jr nc,LFB8B
ld a,06EH
LFB8B:
ld (hl),a
inc hl
ld (hl),000H
dec hl
call VTCTEST0
ld a,053H
jr nc,LFB99
ld a,07FH
LFB99:
ld (hl),a
inc hl
ld (hl),001H
dec hl
ld (hl),065H
inc hl
ld (hl),002H
dec hl
ld b,017H
ld (hl),b
inc hl
ld (hl),003H
dec hl
call VTCTEST0
ld a,028H
jr nc,LFBB4
ld a,060H
LFBB4:
ld (hl),a
inc hl
ld (hl),004H
dec hl
call VTCTEST0
ld a,013H
jr nc,LFBC2
ld a,050H
LFBC2:
ld (hl),a
inc hl
ld (hl),005H
dec hl
ld (hl),b
inc hl
ld (hl),006H
ld (hl),00EH
call LFC55
push bc
ld de,01F42H
ld c,b
call LFD96
ld de,01E40H
ld c,055H
call LFD96
ld de,01F43H
ld c,015H
call LFD96
pop bc