REM COPCM (c)2002,2008 Patrick GUEULLE

#Include CARDUTIL.DEF
#Include COMMERR.DEF
ComPort=101

Public T$(64) As String*8
Declare Command &HC2 &HB6 RDC(Lc=0,S$)
Declare Command &HC2 &HB2 RDU(Lc=0,S$)
Declare Command &HC2 &HB4 WRC(S$,Disable Le)
Declare Command &HC2 &HB0 WRU(S$,Disable Le)
Declare Command &HC8 &HA2 FLUSH(S$,Disable Le)

Call WaitForCard
ResetCard:Call CheckSW1SW2:Print

C=0:D=0
For F=1 to 32
Call RDC(P1=0,P2=C,S$,Le=8)
T$(D)=S$
C=C+8:D=D+1
S$="":Print".";
Next F

Call WRC(P1P2=&H0B00,Lc=0,S$)
C=0
For F=1 to 8
Call RDU(P1=0,P2=C,S$,Le=8)
T$(D)=S$
C=C+8:D=D+1
S$="":Print".";
Next F

Call WRC(P1P2=&H0B01,Lc=0,S$)
C=0
For F=1 to 8
Call RDU(P1=0,P2=C,S$,Le=8)
T$(D)=S$
C=C+8:D=D+1
S$="":Print".";
Next F

Call WRC(P1P2=&H0B02,Lc=0,S$)
C=0
For F=1 to 8
Call RDU(P1=0,P2=C,S$,Le=8)
T$(D)=S$
C=C+8:D=D+1
S$="":Print".";
Next F

Call WRC(P1P2=&H0B03,Lc=0,S$)
C=0
For F=1 to 8
Call RDU(P1=0,P2=C,S$,Le=8)
T$(D)=S$
C=C+8:D=D+1
S$="":Print".";
Next F

Print:Print
Call WaitForNocard

Call WaitForCard
ResetCard:Call CheckSW1SW2:Print

C=0:D=0
For F=1 to 32
S$=T$(D)
Call WRC(P1=0,P2=C,S$)
C=C+8:D=D+1:Print".";
Next F

Call WRC(P1P2=&H0B00,Lc=0,S$)
C=0
For F=1 to 8
S$=T$(D)
Call WRU(P1=0,P2=C,S$)
C=C+8:D=D+1:Print".";
Next F

Call WRC(P1P2=&H0B01,Lc=0,S$)
C=0
For F=1 to 8
S$=T$(D)
Call WRU(P1=0,P2=C,S$)
C=C+8:D=D+1:Print".";
Next F

Call WRC(P1P2=&H0B02,Lc=0,S$)
C=0
For F=1 to 8
S$=T$(D)
Call WRU(P1=0,P2=C,S$)
C=C+8:D=D+1:Print".";
Next F

Call WRC(P1P2=&H0B03,Lc=0,S$)
C=0
For F=1 to 8
S$=T$(D)
Call WRU(P1=0,P2=C,S$)
C=C+8:D=D+1:Print".";
Next F

S$="":Call FLUSH(S$)
Print:Print
Call WaitForNocard