1CONTROL CARD FOR SCH. SCH/C01
00000 2ORG0 SCH/C02
00000 0 00000 0 00132 3PZECOL1+1 SCH/C03
00001 0 00000 0 77701 4PZECOMMON SCH/C04
00002 746223303460 5BCD1(SCH)␣ SCH/C00
00003 0 00000 0 00000 6PZE SCH/C06
7END OF SCH CONTROL CARD. SCH/C07
00000 8ORG0 SCH 0001
77701 9COMMON SYN−63 SCH2P11
00000−0 63400 1 00104 10 FIRST SXDX1,1 SCH 0002
00001−0 63400 2 00112 11SXDX2,2 SCH 0003
00002−0 63400 4 00130 12SXDX4,4 SCH 0004
00003−0 50000 0 00005 13CALPR6 SCH 0005
00004 0 60200 0 00000 14SLW0 SCH 0006
TD00005−3 00000 0 00006 15 PR6 TXLSTART SCH 0007
00006−0 53400 4 00130 16 START LXDX4,4 SCH 0008
00007 0 50000 4 00001 17CLA1,4 OBTAIN STARTING LOCATION OF SCH 0009
00010 0 77100 0 00022 18ARS18 BUFFER AREA FOR LINE IMAGE SCH 0010
00011 0 40000 4 00001 19ADD1,4 IN BCD SCH 0011
00012−0 73400 4 00000 20 (SCH) PDXFIRST,4 SAVE LOCATION SCH 0012
00013−0 63400 4 00005 21SXDPR6,4 X SCH 0013
00014 0 62100 0 00021 22STAPR2 SUPPLY ADDRESS SCH 0014
00015 0 62100 0 00043 23STACI9 X SCH 0015
00016 0 76600 0 00341 24WPU SCH 0016
00017 0 50000 0 00127 25CLABLNKS FIND LAST NON-BLANK SCH 0017
00020−0 53400 4 00056 26LXDCI4,4 GROUP SCH 0018
00021 0 34000 4 00000 27 PR2 CAS0,4 X SCH 0019
00022 1 77777 4 00025 28TXIPR1,4,−1 SCH 0020
00023 1 00001 4 00021 29TXIPR2,4,1 X SCH 0021
00024 1 77777 4 00025 30TXIPR1,4,−1 SCH 0022
00025−0 63400 4 00062 31 PR1 SXDCI6,4 STORE END TEST SCH 0023
00026−0 63400 4 00074 32SXDCI8,4 X SCH 0024
00027−0 63400 4 00031 33SXDPR8,4 SCH 0025
00030−0 53400 4 00005 34LXDPR6,4 SCH 0026
D00031−2 00000 4 00033 35 PR8 TNXPR5,4 SCH 0027
00032−0 53400 4 00005 36 PR3 LXDPR6,4 INITIALIZE GROUP COUNT SCH 0028
00033 0 53400 2 00035 37 PR5 LXAPR7,2 INITIALIZE LEFT SETUP SCH 0029
00034−0 53400 1 00077 38LXDYZ1,1 CLEAR CARD IMAGE SCH 0030
T00035−0 75400 0 00000 39 PR7 PXD SCH 0031
00036 0 60200 1 77742 40 PR4 SLWLT,1 SCH 0032
00037 0 60200 1 77722 41SLWRT,1 SCH 0033
00040 2 00001 1 00036 42TIXPR4,1,1 X SCH 0034
00041−0 50000 0 00131 43 CIR CALCOL1 INITIALIZE COLUMN INDICATOR SCH 0035
00042 0 60200 0 77701 44 CI2 SLWCOL X SCH 0036
00043 0 56000 4 00000 45 CI9 LDQ0,4 OBTAIN GROUP SCH 0037
00044−0 63400 4 00116 46SXDOZ2,4 STORE GROUP COUNT SCH 0038
00045 0 53400 4 00047 47LXAQ6,4 SET CHARACTER COUNT SCH 0039
T00046−0 75400 0 00014 48 CI1 PXD12 SCH 0040
00047−0 76300 0 00006 49 Q6 LGL6 SCH 0041
00050 0 73400 1 00000 50PAX0,1 X SCH 0042
00051−0 50000 0 77701 51CALCOL POSITION COLUMN INDICATOR SCH 0043
00052 0 77100 4 00006 52ARS6,4 X SCH 0044
00053 2 00020 1 00077 53TIXYZ1,1,16 TEST FOR DIGIT SCH 0045
00054 3 00017 1 00102 54TXHYZ2,1,15 TEST FOR Y-ZONE SCH 0046
00055−0 60200 3 77737 55 CI5 ORSD,3 STORE DIGIT SCH 0047
00056 2 00001 4 00046 56 CI4 TIXCI1,4,1 COUNT CHARACTERS SCH 0048
00057 0 77100 0 00001 57 CI3 ARS1 SHIFT AND TEST COLUMN SCH 0049
00060−0 53400 4 00116 58LXDOZ2,4 RESTORE GROUP COUNT SCH 0050
00061 1 77777 4 00062 59TXICI6,4,−1 COUNT GROUPS SCH 0051
D00062−3 00000 4 00064 60 CI6 TXLCI7,4 TEST FOR LAST NON-BLANK GR. SCH 0052
00063−0 10000 0 00042 61TNZCI2 TEST.FOR END OF R0W SCH 0053
00064−0 50000 2 77724 62 CI7 CAL8.3,2 FORM TRUE 8,4 SCH 0054
00065−0 60200 2 77727 63ORSD−8,2 AND 3 ROWS AND SCH 0055
00066−0 60200 2 77734 64ORSD−3,2 MOVE8.4 AND 8.3 SCH 0056
00067 0 60200 2 77725 65SLW8.2,2 ROWS SCH 0057
00070−0 50000 2 77723 66CAL8.4,2 FORM TRUE8.4 SCH 0058
00071−0 60200 2 77727 67ORSD−8,2 SCH 0059
00072−0 60200 2 77733 68ORSD−4,2 SCH 0060
00073 0 60200 2 77724 69SLW8.3,2 X SCH 0061
D00074−3 00000 4 00117 70 CI8 TXLWP,4 TEST FOR END SCH 0062
00075 3 00017 2 00117 71TXHWP,2,15 TEST FOR RIGHT HALF SCH 0063
00076 1 00020 2 00041 72TXICIR,2,16 INITIALIZE RIGHT HALF SCH 0064
00077 2 00020 1 00105 73 YZ1 TIXXZ1,1,16 TEST FOR 16/CH/32 SCH 0065
00100 3 00017 1 00110 74TXHXZ2,1,15 TEST FOR X-ZONE SCH 0066
00101−0 60200 3 77737 75ORSD,3 STORE DIGIT SCH 0067
00102−0 60200 2 77741 76 YZ2 ORSY,2 STORE Y-ZONE SCH 0068
00103 2 00001 4 00046 77TIXCI1,4,1 COUNT CHARACTERS SCH 0069
TD00104−3 00000 0 00057 78 X1 TXLCI3 OBTAIN NEXT GROUP SCH 0070
00105 2 00020 1 00113 79 XZ1 TIXOZ1,1,16 TEST FOR 32/CH/48 SCH 0071
00106 3 00017 1 00056 80TXHCI4,1,15 TEST FOR BLANK SCH 0072
00107−0 60200 3 77737 81ORSD,3 STORE DIGIT SCH 0073
00110−0 60200 2 77740 82 XZ2 ORSX,2 STORE X-ZONE SCH 0074
00111 2 00001 4 00046 83TIXCI1,4,1 COUNT CHARACTERS SCH 0075
TD00112−3 00000 0 00057 84 X2 TXLCI3 OBTAIN NEXT GROUP SCH 0076
00113−0 60200 2 77737 85 OZ1 ORSZ,2 STORE 0-ZONE SCH 0077
00114−0 60200 3 77737 86ORSD,3 SCH 0078
00115 2 00001 4 00046 87TIXCI1,4,1 COUNT CHARACTERS SCH 0079
TD00116−3 00000 0 00057 88 OZ2 TXLCI3 SCH 0080
00117 0 53400 1 00046 89 WP LXACI1,1 SCH 0081
00120 0 70000 1 77742 90 WP3 CPYLT,1 COPY CARD IMAGE SCH 0082
00121 0 70000 1 77722 91CPYRT,1 SCH 0083
00122 2 00001 1 00120 92TIXWP3,1,1 SCH 0084
00123−0 53400 1 00104 93LXDX1,1 SCH 0085
00124−0 53400 2 00112 94LXDX2,2 SCH 0086
00125−0 53400 4 00130 95 WT2 LXDX4,4 SCH 0087
00126 0 02000 4 00002 96TRA2,4 SCH 0088
00127 606060606060 97 BLNKS BCD1␣␣␣␣␣␣ SCH 0089
00130 0 00000 0 00001 98 X4 HTR1 SCH 0090
00131−0 00000 0 00000 99 COL1 MZE SCH 0091
77701 100ORG−63 SCH 0092
77701 101 COL BSS1 SCH 0093
77722 102 RT BES16 SCH 0094
77722 103 8.5 BSS1 SCH 0095
77723 104 8.4 BSS1 SCH 0096
77724 105 8.3 BSS1 SCH 0097
77725 106 8.2 BSS1 SCH 0098
77737 107 D BES9 SCH 0099
77737 108 Z BSS1 SCH 0100
77740 109 X BSS1 SCH 0101
77741 110 Y BSS1 SCH 0102
77742 111 LT SYNY+1 SCH 0103