TITLE 'IGG019M1 - 2740 WITH STN CTL, CHECKING AND AUTOPOLL' 01000013 IGG019M1 CSECT 02000013 * STATUS - LAST CHANGED MAY 10,1976 03000000 *********************************************************************** 03600000 *APARS FIXED - AZ10035 (05/10/76) @ZA10035 04200000 *********************************************************************** 05000000 *FUNCTION - 06000013 * THE DEVICE INPUT/OUTPUT MODULE PROVIDES THE DEVICE 07000013 * DEPENDENT VARIABLE INFORMATION NEEDED BY THE BTAM 08000013 * READ/WRITE ROUTINE TO PREPARE THE TELE-PROCESSING 09000013 * CHANNEL PROGRAMS. 10000013 SPACE 2 11000013 * EACH OF THE FIRST 16 BYTES CONTAINS AN OFFSET TO THE 12000013 * CHANNEL COMMAND WORD OFFSETS FOR EACH TYPE OF I/O 13000013 * OPERATION. 14000013 SPACE 2 15000013 * FOLLOWING THE CCW OFFSETS ARE ALL OF THE DIFFERENT 16000013 * CCW'S THAT ARE USED BY THIS DEVICE TYPE. FOLLOWING 17000013 * THE CCW'S ARE THE NECESSARY SPECIAL CONTROL CHARACTERS. 18000013 SPACE 4 19000013 * EXAMPLE OF CCW OFFSETS (I.E. CONDENSED CHANNEL PROGRAM) 20000013 SPACE 21000013 * DC X'0403050906820008' 22000013 SPACE 23000013 * 04 = COUNT OF CCW'S 24000013 * 03,05,09,06 = CCW'S 3,5,9 & 6 COMPRISE CHANNEL PROGRAM 25000013 * 82 = COUNT OF RESET FUNCTION CCW'S (0 BIT = 1 26000013 * INDICATES RESET) 27000013 * 00,08 = CCW'S 0 & 8 COMPRISE RESET CHANNEL PROG. 28000013 SPACE 4 29000013 * THE DEVICE I/O MODULE CONTAINS NO EXECUTABLE CODE. ITS 30000013 * ADDRESS IS LOADED INTO THE BTAM READ/WRITE ROUTINE BY OPEN 31000013 * AT OPEN TIME. 32000013 EJECT 33000013 A DC X'FF' 34000013 DC AL1(RI-A) READ INITIAL 35000013 DC AL1(WI-A) WRITE INITIAL 36000013 DC AL1(RC-A) READ CONTINUE 37000013 DC AL1(WC-A) WRITE CONTINUE 38000013 DC X'FF' 39000013 DC X'FF' 40000013 DC AL1(RR-A) READ REPEAT 41000013 DC AL1(WA-A) WRITE ACKNOWLEDGE 42000013 DC AL1(RS-A) READ SKIP 43000013 DC AL1(WN-A) WRITE NEG-ACKNOWLEDGE 44000013 DC X'FF' 45000013 DC X'FF' 46000013 DC X'FF' 47000013 DC X'FF' 48000013 DC 9X'FF' 000B 48500014 DC AL1(C-A) OFFSET TO CCW'S 49000013 DC 7X'FF' 000B 49500014 SPACE 2 50000013 * CHANNEL PROGRAMS 51000013 RI DC X'0402080A0D8101' READ INITIAL 52000013 WI DC X'070409070B000F0C8103' WRITE INITIAL 53000013 RC DC X'02050E8101' READ CONTINUE 54000013 WC DC X'020F0C8103' WRITE CONTINUE 55000013 RR DC X'02060E8101' READ REPEAT 56000013 WA DC X'0101' WRITE ACKNOWLEDGE 57000013 RS DC X'0110' READ SKIP 58000013 WN DC X'0103' WRITE NOT ACKNOWLEDGE 59000013 SPACE 3 60000013 * C C W 'S I/O F L A G S LENGTH 61000013 * OPERATION CD C SLI = 62000013 C DC X'010C008880080001' WR D X 1 63000013 DC X'010C008820210004' WR DCCC X 4 64000013 DC X'010C008960020003' WR CCC X X 3 65000013 DC X'010C008920210003' WR CCC X 3 66000013 DC X'010C008980020004' WR CCCS X 4 67000013 DC X'010C008D60020001' WR Y X X 1 68000013 DC X'010C008E60020001' WR N X X 1 69000013 DC X'010C008F60040001' WR SPACE X X 1 70000013 DC X'0924000060030000' WR POLL X X LIST 71000013 DC X'0114000080030001' WR ADRS X 1 72000013 DC X'02040000800A0002' RD INDX X 2 73000013 DC X'0208000020060002' RD RESP X 2 74000018 DC X'0208000100200001' RD RESP 1 75000013 DC X'0204000220110402' RD DATA X N-2 76000013 DC X'02040000201104FF' RD DATA X N 77000000 DC X'0104000060110400' WR DATA X X N 78000013 DC X'0200000030220400' RD SKIP SKIP FLAG X N 79000013 SPACE 2 80000013 DC X'16' CIRCLE D 81000013 DC X'1F1F1F' CIRCLE C'S 82000013 DC X'37' CIRCLE S 83000013 DC X'76' CIRCLE Y 84000013 DC X'40' CIRCLE N 85000013 DC X'01' SPACE 86000013 CNOP 0,8 87000013 DC CL8'IGG019M1' EYE CATCHER 87200000 DC CL8'** MVS *' 87400000 DC CL8'&SYSDATE' DATE OF LAST ASSEMBLY 87600000 END 88000013