/THIS IS ALTERNATE DISPLAY ROUTINE FOR PATTERN RECOGNITION/
FIELD 0
TEMP=115
NOPAT=153
REFAD=137
*1000
MOD1, DCA TEMP
 TAD REFAD
 TAD (1100)
 DCA REFAD
 TAD TEMP
 JMP A
MOD2, DCA TEMP
 TAD REFAD
 TAD (3)
 DCA REFAD
 TAD TEMP
 JMP B
BLDDIS,0
 TAD (1600)
 DCA REFAD
 STA
 TAD NOPAT
A, TAD (-5)
 SMA
 JMP MOD1
 TAD (5)
B, TAD (-1)
 SMA
 JMP MOD2
 CLA CLL
 TAD (4000)
 DCA PPOINT
 TAD WL
 DCA WCHK
 TAD (-40)
 DCA CNT1
BLD1, TAD (-40)
 DCA CNT2
 TAD (-14)
 DCA CNT3
BLD2, TAD PPOINT
 CDF 10
 AND I WADDR
 CDF 00
 SZA CLA
 JMP FOUND
 TAD TEMP
 CLL RAL
 DCA TEMP
 ISZ CNT3
 JMP BLD3
 TAD TEMP
 CDF 20
 DCA I REFAD
 CDF 00
 ISZ REFAD
 ISZ CNT2
 JMS SPOT
 JMP BLD2-2
BLD3, JMS SPOT
 ISZ CNT2
 JMP BLD2
 TAD TEMP 
 CLL RAL
 CLL RAL
 CLL RAL
 CLL RAL
 DCA TEMP
 TAD TEMP
 CDF 20
 DCA I REFAD
 CDF 00
 TAD REFAD
 TAD (16)
 DCA REFAD
 ISZ CNT1
 JMP BLD1
 JMP I BLDDIS
FOUND, TAD TEMP
 STL RAL
 DCA TEMP
 JMS SPOT
 ISZ CNT3
 JMP BLD3+1
 TAD TEMP 
 CDF 20
 DCA I REFAD
 CDF 00
 ISZ REFAD
 ISZ CNT2
 JMP BLD2-2
SPOT,0
 ISZ WCHK
 JMP .+7
 TAD WL
 DCA WCHK
 TAD (4000)
 DCA PPOINT
 ISZ WADDR
 JMP I SPOT
 CLA CLL
 TAD PPOINT
 RAR
 DCA PPOINT
 JMP I SPOT
WL, -14
WCHK,-14
PPOINT, 0
WADDR, 0
CNT1,0
CNT2,0
CNT3,0
$