Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0108/aproc.unv
There is 1 other file named aproc.unv in the archive. Click here to see a list.
x
,5@P B9 8 6(
	MOVEI 1h,A
	PUSHJ	P,ACHAR%
	SHJ	P,ACH!K /0B$  B
	MOVE	1,(A
	PUSHJ	P,ADAY%
	USHJ	P,ADAYB$Xs 
H V
	MOVE	1,
hA
	PUSHJ	P,ADECF%
	SHJ	P,ADECB$X{ x )
	MOVE	1,A
	PUSHJ	P,ADECV%
	SHJ	P,ADECB%  
	MOVEI	18,A
	PUSHJ	P,ADIT%
	USHJ	P,ADIB/
: X -
	PUSHJ	P,AEXIT%
	SHJ	PB4D  8 
	MOVE	1,XA
	PUSHJ	P,AFD1%
	USHJ	P,AFD1B4D@  #
	DMOVE	18,A
	PUSHJ	P,AFD2%
	USHJ	P,AFDBeR h H
	A$CHAR		15
	A$CHAR	12
	
	A$CHAR	12
	Bn9` x 
	MOVEI	1,A
	PUSHJ	P,AMSG%
	USHJ	P,AMSB|= ( ^
IFN	B,<HMOVEI 2,B>
	MOVhEI	1,A
	PUSHJ	P,AOCTF%
	SHJ	PB|= 
( f
IFN	B,<
HMOVEI 2,B>
	MOV
hEI	1,A
	PUSHJ	P,AOCTR%
	SHJ	PB|= 
	MOVEI	1
	PUSHJ	P,AOCTV%
	SHJ	P,AOCB= 	H P
	+	A,,	hB		
	+	0		
	+	0
		
	+	0		
	+	0		
		0		
	+	0	B|` X 
	MOVEI	1x,A
	PUSHJ	P,APOS%
	USHJ	P,APOB  t		; [01]
(	MOVE	1,A		; [01H]
	PUSHJ	P,ASIX%		; [01]
	SIX%B%2 ( <
	MOVEI	1H,A
	PUSHJ	P,ATIME%
	SHJ	P,ATIB9 H!
	PUSHJ	P,ACHAR%
	SHJ	PB$ H!
	PUSHJ	P,ADAY%
	USHJ	PB$Xs h!.
	PUSHJ	P,ADECF%
	SHJ	PB$X{ H!

	PUSHJ	P,ADECV%
	SHJ	PB%  x
	PUSHJ	P,ADIT%
	USHJ	PB/
: !
	PUSHJ	P,AEXIT%
	SHJ	PB4D  H!
	PUSHJ	P,AFD1%
	USHJ	PB4D@ !
	PUSHJ	P,AFD2%
	USHJ	PBeR !"
	A%CHAR	(15
	A%CHAR	12
	
	A%CHAR	12
	Bn9` H |
	PUSHJ	P,AMSG%
	USHJ	PB|= (!4
IFN	B,<HMOVEI 2,B>
	PUSHJ	P,AOCTF%
	SB|= !:
IFN	B,<(MOVEI 2,B>
	PUSHJ	P,AOCTL%
	SB|= h!>
	PUSHJ	P,AOCTV%
	SHJ	PB= h!*
	+	A,,B		
	+	0		
	+	0(		
	+	0		
	+	0		
		0		
	+	0	B|` !
	PUSHJ	P,APOS%
	USHJ	PB%2 !
	PUSHJ	P,ATIME%
	SHJ	PCDBA  CDBC A  C C,9BA  C,9BC,=BA  C,=BCNA A  CNA CEA  CEC" A  C" C"! A  C"! C7q A  C7q C>IBA  C>IBC>KA  C>KC>MBA  C>MBCB~1 A  CB~1 CNO A  CNO CRMY"A  CRMY"`P S@P >}{woP