/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 (4777)
 DCA 10
 TAD (-40)
 DCA CNT1
BLD1, TAD (-40)
 DCA CNT2
 TAD (-14)
 DCA CNT3
BLD2, TAD I 10
 TAD (-2000)
 SMA CLA
 JMP FOUND
 TAD TEMP
 CLL RAL
 DCA TEMP
 ISZ CNT3
 JMP BLD3
B2, TAD TEMP
 CDF 20
 DCA I REFAD
 CDF 00
 ISZ REFAD
 ISZ CNT2
 JMP BLD2-2
BLD3, 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
 ISZ CNT3
 JMP BLD3
 JMP B2
WADDR, 0
CNT1,0
CNT2,0
CNT3,0
$