RECOMMENDATION FOR ADVANCED ORBITING SYSTEMSA packet which is valid, for this test allow all packets to travel through space link in order:pkt ! MakePathID(APID(0,0,0,0,0,0,0,0,1,0,1),Add(1, NullAPIDQual))! Add(1, NullAPIDQual)! Make<strong>CCSDS</strong>Packet(MakePrimaryHeader(MakePacketID(Version1,PacketType(0),SHF(0),APID(0,0,0,0,0,0,0,0,1,0,1)),MakePacketSC(PacketSequenceUnSeg,PacketSequenceCount(0,0,0,0,0,0,0,0,0,0,0,0,0,0)),PacketLength(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1)),AddFront(Octet(0,0,0,0,0,0,0,1),AddFront(Octet(0,0,0,0,0,0,1,0), NullOS))) ;Packet indication at node 1:pkt ! MakePathID(APID(0,0,0,0,0,0,0,0,1,0,1),Add(1, NullAPIDQual))! Add(1, NullAPIDQual)! Make<strong>CCSDS</strong>Packet(MakePrimaryHeader(MakePacketID(Version1,PacketType(0),SHF(0),APID(0,0,0,0,0,0,0,0,1,0,1)),MakePacketSC(PacketSequenceUnSeg,PacketSequenceCount(0,0,0,0,0,0,0,0,0,0,0,0,0,0)),PacketLength(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1)),AddFront(Octet(0,0,0,0,0,0,0,1),AddFront(Octet(0,0,0,0,0,0,1,0), NullOS))) ;Octet indication at node 3:<strong>CCSDS</strong> HISTORICAL DOCUMENToct ! MakePathID(APID(0,0,0,0,0,0,0,0,1,0,1),Add(1, NullAPIDQual))! MakePathID(APID(0,0,0,0,0,0,0,0,1,0,1),Add(1, NullAPIDQual))! Absent! AddFront(Octet(0,0,0,0,0,0,0,1),AddFront(Octet(0,0,0,0,0,0,1,0), NullOS)) ;Lose this packet on the packet channel, get it through to octet channel. This is done by selectingthe losepacket event when offered with the packet given here.pkt ! MakePathID(APID(0,0,0,0,0,0,0,0,1,0,1),Add(1, NullAPIDQual))! Add(1, NullAPIDQual)! Make<strong>CCSDS</strong>Packet(MakePrimaryHeader(MakePacketID(Version1,PacketType(1),SHF(1),APID(0,0,0,0,0,0,0,0,1,0,1)),MakePacketSC(PacketSequenceUnSeg,PacketSequenceCount(0,0,0,0,0,0,0,0,0,0,0,0,0,1)),PacketLength(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)),AddFront(Octet(0,0,0,0,0,0,1,1), NullOS)) ;<strong>CCSDS</strong> 705.2-B-1 Page A-89 May 1994<strong>CCSDS</strong> HISTORICAL DOCUMENT
<strong>CCSDS</strong> HISTORICAL DOCUMENTRECOMMENDATION FOR ADVANCED ORBITING SYSTEMSoct ! MakePathID(APID(0,0,0,0,0,0,0,0,1,0,1),Add(1, NullAPIDQual))! MakePathID(APID(0,0,0,0,0,0,0,0,1,0,1),Add(1, NullAPIDQual))! Present! AddFront(Octet(0,0,0,0,0,0,1,1), NullOS) ;Send this packet through:pkt ! MakePathID(APID(0,0,0,0,0,0,0,0,1,0,1),Add(1, NullAPIDQual))! Add(1, NullAPIDQual)! Make<strong>CCSDS</strong>Packet(MakePrimaryHeader(MakePacketID(Version1,PacketType(1),SHF(1),APID(0,0,0,0,0,0,0,0,1,0,1)),MakePacketSC(PacketSequenceUnSeg,PacketSequenceCount(0,0,0,0,0,0,0,0,0,0,0,0,1,0)),PacketLength(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)),AddFront(Octet(0,0,0,0,0,1,0,0), NullOS)) ;Resulting in the following indications:oct ! MakePathID(APID(0,0,0,0,0,0,0,0,1,0,1),Add(1, NullAPIDQual))! MakePathID(APID(0,0,0,0,0,0,0,0,1,0,1),Add(1, NullAPIDQual))! Present! AddFront(Octet(0,0,0,0,0,1,0,0), NullOS) ;pkt ! MakePathID(APID(0,0,0,0,0,0,0,0,1,0,1),Add(1, NullAPIDQual))! Add(1, NullAPIDQual)! Make<strong>CCSDS</strong>Packet(MakePrimaryHeader(MakePacketID(Version1,PacketType(1),SHF(1),APID(0,0,0,0,0,0,0,0,1,0,1)),MakePacketSC(PacketSequenceUnSeg,PacketSequenceCount(0,0,0,0,0,0,0,0,0,0,0,0,1,0)),PacketLength(0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)),AddFront(Octet(0,0,0,0,0,1,0,0), NullOS)) ;success ; exit)endprocendproc<strong>CCSDS</strong> 705.2-B-1 Page A-90 May 1994<strong>CCSDS</strong> HISTORICAL DOCUMENT