TITLE 'IFCSI155 MODEL 155 CHANNEL SUMMARY TABLE' 00100020 MACRO 00200020 &NAME DSGEN &X1,&X2,&X3,&X4,&X5,&X6,&X7,&X8,&X9,&X10,&X11,&X12,&X13,X00300020 &X14,&X15,&X16,&X17,&X18,&X19,&X20,&X21,&X22,&X23,&X24, X00400020 &X25,&X26,&X27,&X28,&X29,&X30,&X31,&X32 00500020 .* THIS MACRO GENERATES ONE DSECT WORD 00600020 .* FORMATTED FOR THE SUBJECT LOG RECORD 00700020 .* EACH OPERAND HAS TWO SUB LISTS. THE 00800020 .* FIRST IS THE NAME OF THE LOG ITEM 00900020 .* WHILE THE SECOND IS THE # OF BITS TO 01000020 .* ALLOCATE FOR THIS ITEM. ITEMS MUST 01100020 .* BE DEFINED CONTIGUOUSLY WITHOUT GAPS 01200020 .* UNUSED BIT GROUPS MUST BE GIVEN 01300020 .* DUMMY NAMES. THE NAMES PROVIDED FOR 01400020 .* THE LOG ITEMS MAY THEN BE USED IN 01500020 .* THE CONVERSION MACRO INSTRUCTIONS. 01600020 GBLC &ITEM(1000) 01700020 GBLA &ITEMNBR,&BITS(1000),&SHIFT(1000) 01800020 LCLC &SYMBOL 01900020 LCLA &OP,&COUNT,&BYTE 02000020 .LOOP ANOP 02100020 &OP SETA &OP+1 02200020 &ITEMNBR SETA &ITEMNBR+1 02300020 &SYMBOL SETC '&SYSLIST(&OP,1)' 02400020 AIF ('&SYSLIST(&OP,2)' NE '').OK1 02500020 MNOTE *,'NULL BIT COUNT FIELD' 02600020 MEXIT 02700020 .OK1 ANOP 02800020 AIF ('&SYMBOL' NE '').OK 02900020 MNOTE 'LOG ITEM SYMBOL NOT PROVIDED' 03000020 AGO .CNT 03100020 .OK ANOP 03200020 AIF ('&SYMBOL'(1,1) EQ '''').CNT *TEMP* 03300020 &SYMBOL EQU *+&BYTE 03400020 &ITEM(&ITEMNBR) SETC '&SYSLIST(&OP,1)' 03500020 &BITS(&ITEMNBR) SETA &SYSLIST(&OP,2) 03600020 &SHIFT(&ITEMNBR) SETA &COUNT-&BYTE*8 03700020 .CNT ANOP 03800020 &COUNT SETA &COUNT+&SYSLIST(&OP,2) 03900020 &BYTE SETA &COUNT/8 04000020 AIF (&OP LT N'&SYSLIST).LOOP 04100020 AIF (&COUNT NE 32).NOT32 04200020 &NAME DS 4C 04300020 MEXIT 04400020 .NOT32 AIF (&COUNT NE 64).ERR 04500020 &NAME DS 8C 04600020 MEXIT 04700020 .ERR MNOTE '**BIT COUNT FIELDS DO NOT TOTAL 32 OR 64**' 04800020 MEND 04900020 MACRO 05000020 &NAME LINE &DATA,&LABEL,&SKIP= 05100020 .* THIS MACRO ESTABLISHES THE MARGINS OR 05200020 .* COLUMN SETTINGS FOR EACH LINE. IT 05300020 .* GENERATES NECESSARY CARRIAGE CONTROL 05400020 .* ENTRIES. LASTLY IT DETERMINES THE 05500020 .* NUMBER OF ENTRIES ASSOCIATED WITH 05600020 .* THE PREVIOUS LINE AND STORES THAT # 05700020 .* INTO THE APPROPRIATE BYTE. 05800020 .* &DATA(1) - CHARACTER POSITION TO BEGIN 05900020 .* DATA. 06000020 .* &DATA(2) - # OF SPACES BETWEEN SUCCESSIVE 06100020 .* DATA COLUMN STARTING CHARACTERS. 06200020 .* &LABEL(1) - CHAR. POS. TO BEGIN LABELS. 06300020 .* &LABEL(2) - # SPACES BETWEEN LINE'S LABEL 06400020 .* STARTING CHARACTERS. 06500020 .* &SKIP= - # OF LINES TO ADVANCE CARRIAGE 06600020 .* TO BEGIN NEXT PRINTED LINE. 06700020 .* NEW ENTRIES ARE GENERATED ONLY WHEN 06800020 .* NECESSARY. OMISSION OF ITEMS MEANS 06900020 .* THEY HAVE NOT CHANGED SINCE PREVIOUS 07000020 .* SETTINGS. A LINE MACRO IS REQUIRED 07100020 .* FOR EACH PRINTED LINE. IF NO SETTING 07200020 .* CHANGES ARE REQUIRED ALL OPERANDS 07300020 .* ARE OMITTED IN WHICH CASE ONLY THE 07400020 .* # OF ENTRIES FOR THE PREVIOUS LINE 07500020 .* IS COMPUTED. THIS MACRO MUST BE THE 07600020 .* FIRST MACRO INSTRUCTION ISSUED FOR 07700020 .* THE SUBJECT LINE 07800020 GBLA &DB,&DT,&LB,<,&NRENTS 07900020 GBLA &LASTCC,&INITIAL 08000020 GBLC &NRENTSX 08100020 GBLC &CARRCON 08200020 GBLB &TEST 08300020 LCLA &S 08400020 &NAME DS 0C 08500020 AIF (&INITIAL EQ 0).FIRSTLN 08600020 LINEND 08700020 AGO .NTFIRST 08800020 .FIRSTLN ANOP 08900020 &NRENTSX SETC 'N&SYSNDX' 09000020 &INITIAL SETA 1 09100020 N&SYSNDX EQU * 09200020 .NTFIRST ANOP 09300020 DC AL1(0) 09400020 AIF ('&DATA(1)' EQ '').CKDTABS 09500020 AIF (&DATA(1) EQ &DB).CKDTABS 09600020 &DB SETA &DATA(1) 09700020 AGO .AA 09800020 .CKDTABS AIF ('&DATA(2)' EQ '').NCDATA 09900020 AIF (&DATA(2) EQ &DT).NCDATA 10000020 AGO .CC 10100020 .AA AIF ('&DATA(2)' EQ '').BB 10200020 AIF (&DATA(2) EQ &DT).BB 10300020 .CC ANOP 10400020 &DT SETA &DATA(2) 10500020 .BB DC XL2'FFFE' 10600020 DC FL1'&DB' 10700020 DC FL1'&DT' 10800020 &NRENTS SETA &NRENTS+1 10900020 .NCDATA ANOP 11000020 AIF ('&LABEL(1)' EQ '').CKLTABS 11100020 AIF (&LABEL(1) EQ &LB).CKLTABS 11200020 &LB SETA &LABEL(1) 11300020 AGO .AAA 11400020 .CKLTABS AIF ('&LABEL(2)' EQ '').NCLABEL 11500020 AIF (&LABEL(2) EQ <).NCLABEL 11600020 AGO .CCC 11700020 .AAA AIF ('&LABEL(2)' EQ '').BBB 11800020 AIF (&LABEL(2) EQ <).BBB 11900020 .CCC ANOP 12000020 < SETA &LABEL(2) 12100020 .BBB DC XL2'FFFF' 12200020 DC FL1'&LB' 12300020 DC FL1'<' 12400020 &NRENTS SETA &NRENTS+1 12500020 .NCLABEL ANOP 12600020 AIF ('&SKIP' NE '').CONT 12700020 AIF (&TEST EQ 0).NOCHANG 12800020 &S SETA &LASTCC 12900020 AGO .DEFAULT 13000020 .CONT ANOP 13100020 AIF (&TEST EQ 0).AB 13200020 &S SETA &SKIP 13300020 .DEFAULT ANOP 13400020 ORG &CARRCON+3 13500020 DC AL.3(0),AL.2(&S),AL.3(1) 13600020 ORG 13700020 &LASTCC SETA &S 13800020 &TEST SETB 0 13900020 AGO .DD 14000020 .AB AIF (&SKIP EQ &LASTCC).NOCHANG 14100020 A&SYSNDX DC XL2'FFFB' 14200020 DC AL.3(0),AL.2(&SKIP),AL.3(1) 14300020 DC FL1'9' 14400020 &LASTCC SETA &SKIP 14500020 &TEST SETB 1 14600020 &CARRCON SETC 'A&SYSNDX' 14700020 &NRENTS SETA &NRENTS+1 14800020 .DD ANOP 14900020 .NOCHANG ANOP 15000020 MEND 15100020 MACRO 15200020 BIN &LOGITEM,&SKIP$OR 15300020 .* &LOGITEM - NAME OF ITEM IN LOG 15400020 .* RECORD DSECT 15500020 .* &SKIP$OR - NBR OF SPACES TO SKIP ON 15600020 .* MULTIPLE PRINT OR NBR OF SPACES 15700020 .* TO BACK UP FROM COLUMN FOR 15800020 .* START OF PRINTING. THE LETTER 15900020 .* B PRECEEDS THE NUMBER (B5) IF 16000020 .* THE LATTER IS DESIRED. OMISSION 16100020 .* OF THIS OPERAND FORCES OPTION 2 16200020 .* WITH BACKUP SPACING EQUAL TO 16300020 .* THE NUMBER OF BITS IN THE ITEM 16400020 .* DEFINITION (VIA MACRO 'DSGEN'). 16500020 .* A LIMIT OF 15 BITS IS IMPOSED FOR THE 16600020 .* TOTAL NUMBER OF BITS TO PRINT. 16700020 GBLC &ITEM(1000) 16800020 GBLA &ITEMNBR,&BITS(1000),&SHIFT(1000),&NRENTS 16900020 GBLC &DSECT 17000020 LCLB &B 17100020 LCLA &IBITS,&NDX,&ISHIFT,&K 17200020 LCLA &TEMP 17300020 LCLC &S 17400020 .LOOP ANOP 17500020 &NDX SETA &NDX+1 17600020 AIF ('&ITEM(&NDX)' EQ '&LOGITEM').FOUND 17700020 AIF (&NDX LT &ITEMNBR).LOOP 17800020 MNOTE *,'YOU BLEW IT' 17900020 ROUTINE DUM,SKIPPER 18000020 MEXIT 18100020 .FOUND ANOP 18200020 &ISHIFT SETA &SHIFT(&NDX) 18300020 &IBITS SETA &BITS(&NDX) 18400020 &S SETC '&IBITS' 18500020 &B SETB 1 18600020 AIF ('&SKIP$OR' EQ '').BACKUP 18700020 &K SETA K'&SKIP$OR 18800020 &B SETB ('&SKIP$OR'(1,1) EQ 'B') 18900020 &S SETC '&SKIP$OR'(&B+1,&K-&B) 19000020 .BACKUP ANOP 19100020 &NRENTS SETA &NRENTS+1 19200020 &TEMP SETA &ISHIFT+1 19300020 A&SYSNDX DC AL.12(&LOGITEM-&DSECT),XL.4'&TEMP' 19400020 AIF (&IBITS EQ 1 AND &B EQ 0).OUT 19500020 ORG A&SYSNDX 19600020 DC AL.12(&LOGITEM-&DSECT),XL.4'C' 19700020 DC BL.1'&B',AL.7(&S),AL.4(&IBITS),FL.4'&ISHIFT' 19800020 .OUT ANOP 19900020 MEND 20000020 MACRO 20100020 HEX &LOGITEM,&SKIP$OR,&BYTES 20200020 .* THIS MACRO FACILITATES GENERATION OF THE 20300020 .* TABLE ENTRIES SPECIFYING HEX TYPE 20400020 .* CONVERSIONS. 20500020 .* &LOGITEM - NAME OF DATA ITEM TO BE 20600020 .* CONVERTED 20700020 .* &SKIP$OR - NUMBER OF SPACES TO SKIP ON 20800020 .* MULTIPLE PRINT OR NBR OF SPACES TO 20900020 .* BACK UP FROM COLUMN FOR START OF 21000020 .* PRINTING. THE LETTER B PRECEEDS THE 21100020 .* NUMBER (B8) IF THE LATTER OPTION IS 21200020 .* DESIRED. OMISSION OF THIS OPERAND 21300020 .* FORCES OPTION 2 WITH BACKUP SPACING 21400020 .* EQUAL TO THE NUMBER OF BYTES SPECI- 21500020 .* FIED BY THE NEXT OPERAND (TWICE THIS 21600020 .* NUMBER IF SUFFIX IS EXPLICITLY OR 21700020 .* IMPLICITLY B). 21800020 .* &BYTES - NUMBER OF TOTAL INPUT BYTES TO 21900020 .* PROCESS. THIS NUMBER IS SUFFIXED 22000020 .* WITH AN L,R, OR B TO STIPULATE 22100020 .* PRINTING OF THE LEFT HALF, RIGHT 22200020 .* HALF, OR BOTH HALVES OF THE BYTE 22300020 .* RESPECTIVELY. OMISSION OF THIS 22400020 .* OPERAND DEFAULTS TO B WITH THE NUM- 22500020 .* BER OF BYTES EQUAL TO THE ITEM LNGTH 22600020 .* A NEW ENTRY IS GENERATED ONLY WHEN NECES- 22700020 .* SARY. THIS MACRO MUST BE THE FIRST 22800020 .* MACRO INSTRUCTION ISSUED FOR THE 22900020 .* SUBJECT LINE(S). 23000020 GBLC &ITEM(1000),&DSECT 23100020 GBLA &ITEMNBR,&BITS(1000),&SHIFT(1000),&NRENTS 23200020 LCLB &B 23300020 LCLA &IBITS,&NDX,&ISHIFT,&K,&T,&CODE,&BYTESP 23400020 LCLC &S,&LETTER 23500020 .LOOP ANOP 23600020 &NDX SETA &NDX+1 23700020 AIF ('&ITEM(&NDX)' EQ '&LOGITEM').FOUND 23800020 AIF (&NDX LT &ITEMNBR).LOOP 23900020 MNOTE *,'LOG ITEM NOT DEFINED' 24000020 MEXIT 24100020 .FOUND ANOP 24200020 &ISHIFT SETA &SHIFT(&NDX) 24300020 &IBITS SETA &BITS(&NDX) 24400020 &CODE SETA 1 24500020 &K SETA K'&BYTES 24600020 AIF (&IBITS-(&IBITS/4)*4 EQ 0).OK 24700020 MNOTE *,'BIT LENGTH SPECIFICATION INCONSISTENT WITH CONTROL' 24800020 MEXIT 24900020 .OK AIF ('&BYTES' EQ '').USEDEFN 25000020 &LETTER SETC '&BYTES'(&K,1) 25100020 &S SETC '&BYTES'(1,&K-1) 25200020 &BYTESP SETA &S 25300020 AIF ('&LETTER' EQ 'B').BOTH 25400020 AIF (&ISHIFT EQ 0 OR &ISHIFT EQ 4).OK2 25500020 .ERR MNOTE *,'DATA NOT ALLIGNED ON HEX OR BYTE BOUNDARY' 25600020 MEXIT 25700020 .USEDEFN ANOP 25800020 &BYTESP SETA &IBITS/8 25900020 .BOTH AIF (&ISHIFT NE 0).ERR 26000020 &CODE SETA 3 26100020 &T SETA &BYTESP*2 26200020 &S SETC '&T' 26300020 .OK2 AIF (&ISHIFT EQ 0).L 26400020 &CODE SETA 2 26500020 .L ANOP 26600020 &B SETB 1 26700020 AIF ('&SKIP$OR' EQ '').BACKUP 26800020 &K SETA K'&SKIP$OR 26900020 &B SETB ('&SKIP$OR'(1,1) EQ 'B') 27000020 &S SETC '&SKIP$OR'(&B+1,&K-&B) 27100020 .BACKUP ANOP 27200020 &NRENTS SETA &NRENTS+1 27300020 DC AL.12(&LOGITEM-&DSECT),XL.4'A' 27400020 DC BL.1'&B',FL.7'&S',FL.4'&BYTESP',FL.4'&CODE' 27500020 .OUT ANOP 27600020 MEND 27700020 MACRO 27800020 &NAME ROUTINE &LOGITEM,&RNAME 27900020 GBLA &NRENTS 28000020 GBLC &DSECT,&CSECT 28100020 &NAME DC AL.12(&LOGITEM-&DSECT),XL.4'D' 28200020 DC AL2(&RNAME-&CSECT) 28300020 &NRENTS SETA &NRENTS+1 28400020 MEND 28500020 MACRO 28600020 LABEL &LABEL1,&LABEL2,&LABEL3,&LABEL4 28700020 .* THIS MACRO ALLOWS UP TO FOUR LABELS TO 28800020 .* BE SPECIFIED FOR A GIVEN LINE. THE 28900020 .* LABELS SHOULD BE ENCLOSED IN QUOTA- 29000020 .* TION MARKS. THE COLUMN AND LINE END 29100020 .* CONTROLS WILL BE INSERTED BY THE 29200020 .* MACRO. OMITTED OPERANDS MEAN NO 29300020 .* LABEL REQUIRED FOR RESPECTIVE 29400020 .* COLUMN. THIS MACRO WILL ALSO ALERT 29500020 .* THE PROGRAMMER TO EXACTLY WHERE THE 29600020 .* TABLE MUST BE BROKEN IF NECESSARY 29700020 .* TO AVOID EXCEEDING THE MAXIMUM LIMIT 29800020 GBLC &LABELS(1000) 29900020 GBLA &LABELNR 30000020 GBLA &NRENTS 30100020 LCLC &MARGIN,&TACK 30200020 LCLC &TEXT 30300020 LCLA &OP,&K,&START,&NRCHAR,&REMAIN 30400020 &MARGIN SETC '*' 30500020 .LOOPOUT ANOP 30600020 &OP SETA &OP+1 30700020 &K SETA K'&SYSLIST(&OP) 30800020 AIF (&K GE 2).NORM 30900020 &K SETA 2 31000020 .NORM ANOP 31100020 &START SETA 2 31200020 AIF (&OP LT N'&SYSLIST).NOTLAST 31300020 &MARGIN SETC '$' 31400020 .NOTLAST ANOP 31500020 &NRCHAR SETA 8 31600020 &TACK SETC '' 31700020 .LOOPIN ANOP 31800020 &REMAIN SETA &K-&START 31900020 AIF (&REMAIN GE 8).MORE 32000020 &TACK SETC '&MARGIN' 32100020 &NRCHAR SETA &REMAIN 32200020 .MORE ANOP 32300020 &TEXT SETC '' 32400020 AIF (&REMAIN EQ 0).ENDTEXT 32500020 &TEXT SETC '&SYSLIST(&OP)'(&START,&NRCHAR) 32600020 .ENDTEXT ANOP 32700020 &LABELNR SETA &LABELNR+1 32800020 &LABELS(&LABELNR) SETC '&TEXT'.'&TACK' 32900020 &START SETA &START+8 33000020 AIF ('&TACK' EQ '').LOOPIN 33100020 AIF ('&TACK' EQ '*').LOOPOUT 33200020 MEND 33300020 MACRO 33400020 LSTART 33500020 .* THIS MACRO IS ISSUED WHEN THE LABEL AREA 33600020 .* OF THE TABLE IS TO BEGIN. 33700020 GBLC &LABELS(1000) 33800020 GBLA &LABELNR 33900020 LCLA &NDX 34000020 LINEND 34100020 .LOOP ANOP 34200020 &NDX SETA &NDX+1 34300020 DC C'&LABELS(&NDX)' 34400020 AIF (&NDX LT &LABELNR).LOOP 34500020 MEND 34600020 MACRO 34700020 LINEND 34800020 .* THIS MACRO IS USED ONLY BY THE LINE 34900020 .* MACRO TO SET THE NUMBER OF ENTRIES 35000020 .* ASSOCIATED WITH EACH LINE. 35100020 GBLA &NRENTS 35200020 GBLC &NRENTSX 35300020 ORG &NRENTSX 35400020 DC FL1'&NRENTS' 35500020 ORG 35600020 &NRENTS SETA 0 35700020 B&SYSNDX EQU * 35800020 &NRENTSX SETC 'B&SYSNDX' 35900020 MEND 36000020 MACRO 36100020 SUM &LOGITEM,&MASK 36200020 .* THIS MACRO GENERATES A NORMAL EDIT ENTRY 36300020 .* FOR PROCESSING BY THE SUMMARY MODULE 36400020 .* &LOGITEM - NAME OF DATA ITEM TO BE SUMMED 36500020 .* &MASK - BYTE MASK FOR BITS TO BE TESTED. 36600020 .* THIS OPERAND SHOULD BE OMITTED FOR 36700020 .* SINGLE BIT ITEMS IN WHICH CASE THE 36800020 .* MASK WILL BE SET ACCORDING TO THE 36900020 .* OFF BYTE BIT DISPLACEMENT OF THE 37000020 .* ITEM AS DEFINED BY THE MACRO 'DSGEN' 37100020 GBLA &COUNTR,&ITEMNBR,&BITS(1000),&SHIFT(1000) 37200020 GBLC &ITEM(1000),&DSECT 37300020 LCLA &IBITS,&NDX,&ISHIFT,&M,&BITNBR 37400020 .LOOP ANOP 37500020 &NDX SETA &NDX+1 37600020 AIF ('&ITEM(&NDX)' EQ '&LOGITEM').FOUND 37700020 AIF (&NDX LT &ITEMNBR).LOOP 37800020 MNOTE *,'LOGITEM NOT FOUND' 37900020 MEXIT 38000020 .FOUND ANOP 38100020 DC AL1(0) 38200020 &ISHIFT SETA &SHIFT(&NDX) 38300020 &IBITS SETA &BITS(&NDX) 38400020 AIF ('&MASK' EQ '').FORM 38500020 DC B'&MASK' 38600020 AGO .ITEM 38700020 .FORM ANOP 38800020 &BITNBR SETA &ISHIFT-7 38900020 &BITNBR SETA 0-&BITNBR 39000020 &M SETA 1 39100020 .LOOP2 ANOP 39200020 AIF (&BITNBR EQ 0).GOTIT 39300020 &M SETA &M*2 39400020 &BITNBR SETA &BITNBR-1 39500020 AGO .LOOP2 39600020 .GOTIT ANOP 39700020 DC AL1(&M) 39800020 .ITEM DC AL2(&LOGITEM-&DSECT) 39900020 DC AL2(&COUNTR) 40000020 &COUNTR SETA &COUNTR+1 40100020 MEND 40200020 MACRO 40300020 SPECIAL &ROUTINE,&PARAM,&SPACE= 40400020 .* THIS MACRO GENERATES A SPECIAL ROUTINE 40500020 .* ENTRY TO BE PROCESSED BY THE SUM. M. 40600020 .* &ROUTINE - SYMBOL ON SPECIAL ROUTINE EWT. 40700020 .* &PARAM - AN 8 BIT BINARY REPRESENTATION 40800020 .* TO OCCUPY THE 'MASK' FIELD BUT TO BE 40900020 .* INTERPRETED AS AN ARGUMENT OF THE 41000020 .* SPECIAL ROUTINE. 41100020 .* &SPACE - THE NUMBER OF 2BYTE COUNTERS TO 41200020 .* ALLOCATE FOR REQUIRED PROCESSING. 41300020 GBLC &CSECT 41400020 GBLA &COUNTR 41500020 LCLA &ADD 41600020 DC AL1(128) 41700020 DC BL.8'&PARAM' 41800020 DC AL2(&ROUTINE-&CSECT) 41900020 DC AL2(&COUNTR) 42000020 &ADD SETA 1 42100020 AIF ('&SPACE' EQ '').NORM 42200020 &ADD SETA &SPACE 42300020 .NORM ANOP 42400020 &COUNTR SETA &COUNTR+&ADD 42500020 MEND 42600020 GBLC &DSECT,&CSECT 42700020 &CSECT SETC 'IFCSI155' 42800020 &DSECT SETC 'CI155' 42900020 IFCSI155 CSECT 43000020 CI155 DSECT 43100020 DUM EQU * 43200020 DSGEN (XKEY,16),(XSWS,16),(XDUM1,32) 43300020 DSGEN (XDATE,32),(XTIME,32) 43400020 DSGEN (XDUM2,8),(XSER,24),(XMOD,16),(MCEL,16) 43500020 DSGEN (XPGMN,64) 43600020 DSGEN (XAIO1,64) 43700020 DSGEN (XAIO5,64) 43800020 DSGEN (XFCCW,64) 43900020 DSGEN (XCSW,32),(XCSWS,12),(XCDC,1),(XCCC,1),(XIFC,1),(XD,17) 44000020 DSGEN (XECSW,32) 44100020 DSGEN (XDEVT1,16),(XDEVT2,16) 44200020 DSGEN (XCHID,8),(XCUA,24) 44300020 DSGEN (XMPIN,32) 44400020 EJECT 44500020 IFCSI155 CSECT 44600020 ENTRYPTR DC A(EDIT) 44700020 DC A(PEDIT) POINTER TO EDIT SECTION 44800020 REG9 DS F 44900020 SCSIZE DC H'300' 45000020 ROUTINES EQU * 45100020 LOGREG EQU 2 45200020 @FAILCCW DS 0F 45300020 USING *,15 45400020 STM 14,12,12(13) 45500020 SR 7,7 45600020 IC 7,FCCW(LOGREG) 45700020 FCCW EQU 48 45800020 B COMMON 45900020 @UNIT DS 0F 46000020 USING *,15 46100020 STM 14,12,12(13) 46200020 SR 7,7 46300020 IC 7,91(LOGREG) 46400020 B COMMON 46500020 @DEVADR DS 0F 46600020 USING *,15 46700020 STM 14,12,12(13) 46800020 SR 7,7 LOAD DEVICE ADDRESS 46900020 IC 7,74(LOGREG) 47000020 SLL 7,8 47100020 IC 7,75(LOGREG) 47200020 COMMON EQU * 47300020 BALR 12,0 47400020 USING *,12 47500020 L 1,R9ADR 47600020 L 9,0(1) 47700020 SR 1,1 47800020 IC 1,1(9) ITERATIONS 47900020 LR 5,1 48000020 SLL 5,2 48100020 AR 5,3 COMPUTE COUNTER ADDRESS PAST TEXT 48200020 LH 4,=X'FFFF' 48300020 LOOP1 CH 4,0(3) TEST FOR EMPTY/FULL 48400020 BNE STORE 48500020 CH 7,2(3) FULL - COMPARE WITH STORED DATA 48600020 BE BUMP 48700020 LA 3,4(3) NOT SAME - GO TO NEXT TEXT CELL 48800020 LA 5,2(5) 48900020 BCT 1,LOOP1 49000020 B FULL ALL CELLS FULL - NO MATCH 49100020 STORE EQU * 49200020 STH 4,0(3) STORE NEW TEXT DATA 49300020 STH 7,2(3) 49400020 BUMP EQU * 49500020 LH 6,0(5) BUMP COUNTER BY ONE 49600020 AH 6,=H'1' 49700020 STH 6,0(5) 49800020 FULL EQU * 49900020 LM 14,12,12(13) 50000020 BR 14 50100020 * 50200020 * SAVE DATE RANGE 50300020 * 50400020 DROP 15 50500020 DROP 12 50600020 USING CI155,R2 50700020 USING IFCSI155,R9 50800020 * 50900020 XDATE1 CLC XDATE(L4),HEX00 IS DATE ZERO 51000020 BE EXIT 51100020 CLC L0(L4,R3),HEX00 IS LOW DATE = ZERO ? 51200020 BNE XDATE2 51300020 MVC L0(L4,R3),XDATE IF YES MOVE IN DATE 51400020 XDATE2 EQU * 51500020 CLC XDATE(L4),L0(R3) CHECK AGAINST LOW DATE 51600020 BL SAVELO BR-THIS IS LOWER 51700020 CLC XDATE(L4),L4(R3) CHECK AGAIN HI 51800020 BH SAVEHI 51900020 EXIT BR R14 RETURN 52000020 SAVEHI MVC L4(L4,R3),XDATE SAVE HI DATE IN COUNTER 52100020 B EXIT 52200020 SAVELO MVC L0(L4,R3),XDATE SAVE LO 52300020 B EXIT 52400020 HEX00 DC F'0' 52500020 R9ADR DC A(REG9) 52600020 EDIT EQU * 52700020 * SPECIAL ROUTINES REQUIRED 52800020 SPECIAL XDATE1,00000000,SPACE=4 52900020 * 53000020 * LABELS NEEDED FOR HEADER 53100020 * 53200020 LABEL ' ' SKIP TO CH 1 53300020 LABEL 'DAY YEAR DAY YEAR' 53400020 LABEL 'INBOARD DATE RANGE','TO' 53500020 LABEL 'SERIAL NO.','---MODEL--' 53600002 LABEL '---CHANNEL NUMBER--' 53700020 LABEL 'CHANNEL INBOARD SUMMARY' 53800020 LABEL 'NUMBER OF RECORDS EXAMINED =' 53900020 LABEL '--------TITLE--------','TOTAL' 54000020 * 54100020 LABEL 'DEVICE ADDRESS SUMMARY (MAX- 10 VALUES)' 54200020 LABEL ' ' 54300020 LABEL ' ' 54400020 LABEL ' ' 54500020 LABEL ' ' 54600020 LABEL ' ' 54700020 LABEL ' ' 54800020 LABEL ' ' 54900020 LABEL ' ' 55000020 LABEL ' ' 55100020 LABEL ' ' 55200020 LABEL 'FAILING CCW SUMMARY(MAX-10 VALUES)' 55300020 LABEL 'CMND CODE' 55400020 LABEL ' ' 55500020 LABEL ' ' 55600020 LABEL ' ' 55700020 LABEL ' ' 55800020 LABEL ' ' 55900020 LABEL ' ' 56000020 LABEL ' ' 56100020 LABEL ' ' 56200020 LABEL ' ' 56300020 LABEL ' ' 56400020 LABEL '--------TITLE-------- TOTAL', C56500020 '--------TITLE-------- TOTAL' 56600020 SPECIAL @DEVADR,00001010,SPACE=30 56700020 SPECIAL @FAILCCW,00001010,SPACE=30 56800020 SUM XCDC 56900020 SUM XCCC 57000020 SUM XIFC 57100020 LABEL 'CHAN DATA CHK' 57200020 LABEL 'CHAN CTRL CHK' 57300020 LABEL 'IF CTRL CHK' 57400020 QUIT DC XL1'FF' 57500020 PEDIT DS 0F 57600020 USING *,R9 57700020 DC A(PENTRY) 57800020 DC C'IFCSI155' 57900020 YR9PTR DC F'0' 58000020 YLABELP DC F'0' 58100020 &CSECT SETC 'PEDIT' 58200020 &DSECT SETC 'DI155' 58300020 * 58400020 DI155 DSECT 58500020 DS 3H 58600020 DSGEN (YDUMA,16),(YNOREC,16) 58700020 DSGEN (YTYPE,8),(YCHAN,8),(YCUA,24),(YSER,24) 58800020 DSGEN (YCPU,16),(YSMSW,16) 58900020 DSGEN (YLOD,32),(YHID,32) 59000020 DSGEN (YFFF01,16),(YCC01,16),(YFFF02,16),(YCC02,16) 59100020 DSGEN (YFFF03,16),(YCC03,16),(YFFF04,16),(YCC04,16) 59200020 DSGEN (YFFF05,16),(YCC05,16),(YFFF06,16),(YCC06,16) 59300020 DSGEN (YFFF07,16),(YCC07,16),(YFFF08,16),(YCC08,16) 59400020 DSGEN (YFFF09,16),(YCC09,16),(YFFF10,16),(YCC10,16) 59500020 DSGEN (YSC01,16),(YSC02,16) 59600020 DSGEN (YSC03,16),(YSC04,16) 59700020 DSGEN (YSC05,16),(YSC06,16) 59800020 DSGEN (YSC07,16),(YSC08,16) 59900020 DSGEN (YSC09,16),(YSC10,16) 60000020 DSGEN (YFFF11,16),(YNC11,8),(YCC11,8) 60100020 DSGEN (YFFF12,16),(YNC12,8),(YCC12,8) 60200020 DSGEN (YFFF13,16),(YNC13,8),(YCC13,8) 60300020 DSGEN (YFFF14,16),(YNC14,8),(YCC14,8) 60400020 DSGEN (YFFF15,16),(YNC15,8),(YCC15,8) 60500020 DSGEN (YFFF16,16),(YNC16,8),(YCC16,8) 60600020 DSGEN (YFFF17,16),(YNC17,8),(YCC17,8) 60700020 DSGEN (YFFF18,16),(YNC18,8),(YCC18,8) 60800020 DSGEN (YFFF19,16),(YNC19,8),(YCC19,8) 60900020 DSGEN (YFFF20,16),(YNC20,8),(YCC20,8) 61000020 DSGEN (YSC11,16),(YSC12,16) 61100020 DSGEN (YSC13,16),(YSC14,16) 61200020 DSGEN (YSC15,16),(YSC16,16) 61300020 DSGEN (YSC17,16),(YSC18,16) 61400020 DSGEN (YSC19,16),(YSC20,16) 61500020 DSGEN (YCDC,16),(YCCC,16),(YIFC,16),(YARGFL,16) 61600020 IFCSI155 CSECT 61700020 DS 0F 61800020 CONVERT STM R5,R8,XSAVE SAVE REGS 61900020 LH R5,L0(R4) PICK UP COUNT 62000020 CVD R5,WORK CONVERT IT 62100020 UNPK L0(L4,R3),WORK+L4(L4) UNPACK IT TO PRINT LINE 62200020 MVZ L3(L1,R3),L0(R3) MOVE ON ZONE 62300020 RETURNA LM R5,R8,XSAVE RESTORE 62400020 RETURNB BR R14 RETURN 62500020 * 62600020 SKIPPER BR R14 62700020 * 62800020 CONVCC1 CLC L0(L2,R4),HEXFFFF IS COUNTER IN USE 62900020 BE RETURNB YES 63000020 SR R15,R15 NO STOP PRINTING 63100020 BR R14 63200020 * 63300020 SETDATE OI L3(R4),HEX0F PUT ON PROPER SIGN 63400020 UNPK WORK(L8),L0(L4,R4) UNPACK DATE 63500020 MVZ WORK+L7(L1),WORK SET ZONE 63600020 MVC L0(L3,R3),WORK+L5 MOVE DAY 63700020 MVC L5(L2,R3),WORK+L3 MOVE YEAR 63800020 BR R14 63900020 * 64000020 * FREE COUNTERS 64100020 * 64200020 FREECORE STM R14,R12,L12(R13) SAVE REGS 64300020 LR R12,R13 SAVE SAVE PTR 64400020 LA R13,FSAVE SET ADDRESS MYSAVE 64500020 ST R12,L4(R13) CHAIN SAVE AREAS TOGETHER 64600020 ST R13,L8(R12) 64700020 L R3,L4(R2) PICK UP NXT COUNTER PTR 64800020 ST R3,L28(R12) PRESET REG IN CALLERS AREA 64900020 LH R0,SIZE PICK UP COUNTER LENGTH 65000020 LR R1,R2 SET ADDRESS TO COUNTER 65100020 * 65200020 FREEMAIN R,LV=(0),A=(1) FREE COUNTER 65300020 * 65400020 LTR R3,R3 TEST FOR LAST COUNTER IN 65500020 BZ RETURN0 BR-LAST 65600020 LA R5,PENTRY+L10 RESET R9 & 65700020 LA R6,LABLAREA-L1 LABEL POINTER TO START 65800020 ST R5,YR9PTR 65900020 ST R6,YLABELP 66000020 RETURN0 L R13,L4(R13) RESET TO CALLERS REGS 66100020 LM R14,R12,L12(R13) RESTORE REGS 66200020 BR R14 RETURN 66300020 WORK DS D 66400020 XSAVE DS 4F 66500020 * 66600020 FSAVE DS 18F 66700020 L28 EQU 28 66800020 HEXFFFF DC X'FFFF' 66900020 SIZE DC H'622' 67000020 HEX0F EQU X'0F' 67100020 L0 EQU 0 67200020 L1 EQU 1 67300020 L2 EQU 2 67400020 L3 EQU 3 67500020 L4 EQU 4 67600020 L5 EQU 5 67700020 L6 EQU 6 67800020 L7 EQU 7 67900020 L8 EQU 8 68000020 L9 EQU 9 68100020 L10 EQU 10 68200020 L12 EQU 12 68300020 * 68400020 * 68500020 R0 EQU 0 68600020 R1 EQU 1 68700020 R2 EQU 2 68800020 R3 EQU 3 68900020 R4 EQU 4 69000020 R5 EQU 5 69100020 R6 EQU 6 69200020 R7 EQU 7 69300020 R8 EQU 8 69400020 R9 EQU 9 69500020 R10 EQU 10 69600020 R11 EQU 11 69700020 R12 EQU 12 69800020 R13 EQU 13 69900020 R14 EQU 14 70000020 R15 EQU 15 70100020 * 70200020 * 70300020 PENTRY DS 0F 70400020 DC X'00010001' 70500020 DC X'00010001' 70600020 DC A(LABLAREA) 70700020 DC H'0' 70800020 * 70900020 DC X'01' 71000020 DC X'000B8B00' SKIP TO CHANNEL 1 71100020 * 71200020 LINE ,(23,11) 71300020 ROUTINE YDUMA,SKIPPER 71400020 LINE (23,11),(1,30) 71500020 ROUTINE YLOD,SETDATE 71600020 ROUTINE YHID,SETDATE 71700020 * 71800020 LINE (36,31),(20,36),SKIP=2 71900002 HEX YSER 71950002 HEX YCPU,0,2B P0417 72000020 LINE (56,1),(36,1) 72100002 HEX YCHAN,0,1B 72200020 LINE 72300020 ROUTINE YDUMA,SKIPPER 72400020 * 72500020 LINE (70,1) 72600020 ROUTINE YNOREC,CONVERT 72700020 * 72800020 LINE (16,24),(2,38) 72900020 ROUTINE YDUMA,SKIPPER 73000020 * 73100020 LINE 73200020 ROUTINE YDUMA,SKIPPER 73300020 * 73400020 LINE ,,SKIP=1 73500020 HEX YCC01 73600020 ROUTINE YSC01,CONVERT 73700020 ROUTINE YFFF01,CONVCC1 73800020 LINE 73900020 HEX YCC02 74000020 ROUTINE YSC02,CONVERT 74100020 ROUTINE YFFF02,CONVCC1 74200020 LINE 74300020 HEX YCC03 74400020 ROUTINE YSC03,CONVERT 74500020 ROUTINE YFFF03,CONVCC1 74600020 LINE 74700020 HEX YCC04 74800020 ROUTINE YSC04,CONVERT 74900020 ROUTINE YFFF04,CONVCC1 75000020 LINE 75100020 HEX YCC05 75200020 ROUTINE YSC05,CONVERT 75300020 ROUTINE YFFF05,CONVCC1 75400020 LINE 75500020 HEX YCC06 75600020 ROUTINE YSC06,CONVERT 75700020 ROUTINE YFFF06,CONVCC1 75800020 LINE 75900020 HEX YCC07 76000020 ROUTINE YSC07,CONVERT 76100020 ROUTINE YFFF07,CONVCC1 76200020 LINE 76300020 HEX YCC08 76400020 ROUTINE YSC08,CONVERT 76500020 ROUTINE YFFF08,CONVCC1 76600020 LINE 76700020 HEX YCC09 76800020 ROUTINE YSC09,CONVERT 76900020 ROUTINE YFFF09,CONVCC1 77000020 LINE ,,SKIP=2 77100020 HEX YCC10 77200020 ROUTINE YSC10,CONVERT 77300020 ROUTINE YFFF10,CONVCC1 77400020 LINE 77500020 ROUTINE YDUMA,SKIPPER 77600020 * 77700020 LINE ,(11,1),SKIP=2 77800020 ROUTINE YDUMA,SKIPPER 77900020 LINE ,,SKIP=1 78000020 HEX YCC11 78100020 ROUTINE YSC11,CONVERT 78200020 ROUTINE YFFF11,CONVCC1 78300020 LINE 78400020 HEX YCC12 78500020 ROUTINE YSC12,CONVERT 78600020 ROUTINE YFFF12,CONVCC1 78700020 LINE 78800020 HEX YCC13 78900020 ROUTINE YSC13,CONVERT 79000020 ROUTINE YFFF13,CONVCC1 79100020 LINE 79200020 HEX YCC14 79300020 ROUTINE YSC14,CONVERT 79400020 ROUTINE YFFF14,CONVCC1 79500020 LINE 79600020 HEX YCC15 79700020 ROUTINE YSC15,CONVERT 79800020 ROUTINE YFFF15,CONVCC1 79900020 LINE 80000020 HEX YCC16 80100020 ROUTINE YSC16,CONVERT 80200020 ROUTINE YFFF16,CONVCC1 80300020 LINE 80400020 HEX YCC17 80500020 ROUTINE YSC17,CONVERT 80600020 ROUTINE YFFF17,CONVCC1 80700020 LINE 80800020 HEX YCC18 80900020 ROUTINE YSC18,CONVERT 81000020 ROUTINE YFFF18,CONVCC1 81100020 LINE 81200020 HEX YCC19 81300020 ROUTINE YSC19,CONVERT 81400020 ROUTINE YFFF19,CONVCC1 81500020 LINE ,,SKIP=2 81600020 HEX YCC20 81700020 ROUTINE YSC20,CONVERT 81800020 ROUTINE YFFF20,CONVCC1 81900020 LINE ,(2,56),SKIP=2 82000020 ROUTINE YDUMA,SKIPPER 82100020 * 82200020 LINE (40,55),(3,55),SKIP=1 82300020 ROUTINE YCDC,CONVERT 82400020 LINE 82500020 ROUTINE YCCC,CONVERT 82600020 LINE ,,SKIP=2 82700020 ROUTINE YIFC,CONVERT 82800020 * 82900020 * 83000020 LINE ,(2,55),SKIP=2 83100020 ROUTINE YDUMA,SKIPPER 83200020 LABEL ' ' 83250020 * 83300020 LINE ,(3,55),SKIP=1 83400020 LABEL ' ' 83500020 LINE 83600020 ROUTINE YDUMA,FREECORE 83700020 LABEL ' ' 83800020 DC X'FF0000000000' 83900020 DC C'$' 84000020 LABLAREA EQU * 84100020 LSTART 84200020 END 84300020