*COPY DEVTYPES 00001000
PUSH PRINT 00001200
AIF ('&SYSPARM' NE 'SUP').DEV01 00001400
PRINT OFF,NOGEN 00001600
.DEV01 ANOP 00001800
* 00004000
*** CP370 DEVICE CLASSES, TYPES, MODELS, AND FEATURES 00005000
* 00006000
SPACE 2 00007000
CLASTERM EQU X'80' TERMINAL DEVICE CLASS 00008000
SPACE 00009000
TYP2700 EQU X'40' 2700 BISYNC LINE 00010000
TYP2955 EQU TYP2700 2955 COMMUNICATIONS LINE 00011000
TYPTELE2 EQU X'20' TELEGRAPH TERMINAL CONTROL TYPE II 00012000
TYPTTY EQU X'20' TELETYPE TERMINAL 00013000
TYPIBM1 EQU X'10' IBM TERMINAL CONTROL TYPE I 00014000
TYP2741 EQU X'18' 2741 COMMUNICATIONS TERMINAL 00015000
TYP1050 EQU X'14' 1050 COMMUNICATIONS TERMINAL 00016000
TYPUNDEF EQU X'1C' TERMINAL DEVICE TYPE IS UNDEFINED 00017000
TYPBSC EQU X'80' BISYNC LINE FOR 3270 REMOTE STATIONS 00017100
TYPSDLC EQU X'08' SYNCHRONOUS DATA LINK CONTROL (ICA) @V67CDF1 00017500
TYP3210 EQU X'00' 3210 CONSOLE 00018000
TYP3215 EQU TYP3210 3215 CONSOLE 00019000
TYP2150 EQU TYP3210 2150 CONSOLE 00020000
TYP1052 EQU TYP3210 1052 CONSOLE 00021000
TYPSS EQU X'30' @VA10854 00021010
SPACE 00021300
FTRDIAL EQU X'01' 00021600
SPACE 2 00022000
CLASGRAF EQU X'40' GRAPHICS DEVICE CLASS 00023000
SPACE 00024000
TYP2250 EQU X'80' 2250 DISPLAY UNIT 00025000
TYP2260 EQU X'40' 2260 DISPLAY STATION 00026000
TYP2265 EQU X'20' 2265 DISPLAY STATION 00027000
TYP3066 EQU X'10' 3066 CONSOLE 00028000
TYP1053 EQU X'08' 1053 PRINTER 00029000
TYP3277 EQU X'04' 3277 DISPLAY STATION 00030000
TYP3278 EQU X'01' 3278 DISPLAY CONSOLE 00030001
TYP3138 EQU TYP3277 3138 DISPLAY CONSOLE 00030010
TYP3148 EQU TYP3277 3148 DISPLAY CONSOLE 00030110
TYP3158 EQU TYP3277 3158 CONSOLE 00030210
TYP3284 EQU X'02' 3284 PRINTER 00031000
TYP3286 EQU TYP3284 3286 PRINTER 00032000
TYP3287 EQU TYP3284 3287 PRINTER 00032010
TYP3288 EQU TYP3284 3288 PRINTER 00032051
SPACE 00032100
FTROPRDR EQU X'80' OPERATOR ID CARD READER 00032200
SPACE 2 00033000
CLASURI EQU X'20' UNIT RECORD INPUT DEVICE CLASS 00034000
SPACE 00035000
TYPRDR EQU X'80' CARD READER DEVICE 00036000
TYP2501 EQU X'81' 2501 CARD READER 00037000
TYP2540R EQU X'82' 2540 CARD READER 00038000
TYP3505 EQU X'84' 3505 CARD READER 00039000
TYP1442R EQU X'88' 1442 CARD READER/PUNCH 00040000
TYP2520R EQU X'90' 2520 CARD READER/PUNCH 00041000
TYPTIMER EQU X'40' TIMER DEVICE 00042000
TYPTR EQU X'20' TAPE READER DEVICE 00043000
TYP2495 EQU X'21' 2495 MAGNETIC TAPE CARTRIDGE READER 00044000
TYP2671 EQU X'22' 2671 PAPER TAPE READER 00045000
TYP1017 EQU X'24' 1017 PAPER TAPE READER 00046000
SPACE 2 00047000
CLASURO EQU X'10' UNIT RECORD OUTPUT DEVICE CLASS 00048000
SPACE 00049000
TYPPUN EQU X'80' CARD PUNCH DEVICE 00050000
TYP2540P EQU X'82' 2540 CARD PUNCH 00051000
TYP3525 EQU X'84' 3525 CARD PUNCH 00052000
TYP1442P EQU X'88' 1442 CARD PUNCH 00053000
TYP2520P EQU X'90' 2520 CARD PUNCH 00054000
TYPPRT EQU X'40' PRINTER TYPE DEVICE 00055000
TYP1403 EQU X'41' 1403 PRINTER 00056000
TYP3211 EQU X'42' 3211 PRINTER 00057000
TYP1443 EQU X'44' 1443 PRINTER 00058000
TYP3203 EQU X'43' 3203 PRINTER (1403+3211) 00058500
TYP3800 EQU X'45' 3800 PRINTING SUBSYSTEM @V60B9BA 00058600
TYPTP EQU X'20' TAPE PUNCH DEVICE 00059000
TYP1018 EQU X'24' 1018 PAPER TAPE PUNCH 00060000
SPACE 00061000
FTRUCS EQU X'01' UCS FEATURE 00062000
FTR4WCGM EQU X'80' 3800 HAS 4 WCGM'S @V60B9BA 00062100
* FTREXTSN (X'40') IS ALSO USED FOR A 3800 PRINTER @V60B9BA 00062200
SPACE 2 00063000
CLASTAPE EQU X'08' MAGNETIC TAPE DEVICE CLASS 00064000
SPACE 00065000
TYP2401 EQU X'80' 2401 TAPE DRIVE 00066000
TYP2415 EQU X'40' 2415 TAPE DRIVE 00067000
TYP2420 EQU X'20' 2420 TAPE DRIVE 00068000
TYP3420 EQU X'10' 3420 TAPE DRIVE 00069000
TYP3410 EQU X'08' 3410 TAPE DRIVE 00070000
TYP3411 EQU TYP3410 3411 TAPE DRIVE 00071100
SPACE 00072000
FTR7TRK EQU X'80' 7-TRACK FEATURE 00073000
FTRDLDNS EQU X'40' DUAL DENSITY FEATURE 00074000
FTRTRANS EQU X'20' TRANSLATE FEATURE 00075000
FTRDCONV EQU X'10' DATA CONVERSION FEATURE 00076000
SPACE 2 00077000
CLASDASD EQU X'04' DIRECT ACCESS STORAGE DEVICE CLASS 00078000
SPACE 00079000
TYP2311 EQU X'80' 2311 DISK STORAGE DRIVE 00080000
TYP2314 EQU X'40' 2314 DISK STORAGE FACILITY 00081000
TYP2319 EQU TYP2314 2319 DISK STORAGE FACILITY 00082000
TYP2321 EQU TYP2311 2321 DATA CELL DRIVE 00083100
TYP3380 EQU X'20' 3380 DISK STORAGE FACILITY HRC011DK 00083500
TYP3330 EQU X'10' 3330 DISK STORAGE FACILITY 00084000
TYP3333 EQU TYP3330 3333 DISK STORAGE FACILITY 00085000
TYP3350 EQU X'08' 3350 DISK STORAGE FACILITY 00086100
TYP2301 EQU TYP2311 3201 PARALLEL DRUM 00086200
TYP2303 EQU TYP2311 2303 SERIAL DRUM 00086300
TYP3375 EQU X'04' 3375 DISK STORAGE FACILITY HRC011DK 00088020
TYP2305 EQU X'02' 2305 FIXED HEAD STORAGE DEVICE HRC011DK 00088040
TYP3340 EQU X'01' 3340 DISK STORAGE FACITITY 00088100
SPACE 00088200
FTRRPS EQU X'80' ROTATIONAL POSITIONAL SENSING (RPS) 00088300
FTREXTSN EQU X'40' EXTENDED SENSE BYTES (24 BYTES) 00088400
FTR2311T EQU X'20' (= VDEV231T) TOP HALF OF 2314 USED AS 2311 00090000
FTR2311B EQU X'10' (= VDEV231B) BOTTOM HALF OF 2314 USED AS 2311 00091000
FTR35MB EQU X'08' 35 MB DATA MODULE MOUNTED (3340) 00091100
FTR70MB EQU X'04' 70 MB DATA MODULE MOUNTED (3340) 00091200
FTRRSRL EQU X'02' RESERVE/RELEASE ARE VALID CCW OP CODES 00093000
VIRTUAL EQU X'01' DEVICE IS A 3330V 'VIRTUAL' @V60B6B8 00093010
SYSVIRT EQU X'20' DEVICE IS A 3330V 'SYSVIRT' @V60B6B8 00093020
FTRVIRT EQU X'01' 3330 VIRTUAL (MSS) VOLUME 00094000
SPACE 2 00095000
CLASSPEC EQU X'02' SPECIAL DEVICE CLASS 00096000
SPACE 00097000
TYPCTCA EQU X'80' CHANNEL TO CHANNEL ADAPTER 00098000
TYP3088 EQU TYPCTCA SAME AS CTCA HRC011DK 00098500
TYP3704 EQU X'40' 3704 PROGRAMMABLE COMM. CTL UNIT 00099000
TYP3705 EQU TYP3704 3705 PROGRAMMABLE COMM. CTL UNIT 00100000
TYP3851 EQU X'20' 3851 MASS STORAGE CONTROLLER 00100500
TYPSRF EQU X'04' SRF DEVICE (DEVICE NUMBER 7443) @V5088AA 00100700
TYPUNSUP EQU X'01' DEVICE UNSUPPORTED BY VM/370 00101000
SPACE 00102000
FTRTYP1 EQU X'10' TYPE ONE CHANNEL ADAPTER (3704/5) 00103000
FTRTYP2 EQU X'20' TYPE TWO CHANNEL ADAPTER (370X) 00103500
FTR3088 EQU X'40' CTC IS TYPE 3088 HRC011DK 00103700
FTRTYP3 EQU FTRTYP2 TREAT AS TYPE2 CHAN ADAPT (370X) 00104000
FTRTYP4 EQU FTRTYP1 TREAT AS TYPE1 CHAN ADAPT (370X) 00104500
EJECT 00105000
POP PRINT 00106000
SPACE 00107000