/CENTER AND POLARIZE/

FIELD 0
INDEXA=116
INDEXB=117
INDEXC=121
AUGMNT=127
SUMAD=134
DATAAD=133
COUNT=125
TEMP=115
CCOUNT=126
INDEXS=120
MOVEAD=135
CRLF=33
MESS=50
BSW=7002
NL6000=7333

*3000
CTRPOL, 0
  STA
  DCA INDEXC
  IAC
  DCA AUGMNT
  DCA WHT
  TAD (SUMS)
  DCA SUMAD
MOVEHV, TAD (-40)
  DCA INDEXA
  TAD (5000)
  DCA DATAAD
  TAD (-40)
  DCA INDEXB
  DCA I SUMAD
  TAD I DATAAD
  RAL
  AND (7700)
  BSW
  TAD I SUMAD
  DCA I SUMAD
  TAD AUGMNT; TAD DATAAD; DCA DATAAD; ISZ INDEXB
  JMP MOVEHV+7
  ISZ SUMAD
  STA
  TAD AUGMNT
  SZA CLA
  JMP MOD1
B, ISZ INDEXA
  JMP MOVEHV+4
  ISZ INDEXC
  JMP CHKBKG
  TAD (40)
  DCA AUGMNT
  JMP MOVEHV
MOD1, TAD DATAAD
  TAD (-1777)
  DCA DATAAD
  JMP B
SUMS, 0
PAGE
CHKBKG, DCA COUNT
  NL6000; TAD SUMS+1; SMA CLA; ISZ COUNT
  NL6000; TAD SUMS+36; SMA CLA; ISZ COUNT
  NL6000; TAD SUMS+41; SMA CLA; ISZ COUNT
  NL6000; TAD SUMS+76; SMA CLA; ISZ COUNT
  TAD SUMS+1
  TAD SUMS+36
  CLL RAR
  DCA TEMP
  TAD SUMS+41
  TAD SUMS+76
  CLL RAR
  TAD TEMP
  CLL RAR
  CIA
  DCA BKGRND
  TAD COUNT
  SZA
  JMP CKWTBK
  JMP .+6
CKWTBK, TAD (-4)
  SZA CLA
  JMP INCONS
  IAC
  DCA WHT
  STA 
  DCA INDEXC
  TAD (5000)
  DCA DATAAD
  NL6000
  DCA INDEXA
  TAD WHT
  SNA
  JMP .+2
  TAD (40)
  TAD (NOP)
  DCA C
  TAD I DATAAD
  TAD BKGRND
C, NOP
  DCA I DATAAD
  ISZ DATAAD
  ISZ INDEXA
  JMP .-6
  ISZ INDEXC
  JMP TOTAL
  TAD (-100)
  DCA INDEXA
  TAD (SUMS)
  DCA DATAAD
  JMP CKWTBK+21
TOTAL, STA
  DCA INDEXC
  TAD (SUMS)
  DCA SUMAD
  TAD (-40)
  DCA INDEXA
  DCA TEMP
  TAD I SUMAD
  CLL RAL
  AND (7700)
  BSW
  SZL
  TAD (7700)
  DCA I SUMAD
  TAD I SUMAD
  ISZ SUMAD
  TAD TEMP
  ISZ INDEXA
  JMP .-14
  CLL RAR
  CIA
  DCA TEMP
DIST, TAD SUMAD
  TAD (-40)
  DCA SUMAD
  DCA COUNT
  TAD TEMP
  TAD I SUMAD
  ISZ COUNT
  ISZ SUMAD
  SPA
  JMP .-4
  JMP 3400
BKGRND, 0
WHT, 0
INCONS, NOP
  JMS CRLF
  TAD (INC)
  JMS MESS
  HLT
INC, TEXT /INCONSISTENT BACKGRND./
PAGE
  CLA CLL
  TAD COUNT
  TAD (-20)
  SNA
  JMP CHK
  SPA
  CIA
  DCA COUNT
  TAD COUNT
  CIA
  DCA CCOUNT
  TAD AUGMNT
  SNL
  CIA
  DCA AUGMNT
  STA
  DCA INDEXS
  TAD (-40)
  DCA INDEXA
  TAD  (5000)
  SNL
  TAD (1777)
  DCA DATAAD
MOVE, TAD DATAAD
  DCA MOVEAD
PHASE1, TAD CCOUNT
  DCA INDEXB
  TAD (DCA SPACE)
  DCA .+2
  TAD I DATAAD
  NOP
  ISZ .-1
  TAD AUGMNT; TAD DATAAD; DCA DATAAD; ISZ INDEXB
  JMP PHASE1+4
PHASE2, TAD (-40)
  TAD COUNT
  DCA INDEXB
  TAD I DATAAD
  DCA I MOVEAD
  TAD AUGMNT
  TAD MOVEAD
  DCA MOVEAD
  TAD AUGMNT; TAD DATAAD; DCA DATAAD; ISZ INDEXB
  JMP PHASE2+3
PHASE3, TAD CCOUNT
  DCA INDEXB
  TAD (TAD SPACE)
  DCA .+1
  NOP
  ISZ .-1
  DCA I MOVEAD
  TAD AUGMNT; TAD MOVEAD; DCA MOVEAD; ISZ INDEXB
  JMP PHASE3+4
  TAD INDEXC
  SNA CLA
  JMP D
  TAD AUGMNT
  CLL RAL
  CLA
  TAD (1777)
  SNL
  CIA
  TAD DATAAD
  DCA DATAAD
D, ISZ INDEXA
  JMP MOVE
  ISZ INDEXS
  JMP CHK
  TAD AUGMNT
  CLL RAL
  CLA IAC
  SZL
  CIA
  DCA AUGMNT
  STA
  DCA INDEXA
  TAD INDEXC
  SNA CLA
  TAD (40)
  TAD (SUMS)
  SZL
  TAD (37)
  JMP MOVE-1
SPACE, 0
PAGE
CHK, ISZ INDEXC
  JMP .+5
  IAC
  DCA AUGMNT
  TAD (SUMS+40)
  JMP TOTAL+3
  TAD CTRPOL
  DCA .+2
  JMP I .+1
  NOP
$