␣␣␣␣␣X = 1511
  1. Definition
    02747 0 00000 0 00000 808X
  2. References (2)
    00065 0 01303 0 02746 2HTRX−1,0,LOCREC CARD FOR DE
    02150 0 02747 0 02315 425PRALL HTRPRSZ,0,X
␣␣␣␣ER = 739
  1. Definition
    01343 606060606060 36ER BCD2␣␣␣␣␣␣␣␣␣␣␣␣
  2. Reference
    01341 0 01655 0 01343 34HTRER,0,ER+202
␣␣␣␣LX = 727
  1. Definition
    01327−0 53400 2 00000 24LX LXD0,2 IR2 WAS SAVED IN DEC LOC ZERO
  2. Reference
    01325−0 10000 0 01327 22TNZLX
␣␣␣␣PR = 1129
  1. Definition
    02151 606060606060 426PR BCD2␣␣␣␣␣␣␣␣␣␣␣␣
  2. References (2)
    02075 0 02177 0 02151 382TSX1 HTRPR,0,PR+22
    02147 0 02211 0 02151 424PRSPLT HTRPR,0,PR+32
␣␣␣CAS = 732
  1. Definition
    01334 0 34000 2 02135 29CAS CASTAB,2
  2. Reference
    01337 2 00005 2 01334 32TIXT TIXCAS,2,5
␣␣␣DRM = 1096
  1. Definition
    02110 245164446001 393DRM BCD1DRUM␣1
  2. References (2)
    01723 0 50000 1 02110 276CLADRM,1 BCD TABLE
    01735−0 50000 1 02110 286SPLIT CALDRM,1 NEXT BCD WORD FROM TABLE INTO
␣␣␣PR1 = 1138
  1. Definition
    02162 606263212760 435PR1 BCD1␣STAG␣
  2. Reference
    01656 0 60100 0 02162 239STOPR1
␣␣␣PR2 = 1143
  1. Definition
    02167 606025626260 440PR2 BCD1␣␣ESS␣ CHANGED TO ESS 12
  2. References (2)
    01753−0 50000 0 02167 300CALPR2
    01755 0 60200 0 02167 302SLWPR2
␣␣␣PR3 = 1144
  1. Definition
    02170 604645606060 441PR3 BCD1␣ON␣␣␣ CHANGED TO 34 0N
  2. References (2)
    01757 0 56000 0 02170 304LDQPR3
    01761 0 60200 0 02170 306SLWPR3
␣␣␣PR4 = 1145
  1. Definition
    02171 245164446001 442PR4 BCD6DRUM␣1␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
  2. Reference
    01724 0 60100 0 02171 277STOPR4
␣␣␣PR5 = 1154
  1. Definition
    02202 516444600233 451PR5 BCD7RUM␣2.␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
  2. Reference
    01740 0 60200 0 02202 289SLWPR5
