EdSim Experiment

ORG 0000H
MAIN:

	CLR P0.3
	CALL ONETWOTHREE
	JB F0, DONE

	CLR P0.2
	CALL FOURFIVESIX
	JB F0, DONE

	CLR P0.1
	CALL SEVENEIGHTNINE
	JB F0, DONE

	CLR P0.0
	CALL ZERO
	JB F0, DONE

	JMP MAIN

DONE:

	JMP $

ZERO:

	JNB P0.5, KEYZERO
	RET

KEYZERO:

	SETB F0
	MOV R7, #1111000000B
	MOV P1, R7
	CALL ZEROBINARY
	RET

SEVENEIGHTNINE:

	JNB P0.4, KEYNINE
	JNB P0.5, KEYEIGHT
	JNB P0.6, KEYSEVEN
	RET

KEYNINE:

	SETB F0
	MOV R7, #10011000B
	MOV P1, R7
	CALL NINEBINARY
	RET

KEYEIGHT:

	SETB F0
	MOV R7, #10000000B
	MOV P1, R7
	CALL EIGHTBINARY
	RET

KEYSEVEN:

	SETB F0
	MOV R7, #11111000B
	MOV P1, R7
	CALL SEVENBINARY
	RET

FOURFIVESIX:

	JNB P0.4, KEYSIX
	JNB P0.5, KEYFIVE
	JNB P0.6, KEYFOUR
	RET

KEYSIX:

	SETB F0
	MOV R7, #10000010B
	MOV P1, R7
	CALL SIXBINARY
	RET

KEYFIVE:

	SETB F0
	MOV R7, #10010010B
	MOV P1, R7
	CALL FIVEBINARY
	RET

KEYFOUR:

	SETB F0
	MOV R7, #10011001B
	MOV P1, R7
	CALL FOURBINARY
	RET

ONETWOTHREE:

	JNB P0.4, KEYTHREE
	JNB P0.5, KEYTWO
	JNB P0.6, KEYONE
	RET

KEYTHREE:

	SETB F0
	MOV R7, #10110000B
	MOV P1, R7
	CALL THREEBINARY
	RET

KEYTWO:

	SETB F0
	MOV R7, #10100100B
	MOV P1, R7
	CALL TWOBINARY
	RET

KEYONE:

	SETB F0
	MOV R7, #11111001B
	MOV P1, R7
	CALL ONEBINARY
	RET

ZEROBINARY:

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	CLR P1.2
	SETB P1.2

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	CLR P1.2
	SETB P1.2

	CALL DELAY0

	MOV 30H, #'0'
	MOV 31H, #'0'
	MOV 32H, #'0'
	MOV 33H, #'0'
	MOV 34H, #'0'
	MOV 35H, #0

	CLR P1.3

	CLR P1.7
	CLR P1.6
	SETB P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY0

	SETB P1.2
	CLR P1.2

	SETB P1.7

	SETB P1.2
	CLR P1.2

	CALL DELAY0

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.6
	SETB P1.5

	SETB P1.2
	CLR P1.2

	CALL DELAY0

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY0

	SETB P1.3

	MOV R1, #30H

LOOP0:
	MOV A, @R1
	JZ FINISH0

	CALL sendCharacter0
	INC R1
	JMP LOOP0

FINISH0:
	RET

sendCharacter0:
	MOV C, ACC.7
	MOV P1.7, C
	MOV C, ACC.6
	MOV P1.6, C
	MOV C, ACC.5
	MOV P1.5, C
	MOV C, ACC.4
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	MOV C, ACC.3
	MOV P1.7, C
	MOV C, ACC.2
	MOV P1.6, C
	MOV C, ACC.1
	MOV P1.5, C
	MOV C, ACC.0
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	CALL DELAY0

DELAY0:
	MOV R0, #19H
	DJNZ R0, $
	RET

NINEBINARY:

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	CLR P1.2
	SETB P1.2

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	CLR P1.2
	SETB P1.2

	CALL DELAY9

	MOV 30H, #'9'
	MOV 31H, #'9'
	MOV 32H, #'9'
	MOV 33H, #'9'
	MOV 34H, #'9'
	MOV 35H, #0

	CLR P1.3

	CLR P1.7
	CLR P1.6
	SETB P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY9

	SETB P1.2
	CLR P1.2

	SETB P1.7

	SETB P1.2
	CLR P1.2

	CALL DELAY9

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.6
	SETB P1.5

	SETB P1.2
	CLR P1.2

	CALL DELAY9

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY9

	SETB P1.3

	MOV R1, #30H

