برنامج جريدة الكترونية باستخدام معالج أتمل

;MCS-51 INTERNAL REGISTERS
;
B:	EQU	0F0H	;B REGISTER
A:	EQU	0E0H	;ACCUMULATOR
PSW:	EQU	0D0H	;PROGRAM STATUS WORD
IP:	EQU	0B8H	;INTERRUPT PRIORITY
P3:	EQU	0B0H	;PORT 3
IE:	EQU	0A8H	;INTERRUPT ENABLE
P2:	EQU	0A0H	;PORT 2
SBUF:	EQU	99H	;SEND BUFFER
SCON:	EQU	98H	;SERIAL CONTROL
P1:	EQU	90H	;PORT 1
TH1:	EQU	8DH	;TIMER 1 HIGH
TH0:	EQU	8CH	;TIMER 0 HIGH
TL1:	EQU	8BH	;TIMER 1 LOW
TL0:	EQU	8AH	;TIMER 0 LOW
TMOD:	EQU	89H	;TIMER MODE
TCON:	EQU	88H	;TIMER CONTROL
PCON:	EQU	87H	;POWER CONTROL REGISTER
DPH:	EQU	83H	;DATA POINTER HIGH
DPL:	EQU	82H	;DATA POINTER LOW
SP:	EQU	81H	;STACK POINTER
P0:	EQU	80H	;PORT 0
R0:	EQU	00H	;GENERAL Reg 0
R1:	EQU	01H	;GENERAL Reg 1
R2:	EQU	02H	;GENERAL Reg 2
R3:	EQU	03H	;GENERAL Reg 3
R4:	EQU	04H	;GENERAL Reg 4
R5:	EQU	05H	;GENERAL Reg 5
R6:	EQU	06H	;GENERAL Reg 6
R7:	EQU	07H	;GENERAL Reg 7
R8:	EQU	08H	;GENERAL Reg 8
R9:	EQU	09H	;GENERAL Reg 9


;
;MCS-51 INTERNAL BIT ADDRESSES
;
CY:	EQU	0D7H	;CARRY FLAG
AC:	EQU	0D6H	;AUXILIARY-CARRY FLAG
F0:	EQU	0D5H	;USER FLAG 0
RS1:	EQU	0D4H	;REGISTER SELECT MSB
RS0:	EQU	0D3H	;REGISTER SELECT LSB
OV:	EQU	0D2H	;OVERFLOW FLAG
P:	EQU	0D0H	;PARITY FLAG
PS:	EQU	0BCH	;PRIORITY SERIAL PORT
PT1:	EQU	0BBH	;PRIORITY TIMER 1
PX1:	EQU	0BAH	;PRIORITY EXTERNAL 1
PT0:	EQU	0B9H	;PRIORITY TIMER 0
PX0:	EQU	0B8H	;PRIORITY EXTERNAL 0
EA:	EQU	0AFH	;ENABLE ALL INTERRUPT
ES:	EQU	0ACH	;ENABLE SERIAL INTERRUPT
ET1:	EQU	0ABH	;ENABLE TIMER 1 INTERRUPT
EX1:	EQU	0AAH	;ENABLE EXTERNAL 1 INTERR
ET0:	EQU	0A9H	;ENABLE TIMER 0 INTERRUPT
EX0:	EQU	0A8H	;ENABLE EXTERNAL 0 INTERR
SM0:	EQU	09FH	;SERIAL MODE 0
SM1:	EQU	09EH	;SERIAL MODE 1
SM2:	EQU	09DH	;SERIAL MODE 2
REN:	EQU	09CH	;SERIAL RECEPTION ENABLE
TB8:	EQU	09BH	;TRANSMITT BIT 8
RB8:	EQU	09AH	;RECEIVE BIT 8
TI:	EQU	099H	;TRANSMIT INTERRUPT FLAG
RI:	EQU	098H	;RECEIVE INTERRUPT FLAG
TF1:	EQU	08FH	;TIMER 1 OVERFLOW FLAG
TR1:	EQU	08EH	;TIMER 1 RUN CONTROL BIT
TF0:	EQU	08DH	;TIMER 0 OVERFLOW FLAG
TR0:	EQU	08CH	;TIMER 0 RUN CONTROL BIT
IE1:	EQU	08BH	;EXT INTERR. 1 EDGE FLAG
IT1:	EQU	08AH	;EXT INTERR. 1 TYPE FLAG
IE0:	EQU	089H	;EXT INTERR. 0 EDGE FLAG
IT0:	EQU	088H	;EXT INTERR. 0 TYPE FLAG



       CPU     "8051.TBL"
	HOF	"INT8"
;==================================================
;

	ORG	0000H
	ACALL	CHARG
START:	MOV	R0,#90H
	MOV	DPH,#00H
COLM:	MOV	DPL,R0
	MOV	R1,#14H
L_SCAN:	MOV	R2,#20H
	MOV	R4,#00H
S_SCAN:	ACALL	CLOCK
	MOV	A,R2
	MOVC	A,@A+DPTR
	MOV	P1,A
	ACALL	DELAY
	DJNZ	R2,S_SCAN
	DJNZ	R1,L_SCAN
	DEC	R0
	CJNE	R0,#50H,COLM
	JMP	START

DELAY:	MOV	R7,#50H
NEXT:	NOP
	DJNZ	R7,NEXT
	RET

CLOCK:	CJNE	R4,#00H,ONE
	MOV	A,#01H
	MOV	R5,#00H
	JMP	THEN
ONE:	MOV	A,#03H
	MOV	R5,#02H
THEN:	INC	R4
	MOV	P3,A
	MOV	P3,R5
	RET

CHARG:	MOV	R3,#20H
LABEL:	MOV	R4,#01H
	ACALL	CLOCK
	DJNZ	R3,LABEL
	RET

	ORG 0050H	
	DFB	00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H
	DFB	00H,06H,07H,06H,02H,1EH,00H,06H,06H,02H,02H,06H,06H,02H,06H,16H,16H,00H,00H,00H,06H,0AH,06H,03H,1EH,03H,06H,03H,01H,06H,00H,00H
	DFB	00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H