Re: Tiskárna v CP/M

Roman Bórik 19. září 2010 · 20:27 SAPI-1

Nuž, tá rutina mi jednak pripadá trošku divne, ale zároveň mi je divné aj
 to, že sa používajú vstupno-výstupné inštrukcie IN a OUT.
Podľa popisu JPR-1 v ARB-83-01 sú porty adresované ako pamäť. Alebo mi
niečo uniká?

Druhá vec je, prečo je strobovanie do log.1. Signál STROBE býva zvyčajne
aktívny v nule. Ale môžem sa mýliť a možno to záleží aj od zapojenia
samotných portov a bižutérie okolo.

Ak by sme ale mali naďalej predpokladať prístup k portom pomocou IN a OUT,
/STB aktívne v nule a BUSY aktívne v log.1, napísal by som to takto:

LIST: MOV C,A    ; odpamätaj posialaný byte
        IN  3            ; test na pripravenosť tlačiarne
        ANI 40h        ; BUSY ?
        JNZ  LIST     ; ano, čakaj
        MOV A,C     ; posielaný byte nazad do A
        OUT 3         ; pošli na tlačiareň
        XRA A         ; vytvor impulz /STROBE
        OUT 2
        NOP            ; počkáme chvíľu
        MVI A,2       ; /STB nazad do log.1
        OUT 2
        RET

Zobrazit citovaný text (36 řádků)

> Ještě pro pořádek - tohle by měla být tisknoucí rutina v ELISU:
> ; rutina LIST - vystup znaku (z A !!!) na tiskarnu
> ;
> LIST: out 3 ; f44b  d3 03 vystup znaku na port tiskarny (Centronics)
> Xf44d: in 3 ; f44d  db 03 nacteni stavu tiskarny
> ani 40h ; f44f  e6 40 maskuj BUSY
> jz Xf44d ; f451  ca 4d f4 je BUSY opakuj
> mvi a,2 ; f454  3e 02 neni BUSY, priprav 1 do STROBE
> out 2 ; f456  d3 02 nahod STROBE
> Xf458: in 3 ; f458  db 03 cti status
> ani 40h ; f45a  e6 40 maskuj BUSY
> jnz Xf458 ; f45c  c2 58 f4 je BUSY opakuj
> mvi a,0 ; f45f  3e 00 priprav 0 do STROBE
> out 2 ; f461  d3 02 shod STROBE
> ret ; f463  c9 navrat s nulou ve stradaci!!!
> ;
> a tohle zapojení kabelu:
>   K6313                SAPI-1          SIGNAL
>   ===========================================
> KONEKTOR                JPR-1, X3
> XS11                    FRB-30
>   B5  -------------------  3           DAT1 ;P2-OUT0
>   B6  -------------------  5           DAT2 ;P2-OUT1
>   B7  -------------------  6           DAT3 ;P2-OUT2
>   B8  -------------------  8           DAT4 ;P2-OUT3
>   B9  ------------------- 10           DAT5 ;P2-OUT4
>   B10 -------------------  2           DAT6 ;P2-OUT5
>   B11 -------------------  4           DAT7 ;P2-OUT6
>   B12 -------------------  7           DAT8 ;P2-OUT7
>   B2  ------------------- 26           STROBE ;P1-OUT1
>   C11 ------------------- 15           BUSY ;P2-IN6
> A10 AZ A12 --------------- 11           ZEM
>   C5  ------------------- 11           ZEM
> C6 AZ C9 ----------------- 21           ZEM
> 
> nevidím (jako obvykle), v čem je problém.---------------------

Zobrazit původní podobu

Vlákno · 26 zpráv

Zobrazit celé vlákno na jedné stránce