/TRAIN/

FIELD 0
BSW=7002
WADDR=1111
BLDDIS=1014
INDEXA=116
INDEXB=117
NAMEAD=136
REFAD=137
TEMP=115
NOPAT=153
DELXAD=130
X1AD=131
PRODAD=132
XX=146
YY=147
DELTAX=144
DELTAY=145
X1=150
Y1=151
CRLF=33
MESS=50
LISN=43
TYPE=26
WAIT=4400
CTRPOL=3000
BLDREF=1300
FIND=200
 INDCTR=164
 COUNTR=165
 REFINE=600
 REFIX=700

*1400
 TLS
 JMS CRLF
 TAD (WARN)
 JMS MESS
 JMS LISN
 JMS TYPE
 CIA
 TAD ("Y
 SZA CLA
 JMP F1
 JMP I (2000)
F1, JMS CRLF
 TAD (AHA)
 JMS MESS
 JMP FIND
AHA, TEXT /AHA! I THOUGHT SO./
WARN, TEXT /***ARE***YOU***SURE?/
*2000
TRAIN, DCA NOPAT
 TLS
  TAD (-7)
  DCA INDEXA
  TAD (DCA NAME)
  DCA .+1
  DCA NAME
  ISZ .-1
  ISZ INDEXA
  JMP .-3
  JMS CRLF
  TAD (PAT)
  JMS MESS
ACCEPT, TAD (NAME)
  DCA NAMEAD
  TAD (-15)
  DCA INDEXA
  CLL
  JMS LISN
  JMS TYPE
  TAD (-256)
  SNA
  JMP OUT
  TAD (256)
  AND (0077)
A, SZL
  BSW
  SNL
  TAD I NAMEAD
  DCA I NAMEAD
  SNL
  ISZ NAMEAD
  ISZ INDEXA
  JMP ACCEPT+5
COMPARE, TAD (2400)
  DCA REFAD
  TAD NOPAT
  SNA
  JMP NOMTCH
  CIA
  DCA INDEXB
  TAD (-7)
  DCA INDEXA
  TAD (TAD NAME)
  DCA .+3
  TAD I REFAD
  CIA
  TAD NAME
  ISZ .-1
  SZA CLA
  JMP 2200
  ISZ REFAD
  ISZ INDEXA
  JMP .-10
MATCH, JMS CRLF
  TAD (INMEM)
  JMS MESS
  JMS LISN
  JMS TYPE
  DCA TEMP
  TAD TEMP
  CIA
  TAD ("Y
  SNA CLA
  JMP B
  TAD TEMP
  CIA
  TAD ("N
  SNA CLA
  JMP FIND
  JMP MATCH
INMEM, TEXT /PATTERN IN MEMORY. REPLACE? TYPE Y OR N. /
OUT, STA
  DCA INDEXA
  JMP A
PAT, TEXT /WHAT IS PATTERN? /
NAME, 0        /ALLOW 10 OCTAL SPACES/
PAGE
  ISZ REFAD
  ISZ INDEXA
  JMP .-2
  ISZ REFAD
  ISZ INDEXB
  JMP COMPARE+7
NOMTCH, TAD NOPAT
  TAD (-40)
  SMA CLA
  JMP PATLIM
  ISZ NOPAT
  TAD (NAME)
  DCA NAMEAD
  TAD (-7)
  DCA INDEXA
  TAD I NAMEAD
  ISZ NAMEAD
  DCA I REFAD
  ISZ REFAD
  ISZ INDEXA
  JMP .-5
  STA
  TAD NOPAT
  BSW
  DCA TEMP
  TAD TEMP
  CLL RAR
  TAD TEMP
  TAD (2000)
  DCA I REFAD
B, STA
 DCA INDCTR
 TAD (-4)
 DCA COUNTR
 JMS CRLF
 TAD (READY)
 JMS MESS
 HLT
 JMS SETUP
 JMS WAIT
 JMS CTRPOL
 JMS REFINE
 ISZ COUNTR
 JMP B+5
 JMS REFIX
 TAD I REFAD
 DCA WADDR
  TAD I REFAD
  JMS BLDREF
 JMS BLDDIS
  JMS CRLF
  TAD (END)
  JMS MESS
  JMP FIND
SETUP, 0
  TAD (144)
  DCA DELXAD
  TAD (0150)
  DCA X1AD
  TAD (143)
  DCA PRODAD
  DCA XX
  DCA YY
  TAD (0200)
  DCA DELTAX
  TAD (0200)
  DCA DELTAY
  TAD (0200)
  DCA X1
  TAD (0300)
  DCA Y1
  JMP I SETUP
END, TEXT /END TRAINING./
READY, TEXT /CONT. /
LIM, TEXT /PATTERN AREA FILLED./
PATLIM, JMS CRLF
  TAD (LIM)
  JMS MESS
  JMP FIND
$