PDP-10.its/src/nova/_lodee.0_11

TITLE	NOVA LOADEE

LOC	17000

BEG:	IORST
	LDA	2,[FOO]
	LDA	0,(2)
	MOV	0,0(SNR)
	JMP	LUP
	SKPBZ	7
	JMP	.-1
	DOAS	0,7
	INC	2,2
	JMP	BEG+2
LUP:	SKPDN	TTI
	JMP	A
	DIAS	0,TTI
	SKPBZ	7
	JMP	.-1
	DOAS	0,7
	SKPBN	TTO
	DOAS	0,TTO
A:	SKPDN	6
	JMP	LUP
	DIAS	0,6
	LDA	1,[177]
	AND	0,1
	LDA	0,[3]
	SUB	0,1(SZR)
	JMP	LUP

BLK:	JSR	GET
	MOV	3,1
	JSR	GET
	MOV	3,2
	MOVL%	1,1(SNC)
	JMP	STBLK
L:	JSR	GET
	STA	3,(2)
	INC	2,2
	INC	1,1(SZR)
	JMP	L
	JMP	BLK

STBLK:	MOVZR	1,1(SNR)
	MOV	1,1(SNC)
	HALT
	LDA	0,[^G]
	DOAS	0,TTO
	MOVL%	2,2(SZC)
	HALT
	JMP	(2)

GET:	STA	3,GX
	STA	2,G2
	JSR	CH
	MOVS	3,2
	ADDZL	2,2
	JSR	CH
REPEAT 3,ADDZL	3,3
	ADD	3,2
	JSR	CH
	ADD	2,3
	LDA	2,G2
	JMP	@GX
GX:	0
G2:	0

CH:	STA	3,CX
	SKPDN	6
	JMP	.-1
	DIAS	3,6
	LDA	0,[177]
	AND	0,3
	MOVZR	0,0
	AND	3,0
	SUB%	0,3(SNR)
	HALT
	MOV	0,3
	JMP	@CX
CX:	0

FOO:	^Z
	"J
	"S
	33
	"U
	0

