* UIHMODEL COPY - MOäEìø OâPAâOTþéKA ðPEPùBAHéê ODEL0001 * * * ðOCìEäHññ KOPPEKTéPOBKA: äATA 19.04.89 BPEMñ 23.13 * æOKõC ODEL0002 * ODEL0003 * HAXOäéTCñ B 245 ðOäðõìE, OâECðEþéBAET BùXOä HA ðOìøúOBATEìøCKõà ODEL0004 * ðPOçPAMMõ OâPAâOTKé ðPEPùBAHéê. ðPé BùúOBE ðPOçPAMMù OâPAâOTKé: ODEL0005 * ODEL0006 * R15 - AäPEC ðPOçPAMMù OâPAâOTKé ODEL0007 * R14 - AäPEC BOúBPATA äìñ ðEPEäAþé õðPABìEHéñ CìEäõàýEMõ OâPAâ. ODEL0008 * R13 - AäPEC OâìACTé 16 CìOB, COäEPöAýEê úHAþEHéñ PEçéCTPOB 0-15 ODEL0009 * ðPé ðPEPùBAHéé ODEL0010 * ODEL0011 * ðPOçPAMMA OâPAâOTKé OâñúAHA COXPAHéTø úHAþEHéE R14 é BEPHõTø õðPAB- ODEL0012 * ìEHéE ðO KOMAHäE BR14 ! ðPOþéE PEçéCTPù COXPAHñTø HE OâñúATEìøHO. ODEL0013 * äìñ éúMEHEHéñ úHAþEHéñ PEçéCTPOB CìEäõET éúMEHéTø éX B OâìACTé ðO ODEL0014 * AäPECõ R13. ODEL0015 * ECìé ðPOçPAMMA BOúBPAýAET õðPABìEHéE B CéCTEMõ éHùM ðõTEM, OHA ODEL0016 * äOìöHA úAHECTé X'00' B 'UIHAFLAG'. HAðPéMEP: ODEL0017 * ODEL0018 * S 13,=A(UIHSA-UIHAFLAG) ODEL0019 * MVI 0(13),0 ODEL0020 * ODEL0021 * ìEHéHçPAä éBã çõT OTä. 07 ìATùûKO T: 310-98-12 * ODEL0022 SPACE 2 ODEL0023 OPSW EQU 0 AäPEC CTAPOçO PSW ODEL0024 AAA EQU 0 AäPEC Oâì. COXPAHEHéñ CìEäõàýEçO IH ODEL0025 UIHB EQU 1 âAúOBùê PEçéCTP OâPAâOTþéKA *ODEL0026 (éHAþE HE ACCEMâìéPõETCñ) ODEL0027 SPACE 2 ODEL0028 UIHENTRY DS 0D ODEL0029 * ODEL0030 STM 0,0,0 ODEL0031 #BALR#1 BALR UIHB,0 ODEL0032 USING *,UIHB ODEL0033 UIHBPT EQU * ODEL0034 UIHAFLAG EQU *+1 ODEL0035 #B#1 BC 0,UIHRETRN 'CTPEìKA', ðPEäOTBPAýAàýAñ ðOBTOPHùê ODEL0036 *+ 4700 ?... ODEL0037 SPACE ODEL0038 #MVI#1 MVI UIHAFLAG,X'F0' BXOä, âEú BùXOäA ODEL0039 *+ 92F0 ?... ODEL0040 #B#2 B SAVEREGS 6 ODEL0041 *+ 47F0 ?... ODEL0042 SPACE 2 ODEL0043 *---------------------------------------------------------------------* ODEL0044 UIHID DC C'IH' éäEHTéæéKATOP OâPAâOTþéKA ODEL0045 UIHV DC C'1' BAPéAHT OâPAâOTþéKA ODEL0046 UIHSIZE DC AL1((UIHEND-UIHENTRY+7)/8) PAúMEP OâPAâOTþéKA B DW ODEL0047 UIHNPSWP DC AL1(0) + AäPEC HOBOçO PSW, HA KOTOPOM Mù CéäéM ODEL0048 UIHFLAGS DC X'00' æìAöKé : ODEL0049 UIHFLOFF EQU X'80' - BPEMEHHO OTKìàþEH ODEL0050 UIHFLDEL EQU X'40' - ä.â. õäAìEH ODEL0051 UIHFLERR EQU X'01' - B BùúB. ðPOçPAMME ðPOéúOûìO ðP. ðPEP ODEL0052 * ODEL0053 UIHSA DC 16F'0' <--**--> OâìACTø COXPAHEHéñ PEçéCTPOB 0-15 ODEL0054 UIHOPSW DS D CTAPOE PSW ðPEPùBAHéñ ODEL0055 UIHNXTIH DC A(0) + AäPEC CìEäõàýEçO (CéCTEMHOçO) I.H. ODEL0056 USERIHAD DC A(0) + AäPEC ðPOçPAMMù OâPAâOTKé ODEL0057 *---------------------------------------------------------------------* ODEL0058 SPACE 2 ODEL0059 SAVEREGS STM 0,15,UIHSA COXPAHEHéE OCTAìøHùX PEçéCTPOB õ CEâñ ODEL0060 *+ 900F ?... ODEL0061 #MVC#1 MVC UIHSA(4),AAA ðEPEHOC B OâìACTø COXPAHEHéñ ODEL0062 *++ D203 ?... 0??? ODEL0063 #MVCPSW MVC UIHOPSW(8),OPSW COXPAHEHéE CTAPOçO PSW ODEL0064 *++ D207 ?... 00?? ODEL0065 SPACE 2 ODEL0066 #LA#1 LA 13,UIHSA B R1 - AäPEC OâìACTé COXPAHEHéñ ODEL0067 *+ 41D0 ?... ODEL0068 #L#1 L 15,USERIHAD AäPEC ðPOçPAMMù, KOTOPOê þTO-TO HAäO ODEL0069 *+ 58F0 ?... ODEL0070 SPACE ODEL0071 BALR 14,15 BALR HA HEE ODEL0072 SPACE ODEL0073 USING *,14 BPEMEHHAñ âAúA ODEL0074 #L#2 L UIHB,UIHBASEA BOCCTAHOBéìé AäPECAãéà ODEL0075 * + 58?0 E... ODEL0076 DROP 14 ODEL0077 SPACE 2 ODEL0078 #MVC#2 MVC AAA(4),UIHSA ðEPEHOC B CéCTEMHõà Oâì. COXP ODEL0079 *++ D203 0??? ?... ODEL0080 #LM#1 LM 0,0,UIHSA BOCCTAHOBéTø PEçéCTPù - 1 ODEL0081 *+++ 98?? ?... ODEL0082 #LM#2 LM 0,15,UIHSA BOCCTAHOBéTø PEçéCTPù- 2 ODEL0083 *++++ 98?? ???? / 0700 0700 ODEL0084 #MVI#2 MVI UIHAFLAG,X'00' OTMETéTø BùXOä ODEL0085 *+ 9200 ?... ODEL0086 SPACE 2 ODEL0087 UIHRETRN DS 0H ODEL0088 #L#3 L UIHB,UIHNXTIH B âAúOBùê PEçéCTP CìEäõàýEçO IH - ODEL0089 *++ 58 ?0 ?... AäPEC CìEäõàýEçO IH ODEL0090 #LA#2 LA UIHB,4(0,UIHB) ðPOäBéHõTø AäPEC úA KOMAHäõ STM ODEL0091 *++ 41 ?0 ?006 ODEL0092 #BR#1 BR UIHB ðEPEäATø õðPABìEHéE CìEäõàýEMõ ODEL0093 * + 07 F? ODEL0094 * ODEL0095 UIHBASEA DS A (UIHBPT) + ODEL0096 * ODEL0097 UIHEND EQU * ODEL0098 * ODEL0099 * ODEL0100