100 	NL0000=	CLA		/LOAD AC WITH 0000
 110 	NL0001=	CLA IAC		/LOAD AC WITH 0001
 120 	NL0002=	CLA CLL CML RTL	/LOAD AC WITH 0002
 130 	NL0003=	CLA STL IAC RAL	/LOAD AC WITH 0003
 140 	NL0004=	CLA CLL IAC RTL	/LOAD AC WITH 0004
 150 	NL0006=	CLA STL IAC RTL	/LOAD AC WITH 0006
 160 	NL2000=	CLA CLL CML RTR	/LOAD AC WITH 2000
 170 	NL3777=	CLA CLL CMA RAR	/LOAD AC WITH 3777
 180 	NL4000=	CLA CLL CML RAR	/LOAD AC WITH 4000
 190 	NL5777=	CLA CLL CMA RTR	/LOAD AC WITH 5777
 200 	NL6000=	CLA STL IAC RTR	/LOAD AC WITH 6000
 210 	NL7775=	CLA CLL CMA RTL	/LOAD AC WITH 7775
 220 	NL7776=	CLA CLL CMA RAL	/LOAD AC WITH 7776
 230 	NL7777=	CLA CMA		/LOAD AC WITH 7777
 240 	XLIST	OFF
 250 	IFNDEF	PRTIME	<PRTIME=0>
 260 	XLIST	ON
 270 	PRTIME=	JMS I	[TIMPRT]/PRINT TIME VALUES
 280 	SBOOT=	7600		/SYSTEM BOOTSTRAP ADDRESS
 290 	SFILES=	7757		/P?S FILES PASSED STARTING HERE
 300 	SHL=	7413		/SHIFT LEFT
 310 	SOUTFLS=7607		/P?S OUTPUT FILE COUNT
 320 	SWAB=	7431		/SWITCH TO MODE B EAE
 330 	SWBA=	7447		/SWITCH TO MODE A EAE
 340 	SYSIO=	7640		/P?S I/O ENTRY POINT
 350 	UNIT=	0003		/I/O UNIT FOR GRIND INPUT
 360 	WRITE=	4000		/SYSIO WRITE BIT
 370 	EJECT
 380 	*10				/DEFINE AUTO-INDEX AREA
 390 
 400 XR1,	.-.				/AUTO-INDEX NUMBER 1
 410 
 420 	*20				/GET PAST AUTO-INDEX AREA
 430 
 440 	XLIST	OFF
 450 	IFNZRO	MODEM	<
 460 	XLIST	ON
 470 BAR,	.-.				/MODEM BAR POSITION
 480 	XLIST	OFF	>
 490 	XLIST	ON
 500 BCKUP1,	T=	TIME1&M^12+TIME1F%D	/BACKUP FACTOR
 510 	T=	TIME1%D^12+T		/FOR MOVEMENT
 520 	-T;	-1			/AFTER BURST
 530 BEGINX,	.-.				/BEGINNING X VALUE
 540 BEGINY,	.-.				/BEGINNING Y VALUE
 550 BLIMIT,	.-.				/BLOCK LIMIT
 560 BGSW,	.-.				/BEGIN SWITCH
 570 BVALUE,	.-.				/BLINK VALUE
 580 CURBEG,	ZBLOCK	2			/CURRENT BEGIN Y POINTER
 590 	ZBLOCK	2			/FOR PRTIME
 600 CUREND,	ZBLOCK	2			/CURRENT END Y POINTER
 610 	ZBLOCK	2			/FOR PRTIME
 620 CURPTR,	4-CHAN;	0			/CURRENT BUFFER POINTER
 630 CURFRC,	ZBLOCK	2			/CURRENT BUFFER POINTER FRACTIONAL TIME
 640 CURVAL,	.-.				/CURRENT Y VALUE
 650 CURX,	.-.				/TEMPORARY
 660 CURY,	.-.				/TEMPORARY
 670 ENDX,	.-.				/ENDING X VALUE
 680 ENDY,	.-.				/ENDING Y VALUE
 690 FFRST,	-1				/FIRST FIRING SWITCH
 700 LO,	.-.				/LOW ORDER PRINT BUFFER
 710 HI,	.-.				/HIGH ORDER PRINT BUFFER
 720 	XLIST	OFF
 730 	IFNZRO	MODEM	<
 740 	XLIST	ON
 750 INTENS,	.-.				/MODEM LIGHT INTENSITY
 760 	XLIST	OFF	>
 770 	XLIST	ON
 780 LCTEMP,	ZBLOCK	2			/TEMPORARY
 790 	XLIST	OFF
 800 	IFNZRO	MODEM	<
 810 	XLIST	ON
 820 LIGHT,	.-.				/MODEM LIGHT INDICATOR
 830 	XLIST	OFF	>
 840 	XLIST	ON
 850 	XLIST	OFF
 860 	IFNZRO	MODEM	<
 870 	XLIST	ON
 880 
 890 MODNXT,	EOMIN				/GET NEXT MODEM CHARACTER SETUP
 900 	JMP I	(NOMODEM)		/KEEP GOING
 910 
 920 	XLIST	OFF	>
 930 	XLIST	ON
 940 MOVCT,	.-.				/MOVEMENT'S SPIKE COUNT
 950 	XLIST	OFF
 960 	IFNZRO	MODEM	<
 970 	XLIST	ON
 980 MTEMP,	-1				/MODEM TEMPORARY
 990 	XLIST	OFF	>
1000 	EJECT
1010 OLBEGX,	.-.				/OLD BEGIN X VALUE
1020 OLBEGY,	.-.				/OLD BEGIN Y VALUE
1030 OLDBEG,	1;	0			/OLD BEGIN Y POINTER
1040 OLENDX,	.-.				/OLD END X VALUE
1050 OLENDY,	.-.				/OLD END Y VALUE
1060 PAUSCT,	.-.				/PAUSE'S SPIKE COUNT
1070 PONTSW,	.-.				/DECIMAL POINT (%10) SWITCH
1080 	XLIST	OFF
1090 	IFNZRO	MODEM	<
1100 	XLIST	ON
1110 POS3SW,	.-.				/MODEM THIRD POSITION SWITCH
1120 	XLIST	OFF	>
1130 SPKCNT,	.-.				/SPIKE COUNTER
1140 	XLIST	OFF
1150 	IFNZRO	MODEM	<
1160 	XLIST	ON
1170 SUCCESS,.-.				/MODEM TRIAL SUCCESS
1180 	XLIST	OFF	>
1190 	XLIST	ON
1200 TEMP1,	.-.				/TEMPORARY
1210 TEMP2,	.-.				/TEMPORARY
1220 THRES1,	T=	TIME2&M^12+TIME2F%D	/BEGIN
1230 	T=	TIME2%D^12+T		/BURST
1240 	-T;	-1			/THRESHOLD
1250 THRES2,	T=	TIME3&M^12+TIME3F%D	/END
1260 	T=	TIME3%D^12+T		/BURST
1270 	-T;	-1			/THRESHOLD
1280 	XLIST	OFF
1290 	IFNZRO	MODEM	<
1300 	XLIST	ON
1310 XPOS1,	.-.				/MODEM "X" FIRST POSITION
1320 XPOS2,	.-.				/MODEM "X" SECOND POSITION