/TEST/

FIELD 0
BSW=7002
CRLF=33
INDEXA=116
MESS=50
DATAAD=133
LISN=43
TYPE=26
TYPCLA=20
INDEXX=124
FIND=200

*400
TEST, CLA
  TLS
  JMS CRLF
  TAD (M1)
  JMS MESS
  JMS CRLF
  TAD (-4)
  DCA INDEXA
  TAD (146)
  DCA DATAAD
A, JMS LISN
  JMS TYPE
  AND (0007)
  CLL RTL
  RAL
  DCA I DATAAD
  JMS LISN
  JMS TYPE
  AND (0007)
  TAD I DATAAD
  BSW
  DCA I DATAAD
  TAD (240)
  JMS TYPCLA
  ISZ DATAAD
  ISZ INDEXA
  JMP A
LOAD, TAD (145)
  DCA 17
  TAD (-4)
  DCA INDEXX
  TAD I 17
  CMA
  6166
  ISZ INDEXX
  JMP .-4
  6162
  JMP FIND
M1, TEXT /XX YY X1 Y1/
$