* UIHSET MAKPO - ðOäKìàþéTø CBOê OâPAâOTþéK ðPEPùBAHéê HSET0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 26.04.88 BPEMñ 20.20 * æOKõC HSET0002 * UIHSET ,PSW=/EXT/SVC/PC/MC/IO HSET0003 * ðPOçPAMMA äOìöHA éMETø KEY=ZERO éìé MODE=SUP ! HA BùXOäE: HSET0004 * R1 - AäPEC OâPAâOTþéKA (ä.â. COXPAHEH äìñ ðOCìEäõàýEçO CHñTéñ) HSET0005 * R15 - KOä BOúBPATA: 0 - OâPAâOTþéK ðOäKìàþEH HSET0006 * 4 - HEBEPHùê CðéCOK ðAPAMETPOB HSET0007 * 8 - ðìOXAñ CéCTEMA - ðOäKìàþEHéE HEBOúMOöHO HSET0008 * äìñ ðPOçPAMMù OâPAâOTKé: R15 - AäPEC T. BXOäA; R14 - AäPEC BOúBPA- HSET0009 * TA (BOúBPAT TOìøKO ðO BR 14 !!!); R13 - A. OâìACTé 16 CìOB, CO- HSET0010 * äEPöAýEê úHAþEHéñ PEçéCTPOB B MOMEHT ðPEPùBAHéñ HSET0011 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 HSET0012 MACRO HSET0013 &NAME UIHSET &PGM,&PSW= HSET0014 &NAME IHBLADR 1,&PGM,'AäPEC ðPOçPAMMù OâPAâOTKé ðPEPùBAHéê' HSET0015 AIF ('&PSW' NE 'EXT').L1 HSET0016 LA 0,X'58' HOBOE PSW BHEûHéX ðPEPùBAHéê HSET0017 AGO .SVC HSET0018 .L1 AIF ('&PSW' NE 'SVC').L2 HSET0019 LA 0,X'60' HOBOE PSW SVC-ðPEPùBAHéê HSET0020 AGO .SVC HSET0021 .L2 AIF ('&PSW' NE 'PC').L3 HSET0022 LA 0,X'68' HOBOE PSW ðPOçPAMMHùX ðPEPùBAHéê HSET0023 AGO .SVC HSET0024 .L3 AIF ('&PSW' NE 'MC').L4 HSET0025 LA 0,X'70' HOBOE PSW ðPEPùBAHéê CXEM KOHTPOìñ HSET0026 AGO .SVC HSET0027 .L4 AIF ('&PSW' NE 'IO').L5 HSET0028 LA 0,X'78' HOBOE PSW ðPEPùBAHéê BBOäA/BùBOäA HSET0029 AGO .SVC HSET0030 .L5 IHBLADR 0,&PSW,'"PSW" - HOBOE PSW ðPEPùBAHéê' HSET0031 .SVC XR 15,15 HSET0032 SLSVC I1 HSET0033 MEND HSET0034