Type ASSEMBLE
Source Lines : 265
Fixes Applied : 0
Most Recent Version : Thursday, December 7, 1978
Last Fix ID : [Unmodified]

Module

       DMKTRM

Function

       TO IDENTIFY A 2741 TERMINAL AS EITHER 2741P (PTTC/EBCD)
       OR 2741C ("CORRESPONDENCE") FROM THE FIRST USER COMMAND.

Attributes

       REENTRANT, PAGEABLE, CALLED VIA SVC

Operation

       1.  GIVEN RAW INPUT LINE VIA R0-R1, SCANS FOR FIRST NONBLANK
           CHARACTER STRING.   (ERROR RETURN IF NOT FOUND).

       2.  DETERMINES NUMBER OF BYTES (LESS 1) IN NONBLANK STRING
           (ERROR RETURN IF THERE WERE MORE THAN 8 BYTES).
           OR'S IN HEX 80'S TO TREAT AS UPPER CASE.

       3.  CHECKS NUMBER OF BYTES INPUTTED AGAINST A LIMITED NUMBER
           OF RESERVED-WORDS FOR LEGITIMATE "FIRST COMMAND"
           (REFER TO TABLE AT LABEL FIRST1 FOR A COMPLETE LIST)
           FOR 2741P (PTTC/EBCD) TERMINAL.

       4.  IF STEP 3 FAILS, REPEATS TEST FOR 2741C
           ("CORRESPONDENCE") TERMINAL.

       5.  IF STEP 3 OR 4 SUCCEEDED, STORES RDEVTYPE OF
           "TYP2741P" OR "TYP2741C" IN TERMINAL RDEVBLOK,
           AND EXITS TO CALLER.

       6.  IF ALL TESTS FAIL (OR CHARACTER STRING MISSING OR
           MORE THAN 8 BYTES) EXIT TO CALLER.

Calls to Other Routines

       NONE