/VIDEO DATA/


FIELD 0
DELXAD=130
X1AD=131
PRODAD=132
XX=146
YY=147
COUNT=125
INDEXC=121
INDEXP=123
DELTAX=144
DELTAY=145
X1=150
Y1=151
TEMP=115
FLAG=152
CRLF=33
MESS=50
LISN=43
DISPLAY=7000
TYPE=26
BSW=7002

*0140
PROD, 6000; 7740; 7774; 7777
*4000
  JMS START
  JMP DISPLAY
START, 0
  CLA CLL
  TLS
  TAD (0144)
  DCA DELXAD
  TAD (0150)
  DCA X1AD
  TAD (0137)
  DCA PRODAD
  DCA XX
  DCA YY
  TAD (3054)
  3244
  DCA PASSX
AGAIN, JMS CRLF
  TAD (SPX)
  JMS MESS
  JMP READX
SPX, TEXT /TYPE IN A TWO-OCTAL-DIGIT DELTA X, DR. BOLIE. /
READX, KCC
  JMS LISN
  JMS TYPE
  AND (0007)
  CLL RAL
  RTL
  DCA I DELXAD
  JMS LISN
  JMS TYPE
  AND (0007)
  TAD I DELXAD
  DCA I DELXAD
  DCA COUNT
  TAD (7772)
  DCA INDEXC
  TAD I DELXAD
  CLL RAR
  SZL
  ISZ COUNT
  ISZ INDEXC
  JMP .-4
  CLA
  TAD COUNT
  TAD (7777)
  SZA
  JMP ILEGAL
  TAD I DELXAD
  DCA I X1AD
  TAD PASSX
  SNA CLA
  JMP MOD
  JMP CHKXY
PASSX, 0
MOD, ISZ PASSX
  TAD (3154)
  3244
  ISZ DELXAD
  ISZ X1AD
  JMP AGAIN
ILEGAL, CLA
  TAD (ILL)
  JMS MESS
  JMP AGAIN
ILL, TEXT / NOT ALLOWED, SAM./
PAGE
CHKXY, TAD (7774)
  DCA INDEXP
  TAD DELTAX
  CLL RAR
  DCA DELTAX
  SZL
  JMP .+5
ROTY, TAD DELTAY
  CLL RAL
  DCA DELTAY
  JMP CHKXY+2
  ISZ PRODAD
  TAD I PRODAD
  TAD DELTAY
  SNA
  JMP .+6
  ISZ INDEXP
  JMP .-7
  CLA
  JMS CRLF
  JMP UNACC
  TAD X1
  BSW
  CLL RAL
  DCA DELTAX
  TAD DELTAX
  SZL
  TAD (7600)
  DCA X1
  TAD Y1
  BSW
  CLL RAL
  DCA DELTAY
  TAD DELTAY
  SZL
  TAD (7600)
  DCA Y1
ACCEPT, TAD (ACC)
  JMS MESS
  JMP WDSIZE
ACC, TEXT / OK./
UNACC, TAD (UNA)
  JMS MESS
  JMP START+3
UNA, TEXT /DELTA X, DELTA Y PRODUCT NOT ALLOWED, DR. BOLIE./
WDSIZE, CLA
  TAD PRODAD
  TAD (6)
  DCA TEMP
  TAD I TEMP
  TAD (100)
  DCA I TEMP
  TAD START
  DCA WAIT
  JMP WAIT+1
PAGE
WAIT, 0
  TAD (4777)
  DCA 16
  STA
  DCA FLAG
  TAD (7777)
  DCA PASSES
  TAD (7740)
  DCA PASSES+1
  TAD (7400)
  DCA PASSES+2
  TAD (6000)
  DCA PASSES+3
  TAD PRODAD
  AND (0007)
  TAD (ISZ PASSES)
  DCA DPDATA+3
  6501
  JMP .-1
  CLA
LOAD, TAD (145)
  DCA 17
  TAD (7774)
  DCA INDEX
  TAD I 17
  CMA
  6166
  ISZ INDEX
  JMP .-4
  6167
  CLA
WINDOW, TAD DELTAX
  SNA CLA
  JMP UPDTY
  TAD FLAG
  SPA CLA
  JMP UPDTX
UPDTY, TAD YY
  TAD DELTAY
  DCA YY
  CLL
  TAD Y1
  TAD DELTAY
  SZL
  TAD (7600)
  DCA Y1
UPDTX, TAD XX
  TAD DELTAX
  DCA XX
  CLL
  TAD X1
  ISZ FLAG
  AND (0100)
  TAD DELTAX
  SZL
  TAD (7600)
  DCA X1
  CML
  RAL
  CIA
  DCA FLAG
DPDATA, 6501
  JMP .-1
  DCA I 16
  ISZ PASSES
  JMP LOAD
DATAST, JMS CRLF
  TAD (DST)
  JMS MESS
  JMP I WAIT
DST, TEXT /DATA IS STORED./
INDEX, 0
PASSES, 0; 0; 0; 0
$