LOOP9:
	MOV A, @R1
	JZ FINISH9

	CALL sendCharacter9
	INC R1
	JMP LOOP9

FINISH9:
	JMP $

sendCharacter9:
	MOV C, ACC.7
	MOV P1.7, C
	MOV C, ACC.6
	MOV P1.6, C
	MOV C, ACC.5
	MOV P1.5, C
	MOV C, ACC.4
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	MOV C, ACC.3
	MOV P1.7, C
	MOV C, ACC.2
	MOV P1.6, C
	MOV C, ACC.1
	MOV P1.5, C
	MOV C, ACC.0
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	CALL DELAY9

DELAY9:
	MOV R0, #19H
	DJNZ R0, $
	RET

EIGHTBINARY:

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	CLR P1.2
	SETB P1.2

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	CLR P1.2
	SETB P1.2

	CALL DELAY

	MOV 30H, #'8'
	MOV 31H, #'8'
	MOV 32H, #'8'
	MOV 33H, #'8'
	MOV 34H, #'8'
	MOV 35H, #0

	CLR P1.3

	CLR P1.7
	CLR P1.6
	SETB P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY

	SETB P1.2
	CLR P1.2

	SETB P1.7

	SETB P1.2
	CLR P1.2

	CALL DELAY

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.6
	SETB P1.5

	SETB P1.2
	CLR P1.2

	CALL DELAY

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY

	SETB P1.3

	MOV R1, #30H

LOOP8:
	MOV A, @R1
	JZ FINISH8

	CALL sendCharacter8
	INC R1
	JMP LOOP8

FINISH8:
	JMP $

sendCharacter8:
	MOV C, ACC.7
	MOV P1.7, C
	MOV C, ACC.6
	MOV P1.6, C
	MOV C, ACC.5
	MOV P1.5, C
	MOV C, ACC.4
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	MOV C, ACC.3
	MOV P1.7, C
	MOV C, ACC.2
	MOV P1.6, C
	MOV C, ACC.1
	MOV P1.5, C
	MOV C, ACC.0
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	CALL DELAY8

DELAY8:
	MOV R0, #19H
	DJNZ R0, $
	RET

SEVENBINARY:

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	CLR P1.2
	SETB P1.2

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	CLR P1.2
	SETB P1.2

	CALL DELAY7

	MOV 30H, #'7'
	MOV 31H, #'7'
	MOV 32H, #'7'
	MOV 33H, #'7'
	MOV 34H, #'7'
	MOV 35H, #0

	CLR P1.3

	CLR P1.7
	CLR P1.6
	SETB P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY7

	SETB P1.2
	CLR P1.2

	SETB P1.7

	SETB P1.2
	CLR P1.2

	CALL DELAY7

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.6
	SETB P1.5

	SETB P1.2
	CLR P1.2

	CALL DELAY7

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY7

	SETB P1.3

	MOV R1, #30H

LOOP7:
	MOV A, @R1
	JZ FINISH7

	CALL sendCharacter7
	INC R1
	JMP LOOP7

FINISH7:
	JMP $

sendCharacter7:
	MOV C, ACC.7
	MOV P1.7, C
	MOV C, ACC.6
	MOV P1.6, C
	MOV C, ACC.5
	MOV P1.5, C
	MOV C, ACC.4
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	MOV C, ACC.3
	MOV P1.7, C
	MOV C, ACC.2
	MOV P1.6, C
	MOV C, ACC.1
	MOV P1.5, C
	MOV C, ACC.0
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	CALL DELAY7

DELAY7:
	MOV R0, #19H
	DJNZ R0, $
	RET

SIXBINARY:

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	CLR P1.2
	SETB P1.2

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	CLR P1.2
	SETB P1.2

	CALL DELAY6

	MOV 30H, #'6'
	MOV 31H, #'6'
	MOV 32H, #'6'
	MOV 33H, #'6'
	MOV 34H, #'6'
	MOV 35H, #0

	CLR P1.3

	CLR P1.7
	CLR P1.6
	SETB P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY6

	SETB P1.2
	CLR P1.2

	SETB P1.7

	SETB P1.2
	CLR P1.2

	CALL DELAY6

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.6
	SETB P1.5

	SETB P1.2
	CLR P1.2

	CALL DELAY6

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY6

	SETB P1.3

	MOV R1, #30H

