! FILE TCAP1.TXT TEST SYSTEM INAP/TCAP TRACE TESTED 29/12/93 ETLANKN         ;
!									     ;
! This test system trace produces an INAP/TCAP dialogue for a particular B-No;
!                                                                            ;
! Use either the INAP or TCAP variables only. DO NOT USE both                ;
!                                                                            ;
! DR9-DR12 CONTAIN B-NUMBER DIGITS IN REVERSE ORDER                          ;
!                                                                            ;
! WHERE - DR9 =NOC+OSSP                                                      ;
!         DR10=OVTK (1-4)						     ;
!         DR11=OVTK (5) + DN(1-3)                                            ;
!         DR12=DN (4-7)                                                      ;
!         ETC...                                                             ;
!                                                                            ;
TESYS=1;                                    !TERM IF RESTART!
TMSIZE=4096;                                !SET TMSIZE!
ON VAR SSFPAD H'3A H'3B H'3C H'78;          !ON WA16BIT INAP VARIABLES!
!ON VAR SSFPAD H'3D H'3E H'3F H'79;         !ON WA8BIT  TCAP VARIABLES!
ON VAR DO:IF TVAR 1>0,P VAR;                !IF TVAR 1 IS SET FOR OUR CALL, PRINT VAR!
         ;
ON IN SSFPAD H'E H'16 H'18 H'48;            !ON IN INAP/TCAP SIGNALS!
ON IN DO:IF PR0=H'BCDE THEN;                !IF PR0 SET TO OUR CALL (H'BCDE IS A FLAG VALUE)!
                STEPTVAR 1;                 !STEP TVAR 1 TO START VARIABLE TRACE!
         ELSE;                              !IF PR0 NOT OUR CALL!
                STEPTVAR 1 CLEAR;           !CLEAR TVAR 1 TO STOP VARIABLE TRACE!
         FI;                                !END IF!
         ;
ON IA SSFPAD H'5A2,H'109;                   !ON IA FOR START & END OF DIALOGUE!
ON IA DO:IF IAR=H'10A THEN;                 !IF IA=H'109 AT END OF DIALOGUE!
                IF PR0=H'ABCD;              !IF OUR CALL AT END OF DIALOGUE!
                        CODE H'27;          !WRITE CONSTANT INTO TOM!
                        CODE H'0122;        !LOCATION IN TOM OF H'BCDE ABOVE!
                        CODE H'BCDE;        !CONSTANT=H'BCDE FLAG VALUE TO STOP TRACING!
         ELSE;                              !IF IA=H'5A2 AT START OF DIALOGUE!
                IF DR12 MASK H'FFFF=H'4904; !IF B-NUMBER FOR OUR CALL (ENTER YOUR B-NUMBER & MASK HERE)!
                        CODE H'28;          !WRITE REGISTER VALUE INTO TOM!
                        CODE H'0122;        !LOCATION IN TOM OF H'BCDE ABOVE!
                        CODE H'4001;        !PR0 DIALOGUE POINTER!
                        CODE H'28;          !WRITE REGISTER VALUE INTO TOM!
                        CODE H'01E6;        !LOCATION IN TOM OF H'ABCD ABOVE!
                        CODE H'4001;        !PR0 DIALOGUE POINTER!
         FI;                                !END IF!
         ;

! FOR INFORMATION ON HOW TO READ THE RESULTS, LOOK AT THE CYCLONE SSP/SCP    ;
! INTERFACE SPECIFICATION.                                                   ;