㊦㊦㊦㊦㊦㊦㊦㊦㊦㊦㊦㊦㊦
;
READ
     A=2 !COMMAND.OUT
     A=16  !DATA.OUT
     A=D   !DATA.OUT
     A=E   !DATA.OUT
     A=1   !DATA.OUT
     A=$12 !COMMAND.OUT
     C=$10 !READ.DATA
     RET


READ.DATA
     DO
       DO B=$80
         A=$B PORT(CM)=A
         DO
           A=PORT(PC) A=A.&.1
         UNTIL NZ
         A=$A PORT(CM)=A
         A=PORT(PA) (HL+)=A
         A=$D PORT(CM)=A
         DO
           A=PORT(PC) A=A.&.1
         UNTIL Z
         A=PORT(PA) (HL+)=A
         A=$C PORT(CM)=A
       UNTIL DEC(B)=0
     UNTIL DEC(C)=0
     RET



COMMAND.OUT
     AF<>AF'