Assembler for the demo.hex
$MOD52
$PAGEWIDTH(132)
$DEBUG
$OBJECT
$NOPAGING
STACK DATA 2FH ; FROM 30H - 5FH
ORG 0000H ; POWER ON/RESET VECTOR
JMP ON_RESET
RETI
ON_RESET:
CLR P3.5
ACALL A156H
SETB P3.5
MOV A,#0E2H
ACALL A140H
MOV A,#0A0H
ACALL A140H
MOV A,#0C8H
ACALL A140H
MOV A,#0A3H
ACALL A140H
MOV A,#2FH
ACALL A140H
MOV A,#23H
ACALL A140H
MOV A,#81H
ACALL A140H
MOV A,#11H
ACALL A140H
MOV A,#40H
ACALL A140H
MOV A,#0A6H
ACALL A140H
MOV A,#0A4H
ACALL A140H
MOV A,#0AFH
ACALL A140H
ACALL A106H
A088H:
MOV A,#0A7H
ACALL A140H
MOV DPTR,#TABLE1
ACALL A124H
ACALL A169H
ACALL A169H
ACALL A169H
ACALL A169H
ACALL A169H
MOV A,#0A6H
ACALL A140H
MOV DPTR,#TABLE2
ACALL A124H
ACALL A169H
ACALL A169H
ACALL A169H
MOV DPTR,#TABLE3
ACALL A124H
ACALL A169H
ACALL A169H
ACALL A169H
MOV A,#0A7H
ACALL A140H
MOV DPTR,#TABLE4
ACALL A124H
ACALL A169H
ACALL A169H
ACALL A169H
MOV A,#0A6H
ACALL A140H
MOV DPTR,#TABLE5
ACALL A124H
ACALL A169H
ACALL A169H
ACALL A169H
MOV DPTR,#TABLE6
ACALL A124H
ACALL A169H
ACALL A169H
ACALL A169H
MOV A,#0A7H
ACALL A140H
ACALL A156H
MOV A,#0A6H
ACALL A140H
ACALL A156H
MOV A,#0A7H
ACALL A140H
ACALL A156H
MOV A,#0A6H
ACALL A140H
ACALL A156H
MOV A,#0A7H
ACALL A140H
ACALL A169H
ACALL A169H
ACALL A169H
ACALL A169H
ACALL A169H
AJMP A088H
A106H:
MOV R6,#0B0H
A108H:
MOV A,R6
ACALL A140H
MOV A,#10H
ACALL A140H
MOV A,#00H
ACALL A140H
MOV R5,#42H
A115H:
MOV A,#00H
ACALL A145H
MOV A,#00H
ACALL A145H
DJNZ R5,A115H
INC R6
CJNE R6,#0B8H,A108H
RET
A124H:
MOV R6,#0B0H
A126H:
MOV R1,#84H ; #80H
MOV A,R6
ACALL A140H
MOV A,#10H
ACALL A140H
MOV A,#02H
ACALL A140H
A133H:
MOV A,#00H
MOVC A,@A+DPTR
ACALL A145H
INC DPTR
DJNZ R1,A133H
INC R6
CJNE R6,#0B8H,A126H
RET
A140H:
NOP
CLR P3.4
SJMP A148H
A145H:
NOP
SETB P3.4
A148H:
SETB P3.2
CLR P3.6
MOV P0,A
CLR P3.3
NOP
SETB P3.3
SETB P3.6
RET
A156H:
MOV 40H,#02H
MOV 41H,#87H
MOV 42H,#13H
A15FH:
DJNZ 42H,A15FH
DJNZ 41H,A15FH
DJNZ 40H,A15FH
RET
A169H:
MOV 40H,#08H
MOV 41H,#0A1H
MOV 42H,#73H
A172H:
DJNZ 42H,A172H
DJNZ 41H,A172H
DJNZ 40H,A172H
RET
TABLE1:
TABLE2:
TABLE3:
TABLE4:
TABLE5:
TABLE6:
END |