LRNTEG03 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26
;;5.2;LAB SERVICE;;Sep 27, 1994
;;7.2;OCT 25, 1994@16:14:26
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 ;;
LRSORB ;;5246084
LRSORC ;;2903387
LRSORC1 ;;2650199
LRSORC1A ;;5784485
LRSORD ;;2903439
LRSORD1 ;;2634130
LRSORD1A ;;5873206
LRSPDA ;;1708053
LRSPGD ;;1899546
LRSPRPT ;;14704153
LRSPRPT1 ;;9128154
LRSPRPT2 ;;11806540
LRSPRPTM ;;3548807
LRSPS ;;1349074
LRSPSICD ;;3733172
LRSPSICP ;;4548274
LRSPT ;;5788888
LRSTATUS ;;5864956
LRSTOPC ;;8270122
LRSTUF ;;3165927
LRSTUF1 ;;13017004
LRSTUF2 ;;7213582
LRTOT ;;5514392
LRTP ;;1719568
LRTSTJAM ;;11402229
LRTSTJAN ;;15845798
LRTSTJM1 ;;3677989
LRTSTOUT ;;14679176
LRTSTSET ;;11593341
LRU ;;17199697
LRUA ;;9428099
LRUB ;;2794163
LRUBL ;;2301075
LRUC ;;3314953
LRUCE ;;3615614
LRUCLR ;;1483623
LRUCN ;;6285550
LRUCNBB ;;6439802
LRUD ;;8613899
LRUD1 ;;1288507
LRUDEL ;;8062773
LRUDIT ;;1873186
LRUDPT ;;3892466
LRUE ;;8625936
LRUER ;;12482221
LRUET ;;9746002
LRUFILE ;;3793703
LRUG ;;2440226
LRUL ;;6494173
LRULA ;;2814252
LRULB ;;3214861
LRULB1 ;;5054925
LRULEN ;;4920379
LRUMD ;;13730332
LRUMD1 ;;15963110
LRUMD2 ;;9441970
LRUMDF ;;12190617
LRUMDM ;;12811700
LRUMDP ;;9583614
LRUMDS ;;6757098
LRUMDU ;;12785217
LRUMDU1 ;;2924915
LRUMI ;;8672238
LRUMSG ;;549954
LRUP ;;111723
LRUPA ;;8985351
LRUPA1 ;;8601230
LRUPA2 ;;10860453
LRUPAC ;;5317474
LRUPACA ;;10645043
LRUPACS ;;9002791
LRUPACT ;;12662142
LRUPAD ;;8440128
LRUPAD1 ;;7381083
LRUPAD2 ;;9070446
LRUPQ ;;5009717
LRUPQ1 ;;5480421
LRUPS ;;5213446
LRUPT ;;9583710
LRUPUM ;;4413283
LRUQ ;;2165509
LRUR ;;5269766
LRURG ;;563985
LRUSE ;;1274883
LRUSET ;;1000756
LRUSNOM ;;1630210
LRUSP ;;3735979
LRUT ;;1482424
LRUTA ;;5134496
LRUTAD ;;10053839
LRUTELL ;;1609316
LRUTL ;;10259125
LRUTRAN ;;3731182
LRUTT ;;11013569
LRUTW ;;7949670
LRUU ;;1156447
LRUV ;;399332
LRUW ;;10155671
LRUWG ;;10453371
LRUWK ;;1415257
LRUWL ;;3121574
LRUWLF ;;5417790
LRVER ;;16483418
LRVER1 ;;5987669
LRVER2 ;;6818151
LRVER3 ;;8335446
LRVER3A ;;9912700
LRVER4 ;;14817646
LRVER5 ;;11228247
LRVR ;;13379924
LRVR1 ;;9222290
LRVR2 ;;6604344
LRVR3 ;;10872068
LRVR4 ;;10297579
LRVR5 ;;9391488
LRVRKIL ;;4419206
LRVRW ;;9610673
LRWD ;;1562529
LRWLHEAD ;;689266
LRWLST ;;14625851
LRWLST1 ;;13063164
LRWLST11 ;;15804232
LRWLST12 ;;4658067
LRWLST13 ;;7041750
LRWLST2 ;;4332114
LRWRKIN1 ;;4265901
LRWRKINC ;;12503776
LRWRKLS1 ;;1982294
LRWRKLST ;;7270047
LRWRKS ;;7701958
LRWRKS2 ;;5580037
LRWU ;;11277129
LRWU1 ;;3812098
LRWU2 ;;1596365
LRWU3 ;;8913298
LRWU4 ;;6571565
LRWU5 ;;12308481
LRWU6 ;;7589287
LRWU7 ;;8189681
LRX ;;10626021
LRX6 ;;16621271
LRX60 ;;9025787
LRX62P6 ;;8926756
LRX62P61 ;;20085978
LRX6PRO ;;3892082
LRXO0 ;;2244780
LRXO00 ;;11600233
LRXO1 ;;10821866
LRXO10 ;;4100641
LRXO11 ;;9945043
LRXO1A ;;10417967
LRXO2 ;;10312556
LRXO3 ;;6346859
LRXO4 ;;15854526
LRXO4A ;;7531049
LRXO5 ;;18115224
LRXO6 ;;6504620
LRXO7 ;;3502103
LRXO8 ;;3966298
LRXO9 ;;8693186
LRXOS0 ;;2439944
LRXOS1 ;;3868247
LRXREF ;;9253913
LRXREF1 ;;7533129
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRNTEG03 3695 printed Dec 13, 2024@02:18:17 Page 2
LRNTEG03 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26
+1 ;;5.2;LAB SERVICE;;Sep 27, 1994
+2 ;;7.2;OCT 25, 1994@16:14:26
+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 ;;
LRSORB ;;5246084
LRSORC ;;2903387
LRSORC1 ;;2650199
LRSORC1A ;;5784485
LRSORD ;;2903439
LRSORD1 ;;2634130
LRSORD1A ;;5873206
LRSPDA ;;1708053
LRSPGD ;;1899546
LRSPRPT ;;14704153
LRSPRPT1 ;;9128154
LRSPRPT2 ;;11806540
LRSPRPTM ;;3548807
LRSPS ;;1349074
LRSPSICD ;;3733172
LRSPSICP ;;4548274
LRSPT ;;5788888
LRSTATUS ;;5864956
LRSTOPC ;;8270122
LRSTUF ;;3165927
LRSTUF1 ;;13017004
LRSTUF2 ;;7213582
LRTOT ;;5514392
LRTP ;;1719568
LRTSTJAM ;;11402229
LRTSTJAN ;;15845798
LRTSTJM1 ;;3677989
LRTSTOUT ;;14679176
LRTSTSET ;;11593341
LRU ;;17199697
LRUA ;;9428099
LRUB ;;2794163
LRUBL ;;2301075
LRUC ;;3314953
LRUCE ;;3615614
LRUCLR ;;1483623
LRUCN ;;6285550
LRUCNBB ;;6439802
LRUD ;;8613899
LRUD1 ;;1288507
LRUDEL ;;8062773
LRUDIT ;;1873186
LRUDPT ;;3892466
LRUE ;;8625936
LRUER ;;12482221
LRUET ;;9746002
LRUFILE ;;3793703
LRUG ;;2440226
LRUL ;;6494173
LRULA ;;2814252
LRULB ;;3214861
LRULB1 ;;5054925
LRULEN ;;4920379
LRUMD ;;13730332
LRUMD1 ;;15963110
LRUMD2 ;;9441970
LRUMDF ;;12190617
LRUMDM ;;12811700
LRUMDP ;;9583614
LRUMDS ;;6757098
LRUMDU ;;12785217
LRUMDU1 ;;2924915
LRUMI ;;8672238
LRUMSG ;;549954
LRUP ;;111723
LRUPA ;;8985351
LRUPA1 ;;8601230
LRUPA2 ;;10860453
LRUPAC ;;5317474
LRUPACA ;;10645043
LRUPACS ;;9002791
LRUPACT ;;12662142
LRUPAD ;;8440128
LRUPAD1 ;;7381083
LRUPAD2 ;;9070446
LRUPQ ;;5009717
LRUPQ1 ;;5480421
LRUPS ;;5213446
LRUPT ;;9583710
LRUPUM ;;4413283
LRUQ ;;2165509
LRUR ;;5269766
LRURG ;;563985
LRUSE ;;1274883
LRUSET ;;1000756
LRUSNOM ;;1630210
LRUSP ;;3735979
LRUT ;;1482424
LRUTA ;;5134496
LRUTAD ;;10053839
LRUTELL ;;1609316
LRUTL ;;10259125
LRUTRAN ;;3731182
LRUTT ;;11013569
LRUTW ;;7949670
LRUU ;;1156447
LRUV ;;399332
LRUW ;;10155671
LRUWG ;;10453371
LRUWK ;;1415257
LRUWL ;;3121574
LRUWLF ;;5417790
LRVER ;;16483418
LRVER1 ;;5987669
LRVER2 ;;6818151
LRVER3 ;;8335446
LRVER3A ;;9912700
LRVER4 ;;14817646
LRVER5 ;;11228247
LRVR ;;13379924
LRVR1 ;;9222290
LRVR2 ;;6604344
LRVR3 ;;10872068
LRVR4 ;;10297579
LRVR5 ;;9391488
LRVRKIL ;;4419206
LRVRW ;;9610673
LRWD ;;1562529
LRWLHEAD ;;689266
LRWLST ;;14625851
LRWLST1 ;;13063164
LRWLST11 ;;15804232
LRWLST12 ;;4658067
LRWLST13 ;;7041750
LRWLST2 ;;4332114
LRWRKIN1 ;;4265901
LRWRKINC ;;12503776
LRWRKLS1 ;;1982294
LRWRKLST ;;7270047
LRWRKS ;;7701958
LRWRKS2 ;;5580037
LRWU ;;11277129
LRWU1 ;;3812098
LRWU2 ;;1596365
LRWU3 ;;8913298
LRWU4 ;;6571565
LRWU5 ;;12308481
LRWU6 ;;7589287
LRWU7 ;;8189681
LRX ;;10626021
LRX6 ;;16621271
LRX60 ;;9025787
LRX62P6 ;;8926756
LRX62P61 ;;20085978
LRX6PRO ;;3892082
LRXO0 ;;2244780
LRXO00 ;;11600233
LRXO1 ;;10821866
LRXO10 ;;4100641
LRXO11 ;;9945043
LRXO1A ;;10417967
LRXO2 ;;10312556
LRXO3 ;;6346859
LRXO4 ;;15854526
LRXO4A ;;7531049
LRXO5 ;;18115224
LRXO6 ;;6504620
LRXO7 ;;3502103
LRXO8 ;;3966298
LRXO9 ;;8693186
LRXOS0 ;;2439944
LRXOS1 ;;3868247
LRXREF ;;9253913
LRXREF1 ;;7533129
