// JOB DDI,,,A000
// OPTION DUMP
// DVC 20 // LFD SYS007
// EXEC DDIPSM
/$
         IDENT C'DDI INTERACTIVE TEST'
*
         CHANGE %=X'10030000'
         CHANGE $=X'10040000',=X'1E'
*
*        MSGN USAGE
*              MSG1 = INITIAL MESSAGE PART 1
*              MSG2 = INITIAL MESSAGE PART 2
*              MSG3 = INITIAL MESSAGE PART 3
*              MSG4 = C'ENTER A MESSAGE'
*              MSG5 = OUTPUT/INPUT
*
         OPTIONS MSGSIZE=1030,MSGNO=5
*
*        PACKET USAGE
*              PUI1=OUTPUT
*              PUI2=INPUT
*
*
*
1        LMSG
2        NOLOG
         PAUSE C'   NETREQ ????,150,YES'
4        SETPAC PUI=1,I24=1,I23=1
         TYPE  C'SELECT TERMINAL : ISSUE SETPAC'
         TYPE  C'FOR LINE X, STATION Y :'
         PAUSE C'  SETPAC PUI=1,I23=X,I24=Y'
         MOVE  PUI2.I23,,PUI1.I23
         MOVE  PUI2.I24,,PUI1.I24
         SETPAC PUI=1,I16=30,I15=MSG1
         LOG
         DO    100
         DO    50
         SETPAC PUI=1,I16=26,I15=MSG2
         DO    50
         SETPAC PUI=1,I16=27,I15=MSG3
         DO    50
*
*        BEGIN INPUT/OUTPUT
*
3        SETPAC PUI=1,I15=MSG4,I16=25
         DO    50
         SETPAC PUI=2,I4=5
         PACREQ PUI=F,I1=X'FF'
5        IF    STA2,ANY,X'80',6
         NOTE  C'INPUT FAILS'
         GO    150
6        MOVE  MSG5,,X'10040000'
         MOVE  PUI1.I16,,PUI2.I13
         DO    100
         COUNT LC1,4
         IF    MSG5(LC1),EQ,X'1E615C',150
         IF    MSG5(LC1),EQ,X'615C',150
         IF    MSG5,EQ,X'615C',150
         SETPAC PUI=1,I15=MSG5
         DO    50
         GO    3
*
*        OUTPUT
*
50       COUNT LC1,0
51       PACREQ PUI=1,I1=X'20',I18=X'20',I4=59
59       IF    PUI1.I11,ANY,X'80',52
         NOTE  C'SEND DATA FAILS'
         GO    150
52       EXIT
*
*        INPUT
*
100      PACREQ PUI=2,I1=X'90',I15=MSG5,I16=1030,I18=0,I4=101
         EXIT
101      IF    STA2,ANY,X'80',102
         NOTE  C'INPUT FAILS'
         GO    150
102      NOTE  C'INPUT RECEIVED'
         DO    100
         PACREQ PUI=F,I1=X'FF'
*
*        END
*
150      TYPE  C'PERFORM NETREL'
         PAUSE C'   NETREL ????'
         TERM  C'END OF TEST'
         RUN   1
         MSG1  TEXT=C'% DDI INTERACTIVE MODE TEST'
         MSG2  TEXT=C'$ END OF TEST : SEND /*'
         MSG3  TEXT=C'$ BEGIN MESSAGE SWAPPING :'
         MSG4  TEXT=C'$ ENTER A MESSAGE$'
         ENDMSG
         END
/*
/&
