DVBANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 10, 1995@13:51:40
;;2.7;AMIE;;Apr 10, 1995
;;7.2;APR 10, 1995@13:51:40
S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2="" S X=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T W !,X X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")
G CONT^DVBANTE0
K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
W ! G CONT
ROU ;;
DVBAADM1 ;;638257
DVBAADMR ;;3192270
DVBAADRP ;;11281413
DVBAALRT ;;969678
DVBAAPLK ;;6762813
DVBACERT ;;16541319
DVBACMRP ;;14742419
DVBACRMS ;;8195822
DVBACRRP ;;6672179
DVBACRRR ;;7192044
DVBADSCK ;;11427543
DVBADSNT ;;14580376
DVBADSR1 ;;3955541
DVBADSRP ;;14116837
DVBADSRT ;;11545161
DVBADXFR ;;5748263
DVBAEDIT ;;9839591
DVBAENVR ;;5167682
DVBAERMK ;;822652
DVBAFINL ;;5664221
DVBAI001 ;;3984946
DVBAI002 ;;7866078
DVBAI003 ;;9465736
DVBAI004 ;;9426448
DVBAI005 ;;9168773
DVBAI006 ;;9757793
DVBAI007 ;;9844024
DVBAI008 ;;9414143
DVBAI009 ;;9305581
DVBAI00A ;;9714050
DVBAI00B ;;9020543
DVBAI00C ;;9205465
DVBAI00D ;;9275269
DVBAI00E ;;10702094
DVBAI00F ;;9264996
DVBAI00G ;;9888686
DVBAI00H ;;8631990
DVBAI00I ;;2666346
DVBAI00J ;;8624033
DVBAI00K ;;11375562
DVBAI00L ;;9023586
DVBAI00M ;;3654681
DVBAI00N ;;8288884
DVBAI00O ;;1499139
DVBAI00P ;;8500746
DVBAI00Q ;;9547260
DVBAI00R ;;11396004
DVBAI00S ;;10868518
DVBAI00T ;;9805564
DVBAI00U ;;8802965
DVBAI00V ;;7168357
DVBAI00W ;;9596589
DVBAI00X ;;10329148
DVBAI00Y ;;8702207
DVBAI00Z ;;9399915
DVBAI010 ;;3326017
DVBAI011 ;;3708388
DVBAI012 ;;1579336
DVBAI013 ;;8361562
DVBAI014 ;;1684479
DVBAI015 ;;7142274
DVBAI016 ;;7573161
DVBAI017 ;;4202819
DVBAI018 ;;6043854
DVBAI019 ;;1963020
DVBAI01A ;;4682695
DVBAI01B ;;8066247
DVBAI01C ;;8472098
DVBAI01D ;;6719976
DVBAI01E ;;7549877
DVBAI01F ;;6406205
DVBAI01G ;;9927999
DVBAI01H ;;11184873
DVBAI01I ;;10454297
DVBAI01J ;;11118349
DVBAI01K ;;7304944
DVBAI01L ;;7088947
DVBAI01M ;;8609341
DVBAI01N ;;23872670
DVBAI01O ;;12878748
DVBAI01P ;;16144162
DVBAI01Q ;;15894662
DVBAI01R ;;13555576
DVBAI01S ;;10109941
DVBAI01T ;;8315375
DVBAI01U ;;7822572
DVBAI01V ;;8807572
DVBAI01W ;;8780467
DVBAI01X ;;9786334
DVBAI01Y ;;7073206
DVBAI01Z ;;8706653
DVBAI020 ;;8048446
DVBAI021 ;;7564126
DVBAI022 ;;9900450
DVBAI023 ;;9894542
DVBAI024 ;;5713031
DVBAI025 ;;4951735
DVBAI026 ;;3222134
DVBAINI1 ;;5770759
DVBAINI2 ;;5232529
DVBAINI3 ;;16092457
DVBAINI4 ;;3357701
DVBAINI5 ;;1903353
DVBAINIS ;;2207479
DVBAINIT ;;11258137
DVBAL ;;3279129
DVBALD ;;1530456
DVBALD1 ;;4391960
DVBANT21 ;;698454
DVBAO001 ;;6460949
DVBAO002 ;;4296819
DVBAONI1 ;;1696470
DVBAONI2 ;;82755
DVBAONI3 ;;10576517
DVBAONIT ;;991575
DVBAORPH ;;3955878
DVBAPADD ;;3497529
DVBAPB1 ;;17920740
DVBAPBDY ;;2080048
DVBAPCXR ;;54860
DVBAPEND ;;6684165
DVBAPK1 ;;8583019
DVBAPK2 ;;6721462
DVBAPK3 ;;9969058
DVBAPK4 ;;7382410
DVBAPK5 ;;20407396
DVBAPK6 ;;3832227
DVBAPK7 ;;13981008
DVBAPK8 ;;6707125
DVBAPK9 ;;14020154
DVBAPKY ;;3837287
DVBAPL1 ;;4046552
DVBAPL10 ;;6712841
DVBAPL2 ;;7267685
DVBAPL3 ;;7327937
DVBAPL4 ;;2566783
DVBAPL5 ;;6525199
DVBAPL6 ;;6047068
DVBAPL7 ;;5890852
DVBAPL8 ;;6021230
DVBAPL9 ;;2474407
DVBAPLL ;;7328205
DVBAPLNG ;;3091129
DVBAPND1 ;;10210532
DVBAPOK1 ;;160506
DVBAPOKY ;;3153890
DVBAPOP2 ;;5414428
DVBAPOPU ;;2122566
DVBAPOST ;;7636342
DVBAPRE ;;2020496
DVBAPS1 ;;976623
DVBAPST1 ;;821822
DVBAPST3 ;;6045742
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBANTEG 3787 printed Oct 16, 2024@17:42:16 Page 2
DVBANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 10, 1995@13:51:40
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 ;;7.2;APR 10, 1995@13:51:40
+3 SET XT4="I 1"
SET X=$TEXT(+3)
WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
CONT FOR XT1=1:1
SET XT2=$TEXT(ROU+XT1)
if XT2=""
QUIT
SET X=$PIECE(XT2," ",1)
SET XT3=$PIECE(XT2,";",3)
XECUTE XT4
IF $TEST
WRITE !,X
XECUTE ^%ZOSF("TEST")
if '$TEST
SET XT3=0
if XT3
XECUTE ^%ZOSF("RSUM")
WRITE ?10,$SELECT('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$CHAR(7)_Y_", off by "_(Y-XT3),1:"ok")
+1 GOTO CONT^DVBANTE0
+2 KILL %1,%2,%3,X,Y,XT1,XT2,XT3,XT4
QUIT
ONE SET XT4="I $D(^UTILITY($J,X))"
SET X=$TEXT(+3)
WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
+1 WRITE !,"Check a subset of routines:"
KILL ^UTILITY($JOB)
XECUTE ^%ZOSF("RSEL")
+2 WRITE !
GOTO CONT
ROU ;;
DVBAADM1 ;;638257
DVBAADMR ;;3192270
DVBAADRP ;;11281413
DVBAALRT ;;969678
DVBAAPLK ;;6762813
DVBACERT ;;16541319
DVBACMRP ;;14742419
DVBACRMS ;;8195822
DVBACRRP ;;6672179
DVBACRRR ;;7192044
DVBADSCK ;;11427543
DVBADSNT ;;14580376
DVBADSR1 ;;3955541
DVBADSRP ;;14116837
DVBADSRT ;;11545161
DVBADXFR ;;5748263
DVBAEDIT ;;9839591
DVBAENVR ;;5167682
DVBAERMK ;;822652
DVBAFINL ;;5664221
DVBAI001 ;;3984946
DVBAI002 ;;7866078
DVBAI003 ;;9465736
DVBAI004 ;;9426448
DVBAI005 ;;9168773
DVBAI006 ;;9757793
DVBAI007 ;;9844024
DVBAI008 ;;9414143
DVBAI009 ;;9305581
DVBAI00A ;;9714050
DVBAI00B ;;9020543
DVBAI00C ;;9205465
DVBAI00D ;;9275269
DVBAI00E ;;10702094
DVBAI00F ;;9264996
DVBAI00G ;;9888686
DVBAI00H ;;8631990
DVBAI00I ;;2666346
DVBAI00J ;;8624033
DVBAI00K ;;11375562
DVBAI00L ;;9023586
DVBAI00M ;;3654681
DVBAI00N ;;8288884
DVBAI00O ;;1499139
DVBAI00P ;;8500746
DVBAI00Q ;;9547260
DVBAI00R ;;11396004
DVBAI00S ;;10868518
DVBAI00T ;;9805564
DVBAI00U ;;8802965
DVBAI00V ;;7168357
DVBAI00W ;;9596589
DVBAI00X ;;10329148
DVBAI00Y ;;8702207
DVBAI00Z ;;9399915
DVBAI010 ;;3326017
DVBAI011 ;;3708388
DVBAI012 ;;1579336
DVBAI013 ;;8361562
DVBAI014 ;;1684479
DVBAI015 ;;7142274
DVBAI016 ;;7573161
DVBAI017 ;;4202819
DVBAI018 ;;6043854
DVBAI019 ;;1963020
DVBAI01A ;;4682695
DVBAI01B ;;8066247
DVBAI01C ;;8472098
DVBAI01D ;;6719976
DVBAI01E ;;7549877
DVBAI01F ;;6406205
DVBAI01G ;;9927999
DVBAI01H ;;11184873
DVBAI01I ;;10454297
DVBAI01J ;;11118349
DVBAI01K ;;7304944
DVBAI01L ;;7088947
DVBAI01M ;;8609341
DVBAI01N ;;23872670
DVBAI01O ;;12878748
DVBAI01P ;;16144162
DVBAI01Q ;;15894662
DVBAI01R ;;13555576
DVBAI01S ;;10109941
DVBAI01T ;;8315375
DVBAI01U ;;7822572
DVBAI01V ;;8807572
DVBAI01W ;;8780467
DVBAI01X ;;9786334
DVBAI01Y ;;7073206
DVBAI01Z ;;8706653
DVBAI020 ;;8048446
DVBAI021 ;;7564126
DVBAI022 ;;9900450
DVBAI023 ;;9894542
DVBAI024 ;;5713031
DVBAI025 ;;4951735
DVBAI026 ;;3222134
DVBAINI1 ;;5770759
DVBAINI2 ;;5232529
DVBAINI3 ;;16092457
DVBAINI4 ;;3357701
DVBAINI5 ;;1903353
DVBAINIS ;;2207479
DVBAINIT ;;11258137
DVBAL ;;3279129
DVBALD ;;1530456
DVBALD1 ;;4391960
DVBANT21 ;;698454
DVBAO001 ;;6460949
DVBAO002 ;;4296819
DVBAONI1 ;;1696470
DVBAONI2 ;;82755
DVBAONI3 ;;10576517
DVBAONIT ;;991575
DVBAORPH ;;3955878
DVBAPADD ;;3497529
DVBAPB1 ;;17920740
DVBAPBDY ;;2080048
DVBAPCXR ;;54860
DVBAPEND ;;6684165
DVBAPK1 ;;8583019
DVBAPK2 ;;6721462
DVBAPK3 ;;9969058
DVBAPK4 ;;7382410
DVBAPK5 ;;20407396
DVBAPK6 ;;3832227
DVBAPK7 ;;13981008
DVBAPK8 ;;6707125
DVBAPK9 ;;14020154
DVBAPKY ;;3837287
DVBAPL1 ;;4046552
DVBAPL10 ;;6712841
DVBAPL2 ;;7267685
DVBAPL3 ;;7327937
DVBAPL4 ;;2566783
DVBAPL5 ;;6525199
DVBAPL6 ;;6047068
DVBAPL7 ;;5890852
DVBAPL8 ;;6021230
DVBAPL9 ;;2474407
DVBAPLL ;;7328205
DVBAPLNG ;;3091129
DVBAPND1 ;;10210532
DVBAPOK1 ;;160506
DVBAPOKY ;;3153890
DVBAPOP2 ;;5414428
DVBAPOPU ;;2122566
DVBAPOST ;;7636342
DVBAPRE ;;2020496
DVBAPS1 ;;976623
DVBAPST1 ;;821822
DVBAPST3 ;;6045742
