letzter Code korrigiert

This commit is contained in:
WieErWill 2022-01-21 13:21:29 +01:00
parent 1d22f97936
commit 12fb7af1b3
2 changed files with 36 additions and 31 deletions

Binary file not shown.

View File

@ -596,68 +596,73 @@ Verhindere das Prellen der Tasten durch Software um doppelte Tastendrücke zu ve
anf: anf:
CALL wmatr ; Tasten abfragen CALL wmatr ; Tasten abfragen
CALL ziff ; Ziffern abfragen CALL ziff ; Ziffern abfragen
CALL anz ; Ausgabe auf Anzeige
JMP anf JMP anf
matr:
MOV ECX, 50000h ; Entprelltimer
t: DEC ECX
JNZ t
IN AL, 5Ah ; Zeile einlesen
MOV BL, AL ; in Register B sichern
SHL BL, 4 ; Bits nach oben schieben
IN AL, 5Bh ; Spalte einlesen
OR BL, AL ; Spalten & Zeilen in Byte zusammenfassen
RET
wmatr: wmatr:
CALL matr ; Tasten abfragen CALL matr
JNZ wmatr ; weiter wenn keine Taste gedrueckt CMP BH, 0h
w2: CALL matr ; Taste abfragen JNZ wmatr
JZ w2 ; weiter wenn Taste gedrueckt lp: CALL matr
CMP BH, 0h ; Entprelltimer
JZ lp
RET RET
ziff: matr:
CMP BL, 17h MOV ECX, 5000h
t: DEC ECX
JNZ t
MOV AL, 01h
OUT 5Ah, AL
IN AL, 5Bh
MOV BL, AL
z0:
CMP BL, 01h
JNC z1 JNC z1
MOV BH, 3Fh MOV BH, 3Fh
RET RET
z1: CMP BL, 18h z1: CMP BL, 02h
JNC z2 JNC z2
MOV BH, 03h MOV BH, 03h
RET RET
z2: CMP BL, 20h z2: CMP BL, 04h
JNC z3 JNC z3
MOV BH, 6Dh MOV BH, 6Dh
RET RET
z3: CMP BL, 24h z3: CMP BL, 08h
JNC z4 JNC w2
MOV BH, 67h MOV BH, 67h
RET RET
z4: CMP BL, 33h w2: MOV AL, 02h
OUT 5Ah, AL
IN AL, 5Bh
MOV BL, AL
z4: CMP BL, 01h
JNC z5 JNC z5
MOV BH, 53h MOV BH, 53h
RET RET
z5: CMP BL, 34h z5: CMP BL, 02h
JNC z6 JNC z6
MOV BH, 76h MOV BH, 76h
RET RET
z6: CMP BL, 36h z6: CMP BL, 04h
JNC z7 JNC z7
MOV BH, 7Eh MOV BH, 7Eh
RET RET
z7: CMP BL, 40h z7: CMP BL, 08h
JNC z8 JNC w3
MOV BH, 23h MOV BH, 23h
RET RET
z8: CMP BL, 65h w3: MOV AL, 04h
OUT 5Ah, AL
IN AL, 5Bh
MOV BL, AL
z8: CMP BL, 01h
JNC z9 JNC z9
MOV BH, 7Fh MOV BH, 7Fh
RET RET
z9: CMP BL, 66h z9: CMP BL, 02h
JNC zq JNC zq
MOV BH, 77h MOV BH, 77h
RET RET
zq: CMP BL, 77h zq: MOV BH, 0h
JNC z1
MOV BH, 04h
RET RET
anz: anz:
MOV AL, BH MOV AL, BH