! FILE TCLEOS1.TXT TEST SYSTEM TEST CALL EOS TRACE TESTED 30/12/93 ETLANKN   ;
!									     ;
! THIS TRACE WILL PRINT THE END-OF-SELECTION CODE FOR FAILED CALLS THAT ARE  ;
! MADE FROM A TEST POSITION (TCTDI). TCTDI CALLS HAVE A TCL CALSS OF 0.      ;
! IF PARAMETER CL= IS USED TO SET THE CLASS TO SOMTHING ELSE, THEN THE TRACE ;
! MUST BE MODIFIED WITH THE NEW VALUE IN THE "IF VAR RE LINE".               ;
!									     ;
ON VAR RE 20;                 !BAN OF EOS CODE!
ON VAR DO:CODE H'28;          !MOVE REG VALUE INTO TOM!
CODE H'186;                   !WORD 4 (POINTER) OF IF VAR RE 1:70=SCP!
CODE H'4001;                  !CURRENT LEVEL, 4, REG 1, PR0!
IF VAR RE 1:10=0;             !IF TCL IS 0 FOR TCTDI CALL OR WHATEVER CL=!
IF VAR>0;                     !IF VAR NOT 0!
P VAR,;                       !PRINT VAR!