initiator = nfcInitiator
target = nfcTarget
% Signal to noise ratio, in dB
snrdB = 50;
% Reset the RNG for reproducible results
s = rng(0);

nfcPrint.Message('The message to transmit from Initiator to Target:');
nfcPrint.Message(initiator.UserData);

nfcPrint.Start();

nfcInitialization(initiator, target, snrdB);

nfcAnticollisionLoop(initiator, target, snrdB);

nfcProtocolActivation(initiator, target, snrdB);

nfcDataExchangePorotcol(initiator, target, snrdB);

nfcProtocolDeactivation(initiator, target, snrdB)

nfcPrint.End();

nfcPrint.Message('The message received by Target from Initiator:');
nfcPrint.Message(target.ReceivedUserData);
nfcPrint.NewLine;

% Restore RNG state
rng(s);



function nfcInitialization(initiator, target, snrdB)
    % Initialization and anticollision
    % Reference: ISO/IEC 14443-3, section 6

    txREQA = transmitREQA(initiator);
    rxREQA = awgn(txREQA, snrdB, 'measured');

    txATQA = receiveREQA(target, rxREQA);
    rxATQA = awgn(txATQA, snrdB, 'measured');

    [isATQAValid, isCollisionDetected, isTargetCompliant] = ...
        receiveATQA(initiator, rxATQA);

    coder.internal.errorIf(~isATQAValid, 'comm_demos:NFC:InvalidATQA');
    coder.internal.errorIf(isCollisionDetected, 'comm_demos:NFC:CollisionATQA');
    coder.internal.errorIf(~isTargetCompliant, 'comm_demos:NFC:TargetNotCompliant');

end

function nfcAnticollisionLoop(initiator, target, snrdB)
    % Anticollision Loop
    % Reference: ISO/IEC 14443-3, section 6

    nfcPrint.NewLine;
    nfcPrint.Heading1('Start of Anticollision loop');

    % Start anticollision loop
    cascadeLevel = 1;
    targetRxAC = [];
    nfcPrint.CascadeLevel(cascadeLevel);
    [initiatorTxAC, newCascadeLevel, uidComplete, isoCompliantTarget] = ...
        antiCollisionLoop(initiator, targetRxAC, cascadeLevel);

    while (newCascadeLevel <= 3) && ~uidComplete

        nfcPrint.CascadeLevel(newCascadeLevel, cascadeLevel);
        cascadeLevel = newCascadeLevel;

        targetRxAC = awgn(initiatorTxAC, snrdB, 'measured');
        % Target's anticollision loop
        targetTxAC = antiCollisionLoop(target, targetRxAC);
        initiatorRxAC = awgn(targetTxAC, snrdB, 'measured');
        % Initiator's anticollision loop
        [initiatorTxAC, newCascadeLevel, uidComplete, isoCompliantTarget] = ...
            antiCollisionLoop(initiator, initiatorRxAC, cascadeLevel);
    end

    coder.internal.errorIf(~uidComplete, 'comm_demos:NFC:IncompleteUID');
    coder.internal.errorIf(~isoCompliantTarget, ...
        'comm_demos:NFC:TargetNotCompliantWithNFCIP1');

    nfcPrint.Heading1('End of Anticollision loop');
    nfcPrint.NewLine;
    nfcPrint.Heading1(['Target compliant with NFCIP-1. '...
        'Continue with Transport Protocol Activation']);

end

function nfcProtocolActivation(initiator, target, snrdB)
    % NFCIP-1 Transport Protocol Activation
    % Reference: ISO/IEC 18092, section 12.5

    nfcPrint.NewLine;
    nfcPrint.Heading1('Start of Transport Protocol Activation');

    txATR_REQ = transmitATR_REQ(initiator);
    rxATR_REQ = awgn(txATR_REQ, snrdB, 'measured');

    txATR_RES = receiveATR_REQ(target, rxATR_REQ);
    rxATR_RES = awgn(txATR_RES, snrdB, 'measured');

    txPSL_REQ = receiveATR_RES(initiator, rxATR_RES);
    rxPSL_REQ = awgn(txPSL_REQ, snrdB, 'measured');
    txPSL_RES = receivePSL_REQ(target, rxPSL_REQ);

    status = receivePSL_RES(initiator, txPSL_RES);
    coder.internal.errorIf(~status, 'comm_demos:NFC:TPActivationFailed');

    nfcPrint.Heading1('End of Transport Protocol Activation');

end

function nfcDataExchangePorotcol(initiator, target, snrdB)
    % Data Exchange Protocol
    % Reference: ISO/IEC 18092, section 12.6

    nfcPrint.NewLine;
    nfcPrint.Heading1('Start of Data Exchange Protocol (DEP)');

    status = nfcDEP(initiator, target, snrdB);
    coder.internal.errorIf(~status, 'comm_demos:NFC:DEPFailed');

    nfcPrint.Heading1('End of Data Exchange Protocol (DEP)');
    nfcPrint.NewLine;

end

function nfcProtocolDeactivation(initiator, target, snrdB)
    % Transport Protocol Deactivation
    % Reference: ISO/IEC 18092, section 12.7

    nfcPrint.NewLine;
    nfcPrint.Heading1('Start of Transport Protocol Deactivation');

    txRLS_REQ = transmitRLS_REQ(initiator);
    rxRLS_REQ = awgn(txRLS_REQ, snrdB, 'measured');

    txRLS_RES = receiveRLS_REQ(target, rxRLS_REQ);
    rxRLS_RES = awgn(txRLS_RES, snrdB, 'measured');

    status = receiveRLS_RES(initiator, rxRLS_RES);
    coder.internal.errorIf(~status, 'comm_demos:NFC:TPDeactivationFailed');

    nfcPrint.Heading1('End of Transport Protocol Deactivation');

end