Ú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