SNAX/APC Management Programming Manual

Programming Example
B–2 111813 Tandem Computers Incorporated
! **************************************************************
! * Sample program to demonstrate issuing commands and *
! * receiving responses *
! **************************************************************
?symbols, inspect
?nocode, nomap, nolmap
! The SPI standard definitions
?nolist, source $system.zspidef.zspital
?list
! The EMS standard definitions
?nolist, source $system.zspidef.zemstal
?list
! The data communications standard definitions
?nolist, source $system.zspidef.zcomtal
?nolist, source $system.zspidef.zcmktal
?list
! The SNAX/APC subsystem standard definitions
?nolist, source $system.zspidef.zapctal
?list
! Global declarations
INT scp^file^num, ! scp file number
.buffer[0:(zapc^val^buflen/2)-1], ! request/reply buffer
.tkn^value[0:(zapc^val^buflen/2)-1]; ! a token value
INT zapc^val^ssid[0:5] :=
[zspi^val^TANDEM,zspi^ssn^zapc,zapc^val^version];
!
STRUCT zapc^val^ssid^st(zspi^ddl^ssid^def) = zapc^val^ssid;
! External declarations for operating system procedures
?nolist, source $system.system.extdecs(OPEN, CLOSE, WRITEREAD,
? DEBUG, READ, FILEINFO);
?list
! External declarations for SPI procedures
?nolist, source $system.system.extdecs0(SSGET, SSGETTKN, SSINIT,
? SSMOVE, SSMOVETKN, SSNULL, SSPUT, SSPUTTKN)
?list
?PAGE "PROC: STARTUP"
! **************************************************************
! * startup *
! **************************************************************
PROC startup;