SPI Programming Manual (G06.24+, H06.03+, J06.03+)

SPI Programming Examples
SPI Programming Manual—427506-006
E-71
Example E-15: Common Routines for TAL Examples
?PAGE "PROC display^token"
!======================================================================!
! Proc : display^token !
! Function : This procedure will add the token name of the passed !
! token code to the current position pointer to by "sp". !
! Nothing is written to the home term. !
!======================================================================!
PROC display^token (p^tkn^code);
INT(32) p^tkn^code;
BEGIN
sp ':=' " " -> @sp;
IF p^tkn^code = tkn^1 THEN
sp ':=' "(TKN^1)" -> @sp;
IF p^tkn^code = tkn^2 THEN
sp ':=' "(TKN^2)" -> @sp;
IF p^tkn^code = tkn^3 THEN
sp ':=' "(TKN^3)" -> @sp;
IF p^tkn^code = tkn^4 THEN
sp ':=' "(TKN^4)" -> @sp;
IF p^tkn^code = tkn^5 THEN
sp ':=' "(TKN^5)" -> @sp;
IF p^tkn^code = tkn^6 THEN
sp ':=' "(TKN^6)" -> @sp;
IF p^tkn^code = zspi^tkn^command THEN
sp ':=' "(COMMAND)" -> @sp;
IF p^tkn^code = zspi^tkn^comment THEN
sp ':=' "(COMMENT)" -> @sp;
IF p^tkn^code = zspi^tkn^context THEN
sp ':=' "(CONTEXT)" -> @sp;
IF p^tkn^code = zspi^tkn^datalist THEN
sp ':=' "(DATALIST)" -> @sp;
IF p^tkn^code = zspi^tkn^endlist THEN
sp ':=' "(ENDLIST)" -> @sp;
IF p^tkn^code = zspi^tkn^errlist THEN
sp ':=' "(ERRLIST)" -> @sp;
IF p^tkn^code = zspi^tkn^error THEN
sp ':=' "(ERROR)" -> @sp;
IF p^tkn^code = zspi^tkn^hdrtype THEN
sp ':=' "(HDRTYPE)" -> @sp;
IF p^tkn^code = zspi^tkn^initial^position THEN
sp ':=' "(INITIAL^POSITION)" -> @sp;
IF p^tkn^code = zspi^tkn^manager THEN
sp ':=' "(MANAGER)" -> @sp;
IF p^tkn^code = zspi^tkn^maxresp THEN
sp ':=' "(MAXRESP)" -> @sp;
IF p^tkn^code = zspi^tkn^nextcode THEN
sp ':=' "(NEXTCODE)" -> @sp;
IF p^tkn^code = zspi^tkn^nexttoken THEN
sp ':=' "(NEXTTOKEN)" -> @sp;
IF p^tkn^code = zspi^tkn^object^type THEN
sp ':=' "(OBJECT^TYPE)" -> @sp;
IF p^tkn^code = zspi^tkn^parm^err THEN
sp ':=' "(PARM^ERR)" -> @sp;
IF p^tkn^code = zspi^tkn^proc^err THEN
sp ':=' "(PROC^ERR)" -> @sp;
IF p^tkn^code = zspi^tkn^reset^buffer THEN
sp ':=' "(RESET^BUFFER)" -> @sp;
IF p^tkn^code = zspi^tkn^retcode THEN
sp ':=' "(RETCODE)" -> @sp;
IF p^tkn^code = zspi^tkn^server^banner THEN
sp ':=' "(SERVER^BANNER)" -> @sp;
Example E-15. TAL File: SETCUTIL Supporting Code (page3of5)