ORG 0X0000
LJMP MAIN

ORG 0X0013 /*EXTERNAL INTERRUPT*/
ISR_IE1:
MOV R1,#0x00
RETI
ORG 0X001B
ISR_TR1: /*TIMER INTERRUPT*/
MOV R1,#0x00
CLR TR1
RETI
ORG 0X0030
MAIN:
MOV R1,#0x01
SETB TCON.2
MOV IE,#0x8C
HERE1: CJNE R1,#0x00,HERE1 /*AFTER EXTERNAL INTERRUPT */
CLR IE.2 /*PULSE GENERATION STARTS*/
MOV TMOD,#0x10
MOV P2,#0xFF
MOV R0,#0x0F
MOV A,#0x80
MOVX @R0,A
REPEAT:
MOV R4,#0x55
MOV R7,#0x50
MOV R6,#0x00
MOV DPTR,#0x1000
AGAIN:
MOV R1,#0x01
CLR A
MOVC A,@A+DPTR
MOV TL1,A
INC DPTR
CLR A
MOVC A,@A+DPTR
MOV TH1,A
SETB TR1
INC DPTR
MOV R2,DPH
MOV R3,DPL
MOV DPH,R7
MOV DPL,R6
CLR A
MOVC A,@A+DPTR
MOV R0,#0x0C
MOVX @R0,A
INC DPTR
CLR A
MOVC A,@A+DPTR
MOV R0,#0x0D
MOVX @R0,A
INC DPTR
MOV R6,DPL
MOV R7,DPH
MOV DPH,R2
MOV DPL,R3
HERE2:
CJNE R1,#0x00,HERE2
DJNZ R4,AGAIN
SJMP REPEAT
END