/VIDEO DISPLAY/

FIELD 0
BSW=7002
CTRPOL=3000
CRLF=33
LISN=43
MESS=50
SCOPE=76
TEMP=115
TYPE=26
WAIT=4400
DELXAD=130
X1AD=131
PRODAD=132
XX=146
YY=147
DELTAX=144
DELTAY=145
X1=150
Y1=151
FIND=200

*7000
DISPLAY, CLA
  JMS CRLF
  TAD (DIS)
  JMS MESS
  JMS LISN
  JMS TYPE
  DCA TEMP
  TAD TEMP
  CIA
  TAD ("Y
  SNA CLA
  JMP .+7
  TAD TEMP
  CIA
  TAD ("N
  SNA
  HLT
  JMP DISPLAY
  JMS IMAGE
  JMS CTRPOL
  JMS IMAGE
  HLT
DIS, TEXT /DISPLAY IMAGE? TYPE Y (YES) OR N (NO). /
*7100
DEMO, CLA
  TLS
  TAD (144)
  DCA DELXAD
  TAD (150)
  DCA X1AD
  TAD (143)
  DCA PRODAD
  DCA XX
  DCA YY
  TAD (200)
  DCA DELTAX
  TAD (200)
  DCA DELTAY
  TAD (200)
  DCA X1
  TAD (300)
  DCA Y1
  JMS WAIT
  JMS IMAGE
  JMS CTRPOL
  JMS IMAGE
  JMP FIND
PAGE
IMAGE, 0
  CLA
  TAD (4777)
  DCA 15
  TAD (3605)
  DCA INDEX2
  TAD (-40)
  DCA INDEX4
OTLOOP, TAD (-40)
  DCA INDEX3
INLOOP, CLA
  DCA DOT1
  DCA DOT2
  TAD (-6)
  DCA INDEX0
  TAD (-6)
  DCA INDEX1
WDLOOP, CLA
  TAD I 15
  TAD (-3000)
  SMA
  JMP ENTRY1
  TAD (0600)
  SMA
  JMP CLA2
  TAD (0600)
  SMA
  JMP CLA3
  DCA TEMP
  TAD DOT1
  ISZ INDEX0
  CLL RTL
  DCA DOT1
  TAD TEMP
  TAD (0600)
  SMA
  JMP CLA4
  CLA
  JMP ENTRY5
CLA2, CLA
  JMP ENTRY2
CLA3, CLA
  JMP ENTRY3
CLA4, CLA
  JMP ENTRY4
OVER, TAD INDEX0
  SNA
  JMP ENTRY5+16
  JMP WDLOOP
ENTRY1, CLA
  TAD (2)
ENTRY2, IAC
ENTRY3, TAD DOT1
  ISZ INDEX0
  CLL RTL
  DCA DOT1
  TAD (2)
ENTRY4, IAC
ENTRY5, TAD DOT2
  ISZ INDEX1
  CLL RTL
  DCA DOT2
  ISZ INDEX3
  JMP OVER
  TAD DOT2
  TAD (2)
  BSW
  DCA DOT2
  TAD DOT1
  TAD (2)
  BSW
  DCA DOT1
  TAD DOT1
  CDF 10
  DCA I INDEX2
  CDF 00
  TAD INDEX2
  TAD (20)
  DCA INDEX2
  TAD DOT2
  CDF 10
  DCA I INDEX2
  CDF 00
  TAD INDEX2
  TAD (-17)
  DCA INDEX2
  TAD INDEX3
  SZA
  JMP INLOOP
  ISZ INDEX4
  JMP MODLOC
  TAD (1400)
  JMS SCOPE
  JMP I IMAGE
MODLOC, CLA
  TAD INDEX2
  TAD (32)
  DCA INDEX2
  JMP OTLOOP
INDEX0, 0
INDEX1, 0
INDEX2, 0
INDEX3, 0
INDEX4, 0
DOT1, 0
DOT2, 0
PAGE
TESTDP, CLA
  TAD (5000)
  DCA INDEXD
  TAD (-1777)
  DCA INDEXL
  DCA I INDEXD
  TAD I INDEXD
  TAD (2)
  ISZ INDEXD
  DCA I INDEXD
  ISZ INDEXL
  JMP .-5
  JMS IMAGE
  HLT
INDEXD, 0
INDEXL, 0
$