LOOP6:
	MOV A, @R1
	JZ FINISH6

	CALL sendCharacter6
	INC R1
	JMP LOOP6

FINISH6:
	JMP $

sendCharacter6:
	MOV C, ACC.7
	MOV P1.7, C
	MOV C, ACC.6
	MOV P1.6, C
	MOV C, ACC.5
	MOV P1.5, C
	MOV C, ACC.4
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	MOV C, ACC.3
	MOV P1.7, C
	MOV C, ACC.2
	MOV P1.6, C
	MOV C, ACC.1
	MOV P1.5, C
	MOV C, ACC.0
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	CALL DELAY6

DELAY6:
	MOV R0, #19H
	DJNZ R0, $
	RET

FIVEBINARY:

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	CLR P1.2
	SETB P1.2

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	CLR P1.2
	SETB P1.2

	CALL DELAY5

	MOV 30H, #'H'
	MOV 31H, #'E'
	MOV 32H, #'P'
	MOV 33H, #'C'
	MOV 34H, #'Q'
	MOV 35H, #0

	CLR P1.3

	CLR P1.7
	CLR P1.6
	SETB P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY5

	SETB P1.2
	CLR P1.2

	SETB P1.7

	SETB P1.2
	CLR P1.2

	CALL DELAY5

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.6
	SETB P1.5

	SETB P1.2
	CLR P1.2

	CALL DELAY5

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY5

	SETB P1.3

	MOV R1, #30H

LOOP5:
	MOV A, @R1
	JZ FINISH5

	CALL sendCharacter5
	INC R1
	JMP LOOP5

FINISH5:
	JMP $

sendCharacter5:
	MOV C, ACC.7
	MOV P1.7, C
	MOV C, ACC.6
	MOV P1.6, C
	MOV C, ACC.5
	MOV P1.5, C
	MOV C, ACC.4
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	MOV C, ACC.3
	MOV P1.7, C
	MOV C, ACC.2
	MOV P1.6, C
	MOV C, ACC.1
	MOV P1.5, C
	MOV C, ACC.0
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	CALL DELAY5

DELAY5:
	MOV R0, #19H
	DJNZ R0, $
	RET

FOURBINARY:

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	CLR P1.2
	SETB P1.2

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	CLR P1.2
	SETB P1.2

	CALL DELAY4

	MOV 30H, #'4'
	MOV 31H, #'4'
	MOV 32H, #'4'
	MOV 33H, #'4'
	MOV 34H, #'4'
	MOV 35H, #0

	CLR P1.3

	CLR P1.7
	CLR P1.6
	SETB P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY4

	SETB P1.2
	CLR P1.2

	SETB P1.7

	SETB P1.2
	CLR P1.2

	CALL DELAY4

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.6
	SETB P1.5

	SETB P1.2
	CLR P1.2

	CALL DELAY4

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY4

	SETB P1.3

	MOV R1, #30H

LOOP4:
	MOV A, @R1
	JZ FINISH4

	CALL sendCharacter4
	INC R1
	JMP LOOP4

FINISH4:
	JMP $

sendCharacter4:
	MOV C, ACC.7
	MOV P1.7, C
	MOV C, ACC.6
	MOV P1.6, C
	MOV C, ACC.5
	MOV P1.5, C
	MOV C, ACC.4
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	MOV C, ACC.3
	MOV P1.7, C
	MOV C, ACC.2
	MOV P1.6, C
	MOV C, ACC.1
	MOV P1.5, C
	MOV C, ACC.0
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	CALL DELAY4

DELAY4:
	MOV R0, #19H
	DJNZ R0, $
	RET

THREEBINARY:

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	CLR P1.2
	SETB P1.2

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	CLR P1.2
	SETB P1.2

	CALL DELAY3

	MOV 30H, #'3'
	MOV 31H, #'3'
	MOV 32H, #'3'
	MOV 33H, #'3'
	MOV 34H, #'3'
	MOV 35H, #0

	CLR P1.3

	CLR P1.7
	CLR P1.6
	SETB P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY3

	SETB P1.2
	CLR P1.2

	SETB P1.7

	SETB P1.2
	CLR P1.2

	CALL DELAY3

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.6
	SETB P1.5

	SETB P1.2
	CLR P1.2

	CALL DELAY3

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY3

	SETB P1.3

	MOV R1, #30H

