Étape 6: Entrées Extra.
- D3 : état de la broche 15 (erreur) inversé, pas
- D4 : état de la broche 13 (SELECTED)
- D5 : état de la broche 12 (PAPER OUT)
- D6 : état de la broche 10 (ACK)
- D7 : état de la broche 11 (occupé) inversé-non
------------------------------------------------------------------------------------------------------
Pseudo-code :
rem pport 1 rem 2^7 <= pin 11 rem 2^6 <= pin 10 rem 2^5 <= pin 12 rem 2^4 <= pin 13 rem 2^2 <= pin 15 N = INP(&H379)
Sélectionnez l’option casse N
affaire N et 2 ^ 6
imprimer « ligne 10 est fermé »
affaire N et ne 2 ^ 7
imprimer « ligne 11 est fermé »
affaire N et 2 ^ 5
imprimer « ligne 12 est fermé »
affaire N et 2 ^ 4
imprimer « ligne 13 est fermée »
affaire N et ne 2 ^ 2
imprimer « ligne 15 est fermée »
end select
------------------------------------------------------------------
CLS
DEFINT A-Z
Adresse = 889: REM 889 = adresse du port, autres adresses pourraient être 633 ou 957
IMPRIMER « Appuyez sur la touche entrée pour lire imprimante broches de port (15,13,12,10,11) »
IMPRIMER "une lecture (0) indique que le code pin est au niveau du sol, (1) indique"
IMPRESSION « la broche est à un niveau élevé ou non terminée ».
ENTRÉE A$
V = INP(Address)
IMPRESSION V
P11 = 1
IF V > 127 puis P11 = 0: V = V - 128
IF V > 63 puis P10 = 1: V = V - 64
IF V > 31 puis P12 = 1: V = V - 32
IF V > 15 puis P13 = 1: V = V - 16
IF V > 7 puis P15 = 1
IMPRIMER
PRINT "Pin 15 =" ; P15
PRINT "Pin 13 =" ; P13
PRINT "Pin 12 =" ; P12
PRINT "Pin 10 =" ; P10
PRINT "broche 11 =" ; P11
FIN