TITLE 'IFFAEA04 - SGDSL - SET GDS LIMITS' 00200021 *STATUS: CHANGE LEVEL 000 00400021 * 00600021 *FUNCTION/OPERATION: CONVERTS GDS LIMITS TO RASTER UNITS. STORES THEM 00800021 * IN THE GDS IN BOTH FLOATING-POINT AND INTEGER, IF SDATL HAS 01000021 * NOT BEEN CALLED, THE DATA LIMITS ARE SET EQUAL TO THE 01200021 * UNCONVERTED GDS LIMITS. 01400021 * 01600021 *ENTRY POINTS: IFFEA04 01800021 * 02000021 *INPUT: REGISTER 1 POINTS TO A WORKAREA. THE FIRST WORD CONTAINS THE 02200021 * ADDRESS OF THE PARAMETER LIST AND THE SECOND, THAT OF THE 02400021 * RETURN ARRAY. 02600021 * 02800021 * REQUIRED PARAMETERS ARE 03000021 * + 0 A(POINTER TO THE GDSCB) 03200021 * 03400021 * + 4 A(LOWER-LEFT X GDS LIMIT) 03600021 * 03800021 * + 8 A(LOWER-LEFT Y GDS LIMIT) 04000021 * 04200021 * +12 A(UPPER-RIGHT X GDS LIMIT) 04400021 * 04600021 * +16 A(UPPER-RIGHT Y GDS LIMIT) 04800021 * 05000021 * OPTIONAL PARAMETERS (ALL MUST BE PROVIDED IF ANY ARE) 05200021 * +20 A(LOWER-LEFT X SCREEN LIMIT) 05400021 * 05600021 * +24 A(LOWER-LEFT Y SCREEN LIMIT) 05800021 * 06000021 * +28 A(UPPER-RIGHT X SCREEN LIMIT) 06200021 * 06400021 * +32 A(UPPER-RIGHT Y SCREEN LIMIT) 06600021 * 06800021 *OUTPUT: NONE TO USER. GDS LIMIT FIELDS ARE FILLED IN THE GDSCB. DATA 07000021 * LIMIT FIELD MAY BE FILLED IN. 07200021 * 07400021 *EXTERNAL ROUTINES: IFFAHA15 (FLOATING-POINT TO INTEGER CONVERSION) 07600021 * 07800021 *EXITS-NORMAL AND ERROR: VIA RETURN MACRO TO DIRECTOR 08000021 * 08200021 *TABLES/WORKAREAS: GSP WORKAREA 08400021 * 08600021 *ATTRIBUTES: PROBLEM STATE, REENTRANT. 08800021 * 09000021 IFFAEA04 CSECT 09200021 SAVE (14,12) 09400021 LR SGL10,SGL01 ADDRESSABILITY FOR WORKAREA 09600021 USING GLWORK,SGL10 09800021 BALR SGL09,0 ADDRESSABILITY FOR CSECT 10000021 USING *,SGL09 10200021 LA SGL02,GLWSAVE GET ADDRESS OF SAVE AREA 10400021 ST SGL13,GLWSAVE+4 CHAIN SAVE AREAS 10600021 ST SGL02,MSVA(SGL13) 10800021 LR SGL13,SGL02 SET UP NEW SAVE AREA 11000021 * 11200021 L SGL11,GLWPARM ADDRESSABILITY FOR PARAMETER 11400021 USING SGLPARM,SGL11 LIST 11600021 * 11800021 L SGL08,GLWRTNA ADDRESSABILITY FOR RETURN ARRAY, 12000021 USING GSPARRAY,SGL08 NULL VARIABLE, STATUS TABLE 12200021 * 12400021 L SGL12,GLPGDSCB GET POINTER TO GDSCB ADDRESS 12600021 L SGL12,0(SGL12) ADDRESSABILITY FOR 12800021 USING GDSCB,SGL12 GDSCB 13000021 * 13200021 C SGL12,GDSGDSCB GDSCB OPEN 13400021 BNE SGL022 NO, ERROR RETURN 13600021 * 13800021 LA SGL02,GSPNULLV GET THE NULL VARIABLE 14000021 SR SGL03,SGL03 INITIALIZE COUNTER 14200021 LA SGL04,4 INITIALIZE INCREMENT 14400021 LA SGL05,12 INITIALIZE COMPARAND 14600021 * 14800021 * GET GRID LIMITS 15000021 * 15200021 SGL001 LA SGL06,GLPGDSCB(SGL03) GET ADDRESS OF PARAMETER 15400021 TM 0(SGL06),X'80' LAST PARAMETER 15600021 BO SGL021 YES, ERROR 15800021 BXLE SGL03,SGL04,SGL001 CONTINUE CHECKING 16000021 * 16200021 LM SGL03,SGL06,GLPGLLX GET ADDRESSES OF GRID LIMITS 16400021 MVC GLWGLLX(4),0(SGL03) TRANSFER GRID 16600021 MVC GLWGLLY(4),0(SGL04) LIMITS TO 16800021 MVC GLWGURX(4),0(SGL05) WORKAREA 17000021 MVC GLWGURY(4),0(SGL06) 17200021 * 17400021 TM GLPGURY,X'80' SCREEN PARAMETERS PASSED 17600021 BO SGL004 NO, TAKE DEFAULT 17800021 * YES, CHECK THEM FOR VALIDITY 18000021 LA SGL03,16 INITIALIZE COUNTER 18200021 LA SGL04,4 INITIALIZE INCREMENT 18400021 LA SGL05,28 INITIALIZE COMPARAND 18600021 * 18800021 SGL002 LA SGL06,GLPGDSCB(SGL03) GET ADDRESS OF PARAMETER 19000021 TM 0(SGL06),X'80' LAST PARAMETER 19200021 BO SGL021 YES, ERROR 19400021 CLC 1(3,SGL02),5(SGL06) NEXT PARAMETER = NULL 19600021 BE SGL003 YES, CHECK FOR ERROR 19800021 BXLE SGL03,SGL04,SGL002 20000021 * 20200021 LM SGL02,SGL05,GLPSLLX GET ADDRESS OF SCREEN LIMITS 20400021 MVC GLWSLLX(4),0(SGL02) MOVE SCREEN 20600021 MVC GLWSLLY(4),0(SGL03) LIMITS INTO 20800021 MVC GLWSURX(4),0(SGL04) WORKAREA 21000021 MVC GLWSURY(4),0(SGL05) 21200021 * 21400021 B SGL008 SET GDS LIMITS IN GDSCB 21600021 * 21800021 SGL003 C SGL03,SGL0016 NULL ON FIRST SCREEN LIMIT 22000021 BNE SGL021 NO, ERROR 22200021 CLC 1(3,SGL02),GLPSLLY+1 YES, ARE ALL 22400021 BNE SGL021 SCREEN LIMITS 22600021 CLC 1(3,SGL02),GLPSURX+1 SET TO THE NULL VARIABLE 22800021 BNE SGL021 NO, ERROR 23000021 CLC 1(3,SGL02),GLPSURY+1 YES, TAKE DEFAULT FOR NO 23200021 BNE SGL021 SCREEN LIMITS 23400021 * 23600021 SGL004 MVC GLWSLLX(4),SGL0000 SET LOWER-LEFT SCREEN 23800021 MVC GLWSLLY(4),SGL0000 LIMITS = 0 24000021 TM GDSDATMD,REALX CHECK UMODE 24200021 BZ SGL005 INTEGER 24400021 MVC GLWSURX(4),SGL4095E REAL-SET UPPER RIGHT LIMIT=4095 24600021 B SGL006 24800021 * 25000021 SGL005 MVC GLWSURX(4),SGL4095 INTEGER X- SET UPPER-RIGHT LIMIT 25200021 SGL006 TM GDSDATMD,REALY CHECK VMODE 25400021 BZ SGL007 25600021 MVC GLWSURY(4),SGL4095E SET UPPER-RIGHT 25800021 B SGL008 LIMIT= 4095 26000021 SGL007 MVC GLWSURY(4),SGL4095 IN PROPER MODE 26200021 * 26400021 SGL008 TM GDSDATMD,REALX CHECK MODE OF X'S 26600021 BZ SGL009 INTEGER 26800021 LE SGL00F,GLWGURX IS GURX VALID 27000021 CE SGL00F,GLWSLLX 27200021 BNH SGL021 NO, ERROR 27400021 LE SGL00F,GLWGLLX IS GLLX VALID 27600021 CE SGL00F,GLWSURX 27800021 BNL SGL021 NO, ERROR 28000021 B SGL010 CHECK Y LIMITS 28200021 * 28400021 SGL009 L SGL02,GLWGURX IS GURX VALID 28600021 C SGL02,GLWSLLX 28800021 BNH SGL021 NO, ERROR 29000021 L SGL02,GLWGLLX IS GLLX VALID 29200021 C SGL02,GLWSURX 29400021 BNL SGL021 NO, ERROR 29600021 * 29800021 SGL010 TM GDSDATMD,REALY CHECK MODE OF Y'S 30000021 BZ SGL011 INTEGER 30200021 LE SGL00F,GLWGURY IS GURY VALID 30400021 CE SGL00F,GLWSLLY 30600021 BNH SGL021 NO, ERROR 30800021 LE SGL00F,GLWGLLY IS GLLY VALID 31000021 CE SGL00F,GLWSURY 31200021 BNL SGL021 NO, ERROR 31400021 B SGL012 31600021 * 31800021 SGL011 L SGL02,GLWGURY IS GURY VALID 32000021 C SGL02,GLWSLLY 32200021 BNH SGL021 NO, ERROR 32400021 L SGL02,GLWGLLY IS GLLY VALID 32600021 C SGL02,GLWSURY 32800021 BNL SGL021 NO, ERROR 33000021 SGL012 L SGL02,GSPASTAT SEE IF CONVERSION ROUTINE IN 33080021 CLC HA15(4,SGL02),SGL0000 CORE 33160021 BNE SGL012A YES, GET ADDRESS 33240021 LOAD EP=IFFAHA15 NO, LOAD IT 33320021 ST SGL00,HA15(SGL02) STORE ADDRESS IN STAT TAB 33400021 SGL012A MVC GLWFIX(4),HA15(SGL02) GET ADDRESS INTO WORKAREA 33480021 * 33600021 SGL013 TM GDSDATMD,REALX CHECK MODE OF X'S 33800021 BZ SGL015 INTEGER 34000021 SGL014 LE SGL00F,GLWSURX COMPUTE SURX-SLLX 34200021 SE SGL00F,GLWSLLX 34400021 BZ SGL021 IF DIFFERENCE = 0, ERROR 34600021 LE SGL02F,GLWGLLX COMPUTE GLLX-SLLX 34800021 SE SGL02F,GLWSLLX 35000021 ME SGL02F,SGL4095E SCALE GLLX COORDINATE 35200021 DER SGL02F,SGL00F 35400021 STE SGL02F,GLWGLLX STORE SCALED VALUE 35600021 * 35800021 LE SGL02F,GLWGURX COMPUTE GURX-SLLX 36000021 SE SGL02F,GLWSLLX 36200021 ME SGL02F,SGL4095E SCALE GURX COORDINATE 36400021 DER SGL02F,SGL00F 36600021 STE SGL02F,GLWGURX STORE SCALED VALUE 36800021 B SGL016 37000021 * 37200021 SGL015 LA SGL01,GLWSLLX CONVERT SLLX TO REAL 37400021 BAL SGL14,SGLFLOAT 37600021 LA SGL01,GLWSURX CONVERT SURX TO REAL 37800021 BAL SGL14,SGLFLOAT 38000021 LA SGL01,GLWGLLX CONVERT GLLX TO REAL 38200021 BAL SGL14,SGLFLOAT 38400021 LA SGL01,GLWGURX CONVERT GURX TO REAL 38600021 BAL SGL14,SGLFLOAT 38800021 B SGL014 SCALE COORDINATES IN REAL 39000021 * 39200021 SGL016 TM GDSDATMD,REALY CHECK MODE OF Y INPUT 39400021 BZ SGL018 CONVERT TO REAL 39600021 SGL017 LE SGL00F,GLWSURY COMPUT SURY-SLLY 39800021 SE SGL00F,GLWSLLY 40000021 BZ SGL021 IF SURY-SLLY, ERROR 40200021 LE SGL02F,GLWGLLY COMPUTE GLLY-SLLY 40400021 SE SGL02F,GLWSLLY 40600021 ME SGL02F,SGL4095E SCALE GLLY COORDINATE 40800021 DER SGL02F,SGL00F 41000021 STE SGL02F,GLWGLLY AND STORE 41200021 * 41400021 LE SGL02F,GLWGURY COMPUTE GURY-SLLY 41600021 SE SGL02F,GLWSLLY 41800021 ME SGL02F,SGL4095E SCALE GURY COORDINATE 42000021 DER SGL02F,SGL00F 42200021 STE SGL02F,GLWGURY AND STORE 42400021 B SGL019 42600021 * 42800021 SGL018 LA SGL01,GLWSLLY CONVERT SLLY TO REAL 43000021 BAL SGL14,SGLFLOAT 43200021 LA SGL01,GLWSURY CONVERT SURY TO REAL 43400021 BAL SGL14,SGLFLOAT 43600021 LA SGL01,GLWGLLY CONVERT GLLY TO REAL 43800021 BAL SGL14,SGLFLOAT 44000021 LA SGL01,GLWGURY CONVERT GURY TO REAL 44200021 BAL SGL14,SGLFLOAT 44400021 B SGL017 SCALE IN REAL 44600021 * 44800021 SGL019 L SGL15,GLWFIX GET REAL TO INTEGER CONVERSION 45000021 * ROUTINE 45200021 L SGL01,GLWGLLX CONVERT GLLX 45400021 BALR SGL14,SGL15 TO INTEGER 45600021 LTR SGL15,SGL15 TEST RETURN CODE 45800021 BC 7,SGL021 REGISTER 15 NON-ZERO, ERROR 46000021 ST SGL01,GLWGLX STORE 46200021 * 46400021 L SGL15,GLWFIX CONVERT 46600021 L SGL01,GLWGLLY GLLY 46800021 BALR SGL14,SGL15 TO 47000021 LTR SGL15,SGL15 INTEGER 47200021 BC 7,SGL021 AND 47400021 ST SGL01,GLWGLY STORE 47600021 * 47800021 L SGL15,GLWFIX CONVERT 48000021 L SGL01,GLWGURX GURX 48200021 BALR SGL14,SGL15 TO 48400021 LTR SGL15,SGL15 INTEGER 48600021 BC 7,SGL021 AND 48800021 ST SGL01,GLWGUX STORE 49000021 * 49200021 L SGL15,GLWFIX CONVERT 49400021 L SGL01,GLWGURY GURY 49600021 BALR SGL14,SGL15 TO 49800021 LTR SGL15,SGL15 INTEGER 50000021 BC 7,SGL021 AND 50200021 ST SGL01,GLWGUY STORE 50400021 * 50600021 MVC GDSXVILL(4),GLWGLX STORE INTEGER 50800021 MVC GDSYVILL(4),GLWGLY GRID LIMITS 51000021 MVC GDSXVIUR(4),GLWGUX IN GDSCB 51200021 MVC GDSYVIUR(4),GLWGUY 51400021 * 51600021 MVC GDSXVRLL(4),GLWGLLX STORE REAL 51800021 MVC GDSYVRLL(4),GLWGLLY GRID LIMITS 52000021 MVC GDSXVRUR(4),GLWGURX IN GDSCB 52200021 MVC GDSYVRUR(4),GLWGURY 52400021 * 52600021 MVI GSPARRAY,X'00' SET NORMAL RETURN 52800021 TM GDSFLGS2,SDATLFLG HAS SDATL BEEN CALLED 53000021 BZ SGL023 NO, SET DATA LIMITS=GDS LIMITS 53200021 * 53220021 SGL020 L SGL02,GDSAOACB GET ADDRESS OF OACB 53240021 TM OACBFLGS(SGL02),NODATA IS ANY DATA IN GDS 53260021 BZ SGL020B YES, EXIT 53280021 SR SGL02,SGL02 NO, SEE IF (0,0) IN GDS 53300021 C SGL02,GDSXVILL 53320021 BL SGL020A 53340021 C SGL02,GDSYVILL IF IT IS, EXIT NORMALLY 53360021 BNL SGL020B 53380021 * 53400021 SGL020A MVC GDSXLAST(8),GDSXVILL IF IT IS NOT IN THE GDS, SET 53420021 MVC GDSXCURR(2),GDSXVILL+2 INITIAL VALUES OF GDSXLAST, 53440021 MVC GDSYCURR(2),GDSYVILL+2 GDSYLAST, GDSXCURR, & GDSYCURR 53460021 NI GDSXCURR+1,TRUNC TO THE LOWER-LEFT CORNER OF THE 53480021 NI GDSYCURR+1,TRUNC GDS 53500021 * 53520021 SGL020B L SGL13,HSVA(SGL13) GET ADDRESS OF SAVE AREA 53540021 RETURN (14,12),T 53600021 * 53800021 * PARAMETER ERROR 54000021 * 54200021 SGL021 MVI GSPARRAY,PARERR INDICATE PARAMETER ERROR 54400021 XC GSPARRAY+16(4),GSPARRAY+16 SET ADDITIONAL WORD = 0 54600021 B SGL020 54800021 * 55000021 SGL022 MVI GSPARRAY,PARERR INDICATE PARAMETER ERROR 55200021 MVC GSPARRAY+16,SGL0001 BAD GDSCB 55400021 B SGL020 55600021 * 55800021 SGL023 LM SGL02,SGL05,GLPGLLX GET ADDRESSES OF INPUT GDS LIMS 56000021 MVC GDSUVLLL(4),0(SGL02) SET DATA LIMITS 56200021 MVC GDSVVLLL(4),0(SGL03) EQUAL TO THE 56400021 MVC GDSUVLUR(4),0(SGL04) INPUT GDS LIMITS 56600021 MVC GDSVVLUR(4),0(SGL05) 56800021 B SGL020 57000021 * 57200021 SGLFLOAT CLC 0(4,SGL01),SGL0000 NUMBER TO BE CONVERTED =0 57400021 BCR 8,SGL14 YES, IMMEDIATE RETURN 57600021 MVC GLWCONV(4),SGLCON SET UP CONVERSION CONSTANT 57800021 TM 0(SGL01),X'80' IS NUMBER TO BE CONVERTED 58000021 BO SGLFLT2 NEGATIVE. YES. 58200021 SGLFLT1A MVC GLWCONV+4(4),0(SGL01) NO, MOVE NUMBER INTO AREA 58400021 SGLFLT1 LD SGL00F,GLWCONV GET UNNORMALIZED NUMBER 58600021 AD SGL00F,SGL0000 AND NORMALIZE 58800021 STE SGL00F,0(SGL01) STORE NORMALIZED NUMBER 59000021 BR SGL14 RETURN 59200021 * 59400021 SGLFLT2 OI GLWCONV,X'80' SET SIGN BIT 59600021 CLC SGLMAXN(4),0(SGL01) MAMIMUM NAGATIVE NUMBER 59800021 BE SGLFLT1A YES, TREAT AS POSITIVE NUMBER 60000021 L SGL02,0(SGL01) N3, GET MAGNITUDE 60200021 LPR SGL02,SGL02 60400021 ST SGL02,GLWCONV+4 STORE IN WORKAREA 60600021 B SGLFLT1 AND NORMALIZE 60800021 * 61000021 * 61200021 * CONSTANT AREA 61400021 * 61600021 SGL4095 DC F'4095' 61800021 SGL4095E DC E'4095' 62000021 SGLCON DC X'4E000000' 62200021 SGL0016 DC F'16' 62400021 SGLMAXN DC X'80000000' 62600021 SGL0001 DC F'1' 62800021 SGL0000 DC D'0' 63000021 HSVA EQU 4 63200021 MSVA EQU 8 63400021 CVTLINK EQU 8 63600021 CVTPTR EQU 16 63800021 REALPARS EQU X'CC' 64200021 REALX EQU X'C0' 64400021 REALY EQU X'0C' 64600021 PARERR EQU X'08' 64800021 SDATLFLG EQU X'01' 65000021 NODATA EQU X'80' 65050021 OACBFLGS EQU 8 65100021 TRUNC EQU X'FC' 65150021 HA15 EQU X'39C' STAT TAB DISPLACEMENT 65170021 * 65200021 * REGISTER EQUATES 65400021 * 65600021 SGL00 EQU 0 65800021 SGL01 EQU 1 66000021 SGL02 EQU 2 66200021 SGL03 EQU 3 66400021 SGL04 EQU 4 66600021 SGL05 EQU 5 66800021 SGL06 EQU 6 67000021 SGL08 EQU 8 67200021 SGL09 EQU 9 67400021 SGL10 EQU 10 67600021 SGL11 EQU 11 67800021 SGL12 EQU 7 68000021 SGL13 EQU 13 68200021 SGL14 EQU 14 68400021 SGL15 EQU 15 68600021 SGL00F EQU 0 68800021 SGL02F EQU 2 69000021 SGLPARM DSECT 69200021 GLPGDSCB DS F 69400021 GLPGLLX DS F 69600021 GLPGLLY DS F 69800021 GLPGURX DS F 70000021 GLPGURY DS F 70200021 GLPSLLX DS F 70400021 GLPSLLY DS F 70600021 GLPSURX DS F 70800021 GLPSURY DS F 71000021 GLWORK DSECT 71200021 GLWPARM DS F 71400021 GLWRTNA DS F 71600021 GLWSAVE DS 18F 71800021 GLWSLLX DS F 72000021 GLWSLLY DS F 72200021 GLWSURX DS F 72400021 GLWSURY DS F 72600021 GLWGLLX DS F 72800021 GLWGLLY DS F 73000021 GLWGURX DS F 73200021 GLWGURY DS F 73400021 GLWFIX DS F 73600021 GLWCONV DS D 73800021 GLWGLX DS F 74000021 GLWGLY DS F 74200021 GLWGUX DS F 74400021 GLWGUY DS F 74600021 COPY GSPCB 74800021 COPY GDSCB 75000021 END 75200021