␣␣␣␣X2 = 18
  1. Definition
    TD00022 1 00000 0 00006 27 X2 TXIREP X TSH019
  2. References (2)
    00000−0 63400 2 00022 9 RTD SXDX2,2 SAVE INDEX REGISTER TSH001
    00016−0 53400 2 00022 23 RES LXDX2,2 RETURN TO MAIN TSH015
␣␣␣BAC = 19
  1. Definition
    TD00023 1 00000 0 00020 28 BAC TXITRY TSH020
  2. References (2)
    00005 0 50000 0 00023 14CLABAC INITIALIZE TAPE CHECK TEST TSH006
    00010−0 53400 2 00023 17LXDBAC,2 SET IR2 TO ZERO TSH009
␣␣␣BAD = 20
  1. Definition
    00024 0 42000 3 00000 29 BAD HPR0,3 2ND ERROR HALT TSH021
  2. References (2)
    00000 0 00000 0 00025 3PZEBAD+1 TSH/C03
    00021 0 50000 0 00024 26CLABAD RECORD TSH01B
␣␣␣CPY = 9
  1. Definition
    00011 0 70000 2 00011 18 CPY CPY*,2 READ TAPE RECORD OF TSH010
  2. References (2)
    00004 0 62100 0 00011 13STACPY LOCATION FOR COPY TSH005
    00012 1 77777 2 00011 19TXICPY,2,−1 N WORDS TSH011
␣␣␣ERR = 13
  1. Definition
    U00015 00000 0 00000 22 ERR *** IT,ERROR, REREAD TSH014
  2. Reference
    00006 0 60100 0 00015 15 REP STOERR TO REREAD,AFTER 1ST ERROR. TSH007
␣␣␣REP = 6
  1. Definition
    00006 0 60100 0 00015 15 REP STOERR TO REREAD,AFTER 1ST ERROR. TSH007
  2. Reference
    TD00022 1 00000 0 00006 27 X2 TXIREP X TSH019
␣␣␣RES = 14
  1. Definition
    00016−0 53400 2 00022 23 RES LXDX2,2 RETURN TO MAIN TSH015
  2. Reference
    00013 1 00001 4 00016 20TXIRES,4,1 EOF (END OF LIST) TSH012
␣␣␣RTD = 0
  1. Definition
    00000−0 63400 2 00022 9 RTD SXDX2,2 SAVE INDEX REGISTER TSH001
  2. Reference
    00002 0 76100 0 00000 11 (TSH) NOPRTD X TSH003
␣␣␣TRY = 16
  1. Definition
    00020 0 76400 1 00377 25 TRY BST127,1 PREPARE TO REREAO,BAO, TSH017
  2. Reference
    TD00023 1 00000 0 00020 28 BAC TXITRY TSH020
␣(TSH) = 2
  1. Definition
    00002 0 76100 0 00000 11 (TSH) NOPRTD X TSH003