100 	XLIST	ON;	IFZERO	1	<
 110 	MISCELLANEOUS EQUATED SYMBOLS
 120 					>	XLIST	ON
 130 
 140 	ADRFLD=	0030		/FAST CLEAR ADDRESS STORAGE FIELD
 150 	BUFFLD=	0010		/DATA BUFFER FIELD
 160 	BUFLEN=	0040		/RESIDENT BUFFER LENGTH
 170 	CLRLST=	6200		/FAST CLEARING BUFFER IN DSPFLD
 180 	CURNOB=	0000		/CURSOR KNOB CHANNEL
 190 	DSPFLD=	0020		/DISPLAY BUFFER FIELD
 200 	XLIST	OFF
 210 	IFNDEF	LOAD	<LOAD=	0>
 220 	XLIST	ON
 230 	LOAD=	JMS I	[XLOAD]	/LOAD A WORD
 240 	NL0001=	CLA IAC		/LOAD AC WITH 0001
 250 	NL0002=	CLA CLL CML RTL	/LOAD AC WITH 0002
 260 	NL0006=	CLA STL IAC RTL	/LOAD AC WITH 0006
 270 	NL2000=	CLA CLL CML RTR	/LOAD AC WITH 2000
 280 	NL3777=	CLA CLL CMA RAR	/LOAD AC WITH 3777
 290 	NL4000=	CLA CLL CML RAR	/LOAD AC WITH 4000
 300 	NL5777=	CLA CLL CMA RTR	/LOAD AC WITH 5777
 310 	NL6000=	CLA STL IAC RTR	/LOAD AC WITH 6000
 320 	NL7775=	CLA CLL CMA RTL	/LOAD AC WITH 7775
 330 	NL7776=	CLA CLL CMA RAL	/LOAD AC WITH 7776
 340 	SBOOT=	7600		/SYSTEM BOOTSTRAP ADDRESS
 350 	SWAL=	7604		/A-/L SWITCHES
 360 	SYSIO=	7640		/SYSTEM I/O ENTRY
 370 	UNIT=	0003		/DATA UNIT
 380 	WRITE=	4000		/SYSIO WRITE BIT
 390 	EJECT
 400 	PAGE	0		/START AT THE BEGINNING
 410 
 420 	*10			/DEFINE AUTO-INDEX AREA
 430 
 440 XR0,	.-.			/AUTO-INDEX NUMBER 0
 450 XR1,	.-.			/AUTO-INDEX NUMBER 1
 460 XR2,	.-.			/AUTO-INDEX NUMBER 2
 470 XR3,	.-.			/AUTO-INDEX NUMBER 3
 480 XR4,	.-.			/AUTO-INDEX NUMBER 4
 490 XR5,	.-.			/AUTO-INDEX NUMBER 5
 500 XR6,	.-.			/AUTO-INDEX NUMBER 6
 510 XR7,	.-.			/AUTO-INDEX NUMBER 7
 520 
 530 	*20			/GET PAST AUTO-INDEX AREA
 540 
 550 BAR,	.-.			/MODEM BAR POSITION
 560 BLKLIM,	-BUFLEN			/CURRENT BLOCK LIMIT
 570 CHAR,	.-.			/INPUT BUFFER
 580 CNT,	.-.			/TEMPORARY
 590 CURSW,	0			/CURSOR PRESENT SWITCH
 600 DBLTMP,	ZBLOCK	2		/DOUBLE-PRECISION TEMPORARY
 610 DCOUNT,	.-.			/DISPLAY COUNTER
 620 DIRECT,	4-CHAN;	0		/DIRECTIONAL INCREMENT; POSITIVE
 630 				/GOES FORWARD, NEGATIVE GOES REVERSE
 640 DIRTSW,	0			/DIRTY BUFFER SWITCH
 650 DONE,	MAIN			/END-OF-DATA EXIT
 660 DSPADR,	.-.			/TEMPORARY DISPLAY ADDRESS
 670 DSPWRK,	ZBLOCK	2		/DOUBLE-PRECISION TEMPORARY DISPLAY POINTER
 680 D4,	4;	0		/00000004
 690 EDSW,	1			/EDITING ALLOWED SWITCH
 700 FREZSW,	0			/0=MOVING, NON-0=STOPPED
 710 HIBLK,	.-.			/DATA BLOCK LIMIT
 720 INTENS,	.-.			/MODEM LIGHT INTENSITY
 730 LIGHT,	.-.			/MODEM LIGHT INDICATOR
 740 L4000,	4000			/BIT TABLE CONSTANT 4000
 750 L2000,	2000			/BIT TABLE CONSTANT 2000
 760 L1000,	1000			/BIT TABLE CONSTANT 1000
 770 L400,	0400			/BIT TABLE CONSTANT 0400
 780 L200,	0200			/BIT TABLE CONSTANT 0200
 790 L100,	0100			/BIT TABLE CONSTANT 0100
 800 L40,	0040			/BIT TABLE CONSTANT 0040
 810 L20,	0020			/BIT TABLE CONSTANT 0020
 820 L10,	0010			/BIT TABLE CONSTANT 0010
 830 L4,	0004			/BIT TABLE CONSTANT 0004
 840 L2,	0002			/BIT TABLE CONSTANT 0002
 850 L1,	0001			/BIT TABLE CONSTANT 0001
 860 MDSPBAS,ZBLOCK	2		/DOUBLE-PRECISION DISPLAY ADDRESS TEMPORARY
 870 MDWORD,	.-.			/LATEST MODEM-WORD
 880 	EJECT
 890 MODNXT,	EOMIN			/GET NEXT MODEM CHARACTER SETUP
 900 	JMP I	(NOMODEM)	/KEEP GOING
 910 
 920 MTEMP,	-1			/MODEM TEMPORARY
 930 M4,	-4;	-1		/77777774
 940 NEWCURS,.-.			/LATEST CURSOR VALUE
 950 OLCURSO,.-.			/PREVIOUS CURSOR VALUE
 960 OLDTIME,0;	0		/PREVIOUS SPIKE TIME
 970 OLTIME,	.-.			/PREVIOUS TIME WORD
 980 POS,	4-CHAN;	0		/BEGINNING WINDOW POSITION
 990 POS3SW,	.-.			/MODEM THIRD POSITION SWITCH
1000 SUCCESS,.-.			/MODEM TRIAL SUCCESS
1010 TAILTMP,ZBLOCK	2		/SAVE AREA FOR HORIZONTAL COORDINATE
1020 TEMP,	.-.			/TEMPORARY
1030 TMPSAVE,.-.			/SAVED TEMPORARY DURING DOTAIL OPERATIONS
1040 TMWORD,	.-.			/LATEST TIME-WORD
1050 VERT,	.-.			/VERTICAL COORDINATE
1060 XPOS1,	.-.			/MODEM "X" FIRST POSITION
1070 XPOS2,	.-.			/MODEM "X" SECOND POSITION
1080 XTEMP,	.-.			/MODEM "X" TEMPORARY