© MCS Electronics, 1995-2007

BCCARD

BCCARD

BCCARD.LIB is a commercial addon library that is available separately from MCS Electronics.

With the BCCARD library you can interface with the BasicCards from www.basiccard.com

BasicCards are also available from MCS Electronics

A BasicCard is a smart card that can be programmed in BASIC.

The chip on the card looks like this :

To interface it you need a smart card connector.

In the provided example the connections are made as following:

The microprocessor must be clocked with a 3579545 crystal since that is the frequency the Smart Card is working on. The output clock of the microprocessor is connected to the clock pin of the Smart card.

Some global variables are needed by the library. They are dimensioned automatic by the compiler when you use the CONFIG BCCARD statement.

page -759-

© MCS Electronics, 1995-2007

These variables are:

_Bc_pcb : a byte needed by the communication protocol.

Sw1 and SW2 : both bytes that correspondent to the BasicCard variables SW1 and SW2

The following statements are especially for the BasicCard:

CONFIG BCCARD to init the library

BCRESET to reset the card

BCDEF to define your function in the card

BCCALL to call the function in the card

Encryption is not supported by the library yet.

BCDEF

Action

Defines a subroutine name and it’s parameters in BASCOM so it can be called in the BasicCard.

Syntax

BCDEF name([param1 , paramn])

Remarks

This statements uses BCCARD.LIB, a library that is available separately fromMCS Electronics.

BCDEF Calc(string)

Would define a name ‘Calc’ with one string parameter.

When you use strings, it must be the last parameter passed.

BCDEF name(byte,string)

BCDEF does not generate any code. It only informs the compiler about the data types of the passed parameters.

See Also

page -760-

© MCS Electronics, 1995-2007

CONFIG BCCARD , BCCALL , BCRESET

Partial Example

Bcdef Calc(string)

BCCALL

Action

Calls a subroutine or procedure in the BasicCard.

Syntax

BCCALL name( nad , cla, ins, p1, p2 [param1 , paramn])

Remarks

This statements uses BCCARD.LIB, a library that is available separately fromMCS Electronics.

When in your BasicCard basic program you use: 'test of passing parameters

Command &hf6 &h01 ParamTest( b as byte, w as integer,l as long) b=b+1

w=w+1

l=l+1

end command

You need to use &HF6 for CLA and 1 for INS when you call the program:

Bccall Paramtest(0 , &HF6 , 1 , 0 , 0 , B , W , L)

^ NAD

^CLA

^INS

page -761-

© MCS Electronics, 1995-2007

^P1

^P2

When you use BCCALL, the NAD, CLA, INS, P1 and P2 are sent to the BasicCard. The parameter values are also sent to the BasicCard. The BasicCard will execute the command defined with CLA and INS and will return the result in SW1 and SW2.

The parameter values altered by the BasicCard are also sent by the BasicCard.

You can not sent constant values. Only variables may be sent. This because a constant can not be changed.

See Also

CONFIG BCCARD , BCDEF , BCRESET

Example

'------------------------------------------------------------------------------

'BCCARD.BAS

'This AN shows how to use the BasicCard from Zeitcontrol

'www.basiccard.com

'------------------------------------------------------------------------------

'connections:

'C1 = +5V

'C2 = PORTD.4 - RESET

' C3 = PIN 4 - CLOCK

'C5 = GND

'C7 = PORTD.5 - I/O

'Load the sample calc.bas into the basiccard

'Now define the procedure in BASCOM

'We pass a string and also receive a string

Bcdef Calc(string)

'We need to dim the following variables

'SW1 and SW2 are returned by the BasicCard 'BC_PCB must be set to 0 before you start a session

'Our program uses a string to pass the data so DIM it

Dim SAs String* 15

'Baudrate might be changed $baud = 9600

' Crystal used must be 3579545 since it is connected to the Card too $crystal= 3579545

page -762-

© MCS Electronics, 1995-2007

'Perform an ATR

Bcreset

'Now we call the procedure in the BasicCard

'bccall funcname(ad,cla,ins,p1,p2,PRM as TYPE,PRM as TYPE)

'^-------P2

'^-----------P1

'^---------------INS

'^--------------------CLA

'^--------------------------NAD

'For info about NAD, CLA, INS, P1 and P2 see your BasicCard manual 'if an error occurs ERR is set

' The BCCALL returns also the variables SW1 and SW2 Print"Result of calc : ";S

Print"SW1 = ";Hex(sw1)

Print"SW2 = ";Hex(sw2)

'Print Hex(_bc_pcb) ' for test you can see that it toggles between 0 and 40 Print"Error :";Err

'You can call this or another function again in this session

S = "2+2"

Bccall Calc(0 ,&H20 ,1,0,0,S) Print"Result of calc : ";S

Print"SW1 = ";Hex(sw1)

Print"SW2 = ";Hex(sw2)

'Print Hex(_bc_pcb) ' for test you can see that it toggles between 0 and 40 Print"Error :";Err

'perform another ATR

Bcreset

Input"expression ",S

Bccall Calc(0 ,&H20 ,1,0,0,S) Print"Answer : ";S

'----and now perform an ATR as a function

Dim Buf(25)As Byte,IAs Byte

Buf(1)= Bcreset()

For I= 1To 25

PrintI;" ";Hex(buf(i))

Next

'typical returns: 'TS = 3B

'T0 = EF 'TB1 = 00 'TC1 = FF

'TD1 = 81 T=1 indication

'TD2 = 31 TA3,TB3 follow T=1 indicator

'TA3 = 50 or 20 IFSC ,50 =Compact Card, 20 = Enhanced Card 'TB3 = 45 BWT blocl waiting time

'T1 -Tk = 42 61 73 69 63 43 61 72 64 20 5A 43 31 32 33 00 00 ' B a s i c C a r d Z C 1 2 3

