6100 BSC Programming Manual

BSC Example
?page
!
LITERAL
cpline^buff^byte^size = $LEN (cpline^buff^template),
clip^req^hdr^len = $LEN (cpline^buff^template.clip^req^hdr),
clip^rsp^hdr^len = clip^req^hdr^len,
! the following are used in TEXTOUT field of the CLIP request header
config^len = 22, ! length for the config bolck in bytes
cpline^text^len = $LEN (cpline^buff^template.cpline^text);
LITERAL
MAX^COMM^READ = 88, !LARGEST COMM READ count
max^term^read = 78; !largest ternimal read count
INT
.buffer[0:(cpline^buff^byte^size+1)/2-1],
.cpline^buffer (cpline^buff^template) := @buffer,
cpline^write^count, ! WRITEREAD write count
cpline^cnt^recvd; ! WRITEREAD actual count read from line
STRING
.s^cpline^buffer (cpline^buff^template) := @buffer '<<' 1,
.s^cpline^text^buffer := @buffer [4] '<<' 1;
!
! The following strings define the Function code and its associated Modifier
! for the BSC pt. to pt. CLIP
!
STRING
clip^set^cfg^req [0:1] := [1,0],
clip^fetch^cfg^req [0:1] := [2,0],
clip^write^req [0:1] := [64,0],
clip^read^req [0:1] := [65,0],
clip^connect^req [0:1] := [67,2],
clip^disconnect^req [0:1] := [67,3],
clip^abort^req [0:1] := [69,0],
clip^haltread^req [0:1] := [70,0];
?NOLIST
?SOURCE $SYSTEM.SYSTEM.EXTDECS(OPEN,READ,WRITE,WRITEREAD,AWAITIO,ABEND,
?DELAY,CLOSE,DEBUG,FILEINFO,CANCEL,STOP)
?LIST
B-7