- AUZOSF ;TRANSFER TO MGR AND REMOVE THIS LINE [ 01/28/86 2:01 PM ]
- ZOSFDSM ;; SETS UP ^%ZOSF FOR DSM-3 ON PDP 11'S [ 10/16/85 11:27 AM ]
- ;OCAO/IHS DRS
- I $N(^%ZOSF(0))+1 W *7,!,"^%ZOSF GLOBAL ALREADY EXISTS. WANT TO RE-INITIALIZE? NO// " R X I X["Y" W " OK" F I=0:0 S X=$N(^%ZOSF(0)) Q:X<0 K ^(X)
- I $D(^%ZTSK(0))[0 S ^%ZTSK(0)=1000
- F I=1:2 S Z=$P($T(Z+I),";",2) Q:Z="" S X=$P($T(Z+1+I),";",2,99) S:'$D(^%ZOSF(Z)) ^%ZOSF(Z)=X
- MGR W !,"NAME OF MANAGER'S UCI: "_^%ZOSF("MGR")_"// " R X I X'?."?" S ^("MGR")=X,I=X X ^("UCICHECK") I Y=""!(X'=I) W "??" G MGR
- PROD W !,"PRODUCTION (SIGN-ON) UCI: "_^%ZOSF("PROD")_"// " R X I X]"" X ^("UCICHECK") G PROD:Y="" S ^%ZOSF("PROD")=Y
- W !!,"ALL SET UP",!! Q
- Z ;
- ;AVJ
- ;S Y=63-$V($V(44)+350)
- ;BRK
- ;B 1
- ;CPU
- ;S Y=^%ZOSF("MGR"),Y=^[Y]SYS(0,"RUNNING")
- ;DEL
- ;X "ZR ZS @X" K ^UTILITY("ROU",X)
- ;EOFF
- ;U $I:(::::1)
- ;EON
- ;U $I:(:::::1)
- ;EOT
- ;S Y=$ZA\1024#2
- ;ETRP
- ;S $ZT=X
- ;GD
- ;D ^%GD
- ;LOAD
- ;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
- ;MAXSIZ
- ;Q
- ;MGR
- ;MGR,AAA
- ;NBRK
- ;B 0
- ;NO-TYPE-AHEAD
- ;U $I:(::::100663296)
- ;OS
- ;DSM-3
- ;PRIORITY
- ;D PRIORITY^%ZTMS
- ;PROD
- ;VAH,AAA
- ;RD
- ;D ^%RD
- ;RM
- ;U $I:X
- ;SAVE
- ;S XCS="F XCM=1:1 S XCN=$O(@(DIE_XCN_"")"")) Q:+XCN'=XCN S %=^(XCN,0) Q:$E(%,1)=""$"" I $E(%,1)'="";"" ZI %" X "ZR X XCS ZS @X" S ^UTILITY("ROU",X)="" K XCS
- ;SIGNOFF
- ;I 0
- ;SIZE
- ;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
- ;TEST
- ;I $D(^ ("ROU",X))
- ;TMK
- ;S Y=$ZA\16384#2
- ;TYPE-AHEAD
- ;U $I:(::::67108864:33554432)
- ;UCI
- ;S Y=$ZU(0)
- ;UCICHECK
- ;D UCICHECK^%ZTMS
- ;ZD
- ;S %H=X D 7^%DTC S Y=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
- ;TONL
- ;S Y=$ZA\64#2
- ;TWP
- ;S Y=$ZA\4#2
- ;TERCOND
- ;S Y=$ZA\32768#2
- ;TRW
- ;W *5
- ;TWLB
- ;W *4
- AUZOSF ;TRANSFER TO MGR AND REMOVE THIS LINE [ 01/28/86 2:01 PM ]
- ZOSFDSM ;; SETS UP ^%ZOSF FOR DSM-3 ON PDP 11'S [ 10/16/85 11:27 AM ]
- +1 ;OCAO/IHS DRS
- +2
- *** ERROR ***
- IF $N(^%ZOSF(0))+1
- WRITE *7,!,"^%ZOSF GLOBAL ALREADY EXISTS. WANT TO RE-INITIALIZE? NO// "
- READ X
- IF X["Y"
- WRITE " OK"
- FOR I=0:0