TITLE 'BLSR3270--BLSR327J--VALIDATE INPUT' 00000157 *---------------------------------------------------------------------* 00010057 * * 00020057 *BLSR327J--VALIDATE INPUT * 00030057 * * 00040057 *---------------------------------------------------------------------* 00090057 SPACE 00140057 BLSR327J LA R9,3 ACCOUNT FOR AID, ADDR, ADDR 00190057 LA R3,LJ000100 RETURN POINT FROM ANALYSIS SUBS 00240057 ST R7,SAVER7 WILL NEED THIS LATER 00290057 BAL RE,EA001400 DECOMPOSE CURSOR ADDR INTO ROW/COL 00340057 CH R5,=H'0' IS IT ON ROW ONE? 00390057 BNE LJ000100 -NO, DON'T LOOK ANY FURTHER 00440057 CH R4,=H'1' UNDER 3END 00490057 BL LJ000100 -IF BETWEEN 00540057 CH R4,=H'4' -COLUMNS 1-4 00590057 BNH LD001500 QUIT 00640057 LJ000100 SR R7,R9 ANY INPUT LEFT? 00690057 BNP LJ001000 -NO, SEE WHAT HAPPENED 00740057 ALR RA,R9 TO NEXT DATA FIELD DELIMITER 00790057 LA R1,0(RA,R7) IN CASE TRT GETS CC=0 00840057 LR RF,R7 HOW MUCH THERE IS LEFT 00890057 BCTR RF,0 BYPASS 1ST SBA 00940057 LR R5,RA PUT BUFFER ADDRESS IN SAFE PLACE 00990057 LJ000102 LR R4,RF HOW MUCH THERE IS LEFT 01040057 CH R4,=H'256' MORE THAN ONE TRT CAN HANDLE? 01090057 BNH LJ000104 -NO, PROCEED 01140057 LA R4,256 -YES, WE WILL HAVE TO LOOP THROUGH 01190057 LJ000104 SR RF,R4 REMEMBER TO SUBTRACT FROM TOTAL 01240057 BCTR R4,0 DOWN ONE FOR EXECUTE 01290057 EX R4,IJ000106 LOOK FOR NEXT SBA ORDER 01340057 BNZ LJ000110 IF NON-ZERO, WE FOUND SBA 01390057 LTR RF,RF IS THERE ANYTHING LEFT? 01440057 BNP LJ000110 -NO 01490057 LA R5,256(R5) CORRECT BUFFER ADDRESS 01540057 B LJ000102 KEEP LOOKING 01590057 IJ000106 TRT 1(0,R5),SBATRTTB *** SUBJ OF EX, ABOVE 01640057 SPACE 01690057 *---------------------------------------------------------------------* 01740057 * R1 NOW POINTS TO NEXT SBA, OR PAST END OF DATA * 01790057 * R2 MAY HAVE BEEN CLOBBERED BY A X'FF' * 01840057 *---------------------------------------------------------------------* 01890057 SPACE 01940057 LJ000110 LR R9,R1 STOPPING ADDR 01990057 SLR R9,RA LENGTH THIS FIELD 02040057 BAL RE,EA001400 DECOMPOSE FIELD ADDRESS 02090057 ALR R5,R5 DOUBLE ROW ADDR FOR YCON INDEX 02140057 CH R5,=H'10' IN DATA DISPLAY AREA? 02190057 BNL LJ002900 -YES, SEE WHAT IS GOING ON 02240057 LA R8,BLSR327B 02290057 AH R8,YJ000120(R5) ->ANALYSIS ROUTINE 02340057 BR R8 GO TO ANALYSIS ROUTINE 02390057 SPACE 02440057 *---------------------------------------------------------------------* 02490057 * PROCESSOR VECTOR FOR MANUAL INPUT RECEIVED FROM LINES 1-5 * 02540057 *---------------------------------------------------------------------* 02590057 SPACE 02640057 YJ000120 DC Y(LJ002500-BLSR327B) LINE 1--CONSTANTS 02690057 DC Y(LJ002600-BLSR327B) LINE 2--ADDRESS IN STACK 02740057 DC Y(LJ002700-BLSR327B) LINE 3--NOTATION IN STACK 02790057 DC Y(LJ000150-BLSR327B) LINE 4--INPUT LINE 02840057 DC Y(LJ002800-BLSR327B) LINE 5--SUBCOMMAND 02890057 SPACE 02940057 *---------------------------------------------------------------------* 02990057 * CHANGE TO LINE 4 * 03040057 *---------------------------------------------------------------------* 03090057 SPACE 03140057 LJ000150 IC R4,AJ000200(R4) TRANSLATE COLUMN NUM TO INDEX 03190057 LH RF,YJ000300(R4) PICK UP BRANCH INDEX VALUE 03240057 LA R8,BLSR327B(RF) ->ANALYSIS ROUTINE 03290057 BR R8 03340057 SPACE 03390057 *---------------------------------------------------------------------* 03440057 * DATA FIELD TRANSLATION VECTOR * 03490057 *---------------------------------------------------------------------* 03540057 SPACE 03590057 AJ000200 DC 6AL1(0) INVALID 03640057 DC 1AL1(2) ADDRESS FIELD CHANGED 03690057 DC 11AL1(0) INVALID 03740057 DC 1AL1(4) ASID FIELD CHANGED 03790057 DC 8AL1(0) INVALID 03840057 DC 1AL1(6) FORMAT FIELD CHANGED 03890057 DC 6AL1(0) INVALID 03940057 DC 1AL1(8) AREA FIELD CHANGED 03990057 DC 15AL1(0) INVALID 04040057 DC 1AL1(10) WINDOW A ALLOCATION CHANGED 04090057 DC 4AL1(0) INVALID 04140057 DC 1AL1(12) WINDOW B ALLOCATION CHANGED 04190057 DC 4AL1(0) INVALID 04240057 DC 1AL1(14) WINDOW C ALLOCATION CHANGED 04290057 DC 4AL1(0) INVALID 04340057 DC 1AL1(16) WINDOW D ALLOCATION CHANGED 04390057 DC 7AL1(0) INVALID 04440057 DC 1AL1(18) SKIP FIELD CHANGED 04490057 DC 8AL1(0) INVALID 04540057 SPACE 04590057 *---------------------------------------------------------------------* 04640057 * PROCESSING VECTOR FOR CHANGES ON LINE 4 * 04690057 *---------------------------------------------------------------------* 04740057 SPACE 04790057 YJ000300 DC Y(LC000200-BLSR327B) PROTECTED CAPTION CHANGED 04840057 DC Y(LJ000400-BLSR327B) ADDRESS CHANGED 04890057 DC Y(LJ000500-BLSR327B) ASID CHANGED 04940057 DC Y(LJ000600-BLSR327B) FORMAT CHANGED 04990057 DC Y(LJ000700-BLSR327B) AREA CHANGED 05040057 DC Y(LJ000800-BLSR327B) WINDOW A CHANGED 05090057 DC Y(LJ000800-BLSR327B) WINDOW B CHANGED 05140057 DC Y(LJ000800-BLSR327B) WINDOW C CHANGED 05190057 DC Y(LJ000800-BLSR327B) WINDOW D CHANGED 05240057 DC Y(LJ000900-BLSR327B) SKIP CHANGED 05290057 SPACE 05340057 *---------------------------------------------------------------------* 05390057 * ADDRESS FIELD CHANGED * 05440057 *---------------------------------------------------------------------* 05490057 SPACE 05540057 LJ000400 OI FLAG1,FLAG1ADR MUST REWRITE OLD (OR NEW) DATA 05590057 BAL RE,EA003700 CONVERT AND VALIDATE INPUT 05640057 B LJ000420 VALIDATION FAILED IN SUBROUTINE 05690057 MVC EADDRVAL,PACKDEC+3 SAVE NEW ADDRESS 05740057 TM ERLN4,ERLN4ADR WAS IT INVALID LAST TIME? 05790057 BNO LJ000415 -NO, TURN OFF ERROR INDICATOR 05840057 LJ000410 MVI EADDRFLG,VREWRITE REWRITE THIS ATTRIBUTE 05890057 OI FLAG0,FLAG0RW4 LINE 4 ORDERS MUST BE REWRITTTEN 05940057 LJ000415 NI ERLN4,255-ERLN4ADR HAVE VALID ASID 05990057 BR R3 PROCESS REMAINING INPUT 06040057 LJ000420 OI ERLN4,ERLN4ADR INDICATE ERROR ENCOUNTERED 06090057 BR R3 PROCESS REMAINING INPUT 06140057 SPACE 06190057 *---------------------------------------------------------------------* 06240057 * ASID FIELD CHANGED * 06290057 *---------------------------------------------------------------------* 06340057 SPACE 06390057 LJ000500 OI FLAG1,FLAG1ASI MUST REWRITE OLD (OR NEW) DATA 06440057 BAL RE,EA003700 CONVERT AND VALIDATE INPUT 06490057 B LJ000520 VALIDATION FAILED IN SUBROUTINE 06540057 LA R1,VPASPL BLSRVPAS PARM LIST 06590057 L RF,VPASP ->BLSRVPAS 06640057 BALR RE,RF PERFORM MORE SOPHISTICATED CHECK 06690057 LTR RF,RF DID ASID PASS TEST? 06740057 BNZ LJ000520 -NO 06790057 MVC EASIDVAL,PACKDEC+5 SAVE NEW ASID 06840057 TM ERLN4,ERLN4ASI WAS IT INVALID LAST TIME? 06890057 BNO LJ000515 -NO, TURN OFF ERROR INDICATOR 06940057 LJ000510 MVI EASIDFLG,VREWRITE REWRITE THIS ATTRIBUTE 06990057 OI FLAG0,FLAG0RW4 LINE 4 ORDERS MUST BE REWRITTEN 07040057 LJ000515 NI ERLN4,255-ERLN4ASI HAVE VALID ASID 07090057 BR R3 PROCESS REMAINING INPUT 07140057 LJ000520 OI ERLN4,ERLN4ASI INDICATE ERROR ENCOUNTERED 07190057 BR R3 PROCESS REMAINING INPUT 07240057 SPACE 07290057 *---------------------------------------------------------------------* 07340057 * FORMAT FIELD CHANGED * 07390057 *---------------------------------------------------------------------* 07440057 SPACE 07490057 LJ000600 OI FLAG1,FLAG1FMT MUST REWRITE OLD (OR NEW) DATA 07540057 LR RF,R9 PUT LENGTH IN SAFE PLACE 07590057 SH RF,=H'3' HOW MUCH DID WE GET? 07640057 BNP LJ000620 NOTHING, ERROR 07690057 BCT RF,LJ000620 MORE THAN 1 BYTE, ERROR 07740057 OI 3(RA),C' ' CONVERT TO UPPER CASE 07790057 CLI 3(RA),C'C' CHARACTER FORMAT REQUESTED? 07840057 BE LJ000640 -YES 07890057 CLI 3(RA),C'X' HEX FORMAT REQUESTED? 07940057 BE LJ000640 -YES 07990057 LJ000620 OI ERLN4,ERLN4FMT INDICATE ERROR ENCOUNTERED 08040057 BR R3 PROCESS REMAINING INPUT 08090057 LJ000640 MVC EFMTVAL,3(RA) SAVE FORMAT FIELD 08140057 TM ERLN4,ERLN4FMT WAS IT INVALID LAST TIME? 08190057 BNO LJ000670 -NO, TURN OFF ERROR INDICATOR 08240057 LJ000660 MVI EFMTFLG,VREWRITE ATTRIBUTE MUST BE REWRITTEN 08290057 OI FLAG0,FLAG0RW4 LINE 4 ORDERS MUST BE REWRITTEN 08340057 LJ000670 NI ERLN4,255-ERLN4FMT HAVE VALID FORMAT 08390057 BR R3 PROCESSING REMAINING INPUT 08440057 SPACE 08490057 *---------------------------------------------------------------------* 08540057 * AREA FIELD CHANGED * 08590057 *---------------------------------------------------------------------* 08640057 SPACE 08690057 LJ000700 OI FLAG1,FLAG1ARE MUST REWRITE OLD (OR NEW) DATA 08740057 LR RF,R9 SAVE INPUT LENGTH 08790057 SH RF,=H'3' DID WE GET ANYTHING? 08840057 BNP LJ000720 -NO, ERROR 08890057 BCT RF,LJ000720 MORE THAN 1 BYTE, ERROR 08940057 OI 3(RA),C' ' CONVERT TO UPPER CASE 08990057 CLI 3(RA),C'A' CHECK FOR RANGE A-D 09040057 BL LJ000720 TOO LOW 09090057 CLI 3(RA),C'D' 09140057 BNH LJ000740 GOOD 09190057 LJ000720 OI ERLN4,ERLN4ARE INDICATE ERROR ENCOUNTERED 09240057 BR R3 PROCESS REMAINING INPUT 09290057 LJ000740 MVC EAREAVAL,3(RA) SAVE AREA VALUE 09340057 TM ERLN4,ERLN4ARE WAS IT INVALID LAST TIME? 09390057 BNO LJ000770 -NO, TURN OFF ERROR INDICATOR 09440057 LJ000760 MVI EAREAFLG,VREWRITE REWRITE ATTRIBUTE BYTE 09490057 OI FLAG0,FLAG0RW4 REWRITE LINE 4 ORDERS 09540057 LJ000770 NI ERLN4,255-ERLN4ARE HAVE VALID AREA 09590057 BR R3 PROCESS REMAINING INPUT 09640057 SPACE 09690057 *---------------------------------------------------------------------* 09740057 * WINDOW FIELD CHANGED * 09790057 *---------------------------------------------------------------------* 09840057 SPACE 09890057 * R4 HAS INDEX TO YCON TABLE - 10, 12, 14, 16 DEPENDING ON WHICH 09940057 * FIELD WAS MODIFIED 09990057 SPACE 10040057 LJ000800 OI FLAG1,FLAG1LIN MUST REWRITE OLD (OR NEW) DATA 10090057 SRL R4,1 BACK TO BYTE 10140057 SH R4,=H'5' 0 ORIGIN 10190057 LA R5,EWNDSFLG(R4) -> CURRENT WINDOW FLAG 10240057 BAL RE,EA004100 CONVERT AND VALIDATE INPUT 10290057 B LJ000840 CONVERSION FAILED 10340057 STC RF,EWNDSVAL(R4) VALUE RETURNED IN RF 10390057 TM 0(R5),EPREVERR WAS IT INVALID LAST TIME? 10440057 BO LJ000820 -YES, SET REWRITE INDICATOR 10490057 MVI 0(R5),0 RESET ERROR INDICATOR 10540057 BR R3 PROCESS REMAINING INPUT 10590057 LJ000820 MVI 0(R5),VREWRITE REWRITE THIS ATTRIBUTE 10640057 OI FLAG0,FLAG0RW4 LINE 4 ORDERS MUST BE REWRITTEN 10690057 BR R3 PROCESS REMAINING INPUT 10740057 LJ000840 MVI 0(R5),EPREVERR SET INDICATOR FOR NEXT TIME 10790057 BR R3 PROCESS REMAINING INPUT 10840057 SPACE 10890057 *---------------------------------------------------------------------* 10940057 * SKIP FIELD CHANGED * 10990057 *---------------------------------------------------------------------* 11040057 SPACE 11090057 LJ000900 OI FLAG1,FLAG1SKP MUST REWRITE OLD (OR NEW) DATA 11140057 BAL RE,EA003700 VALIDATE INPUT 11190057 B LJ000940 VALIDATION FAILED 11240057 MVC ESKIPVAL,PACKDEC+3 SAVE NEW SKIP VALUE 11290057 TM ERLN4,ERLN4SKP WAS IT INVALID LAST TIME? 11340057 BNO LJ000930 -NO, TURN OF ERROR INDICATOR 11390057 LJ000920 MVI ESKIPFLG,VREWRITE REWRITE THIS ATTRIBUTE 11440057 OI FLAG0,FLAG0RW4 LINE 4 ORDERS MUST BE REWRITTEN 11490057 LJ000930 NI ERLN4,255-ERLN4SKP HAVE VALID SKIP FIELD 11540057 BR R3 PROCESS REMAINING INPUT 11590057 LJ000940 OI ERLN4,ERLN4SKP INDICATE ERROR ENCOUNTERED 11640057 BR R3 PROCESS REMAINING INPUT 11690057 SPACE 11740057 *---------------------------------------------------------------------* 11790057 * EXAMINE RESULTS OF INPUT VALIDITY CHECKING * 11840057 *---------------------------------------------------------------------* 11890057 SPACE 11940057 LJ001000 LA R4,4 LOOK AT ALL FOUR WINDOWS 11990057 NI ERLN4,255-ERLN4WND START WITH NO ERRORS 12040057 LA R5,EWNDSFLG INITIAL WINDOW FLAG 12090057 LJ001050 TM 0(R5),EPREVERR WAS AN ERROR ENCOUNTERED? 12140057 BNO LJ001075 -NO, CONTINUE LOOP 12190057 OI ERLN4,ERLN4WND SET MASTER ERROR FLAG 12240057 LJ001075 LA R5,1(R5) -> NEXT WINDOW FLAG 12290057 BCT R4,LJ001050 LOOK AT NEXT WINDOW 12340057 SPACE 12390057 CLI ERLN4,0 ANY OUTSTANDING ERRORS? 12440057 BE LC000320 -NO 12490057 OI NEWWCC,WCCALARM BEEP 12540057 BAL R8,LB000020 INITIALIZE TPUT/TGET BUFFER 12590057 SPACE 12640057 *---------------------------------------------------------------------* 12690057 * PUT OUT ERROR MESSAGE * 12740057 *---------------------------------------------------------------------* 12790057 SPACE 12840057 MVC 0(ORDLNSBA,RA),RW1UMGOR ORDERS INTO SCREEN BUFFER 12890057 MVC ORDLNSBA(MSGIERLN,RA),MSGIER MSG INTO BUFFER 12940057 LA RA,ORDLNSBA+MSGIERLN(0,RA) CORRECT BUFFER ADDRESS 12990057 SPACE 13040057 *---------------------------------------------------------------------* 13090057 * PUT OUT LINE 4 ORDERS AND DATA * 13140057 *---------------------------------------------------------------------* 13190057 SPACE 13240057 MVC 0(ORDLNSBA,RA),RW4AADOR SBA FOR ADDR ATTRIB 13290057 MVC ORDLNSBA(2,RA),INTNSESF ASSUME INTENSIFY 13340057 TM ERLN4,ERLN4ADR SHOULD IT HAVE BEEN INTENSIFIED? 13390057 BO LJ001100 -YES, UPDATE BUFFER ADDRESS 13440057 TM EADDRFLG,VREWRITE SHOULD IT HAVE BEEN NORMAL? 13490057 BNO LJ001200 -NO, SHOULDN'T OUTPUT 13540057 MVI EADDRFLG,0 CLEAR FOR NEXT TIME 13590057 MVI ORDLNSBA+1(RA),NORMAL UNINTENSIFY ADDR FIELD 13640057 LJ001100 LA RA,ORDLNSBA+2(RA) CORRECT BUFFER ADDRESS 13690057 SPACE 13740057 LJ001200 MVC 0(ORDLNSBA,RA),RW4AASOR SBA FOR ASID ATTRIB 13790057 MVC ORDLNSBA(2,RA),INTNSESF ASSUME INTENSIFY 13840057 TM ERLN4,ERLN4ASI SHOULD IT HAVE BEEN INTENSIFIED? 13890057 BO LJ001300 -YES, UPDATE BUFFER ADDRESS 13940057 TM EASIDFLG,VREWRITE SHOULD IT HAVE BEEN NORMAL? 13990057 BNO LJ001400 -NO, SHOULDN'T OUTPUT 14040057 MVI EASIDFLG,0 CLEAR FOR NEXT TIME 14090057 MVI ORDLNSBA+1(RA),NORMAL UNINTENSIFY ASID FIELD 14140057 LJ001300 LA RA,ORDLNSBA+2(RA) CORRECT BUFFER ADDRESS 14190057 SPACE 14240057 LJ001400 MVC 0(ORDLNSBA,RA),RW4AFMOR SBA FOR FORMAT ATTRIB 14290057 MVC ORDLNSBA(2,RA),INTNSESF ASSUME INTENSIFY 14340057 TM ERLN4,ERLN4FMT SHOULD IT HAVE BEEN INTENSIFIED? 14390057 BO LJ001500 -YES, UPDATE BUFFER ADDRESS 14440057 TM EFMTFLG,VREWRITE SHOULD IT HAVE BEEN NORMAL? 14490057 BNO LJ001600 -NO, SHOULD'T OUTPUT 14540057 MVI EFMTFLG,0 CLEAR FOR NEXT TIME 14590057 MVI ORDLNSBA+1(RA),NORMAL UNINTENSIFY FORMAT FIELD 14640057 LJ001500 LA RA,ORDLNSBA+2(RA) CORRECT BUFFER ADDRESS 14690057 SPACE 14740057 LJ001600 MVC 0(ORDLNSBA,RA),RW4AAROR SBA FOR AREA FLAG 14790057 MVC ORDLNSBA(2,RA),INTNSESF ASSUME INTENSIFY 14840057 TM ERLN4,ERLN4ARE SHOULD IT HAVE BEEN INTENSIFIED? 14890057 BO LJ001700 -YES, UPDATE BUFFER ADDRESS 14940057 TM EAREAFLG,VREWRITE SHOULD IT HAVE BEEN NORMAL? 14990057 BNO LJ001800 -NO, SHOULD'T OUTPUT 15040057 MVI EAREAFLG,0 CLEAR FOR NEXT TIME 15090057 MVI ORDLNSBA+1(RA),NORMAL UNINTENSIFY AREA FIELD 15140057 LJ001700 LA RA,ORDLNSBA+2(RA) CORRECT BUFFER ADDRESS 15190057 SPACE 15240057 LJ001800 LA R3,EWNDSFLG INITIAL INDEX FOR WINDOW LOOP 15290057 LA R4,1 INCREMENT 15340057 LA R5,EWNDSFLG+3 COMPARAND 15390057 LA R8,RW4AL1OR BEGINNING OF WINDOW ORDERS 15440057 LJ001900 TM 0(R3),VREWRITE+EPREVERR NEED TO REWRITE WINDOW 15490057 BZ LJ002100 -NO, CHECK NEXT FIELD 15540057 MVC 0(ORDLNSBA,RA),0(R8) SBA FOR WINDOW FIELD 15590057 MVC ORDLNSBA(2,RA),INTNSESF ASSUME INTENSIFY 15640057 TM 0(R3),EPREVERR SHOULD IT HAVE BEEN? 15690057 BO LJ002000 -YES, UPDATE BUFFER ADDRESS 15740057 MVI 0(R3),0 CLEAR FOR NEXT TIME 15790057 MVI ORDLNSBA+1(RA),NORMAL UNINTENSIFY WINDOW FIELD 15840057 LJ002000 LA RA,ORDLNSBA+2(RA) CORRECT BUFFER ADDRESS 15890057 LJ002100 LA R8,ORDLNSBA(R8) NEXT WINDOW SBA 15940057 BXLE R3,R4,LJ001900 LOOK AT NEXT WINDOW 15990057 SPACE 16040057 MVC 0(ORDLNSBA,RA),RW4ASPOR SBA FOR SKIP FIELD 16090057 MVC ORDLNSBA(2,RA),INTNSESF ASSUME INTENSIFY 16140057 TM ERLN4,ERLN4SKP SHOULD IT HAVE BEEN INTENSIFIED? 16190057 BO LJ002200 -YES, UPDATE BUFFER ADDRESS 16240057 TM ESKIPFLG,VREWRITE SHOULD IT HAVE BEEN NORMAL? 16290057 BNO LJ002300 -NO, SHOULDN'T OUTPUT 16340057 MVI ESKIPFLG,0 CLEAR FOR NEXT TIME 16390057 MVI ORDLNSBA+1(RA),NORMAL UNINTENSIFY SKIP FIELD 16440057 LJ002200 LA RA,ORDLNSBA+2(RA) CORRECT BUFFER ADDRESS 16490057 SPACE 16540057 *---------------------------------------------------------------------* 16590057 * OUTPUT FLAGGED INPUT * 16640057 *---------------------------------------------------------------------* 16690057 SPACE 16740057 LJ002300 LA R8,LA000700 TPUT RETURN ADDRESS 16790057 MVC 0(4,RA),WKACORDS ADD AN INSERT CURSOR ORDER 16840057 LA RA,4(0,RA) CORRECT BUFFER ADDRESS 16890057 B LA000500 OUTPUT BUFFER 16940057 SPACE 16990057 *---------------------------------------------------------------------* 17040057 * LINE 1 SHOULD NOT BE MODIFIED - SEE WHAT HAPPENED * 17090057 *---------------------------------------------------------------------* 17140057 SPACE 17190057 LJ002500 IC R4,AJ002510(R4) TRANSLATE COLUMN NUMBER TO INDEX 17240057 LH RF,YJ002520(R4) PICK UP BRANCH INDEX VALUE 17290057 LA R8,BLSR327B(RF) ->ANALYSIS ROUTINE 17340057 BR R8 GO TO ANALYSIS ROUTINE 17390057 SPACE 17440057 *---------------------------------------------------------------------* 17490057 * DATA FIELD TRANSLATION VECTOR FOR LINE 1 * 17540057 *---------------------------------------------------------------------* 17590057 SPACE 17640057 AJ002510 DC 1AL1(0) ATTRIBUTE - ERROR 17690057 DC 1AL1(2) 3END - RESEND 17740057 DC 5AL1(0) ATTRIBUTE - ERROR 17790057 DC 1AL1(2) 7<-SCROLL+>8 - RESEND 17840057 DC 13AL1(0) ATTRIBUTE - ERROR 17890057 DC 1AL1(2) 9STACK - RESEND 17940057 DC 7AL1(0) ATTRIBUTE - ERROR 17990057 DC 1AL1(2) 10<-SKIP+>11 - RESEND 18040057 DC 50AL1(0) ATTRIBUTE OR MESSAGE - ERROR 18090057 SPACE 18140057 *---------------------------------------------------------------------* 18190057 * PROCESSOR VECTOR FOR CHANGES TO FIELDS ON LINE 1 * 18240057 *---------------------------------------------------------------------* 18290057 SPACE 18340057 YJ002520 DC Y(LC000200-BLSR327B) PROTECTED FIELD CHANGED - BAD 18390057 DC Y(LJ002550-BLSR327B) CONSTANTS FIELD CHANGED - RESEND 18440057 SPACE 18490057 LJ002550 OI NEWWCC,WCCALARM BEEP 18540057 BR R3 18590057 SPACE 18640057 *---------------------------------------------------------------------* 18690057 * MODIFICATIONS TO LINE 2 - ADDRESS STACK * 18740057 *---------------------------------------------------------------------* 18790057 SPACE 18840057 LJ002600 SH R4,=H'3' BYPASS THE FIRST FIELD 18890057 BNP LC000200 PROTECTED FIELD CHANGED - BAD 18940057 SRDA R4,32 PREPARE FOR DIVISION 18990057 D R4,=F'7' REMAINDER SHOULD BE ONE 19040057 BCT R4,LC000200 PROTECTED FIELD CHANGED - BAD 19090057 OI FLAG0,FLAG0RW2 MUST RESURRECT THE PREVIOUS DATA 19140057 B LJ002550 GO BEEP 19190057 SPACE 19240057 *---------------------------------------------------------------------* 19290057 * MODIFICATIONS TO LINE 3 - STACK NOTATION * 19340057 *---------------------------------------------------------------------* 19390057 SPACE 19440057 LJ002700 SH R4,=H'3' BYPASS THE FIRST FIELD 19490057 BNP LC000200 PROTECTED FIELD CHANGED - BAD 19540057 SRDA R4,32 PREPARE FOR DIVISION 19590057 D R4,=F'7' REMAINDER SHOULD BE ONE 19640057 BCT R4,LC000200 PROTECTED FIELD CHANGED - BAD 19690057 LA RF,L'WKANB1 LENGTH OF A NOTES ENTRY 19740057 SLR R4,R4 CLEAR R4 FOR MULTIPLY 19790057 MR R4,RF COMPUTE DISPLACEMENT TO ENTRY 19840057 LA R5,SAVSTK(R5) COMPUTE ADDRESS OF NOTES ENTRY 19890057 LR RF,R9 PUT LENGTH IN SAFE PLACE 19940057 SH RF,=H'3' GET PAST SBA 19990057 BP LJ002720 HE MAY HAVE JUST NULLED FIELD 20040057 MVI 0(R5),NULVALUE INDICATE NULLS 20090057 BR R3 PROCESS REMAINING INPUT 20140057 LJ002720 MVI 0(R5),C' ' INITIALIZE TO 20190057 MVC 1(L'WKANB1-1,R5),0(R5) BLANKS 20240057 BCTR RF,R0 DOWN ONE FOR EXECUTE 20290057 EX RF,IJ002750 MOVE FROM BUFFER TO SAVE AREA 20340057 BR R3 PROCESS REMAINING INPUT 20390057 IJ002750 MVC 0(0,R5),3(RA) *** SUBJ OF EX, ABOVE 20440057 SPACE 20490057 *---------------------------------------------------------------------* 20540057 * MODIFICATIONS TO LINE 5 - SUBCOMMAND * 20590057 *---------------------------------------------------------------------* 20640057 SPACE 20690057 LJ002800 CH R4,=H'16' PROTECTED FIELD BELOW THIS 20740057 BL LC000200 BAD 20790057 LR RF,R9 PUT LENGTH IN SAFE PLACE IT 20840057 SH RF,=H'3' GET PAST SBA 20890057 BP LJ002850 HE MAY HAVE JUST NULLED FIELD 20940057 MVI SAVSBCMD,NULVALUE INDICATE NULLS 20990057 BR R3 PROCESS REMAINING INPUT 21040057 LJ002850 MVI SAVSBCMD,C' ' INITIALIZE TO 21090057 MVC SAVSBCMD+1(65),SAVSBCMD BLANKS 21140057 LA R5,SAVSBCMD -> SAVSBCMD 21190057 BCTR RF,R0 DOWN ONE FOR EXECUTE 21240057 EX RF,IJ002750 MOVE FROM BUFFER TO SAVE AREA 21290057 BR R3 PROCESS REMAINING INPUT 21340057 SPACE 21390057 *---------------------------------------------------------------------* 21440057 * MODIFICATIONS TO LINES 6-24 - DUMP DISPLAY AREA * 21490057 *---------------------------------------------------------------------* 21540057 SPACE 21590057 LJ002900 SH R5,=H'10' ORIGIN LINE NUMBER AT ZERO 21640057 SRL R5,1 GO BACK TO BYTE INDEX 21690057 LA RF,WKALNCTL INDEX TO 21740057 AR RF,R5 -PROPER LINE 21790057 SLR R8,R8 START WITH ZERO 21840057 IC R8,WKALNCTL(R5) VECTOR INTO AREA TABLE 21890057 BCTR R8,0 FORM ZERO ORIGIN INDEX 21940057 SLL R8,2 *(2**2)=4 21990057 LA R8,WKAVCTA(R8) PROPER CONTROL WORD FOR THIS AREA 22040057 LTR R4,R4 ONLY VALID MODIFICATIONS ARE 22090057 BNP LC000200 -BEYOND COLUMN 1 22140057 CLI 34(R8),C'C' IS IT CHARACTER FORMATTING? 22190057 BNE LJ002950 -NO, PERFORM CHECK FOR HEX 22240057 OI 0(RF),WKALNCTW LINE MUST BE REWRITTEN 22290057 BR R3 PROCESS REMAINING INPUT 22340057 SPACE 22390057 LJ002950 SH R4,=H'8' GET BY ADDRESS FIELD 22440057 BP LJ002960 ADDRESS FIELD WAS NOT MODIFIED 22490057 OI 0(RF),WKALNCTW LINE MUST BE REWRITTEN 22540057 BR R3 PROCESS REMAINING INPUT 22590057 LJ002960 SRDA R4,32 PREPARE FOR DIVISION 22640057 D R4,=F'9' EACH DATA FIELD IS #CCCCCCCC 22690057 BCT R4,LC000200 REMAINDER SHOULD BE ONE, ELSE ERR 22740057 OI 0(RF),WKALNCTW LINE MUST BE REWRITTEN 22790057 BR R3 PROCESS REMAINING INPUT 22840057 SPACE 22890057