Directory of image this file is from
This file as a plain text file

vD&	
7DfJj	Pi$;@INIT{}??RApazdv.y^
0gs`
`6NR`
NAD`E3 `QA`VX(M4 TMCs9`
N0
RM`P`E
88I,
s	NU
H`2l0\ A `@U F8F1s(`U3Hb `2SE N
AEc;s	#`
BXCM`O
TMT0D,`
DE,!s	
 U`N8Y	NR	sYS(T "`OPT5RRAR
b;0~f$e}&* /|{"!{~	f`e
>cHoe4Bzs&*(/H;"0{sF:y	/]&xd)xy9c@.//b/2\/&Pi2(wya
f+ /Jt9 x{/']s&PiJ;J]lb. |S`	.
.hotI_(/
h)O2 {x0c(O'"($zJ62
<s`L 1TO #F8y0;(70~n&}(|(/{f9@{{z&^0} /{n2t^0y /{n2] xw"
n'f@@
- OWN NAME
	200		/ONE PAGE
ASPTR,	ASLIST+2
ASLST,	ASLIST		/RELOCATED POINTERS
ASNEW,	0		/NEW, ASSIGNED NAME

ASGN,	SZA		/ENTERED WITH INPUT TASK NAME IN AC
	 DCA ASLIST	/DEFAULT IS "K0" OF TEXT AND WAIT IF "INSLST	/PNTR TO LIST
	JMS"I^100+"N&3777
	 JMP ASNGED
	SZA CLA
	 JMP ASRTRN	/ERROR OCCURED, "?(CRLF)" PRINTED
ASPACK,	JMS ASREAD	/READ 2CHARS AND BRANCH
IFZERO PDPTYP-PDP8E <
	AND C37
	BSW		>
IFNZRO PDPTYP-PDP8E <
	CLL RTL
	RTL
	CLL RAL		/MASK EXCESSIVE BSNEW
	JMS ASREAD
	TAD ASNEW
ASIGNOR,JMS ASREAN
	CLA
	JMP ASIGNOR
ON OR SPACE
ASCOLON,TAD ASNEW
	CIA
	DCA ASOWN
	DCA ASNEW	/CLEAR FOR DEASSIGN
	JMP ASPACK
/ENTERED HERE AFTER A CARRIAGE RETURN.
ASCR,	CDF MONFLD	//START SEARCH IN NAMELIST
ASLUP,	ISZ ASNAM
	TAD I ASNAM	//FETCH FIRST ITEM FROM NAMLST
	SNA		//
	 JMP ASERR	//ZERO TERMINATES THE SEARCH
	TAD ASOWN	//COMPARE
	SZA CLA		//
	 JMP ASLUP	// NO MATCH FOUND
	TAD (ASSLST-NAMLST //COMPUTE PTR IN ASSLST
	TAD ASNAM	//
	DCA ZTEM1	//
	TAD ASNEW	//FILL IN ASSLST
	DCA I ZTEM1	//
ASRTRN,	JMS MONITOR	//
	   RETURN SWPOUT

/SUBROUTINE READS CHARS FROM THE BUFFER AND BRANCHES
ASREAD,	.-.		/ENTER WITH AC=0;DF=THIS FIELD
	TAD I ASPTR	/NEXT CHAR
	TAD M215	/CR ?
	SZA
	 TAD (-375+215	/ALTMODE ?
	SNA
	 JMP ASCR	/CR OR ALTMODE
	ISZ ASPTR
	TAD (-":+375	/COLON ?
	SZA
	 TAD (-240+":	/SPACE ?
	SNA
	 JMP ASCOLON	/COLON ":" OR SPACE " "
	SPA
	 JMP ASERR	/OTHER CONTROL CHARACTERS NOT ALLOWED
	TAD C240	/CHAR IN AC
	JMP I ASREAD

ASTRY,	JMS MONITOR
	   STALL
	   DGNTRY AGAIN
/ERROR OCCUR BEFORE DISAPPEARING.
A (202
	DCA I ASPTR	/PUT ASIN3	/"IN" WILL PRINT "?" AND TAKE ERROR RET.

/HERE IS THE MESSAGE LIST
ASLIST,	"K^100+"1&3777	/DEFAULT "K1"
	-14		/LENGTH OF BUFFER
	"O;"W;"N;":;"N;"E;"W;"*;
	ZBLOCK 4	/ZERO IS TERMINATOR

ASNAM,	NAMLST	/ BE ASSIGNED !

$$$


Note: Lines longer than 256 characters were wrapped