END	BEG
G;ï~ñG,»3ð
<01>
Y;ð
¡ñG,»5ð
­
Y;
]ñG,»7
a
Y;ð
ËñG,»Yð
Ó
Y;-
rñG,»[
u
Y;.
{ñG,»]ð
Y;/ðñG,»_
Y;0ñG,»<>L40,ï~
Y;A#ñG,»ƒðQ
Y;B1ñG,»…ðw
Y;C@ñG,»‡F
Y;Dð•ñG,À©ð¥ñG-¡]
[!
dñG-¡m
[!rñG-¡w
[!~ñG-¡ðöf
õï~
[!îðñG-¡ð#
[!ð1ñG-¡ð;
[!ðIñG-¡(
[!,ñG-¡!0
[!ðmñG-¡#ðw
[!DñG-¡%L
[!RñG-¡'W
[!ð¹Yj#ï~0ñG-¡)ðÃ
[!ðÓñG-¡+n
[!ðç
YAðïñG,Á%ð÷
YAðýñG,Á'ð
YAðñG-ŠóAA+ð#îS} ð'îR\üP<50>Ã+ ÿÿÿÿÿANGE LAST SPACE TO A CR.
ENDSTR:	MOVE J,F	;   END OF READIN.  SET J TO THE LAST DSK IOT.
	MOVE F,L	;   SET F TO THE FIRST LETTER TO BE PLOTTED.
	SETZ B,
	JRST PLTCHR
SETEND:	SETZM @F	;   PLACE A ZERO IN THE LIST FOR A HALT.
	JRST ENDSTR
MORCTL:	.IOT 5,E
	CAIN E,23
	JRST OCT023
	CAIN E,2
	JRST OCT002
	MOVE A,H
	IMUL A,D
	SUB A,B
	IMULI A,6
	JUMPG A,.+5
	JUMPE A,RELMAX+3
	.IOT 3,[10]
	AOJL A,.-1
	JRST RELMAX+3
	.IOT 3,[4]
	SOJG A,.-1
	JRST RELMAX+3
CPOP:	POP P,C
BPOP:	POP P,B
APOP:	POP P,A
	POPJ P,
OVRCOR:	CAIL F,PLTC+500.
	MOVEI F,PLTC-1
	AOJ F,
	POPJ P,
OCT023:	SETZ D,
	.IOT 5,A
	CAIN A,40
	JRST .+5
	SUBI A,60
	IMULI D,10.
	ADD D,A
	JRST OCT023+1
	MOVE M,D	;   SET UP I.
	IMULI M,6
	MOVEI A,2200.
	IDIV A,M
	MOVE I,A
	SUB I,H
	SUB I,H
	JRST MORCTL
OCT002:	SETZ C,
	.IOT 5,B
	CAIN B,40
	JRST .+5
	SUBI B,60
	IMULI C,10.
	ADD C,B
	JRST OCT002+1
	MOVE B,H
	IMUL B,D
	SUB C,H		;   CREATE VALUE FOR C.
	ADD H,C
	SUB I,C
	SUB I,C
	JRST MORCTL
FALSAF:	.CLOSE 3,
	.CLOSE 5,
	.VALUE
	.INSRT DAVIDS APHPLT
PLTC:	BLOCK 501.
PDL:	BLOCK 5
	END GO
üùÏIm[M@#&1)îiL_;5Z2#&,|CSwQLW@"oÿÿÿÿÿiLa-0@"BÿÿÿÿÿiLOø!Ýð	XDÿiLgSø!ÙðõƒiLiuKr@!jÿÿÿÿÿiL[@"fÿÿÿÿÿiLG".<`@!eð)úÁiLûí¶™!ø!ÃðpŽ%iL]6d@ø!»ÿÿÿÿÿiLip@"0ÿÿÿÿÿiLkN. @!Y#ziLS:5p@!Wð
¢ÙiLG2|{`@"'ÿÿÿÿÿ@SB`ð!›ðýÙµiLY&4P@!KÿÿÿÿÿiLûoº<6F>/ø!‘$6€iLC2TY!BðøuÿiLiS@@!@ÿÿÿÿÿiLüôÊ›§ø!{CgLÿÿÿÿÿiL[>uø!q7iLûm¦Hsø!kð	-ŠwaI @!3lrdiL_2N<@!0;u5iLûuÎ;íø![;u'iLU?&K`ø!Uðõ'iLIVn@!(;uiLgRMj`ø!KÿÿÿÿÿiLüòŽ;í@!#ÿÿÿÿÿiLa]ø!AÿÿÿÿÿiL[W-7@!ÿÿÿÿÿiL]2|@@!%b(6@QLWø!3ÿÿÿÿÿiLGJ~<`@!ð	q'›iLG;%}9ø!)ÿÿÿÿÿCSw_"=@!ÿÿÿÿÿiLY>=p@"xð	’ iL]R,;`@!îÿÿÿÿÿiLaJ=\@ð!c/xiLG&<` }ÿÿÿÿÿiL]RR`ø õ%J?_2 QLW@ xð¹…ëiLû¶¶™3ð áð	nX#iLG?ø ÝÿÿÿÿÿiLI'ø ÙðàÃÛiL"C[@ø ÕðàÃ×ae&@@ hACjiLY>0@ fð	%þ#CSwSB`ø ÇÿÿÿÿÿiLý7’[o ]ÿÿÿÿÿiL]2N<ð ­ðÁEuiLG>nð Ÿð	`¹iLE:exð <20>$-iL[&$`ø ‰$[.iLY'ø ƒ$PüùÏIm"@#
ð	”ÖáiLû-¦Hsø yð	no)CSwI  4#h}iLI ð Wb7CSwG&<`@ )ð  eiLo'Pð Cð	U…iLMKyð 7@FiLi)0 %:FbiLûí¦Hs RiiLû)Î;íð 
ð	`{iLa2v  ð¹•m