DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
27
Copybook/DTSIL991.cpy
Normal file
27
Copybook/DTSIL991.cpy
Normal file
@ -0,0 +1,27 @@
|
||||
00001 ***** 09/29/98
|
||||
00002 * DTSIL991
|
||||
00003 * MACIL991 FORMAT HEX DISPLAY. LV002
|
||||
00004 * DTSIL991
|
||||
00005 * CL**2
|
||||
00006 * 09/29/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
|
||||
00007 * CL**2
|
||||
00008 ***** DTSIL991
|
||||
00009 CL**2
|
||||
00010 10 L991-REQ-CHAR-CNT PIC S9(04). DTSIL991
|
||||
00011 CL**2
|
||||
00012 10 L991-REQ-AREA. DTSIL991
|
||||
00013 15 L991-REQ-CHAR OCCURS 64 TIMES DTSIL991
|
||||
00014 PIC X(01). DTSIL991
|
||||
00015 CL**2
|
||||
00016 10 L991-REPLY-AREA. DTSIL991
|
||||
00017 15 L991-REPLY-HEX-1-AREA. DTSIL991
|
||||
00018 20 L991-REPLY-HEX-1-CHAR OCCURS 64 TIMES DTSIL991
|
||||
00019 PIC X(01). DTSIL991
|
||||
00020 CL**2
|
||||
00021 15 L991-REPLY-HEX-2-AREA. DTSIL991
|
||||
00022 20 L991-REPLY-HEX-2-CHAR OCCURS 64 TIMES DTSIL991
|
||||
00023 PIC X(01). DTSIL991
|
||||
00024 CL**2
|
||||
00025 15 L991-REPLY-AN-AREA. DTSIL991
|
||||
00026 20 L991-REPLY-AN-CHAR OCCURS 64 TIMES DTSIL991
|
||||
00027 PIC X(01). DTSIL991
|
||||
Reference in New Issue
Block a user