Hello.
I am new to assembler, so not sure i am pharsing the query correctly.
In the attached code whether if the ITMAP bit is on for a memory location, then
after executing the below code is it going to be turned off.?
So basically need to know what all condtions the BIT gets turned on and off in
ITMAP layout ?
XI@TM XI 0(R6),0
Thanks
Ron T
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
IT160
IT161
SN042
SN113
SN238
8421
0110
0001,0110,1101
FORCEONE DS 0H * 00000898
PACK T@SAVE,CDSTOR FIND BIT DISPLACEMENT * 00000899
DP T@SAVE,=P'8' FOR STORE NUMBER. * 00000900
ZAP BYTE,T@SAVE(7) QUOTIENT IS BYTE DISPLACEMENT. * 00000910
ZAP BIT,T@SAVE+7(1) REMAINDER IS BIT DISPLACEMENT. * 00000920
ZAP T@SAVE,BYTE CONVERT BYTE DISPLACEMENT * 00000930
CVB R1,T@SAVE TO BINARY * 00000940
ST R1,BYTE AND SAVE. * 00000950
ZAP T@SAVE,BIT CONVERT BIT DISPLACEMENT * 00000960
CVB R1,T@SAVE TO BINARY * 00000970
STC R1,BIT AND SAVE. * 00000980
TR BIT,TR@TAB TRANSLATE BIT DISPLACEMENT * 00000990
* TO 'TM' BIT. * 00000991
L R4,BYTE BIT MAP DISPLACEMENT. * 00000992
LA R6,ITMAP(R4) BYTE COMPARE ADDRESS. * 00000993
SR R5,R5 CLEAR WORK REGISTER. * 00000994
IC R5,BIT TEST BIT. * 00000995
EX R5,XI@TM TEST THE BIT. * 00000996
BR R2 RETURN * 00000997
* * 00000998
XI@TM XI 0(R6),0 TURN OFF STORE BIT * 00000999
*********************************************************************** 00001000
M@WORK DC 10D'0' MACRO WORK AREA. * 00001796
M@SAVE DC 9D'0' MACRO SAVE AREA. * 00001797
P@SAVE DC 9D'0' PROGRAM SAVE AREA. * 00001798
FEEDBACK DC F'0' * 00001799
DUMPCODE DC H'0' * 00001800
IM2KEY DC XL20'00' IMS11 FILE KEY (READ). * 00001810
SAVEKEY DC XL20'00' IMS12 FILE KEY (REPL). *
ED@CNT DC XL8'4020202020202120' * 00001820
UPD@CNT DC PL4'0' * 00001830
GCY@CNT DC PL4'0' * 00001840
VND@CNT DC PL4'0' * 00001850
DLT@CNT DC PL4'0' * 00001860
ZER@CNT DC PL4'0' * 00001870
* * 00001880
RRNUM DC F'0' TEMPORARY SAVE AREA. * 00001890
T@SAVE DC D'0' TEMPORARY SAVE AREA. * 00001891
UPDCNT DC PL8'0' * * * MUST BE ON DOUBLEWORD BOUNDARY * * * * * 00001892
REGSAVE DC 16F'0' REG SAVE AREA. * 00001893
PACKWK6 DC PL6'0' PACK WORK AREA. * 00001894
FFFF DC 30X'FF' * 00001895
EOFVALUE DC C'000000000' END-OF-FILE INDICATOR. * 00001896
* * 00001897
BYTE DC F'0' * 00001898
BIT DC XL1'00' * 00001899
TR@TAB DC XL8'8040201008040201' * 00001900
LOWVAL DC 750X'00' * 00001910
WRITIM2 DC C'N' * 00001920
* * 00001930
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
