Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50101/learns.lst
There are 2 other files named learns.lst in the archive. Click here to see a list.
SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 1
LEARNS.MAC 	THAT ARE USED OFTEN



					TITLE	SUBROUTINES
					SUBTTL	THAT ARE USED OFTEN

				;    THE CODE ON THIS FILE WILL BE OF VERY GENERAL, OFTEN USED
				; SUBROUTINES. THIS FILE WILL BE USED WITH "ACCUMU" AND OTHER
				; FILES THAT MIGHT REQUIRE THESE SUBROUTINES. MAYBE AT A LATER
				; DATE THIS CAN BE CODED WITH SWITCHES SO THAT ANY UN-NEEDED
				; SUBROUTINES CAN BE SPECIALIZED OUT.



				; #1

				;    GENERAL SUBROUTINE TO INPUT ONE CHARACTER,  (SEE P. 415)


	000000'	000000	000000	GETCHR:	0		;JSR HERE AND STORE PC
	000001'	377000	000023'	GETCNT:	SOSG	IBUF+2	;DECREMENT BYTE COUNT
	000002'	254000	000006'		JRST	GETBUF	;BUFFER IS EMPTY
	000003'	134100	000022'	GETNXT:	ILDB	2,IBUF+1	;GET NEXT CHARACTER FROM BUFFER
	000004'	326120	000000'		JUMPN	2,@GETCHR	;RETURN TO CALLER
	000005'	254000	000003'		JRST	GETNXT		;IGNORE NULL AND GET NEXT CHAR.
	000006'	056100	000000	GETBUF:	IN	2,		;CALL MONITOR TO REFILL BUFFER
	000007'	254000	000003'		JRST	GETNXT		;RETURN HERE WHEN NEXT BUFFER FULL
	000010'	254000	000011'		JRST	ENDTS7		;RETURN ONLY IF ERROR OR EOF
	000011'	063140	740000	ENDTS7:	STATZ	3,740000	;CHECK FOUR ERROR BITS FIRST
	000012'	254000	000014'		JRST	INERR		;WHERE TO GO WITH AN ERROR
	000013'	254000	000016'		JRST	ENDFIL		;WHERE TO GO WITH END OF FILE
	000014'	254200	000000	INERR:	HALT
	000015'	254020	000000'		JRST	@GETCHR
	000016'	201100	000032	ENDFIL:	MOVEI	2,32
	000017'	254020	000000'		JRST	@GETCHR		;WAS A HALT HERE

	000020'	254020	000000'		JRST	@GETCHR
	000021'			IBUF:	BLOCK	3		;INPUT BUFFER RING HEADER


					PAGE

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 2
LEARNS.MAC 	THAT ARE USED OFTEN






				; #2

				;   GENERAL SUBROUTINE TO OUT PUT ONE CHARACTER

	000024'	000000	000000	PUTCHR:	0		;JSR HERE AND STORE PC
	000025'	377000	000040'		SOSG	OBUF+2		;INCREMENT BYTE COUNT
	000026'	254000	000031'		JRST	PUTBUF		;NO MORE ROOM, OR 1ST ONE
	000027'	136140	000037'	PUTNXT:	IDPB	3,OBUF+1	;STORE THIS CHARACTER
	000030'	254020	000024'		JRST	@PUTCHR		;AND RETURN TO CALLER
	000031'	057140	000000	PUTBUF:	OUT	3,		;CALLMONITOR TO EMPTY THIS BUFFER
	000032'	254000	000027'		JRST	PUTNXT		;RETURN HERE WHEN BUFFER IS EMPTY
	000033'	254000	000034'		JRST	OUTERR		;RETURN HERE ONLY IF ERROR
	000034'	254200	000000	OUTERR:	HALT			;AND HALT, BUT YOU CAN CONTINUE
	000035'	254020	000024'		JRST	@PUTCHR		;IF YOU REALLY WANT TO
	000036'			OBUF:	BLOCK	3

					PAGE			;LISTING SKIPS TO HEAD OF FORM

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 3
LEARNS.MAC 	THAT ARE USED OFTEN




				;    THIS USES THE BUFFERED I/O TO PUT OUT A STRING OF 
				;CHARACTERS THAT TERMINATE WITH A NULL.

	000041'	000000	000000	PUTOUT:		0
	000042'	134140	000016		ILDB	3,16	;AC 16 HAS POINTER TO THE STRING
	000043'	322140	000003		JUMPE	3,+3	;JUMP TO CLOSE WHEN NULL COMES
	000044'	264000	000024'		JSR 	PUTCHR
	000045'	254000	000042'		JRST	.-3
	000046'	070140	000000		CLOSE	3,
	000047'	254020	000041'		JRST	@PUTOUT

					PAGE

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 4
LEARNS.MAC 	THAT ARE USED OFTEN



				;    THIS IS FOR USING BUFFERED I/O TO GET OUT A CARRIAGE
				;RETURN AND A LINE FEED.

	000050'	000000	000000	RETFEE:		0
	000051'	201140	000015		MOVEI	3,15
	000052'	264000	000024'		JSR	PUTCHR
	000053'	201140	000012		MOVEI	3,12
	000054'	264000	000024'		JSR	PUTCHR
	000055'	070140	000000		CLOSE	3,
	000056'	254020	000050'		JRST	@RETFEE

					PAGE

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 5
LEARNS.MAC 	THAT ARE USED OFTEN



	000057'	000000	000000	STARTS:		0
	000060'	047000	000000		CALLI
	000061'	041100	000000		INIT	2,
	000062'	646471	000000		SIXBIT	/TTY/
	000063'	000000	000021'		XWD	0,IBUF
	000064'	254000	000061'		JRST	.-3
	000065'	041140	000000		INIT	3,
	000066'	646471	000000		SIXBIT	/TTY/
	000067'	000036'	000000		XWD	OBUF,
	000070'	254000	000065'		JRST	.-3
	000071'	254020	000057'		JRST	@STARTS

					PAGE

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 6
LEARNS.MAC 	THAT ARE USED OFTEN







				;    THIS PROGRAM WILL ACCEPT AN OPCODE, ACCUMULATOR CONTENTS, AND
				; EFFECTIVE ADDRESS CONTENTS FROM THE TELETYPE. THEY WILL BE PUT 
				; TOGETHER AND EXECUTED. THE RESULTANT CONTENTS OF THE ACCUMULATOR
				; AND EFFECTIVE ADDRESS WILL THEN BE TYPE OUT ON TO THE TELETYPE.
				;    A TYPED RUBOUT WILL ELIMINATE THAT LINE OF INPUT, AND THE WHOLE
				; LINE MUST BE RETYPED.

	000072'	047000	000000	STARTI:	CALLI
	000073'	041100	000000		INIT	2,
	000074'	646471	000000		SIXBIT	/TTY/
	000075'	000000	000021'		XWD	0,IBUF
	000076'	254000	000073'		JRST	.-3
	000077'	041140	000000		INIT	3,
	000100'	646471	000000		SIXBIT	/TTY/
	000101'	000036'	000000		XWD	OBUF,
	000102'	254000	000077'		JRST	.-3
	000103'	601000	000000	CHANGI:	TLN			;THIS GETS CHANGED TO A  JRST
	000104'	200000	002574'		MOVE	[JRST .+4]
	000105'	202000	000103'		MOVEM	CHANGI
	000106'	051140	000366'		TTCALL	3,MESS1I	;INSTRUCTIONS
	000107'	051140	000512'		TTCALL	3,MESS2I	;MORE INSTRUCTIONS

					PAGE

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 7
LEARNS.MAC 	THAT ARE USED OFTEN


				;    THE OPCODE WILL BE DONE FIRST. AFTER ACCEPTING IT, A TABLE
				; LOOK UP IS PERFORMED TO SEE IF IT IS ACCETABLE, AND TO GET THE
				; MACHINE CODE.

	000110'	200740	002575'	OPCODI:	MOVE	17,[MOVE 13,16]

	000111'	051140	000645'		TTCALL	3,MESS3I	;   "OPCODE"
	000112'	070100	000000		CLOSE	2,
	000113'	201200	000000		MOVEI	4,0		;0 OUT COUNTER
	000114'	202200	000756'		MOVEM	4,UPCODI	;AND OPCODE WORD
	000115'	202200	000757'		MOVEM	4,UPCODI+1
	000116'	200000	000754'		MOVE	PTR1		;SET UP POINTER FOR OPCODE
	000117'	202000	000755'		MOVEM	POINT1
	000120'	264000	000000'	MORE:	JSR	GETCHR
	000121'	302100	000015		CAIE	2,15		;IS IT A CARRIAGE RETURN
	000122'	254000	000134'		JRST	COMEIN		;GO TO  "COMEIN" IF NOT
	000123'	200240	000756'		MOVE	5,UPCODI
	000124'	362200	000144'		SOJE	4,ONECHR	;JUMP TO ONE OF THESE WHEN 4 = 0
	000125'	362200	000147'		SOJE	4,TWOCHR
	000126'	362200	000155'		SOJE	4,TRECHR
	000127'	362200	000167'		SOJE	4,FORCHR
	000130'	362200	000177'		SOJE	4,FIVCHR
	000131'	362200	000207'		SOJE	4,SIXCHR
	000132'	051140	000664'		TTCALL	3,ERROR1	;SHOULD NEVER FALL THROUGH
	000133'	254000	000110'		JRST	OPCODI

	000134'	302100	000077	COMEIN:	CAIE	2,77		;IS IT A  RUBOUT
	000135'	254000	000137'		JRST	.+2
	000136'	254000	000110'		JRST	OPCODI		;RUBOUT WANTS LINE REPEATED
	000137'	136100	000755'		IDPB	2,POINT1	;MOVE CHARACTER TO  "UPCODI"
	000140'	271200	000001		ADDI	4,1		;INCREMENT COUNTER
	000141'	302200	000007		CAIE	4,7		;AN ERROR IF IT IS 7
	000142'	254000	000120'		JRST	MORE		;GET ANOTHER CHARACTER
	000143'	254000	000132'		JRST	COMEIN-2	;ERROR MESSAGE TIME








				;    OPCODE LIST SCANNING IS DONE HERE, AND THE LIST USED DEPENDS
				; ON THE NUMBER OF CHARACTERS IN THE OPCODE.


	000144'	051140	000701'	ONECHR:	TTCALL	3,ERROR2	;NO 1 CHARACTER OPCODES
	000145'	254000	000110'		JRST	OPCODI
	000146'	476440	000000	ORCDE:	ASCII	"OR"

	000147'	312240	000146'	TWOCHR:	CAME	5,ORCDE	;ONLY ONE OPCODE WITH TWO CHRS.
	000150'	254000	000153'		JRST	.+3		;THIS IS NOT IT

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 7-1
LEARNS.MAC 	THAT ARE USED OFTEN

	000151'	201300	000434		MOVEI	6,434		;OCTAL CODE FOR THE   OR
	000152'	254000	000362'		JRST	MACHCD		;PUT CODE INTO INSTRUCTION
	000153'	051140	000710'		TTCALL	3,ERROR3
	000154'	254000	000110'		JRST	OPCODI

	000155'	200344	001237'	TRECHR:	MOVE	7,TABL3(4)	;BRING CODE FROM THE LIST
	000156'	312340	000756'		CAME	7,UPCODI	;COMPARE WITH INPUTED CODE
	000157'	254000	000162'		JRST	NOTEQ3
	000160'	200304	001577'		MOVE	6,TABL32(4)	;MOVE MACHINE CODE TO 6
	000161'	254000	000362'		JRST	MACHCD		;PUT IT INTO INSTRUCTION
	000162'	271200	000001	NOTEQ3:	ADDI	4,1		;INCREMENT THE INDEX
	000163'	326340	000155'		JUMPN	7,TRECHR	;RETURN IF NOT OF TABLE
	000164'	264000	000252'		JSR	PDP10
	000165'	051140	000721'		TTCALL	3,ERROR4	;SEND OUT ERROR MESSAGE
	000166'	254000	000110'		JRST	OPCODI

	000167'	200344	001331'	FORCHR:	MOVE	7,TABL4(4)	;BRING OPCODE FROMLIST
	000170'	312340	000756'		CAME	7,UPCODI	;COMPARE WITH INPUTED CODE
	000171'	254000	000174'		JRST	NOTEQ4
	000172'	200304	001671'		MOVE	6,TABL42(4)	;MOVE MACHINE CODE TO 6
	000173'	254000	000362'		JRST	MACHCD		;PUT IT INTO THE INSTRUCTION
	000174'	271200	000001	NOTEQ4:	ADDI	4,1		;INCREMENT THE INDEX
	000175'	326340	000167'		JUMPN	7,FORCHR	;CHECK FOR END OF TABLE
	000176'	254000	000164'		JRST	NOTEQ3+2	;SEND OUT ERROR MESSAGE

	000177'	200344	002140'	FIVCHR:	MOVE	7,TABL5(4)	;    SAME AS  4
	000200'	312340	000756'		CAME	7,UPCODI
	000201'	254000	000204'		JRST	NOTEQ5
	000202'	200304	002326'		MOVE	6,TABL52(4)
	000203'	254000	000362'		JRST	MACHCD
	000204'	271200	000001	NOTEQ5:	ADDI	4,1
	000205'	326340	000177'		JUMPN	7,FIVCHR
	000206'	254000	000164'		JRST	NOTEQ3+2

	000207'	200344	000332'	SIXCHR:	MOVE	7,TABL6(4)	;BRING OPCODE FROM LIST
	000210'	312340	000756'		CAME	7,UPCODI	;COMPARE WITH INPUTED CODE
	000211'	254000	000214'		JRST	NOTEQ6		;FIRST 5 CHARS. NOT EQUAL
	000212'	200304	000346'		MOVE	6,TABL62(4)	;GET BASIC MACHINE CODE
	000213'	254000	000234'		JRST	CHECK6		;GO LOOK AT 6TH CHARACTER
	000214'	271200	000001	NOTEQ6:	ADDI	4,1		;INCREMENT THE INDEX
	000215'	326340	000207'		JUMPN	7,SIXCHR	;END OF TABLE CHECK
	000216'	271200	000000		ADDI	4,0		;NOW TRY JUMPG/L AND SKIPG/L
	000217'	200344	000332'		MOVE	7,TABL6(4)
	000220'	312340	000756'		CAME	7,UPCODI
	000221'	254000	000224'		JRST	NOTE62		;NOT EQUAL
	000222'	200304	000346'		MOVE	6,TABL62(4)	;YES, GET MACHINE CODE
	000223'	254000	000227'		JRST	CHEK62	;LOOK FOR  E  ON END
	000224'	271200	000001	NOTE62:	ADDI	4,1		;INCREMENT THE INDEX
	000225'	326340	000217'		JUMPN	7,NOTE62-5	;CHECK END OF TABLE
	000226'	254000	000164'		JRST	NOTEQ3+2	;ERROR TIME
	000227'	200340	000757'	CHEK62:	MOVE	7,UPCODI+1	;MOVE THE 6TH CHARACTER
	000230'	242340	777743		LSH	7,-^D29		;ROTATE TO LOW ORDER
	000231'	302340	000105		CAIE	7,"E"		;IS IT AN   E

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 7-2
LEARNS.MAC 	THAT ARE USED OFTEN

	000232'	254000	000164'		JRST	NOTEQ3+2	;NO, SO THATS AN ERROR

	000233'	254000	000362'		JRST	MACHCD

	000234'	200340	000757'	CHECK6:	MOVE	7,UPCODI+1	;NOW MOVE DOWN THE 6TH CHAR.
	000235'	242340	777743		LSH	7,-^D29		;ROTATE TO LOW ORDER BITS
	000236'	302340	000111		CAIE	7,"I"		;IS IT AN   I
	000237'	254000	000242'		JRST	.+3		;NO
	000240'	270300	000327'		ADD	6,ONEFRI	;YES, ADD 1 TO MACHINE CODE
	000241'	254000	000362'		JRST	MACHCD
	000242'	302340	000115		CAIE	7,"M"		;IS IT AN   M
	000243'	254000	000246'		JRST	.+3		;NO
	000244'	270300	000330'		ADD	6,TWOFRM	;YES, ADD 2
	000245'	254000	000362'		JRST	MACHCD
	000246'	302340	000102		CAIE	7,"B"		;IS IT A   B
	000247'	254000	000164'		JRST	NOTEQ3+2	;NO SO AN ERROR
	000250'	270300	000331'		ADD	6,THREEB	;YES ADD 3
	000251'	254000	000362'		JRST	MACHCD
	000252'	000000	000000	PDP10:	0
	000253'	403200	000006		SETZB	4,6
	000254'	200240	000271'		MOVE	5,IOXWD
	000255'	137240	002576'		DPB	5,[POINT 18,MESSSW,35]
	000256'	200244	002514'		MOVE	5,PDPIO(4)
	000257'	312240	000756'		CAME	5,UPCODI
	000260'	254000	000263'		JRST	NOPDP
	000261'	051140	000276'	MESSSW:	TTCALL	3,IOMESS
	000262'	254020	000252'		JRST	@PDP10
	000263'	271200	000001	NOPDP:	ADDI	4,1
	000264'	326240	000256'		JUMPN	5,MESSSW-3
	000265'	271300	000001		ADDI	6,1
	000266'	200246	000271'		MOVE	5,IOXWD(6)
	000267'	322260	000252'		JUMPE	5,@PDP10
	000270'	254000	000255'		JRST	PDP10+3

	000271'	000000	000276'	IOXWD:	XWD	0,IOMESS
	000272'	000000	000304'		XWD	0,UUOMES
	000273'	000000	000310'		XWD	0,BYTEME
	000274'	000000	000317'		XWD	0,PUSHME
	000275'	000000	000000			0

	000276'			IOMESS:	ASCIZ	/
	000276'	064252	042240	PDP-10 IO INSTRUCTION,BUT/
	000277'	265426	020222
	000300'	475011	147246
	000301'	522452	541650
	000302'	446371	626204
	000303'	526500	000000
	000304'			UUOMES:	ASCIZ	/
	000304'	064252	042240	PDP-10 UUO, BUT/
	000305'	265426	020252
	000306'	526365	420204
	000307'	526500	000000
	000310'			BYTEME:	ASCIZ	/

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 7-3
LEARNS.MAC 	THAT ARE USED OFTEN

	000310'	064252	042240	PDP-10 BYTE INSTRUCTION, BUT/
	000311'	265426	020204
	000312'	546510	520222
	000313'	472472	451252
	000314'	416511	147634
	000315'	261010	252650
	000316'	000000	000000
	000317'			PUSHME:	ASCIZ	/
	000317'	064252	042240	PDP-10 PUSHDOWN LIST INSTRUCTION, BUT/
	000320'	265426	020240
	000321'	526471	042236
	000322'	536344	046222
	000323'	516504	044634
	000324'	516512	252606
	000325'	522231	747130
	000326'	202052	552000

	000327'	000000	000001	ONEFRI:	1
	000330'	000000	000002	TWOFRM:	2
	000331'	000000	000003	THREEB:	3

	000332'	406350	441602	TABL6:	ASCII	"ANDCA"
	000333'	406350	441604		ASCII	"ANDCB"
	000334'	406350	441632		ASCII	"ANDCM"
	000335'	416310	540644		ASCII	"CLEAR"
	000336'	516132	441602		ASCII	"SETCA"
	000337'	516132	441632		ASCII	"SETCM"
	000340'	000000	000000			0
	000341'	452531	550216		ASCII	"JUMPG"
	000342'	452531	550230		ASCII	"JUMPL"
	000343'	516271	150216		ASCII	"SKIPG"
	000344'	516271	150230		ASCII	"SKIPL"
	000345'	000000	000000			0

	000346'	000000	000410	TABL62:	410
	000347'	000000	000440		440
	000350'	000000	000420		420
	000351'	000000	000400		400
	000352'	000000	000450		450
	000353'	000000	000460		460
	000354'	000000	000000		0
	000355'	000000	000325		325
	000356'	000000	000323		323
	000357'	000000	000335		335
	000360'	000000	000333		333
	000361'	000000	000000		0


	000362'	200340	002577'	MACHCD:	MOVE	7,[POINT 9,17,8]
	000363'	137300	000007		DPB	6,7		;DEPOSIT MACHINE CODE INTO INSTR.
	000364'	202740	001110'		MOVEM	17,THIS		;MOVE IT TO EXECUTABLE POSITION
	000365'	254000	000773'		JRST	ACCUME		;GO GET ACCUMULATOR CONTENTS


SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 7-4
LEARNS.MAC 	THAT ARE USED OFTEN

					PAGE

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8
LEARNS.MAC 	THAT ARE USED OFTEN



				;		C O N S T A N T S

	000366'			MESS1I:	ASCIZ	/

	000366'	064241	505100	    YOU ARE NOW RUNNING A LEARNING PROGRAM THAT WILL ALLOW YOU
	000367'	201004	054636
	000370'	525010	151212
	000371'	202351	753500
	000372'	512531	647222
	000373'	472164	040500
	000374'	462130	151234
	000375'	446350	720240
	000376'	512370	751202
	000377'	465012	444202
	000400'	521012	744630
	000401'	461010	146230
	000402'	476564	054636
	000403'	524321	220250	 TO SELECT AN OPCODE, ACCUMULATOR CONTENTS, AND THE EFFECTIVE
	000404'	475012	342630
	000405'	426072	420202
	000406'	471011	750206
	000407'	476110	526100
	000410'	406070	352632
	000411'	526310	152236
	000412'	511010	347634
	000413'	522131	652246
	000414'	261010	147210
	000415'	202511	042500
	000416'	426150	642606
	000417'	522232	642432
	000420'	051010	142210	 ADDRESS CONTENTS. THIS OPCODE WILL THEN BE EXECUTED, USING THE
	000421'	512132	351500
	000422'	416371	652212
	000423'	472512	327100
	000424'	522211	151500
	000425'	476410	347610
	000426'	425012	744630
	000427'	461012	444212
	000430'	471010	242500
	000431'	426610	541652
	000432'	522130	426100
	000433'	526471	147216
	000434'	202511	042432
	000435'	051010	347634	 CONTENTS THAT YOU SELECTED, AND THE RESULTING CONTENTS OF THE
	000436'	522131	652246
	000437'	202511	040650
	000440'	202631	752500
	000441'	516131	442606
	000442'	522130	426100
	000443'	406350	420250
	000444'	442124	051212

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-1
LEARNS.MAC 	THAT ARE USED OFTEN

	000445'	516531	452222
	000446'	472164	041636
	000447'	472510	547250
	000450'	515011	743100
	000451'	522210	506424	 ACCUMULATOR AND EFFECTIVE ADDRESS WILL BE TYPED ONTO YOUR 
	000452'	202030	341652
	000453'	466531	440650
	000454'	476444	040634
	000455'	421010	543214
	000456'	426072	444654
	000457'	425010	142210
	000460'	512132	351500
	000461'	536231	446100
	000462'	412124	052262
	000463'	502130	420236
	000464'	472511	720262
	000465'	476532	220032
	000466'	051012	442630	 TELETYPE SO YOU CAN SEE EXACTLY HOW THE CONTENTS ARE AFFECTED
	000467'	426513	150212
	000470'	202471	720262
	000471'	476524	041602
	000472'	471012	342612
	000473'	202133	040606
	000474'	522313	120220
	000475'	476564	052220
	000476'	425010	347634
	000477'	522131	652246
	000500'	202032	242500
	000501'	406150	642606
	000502'	522130	406424	 BY THAT PARTICULAR OPCODE.
	000503'	202053	120250
	000504'	442032	420240
	000505'	406452	444606
	000506'	526310	151100
	000507'	476410	347610
	000510'	425341	505032
	000511'	050000	000000	/
	000512'	201004	020100	MESS2I:	ASCIZ	/      THERE ARE SOME RULES AND LIMITATIONS THOUGH:
	000513'	202511	042644
	000514'	425010	151212
	000515'	202471	746612
	000516'	202452	546212
	000517'	515010	147210
	000520'	202311	146622
	000521'	522032	444636
	000522'	472464	052220
	000523'	476530	744164
	000524'	064244	020022	  		1.  CONTENTS MUST BE OCTAL NUMBERS
	000525'	045425	620100
	000526'	416371	652212
	000527'	472512	320232
	000530'	526472	420204
	000531'	425011	741650

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-2
LEARNS.MAC 	THAT ARE USED OFTEN

	000532'	406304	047252
	000533'	466050	551246
	000534'	064244	020022	  		2.  THEY ARE RIGHT JUSTIFIED IF < 12
	000535'	045445	620100
	000536'	522210	554500
	000537'	406450	520244
	000540'	446171	052100
	000541'	452532	352222
	000542'	432230	542100
	000543'	446144	036100
	000544'	305441	505100	  		3.  ALL 12 OCTAL CHARACTERS ARE TYPED OUT
	000545'	200221	131534
	000546'	201010	146230
	000547'	201426	220236
	000550'	416510	146100
	000551'	416210	151202
	000552'	416510	551246
	000553'	202032	242500
	000554'	522632	042610
	000555'	202372	552032
	000556'	051004	004422	  		4.  THE AC USED IS 13, AND THE E IS 16
	000557'	321344	020250
	000560'	442124	040606
	000561'	202532	342610
	000562'	202232	320142
	000563'	315304	040634
	000564'	421012	444212
	000565'	202124	044646
	000566'	201426	606424	  		5.  THESE INSTRUCTIONS ARE UNAVAILABLE:
	000567'	201001	104552
	000570'	271004	052220
	000571'	426470	520222
	000572'	472472	451252
	000573'	416511	147634
	000574'	515010	151212
	000575'	202531	640654
	000576'	406231	440604
	000577'	462127	206424				BYTE MANIPULATION ,
	000600'	044221	141262
	000601'	522124	046602
	000602'	472232	052630
	000603'	406511	147634
	000604'	201301	505022				INPUT-OUTPUT ,
	000605'	044231	147240
	000606'	526505	547652
	000607'	522412	552100
	000610'	260321	204422				PUSHDOWN LIST ,
	000611'	046412	551620
	000612'	422372	747100
	000613'	462232	352100
	000614'	260321	204422				UUO MNEMONICS ,
	000615'	046532	547500
	000616'	466350	546636

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-3
LEARNS.MAC 	THAT ARE USED OFTEN

	000617'	472230	351500
	000620'	260321	204422				EXECUTE,JRA, AND BLT , AND
	000621'	046133	042606
	000622'	526510	526224
	000623'	512025	420202
	000624'	472104	041230
	000625'	521005	420202
	000626'	472101	505022				DOUBLE PRECISION FLOATING POINT
	000627'	044230	447652
	000630'	412310	520240
	000631'	512130	344646
	000632'	446371	620214
	000633'	462370	152222
	000634'	472164	050236
	000635'	446352	406424				DOESN'T GIVE BOTH WORDS .
	000636'	044221	142236
	000637'	426471	623650
	000640'	202171	153212
	000641'	202051	752220
	000642'	202571	751210
	000643'	515005	606424
	000644'	064240	000000	/
	000645'			MESS3I:	ASCIZ	/

	000645'	064241	505022		OPCODE: /
	000646'	476410	347610
	000647'	425644	000000
	000650'			MESS6I:	ASCIZ	/

	000650'	064241	505250	THE INSTRUCTION DID SKIP.
	000651'	442124	044634
	000652'	516512	252606
	000653'	522231	747100
	000654'	422230	420246
	000655'	456232	027032

	000656'	050321	200000	/
	000657'			MESS4I:	ASCIZ	/
	000657'	064241	120100		    AC: /
	000660'	201010	141564
	000661'	200000	000000
	000662'	045004	020100	MESS5I:	ASCIZ	/	     E: /
	000663'	202127	220000
	000664'			ERROR1:	ASCIZ	/

	000664'	064241	505256	WE DO NOT SUPPORT OPCODES WITH MORE THAN 6 CHARACTERS.
	000665'	425010	447500
	000666'	472372	420246
	000667'	526412	047644
	000670'	521011	750206
	000671'	476110	551500
	000672'	536232	444100
	000673'	466372	242500

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-4
LEARNS.MAC 	THAT ARE USED OFTEN

	000674'	522210	147100
	000675'	331010	344202
	000676'	512030	352212
	000677'	512465	606424

	000700'	064241	505000	/
	000701'			ERROR2:	ASCIZ	/

	000701'	064241	505234	NO 1 CHARACTER OPCODES.
	000702'	475006	120206
	000703'	442032	240606
	000704'	522132	220236
	000705'	502071	742212
	000706'	515341	505032
	000707'	050000	000000	/
	000710'			ERROR3:	ASCIZ	/

	000710'	064241	505236	OR   IS THE ONLY 2 CHARACTER OPCODE.
	000711'	511004	020222
	000712'	515012	444212
	000713'	202371	646262
	000714'	201444	041620
	000715'	406450	141650
	000716'	426444	047640
	000717'	416370	442534

	000720'	064241	505000	/
	000721'			ERROR4:	ASCIZ	/
	000721'	064252	444202	THAT OPCODE IS INVALID FOR THIS PROGRAM.
	000722'	521011	750206
	000723'	476110	520222
	000724'	515011	147254
	000725'	406311	142100
	000726'	432372	220250
	000727'	442232	320240
	000730'	512370	751202
	000731'	465341	505032
	000732'	050000	000000	/
	000733'			ERROR5:	ASCIZ	/

	000733'	064241	505250	THAT IS TOO MANY CHARACTERS.
	000734'	442032	420222
	000735'	515012	447636
	000736'	202330	147262
	000737'	202071	040644
	000740'	406072	442644
	000741'	515341	505032
	000742'	050000	000000	/
	000743'			ERROR6:	ASCIZ	/

	000743'	064241	505240	PLEASE SUBMIT ONLY OCTAL CHARACTERS.
	000744'	462130	151612
	000745'	202472	541232

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-5
LEARNS.MAC 	THAT ARE USED OFTEN

	000746'	446504	047634
	000747'	462624	047606
	000750'	522031	420206
	000751'	442032	240606
	000752'	522132	251534

	000753'	064241	505000	/

	000754'	440700	000756'	PTR1:	POINT	7,UPCODI
	000755'	440700	000756'	POINT1:	POINT	7,UPCODI
	000756'			UPCODI:	BLOCK	2
	000760'	440300	000014	PTR2:	POINT	3,14
	000761'	440300	000014	POINT2:	POINT	3,14
	000762'	440300	000013	PTR3:	POINT	3,13
	000763'	440300	000016	PTR4:	POINT	3,16
	000764'	440300	000013	POINT3:	POINT	3,13
	000765'			FORNOW:	ASCIZ	/

	000765'	064241	505222	IT WORKED...........
	000766'	521012	747644
	000767'	456130	427134
	000770'	271345	627134
	000771'	271345	627032

	000772'	050321	200000	/











	000773'	051140	000657'	ACCUME:	TTCALL	3,MESS4I
	000774'	264000	001050'		JSR	GODOIT
	000775'	200540	000014		MOVE	13,14
	000776'	264000	001150'		JSR	ISJUMP		;GO LOOK AT JUMP INSTRUCTIONS
	000777'	051140	000662'		TTCALL	3,MESS5I
	001000'	264000	001050'		JSR	GODOIT
	001001'	200700	000014		MOVE	16,14
	001002'	400200	000000		SETZ	4,		;ZERO OUT COUNTER
	001003'	200240	000756'	LOOKIT:	MOVE	5,UPCODI	;GET THE OPCODE
	001004'	404240	001031'		AND	5,MASK		;JUST LOOK AT 1ST 3 CHARS.
	001005'	312244	001032'		CAME	5,IMMEDI(4)
	001006'	254000	001011'		JRST	.+3		;NOT EQUAL
	001007'	137700	002600'	DROPIT:	DPB	16,[POINT 18,THIS,35]
	001010'	254000	001110'		JRST	THIS		;GO DO IT NOW
	001011'	200244	001032'		MOVE	5,IMMEDI(4)	;TO CHECK OF LIST
	001012'	271200	000001		ADDI	4,1		;INCREMENT COUNTER
	001013'	326240	001003'		JUMPN	5,LOOKIT	;RETURN IF IT WAS NOT A 0

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-6
LEARNS.MAC 	THAT ARE USED OFTEN

	001014'	200240	000756'		MOVE	5,UPCODI
	001015'	405240	077400		ANDI	5,077400	;GET 4TH CHARACTER
	001016'	306240	044400		CAIN	5,044400	;IS IT AN I FOR IMMEDIATE
	001017'	254000	001007'		JRST	DROPIT		;YES IT IS AN  I
	001020'	200240	000756'		MOVE	5,UPCODI
	001021'	405240	000376		ANDI	5,376		;GET THE 5TH CHARACTER
	001022'	306240	000222		CAIN	5,222		;IS THAT AN I
	001023'	254000	001007'		JRST	DROPIT		;YES IT IS AN  I
	001024'	200240	000757'		MOVE	5,UPCODI+1
	001025'	242240	777743		LSH	5,-^D29
	001026'	302240	000111		CAIE	5,"I"
	001027'	254000	001110'		JRST	THIS
	001030'	254000	001007'		JRST	DROPIT

	001031'	777777	700000	MASK:	777777700000		;FOR THE 3 CHARS.
	001032'	462471	000000	IMMEDI:	ASCII	"LSH"
	001033'	522451	600000		ASCII	"TRN"
	001034'	522453	200000		ASCII	"TRZ"
	001035'	522450	300000		ASCII	"TRC"
	001036'	522451	700000		ASCII	"TRO"
	001037'	522311	600000		ASCII	"TLN"
	001040'	522313	200000		ASCII	"TLZ"
	001041'	522310	300000		ASCII	"TLC"
	001042'	522311	700000		ASCII	"TLO"
	001043'	512372	400000		ASCII	"ROT"
	001044'	406471	000000		ASCII	"ASH"
	001045'	476451	100000		ASCII	"ORI"
	001046'	416031	100000		ASCII	"CAI"
	001047'	000000	000000			0


	001050'	000000	000000	GODOIT:	0
	001051'	070100	000000		CLOSE	2,
	001052'	200000	000760'		MOVE	PTR2
	001053'	202000	000761'		MOVEM	POINT2
	001054'	201200	000000		MOVEI	4,0
	001055'	201600	000000		MOVEI	14,0
	001056'	264000	000000'	CHRLUP:	JSR	GETCHR
	001057'	302100	000015		CAIE	2,15		;CARRIAGE RETRN
	001060'	254000	001067'		JRST	STILL
	001061'	302200	000014	GOT12:	CAIE	4,14		;12 CHARACTERS ?
	001062'	254000	001064'		JRST	.+2
	001063'	254020	001050'		JRST	@GODOIT		;RETURN WITH 12
	001064'	242600	777775		LSH	14,-3		;SHIFT 1 TO THE RIGHT
	001065'	271200	000001		ADDI	4,1		;INCREMENT COUNTER
	001066'	254000	001061'		JRST	GOT12		;RE-CHECK

	001067'	302100	000077	STILL:	CAIE	2,77		;RUBOUT  ?
	001070'	254000	001074'		JRST	.+4		;    NO
	001071'	200600	001050'		MOVE	14,GODOIT	;  YES IT IS
	001072'	275600	000002		SUBI	14,2
	001073'	254020	000014		JRST	@14		;RETURN TO THE TTCALL
	001074'	301100	000060		CAIL	2,60		;SKIP IF LESS THAN DECIMAL 0

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-7
LEARNS.MAC 	THAT ARE USED OFTEN

	001075'	303100	000067		CAILE	2,67		;SKIP IF LESS OR EQUAL
	001076'	254000	001106'		JRST	BOBOO		;ITS NON OCTAL
	001077'	275100	000060		SUBI	2,60		;DE-ASCII-IZE
	001100'	136100	000761'		IDPB	2,POINT2	;PUT TO AC14
	001101'	271200	000001		ADDI	4,1
	001102'	302200	000015		CAIE	4,15		;IS THAT 13 ?
	001103'	254000	001056'		JRST	CHRLUP		;NO, GET SOME MORE
	001104'	051140	000733'		TTCALL	3,ERROR5
	001105'	254000	001071'		JRST	STILL+2
	001106'	051140	000743'	BOBOO:	TTCALL	3,ERROR6
	001107'	254000	001071'		JRST	STILL+2

				;  HERE IS WHERE IT GETS EXECUTED.

	001110'	200540	000016	THIS:	MOVE	13,16		;THIS IS THE INSTRUCTION
	001111'	254000	001113'		JRST	.+2
	001112'	051140	000650'		TTCALL	3,MESS6I	;IF IT  SKIPS PRINT MESSAGE
	001113'	051140	000657'		TTCALL	3,MESS4I	;JUST SENDING OUT RESULTS
	001114'	200000	000762'		MOVE	PTR3
	001115'	202000	000764'		MOVEM	POINT3		;BRING OUT THE AC
	001116'	264000	001131'		JSR	ACANDE
	001117'	200200	001222'		MOVE	4,FLAG
	001120'	342200	001122'		AOJE	4,.+2		;JUMPS IF =0 ,WAS  -1
	001121'	254000	001124'		JRST	.+3
	001122'	402000	001222'		SETZM	FLAG		;SET FLAG BACK TO 0
	001123'	254000	000110'		JRST	OPCODI		;EXIT WITHOUT PRINTING OUT E CONTENTS
	001124'	051140	000662'		TTCALL	3,MESS5I
	001125'	200000	000763'		MOVE	PTR4
	001126'	202000	000764'		MOVEM	POINT3		;BRING OUT THE  E
	001127'	264000	001131'		JSR	ACANDE
	001130'	254000	000110'		JRST	OPCODI

	001131'	000000	000000	ACANDE:	0
	001132'	400200	000000		SETZ	4,
	001133'	400140	000000		SETZ	3,
	001134'	134140	000764'		ILDB	3,POINT3
	001135'	271140	000060		ADDI	3,60
	001136'	264000	000024'		JSR	PUTCHR
	001137'	271200	000001		ADDI	4,1
	001140'	302200	000014		CAIE	4,14		;IS THAT ALL 12
	001141'	254000	001133'		JRST	ACANDE+2
	001142'	201140	000015		MOVEI	3,15
	001143'	264000	000024'		JSR	PUTCHR
	001144'	201140	000012		MOVEI	3,12
	001145'	264000	000024'		JSR	PUTCHR		;THAT FINISHES OFF WITH RETURN FEED
	001146'	070140	000000		CLOSE	3,
	001147'	254020	001131'		JRST	@ACANDE







SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-8
LEARNS.MAC 	THAT ARE USED OFTEN


	001150'	000000	000000	ISJUMP:	0			;FOR A  JSR
	001151'	400200	000000		SETZ	4,		;ZERO OUT COUNTER
	001152'	200240	000756'		MOVE	5,UPCODI			;MOVE IN THE OPCODE
	001153'	404240	001031'		AND	5,MASK		;GET 1ST 3 CHARACTERS
	001154'	312244	001225'		CAME	5,JUMPIS(4)	;COMPARE WITH LIST
	001155'	254000	001162'		JRST	NOTYET
	001156'	200200	002601'		MOVE	4,[XWD 0,JUMPED]	;SET
	001157'	137200	002600'		DPB	4,[POINT 18,THIS,35]	;OPERAND TO ADDR
	001160'	476000	001222'		SETOM	FLAG		;SET FLAG FOR  E SUPPRESSION
	001161'	254000	001110'		JRST	THIS
	001162'	271200	000001	NOTYET:	ADDI	4,1		;INCREMENT THE COUNTER
	001163'	200244	001225'		MOVE	5,JUMPIS(4)
	001164'	326240	001152'		JUMPN	5,ISJUMP+2	;CHECK OF LIST
	001165'	200240	000756'		MOVE	5,UPCODI

	001166'	312240	001224'		CAME	5,JSRCDE	;IS IT A JSR
	001167'	254000	001172'		JRST	.+3		;NO IT ISNT
	001170'	200740	002602'	SETJMP:	MOVE	17,[JRST JUMPE1]	;JSR JUMPS TO E+1
	001171'	254000	001160'		JRST	NOTYET-2		;GO SET THE FLAG
	001172'	312240	001223'		CAME	5,JSACDE	;IS IT A JSA
	001173'	254020	001150'		JRST	@ISJUMP		;NO, SO RETURN
	001174'	254000	001170'		JRST	SETJMP		;YES, SO EXIT AS JSR

	001175'	051140	001202'	JUMPED:	TTCALL	3,MESSJP	;DID JUMP MESSAGE
	001176'	254000	001113'		JRST	THIS+3
	001177'	051140	001211'	JUMPE1:	TTCALL	3,MESSE1	;JUMPED TO E+1 MESSAGE
	001200'	402000	001222'		SETZM	FLAG		;CLEAR FLAG SO E IS PRINTED
	001201'	254000	001113'		JRST	THIS+3

	001202'			MESSJP:	ASCIZ	/

	001202'	064241	505250	THAT INSTRUCTION DID JUMP.
	001203'	442032	420222
	001204'	472472	451252
	001205'	416511	147634
	001206'	202111	142100
	001207'	452531	550134

	001210'	064241	505000	/
	001211'			MESSE1:	ASCIZ	/

	001211'	064241	505250	THAT INSTRUCTION JUMPED TO E+1 .
	001212'	442032	420222
	001213'	472472	451252
	001214'	416511	147634
	001215'	202252	546640
	001216'	426104	052236
	001217'	202125	330500

	001220'	270321	206424	/
	001221'	000000	000000
	001222'	000000	000000	FLAG:	0

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-9
LEARNS.MAC 	THAT ARE USED OFTEN

	001223'	452470	100000	JSACDE:	ASCII	"JSA"
	001224'	452472	200000	JSRCDE:	ASCII	"JSR"
	001225'	406370	200000	JUMPIS:	ASCII	"AOB"		;AOBJP  AND AOBJN
	001226'	452150	600000		ASCII	"JFF"		;JFFO
	001227'	452150	300000		ASCII	"JFC"		;JFCL
	001230'	452472	000000		ASCII	"JSP"
	001231'	452452	300000		ASCII	"JRS"
	001232'	452450	100000		ASCII	"JRA"
	001233'	406371	200000		ASCII	"AOJ"
	001234'	516371	200000		ASCII	"SOJ"
	001235'	452531	500000		ASCII	"JUM"		;JUMP S
	001236'	000000	000000			0


				;    TABLES OF OPCODES AND THEIR OCTAL CONFIGURATIONS.

	001237'	406110	400000	TABL3:	ASCII	"ADD"
	001240'	406350	400000		ASCII	"AND"
	001241'	406371	200000		ASCII	"AOJ"
	001242'	406372	300000		ASCII	"AOS"
	001243'	406471	000000		ASCII	"ASH"
	001244'	412050	200000		ASCII	"BBB"		;BLT
	001245'	416031	100000		ASCII	"CAI"
	001246'	416031	500000		ASCII	"CAM"
	001247'	422151	600000		ASCII	"DFN"
	001250'	422232	600000		ASCII	"DIV"
	001251'	422110	400000		ASCII	"DDD"	;DPB
	001252'	426432	600000		ASCII	"EQV"
	001253'	432030	400000		ASCII	"FAD"
	001254'	432112	600000		ASCII	"FDV"
	001255'	432332	000000		ASCII	"FMP"
	001256'	432470	200000		ASCII	"FSB"
	001257'	432470	300000		ASCII	"FSC"
	001260'	442311	400000		ASCII	"HLL"
	001261'	442312	200000		ASCII	"HLR"
	001262'	442451	400000		ASCII	"HRL"
	001263'	442452	200000		ASCII	"HRR"
	001264'	446231	100000		ASCII	"III"	;IBP
	001265'	446372	200000		ASCII	"IOR"
	001266'	452251	200000		ASCII	"JJJ"		;JRA
	001267'	452470	100000		ASCII	"JSA"
	001270'	452472	000000		ASCII	"JSP"
	001271'	452472	200000		ASCII	"JSR"
	001272'	462311	400000		ASCII	"LLL"	;LDB
	001273'	462471	000000		ASCII	"LSH"
	001274'	466531	400000		ASCII	"MUL"
	001275'	476450	200000		ASCII	"ORB"
	001276'	476451	100000		ASCII	"ORI"
	001277'	476451	500000		ASCII	"ORM"
	001300'	502412	000000		ASCII	"PPP"		;POP
	001301'	512372	400000		ASCII	"ROT"
	001302'	516371	200000		ASCII	"SOJ"
	001303'	516372	300000		ASCII	"SOS"

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-10
LEARNS.MAC 	THAT ARE USED OFTEN

	001304'	516530	200000		ASCII	"SUB"
	001305'	522110	300000		ASCII	"TDC"
	001306'	522111	600000		ASCII	"TDN"
	001307'	522111	700000		ASCII	"TDO"
	001310'	522113	200000		ASCII	"TDZ"
	001311'	522310	300000		ASCII	"TLC"
	001312'	522311	600000		ASCII	"TLN"
	001313'	522311	700000		ASCII	"TLO"
	001314'	522313	200000		ASCII	"TLZ"
	001315'	522450	300000		ASCII	"TRC"
	001316'	522451	600000		ASCII	"TRN"
	001317'	522451	700000		ASCII	"TRO"
	001320'	522453	200000		ASCII	"TRZ"
	001321'	522470	300000		ASCII	"TSC"
	001322'	522471	600000		ASCII	"TSN"
	001323'	522471	700000		ASCII	"TSO"
	001324'	522473	200000		ASCII	"TSZ"
	001325'	526150	100000		ASCII	"UFA"
	001326'	542072	400000		ASCII	"XCT"
	001327'	542372	200000		ASCII	"XOR"
	001330'	000000	000000			0

	001331'	406110	441000	TABL4:	ASCII	"ADDB"
	001332'	406110	444400		ASCII	"ADDI"
	001333'	406110	446400		ASCII	"ADDM"
	001334'	406350	441000		ASCII	"ANDB"
	001335'	406350	444400		ASCII	"ANDI"
	001336'	406350	446400		ASCII	"ANDM"
	001337'	406371	240400		ASCII	"AOJA"
	001340'	406371	242400		ASCII	"AOJE"
	001341'	406371	243400		ASCII	"AOJG"
	001342'	406371	246000		ASCII	"AOJL"
	001343'	406371	247000		ASCII	"AOJN"
	001344'	406372	340400		ASCII	"AOSA"
	001345'	406372	342400		ASCII	"AOSE"
	001346'	406372	343400		ASCII	"AOSG"
	001347'	406372	346000		ASCII	"AOSL"
	001350'	406372	347000		ASCII	"AOSN"
	001351'	406471	041400		ASCII	"ASHC"
	001352'	416031	140400		ASCII	"CAIA"
	001353'	416031	142400		ASCII	"CAIE"
	001354'	416031	143400		ASCII	"CAIG"
	001355'	416031	146000		ASCII	"CAIL"
	001356'	416031	147000		ASCII	"CAIN"
	001357'	416031	540400		ASCII	"CAMA"
	001360'	416031	542400		ASCII	"CAME"
	001361'	416031	543400		ASCII	"CAMG"
	001362'	416031	546000		ASCII	"CAML"
	001363'	416031	547000		ASCII	"CAMN"
	001364'	422232	641000		ASCII	"DIVB"
	001365'	422232	644400		ASCII	"DIVI"
	001366'	422232	646400		ASCII	"DIVM"
	001367'	426432	641000		ASCII	"EQVB"

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-11
LEARNS.MAC 	THAT ARE USED OFTEN

	001370'	426432	644400		ASCII	"EQVI"
	001371'	426432	646400		ASCII	"EQVM"
	001372'	426610	344000		ASCII	"EXCH"
	001373'	432030	441000		ASCII	"FADB"
	001374'	432030	446000		ASCII	"FADL"
	001375'	432030	446400		ASCII	"FADM"
	001376'	432030	451000		ASCII	"FADR"
	001377'	432112	641000		ASCII	"FDVB"
	001400'	432112	646000		ASCII	"FDVL"
	001401'	432112	646400		ASCII	"FDVM"
	001402'	432112	651000		ASCII	"FDVR"
	001403'	432332	041000		ASCII	"FMPB"
	001404'	432332	046000		ASCII	"FMPL"
	001405'	432332	046400		ASCII	"FMPM"
	001406'	432332	051000		ASCII	"FMPR"
	001407'	432470	241000		ASCII	"FSBB"
	001410'	432470	246000		ASCII	"FSBL"
	001411'	432470	246400		ASCII	"FSBM"
	001412'	432470	251000		ASCII	"FSBR"
	001413'	442311	442400		ASCII	"HLLE"
	001414'	442311	444400		ASCII	"HLLI"
	001415'	442311	446400		ASCII	"HLLM"
	001416'	442311	447400		ASCII	"HLLO"
	001417'	442311	451400		ASCII	"HLLS"
	001420'	442311	455000		ASCII	"HLLZ"
	001421'	442312	242400		ASCII	"HLRE"
	001422'	442312	244400		ASCII	"HLRI"
	001423'	442312	246400		ASCII	"HLRM"
	001424'	442312	247400		ASCII	"HLRO"
	001425'	442312	251400		ASCII	"HLRS"
	001426'	442312	255000		ASCII	"HLRZ"
	001427'	442451	442400		ASCII	"HRLE"
	001430'	442451	444400		ASCII	"HRLI"
	001431'	442451	446400		ASCII	"HRLM"
	001432'	442451	447400		ASCII	"HRLO"
	001433'	442451	451400		ASCII	"HRLS"
	001434'	442451	455000		ASCII	"HRLZ"
	001435'	442452	242400		ASCII	"HRRE"
	001436'	442452	244400		ASCII	"HRRI"
	001437'	442452	246400		ASCII	"HRRM"
	001440'	442452	247400		ASCII	"HRRO"
	001441'	442452	251400		ASCII	"HRRS"
	001442'	442452	255000		ASCII	"HRRZ"
	001443'	446111	153000		ASCII	"IDIV"
	001444'	446231	144400		ASCII	"IIII"	;IDPB
	001445'	446231	144400		ASCII	"IIII"	;ILDB
	001446'	446332	546000		ASCII	"IMUL"
	001447'	446372	241000		ASCII	"IORB"
	001450'	446372	244400		ASCII	"IORI"
	001451'	446372	246400		ASCII	"IORM"
	001452'	452150	346000		ASCII	"JFCL"
	001453'	452150	647400		ASCII	"JFFO"
	001454'	452531	550000		ASCII	"JUMP"

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-12
LEARNS.MAC 	THAT ARE USED OFTEN

	001455'	462471	041400		ASCII	"LSHC"
	001456'	466372	642400		ASCII	"MOVE"
	001457'	466372	646400		ASCII	"MOVM"
	001460'	466372	647000		ASCII	"MOVN"
	001461'	466372	651400		ASCII	"MOVS"
	001462'	466531	441000		ASCII	"MULB"
	001463'	466531	444400		ASCII	"MULI"
	001464'	466531	446400		ASCII	"MULM"
	001465'	476450	340400		ASCII	"ORCA"
	001466'	476450	341000		ASCII	"ORCB"
	001467'	476450	346400		ASCII	"ORCM"
	001470'	502412	050000		ASCII	"PPPP"		;PUSH
	001471'	512372	441400		ASCII	"ROTC"
	001472'	516132	440400		ASCII	"SETA"
	001473'	516132	446400		ASCII	"SETM"
	001474'	516132	447400		ASCII	"SETO"
	001475'	516132	455000		ASCII	"SETZ"
	001476'	516271	150000		ASCII	"SKIP"
	001477'	516371	240400		ASCII	"SOJA"
	001500'	516371	242400		ASCII	"SOJE"
	001501'	516371	243400		ASCII	"SOJG"
	001502'	516371	246000		ASCII	"SOJL"
	001503'	516371	247000		ASCII	"SOJN"
	001504'	516372	340400		ASCII	"SOSA"
	001505'	516372	342400		ASCII	"SOSE"
	001506'	516372	343400		ASCII	"SOSG"
	001507'	516372	346000		ASCII	"SOSL"
	001510'	516372	347000		ASCII	"SOSN"
	001511'	516530	241000		ASCII	"SUBB"
	001512'	516530	244400		ASCII	"SUBI"
	001513'	516530	246400		ASCII	"SUBM"
	001514'	522110	340400		ASCII	"TDCA"
	001515'	522110	342400		ASCII	"TDCE"
	001516'	522110	347000		ASCII	"TDCN"
	001517'	522111	640400		ASCII	"TDNA"
	001520'	522111	642400		ASCII	"TDNE"
	001521'	522111	647000		ASCII	"TDNN"
	001522'	522111	740400		ASCII	"TDOA"
	001523'	522111	742400		ASCII	"TDOE"
	001524'	522111	747000		ASCII	"TDON"
	001525'	522113	240400		ASCII	"TDZA"
	001526'	522113	242400		ASCII	"TDZE"
	001527'	522113	247000		ASCII	"TDZN"
	001530'	522310	340400		ASCII	"TLCA"
	001531'	522310	342400		ASCII	"TLCE"
	001532'	522310	347000		ASCII	"TLCN"
	001533'	522311	640400		ASCII	"TLNA"
	001534'	522311	642400		ASCII	"TLNE"
	001535'	522311	647000		ASCII	"TLNN"
	001536'	522311	740400		ASCII	"TLOA"
	001537'	522311	742400		ASCII	"TLOE"
	001540'	522311	747000		ASCII	"TLON"
	001541'	522313	240400		ASCII	"TLZA"

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-13
LEARNS.MAC 	THAT ARE USED OFTEN

	001542'	522313	242400		ASCII	"TLZE"
	001543'	522313	247000		ASCII	"TLZN"
	001544'	522450	340400		ASCII	"TRCA"
	001545'	522450	342400		ASCII	"TRCE"
	001546'	522450	347000		ASCII	"TRCN"
	001547'	522451	640400		ASCII	"TRNA"
	001550'	522451	642400		ASCII	"TRNE"
	001551'	522451	647000		ASCII	"TRNN"
	001552'	522451	740400		ASCII	"TROA"
	001553'	522451	742400		ASCII	"TROE"
	001554'	522451	747000		ASCII	"TRON"
	001555'	522453	240400		ASCII	"TRZA"
	001556'	522453	242400		ASCII	"TRZE"
	001557'	522453	247000		ASCII	"TRZN"
	001560'	522470	340400		ASCII	"TSCA"
	001561'	522470	342400		ASCII	"TSCE"
	001562'	522470	347000		ASCII	"TSCN"
	001563'	522471	640400		ASCII	"TSNA"
	001564'	522471	642400		ASCII	"TSNE"
	001565'	522471	647000		ASCII	"TSNN"
	001566'	522471	740400		ASCII	"TSOA"
	001567'	522471	742400		ASCII	"TSOE"
	001570'	522471	747000		ASCII	"TSON"
	001571'	522473	240400		ASCII	"TSZA"
	001572'	522473	242400		ASCII	"TSZE"
	001573'	522473	247000		ASCII	"TSZN"
	001574'	542372	241000		ASCII	"XORB"
	001575'	542372	244400		ASCII	"XORI"
	001576'	542372	246400		ASCII	"XORM"




	001577'	000000	000270	TABL32:	270
	001600'	000000	000404		404
	001601'	000000	000340		340
	001602'	000000	000350		350
	001603'	000000	000240		240
	001604'	000000	000251		251
	001605'	000000	000300		300
	001606'	000000	000310		310
	001607'	000000	000131		131
	001610'	000000	000234		234
	001611'	000000	000137		137
	001612'	000000	000444		444
	001613'	000000	000140		140
	001614'	000000	000170		170
	001615'	000000	000160		160
	001616'	000000	000150		150
	001617'	000000	000132		132
	001620'	000000	000500		500
	001621'	000000	000544		544
	001622'	000000	000504		504

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-14
LEARNS.MAC 	THAT ARE USED OFTEN

	001623'	000000	000540		540
	001624'	000000	000133		133
	001625'	000000	000435		435
	001626'	000000	000267		267
	001627'	000000	000266		266
	001630'	000000	000265		265
	001631'	000000	000264		264
	001632'	000000	000135		135
	001633'	000000	000242		242
	001634'	000000	000224		224
	001635'	000000	000437		437
	001636'	000000	000434		434
	001637'	000000	000436		436
	001640'	000000	000262		262
	001641'	000000	000241		241
	001642'	000000	000360		360
	001643'	000000	000370		370
	001644'	000000	000274		274
	001645'	000000	000650		650
	001646'	000000	000610		610
	001647'	000000	000670		670
	001650'	000000	000630		630
	001651'	000000	000641		641
	001652'	000000	000601		601
	001653'	000000	000661		661
	001654'	000000	000621		621
	001655'	000000	000640		640
	001656'	000000	000600		600
	001657'	000000	000660		660
	001660'	000000	000620		620
	001661'	000000	000651		651
	001662'	000000	000611		611
	001663'	000000	000671		671
	001664'	000000	000631		631
	001665'	000000	000130		130
	001666'	000000	000256		256
	001667'	000000	000430		430
	001670'	000000	000000		0

	001671'	000000	000273	TABL42:	273
	001672'	000000	000271		271
	001673'	000000	000272		272
	001674'	000000	000407		407
	001675'	000000	000405		405
	001676'	000000	000406		406
	001677'	000000	000344		344
	001700'	000000	000342		342
	001701'	000000	000347		347
	001702'	000000	000341		341
	001703'	000000	000346		346
	001704'	000000	000354		354
	001705'	000000	000352		352
	001706'	000000	000357		357

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-15
LEARNS.MAC 	THAT ARE USED OFTEN

	001707'	000000	000351		351
	001710'	000000	000356		356
	001711'	000000	000244		244
	001712'	000000	000304		304
	001713'	000000	000302		302
	001714'	000000	000307		307
	001715'	000000	000301		301
	001716'	000000	000306		306
	001717'	000000	000314		314
	001720'	000000	000312		312
	001721'	000000	000317		317
	001722'	000000	000311		311
	001723'	000000	000316		316
	001724'	000000	000237		237
	001725'	000000	000235		235
	001726'	000000	000236		236
	001727'	000000	000447		447
	001730'	000000	000445		445
	001731'	000000	000446		446
	001732'	000000	000250		250
	001733'	000000	000143		143
	001734'	000000	000141		141
	001735'	000000	000142		142
	001736'	000000	000144		144
	001737'	000000	000173		173
	001740'	000000	000171		171
	001741'	000000	000172		172
	001742'	000000	000174		174
	001743'	000000	000163		163
	001744'	000000	000161		161
	001745'	000000	000162		162
	001746'	000000	000164		164
	001747'	000000	000153		153
	001750'	000000	000151		151
	001751'	000000	000152		152
	001752'	000000	000154		154
	001753'	000000	000530		530
	001754'	000000	000501		501
	001755'	000000	000502		502
	001756'	000000	000520		520
	001757'	000000	000503		503
	001760'	000000	000510		510
	001761'	000000	000574		574
	001762'	000000	000545		545
	001763'	000000	000546		546
	001764'	000000	000564		564
	001765'	000000	000547		547
	001766'	000000	000554		554
	001767'	000000	000534		534
	001770'	000000	000505		505
	001771'	000000	000506		506
	001772'	000000	000524		524
	001773'	000000	000507		507

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-16
LEARNS.MAC 	THAT ARE USED OFTEN

	001774'	000000	000514		514
	001775'	000000	000570		570
	001776'	000000	000541		541
	001777'	000000	000542		542
	002000'	000000	000560		560
	002001'	000000	000543		543
	002002'	000000	000550		550
	002003'	000000	000230		230
	002004'	000000	000136		136
	002005'	000000	000134		134
	002006'	000000	000220		220
	002007'	000000	000437		437
	002010'	000000	000435		435
	002011'	000000	000436		436
	002012'	000000	000255		255
	002013'	000000	000243		243
	002014'	000000	000320		320
	002015'	000000	000246		246
	002016'	000000	000200		200
	002017'	000000	000214		214
	002020'	000000	000210		210
	002021'	000000	000204		204
	002022'	000000	000227		227
	002023'	000000	000225		225
	002024'	000000	000226		226
	002025'	000000	000454		454
	002026'	000000	000470		470
	002027'	000000	000464		464
	002030'	000000	000261		261
	002031'	000000	000245		245
	002032'	000000	000424		424
	002033'	000000	000414		414
	002034'	000000	000474		474
	002035'	000000	000400		400
	002036'	000000	000330		330
	002037'	000000	000364		364
	002040'	000000	000362		362
	002041'	000000	000367		367
	002042'	000000	000361		361
	002043'	000000	000366		366
	002044'	000000	000374		374
	002045'	000000	000372		372
	002046'	000000	000377		377
	002047'	000000	000371		371
	002050'	000000	000376		376
	002051'	000000	000277		277
	002052'	000000	000275		275
	002053'	000000	000276		276
	002054'	000000	000654		654
	002055'	000000	000652		652
	002056'	000000	000656		656
	002057'	000000	000614		614
	002060'	000000	000612		612

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-17
LEARNS.MAC 	THAT ARE USED OFTEN

	002061'	000000	000616		616
	002062'	000000	000674		674
	002063'	000000	000672		672
	002064'	000000	000676		676
	002065'	000000	000634		634
	002066'	000000	000632		632
	002067'	000000	000636		636
	002070'	000000	000645		645
	002071'	000000	000643		643
	002072'	000000	000647		647
	002073'	000000	000605		605
	002074'	000000	000603		603
	002075'	000000	000607		607
	002076'	000000	000665		665
	002077'	000000	000663		663
	002100'	000000	000667		667
	002101'	000000	000625		625
	002102'	000000	000623		623
	002103'	000000	000627		627
	002104'	000000	000644		644
	002105'	000000	000642		642
	002106'	000000	000646		646
	002107'	000000	000604		604
	002110'	000000	000602		602
	002111'	000000	000606		606
	002112'	000000	000664		664
	002113'	000000	000662		662
	002114'	000000	000666		666
	002115'	000000	000624		624
	002116'	000000	000622		622
	002117'	000000	000626		626
	002120'	000000	000655		655
	002121'	000000	000653		653
	002122'	000000	000657		657
	002123'	000000	000615		615
	002124'	000000	000613		613
	002125'	000000	000617		617
	002126'	000000	000675		675
	002127'	000000	000673		673
	002130'	000000	000677		677
	002131'	000000	000635		635
	002132'	000000	000633		633
	002133'	000000	000637		637
	002134'	000000	000433		433
	002135'	000000	000431		431
	002136'	000000	000432		432
	002137'	000000	000000		0







SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-18
LEARNS.MAC 	THAT ARE USED OFTEN



	


	002140'	406350	441602	TABL5:	ASCII	"ANDCA"
	002141'	406350	441604		ASCII	"ANDCB"
	002142'	406350	441632		ASCII	"ANDCM"
	002143'	406370	245234		ASCII	"AOBJN"
	002144'	406370	245240		ASCII	"AOBJP"
	002145'	406371	243612		ASCII	"AOJGE"
	002146'	406371	246212		ASCII	"AOJLE"
	002147'	406372	343612		ASCII	"AOSGE"
	002150'	406372	346212		ASCII	"AOSLE"
	002151'	416031	143612		ASCII	"CAIGE"
	002152'	416031	146212		ASCII	"CAILE"
	002153'	416031	543612		ASCII	"CAMGE"
	002154'	416031	546212		ASCII	"CAMLE"
	002155'	432030	451204		ASCII	"FADRB"
	002156'	432030	451222		ASCII	"FADRI"
	002157'	432030	451232		ASCII	"FADRM"
	002160'	432112	651204		ASCII	"FDVRB"
	002161'	432112	651222		ASCII	"FDVRI"
	002162'	432112	651232		ASCII	"FDVRM"
	002163'	432332	051204		ASCII	"FMPRB"
	002164'	432332	051222		ASCII	"FMPRI"
	002165'	432332	051232		ASCII	"FMPRM"
	002166'	432470	251204		ASCII	"FSBRB"
	002167'	432470	251222		ASCII	"FSBRI"
	002170'	432470	251232		ASCII	"FSBRM"
	002171'	442311	442622		ASCII	"HLLEI"
	002172'	442311	442632		ASCII	"HLLEM"
	002173'	442311	442646		ASCII	"HLLES"
	002174'	442311	447622		ASCII	"HLLOI"
	002175'	442311	447632		ASCII	"HLLOM"
	002176'	442311	447646		ASCII	"HLLOS"
	002177'	442311	455222		ASCII	"HLLZI"
	002200'	442311	455232		ASCII	"HLLZM"
	002201'	442311	455246		ASCII	"HLLZS"
	002202'	442312	242622		ASCII	"HLREI"
	002203'	442312	242632		ASCII	"HLREM"
	002204'	442312	242646		ASCII	"HLRES"
	002205'	442312	247622		ASCII	"HLROI"
	002206'	442312	247632		ASCII	"HLROM"
	002207'	442312	247646		ASCII	"HLROS"
	002210'	442312	255222		ASCII	"HLRZI"
	002211'	442312	255232		ASCII	"HLRZM"
	002212'	442312	255246		ASCII	"HLRZS"
	002213'	442451	442622		ASCII	"HRLEI"
	002214'	442451	442632		ASCII	"HRLEM"
	002215'	442451	442646		ASCII	"HRLES"
	002216'	442451	447622		ASCII	"HRLOI"
	002217'	442451	447632		ASCII	"HRLOM"

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-19
LEARNS.MAC 	THAT ARE USED OFTEN

	002220'	442451	447646		ASCII	"HRLOS"
	002221'	442451	455222		ASCII	"HRLZI"
	002222'	442451	455232		ASCII	"HRLZM"
	002223'	442451	455246		ASCII	"HRLZS"
	002224'	442452	242622		ASCII	"HRREI"
	002225'	442452	242632		ASCII	"HRREM"
	002226'	442452	242646		ASCII	"HRRES"
	002227'	442452	247622		ASCII	"HRROI"
	002230'	442452	247632		ASCII	"HRROM"
	002231'	442452	247646		ASCII	"HRROS"
	002232'	442452	255222		ASCII	"HRRZI"
	002233'	442452	255232		ASCII	"HRRZM"
	002234'	442452	255246		ASCII	"HRRZS"
	002235'	446111	153204		ASCII	"IDIVB"
	002236'	446111	153222		ASCII	"IDIVI"
	002237'	446111	153232		ASCII	"IDIVM"
	002240'	446332	546204		ASCII	"IMULB"
	002241'	446332	546222		ASCII	"IMULI"
	002242'	446332	546232		ASCII	"IMULM"
	002243'	452531	550202		ASCII	"JUMPA"
	002244'	452531	550212		ASCII	"JUMPE"
	002245'	452531	550216		ASCII	"JUMPG"
	002246'	452531	550230		ASCII	"JUMPL"
	002247'	452531	550234		ASCII	"JUMPN"
	002250'	466372	642622		ASCII	"MOVEI"
	002251'	466372	642632		ASCII	"MOVEM"
	002252'	466372	642646		ASCII	"MOVES"
	002253'	466372	646622		ASCII	"MOVMI"
	002254'	466372	646632		ASCII	"MOVMM"
	002255'	466372	646646		ASCII	"MOVMS"
	002256'	466372	647222		ASCII	"MOVNI"
	002257'	466372	647232		ASCII	"MOVNM"
	002260'	466372	647246		ASCII	"MOVNS"
	002261'	466372	651622		ASCII	"MOVSI"
	002262'	466372	651632		ASCII	"MOVSM"
	002263'	466372	651646		ASCII	"MOVSS"
	002264'	476450	340604		ASCII	"ORCAB"
	002265'	476450	340622		ASCII	"ORCAI"
	002266'	476450	340632		ASCII	"ORCAM"
	002267'	476450	341204		ASCII	"ORCBB"
	002270'	476450	341222		ASCII	"ORCBI"
	002271'	476450	341232		ASCII	"ORCBM"
	002272'	476450	346604		ASCII	"ORCMB"
	002273'	476450	346622		ASCII	"ORCMI"
	002274'	476450	346632		ASCII	"ORCMM"
	002275'	502412	050240		ASCII	"PPPPP"		;PUSHJ
	002276'	516132	440604		ASCII	"SETAB"
	002277'	516132	440622		ASCII	"SETAI"
	002300'	516132	440632		ASCII	"SETAM"
	002301'	516132	441602		ASCII	"SETCA"
	002302'	516132	441632		ASCII	"SETCM"
	002303'	516132	446604		ASCII	"SETMB"
	002304'	516132	446622		ASCII	"SETMI"

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-20
LEARNS.MAC 	THAT ARE USED OFTEN

	002305'	516132	446632		ASCII	"SETMM"
	002306'	516132	447604		ASCII	"SETOB"
	002307'	516132	447622		ASCII	"SETOI"
	002310'	516132	447632		ASCII	"SETOM"
	002311'	516132	455204		ASCII	"SETZB"
	002312'	516132	455222		ASCII	"SETZI"
	002313'	516132	455232		ASCII	"SETZM"
	002314'	516271	150202		ASCII	"SKIPA"
	002315'	516271	150212		ASCII	"SKIPE"
	002316'	516271	150216		ASCII	"SKIPG"
	002317'	516271	150230		ASCII	"SKIPL"
	002320'	516271	150234		ASCII	"SKIPN"
	002321'	516371	243612		ASCII	"SOJGE"
	002322'	516371	246212		ASCII	"SOJLE"
	002323'	516372	343612		ASCII	"SOSGE"
	002324'	516372	346212		ASCII	"SOSLE"
	002325'	000000	000000			0


	002326'	000000	000410	TABL52:	410
	002327'	000000	000440		440
	002330'	000000	000420		420
	002331'	000000	000253		253
	002332'	000000	000252		252
	002333'	000000	000345		345
	002334'	000000	000343		343
	002335'	000000	000355		355
	002336'	000000	000353		353
	002337'	000000	000315		315
	002340'	000000	000313		313
	002341'	000000	000315		315
	002342'	000000	000313		313
	002343'	000000	000147		147
	002344'	000000	000145		145
	002345'	000000	000146		146
	002346'	000000	000177		177
	002347'	000000	000175		175
	002350'	000000	000176		176
	002351'	000000	000167		167
	002352'	000000	000165		165
	002353'	000000	000166		166
	002354'	000000	000157		157
	002355'	000000	000155		155
	002356'	000000	000156		156
	002357'	000000	000531		531
	002360'	000000	000532		532
	002361'	000000	000533		533
	002362'	000000	000521		521
	002363'	000000	000522		522
	002364'	000000	000523		523
	002365'	000000	000511		511
	002366'	000000	000512		512
	002367'	000000	000513		513

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-21
LEARNS.MAC 	THAT ARE USED OFTEN

	002370'	000000	000575		575
	002371'	000000	000576		576
	002372'	000000	000577		577
	002373'	000000	000565		565
	002374'	000000	000566		566
	002375'	000000	000567		567
	002376'	000000	000555		555
	002377'	000000	000556		556
	002400'	000000	000557		557
	002401'	000000	000535		535
	002402'	000000	000536		536
	002403'	000000	000537		537
	002404'	000000	000525		525
	002405'	000000	000526		526
	002406'	000000	000527		527
	002407'	000000	000515		515
	002410'	000000	000516		516
	002411'	000000	000517		517
	002412'	000000	000571		571
	002413'	000000	000572		572
	002414'	000000	000573		573
	002415'	000000	000561		561
	002416'	000000	000562		562
	002417'	000000	000563		563
	002420'	000000	000551		551
	002421'	000000	000552		552
	002422'	000000	000553		553
	002423'	000000	000233		233
	002424'	000000	000231		231
	002425'	000000	000232		232
	002426'	000000	000223		223
	002427'	000000	000221		221
	002430'	000000	000222		222
	002431'	000000	000324		324
	002432'	000000	000322		322
	002433'	000000	000327		327
	002434'	000000	000321		321
	002435'	000000	000326		326
	002436'	000000	000201		201
	002437'	000000	000202		202
	002440'	000000	000203		203
	002441'	000000	000215		215
	002442'	000000	000216		216
	002443'	000000	000217		217
	002444'	000000	000211		211
	002445'	000000	000212		212
	002446'	000000	000213		213
	002447'	000000	000205		205
	002450'	000000	000206		206
	002451'	000000	000207		207
	002452'	000000	000457		457
	002453'	000000	000455		455
	002454'	000000	000456		456

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-22
LEARNS.MAC 	THAT ARE USED OFTEN

	002455'	000000	000473		473
	002456'	000000	000471		471
	002457'	000000	000472		472
	002460'	000000	000467		467
	002461'	000000	000465		465
	002462'	000000	000466		466
	002463'	000000	000260		260
	002464'	000000	000427		427
	002465'	000000	000425		425
	002466'	000000	000426		426
	002467'	000000	000450		450
	002470'	000000	000460		460
	002471'	000000	000417		417
	002472'	000000	000415		415
	002473'	000000	000416		416
	002474'	000000	000477		477
	002475'	000000	000475		475
	002476'	000000	000476		476
	002477'	000000	000403		403
	002500'	000000	000401		401
	002501'	000000	000402		402
	002502'	000000	000334		334
	002503'	000000	000332		332
	002504'	000000	000337		337
	002505'	000000	000331		331
	002506'	000000	000336		336
	002507'	000000	000365		365
	002510'	000000	000363		363
	002511'	000000	000375		375
	002512'	000000	000373		373
	002513'	000000	000000		0
	002514'	416371	651636	PDPIO:	ASCII	"CONSO"
	002515'	416371	651664		ASCII	"CONSZ"
	002516'	416371	647400		ASCII	"CONO"
	002517'	416371	644400		ASCII	"CONI"
	002520'	422032	440622		ASCII	"DATAI"
	002521'	422032	440636		ASCII	"DATAO"
	002522'	412311	347400		ASCII	"BLKO"
	002523'	412311	344400		ASCII	"BLKI"
	002524'	000000	000000			0
	002525'	416031	446000		ASCII	"CALL"
	002526'	416031	446222		ASCII	"CALLI"
	002527'	476410	547000		ASCII	"OPEN"
	002530'	522510	340630		ASCII	"TTCAL"
	002531'	512131	640632		ASCII	"RENAM"
	002532'	446340	000000		ASCII	"IN"
	002533'	476532	400000		ASCII	"OUT"
	002534'	516132	451650		ASCII	"SETST"
	002535'	516510	152236		ASCII	"STATO"
	002536'	516510	152252		ASCII	"STATU"
	002537'	436132	451650		ASCII	"GETST"
	002540'	516510	152264		ASCII	"STATZ"
	002541'	446350	252614		ASCII	"INBUF"

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 8-23
LEARNS.MAC 	THAT ARE USED OFTEN

	002542'	446351	152000		ASCII	"INIT"

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 9
LEARNS.MAC 	THAT ARE USED OFTEN

	002543'	476532	441252		ASCII	"OUTBU"
	002544'	446352	052650		ASCII	"INPUT"
	002545'	476532	450252		ASCII	"OUTPU"
	002546'	416311	751612		ASCII	"CLOSE"
	002547'	512131	442602		ASCII	"RELEA"
	002550'	466510	150212		ASCII	"MTAPE"
	002551'	526170	552214		ASCII	"UGETF"
	002552'	526470	552222		ASCII	"USETI"
	002553'	526470	552236		ASCII	"USETO"
	002554'	462371	745652		ASCII	"LOOKU"
	002555'	426352	442644		ASCII	"ENTER"
	002556'	000000	000000			0
	002557'	462110	200000		ASCII	"LDB"
	002560'	422410	200000		ASCII	"DPB"
	002561'	446052	000000		ASCII	"IBP"
	002562'	446310	441000		ASCII	"ILDB"
	002563'	446112	041000		ASCII	"IDPB"
	002564'	000000	000000			0
	002565'	502532	344224		ASCII	"PUSHJ"
	002566'	502532	344000		ASCII	"PUSH"
	002567'	502372	000000		ASCII	"POP"
	002570'	502372	045000		ASCII	"POPJ"
	002571'	000000	000000			0
	002572'	000000	000000			0
				;  THE LAST LIST (PDPIO) IS OF CODES THAT ARE UNEXECUTABLE HERE.


	002573'	254000	000072'	GOGOGO:	JRST	STARTI

					END	GOGOGO
	002574'	254000	000110'
	002575'	200540	000016
	002576'	002200	000261'
	002577'	331100	000017
	002600'	002200	001110'
	002601'	000000	001175'
	002602'	254000	001177'

