*20
	PMODE
/
/
/
/
/
/
/
/	BEGINNING OF ASSEMTHREE
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
	EJECT
/     M A I N   I N I T I A L I Z A T I O N   O F   T H E   A S S E M B L E R
/
/
/
/
/
/
	*5000
BEGNLI,	CLA		/ENTRY IF LIST IS DESIRED.
	SKP
BEGNAS,	CLA CMA		/ENTRY IF JUST ASSEMBLY.
	DCA	LISTWD		/SAVE LIST STATUS CONDITION.
	TAD I	P4775		/4775 CONTAINS STARTING LINE NUM. OF LISTING
	DCA I	PJSTART
	TAD I	P4776		/4776 CONTAINS ENDING LINE NUM. STASH IT AWAY PERMANENTLY.
	DCA I	PJEND
	TAD	LISTWD
	SNA CLA
	JMP	.+4
	TAD	.+1
JBNOP,	NOP
	DCA I	PJNOP		/IF NO LIST THEN FIX JBTEST SO IT CAN NEVER LIST OUT.
	JMP	PJNOP+1
PJEND,	JEND
PJSTART,	JSTART
P4775,	4775
P4776,	4776
P4774,	4774
BANOP1,	ABNOP1
BANOP2,	ABNOP2
BANOP3,	ABNOP3
BANOP4,	ABNOP4
BANOP5,	CONYES
BANDO,	SKP CLA
BLTAD,	1200+M7TWO-ENTS
BLTAD1,	NOTAB1
BLTAD2,	NOTAB2
BLM10,	-10
BLPM22,	M22
PJNOP,	JNOP
	ISZ I	P4774		/4774=7777 IF QUICK LIST.
	JMP	LISREG		/NO QUICK LIST.
	TAD	JBNOP		/CHANGE LIST ROUTINE FOR QL BY ALL FOLLOWING CRAP.
	DCA I	BANOP1
	TAD	JBNOP
	DCA I	BANOP2
	TAD	JBNOP
	DCA I	BANOP3
	TAD	JBNOP
	DCA I	BANOP4
	TAD	BANDO
	DCA I	BANOP5
	TAD	BLTAD
	DCA I	BLTAD1
	TAD	BLTAD
	DCA I	BLTAD2
	TAD	BLM10
	DCA I	BLPM22
LISREG,	TAD I	INAS
	DCA I	MAINEX		/INITILIZE TO PASS1.
	LINC
	LMODE
	LDF	1		/SET UP PRINTER CHECK
	LDA I			/NOW CHANGING TTY ROUTINE TO CALL LINE PRINTER CHECK ROUTINE.
	TYPO+3202		/TYPE=2571+3202=5773(JMP I TYPO+2)
	STA
	TYPO+1
	LDA I
	LPTEST
	STA
	TYPO+2
	LDF	3
	LDA
	777
	STC	FSUNIT?1777
	LDA
	FSBLK?1777
	BCL I
	-777
	STC	FSBLK?1777
	PDP
	PMODE
	CIF	10		/PREPARE TO MOVE DOWN THEREAD ROUTINES.
	JMS I	IMMOVE
	CDF	10
	7000
	CDF	0
	7000
	1000
	JMS I	IMREAD
	ITABIN
	TAD	MAINEX		/FAKE START OF ASSEMBLY BY PLACING
	DCA I	INIT1		/STARTING ADDRESS OF ASSEMBLER IN IT
	TAD	IM215		/GET A C.R. TO INITIALIZE THE SYSTEM
	JMS I	IMTYPO		/AND SEND IT DIRECTLY TO THE OUTPUTER
	JMP I	IMINIT		/AND BY JUMPING TO THE SECOND LOC OF INIT
/START THE ASSEMBLER GOING RIGHT NOW...
/
/
/
IM215,	215			/C.R.
IMTYPO,	TYPO
IMMOVE,	7200
IMREAD,	READ
IMINIT,	INIT+1
/
/
/
ITABIN,	DIALUNIT
	13
	FUDGE1
	2
/
/
/
/
/
	EJECT
/		PSEUDO OP PROCESSOR. IT REALLY IS ORIGINED AT
/	5000 FOR 4K, BUT IT WOULD THEN OVERLAY THE INITIALIZATION ROUTINE.(AT ASSEMBLY).
/THUS ITS ASSEMBLED AT 7000 BUT PFUDGE MAKES THE INTERPAGE REFERENCE LOOK LIKE IT S AT 5000.
/ THE 8K VERSION IS REALLY ORIGINED AT 7000. I GENERALLY CHANGE THE INTERPAGE
/REFERENCES BY HAND(THERE S  ABOUT 6 ON THIS PAGE AND 3 ON THE NEXT PAGE.)
/ALL INTERBANK REFERENCE HAVE A 
/TO THE DATA ITEMS.
/REMEMBER, THIS IS FINE AS IS FOR "FUDGE4". FOR FUDGE5 ADD 2000 TO INTERBAGE REFERENCES.
/
/
/
/
/
/
/
	*5400		/NEW LOCATION OF PSEUDO PROCESSOR
