/IDENTIFY/

FIELD 0
REFAD=137
TEMP=115
UNNOAD=132
COUNT=125
INDEXA=116
INDEXB=117
INDEXC=121
NOPAT=153
MESS=50
SETUP=2266
CRLF=33
WAIT=4400
CTRPOL=3000
FIND=200
MQA=7501
SWP=7521
BLDDIS=1027

*1200
IDENT, TLS
  JMS SETUP
  JMS WAIT
  JMS CTRPOL
  TAD (20)
  JMS BLDDIS
  JMS CRLF
  TAD NOPAT
  CDF CIF 10
  JMP IDENTY
  JMS MESS
  JMP FIND
CNT, 0
FIELD 1
*1400
IDENTY, DCA NOPAT
  TAD NOPAT
  CIA
  DCA INDEXA
  DCA TEMP
 TAD (1600)
 DCA REFAD
 TAD (-5)
 DCA CNT2
 TAD (-40)
 DCA CNT1
 TAD (5100)
 DCA UNNOAD
 DCA COUNT
 TAD (-3)
 DCA INDEXB
A, TAD (-14)
 DCA INDEXC
 CDF 20
 TAD I REFAD
 CMA
 AND I UNNOAD
 SWP
 CLA
 TAD I UNNOAD
 CMA
 AND I REFAD
 CDF 10
 MQA
 CLL RAL
 SNL
 ISZ COUNT
 ISZ INDEXC
 JMP .-4
 ISZ REFAD
 ISZ UNNOAD
 ISZ INDEXB
 JMP A
MAXIM, TAD REFAD
 TAD (15)
 DCA REFAD
 TAD UNNOAD
 TAD (15)
 DCA UNNOAD
 ISZ CNT1
 JMP A-2
M1, TAD COUNT
 HLT
 CIA
 TAD TEMP
 SMA CLA
 JMP .+5
 TAD COUNT
 DCA TEMP
 TAD INDEXA
 DCA MAX
 ISZ CNT2
 JMP M2
 TAD REFAD
 TAD (64)
 DCA REFAD
 ISZ INDEXA
 JMP A-11
 JMP M3
M2, TAD REFAD
 TAD (-775)
 DCA REFAD
 ISZ INDEXA
 JMP A-7
M3, TAD NOPAT
 TAD MAX
 CLL RAL
 RTL
 TAD (2400)
 CDF CIF 00
 JMP IDENT+12
MAX,0
CNT1,0
CNT2,0
$