NO ERRORS DETECTED

PROGRAM BREAK IS 002603

SUBROUTINES	MACRO.V43 09:57 28-APR-70 PAGE 10
LEARNS.MAC 	SYMBOL TABLE

ACANDE		001131'		ACCUME		000773'		BOBOO		001106'		BYTEME		000310'	
CHANGI		000103'		CHECK6		000234'		CHEK62		000227'		CHRLUP		001056'	
COMEIN		000134'		DROPIT		001007'		ENDFIL		000016'		ENDTS7		000011'	
ERROR1		000664'		ERROR2		000701'		ERROR3		000710'		ERROR4		000721'	
ERROR5		000733'		ERROR6		000743'		FIVCHR		000177'		FLAG		001222'	
FORCHR		000167'		FORNOW		000765'		GETBUF		000006'		GETCHR		000000'	
GETCNT		000001'		GETNXT		000003'		GODOIT		001050'		GOGOGO		002573'	
GOT12		001061'		IBUF		000021'		IMMEDI		001032'		INERR		000014'	
IOMESS		000276'		IOXWD		000271'		ISJUMP		001150'		JSACDE		001223'	
JSRCDE		001224'		JUMPE1		001177'		JUMPED		001175'		JUMPIS		001225'	
LOOKIT		001003'		MACHCD		000362'		MASK		001031'		MESS1I		000366'	
MESS2I		000512'		MESS3I		000645'		MESS4I		000657'		MESS5I		000662'	
MESS6I		000650'		MESSE1		001211'		MESSJP		001202'		MESSSW		000261'	
MORE		000120'		NOPDP		000263'		NOTE62		000224'		NOTEQ3		000162'	
NOTEQ4		000174'		NOTEQ5		000204'		NOTEQ6		000214'		NOTYET		001162'	
OBUF		000036'		ONECHR		000144'		ONEFRI		000327'		OPCODI		000110'	
ORCDE		000146'		OUTERR		000034'		PDP10		000252'		PDPIO		002514'	
POINT1		000755'		POINT2		000761'		POINT3		000764'		PTR1		000754'	
PTR2		000760'		PTR3		000762'		PTR4		000763'		PUSHME		000317'	
PUTBUF		000031'		PUTCHR		000024'		PUTNXT		000027'		PUTOUT		000041'	
RETFEE		000050'		SETJMP		001170'		SIXCHR		000207'		STARTI		000072'	
STARTS		000057'		STILL		001067'		TABL3		001237'		TABL32		001577'	
TABL4		001331'		TABL42		001671'		TABL5		002140'		TABL52		002326'	
TABL6		000332'		TABL62		000346'		THIS		001110'		THREEB		000331'	
TRECHR		000155'		TWOCHR		000147'		TWOFRM		000330'		UPCODI		000756'	
UUOMES		000304'		

2K CORE USED