␣␣␣PR6 = 1239
  1. Definition
    02327 606060462660 536PR6 BCD1␣␣␣OF␣ (+ANGED TO OF 123
  2. References (2)
    01676−0 50000 0 02327 255CALPR6
    01700 0 60200 0 02327 257SLWPR6
␣␣␣PR7 = 1240
  1. Definition
    02330 606646512460 537PR7 BCD1␣WORD␣ CHANGED TO 4 WORD
  2. References (2)
    01702 0 56000 0 02330 259LDQPR7
    01704 0 60200 0 02330 261SLWPR7
␣␣␣PR8 = 1278
  1. Definition
    02376 006000000000 575PR8 BCD 0␣00000␣0␣00000␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
  2. References (3)
    02002 0 60200 0 02376 323SLWPR8
    02021 0 60200 0 02377 338SLWPR8+1
    02035 0 60200 0 02400 350SLWPR8+2
␣␣␣PR9 = 1296
  1. Definition
    02420 600102030405 593PR9 BCD1␣12345
  2. Reference
    01764 0 60200 0 02420 309SLWPR9
␣␣␣PRA = 1171
  1. Definition
    02223 606060606060 468PRA BCD2␣␣␣␣␣␣␣␣␣␣␣␣
  2. Reference
    02115 0 02251 0 02223 398HTRPRA,0,PRA+22
␣␣␣PRB = 1193
  1. Definition
    02251 606060606060 490PRB BCD2␣␣␣␣␣␣␣␣␣␣␣␣
  2. Reference
    02122 0 02265 0 02251 403HTRPRB,0,PRB+12
␣␣␣PRC = 1205
  1. Definition
    02265 606060606060 502PRC BCD2␣␣␣␣␣␣␣␣␣␣␣␣
  2. Reference
    02127 0 02301 0 02265 408HTRPRC,0,PRC+12
␣␣␣PRD = 1217
  1. Definition
    02301 606060606060 514PRD BCD2␣␣␣␣␣␣␣␣␣␣␣␣
  2. Reference
    02134 0 02315 0 02301 413HTRPRD,0,PRD+12
␣␣␣TAB = 1117
  1. Definition
    02135 0 00000 0 00024 414TAB HTRTAB−STIR
  2. References (6)
    01333 0 53400 2 02135 28LXATAB,2
    01334 0 34000 2 02135 29CAS CASTAB,2
    01655 0 50000 2 02136 238HAVE CLATAB+1,2 BCD NAME OF TABLE
    01657 0 50000 2 02141 240CLATAB+4,2 BCD LINE ABOUT SIZE OF TABLE ENTRIES
    01664 0 50000 2 02137 245MEM8K CLATAB+2,2 THIS IS ADDRESS OF 1ST WORD IN
    02135 0 00000 0 00024 414TAB HTRTAB−STIR
␣␣␣WDC = 1124
  1. Definition
    02144 0 00000 0 00000 421WDC ACTUAL WORD COUNT STORED HERE
  2. References (2)
    01671 0 60100 0 02144 250STOWDC NOW HAVE ACTUAL WORD COUNT
    01730 0 40000 0 02144 281ADDWDC IF BITS CAN BE MOVED INTO DECREMENT
␣␣D273 = 1118
  1. Definition
    02136 0 00000 0 00421 415D273 COPY ACL WITH ADDRESS 0F DRUM SUM IN CORES
  2. References (5)
    01305 0 46000 0 02136 6LDAD273 THIS IS THA ACL WITH ADDRESS OF
    01306 0 70000 0 02136 7CPYD273 DRUM CHECK SUM IN CORES
    01307 0 50000 0 02136 8CLAD273
    01666 0 50000 0 02136 247CLAD273 SUBTRACT ADDRESS OF 1ST WORO IN
    01762 0 50000 0 02136 307CLAD273 CONVERT AND STORE ADDRESS IN CORES
␣␣D307 = 1120
  1. Definition
    02140 0 00000 0 00463 417D307 COMPUTED SUM PICKED UP FROM 307 AND STORED
  2. References (5)
    01314 0 46000 0 02140 13LDAD307 HAVE COMPUTED CHECK SUM FROM
    01315 0 70000 0 02140 14CPYD307 PERMANENT LOCATION
    01765 0 56000 0 02140 310LDQD307 CONVERT ALL OF 36 BIT WORD TO PRINT
    02003 0 56000 0 02140 324LDQD307
    02022 0 56000 0 02140 339LDQD307
␣␣D313 = 1121
  1. Definition
    02141 0 00000 0 00471 418D313 DRUM SELECT AND INITIAL ADDRESS FROM 313
  2. References (4)
    01317 0 46000 0 02141 16LDAD313 HAVE DRUM SELECT AND
    01320 0 70000 0 02141 17CPYD313 INITIAL DRUM ADDRESS
    01720 0 50000 0 02141 273CLAD313 FIND NUMBER OF DRUM
    01725 0 50000 0 02141 278CLAD313
␣␣HAVE = 941
  1. Definition
    01655 0 50000 2 02136 238HAVE CLATAB+1,2 BCD NAME OF TABLE
  2. Reference
    01336 0 02000 0 01655 31TRAHAVE
␣␣PR10 = 1297
  1. Definition
    02421 603162600060 594PR10 BCD ␣IS␣0␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
  2. References (4)
    02042−0 60200 0 02421 355ORSPR10
    02050−0 60000 0 02422 361STQPR10+1
    02065 0 60200 0 02423 374SLWPR10+2
    02073 0 60200 0 02424 380SLWPR10+3
␣␣PRCR = 1161
  1. Definition
    02211 606060606060 458PRCR BCD2␣␣␣␣␣␣␣␣␣␣␣␣
  2. Reference
    02077 0 02223 0 02211 384HTRPRCR,0,PRCR+10
␣␣PRSZ = 1229
  1. Definition
    02315 606060606060 526PRSZ BCD2␣␣␣␣␣␣␣␣␣␣␣␣
  2. References (2)
    02103 0 02603 0 02315 388TSX2 HTRPRSZ,0,PRSZND
    02150 0 02747 0 02315 425PRALL HTRPRSZ,0,X
␣␣STIR = 1097
  1. Definition
    02111 0 00042 0 00000 394STIR ,34
  2. Reference
    02135 0 00000 0 00024 414TAB HTRTAB−STIR
␣␣TIXT = 735
  1. Definition
    01337 2 00005 2 01334 32TIXT TIXCAS,2,5
  2. Reference
    01335 0 02000 0 01337 30TRATIXT
␣␣TSX1 = 1085
  1. Definition
    02075 0 02177 0 02151 382TSX1 HTRPR,0,PR+22
  2. Reference
    01742 0 60100 0 02075 291STOTSX1 SPLIT BUFFER
␣␣TSX2 = 1091
  1. Definition
    02103 0 02603 0 02315 388TSX2 HTRPRSZ,0,PRSZND
  2. Reference
    01745 0 60100 0 02103 294STOTSX2
␣ADMEM = 1169
  1. Definition
    02221 606060314645 466ADMEM BCD2␣␣␣ION␣␣␣␣␣␣
  2. References (3)
    01711−0 50000 0 02221 266CALADMEM
    01713 0 60200 0 02221 268SLWADMEM
    01717 0 60200 0 02222 272SLWADMEM+1
␣ISDR4 = 995
  1. Definition
    01743−3 00002 1 01746 292ISDR4 TXLGETLDA,1,2 IFF BUFFER ON DRUM 4, IT IS CLOBBERED
  2. Reference
    01733−3 00000 2 01743 284TXLISDR4,2,0
␣MEM4K = 1122
  1. Definition
    02142+010000000000 419MEM4K OCT010000000000
  2. Reference
    01324 0 40200 0 02142 21SUBMEM4K
␣MEM8K = 948
  1. Definition
    01664 0 50000 2 02137 245MEM8K CLATAB+2,2 THIS IS ADDRESS OF 1ST WORD IN
  2. References (2)
    01662 0 02000 0 01664 243TRAMEM8K
    01663 2 00001 2 01664 244TIXMEM8K,2,1
␣PRALL = 1128
  1. Definition
    02150 0 02747 0 02315 425PRALL HTRPRSZ,0,X
  2. Reference
    01744 0 50000 0 02150 293CLAPRALL PRINT SAME
␣PRTAB = 1089
  1. Definition
    02101 0 00000 0 00000 386PRTAB
  2. Reference
    01660 0 60100 0 02101 241STOPRTAB
␣SPLIT = 989
  1. Definition
    01735−0 50000 1 02110 286SPLIT CALDRM,1 NEXT BCD WORD FROM TABLE INTO
  2. Reference
    01734 1 00001 1 01735 285TXISPLIT,1,1
BUFADR = 1123
  1. Definition
    02143 0 00000 0 00000 420BUFADR CORE ADDRESS 0F 1ST WORD OF TABLE
  2. References (3)
    01665 0 60100 0 02143 246STOBUFADR BUFFER FOR WHATEVER K
    01670 0 40200 0 02143 249SUBBUFADR
    01705 0 50000 0 02143 262CLABUFADR CONVERT ADDRESS OF 1ST WORD OF
DRMADR = 1125
  1. Definition
    02145 0 00000 0 00000 422DRMADR D313 ANA 3777 IS ADDRESS 1ST WORD ON DRUM
  2. References (2)
    01727 0 62100 0 02145 280STADRMADR 1ST WORD ON DRUM, SPLIT DRUM
    01746 0 50000 0 02145 295GETLDA CLADRMADR CONVERT ADDRESS OF 1ST WORD ON
DRMSUM = 1119
  1. Definition
    02137 0 00000 0 00000 416DRMSUM DRUM SUM FROM ADDRESS FOUND ABOVE
  2. References (3)
    01312 0 60100 0 02137 11STODRMSUM HAVE ACTUAL DRUM CHECK SUM
    02036 0 56000 0 02137 351LDQDRMSUM CONVERT AND STORE ALL OF 36 BIT
    02051 0 56000 0 02137 362LDQDRMSUM
DRUMSK = 1126
  1. Definition
    02146 0 00000 0 07301 423DRUMSK 7
  2. Reference
    01726−0 32000 0 02146 279ANADRUMSK ADD WORD COUNT TO ADDRESS OF
GETLDA = 998
  1. Definition
    01746 0 50000 0 02145 295GETLDA CLADRMADR CONVERT ADDRESS OF 1ST WORD ON
  2. Reference
    01743−3 00002 1 01746 292ISDR4 TXLGETLDA,1,2 IFF BUFFER ON DRUM 4, IT IS CLOBBERED
GETSUM = 713
  1. Definition
    A01311 0 50000 0 00000 10GETSUM CLA
  2. Reference
    01310 0 62100 0 01311 9STAGETSUM
PRSPLT = 1127
  1. Definition
    02147 0 02211 0 02151 424PRSPLT HTRPR,0,PR+32
  2. Reference
    01741 0 50000 0 02147 290CLAPRSPLT EXPAND FIRST COMMENT TO SHOW
PRSZND = 1411
  1. Definition
    02603 606060606060 708PRSZND BCD ␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣␣
  2. Reference
    02103 0 02603 0 02315 388TSX2 HTRPRSZ,0,PRSZND