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