'and another test

'define the procedure in the BasicCard program

Bcdef Paramtest(byte,Word ,Long )

'dim some variables

Dim BAs Byte, W As Word ,LAs Long

'assign the variables

B = 1: W = &H1234 :L= &H12345678

Bccall Paramtest(0 ,&HF6 ,1,0,0,B, W ,L) PrintHex(sw1);Spc(3);Hex(sw2)

'and see that the variables are changed by the BasicCard ! Print B;Spc(3);Hex(w);" ";Hex(l)

page -763-

© MCS Electronics, 1995-2007

'try the echotest command Bcdef Echotest(byte)

Bccall Echotest(0 ,&HC0 ,&H14 ,1,0,B)

Rem BasicCard Sample Source Code

Rem ------------------------------------------------------------------

Rem Copyright (C) 1997-2001 ZeitControl GmbH

Rem You have a royalty-free right to use, modify, reproduce and Rem distribute the Sample Application Files (and/or any modified Rem version) in any way you find useful, provided that you agree Rem that ZeitControl GmbH has no warranty, obligations or liability Rem for any Sample Application Files.

Rem ------------------------------------------------------------------

#Include CALCKEYS.BAS

Declare ApplicationID = "BasicCard Mini-Calculator"

Rem This BasicCard program contains recursive procedure calls, so the Rem compiler will allocate all available RAM to the P-Code stack unless Rem otherwise advised. This slows execution, because all strings have to Rem be allocated from EEPROM. So we specify a stack size here:

#Stack 120

'Calculator Command (CLA = &H20, INS = &H01)

'Input: an ASCII expression involving integers, and these operators:

'* / % + - & ^ |

'

'(Parentheses are also allowed.)

'Output: the value of the expression, in ASCII.

'P1 = 0: all numbers are decimal

'P1 <> 0: all numbers are hex

'Constants

Const SyntaxError = &H81

Const ParenthesisMismatch = &H82

Const InvalidNumber = &H83

Const BadOperator = &H84

' Forward references

Declare Function EvaluateExpression (S$, Precedence) As Long Declare Function EvaluateTerm (S$) As Long

Declare Sub Error (Code@)

'test for passing a string

Command &H20 &H01 Calculator (S$)

Private X As Long

S$ = Trim$ (S$)

page -764-

© MCS Electronics, 1995-2007

X = EvaluateExpression (S$, 0)

If Len (Trim$ (S$)) <> 0 Then Call Error (SyntaxError) If P1 = 0 Then S$ = Str$ (X) : Else S$ = Hex$ (X)

End Command

'test of passing parameters

Command &hf6 &h01 ParamTest( b as byte, w as integer,l as long) b=b+1

w=w+1

l=l+1

end command

Function EvaluateExpression (S$, Precedence) As Long

EvaluateExpression = EvaluateTerm (S$)

Do

S$ = LTrim$ (S$)

If Len (S$) = 0 Then Exit Function

Select Case S$(1)

Case "*"

If Precedence > 5 Then Exit Function

S$ = Mid$ (S$, 2)

EvaluateExpression = EvaluateExpression * _

EvaluateExpression (S$, 6)

Case "/"

If Precedence > 5 Then Exit Function

S$ = Mid$ (S$, 2)

EvaluateExpression = EvaluateExpression / _

EvaluateExpression (S$, 6)

Case "%"

If Precedence > 5 Then Exit Function

S$ = Mid$ (S$, 2)

EvaluateExpression = EvaluateExpression Mod _

EvaluateExpression (S$, 6)

Case "+"

If Precedence > 4 Then Exit Function

S$ = Mid$ (S$, 2)

EvaluateExpression = EvaluateExpression + _

EvaluateExpression (S$, 5)

Case "-"

If Precedence > 4 Then Exit Function

S$ = Mid$ (S$, 2)

EvaluateExpression = EvaluateExpression - _

EvaluateExpression (S$, 5)

Case "&"

If Precedence > 3 Then Exit Function

S$ = Mid$ (S$, 2)

EvaluateExpression = EvaluateExpression And _

EvaluateExpression (S$, 4)

Case "^"

If Precedence > 2 Then Exit Function

S$ = Mid$ (S$, 2)

page -765-

© MCS Electronics, 1995-2007

EvaluateExpression = EvaluateExpression Xor _

EvaluateExpression (S$, 3)

Case "|"

If Precedence > 1 Then Exit Function

S$ = Mid$ (S$, 2)

EvaluateExpression = EvaluateExpression Or _

EvaluateExpression (S$, 2)

Case Else

Exit Function

End Select

Loop

End Function

Function EvaluateTerm (S$) As Long

S$ = LTrim$ (S$)

If Len (S$) = 0 Then Call Error (SyntaxError) If S$(1) <> "+" Then Exit Do

S$ = Mid$ (S$, 2) Loop

If S$(1) = "(" Then ' Expression in parentheses S$ = Mid$ (S$, 2)

EvaluateTerm = EvaluateExpression (S$, 0) S$ = LTrim$ (S$)

If S$(1) <> ")" Then Call Error (ParenthesisMismatch) S$ = Mid$ (S$, 2)

Exit Function

ElseIf S$(1) = "-" Then ' Unary minus

S$ = Mid$ (S$, 2)

EvaluateTerm = -EvaluateTerm (S$)

Exit Function

EvaluateTerm = Val& (S$, L@)

Else

EvaluateTerm = ValH (S$, L@)

End If

If L@ = 0 Then Call Error (InvalidNumber)

S$ = Mid$ (S$, L@ + 1)

End If

End Function

Sub Error (Code@)

SW1 = &H64

SW2 = Code@

Exit

End Sub

page -766-