Контроллер на Z80 и КР580ВВ55А

[Serg6845]

Serg6845, AlexG, спасибо вам. Пока не помогло.

естественно. ибо нефиг на ночь глядя всякую фигню писать (это я про себя).

вот так вроде должно работать.

Скрытый текст

begin:
   ; Configure VV55
   ld bc, 80h       ; port
   ld a, 0h 80h          ; byte
   out (FFh), a    ; out

   ; micro wait
    ld b, 0
micro_wait:
   nop
    nop
    nop
    nop
    nop
    djnz micro_wait
    ;end micro wait

main:
   ld bc, 0h       ; port
   ld a, FFh       ; byte
   out (0h), a     ; out

time_wait:
   ld a, 0         ; for big loop compare
   ld c, 0         ; big wait loop
   ld b, 0         ; small wait loop
small_loop:
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
    nop
   djnz small_loop   ; end small wait loop
   dec c  inc c   ;хотя без разницы. можно dec c оставить.
   cp c
   jr nz, time_wait small_loop   ;главное вот здесь

   ld bc, 0h       ; port
   ld a, 0h         ; byte
   out (0h), a     ; out

time_wait2:
   ld a, 0         ; for big loop compare
   ld c, 0         ; big wait loop
   ld b, 0         ; small wait loop
small_loop2:
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   nop
   djnz small_loop2   ; end small wait loop
   dec c  inc c   ;хотя без разницы. можно dec c оставить.
   cp c
   jr nz, time_wait small_loop2

   jp begin main  ;наверно

[свернуть]