LOOP3:
	MOV A, @R1
	JZ FINISH3

	CALL sendCharacter3
	INC R1
	JMP LOOP3

FINISH3:
	JMP $

sendCharacter3:
	MOV C, ACC.7
	MOV P1.7, C
	MOV C, ACC.6
	MOV P1.6, C
	MOV C, ACC.5
	MOV P1.5, C
	MOV C, ACC.4
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	MOV C, ACC.3
	MOV P1.7, C
	MOV C, ACC.2
	MOV P1.6, C
	MOV C, ACC.1
	MOV P1.5, C
	MOV C, ACC.0
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	CALL DELAY3

DELAY3:
	MOV R0, #19H
	DJNZ R0, $
	RET

TWOBINARY:

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	CLR P1.2
	SETB P1.2

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	CLR P1.2
	SETB P1.2

	CALL DELAY2

	MOV 30H, #'2'
	MOV 31H, #'2'
	MOV 32H, #'2'
	MOV 33H, #'2'
	MOV 34H, #'2'
	MOV 35H, #0

	CLR P1.3

	CLR P1.7
	CLR P1.6
	SETB P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY2

	SETB P1.2
	CLR P1.2

	SETB P1.7

	SETB P1.2
	CLR P1.2

	CALL DELAY2

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.6
	SETB P1.5

	SETB P1.2
	CLR P1.2

	CALL DELAY2

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY2

	SETB P1.3

	MOV R1, #30H

LOOP2:
	MOV A, @R1
	JZ FINISH2

	CALL sendCharacter2
	INC R1
	JMP LOOP2

FINISH2:
	JMP $

sendCharacter2:
	MOV C, ACC.7
	MOV P1.7, C
	MOV C, ACC.6
	MOV P1.6, C
	MOV C, ACC.5
	MOV P1.5, C
	MOV C, ACC.4
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	MOV C, ACC.3
	MOV P1.7, C
	MOV C, ACC.2
	MOV P1.6, C
	MOV C, ACC.1
	MOV P1.5, C
	MOV C, ACC.0
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	CALL DELAY2

DELAY2:
	MOV R0, #19H
	DJNZ R0, $
	RET


ONEBINARY:

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	CLR P1.2
	SETB P1.2

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	CLR P1.2
	SETB P1.2

	MOV P1, #0FFH
	MOV P0, #0FFH

	CALL DELAY

	MOV 30H, #'1'
	MOV 31H, #'1'
	MOV 32H, #'1'
	MOV 33H, #'1'
	MOV 34H, #'1'
	MOV 35H, #'1'
	MOV 36H, #'1'
	MOV 37H, #'1'
	MOV 38H, #0

	CLR P1.3

	CLR P1.7
	CLR P1.6
	SETB P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY

	SETB P1.2
	CLR P1.2

	SETB P1.7

	SETB P1.2
	CLR P1.2

	CALL DELAY

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.6
	SETB P1.5

	SETB P1.2
	CLR P1.2

	CALL DELAY

	CLR P1.7
	CLR P1.6
	CLR P1.5
	CLR P1.4

	SETB P1.2
	CLR P1.2

	SETB P1.7
	SETB P1.6
	SETB P1.5
	SETB P1.4

	SETB P1.2
	CLR P1.2

	CALL DELAY

	SETB P1.3

	MOV R1, #30H

LOOP:
	MOV A, @R1
	JZ FINISH

	CALL sendCharacter
	INC R1
	JMP LOOP

FINISH:
	RET

sendCharacter:
	MOV C, ACC.7
	MOV P1.7, C
	MOV C, ACC.6
	MOV P1.6, C
	MOV C, ACC.5
	MOV P1.5, C
	MOV C, ACC.4
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	MOV C, ACC.3
	MOV P1.7, C
	MOV C, ACC.2
	MOV P1.6, C
	MOV C, ACC.1
	MOV P1.5, C
	MOV C, ACC.0
	MOV P1.4, C

	SETB P1.2
	CLR P1.2

	CALL DELAY

DELAY:
	MOV R0, #19H
	DJNZ R0, $
	RET

	END