- ESPNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 31, 1994@08:01:37
- ;;1.0;POLICE & SECURITY;;Mar 31, 1994
- ;;7.1;MAR 31, 1994@08:01:37
- 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 ;;
- ESPCLEAN ;;3617130
- ESPDISP ;;8445950
- ESPEVID ;;2633580
- ESPFM ;;671826
- ESPJOU ;;7420205
- ESPLKUP ;;1111906
- ESPMNI ;;8390757
- ESPMNI0 ;;6907068
- ESPMNI1 ;;11760087
- ESPMNI2 ;;7339736
- ESPOFF ;;9577402
- ESPOFF0 ;;4501317
- ESPOFF1 ;;11861002
- ESPOFF2 ;;7874513
- ESPOFF3 ;;2612029
- ESPOFFC ;;1826778
- ESPOFFCL ;;4293110
- ESPOFFDE ;;1304355
- ESPOFFE ;;9140986
- ESPOFI ;;2873726
- ESPOFP ;;4985097
- ESPOID ;;1183794
- ESPORM ;;6476318
- ESPORM1 ;;9780856
- ESPORM2 ;;11613373
- ESPORM3 ;;9391867
- ESPORM4 ;;7212940
- ESPORM5 ;;8440221
- ESPORO ;;1939123
- ESPORP ;;6209059
- ESPORP1 ;;7690242
- ESPORP2 ;;8758394
- ESPORP3 ;;7608208
- ESPORP4 ;;5994947
- ESPORP5 ;;5709927
- ESPORR ;;1457912
- ESPOST ;;75075
- ESPQNC ;;15482737
- ESPRE ;;1342
- ESPREG ;;5049457
- ESPSCR ;;6634426
- ESPSCR0 ;;7329208
- ESPSCR1 ;;6394895
- ESPSOUN ;;8321687
- ESPUCD ;;1892232
- ESPUCM ;;3234667
- ESPUCM1 ;;13162314
- ESPUCM2 ;;11602226
- ESPUCM3 ;;12134922
- ESPUCM4 ;;10696088
- ESPUCM5 ;;7624962
- ESPUCM6 ;;5207702
- ESPUCP ;;3031002
- ESPUCP1 ;;9796208
- ESPUCP2 ;;8227056
- ESPUCP3 ;;8371546
- ESPUCP4 ;;7009374
- ESPUCP5 ;;5482768
- ESPUCP6 ;;3564270
- ESPUCR ;;7931679
- ESPUCR1 ;;7602101
- ESPUCR2 ;;5688017
- ESPUCR3 ;;3880770
- ESPUCR4 ;;10238627
- ESPUCR5 ;;3574673
- ESPUOR ;;284432
- ESPUTIL ;;289821
- ESPUVN ;;11161871
- ESPVAL ;;2569800
- ESPVEH ;;618734
- ESPVNE ;;1686447
- ESPVNP ;;8453293
- ESPVREG ;;9086257
- ESPWR ;;6006260
- ESPWR1 ;;1123731
- ESPXREF ;;2231562
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HESPNTEG 2154 printed Feb 18, 2025@23:56:19 Page 2
- ESPNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 31, 1994@08:01:37
- +1 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
- +2 ;;7.1;MAR 31, 1994@08:01:37
- +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 ;;
- ESPCLEAN ;;3617130
- ESPDISP ;;8445950
- ESPEVID ;;2633580
- ESPFM ;;671826
- ESPJOU ;;7420205
- ESPLKUP ;;1111906
- ESPMNI ;;8390757
- ESPMNI0 ;;6907068
- ESPMNI1 ;;11760087
- ESPMNI2 ;;7339736
- ESPOFF ;;9577402
- ESPOFF0 ;;4501317
- ESPOFF1 ;;11861002
- ESPOFF2 ;;7874513
- ESPOFF3 ;;2612029
- ESPOFFC ;;1826778
- ESPOFFCL ;;4293110
- ESPOFFDE ;;1304355
- ESPOFFE ;;9140986
- ESPOFI ;;2873726
- ESPOFP ;;4985097
- ESPOID ;;1183794
- ESPORM ;;6476318
- ESPORM1 ;;9780856
- ESPORM2 ;;11613373
- ESPORM3 ;;9391867
- ESPORM4 ;;7212940
- ESPORM5 ;;8440221
- ESPORO ;;1939123
- ESPORP ;;6209059
- ESPORP1 ;;7690242
- ESPORP2 ;;8758394
- ESPORP3 ;;7608208
- ESPORP4 ;;5994947
- ESPORP5 ;;5709927
- ESPORR ;;1457912
- ESPOST ;;75075
- ESPQNC ;;15482737
- ESPRE ;;1342
- ESPREG ;;5049457
- ESPSCR ;;6634426
- ESPSCR0 ;;7329208
- ESPSCR1 ;;6394895
- ESPSOUN ;;8321687
- ESPUCD ;;1892232
- ESPUCM ;;3234667
- ESPUCM1 ;;13162314
- ESPUCM2 ;;11602226
- ESPUCM3 ;;12134922
- ESPUCM4 ;;10696088
- ESPUCM5 ;;7624962
- ESPUCM6 ;;5207702
- ESPUCP ;;3031002
- ESPUCP1 ;;9796208
- ESPUCP2 ;;8227056
- ESPUCP3 ;;8371546
- ESPUCP4 ;;7009374
- ESPUCP5 ;;5482768
- ESPUCP6 ;;3564270
- ESPUCR ;;7931679
- ESPUCR1 ;;7602101
- ESPUCR2 ;;5688017
- ESPUCR3 ;;3880770
- ESPUCR4 ;;10238627
- ESPUCR5 ;;3574673
- ESPUOR ;;284432
- ESPUTIL ;;289821
- ESPUVN ;;11161871
- ESPVAL ;;2569800
- ESPVEH ;;618734
- ESPVNE ;;1686447
- ESPVNP ;;8453293
- ESPVREG ;;9086257
- ESPWR ;;6006260
- ESPWR1 ;;1123731
- ESPXREF ;;2231562