/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

*1200
IDENT, TLS
  JMS SETUP
  JMS WAIT
  JMS CTRPOL
  TAD (1600)
  JMS BLDREF
  JMS CRLF
  TAD NOPAT
  CDF CIF 10
  JMP IDENTY
  JMS MESS
  JMP FIND
*1300
BLDREF, 0
  DCA REFAD
 TAD REFAD
 TAD (-2000)
 SZA CLA
 JMP BL1
 TAD (1577)
 DCA 12
 TAD (-6200)
 DCA CNT
 CDF 20
 DCA I 12
 ISZ CNT
 JMP .-2
 CDF 00
BL1, TAD (4777)
  DCA 10
  TAD (-125)
  DCA INDEXA
  TAD (-14)
  DCA INDEXB
  CLL RAL
  DCA TEMP
  TAD I 10
  TAD (-2000)
  SMA CLA
  IAC
  TAD TEMP
  ISZ INDEXB
  JMP .-10
  CDF 10
  DCA I REFAD
  CDF 00
  ISZ REFAD
  ISZ INDEXA
 JMP BL1+4
  JMP I BLDREF
CNT, 0
FIELD 1
*1400
IDENTY, DCA NOPAT
  TAD NOPAT
  CIA
  DCA INDEXA
  DCA TEMP
  TAD (2000)
  DCA REFAD
  TAD (-125)
  DCA INDEXB
  TAD (1600)
  DCA UNNOAD
  DCA COUNT
A, TAD (-14)
  DCA INDEXC
  TAD I REFAD
  CMA
  AND I UNNOAD
  SWP
  CLA
  TAD I UNNOAD
  CMA
  AND I REFAD
  MQA
  CLL RAL
  SNL
  ISZ COUNT
  ISZ INDEXC
  JMP .-4
  ISZ REFAD
  ISZ UNNOAD
  ISZ INDEXB
  JMP A
MAXIM, TAD COUNT
  CIA
  TAD TEMP
  SMA CLA
  JMP .+5
  TAD COUNT
  DCA TEMP
  TAD INDEXA
  DCA MAX
  TAD REFAD
  TAD (13)
  DCA REFAD
  ISZ INDEXA
  JMP A-5
  TAD NOPAT
  TAD MAX
  CLL RAL
  RTL
  TAD (2400)
  CDF CIF 00
  JMP IDENT+12
MAX, 0
$