|
|
עמוד:284
DELAY ENDP RET POP CX JNZ DDY DDY : DEC CX פרוצדורה לסריקת המקשים SCAN–DIGIT PROC ; סריקת המקשים SCAN : ; מונה מספר מקש MOVSI , 0 h ; קוד שורה ראשונה לסריקה MOVCH , 0 FEh ; מונה מספר שורות MOVBX , 0 h ; AGAIN : קביעת לוח מקשים כהתקן פעיל OUT DX , AL MOV AL , 02 h MOV DX , 037 Ah ; הצגת קוד שורה בקווי הנתונים OUT DX , AL MOV AL , CH MOV DX , 0378 h ; קלט מקש בשורה הנסרקת MOV DX , 0379 H ; הסיביות שבהן נקלט העמודה הן IN AL , DX ; D 7-D 4 ביטול ההיפוך של הדק XOR AL , 80 h ; S 7 בדיקה אם יש מקש לחוץ CMP AL , 0 F 0 h ; איפוס 4 סיביות מימין AND AL , 0 F 0 h ; נמצא מקש לחוץ JNZ KEY–PRESSED ; אין מקש לחוץ בשורה הנוכחית ; קביעת קוד סריקה של השורה הבאה ROL CH , 1 ; קידום מונה שורות INC BX ; בדיקה אם סיימנו לסרוק את כל 4 השורות CMP BX , 4 ; כל השורות נסרקו לא נמצא אף מקש לחוץ JE END–SCAN ;
|
|