6100 BSC Programming Manual

BSC Example

?PEP=20,SYMBOLS,INSPECT

?NOCODE

?CPU TNS/II

!******************************************************************************

! CCCC PPPPPP 6666 1 0000 0000

! C C P P 6 6 11 0 0 0 0

! C P P 6 1 0 0 0 0

! C PPPPPP 6 6666 1 0 0 0 0

! C P 6 6 1 0 0 0 0

! C C P 6 6 1 0 0 0 0

! CCCC P 6666 111 0000 0000

!******************************************************************************

! _____ ___ ___ _____

! | | | | | | | |

! ____ | | | 6 | | 6 | | | ___

! |? | | T/16| | 1 | | 1 | | T/16| |? |

! |___|--| |-| 0 |---[M]-------/\/-------[M]---| 0 |-| |--|___|

! /____/ | | | 0 | | 0 | | | \____\

! | | | | | | | |

! |_____| |___| |___| |_____|

!******************************************************************************

! This program is an example using CP6100 with the BSC Point to Point

! CLIP. It runs with a terminal as the in-file, and the comm line as

! the out-file. If this is repeated on the other end of the line, the

! two terminals can send messages to each other.

! To use it, start the line with CMI and run the program with following

! command lines on both ends of the communication lines.

! :RUN program^name /OUT $bsc^linename,NOWAIT/

! :PAUSE

! The program is intended to be a demonstration only, for the purpose

! of showing how to use the fields in the request/response headers,

! calling sequences, and the error checking. While it is a working

! program, not all error recovery or retry logic is included.

!******************************************************************************

B-2