Common COMPGTN

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compgtn +++|          CTEXT  COMPGTN - GET TERMINAL NUMBER.
00002  M00S00002.compgtn +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compgtn +++|          QUAL   COMPGTN

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compgtn +++| GTN      SPACE  4
00006  M00S00005.compgtn +++|***       GTN - GET TERMINAL NUMBER.
00007  M00S00006.compgtn +++|*         M. H. HOLT.        87/11/09.
00008  M00S00007.compgtn +++| GTN      SPACE  4
00009  M00S00008.compgtn +++|***       GTN - GET TERMINAL NUMBER.
00010  M00S00009.compgtn +++|*
00011  M00S00010.compgtn +++|*         SEARCH IAF-S TERMINAL TABLE FOR A SPECIFIED JSN AND
00012  M00S00011.compgtn +++|*         RETURN ITS TERMINAL NUMBER.
00013  M00S00012.compgtn +++|*
00014  M00S00013.compgtn +++|*         ENTRY  (AB - AB+1) = JSN.
00015  M00S00014.compgtn +++|*                (AB+3) = 0.

Line S00015 Modification History
`M01` (Removed by)	`ns2748a`

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00015.ns2748a ---|*                (T7) = IAF-S RA.

Line S00001 Modification History
`M01` (Added by)	`ns2748a`

Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00001.ns2748a +++|*                (T7) = *IAF* *FLSW* BYTE 3 (IF NON-CME MACHINE).
00018  M01S00002.ns2748a +++|*                (T7) = *IAF* *FLSW*+1 BYTE 3 (IF CME MACHINE).
00019  M01S00003.ns2748a +++|*                R REGISTER SET FOR *IAF* IF CME MACHINE.
00020  M00S00016.compgtn +++|*
00021  M00S00017.compgtn +++|*         EXIT   (A) .LT. 0 IF JSN NOT FOUND.
00022  M00S00018.compgtn +++|*                (AB+3) = TERMINAL NUMBER IF FOUND.
00023  M00S00019.compgtn +++|*                (SR+1 - SR+2) = RELATIVE FWA OF TERMINAL TABLE ENTRY.
00024  M00S00020.compgtn +++|*
00025  M00S00021.compgtn +++|*         USES   T5, LA, AB+3, CM - CM+4, SR - SR+4.
00026  M00S00022.compgtn +++|
00027  M00S00023.compgtn +++|
00028  M00S00024.compgtn +++| GTN      SUBR               ENTRY/EXIT
00029  M00S00025.compgtn +++|          LDD    T7          GET FWA TERMINAL TABLE
00030  M00S00026.compgtn +++|          SHN    6
00031  M00S00027.compgtn +++|          ADN    /REM/VTTP
00032  M00S00028.compgtn +++|          CRD    SR
00033  M00S00029.compgtn +++|          ADN    /REM/VMNL-/REM/VTTP  GET MAXIMUM NUMBER OF TERMINALS
00034  M00S00030.compgtn +++|          CRD    CM
00035  M00S00031.compgtn +++|          LDD    CM+4        SAVE MAXIMUM NUMBER OF TERMINALS
00036  M00S00032.compgtn +++|          SBN    /REM/VPST
00037  M00S00033.compgtn +++|          STD    T5
00038  M00S00034.compgtn +++|          LDD    SR+1
00039  M00S00035.compgtn +++| GTN1     SHN    6
00040  M00S00036.compgtn +++|          ADD    T7
00041  M00S00037.compgtn +++|          SHN    6
00042  M00S00038.compgtn +++|          ADD    SR+2
00043  M00S00039.compgtn +++|          ADK    /REM/VUIT
00044  M00S00040.compgtn +++|          CRD    CM
00045  M00S00041.compgtn +++|          ADK    /REM/VFST-/REM/VUIT  GET NEXT JSN
00046  M00S00042.compgtn +++|          CRD    CM+1
00047  M00S00043.compgtn +++|          LDD    CM
00048  M00S00044.compgtn +++|          ZJN    GTN2        IF TERMINAL TABLE ENTRY NOT IN USE
00049  M00S00045.compgtn +++|          LDD    CM+1
00050  M00S00046.compgtn +++|          LMD    AB
00051  M00S00047.compgtn +++|          NJN    GTN2        IF JSN DOES NOT MATCH
00052  M00S00048.compgtn +++|          LDD    CM+1+1
00053  M00S00049.compgtn +++|          LMD    AB+1
00054  M00S00050.compgtn +++|          ZJN    GTNX        IF JSN MATCHES
00055  M00S00051.compgtn +++| GTN2     AOD    AB+3        INCREMENT TERMINAL NUMBER
00056  M00S00052.compgtn +++|          SOD    T5          DECREMENT TERMINAL COUNT
00057  M00S00053.compgtn +++|          MJN    GTNX        IF ALL TERMINALS SEARCHED
00058  M00S00054.compgtn +++|          LDN    /REM/VTTL   GET NEXT TERMINAL TABLE ENTRY
00059  M00S00055.compgtn +++|          RAD    SR+2
00060  M00S00056.compgtn +++|          SHN    -14
00061  M00S00057.compgtn +++|          RAD    SR+1
00062  M00S00058.compgtn +++|          UJN    GTN1        LOOP
00063  M00S00059.compgtn +++|          SPACE  4
00064  M00S00060.compgtn +++| QUAL$    IF     -DEF,QUAL$
00065  M00S00061.compgtn +++|          QUAL   *
00066  M00S00062.compgtn +++| GTN      EQU    /COMPGTN/GTN
00067  M00S00063.compgtn +++| QUAL$    ENDIF
00068  M00S00064.compgtn +++|          ENDX