PAGE 66,132 TITLE** PROGRAMMA di GESTIONE di programmi ASSEMBLER tipo COM (aprile 2003) SUBTTL ** TUTORIAL ASSEMBLY -- www.giobe2000.it -- by ing. Giorgio OBER ;/---------------------------------------------------------------------------\ ;| NOME : In_LPT1c.ASM ********* variante con due 74LS244 ********** | ;| AUTORE : Giorgio OBER | ;| VERSIONE : aprile 2003 | ;| DESCRIZIONE : Controllo di una PORTA PARALLELA a basso livello, al fine di| ;| acquisire lo stato di 16 sensori | ;| /----------\ -------------------------------------------------------------| ;| | | Se si lavora con i Sistemi Operativi Win2000, Win NT o WinXP | ;| | NB !! | bisogna prima installare il Driver Configura_LPT1; scaricalo | ;| | | a: http://www.giobe2000.it/consigli/Scarica_VediLPT_XP.htm | ;| *----------* -------------------------------------------------------------| ;| | | Se si lavora con i Sistemi Operativi Win2000, Win NT o WinXP | ;| | NB !! | la SHELL DOS deve essere a "Pieno Schermo" (l'esecuzione in | ;| | | "finestra DOS" non produce effetto sulla Stampante) | ;| *----------* -------------------------------------------------------------| ;| | | In ogni caso PRIMA DI OGNI SESSIONE DOS Š necessario eseguire| ;| | NB !! | il programma Config_LPT1.EXE in ambiente Windows per attivare| ;| | | la visibilit… dei driver installati con Configura_LPT1 !!!!! | ;| \----------/ -------------------------------------------------------------| ;\---------------------------------------------------------------------------/ ; COSTANTI DEFINITE PER IL PROGRAMMA: PRNdato EQU 378H ;Registro dei DATI ( USCITA ) PRNstat EQU 379H ;Registro di STATO (INGRESSO) PRNcomd EQU 37AH ;Registro di CONTROLLO ( USCITA ) ; MACRO UTILIZZATE DAL PROGRAMMA: include c:\arch-lab\bin\GIOBE.MAC ; LIBRERIA UTILIZZATA DAL PROGRAMMA [opzione WinASM altrimenti non necessaria] includelib c:\arch-lab\bin\GIOBE.LIB ;PROCEDURE ESTERNE UTILIZZATE dal PROGRAMMA [NEAR, dalla LIBRERIA ~GIOBE.LIB~] ;----------------------------------------------------------------------------- EXTRN CambiaCol:NEAR EXTRN SET_cur:NEAR EXTRN VIA_cur:NEAR EXTRN RIP_cur:NEAR EXTRN KEYwait:NEAR EXTRN STAsp:NEAR EXTRN Acapo:NEAR EXTRN BIOScls:NEAR EXTRN BIOchr1:NEAR EXTRN BIObeep:NEAR EXTRN BIOSmsg:NEAR EXTRN Byt2Asc:NEAR EXTRN RAMcls:NEAR EXTRN RAMchr:NEAR EXTRN RAMcur:NEAR EXTRN RAMmes:NEAR EXTRN RIEMPI:NEAR EXTRN RAMpiu:NEAR ; DICHIARAZIONI PER I PROGRAMMI ESTERNI: PUBLIC ATTRIB PUBLIC In_LPT1c ;DEFINIZIONE DEL SEGMENTO DEL CODICE ;----------------------------------------------------------------------------- _prog SEGMENT BYTE PUBLIC 'CODE' ASSUME CS:_prog,DS:_prog ORG 0100H INIZIO: JMP In_LPT1c ;AREA DESTINATA AI DATI DEL PROGRAMMA ;----------------------------------------------------------------------------- ATTRIB DB 1FH TESTO1 DB "Acquisizione di un dato a 16 bit dalla porta parallela",00H TESTO2 DB "TUTORIAL ASSEMBLY --- www.Giobe2000.it ---",00H TESTO3 DB "Quit",00H ;AREA DESTINATA ALLE PROCEDURE DEL PROGRAMMA ;/---------------------------------------------------------------------------\ ;|PROCEDURA : DeskTop | ;|DESCRIZIONE: Procedura che inizializza completamente il piano di lavoro.| ;\---------------------------------------------------------------------------/ DeskTop:CALL RAMcls ;Pulisce lo schermo e inizializza il segmento ;dedicato alla RamVideo (ES=0B800H) CALL VIA_cur ; Rende il cursore invisibile M_COLOR 71H ; MOV AL,"°" ; CALL RIEMPI ; RAMrepC 80," ", 0, 0,30H; RAMrepC 80," ",24, 0,30H; RAMcol TESTO1, 0,10,3FH; Organizza il piano di presentazione RAMcol TESTO2,24,10,3FH; RAMcol TESTO3,24,73,30H; RAM_cur 24,73 ; M_COLOR 3FH ; MOV AL,"Q" ; CALL RAMchr ; RET ;/---------------------------------------------------------------------------\ ;|PROCEDURA : Delay__ | ;|DESCRIZIONE : Il ritardo prodotto Š legato dalla velocit… del processore | ;| perch‚ utilizza le un ciclo di istruzioni.. Š di circa 1 ms | ;\---------------------------------------------------------------------------/ Delay__:PUSH CX MOV CX,0000H ;65536 del2_: PUSH AX PUSH BX PUSH CX PUSH DX POP DX POP CX POP BX POP AX LOOP del2_ POP CX RET ;***************************************************************************** ; ---------------------------------------------- In_LPT1c proc NEAR ; AREA DEDICATA AL MAIN PROGRAM ; ---------------------------------------------- ;----------------------------------------------------------------------------- ; --------------------------------------------- CALL DeskTop ; Organizza il piano di presentazione ; --------------------------------------------- ; Abilita i primi quattro buffer 3-state ; collegando al bus esterno gli Switch "bassi" ; ---------------------------------------------\ ; Abilitazione e lettura degli Switch "bassi" | ; ---------------------------------------------/ ; /-[037AH/027AH - PORTA d'USCITA dei COMANDI]-\ ; | /-7-*-6-*-5-*4--*-3-*-2-*-1-*-0-\ | ; | | * | * | * | * |Out|Out|Out|Out| | ; |non \---*---*---*---*---*---*---*---/ | ; |disponib.*---*---*---/ | | | | | ; |pin 17 Negato------------/ | | pin 1 | ; |pin 16 ----------------------/ | Negato | ; |pin 14 Negato--------------------/ | ; \--------------------------------------------/ Prnt02: MOV AL,03H ; Forza a 11 i bit1,bit0 della porta d'uscita MOV DX,PRNcomd ; Comandi, per pilotare l'uscita Y0 del decoder OUT DX,AL ; CALL Delay__ ; ; /-[0379H/0279H-PORTA d'INGRESSO dello STATO]-\ ; | /-7-*-6-*-5-*4--*-3-*-2-*-1-*-0-\ | ; | | In| In| In| In| In| * | * | * | | ; | \---*---*---*---*---*---*---*---/ | ; | | | | | | \---*---/ | ; |pin 11 Negato| | | | non disponibili| ; |pin 10 ------/ | | \---- pin 15 | ; |pin 12 ----------/ \-------- pin 13 | ; \--------------------------------------------/ MOV DX,PRNstat ; Lettura dei quattro switch pi— bassi nel IN AL,DX ; registro d'ingresso XOR AL,10000000B ; Formatta in BL la prima met… dell'informazione SHR AL,1 ; desiderata compattandola nella forma 0000xxxxH SHR AL,1 ; Da notare che, essendo la linea BUSY invertita SHR AL,1 ; da HW (con un inverter) dentro la scheda del SHR AL,1 ; computer Š NECESSARIO "raddrizzare" da SW que- MOV BL,AL ; sto bit7 per evitare l'errata interpretazione ; --------------------------------------------- ; Abilitazione/lettura dei rimanenti 12 Switch ; --------------------------------------------- MOV AL,02H ; MOV DX,037AH ; Forza a 10 i bit1,bit0 della porta d'uscita OUT DX,AL ; Comandi, per pilotare l'uscita Y1 del decoder CALL Delay__ ; MOV DX,0379H ; Lettura dei quattro switch medio bassi nel IN AL,DX ; registro d'ingresso XOR AL,10000000B ; AND AL,0F0H ; Formatta l'informazione OR AL,BL ; MOV BL,AL ; ;---------------------- --------------------------------------------- MOV AL,01H ; MOV DX,037AH ; Forza a 01 i bit1,bit0 della porta d'uscita OUT DX,AL ; Comandi, per pilotare l'uscita Y2 del decoder CALL Delay__ ; MOV DX,0379H ; Lettura dei quattro switch medio alti nel IN AL,DX ; registro d'ingresso XOR AL,10000000B ; SHR AL,1 ; SHR AL,1 ; Formatta l'informazione SHR AL,1 ; SHR AL,1 ; MOV BH,AL ; ;---------------------- --------------------------------------------- MOV AL,00H ; MOV DX,037AH ; Forza a 00 i bit1,bit0 della porta d'uscita OUT DX,AL ; Comandi, per pilotare l'uscita Y3 del decoder CALL Delay__ ; MOV DX,0379H ; Lettura dei quattro switch pi— alti nel IN AL,DX ; registro d'ingresso XOR AL,10000000B ; AND AL,0F0H ; Formatta l'informazione OR AL,BH ; MOV BH,AL ; ;---------------------- --------------------------------------------- PUSH AX ; Provvede alla stampa a video del byte appena M_CURSOR 13,39 ; acquisito, a verifica del funzionamento del POP AX ; pacchetto HW/SW che si occupa di questa acqui- CALL Byt2Asc ; sizione di DATI ; Funzione BIOS INT 16H che consente di verifi- MOV AH,01H ; care la eventuale pressione di tasti senza INT 16H ; fermarsi; Š cosŤ possibile tornare al DOS con JZ Prnt02 ; la pressione di un tasto qualunque, senza in- ; terrompere il "polling" della porta d'ingresso ; (NB: ffZ="1" = nessuna pressione tasti (Z) ) _OUT: PUSH AX ; Torna al DOS con la memoria liberata e con la CALL RIP_cur ; chiusura di tutti i file; cede il controllo MOV DH,23 ; al processo padre (generalmente COMMAND.COM); MOV DL,0 ; il valore posto eventualmente in AL prima di CALL SET_cur ; uscire pu• essere testato in uscita con la POP AX ; funzione 4DH o mediante la lettura della MOV AH,4CH ; variabile DOS "ERRORLEVEL" INT 21H In_LPT1c ENDP ; Chiusura della Procedura "Main Program" _prog ENDS ; Chiusura del Segmento di CODICE END INIZIO ; Indirizzo dell'ultima istruzione da compilare