the value:
X1972 DC XL8'0008126D60E46000'
taken from POP v2.2 pdf pag 7-315 (shifted right 12 bits)
A1970 DC FL8'6307200' 2*365*24*60*60 number of seconds between
1970-01-01-00: 00: 00 and 1972-01-01-00: 00: 00
the routine is reentrant, works without a base register and has no local
areas.
new version without errors, fewer instructions and correct signs.
D1970 RSECT
D1970 AMODE 31
D1970 RMODE ANY
BAKR 14,0
ICM 4,15,0(1) . TS ADDR
LA 4,0(4) . STRIP HOB
LARL 3,MILIONE
USING MILIONE,3
STCK 0(4) . STORE NEW CLOCK
LG 7,0(4) . IN R6
SRLG 7,7,12
LG 8,X1972
SGR 7,8
LG 8,MILIONE
XR 6,6
DSGR 6,8
STG 7,0(4) R6 REMAINDER R7 QUOTIENT
LG 8,A1970
AGR 7,8
STG 7,8(4)
XR 15,15
PR
DS 0F
MILIONE DC FL8'1000000'
A1970 DC FL8'6307200' 2*365*24*60*60
X1972 DC XL8'0008126D60E46000' FROM P.O.P SHIFT R 12
END .new
version (whitouwrsiou
Ai sensi del D.Lgs. 196/2003 si precisa che le informazioni contenute nel
presente messaggio, corredato dei relativi allegati, sono strettamente
riservate ed a uso esclusivo dei destinatari. Qualora Le fosse pervenuto per
errore, La invitiamo ad eliminarlo immediatamente, dandocene gentilmente
comunicazione. Grazie.
------------ *** ------------ *** ------------ *** ------------
