HEADING:* READ.HD * RUNTIME READ HEAD POS. ROUTINE (ST. 600 - 620) GF


STEP
600   PRIN  STRG 600
601   XFER   DEV 600  REG 0  MASK 0  BRAN 0
602   XFER   DEV 601  REG 0  MASK 0  BRAN 0
603   GOSU  STEP 610
604   LET  DLTA 600 = DUM 600 * DLTA 601
605   XFER   DEV 602  REG 0  MASK 0  BRAN 0
606   GOSU  STEP 610
607   LET  POS 600 = DLTA 600 + ( DUM 600 * DLTA 602 )
608   XFER   DEV 605  REG 0  MASK 0  BRAN 0
609   GOTO  STEP 616
610   LET  REG 600 = 00
611   LET  REG 601 = 00
612   XFER   DEV 603  REG 600  MASK 0  BRAN 0
613   XFER   DEV 604  REG 601  MASK 0  BRAN 0
614   LET  DUM 600 = REG 600 * 010000 + REG 601 - 0100000
615   EXIT
616   REM  " ANYTHING ELSE NEEDED IN SUBROUTINE GOES HERE "
617   REM  " BEFORE THE 'EXIT' STEP"
618   EXIT
DEV
600   06002
601   06401
602   06402
603   06412
604   06414
605   06001
REG
  1   00
  2   00
  3   00
  4   00
600   00
601   00
POS
600   0, 0
DUM
600   0.00000E+00
STRG
600   _
DLTA
600   0, 0
601   1, 0
602   0, 1