daily pastebin goal
84%
SHARE
TWEET

Untitled

a guest Sep 21st, 2017 49 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.     CALL matr
  3.     MOV AL, EDI     ;nur AL kann IN/OUT
  4.     OUT 5CH, AL     ;LED Reihe Ausgabe
  5.     JMP m1
  6.  
  7. matr:   MOV BL, 8       ;Zeilenregister resetten
  8. z:  MOV AL, BL
  9.     OUT 5AH, AL     ;Zeile der Matrix ausgeben
  10.     IN AL, 5BH      ;Spalte der Matrix abfragen
  11.     MOV EDI, BL
  12.     SHR EDI
  13.     SHL EDI
  14.     SHL EDI
  15.     BT AL, 0        ;1. Spalte testen
  16.     JNC s1
  17.     ADD EDI, 1
  18.     RET
  19. s1: BT AL, 1        ;2. Spalte testen
  20.     JNC s2
  21.     ADD EDI, 2
  22.     RET
  23. s2: BT AL, 2        ;3. Spalte testen
  24.     JNC s3
  25.     ADD EDI, 3
  26.     RET
  27. s3: BT AL, 3        ;4. Spalte testen
  28.     JNC s4
  29.     ADD EDI, 4
  30.     RET
  31. s4: ROR BL
  32.     JNC z           ;wenn Zeile < 0 -> zurück
  33.     RET
RAW Paste Data
Top