XPDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUL 10, 1995@09:24:52
;;8.0;KERNEL;;JUL 10, 1995
;;7.2;JUL 10, 1995@09:24:52
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")
;
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 ;;
XLFDT ;;2542000
XLFDT1 ;;1537932
XPDCOM ;;2213245
XPDCOMG ;;8382178
XPDCPU ;;6564663
XPDDCS ;;3052685
XPDDI ;;7059710
XPDDP ;;11284516
XPDE ;;12998234
XPDET ;;3688528
XPDGCDEL ;;2818026
XPDH ;;2594827
XPDI ;;13967703
XPDIA ;;6914717
XPDIA1 ;;4945908
XPDID ;;2414499
XPDIGP ;;6457099
XPDIJ ;;14331384
XPDIK ;;10629573
XPDIL ;;10081002
XPDIL1 ;;6175748
XPDIN001 ;;8911225
XPDIN002 ;;12264533
XPDIN003 ;;8357402
XPDIN004 ;;8061968
XPDIN005 ;;10022912
XPDIN006 ;;9558156
XPDIN007 ;;8115613
XPDIN008 ;;9140117
XPDIN009 ;;3471847
XPDIN00A ;;9058285
XPDIN00B ;;7976280
XPDIN00C ;;6944309
XPDIN00D ;;6861764
XPDIN00E ;;3155079
XPDIN00F ;;921211
XPDIN00G ;;6183213
XPDIN00H ;;5691661
XPDIN00I ;;6023617
XPDIN00J ;;5774284
XPDIN00K ;;5839595
XPDIN00L ;;8152412
XPDIN00M ;;7714345
XPDIN00N ;;6424156
XPDIN00O ;;5629359
XPDIN00P ;;6001373
XPDIN00Q ;;5487755
XPDIN00R ;;5781258
XPDIN00S ;;5743958
XPDIN00T ;;3809597
XPDINIT ;;10210170
XPDINIT1 ;;4893932
XPDINIT2 ;;5232647
XPDINIT3 ;;16808120
XPDINIT4 ;;3357819
XPDINIT5 ;;460403
XPDIP ;;7105579
XPDIPM ;;1889333
XPDIQ ;;6649770
XPDIR ;;2209857
XPDIST ;;2343711
XPDIU ;;5987197
XPDKEY ;;1267561
XPDKRN ;;818184
XPDPINIT ;;223513
XPDR ;;12193352
XPDRSUM ;;1331254
XPDT ;;13681675
XPDTA ;;5532717
XPDTA1 ;;4346384
XPDTC ;;8576205
XPDTP ;;2581228
XPDUTL ;;2317236
XPDV ;;6960037
XQDATE ;;1632193
XQH ;;8451889
XQOO ;;19407312
XQOO1 ;;11594948
XQOO2 ;;6850745
XQOO3 ;;8090117
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDNTEG 2234 printed Dec 13, 2024@02:04:24 Page 2
XPDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUL 10, 1995@09:24:52
+1 ;;8.0;KERNEL;;JUL 10, 1995
+2 ;;7.2;JUL 10, 1995@09:24:52
+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 ;
+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 ;;
XLFDT ;;2542000
XLFDT1 ;;1537932
XPDCOM ;;2213245
XPDCOMG ;;8382178
XPDCPU ;;6564663
XPDDCS ;;3052685
XPDDI ;;7059710
XPDDP ;;11284516
XPDE ;;12998234
XPDET ;;3688528
XPDGCDEL ;;2818026
XPDH ;;2594827
XPDI ;;13967703
XPDIA ;;6914717
XPDIA1 ;;4945908
XPDID ;;2414499
XPDIGP ;;6457099
XPDIJ ;;14331384
XPDIK ;;10629573
XPDIL ;;10081002
XPDIL1 ;;6175748
XPDIN001 ;;8911225
XPDIN002 ;;12264533
XPDIN003 ;;8357402
XPDIN004 ;;8061968
XPDIN005 ;;10022912
XPDIN006 ;;9558156
XPDIN007 ;;8115613
XPDIN008 ;;9140117
XPDIN009 ;;3471847
XPDIN00A ;;9058285
XPDIN00B ;;7976280
XPDIN00C ;;6944309
XPDIN00D ;;6861764
XPDIN00E ;;3155079
XPDIN00F ;;921211
XPDIN00G ;;6183213
XPDIN00H ;;5691661
XPDIN00I ;;6023617
XPDIN00J ;;5774284
XPDIN00K ;;5839595
XPDIN00L ;;8152412
XPDIN00M ;;7714345
XPDIN00N ;;6424156
XPDIN00O ;;5629359
XPDIN00P ;;6001373
XPDIN00Q ;;5487755
XPDIN00R ;;5781258
XPDIN00S ;;5743958
XPDIN00T ;;3809597
XPDINIT ;;10210170
XPDINIT1 ;;4893932
XPDINIT2 ;;5232647
XPDINIT3 ;;16808120
XPDINIT4 ;;3357819
XPDINIT5 ;;460403
XPDIP ;;7105579
XPDIPM ;;1889333
XPDIQ ;;6649770
XPDIR ;;2209857
XPDIST ;;2343711
XPDIU ;;5987197
XPDKEY ;;1267561
XPDKRN ;;818184
XPDPINIT ;;223513
XPDR ;;12193352
XPDRSUM ;;1331254
XPDT ;;13681675
XPDTA ;;5532717
XPDTA1 ;;4346384
XPDTC ;;8576205
XPDTP ;;2581228
XPDUTL ;;2317236
XPDV ;;6960037
XQDATE ;;1632193
XQH ;;8451889
XQOO ;;19407312
XQOO1 ;;11594948
XQOO2 ;;6850745
XQOO3 ;;8090117
