ÚVOD | Novinky | 8 Bitů | Příslušenství | Drobnosti | TTL | Kontakt
SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | klony SM50/40 | PETR | PLAN-80A | IQ151 | TNS | FK-1 | HVĚZDA | SP 830 | PCS 1-QR6000
ZPS | Technické prostředky | Programové vybavení | Dokumentace
OCR dokumentace k "Rutiny k plotru MINIGRAF 0507 a AMAGRAF 0517"
POVELY Z MONITORU:
------------------
INIC: G 1800
INICIALIZUJE MIMIGRAF JAKO PRIDAVNE KRESLICI ZARIZENI. PISITKO ZUSTANE V
HORNIM LEVEM ROHU PAPIRU NEBO SE PAPIR ZALOZI TAK, ABY JEHO HORNI HRANA SE
KRYLA S HORNI HRANOU STOLKU MINIGRAFU. SOUCASNE SE NASTAVI HORNI HRANICE
POUZITELNE RAM NA HODNOTU FFCFH TENTO PRIKAZ SE DOPORUCUJE POUZIT IHNED PO
ZAPNUTI POCITACE PRED SPUSTENIM DALSICH PROGRAMU!
SYST: G 1815
MINIGRAF SE PRIPOJI JAKO SYSTEMOVA TISKARNA SE VSEMI MOZNOSTMI JAKO NORMALNI
TISKARNA, JE VSAK POMALA.
TOTO NAVOLENI SYSTEMOVE TISKARNY SE ZRUSI PRIKAZEM H=?
COPY: G 180F
PO TOMTO PRIKAZU SE PROVEDE VYPIS OBRAZOVKY, JEHOZ ZACATEK JE V LEVEM HORNIM
ROHU PAPIRU. ZMENU LZE DOSAHNOUT JEN PREDNASTAVENIM REG. PARU BC A DE
PRIKAZEM X.
TEST: G 1809
PROVEDE TEST MINIGRAFU A VYPIS GENERATORU ZNAKU. PAPIR MUSI PRED PROVEDENIM
TESTU BYT ZALOZEN TAK? ABY SE JEHO HORNI HRANA KRYLA S HRANOU STOLKU
MINIGRAFU. PO TESTU JE VHODNE PROVEST PRIKAZ INIC KTERY DEFINUJE POLOHU
PAPIRU.
POVELY Z BASICU:
----------------
SYST: X=CALL(6171)
IDENTICKY PRIKAZU SYST Z MONITORU.
ORG: X=CALL(6177C[,Y,X,])
PRIPOJI MINIGRAF < NASTAVI HORNI HRANICI PAMETI JEN PRO MONITOR > ! [ NASTAVI
PISATKO DO POLOHY Y,X] NEPOVINE PARAMETRY. POZADUJEME-LI TAKE NASTAVENI RAMTOP
PRO MINIGRAF, MUSIME JESTE ZADAT X=CALL(17411).
MOVA: X=CALL(6189,Y,X)
POSUN PISATKA DO ZADANYCCH SOURADNIC, PISATKO ZUSTANE ZVEDNUTO.
VECTA: X=CALL(6195,Y,X)
NAKRESLI USECKU Z DOSAVADNI POLOHY DO ZADANYCH SOURADNIC. PISATKO ZUSTANE
SPUSTENO.
POINTA: X=CALL(6201,Y,X)
PRESUN PIISATKA Z DOSAVADNI POLOHY DO ZADANYCH SOURABNIC UDELA TAM TECKU A
ZVEDNE PISATKO.
MOVR: X=CALL(6207,Y,X)
PRESUN PISATKA DO SOURADNIC ZVETSENYCH NEBO ZMENSENYCH O UDANOU HODNOTU,
PISATKO ZUSTANE ZVEDNUTO.
VECTR: X=CALL(6213,Y,X)
NAKRESLI USECKU Z DOSAVADNI POLOHY DO SOURADNIC ZVETSENYCH NEBO ZMENSENYCH O
UDANOU HODNOTU, PISATKO ZUSTANE SPUSTENO.
POINTR: X=CALL(6219,Y,X)
PRESUNE PISATKO DO SOURADNIC ZVETSENYCH NEBO ZMENSENYCH O UDANOU HODNOTU,
UDELA TAM TECKU A ZVEDNE PISATKO.
SPEED: X=USR(6222,S)
MODIFIKACE RYCHLOSTI KRESLENI V ROZSAHU +- 10%, PRIPUSTNE HODNOTY S=1,2,3,4,5.
ORG NASTAVUJE S=3.
UIRITE: X=USR (6225,D,A)
NAPISE RETEZEC ZNAKU ULOZENYCH V OPERACNI PAMETI V ASCII KODU OD ADRESY A V
DELCE D. NEHLIDA OKRAJ PAPIRU!
ZNAK: X=USR(6228,X)
X=USR(6228,ASC( 0 ))
NAPISE V MISTE, KDE JE PISATKO, ZNAK X UDANY V KODU ASCII.
SIZEXX X=CALL(6231,YY,XX)
SIZEYX X=CALL(6234,YX,XY)
NASTAVI PARAMETRY PRO TISK, VIZ PRIKLADY V MANUALU.
NARROW: X=CALL (6240)
NASTAVI UZKOU MEZERU MEZI ZNAKY.
WIDE: X=CALL(6237)
NASTAVI SIROKOU MEZERU MEZI ZNAKY.
COPY: X=CALL(6183[,Y,X])
NASTAVI PARAMETRY PRO TISK XX=3, YY=3, XY=0, YX=0, NARROW A REZIM ASCII.
POMOCI PARAMETRU Y A X SE URCI SOURADNICE LEVEHO HORNIHO ROHU RAMECKU KOLEM
VYPISU. PROVEDE VYPIS OBRAZOVKY A NASTAVI PUVODNI PARAMETRY TISKU.
POZNAMKA:
ABY NEBYL NARUSEN ZAPISNIK MINIGRAFU ULOZENY FFDO-FFFF POVELEM CLSG U
BASIC-EXP V5.0/G, LZE TENTO UPRAVIT TAK ABY TATO CAST RAM NEBYLA VYMAZANA
POMOCI NASLEDUJICICH DVOU PRIKAZOVYCH RADKU:
CODE HEX(729C);71,23,7C,FE,FF,C3,EA,73
CODE HEX(73EA);C2,9C,72,7D,FE,D0,C2,9C,72,E1,C3,A4,72
Desku Paralelních Portu nastavit na adresy 30-37H, budiče u brány 2PB nastavit na výstup.
| DPP-1/X2 | |
| Signál | Port/špička |
| X0 | PB-0/28 |
| X1 | PB-1/26 |
| X2 | PB-2/23 |
| Y0 | PB-3/27 |
| Y1 | PB-4/29 |
| Y2 | PB-5/25 |
| PEN | PB-7/30 |
| Zem | 17,19 |
Původní verze tj. jak byl získán listing, umístění v EPROM 1800-1FFFH
Původní verze tj. jak byl získán listing, umístění v RAM F800-FFFFH.
Upravena verze s doplněnými komentáři dle "SOUŘADNICOVÝ ZAPISOVAČ ŘÍZENÝ MIKROPROCESOREM" z AR MIKROELEKTONIKA/90 str. 22-24, umístění v EPROM 1800-1FFFH.
1 REM UKAZKOVY PROGRAM PRO MINIGRAF 0507 3 A=CALL(6171):A=CALL(6222,1):GOSUB 440 5 XS=750:YS=-670:PI=3.14159:FI=-PI/6:R=450 7 X=INT(R*COS(MI)+XS+.49):Y=INT(R*SIN(MI)+YS+.49) 10 CLS:CURS 7,15:PRINT "POCITAM A KRESLIM" 20 REM KRESLENI OBRAZCE 30 FOR I=0 TO 30 40 MI=FI+I*PI/60:GOSUB 400:A=CALL(6189,Y,X):X1=X:Y1=Y 50 FOR J=1 TO 5:MI=MI+PI/3:GOSUB 400:A=CALL(6195,Y,X):NEXT J:A=CALL(6195,Y1,X1) 60 R=R*.971:NEXT I 65 REM POPIS OBRAZCE 70 A=CALL(6189,-429,360):A=CALL(6231,7,7):A=CALL(6234,0,4):A=CALL(6225,8,17280) 80 A=CALL(6189,-255,836):A=CALL(6231,7,14):A=CALL(6234,0,-8):A=CALL(6225,4,17288) 90 A=CALL(6189,-1042,462):A=CALL(6231,7,7):A=CALL(6234,4,-4):A=CALL(6225,6,17292) 100 A=CALL(6189,-1177,811):A=CALL(6234,-4,4):A=CALL(6225,5,17298) 110 REM ZNAK ARITMA 120 R=112:GOSUB 420:A=CALL(6189,YS+R,XS):U=R/SQR(2) 130 A=CALL(6195,YS-U,XS-U):A=CALL(6195,YS,XS) 135 A=CALL(6195,YS-U,XS+U):A=CALL(6195,YS+R,XS) 140 R=29.22:YS=YS-54:GOSUB 420 150 FOR I=1 TO -1 STEP -2 160 A=CALL(6189,YS+14*I,XS-19) 170 FOR J=1 TO 5:Y=YS+I*(4-10*(J<2 OR J>3)):X=XS-19*(J<3)+19*(J>2) 180 A=CALL(6195,Y,X):NEXT J:NEXT I:A=CALL(6189,0,0):END 390 REM PODPROGRAMY 400 X=INT(R*COS(MI)+XS+.49):Y=INT(R*SIN(MI)+YS+.49):RETURN 420 A=CALL(6189,YS,XS+R):FOR I=0 TO 360 STEP 5 430 MI=I*PI/180:GOSUB 400:A=CALL(6195,Y,X):NEXT I:RETURN 440 DATA 77,73,78,73,71,82,65,70,48,53,48,55,65,82,73,84,77,65,80,82,65,72,65 450 RESTORE:FOR I=17280 TO 17308:READ A:POKE I,A:NEXT I:RETURN
|
|
|
|
ÚVOD | Novinky | 8 Bitů | Příslušenství | Drobnosti | TTL | Kontakt
SAPI-1 | ONDRA | PMI-80 | PMD-85 | klony PMD-85 | klony SM50/40 | PETR | PLAN-80A | IQ151 | TNS | FK-1 | HVĚZDA | SP 830 | PCS 1-QR6000
ZPS | Technické prostředky | Programové vybavení | Dokumentace