;PROGRAM KTORY OBLICZA POLOWKE Z WCISNIETEGO KLAWISZA


MOV DPTR, #400H 

poczatek: 
CLR P3.3 
CLR P3.4 

MOV R0, #3 
CLR F0 

SETB P0.0 
SETB P0.1 
SETB P0.2 
SETB P0.3 
CLR P0.3 
CALL kolumny 
JB F0, finish 

SETB P0.3 
CLR P0.2 
CALL kolumny 
JB F0, finish 

SETB P0.2 
CLR P0.1 
CALL kolumny 
JB F0, finish 

SETB P0.1 
CLR P0.0 
CALL kolumny 
JB F0, finish 

JMP poczatek 

finish: 
MOV A,R0 
MOVC A,@A+DPTR 
MOV P1, A 
CALL czekaj 
MOV P1, #11111111B 
SETB P3.3 
SETB P3.4 
INC R0 
MOV A,R0 
MOVC A,@A+DPTR 
MOV P1, A 
CALL czekaj 
MOV P1, #11111111B 
CLR P3.3 
SETB P3.4 
INC R0 
MOV A,R0 
MOVC A,@A+DPTR 
MOV P1, A 
CALL czekaj 
MOV P1, #11111111B 
DEC R0 
DEC R0 
JMP poczatek 

kolumny: 
JNB P0.6, gotKey 
INC R0 
INC R0 
INC R0 
JNB P0.5, gotKey 
INC R0 
INC R0 
INC R0 
JNB P0.4, gotKey 
INC R0 
INC R0 
INC R0 
RET 

gotKey: 
SETB F0 
RET 

czekaj: 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
NOP 
RET 

ORG 400H 
DB 11000000B ;0 
DB 11000000B ;0 
DB 11000000B ;0 


DB 11111001B ;1 
DB 11000000B ;0 
DB 10010010B ;5 
DB 10100100B ;2 
DB 11111001B ;1 
DB 11000000B ;0 
DB 10110000B ;3 
DB 11111001B ;1 
DB 10010010B ;5 


DB 10011001B ;4 
DB 10100100B ;2 
DB 11000000B ;0 
DB 10010010B ;5 
DB 10100100B ;2 
DB 10010010B ;5 
DB 10000010B ;6 
DB 10110000B ;3 
DB 11000000B ;0 


DB 11111000B ;7 
DB 10110000B ;3 
DB 10010010B ;5 
DB 10000000B ;8 
DB 10011001B ;4 
DB 11000000B ;0 
DB 10010000B ;9 
DB 10011001B ;4 
DB 10010010B ;5 
DB 10001001B ;GWIAZDKA 
DB 11000000B ;0 
DB 11000000B ;0 
DB 11000000B ;0 
DB 11000000B ;0 
DB 11000000B ;0 
DB 10101010B ;HASH 
DB 11000000B ;0 
DB 11000000B ;0