txURL = 'mathworks.com';
targetRecord = ndefRecord('Type', 'U', 'URIID', '01', ...
    'ActualText', txURL)

targetAppLayer = nfcApp();
targetAppLayer.AppData = create(targetRecord)
target = nfcTarget('AppLayer', targetAppLayer, 'EnableVisualization', false)

initiator = nfcInitiator('AppLayer', nfcApp(), 'UserData', '', ...
    'EnableVisualization', false)

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

nfcPrint.Message('URL to transmit:');
nfcPrint.Message(sprintf('%s%s', 'http://www.', txURL));

nfcPrint.Start();

nfcInitialization(initiator, target, snrdB);

nfcAnticollisionLoop(initiator, target, snrdB);

nfcProtocolActivation(initiator, target, snrdB);

nfcBlockTransmissionProtocol(initiator, target, snrdB);

nfcProtocolDeactivation(initiator, target, snrdB)

nfcPrint.End();

recDataType = getReceivedNDEFType(initiator.AppLayer);
recData = getReceivedNDEFData(initiator.AppLayer);
if strcmpi(recDataType, 'U')
    nfcPrint.Message('Received URL:');
else
    nfcPrint.Message('Received telephone number:');
end
nfcPrint.Message(recData);
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, 'nfc:NFC:InvalidATQA');
    coder.internal.errorIf(isCollisionDetected, 'nfc:NFC:CollisionATQA');
    coder.internal.errorIf(~isTargetCompliant, 'nfc: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, ...
        'nfc: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)
    % ISO/IEC 14443-4 Protocol Activation
    % Reference: ISO/IEC 14443-4, section 5

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

    txRATS = transmitRATS(initiator);
    rxRATS = awgn(txRATS, snrdB, 'measured');

    txATS = receiveRATS(target, rxRATS);
    rxATS = awgn(txATS, snrdB, 'measured');

    status = receiveATS(initiator, rxATS);
    coder.internal.errorIf(~status, 'nfc:NFC:ProtocolActivationFailed');

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

function nfcBlockTransmissionProtocol(initiator, target, snrdB)
    % Half-duplex Block Transmission Protocol
    % Reference: ISO/IEC 14443-4, section 7

    nfcPrint.NewLine;
    nfcPrint.Heading1('Start of Half-Duplex Block Transmission Protocol');

    nfcTransmissionProtocol(initiator, target, snrdB);

    nfcPrint.Heading1('End of Half-Duplex Block Transmission Protocol');
    nfcPrint.NewLine;

end

function nfcProtocolDeactivation(initiator, target, snrdB)
    % Protocol Deactivation
    % Reference: ISO/IEC 14443-4, section 8

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

    txDESLECT = transmitDESELECT(initiator);
    rxDESELECT = awgn(txDESLECT, snrdB, 'measured');

    txDESELECT_RES = receiveDESELECT(target, rxDESELECT);
    rxDESELECT_RES = awgn(txDESELECT_RES, snrdB, 'measured');

    status = receiveDESELECT_RES(initiator, rxDESELECT_RES);
    coder.internal.errorIf(~status, 'nfc:NFC:ProtocolDeactivationFailed');

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

end