1CONTROL CARD FOR TSH. TSH/C01
00000 2ORG0 TSH/C02
00000 0 00000 0 00025 3PZEBAD+1 TSH/C03
00001 0 00000 0 00000 4PZE TSH/C04
00002 746362303460 5BCD1(TSH)␣ TSH/C05
00003 0 00000 0 00000 6PZE TSH/C06
7END OF TSH CONTROL CARD. TSH/C07
00000 8ORG0 TSH000
00000−0 63400 2 00022 9 RTD SXDX2,2 SAVE INDEX REGISTER TSH001
00001−0 76000 0 00012 10RTT CLEAR RTT INDICATOR TSH002
00002 0 76100 0 00000 11 (TSH) NOPRTD X TSH003
00003 0 50000 4 00001 12CLA1,4 OBTAIN ADDRESS OF 1ST TSH004
00004 0 62100 0 00011 13STACPY LOCATION FOR COPY TSH005
00005 0 50000 0 00023 14CLABAC INITIALIZE TAPE CHECK TEST TSH006
00006 0 60100 0 00015 15 REP STOERR TO REREAD,AFTER 1ST ERROR. TSH007
00007 0 76200 1 00177 16RDS127,1 SELECT TAPE TSH008
00010−0 53400 2 00023 17LXDBAC,2 SET IR2 TO ZERO TSH009
00011 0 70000 2 00011 18 CPY CPY*,2 READ TAPE RECORD OF TSH010
00012 1 77777 2 00011 19TXICPY,2,−1 N WORDS TSH011
00013 1 00001 4 00016 20TXIRES,4,1 EOF (END OF LIST) TSH012
00014−0 76000 0 00012 21RTT EOR REDUNDANCY TEST TSH013
U00015 00000 0 00000 22 ERR *** IT,ERROR, REREAD TSH014
00016−0 53400 2 00022 23 RES LXDX2,2 RETURN TO MAIN TSH015
00017 0 02000 4 00003 24TRA3,4 PROGRAM FOR EOF TSH016
00020 0 76400 1 00377 25 TRY BST127,1 PREPARE TO REREAO,BAO, TSH017
00021 0 50000 0 00024 26CLABAD RECORD TSH01B
TD00022 1 00000 0 00006 27 X2 TXIREP X TSH019
TD00023 1 00000 0 00020 28 BAC TXITRY TSH020
00024 0 42000 3 00000 29 BAD HPR0,3 2ND ERROR HALT TSH021