--- /dev/null
+MAIN START
+ LAD GR1,A
+ LD GR0,B
+ LD GR2,P
+ LD GR3,Q
+ CALL REPLACE
+ LAD GR1,A
+ LAD GR2,0
+LOOP CPA GR2,CNT
+ JZE FIN
+ LD GR1,A,GR2
+ CALL OUTL
+ LAD GR2,1,GR2
+ JUMP LOOP
+FIN RET
+A DC #FFFF,#FFFF,#FFFF,#FFFF,#FFFF,#FFFF
+CNT DC 6
+B DC #B1D0
+P DC 55
+Q DC 12
+ END