mov A,#1

out P1.0,A

reqw: in A,P1.1

in B A[1],reqw

in A,P2.ALL

mov R0,A

mov A,#0

out P1.0,A

for: mov R2,#20h

mov R1,#9h

wait: in A,P1.3

inb A[1], wait

mov A,#1

out P1.4,A

in A,P2.ALL

mov @R2.ALL,A

inc R2

in A,P0.ALL

inc R2

djnz R1,for

mov R2,#20h

call SORT

mov R2,#20h

out X,@R2

inc R2

out X,@R2

inc R2

djnz R0

jmp for

———————-SORT———————

mov R7,#8

mov R2,#20

mov R8,#8

mov R3,@R2

add R2,#2

mov R4,@R2

cmp R3,R4

jz GT

dec R2

mov R5,@R2

add R2,#2

mov R6,@R2

cmp R5,R6

jn GT

mov @R2,R5

sub R2,#2

mov @R2,R6

dec R2

mov @R2,R4

add R2,#2

mov @R2,R3

GT: add R2,#2

ret