169 lines
3.5 KiB
Mathematica
169 lines
3.5 KiB
Mathematica
XTNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950425.092013
|
|
;;7.3;TOOLKIT;;Apr 25, 1995
|
|
;;7.3;2950425.092013
|
|
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^XTNTEG0
|
|
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 ;;
|
|
XDRCNT ;;7651887
|
|
XDRDADD ;;8133407
|
|
XDRDADJ ;;4509269
|
|
XDRDCOMP ;;4431965
|
|
XDRDFPD ;;7816795
|
|
XDRDLIST ;;7786460
|
|
XDRDMAIN ;;5700890
|
|
XDRDOC ;;19083
|
|
XDRDOC1 ;;13351
|
|
XDRDOC2 ;;19767
|
|
XDRDPDTI ;;2075925
|
|
XDRDPRGE ;;3959904
|
|
XDRDQUE ;;9275556
|
|
XDRDSCOR ;;1855732
|
|
XDRDSTAT ;;2676366
|
|
XDRDUP ;;3547600
|
|
XDREMSG ;;4302480
|
|
XDRERR ;;127648
|
|
XDRHLP ;;2681700
|
|
XDRMADD ;;6382715
|
|
XDRMAIN ;;7563507
|
|
XDRMAINI ;;14611797
|
|
XDRMPACK ;;2927651
|
|
XDRMRG ;;14311248
|
|
XDRMRG1 ;;1874512
|
|
XDRMSG ;;1827956
|
|
XDRMVFY ;;1318075
|
|
XDRPREI ;;293004
|
|
XDRU1 ;;1782236
|
|
XINDEX ;;7227772
|
|
XINDX1 ;;6096231
|
|
XINDX10 ;;12585180
|
|
XINDX11 ;;7471101
|
|
XINDX2 ;;5054188
|
|
XINDX3 ;;3897455
|
|
XINDX4 ;;4711071
|
|
XINDX5 ;;6259999
|
|
XINDX51 ;;9529173
|
|
XINDX52 ;;2298647
|
|
XINDX53 ;;4122188
|
|
XINDX6 ;;10179476
|
|
XINDX7 ;;7575886
|
|
XINDX8 ;;6101428
|
|
XINDX9 ;;4045898
|
|
XTBASE ;;2331979
|
|
XTCMFILN ;;4125344
|
|
XTEDTVXD ;;1542362
|
|
XTFC0 ;;11055774
|
|
XTFC1 ;;14547133
|
|
XTFCE ;;5859522
|
|
XTFCE1 ;;6311273
|
|
XTFCR ;;5587602
|
|
XTFCR1 ;;3692308
|
|
XTINEND ;;5215462
|
|
XTINI001 ;;5950864
|
|
XTINI002 ;;4393549
|
|
XTINI003 ;;6019987
|
|
XTINI004 ;;4028880
|
|
XTINI005 ;;3990558
|
|
XTINI006 ;;9416677
|
|
XTINI007 ;;9086371
|
|
XTINI008 ;;8419298
|
|
XTINI009 ;;8019911
|
|
XTINI00A ;;9113926
|
|
XTINI00B ;;11110278
|
|
XTINI00C ;;11151493
|
|
XTINI00D ;;9306443
|
|
XTINI00E ;;8494510
|
|
XTINI00F ;;8489467
|
|
XTINI00G ;;7747693
|
|
XTINI00H ;;7094018
|
|
XTINI00I ;;7643278
|
|
XTINI00J ;;8405097
|
|
XTINI00K ;;7198108
|
|
XTINI00L ;;6651500
|
|
XTINI00M ;;8180768
|
|
XTINI00N ;;7132260
|
|
XTINI00O ;;2910462
|
|
XTINI00P ;;7694041
|
|
XTINI00Q ;;8160242
|
|
XTINI00R ;;9440499
|
|
XTINI00S ;;9016307
|
|
XTINI00T ;;9491800
|
|
XTINI00U ;;10283373
|
|
XTINI00V ;;8766708
|
|
XTINI00W ;;6509886
|
|
XTINI00X ;;8595714
|
|
XTINI00Y ;;7948819
|
|
XTINI00Z ;;1773424
|
|
XTINI010 ;;7071607
|
|
XTINI011 ;;5531060
|
|
XTINI012 ;;7968888
|
|
XTINI013 ;;11142565
|
|
XTINI014 ;;2687098
|
|
XTINI015 ;;8767076
|
|
XTINI016 ;;3859202
|
|
XTINI017 ;;7490625
|
|
XTINI018 ;;2613367
|
|
XTINI019 ;;4541347
|
|
XTINI01A ;;7350290
|
|
XTINI01B ;;3719011
|
|
XTINI01C ;;6289769
|
|
XTINI01D ;;1212716
|
|
XTINI01E ;;5998915
|
|
XTINI01F ;;5482770
|
|
XTINI01G ;;3469421
|
|
XTINI01H ;;1876516
|
|
XTINI01I ;;5948679
|
|
XTINI01J ;;5624949
|
|
XTINI01K ;;7118498
|
|
XTINI01L ;;5020375
|
|
XTINI01M ;;6515584
|
|
XTINI01N ;;7612374
|
|
XTINI01O ;;7804125
|
|
XTINI01P ;;7864176
|
|
XTINI01Q ;;7980433
|
|
XTINI01R ;;7872517
|
|
XTINI01S ;;7885668
|
|
XTINI01T ;;8156338
|
|
XTINI01U ;;5743708
|
|
XTINI01V ;;8379152
|
|
XTINI01W ;;7143097
|
|
XTINI01X ;;6494785
|
|
XTINI01Y ;;6468654
|
|
XTINI01Z ;;6344717
|
|
XTINI020 ;;6053332
|
|
XTINI021 ;;6154942
|
|
XTINI022 ;;6263758
|
|
XTINI023 ;;6988435
|
|
XTINI024 ;;7095170
|
|
XTINI025 ;;5225531
|
|
XTINI026 ;;6836611
|
|
XTINI027 ;;7165347
|
|
XTINI028 ;;7867999
|
|
XTINI029 ;;5902113
|
|
XTINI02A ;;7114778
|
|
XTINI02B ;;6562588
|
|
XTINI02C ;;5066519
|
|
XTINI02D ;;4746121
|
|
XTINI02E ;;3747162
|
|
XTINI02F ;;1763576
|
|
XTINIS ;;2134872
|
|
XTINIT ;;11072830
|
|
XTINIT1 ;;5762600
|
|
XTINIT2 ;;5232093
|
|
XTINIT3 ;;16090016
|
|
XTINIT4 ;;3357263
|
|
XTINIT5 ;;1525744
|
|
XTINITY ;;15382450
|
|
XTINOK ;;2394003
|
|
XTKERM1 ;;5596187
|
|
XTKERM2 ;;7359658
|
|
XTKERM3 ;;2782884
|
|
XTKERM4 ;;5378382
|
|
XTKERMIT ;;2016322
|
|
XTLATSET ;;6413686
|
|
XTLKDICL ;;2562328
|