Advertisement
Guest User

Untitled

a guest
Sep 21st, 2017
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. m1: MOV EDI, 0      ;wenn nix gedrückt -> 0
  2.     MOV ESI, OFFSET ziff
  3.     CALL matr
  4.     MOV AL, EDI     ;nur AL kann IN/OUT //MOV AL, [ESI+EDI]
  5.     OUT 5CH, AL     ;LED Reihe Ausgabe
  6.     JMP m1
  7.  
  8. matr:   MOV BL, 8       ;Zeilenregister resetten
  9. z:  MOV AL, BL
  10.     OUT 5AH, AL     ;Zeile der Matrix ausgeben
  11.     IN AL, 5BH      ;Spalte der Matrix abfragen
  12.     MOV EDI, BL
  13.     SHR EDI
  14.     SHL EDI
  15.     SHL EDI
  16.     BT AL, 0        ;1. Spalte testen
  17.     JNC s1
  18.     ADD EDI, 1
  19. s1: BT AL, 1        ;2. Spalte testen
  20.     JNC s2
  21.     ADD EDI, 2
  22. s2: BT AL, 2        ;3. Spalte testen
  23.     JNC s3
  24.     ADD EDI, 3
  25. s3: BT AL, 3        ;4. Spalte testen
  26.     JNC s4
  27.     ADD EDI, 4
  28. s4: ROR BL
  29.     JNC z           ;wenn Zeile < 0 -> zurück
  30.     RET
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement