42656.0.txt

@0
##SEP READ & WRITE

@1
MOV 0, RIGHT
 S: MOV UP, ACC
JEZ REV
MOV ACC, RIGHT
JMP S
 REV: MOV 0, DOWN
MOV DOWN, NIL #BLK

@2


@3


@4
MOV UP, RIGHT
MOV RIGHT, UP #BLK

@5
S:MOV LEFT,NIL#BLK
 EPT: MOV UP, ACC
JGZ NXT
MOV 0, LEFT
MOV 0, DOWN
JMP S
 NXT: MOV ACC,DOWN
JMP EPT

@6


@7
MOV UP, DOWN

@8