/
/
/
/	MAIN PSEUDO OP PROCESSOR. PAGED IN!
/
/
/
ACOUNT,	1202		/"JB" ON THE TAPE; IN CORE IT S A TEMPORARY
GETVAL,	4360+VERSION		/VERSION NUMBER ON TAPE. IN CORE IT S
			/A SUBROUTINE ENTRY. 
			/NO.7
			/  (CHECKS UNIT 1 TO SEE
			/IF PRESENT AND IF IT IS USES UNIT
			/1 TO READ IN THIS PAGE
/
	JMS I	EXPR1
	TAD	ANY
	SNA CLA
	JMP	ASSNO
	TAD	EVAL
	JMP I	GETVAL
/
/GETVAL EVALUATES THE EXPRESION TO THE RIGHT OF A PSEUDO OP.
/IF NO EXPRESSION THEN IT EXITS.
/BACK TO THE MAIN ASSEMBLER WITHOUT DOING ANYTHING.
/
/
/
/
/
PSEUDO,	PAFTER		/RETURN IF OVERLAYED BY ITSELF.
	TAD	PJMP
	DCA	.+1
	JMP	.+1		/OVERLAYED BY PSEUDO NO.
PJMP,	JMP	.+1		/MAIN TABLE POINTER
	JMP	NASSIF		/EVIL IF SPELLED RIGHT
	JMP	ZASSIF
	JMP	MASSIF
	JMP	SYMLOD
	JMP	AEJECT
	JMP	SYMSAV
	JMP	SKIPAS
/
/
/END OF JUMP TABLE. PSEUDO WAS CALLED WITH PSEUDO OP NUMBER IN AC.
/
/
/
/
/
NASSIF,	TAD	AMM10
ZASSIF,	TAD	M40
MASSIF,	TAD	L7710
	DCA	.+2		/STORE CORRECT SKP AFTER EVALUATING EXPR.
	JMS	GETVAL
	0
	JMP	ASSNO		/WRONG SKIP CONDITION. ASSEMBLE NEXT.
	CLA CMA		/DO AN ASMSKP 1.
	JMP	ASSYIN
SKIPAS,	JMS	GETVAL
	CIA
	SNA		/NUMBER TO BE SKKIPED. IF ZERO EXIT.
	JMP	ASSNO
ASSYIN,	DCA	ACOUNT
	TAD	ITEM
	TAD	M43		/WAS DOLLAR TERMINATOR.
	SZA CLA
	CLA CMA		/NO. ADD 1 TO SKIP BECAUSE OF END OF THIS STATEMENT.
	TAD	ACOUNT
	DCA	ACOUNT
	TAD	PACHECK
	DCA I	PSWITCH
	TAD	ASEND
	DCA I	PDOLLAR
	TAD	AMAINPS
	DCA	PMAINSA
	JMP I	.+1		/AFTER SETTING SWITHCES EXIT TO PICK UP NEXT STATEMENT.
AFDRT,	FDRT
ACHECK,	CLA CLL
	TAD	ITEM
	TAD	M43
	SNA CLA
	JMP	ASPAST
	JMS I	IDX1
	JMP	.-5		/WAIT FOR END OF THIS LINE.
ASPAST,	ISZ	ACOUNT
	JMP I	PMAINSA		/NOT DONE YET. PICK UP NEXT STATEMENT TO SKIP.
ASSRST,	TAD	PDOCAL
	DCA I	PSWITCH
	TAD	PENDMS
	DCA I	PDOLLAR
	TAD	PMAINSA
	JMP I	PSEUDO		/RESET SWITCHES AND EXIT.
APAEND,	CLA CLL
	TAD	PENDMS
	DCA	PMAINSA
	JMP	ASSRST		/END OF MANUSCRIPT
/
/
/
/
/
/
/
ASSNO,	TAD	AFDRT
	JMP I	PSEUDO		/GENERAL EXIT.
/
/
/
/
AMM10,	-10
ASEND,	APAEND
AMAINPS,	MAINSA
PMAINSA,	MAINSA
PSWITCH,	PSINTER
PACHECK,	ACHECK
PDOCAL,	DOCAL
PDOLLAR,	FINEND
PENDMS,	ENDMS
/
/
/
/
AEJECT,	JMS I	EXPR1		/JUST TO SCAN TILL END OF LINE.
	JMS I	PASSEK		/GET THE PASS NO.
L7710,	SPA CLA		/ALWAYS SKIPS BECAUSE AC=0
	JMP	ASSNO		/NOT LIST OR NOT PASS2
	TAD I	PM60A		/IF LP THEN M60=-140
	TAD	AEP62		/SEE IF GREATER THAN 62
	SMA	CLA		/IS PRINTER THERE???
	JMP	ASSNO		/NOPE. LINE PRINTER ISN T   THERE
	CLA CMA		/YES. SET PAGE POINTER TO EJECT.
	DCA I	AEPONT
	JMP	ASSNO
/
/
AEP62,	62
AEPONT,	PCONT
/
/
/
/
/
/
SYMSAV,	JMS	GETVAL
	TAD	PASS
	RAR
	SNL	CLA
	JMP	ASSNO		/INCORRECT PASS NO.!!
	JMS I	VOUT		/SAVE 6400 FOR A SECOND.
	TAD	SEND		/NUMBER OF DEFINED SYMBOLS.
	DCA I	VL6777
	JMS I	YWRITE
	YP1
	JMS I	VIN		/RESTORE 6400 NOW.
	JMP I	PV8MOVE
/
YWRITE,	WRITE
YREAD,	READ
VL6777,	6777
PV8MOVE,	V8MOVE
SYMLOD,	TAD	PASS
	SZA CLA
	JMP	NASSIF		/DO NOT LOAD SYMBOLS IF PASS2
	JMS I	VOUT		/PRESERVE 6400 NOW
	JMS I	YREAD
	YP1
	TAD I	VL6777
	DCA	SEND		/GET NUMBER OF SAVED SYMBOLS
	JMS I	VIN		/NOW RESTORE 6400
	JMP I	VINIT		/NOW READ IN THE SYMBOL TABLE
VINIT,	VVINIT
/
/
/
YP1,	DIALBINARY
	15
	FUDGE2
	1
/
/
/
/
/
/
/
/
/
/
VOUT,	VPRSRV			/POINTS TO THE PRESERVE ROUTINE
VIN,	VRSTR			/POINTS TO THE RESTORE ROUTINE
/
/
/
/
/
/
/
/
/
/
/
/
	EJECT
	*5600
/
V8MOVE,	JMS I	VWRITE
	VTAB
/
VCLEAN,	JMP I	VASSNO
/
VASSNO,	ASSNO
/
/
VVINIT,	JMS I	VREAD
	VTAB
	JMP	VCLEAN
/
/
/
VWRITE,	WRITE
VREAD,	READ
/
/
/
VTAB,	DIALBINARY
	20
	BOOUT
	16
/
/
/
/
/
/
/
/
/
/
OUTPUT,	JMS I	OGTVAL		/THIS ROUTINE ALLOWS OPTIONAL TAPE OUTPUT
	DCA	OPUT		/SAVE FOR A SECOND
	TAD	PASS		/GET THE PASS NUMBER
	SZA CLA			/IS IT 1
	JMP I	OASSNO		/NOPE. IGNORE
	TAD	OPUT		/REGET THE USERS VALUE.
	SPA			/IF POSITIVE THEN OUTPUT
	JMP	OBSET		/IF NEGATIVE THEN READ IN BIT TABLE
	AND	OL17		/JUST GET THE UNIT NUMBER
	DCA	OUNIT
	DCA	OBLOCK		/CLEAR THE BLOCK  TO 0
	TAD	OL6400		/RESET THE LOCATION COUNTER TO 6400
	DCA	OLOC		/WHICH IS THE BUFFER AREA
	CLA CMA			/SET UP THE TEST TO FOLLOW
	LINC
	LMODE
	SNS I	0		/TEST FOR BOTH
	SNS	1		/SWITCHES 0 AND 1 UP
	CLR
	SNS I	2		/AND SO ON DOWN THE LINE
	SNS	3
	CLR
	SNS I	4
	SNS	5
	CLR
	PDP
	PMODE
	CMA
	SZA CLA
	JMP I	OASSNO		/SWITCHES NOT UP. IGNORE REQUEST
	TAD	OPOINT		/RESET DECOUT TO POINT TO HERE
	DCA	DECOUT
	JMP I	OASSNO		/NOW RETURN TO THE USER.
/
/
/
/
OPUT,	0
	SNA
	JMP 	OEND
	JMS	OOPUT
	JMP I	OPUT
/
OEND,	JMS	OOPUT		/PUT IN A ZERO WORD
	TAD	OLOC
	AND	OL377		/CHOP OFF THE HIGH BITS NOW. JUST LEAVE THE POSITION BITS.
	SNA CLA
	JMP I	OPUT
	JMP	OEND
/
/
/
/
OOPUT,	0
	DCA I	OLOC
	TAD	OLOC
	IAC
	AND	OL377
	TAD	OL6400
	DCA	OLOC
	TAD	OLOC
	AND	OL377		/CHOP OFF THE BAD BITS.
	SZA CLA
	JMP I	OOPUT
	JMS I	VWRITE
	OUNIT
	ISZ	OBLOCK
	JMP I	OOPUT
/
/
/
/
/
/
/
OBSET,	CLA			/ALSO POINTS TO MOVE ROUTINE
	JMS I	VREAD		/READ IN THE OLD HEADER BLOCK
	OBIN
	JMS I	OBSET		/MOVE DOWN THE HEADER BLOCK NOW
	CDF	0
	5337
	CDF	0
	4337
	41
	JMP I	OASSNO		/AND RETURN TO THE USER
/
/
/
/
/
/
/
/
/
OBIN,	111
	12
	447-370
	1
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
OGTVAL,	GETVAL
OASSNO,	ASSNO
OL17,	17
OPOINT,	OPUT
OLOC,	6400
OL6400,	6400
OL377,	377
/
OUNIT,	0
	15			/15=6400 FOR THE BUFFER AREA
OBLOCK,	0
	1
/
/
/
/
/
/
/
/
/
/
/
/
/
CHECKO,	0			/THIS ROUTINE CHECKS FOR NO BINARY OUTPUT.
	TAD I	OCUSES		/GET THE NUMBER OF BLOCKS OF OUTPUT.
	SZA CLA			/AND THERE?
	JMP	OCCRLF		/YEP. JUST GIVE A C.R.L.F AND RETURN TO THE CALLER
/
OCDOIT,	TAD	OCPNT		/GET A CHARACTER FROM THE MESSAGER.
	SNA			/ZERO = THATS ALL FOLKS
	JMP	OCCRLF		/GIVE THE LINEFEED NOW
	JMS I	DECOUT		/OUT GOES THE CHARACTER NOW
	ISZ	OCDOIT		/BOP TO THE NEXT CHARACTER.
	JMP	OCDOIT		/GO GET THE NEXT CHARACTER
/
OCCRLF,	JMS I	TYCARI		/GIVE THE CARRIGE RETURN NOW
	JMP I 	CHECKO		/RETURN TO THE CALLER NOW
/
/
/
/
OCPNT,	254			/,
	240			/
	316			/N
	317			/O
	240			/
	302			/B
	311			/I
	316			/N
	301			/A
	322			/R
	331			/Y
	240			/
	317			/O
	325			/U
	324			/T
	320			/P
	325			/U
	324			/T
	0
/
/
/
OCUSES,	USEDNO			/POINTS TO THE NUMBER OF BINARY BLOCKS USED.
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
	EJECT
/  LINE PRINTER ROUTINE
/
/
/
/
	*6000		/THIS ROUTINE LOOKS
PRINT,	0		/SORT OF LINE A TTY. TAD CHAR; JMS PRINT.
	TAD	M215		/IT HANDLES CR AND LF.
	SNA		/IS IT CARRIAGE RETURN.
	JMP	CRFOUND
	TAD	P215		/NO!
	LSD			/WAIT FOR CLEAR SIGNAL.
	JMP	LPBACK		/LINE PRINTER IS BUSY. BACK SPACE 1 CHAR
	JMP I	PCLP
/
CRFOUND,TAD	SW1
	DCA	PRINT+1
	DCA	NUM		/SET TOCHEC K  FOR LF
	JMP I	PRINT
LFTEST,	DCA	TEMP1
	TAD	TEMP1
	TAD	M212		/IS IT A LINEFFED.
	SNA CLA
	JMP	LFF
	TAD	TEMP1
	TAD M215
	SNA CLA
	JMP	LFF2
	TAD	SW2		/NOT AN LF OR CR. NEW LINE. OUTPUT LAST.
	DCA	PRINT+1
	CLA CMA
	TAD	NUM
	JMP I	PCFIG
/
LFF,	ISZ	NUM		/LF. BOP UP LF COUNT.
LFF2,	JMP I	PRINT
/
/
/
TEMP1,	0
SW1,	JMP	LFTEST
SW2,	TAD	M215
/
/
/
/
/
/
PCFIG,	ANLXE
PCLP,	ANLXC
/
/
/
/
LPBACK,	ISZ I	LCOUNT		/INCREMENT THE COUNTER BY 1
	CLA CMA			/-1 TO DECREMENT THE POINTER
	TAD I	LOUTP
	DCA I	LOUTP
	TAD	LFIRST		/COMPARE AGAINST LOWER LIMIT
	TAD I	LOUTP
	SNA CLA
	TAD	LBAD		/ITS TOO FAR. COMPENSTATE TO TOP OF BUFFER
	TAD I	LOUTP
	DCA I	LOUTP
	JMP I	PRINT
/
/
/
/
/
ANLXC,	LCF!LLB
	CLA
	JMP I	PRINT
/
ANLXE,	AND	P7
M140,	SZA CLA
	TAD	P7
	TAD	L10
	LCF
	LPR
LPRENT,	CLA
	DCA	NUM
	TAD	TEMP1
	JMP	PRINT+1
/
/
LP08C,	LPR!LCB
	JMP	ANLXC+1
/
LP08E,	SZA CLA
	CLA CLL IAC RAL
	TAD	P212
	LPR!LCB
	JMP	LPRENT
/
/
LCOUNT,	COUNT
LOUTP,	OUTP
LFIRST,	-FIRST+1
LBAD,	BAD-FIRST+1-1
/
/
L10,	10
M212,	-212
/
/
/
/
/
/
/
/
/
NUM,	0
PRINIT,	0
/
/
/
/
/
/
/
/
	FIRST=.			/DEFINE THE START OF THE BUFFER
	BAD=6400		/AND THE END+1
/
/
/
/
/
	PAGE
/
/
/
/
/
/
LOK,	TAD	L17		/LP IS THERE. EJECT TO START AS.
	LCF
	LPR
	CLA
	TAD	M154		/SET LINE COUNTER FOR 154 COLUMNS WIDE.
	DCA I	PC1
	TAD I	PC1
	DCA I	PC2
/
LOK0,	TAD	SYMFIX
	DCA I	SYMOVR
/
LOK1,	TAD	R1		/RESET TYPO TO LP OR TTY ROUTINE.
	DCA I	PR1
	TAD	R2
	DCA I	PR2
	TAD	R3
	DCA I	PR3
	TAD	R4
	DCA I	PR4
	TAD	R5
	DCA I	PR5
	TAD	P215
	JMP I	.+1
PR1,	TYPO+1
PR2,	TYPO+2
PR3,	TYPO+3
PR4,	TYPO+4
PR5,	TYPO+5
R1,	JMS I	LOK+TYPO-TYBASE+3
	TSF
R2,	SKP
	JMP	LOK+TYPO-TYBASE+1
R3,	PRINT
	TLS
R4,	JMP I	LOK+TYPO-TYBASE
	CLA
R5,	JMP I	LOK+TYPO-TYBASE
/
/
LPTEST,	CLA CLL
	TAD	M4		/WAIT FOR PRINTER TEST
	DCA	PT2
	DCA	PT1
	LCF
	LCB		/CLEAR BUFFER. IF LP THERE FLAG RAISES IN 300 MILLSEC.
TEST,	LSD
	SKP
	JMP	LOK		/FLAG SI UP.  LP THERE.  WHAT A LUCKY BASTARD.
	ISZ	PT1
	JMP	TEST
	ISZ	PT2
	JMP	TEST
/
	TAD	M4
	DCA	PT2
	DCA	PT1
	TAD	P240
	LCB!LPR
	CLA
TESTC2,	LSD
	SKP
	JMP	LOKA2
	ISZ	PT1
	JMP	TESTC2
	ISZ	PT2
	JMP	TESTC2
/
	ISZ	LOK1		/TIME HAS RUN OUT. CHANGE TO SET UT  TTY MODE.
	ISZ	LOK1+2
	ISZ	LOK1+4
	ISZ	LOK1+6
	DCA I	CCNOP		/ZAP OUT THE LPTEST ON THE BUFFERING ROUTINE
	JMP	LOK1
/
CCNOP,	CNOP
/
/
/
/
/
/
/
L17,	17
PC1,	M60
PC2,	M60A
M72,	-72
M154,	-154
PT1,	0
PT2,	0
/
/
/
/
/
/
/
LOKA2,	CLL CLA IAC RAL
	TAD	P212
	LCF!LPR
	CLA
	TAD	M72
	DCA I	PC1
	TAD	M72
	DCA I	PC2
	TAD	PLP08C
	DCA I	PXL1
	TAD	PLP08E
	DCA I	PXL2
	JMP	LOK0
/
/
PLP08C,	LP08C
PLP08E,	LP08E
PXL1,	PCLP
PXL2,	PCFIG
SYMFIX,	TAD	LWDEFD?177+LOK
SYMOVR,	LWDE
/
/
/
/
/
/
/
/
/
/
/
/		SOME BASIC DEFINITIONS FOR THE ROUTINES
/
TYBASE=2400		/MAIN BASE FOR REFS.
LLB=6654
LCF=6652
LSD=6661
LCB=6662
LPR=6664
/
/
/
/
/
/
/
/
/
/
/
/
/
	EJECT
/
/
/
/  S Y M B O L    T A B L E   ! ! ! !
/
/
/
/
/
/
/
/
	*6400
7777
7777
7777
7777
7777
7777
7777
7777
7777
7777
7777
7777
5143		/PSF
0336
0000
6021
5123		/PCF
0336
0000
6022
5140		/PPC
0157
0000
6024
5134		/PLS
1277
0000
6026
5255		/RCF
0336
0000
6011
5254		/RRB
0112
0000
6012
5240		/RFC
0157
0000
6014
4170	/CIF
0336
0000
6202
4163		/CDF
0336
0000
6201
5243		/RIB
0112
0000
6234
5247		/RMF
0336
0000
6244
5243		/RIF
0336
0000
6224
5236		/RDF
0336
0000
6214
5360		/TLS
1277
0000
6046
5364		/TPC
0157
0000
6044
5347		/TCF
0336
0000
6042
5367		/TSF
0336
0000
6041
4651		/KRB
0112
0000
6036
4651		/KRS
1277
0000
6034
4632		/KCC
0157
0000
6032
4652		/KSF
0336
0000
6031
4534		/IOF
0336
0000
6002
4534		/ION
1006
0000
6001
4705	/LINC
1011
0000
6141
4173/CLSK
1312
0
6131
4173/CLLR
716
0
6132
4173
47
0
6133
4173
307
0
6134
4173	/CLSA
1300
0
6135
4173	/CLCA
160
0
6137
4173	/CLBA
113
0
6136
4417		/GLK
0627
0000
7204
5323	/STL
0674
0000
7120
5323		/STA
0045
0000
7240
4675		/LAS
1277
0000
7604
4170		/CIA
0045
0000
7041
4464		/HLT
1344
0000
7402
5076		/OSR
1232
0000
7404
5312		/SKP
1120
0000
7410
5331		/SZL
0674
0000
7430
5315		/SNL
0674
0000
7420
5315		/SNA
0045
0000
7450
5317		/SPA
0045
0000
7510
5331		/SZA
0045
0000
7440
5314		/SMA
0045
0000
7500
4516		/IAC
0157
0000
7001
5256		/RTL
0674
0000
7006
5233		/RAL
0674
0000
7004
5256		/RTR
1232
0000
7012
5233		/RAR
1232
0000
7010
4174		/CML
0674
0000
7020
4174		/CMA
0045
0000
7040
4173		/CLL
0674
0000
7100
4173		/CLA
0045
0000
7200
5025		/NOP
1120
0000
7000
4577		/JMP
1120
0000
5000
4577		/JMS
1277
0000
4000
4227		/DCA
0045
0000
3000
4540		/ISZ
1702
0000
2000
5345		/TAD
0224
0000
1000
4063		/AND
0224
0000
0
	EJECT
/LINC SYM TABLE
	*7000
/
/
5607		/XOA
0045
0000
0021
5201	/QLZ
1702
0000
0455
4352	/FLO
1053
0000
0454
4652	/KST
1344
0000
0415
5305	/SFA
45
0
24
4075	/AXO
1053
0000
0001
4314	/ESF
0336
0000
0004
4464	/HLT 	
1344
0000
0000
5166	/QAC
0157
0000
0005
4173	/CLR
1232
0000
0011
4071	/ATR
1232
0000
0014
5256	/RTA
0045
0000
0015
5025	/NOP
1120
0000
0016
4176	/COM
0741
0000
0017
5304	/SET
1344
0000
0040
5300	/SAM
0741
0000
0100
4235	/DIS
1277
0000
0140
5613	/XSK
0627
0000
0200
5251	/ROL
0674
0000
0240
5251	/ROR
1232
0000
0300
5302	/SCR
1232
0000
0340
5327	/SXL
0674
0000
0400
5315	/SNS
1277
0000
0440
5312	/SKP(L)
1120
0000
0456
4077	/AZE
0271
0000
0450
4065	/APO
1053
0000
0451
4726	/LZE
0271
0000
0452
4236	/DJR
1232
0000
0006
4705	/LIF
0336
0000
0600
4700	/LDF
0336
0000
0640
5236	/RDC
0157
0000
0700
5235	/RCG
0403
0000
0701
5236	/RDE
0271
0000
0702
4765	/MTB
0112
0000
0703
5545	/WRC
0157
0000
0704
5526	/WCG
0403
0000
0705
5545	/WRI
0515
0000
0706
4167	/CHK
0627
0000
0707
5300	/SAE
0271
0000
1440
5321	/SRO
1053
0000
1500
4115	/BCL
0674
0000
1540
4135	/BSE
0271
0000
1600
4115	/BCO
1053
0000
1640
4247	/DSC
0157
0000
1740
4051	/ADD
0224
0000
2000
5323	/STC
0157
0000
4000
4577	/JMP
1120
0000
6000
4764	/MSC
0157
0000
0000
4700	/LDA
0045
0000
1000
5323	/STA
0045
0000
1040
4051	/ADA
0045
0000
1100
4051	/ADM
0741
0000
1140
4675	/LAM
0741
0000
1200
4766	/MUL
0674
0000
1240
4700	/LDH
0450
0000
1300
5323	/STH
0450
0000
1340
5307	/SHD
0224
0000
1400
5345	/TAC
0157
0000
0003
5361	/TMA
0045
0000
0023
5124	/PDP
1120
0000
0002
5323	/STD
0224
0000
0416
4717	/LSW
1523
0000
0517
5255	/RSW
1523
0000
0516
4534	/IOB
0112
0000
0500
	EJECT
/SPECIAL CHARACTERS AND PSEUDO-INSTRUCTIONS
	*7400
/
	6167		/CHAIN
	0056
	1006
	XCHAIN
	6705		/LISTAPE
	1323
	0065
	OUTPUT
	6303		/EJECT
	0274
	1344
	PSUDO5		/PSEUDO OP 5
	6070		/ASMIFZ	(I HAD IT ASSIFZ ORGINALLY BUT THE PRUDES THOUGHT IT WAS TOO
	0752		/SUGGESTIVE! ! ! ! ! ! ! ! ! !)
	0354
	PSUDO1		/PSEUDO OP 1
	6070		/ASMIFN
	0752
	0370
	PSUDO2		/PSEUDO OP 2
	6070		/ASMIFM
	0752
	0353
	PSUDO3		/PSEUDO OP 3
	6070		/ASMSKP
	0764
	0647
	PSUDO7		/PSEUDO OP 7
	7300		/SAVSYM
	1501
	1652
	PSUDO6		/PSEUDO OP 6
	6347		/FIELD
	0305
	0224
	FLDUP
	7135		/PMODE
	1057
	0271
	PDP8MD
	6711	/LMODE
	1057
	0271
	LNKMOD
	7304		/SEGMNT
	0420
	1032
	BANKCH
	6713		/LODSYM
	0247
	1652
	PSUDO4		/PSEUDO OP 4
	0000	/AND
	0000
	0062
	3400
	7056	/OCTAL
	1345
	0674
	OCT
	6231	/DECIMAL
	0170
	0742
	DECIM
	7351	/TEXT
	1614
	0
	STRING
	7025	/NOLIST
	0705
	1323
	PLIST
	6705	/LIST
	1323
	0000
	DOLIST
	7121	/PAGE
	0410
	0
	PAGEC
	0000	/SEMICOLON
	0000
	0046
	0200
	0000	/EXCLAMATION POINT
	0000
	0055
	2200
	6000	/STAR
	0000
	0066
	ORGIC
	6000	/POINT
	0
	0072
	PERIOD
	6000	//
	0000
	0075
	THOU
	7411	/U
	0000
	0000
	UN
	0000	/COMMA
	0000
	0070
	0600
	0000	/=
	0000
	0050
	1400
	7702	/Z
	0
	0
	A+1
	6515	/I
	0
	0
	H
	0000	/-
	0000
	0071
	5200
	0000	/+
	0000
	0067
	4600
	0000	/SPACE
	0000
	0054
	5600
/
/
/
/
/
/
/
/
/
/
/
	EJECT
/
/
/
/
/
/
	FIELD	1		/THIS IS REALY IN 5000 OF FIELD 0.
/
/
/
/
/
/
	*5000
/
/
/
/
/
/
/
/
XXXX,	0
	TAD I	XBBLOCK
	AND	XL77
	DCA	XTHISBLOCK
	JMS	XRESET
	CLA CMA
	JMS	XPUT
	JMP	.-2
	JMS	XRESET
XLOOP1,	JMS	XGET
	JMP	XCER
	JMP	XOK1
	TAD	ITEM
	TAD	XM47
	SNA CLA
	JMP	XLOOP1
	TAD	ITEM
	TAD	XM40
	SNA CLA
	JMP	XLOOP1
	JMP	XCER
XOK1,	JMS	XGET
	JMP	XCER
	JMP	XCER
	JMP	XINTO1
XLOOP2,	JMS	XGET
	JMP	XCER
	JMP	XDONE1
XINTO1,	TAD	ITEM
	JMS I	XCON
	DCA I	XXXP
	ISZ	XXXP
	TAD	ITEM
	JMS	XPUT
	JMP	XLOOP2
	JMP	XCER
/
XDONE1,	CLA CMA
	JMS	XPUT
	NOP
	JMS	XGET
	JMP I	XN
	JMP	XCER
	DCA	EVAL
	DCA	ANY
	JMS I	EXPR1
	TAD	ANY
	SNA CLA
	JMP I	XN
	TAD	EVAL
	AND	XL77
	DCA	XTHISBLOCK
	JMP I	XN
/
/
/
/
/
/
XPUT,	0
	ISZ	17
	JMP	.+4
	CLA
	ISZ	XPUT
	JMP I	XPUT
	AND	XL77
	DCA	XGET
	ISZ	XHALF
	JMP	XRIGHT
	TAD	XGET
	CLL RTL
	RTL
	RTL
	DCA	XT
	JMP I	XPUT
/
XRIGHT,	CLA CMA
	DCA	XHALF
	TAD	XT
	TAD	XGET
	DCA I	16
	JMP I	XPUT
/
/
/
/
XRESET,	0
	CLA CMA
	DCA	XHALF
	TAD	XM9
	DCA	17
	TAD	XP
	DCA	16
	JMP I	XRESET
/
/
/
XGET,	0
	JMS I	XGETIN
	TAD	XM43
	SNA
	JMP I	XGET
	ISZ	XGET
	IAC
	SZA CLA
	ISZ	XGET
	JMP I	XGET
/
/
/
/
/
/
XCER,	TAD	XL6
	JMS I	ERR1
	JMS I	PASSEK
	JMS I	CURSKA
	JMS I	SCLEAR
	JMS I	LINENO
	JMP I	MON
/
XN,	XXN
XL6,	6
XL17,	17
XM40,	-40
XM9,	-9
XM47,	-47
XGETIN,	GETIN
XM43,	-43
XL77,	77
XBBLOCK,BBLOCK
XHALF,	0
XT,	0
XP,	.
XXN1,	0
XXN2,	0
XXN3,	0
XXN4,	0
XXXP,	XNM1
XCON,	CONVRT
/
/
/
/
/
XTHISBLOCK,	-1
	36
	346
	2
/
/
/
/
/
/
/
XXRET,	JMP I	XXXX
/
/
/
/
/
/
/
	PAGE
/
/
/
/
/
XXXR,	JMS I	XXGET
	SKP
XXN,	TAD	ITEM
	TAD	XXM43
	SZA CLA
	JMP	XXXR
/
	JMS I	XREAD
	XTHISBLOCK
	TAD	XL6777
	DCA	16
	TAD	XM100
	DCA	XXN
XXLOOP,	TAD	16
	CMA
	AND	XL7770
	CMA
	DCA	16
	TAD	XXP
	DCA	17
	TAD	XM4
	DCA	XXN+1
XXLP,	CDF	10
	TAD I	16
	CDF	0
	CIA
	TAD I	17
	SZA CLA
	JMP	XXY
	ISZ	XXN+1
	JMP	XXLP
	CDF	10
	TAD I	16
	DCA	XXN+2
	TAD I	16
	CDF	0
	SPA CLA
	JMP	XXY
	JMS I	PASSEK
	JMS I	CURSKA
	JMS I	SCLEAR
	JMS I	LINENO
	TAD	XXN+2
	DCA I	XXL
	TAD	XL7400
	DCA I	XX1
	DCA I	XX2
	TAD	XL4400
	DCA I	XX3
	DCA	MODE
	TAD I	XTH
	DCA I	XHT
	JMS I	XREAD
	LTAB
	JMS I	PASSEK
	JMP	XXFH
	TAD	XM26
	JMS I	SKIP
XXT,	TAD	XXMESS
	SNA
	JMP	XXFH
	JMS I	DECOUT
	ISZ	XXT
	JMP	XXT
/
/
XXMESS,	303
	310
	301
	311
	316
	311
	316
	307
/
	240
/
XNM1,	0
	0
	0
	0
	0
	0
	0
	0
	0
/
/
XXFH,	JMS I	TYCARI
	CLA CMA
	DCA	CURLIN
	JMS I	XBUFIN
	JMP I	.+1
	XXRET
/
/
/
/
/
/
/
XXY,	ISZ	XXN
	JMP	XXLOOP
	JMP I	.+1
	XCER
/
/
/
/
/
/
/
/
/
/
XTH,	XTHISBLOCK
XHT,	BBLOCK
XM26,	-26
XREAD,	READ
XL6777,	6777
XM100,	-100
XXM43,	-43
XL7770,	7770
XXP,	XP
XM4,	-4
XXL,	BUFINZ
XL7400,	7400
XL4400,	4400
XX1,	CHRC
XX2,	WDHALF
XX3,	PTBUFP
XBUFIN,	BUFIN
XXGET,	GETIN
/
/
/
/
/
/
/
/
/
/
/
/
/
/
/
	EJECT
/		M A J O R   T A P E   D EF I N I T I O N S
/
/
/
/
	FUDGE1=326-300
	FUDGE2=467-370
	SCRATCH=325-300		/DEFINES A SCRATCH AREA FOR SAVSYM?LODSYM
	BCHAIN=324-300
	BOOUT=450-370
/
/
/
/
/
	DIALUNIT=100
	DIALBINARY=111
/
/
/
/
	READ=7774
	WRITE=7775
/
/
/
/
/
/
/
/
/
	EJECT
/		E N D   A S S E M T H R E E ! ! ! ! ! ! !
/
/
/
/
/
/
/
/
/
	EJECT
/
/
/
/