ABPANTEG.m

ABPANTEG ;ISC/XTSUMBLD KERNEL V6 - Package checksum checker ;AUG 07, 1991@16:57:07

 ;;6;AUG 07, 1991@16:57:07

C0 S C0="S XT=0 F I=1:1 S L=$T(+I) Q:$L(L)'>0  F J=1:1:$L(L) S XT=$A(L,J)*J+XT"

 W !!,"Checksum routine created on ",$P($T(+2),";",4)," by KERNEL V6",!

 F LI=1:1 S LV=$T(ROU+LI) Q:LV=""  S RN=$P(LV," ",1),RT=$P(LV,";",3) W !,RN X "ZL @RN X C0" W ?10,$S(XT'=RT:"Calculated "_XT_", off by "_(XT-RT),1:"ok")

 Q

ROU ;

ABPAACHD ;;2071505

ABPAADR0 ;;2192763

ABPAADR1 ;;4698772

ABPAADR2 ;;2255753

ABPAAGE1 ;;3241000

ABPAAGE2 ;;4416887

ABPAAGEL ;;5638528

ABPAAGEQ ;;5112492

ABPAAGS1 ;;3643599

ABPAAGS2 ;;3417371

ABPAAIL ;;653573

ABPAALK1 ;;4870158

ABPAALK2 ;;3771822

ABPAALK3 ;;1422105

ABPAAR1A ;;2180462

ABPAAR1B ;;2407868

ABPAAR1C ;;3953151

ABPAAR1D ;;3537004

ABPAAR1E ;;4527324

ABPAARHD ;;2466629

ABPABCL ;;1876333

ABPABLST ;;977109

ABPABRC0 ;;2516748

ABPABVR ;;2191057

ABPACDF1 ;;5625625

ABPACDF2 ;;1313873

ABPACKLK ;;5809459

ABPACKS0 ;;7172698

ABPACLG0 ;;8277157

ABPACLG1 ;;3149862

ABPACLG2 ;;2737714

ABPACLG3 ;;4752131

ABPACLG4 ;;3802594

ABPACLG5 ;;3292489

ABPACLG6 ;;2176953

ABPACLG7 ;;2865543

ABPACLG8 ;;4160242

ABPACLG9 ;;2097914

ABPACLHD ;;4619812

ABPACMRP ;;2334658

ABPADATE ;;921904

ABPADC01 ;;6247019

ABPADETC ;;11543683

ABPAEEC0 ;;4826003

ABPAEEC1 ;;6197064

ABPAEEP0 ;;4903175

ABPAEXIT ;;406586

ABPAGPB ;;2179686

ABPAHD ;;1736905

ABPALBII ;;2826078

ABPAMAIN ;;2855534

ABPAMLBL ;;3644063

ABPAOC0 ;;5109206

ABPAOC0A ;;3618065

ABPAOC1 ;;5197863

ABPAOCS0 ;;5240770

ABPAOCS1 ;;1356806

ABPAOP0 ;;3230683

ABPAOP1 ;;4838259

ABPAOP2 ;;2440265

ABPAOP3 ;;3528647

ABPAOP4 ;;1501992

ABPAOP5 ;;3387174

ABPAOPHD ;;1380147

ABPAOPT ;;4942266

ABPAPATL ;;1963863

ABPAPCHD ;;1899436

ABPAPCLG ;;7245257

ABPAPCS0 ;;2314630

ABPAPCS1 ;;3932476

ABPAPCS2 ;;1358264

ABPAPD0 ;;1930456

ABPAPD1 ;;3000028

ABPAPD2 ;;1772809

ABPAPD2B ;;6268504

ABPAPD2C ;;4820395

ABPAPD3 ;;2669268

ABPAPD5 ;;3604944

ABPAPD6 ;;2387532

ABPAPD7 ;;9426607

ABPAPD7A ;;4165153

ABPAPD7B ;;4759235

ABPAPD7C ;;3873516

ABPAPD7D ;;5697817

ABPAPD8 ;;1775709

ABPAPDD0 ;;1725973

ABPAPDD1 ;;2206737

ABPAPDD2 ;;3400574

ABPAPDD4 ;;3964314

ABPAPDEM ;;3678290

ABPAPDV0 ;;1646441

ABPAPDV1 ;;1976172

ABPAPDV2 ;;3680071

ABPAPI01 ;;4909431

ABPAPI02 ;;3535811

ABPAPI03 ;;3958859

ABPAPNE0 ;;2401350

ABPAPRE1 ;;7061691

ABPAPRT ;;817803

ABPAROCC ;;2209153

ABPARPCL ;;5824909

ABPARPTH ;;1697092

ABPATINS ;;5510951

ABPAUPCK ;;6975812

ABPAVAR ;;1698013

ABPANTEG  ;ISC/XTSUMBLD KERNEL V6 - Package checksum checker ;AUG 07, 1991@16:57:07

 +1       ;;6;AUG 07, 1991@16:57:07

C0         SET C0="S XT=0 F I=1:1 S L=$T(+I) Q:$L(L)'>0  F J=1:1:$L(L) S XT=$A(L,J)*J+XT"

 +1        WRITE !!,"Checksum routine created on ",$PIECE($TEXT(+2),";",4)," by KERNEL V6",!

 +2        FOR LI=1:1

               SET LV=$TEXT(ROU+LI)

               IF LV=""

                   QUIT 

               SET RN=$PIECE(LV," ",1)

               SET RT=$PIECE(LV,";",3)

               WRITE !,RN

               XECUTE "ZL @RN X C0"

               WRITE ?10,$SELECT(XT'=RT:"Calculated "_XT_", off by "_(XT-RT),1:"ok")

 +3        QUIT 

ROU       ;

ABPAACHD  ;;2071505

ABPAADR0  ;;2192763

ABPAADR1  ;;4698772

ABPAADR2  ;;2255753

ABPAAGE1  ;;3241000

ABPAAGE2  ;;4416887

ABPAAGEL  ;;5638528

ABPAAGEQ  ;;5112492

ABPAAGS1  ;;3643599

ABPAAGS2  ;;3417371

ABPAAIL   ;;653573

ABPAALK1  ;;4870158

ABPAALK2  ;;3771822

ABPAALK3  ;;1422105

ABPAAR1A  ;;2180462

ABPAAR1B  ;;2407868

ABPAAR1C  ;;3953151

ABPAAR1D  ;;3537004

ABPAAR1E  ;;4527324

ABPAARHD  ;;2466629

ABPABCL   ;;1876333

ABPABLST  ;;977109

ABPABRC0  ;;2516748

ABPABVR   ;;2191057

ABPACDF1  ;;5625625

ABPACDF2  ;;1313873

ABPACKLK  ;;5809459

ABPACKS0  ;;7172698

ABPACLG0  ;;8277157

ABPACLG1  ;;3149862

ABPACLG2  ;;2737714

ABPACLG3  ;;4752131

ABPACLG4  ;;3802594

ABPACLG5  ;;3292489

ABPACLG6  ;;2176953

ABPACLG7  ;;2865543

ABPACLG8  ;;4160242

ABPACLG9  ;;2097914

ABPACLHD  ;;4619812

ABPACMRP  ;;2334658

ABPADATE  ;;921904

ABPADC01  ;;6247019

ABPADETC  ;;11543683

ABPAEEC0  ;;4826003

ABPAEEC1  ;;6197064

ABPAEEP0  ;;4903175

ABPAEXIT  ;;406586

ABPAGPB   ;;2179686

ABPAHD    ;;1736905

ABPALBII  ;;2826078

ABPAMAIN  ;;2855534

ABPAMLBL  ;;3644063

ABPAOC0   ;;5109206

ABPAOC0A  ;;3618065

ABPAOC1   ;;5197863

ABPAOCS0  ;;5240770

ABPAOCS1  ;;1356806

ABPAOP0   ;;3230683

ABPAOP1   ;;4838259

ABPAOP2   ;;2440265

ABPAOP3   ;;3528647

ABPAOP4   ;;1501992

ABPAOP5   ;;3387174

ABPAOPHD  ;;1380147

ABPAOPT   ;;4942266

ABPAPATL  ;;1963863

ABPAPCHD  ;;1899436

ABPAPCLG  ;;7245257

ABPAPCS0  ;;2314630

ABPAPCS1  ;;3932476

ABPAPCS2  ;;1358264

ABPAPD0   ;;1930456

ABPAPD1   ;;3000028

ABPAPD2   ;;1772809

ABPAPD2B  ;;6268504

ABPAPD2C  ;;4820395

ABPAPD3   ;;2669268

ABPAPD5   ;;3604944

ABPAPD6   ;;2387532

ABPAPD7   ;;9426607

ABPAPD7A  ;;4165153

ABPAPD7B  ;;4759235

ABPAPD7C  ;;3873516

ABPAPD7D  ;;5697817

ABPAPD8   ;;1775709

ABPAPDD0  ;;1725973

ABPAPDD1  ;;2206737

ABPAPDD2  ;;3400574

ABPAPDD4  ;;3964314

ABPAPDEM  ;;3678290

ABPAPDV0  ;;1646441

ABPAPDV1  ;;1976172

ABPAPDV2  ;;3680071

ABPAPI01  ;;4909431

ABPAPI02  ;;3535811

ABPAPI03  ;;3958859

ABPAPNE0  ;;2401350

ABPAPRE1  ;;7061691

ABPAPRT   ;;817803

ABPAROCC  ;;2209153

ABPARPCL  ;;5824909

ABPARPTH  ;;1697092

ABPATINS  ;;5510951

ABPAUPCK  ;;6975812

ABPAVAR   ;;1698013