! FILE BC1.TRC TEST SYSTEM B-NUMBER - C-NUMBER TRACE TESTED 30/12/93 ETLANKN ;
!                                                                            ;
! THIS TRACE PRINTS THE B-NUMBER & C-NUMBER FOR A PARTICULAR B-NUMBER        ;
!                                                                            ;
! DR1-DR4 CONTAIN B-NUMBER DIGITS IN REVERSE ORDER                           ;
!                                                                            ;
! WHERE - DR1=NOC+OSSP                                                       ;
!         DR2=OVTK (1-4)                                                     ;
!         DR3=OVTK (5) + DN(1-3)                                             ;
!         DR3=DN (4-7)                                                       ;
!         ETC...                                                             ;
!                                                                            ;
TESYS=1;                                    !TERM IF RESTART!
ON IN SSFM1 H'95 H'A2;                      !ON IN SSFM1 SIGNALS!
ON IN DO:IF SNR=H'95 THEN;                  !IF B-NUMBER SIGNAL (SFPIDATA1BNR)!
                IF DR4 MASK H'FFFF=H'4904;  !IF OUR CALL (ENTER B-NUMBER HERE)!
                        CODE H'28;          !WRITE REGISTER VALUE INTO TOM!
                        CODE H'0130;        !LOCATION IN TOM OF H'ABCD BELOW!
                        CODE H'4001;        !PR0 SSFM1 DIALOGUE POINTER!
                        P SWD;              !PRINT B-NUMBER SIGNAL!
          ELSE;                             !IF C-NUMBER SIGNAL (SFCRDATA1)!
                IF PR0=H'ABCD;              !IF OUR CALL!
                        CODE H'27;          !WRITE CONSTANT VALUE INTO TOM!
                        CODE H'0130;        !LOCATION IN TOM OF H'ABCD ABOVE!
                        CODE H'ABCD;        !FLAG VALUE TO STOP TRACE!
                        P SWD;              !PRINT C-NUMBER SIGNAL!
          FI;                               !END IF!
          ;

!       B-NUMBER & C-NUMBER RESULTS					     ;
!									     ;
!       ON INSIG							     ;
!       SSFM1    COMBSIG H'095 ON THL FROM SSFM2 WITH			     ;
!                H'0000 0000, H'0000 0010, H'0000 1110, H'0000 5130,	     ;
!                H'0000 5022, H'0000 4904, H'0000 0000, H'0000 4904,	     ;
!                H'0000 4304						     ;
!									     ;
!       B-NUMBER= 0 111 03152 205 4094					     ;
!       DR0=LENGTH, DR1=NOC+OSSP, DR2=OVTK(1-4), DR3=OVTK(5)+DN(1-3) ETC..   ;
!									     ;
!	ON INSIG                        				     ;
!       SSFM1    COMBSIG H'0A2 ON THL FROM SSFM2 WITH			     ;
!                H'0000 0000, H'0000 0012, H'0000 1200, H'0000 3011,	     ;
!                H'0000 2251, H'0000 0450, H'0000 0049, H'0000 002A,	     ;
!                H'0000 0001, H'0000 0002, H'0000 0001, H'0000 FFFF,	     ;
!                H'0000 000A, H'0000 0000, H'0000 0046, H'0000 0000,	     ;
!                H'0000 0000, H'0000 0000, H'0000 0000, H'0000 0000,	     ;
!                H'0000 FC02						     ;
!									     ;
!       C-NUMBER= 0 0 2	111 03152 205 4094				     ;
!       DR0=LENGTH, DR1=NPI+P+LAD+TSSP(1), DR2=TSSP(2-3)+TVTK(1-2) ETC..     ;