PiDP-8/I Software

Artifact 31e8c89ecaf7f524285fad2581eefa7d2b2095bb:

• File src/os8/ock/CUSPS/TDFRMT.PA — part of check-in [37f2c27165] at 2020-06-21 02:45:53 on branch trunk — Renamed uni and all its manifestations to ock. (user: poetnerd size: 38463) [more...]
• File src/os8/uni/CUSPS/TDFRMT.PA — part of check-in [04a9ed7d11] at 2020-04-22 04:09:49 on branch os8-uni — Begin work on the Fossil Combined Kit. Initial checkin contains the Combined Kit sources and an initial extremely drafty draft of a top-level README.md (user: poetnerd size: 38463)

0000: 2f 54 44 38 45 20 46 4f 52 4d 41 54 54 45 52 20  /TD8E FORMATTER 
0010: 56 34 0d 0a 2f 0d 0a 2f 0d 0a 2f 0d 0a 2f 0d 0a  V4../../../../..
0020: 2f 0d 0a 2f 0d 0a 2f 2f 0d 0a 2f 0d 0a 2f 0d 0a  /../..//../../..
0030: 2f 0d 0a 2f 0d 0a 2f 43 4f 50 59 52 49 47 48 54  /../../COPYRIGHT
0040: 20 28 43 29 20 31 39 37 31 2c 20 31 39 37 35 0d   (C) 1971, 1975.
0050: 0a 2f 44 49 47 49 54 41 4c 20 45 51 55 49 50 4d  ./DIGITAL EQUIPM
0060: 45 4e 54 20 43 4f 52 50 4f 52 41 54 49 4f 4e 2c  ENT CORPORATION,
0070: 20 4d 41 59 4e 41 52 44 2c 20 4d 41 53 53 2e 0d   MAYNARD, MASS..
0080: 0a 2f 0d 0a 2f 0d 0a 2f 0d 0a 2f 54 48 49 53 20  ./../../../THIS 
0090: 53 4f 46 54 57 41 52 45 20 49 53 20 46 55 52 4e  SOFTWARE IS FURN
00a0: 49 53 48 45 44 20 55 4e 44 45 52 20 41 20 4c 49  ISHED UNDER A LI
00b0: 43 45 4e 53 45 20 46 4f 52 20 55 53 45 20 4f 4e  CENSE FOR USE ON
00c0: 4c 59 20 4f 4e 20 41 0d 0a 2f 53 49 4e 47 4c 45  LY ON A../SINGLE
00d0: 20 43 4f 4d 50 55 54 45 52 20 53 59 53 54 45 4d   COMPUTER SYSTEM
00e0: 20 41 4e 44 20 4d 41 59 20 42 45 20 43 4f 50 49   AND MAY BE COPI
00f0: 45 44 20 4f 4e 4c 59 20 57 49 54 48 20 54 48 45  ED ONLY WITH THE
0100: 20 49 4e 43 4c 55 2d 0d 0a 2f 53 49 4f 4e 20 4f   INCLU-../SION O
0110: 46 20 54 48 45 20 41 42 4f 56 45 20 43 4f 50 59  F THE ABOVE COPY
0120: 52 49 47 48 54 20 4e 4f 54 49 43 45 2e 20 20 54  RIGHT NOTICE.  T
0130: 48 49 53 20 53 4f 46 54 57 41 52 45 2c 20 4f 52  HIS SOFTWARE, OR
0140: 20 41 4e 54 20 4f 54 48 45 52 0d 0a 2f 43 4f 50   ANT OTHER../COP
0150: 49 45 53 20 54 48 45 52 45 4f 46 2c 20 4d 41 59  IES THEREOF, MAY
0160: 20 4e 4f 54 20 42 52 20 50 52 4f 56 49 44 45 44   NOT BR PROVIDED
0170: 20 4f 52 20 4f 54 48 45 52 57 49 53 45 20 4d 41   OR OTHERWISE MA
0180: 44 45 20 41 56 41 49 4c 41 42 4c 45 0d 0a 2f 54  DE AVAILABLE../T
0190: 4f 20 41 4e 59 20 4f 54 48 45 52 20 50 45 52 53  O ANY OTHER PERS
01a0: 4f 4e 20 45 58 43 45 50 54 20 46 4f 52 20 55 53  ON EXCEPT FOR US
01b0: 45 20 4f 4e 20 53 55 43 48 20 53 59 53 54 45 4d  E ON SUCH SYSTEM
01c0: 20 41 4e 44 20 54 4f 20 4f 4e 45 20 57 48 4f 0d   AND TO ONE WHO.
01d0: 0a 2f 41 47 52 45 45 53 20 54 4f 20 54 48 45 53  ./AGREES TO THES
01e0: 45 20 4c 49 43 45 4e 53 45 20 54 45 52 4d 53 2e  E LICENSE TERMS.
01f0: 20 20 54 49 54 4c 45 20 54 4f 20 41 4e 44 20 4f    TITLE TO AND O
0200: 57 4e 45 52 53 48 49 50 20 4f 46 20 54 48 45 0d  WNERSHIP OF THE.
0210: 0a 2f 53 4f 46 54 57 41 52 45 20 53 48 41 4c 4c  ./SOFTWARE SHALL
0220: 20 41 54 20 41 4c 4c 20 54 49 4d 45 53 20 52 45   AT ALL TIMES RE
0230: 4d 41 49 4e 20 49 4e 20 44 45 43 2e 0d 0a 2f 0d  MAIN IN DEC.../.
0240: 0a 2f 0d 0a 2f 54 48 45 20 49 4e 46 4f 52 4d 41  ./../THE INFORMA
0250: 54 49 4f 4e 20 49 4e 20 54 48 49 53 20 53 4f 46  TION IN THIS SOF
0260: 54 57 41 52 45 20 49 53 20 53 55 42 4a 45 43 54  TWARE IS SUBJECT
0270: 20 54 4f 20 43 48 41 4e 47 45 20 57 49 54 48 4f   TO CHANGE WITHO
0280: 55 54 0d 0a 2f 4e 4f 54 49 43 45 20 41 4e 44 20  UT../NOTICE AND 
0290: 53 48 4f 55 4c 44 20 4e 4f 54 20 42 45 20 43 4f  SHOULD NOT BE CO
02a0: 4e 53 54 52 55 45 44 20 41 53 20 41 20 43 4f 4d  NSTRUED AS A COM
02b0: 4d 49 54 4d 45 4e 54 20 42 59 20 44 49 47 49 54  MITMENT BY DIGIT
02c0: 41 4c 0d 0a 2f 45 51 55 49 50 4d 52 4e 54 20 43  AL../EQUIPMRNT C
02d0: 4f 52 4f 50 41 54 49 4f 4e 2e 0d 0a 2f 0d 0a 2f  OROPATION.../../
02e0: 44 45 43 20 41 53 53 55 4d 45 53 20 4e 4f 20 52  DEC ASSUMES NO R
02f0: 45 53 50 4f 4e 53 49 42 49 4c 49 54 59 20 46 4f  ESPONSIBILITY FO
0300: 52 20 54 48 45 20 55 53 45 20 4f 52 20 52 45 4c  R THE USE OR REL
0310: 49 41 42 49 4c 49 54 59 20 4f 46 20 49 54 53 0d  IABILITY OF ITS.
0320: 0a 2f 53 4f 46 54 57 41 52 45 20 4f 4e 20 45 51  ./SOFTWARE ON EQ
0330: 55 49 50 4d 45 4e 54 20 57 48 49 43 48 20 49 53  UIPMENT WHICH IS
0340: 20 4e 4f 54 20 53 55 50 50 4c 49 45 44 20 42 59   NOT SUPPLIED BY
0350: 20 44 45 43 2e 0d 0a 2f 0d 0a 2f 0d 0a 2f 0d 0a   DEC.../../../..
0360: 2f 0d 0a 2f 0d 0a 2f 0d 0a 0c 0d 0a 0d 0a 2f 54  /../../......./T
0370: 44 38 45 20 44 45 43 54 41 50 45 20 46 4f 52 4d  D8E DECTAPE FORM
0380: 41 54 54 45 52 20 43 4f 50 59 52 49 47 48 54 20  ATTER COPYRIGHT 
0390: 31 39 37 31 0d 0a 2f 44 49 47 49 54 41 4c 20 45  1971../DIGITAL E
03a0: 51 55 49 50 4d 45 4e 54 20 43 4f 52 50 2e 0d 0a  QUIPMENT CORP...
03b0: 2f 4d 41 59 4e 41 52 44 20 2c 20 4d 41 53 53 0d  /MAYNARD , MASS.
03c0: 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 09 58 31 3d 31  ............X1=1
03d0: 30 0d 0a 09 58 32 3d 31 31 0d 0a 0d 0a 2f 53 59  0...X2=11..../SY
03e0: 4d 42 4f 4c 20 54 41 42 4c 45 20 41 55 47 4d 45  MBOL TABLE AUGME
03f0: 4e 54 41 54 49 4f 4e 0d 0a 0d 0a 09 53 44 53 53  NTATION.....SDSS
0400: 3d 36 37 37 31 0d 0a 09 53 44 53 54 3d 36 37 37  =6771...SDST=677
0410: 32 0d 0a 09 53 44 53 51 3d 36 37 37 33 0d 0a 09  2...SDSQ=6773...
0420: 53 44 4c 43 3d 36 37 37 34 0d 0a 09 53 44 4c 44  SDLC=6774...SDLD
0430: 3d 36 37 37 35 0d 0a 09 53 44 52 43 3d 36 37 37  =6775...SDRC=677
0440: 36 0d 0a 09 53 44 52 44 3d 36 37 37 37 0d 0a 0d  6...SDRD=6777...
0450: 0a 0d 0a 09 2a 30 0d 0a 09 30 0d 0a 09 4a 4d 50  ....*0...0...JMP
0460: 09 31 09 2f 48 4c 54 20 50 52 4f 47 52 41 4d 20  .1./HLT PROGRAM 
0470: 47 4f 54 20 49 4e 54 45 52 52 55 50 54 45 44 20  GOT INTERRUPTED 
0480: 53 4f 4d 45 48 4f 57 0d 0a 09 32 09 09 0d 0a 09  SOMEHOW...2.....
0490: 33 0d 0a 09 30 0d 0a 09 30 0d 0a 0d 0a 2f 57 4f  3...0...0..../WO
04a0: 52 4b 49 4e 47 20 4c 4f 43 41 54 49 4f 4e 53 0d  RKING LOCATIONS.
04b0: 0a 0d 0a 09 2a 32 30 0d 0a 0d 0a 57 31 2c 09 30  ....*20....W1,.0
04c0: 30 30 30 0d 0a 57 32 2c 09 30 30 30 30 0d 0a 57  000..W2,.0000..W
04d0: 33 2c 09 30 30 30 30 0d 0a 57 34 2c 09 30 30 30  3,.0000..W4,.000
04e0: 30 0d 0a 57 35 2c 09 30 30 30 30 0d 0a 57 36 2c  0..W5,.0000..W6,
04f0: 09 30 30 30 30 0d 0a 42 4c 4f 43 4b 53 2c 09 30  .0000..BLOCKS,.0
0500: 30 30 30 0d 0a 44 54 41 2c 09 30 30 30 30 0d 0a  000..DTA,.0000..
0510: 50 48 41 53 45 2c 09 30 30 30 30 0d 0a 54 4f 54  PHASE,.0000..TOT
0520: 41 4c 2c 09 30 30 30 30 0d 0a 56 41 52 31 2c 09  AL,.0000..VAR1,.
0530: 30 30 30 30 0d 0a 56 41 52 32 2c 09 30 30 30 30  0000..VAR2,.0000
0540: 0d 0d 0a 2f 43 4f 4e 53 54 41 4e 54 53 0d 0a 0d  .../CONSTANTS...
0550: 0a 43 30 30 31 37 2c 09 30 30 31 37 0d 0a 43 30  .C0017,.0017..C0
0560: 30 37 30 2c 09 30 30 37 30 0d 0a 43 30 30 37 37  070,.0070..C0077
0570: 2c 09 30 30 37 37 0d 0a 43 30 30 30 37 2c 09 30  ,.0077..C0007,.0
0580: 30 30 37 0d 0a 43 30 37 30 30 2c 09 30 37 30 30  007..C0700,.0700
0590: 0d 0a 43 32 30 33 2c 09 30 32 30 33 0d 0a 43 32  ..C203,.0203..C2
05a0: 30 31 2c 09 30 32 30 31 0d 0a 43 32 36 30 2c 09  01,.0201..C260,.
05b0: 30 32 36 30 0d 0a 43 32 36 31 2c 09 30 32 36 31  0260..C261,.0261
05c0: 0d 0a 43 32 37 30 2c 09 30 32 37 30 0d 0a 43 32  ..C270,.0270..C2
05d0: 37 31 2c 09 30 32 37 31 0d 0a 43 32 37 37 2c 09  71,.0271..C277,.
05e0: 30 32 37 37 0d 0a 43 31 36 32 30 2c 09 31 36 32  0277..C1620,.162
05f0: 30 0d 0a 43 37 30 30 30 2c 09 37 30 30 30 0d 0a  0..C7000,.7000..
0600: 43 37 37 30 30 2c 09 37 37 30 30 0d 0a 43 37 37  C7700,.7700..C77
0610: 31 34 2c 09 37 37 31 34 0d 0a 43 37 37 36 31 2c  14,.7714..C7761,
0620: 09 37 37 36 31 0d 0a 43 52 43 4f 44 2c 09 30 32  .7761..CRCOD,.02
0630: 31 35 0d 0a 4c 45 54 4b 2c 09 30 33 31 33 0d 0a  15..LETK,.0313..
0640: 4c 46 43 4f 44 2c 09 30 32 31 32 0d 0a 4d 32 2c  LFCOD,.0212..M2,
0650: 09 2d 32 0d 0a 4d 33 2c 09 2d 33 0d 0a 4d 36 2c  .-2..M3,.-3..M6,
0660: 09 2d 36 0d 0a 4d 37 2c 09 2d 37 0d 0a 4d 31 34  .-6..M7,.-7..M14
0670: 2c 09 2d 31 34 0d 0a 4d 31 34 34 2c 09 2d 31 34  ,.-14..M144,.-14
0680: 34 0d 0a 53 50 43 4f 44 2c 09 30 32 34 30 0d 0d  4..SPCOD,.0240..
0690: 0a 0d 0a 42 41 44 44 2c 09 42 55 46 46 45 52 2d  ...BADD,.BUFFER-
06a0: 31 0d 0a 42 46 52 2c 09 42 55 46 46 45 52 0d 0a  1..BFR,.BUFFER..
06b0: 43 4f 4d 50 41 52 2c 09 43 4f 4d 50 52 45 0d 0a  COMPAR,.COMPRE..
06c0: 49 54 2c 09 49 4e 49 54 31 0d 0a 51 55 31 2c 09  IT,.INIT1..QU1,.
06d0: 51 31 0d 0a 51 55 32 2c 09 51 32 0d 0a 51 55 33  Q1..QU2,.Q2..QU3
06e0: 2c 09 51 33 0d 0a 51 55 34 2c 09 51 34 0d 0a 4d  ,.Q3..QU4,.Q4..M
06f0: 45 53 53 2c 09 4d 45 53 0d 0a 53 54 58 2c 09 53  ESS,.MES..STX,.S
0700: 54 41 52 54 0d 0a 54 59 4f 43 54 2c 09 54 59 43  TART..TYOCT,.TYC
0710: 54 0d 0a 54 59 50 45 2c 09 4d 45 53 41 47 45 0d  T..TYPE,.MESAGE.
0720: 0a 54 59 50 49 4e 2c 09 54 59 50 4e 0d 0a 57 41  .TYPIN,.TYPN..WA
0730: 49 54 2c 09 53 54 41 4c 4c 0d 0a 57 43 2c 09 30  IT,.STALL..WC,.0
0740: 0d 0a 4d 54 52 2c 09 30 0d 0a 53 4c 52 44 52 43  ..MTR,.0..SLRDRC
0750: 2c 09 53 52 44 52 43 0d 0a 44 41 54 52 44 2c 09  ,.SRDRC..DATRD,.
0760: 30 0d 0a 4d 35 35 2c 09 2d 35 35 0d 0a 4d 32 35  0..M55,.-55..M25
0770: 2c 09 2d 32 35 0d 0a 4d 32 36 2c 09 2d 32 36 0d  ,.-25..M26,.-26.
0780: 0a 4d 33 32 2c 09 2d 33 32 0d 0a 4d 31 30 2c 09  .M32,.-32..M10,.
0790: 2d 31 30 0d 0a 4d 37 30 2c 09 2d 37 30 0d 0a 4d  -10..M70,.-70..M
07a0: 37 33 2c 09 2d 37 33 0d 0a 4d 35 31 2c 09 2d 35  73,.-73..M51,.-5
07b0: 31 0d 0a 4d 34 35 2c 09 2d 34 35 0d 0a 4d 32 32  1..M45,.-45..M22
07c0: 2c 09 2d 32 32 0d 0a 4d 31 34 33 2c 09 2d 31 34  ,.-22..M143,.-14
07d0: 33 0d 0a 4d 35 32 2c 09 2d 35 32 0d 0a 4d 33 31  3..M52,.-52..M31
07e0: 2c 09 2d 33 31 0d 0a 4d 33 30 36 2c 09 2d 33 30  ,.-31..M306,.-30
07f0: 36 0d 0a 43 4e 54 2c 09 30 0d 0a 4d 34 2c 09 2d  6..CNT,.0..M4,.-
0800: 34 0d 0a 4d 33 30 37 2c 09 2d 33 30 37 0d 0a 53  4..M307,.-307..S
0810: 53 44 53 51 54 2c 09 53 44 53 51 54 0d 0a 53 41  SDSQT,.SDSQT..SA
0820: 33 4c 4e 53 2c 09 41 33 4c 4e 53 0d 0a 53 43 45  3LNS,.A3LNS..SCE
0830: 58 50 43 2c 09 43 45 58 50 43 0d 0a 4d 53 4b 37  XPC,.CEXPC..MSK7
0840: 37 2c 09 30 30 37 37 0d 0a 4e 55 44 2c 09 4e 55  7,.0077..NUD,.NU
0850: 44 54 41 0d 0a 42 4c 4b 2c 09 30 0d 0a 52 45 56  DTA..BLK,.0..REV
0860: 42 4c 4b 2c 09 30 0d 0a 42 43 58 4f 52 2c 09 53  BLK,.0..BCXOR,.S
0870: 42 43 58 4f 52 0d 0a 43 48 4b 53 55 4d 2c 09 30  BCXOR..CHKSUM,.0
0880: 0d 0a 53 42 57 4f 52 44 2c 09 30 0d 0a 0d 0d 0a  ..SBWORD,.0.....
0890: 0d 0a 0d 0a 2f 54 59 50 45 20 54 48 45 20 43 48  ..../TYPE THE CH
08a0: 41 52 41 43 54 45 52 20 49 4e 20 54 48 45 20 41  ARACTER IN THE A
08b0: 43 20 4f 4e 20 54 48 45 20 4b 45 59 42 4f 41 52  C ON THE KEYBOAR
08c0: 44 20 50 52 49 4e 54 45 52 0d 0a 0d 0a 52 53 45  D PRINTER....RSE
08d0: 4e 44 2c 09 30 30 30 30 0d 0a 09 54 4c 53 09 09  ND,.0000...TLS..
08e0: 2f 4c 4f 41 44 20 41 4e 44 20 50 52 49 4e 54 2c  /LOAD AND PRINT,
08f0: 20 43 4c 45 41 52 20 46 4c 41 47 0d 0a 09 54 53   CLEAR FLAG...TS
0900: 46 09 09 2f 57 41 49 54 20 46 4f 52 20 43 4f 4e  F../WAIT FOR CON
0910: 46 49 52 4d 41 54 49 4f 4e 0d 0a 09 4a 4d 50 20  FIRMATION...JMP 
0920: 20 20 2e 2d 31 09 2f 45 4e 44 4c 45 53 53 4c 59    .-1./ENDLESSLY
0930: 0d 0a 09 54 43 46 09 09 2f 43 4c 45 41 52 20 54  ...TCF../CLEAR T
0940: 48 45 20 46 4c 41 47 20 41 4e 59 57 41 59 0d 0a  HE FLAG ANYWAY..
0950: 09 4a 4d 50 20 49 20 52 53 45 4e 44 0d 0a 0d 0a  .JMP I RSEND....
0960: 0d 0a 2f 50 52 49 4e 54 20 41 20 22 3f 22 20 4f  ../PRINT A "?" O
0970: 4e 20 54 48 45 20 4b 45 59 42 4f 41 52 44 20 54  N THE KEYBOARD T
0980: 59 50 45 52 0d 0a 0d 0a 51 55 2c 09 2e 2b 31 0d  YPER....QU,..+1.
0990: 0a 09 49 4f 46 0d 0a 09 43 4c 41 20 20 20 43 4c  ..IOF...CLA   CL
09a0: 4c 09 2f 43 28 41 43 29 2b 43 28 4c 29 3d 30 0d  L./C(AC)+C(L)=0.
09b0: 0a 09 54 41 44 20 20 20 43 32 37 37 09 2f 22 3f  ..TAD   C277./"?
09c0: 22 0d 0a 09 4a 4d 53 20 20 20 52 53 45 4e 44 09  "...JMS   RSEND.
09d0: 2f 54 59 50 45 20 54 48 45 20 43 48 41 52 41 43  /TYPE THE CHARAC
09e0: 54 45 52 0d 0a 09 4a 4d 50 20 49 20 2e 2b 31 09  TER...JMP I .+1.
09f0: 2f 52 45 53 54 41 52 54 0d 0a 09 49 4e 49 54 0d  /RESTART...INIT.
0a00: 0a 0d 0a 2f 44 45 43 54 41 50 45 20 43 4f 4e 54  .../DECTAPE CONT
0a10: 52 4f 4c 20 57 4f 52 44 53 0d 0a 0d 0a 44 54 31  ROL WORDS....DT1
0a20: 34 30 30 2c 09 31 34 30 30 0d 0a 44 54 30 34 30  400,.1400..DT040
0a30: 30 2c 09 30 34 30 30 0d 0a 44 54 32 30 30 30 2c  0,.0400..DT2000,
0a40: 09 32 30 30 30 0d 0a 44 54 33 30 30 30 2c 09 33  .2000..DT3000,.3
0a50: 30 30 30 0d 0a 44 54 31 30 30 30 2c 09 31 30 30  000..DT1000,.100
0a60: 30 0d 0a 0d 0a 42 49 4e 43 4f 2c 09 42 49 4e 43  0....BINCO,.BINC
0a70: 4f 4e 0d 0a 53 45 4c 54 49 4d 2c 09 5a 54 49 4d  ON..SELTIM,.ZTIM
0a80: 0d 0a 4d 41 52 4b 45 52 2c 09 5a 4d 4b 54 4b 0d  ..MARKER,.ZMKTK.
0a90: 0a 42 4c 4b 45 52 52 2c 09 5a 42 4c 4b 0d 0a 44  .BLKERR,.ZBLK..D
0aa0: 41 54 45 52 52 2c 09 5a 44 41 54 41 0d 0a 43 48  ATERR,.ZDATA..CH
0ab0: 4b 45 52 52 2c 09 5a 50 41 52 0d 0a 44 4f 4d 41  KERR,.ZPAR..DOMA
0ac0: 52 4b 2c 09 53 54 4d 4b 0d 0a 44 42 55 46 50 54  RK,.STMK..DBUFPT
0ad0: 2c 09 30 09 2f 50 4f 49 4e 54 45 52 20 54 4f 20  ,.0./POINTER TO 
0ae0: 43 55 52 52 45 4e 54 20 50 4f 53 49 54 49 4f 4e  CURRENT POSITION
0af0: 20 49 4e 20 44 54 41 20 4c 49 53 54 0d 0a 0d 0a   IN DTA LIST....
0b00: 0d 0a 0d 0a 2a 32 30 30 09 2f 50 41 47 45 20 31  ....*200./PAGE 1
0b10: 0d 0a 2f 54 59 50 45 20 43 41 4e 4e 45 44 20 4d  ../TYPE CANNED M
0b20: 45 53 53 41 47 45 53 2e 2e 2e 2e 2e 0d 0a 2f 54  ESSAGES......./T
0b30: 48 41 4e 4b 53 20 54 4f 20 44 49 47 49 54 41 4c  HANKS TO DIGITAL
0b40: 20 38 2d 31 38 2d 55 0d 0a 09 4a 4d 50 20 20 49   8-18-U...JMP  I
0b50: 20 20 2e 2b 31 0d 0a 09 50 41 54 43 48 0d 0a 0d    .+1...PATCH...
0b60: 0a 4d 45 53 41 47 45 2c 09 30 0d 0a 09 49 4f 46  .MESAGE,.0...IOF
0b70: 0d 0a 09 43 4c 41 20 20 20 43 4d 41 09 2f 53 45  ...CLA   CMA./SE
0b80: 54 20 43 28 41 43 29 3d 2d 31 0d 0a 09 54 41 44  T C(AC)=-1...TAD
0b90: 20 20 20 4d 45 53 41 47 45 09 2f 41 44 44 20 4c     MESAGE./ADD L
0ba0: 4f 43 41 54 49 4f 4e 0d 0a 09 44 43 41 20 20 20  OCATION...DCA   
0bb0: 31 30 09 2f 41 55 54 4f 20 49 4e 44 45 58 20 52  10./AUTO INDEX R
0bc0: 45 47 49 53 54 45 52 0d 0a 09 54 41 44 20 49 20  EGISTER...TAD I 
0bd0: 31 30 09 2f 46 45 54 43 48 20 46 49 52 53 54 20  10./FETCH FIRST 
0be0: 57 4f 52 44 0d 0a 09 44 43 41 20 20 20 4d 53 52  WORD...DCA   MSR
0bf0: 47 48 54 09 2f 53 41 56 45 20 49 54 0d 0a 09 54  GHT./SAVE IT...T
0c00: 41 44 20 20 20 4d 53 52 47 48 54 0d 0a 09 52 54  AD   MSRGHT...RT
0c10: 52 0d 0a 09 52 54 52 09 09 2f 52 4f 54 41 54 45  R...RTR../ROTATE
0c20: 20 36 20 42 49 54 53 20 54 4f 20 54 48 45 20 52   6 BITS TO THE R
0c30: 49 47 48 54 0d 0a 09 52 54 52 0d 0a 09 4a 4d 53  IGHT...RTR...JMS
0c40: 20 20 20 54 59 50 45 43 48 09 2f 54 59 50 45 20     TYPECH./TYPE 
0c50: 49 54 0d 0a 09 54 41 44 20 20 20 4d 53 52 47 48  IT...TAD   MSRGH
0c60: 54 09 2f 47 45 54 20 44 41 54 41 20 41 47 41 49  T./GET DATA AGAI
0c70: 4e 0d 0a 09 4a 4d 53 20 20 20 54 59 50 45 43 48  N...JMS   TYPECH
0c80: 09 2f 54 59 50 45 20 52 49 47 48 54 20 48 41 4c  ./TYPE RIGHT HAL
0c90: 46 0d 0a 09 4a 4d 50 20 20 20 4d 45 53 41 47 45  F...JMP   MESAGE
0ca0: 2b 35 09 2f 43 4f 4e 54 49 4e 55 45 0d 0a 4d 53  +5./CONTINUE..MS
0cb0: 52 47 48 54 2c 09 30 09 09 2f 54 45 4d 50 4f 52  RGHT,.0../TEMPOR
0cc0: 41 52 59 20 53 54 4f 52 41 47 45 0d 0a 54 59 50  ARY STORAGE..TYP
0cd0: 45 43 48 2c 09 30 09 09 2f 54 59 50 45 20 43 48  ECH,.0../TYPE CH
0ce0: 41 52 41 43 54 45 52 20 49 4e 20 43 28 41 43 29  ARACTER IN C(AC)
0cf0: 36 2d 31 31 0d 0a 09 41 4e 44 20 20 20 43 30 30  6-11...AND   C00
0d00: 37 37 0d 0a 09 53 4e 41 09 09 2f 49 53 20 49 54  77...SNA../IS IT
0d10: 20 45 4e 44 20 4f 46 20 4d 45 53 53 41 47 45 3f   END OF MESSAGE?
0d20: 0d 0a 09 4a 4d 50 20 49 20 31 30 09 2f 59 45 53  ...JMP I 10./YES
0d30: 3a 20 45 58 49 54 0d 0a 09 54 41 44 20 20 20 4d  : EXIT...TAD   M
0d40: 34 30 09 2f 53 55 42 54 52 41 43 54 20 34 30 0d  40./SUBTRACT 40.
0d50: 0a 09 53 4d 41 09 09 2f 3c 34 30 3f 0d 0a 09 4a  ..SMA../<40?...J
0d60: 4d 50 20 20 20 2e 2b 33 09 2f 4e 4f 0d 0a 09 54  MP   .+3./NO...T
0d70: 41 44 20 20 20 43 33 34 30 09 2f 59 45 53 3a 20  AD   C340./YES: 
0d80: 41 44 44 20 33 30 30 0d 0a 09 4a 4d 50 20 20 20  ADD 300...JMP   
0d90: 4d 54 50 09 2f 54 4f 20 43 4f 44 45 53 20 3c 34  MTP./TO CODES <4
0da0: 30 0d 0a 09 54 41 44 20 20 20 4d 33 09 2f 53 55  0...TAD   M3./SU
0db0: 42 54 52 41 43 54 20 33 0d 0a 09 53 5a 41 09 09  BTRACT 3...SZA..
0dc0: 2f 49 53 20 49 54 20 5a 45 52 4f 3f 0d 0a 09 4a  /IS IT ZERO?...J
0dd0: 4d 50 20 20 20 2e 2b 33 09 2f 4e 4f 0d 0a 09 54  MP   .+3./NO...T
0de0: 41 44 20 20 20 43 32 31 32 09 2f 59 45 53 3a 20  AD   C212./YES: 
0df0: 43 4f 44 45 20 34 33 20 49 53 0d 0a 09 4a 4d 50  CODE 43 IS...JMP
0e00: 20 20 20 4d 54 50 09 2f 4c 49 4e 45 2d 46 45 45     MTP./LINE-FEE
0e10: 44 20 28 32 31 32 29 0d 0a 09 54 41 44 20 20 20  D (212)...TAD   
0e20: 4d 32 09 2f 53 55 42 54 52 41 43 54 20 32 0d 0a  M2./SUBTRACT 2..
0e30: 09 53 5a 41 09 09 2f 49 53 20 49 54 20 5a 45 52  .SZA../IS IT ZER
0e40: 4f 3f 0d 0a 09 4a 4d 50 20 20 20 2e 2b 33 09 2f  O?...JMP   .+3./
0e50: 4e 4f 0d 0a 09 54 41 44 20 20 20 43 32 31 35 09  NO...TAD   C215.
0e60: 2f 59 45 53 3a 20 43 4f 44 45 20 34 35 20 49 53  /YES: CODE 45 IS
0e70: 0d 0a 09 4a 4d 50 20 20 20 4d 54 50 09 2f 43 41  ...JMP   MTP./CA
0e80: 52 52 49 41 47 45 20 52 45 54 55 52 4e 20 28 32  RRIAGE RETURN (2
0e90: 31 35 29 0d 0a 09 54 41 44 20 20 20 43 32 34 35  15)...TAD   C245
0ea0: 09 2f 41 44 44 20 32 30 30 20 54 4f 20 4f 54 48  ./ADD 200 TO OTH
0eb0: 45 52 53 20 3e 34 30 0d 0a 4d 54 50 2c 09 54 4c  ERS >40..MTP,.TL
0ec0: 53 09 09 2f 54 52 41 4e 53 4d 49 54 20 43 48 41  S../TRANSMIT CHA
0ed0: 52 41 43 54 45 52 0d 0a 09 54 53 46 09 09 2f 57  RACTER...TSF../W
0ee0: 41 49 54 20 46 4f 52 20 54 48 45 20 46 4c 41 47  AIT FOR THE FLAG
0ef0: 0d 0a 09 4a 4d 50 20 20 20 2e 2d 31 09 2f 4e 4f  ...JMP   .-1./NO
0f00: 54 20 53 45 54 20 59 45 54 0d 0a 09 43 4c 41 20  T SET YET...CLA 
0f10: 09 09 2f 53 45 54 3a 20 43 4c 45 41 52 20 43 28  ../SET: CLEAR C(
0f20: 41 43 29 0d 0a 09 4a 4d 50 20 49 20 54 59 50 45  AC)...JMP I TYPE
0f30: 43 48 09 2f 52 45 54 55 52 4e 0d 0a 0d 0a 2f 43  CH./RETURN..../C
0f40: 4f 4e 53 54 41 4e 54 53 0d 0a 0d 0a 4d 34 30 2c  ONSTANTS....M40,
0f50: 09 2d 34 30 0d 0a 43 33 34 30 2c 09 33 34 30 0d  .-40..C340,.340.
0f60: 0a 43 32 31 32 2c 09 32 31 32 0d 0a 43 32 31 35  .C212,.212..C215
0f70: 2c 09 32 31 35 0d 0a 43 32 34 35 2c 09 32 34 35  ,.215..C245,.245
0f80: 0d 0d 0a 2f 52 4f 55 54 49 4e 45 20 57 41 49 54  .../ROUTINE WAIT
0f90: 53 20 55 4e 54 49 4c 4c 20 41 20 43 4f 4d 50 4c  S UNTILL A COMPL
0fa0: 45 54 45 20 4d 45 53 53 41 47 45 20 48 41 53 20  ETE MESSAGE HAS 
0fb0: 42 45 45 4e 20 45 4e 54 45 52 45 44 0d 0a 2f 53  BEEN ENTERED../S
0fc0: 49 47 4e 49 46 49 45 44 20 42 59 20 41 20 43 52  IGNIFIED BY A CR
0fd0: 2e 0d 0a 0d 0a 54 59 50 4e 2c 09 30 0d 0a 09 49  .....TYPN,.0...I
0fe0: 4f 46 0d 0a 09 4b 43 43 09 09 2f 43 4c 45 41 52  OF...KCC../CLEAR
0ff0: 20 41 43 2c 20 4b 45 59 42 4f 41 52 44 20 46 4c   AC, KEYBOARD FL
1000: 41 47 0d 0a 09 54 41 44 20 20 20 42 41 44 44 09  AG...TAD   BADD.
1010: 2f 47 45 54 20 42 55 46 46 45 52 20 41 44 44 52  /GET BUFFER ADDR
1020: 45 53 53 0d 0a 09 44 43 41 20 20 20 57 31 09 2f  ESS...DCA   W1./
1030: 53 54 4f 52 45 20 46 4f 52 20 54 48 45 20 43 48  STORE FOR THE CH
1040: 41 52 41 43 54 45 52 20 53 54 52 49 4e 47 0d 0a  ARACTER STRING..
1050: 0d 0a 2f 52 45 41 44 20 41 4e 44 20 52 45 53 50  ../READ AND RESP
1060: 4f 4e 44 20 57 49 54 48 20 54 48 45 20 43 48 41  OND WITH THE CHA
1070: 52 41 43 54 45 52 0d 0a 0d 0a 4e 54 59 52 54 4e  RACTER....NTYRTN
1080: 2c 09 49 53 5a 20 20 20 57 31 09 2f 4e 4f 52 4d  ,.ISZ   W1./NORM
1090: 41 4c 20 52 45 54 55 52 4e 2e 20 49 4e 43 52 45  AL RETURN. INCRE
10a0: 4d 45 4e 54 20 42 55 46 46 45 52 0d 0a 09 4b 53  MENT BUFFER...KS
10b0: 46 09 09 2f 57 41 49 54 20 46 4f 52 20 4b 45 59  F../WAIT FOR KEY
10c0: 42 4f 41 52 44 0d 0a 09 4a 4d 50 20 20 20 2e 2d  BOARD...JMP   .-
10d0: 31 09 2f 46 4c 41 47 20 54 4f 20 52 41 49 53 45  1./FLAG TO RAISE
10e0: 0d 0a 09 4b 52 42 09 09 2f 47 4f 54 20 46 4c 41  ...KRB../GOT FLA
10f0: 47 2c 20 52 45 53 45 54 20 49 54 2c 20 47 45 54  G, RESET IT, GET
1100: 20 43 48 41 52 41 43 54 45 52 0d 0a 09 4a 4d 53   CHARACTER...JMS
1110: 20 20 20 52 53 45 4e 44 09 2f 53 45 4e 44 20 43     RSEND./SEND C
1120: 48 41 52 41 43 54 45 52 20 42 41 43 4b 0d 0a 09  HARACTER BACK...
1130: 41 4e 44 09 28 31 37 37 09 2f 54 41 4b 45 20 43  AND.(177./TAKE C
1140: 41 52 45 20 4f 46 20 50 41 52 49 54 59 0d 0a 09  ARE OF PARITY...
1150: 54 41 44 09 28 32 30 30 0d 0a 09 44 43 41 20 49  TAD.(200...DCA I
1160: 20 57 31 09 2f 4c 4f 41 44 20 43 48 41 52 41 43   W1./LOAD CHARAC
1170: 54 45 52 20 49 4e 54 4f 20 42 55 46 46 45 52 20  TER INTO BUFFER 
1180: 41 52 45 41 0d 0a 09 54 41 44 20 49 09 57 31 09  AREA...TAD I.W1.
1190: 2f 43 48 45 43 4b 20 46 4f 52 20 43 54 52 4c 20  /CHECK FOR CTRL 
11a0: 43 0d 0a 09 43 49 41 0d 0a 09 54 41 44 09 43 32  C...CIA...TAD.C2
11b0: 30 33 0d 0a 09 53 5a 41 09 43 4c 41 0d 0a 09 4a  03...SZA.CLA...J
11c0: 4d 50 09 43 48 4b 53 50 09 2f 4e 4f 2d 20 43 48  MP.CHKSP./NO- CH
11d0: 45 43 4b 20 46 4f 52 20 53 50 41 43 45 0d 0a 09  ECK FOR SPACE...
11e0: 36 30 30 37 09 09 2f 43 41 46 2d 20 43 4c 45 41  6007../CAF- CLEA
11f0: 52 20 41 4c 4c 20 46 4c 41 47 53 0d 0a 09 4e 4f  R ALL FLAGS...NO
1200: 50 09 09 2f 4a 55 53 54 20 49 4e 20 43 41 53 45  P../JUST IN CASE
1210: 0d 0a 09 43 4c 41 0d 0a 09 4a 4d 50 09 37 36 30  ...CLA...JMP.760
1220: 35 0d 0a 0d 0a 2f 49 46 20 43 48 41 52 41 43 54  5..../IF CHARACT
1230: 45 52 20 49 53 20 41 20 53 50 41 43 45 2c 20 49  ER IS A SPACE, I
1240: 47 4e 4f 52 45 20 49 54 0d 0a 0d 0a 43 48 4b 53  GNORE IT....CHKS
1250: 50 2c 09 54 41 44 20 49 20 57 31 09 2f 43 48 41  P,.TAD I W1./CHA
1260: 52 41 43 54 45 52 20 49 4e 54 4f 20 54 48 45 20  RACTER INTO THE 
1270: 41 43 0d 0a 09 43 49 41 09 09 2f 53 55 42 54 52  AC...CIA../SUBTR
1280: 41 43 54 20 46 52 4f 4d 20 53 50 41 43 45 20 43  ACT FROM SPACE C
1290: 4f 44 45 20 28 32 34 30 29 0d 0a 09 54 41 44 20  ODE (240)...TAD 
12a0: 20 20 53 50 43 4f 44 09 2f 43 4f 4d 50 4c 45 54    SPCOD./COMPLET
12b0: 45 20 43 4f 4d 50 41 52 49 53 4f 4e 0d 0a 09 53  E COMPARISON...S
12c0: 4e 41 20 20 20 43 4c 41 09 2f 57 41 53 20 49 54  NA   CLA./WAS IT
12d0: 20 41 20 53 50 41 43 45 3f 0d 0a 09 4a 4d 50 20   A SPACE?...JMP 
12e0: 20 20 4e 54 59 52 54 4e 2b 31 09 2f 59 45 53 3a    NTYRTN+1./YES:
12f0: 20 44 4f 20 4e 4f 54 20 49 4e 43 52 45 4d 45 4e   DO NOT INCREMEN
1300: 54 20 42 55 46 46 45 52 0d 0a 0d 0a 2f 49 46 20  T BUFFER..../IF 
1310: 43 48 41 52 41 43 54 45 52 20 49 53 20 41 20 43  CHARACTER IS A C
1320: 52 2c 20 45 58 49 54 20 46 52 4f 4d 20 52 4f 55  R, EXIT FROM ROU
1330: 54 49 4e 45 0d 0a 0d 0a 09 54 41 44 20 49 20 57  TINE.....TAD I W
1340: 31 09 2f 43 48 41 52 41 43 54 45 52 20 54 4f 20  1./CHARACTER TO 
1350: 41 43 0d 0a 09 43 49 41 09 09 2f 53 45 54 20 41  AC...CIA../SET A
1360: 43 20 54 4f 20 53 55 42 54 52 41 43 54 20 43 52  C TO SUBTRACT CR
1370: 20 28 32 31 35 29 0d 0a 09 54 41 44 20 20 20 43   (215)...TAD   C
1380: 52 43 4f 44 09 2f 43 4f 4d 50 4c 45 54 45 20 43  RCOD./COMPLETE C
1390: 4f 4d 50 41 52 49 53 4f 4e 0d 0a 09 53 5a 41 20  OMPARISON...SZA 
13a0: 20 20 43 4c 41 09 2f 57 41 53 20 49 54 20 43 52    CLA./WAS IT CR
13b0: 3f 0d 0a 09 4a 4d 50 20 20 20 4e 54 59 52 54 4e  ?...JMP   NTYRTN
13c0: 09 2f 4e 4f 3a 20 49 4e 43 52 45 4d 45 4e 54 20  ./NO: INCREMENT 
13d0: 42 55 46 46 45 52 20 2b 20 57 41 49 54 0d 0a 0d  BUFFER + WAIT...
13e0: 0a 2f 43 41 52 52 49 41 47 45 20 52 45 54 55 52  ./CARRIAGE RETUR
13f0: 4e 20 46 4f 55 4e 44 2c 20 45 58 49 54 20 46 52  N FOUND, EXIT FR
1400: 4f 4d 20 52 4f 55 54 49 4e 45 0d 0a 0d 0a 09 54  OM ROUTINE.....T
1410: 41 44 20 20 20 4c 46 43 4f 44 09 2f 47 49 56 45  AD   LFCOD./GIVE
1420: 20 4b 45 59 42 4f 41 52 44 20 4c 49 4e 45 20 46   KEYBOARD LINE F
1430: 45 45 44 0d 0a 09 4a 4d 53 20 20 20 52 53 45 4e  EED...JMS   RSEN
1440: 44 09 2f 45 58 45 43 55 54 45 20 4c 49 4e 45 20  D./EXECUTE LINE 
1450: 46 45 45 44 0d 0a 09 43 4c 41 20 20 20 43 4c 4c  FEED...CLA   CLL
1460: 09 2f 45 58 49 54 20 57 49 54 48 20 43 28 41 43  ./EXIT WITH C(AC
1470: 43 29 20 2b 20 41 4e 44 20 43 28 4c 29 3d 30 0d  C) + AND C(L)=0.
1480: 0a 09 49 4f 46 09 09 0d 0a 09 4a 4d 50 20 49 20  ..IOF.....JMP I 
1490: 54 59 50 4e 09 2f 52 45 54 55 52 4e 20 54 4f 20  TYPN./RETURN TO 
14a0: 43 41 4c 4c 0d 0d 0a 0c 0d 0a 2f 43 4f 4d 50 41  CALL....../COMPA
14b0: 52 45 20 41 20 53 54 52 49 4e 47 20 4f 46 20 43  RE A STRING OF C
14c0: 48 41 52 41 43 54 45 52 53 20 49 4e 20 22 42 55  HARACTERS IN "BU
14d0: 46 46 45 52 22 0d 0a 2f 54 4f 20 41 20 43 48 41  FFER"../TO A CHA
14e0: 52 41 43 54 45 52 20 53 54 52 49 4e 47 20 41 46  RACTER STRING AF
14f0: 54 45 52 20 41 20 4a 4d 53 20 49 4e 20 41 53 43  TER A JMS IN ASC
1500: 49 49 0d 0a 0d 0a 43 4f 4d 50 52 45 2c 09 30 0d  II....COMPRE,.0.
1510: 0a 09 43 4c 41 20 20 20 43 4d 41 09 2f 43 28 41  ..CLA   CMA./C(A
1520: 43 29 3d 37 37 37 37 0d 0a 09 54 41 44 20 20 20  C)=7777...TAD   
1530: 43 4f 4d 50 52 45 09 2f 53 55 42 54 52 41 43 54  COMPRE./SUBTRACT
1540: 20 31 20 46 4f 52 20 49 4e 44 45 58 20 52 45 47   1 FOR INDEX REG
1550: 20 31 0d 0a 09 44 43 41 20 20 20 31 30 09 2f 41   1...DCA   10./A
1560: 55 54 4f 20 49 4e 44 45 58 20 31 20 53 45 54 20  UTO INDEX 1 SET 
1570: 54 4f 20 43 48 41 20 53 54 52 49 4e 47 0d 0a 09  TO CHA STRING...
1580: 54 41 44 20 20 20 42 41 44 44 09 2f 41 55 54 4f  TAD   BADD./AUTO
1590: 20 49 4e 44 45 58 20 32 20 53 45 54 20 54 4f 20   INDEX 2 SET TO 
15a0: 42 55 46 46 45 52 2d 31 0d 0a 09 44 43 41 20 20  BUFFER-1...DCA  
15b0: 20 31 31 09 2f 4c 4f 41 44 20 58 32 0d 0a 0d 0a   11./LOAD X2....
15c0: 2f 43 4f 4d 50 41 52 45 20 43 48 41 52 41 43 54  /COMPARE CHARACT
15d0: 45 52 53 20 54 49 4c 4c 20 4f 4e 45 20 44 4f 45  ERS TILL ONE DOE
15e0: 53 4e 27 54 20 43 4f 4d 50 41 52 45 20 4f 52 20  SN'T COMPARE OR 
15f0: 54 49 4c 4c 0d 0a 2f 41 20 30 20 49 53 20 46 4f  TILL../A 0 IS FO
1600: 55 4e 44 20 49 4e 20 58 31 2e 20 49 46 20 4f 4b  UND IN X1. IF OK
1610: 2c 20 52 45 54 55 52 4e 20 54 4f 20 54 57 4f 20  , RETURN TO TWO 
1620: 50 4c 55 53 20 54 48 45 0d 0a 2f 5a 45 52 4f 2c  PLUS THE../ZERO,
1630: 20 49 46 20 42 41 44 20 4f 4e 45 20 50 4c 55 53   IF BAD ONE PLUS
1640: 0d 0a 0d 0a 09 54 41 44 20 49 20 58 31 09 2f 43  .....TAD I X1./C
1650: 48 41 52 41 43 54 45 52 20 46 52 4f 4d 20 50 52  HARACTER FROM PR
1660: 4f 47 52 41 4d 0d 0a 09 43 49 41 09 09 2f 54 4f  OGRAM...CIA../TO
1670: 20 53 55 42 54 52 41 43 54 20 46 52 4f 4d 0d 0a   SUBTRACT FROM..
1680: 09 54 41 44 20 49 20 58 32 09 2f 43 48 41 52 41  .TAD I X2./CHARA
1690: 43 54 45 52 20 49 4e 20 42 55 46 46 45 52 0d 0a  CTER IN BUFFER..
16a0: 09 53 5a 41 20 20 20 43 4c 41 09 2f 43 4f 4d 50  .SZA   CLA./COMP
16b0: 41 52 45 3f 0d 0a 09 4a 4d 50 20 20 20 43 45 52  ARE?...JMP   CER
16c0: 52 09 2f 4e 4f 3a 52 45 53 59 4e 43 20 46 4f 52  R./NO:RESYNC FOR
16d0: 20 4e 4f 4e 20 43 4f 4d 50 41 52 45 20 45 58 49   NON COMPARE EXI
16e0: 54 0d 0a 09 54 41 44 20 49 20 58 31 09 2f 59 45  T...TAD I X1./YE
16f0: 53 3a 20 43 48 45 43 4b 20 46 4f 52 20 47 4f 4f  S: CHECK FOR GOO
1700: 44 20 45 58 49 54 0d 0a 09 53 5a 41 09 09 2f 49  D EXIT...SZA../I
1710: 46 20 30 2c 20 45 58 49 54 20 47 4f 4f 44 0d 0a  F 0, EXIT GOOD..
1720: 09 4a 4d 50 20 20 20 2e 2d 36 09 2f 4e 4f 3a 20  .JMP   .-6./NO: 
1730: 54 45 53 54 20 4e 45 58 54 20 43 48 41 41 43 54  TEST NEXT CHAACT
1740: 45 52 0d 0a 09 49 53 5a 20 20 20 58 31 09 2f 2b  ER...ISZ   X1./+
1750: 31 20 54 4f 20 58 31 28 54 4f 54 41 4c 20 32 20  1 TO X1(TOTAL 2 
1760: 46 52 4f 4d 20 54 48 45 20 30 29 0d 0a 09 4a 4d  FROM THE 0)...JM
1770: 50 20 49 20 58 31 09 2f 2b 31 20 54 4f 20 58 31  P I X1./+1 TO X1
1780: 2c 20 45 58 49 54 0d 0a 0d 0a 2f 45 52 52 4f 52  , EXIT..../ERROR
1790: 20 46 4f 55 4e 44 2e 20 52 45 53 59 4e 43 20 41   FOUND. RESYNC A
17a0: 4e 44 20 45 58 49 54 20 4e 4f 20 43 4f 4d 50 41  ND EXIT NO COMPA
17b0: 52 45 0d 0a 0d 0a 43 45 52 52 2c 09 54 41 44 20  RE....CERR,.TAD 
17c0: 49 20 58 31 09 2f 43 48 41 52 41 43 54 45 52 20  I X1./CHARACTER 
17d0: 46 52 4f 4d 20 50 52 4f 47 52 41 4d 0d 0a 09 53  FROM PROGRAM...S
17e0: 5a 41 20 20 20 43 4c 41 09 2f 49 53 20 54 48 49  ZA   CLA./IS THI
17f0: 53 20 45 58 49 54 20 4b 45 59 3f 20 28 30 30 30  S EXIT KEY? (000
1800: 30 29 0d 0a 09 4a 4d 50 20 20 20 2e 2d 32 09 2f  0)...JMP   .-2./
1810: 4e 4f 3a 20 47 45 54 20 4e 45 58 54 0d 0a 09 4a  NO: GET NEXT...J
1820: 4d 50 20 49 20 58 31 09 2f 59 45 53 3a 20 45 58  MP I X1./YES: EX
1830: 49 54 2c 20 4e 4f 54 20 43 4f 4d 50 41 52 45 0d  IT, NOT COMPARE.
1840: 0d 0a 0c 0d 0a 2a 34 30 30 0d 0a 2f 56 41 52 49  .....*400../VARI
1850: 4f 55 53 20 45 52 52 4f 52 20 4d 45 53 53 41 47  OUS ERROR MESSAG
1860: 45 53 0d 0a 2f 22 4e 4f 54 20 44 45 43 49 4d 41  ES../"NOT DECIMA
1870: 4c 22 0d 0a 0d 0a 51 31 2c 09 4a 4d 53 20 49 20  L"....Q1,.JMS I 
1880: 54 59 50 45 0d 0a 09 31 36 31 37 20 20 2f 4e 4f  TYPE...1617  /NO
1890: 0d 0a 09 32 34 34 30 20 20 2f 54 0d 0a 09 30 34  ...2440  /T...04
18a0: 30 35 20 20 2f 44 45 0d 0a 09 30 33 31 31 20 20  05  /DE...0311  
18b0: 2f 43 49 0d 0a 09 31 35 30 31 20 20 2f 4d 41 0d  /CI...1501  /MA.
18c0: 0a 09 31 34 30 30 20 20 2f 4c 0d 0a 09 4a 4d 50  ..1400  /L...JMP
18d0: 20 20 20 51 55 58 0d 0a 0d 0a 2f 22 54 4f 20 4d     QUX..../"TO M
18e0: 41 4e 59 20 57 4f 52 44 53 22 0d 0a 0d 0a 51 32  ANY WORDS"....Q2
18f0: 2c 09 4a 4d 53 20 49 20 54 59 50 45 0d 0a 09 32  ,.JMS I TYPE...2
1900: 34 31 37 20 20 2f 54 4f 0d 0a 09 31 37 34 30 09  417  /TO...1740.
1910: 2f 4f 20 0d 0a 09 31 35 30 31 09 2f 4d 41 0d 0a  /O ...1501./MA..
1920: 09 31 36 33 31 09 2f 4e 59 0d 0a 09 34 30 32 37  .1631./NY...4027
1930: 09 2f 20 57 0d 0a 09 31 37 32 32 09 2f 4f 52 0d  ./ W...1722./OR.
1940: 0a 09 30 34 32 33 09 2f 44 53 0d 0a 09 30 30 30  ..0423./DS...000
1950: 30 09 2f 30 30 0d 0a 09 4a 4d 50 20 20 20 51 55  0./00...JMP   QU
1960: 58 0d 0a 0d 0a 2f 22 54 4f 20 4d 41 4e 59 20 42  X..../"TO MANY B
1970: 4c 4f 43 4b 53 22 0d 0a 0d 0a 51 33 2c 09 4a 4d  LOCKS"....Q3,.JM
1980: 53 20 49 20 54 59 50 45 0d 0a 09 32 34 31 37 20  S I TYPE...2417 
1990: 20 2f 54 4f 0d 0a 09 31 37 34 30 09 2f 4f 20 0d   /TO...1740./O .
19a0: 0a 09 31 35 30 31 09 2f 4d 41 0d 0a 09 31 36 33  ..1501./MA...163
19b0: 31 09 2f 4e 59 0d 0a 09 34 30 30 32 09 2f 20 42  1./NY...4002./ B
19c0: 0d 0a 09 31 34 31 37 09 2f 4c 4f 0d 0a 09 30 33  ...1417./LO...03
19d0: 31 33 09 2f 43 4b 0d 0a 09 32 33 30 30 09 2f 53  13./CK...2300./S
19e0: 30 0d 0a 09 4a 4d 50 20 20 20 51 55 58 0d 0a 0d  0...JMP   QUX...
19f0: 0a 2f 22 4e 4f 54 20 44 49 56 49 53 49 42 4c 45  ./"NOT DIVISIBLE
1a00: 20 42 59 20 33 22 0d 0a 51 34 2c 09 4a 4d 53 20   BY 3"..Q4,.JMS 
1a10: 49 20 54 59 50 45 0d 0a 09 31 36 31 37 20 20 2f  I TYPE...1617  /
1a20: 4e 4f 0d 0a 09 32 34 34 30 20 20 2f 54 0d 0a 09  NO...2440  /T...
1a30: 30 34 31 31 20 20 2f 44 49 0d 0a 09 32 36 31 31  0411  /DI...2611
1a40: 20 20 2f 56 49 0d 0a 09 32 33 31 31 20 20 2f 53    /VI...2311  /S
1a50: 49 0d 0a 09 30 32 31 34 20 20 2f 42 4c 0d 0a 09  I...0214  /BL...
1a60: 30 35 34 30 20 20 2f 45 0d 0a 09 30 32 33 31 20  0540  /E...0231 
1a70: 20 2f 42 59 0d 0a 09 34 30 36 33 20 20 2f 20 33   /BY...4063  / 3
1a80: 0d 0a 09 30 30 30 30 20 20 2f 30 30 0d 0a 51 55  ...0000  /00..QU
1a90: 58 2c 09 4a 4d 53 20 49 20 54 59 50 45 0d 0a 09  X,.JMS I TYPE...
1aa0: 34 33 34 35 20 20 2f 43 52 2b 4c 46 0d 0a 09 30  4345  /CR+LF...0
1ab0: 30 30 30 20 20 2f 45 4e 44 0d 0a 09 4a 4d 50 20  000  /END...JMP 
1ac0: 49 20 2e 2b 31 0d 0a 09 49 4e 49 54 0d 0d 0a 2f  I .+1...INIT.../
1ad0: 54 48 45 20 43 4f 44 49 4e 47 20 42 45 4c 4f 57  THE CODING BELOW
1ae0: 20 43 52 45 41 54 45 53 20 54 48 45 20 42 4c 4f   CREATES THE BLO
1af0: 43 4b 20 4e 55 4d 42 45 52 0d 0a 2f 43 4f 4e 56  CK NUMBER../CONV
1b00: 45 52 53 49 4f 4e 20 50 52 49 4f 52 20 54 4f 20  ERSION PRIOR TO 
1b10: 54 48 45 20 54 41 50 45 20 57 52 49 54 45 2e 0d  THE TAPE WRITE..
1b20: 0a 0d 0a 4d 45 53 2c 09 30 0d 0a 09 44 43 41 09  ...MES,.0...DCA.
1b30: 57 34 09 2f 53 41 56 45 20 57 4f 52 44 0d 0a 09  W4./SAVE WORD...
1b40: 43 4c 4c 0d 0a 09 54 41 44 09 57 34 0d 0a 09 43  CLL...TAD.W4...C
1b50: 4d 41 09 52 54 52 0d 0a 09 52 54 52 0d 0a 09 41  MA.RTR...RTR...A
1b60: 4e 44 09 43 37 30 30 30 0d 0a 09 44 43 41 09 56  ND.C7000...DCA.V
1b70: 31 0d 0a 09 54 41 44 09 57 34 0d 0a 09 43 4d 41  1...TAD.W4...CMA
1b80: 09 52 54 4c 0d 0a 09 52 41 4c 0d 0a 09 41 4e 44  .RTL...RAL...AND
1b90: 09 43 30 37 30 30 0d 0a 09 44 43 41 09 56 32 0d  .C0700...DCA.V2.
1ba0: 0a 09 54 41 44 09 57 34 0d 0a 09 43 4d 41 09 52  ..TAD.W4...CMA.R
1bb0: 54 52 0d 0a 09 52 41 52 0d 0a 09 41 4e 44 09 43  TR...RAR...AND.C
1bc0: 30 30 37 30 0d 0a 09 44 43 41 09 56 33 0d 0a 09  0070...DCA.V3...
1bd0: 54 41 44 09 57 34 0d 0a 09 43 4d 41 09 52 54 4c  TAD.W4...CMA.RTL
1be0: 0d 0a 09 52 54 4c 0d 0a 09 41 4e 44 09 43 30 30  ...RTL...AND.C00
1bf0: 30 37 0d 0a 09 54 41 44 09 56 31 0d 0a 09 54 41  07...TAD.V1...TA
1c00: 44 09 56 32 0d 0a 09 54 41 44 09 56 33 0d 0a 09  D.V2...TAD.V3...
1c10: 4a 4d 50 20 20 49 20 20 4d 45 53 0d 0a 0d 0a 56  JMP  I  MES....V
1c20: 31 2c 09 30 30 30 30 0d 0a 56 32 2c 09 30 30 30  1,.0000..V2,.000
1c30: 30 0d 0a 09 37 37 37 37 0d 0a 09 37 37 30 30 0d  0...7777...7700.
1c40: 0a 09 30 30 30 30 0d 0a 56 33 2c 09 30 30 30 30  ..0000..V3,.0000
1c50: 0d 0a 09 30 30 30 30 0d 0d 0a 0d 0a 50 41 54 43  ...0000.....PATC
1c60: 48 2c 09 43 4c 41 0d 0a 09 54 41 44 09 2e 2b 34  H,.CLA...TAD..+4
1c70: 0d 0a 09 44 43 41 09 31 0d 0a 09 4a 4d 50 20 20  ...DCA.1...JMP  
1c80: 49 20 20 2e 2b 31 0d 0a 09 53 54 41 52 54 0d 0a  I  .+1...START..
1c90: 09 48 4c 54 0d 0a 2f 54 59 50 45 20 4f 4e 45 20  .HLT../TYPE ONE 
1ca0: 46 4f 55 52 20 43 48 41 52 41 43 54 45 52 20 4f  FOUR CHARACTER O
1cb0: 43 54 41 4c 20 57 4f 52 44 20 47 49 56 45 4e 20  CTAL WORD GIVEN 
1cc0: 54 4f 20 54 48 45 20 0d 0a 2f 52 4f 55 54 49 4e  TO THE ../ROUTIN
1cd0: 45 20 56 49 41 20 43 28 41 43 43 29 2e 20 43 28  E VIA C(ACC). C(
1ce0: 41 43 43 29 3d 30 20 4f 4e 20 45 58 49 54 0d 0a  ACC)=0 ON EXIT..
1cf0: 0d 0a 54 59 43 54 2c 09 30 0d 0a 09 44 43 41 20  ..TYCT,.0...DCA 
1d00: 20 20 54 57 31 09 2f 53 54 4f 52 45 20 57 4f 52    TW1./STORE WOR
1d10: 44 20 47 49 56 45 4e 0d 0a 09 54 41 44 20 20 20  D GIVEN...TAD   
1d20: 54 57 31 09 2f 54 4f 20 43 28 41 43 43 29 20 41  TW1./TO C(ACC) A
1d30: 47 41 49 4e 0d 0a 09 52 54 52 0d 0a 09 52 54 52  GAIN...RTR...RTR
1d40: 09 09 2f 36 20 42 49 54 53 20 52 49 47 48 54 0d  ../6 BITS RIGHT.
1d50: 0a 09 52 54 52 0d 0a 09 44 43 41 20 20 20 54 59  ..RTR...DCA   TY
1d60: 43 54 31 2b 32 09 2f 53 41 56 45 20 52 4f 54 41  CT1+2./SAVE ROTA
1d70: 54 45 44 20 56 41 4c 55 45 2c 20 31 53 54 20 54  TED VALUE, 1ST T
1d80: 57 4f 0d 0a 09 54 41 44 20 20 20 54 59 43 54 31  WO...TAD   TYCT1
1d90: 2b 32 09 2f 54 4f 20 43 28 41 43 43 29 20 41 47  +2./TO C(ACC) AG
1da0: 41 49 4e 0d 0a 09 41 4e 44 20 20 20 43 30 30 30  AIN...AND   C000
1db0: 37 09 2f 49 53 4f 4c 41 54 45 20 53 45 43 4f 4e  7./ISOLATE SECON
1dc0: 44 20 43 48 41 52 41 43 54 45 52 0d 0a 09 54 41  D CHARACTER...TA
1dd0: 44 20 20 20 43 36 30 36 30 09 2f 43 4f 4e 56 45  D   C6060./CONVE
1de0: 52 54 20 54 4f 20 41 53 43 49 49 0d 0a 09 44 43  RT TO ASCII...DC
1df0: 41 20 20 20 54 59 43 54 31 2b 31 09 2f 53 54 4f  A   TYCT1+1./STO
1e00: 52 45 20 41 53 20 46 49 52 53 54 20 50 41 52 54  RE AS FIRST PART
1e10: 49 41 4c 20 32 0d 0a 09 54 41 44 20 20 20 54 59  IAL 2...TAD   TY
1e20: 43 54 31 2b 32 09 2f 52 4f 54 41 54 45 44 20 56  CT1+2./ROTATED V
1e30: 41 4c 55 45 20 53 54 4f 52 45 44 20 41 42 4f 56  ALUE STORED ABOV
1e40: 45 0d 0a 09 52 54 4c 0d 0a 09 52 41 4c 09 09 2f  E...RTL...RAL../
1e50: 33 20 42 49 54 53 20 4c 45 46 54 0d 0a 09 41 4e  3 BITS LEFT...AN
1e60: 44 20 20 20 43 30 37 30 30 09 2f 49 53 4f 4c 41  D   C0700./ISOLA
1e70: 54 45 20 46 49 52 53 54 20 43 48 41 52 41 43 54  TE FIRST CHARACT
1e80: 45 52 0d 0a 09 54 41 44 20 20 20 54 59 43 54 31  ER...TAD   TYCT1
1e90: 2b 31 09 2f 43 4f 4e 56 45 52 54 20 31 53 54 20  +1./CONVERT 1ST 
1ea0: 54 4f 20 41 53 43 49 49 0d 0a 09 44 43 41 20 20  TO ASCII...DCA  
1eb0: 20 54 59 43 54 31 2b 31 09 2f 31 53 54 20 41 4e   TYCT1+1./1ST AN
1ec0: 44 20 32 4e 44 20 43 48 41 52 41 43 54 45 52 53  D 2ND CHARACTERS
1ed0: 20 52 45 41 44 59 0d 0a 09 54 41 44 20 20 20 54   READY...TAD   T
1ee0: 57 31 09 2f 4f 52 49 47 49 4f 4e 41 4c 20 57 4f  W1./ORIGIONAL WO
1ef0: 52 44 0d 0a 09 41 4e 44 20 20 20 43 30 30 30 37  RD...AND   C0007
1f00: 09 2f 49 53 4f 4c 41 54 45 20 34 54 48 20 43 48  ./ISOLATE 4TH CH
1f10: 41 52 41 43 54 45 52 0d 0a 09 54 41 44 20 20 20  ARACTER...TAD   
1f20: 43 36 30 36 30 09 2f 43 4f 4e 56 45 52 54 20 34  C6060./CONVERT 4
1f30: 20 54 48 20 54 4f 20 41 53 43 49 49 0d 0a 09 44   TH TO ASCII...D
1f40: 43 41 20 20 20 54 59 43 54 31 2b 32 09 2f 53 54  CA   TYCT1+2./ST
1f50: 4f 52 45 20 34 54 48 20 46 4f 52 20 41 20 4d 4f  ORE 4TH FOR A MO
1f60: 4d 45 4e 54 0d 0a 09 54 41 44 20 20 20 54 57 31  MENT...TAD   TW1
1f70: 09 2f 4f 52 49 47 49 4f 4e 41 4c 20 57 4f 52 44  ./ORIGIONAL WORD
1f80: 0d 0a 09 52 54 4c 0d 0a 09 52 41 4c 09 09 2f 50  ...RTL...RAL../P
1f90: 4f 53 49 54 49 4f 4e 20 49 54 20 33 52 44 20 43  OSITION IT 3RD C
1fa0: 48 41 52 41 43 54 45 52 0d 0a 09 41 4e 44 20 20  HARACTER...AND  
1fb0: 20 43 30 37 30 30 09 2f 49 53 4f 4c 41 54 45 20   C0700./ISOLATE 
1fc0: 33 52 44 20 43 48 41 52 41 43 54 45 52 0d 0a 09  3RD CHARACTER...
1fd0: 54 41 44 20 20 20 54 59 43 54 31 2b 32 09 2f 43  TAD   TYCT1+2./C
1fe0: 4f 4e 56 45 52 54 20 54 4f 20 41 53 43 49 49 0d  ONVERT TO ASCII.
1ff0: 0a 09 44 43 41 20 20 20 54 59 43 54 31 2b 32 09  ..DCA   TYCT1+2.
2000: 2f 43 4f 4e 56 45 52 53 49 4f 4e 20 43 4f 4d 50  /CONVERSION COMP
2010: 4c 45 54 45 0d 0a 54 59 43 54 31 2c 09 4a 4d 53  LETE..TYCT1,.JMS
2020: 20 49 20 54 59 50 45 09 2f 54 59 50 45 20 54 48   I TYPE./TYPE TH
2030: 45 20 46 4f 55 52 20 43 48 41 52 41 43 54 45 52  E FOUR CHARACTER
2040: 53 0d 0a 09 30 09 09 2f 46 49 52 53 54 20 32 0d  S...0../FIRST 2.
2050: 0a 09 30 09 09 2f 53 45 43 4f 4e 44 20 32 0d 0a  ..0../SECOND 2..
2060: 09 30 09 09 2f 4b 49 4c 4c 20 4b 45 59 0d 0a 09  .0../KILL KEY...
2070: 4a 4d 50 20 49 20 54 59 43 54 09 2f 45 58 49 54  JMP I TYCT./EXIT
2080: 20 46 52 4f 4d 20 52 4f 55 54 49 4e 45 0d 0a 0d   FROM ROUTINE...
2090: 0a 2f 53 4f 4d 45 20 43 4f 4e 53 54 41 4e 54 53  ./SOME CONSTANTS
20a0: 20 46 4f 52 20 54 48 45 20 52 4f 55 54 49 4e 45   FOR THE ROUTINE
20b0: 0d 0a 0d 0a 54 57 31 2c 09 30 30 30 30 0d 0a 43  ....TW1,.0000..C
20c0: 36 30 36 30 2c 09 36 30 36 30 0d 0d 0a 0c 0d 0a  6060,.6060......
20d0: 2a 36 30 30 0d 0a 0d 0a 53 54 41 4c 4c 2c 09 30  *600....STALL,.0
20e0: 0d 0a 09 43 4c 41 0d 0a 09 54 41 44 20 49 20 31  ...CLA...TAD I 1
20f0: 32 09 2f 57 4f 52 44 20 54 4f 20 42 45 20 57 52  2./WORD TO BE WR
2100: 49 54 54 45 4e 0d 0a 09 53 44 53 51 09 09 2f 57  ITTEN...SDSQ../W
2110: 41 49 54 20 46 4f 52 20 51 55 41 44 4c 49 4e 45  AIT FOR QUADLINE
2120: 20 46 4c 41 47 0d 0a 09 4a 4d 50 20 2e 2d 31 0d   FLAG...JMP .-1.
2130: 0a 09 53 44 4c 44 09 09 2f 4c 4f 41 44 20 44 41  ..SDLD../LOAD DA
2140: 54 41 20 52 45 47 49 53 54 45 52 53 0d 0a 09 53  TA REGISTERS...S
2150: 44 53 54 09 09 2f 43 48 45 43 4b 20 46 4f 52 20  DST../CHECK FOR 
2160: 54 49 4d 49 4e 47 20 45 52 52 4f 52 0d 0a 09 53  TIMING ERROR...S
2170: 4b 50 0d 0a 09 4a 4d 53 20 20 49 20 20 53 45 4c  KP...JMS  I  SEL
2180: 54 49 4d 09 09 2f 54 49 4d 49 4e 47 20 45 52 52  TIM../TIMING ERR
2190: 4f 52 0d 0a 09 43 4c 41 0d 0a 09 4a 4d 50 20 49  OR...CLA...JMP I
21a0: 20 53 54 41 4c 4c 09 2f 47 4f 20 47 45 54 20 4e   STALL./GO GET N
21b0: 45 58 54 20 57 4f 52 44 0d 0a 0d 0a 0d 0a 0d 0a  EXT WORD........
21c0: 2f 57 41 49 54 20 54 49 4c 4c 20 57 4f 52 44 20  /WAIT TILL WORD 
21d0: 43 4f 55 4e 54 20 52 45 47 49 53 54 45 52 20 47  COUNT REGISTER G
21e0: 4f 45 53 20 54 4f 20 5a 45 52 4f 0d 0a 0a 2f 42  OES TO ZERO.../B
21f0: 4c 4f 43 4b 20 4e 55 4d 42 45 52 20 45 52 52 4f  LOCK NUMBER ERRO
2200: 52 0d 0a 5a 42 4c 4b 2c 09 30 0d 0a 09 43 4c 41  R..ZBLK,.0...CLA
2210: 0d 0a 09 54 41 44 09 44 54 41 0d 0a 09 53 44 4c  ...TAD.DTA...SDL
2220: 43 09 09 2f 53 54 4f 50 20 4d 4f 56 45 4d 45 4e  C../STOP MOVEMEN
2230: 54 20 4f 46 20 54 41 50 45 0d 0a 09 4a 4d 53 20  T OF TAPE...JMS 
2240: 20 49 20 20 54 59 50 45 0d 0a 09 32 30 30 33 09   I  TYPE...2003.
2250: 09 2f 50 43 0d 0a 09 34 30 30 30 09 09 2f 45 4e  ./PC...4000../EN
2260: 44 0d 0a 09 43 4c 41 09 43 4d 41 0d 0a 09 54 41  D...CLA.CMA...TA
2270: 44 09 5a 42 4c 4b 0d 0a 09 4a 4d 53 20 20 49 20  D.ZBLK...JMS  I 
2280: 20 54 59 4f 43 54 0d 0a 09 4a 4d 53 20 20 49 20   TYOCT...JMS  I 
2290: 20 54 59 50 45 0d 0a 09 34 30 34 30 09 09 2f 44   TYPE...4040../D
22a0: 4f 55 42 4c 45 20 53 50 41 43 45 0d 0a 09 30 32  OUBLE SPACE...02
22b0: 31 34 09 09 2f 42 4c 0d 0a 09 31 37 30 33 09 09  14../BL...1703..
22c0: 2f 4f 43 0d 0a 09 31 33 34 30 09 09 2f 4b 0d 0a  /OC...1340../K..
22d0: 09 31 36 32 35 09 09 2f 4e 55 0d 0a 09 31 35 30  .1625../NU...150
22e0: 32 09 09 2f 4d 42 0d 0a 09 30 35 32 32 09 09 2f  2../MB...0522../
22f0: 45 52 0d 0a 09 34 30 30 30 09 09 2f 45 4e 44 0d  ER...4000../END.
2300: 0a 09 4a 4d 50 09 5a 43 4f 4d 0d 0a 0d 0a 09 2f  ..JMP.ZCOM...../
2310: 44 41 54 41 20 45 52 52 4f 52 53 0d 0a 5a 44 41  DATA ERRORS..ZDA
2320: 54 41 2c 09 30 0d 0a 09 43 4c 41 0d 0a 09 54 41  TA,.0...CLA...TA
2330: 44 09 44 54 41 0d 0a 09 53 44 4c 43 09 09 2f 53  D.DTA...SDLC../S
2340: 54 4f 50 20 54 48 45 20 54 41 50 45 0d 0a 09 4a  TOP THE TAPE...J
2350: 4d 53 20 20 49 20 20 54 59 50 45 0d 0a 09 32 30  MS  I  TYPE...20
2360: 30 33 0d 0a 09 34 30 30 30 0d 0a 09 43 4c 41 09  03...4000...CLA.
2370: 43 4d 41 0d 0a 09 54 41 44 09 5a 44 41 54 41 0d  CMA...TAD.ZDATA.
2380: 0a 09 4a 4d 53 20 20 49 20 20 54 59 4f 43 54 0d  ..JMS  I  TYOCT.
2390: 0a 09 4a 4d 53 20 20 49 20 20 54 59 50 45 0d 0a  ..JMS  I  TYPE..
23a0: 09 34 30 34 30 0d 0a 09 30 34 30 31 09 09 2f 44  .4040...0401../D
23b0: 41 0d 0a 09 32 34 30 31 09 09 2f 54 41 0d 0a 09  A...2401../TA...
23c0: 34 30 30 30 09 09 2f 45 4e 44 0d 0a 09 4a 4d 50  4000../END...JMP
23d0: 09 5a 43 4f 4d 0d 0a 0d 0a 2f 4d 41 52 4b 20 54  .ZCOM..../MARK T
23e0: 52 41 43 4b 20 45 52 52 4f 52 0d 0a 0d 0a 5a 4d  RACK ERROR....ZM
23f0: 4b 54 4b 2c 09 30 0d 0a 09 43 4c 41 0d 0a 09 54  KTK,.0...CLA...T
2400: 41 44 09 44 54 41 0d 0a 09 53 44 4c 43 09 09 2f  AD.DTA...SDLC../
2410: 53 54 4f 50 20 54 48 45 20 54 41 50 45 0d 0a 09  STOP THE TAPE...
2420: 4a 4d 53 20 20 49 20 20 54 59 50 45 0d 0a 09 32  JMS  I  TYPE...2
2430: 30 30 33 09 09 2f 50 43 0d 0a 09 34 30 30 30 09  003../PC...4000.
2440: 09 2f 45 4e 44 0d 0a 09 43 4c 41 09 43 4d 41 0d  ./END...CLA.CMA.
2450: 0a 09 54 41 44 09 5a 4d 4b 54 4b 0d 0a 09 4a 4d  ..TAD.ZMKTK...JM
2460: 53 20 20 49 20 20 54 59 4f 43 54 0d 0a 09 4a 4d  S  I  TYOCT...JM
2470: 53 20 49 20 54 59 50 45 0d 0a 09 34 30 34 30 0d  S I TYPE...4040.
2480: 0a 09 31 35 30 31 20 20 20 2f 4d 41 0d 0a 09 32  ..1501   /MA...2
2490: 32 31 33 20 20 20 2f 52 4b 0d 0a 09 34 30 32 34  213   /RK...4024
24a0: 20 20 20 2f 20 54 0d 0a 09 32 32 30 31 20 20 20     / T...2201   
24b0: 2f 52 41 0d 0a 09 30 33 31 33 20 20 20 2f 43 4b  /RA...0313   /CK
24c0: 0d 0a 09 34 30 30 30 20 20 20 2f 20 30 0d 0a 09  ...4000   / 0...
24d0: 4a 4d 50 20 20 20 5a 43 4f 4d 0d 0d 0a 2f 50 41  JMP   ZCOM.../PA
24e0: 52 49 54 59 20 45 52 52 4f 52 0d 0a 0d 0a 5a 50  RITY ERROR....ZP
24f0: 41 52 2c 09 30 0d 0a 09 43 4c 41 0d 0a 09 54 41  AR,.0...CLA...TA
2500: 44 09 44 54 41 0d 0a 09 53 44 4c 43 09 09 2f 53  D.DTA...SDLC../S
2510: 54 4f 50 20 54 48 45 20 54 41 50 45 0d 0a 09 4a  TOP THE TAPE...J
2520: 4d 53 20 20 49 20 20 54 59 50 45 0d 0a 09 32 30  MS  I  TYPE...20
2530: 30 33 09 09 2f 50 43 0d 0a 09 34 30 30 30 09 09  03../PC...4000..
2540: 2f 45 4e 44 0d 0a 09 43 4c 41 09 43 4d 41 0d 0a  /END...CLA.CMA..
2550: 09 54 41 44 09 5a 50 41 52 0d 0a 09 4a 4d 53 20  .TAD.ZPAR...JMS 
2560: 20 49 20 20 54 59 4f 43 54 0d 0a 09 4a 4d 53 20   I  TYOCT...JMS 
2570: 49 20 54 59 50 45 0d 0a 09 34 30 34 30 0d 0a 09  I TYPE...4040...
2580: 30 33 31 30 09 09 2f 43 48 0d 0a 09 30 35 30 33  0310../CH...0503
2590: 09 09 2f 45 43 0d 0a 09 31 33 32 33 09 09 2f 4b  ../EC...1323../K
25a0: 53 0d 0a 09 32 35 31 35 09 09 2f 55 4d 0d 0a 09  S...2515../UM...
25b0: 34 30 30 30 09 09 2f 30 0d 0a 09 4a 4d 50 20 20  4000../0...JMP  
25c0: 20 5a 43 4f 4d 0d 0a 0d 0a 0d 0a 2f 54 49 4d 49   ZCOM....../TIMI
25d0: 4e 47 20 45 52 52 4f 52 0d 0a 0d 0a 5a 54 49 4d  NG ERROR....ZTIM
25e0: 2c 09 30 0d 0a 09 43 4c 41 0d 0a 09 54 41 44 09  ,.0...CLA...TAD.
25f0: 44 54 41 0d 0a 09 53 44 4c 43 09 09 2f 53 54 4f  DTA...SDLC../STO
2600: 50 20 54 48 45 20 54 41 50 45 0d 0a 09 4a 4d 53  P THE TAPE...JMS
2610: 20 20 49 20 20 54 59 50 45 0d 0a 09 32 30 30 33    I  TYPE...2003
2620: 0d 0a 09 34 30 30 30 0d 0a 09 43 4c 41 09 43 4d  ...4000...CLA.CM
2630: 41 0d 0a 09 54 41 44 09 5a 54 49 4d 0d 0a 09 4a  A...TAD.ZTIM...J
2640: 4d 53 20 20 49 20 20 54 59 4f 43 54 0d 0a 09 4a  MS  I  TYOCT...J
2650: 4d 53 20 20 49 20 20 54 59 50 45 0d 0a 09 34 30  MS  I  TYPE...40
2660: 34 30 0d 0a 09 32 34 31 31 20 20 20 2f 54 49 0d  40...2411   /TI.
2670: 0a 09 31 35 31 31 20 20 20 2f 4d 49 0d 0a 09 31  ..1511   /MI...1
2680: 36 30 37 20 20 20 2f 4e 47 0d 0a 09 34 30 30 30  607   /NG...4000
2690: 20 20 20 2f 20 30 0d 0a 0d 0a 2f 54 59 50 45 20     / 0..../TYPE 
26a0: 22 45 52 52 4f 52 20 50 48 41 53 45 20 58 22 0d  "ERROR PHASE X".
26b0: 0a 0d 0a 5a 43 4f 4d 2c 09 54 41 44 20 20 20 50  ...ZCOM,.TAD   P
26c0: 48 41 53 45 09 2f 57 48 41 54 20 50 48 41 53 45  HASE./WHAT PHASE
26d0: 20 4f 46 20 4f 50 45 52 41 54 49 4f 4e 0d 0a 09   OF OPERATION...
26e0: 54 41 44 20 20 20 50 46 4f 52 4d 09 2f 57 41 53  TAD   PFORM./WAS
26f0: 20 54 48 45 20 4d 41 43 48 49 4e 45 20 49 4e 0d   THE MACHINE IN.
2700: 0a 09 44 43 41 20 20 20 54 46 4f 52 4d 09 2f 57  ..DCA   TFORM./W
2710: 48 45 4e 20 45 52 52 4f 52 20 4f 43 43 55 52 45  HEN ERROR OCCURE
2720: 44 0d 0a 09 4a 4d 53 20 49 20 54 59 50 45 0d 0a  D...JMS I TYPE..
2730: 09 30 35 32 32 20 20 20 2f 45 52 0d 0a 09 32 32  .0522   /ER...22
2740: 31 37 20 20 20 2f 52 4f 0d 0a 09 32 32 34 30 20  17   /RO...2240 
2750: 20 20 2f 52 20 0d 0a 09 32 30 31 30 20 20 20 2f    /R ...2010   /
2760: 50 48 0d 0a 09 30 31 32 33 20 20 20 2f 41 53 0d  PH...0123   /AS.
2770: 0a 09 30 35 34 30 20 20 20 2f 45 0d 0a 54 46 4f  ..0540   /E..TFO
2780: 52 4d 2c 09 34 30 36 30 20 20 20 2f 20 58 0d 0a  RM,.4060   / X..
2790: 09 34 35 34 33 20 20 20 2f 43 52 2b 4c 46 0d 0a  .4543   /CR+LF..
27a0: 09 30 30 30 30 20 20 20 2f 45 4e 44 0d 0a 09 4a  .0000   /END...J
27b0: 4d 50 20 20 49 20 20 2e 2b 31 0d 0a 09 52 45 54  MP  I  .+1...RET
27c0: 52 59 0d 0a 50 46 4f 52 4d 2c 09 34 30 36 30 0d  RY..PFORM,.4060.
27d0: 0d 0a 0d 0a 0d 0a 0c 0d 0a 2f 48 45 52 45 20 53  ........./HERE S
27e0: 54 41 52 54 53 20 54 48 49 53 20 50 52 4f 47 52  TARTS THIS PROGR
27f0: 41 4d 2e 20 49 54 20 57 49 4c 4c 20 41 53 4b 20  AM. IT WILL ASK 
2800: 54 48 45 0d 0a 2f 4f 50 45 52 41 54 4f 52 20 46  THE../OPERATOR F
2810: 4f 52 20 20 44 52 49 56 45 20 4e 55 4d 42 45 52  OR  DRIVE NUMBER
2820: 53 2c 20 54 48 45 4e 20 41 53 4b 20 48 49 4d 20  S, THEN ASK HIM 
2830: 46 4f 52 0d 0a 2f 41 20 44 49 52 45 43 54 49 4f  FOR../A DIRECTIO
2840: 4e 20 4f 4e 20 57 48 41 54 20 54 4f 20 44 4f 20  N ON WHAT TO DO 
2850: 57 49 54 48 20 54 48 45 20 44 52 49 56 45 53 2e  WITH THE DRIVES.
2860: 0d 0a 0d 0a 2f 54 48 45 20 53 45 51 55 45 4e 43  ..../THE SEQUENC
2870: 45 20 46 4f 52 20 4d 41 52 4b 49 4e 47 20 41 20  E FOR MARKING A 
2880: 54 41 50 45 20 57 4f 55 4c 44 20 41 50 50 45 41  TAPE WOULD APPEA
2890: 52 20 41 53 3a 0d 0a 0d 0a 0d 0a 2f 55 4e 49 54  R AS:....../UNIT
28a0: 3f 20 28 30 20 4f 52 20 31 20 4f 52 20 30 20 31  ? (0 OR 1 OR 0 1
28b0: 29 0d 0a 2f 46 4f 52 4d 41 54 3f 20 28 4d 41 52  )../FORMAT? (MAR
28c0: 4b 20 31 32 31 35 29 0d 0a 2f 32 32 37 37 20 57  K 1215)../2277 W
28d0: 4f 52 44 53 2c 20 30 32 35 36 20 42 4c 4f 43 4b  ORDS, 0256 BLOCK
28e0: 53 2e 4f 4b 3f 20 59 45 53 20 4f 52 20 4e 4f 0d  S.OK? YES OR NO.
28f0: 0a 2f 28 59 45 53 29 0d 0a 0d 0a 0d 0a 2f 54 48  ./(YES)....../TH
2900: 41 54 20 44 41 54 41 20 49 4e 20 50 41 52 45 4e  AT DATA IN PAREN
2910: 54 48 45 53 49 53 20 49 53 20 54 59 50 45 44 20  THESIS IS TYPED 
2920: 42 59 20 54 48 45 20 4f 50 45 52 41 54 4f 52 0d  BY THE OPERATOR.
2930: 0a 2f 28 48 45 20 44 4f 45 53 4e 27 54 20 54 59  ./(HE DOESN'T TY
2940: 50 45 20 54 48 45 20 50 41 52 45 4e 54 48 45 53  PE THE PARENTHES
2950: 49 53 29 0d 0a 2f 49 46 20 48 45 20 48 41 44 20  IS)../IF HE HAD 
2960: 41 4e 53 57 45 52 45 44 20 4e 4f 2c 20 22 46 4f  ANSWERED NO, "FO
2970: 52 4d 41 54 3f 22 20 57 4f 55 4c 44 20 42 45 20  RMAT?" WOULD BE 
2980: 54 59 50 45 44 20 4f 55 54 2e 0d 0a 2f 49 46 20  TYPED OUT.../IF 
2990: 54 48 45 20 44 52 49 56 45 20 57 41 53 20 57 52  THE DRIVE WAS WR
29a0: 4f 4e 47 2c 20 48 45 20 57 4f 55 4c 44 20 54 59  ONG, HE WOULD TY
29b0: 50 45 20 52 45 53 54 41 52 54 2e 0d 0a 2f 49 46  PE RESTART.../IF
29c0: 20 48 45 20 48 41 44 20 54 59 50 45 44 20 22 4d   HE HAD TYPED "M
29d0: 41 52 4b 22 20 49 4e 20 52 45 53 50 4f 4e 53 45  ARK" IN RESPONSE
29e0: 20 54 4f 20 22 46 4f 52 4d 41 54 3f 22 20 54 48   TO "FORMAT?" TH
29f0: 45 0d 0a 2f 54 41 50 45 20 57 4f 55 4c 44 20 42  E../TAPE WOULD B
2a00: 45 20 4d 41 52 4b 45 44 20 57 49 54 48 20 54 48  E MARKED WITH TH
2a10: 45 20 53 54 41 4e 44 41 52 44 20 50 44 50 2d 38  E STANDARD PDP-8
2a20: 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 2e 0d   CONFIGURATION..
2a30: 0a 2f 49 46 20 48 45 20 48 41 44 20 54 59 50 45  ./IF HE HAD TYPE
2a40: 44 20 22 4d 41 52 4b 20 33 38 34 22 20 54 48 45  D "MARK 384" THE
2a50: 20 54 41 50 45 20 57 4f 55 4c 44 0d 0a 2f 42 45   TAPE WOULD../BE
2a60: 20 4d 41 52 4b 45 44 20 57 49 54 48 20 54 48 45   MARKED WITH THE
2a70: 20 53 54 41 4e 44 41 52 44 20 50 44 50 2d 31 30   STANDARD PDP-10
2a80: 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 0d 0a   CONFIGURATION..
2a90: 2f 4e 4f 54 45 3a 20 54 48 45 20 57 4f 52 44 20  /NOTE: THE WORD 
2aa0: 41 4e 44 20 42 4c 4f 43 4b 20 4e 55 4d 42 45 52  AND BLOCK NUMBER
2ab0: 53 20 41 52 45 20 54 59 50 45 44 20 49 4e 20 4f  S ARE TYPED IN O
2ac0: 43 54 41 4c 0d 0a 2f 49 46 20 41 20 4d 49 53 54  CTAL../IF A MIST
2ad0: 41 4b 45 20 4f 43 43 55 52 53 20 4f 4e 20 54 48  AKE OCCURS ON TH
2ae0: 45 20 4f 50 45 52 41 54 4f 52 53 20 50 41 52 54  E OPERATORS PART
2af0: 20 28 57 49 54 48 20 52 45 46 45 52 41 4e 43 45   (WITH REFERANCE
2b00: 0d 0a 2f 54 4f 20 42 4c 4f 43 4b 20 2b 20 57 4f  ../TO BLOCK + WO
2b10: 52 44 20 53 49 5a 45 29 20 48 45 20 57 49 4c 4c  RD SIZE) HE WILL
2b20: 20 42 45 20 54 4f 4c 44 20 41 42 4f 55 54 20 49   BE TOLD ABOUT I
2b30: 54 0d 0a 0d 0a 0d 0a 0d 0a 0d 0a 0d 0d 0a 2a 31  T.............*1
2b40: 30 30 30 0d 0a 0d 0a 2f 4d 41 4b 45 20 41 20 43  000..../MAKE A C
2b50: 41 4c 4c 20 46 4f 52 20 54 48 45 20 44 45 43 54  ALL FOR THE DECT
2b60: 41 50 45 20 4e 55 4d 42 45 52 53 20 54 4f 20 42  APE NUMBERS TO B
2b70: 45 0d 0a 2f 57 4f 52 4b 45 44 2e 0d 0a 0d 0a 53  E../WORKED.....S
2b80: 54 41 52 30 2c 09 4a 4d 53 20 49 09 54 59 50 45  TAR0,.JMS I.TYPE
2b90: 09 2f 54 59 50 45 20 56 45 52 53 49 4f 4e 20 4e  ./TYPE VERSION N
2ba0: 55 4d 42 45 52 0d 0a 09 34 35 34 33 09 09 2f 43  UMBER...4543../C
2bb0: 52 2b 4c 46 0d 0a 09 34 33 30 30 09 09 2f 4c 46  R+LF...4300../LF
2bc0: 2b 30 0d 0a 09 4a 4d 53 20 49 09 54 59 50 45 0d  +0...JMS I.TYPE.
2bd0: 0a 09 54 45 58 54 09 2f 54 44 46 4d 54 20 56 34  ..TEXT./TDFMT V4
2be0: 41 2f 0d 0a 53 54 41 52 54 2c 09 4a 4d 53 20 49  A/..START,.JMS I
2bf0: 20 54 59 50 45 09 2f 53 45 54 20 55 50 20 54 59   TYPE./SET UP TY
2c00: 50 45 52 0d 0a 09 34 35 34 33 20 20 2f 43 52 2b  PER...4543  /CR+
2c10: 4c 46 0d 0a 09 34 33 30 30 20 20 2f 4c 46 2b 45  LF...4300  /LF+E
2c20: 4e 44 0d 0a 0d 0a 54 59 51 55 2c 09 4a 4d 53 20  ND....TYQU,.JMS 
2c30: 49 20 54 59 50 45 09 2f 22 55 4e 49 54 3f 22 0d  I TYPE./"UNIT?".
2c40: 0a 09 32 35 31 36 09 2f 55 4e 0d 0a 09 31 31 32  ..2516./UN...112
2c50: 34 09 2f 49 54 0d 0a 09 37 37 34 30 09 2f 3f 0d  4./IT...7740./?.
2c60: 0a 09 30 30 30 30 09 2f 45 4e 44 0d 0a 0d 0a 2f  ..0000./END..../
2c70: 57 41 49 54 20 46 4f 52 20 41 20 52 45 50 4c 59  WAIT FOR A REPLY
2c80: 0d 0a 0d 0a 09 4a 4d 53 20 49 20 54 59 50 49 4e  .....JMS I TYPIN
2c90: 09 2f 47 45 54 20 4e 55 4d 42 45 52 53 0d 0a 09  ./GET NUMBERS...
2ca0: 54 41 44 09 42 41 44 44 09 2f 49 4e 49 54 49 41  TAD.BADD./INITIA
2cb0: 4c 49 5a 45 20 50 4f 49 4e 54 45 52 20 28 42 46  LIZE POINTER (BF
2cc0: 52 29 0d 0a 09 49 41 43 09 09 2f 28 42 41 44 44  R)...IAC../(BADD
2cd0: 3d 42 55 46 46 45 52 2d 31 2c 20 53 4f 20 42 55  =BUFFER-1, SO BU
2ce0: 4d 50 20 54 48 45 20 41 43 29 0d 0a 09 44 43 41  MP THE AC)...DCA
2cf0: 09 42 46 52 09 2f 54 4f 20 53 54 41 52 54 20 4f  .BFR./TO START O
2d00: 46 20 49 4e 50 55 54 20 42 55 46 46 45 52 0d 0a  F INPUT BUFFER..
2d10: 09 44 43 41 09 44 43 54 52 09 2f 49 4e 49 54 49  .DCA.DCTR./INITI
2d20: 41 4c 49 5a 45 20 44 54 41 20 43 4f 55 4e 54 45  ALIZE DTA COUNTE
2d30: 52 20 54 4f 20 30 0d 0a 09 44 43 41 09 43 52 46  R TO 0...DCA.CRF
2d40: 4c 41 47 09 2f 43 4c 45 41 52 20 46 4c 41 47 20  LAG./CLEAR FLAG 
2d50: 53 4f 20 43 52 20 4e 4f 54 20 41 43 43 45 50 54  SO CR NOT ACCEPT
2d60: 49 42 4c 45 0d 0a 43 52 43 48 4b 2c 09 54 41 44  IBLE..CRCHK,.TAD
2d70: 09 43 52 43 4f 44 09 2f 47 45 54 20 43 4f 44 45  .CRCOD./GET CODE
2d80: 20 46 4f 52 20 43 41 52 2e 20 52 45 54 4e 0d 0a   FOR CAR. RETN..
2d90: 09 43 49 41 09 09 2f 4e 45 47 41 54 45 20 49 54  .CIA../NEGATE IT
2da0: 0d 0a 09 54 41 44 20 49 09 42 46 52 09 2f 53 45  ...TAD I.BFR./SE
2db0: 45 20 49 46 20 4e 45 58 54 20 43 48 41 52 2e 20  E IF NEXT CHAR. 
2dc0: 49 4e 0d 0a 09 53 4e 41 09 09 2f 42 55 46 46 45  IN...SNA../BUFFE
2dd0: 52 20 49 53 20 43 41 52 2e 20 52 45 54 4e 2e 0d  R IS CAR. RETN..
2de0: 0a 09 4a 4d 50 09 4f 4b 43 52 09 2f 59 45 53 3a  ..JMP.OKCR./YES:
2df0: 20 53 45 45 20 49 46 20 43 2e 52 2e 20 4c 45 47   SEE IF C.R. LEG
2e00: 41 4c 20 48 45 52 45 0d 0a 09 44 43 41 09 43 52  AL HERE...DCA.CR
2e10: 46 4c 41 47 09 2f 4e 4f 3a 20 53 4f 20 43 2e 52  FLAG./NO: SO C.R
2e20: 2e 20 49 53 20 4c 45 47 41 4c 20 4e 4f 57 0d 0a  . IS LEGAL NOW..
2e30: 56 41 4c 43 48 4b 2c 09 54 41 44 09 43 32 36 30  VALCHK,.TAD.C260
2e40: 09 2f 53 45 45 20 49 46 20 23 20 49 53 20 4c 45  ./SEE IF # IS LE
2e50: 53 53 20 54 48 41 4e 0d 0a 09 43 49 41 09 09 2f  SS THAN...CIA../
2e60: 41 53 43 49 49 20 30 20 28 32 36 30 29 0d 0a 09  ASCII 0 (260)...
2e70: 54 41 44 20 49 20 42 46 52 09 2f 53 55 42 54 52  TAD I BFR./SUBTR
2e80: 41 43 54 20 42 55 46 46 45 52 20 44 41 54 41 0d  ACT BUFFER DATA.
2e90: 0a 09 53 50 41 20 20 20 43 4c 41 09 2f 49 53 20  ..SPA   CLA./IS 
2ea0: 49 54 20 4c 45 53 53 20 54 48 41 4e 20 41 53 49  IT LESS THAN ASI
2eb0: 49 20 30 3f 0d 0a 09 4a 4d 50 20 20 20 54 59 51  I 0?...JMP   TYQ
2ec0: 55 09 2f 59 45 53 3a 20 54 45 4c 4c 20 4f 55 54  U./YES: TELL OUT
2ed0: 53 49 44 45 20 57 4f 52 4c 44 0d 0a 09 54 41 44  SIDE WORLD...TAD
2ee0: 20 20 20 43 32 36 31 09 2f 4e 4f 3a 20 53 45 45     C261./NO: SEE
2ef0: 20 49 46 20 47 52 45 41 54 45 52 20 54 48 41 4e   IF GREATER THAN
2f00: 0d 0a 09 43 4d 41 09 09 2f 41 53 43 20 49 49 20  ...CMA../ASC II 
2f10: 31 20 28 32 36 31 29 0d 0a 09 54 41 44 20 49 20  1 (261)...TAD I 
2f20: 42 46 52 09 2f 53 55 42 54 52 41 43 54 20 42 55  BFR./SUBTRACT BU
2f30: 46 46 45 52 20 44 41 54 41 0d 0a 09 53 4d 41 20  FFER DATA...SMA 
2f40: 20 20 43 4c 41 09 2f 47 52 45 41 54 45 52 20 54    CLA./GREATER T
2f50: 48 41 4e 20 41 53 43 49 49 20 37 3f 0d 0a 09 4a  HAN ASCII 7?...J
2f60: 4d 50 20 20 20 54 59 51 55 09 2f 59 45 53 3a 20  MP   TYQU./YES: 
2f70: 54 45 4c 4c 20 4f 55 54 53 49 44 45 20 57 4f 52  TELL OUTSIDE WOR
2f80: 4c 44 0d 0a 09 54 41 44 20 49 20 42 46 52 09 2f  LD...TAD I BFR./
2f90: 4e 4f 3a 20 41 43 43 45 50 54 20 42 55 46 46 45  NO: ACCEPT BUFFE
2fa0: 52 20 0d 0a 09 52 54 52 0d 0a 09 41 4e 44 20 20  R ...RTR...AND  
2fb0: 20 43 37 30 30 30 09 2f 49 53 4f 4c 41 54 45 20   C7000./ISOLATE 
2fc0: 44 54 41 0d 0a 09 4a 4d 53 09 52 45 50 45 41 54  DTA...JMS.REPEAT
2fd0: 09 2f 47 4f 20 43 48 45 43 4b 20 46 4f 52 20 52  ./GO CHECK FOR R
2fe0: 45 50 45 41 54 45 44 20 44 54 41 20 41 4e 44 20  EPEATED DTA AND 
2ff0: 53 54 4f 52 45 20 23 0d 0a 09 49 53 5a 09 42 46  STORE #...ISZ.BF
3000: 52 09 2f 49 4e 43 52 45 4d 45 4e 54 20 49 4e 50  R./INCREMENT INP
3010: 55 54 20 42 55 46 2e 20 50 54 52 2e 0d 0a 09 4a  UT BUF. PTR....J
3020: 4d 50 09 43 52 43 48 4b 09 2f 47 4f 20 4c 4f 4f  MP.CRCHK./GO LOO
3030: 4b 20 41 54 20 4e 45 58 54 20 43 48 41 52 2e 0d  K AT NEXT CHAR..
3040: 0a 0d 0a 2f 54 48 49 53 20 53 45 43 54 49 4f 4e  .../THIS SECTION
3050: 20 43 48 45 43 4b 53 20 54 4f 20 53 45 45 20 49   CHECKS TO SEE I
3060: 46 20 54 48 45 52 45 20 48 41 53 20 42 45 45 4e  F THERE HAS BEEN
3070: 20 41 4e 59 0d 0a 2f 56 41 4c 49 44 20 49 4e 50   ANY../VALID INP
3080: 55 54 20 4f 4e 43 45 20 41 20 43 41 52 52 49 41  UT ONCE A CARRIA
3090: 47 45 20 52 45 54 55 52 4e 20 49 53 20 53 45 45  GE RETURN IS SEE
30a0: 4e 0d 0a 4f 4b 43 52 2c 09 43 4c 41 09 09 2f 43  N..OKCR,.CLA../C
30b0: 4c 45 41 52 20 41 43 0d 0a 09 54 41 44 09 43 52  LEAR AC...TAD.CR
30c0: 46 4c 41 47 09 2f 4c 4f 41 44 20 43 52 20 46 4c  FLAG./LOAD CR FL
30d0: 41 47 3b 20 30 20 4d 45 41 4e 53 20 4e 4f 20 47  AG; 0 MEANS NO G
30e0: 4f 4f 44 0d 0a 09 53 4e 41 09 43 4c 41 0d 0a 09  OOD...SNA.CLA...
30f0: 4a 4d 50 09 53 54 41 52 54 09 2f 30 3a 20 4e 4f  JMP.START./0: NO
3100: 20 56 41 4c 49 44 20 49 4e 50 55 54 3b 20 52 45   VALID INPUT; RE
3110: 53 54 41 52 54 0d 0a 09 54 41 44 09 44 43 54 52  START...TAD.DCTR
3120: 09 2f 4e 4f 54 20 30 3a 20 53 4f 20 48 41 56 45  ./NOT 0: SO HAVE
3130: 20 56 41 4c 49 44 20 49 4e 50 55 54 0d 0a 09 54   VALID INPUT...T
3140: 41 44 09 44 42 55 46 41 44 09 2f 43 41 4c 43 55  AD.DBUFAD./CALCU
3150: 4c 41 54 45 20 45 4e 44 20 4f 46 20 44 54 41 20  LATE END OF DTA 
3160: 4c 49 53 54 20 2b 31 0d 0a 09 44 43 41 09 44 42  LIST +1...DCA.DB
3170: 55 46 50 54 09 2f 53 54 4f 52 45 20 49 54 20 49  UFPT./STORE IT I
3180: 4e 20 42 55 46 46 45 52 20 50 4f 49 4e 54 45 52  N BUFFER POINTER
3190: 2c 20 54 48 45 4e 0d 0a 09 43 4d 41 09 09 2f 43  , THEN...CMA../C
31a0: 4f 4d 50 4c 45 4d 45 4e 54 20 54 48 45 20 41 43  OMPLEMENT THE AC
31b0: 20 41 4e 44 0d 0a 09 44 43 41 20 49 09 44 42 55   AND...DCA I.DBU
31c0: 46 50 54 09 2f 54 45 52 4d 49 4e 41 54 45 20 44  FPT./TERMINATE D
31d0: 54 41 20 4c 49 53 54 20 57 49 54 48 20 37 37 37  TA LIST WITH 777
31e0: 37 0d 0a 49 4e 49 54 31 2c 09 43 4c 41 09 09 2f  7..INIT1,.CLA../
31f0: 43 4c 45 41 52 20 41 43 20 49 46 20 43 4f 4d 45  CLEAR AC IF COME
3200: 20 54 48 52 55 20 4c 4f 43 20 49 54 0d 0a 09 54   THRU LOC IT...T
3210: 41 44 09 44 42 55 46 41 44 09 2f 41 4e 44 20 52  AD.DBUFAD./AND R
3220: 45 53 45 54 20 4c 49 53 54 20 50 4f 49 4e 54 45  ESET LIST POINTE
3230: 52 0d 0a 09 44 43 41 09 44 42 55 46 50 54 09 2f  R...DCA.DBUFPT./
3240: 54 4f 20 53 54 41 52 54 20 4f 46 20 4c 49 53 54  TO START OF LIST
3250: 0d 0a 09 4a 4d 53 20 49 09 47 45 54 44 54 41 09  ...JMS I.GETDTA.
3260: 2f 47 4f 20 47 45 54 20 41 20 44 54 41 20 4e 55  /GO GET A DTA NU
3270: 4d 42 45 52 0d 0a 0d 0a 2f 49 4e 46 4f 52 4d 20  MBER..../INFORM 
3280: 54 48 45 20 4f 50 45 52 41 54 4f 52 20 54 48 41  THE OPERATOR THA
3290: 54 20 54 48 45 20 50 52 4f 47 52 41 4d 20 49 53  T THE PROGRAM IS
32a0: 20 53 45 54 20 54 4f 20 53 54 41 52 54 0d 0a 2f   SET TO START../
32b0: 54 59 50 45 20 22 46 4f 52 4d 41 54 22 20 41 4e  TYPE "FORMAT" AN
32c0: 44 20 57 41 49 54 20 46 4f 52 20 54 48 45 20 52  D WAIT FOR THE R
32d0: 45 50 4c 59 0d 0a 0d 0a 49 4e 49 54 2c 09 4a 4d  EPLY....INIT,.JM
32e0: 53 20 49 20 54 59 50 45 09 2f 4d 45 53 53 41 47  S I TYPE./MESSAG
32f0: 45 20 4f 55 54 0d 0a 09 30 36 31 37 09 09 2f 46  E OUT...0617../F
3300: 4f 0d 0a 09 32 32 31 35 09 09 2f 52 4d 0d 0a 09  O...2215../RM...
3310: 30 31 32 34 09 09 2f 41 54 0d 0a 09 37 37 34 30  0124../AT...7740
3320: 20 20 2f 3f 0d 0a 09 30 30 30 30 20 20 2f 45 4e    /?...0000  /EN
3330: 44 0d 0a 09 4a 4d 53 20 49 20 54 59 50 49 4e 09  D...JMS I TYPIN.
3340: 2f 57 41 49 54 20 46 4f 52 20 41 20 52 45 50 4c  /WAIT FOR A REPL
3350: 59 0d 0a 09 4a 4d 53 20 49 20 43 4f 4d 50 41 52  Y...JMS I COMPAR
3360: 09 2f 44 49 44 20 48 45 20 54 59 50 45 20 22 4d  ./DID HE TYPE "M
3370: 41 52 4b 22 3f 0d 0a 09 30 33 31 35 20 20 2f 4d  ARK"?...0315  /M
3380: 0d 0a 09 30 33 30 31 20 20 2f 41 0d 0a 09 30 33  ...0301  /A...03
3390: 32 32 20 20 2f 52 0d 0a 09 30 33 31 33 20 20 2f  22  /R...0313  /
33a0: 4b 0d 0a 09 30 30 30 30 20 20 2f 45 4e 44 0d 0a  K...0000  /END..
33b0: 09 4a 4d 50 20 20 20 2e 2b 33 0d 0a 09 4a 4d 50  .JMP   .+3...JMP
33c0: 20 49 20 2e 2b 31 0d 0a 09 4d 41 52 4b 09 09 2f   I .+1...MARK../
33d0: 54 4f 20 4d 41 52 4b 20 41 20 54 41 50 45 0d 0d  TO MARK A TAPE..
33e0: 0a 2f 53 45 45 20 49 46 20 48 45 20 54 59 50 45  ./SEE IF HE TYPE
33f0: 44 20 22 52 44 52 22 20 28 52 45 41 44 20 41 4e  D "RDR" (READ AN
3400: 44 20 54 59 50 45 20 46 49 52 53 54 20 31 32 0d  D TYPE FIRST 12.
3410: 0a 2f 42 4c 4f 43 4b 20 4e 55 4d 42 45 52 53 20  ./BLOCK NUMBERS 
3420: 49 4e 20 52 45 56 45 52 53 45 29 2e 0d 0a 0d 0a  IN REVERSE).....
3430: 09 4a 4d 53 20 49 20 43 4f 4d 50 41 52 0d 0a 09  .JMS I COMPAR...
3440: 30 33 32 32 20 20 2f 52 0d 0a 09 30 33 30 34 20  0322  /R...0304 
3450: 20 2f 44 0d 0a 09 30 33 32 32 20 20 2f 52 0d 0a   /D...0322  /R..
3460: 09 30 30 30 30 20 20 2f 30 0d 0a 09 4a 4d 50 20  .0000  /0...JMP 
3470: 20 20 2e 2b 33 0d 0a 09 4a 4d 50 20 49 20 2e 2b    .+3...JMP I .+
3480: 31 0d 0a 09 52 44 52 09 09 2f 54 59 50 45 20 42  1...RDR../TYPE B
3490: 4c 4f 43 4b 53 20 0d 0a 0d 0a 2f 53 45 45 20 49  LOCKS ..../SEE I
34a0: 46 20 48 45 20 54 59 50 45 44 20 22 52 44 46 22  F HE TYPED "RDF"
34b0: 20 28 52 45 41 44 20 41 4e 44 20 54 59 50 45 20   (READ AND TYPE 
34c0: 46 49 52 53 54 20 31 32 0d 0a 2f 42 4c 4f 43 4b  FIRST 12../BLOCK
34d0: 20 4e 55 4d 42 45 52 53 20 46 4f 52 57 41 52 44   NUMBERS FORWARD
34e0: 29 2e 0d 0a 0d 0a 09 4a 4d 53 20 49 20 43 4f 4d  )......JMS I COM
34f0: 50 41 52 0d 0a 09 30 33 32 32 20 20 2f 52 0d 0a  PAR...0322  /R..
3500: 09 30 33 30 34 20 20 2f 44 0d 0a 09 30 33 30 36  .0304  /D...0306
3510: 20 20 2f 46 0d 0a 09 30 30 30 30 20 20 2f 30 0d    /F...0000  /0.
3520: 0a 09 4a 4d 50 20 20 20 2e 2b 33 0d 0a 09 4a 4d  ..JMP   .+3...JM
3530: 50 20 49 20 2e 2b 31 0d 0a 09 52 44 46 41 09 09  P I .+1...RDFA..
3540: 2f 54 59 50 45 20 42 4c 4f 43 4b 53 0d 0a 0d 0a  /TYPE BLOCKS....
3550: 2f 53 45 45 20 49 46 20 48 45 20 54 59 50 45 44  /SEE IF HE TYPED
3560: 20 22 53 41 4d 45 22 20 28 4d 45 41 4e 49 4e 47   "SAME" (MEANING
3570: 20 4d 41 52 4b 20 41 20 54 41 50 45 0d 0a 2f 55   MARK A TAPE../U
3580: 53 49 4e 47 20 54 48 45 20 53 41 4d 45 20 43 4f  SING THE SAME CO
3590: 4e 53 54 41 4e 54 53 20 41 53 20 42 45 46 4f 52  NSTANTS AS BEFOR
35a0: 45 29 2e 0d 0a 0d 0a 09 4a 4d 53 20 49 20 43 4f  E)......JMS I CO
35b0: 4d 50 41 52 0d 0a 09 30 33 32 33 20 20 2f 53 0d  MPAR...0323  /S.
35c0: 0a 09 30 33 30 31 20 20 2f 41 0d 0a 09 30 33 31  ..0301  /A...031
35d0: 35 20 20 2f 4d 0d 0a 09 30 33 30 35 20 20 2f 45  5  /M...0305  /E
35e0: 0d 0a 09 30 30 30 30 20 20 2f 30 0d 0a 09 4a 4d  ...0000  /0...JM
35f0: 50 20 20 20 2e 2b 33 0d 0a 09 4a 4d 50 20 49 20  P   .+3...JMP I 
3600: 2e 2b 31 0d 0a 09 53 57 43 48 4b 09 09 2f 54 4f  .+1...SWCHK../TO
3610: 20 4d 41 52 4b 20 41 53 20 42 45 46 4f 52 45 0d   MARK AS BEFORE.
3620: 0a 0d 0a 2f 53 45 45 20 49 46 20 48 45 20 54 59  .../SEE IF HE TY
3630: 50 45 44 20 22 52 45 53 54 41 52 54 22 0d 0a 0d  PED "RESTART"...
3640: 0a 09 4a 4d 53 20 49 20 43 4f 4d 50 41 52 0d 0a  ..JMS I COMPAR..
3650: 09 30 33 32 32 20 20 2f 52 0d 0a 09 30 33 30 35  .0322  /R...0305
3660: 20 20 2f 45 0d 0a 09 30 33 32 33 20 20 2f 53 0d    /E...0323  /S.
3670: 0a 09 30 33 32 34 20 20 2f 54 0d 0a 09 30 33 30  ..0324  /T...030
3680: 31 20 20 2f 41 0d 0a 09 30 33 32 32 20 20 2f 52  1  /A...0322  /R
3690: 0d 0a 09 30 33 32 34 20 20 2f 54 0d 0a 09 30 30  ...0324  /T...00
36a0: 30 30 20 20 2f 30 0d 0a 09 4a 4d 53 20 20 20 51  00  /0...JMS   Q
36b0: 55 09 2f 4d 55 53 54 20 42 45 20 4e 4f 4e 53 45  U./MUST BE NONSE
36c0: 4e 53 45 0d 0a 09 4a 4d 50 09 53 54 41 52 54 09  NSE...JMP.START.
36d0: 2f 53 54 41 52 54 20 41 4c 4c 20 4f 56 45 52 0d  /START ALL OVER.
36e0: 0a 47 45 54 44 54 41 2c 09 4e 55 44 54 41 09 09  .GETDTA,.NUDTA..
36f0: 2f 50 4f 49 4e 54 45 52 20 54 4f 20 52 4f 55 54  /POINTER TO ROUT
3700: 49 4e 45 20 54 4f 20 53 57 49 54 43 48 20 55 4e  INE TO SWITCH UN
3710: 49 54 53 0d 0a 43 52 46 4c 41 47 2c 09 30 09 09  ITS..CRFLAG,.0..
3720: 2f 3d 30 2c 20 43 52 20 4e 4f 20 47 4f 4f 44 3b  /=0, CR NO GOOD;
3730: 20 4e 4f 54 20 30 2c 20 43 52 20 49 53 20 4f 4b   NOT 0, CR IS OK
3740: 0d 0d 0a 0c 0c 0d 0a 09 2a 31 32 30 30 0d 0a 2f  ........*1200../
3750: 4d 41 52 4b 20 57 41 53 20 54 59 50 45 44 20 49  MARK WAS TYPED I
3760: 4e 2c 20 49 46 20 57 31 2d 31 20 49 53 20 4e 4f  N, IF W1-1 IS NO
3770: 54 20 41 20 22 4b 22 2c 41 53 53 55 4d 45 20 54  T A "K",ASSUME T
3780: 48 41 54 0d 0a 2f 41 20 4e 55 4d 42 45 52 20 57  HAT../A NUMBER W
3790: 41 53 20 54 59 50 45 44 20 49 4e 2c 20 41 4e 44  AS TYPED IN, AND
37a0: 20 56 45 52 49 46 59 20 54 48 49 53 2e 20 49 46   VERIFY THIS. IF
37b0: 20 57 31 2d 31 20 49 53 0d 0a 2f 41 20 22 4b 22   W1-1 IS../A "K"
37c0: 2c 20 41 53 53 55 4d 45 20 53 54 41 4e 44 41 52  , ASSUME STANDAR
37d0: 44 20 46 4f 52 4d 41 54 2e 28 57 31 3d 4c 41 53  D FORMAT.(W1=LAS
37e0: 54 20 45 4e 54 52 59 20 49 4e 54 4f 20 54 48 45  T ENTRY INTO THE
37f0: 20 42 55 46 46 45 52 29 0d 0a 0d 0a 4d 41 52 4b   BUFFER)....MARK
3800: 2c 09 54 41 44 20 20 49 20 20 20 42 49 4e 43 4f  ,.TAD  I   BINCO
3810: 09 2f 41 44 44 52 45 53 53 20 4f 46 20 46 49 52  ./ADDRESS OF FIR
3820: 53 54 20 42 49 4e 41 52 59 0d 0a 09 44 43 41 20  ST BINARY...DCA 
3830: 20 20 57 35 09 2f 43 4f 4e 53 54 41 4e 54 20 46    W5./CONSTANT F
3840: 4f 52 20 44 45 43 20 54 4f 20 42 49 4e 0d 0a 09  OR DEC TO BIN...
3850: 44 43 41 20 20 20 54 4f 54 41 4c 09 2f 57 49 4c  DCA   TOTAL./WIL
3860: 4c 20 42 45 20 42 49 4e 41 52 59 20 45 51 55 49  L BE BINARY EQUI
3870: 56 49 4c 41 4e 54 0d 0a 0d 0a 2f 53 41 56 45 20  VILANT..../SAVE 
3880: 43 28 58 31 29 20 46 4f 52 20 44 45 43 52 45 4d  C(X1) FOR DECREM
3890: 45 4e 54 20 54 48 52 4f 55 47 48 20 42 55 46 46  ENT THROUGH BUFF
38a0: 45 52 0d 0a 0d 0a 44 4e 43 2c 09 43 4c 41 20 20  ER....DNC,.CLA  
38b0: 20 43 4d 41 09 2f 44 45 43 52 45 4d 45 4e 54 20   CMA./DECREMENT 
38c0: 42 55 46 46 45 52 20 41 44 44 52 45 53 53 0d 0a  BUFFER ADDRESS..
38d0: 09 54 41 44 20 20 20 57 31 09 2f 41 44 44 52 45  .TAD   W1./ADDRE
38e0: 53 53 20 42 59 20 31 0d 0a 09 44 43 41 20 20 20  SS BY 1...DCA   
38f0: 57 31 09 2f 57 31 3d 53 57 45 45 50 20 41 44 44  W1./W1=SWEEP ADD
3900: 52 45 53 53 0d 0a 0d 0a 2f 4c 4f 4f 4b 20 46 4f  RESS..../LOOK FO
3910: 52 20 45 4e 44 20 4f 46 20 50 52 4f 43 45 53 53  R END OF PROCESS
3920: 49 4e 47 20 42 59 20 4c 4f 4f 4b 49 4e 47 20 46  ING BY LOOKING F
3930: 4f 52 20 41 20 22 4b 22 20 49 4e 20 42 55 46 46  OR A "K" IN BUFF
3940: 45 52 0d 0a 0d 0a 09 54 41 44 20 20 20 4c 45 54  ER.....TAD   LET
3950: 4b 09 2f 4c 45 54 54 45 52 20 41 53 43 49 49 20  K./LETTER ASCII 
3960: 22 4b 22 0d 0a 09 43 49 41 09 09 2f 53 55 42 54  "K"...CIA../SUBT
3970: 52 41 43 54 20 46 52 4f 4d 20 43 48 41 52 41 43  RACT FROM CHARAC
3980: 54 45 52 0d 0a 09 54 41 44 20 49 20 57 31 09 2f  TER...TAD I W1./
3990: 49 4e 20 42 55 46 46 45 52 0d 0a 09 53 4e 41 20  IN BUFFER...SNA 
39a0: 20 20 43 4c 41 09 2f 45 51 55 41 4c 3f 0d 0a 09    CLA./EQUAL?...
39b0: 4a 4d 50 20 20 20 44 49 56 33 09 2f 59 45 53 3a  JMP   DIV3./YES:
39c0: 20 53 45 45 20 49 46 20 44 49 56 49 53 49 42 4c   SEE IF DIVISIBL
39d0: 45 20 42 59 20 33 0d 0a 0d 0a 2f 56 45 52 49 46  E BY 3..../VERIF
39e0: 59 20 54 48 49 53 20 43 48 41 52 41 43 54 45 52  Y THIS CHARACTER
39f0: 20 41 53 20 42 45 49 4e 47 20 4f 46 20 44 45 43   AS BEING OF DEC
3a00: 49 4d 41 4c 20 4f 52 49 47 49 4e 0d 0a 0d 0a 09  IMAL ORIGIN.....
3a10: 54 41 44 20 20 20 43 32 36 30 09 2f 41 53 43 49  TAD   C260./ASCI
3a20: 49 20 46 4f 52 20 30 0d 0a 09 43 49 41 09 09 2f  I FOR 0...CIA../
3a30: 54 4f 20 53 45 45 20 49 46 20 43 48 41 52 41 43  TO SEE IF CHARAC
3a40: 54 45 52 0d 0a 09 54 41 44 20 49 20 57 31 09 2f  TER...TAD I W1./
3a50: 49 53 20 4c 45 53 53 20 54 48 41 4e 20 32 36 30  IS LESS THAN 260
3a60: 0d 0a 09 53 50 41 20 20 20 43 4c 41 09 2f 49 53  ...SPA   CLA./IS
3a70: 20 49 54 3f 0d 0a 09 4a 4d 50 20 49 20 51 55 31   IT?...JMP I QU1
3a80: 09 2f 59 45 53 3a 20 4e 4f 54 20 44 45 43 49 4d  ./YES: NOT DECIM
3a90: 41 4c 20 43 48 41 52 41 43 54 45 52 0d 0a 09 54  AL CHARACTER...T
3aa0: 41 44 20 20 20 43 32 37 31 09 2f 41 53 43 49 49  AD   C271./ASCII
3ab0: 20 46 4f 52 20 39 0d 0a 09 43 4d 41 09 09 2f 54   FOR 9...CMA../T
3ac0: 4f 20 53 45 45 20 49 46 20 47 52 45 41 54 45 52  O SEE IF GREATER
3ad0: 20 54 48 41 4e 0d 0a 09 54 41 44 20 49 20 57 31   THAN...TAD I W1
3ae0: 09 2f 39 0d 0a 09 53 4d 41 20 20 20 43 4c 41 09  ./9...SMA   CLA.
3af0: 2f 49 53 20 49 54 3f 0d 0a 09 4a 4d 50 20 49 20  /IS IT?...JMP I 
3b00: 51 55 31 09 2f 4e 4f 54 20 41 20 44 45 43 49 4d  QU1./NOT A DECIM
3b10: 41 4c 20 43 48 41 52 41 43 54 45 52 0d 0d 0a 2f  AL CHARACTER.../
3b20: 43 48 41 52 41 43 54 45 52 20 49 53 20 44 45 43  CHARACTER IS DEC
3b30: 49 4d 41 4c 2e 20 4e 4f 57 20 43 4f 4e 56 45 52  IMAL. NOW CONVER
3b40: 54 20 49 54 20 54 4f 20 42 49 4e 41 52 59 0d 0a  T IT TO BINARY..
3b50: 2f 52 45 4d 45 4d 42 45 52 20 50 4f 53 49 54 49  /REMEMBER POSITI
3b60: 4f 4e 20 4f 46 20 43 48 41 52 41 43 54 45 52 20  ON OF CHARACTER 
3b70: 49 4e 20 42 55 46 46 45 52 20 4d 41 59 20 42 45  IN BUFFER MAY BE
3b80: 0d 0a 2f 31 30 2c 31 30 30 2c 31 30 30 30 2e 0d  ../10,100,1000..
3b90: 0a 0d 0a 09 54 41 44 20 49 20 57 31 09 2f 49 53  ....TAD I W1./IS
3ba0: 4f 4c 41 54 45 20 54 48 45 20 4e 55 4d 42 45 52  OLATE THE NUMBER
3bb0: 0d 0a 09 41 4e 44 20 20 20 43 30 30 31 37 09 2f  ...AND   C0017./
3bc0: 46 4f 52 20 50 52 4f 50 45 52 20 43 4f 4e 56 45  FOR PROPER CONVE
3bd0: 52 53 49 4f 4e 0d 0a 09 53 4e 41 20 09 09 2f 49  RSION...SNA ../I
3be0: 46 20 30 2c 20 4e 4f 20 42 49 4e 41 52 59 20 43  F 0, NO BINARY C
3bf0: 4f 4e 56 45 52 53 49 4f 4e 20 4e 45 45 44 45 44  ONVERSION NEEDED
3c00: 0d 0a 09 4a 4d 50 20 20 20 49 42 53 09 2f 59 45  ...JMP   IBS./YE
3c10: 53 3a 20 30 3a 20 49 4e 43 52 45 4d 45 4e 54 20  S: 0: INCREMENT 
3c20: 42 49 4e 41 52 59 20 43 4f 4e 56 45 52 53 49 4f  BINARY CONVERSIO
3c30: 4e 0d 0a 0d 0a 2f 4e 4f 54 20 30 2c 20 53 45 54  N..../NOT 0, SET
3c40: 20 55 50 20 43 4f 4e 56 45 52 53 49 4f 4e 20 4c   UP CONVERSION L
3c50: 4f 4f 50 0d 0a 0d 0a 09 43 4c 4c 20 20 20 43 49  OOP.....CLL   CI
3c60: 41 09 2f 4e 55 4d 42 45 52 20 4f 46 20 41 44 44  A./NUMBER OF ADD
3c70: 49 54 49 4f 4e 53 0d 0a 09 44 43 41 20 20 20 57  ITIONS...DCA   W
3c80: 34 09 2f 54 4f 20 4e 45 47 41 54 49 56 45 20 46  4./TO NEGATIVE F
3c90: 4f 52 20 49 53 5a 0d 0a 09 54 41 44 20 49 20 57  OR ISZ...TAD I W
3ca0: 35 09 2f 42 49 4e 41 52 59 20 50 4f 53 49 54 49  5./BINARY POSITI
3cb0: 4f 4e 20 54 4f 20 43 28 41 43 43 29 0d 0a 09 54  ON TO C(ACC)...T
3cc0: 41 44 20 20 20 54 4f 54 41 4c 09 2f 41 44 44 20  AD   TOTAL./ADD 
3cd0: 54 4f 20 50 52 45 53 45 4e 54 20 54 4f 54 41 4c  TO PRESENT TOTAL
3ce0: 0d 0a 09 53 5a 4c 09 09 2f 43 48 45 43 4b 20 4f  ...SZL../CHECK O
3cf0: 4e 20 54 4f 20 4d 41 4e 59 20 57 4f 52 44 53 0d  N TO MANY WORDS.
3d00: 0a 09 4a 4d 50 20 49 20 51 55 32 09 2f 54 4f 20  ..JMP I QU2./TO 
3d10: 4d 41 4e 59 20 57 4f 52 44 53 20 43 41 4c 4c 45  MANY WORDS CALLE
3d20: 44 20 46 4f 52 0d 0a 09 44 43 41 20 20 20 54 4f  D FOR...DCA   TO
3d30: 54 41 4c 09 2f 4b 45 45 50 20 52 55 4e 4e 49 4e  TAL./KEEP RUNNIN
3d40: 47 20 53 55 4d 0d 0a 09 49 53 5a 20 20 20 57 34  G SUM...ISZ   W4
3d50: 09 2f 4c 41 53 54 20 41 44 44 49 54 49 4f 4e 3f  ./LAST ADDITION?
3d60: 0d 0a 09 4a 4d 50 20 20 20 2e 2d 36 09 2f 4e 4f  ...JMP   .-6./NO
3d70: 3a 20 41 44 44 20 41 47 41 49 4e 0d 0a 0d 0a 2f  : ADD AGAIN..../
3d80: 46 49 4e 41 4c 20 41 44 44 49 54 49 4f 4e 20 46  FINAL ADDITION F
3d90: 4f 52 20 54 48 49 53 20 50 4f 53 49 54 49 4f 4e  OR THIS POSITION
3da0: 20 43 4f 4d 50 4c 45 54 45 44 0d 0a 0d 0a 49 42   COMPLETED....IB
3db0: 53 2c 09 49 53 5a 20 20 20 57 35 09 2f 4e 45 58  S,.ISZ   W5./NEX
3dc0: 54 20 50 4f 53 49 54 49 4f 4e 0d 0a 09 4a 4d 50  T POSITION...JMP
3dd0: 20 20 20 44 4e 43 09 2f 44 4f 20 4e 45 58 54 20     DNC./DO NEXT 
3de0: 43 48 41 52 41 43 54 45 52 0d 0a 0d 0a 2f 4c 41  CHARACTER..../LA
3df0: 53 54 20 43 48 41 52 41 43 54 45 52 20 43 4f 4d  ST CHARACTER COM
3e00: 50 4c 45 54 45 44 2e 20 53 45 45 20 49 46 20 44  PLETED. SEE IF D
3e10: 49 56 49 53 49 42 4c 45 20 42 59 20 33 0d 0a 2f  IVISIBLE BY 3../
3e20: 49 46 20 4e 4f 54 20 41 20 4e 4f 52 4d 41 4c 20  IF NOT A NORMAL 
3e30: 49 4e 50 55 54 0d 0a 0d 0a 44 49 56 33 2c 09 54  INPUT....DIV3,.T
3e40: 41 44 20 20 20 54 4f 54 41 4c 09 2f 47 45 54 20  AD   TOTAL./GET 
3e50: 54 4f 54 41 4c 20 57 4f 52 44 53 0d 0a 09 53 4e  TOTAL WORDS...SN
3e60: 41 09 09 2f 49 46 20 54 4f 54 41 4c 20 30 2c 20  A../IF TOTAL 0, 
3e70: 4e 4f 52 4d 41 4c 20 49 4e 50 55 54 0d 0a 09 54  NORMAL INPUT...T
3e80: 41 44 20 20 20 43 32 30 31 09 2f 31 32 39 20 4f  AD   C201./129 O
3e90: 43 54 2e 20 54 48 49 53 20 54 45 53 54 20 52 45  CT. THIS TEST RE
3ea0: 44 55 4e 44 41 4e 54 0d 0a 09 54 41 44 20 20 20  DUNDANT...TAD   
3eb0: 43 30 30 31 37 09 2f 41 44 44 20 43 4f 4e 53 54  C0017./ADD CONST
3ec0: 41 4e 54 20 31 35 20 54 4f 20 54 4f 54 41 4c 0d  ANT 15 TO TOTAL.
3ed0: 0a 09 44 43 41 20 20 20 54 4f 54 41 4c 09 2f 46  ..DCA   TOTAL./F
3ee0: 4f 52 20 46 55 54 55 52 45 20 43 4f 4e 53 49 44  OR FUTURE CONSID
3ef0: 45 52 41 54 49 4f 4e 53 0d 0a 09 44 43 41 20 20  ERATIONS...DCA  
3f00: 20 56 41 52 31 09 2f 23 20 4f 46 20 57 4f 52 44   VAR1./# OF WORD
3f10: 53 2f 33 20 46 4f 52 20 4d 41 52 4b 20 54 52 41  S/3 FOR MARK TRA
3f20: 43 4b 20 57 52 49 54 49 4e 47 0d 0a 09 54 41 44  CK WRITING...TAD
3f30: 20 20 20 54 4f 54 41 4c 09 2f 52 45 53 54 4f 52     TOTAL./RESTOR
3f40: 45 20 49 4e 20 54 48 45 20 41 43 43 0d 0a 09 43  E IN THE ACC...C
3f50: 4c 4c 09 09 2f 54 4f 20 44 49 56 49 44 45 20 42  LL../TO DIVIDE B
3f60: 59 20 33 2c 20 4c 49 4e 4b 20 4b 45 45 50 53 20  Y 3, LINK KEEPS 
3f70: 4f 56 45 52 46 4c 4f 57 0d 0a 09 54 41 44 20 20  OVERFLOW...TAD  
3f80: 20 4d 33 09 2f 53 55 42 54 52 41 43 54 20 33 0d   M3./SUBTRACT 3.
3f90: 0a 09 49 53 5a 20 20 20 56 41 52 31 09 2f 4f 4e  ..ISZ   VAR1./ON
3fa0: 20 45 41 43 48 20 44 49 56 49 53 49 4f 4e 2c 20   EACH DIVISION, 
3fb0: 4b 45 45 50 20 52 55 4e 4e 49 4e 47 20 53 55 4d  KEEP RUNNING SUM
3fc0: 0d 0a 09 53 5a 41 09 09 2f 49 46 20 41 43 20 3d  ...SZA../IF AC =
3fd0: 20 30 2c 4e 4f 20 52 45 4d 41 49 4e 44 45 52 0d   0,NO REMAINDER.
3fe0: 0a 09 53 4e 4c 09 09 2f 57 48 45 4e 20 4c 49 4e  ..SNL../WHEN LIN
3ff0: 43 20 47 4f 45 53 20 54 4f 20 30 2c 20 44 49 56  C GOES TO 0, DIV
4000: 49 53 49 4f 4e 20 45 4e 44 45 44 0d 0a 09 53 4b  ISION ENDED...SK
4010: 50 09 09 2f 4e 4f 57 20 53 45 45 20 49 46 20 49  P../NOW SEE IF I
4020: 54 20 44 49 56 49 44 45 44 20 45 56 45 4e 4c 59  T DIVIDED EVENLY
4030: 0d 0a 09 4a 4d 50 20 20 20 2e 2d 36 09 2f 53 55  ...JMP   .-6./SU
4040: 42 54 52 41 43 54 20 33 20 4d 4f 52 45 0d 0a 09  BTRACT 3 MORE...
4050: 53 5a 41 20 20 20 43 4c 41 09 2f 49 46 20 30 2c  SZA   CLA./IF 0,
4060: 4f 4b 2e 20 4f 54 48 45 52 57 49 53 45 20 45 52  OK. OTHERWISE ER
4070: 52 4f 52 0d 0a 09 4a 4d 50 20 49 20 51 55 34 09  ROR...JMP I QU4.
4080: 2f 4e 4f 54 20 44 49 56 49 53 49 42 4c 45 20 42  /NOT DIVISIBLE B
4090: 59 20 33 0d 0a 0d 0a 2f 43 4f 52 52 45 43 54 20  Y 3..../CORRECT 
40a0: 22 56 41 52 31 22 20 28 20 54 48 45 20 4e 55 4d  "VAR1" ( THE NUM
40b0: 42 45 52 20 4f 46 20 57 4f 52 44 53 2f 33 29 20  BER OF WORDS/3) 
40c0: 46 4f 52 20 54 48 45 20 2b 31 35 0d 0a 2f 41 44  FOR THE +15../AD
40d0: 44 45 44 20 4a 55 53 54 20 41 42 4f 56 45 20 41  DED JUST ABOVE A
40e0: 4e 44 20 41 4e 20 49 4e 48 45 52 41 4e 54 20 2b  ND AN INHERANT +
40f0: 32 20 44 55 45 20 54 4f 20 4d 41 52 4b 20 54 52  2 DUE TO MARK TR
4100: 41 43 4b 0d 0a 2f 43 4f 4e 46 49 47 55 52 41 54  ACK../CONFIGURAT
4110: 49 4f 4e 20 54 4f 20 42 45 20 57 52 49 54 54 45  ION TO BE WRITTE
4120: 4e 2e 0d 0a 0d 0a 09 54 41 44 20 20 20 4d 37 09  N......TAD   M7.
4130: 2f 53 55 42 54 52 41 43 54 20 37 20 46 52 4f 4d  /SUBTRACT 7 FROM
4140: 20 50 48 4f 4e 59 20 53 45 54 55 50 0d 0a 09 54   PHONY SETUP...T
4150: 41 44 20 20 20 56 41 52 31 09 2f 47 49 56 49 4e  AD   VAR1./GIVIN
4160: 47 20 54 48 45 20 4e 55 4d 42 45 52 20 4f 46 20  G THE NUMBER OF 
4170: 54 49 4d 45 53 0d 0a 09 43 49 41 09 09 2f 54 4f  TIMES...CIA../TO
4180: 20 42 45 20 55 53 45 44 20 4c 41 54 45 52 20 49   BE USED LATER I
4190: 4e 20 41 20 49 53 5a 0d 0a 09 44 43 41 20 20 20  N A ISZ...DCA   
41a0: 56 41 52 31 09 2f 44 41 54 41 20 4d 41 52 4b 20  VAR1./DATA MARK 
41b0: 57 49 4c 4c 20 42 45 20 57 52 49 54 54 45 4e 0d  WILL BE WRITTEN.
41c0: 0d 0a 2f 43 4f 4d 50 55 54 45 20 41 20 56 41 4c  ../COMPUTE A VAL
41d0: 55 45 20 46 4f 52 20 54 4f 54 41 4c 20 4e 55 4d  UE FOR TOTAL NUM
41e0: 42 45 52 20 4f 46 20 42 4c 4f 43 4b 53 0d 0a 2f  BER OF BLOCKS../
41f0: 52 45 43 4f 52 44 20 53 49 5a 45 20 2b 20 31 35  RECORD SIZE + 15
4200: 20 49 4e 54 4f 20 36 33 36 31 36 30 20 4f 43 54   INTO 636160 OCT
4210: 2e 0d 0a 0d 0a 09 54 41 44 20 20 20 43 37 37 31  ......TAD   C771
4220: 34 09 2f 45 58 54 45 4e 44 45 44 20 36 34 20 56  4./EXTENDED 64 V
4230: 41 4c 55 45 2e 20 53 45 54 53 20 41 43 23 32 0d  ALUE. SETS AC#2.
4240: 0a 09 44 43 41 20 20 20 57 31 09 2f 53 45 54 20  ..DCA   W1./SET 
4250: 46 4f 52 20 36 34 30 30 30 30 0d 0a 09 4a 4d 53  FOR 640000...JMS
4260: 20 49 20 46 4f 52 4d 31 30 09 2f 50 41 54 43 48   I FORM10./PATCH
4270: 20 54 4f 20 43 48 45 43 4b 20 46 4f 52 20 53 54   TO CHECK FOR ST
4280: 44 2e 31 30 20 46 4f 52 4d 41 54 0d 0a 09 54 41  D.10 FORMAT...TA
4290: 44 20 20 20 43 31 36 32 30 09 2f 56 45 52 4e 49  D   C1620./VERNI
42a0: 45 52 20 41 44 4a 55 53 54 4d 45 4e 54 20 46 4f  ER ADJUSTMENT FO
42b0: 52 20 46 4f 52 4d 55 4c 41 0d 0a 09 43 4c 4c 09  R FORMULA...CLL.
42c0: 09 2f 41 43 43 23 32 20 43 41 52 52 59 20 46 55  ./ACC#2 CARRY FU
42d0: 4e 43 54 49 4f 4e 0d 0a 09 54 41 44 20 20 20 54  NCTION...TAD   T
42e0: 4f 54 41 4c 09 2f 57 4f 52 44 20 43 4f 55 4e 54  OTAL./WORD COUNT
42f0: 0d 0a 09 49 53 5a 20 20 20 42 4c 4f 43 4b 53 09  ...ISZ   BLOCKS.
4300: 2f 2b 31 20 54 4f 20 42 4c 4f 43 4b 20 43 4f 55  /+1 TO BLOCK COU
4310: 4e 54 0d 0a 09 53 4b 50 0d 0a 09 4a 4d 50 20 49  NT...SKP...JMP I
4320: 20 51 55 33 09 2f 54 4f 20 4d 41 4e 59 20 42 4c   QU3./TO MANY BL
4330: 4f 43 4b 53 20 43 41 4c 4c 45 44 20 46 4f 52 0d  OCKS CALLED FOR.
4340: 0a 09 53 4e 4c 09 09 2f 43 41 52 52 59 20 49 4e  ..SNL../CARRY IN
4350: 54 4f 20 41 43 43 23 32 3f 0d 0a 09 4a 4d 50 20  TO ACC#2?...JMP 
4360: 20 20 2e 2d 35 09 2f 4e 4f 3a 20 43 4f 4e 54 49    .-5./NO: CONTI
4370: 4e 55 45 20 43 4f 55 4e 54 0d 0a 09 49 53 5a 20  NUE COUNT...ISZ 
4380: 20 20 57 31 09 2f 59 45 53 3a 20 46 55 4c 4c 59    W1./YES: FULLY
4390: 20 44 49 56 49 44 45 44 3f 0d 0a 09 4a 4d 50 20   DIVIDED?...JMP 
43a0: 20 20 2e 2d 31 30 09 2f 4e 4f 3a 20 43 4f 4e 54    .-10./NO: CONT
43b0: 49 4e 55 45 20 50 52 4f 43 45 53 53 0d 0a 09 43  INUE PROCESS...C
43c0: 4c 41 20 20 20 43 4c 4c 09 2f 43 28 41 43 43 29  LA   CLL./C(ACC)
43d0: 2b 20 43 28 4c 29 3d 30 0d 0a 46 31 30 52 54 4e  + C(L)=0..F10RTN
43e0: 2c 09 54 41 44 20 20 20 42 4c 4f 43 4b 53 09 2f  ,.TAD   BLOCKS./
43f0: 46 4f 52 20 4d 41 52 4b 20 54 52 41 43 4b 20 28  FOR MARK TRACK (
4400: 43 4f 4d 45 20 48 45 52 45 20 46 52 20 46 31 30  COME HERE FR F10
4410: 50 41 54 20 49 46 20 31 30 20 46 52 4d 54 29 0d  PAT IF 10 FRMT).
4420: 0a 09 43 4d 41 09 09 2f 57 52 49 54 49 4e 47 0d  ..CMA../WRITING.
4430: 0a 09 44 43 41 20 20 20 56 41 52 32 09 2f 53 45  ..DCA   VAR2./SE
4440: 45 20 4d 41 52 4b 20 57 52 49 54 45 0d 0a 0d 0a  E MARK WRITE....
4450: 2f 56 41 4c 55 45 53 20 46 4f 52 20 42 4c 4f 43  /VALUES FOR BLOC
4460: 4b 20 41 4e 44 20 52 45 43 4f 52 44 20 53 49 5a  K AND RECORD SIZ
4470: 45 20 48 41 56 45 20 42 45 45 4e 0d 0a 2f 43 4f  E HAVE BEEN../CO
4480: 4d 50 55 54 45 44 2e 20 54 45 4c 4c 20 4f 55 54  MPUTED. TELL OUT
4490: 53 49 44 45 20 57 4f 52 4c 44 20 41 4e 44 20 47  SIDE WORLD AND G
44a0: 45 54 20 54 48 45 20 4f 4b 2e 0d 0a 0d 0a 09 54  ET THE OK......T
44b0: 41 44 20 20 20 54 4f 54 41 4c 09 2f 53 55 42 54  AD   TOTAL./SUBT
44c0: 52 41 43 54 20 31 35 20 46 52 4f 4d 20 54 4f 54  RACT 15 FROM TOT
44d0: 41 4c 0d 0a 09 54 41 44 20 20 20 43 37 37 36 31  AL...TAD   C7761
44e0: 09 2f 57 4f 52 44 53 20 46 4f 4f 4c 49 4e 47 20  ./WORDS FOOLING 
44f0: 4f 50 45 52 41 54 4f 52 0d 0a 09 44 43 41 20 20  OPERATOR...DCA  
4500: 20 54 4f 54 41 4c 09 2f 43 4f 52 52 45 43 54 45   TOTAL./CORRECTE
4510: 44 20 46 4f 52 20 54 41 50 45 20 57 52 49 54 49  D FOR TAPE WRITI
4520: 4e 47 0d 0a 09 54 41 44 20 20 20 54 4f 54 41 4c  NG...TAD   TOTAL
4530: 09 2f 46 4f 52 20 4f 43 54 41 4c 20 54 59 50 45  ./FOR OCTAL TYPE
4540: 4f 55 54 0d 0a 09 4a 4d 53 20 49 20 54 59 4f 43  OUT...JMS I TYOC
4550: 54 09 2f 54 59 50 45 20 4f 43 54 41 4c 20 57 4f  T./TYPE OCTAL WO
4560: 52 44 53 0d 0a 09 4a 4d 53 20 49 20 54 59 50 45  RDS...JMS I TYPE
4570: 09 2f 54 59 50 45 20 4d 45 53 53 41 47 45 0d 0a  ./TYPE MESSAGE..
4580: 09 34 30 32 37 20 20 2f 20 57 0d 0a 09 31 37 32  .4027  / W...172
4590: 32 20 20 2f 4f 52 0d 0a 09 30 34 32 33 20 20 2f  2  /OR...0423  /
45a0: 44 53 0d 0a 09 35 34 30 30 20 20 2f 2c 20 45 4e  DS...5400  /, EN
45b0: 44 0d 0a 09 54 41 44 20 20 20 42 4c 4f 43 4b 53  D...TAD   BLOCKS
45c0: 09 2f 54 59 50 45 20 4f 55 54 20 42 4c 4f 43 4b  ./TYPE OUT BLOCK
45d0: 20 23 53 0d 0a 09 49 41 43 09 09 2f 54 4f 20 46   #S...IAC../TO F
45e0: 4f 4f 4c 20 54 48 45 20 4f 50 45 52 41 54 4f 52  OOL THE OPERATOR
45f0: 0d 0a 09 4a 4d 53 20 49 20 54 59 4f 43 54 09 2f  ...JMS I TYOCT./
4600: 49 4e 20 4f 43 54 41 4c 0d 0a 09 4a 4d 53 20 49  IN OCTAL...JMS I
4610: 20 54 59 50 45 09 2f 54 59 50 45 20 4d 45 53 53   TYPE./TYPE MESS
4620: 41 47 45 53 0d 0a 09 34 30 30 32 20 20 2f 20 42  AGES...4002  / B
4630: 0d 0a 09 31 34 31 37 20 20 2f 4c 4f 0d 0a 09 30  ...1417  /LO...0
4640: 33 31 33 20 20 2f 43 4b 0d 0a 09 32 33 35 36 20  313  /CK...2356 
4650: 20 2f 53 2e 0d 0a 09 31 37 31 33 20 20 2f 4f 4b   /S....1713  /OK
4660: 0d 0a 09 37 37 33 33 20 20 2f 3f 28 0d 0a 09 33  ...7733  /?(...3
4670: 31 30 35 20 20 2f 59 45 0d 0a 09 32 33 34 30 20  105  /YE...2340 
4680: 20 2f 53 0d 0a 09 31 37 32 32 20 20 2f 4f 52 0d   /S...1722  /OR.
4690: 0a 09 34 30 31 36 20 20 2f 20 4e 0d 0a 09 31 37  ..4016  / N...17
46a0: 33 35 20 20 2f 4f 29 0d 0a 09 34 35 34 33 20 20  35  /O)...4543  
46b0: 2f 43 52 2b 4c 46 0d 0a 09 30 30 30 30 20 20 2f  /CR+LF...0000  /
46c0: 45 4e 44 0d 0a 09 4a 4d 53 20 49 20 54 59 50 49  END...JMS I TYPI
46d0: 4e 09 2f 57 41 49 54 20 46 4f 52 20 52 45 50 4c  N./WAIT FOR REPL
46e0: 59 0d 0d 0a 2f 53 45 45 20 49 46 20 41 20 59 45  Y.../SEE IF A YE
46f0: 53 20 4f 52 20 4e 4f 20 41 4e 53 57 45 52 20 57  S OR NO ANSWER W
4700: 41 53 20 47 49 56 45 4e 0d 0a 0d 0a 09 4a 4d 53  AS GIVEN.....JMS
4710: 20 49 20 43 4f 4d 50 41 52 0d 0a 09 30 33 33 31   I COMPAR...0331
4720: 20 20 20 2f 59 0d 0a 09 30 33 30 35 20 20 20 2f     /Y...0305   /
4730: 45 0d 0a 09 30 33 32 33 20 20 20 2f 53 0d 0a 09  E...0323   /S...
4740: 30 30 30 30 20 20 20 2f 45 4e 44 0d 0a 09 4a 4d  0000   /END...JM
4750: 50 20 49 20 49 54 0d 0a 0d 0a 09 4a 4d 50 20 20  P I IT.....JMP  
4760: 49 20 20 2e 2b 31 0d 0a 09 53 57 43 48 4b 0d 0a  I  .+1...SWCHK..
4770: 46 4f 52 4d 31 30 2c 09 46 31 30 50 41 54 0d 0a  FORM10,.F10PAT..
4780: 0d 0a 0d 0d 0a 0c 0d 0a 2a 31 34 30 30 0d 0a 2f  ........*1400../
4790: 53 45 54 20 54 48 45 20 54 41 50 45 20 49 4e 54  SET THE TAPE INT
47a0: 4f 20 4d 4f 54 49 4f 4e 2e 20 41 4c 4c 20 56 41  O MOTION. ALL VA
47b0: 52 49 41 42 4c 45 53 20 41 52 45 20 53 45 54 2e  RIABLES ARE SET.
47c0: 0d 0a 0d 0a 2f 57 52 49 54 45 20 54 49 4d 49 4e  ..../WRITE TIMIN
47d0: 47 20 41 4e 44 20 4d 41 52 4b 20 54 52 41 43 4b  G AND MARK TRACK
47e0: 0d 0a 0d 0a 53 54 4d 4b 2c 09 43 4c 41 0d 0a 09  ....STMK,.CLA...
47f0: 44 43 41 09 50 48 41 53 45 0d 0a 09 54 41 44 20  DCA.PHASE...TAD 
4800: 20 20 44 54 31 34 30 30 09 2f 46 57 44 2c 20 57    DT1400./FWD, W
4810: 52 49 54 45 2c 20 47 4f 0d 0a 09 54 41 44 20 20  RITE, GO...TAD  
4820: 20 44 54 41 09 2f 47 45 54 20 55 4e 49 54 20 4e   DTA./GET UNIT N
4830: 55 4d 42 45 52 0d 0a 09 53 44 4c 43 09 09 2f 4c  UMBER...SDLC../L
4840: 4f 41 44 20 43 4f 4d 4d 41 4e 44 20 52 45 47 49  OAD COMMAND REGI
4850: 53 54 45 52 0d 0a 09 54 41 44 20 20 20 56 41 52  STER...TAD   VAR
4860: 32 09 2f 54 4f 20 4d 41 4b 45 20 41 20 52 45 53  2./TO MAKE A RES
4870: 54 41 52 54 20 46 4f 52 20 54 48 45 20 53 41 4d  TART FOR THE SAM
4880: 45 0d 0a 09 44 43 41 20 20 20 57 36 09 2f 4f 50  E...DCA   W6./OP
4890: 54 49 4f 4e 20 50 4f 53 53 49 42 4c 45 0d 0a 0d  TION POSSIBLE...
48a0: 0a 2f 57 52 49 54 45 20 41 42 4f 55 54 20 31 30  ./WRITE ABOUT 10
48b0: 20 46 45 45 54 20 4f 46 20 45 4e 44 20 5a 4f 4e   FEET OF END ZON
48c0: 45 0d 0a 09 44 43 41 20 20 20 57 31 0d 0a 43 45  E...DCA   W1..CE
48d0: 5a 2c 09 54 41 44 20 20 20 52 45 5a 09 2f 41 44  Z,.TAD   REZ./AD
48e0: 44 52 45 53 53 20 4f 46 20 44 41 54 41 0d 0a 09  DRESS OF DATA...
48f0: 4a 4d 53 20 20 20 53 45 54 55 50 0d 0a 09 49 53  JMS   SETUP...IS
4900: 5a 20 20 20 57 31 0d 0a 09 4a 4d 50 20 20 20 43  Z   W1...JMP   C
4910: 45 5a 09 2f 4e 4f 54 20 45 4e 44 20 46 4f 4f 54  EZ./NOT END FOOT
4920: 41 47 45 0d 0a 09 54 41 44 20 20 20 4d 31 34 34  AGE...TAD   M144
4930: 09 2f 4f 4b 20 57 52 49 54 45 20 49 4e 54 45 52  ./OK WRITE INTER
4940: 42 4c 4f 43 4b 20 53 59 4e 43 0d 0a 09 44 43 41  BLOCK SYNC...DCA
4950: 20 20 20 57 31 0d 0a 09 4a 4d 53 20 20 20 49 4e     W1...JMS   IN
4960: 42 4c 53 59 0d 0a 09 49 53 5a 20 20 20 57 31 0d  BLSY...ISZ   W1.
4970: 0a 09 4a 4d 50 20 20 20 2e 2d 32 0d 0a 09 4a 4d  ..JMP   .-2...JM
4980: 50 20 20 20 57 44 5a 0d 0a 0d 0a 09 2f 57 52 49  P   WDZ...../WRI
4990: 54 45 20 49 4e 54 45 52 42 4c 4f 43 4b 20 53 59  TE INTERBLOCK SY
49a0: 4e 43 0d 0a 49 4e 42 4c 53 59 2c 09 30 0d 0a 09  NC..INBLSY,.0...
49b0: 54 41 44 20 20 20 56 41 52 31 09 2f 52 45 53 45  TAD   VAR1./RESE
49c0: 54 20 54 48 45 20 57 4f 52 44 53 0d 0a 09 44 43  T THE WORDS...DC
49d0: 41 20 20 20 57 35 0d 0a 09 54 41 44 20 20 20 49  A   W5...TAD   I
49e0: 42 5a 09 2f 41 44 44 52 45 53 53 20 4f 46 20 44  BZ./ADDRESS OF D
49f0: 41 54 41 0d 0a 09 4a 4d 53 20 20 20 53 45 54 55  ATA...JMS   SETU
4a00: 50 09 2f 47 4f 20 4f 55 54 20 41 4e 44 20 57 52  P./GO OUT AND WR
4a10: 49 54 45 20 31 0d 0a 09 4a 4d 50 20 49 20 49 4e  ITE 1...JMP I IN
4a20: 42 4c 53 59 09 2f 47 4f 20 44 4f 20 41 47 41 49  BLSY./GO DO AGAI
4a30: 4e 0d 0a 0d 0a 09 2f 57 52 49 54 45 20 46 4f 52  N...../WRITE FOR
4a40: 57 41 52 44 20 42 4c 4f 43 4b 4d 41 52 4b 20 41  WARD BLOCKMARK A
4a50: 4e 44 20 52 45 56 45 52 53 45 20 47 55 41 52 44  ND REVERSE GUARD
4a60: 0d 0a 57 44 5a 2c 09 54 41 44 20 20 20 46 42 4d  ..WDZ,.TAD   FBM
4a70: 09 2f 41 44 44 52 45 53 53 20 4f 46 20 50 41 54  ./ADDRESS OF PAT
4a80: 54 45 52 4e 0d 0a 09 4a 4d 53 20 20 20 53 45 54  TERN...JMS   SET
4a90: 55 50 0d 0a 0d 0a 09 2f 57 52 49 54 45 20 4c 4f  UP...../WRITE LO
4aa0: 43 4b 4d 41 52 4b 2c 20 52 45 56 45 52 53 45 20  CKMARK, REVERSE 
4ab0: 43 48 45 43 4b 53 55 4d 2c 20 52 45 56 20 46 49  CHECKSUM, REV FI
4ac0: 4e 41 4c 2c 20 52 45 56 20 50 52 45 46 49 4e 41  NAL, REV PREFINA
4ad0: 4c 0d 0a 4c 52 43 46 50 2c 09 54 41 44 20 20 20  L..LRCFP,.TAD   
4ae0: 57 4c 4d 52 46 0d 0a 09 4a 4d 53 20 20 20 53 45  WLMRF...JMS   SE
4af0: 54 55 50 31 0d 0a 0d 0a 09 2f 57 52 49 54 45 20  TUP1...../WRITE 
4b00: 54 48 45 20 44 41 54 41 20 54 52 41 43 4b 0d 0a  THE DATA TRACK..
4b10: 44 54 52 4b 2c 09 54 41 44 20 20 20 44 5a 09 2f  DTRK,.TAD   DZ./
4b20: 41 44 44 52 45 53 53 20 4f 46 20 50 41 54 54 45  ADDRESS OF PATTE
4b30: 52 4e 0d 0a 09 4a 4d 53 20 20 20 53 45 54 55 50  RN...JMS   SETUP
4b40: 0d 0a 09 49 53 5a 20 20 20 57 35 0d 0a 09 4a 4d  ...ISZ   W5...JM
4b50: 50 20 20 20 44 54 52 4b 09 2f 4e 4f 57 20 57 52  P   DTRK./NOW WR
4b60: 49 54 45 20 44 41 54 41 20 4d 41 52 4b 20 54 52  ITE DATA MARK TR
4b70: 41 43 4b 20 41 47 41 49 4e 0d 0d 0a 09 2f 57 52  ACK AGAIN..../WR
4b80: 49 54 45 20 50 52 45 46 49 4e 41 4c 2c 20 46 49  ITE PREFINAL, FI
4b90: 4e 41 4c 2c 20 43 48 45 43 4b 53 55 4d 2c 20 41  NAL, CHECKSUM, A
4ba0: 4e 44 20 52 45 56 45 52 53 45 20 4c 4f 43 4b 0d  ND REVERSE LOCK.
4bb0: 0a 50 46 43 52 43 2c 09 54 41 44 20 20 20 46 45  .PFCRC,.TAD   FE
4bc0: 5a 09 2f 41 44 44 52 45 53 53 20 4f 46 20 44 41  Z./ADDRESS OF DA
4bd0: 54 41 0d 0a 09 4a 4d 53 20 20 20 53 45 54 55 50  TA...JMS   SETUP
4be0: 31 0d 0a 0d 0a 09 2f 57 52 49 54 45 20 47 55 41  1...../WRITE GUA
4bf0: 52 44 20 52 45 56 45 52 53 45 20 42 4c 4f 43 4b  RD REVERSE BLOCK
4c00: 0d 0a 47 52 42 2c 09 54 41 44 20 20 20 47 52 5a  ..GRB,.TAD   GRZ
4c10: 0d 0a 09 4a 4d 53 20 20 20 53 45 54 55 50 0d 0a  ...JMS   SETUP..
4c20: 0d 0a 09 2f 54 48 49 53 20 43 4f 4d 50 4c 45 54  .../THIS COMPLET
4c30: 45 53 20 31 20 42 4c 4f 43 4b 2c 20 47 4f 20 42  ES 1 BLOCK, GO B
4c40: 41 43 4b 20 41 4e 44 20 57 52 49 54 45 20 54 48  ACK AND WRITE TH
4c50: 45 20 52 45 53 54 0d 0a 09 4a 4d 53 20 20 20 49  E REST...JMS   I
4c60: 4e 42 4c 53 59 09 2f 57 52 49 54 45 20 49 4e 54  NBLSY./WRITE INT
4c70: 45 52 42 4c 4f 43 4b 20 53 59 4e 43 0d 0a 09 49  ERBLOCK SYNC...I
4c80: 53 5a 20 20 20 57 36 09 2f 54 4f 54 41 4c 20 4e  SZ   W6./TOTAL N
4c90: 55 4d 42 45 52 20 4f 46 20 42 4c 4f 43 4b 53 0d  UMBER OF BLOCKS.
4ca0: 0a 09 4a 4d 50 20 20 20 57 44 5a 09 2f 57 52 49  ..JMP   WDZ./WRI
4cb0: 54 54 45 4e 3f 20 4e 4f 3a 0d 0a 0d 0a 09 2f 41  TTEN? NO:...../A
4cc0: 4c 4c 20 44 41 54 41 20 42 4c 4f 43 4b 53 20 57  LL DATA BLOCKS W
4cd0: 52 49 54 54 45 4e 20 4e 4f 57 20 57 52 49 54 45  RITTEN NOW WRITE
4ce0: 20 42 55 46 46 45 52 20 5a 4f 4e 45 20 4f 46 20   BUFFER ZONE OF 
4cf0: 49 4e 54 45 52 42 4c 4f 43 4b 20 53 59 4e 43 0d  INTERBLOCK SYNC.
4d00: 0a 09 54 41 44 20 20 20 4d 31 34 33 09 2f 31 39  ..TAD   M143./19
4d10: 38 20 45 58 50 41 4e 44 20 43 4f 44 45 53 20 41  8 EXPAND CODES A
4d20: 54 20 45 4e 44 20 4f 46 20 42 4c 4f 43 4b 53 0d  T END OF BLOCKS.
4d30: 0a 09 44 43 41 20 20 20 57 31 0d 0a 09 4a 4d 53  ..DCA   W1...JMS
4d40: 20 20 20 49 4e 42 4c 53 59 0d 0a 09 49 53 5a 20     INBLSY...ISZ 
4d50: 20 20 57 31 0d 0a 09 4a 4d 50 20 20 20 2e 2d 32    W1...JMP   .-2
4d60: 0d 0a 0d 0a 09 2f 46 49 4e 49 53 48 45 44 20 42  ...../FINISHED B
4d70: 4c 4f 43 4b 20 57 52 49 54 54 49 4e 47 2c 20 57  LOCK WRITTING, W
4d80: 52 49 54 45 20 41 4e 4f 54 48 45 52 20 31 30 28  RITE ANOTHER 10(
4d90: 31 29 20 4f 46 20 45 4e 44 20 5a 4f 4e 45 53 0d  1) OF END ZONES.
4da0: 0a 09 44 43 41 20 20 20 57 31 0d 0a 57 45 5a 46  ..DCA   W1..WEZF
4db0: 2c 09 54 41 44 20 20 20 45 5a 4d 0d 0a 09 4a 4d  ,.TAD   EZM...JM
4dc0: 53 20 20 20 53 45 54 55 50 0d 0a 09 49 53 5a 20  S   SETUP...ISZ 
4dd0: 20 20 57 31 0d 0a 09 4a 4d 50 20 20 20 57 45 5a    W1...JMP   WEZ
4de0: 46 0d 0a 09 53 44 53 54 0d 0a 09 53 4b 50 09 43  F...SDST...SKP.C
4df0: 4c 41 0d 0a 09 4a 4d 53 20 20 49 20 20 53 45 4c  LA...JMS  I  SEL
4e00: 54 49 4d 09 09 2f 54 49 4d 49 4e 47 20 45 52 52  TIM../TIMING ERR
4e10: 4f 52 0d 0a 09 54 41 44 09 43 31 0d 0a 09 44 43  OR...TAD.C1...DC
4e20: 41 09 50 48 41 53 45 0d 0a 09 4a 4d 50 20 49 20  A.PHASE...JMP I 
4e30: 2e 2b 31 0d 0a 09 4d 57 54 4d 0d 0a 0d 0a 53 45  .+1...MWTM....SE
4e40: 54 55 50 2c 09 30 0d 0a 09 44 43 41 20 20 20 31  TUP,.0...DCA   1
4e50: 32 09 2f 57 4f 52 44 20 54 4f 20 42 45 20 57 52  2./WORD TO BE WR
4e60: 49 54 54 45 4e 20 4f 4e 20 4d 41 52 4b 20 54 52  ITTEN ON MARK TR
4e70: 41 43 4b 0d 0a 09 54 41 44 20 20 20 4d 33 0d 0a  ACK...TAD   M3..
4e80: 09 44 43 41 20 20 20 57 43 0d 0a 09 4a 4d 53 20  .DCA   WC...JMS 
4e90: 49 20 57 41 49 54 0d 0a 09 49 53 5a 20 20 20 57  I WAIT...ISZ   W
4ea0: 43 0d 0a 09 4a 4d 50 20 20 20 2e 2d 32 0d 0a 09  C...JMP   .-2...
4eb0: 4a 4d 50 20 49 20 53 45 54 55 50 0d 0a 0d 0a 53  JMP I SETUP....S
4ec0: 45 54 55 50 31 2c 09 30 0d 0a 09 44 43 41 20 20  ETUP1,.0...DCA  
4ed0: 20 31 32 0d 0a 09 54 41 44 20 20 20 4d 36 0d 0a   12...TAD   M6..
4ee0: 09 44 43 41 20 20 20 57 43 0d 0a 09 4a 4d 53 20  .DCA   WC...JMS 
4ef0: 49 20 57 41 49 54 0d 0a 09 49 53 5a 20 20 20 57  I WAIT...ISZ   W
4f00: 43 0d 0a 09 4a 4d 50 20 20 20 2e 2d 32 0d 0a 09  C...JMP   .-2...
4f10: 4a 4d 50 20 49 20 53 45 54 55 50 31 0d 0d 0a 2f  JMP I SETUP1.../
4f20: 54 48 45 53 45 20 41 52 45 20 54 48 45 20 44 41  THESE ARE THE DA
4f30: 54 41 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e  TA CONFIGURATION
4f40: 53 20 46 4f 52 20 54 48 45 20 4d 41 52 4b 20 54  S FOR THE MARK T
4f50: 52 41 43 4b 0d 0a 0d 0a 0d 0a 2f 52 45 56 45 52  RACK....../REVER
4f60: 53 45 20 45 4e 44 20 5a 4f 4e 45 0d 0a 0d 0a 52  SE END ZONE....R
4f70: 45 5a 2c 09 2e 0d 0a 09 34 30 34 34 09 2f 4f 4e  EZ,.....4044./ON
4f80: 20 54 41 50 45 20 41 53 20 35 35 35 35 20 28 4f   TAPE AS 5555 (O
4f90: 43 54 29 0d 0a 09 30 34 34 30 0d 0a 09 34 34 30  CT)...0440...440
4fa0: 34 0d 0a 0d 0a 2f 49 4e 54 45 52 42 4c 4f 43 4b  4..../INTERBLOCK
4fb0: 20 53 59 4e 43 0d 0a 0d 0a 49 42 5a 2c 09 2e 0d   SYNC....IBZ,...
4fc0: 0a 09 30 34 30 34 09 2f 4f 4e 20 54 41 50 45 20  ..0404./ON TAPE 
4fd0: 41 53 20 32 35 32 35 20 28 4f 43 54 29 0d 0a 09  AS 2525 (OCT)...
4fe0: 30 34 30 34 0d 0a 09 30 34 30 34 0d 0a 0d 0a 2f  0404...0404..../
4ff0: 46 4f 52 57 41 52 44 20 42 4c 4f 43 4b 20 4d 41  FORWARD BLOCK MA
5000: 52 4b 20 41 4e 44 20 52 45 56 45 52 53 45 20 47  RK AND REVERSE G
5010: 55 41 52 44 0d 0a 0d 0a 46 42 4d 2c 09 2e 0d 0a  UARD....FBM,....
5020: 09 30 34 30 34 09 2f 4f 4e 20 54 41 50 45 20 41  .0404./ON TAPE A
5030: 53 20 32 36 33 32 20 28 4f 43 54 29 0d 0a 09 34  S 2632 (OCT)...4
5040: 30 30 34 0d 0a 09 34 30 34 30 0d 0a 0d 0a 2f 4c  004...4040..../L
5050: 4f 43 4b 20 4d 41 52 4b 2c 20 52 45 56 45 52 53  OCK MARK, REVERS
5060: 45 20 43 48 45 43 4b 53 55 4d 2c 20 52 45 56 45  E CHECKSUM, REVE
5070: 52 53 45 20 46 49 4e 41 4c 0d 0a 2f 41 4e 44 20  RSE FINAL../AND 
5080: 52 45 56 45 52 53 45 20 50 52 45 46 49 4e 41 4c  REVERSE PREFINAL
5090: 0d 0a 0d 0a 57 4c 4d 52 46 2c 09 2e 0d 0a 09 30  ....WLMRF,.....0
50a0: 30 34 30 09 2f 4f 4e 20 54 41 50 45 20 41 53 20  040./ON TAPE AS 
50b0: 31 30 31 30 31 30 31 30 20 28 4f 43 54 29 0d 0a  10101010 (OCT)..
50c0: 09 30 30 30 30 0d 0a 09 34 30 30 30 0d 0a 09 30  .0000...4000...0
50d0: 30 34 30 0d 0a 09 30 30 30 30 0d 0a 09 34 30 30  040...0000...400
50e0: 30 0d 0a 0d 0a 2f 44 41 54 41 20 4d 41 52 4b 0d  0..../DATA MARK.
50f0: 0a 0d 0a 44 5a 2c 09 2e 0d 0a 09 34 34 34 30 09  ...DZ,.....4440.
5100: 2f 4f 4e 20 54 41 50 45 20 41 53 20 37 30 37 30  /ON TAPE AS 7070
5110: 20 28 4f 43 54 29 0d 0a 09 30 30 34 34 0d 0a 09   (OCT)...0044...
5120: 34 30 30 30 0d 0a 0d 0a 2f 50 52 45 46 49 4e 41  4000..../PREFINA
5130: 4c 2c 20 46 49 4e 41 4c 2c 20 46 57 44 20 43 48  L, FINAL, FWD CH
5140: 45 43 4b 53 55 4d 2c 20 41 4e 44 20 52 45 56 45  ECKSUM, AND REVE
5150: 52 53 45 20 4c 4f 43 4b 0d 0a 0d 0a 46 45 5a 2c  RSE LOCK....FEZ,
5160: 09 2e 0d 0a 09 34 34 34 30 09 2f 4f 4e 20 54 41  .....4440./ON TA
5170: 50 45 20 41 53 20 37 33 37 33 37 33 37 33 20 28  PE AS 73737373 (
5180: 4f 43 54 29 0d 0a 09 34 34 34 34 0d 0a 09 34 30  OCT)...4444...40
5190: 34 34 0d 0a 09 34 34 34 30 0d 0a 09 34 34 34 34  44...4440...4444
51a0: 0d 0a 09 34 30 34 34 0d 0d 0a 2f 46 4f 52 57 41  ...4044.../FORWA
51b0: 52 44 20 47 55 41 52 44 20 41 4e 44 20 52 45 56  RD GUARD AND REV
51c0: 45 52 53 45 20 42 4c 4f 43 4b 20 4e 55 4d 42 45  ERSE BLOCK NUMBE
51d0: 52 0d 0a 0d 0a 47 52 5a 2c 09 2e 0d 0a 09 34 30  R....GRZ,.....40
51e0: 34 30 09 2f 4f 4e 20 54 41 50 45 20 41 53 20 35  40./ON TAPE AS 5
51f0: 31 34 35 20 28 4f 43 54 29 0d 0a 09 30 34 34 30  145 (OCT)...0440
5200: 0d 0a 09 30 34 30 34 0d 0a 0d 0a 2f 46 4f 52 57  ...0404..../FORW
5210: 41 52 44 20 45 4e 44 20 5a 4f 4e 45 0d 0a 0d 0a  ARD END ZONE....
5220: 45 5a 4d 2c 09 2e 0d 0a 09 30 34 30 30 09 2f 4f  EZM,.....0400./O
5230: 4e 20 54 41 50 45 20 41 53 20 32 32 32 32 20 28  N TAPE AS 2222 (
5240: 4f 43 54 29 0d 0a 09 34 30 30 34 0d 0a 09 30 30  OCT)...4004...00
5250: 34 30 0d 0a 2f 53 55 42 52 4f 55 54 49 4e 45 20  40../SUBROUTINE 
5260: 54 4f 20 53 45 45 20 49 46 20 55 53 45 52 20 54  TO SEE IF USER T
5270: 59 50 45 44 20 4d 41 52 4b 20 33 38 34 0d 0a 2f  YPED MARK 384../
5280: 54 4f 20 53 50 45 43 49 46 59 20 53 54 41 4e 44  TO SPECIFY STAND
5290: 41 52 44 20 50 44 50 2d 31 30 20 46 4f 52 4d 41  ARD PDP-10 FORMA
52a0: 54 0d 0a 46 31 30 50 41 54 2c 09 30 0d 0a 09 44  T..F10PAT,.0...D
52b0: 43 41 09 42 4c 4f 43 4b 53 09 2f 43 4c 45 41 52  CA.BLOCKS./CLEAR
52c0: 20 4c 4f 43 2e 20 42 4c 4f 43 4b 53 20 49 4e 20   LOC. BLOCKS IN 
52d0: 43 41 53 45 20 4e 4f 54 20 31 30 2d 46 4f 52 4d  CASE NOT 10-FORM
52e0: 41 54 0d 0a 09 54 41 44 09 54 4f 54 41 4c 09 2f  AT...TAD.TOTAL./
52f0: 41 4e 44 20 47 45 54 20 4e 55 4d 42 45 52 20 54  AND GET NUMBER T
5300: 59 50 45 44 20 42 59 20 55 53 45 52 0d 0a 09 54  YPED BY USER...T
5310: 41 44 09 4d 36 31 37 09 2f 57 41 53 20 49 54 20  AD.M617./WAS IT 
5320: 33 38 34 3f 0d 0a 09 53 5a 41 09 43 4c 41 0d 0a  384?...SZA.CLA..
5330: 09 4a 4d 50 20 49 09 46 31 30 50 41 54 09 2f 4e  .JMP I.F10PAT./N
5340: 4f 2d 52 45 54 55 52 4e 0d 0a 09 44 43 41 09 57  O-RETURN...DCA.W
5350: 31 09 2f 59 45 53 2d 43 4c 45 41 52 20 57 31 20  1./YES-CLEAR W1 
5360: 46 4f 52 20 57 41 49 54 20 4c 4f 4f 50 0d 0a 09  FOR WAIT LOOP...
5370: 54 41 44 09 43 31 31 30 31 09 2f 41 4e 44 20 41  TAD.C1101./AND A
5380: 44 4a 55 53 54 20 42 4c 4f 43 4b 20 54 4f 54 41  DJUST BLOCK TOTA
5390: 4c 20 46 4f 52 0d 0a 09 44 43 41 09 42 4c 4f 43  L FOR...DCA.BLOC
53a0: 4b 53 09 2f 31 31 30 32 28 4f 43 54 41 4c 29 20  KS./1102(OCTAL) 
53b0: 42 4c 4f 43 4b 53 2e 0d 0a 09 4a 4d 50 20 49 09  BLOCKS....JMP I.
53c0: 2e 2b 31 0d 0a 46 31 30 42 41 4b 2c 09 46 31 30  .+1..F10BAK,.F10
53d0: 52 54 4e 0d 0a 4d 36 31 37 2c 09 2d 36 31 37 0d  RTN..M617,.-617.
53e0: 0a 43 31 31 30 31 2c 09 31 31 30 31 0d 0d 0a 43  .C1101,.1101...C
53f0: 31 2c 09 30 30 30 31 0d 0a 0c 0d 0a 09 2a 31 36  1,.0001......*16
5400: 30 30 0d 0a 2f 54 48 45 20 4d 41 52 4b 20 54 52  00../THE MARK TR
5410: 41 43 4b 20 48 41 53 20 42 45 45 4e 20 57 52 49  ACK HAS BEEN WRI
5420: 54 54 45 4e 2c 20 41 4e 44 20 54 41 50 45 20 49  TTEN, AND TAPE I
5430: 53 0d 0a 2f 4d 4f 56 49 4e 47 20 46 4f 52 57 41  S../MOVING FORWA
5440: 52 44 20 49 4e 20 54 48 45 20 46 4f 52 57 41 52  RD IN THE FORWAR
5450: 44 20 45 4e 44 20 5a 4f 4e 45 2e 20 53 54 4f 50  D END ZONE. STOP
5460: 0d 0a 2f 54 48 45 20 54 41 50 45 20 41 4e 44 20  ../THE TAPE AND 
5470: 53 45 45 20 49 46 20 54 48 45 52 45 20 41 52 45  SEE IF THERE ARE
5480: 20 41 4e 59 20 54 41 50 45 53 20 4c 45 46 54 20   ANY TAPES LEFT 
5490: 54 4f 0d 0a 2f 4d 41 52 4b 2d 2d 49 46 20 53 4f  TO../MARK--IF SO
54a0: 20 47 4f 20 44 4f 20 54 48 45 4d 2c 20 45 4c 53   GO DO THEM, ELS
54b0: 45 20 54 45 4c 4c 20 4f 50 45 52 41 54 4f 52 20  E TELL OPERATOR 
54c0: 54 4f 20 54 48 52 4f 57 20 54 48 45 0d 0a 2f 22  TO THROW THE../"
54d0: 4f 46 46 2f 57 54 4d 22 20 53 57 49 54 43 48 20  OFF/WTM" SWITCH 
54e0: 54 4f 20 22 4f 46 46 22 0d 0a 2f 48 45 20 57 49  TO "OFF"../HE WI
54f0: 4c 4c 20 54 48 45 4e 20 43 4f 4e 54 49 4e 55 45  LL THEN CONTINUE
5500: 20 41 46 54 45 52 20 54 48 49 53 20 41 43 54 49   AFTER THIS ACTI
5510: 4f 4e 0d 0a 0d 0a 0d 0a 09 2f 4b 49 4c 4c 20 57  ON......./KILL W
5520: 52 49 54 45 2c 53 54 4f 50 20 54 41 50 45 0d 0a  RITE,STOP TAPE..
5530: 0d 0a 4d 57 54 4d 2c 09 43 4c 41 0d 0a 09 54 41  ..MWTM,.CLA...TA
5540: 44 09 44 54 41 09 2f 55 4e 49 54 0d 0a 09 53 44  D.DTA./UNIT...SD
5550: 4c 43 0d 0a 09 4a 4d 53 09 4e 55 44 54 41 0d 0a  LC...JMS.NUDTA..
5560: 09 4a 4d 50 20 20 49 20 20 44 4f 4d 41 52 4b 0d  .JMP  I  DOMARK.
5570: 0a 0d 0a 09 2f 4d 45 53 53 41 47 45 20 54 4f 20  ..../MESSAGE TO 
5580: 54 48 45 20 4f 50 45 52 41 54 4f 52 0d 0a 4f 46  THE OPERATOR..OF
5590: 46 2c 09 4a 4d 53 20 49 09 54 59 50 45 0d 0a 09  F,.JMS I.TYPE...
55a0: 32 33 30 35 09 09 2f 53 45 0d 0a 09 32 34 34 30  2305../SE...2440
55b0: 09 09 2f 54 0d 0a 09 32 33 32 37 09 09 2f 53 57  ../T...2327../SW
55c0: 0d 0a 09 31 31 32 34 09 09 2f 49 54 0d 0a 09 30  ...1124../IT...0
55d0: 33 31 30 09 09 2f 43 48 0d 0a 09 34 30 32 34 09  310../CH...4024.
55e0: 09 2f 54 0d 0a 09 31 37 34 30 09 09 2f 4f 0d 0a  ./T...1740../O..
55f0: 09 31 37 30 36 09 09 2f 4f 46 0d 0a 09 30 36 30  .1706../OF...060
5600: 30 09 09 2f 46 0d 0a 09 4a 4d 53 20 20 49 09 54  0../F...JMS  I.T
5610: 59 50 49 4e 09 2f 57 41 49 54 20 46 4f 52 20 43  YPIN./WAIT FOR C
5620: 52 0d 0a 09 4a 4d 50 20 20 49 20 20 2e 2b 31 0d  R...JMP  I  .+1.
5630: 0a 09 53 57 4f 46 46 09 09 2f 43 48 45 43 4b 20  ..SWOFF../CHECK 
5640: 54 4f 20 4d 41 4b 45 20 53 55 52 45 20 54 48 41  TO MAKE SURE THA
5650: 54 20 53 57 49 54 43 48 20 49 53 20 4f 46 46 0d  T SWITCH IS OFF.
5660: 0a 09 2f 52 45 56 45 52 53 45 20 54 41 50 45 20  ../REVERSE TAPE 
5670: 41 4e 44 20 52 45 41 44 20 4d 41 52 4b 20 54 52  AND READ MARK TR
5680: 41 43 4b 0d 0a 50 53 45 52 2c 09 54 41 44 09 44  ACK..PSER,.TAD.D
5690: 54 33 30 30 30 09 2f 52 45 56 45 52 53 45 20 47  T3000./REVERSE G
56a0: 4f 0d 0a 09 54 41 44 09 44 54 41 09 09 2f 55 4e  O...TAD.DTA../UN
56b0: 49 54 0d 0a 09 53 44 4c 43 09 09 2f 4c 4f 41 44  IT...SDLC../LOAD
56c0: 20 43 4f 4d 4d 41 4e 44 20 52 45 47 49 53 54 45   COMMAND REGISTE
56d0: 52 0d 0a 09 44 43 41 09 57 31 09 2f 53 54 41 4c  R...DCA.W1./STAL
56e0: 4c 20 52 4f 55 54 49 4e 45 20 54 4f 20 47 45 54  L ROUTINE TO GET
56f0: 20 55 50 20 54 4f 20 53 50 45 45 44 0d 0a 09 53   UP TO SPEED...S
5700: 44 53 51 0d 0a 09 4a 4d 50 09 2e 2d 31 0d 0a 09  DSQ...JMP..-1...
5710: 53 44 52 43 0d 0a 09 49 53 5a 09 57 31 0d 0a 09  SDRC...ISZ.W1...
5720: 4a 4d 50 09 2e 2d 34 0d 0a 09 53 44 53 51 09 09  JMP..-4...SDSQ..
5730: 2f 53 4b 49 50 20 4f 4e 20 51 55 41 44 20 4c 49  /SKIP ON QUAD LI
5740: 4e 45 20 49 46 20 53 45 54 20 41 46 54 45 52 20  NE IF SET AFTER 
5750: 57 41 49 54 20 52 4f 55 54 49 4e 45 0d 0a 09 53  WAIT ROUTINE...S
5760: 4b 50 0d 0a 09 4a 4d 50 09 2e 2b 33 09 2f 46 4c  KP...JMP..+3./FL
5770: 41 47 20 57 41 53 20 53 45 54 0d 0a 09 53 44 53  AG WAS SET...SDS
5780: 53 09 09 2f 52 45 41 44 20 49 4e 20 41 20 4c 49  S../READ IN A LI
5790: 4e 45 20 4f 46 20 54 41 50 45 0d 0a 09 4a 4d 50  NE OF TAPE...JMP
57a0: 09 2e 2d 31 0d 0a 09 53 44 52 43 09 09 2f 52 45  ..-1...SDRC../RE
57b0: 41 44 20 54 48 45 20 43 4f 4d 4d 41 4e 44 20 52  AD THE COMMAND R
57c0: 45 47 49 53 54 45 52 0d 0a 09 53 44 53 54 09 09  EGISTER...SDST..
57d0: 2f 43 48 45 43 4b 20 46 4f 52 20 41 20 54 49 4d  /CHECK FOR A TIM
57e0: 49 4e 47 20 45 52 52 4f 52 0d 0a 09 53 4b 50 0d  ING ERROR...SKP.
57f0: 0a 09 4a 4d 53 20 20 49 20 20 53 45 4c 54 49 4d  ..JMS  I  SELTIM
5800: 09 09 2f 54 49 4d 49 4e 47 20 45 52 52 4f 52 0d  ../TIMING ERROR.
5810: 0a 09 41 4e 44 09 4d 53 4b 37 37 09 2f 43 48 45  ..AND.MSK77./CHE
5820: 43 4b 20 54 4f 20 53 45 45 20 49 46 20 54 41 50  CK TO SEE IF TAP
5830: 45 20 49 53 20 53 54 49 4c 4c 20 49 4e 20 45 4e  E IS STILL IN EN
5840: 44 20 5a 4f 4e 45 0d 0a 09 54 41 44 09 4d 35 35  D ZONE...TAD.M55
5850: 0d 0a 09 53 5a 41 09 43 4c 41 0d 0a 09 4a 4d 50  ...SZA.CLA...JMP
5860: 09 2e 2d 31 31 09 2f 4e 4f 54 20 41 20 35 35 20  ..-11./NOT A 55 
5870: 59 45 54 0d 0a 09 4a 4d 53 20 20 49 09 53 53 44  YET...JMS  I.SSD
5880: 53 51 54 09 2f 59 45 53 2c 52 45 41 44 20 49 4e  SQT./YES,READ IN
5890: 20 53 4f 4d 45 20 4d 4f 52 45 0d 0a 09 54 41 44   SOME MORE...TAD
58a0: 09 4d 35 35 09 2f 49 53 20 49 54 20 45 4e 44 20  .M55./IS IT END 
58b0: 5a 4f 4e 45 0d 0a 09 53 4e 41 09 43 4c 41 0d 0a  ZONE...SNA.CLA..
58c0: 09 4a 4d 50 09 2e 2d 33 09 2f 53 54 49 4c 4c 20  .JMP..-3./STILL 
58d0: 49 4e 20 45 4e 44 20 5a 4f 4e 45 0d 0a 09 54 41  IN END ZONE...TA
58e0: 44 09 4d 54 52 09 2f 47 45 54 20 54 48 45 20 4d  D.MTR./GET THE M
58f0: 41 52 4b 20 54 52 41 43 4b 0d 0a 09 54 41 44 20  ARK TRACK...TAD 
5900: 09 4d 32 35 09 2f 49 53 20 49 54 20 45 58 50 41  .M25./IS IT EXPA
5910: 4e 44 20 43 4f 44 45 0d 0a 09 53 5a 41 09 43 4c  ND CODE...SZA.CL
5920: 41 0d 0a 09 4a 4d 53 20 20 49 09 53 43 45 58 50  A...JMS  I.SCEXP
5930: 43 09 2f 4e 4f 54 20 59 45 54 2c 43 48 45 43 4b  C./NOT YET,CHECK
5940: 20 46 4f 52 20 41 20 35 32 2c 41 4e 44 20 41 44   FOR A 52,AND AD
5950: 56 41 4e 43 45 20 33 20 4c 49 4e 45 53 0d 0a 09  VANCE 3 LINES...
5960: 43 4c 41 09 09 2f 59 45 53 20 49 54 20 49 53 20  CLA../YES IT IS 
5970: 45 58 50 41 4e 44 20 43 4f 44 45 0d 0a 09 54 41  EXPAND CODE...TA
5980: 44 09 4d 33 30 36 09 2f 53 45 54 20 55 50 20 46  D.M306./SET UP F
5990: 4f 52 20 31 39 38 20 45 58 50 41 4e 44 20 43 4f  OR 198 EXPAND CO
59a0: 44 45 53 0d 0a 09 44 43 41 09 43 4e 54 0d 0a 09  DES...DCA.CNT...
59b0: 4a 4d 53 20 20 49 09 53 53 44 53 51 54 09 2f 54  JMS  I.SSDSQT./T
59c0: 48 45 20 54 41 50 45 20 53 48 4f 55 4c 44 20 42  HE TAPE SHOULD B
59d0: 45 20 49 4e 20 53 59 4e 43 20 4e 4f 57 0d 0a 09  E IN SYNC NOW...
59e0: 54 41 44 09 4d 32 35 09 2f 52 45 41 44 20 54 48  TAD.M25./READ TH
59f0: 45 20 52 45 53 54 20 4f 46 20 45 58 50 41 4e 44  E REST OF EXPAND
5a00: 20 43 4f 44 45 0d 0a 09 53 5a 41 09 43 4c 41 0d   CODE...SZA.CLA.
5a10: 0a 09 4a 4d 53 20 20 49 20 20 4d 41 52 4b 45 52  ..JMS  I  MARKER
5a20: 09 2f 4d 41 52 4b 20 54 52 41 43 4b 20 45 52 52  ./MARK TRACK ERR
5a30: 4f 52 0d 0a 09 49 53 5a 09 43 4e 54 09 2f 49 4e  OR...ISZ.CNT./IN
5a40: 43 52 45 4d 45 4e 54 20 43 4f 55 4e 54 45 52 0d  CREMENT COUNTER.
5a50: 0a 09 4a 4d 50 09 2e 2d 35 0d 0a 09 54 41 44 09  ..JMP..-5...TAD.
5a60: 56 41 52 32 09 2f 4e 55 4d 42 45 52 20 4f 46 20  VAR2./NUMBER OF 
5a70: 42 4c 4f 43 4b 53 0d 0a 09 44 43 41 09 57 36 0d  BLOCKS...DCA.W6.
5a80: 0a 52 53 54 42 4c 4b 2c 09 4a 4d 53 20 20 49 20  .RSTBLK,.JMS  I 
5a90: 20 53 53 44 53 51 54 09 2f 53 54 41 52 54 20 4f   SSDSQT./START O
5aa0: 46 20 41 20 53 54 41 4e 44 41 52 44 20 42 4c 4f  F A STANDARD BLO
5ab0: 43 4b 0d 0a 09 54 41 44 09 4d 32 35 09 2f 46 49  CK...TAD.M25./FI
5ac0: 52 53 54 20 45 58 50 41 4e 44 20 43 4f 44 45 20  RST EXPAND CODE 
5ad0: 41 54 20 42 45 47 49 4e 4e 49 4e 47 0d 0a 09 53  AT BEGINNING...S
5ae0: 5a 41 09 43 4c 41 09 2f 4f 46 20 42 4c 4f 43 4b  ZA.CLA./OF BLOCK
5af0: 0d 0a 09 4a 4d 53 20 20 49 20 20 4d 41 52 4b 45  ...JMS  I  MARKE
5b00: 52 09 2f 4d 41 52 4b 20 54 52 41 43 4b 20 45 52  R./MARK TRACK ER
5b10: 52 4f 52 0d 0a 09 4a 4d 53 20 20 49 20 20 53 53  ROR...JMS  I  SS
5b20: 44 53 51 54 09 2f 52 45 41 44 20 4d 41 52 4b 20  DSQT./READ MARK 
5b30: 42 4c 4f 43 4b 20 4e 55 4d 42 45 52 0d 0a 09 54  BLOCK NUMBER...T
5b40: 41 44 09 4d 32 36 0d 0a 09 53 5a 41 09 43 4c 41  AD.M26...SZA.CLA
5b50: 0d 0a 09 4a 4d 53 20 20 49 20 20 4d 41 52 4b 45  ...JMS  I  MARKE
5b60: 52 09 2f 4d 41 52 4b 20 54 52 41 43 4b 20 45 52  R./MARK TRACK ER
5b70: 52 4f 52 0d 0a 09 4a 4d 53 20 20 49 20 20 53 53  ROR...JMS  I  SS
5b80: 44 53 51 54 09 2f 52 45 41 44 20 4d 41 52 4b 20  DSQT./READ MARK 
5b90: 47 55 41 52 44 0d 0a 09 54 41 44 09 4d 33 32 0d  GUARD...TAD.M32.
5ba0: 0a 09 53 5a 41 09 43 4c 41 0d 0a 09 4a 4d 53 20  ..SZA.CLA...JMS 
5bb0: 20 49 20 20 4d 41 52 4b 45 52 09 2f 4d 41 52 4b   I  MARKER./MARK
5bc0: 20 54 52 41 43 4b 20 45 52 52 4f 52 0d 0a 09 54   TRACK ERROR...T
5bd0: 41 44 09 4d 34 0d 0a 09 44 43 41 09 43 4e 54 0d  AD.M4...DCA.CNT.
5be0: 0a 09 4a 4d 53 20 20 49 20 20 53 53 44 53 51 54  ..JMS  I  SSDSQT
5bf0: 09 2f 52 45 41 44 20 4c 2c 43 4b 2c 46 2c 50 46  ./READ L,CK,F,PF
5c00: 0d 0a 09 54 41 44 09 4d 31 30 0d 0a 09 53 5a 41  ...TAD.M10...SZA
5c10: 09 43 4c 41 0d 0a 09 4a 4d 53 20 20 49 20 20 4d  .CLA...JMS  I  M
5c20: 41 52 4b 45 52 09 2f 4d 41 52 4b 20 54 52 41 43  ARKER./MARK TRAC
5c30: 4b 20 45 52 52 4f 52 0d 0a 09 49 53 5a 09 43 4e  K ERROR...ISZ.CN
5c40: 54 0d 0a 09 4a 4d 50 09 2e 2d 35 0d 0a 09 43 4c  T...JMP..-5...CL
5c50: 41 09 43 4c 4c 0d 0a 09 54 41 44 09 56 41 52 31  A.CLL...TAD.VAR1
5c60: 0d 0a 09 52 41 4c 0d 0a 09 44 43 41 09 57 35 09  ...RAL...DCA.W5.
5c70: 2f 4e 55 4d 42 45 52 20 4f 46 20 44 41 54 41 20  /NUMBER OF DATA 
5c80: 4d 41 52 4b 53 0d 0a 09 4a 4d 53 20 20 49 20 20  MARKS...JMS  I  
5c90: 53 53 44 53 51 54 09 2f 52 45 41 44 20 44 41 54  SSDSQT./READ DAT
5ca0: 41 20 4d 41 52 4b 53 0d 0a 09 54 41 44 09 4d 37  A MARKS...TAD.M7
5cb0: 30 0d 0a 09 53 5a 41 09 43 4c 41 0d 0a 09 4a 4d  0...SZA.CLA...JM
5cc0: 53 20 20 49 20 20 4d 41 52 4b 45 52 09 09 2f 4d  S  I  MARKER../M
5cd0: 41 52 4b 20 54 52 41 43 4b 20 45 52 52 4f 52 0d  ARK TRACK ERROR.
5ce0: 0a 09 49 53 5a 09 57 35 09 2f 43 4f 55 4e 54 20  ..ISZ.W5./COUNT 
5cf0: 46 4f 52 20 4e 55 4d 42 45 52 20 4f 46 20 42 4c  FOR NUMBER OF BL
5d00: 4f 43 4b 53 0d 0a 09 4a 4d 50 09 2e 2d 35 0d 0a  OCKS...JMP..-5..
5d10: 09 54 41 44 09 4d 34 0d 0a 09 44 43 41 09 43 4e  .TAD.M4...DCA.CN
5d20: 54 0d 0a 09 4a 4d 53 20 20 49 20 20 53 53 44 53  T...JMS  I  SSDS
5d30: 51 54 09 2f 52 45 41 44 20 50 46 2c 46 2c 43 4b  QT./READ PF,F,CK
5d40: 2c 4c 0d 0a 09 54 41 44 09 4d 37 33 0d 0a 09 53  ,L...TAD.M73...S
5d50: 5a 41 09 43 4c 41 0d 0a 09 4a 4d 53 20 20 49 20  ZA.CLA...JMS  I 
5d60: 20 4d 41 52 4b 45 52 09 2f 4d 41 52 4b 20 54 52   MARKER./MARK TR
5d70: 41 43 4b 20 45 52 52 4f 52 0d 0a 09 49 53 5a 09  ACK ERROR...ISZ.
5d80: 43 4e 54 0d 0a 09 4a 4d 50 09 2e 2d 35 0d 0a 09  CNT...JMP..-5...
5d90: 4a 4d 53 20 20 49 20 20 53 53 44 53 51 54 09 2f  JMS  I  SSDSQT./
5da0: 52 45 41 44 20 52 45 56 45 52 53 45 20 47 55 41  READ REVERSE GUA
5db0: 52 44 0d 0a 09 54 41 44 09 4d 35 31 0d 0a 09 53  RD...TAD.M51...S
5dc0: 5a 41 09 43 4c 41 0d 0a 09 4a 4d 53 20 20 49 20  ZA.CLA...JMS  I 
5dd0: 20 4d 41 52 4b 45 52 0d 0a 0d 0a 09 4a 4d 53 20   MARKER.....JMS 
5de0: 20 49 20 20 53 53 44 53 51 54 09 2f 52 45 41 44   I  SSDSQT./READ
5df0: 20 42 4c 4f 43 4b 20 4e 55 4d 42 45 52 0d 0a 09   BLOCK NUMBER...
5e00: 54 41 44 09 4d 34 35 0d 0a 09 53 5a 41 09 43 4c  TAD.M45...SZA.CL
5e10: 41 0d 0a 09 4a 4d 53 20 20 49 20 20 4d 41 52 4b  A...JMS  I  MARK
5e20: 45 52 09 2f 4d 41 52 4b 20 54 52 41 43 4b 20 45  ER./MARK TRACK E
5e30: 52 52 4f 52 0d 0a 09 4a 4d 53 20 20 49 20 20 53  RROR...JMS  I  S
5e40: 53 44 53 51 54 09 2f 52 45 41 44 20 45 58 50 41  SDSQT./READ EXPA
5e50: 4e 44 20 43 4f 44 45 0d 0a 09 54 41 44 09 4d 32  ND CODE...TAD.M2
5e60: 35 0d 0a 09 53 5a 41 09 43 4c 41 0d 0a 09 4a 4d  5...SZA.CLA...JM
5e70: 53 20 20 49 20 20 4d 41 52 4b 45 52 09 2f 45 4e  S  I  MARKER./EN
5e80: 44 20 4f 46 20 4f 4e 45 20 42 4c 4f 43 4b 2c 4d  D OF ONE BLOCK,M
5e90: 41 52 4b 20 54 52 41 43 4b 20 45 52 52 4f 52 0d  ARK TRACK ERROR.
5ea0: 0a 0d 0a 09 49 53 5a 09 57 36 09 2f 46 49 4e 49  ....ISZ.W6./FINI
5eb0: 53 48 45 44 20 41 4c 4c 20 42 4c 4f 43 4b 53 0d  SHED ALL BLOCKS.
5ec0: 0a 09 4a 4d 50 09 52 53 54 42 4c 4b 09 2f 4e 4f  ..JMP.RSTBLK./NO
5ed0: 3a 44 4f 20 4f 54 48 45 52 20 42 4c 4f 43 4b 53  :DO OTHER BLOCKS
5ee0: 0d 0a 09 54 41 44 09 4d 33 30 37 09 2f 53 45 54  ...TAD.M307./SET
5ef0: 20 55 50 20 46 4f 52 20 49 4e 54 45 52 42 4c 4f   UP FOR INTERBLO
5f00: 43 4b 20 53 59 4e 43 20 41 54 20 45 4e 44 20 4f  CK SYNC AT END O
5f10: 46 20 54 41 50 45 0d 0a 09 44 43 41 09 43 4e 54  F TAPE...DCA.CNT
5f20: 0d 0a 09 4a 4d 53 20 20 49 20 20 53 53 44 53 51  ...JMS  I  SSDSQ
5f30: 54 09 2f 43 48 45 43 4b 20 46 4f 52 20 31 39 39  T./CHECK FOR 199
5f40: 20 45 58 50 41 4e 44 20 43 4f 44 45 53 0d 0a 09   EXPAND CODES...
5f50: 54 41 44 09 4d 32 35 0d 0a 09 53 5a 41 09 43 4c  TAD.M25...SZA.CL
5f60: 41 0d 0a 09 4a 4d 53 20 20 49 20 20 4d 41 52 4b  A...JMS  I  MARK
5f70: 45 52 09 2f 4d 41 52 4b 20 54 52 41 43 4b 20 45  ER./MARK TRACK E
5f80: 52 52 4f 52 0d 0a 09 49 53 5a 09 43 4e 54 0d 0a  RROR...ISZ.CNT..
5f90: 09 4a 4d 50 09 2e 2d 35 0d 0a 09 4a 4d 53 20 20  .JMP..-5...JMS  
5fa0: 49 20 20 53 53 44 53 51 54 0d 0a 09 54 41 44 09  I  SSDSQT...TAD.
5fb0: 4d 32 32 0d 0a 09 53 5a 41 09 43 4c 41 0d 0a 09  M22...SZA.CLA...
5fc0: 4a 4d 53 20 20 49 20 20 4d 41 52 4b 45 52 0d 0a  JMS  I  MARKER..
5fd0: 09 54 41 44 09 44 54 41 0d 0a 09 53 44 4c 43 0d  .TAD.DTA...SDLC.
5fe0: 0a 09 4a 4d 50 20 20 49 20 20 2e 2b 31 0d 0a 57  ..JMP  I  .+1..W
5ff0: 44 42 4c 4b 4e 2c 09 44 42 4c 4b 4e 09 2f 47 4f  DBLKN,.DBLKN./GO
6000: 20 4f 55 54 20 54 4f 20 57 52 49 54 45 20 44 41   OUT TO WRITE DA
6010: 54 41 20 41 4e 44 20 42 4c 4f 43 4b 20 4e 55 4d  TA AND BLOCK NUM
6020: 42 45 52 53 20 46 4f 52 57 41 52 44 0d 0a 0d 0a  BERS FORWARD....
6030: 0d 0a 0c 0d 0a 2a 32 30 30 30 0d 0a 44 42 4c 4b  .....*2000..DBLK
6040: 4e 2c 09 54 41 44 09 43 32 0d 0a 09 44 43 41 09  N,.TAD.C2...DCA.
6050: 50 48 41 53 45 0d 0a 09 54 41 44 09 56 41 52 32  PHASE...TAD.VAR2
6060: 09 2f 4e 55 4d 42 45 52 20 4f 46 20 42 4c 4f 43  ./NUMBER OF BLOC
6070: 4b 53 0d 0a 0d 0a 09 44 43 41 09 57 36 0d 0a 09  KS.....DCA.W6...
6080: 44 43 41 09 42 4c 4b 09 2f 49 4e 49 54 49 41 4c  DCA.BLK./INITIAL
6090: 20 42 4c 4f 43 4b 20 49 53 20 30 0d 0a 09 54 41   BLOCK IS 0...TA
60a0: 44 09 42 4c 4b 0d 0a 09 4a 4d 53 20 20 49 20 20  D.BLK...JMS  I  
60b0: 4d 45 53 53 09 2f 43 4f 4d 50 55 54 45 20 54 48  MESS./COMPUTE TH
60c0: 45 20 43 4f 4d 50 20 4f 42 56 45 52 53 45 20 4f  E COMP OBVERSE O
60d0: 46 20 52 45 56 20 42 4c 4b 0d 0a 09 44 43 41 09  F REV BLK...DCA.
60e0: 52 45 56 42 4c 4b 0d 0a 09 53 44 4c 44 0d 0a 09  REVBLK...SDLD...
60f0: 54 41 44 09 44 54 31 34 30 30 09 2f 46 4f 52 57  TAD.DT1400./FORW
6100: 41 52 44 2c 57 52 49 54 45 2c 47 4f 0d 0a 09 54  ARD,WRITE,GO...T
6110: 41 44 09 44 54 41 09 2f 55 4e 49 54 0d 0a 09 53  AD.DTA./UNIT...S
6120: 44 4c 43 09 09 2f 4c 4f 41 44 20 54 48 45 20 43  DLC../LOAD THE C
6130: 4f 4d 4d 41 4e 44 20 52 45 47 49 53 54 45 52 0d  OMMAND REGISTER.
6140: 0a 09 53 44 52 43 09 09 2f 43 48 45 43 4b 20 54  ..SDRC../CHECK T
6150: 4f 20 4d 41 4b 45 20 53 55 52 45 20 57 52 49 54  O MAKE SURE WRIT
6160: 45 20 49 53 20 53 45 54 0d 0a 09 52 54 4c 0d 0a  E IS SET...RTL..
6170: 09 52 41 4c 0d 0a 09 53 4d 41 09 43 4c 41 0d 0a  .RAL...SMA.CLA..
6180: 09 4a 4d 53 09 57 4c 4f 09 2f 57 52 49 54 45 20  .JMS.WLO./WRITE 
6190: 46 41 49 4c 45 44 20 54 4f 20 53 45 54 0d 0a 09  FAILED TO SET...
61a0: 54 41 44 09 4d 36 0d 0a 09 44 43 41 09 43 4e 54  TAD.M6...DCA.CNT
61b0: 0d 0a 09 53 44 53 51 09 09 2f 52 4f 55 54 49 4e  ...SDSQ../ROUTIN
61c0: 45 20 54 4f 20 47 45 54 20 55 50 20 54 4f 20 53  E TO GET UP TO S
61d0: 50 45 45 44 0d 0a 09 4a 4d 50 09 2e 2d 31 0d 0a  PEED...JMP..-1..
61e0: 09 53 44 4c 44 0d 0a 09 49 53 5a 09 43 4e 54 0d  .SDLD...ISZ.CNT.
61f0: 0a 09 4a 4d 50 09 2e 2d 34 0d 0a 09 53 44 4c 44  ..JMP..-4...SDLD
6200: 0d 0a 09 53 44 53 54 0d 0a 09 53 4b 50 0d 0a 09  ...SDST...SKP...
6210: 4a 4d 53 20 20 49 20 20 53 45 4c 54 49 4d 09 09  JMS  I  SELTIM..
6220: 2f 54 49 4d 49 4e 47 20 45 52 52 4f 52 0d 0a 4c  /TIMING ERROR..L
6230: 49 4e 45 2c 09 53 44 53 53 09 09 2f 57 52 49 54  INE,.SDSS../WRIT
6240: 45 20 41 4c 4c 20 5a 45 52 4f 45 53 20 54 4f 20  E ALL ZEROES TO 
6250: 54 48 45 20 46 49 52 53 54 20 42 4c 4f 43 4b 0d  THE FIRST BLOCK.
6260: 0a 09 4a 4d 50 09 2e 2d 31 0d 0a 09 53 44 4c 44  ..JMP..-1...SDLD
6270: 09 09 2f 4c 4f 41 44 20 54 48 45 20 44 41 54 41  ../LOAD THE DATA
6280: 20 42 55 46 46 45 52 20 0d 0a 09 53 44 52 43 0d   BUFFER ...SDRC.
6290: 0a 09 53 44 53 54 0d 0a 09 53 4b 50 0d 0a 09 4a  ..SDST...SKP...J
62a0: 4d 53 20 20 49 20 20 53 45 4c 54 49 4d 09 09 2f  MS  I  SELTIM../
62b0: 54 49 4d 49 4e 47 20 45 52 52 4f 52 0d 0a 09 41  TIMING ERROR...A
62c0: 4e 44 09 4d 53 4b 37 37 0d 0a 09 44 43 41 09 4d  ND.MSK77...DCA.M
62d0: 54 52 0d 0a 09 54 41 44 09 4d 54 52 0d 0a 09 54  TR...TAD.MTR...T
62e0: 41 44 09 4d 32 36 0d 0a 09 53 5a 41 09 43 4c 41  AD.M26...SZA.CLA
62f0: 0d 0a 09 4a 4d 50 09 4c 49 4e 45 0d 0a 09 53 44  ...JMP.LINE...SD
6300: 4c 44 0d 0a 09 53 44 53 54 0d 0a 09 53 4b 50 0d  LD...SDST...SKP.
6310: 0a 09 4a 4d 53 20 20 49 20 20 53 45 4c 54 49 4d  ..JMS  I  SELTIM
6320: 09 09 2f 54 49 4d 49 4e 47 20 45 52 52 4f 52 0d  ../TIMING ERROR.
6330: 0a 09 4a 4d 50 09 57 44 4f 42 4c 4b 09 2f 47 4f  ..JMP.WDOBLK./GO
6340: 20 41 4e 44 20 57 52 49 54 45 20 52 45 56 45 52   AND WRITE REVER
6350: 53 45 20 47 55 41 52 44 0d 0a 57 44 42 4c 4b 2c  SE GUARD..WDBLK,
6360: 09 43 4c 41 20 43 4c 4c 09 09 2f 42 45 47 49 4e  .CLA CLL../BEGIN
6370: 4e 49 4e 47 20 4f 46 20 42 4c 4f 43 4b 2c 57 52  NING OF BLOCK,WR
6380: 49 54 45 20 44 41 54 41 20 41 4e 44 20 42 4c 4f  ITE DATA AND BLO
6390: 43 4b 20 4e 55 4d 42 45 52 0d 0a 09 4a 4d 53 09  CK NUMBER...JMS.
63a0: 57 34 4c 09 2f 57 52 49 54 45 20 45 49 47 48 54  W4L./WRITE EIGHT
63b0: 20 4c 49 4e 45 53 0d 0a 09 4a 4d 53 09 57 34 4c   LINES...JMS.W4L
63c0: 09 2f 45 4e 44 20 4f 46 20 45 58 50 41 4e 44 20  ./END OF EXPAND 
63d0: 43 4f 44 45 2c 42 45 47 49 4e 4e 49 4e 47 20 4f  CODE,BEGINNING O
63e0: 46 20 42 4c 4b 20 4e 55 4d 42 45 52 0d 0a 09 54  F BLK NUMBER...T
63f0: 41 44 09 42 4c 4b 09 2f 47 45 54 20 46 4f 52 57  AD.BLK./GET FORW
6400: 41 52 44 20 42 4c 4f 43 4b 20 4e 55 4d 42 45 52  ARD BLOCK NUMBER
6410: 0d 0a 09 4a 4d 53 09 57 34 4c 09 2f 57 52 49 54  ...JMS.W4L./WRIT
6420: 45 20 49 54 0d 0a 09 43 4c 41 0d 0a 09 4a 4d 53  E IT...CLA...JMS
6430: 09 57 34 4c 09 2f 57 52 49 54 45 20 46 49 52 53  .W4L./WRITE FIRS
6440: 54 20 57 4f 52 44 20 4f 46 20 52 45 56 20 47 55  T WORD OF REV GU
6450: 41 52 44 0d 0a 57 44 4f 42 4c 4b 2c 09 43 4c 41  ARD..WDOBLK,.CLA
6460: 0d 0a 09 4a 4d 53 09 57 34 4c 09 2f 53 45 43 4f  ...JMS.W4L./SECO
6470: 4e 44 20 57 4f 52 44 20 4f 46 20 52 45 56 45 52  ND WORD OF REVER
6480: 53 45 20 47 55 41 52 44 0d 0a 09 4a 4d 53 09 57  SE GUARD...JMS.W
6490: 34 4c 0d 0a 09 4a 4d 53 09 57 34 4c 09 2f 46 49  4L...JMS.W4L./FI
64a0: 52 53 54 20 57 4f 52 44 20 4f 46 20 52 45 56 45  RST WORD OF REVE
64b0: 52 53 45 20 43 48 45 43 4b 53 55 4d 0d 0a 57 44  RSE CHECKSUM..WD
64c0: 41 54 41 2c 09 54 41 44 09 54 4f 54 41 4c 09 2f  ATA,.TAD.TOTAL./
64d0: 4e 55 4d 42 45 52 20 4f 46 20 44 41 54 41 20 57  NUMBER OF DATA W
64e0: 4f 52 44 53 20 54 4f 20 42 45 20 57 52 49 54 54  ORDS TO BE WRITT
64f0: 45 4e 0d 0a 09 43 49 41 0d 0a 09 44 43 41 09 57  EN...CIA...DCA.W
6500: 35 09 2f 53 45 54 20 55 50 20 43 4f 55 4e 54 45  5./SET UP COUNTE
6510: 52 0d 0a 09 4a 4d 53 09 57 34 4c 0d 0a 09 49 53  R...JMS.W4L...IS
6520: 5a 09 57 35 09 2f 49 4e 43 52 45 4d 45 4e 54 20  Z.W5./INCREMENT 
6530: 43 4f 55 4e 54 45 52 0d 0a 09 4a 4d 50 09 2e 2d  COUNTER...JMP..-
6540: 32 0d 0a 09 43 4c 41 09 43 4c 4c 0d 0a 09 54 41  2...CLA.CLL...TA
6550: 44 09 4d 53 4b 37 37 09 2f 43 4f 4d 45 20 42 41  D.MSK77./COME BA
6560: 43 4b 20 54 4f 20 57 52 49 54 45 20 4c 41 53 54  CK TO WRITE LAST
6570: 20 57 4f 52 44 20 41 4e 44 20 43 48 45 43 4b 53   WORD AND CHECKS
6580: 55 4d 0d 0a 09 4a 4d 53 09 57 34 4c 0d 0a 09 43  UM...JMS.W4L...C
6590: 4c 41 0d 0a 09 4a 4d 53 09 57 34 4c 09 2f 46 49  LA...JMS.W4L./FI
65a0: 4e 49 53 48 20 43 48 45 43 4b 53 55 4d 0d 0a 09  NISH CHECKSUM...
65b0: 4a 4d 53 09 57 34 4c 09 2f 46 49 52 53 54 20 57  JMS.W4L./FIRST W
65c0: 4f 52 44 20 4f 46 20 52 45 56 45 52 53 45 20 4c  ORD OF REVERSE L
65d0: 4f 43 4b 0d 0a 09 4a 4d 53 09 57 34 4c 09 2f 4c  OCK...JMS.W4L./L
65e0: 41 53 54 20 57 4f 52 44 20 4f 46 20 52 4c 2e 20  AST WORD OF RL. 
65f0: 41 4e 44 20 48 41 4c 46 20 4f 46 20 47 55 41 52  AND HALF OF GUAR
6600: 44 0d 0a 09 4a 4d 53 09 57 34 4c 09 2f 52 45 53  D...JMS.W4L./RES
6610: 54 20 4f 46 20 47 55 41 52 44 0d 0a 09 54 41 44  T OF GUARD...TAD
6620: 09 52 45 56 42 4c 4b 09 2f 47 45 54 20 52 45 56  .REVBLK./GET REV
6630: 45 52 53 45 20 42 4c 4f 43 4b 20 4e 55 4d 42 45  ERSE BLOCK NUMBE
6640: 52 0d 0a 09 4a 4d 53 09 57 34 4c 0d 0a 09 43 4c  R...JMS.W4L...CL
6650: 41 09 43 4d 41 0d 0a 09 4a 4d 53 09 57 34 4c 09  A.CMA...JMS.W4L.
6660: 2f 45 4e 44 20 4f 46 20 42 4c 4f 43 4b 20 4e 55  /END OF BLOCK NU
6670: 4d 42 45 52 20 41 4e 44 20 48 41 4c 46 20 4f 46  MBER AND HALF OF
6680: 20 45 58 50 41 4e 44 20 43 4f 44 45 0d 0a 09 4a   EXPAND CODE...J
6690: 4d 53 09 57 34 4c 09 2f 45 4e 44 20 4f 46 20 45  MS.W4L./END OF E
66a0: 58 50 41 4e 44 20 43 4f 44 45 0d 0a 09 49 53 5a  XPAND CODE...ISZ
66b0: 09 42 4c 4b 0d 0a 09 43 4c 41 0d 0a 09 54 41 44  .BLK...CLA...TAD
66c0: 09 42 4c 4b 0d 0a 09 4a 4d 53 20 20 49 20 20 4d  .BLK...JMS  I  M
66d0: 45 53 53 09 2f 43 4f 4d 50 55 54 45 20 4e 45 57  ESS./COMPUTE NEW
66e0: 20 42 4c 4b 20 4e 55 4d 42 45 52 0d 0a 09 44 43   BLK NUMBER...DC
66f0: 41 09 52 45 56 42 4c 4b 0d 0a 09 53 44 53 54 0d  A.REVBLK...SDST.
6700: 0a 09 53 4b 50 0d 0a 09 4a 4d 53 20 20 49 20 20  ..SKP...JMS  I  
6710: 53 45 4c 54 49 4d 09 09 2f 54 49 4d 49 4e 47 20  SELTIM../TIMING 
6720: 45 52 52 4f 52 0d 0a 09 49 53 5a 09 57 36 09 2f  ERROR...ISZ.W6./
6730: 49 53 20 49 54 20 44 4f 4e 45 20 57 52 49 54 49  IS IT DONE WRITI
6740: 4e 47 20 42 4c 4b 20 41 4e 44 20 44 41 54 41 0d  NG BLK AND DATA.
6750: 0a 09 4a 4d 50 09 57 44 42 4c 4b 09 2f 4e 4f 0d  ..JMP.WDBLK./NO.
6760: 0a 09 53 44 53 51 0d 0a 09 4a 4d 50 09 2e 2d 31  ..SDSQ...JMP..-1
6770: 0d 0a 09 53 44 52 44 0d 0a 09 43 4c 41 0d 0a 09  ...SDRD...CLA...
6780: 54 41 44 09 44 54 31 30 30 30 09 2f 53 45 41 52  TAD.DT1000./SEAR
6790: 43 48 20 46 4f 52 20 45 4e 44 20 5a 4f 4e 45 0d  CH FOR END ZONE.
67a0: 0a 09 54 41 44 09 44 54 41 09 2f 47 45 54 20 55  ..TAD.DTA./GET U
67b0: 4e 49 54 0d 0a 09 53 44 4c 43 09 09 2f 4c 4f 41  NIT...SDLC../LOA
67c0: 44 20 54 48 45 20 43 4f 4d 4d 41 4e 44 20 52 45  D THE COMMAND RE
67d0: 47 0d 0a 09 53 44 53 53 0d 0a 09 4a 4d 50 09 2e  G...SDSS...JMP..
67e0: 2d 31 0d 0a 09 53 44 52 43 0d 0a 09 41 4e 44 09  -1...SDRC...AND.
67f0: 4d 53 4b 37 37 0d 0a 09 54 41 44 09 4d 32 32 0d  MSK77...TAD.M22.
6800: 0a 09 53 5a 41 09 43 4c 41 0d 0a 09 4a 4d 50 09  ..SZA.CLA...JMP.
6810: 2e 2d 36 0d 0a 09 4a 4d 50 20 20 49 20 20 2e 2b  .-6...JMP  I  .+
6820: 31 0d 0a 09 44 42 4c 4f 43 4b 0d 0a 0d 0a 57 34  1...DBLOCK....W4
6830: 4c 2c 09 30 0d 0a 09 53 44 53 51 0d 0a 09 4a 4d  L,.0...SDSQ...JM
6840: 50 09 2e 2d 31 09 2f 53 4b 49 50 20 4f 4e 20 51  P..-1./SKIP ON Q
6850: 55 41 44 20 4c 49 4e 45 20 46 4c 41 47 0d 0a 09  UAD LINE FLAG...
6860: 53 44 4c 44 09 09 2f 4c 4f 41 44 20 54 48 45 20  SDLD../LOAD THE 
6870: 44 41 54 41 20 42 55 46 46 45 52 0d 0a 09 53 44  DATA BUFFER...SD
6880: 53 54 09 09 2f 43 48 45 43 4b 20 46 4f 52 20 41  ST../CHECK FOR A
6890: 20 54 49 4d 49 4e 47 20 45 52 52 4f 52 0d 0a 09   TIMING ERROR...
68a0: 53 4b 50 0d 0a 09 4a 4d 53 20 20 49 20 20 53 45  SKP...JMS  I  SE
68b0: 4c 54 49 4d 09 09 2f 54 49 4d 49 4e 47 20 45 52  LTIM../TIMING ER
68c0: 52 4f 52 0d 0a 09 4a 4d 50 20 20 49 20 20 57 34  ROR...JMP  I  W4
68d0: 4c 0d 0a 0d 0a 43 32 2c 09 30 30 30 32 0d 0a 0d  L....C2,.0002...
68e0: 0a 57 4c 4f 2c 09 30 0d 0a 09 54 41 44 09 44 54  .WLO,.0...TAD.DT
68f0: 41 09 2f 53 54 4f 50 20 54 48 45 20 54 41 50 45  A./STOP THE TAPE
6900: 0d 0a 09 53 44 4c 43 09 09 2f 4c 4f 41 44 20 54  ...SDLC../LOAD T
6910: 48 45 20 43 4f 4d 4d 41 4e 44 20 52 45 47 49 53  HE COMMAND REGIS
6920: 54 45 52 0d 0a 09 4a 4d 53 20 20 49 20 20 54 59  TER...JMS  I  TY
6930: 50 45 0d 0a 09 32 30 30 33 09 09 2f 50 43 0d 0a  PE...2003../PC..
6940: 09 34 30 30 30 09 09 2f 45 4e 44 0d 0a 09 43 4c  .4000../END...CL
6950: 41 09 43 4d 41 0d 0a 09 54 41 44 09 57 4c 4f 0d  A.CMA...TAD.WLO.
6960: 0a 09 4a 4d 53 20 20 49 20 20 54 59 4f 43 54 0d  ..JMS  I  TYOCT.
6970: 0a 09 4a 4d 53 20 20 49 20 20 54 59 50 45 0d 0a  ..JMS  I  TYPE..
6980: 09 34 30 34 30 0d 0a 09 32 37 32 32 09 09 2f 57  .4040...2722../W
6990: 52 0d 0a 09 31 31 32 34 09 09 2f 49 54 0d 0a 09  R...1124../IT...
69a0: 30 35 34 30 09 09 2f 45 0d 0a 09 30 30 30 30 09  0540../E...0000.
69b0: 09 2f 45 4e 44 0d 0a 09 4a 4d 50 20 20 49 20 20  ./END...JMP  I  
69c0: 2e 2b 31 0d 0a 09 5a 43 4f 4d 0d 0a 0d 0a 0d 0a  .+1...ZCOM......
69d0: 0d 0a 0c 0d 0a 2a 32 32 30 30 0d 0a 42 4c 43 53  .....*2200..BLCS
69e0: 44 2c 09 54 41 44 09 43 34 0d 0a 09 44 43 41 09  D,.TAD.C4...DCA.
69f0: 50 48 41 53 45 0d 0a 09 43 4c 41 09 43 4c 4c 0d  PHASE...CLA.CLL.
6a00: 0a 09 54 41 44 09 56 41 52 32 0d 0a 09 44 43 41  ..TAD.VAR2...DCA
6a10: 09 57 36 09 2f 53 45 54 20 55 50 20 46 4f 52 20  .W6./SET UP FOR 
6a20: 54 48 45 20 4e 55 4d 42 45 52 20 4f 46 20 42 4c  THE NUMBER OF BL
6a30: 4f 43 4b 53 0d 0a 09 44 43 41 09 42 4c 4b 09 2f  OCKS...DCA.BLK./
6a40: 53 45 54 20 42 4c 4b 20 54 4f 20 30 0d 0a 09 54  SET BLK TO 0...T
6a50: 41 44 09 44 54 31 30 30 30 09 2f 46 4f 52 57 41  AD.DT1000./FORWA
6a60: 52 44 20 52 45 41 44 0d 0a 09 54 41 44 09 44 54  RD READ...TAD.DT
6a70: 41 09 2f 55 4e 49 54 0d 0a 09 53 44 4c 43 09 09  A./UNIT...SDLC..
6a80: 2f 4c 4f 41 44 20 54 48 45 20 43 4f 4d 4d 41 4e  /LOAD THE COMMAN
6a90: 44 20 52 45 47 0d 0a 09 54 41 44 09 42 4c 4b 0d  D REG...TAD.BLK.
6aa0: 0a 09 4a 4d 53 20 20 49 20 20 4d 45 53 53 09 2f  ..JMS  I  MESS./
6ab0: 43 41 4c 43 55 4c 41 54 45 20 54 48 45 20 43 4f  CALCULATE THE CO
6ac0: 4d 50 4c 45 4d 45 4e 54 20 4f 42 56 45 52 53 45  MPLEMENT OBVERSE
6ad0: 0d 0a 09 44 43 41 09 52 45 56 42 4c 4b 0d 0a 09  ...DCA.REVBLK...
6ae0: 53 44 53 54 0d 0a 09 53 4b 50 0d 0a 09 4a 4d 53  SDST...SKP...JMS
6af0: 20 20 49 20 20 53 45 4c 54 49 4d 09 09 2f 54 49    I  SELTIM../TI
6b00: 4d 49 4e 47 20 45 52 52 4f 52 0d 0a 09 54 41 44  MING ERROR...TAD
6b10: 09 4d 36 09 2f 57 41 49 54 20 54 4f 20 47 45 54  .M6./WAIT TO GET
6b20: 20 55 50 20 54 4f 20 53 50 45 45 44 0d 0a 09 44   UP TO SPEED...D
6b30: 43 41 09 43 4e 54 09 2f 53 45 54 20 55 50 20 43  CA.CNT./SET UP C
6b40: 4f 55 4e 54 45 52 0d 0a 09 53 44 53 51 09 09 2f  OUNTER...SDSQ../
6b50: 53 4b 49 50 20 4f 4e 20 41 20 51 55 41 44 20 4c  SKIP ON A QUAD L
6b60: 49 4e 45 20 46 4c 41 47 0d 0a 09 4a 4d 50 09 2e  INE FLAG...JMP..
6b70: 2d 31 0d 0a 09 53 44 52 44 09 09 2f 52 45 41 44  -1...SDRD../READ
6b80: 20 54 48 45 20 44 41 54 41 20 42 55 46 46 45 52   THE DATA BUFFER
6b90: 20 54 4f 20 43 4c 45 41 52 20 46 4c 41 47 0d 0a   TO CLEAR FLAG..
6ba0: 09 49 53 5a 09 43 4e 54 0d 0a 09 4a 4d 50 09 2e  .ISZ.CNT...JMP..
6bb0: 2d 34 0d 0a 09 43 4c 41 0d 0a 42 4c 43 53 44 41  -4...CLA..BLCSDA
6bc0: 2c 09 44 43 41 09 43 48 4b 53 55 4d 0d 0a 09 4a  ,.DCA.CHKSUM...J
6bd0: 4d 53 20 20 49 20 20 53 4c 52 44 52 43 09 2f 52  MS  I  SLRDRC./R
6be0: 45 41 44 20 41 20 53 49 4e 47 4c 45 20 4c 49 4e  EAD A SINGLE LIN
6bf0: 45 20 41 54 20 41 20 54 49 4d 45 0d 0a 09 54 41  E AT A TIME...TA
6c00: 44 09 4d 32 36 0d 0a 09 53 5a 41 09 43 4c 41 09  D.M26...SZA.CLA.
6c10: 2f 49 53 20 49 54 20 42 4c 4f 43 4b 20 4d 41 52  /IS IT BLOCK MAR
6c20: 4b 0d 0a 09 4a 4d 50 09 53 52 44 52 43 2b 34 09  K...JMP.SRDRC+4.
6c30: 2f 4e 4f 2c 47 4f 20 42 41 43 4b 0d 0a 09 53 44  /NO,GO BACK...SD
6c40: 53 54 0d 0a 09 53 4b 50 0d 0a 09 4a 4d 53 20 20  ST...SKP...JMS  
6c50: 49 20 20 53 45 4c 54 49 4d 09 09 2f 54 49 4d 49  I  SELTIM../TIMI
6c60: 4e 47 20 45 52 52 4f 52 0d 0a 09 54 41 44 09 44  NG ERROR...TAD.D
6c70: 41 54 52 44 0d 0a 09 43 49 41 0d 0a 09 54 41 44  ATRD...CIA...TAD
6c80: 09 42 4c 4b 0d 0a 09 53 5a 41 09 43 4c 41 0d 0a  .BLK...SZA.CLA..
6c90: 09 4a 4d 53 20 20 49 20 20 42 4c 4b 45 52 52 09  .JMS  I  BLKERR.
6ca0: 2f 42 4c 4b 20 4e 55 4d 42 45 52 20 45 52 52 4f  /BLK NUMBER ERRO
6cb0: 52 0d 0a 09 4a 4d 53 20 20 49 20 20 53 53 44 53  R...JMS  I  SSDS
6cc0: 51 54 09 2f 52 45 41 44 20 47 55 41 52 44 0d 0a  QT./READ GUARD..
6cd0: 09 4a 4d 53 20 20 49 20 20 53 53 44 53 51 54 09  .JMS  I  SSDSQT.
6ce0: 2f 52 45 41 44 20 52 45 56 45 52 53 45 20 4c 4f  /READ REVERSE LO
6cf0: 43 4b 0d 0a 09 4a 4d 53 20 20 49 20 20 53 53 44  CK...JMS  I  SSD
6d00: 53 51 54 09 2f 52 45 41 44 20 43 48 45 43 4b 53  SQT./READ CHECKS
6d10: 55 4d 0d 0a 09 53 44 52 44 09 09 2f 52 45 41 44  UM...SDRD../READ
6d20: 20 54 48 45 20 44 41 54 41 20 42 55 46 46 45 52   THE DATA BUFFER
6d30: 0d 0a 09 53 44 53 54 0d 0a 09 53 4b 50 0d 0a 09  ...SDST...SKP...
6d40: 4a 4d 53 20 20 49 20 20 53 45 4c 54 49 4d 09 09  JMS  I  SELTIM..
6d50: 2f 54 49 4d 49 4e 47 20 45 52 52 4f 52 0d 0a 09  /TIMING ERROR...
6d60: 41 4e 44 09 4d 53 4b 37 37 0d 0a 09 4a 4d 53 20  AND.MSK77...JMS 
6d70: 20 49 20 20 42 43 58 4f 52 09 2f 47 4f 20 4f 55   I  BCXOR./GO OU
6d80: 54 20 54 4f 20 43 48 45 43 4b 53 55 4d 20 52 4f  T TO CHECKSUM RO
6d90: 55 54 49 4e 45 0d 0a 52 44 41 54 41 2c 09 54 41  UTINE..RDATA,.TA
6da0: 44 09 54 4f 54 41 4c 09 2f 4e 55 4d 42 45 52 20  D.TOTAL./NUMBER 
6db0: 4f 46 20 57 4f 52 44 53 20 50 45 52 20 42 4c 4f  OF WORDS PER BLO
6dc0: 43 4b 0d 0a 09 43 49 41 0d 0a 09 44 43 41 09 57  CK...CIA...DCA.W
6dd0: 35 09 2f 53 45 54 20 55 50 20 43 4f 55 4e 54 45  5./SET UP COUNTE
6de0: 52 0d 0a 09 53 44 53 51 0d 0a 09 4a 4d 50 09 2e  R...SDSQ...JMP..
6df0: 2d 31 0d 0a 09 53 44 52 44 09 09 2f 52 45 41 44  -1...SDRD../READ
6e00: 20 54 48 45 20 44 41 54 41 20 42 55 46 46 45 52   THE DATA BUFFER
6e10: 0d 0a 09 53 44 53 54 0d 0a 09 53 4b 50 0d 0a 09  ...SDST...SKP...
6e20: 4a 4d 53 20 20 49 20 20 53 45 4c 54 49 4d 09 09  JMS  I  SELTIM..
6e30: 2f 54 49 4d 49 4e 47 20 45 52 52 4f 52 0d 0a 09  /TIMING ERROR...
6e40: 44 43 41 09 44 41 54 52 44 0d 0a 09 54 41 44 09  DCA.DATRD...TAD.
6e50: 44 41 54 52 44 09 2f 53 41 56 45 20 54 48 45 20  DATRD./SAVE THE 
6e60: 44 41 54 41 20 57 4f 52 44 0d 0a 09 53 5a 41 09  DATA WORD...SZA.
6e70: 43 4c 41 0d 0a 09 4a 4d 53 20 20 49 20 20 44 41  CLA...JMS  I  DA
6e80: 54 45 52 52 09 2f 44 41 54 41 20 45 52 52 4f 52  TERR./DATA ERROR
6e90: 0d 0a 09 54 41 44 09 44 41 54 52 44 0d 0a 09 4a  ...TAD.DATRD...J
6ea0: 4d 53 20 20 49 20 20 42 43 58 4f 52 0d 0a 09 53  MS  I  BCXOR...S
6eb0: 44 53 54 09 09 2f 43 48 45 43 4b 20 46 4f 52 20  DST../CHECK FOR 
6ec0: 41 20 54 49 4d 49 4e 47 20 45 52 52 4f 52 0d 0a  A TIMING ERROR..
6ed0: 09 53 4b 50 0d 0a 09 4a 4d 53 20 20 49 20 20 53  .SKP...JMS  I  S
6ee0: 45 4c 54 49 4d 09 09 2f 54 49 4d 49 4e 47 20 45  ELTIM../TIMING E
6ef0: 52 52 4f 52 0d 0a 09 49 53 5a 09 57 35 0d 0a 09  RROR...ISZ.W5...
6f00: 4a 4d 50 09 52 44 41 54 41 2b 33 0d 0a 09 53 44  JMP.RDATA+3...SD
6f10: 53 51 09 09 2f 52 45 41 44 20 52 45 56 45 52 53  SQ../READ REVERS
6f20: 45 20 43 48 45 43 4b 53 55 4d 0d 0a 09 4a 4d 50  E CHECKSUM...JMP
6f30: 09 2e 2d 31 0d 0a 09 53 44 52 44 09 09 2f 52 45  ..-1...SDRD../RE
6f40: 41 44 20 49 54 20 49 4e 0d 0a 09 53 44 53 54 0d  AD IT IN...SDST.
6f50: 0a 09 53 4b 50 0d 0a 09 4a 4d 53 20 20 49 20 20  ..SKP...JMS  I  
6f60: 53 45 4c 54 49 4d 09 09 2f 54 49 4d 49 4e 47 20  SELTIM../TIMING 
6f70: 45 52 52 4f 52 0d 0a 09 41 4e 44 09 43 37 37 30  ERROR...AND.C770
6f80: 30 0d 0a 09 4a 4d 53 20 20 49 20 20 42 43 58 4f  0...JMS  I  BCXO
6f90: 52 09 2f 43 48 45 43 4b 20 43 48 45 43 4b 20 53  R./CHECK CHECK S
6fa0: 55 4d 0d 0a 09 54 41 44 09 43 48 4b 53 55 4d 0d  UM...TAD.CHKSUM.
6fb0: 0a 09 41 4e 44 09 4d 53 4b 37 37 0d 0a 09 49 41  ..AND.MSK77...IA
6fc0: 43 0d 0a 09 54 41 44 09 43 37 37 30 30 0d 0a 09  C...TAD.C7700...
6fd0: 53 5a 41 09 43 4c 41 0d 0a 09 4a 4d 53 20 20 49  SZA.CLA...JMS  I
6fe0: 20 20 43 48 4b 45 52 52 09 2f 43 48 45 43 4b 53    CHKERR./CHECKS
6ff0: 55 4d 20 45 52 52 4f 52 0d 0a 09 53 44 53 54 0d  UM ERROR...SDST.
7000: 0a 09 53 4b 50 0d 0a 09 4a 4d 53 20 20 49 20 20  ..SKP...JMS  I  
7010: 53 45 4c 54 49 4d 09 09 2f 54 49 4d 49 4e 47 20  SELTIM../TIMING 
7020: 45 52 52 4f 52 0d 0a 09 4a 4d 53 20 20 49 20 20  ERROR...JMS  I  
7030: 53 4c 52 44 52 43 09 2f 41 44 56 41 4e 43 45 20  SLRDRC./ADVANCE 
7040: 41 20 53 49 4e 47 4c 45 20 4c 49 4e 45 20 46 4c  A SINGLE LINE FL
7050: 41 47 0d 0a 09 54 41 44 09 4d 33 31 09 2f 4c 4f  AG...TAD.M31./LO
7060: 4f 4b 20 46 4f 52 20 52 45 56 20 42 4c 4b 20 4e  OK FOR REV BLK N
7070: 55 4d 42 45 52 0d 0a 09 53 5a 41 09 43 4c 41 0d  UMBER...SZA.CLA.
7080: 0a 09 4a 4d 50 09 53 52 44 52 43 2b 34 0d 0a 09  ..JMP.SRDRC+4...
7090: 53 44 53 54 0d 0a 09 53 4b 50 0d 0a 09 4a 4d 53  SDST...SKP...JMS
70a0: 20 20 49 20 20 53 45 4c 54 49 4d 09 09 2f 54 49    I  SELTIM../TI
70b0: 4d 49 4e 47 20 45 52 52 4f 52 0d 0a 09 54 41 44  MING ERROR...TAD
70c0: 09 44 41 54 52 44 0d 0a 09 43 49 41 0d 0a 09 54  .DATRD...CIA...T
70d0: 41 44 09 52 45 56 42 4c 4b 09 2f 43 4f 4d 50 41  AD.REVBLK./COMPA
70e0: 52 45 20 42 4c 4f 43 4b 20 52 45 41 44 20 57 49  RE BLOCK READ WI
70f0: 54 48 20 4f 4e 45 20 43 4f 4d 50 55 54 45 44 0d  TH ONE COMPUTED.
7100: 0a 09 53 5a 41 09 43 4c 41 0d 0a 09 4a 4d 53 20  ..SZA.CLA...JMS 
7110: 20 49 20 20 42 4c 4b 45 52 52 09 2f 42 4c 4f 43   I  BLKERR./BLOC
7120: 4b 20 4e 55 4d 42 45 52 20 45 52 52 4f 52 0d 0a  K NUMBER ERROR..
7130: 09 53 44 53 51 09 0d 0a 09 4a 4d 50 09 2e 2d 31  .SDSQ....JMP..-1
7140: 0d 0a 09 53 44 52 44 0d 0a 09 53 44 53 54 0d 0a  ...SDRD...SDST..
7150: 09 53 4b 50 0d 0a 09 4a 4d 53 20 20 49 20 20 53  .SKP...JMS  I  S
7160: 45 4c 54 49 4d 09 09 2f 54 49 4d 49 4e 47 20 45  ELTIM../TIMING E
7170: 52 52 4f 52 0d 0a 09 43 4c 41 09 43 4c 4c 0d 0a  RROR...CLA.CLL..
7180: 09 49 53 5a 09 42 4c 4b 0d 0a 09 54 41 44 09 42  .ISZ.BLK...TAD.B
7190: 4c 4b 0d 0a 09 4a 4d 53 20 20 49 20 20 4d 45 53  LK...JMS  I  MES
71a0: 53 0d 0a 09 44 43 41 09 52 45 56 42 4c 4b 0d 0a  S...DCA.REVBLK..
71b0: 09 53 44 53 54 0d 0a 09 53 4b 50 0d 0a 09 4a 4d  .SDST...SKP...JM
71c0: 53 20 20 49 20 53 45 4c 54 49 4d 09 09 2f 54 49  S  I SELTIM../TI
71d0: 4d 49 4e 47 20 45 52 52 4f 52 0d 0a 09 49 53 5a  MING ERROR...ISZ
71e0: 09 57 36 0d 0a 09 4a 4d 50 09 42 4c 43 53 44 41  .W6...JMP.BLCSDA
71f0: 0d 0a 09 54 41 44 09 44 54 31 30 30 30 0d 0a 09  ...TAD.DT1000...
7200: 54 41 44 09 44 54 41 0d 0a 09 53 44 4c 43 0d 0a  TAD.DTA...SDLC..
7210: 09 53 44 53 53 0d 0a 09 4a 4d 50 09 2e 2d 31 0d  .SDSS...JMP..-1.
7220: 0a 09 53 44 52 43 0d 0a 09 41 4e 44 09 4d 53 4b  ..SDRC...AND.MSK
7230: 37 37 0d 0a 09 54 41 44 09 4d 32 32 0d 0a 09 53  77...TAD.M22...S
7240: 5a 41 09 43 4c 41 0d 0a 09 4a 4d 50 09 2e 2d 36  ZA.CLA...JMP..-6
7250: 0d 0a 09 4a 4d 50 20 20 49 20 20 2e 2b 31 0d 0a  ...JMP  I  .+1..
7260: 09 52 44 42 4c 4b 53 0d 0a 0d 0a 43 34 2c 09 30  .RDBLKS....C4,.0
7270: 30 30 34 0d 0a 0d 0a 0c 0d 0a 2a 32 34 30 30 0d  004.......*2400.
7280: 0a 44 42 4c 4f 43 4b 2c 09 54 41 44 09 43 33 0d  .DBLOCK,.TAD.C3.
7290: 0a 09 44 43 41 09 50 48 41 53 45 0d 0a 09 43 4c  ..DCA.PHASE...CL
72a0: 41 09 43 4c 4c 0d 0a 09 44 43 41 09 44 49 53 42  A.CLL...DCA.DISB
72b0: 4c 4b 0d 0a 09 54 41 44 09 44 54 33 30 30 30 09  LK...TAD.DT3000.
72c0: 2f 52 45 56 45 52 53 45 2c 47 4f 0d 0a 09 54 41  /REVERSE,GO...TA
72d0: 44 09 44 54 41 09 09 2f 55 4e 49 54 0d 0a 09 53  D.DTA../UNIT...S
72e0: 44 4c 43 09 09 2f 4c 4f 41 44 20 54 48 45 20 43  DLC../LOAD THE C
72f0: 4f 4d 4d 41 4e 44 20 52 45 47 49 53 54 45 52 0d  OMMAND REGISTER.
7300: 0a 09 43 4c 41 09 43 4c 4c 0d 0a 44 49 53 4c 55  ..CLA.CLL..DISLU
7310: 50 2c 09 53 44 53 53 0d 0a 09 4a 4d 50 09 2e 2d  P,.SDSS...JMP..-
7320: 31 0d 0a 09 43 4c 41 09 43 4c 4c 0d 0a 09 53 44  1...CLA.CLL...SD
7330: 52 44 0d 0a 09 44 43 41 09 44 49 53 44 41 54 09  RD...DCA.DISDAT.
7340: 2f 53 41 56 45 20 54 48 45 20 44 41 54 41 20 42  /SAVE THE DATA B
7350: 55 46 46 45 52 0d 0a 09 53 44 52 43 0d 0a 09 41  UFFER...SDRC...A
7360: 4e 44 09 4d 53 4b 37 37 09 2f 4d 41 53 4b 20 4f  ND.MSK77./MASK O
7370: 55 54 20 54 48 45 20 4d 41 52 4b 20 54 52 41 43  UT THE MARK TRAC
7380: 4b 0d 0a 09 54 41 44 09 4d 32 36 09 2f 43 48 45  K...TAD.M26./CHE
7390: 43 4b 20 46 4f 52 20 42 4c 4f 43 4b 20 4e 55 4d  CK FOR BLOCK NUM
73a0: 42 45 52 0d 0a 09 53 5a 41 0d 0a 09 4a 4d 50 09  BER...SZA...JMP.
73b0: 44 49 53 45 4e 44 09 2f 4e 4f 54 20 42 4c 4b 20  DISEND./NOT BLK 
73c0: 4d 41 52 4b 2c 43 48 45 43 4b 20 46 4f 52 20 45  MARK,CHECK FOR E
73d0: 4e 44 20 5a 4f 4e 45 0d 0a 09 54 41 44 09 44 49  ND ZONE...TAD.DI
73e0: 53 44 41 54 09 2f 44 49 53 50 4c 41 59 20 54 48  SDAT./DISPLAY TH
73f0: 45 20 4e 55 4d 42 45 52 20 49 4e 20 54 48 45 20  E NUMBER IN THE 
7400: 41 43 0d 0a 09 49 53 5a 09 44 49 53 42 4c 4b 0d  AC...ISZ.DISBLK.
7410: 0a 09 4a 4d 50 09 2e 2d 31 0d 0a 09 4a 4d 50 09  ..JMP..-1...JMP.
7420: 44 49 53 4c 55 50 09 2f 47 4f 20 53 45 41 52 43  DISLUP./GO SEARC
7430: 48 20 46 4f 52 20 54 48 45 20 4e 45 58 54 20 42  H FOR THE NEXT B
7440: 4c 4f 43 4b 0d 0a 44 49 53 45 4e 44 2c 09 54 41  LOCK..DISEND,.TA
7450: 44 09 46 4f 55 52 09 2f 49 53 20 49 54 20 45 4e  D.FOUR./IS IT EN
7460: 44 20 5a 4f 4e 45 0d 0a 09 53 5a 41 09 43 4c 41  D ZONE...SZA.CLA
7470: 0d 0a 09 4a 4d 50 09 44 49 53 4c 55 50 09 2f 4e  ...JMP.DISLUP./N
7480: 4f 2c 47 4f 20 47 45 54 20 4e 45 58 54 20 4c 49  O,GO GET NEXT LI
7490: 4e 45 0d 0a 09 54 41 44 09 44 54 41 09 2f 53 54  NE...TAD.DTA./ST
74a0: 4f 50 20 47 45 54 20 52 45 41 44 59 20 54 4f 20  OP GET READY TO 
74b0: 52 45 41 44 0d 0a 09 53 44 4c 43 09 09 2f 4c 4f  READ...SDLC../LO
74c0: 41 44 20 54 48 45 20 43 4f 4d 4d 41 4e 44 20 52  AD THE COMMAND R
74d0: 45 47 49 53 54 45 52 0d 0a 09 4a 4d 50 20 20 49  EGISTER...JMP  I
74e0: 20 20 2e 2b 31 0d 0a 09 42 4c 43 53 44 0d 0a 44    .+1...BLCSD..D
74f0: 49 53 42 4c 4b 2c 09 30 0d 0a 44 49 53 44 41 54  ISBLK,.0..DISDAT
7500: 2c 09 30 0d 0a 46 4f 55 52 2c 09 34 0d 0a 43 33  ,.0..FOUR,.4..C3
7510: 2c 09 30 30 30 33 0d 0a 43 35 2c 09 30 30 30 35  ,.0003..C5,.0005
7520: 0d 0a 0d 0a 52 44 42 4c 4b 53 2c 09 54 41 44 09  ....RDBLKS,.TAD.
7530: 43 35 0d 0a 09 44 43 41 09 50 48 41 53 45 0d 0a  C5...DCA.PHASE..
7540: 09 54 41 44 09 56 41 52 32 0d 0a 09 44 43 41 09  .TAD.VAR2...DCA.
7550: 57 35 09 2f 53 45 54 20 55 50 20 46 4f 52 20 4e  W5./SET UP FOR N
7560: 55 4d 42 45 52 20 4f 46 20 42 4c 4f 43 4b 53 0d  UMBER OF BLOCKS.
7570: 0a 09 49 41 43 0d 0a 09 54 41 44 09 56 41 52 32  ..IAC...TAD.VAR2
7580: 0d 0a 09 44 43 41 09 57 36 09 2f 53 45 54 20 55  ...DCA.W6./SET U
7590: 50 20 54 4f 20 43 48 45 43 4b 20 42 4c 4b 20 52  P TO CHECK BLK R
75a0: 45 56 45 52 53 45 0d 0a 09 54 41 44 09 44 54 33  EVERSE...TAD.DT3
75b0: 30 30 30 09 2f 52 45 41 44 20 52 45 56 45 52 53  000./READ REVERS
75c0: 45 20 47 4f 0d 0a 09 54 41 44 09 44 54 41 09 2f  E GO...TAD.DTA./
75d0: 55 4e 49 54 0d 0a 09 53 44 4c 43 09 09 2f 4c 4f  UNIT...SDLC../LO
75e0: 41 44 20 54 48 45 20 43 4f 4d 4d 41 4e 44 20 52  AD THE COMMAND R
75f0: 45 47 49 53 54 45 52 0d 0a 09 54 41 44 09 4d 36  EGISTER...TAD.M6
7600: 0d 0a 09 44 43 41 09 43 4e 54 0d 0a 09 53 44 53  ...DCA.CNT...SDS
7610: 53 0d 0a 09 4a 4d 50 09 2e 2d 31 0d 0a 09 53 44  S...JMP..-1...SD
7620: 52 43 0d 0a 09 43 4c 41 0d 0a 09 49 53 5a 09 43  RC...CLA...ISZ.C
7630: 4e 54 0d 0a 09 4a 4d 50 09 2e 2d 35 0d 0a 52 44  NT...JMP..-5..RD
7640: 42 4c 4b 2c 09 53 44 53 53 0d 0a 09 4a 4d 50 09  BLK,.SDSS...JMP.
7650: 2e 2d 31 0d 0a 09 53 44 52 44 09 09 2f 52 45 41  .-1...SDRD../REA
7660: 44 20 54 48 45 20 44 41 54 41 20 42 55 46 46 45  D THE DATA BUFFE
7670: 52 20 41 4e 44 20 53 54 4f 52 45 20 49 54 20 41  R AND STORE IT A
7680: 57 41 59 0d 0a 09 44 43 41 09 43 4e 54 0d 0a 09  WAY...DCA.CNT...
7690: 53 44 52 43 0d 0a 09 41 4e 44 09 4d 53 4b 37 37  SDRC...AND.MSK77
76a0: 0d 0a 09 54 41 44 09 4d 32 36 0d 0a 09 53 5a 41  ...TAD.M26...SZA
76b0: 09 43 4c 41 09 2f 49 53 20 49 54 20 42 4c 4f 43  .CLA./IS IT BLOC
76c0: 4b 20 4e 55 4d 42 45 52 0d 0a 09 4a 4d 50 09 52  K NUMBER...JMP.R
76d0: 44 42 4c 4b 0d 0a 09 54 41 44 09 43 4e 54 0d 0a  DBLK...TAD.CNT..
76e0: 09 54 41 44 09 57 36 0d 0a 09 53 5a 41 09 43 4c  .TAD.W6...SZA.CL
76f0: 41 0d 0a 09 4a 4d 53 20 20 49 20 20 42 4c 4b 45  A...JMS  I  BLKE
7700: 52 52 09 2f 42 4c 4f 43 4b 20 4e 55 4d 42 45 52  RR./BLOCK NUMBER
7710: 20 45 52 52 4f 52 0d 0a 09 49 41 43 0d 0a 09 54   ERROR...IAC...T
7720: 41 44 09 57 36 09 2f 49 4e 43 52 45 4d 45 4e 54  AD.W6./INCREMENT
7730: 20 41 20 4e 55 4d 42 45 52 20 46 4f 52 20 43 4f   A NUMBER FOR CO
7740: 4d 50 41 52 45 20 43 4f 55 4e 54 45 52 0d 0a 09  MPARE COUNTER...
7750: 44 43 41 09 57 36 0d 0a 09 49 53 5a 09 57 35 09  DCA.W6...ISZ.W5.
7760: 2f 49 4e 43 52 45 4d 45 4e 54 20 42 4c 4b 20 43  /INCREMENT BLK C
7770: 4f 55 4e 54 45 52 0d 0a 09 4a 4d 50 09 52 44 42  OUNTER...JMP.RDB
7780: 4c 4b 0d 0a 09 53 44 53 53 0d 0a 09 4a 4d 50 09  LK...SDSS...JMP.
7790: 2e 2d 31 0d 0a 09 53 44 52 43 0d 0a 09 41 4e 44  .-1...SDRC...AND
77a0: 09 4d 53 4b 37 37 0d 0a 09 54 41 44 09 4d 32 32  .MSK77...TAD.M22
77b0: 0d 0a 09 53 5a 41 09 43 4c 41 0d 0a 09 4a 4d 50  ...SZA.CLA...JMP
77c0: 09 2e 2d 36 0d 0a 09 54 41 44 09 44 54 41 0d 0a  ..-6...TAD.DTA..
77d0: 09 53 44 4c 43 09 09 2f 4c 4f 41 44 20 54 48 45  .SDLC../LOAD THE
77e0: 20 43 4f 4d 4d 41 4e 44 20 52 45 47 49 53 54 45   COMMAND REGISTE
77f0: 52 20 57 49 54 48 20 55 4e 49 54 20 53 54 4f 50  R WITH UNIT STOP
7800: 0d 0a 09 49 41 43 0d 0a 09 44 43 41 09 50 48 41  ...IAC...DCA.PHA
7810: 53 45 0d 0a 09 4a 4d 53 09 4e 55 44 54 41 0d 0a  SE...JMS.NUDTA..
7820: 09 4a 4d 50 09 50 53 45 52 0d 0a 09 4a 4d 50 20  .JMP.PSER...JMP 
7830: 20 49 20 20 2e 2b 31 0d 0a 09 49 4e 49 54 09 09   I  .+1...INIT..
7840: 2f 45 4e 44 20 47 4f 20 42 41 43 4b 20 54 4f 20  /END GO BACK TO 
7850: 44 49 52 45 43 54 0d 0a 2f 0d 0a 2f 0d 0a 2f 53  DIRECT../../../S
7860: 55 42 52 4f 55 54 49 4e 45 20 54 4f 20 43 48 45  UBROUTINE TO CHE
7870: 43 4b 20 46 4f 52 20 52 45 50 45 41 54 45 44 20  CK FOR REPEATED 
7880: 44 54 41 20 4e 55 4d 42 45 52 53 0d 0a 2f 44 54  DTA NUMBERS../DT
7890: 41 20 23 20 54 4f 20 43 4f 4d 50 41 52 45 20 54  A # TO COMPARE T
78a0: 4f 20 4c 49 53 54 20 49 53 20 49 4e 20 41 43 20  O LIST IS IN AC 
78b0: 4f 4e 20 45 4e 54 52 59 2d 2d 54 48 49 53 0d 0a  ON ENTRY--THIS..
78c0: 2f 52 4f 55 54 49 4e 45 20 53 54 4f 52 45 53 20  /ROUTINE STORES 
78d0: 54 48 45 20 44 54 41 20 23 20 49 46 20 49 54 20  THE DTA # IF IT 
78e0: 49 53 20 4e 45 57 20 41 4e 44 20 49 47 4e 4f 52  IS NEW AND IGNOR
78f0: 45 53 20 49 54 0d 0a 2f 49 46 20 49 54 20 49 53  ES IT../IF IT IS
7900: 20 4e 4f 54 2d 43 41 4c 4c 20 42 59 20 4a 4d 53   NOT-CALL BY JMS
7910: 20 52 45 50 45 41 54 20 57 49 54 48 20 44 54 41   REPEAT WITH DTA
7920: 20 23 20 49 4e 20 41 43 0d 0a 52 45 50 45 41 54   # IN AC..REPEAT
7930: 2c 09 30 0d 0a 09 44 43 41 20 09 44 4e 55 4d 09  ,.0...DCA .DNUM.
7940: 2f 54 45 4d 20 53 54 4f 52 41 47 45 20 46 4f 52  /TEM STORAGE FOR
7950: 20 4e 45 57 20 44 54 41 20 23 0d 0a 09 54 41 44   NEW DTA #...TAD
7960: 09 44 42 55 46 41 44 09 2f 49 4e 49 54 49 41 4c  .DBUFAD./INITIAL
7970: 49 5a 45 20 50 4f 49 4e 54 45 52 20 28 44 42 55  IZE POINTER (DBU
7980: 46 50 54 29 0d 0a 09 44 43 41 09 44 42 55 46 50  FPT)...DCA.DBUFP
7990: 54 09 2f 54 4f 20 53 54 41 52 54 20 4f 46 20 44  T./TO START OF D
79a0: 54 41 20 4c 49 53 54 0d 0a 09 54 41 44 09 44 43  TA LIST...TAD.DC
79b0: 54 52 09 2f 4c 4f 41 44 20 4e 55 4d 2e 20 4f 46  TR./LOAD NUM. OF
79c0: 20 44 54 41 53 20 53 54 4f 52 45 44 0d 0a 09 43   DTAS STORED...C
79d0: 4d 41 09 09 2f 43 4f 4d 50 4c 45 4d 45 4e 54 20  MA../COMPLEMENT 
79e0: 49 54 0d 0a 09 44 43 41 09 43 4f 4d 43 54 52 09  IT...DCA.COMCTR.
79f0: 2f 53 54 4f 52 45 20 49 4e 20 43 4f 4d 50 41 52  /STORE IN COMPAR
7a00: 45 20 43 4f 55 4e 54 45 52 0d 0a 43 4f 4d 43 48  E COUNTER..COMCH
7a10: 4b 2c 09 49 53 5a 09 43 4f 4d 43 54 52 09 2f 44  K,.ISZ.COMCTR./D
7a20: 4f 4e 45 20 57 49 54 48 20 41 4c 4c 20 43 4f 4d  ONE WITH ALL COM
7a30: 50 41 52 45 53 3f 0d 0a 09 4a 4d 50 09 44 4f 43  PARES?...JMP.DOC
7a40: 4f 4d 50 09 2f 4e 4f 3a 20 47 4f 20 44 4f 20 43  OMP./NO: GO DO C
7a50: 4f 4d 50 41 52 45 0d 0a 09 54 41 44 09 44 4e 55  OMPARE...TAD.DNU
7a60: 4d 09 2f 59 45 53 3a 20 53 54 4f 52 45 20 4e 45  M./YES: STORE NE
7a70: 57 20 44 54 41 23 0d 0a 09 44 43 41 20 49 09 44  W DTA#...DCA I.D
7a80: 42 55 46 50 54 09 2f 41 54 20 45 4e 44 20 4f 46  BUFPT./AT END OF
7a90: 20 4c 49 53 54 0d 0a 09 49 53 5a 09 44 43 54 52   LIST...ISZ.DCTR
7aa0: 09 2f 49 4e 43 52 2e 20 23 20 4f 46 20 44 54 41  ./INCR. # OF DTA
7ab0: 53 20 53 54 4f 52 45 44 0d 0a 09 4a 4d 50 20 49  S STORED...JMP I
7ac0: 09 52 45 50 45 41 54 09 2f 52 45 54 55 52 4e 0d  .REPEAT./RETURN.
7ad0: 0a 0d 0a 43 4f 4d 43 54 52 2c 09 30 09 2f 43 4f  ...COMCTR,.0./CO
7ae0: 55 4e 54 45 52 20 46 4f 52 20 23 20 4f 46 20 4c  UNTER FOR # OF L
7af0: 49 53 54 20 43 4f 4d 50 41 52 49 53 4f 4e 53 20  IST COMPARISONS 
7b00: 54 4f 20 42 45 20 44 4f 4e 45 0d 0a 44 43 54 52  TO BE DONE..DCTR
7b10: 2c 09 30 09 2f 43 4f 55 4e 54 45 52 20 46 4f 52  ,.0./COUNTER FOR
7b20: 20 23 20 4f 46 20 44 54 41 53 20 49 4e 20 4c 49   # OF DTAS IN LI
7b30: 53 54 0d 0a 44 42 55 46 41 44 2c 09 44 54 41 42  ST..DBUFAD,.DTAB
7b40: 55 46 09 2f 53 54 41 52 54 20 4f 46 20 44 54 41  UF./START OF DTA
7b50: 20 4e 55 4d 2e 20 4c 49 53 54 0d 0a 44 4e 55 4d   NUM. LIST..DNUM
7b60: 2c 09 30 09 2f 54 45 4d 20 53 54 4f 52 41 47 45  ,.0./TEM STORAGE
7b70: 20 46 4f 52 20 44 54 41 20 23 0d 0a 2f 0d 0a 2f   FOR DTA #../../
7b80: 0d 0a 2f 54 48 49 53 20 53 45 43 54 49 4f 4e 20  ../THIS SECTION 
7b90: 44 4f 45 53 20 54 48 45 20 41 43 54 55 41 4c 20  DOES THE ACTUAL 
7ba0: 43 4f 4d 50 41 52 49 53 4f 4e 20 42 45 54 57 45  COMPARISON BETWE
7bb0: 45 4e 0d 0a 2f 54 48 45 20 44 54 41 23 20 50 41  EN../THE DTA# PA
7bc0: 53 53 45 44 20 54 4f 20 54 48 45 20 52 4f 55 54  SSED TO THE ROUT
7bd0: 49 4e 45 20 41 4e 44 20 41 20 4e 55 4d 42 45 52  INE AND A NUMBER
7be0: 20 4f 4e 20 54 48 45 20 4c 49 53 54 0d 0a 0d 0a   ON THE LIST....
7bf0: 44 4f 43 4f 4d 50 2c 09 54 41 44 20 49 09 44 42  DOCOMP,.TAD I.DB
7c00: 55 46 50 54 09 2f 47 45 54 20 4e 58 54 20 44 54  UFPT./GET NXT DT
7c10: 41 20 4e 55 4d 42 45 52 20 50 41 53 53 45 44 0d  A NUMBER PASSED.
7c20: 0a 09 43 49 41 09 09 2f 4e 45 47 41 54 45 20 49  ..CIA../NEGATE I
7c30: 54 0d 0a 09 54 41 44 09 44 4e 55 4d 09 2f 41 44  T...TAD.DNUM./AD
7c40: 44 20 49 4e 20 44 54 41 20 4e 55 4d 42 45 52 20  D IN DTA NUMBER 
7c50: 50 41 53 53 45 44 0d 0a 09 53 4e 41 20 43 4c 41  PASSED...SNA CLA
7c60: 09 2f 41 52 45 20 54 48 45 59 20 54 48 45 20 53  ./ARE THEY THE S
7c70: 41 4d 45 0d 0a 09 4a 4d 50 20 49 09 52 45 50 45  AME...JMP I.REPE
7c80: 41 54 09 2f 59 45 53 3a 20 52 45 54 55 52 4e 0d  AT./YES: RETURN.
7c90: 0a 09 49 53 5a 09 44 42 55 46 50 54 09 2f 4e 4f  ..ISZ.DBUFPT./NO
7ca0: 3a 20 49 4e 43 52 45 4d 45 4e 54 20 4c 49 53 54  : INCREMENT LIST
7cb0: 20 50 4f 49 4e 54 45 52 0d 0a 09 4a 4d 50 09 43   POINTER...JMP.C
7cc0: 4f 4d 43 48 4b 09 2f 53 45 45 20 49 46 20 44 4f  OMCHK./SEE IF DO
7cd0: 4e 45 20 41 4c 4c 20 43 4f 4d 50 41 52 45 53 0d  NE ALL COMPARES.
7ce0: 0a 2f 0d 0a 2f 0d 0a 0d 0a 0c 0d 0a 2a 32 36 30  ./../.......*260
7cf0: 30 0d 0a 0d 0a 52 44 46 41 2c 09 43 4c 41 09 43  0....RDFA,.CLA.C
7d00: 4c 4c 0d 0a 09 54 41 44 09 44 54 33 30 30 30 09  LL...TAD.DT3000.
7d10: 2f 52 45 56 45 52 53 45 20 52 45 41 44 20 47 4f  /REVERSE READ GO
7d20: 0d 0a 09 54 41 44 09 44 54 41 09 2f 47 45 54 20  ...TAD.DTA./GET 
7d30: 55 4e 49 54 0d 0a 09 53 44 4c 43 09 09 2f 4c 4f  UNIT...SDLC../LO
7d40: 41 44 20 54 48 45 20 43 4f 4d 4d 41 4e 44 20 52  AD THE COMMAND R
7d50: 45 47 49 53 54 45 52 0d 0a 09 53 44 53 53 09 09  EGISTER...SDSS..
7d60: 2f 53 4b 49 50 20 4f 4e 20 41 20 53 49 4e 47 4c  /SKIP ON A SINGL
7d70: 45 20 4c 49 4e 45 20 46 4c 41 47 0d 0a 09 4a 4d  E LINE FLAG...JM
7d80: 50 09 2e 2d 31 0d 0a 09 53 44 52 43 09 09 2f 52  P..-1...SDRC../R
7d90: 45 41 44 20 54 48 45 20 43 4f 4d 4d 41 4e 44 20  EAD THE COMMAND 
7da0: 52 45 47 49 53 54 45 52 0d 0a 09 41 4e 44 09 4d  REGISTER...AND.M
7db0: 53 4b 37 37 0d 0a 09 54 41 44 09 4d 32 32 09 2f  SK77...TAD.M22./
7dc0: 49 53 20 49 54 20 45 4e 44 20 5a 4f 4e 45 0d 0a  IS IT END ZONE..
7dd0: 09 53 5a 41 09 43 4c 41 09 2f 59 45 53 0d 0a 09  .SZA.CLA./YES...
7de0: 4a 4d 50 09 2e 2d 36 09 2f 4e 4f 20 47 4f 20 42  JMP..-6./NO GO B
7df0: 41 43 4b 20 41 4e 44 20 4c 4f 4f 4b 20 41 47 41  ACK AND LOOK AGA
7e00: 49 4e 0d 0a 09 54 41 44 09 44 54 31 30 30 30 09  IN...TAD.DT1000.
7e10: 2f 46 4f 52 57 41 52 44 20 52 45 41 44 20 47 4f  /FORWARD READ GO
7e20: 0d 0a 09 54 41 44 09 44 54 41 09 2f 55 4e 49 54  ...TAD.DTA./UNIT
7e30: 0d 0a 09 53 44 4c 43 09 09 2f 4c 4f 41 44 20 54  ...SDLC../LOAD T
7e40: 48 45 20 43 4f 4d 4d 41 4e 44 20 52 45 47 49 53  HE COMMAND REGIS
7e50: 54 45 52 0d 0a 09 54 41 44 09 4d 36 0d 0a 09 44  TER...TAD.M6...D
7e60: 43 41 09 43 4e 54 0d 0a 09 53 44 53 53 0d 0a 09  CA.CNT...SDSS...
7e70: 4a 4d 50 09 2e 2d 31 0d 0a 09 53 44 52 43 0d 0a  JMP..-1...SDRC..
7e80: 09 43 4c 41 0d 0a 09 49 53 5a 09 43 4e 54 0d 0a  .CLA...ISZ.CNT..
7e90: 09 4a 4d 50 09 2e 2d 35 0d 0a 52 44 46 41 31 2c  .JMP..-5..RDFA1,
7ea0: 09 54 41 44 09 4d 32 36 0d 0a 09 44 43 41 09 57  .TAD.M26...DCA.W
7eb0: 33 09 2f 53 45 54 20 55 50 20 43 4f 55 4e 54 45  3./SET UP COUNTE
7ec0: 52 20 54 4f 20 52 45 41 44 20 32 32 20 42 4c 4f  R TO READ 22 BLO
7ed0: 43 4b 53 0d 0a 09 54 41 44 09 42 41 44 44 09 2f  CKS...TAD.BADD./
7ee0: 53 45 54 20 55 50 20 42 55 46 46 45 52 20 41 44  SET UP BUFFER AD
7ef0: 44 52 45 53 53 0d 0a 09 44 43 41 09 58 32 0d 0a  DRESS...DCA.X2..
7f00: 09 53 44 53 53 09 09 2f 47 4f 20 53 49 4e 47 4c  .SDSS../GO SINGL
7f10: 45 20 4c 49 4e 45 20 46 4c 41 47 53 0d 0a 09 4a  E LINE FLAGS...J
7f20: 4d 50 09 2e 2d 31 0d 0a 09 53 44 52 44 09 09 2f  MP..-1...SDRD../
7f30: 52 45 41 44 20 54 48 45 20 44 41 54 41 20 42 55  READ THE DATA BU
7f40: 46 46 45 52 0d 0a 09 44 43 41 09 43 4e 54 0d 0a  FFER...DCA.CNT..
7f50: 09 53 44 52 43 09 09 2f 52 45 41 44 20 54 48 45  .SDRC../READ THE
7f60: 20 43 4f 4d 4d 41 4e 44 20 52 45 47 49 53 54 45   COMMAND REGISTE
7f70: 52 0d 0a 09 41 4e 44 09 4d 53 4b 37 37 0d 0a 09  R...AND.MSK77...
7f80: 54 41 44 09 4d 32 36 09 2f 53 45 41 52 43 48 20  TAD.M26./SEARCH 
7f90: 46 4f 52 20 42 4c 4f 43 4b 20 4e 55 4d 42 45 52  FOR BLOCK NUMBER
7fa0: 0d 0a 09 53 5a 41 09 43 4c 41 0d 0a 09 4a 4d 50  ...SZA.CLA...JMP
7fb0: 09 52 44 46 41 31 2b 34 09 2f 4e 4f 54 20 42 4c  .RDFA1+4./NOT BL
7fc0: 4f 43 4b 20 4e 55 4d 42 45 52 20 59 45 54 20 47  OCK NUMBER YET G
7fd0: 4f 20 42 41 43 4b 20 41 47 41 49 4e 0d 0a 09 54  O BACK AGAIN...T
7fe0: 41 44 09 43 4e 54 09 2f 4f 4b 20 42 4c 4b 20 4e  AD.CNT./OK BLK N
7ff0: 55 4d 42 45 52 20 53 54 4f 52 45 20 49 54 20 41  UMBER STORE IT A
8000: 57 41 59 0d 0a 09 44 43 41 20 20 49 20 20 58 32  WAY...DCA  I  X2
8010: 0d 0a 09 49 53 5a 09 57 33 09 2f 49 4e 43 52 45  ...ISZ.W3./INCRE
8020: 4d 45 4e 54 20 43 4f 55 4e 54 45 52 0d 0a 09 4a  MENT COUNTER...J
8030: 4d 50 09 52 44 46 41 31 2b 34 09 2f 4e 4f 54 20  MP.RDFA1+4./NOT 
8040: 32 32 20 42 4c 4f 43 4b 53 20 59 45 54 0d 0a 09  22 BLOCKS YET...
8050: 54 41 44 09 44 54 41 0d 0a 09 53 44 4c 43 09 09  TAD.DTA...SDLC..
8060: 2f 53 54 4f 50 20 54 48 45 20 44 54 41 0d 0a 0d  /STOP THE DTA...
8070: 0a 2f 54 59 50 45 20 4f 55 54 20 42 4c 4f 43 4b  ./TYPE OUT BLOCK
8080: 20 4e 55 4d 42 45 52 53 20 41 4e 44 20 44 54 41   NUMBERS AND DTA
8090: 20 55 4e 49 54 23 0d 0a 0d 0a 09 4a 4d 53 20 20   UNIT#.....JMS  
80a0: 49 20 20 54 59 50 45 0d 0a 09 30 34 32 34 09 09  I  TYPE...0424..
80b0: 2f 44 54 0d 0a 09 30 31 34 30 09 09 2f 41 0d 0a  /DT...0140../A..
80c0: 09 30 30 30 30 09 09 2f 45 4e 44 0d 0a 09 54 41  .0000../END...TA
80d0: 44 09 44 54 41 09 2f 47 45 54 20 55 4e 49 54 20  D.DTA./GET UNIT 
80e0: 4e 55 4d 42 45 52 0d 0a 09 52 54 4c 0d 0a 09 4a  NUMBER...RTL...J
80f0: 4d 53 20 20 49 20 20 54 59 4f 43 54 09 2f 41 4e  MS  I  TYOCT./AN
8100: 44 20 54 59 50 45 20 49 54 20 4f 55 54 0d 0a 09  D TYPE IT OUT...
8110: 4a 4d 53 20 20 49 20 20 54 59 50 45 0d 0a 09 34  JMS  I  TYPE...4
8120: 33 34 35 09 09 2f 43 52 26 4c 46 0d 0a 09 30 30  345../CR&LF...00
8130: 30 30 09 09 2f 45 4e 44 0d 0a 09 54 41 44 09 4d  00../END...TAD.M
8140: 32 36 09 2f 57 49 4c 4c 20 54 59 50 45 20 41 4c  26./WILL TYPE AL
8150: 4c 0d 0a 09 44 43 41 09 57 31 09 2f 32 32 20 57  L...DCA.W1./22 W
8160: 4f 52 44 53 0d 0a 09 54 41 44 09 42 41 44 44 09  ORDS...TAD.BADD.
8170: 2f 41 44 44 52 45 53 53 20 4f 46 20 42 4c 4f 43  /ADDRESS OF BLOC
8180: 4b 0d 0a 09 44 43 41 09 58 32 09 2f 4e 55 4d 42  K...DCA.X2./NUMB
8190: 45 52 53 20 54 4f 20 49 4e 44 45 58 0d 0a 09 54  ERS TO INDEX...T
81a0: 41 44 20 20 49 20 20 58 32 09 2f 46 49 52 53 54  AD  I  X2./FIRST
81b0: 20 4f 52 20 4e 45 58 54 20 42 4c 4f 43 4b 0d 0a   OR NEXT BLOCK..
81c0: 09 4a 4d 53 20 20 49 20 20 54 59 4f 43 54 09 2f  .JMS  I  TYOCT./
81d0: 54 59 50 45 20 49 54 20 4f 55 54 0d 0a 09 4a 4d  TYPE IT OUT...JM
81e0: 53 20 20 49 20 20 54 59 50 45 09 2f 43 52 26 4c  S  I  TYPE./CR&L
81f0: 46 0d 0a 09 34 33 34 35 09 09 2f 43 52 26 4c 46  F...4345../CR&LF
8200: 0d 0a 09 30 30 30 30 09 09 2f 45 4e 44 0d 0a 09  ...0000../END...
8210: 49 53 5a 09 57 31 09 2f 43 4f 4d 50 4c 45 54 45  ISZ.W1./COMPLETE
8220: 0d 0a 09 4a 4d 50 09 2e 2d 36 0d 0a 09 4a 4d 50  ...JMP..-6...JMP
8230: 20 20 49 20 20 49 54 09 2f 47 4f 20 41 53 4b 20    I  IT./GO ASK 
8240: 46 4f 52 20 46 4f 52 4d 41 54 0d 0a 0d 0a 52 44  FOR FORMAT....RD
8250: 52 2c 09 43 4c 41 20 09 43 4c 4c 0d 0a 09 54 41  R,.CLA .CLL...TA
8260: 44 09 44 54 31 30 30 30 09 2f 46 4f 52 57 41 52  D.DT1000./FORWAR
8270: 44 20 52 45 41 44 20 47 4f 0d 0a 09 54 41 44 09  D READ GO...TAD.
8280: 44 54 41 09 2f 55 4e 49 54 0d 0a 09 53 44 4c 43  DTA./UNIT...SDLC
8290: 09 09 2f 4c 4f 41 44 20 54 48 45 20 43 4f 4d 4d  ../LOAD THE COMM
82a0: 41 4e 44 20 52 45 47 49 53 54 45 52 0d 0a 09 53  AND REGISTER...S
82b0: 44 53 53 09 09 2f 53 4b 49 50 20 4f 4e 20 41 20  DSS../SKIP ON A 
82c0: 53 49 4e 47 4c 45 20 4c 49 4e 45 20 46 4c 41 47  SINGLE LINE FLAG
82d0: 0d 0a 09 4a 4d 50 09 2e 2d 31 0d 0a 09 53 44 52  ...JMP..-1...SDR
82e0: 43 09 09 2f 52 45 41 44 20 54 48 45 20 43 4f 4d  C../READ THE COM
82f0: 4d 41 4e 44 20 52 45 47 49 53 54 45 52 0d 0a 09  MAND REGISTER...
8300: 41 4e 44 09 4d 53 4b 37 37 0d 0a 09 54 41 44 09  AND.MSK77...TAD.
8310: 4d 32 32 09 2f 43 48 45 43 4b 20 46 4f 52 20 45  M22./CHECK FOR E
8320: 4e 44 20 5a 4f 4e 45 0d 0a 09 53 5a 41 09 43 4c  ND ZONE...SZA.CL
8330: 41 0d 0a 09 4a 4d 50 09 2e 2d 36 09 2f 4e 4f 54  A...JMP..-6./NOT
8340: 20 59 45 54 20 47 4f 20 42 41 43 4b 0d 0a 09 54   YET GO BACK...T
8350: 41 44 09 44 54 33 30 30 30 09 2f 52 45 56 45 52  AD.DT3000./REVER
8360: 53 45 20 52 45 41 44 20 47 4f 0d 0a 09 54 41 44  SE READ GO...TAD
8370: 09 44 54 41 09 2f 55 4e 49 54 0d 0a 09 53 44 4c  .DTA./UNIT...SDL
8380: 43 09 09 2f 4c 4f 41 44 20 54 48 45 20 43 4f 4d  C../LOAD THE COM
8390: 4d 41 4e 44 20 52 45 47 49 53 54 45 52 0d 0a 09  MAND REGISTER...
83a0: 54 41 44 09 4d 36 0d 0a 09 44 43 41 09 43 4e 54  TAD.M6...DCA.CNT
83b0: 0d 0a 09 53 44 53 53 0d 0a 09 4a 4d 50 09 2e 2d  ...SDSS...JMP..-
83c0: 31 0d 0a 09 53 44 52 43 0d 0a 09 43 4c 41 0d 0a  1...SDRC...CLA..
83d0: 09 49 53 5a 09 43 4e 54 0d 0a 09 4a 4d 50 09 2e  .ISZ.CNT...JMP..
83e0: 2d 35 0d 0a 09 4a 4d 50 09 52 44 46 41 31 09 2f  -5...JMP.RDFA1./
83f0: 53 54 4f 52 45 20 4e 55 4d 42 45 52 53 20 49 4e  STORE NUMBERS IN
8400: 20 52 45 56 45 52 53 45 0d 0a 0d 0a 52 45 54 52   REVERSE....RETR
8410: 59 2c 09 4a 4d 53 20 20 49 20 20 54 59 50 49 4e  Y,.JMS  I  TYPIN
8420: 0d 0a 09 4a 4d 53 20 20 49 20 20 43 4f 4d 50 41  ...JMS  I  COMPA
8430: 52 0d 0a 09 30 33 32 32 09 09 2f 52 0d 0a 09 30  R...0322../R...0
8440: 33 30 35 09 09 2f 45 0d 0a 09 30 33 32 34 09 09  305../E...0324..
8450: 2f 54 0d 0a 09 30 33 32 32 09 09 2f 52 0d 0a 09  /T...0322../R...
8460: 30 33 33 31 09 09 2f 59 0d 0a 09 30 30 30 30 09  0331../Y...0000.
8470: 09 2f 45 4e 44 0d 0a 09 4a 4d 50 20 20 49 20 20  ./END...JMP  I  
8480: 49 54 09 2f 47 55 45 53 53 20 48 45 20 44 4f 45  IT./GUESS HE DOE
8490: 53 4e 27 54 20 57 41 4e 54 20 54 4f 20 54 52 59  SN'T WANT TO TRY
84a0: 20 41 47 41 49 4e 0d 0a 09 43 4c 41 0d 0a 09 54   AGAIN...CLA...T
84b0: 41 44 09 44 54 31 30 30 30 09 2f 46 4f 52 57 41  AD.DT1000./FORWA
84c0: 52 44 20 52 45 41 44 20 47 4f 0d 0a 09 54 41 44  RD READ GO...TAD
84d0: 09 44 54 41 09 2f 55 4e 49 54 0d 0a 09 53 44 4c  .DTA./UNIT...SDL
84e0: 43 09 09 2f 4c 4f 41 44 20 54 48 45 20 43 4f 4d  C../LOAD THE COM
84f0: 4d 41 4e 44 20 52 45 47 49 53 54 45 52 0d 0a 09  MAND REGISTER...
8500: 54 41 44 09 4d 36 0d 0a 09 44 43 41 09 43 4e 54  TAD.M6...DCA.CNT
8510: 09 2f 57 41 49 54 20 36 20 4c 49 4e 45 53 0d 0a  ./WAIT 6 LINES..
8520: 09 53 44 53 53 0d 0a 09 4a 4d 50 09 2e 2d 31 0d  .SDSS...JMP..-1.
8530: 0a 09 53 44 52 43 09 09 2f 52 45 41 44 20 54 48  ..SDRC../READ TH
8540: 45 20 43 4f 4d 4d 41 4e 44 20 52 45 47 49 53 54  E COMMAND REGIST
8550: 45 52 0d 0a 09 49 53 5a 09 43 4e 54 0d 0a 09 4a  ER...ISZ.CNT...J
8560: 4d 50 09 2e 2d 34 0d 0a 09 53 44 53 53 0d 0a 09  MP..-4...SDSS...
8570: 4a 4d 50 09 2e 2d 31 0d 0a 09 53 44 52 43 0d 0a  JMP..-1...SDRC..
8580: 09 41 4e 44 09 4d 53 4b 37 37 0d 0a 09 54 41 44  .AND.MSK77...TAD
8590: 09 4d 32 32 0d 0a 09 53 5a 41 09 43 4c 41 0d 0a  .M22...SZA.CLA..
85a0: 09 4a 4d 50 09 2e 2d 36 0d 0a 09 54 41 44 09 44  .JMP..-6...TAD.D
85b0: 54 33 30 30 30 0d 0a 09 54 41 44 09 44 54 41 0d  T3000...TAD.DTA.
85c0: 0a 09 53 44 4c 43 0d 0a 09 43 4c 41 09 49 41 43  ..SDLC...CLA.IAC
85d0: 0d 0a 09 44 43 41 09 50 48 41 53 45 0d 0a 09 4a  ...DCA.PHASE...J
85e0: 4d 50 20 20 49 20 20 2e 2b 31 0d 0a 09 50 53 45  MP  I  .+1...PSE
85f0: 52 2b 31 31 0d 0a 0d 0a 0d 0a 0c 0d 0a 2a 33 30  R+11.........*30
8600: 30 30 0d 0a 0d 0a 0d 0a 53 44 53 51 54 2c 09 30  00......SDSQT,.0
8610: 0d 0a 09 53 44 53 51 09 09 2f 41 44 56 41 4e 43  ...SDSQ../ADVANC
8620: 45 20 53 49 58 20 4c 49 4e 45 53 0d 0a 09 4a 4d  E SIX LINES...JM
8630: 50 09 2e 2d 31 09 2f 53 4b 49 50 20 4f 4e 20 51  P..-1./SKIP ON Q
8640: 55 41 44 20 4c 49 4e 45 20 46 4c 41 47 0d 0a 09  UAD LINE FLAG...
8650: 53 44 52 43 09 09 2f 52 45 41 44 20 43 4f 4d 4d  SDRC../READ COMM
8660: 41 4e 44 20 52 45 47 49 53 54 45 52 0d 0a 09 53  AND REGISTER...S
8670: 44 53 54 0d 0a 09 53 4b 50 0d 0a 09 4a 4d 53 20  DST...SKP...JMS 
8680: 20 49 20 20 53 45 4c 54 49 4d 09 09 2f 54 49 4d   I  SELTIM../TIM
8690: 49 4e 47 20 45 52 52 4f 52 0d 0a 09 53 44 53 53  ING ERROR...SDSS
86a0: 0d 0a 09 4a 4d 50 09 2e 2d 31 09 2f 53 4b 49 50  ...JMP..-1./SKIP
86b0: 20 4f 4e 20 53 49 4e 47 4c 45 20 4c 49 4e 45 20   ON SINGLE LINE 
86c0: 46 4c 41 47 0d 0a 09 53 44 52 43 0d 0a 09 53 44  FLAG...SDRC...SD
86d0: 53 54 0d 0a 09 53 4b 50 0d 0a 09 4a 4d 53 20 20  ST...SKP...JMS  
86e0: 49 20 20 53 45 4c 54 49 4d 09 09 2f 54 49 4d 49  I  SELTIM../TIMI
86f0: 4e 47 20 45 52 52 4f 52 0d 0a 09 53 44 53 53 0d  NG ERROR...SDSS.
8700: 0a 09 4a 4d 50 09 2e 2d 31 0d 0a 09 53 44 52 43  ..JMP..-1...SDRC
8710: 09 09 2f 52 45 41 44 20 54 48 45 20 43 4f 4d 4d  ../READ THE COMM
8720: 41 4e 44 20 52 45 47 49 53 54 45 52 0d 0a 09 53  AND REGISTER...S
8730: 44 53 54 0d 0a 09 53 4b 50 0d 0a 09 4a 4d 53 20  DST...SKP...JMS 
8740: 20 49 20 20 53 45 4c 54 49 4d 09 09 2f 54 49 4d   I  SELTIM../TIM
8750: 49 4e 47 20 45 52 52 4f 52 0d 0a 09 41 4e 44 09  ING ERROR...AND.
8760: 4d 53 4b 37 37 09 2f 53 41 56 45 20 54 48 45 20  MSK77./SAVE THE 
8770: 4d 41 52 4b 20 54 52 41 43 4b 20 4c 41 53 54 20  MARK TRACK LAST 
8780: 36 20 42 49 54 53 0d 0a 09 44 43 41 09 4d 54 52  6 BITS...DCA.MTR
8790: 0d 0a 09 54 41 44 09 4d 54 52 0d 0a 09 4a 4d 50  ...TAD.MTR...JMP
87a0: 20 20 49 20 20 53 44 53 51 54 0d 0a 0d 0a 41 33    I  SDSQT....A3
87b0: 4c 4e 53 2c 09 30 09 09 2f 41 44 56 41 4e 43 45  LNS,.0../ADVANCE
87c0: 20 54 48 52 45 45 20 4c 49 4e 45 53 0d 0a 09 53   THREE LINES...S
87d0: 44 53 53 0d 0a 09 4a 4d 50 09 2e 2d 31 09 2f 53  DSS...JMP..-1./S
87e0: 4b 49 50 20 4f 4e 20 53 49 4e 47 4c 45 20 4c 49  KIP ON SINGLE LI
87f0: 4e 45 20 46 4c 41 47 0d 0a 09 53 44 52 43 0d 0a  NE FLAG...SDRC..
8800: 09 53 44 53 54 0d 0a 09 53 4b 50 0d 0a 09 4a 4d  .SDST...SKP...JM
8810: 53 20 20 49 20 20 53 45 4c 54 49 4d 09 09 2f 54  S  I  SELTIM../T
8820: 49 4d 49 4e 47 20 45 52 52 4f 52 0d 0a 09 53 44  IMING ERROR...SD
8830: 53 53 0d 0a 09 4a 4d 50 09 2e 2d 31 0d 0a 09 53  SS...JMP..-1...S
8840: 44 52 43 0d 0a 09 53 44 53 54 0d 0a 09 53 4b 50  DRC...SDST...SKP
8850: 0d 0a 09 4a 4d 53 20 20 49 20 20 53 45 4c 54 49  ...JMS  I  SELTI
8860: 4d 09 09 2f 54 49 4d 49 4e 47 20 45 52 52 4f 52  M../TIMING ERROR
8870: 0d 0a 09 53 44 53 53 0d 0a 09 4a 4d 50 09 2e 2d  ...SDSS...JMP..-
8880: 31 0d 0a 09 53 44 52 43 0d 0a 09 53 44 53 54 0d  1...SDRC...SDST.
8890: 0a 09 53 4b 50 0d 0a 09 4a 4d 53 20 20 49 20 20  ..SKP...JMS  I  
88a0: 53 45 4c 54 49 4d 09 09 2f 54 49 4d 49 4e 47 20  SELTIM../TIMING 
88b0: 45 52 52 4f 52 0d 0a 09 41 4e 44 09 4d 53 4b 37  ERROR...AND.MSK7
88c0: 37 0d 0a 09 44 43 41 09 4d 54 52 0d 0a 09 54 41  7...DCA.MTR...TA
88d0: 44 09 4d 54 52 0d 0a 09 4a 4d 50 20 20 49 20 20  D.MTR...JMP  I  
88e0: 41 33 4c 4e 53 0d 0a 0d 0a 43 45 58 50 43 2c 09  A3LNS....CEXPC,.
88f0: 30 0d 0a 09 54 41 44 09 4d 54 52 0d 0a 09 54 41  0...TAD.MTR...TA
8900: 44 09 4d 35 32 0d 0a 09 53 5a 41 09 43 4c 41 0d  D.M52...SZA.CLA.
8910: 0a 09 4a 4d 53 20 20 49 20 20 4d 41 52 4b 45 52  ..JMS  I  MARKER
8920: 09 2f 4d 41 52 4b 20 54 52 41 43 4b 20 45 52 52  ./MARK TRACK ERR
8930: 4f 52 0d 0a 09 4a 4d 53 09 41 33 4c 4e 53 09 2f  OR...JMS.A3LNS./
8940: 52 45 41 44 20 54 48 52 45 45 20 4d 4f 52 45 20  READ THREE MORE 
8950: 4c 49 4e 45 53 0d 0a 09 54 41 44 09 4d 32 35 09  LINES...TAD.M25.
8960: 2f 49 53 20 49 54 20 32 35 20 4e 4f 57 0d 0a 09  /IS IT 25 NOW...
8970: 53 5a 41 09 43 4c 41 0d 0a 09 4a 4d 53 20 20 49  SZA.CLA...JMS  I
8980: 20 20 4d 41 52 4b 45 52 09 2f 4e 4f 20 2c 4d 41    MARKER./NO ,MA
8990: 52 4b 20 54 52 41 43 4b 20 45 52 52 4f 52 0d 0a  RK TRACK ERROR..
89a0: 09 4a 4d 50 20 20 49 20 20 43 45 58 50 43 09 2f  .JMP  I  CEXPC./
89b0: 59 45 53 3a 49 54 20 49 53 20 45 58 50 41 4e 44  YES:IT IS EXPAND
89c0: 20 43 4f 44 45 20 4e 55 4d 42 45 52 20 31 0d 0a   CODE NUMBER 1..
89d0: 0d 0a 09 2f 53 49 58 42 49 54 20 43 4f 4d 50 4c  .../SIXBIT COMPL
89e0: 45 4d 45 4e 54 20 58 4f 52 20 53 55 42 52 4f 55  EMENT XOR SUBROU
89f0: 54 49 4e 45 0d 0a 09 2f 53 55 42 52 4f 55 54 49  TINE.../SUBROUTI
8a00: 4e 45 20 49 53 20 45 4e 54 45 52 45 44 20 57 49  NE IS ENTERED WI
8a10: 54 48 20 44 41 54 41 20 57 4f 52 44 20 54 4f 20  TH DATA WORD TO 
8a20: 42 45 20 58 4f 52 45 44 20 49 4e 20 41 43 0d 0a  BE XORED IN AC..
8a30: 09 2f 54 57 4f 20 53 49 58 2d 42 49 54 20 43 4f  ./TWO SIX-BIT CO
8a40: 4d 50 4c 45 4d 45 4e 54 20 58 4f 52 53 20 57 49  MPLEMENT XORS WI
8a50: 4c 4c 20 54 41 4b 45 20 50 4c 41 43 45 20 54 4f  LL TAKE PLACE TO
8a60: 20 4c 4f 43 20 43 48 4b 53 55 4d 0d 0a 09 2f 57   LOC CHKSUM.../W
8a70: 49 54 48 20 54 48 45 20 52 45 53 55 4c 54 20 49  ITH THE RESULT I
8a80: 4e 20 43 48 4b 53 55 4d 0d 0a 0d 0a 53 42 43 58  N CHKSUM....SBCX
8a90: 4f 52 2c 09 30 0d 0a 09 43 4d 41 09 09 2f 43 4f  OR,.0...CMA../CO
8aa0: 4d 50 4c 45 4d 45 4e 54 20 57 4f 52 44 0d 0a 09  MPLEMENT WORD...
8ab0: 44 43 41 09 53 42 57 4f 52 44 09 2f 41 4e 44 20  DCA.SBWORD./AND 
8ac0: 53 41 56 0d 0a 09 54 41 44 09 53 42 57 4f 52 44  SAV...TAD.SBWORD
8ad0: 0d 0a 09 41 4e 44 09 43 48 4b 53 55 4d 0d 0a 09  ...AND.CHKSUM...
8ae0: 43 49 41 0d 0a 09 43 4c 4c 09 52 41 4c 0d 0a 09  CIA...CLL.RAL...
8af0: 54 41 44 09 53 42 57 4f 52 44 0d 0a 09 54 41 44  TAD.SBWORD...TAD
8b00: 09 43 48 4b 53 55 4d 0d 0a 09 44 43 41 09 43 48  .CHKSUM...DCA.CH
8b10: 4b 53 55 4d 0d 0a 09 54 41 44 09 53 42 57 4f 52  KSUM...TAD.SBWOR
8b20: 44 0d 0a 09 52 54 52 20 43 4c 4c 3b 52 54 52 3b  D...RTR CLL;RTR;
8b30: 52 54 52 0d 0a 09 44 43 41 09 53 42 57 4f 52 44  RTR...DCA.SBWORD
8b40: 0d 0a 09 54 41 44 09 53 42 57 4f 52 44 0d 0a 09  ...TAD.SBWORD...
8b50: 41 4e 44 09 43 48 4b 53 55 4d 0d 0a 09 43 49 41  AND.CHKSUM...CIA
8b60: 0d 0a 09 43 4c 4c 09 52 41 4c 0d 0a 09 54 41 44  ...CLL.RAL...TAD
8b70: 09 53 42 57 4f 52 44 0d 0a 09 54 41 44 09 43 48  .SBWORD...TAD.CH
8b80: 4b 53 55 4d 0d 0a 09 41 4e 44 09 4d 53 4b 37 37  KSUM...AND.MSK77
8b90: 0d 0a 09 44 43 41 09 43 48 4b 53 55 4d 0d 0a 09  ...DCA.CHKSUM...
8ba0: 4a 4d 50 20 20 49 20 20 53 42 43 58 4f 52 0d 0a  JMP  I  SBCXOR..
8bb0: 0d 0a 53 52 44 52 43 2c 09 30 0d 0a 09 53 44 53  ..SRDRC,.0...SDS
8bc0: 51 0d 0a 09 53 4b 50 0d 0a 09 4a 4d 50 09 2e 2b  Q...SKP...JMP..+
8bd0: 33 0d 0a 09 53 44 53 53 0d 0a 09 4a 4d 50 09 2e  3...SDSS...JMP..
8be0: 2d 31 0d 0a 09 53 44 52 44 0d 0a 09 44 43 41 09  -1...SDRD...DCA.
8bf0: 44 41 54 52 44 0d 0a 09 53 44 52 43 0d 0a 09 41  DATRD...SDRC...A
8c00: 4e 44 09 4d 53 4b 37 37 0d 0a 09 4a 4d 50 20 20  ND.MSK77...JMP  
8c10: 49 20 20 53 52 44 52 43 0d 0a 0d 0a 4e 55 44 54  I  SRDRC....NUDT
8c20: 41 2c 09 30 0d 0a 09 54 41 44 20 20 49 20 20 4c  A,.0...TAD  I  L
8c30: 53 54 50 54 09 2f 47 45 54 20 43 55 52 52 45 4e  STPT./GET CURREN
8c40: 54 20 56 41 4c 55 45 20 4f 46 20 44 41 54 41 20  T VALUE OF DATA 
8c50: 4c 49 53 54 20 50 54 52 0d 0a 09 44 43 41 09 54  LIST PTR...DCA.T
8c60: 42 55 46 50 54 09 2f 53 54 4f 52 45 20 49 54 20  BUFPT./STORE IT 
8c70: 41 53 20 54 45 4d 2c 42 55 46 2c 50 54 52 0d 0a  AS TEM,BUF,PTR..
8c80: 09 54 41 44 20 20 49 20 20 54 42 55 46 50 54 09  .TAD  I  TBUFPT.
8c90: 2f 47 45 54 20 41 20 44 54 41 20 23 20 46 52 4f  /GET A DTA # FRO
8ca0: 4d 20 54 48 45 20 4c 49 53 54 0d 0a 09 41 4e 44  M THE LIST...AND
8cb0: 09 43 30 30 30 37 0d 0a 09 53 5a 41 09 43 4c 41  .C0007...SZA.CLA
8cc0: 09 2f 49 53 20 49 54 20 41 20 37 37 37 37 0d 0a  ./IS IT A 7777..
8cd0: 09 4a 4d 50 09 4c 53 54 45 4e 44 09 2f 59 45 53  .JMP.LSTEND./YES
8ce0: 20 45 4e 44 20 4f 46 20 4c 49 53 54 0d 0a 09 54   END OF LIST...T
8cf0: 41 44 20 20 49 20 20 54 42 55 46 50 54 09 2f 4e  AD  I  TBUFPT./N
8d00: 4f 3b 47 45 54 20 49 54 20 42 41 43 4b 0d 0a 09  O;GET IT BACK...
8d10: 44 43 41 09 44 54 41 0d 0a 09 49 53 5a 20 20 49  DCA.DTA...ISZ  I
8d20: 20 20 4c 53 54 50 54 09 2f 49 4e 43 52 45 4d 45    LSTPT./INCREME
8d30: 4e 54 20 4c 49 53 54 20 50 4f 49 4e 54 45 52 0d  NT LIST POINTER.
8d40: 0a 09 4a 4d 50 20 20 49 20 20 4e 55 44 54 41 09  ..JMP  I  NUDTA.
8d50: 2f 52 45 54 55 52 4e 0d 0a 2f 43 4f 4d 45 20 48  /RETURN../COME H
8d60: 45 52 45 20 41 54 20 45 4e 44 20 4f 46 20 4c 49  ERE AT END OF LI
8d70: 53 54 20 54 4f 20 52 45 53 45 54 20 50 4f 49 4e  ST TO RESET POIN
8d80: 54 45 52 53 20 41 4e 44 20 52 45 54 55 52 4e 20  TERS AND RETURN 
8d90: 54 4f 20 43 41 4c 4c 2b 32 0d 0a 4c 53 54 45 4e  TO CALL+2..LSTEN
8da0: 44 2c 09 49 53 5a 09 4e 55 44 54 41 09 2f 49 4e  D,.ISZ.NUDTA./IN
8db0: 43 52 45 4d 45 4e 54 20 52 45 54 55 52 4e 20 50  CREMENT RETURN P
8dc0: 4f 49 4e 54 45 52 0d 0a 09 54 41 44 20 20 49 20  OINTER...TAD  I 
8dd0: 20 53 54 52 54 50 54 09 2f 47 45 54 20 41 44 52   STRTPT./GET ADR
8de0: 20 4f 46 20 53 54 41 52 54 20 4f 46 20 4c 49 53   OF START OF LIS
8df0: 54 0d 0a 09 44 43 41 20 20 49 20 20 4c 53 54 50  T...DCA  I  LSTP
8e00: 54 0d 0a 09 4a 4d 50 09 4e 55 44 54 41 2b 31 09  T...JMP.NUDTA+1.
8e10: 2f 47 4f 20 47 45 54 20 46 49 52 53 54 20 44 54  /GO GET FIRST DT
8e20: 41 23 20 41 4e 44 20 52 45 54 55 52 4e 0d 0a 53  A# AND RETURN..S
8e30: 54 52 54 50 54 2c 09 44 42 55 46 41 44 09 2f 50  TRTPT,.DBUFAD./P
8e40: 4f 49 4e 54 45 52 20 54 4f 20 53 54 41 52 54 20  OINTER TO START 
8e50: 4f 46 20 44 41 54 41 20 4c 49 53 54 0d 0a 54 42  OF DATA LIST..TB
8e60: 55 46 50 54 2c 09 30 09 09 2f 54 45 4d 20 53 54  UFPT,.0../TEM ST
8e70: 4f 52 41 47 45 20 46 4f 52 20 42 4f 54 20 50 54  ORAGE FOR BOT PT
8e80: 52 0d 0a 4c 53 54 50 54 2c 09 44 42 55 46 50 54  R..LSTPT,.DBUFPT
8e90: 09 09 2f 50 4f 49 4e 54 45 52 20 54 4f 20 43 55  ../POINTER TO CU
8ea0: 52 52 45 4e 54 20 56 41 4c 55 45 20 4f 46 20 44  RRENT VALUE OF D
8eb0: 54 41 20 4c 49 53 54 20 50 54 52 0d 0a 0d 0a 2f  TA LIST PTR..../
8ec0: 43 4f 4e 53 54 41 4e 54 53 20 46 4f 52 20 46 4f  CONSTANTS FOR FO
8ed0: 52 4d 55 4c 41 20 54 52 41 4e 53 4c 41 54 49 4f  RMULA TRANSLATIO
8ee0: 4e 20 53 45 43 54 49 4f 4e 0d 0a 42 49 4e 43 4f  N SECTION..BINCO
8ef0: 4e 2c 09 2e 2b 31 0d 0a 09 30 30 30 31 0d 0a 09  N,..+1...0001...
8f00: 30 30 31 32 0d 0a 09 30 31 34 34 0d 0a 09 31 37  0012...0144...17
8f10: 35 30 0d 0a 44 54 41 42 55 46 2c 09 30 0d 0a 0d  50..DTABUF,.0...
8f20: 0a 0d 0a 0d 0a 0d 0a 0c 0d 0a 2a 33 32 30 30 0d  ..........*3200.
8f30: 0a 09 2f 43 48 45 43 4b 20 53 57 49 54 43 48 20  ../CHECK SWITCH 
8f40: 54 4f 20 53 45 45 20 49 46 20 53 45 54 20 54 4f  TO SEE IF SET TO
8f50: 20 57 54 4d 20 50 4f 53 49 54 49 4f 4e 0d 0a 53   WTM POSITION..S
8f60: 57 43 48 4b 2c 09 4a 4d 53 20 20 49 20 20 54 59  WCHK,.JMS  I  TY
8f70: 50 45 09 09 2f 54 59 50 45 20 4f 55 54 20 4d 45  PE../TYPE OUT ME
8f80: 53 53 41 47 45 0d 0a 09 32 33 30 35 09 09 09 2f  SSAGE...2305.../
8f90: 53 45 0d 0a 09 32 34 34 30 09 09 09 2f 54 0d 0a  SE...2440.../T..
8fa0: 09 32 33 32 37 09 09 09 2f 53 57 0d 0a 09 31 31  .2327.../SW...11
8fb0: 32 34 09 09 09 2f 49 54 0d 0a 09 30 33 31 30 09  24.../IT...0310.
8fc0: 09 09 2f 43 48 0d 0a 09 34 30 32 34 09 09 09 2f  ../CH...4024.../
8fd0: 54 0d 0a 09 31 37 34 30 09 09 09 2f 4f 0d 0a 09  T...1740.../O...
8fe0: 32 37 32 34 09 09 09 2f 57 54 0d 0a 09 31 35 30  2724.../WT...150
8ff0: 30 09 09 09 2f 4d 0d 0a 09 4a 4d 53 20 20 49 20  0.../M...JMS  I 
9000: 20 54 59 50 49 4e 09 09 2f 57 41 49 54 20 46 4f   TYPIN../WAIT FO
9010: 52 20 43 52 0d 0a 09 43 4c 41 0d 0a 09 44 43 41  R CR...CLA...DCA
9020: 09 43 4e 54 45 52 4c 0d 0a 09 53 44 4c 44 09 09  .CNTERL...SDLD..
9030: 09 2f 43 4c 45 41 52 20 53 49 4e 47 4c 45 20 41  ./CLEAR SINGLE A
9040: 4e 44 20 51 55 41 44 20 46 4c 41 47 53 0d 0a 09  ND QUAD FLAGS...
9050: 53 44 53 53 0d 0a 09 53 4b 50 0d 0a 09 4a 4d 50  SDSS...SKP...JMP
9060: 09 2e 2b 34 0d 0a 09 49 53 5a 09 43 4e 54 45 52  ..+4...ISZ.CNTER
9070: 4c 0d 0a 09 4a 4d 50 09 2e 2d 34 0d 0a 09 4a 4d  L...JMP..-4...JM
9080: 50 09 53 57 43 48 45 52 09 09 2f 45 52 52 4f 52  P.SWCHER../ERROR
9090: 2c 54 59 50 45 20 45 52 52 4f 52 20 4d 45 53 53  ,TYPE ERROR MESS
90a0: 41 47 45 20 41 4e 44 20 47 4f 20 54 4f 20 53 57  AGE AND GO TO SW
90b0: 43 48 4b 0d 0a 09 2f 53 45 45 20 49 46 20 54 48  CHK.../SEE IF TH
90c0: 45 20 44 52 49 56 45 20 49 53 20 4f 4b 0d 0a 52  E DRIVE IS OK..R
90d0: 53 54 53 4d 2c 09 53 44 4c 43 09 09 2f 4c 4f 41  STSM,.SDLC../LOA
90e0: 44 20 43 52 20 54 4f 20 43 4c 45 41 52 20 54 49  D CR TO CLEAR TI
90f0: 4d 45 49 4e 47 20 45 52 52 4f 52 0d 0a 09 53 44  MEING ERROR...SD
9100: 4c 44 09 09 09 2f 4c 4f 41 44 20 44 41 54 41 20  LD.../LOAD DATA 
9110: 42 55 46 46 45 52 20 54 4f 20 43 4c 45 41 52 20  BUFFER TO CLEAR 
9120: 53 20 51 20 46 4c 41 47 53 0d 0a 09 54 41 44 09  S Q FLAGS...TAD.
9130: 44 54 30 34 30 30 09 09 2f 53 45 54 20 57 52 49  DT0400../SET WRI
9140: 54 45 0d 0a 09 54 41 44 09 44 54 41 09 09 2f 47  TE...TAD.DTA../G
9150: 45 54 20 55 4e 49 54 0d 0a 09 44 43 41 09 53 41  ET UNIT...DCA.SA
9160: 56 09 09 2f 53 54 4f 52 45 20 49 54 20 41 57 41  V../STORE IT AWA
9170: 59 0d 0a 09 54 41 44 09 53 41 56 0d 0a 09 53 44  Y...TAD.SAV...SD
9180: 53 53 0d 0a 09 4a 4d 50 09 2e 2d 31 0d 0a 09 53  SS...JMP..-1...S
9190: 44 4c 43 0d 0a 09 54 41 44 09 53 41 56 0d 0a 09  DLC...TAD.SAV...
91a0: 53 44 4c 43 09 09 09 2f 4c 4f 41 44 20 54 48 45  SDLC.../LOAD THE
91b0: 20 54 52 41 4e 53 50 4f 52 54 0d 0a 09 53 44 52   TRANSPORT...SDR
91c0: 43 09 09 09 2f 52 45 41 44 20 54 48 45 20 43 4f  C.../READ THE CO
91d0: 4d 4d 41 4e 44 20 52 45 47 49 53 54 45 52 20 41  MMAND REGISTER A
91e0: 4e 44 20 43 48 45 43 4b 20 49 54 0d 0a 09 52 54  ND CHECK IT...RT
91f0: 4c 0d 0a 09 52 41 4c 0d 0a 09 53 4d 41 09 09 09  L...RAL...SMA...
9200: 2f 43 48 45 43 4b 20 57 52 49 54 45 20 54 4f 20  /CHECK WRITE TO 
9210: 42 45 20 53 45 54 0d 0a 09 4a 4d 50 09 45 52 43  BE SET...JMP.ERC
9220: 48 4b 09 09 2f 57 52 49 54 45 20 49 53 20 4e 4f  HK../WRITE IS NO
9230: 54 20 53 45 54 0d 0a 09 52 41 4c 09 09 09 2f 43  T SET...RAL.../C
9240: 48 45 43 4b 20 57 4c 4f 0d 0a 09 53 50 41 0d 0a  HECK WLO...SPA..
9250: 09 4a 4d 50 09 45 52 43 48 4b 09 09 2f 57 4c 4f  .JMP.ERCHK../WLO
9260: 20 0d 0a 09 52 41 4c 09 09 09 2f 43 48 45 43 4b   ...RAL.../CHECK
9270: 20 53 45 4c 45 43 54 20 41 4e 44 20 54 49 4d 49   SELECT AND TIMI
9280: 4e 47 20 45 52 52 4f 52 0d 0a 09 53 50 41 09 43  NG ERROR...SPA.C
9290: 4c 41 0d 0a 09 4a 4d 50 09 45 52 43 48 4b 09 09  LA...JMP.ERCHK..
92a0: 2f 53 45 4c 45 43 54 20 4f 52 20 54 49 4d 49 4e  /SELECT OR TIMIN
92b0: 47 20 45 52 52 4f 52 0d 0a 09 4a 4d 53 09 4e 55  G ERROR...JMS.NU
92c0: 44 54 41 09 09 2f 43 48 45 43 4b 20 4f 54 48 45  DTA../CHECK OTHE
92d0: 52 20 44 52 49 56 45 20 49 46 20 41 4e 59 0d 0a  R DRIVE IF ANY..
92e0: 09 4a 4d 50 09 52 53 54 53 4d 2d 31 31 09 2f 43  .JMP.RSTSM-11./C
92f0: 48 45 43 4b 20 4f 54 48 45 52 20 44 52 49 56 45  HECK OTHER DRIVE
9300: 0d 0a 09 4a 4d 50 20 20 49 20 20 2e 2b 31 0d 0a  ...JMP  I  .+1..
9310: 09 53 54 4d 4b 0d 0a 43 4e 54 45 52 4c 2c 09 30  .STMK..CNTERL,.0
9320: 0d 0a 53 41 56 2c 09 30 0d 0a 0d 0a 45 52 43 48  ..SAV,.0....ERCH
9330: 4b 2c 09 4a 4d 53 20 20 49 20 20 54 59 50 45 09  K,.JMS  I  TYPE.
9340: 09 2f 49 4e 43 4f 52 52 45 43 54 20 53 45 54 55  ./INCORRECT SETU
9350: 50 0d 0a 09 32 33 30 35 09 09 09 2f 53 45 0d 0a  P...2305.../SE..
9360: 09 32 34 32 35 09 09 09 2f 54 55 0d 0a 09 32 30  .2425.../TU...20
9370: 37 37 09 09 09 2f 50 0d 0a 09 30 30 30 30 09 09  77.../P...0000..
9380: 09 2f 45 4e 44 0d 0a 09 4a 4d 50 20 20 49 20 20  ./END...JMP  I  
9390: 2e 2b 31 0d 0a 09 53 54 41 52 54 0d 0a 0d 0a 53  .+1...START....S
93a0: 57 43 48 45 52 2c 09 4a 4d 53 20 20 49 20 20 54  WCHER,.JMS  I  T
93b0: 59 50 45 0d 0a 09 32 33 32 37 09 09 09 2f 53 57  YPE...2327.../SW
93c0: 0d 0a 09 31 31 32 34 09 09 09 2f 49 54 0d 0a 09  ...1124.../IT...
93d0: 30 33 31 30 09 09 09 2f 43 48 0d 0a 09 34 30 31  0310.../CH...401
93e0: 36 09 09 09 2f 4e 0d 0a 09 31 37 32 34 09 09 09  6.../N...1724...
93f0: 2f 4f 54 0d 0a 09 34 30 32 33 09 09 09 2f 53 0d  /OT...4023.../S.
9400: 0a 09 30 35 32 34 09 09 09 2f 45 54 0d 0a 09 34  ..0524.../ET...4
9410: 30 32 34 09 09 09 2f 54 0d 0a 09 31 37 34 30 09  024.../T...1740.
9420: 09 09 2f 4f 0d 0a 09 32 37 32 34 09 09 09 2f 57  ../O...2724.../W
9430: 54 0d 0a 09 31 35 34 30 09 09 09 2f 4d 0d 0a 09  T...1540.../M...
9440: 31 37 32 32 09 09 09 2f 4f 52 0d 0a 09 34 30 32  1722.../OR...402
9450: 33 09 09 09 2f 53 0d 0a 09 31 31 31 36 09 09 09  3.../S...1116...
9460: 2f 49 4e 0d 0a 09 30 37 31 34 09 09 09 2f 47 4c  /IN...0714.../GL
9470: 0d 0a 09 30 35 34 30 09 09 09 2f 45 0d 0a 09 31  ...0540.../E...1
9480: 34 31 31 09 09 09 2f 4c 49 0d 0a 09 31 36 30 35  411.../LI...1605
9490: 09 09 09 2f 4e 45 0d 0a 09 34 30 30 36 09 09 09  .../NE...4006...
94a0: 2f 46 0d 0a 09 31 34 30 31 09 09 09 2f 4c 41 0d  /F...1401.../LA.
94b0: 0a 09 30 37 34 30 09 09 09 2f 47 0d 0a 09 30 36  ..0740.../G...06
94c0: 30 31 09 09 09 2f 46 41 0d 0a 09 31 31 31 34 09  01.../FA...1114.
94d0: 09 09 2f 49 4c 0d 0a 09 30 35 30 34 09 09 09 2f  ../IL...0504.../
94e0: 45 44 0d 0a 09 34 30 32 34 09 09 09 2f 54 0d 0a  ED...4024.../T..
94f0: 09 31 37 34 30 09 09 09 2f 4f 0d 0a 09 32 33 30  .1740.../O...230
9500: 35 09 09 09 2f 53 45 0d 0a 09 32 34 34 30 09 09  5.../SE...2440..
9510: 09 2f 54 0d 0a 09 34 35 34 33 09 09 09 2f 43 52  ./T...4543.../CR
9520: 20 4c 46 0d 0a 09 30 30 30 30 09 09 09 2f 45 4e   LF...0000.../EN
9530: 44 0d 0a 09 4a 4d 50 09 53 57 43 48 4b 0d 0a 0d  D...JMP.SWCHK...
9540: 0a 53 57 4f 46 46 2c 09 43 4c 41 0d 0a 09 44 43  .SWOFF,.CLA...DC
9550: 41 09 43 4e 54 45 52 4c 0d 0a 09 53 44 4c 44 09  A.CNTERL...SDLD.
9560: 09 09 2f 43 4c 45 41 52 20 41 4e 59 20 46 4c 41  ../CLEAR ANY FLA
9570: 47 53 20 54 48 41 54 20 41 52 45 20 53 45 54 0d  GS THAT ARE SET.
9580: 0a 09 53 44 53 53 0d 0a 09 53 4b 50 0d 0a 09 4a  ..SDSS...SKP...J
9590: 4d 50 09 4f 46 46 09 09 2f 46 4c 41 47 20 53 48  MP.OFF../FLAG SH
95a0: 4f 55 4c 44 4e 27 54 20 42 45 20 53 45 54 0d 0a  OULDN'T BE SET..
95b0: 09 49 53 5a 09 43 4e 54 45 52 4c 0d 0a 09 4a 4d  .ISZ.CNTERL...JM
95c0: 50 09 2e 2d 34 0d 0a 09 43 4c 41 0d 0a 09 4a 4d  P..-4...CLA...JM
95d0: 50 20 20 49 20 20 2e 2b 31 0d 0a 09 50 53 45 52  P  I  .+1...PSER
95e0: 0d 0a 0d 0a 0d 0a 2a 33 34 30 30 0d 0a 2f 49 4e  ......*3400../IN
95f0: 50 55 54 20 42 55 46 46 45 52 20 46 4f 52 20 54  PUT BUFFER FOR T
9600: 45 4c 45 54 59 50 45 20 54 48 49 53 20 4d 55 53  ELETYPE THIS MUS
9610: 54 20 42 45 20 41 54 20 54 48 45 20 45 4e 44 20  T BE AT THE END 
9620: 4f 46 20 50 52 4f 47 52 41 4d 0d 0a 0d 0a 42 55  OF PROGRAM....BU
9630: 46 46 45 52 2c 09 30 0d 0a 0d 0a 24 0d 0d 0a     FFER,.0....$...