12-Dec-84 14:05:37-EST,2157;000000000001
Return-Path: <@engvxa:budne%mrfort.DEC@DECWRL.ARPA>
Received: from engvxa by BUCS20 with DECnet; Wed 12 Dec 84 14:03:06-EST
Received: from csvaxa.ARPA by engvxa with TCPNET ; 12 Dec 84 14:05:53 EST
Return-Path: <budne%mrfort.DEC@DECWRL.ARPA>
Received: by csvaxa.ARPA (4.12/4.7)
	id AA02506; Wed, 12 Dec 84 11:42:10 est
Received: from decwrl.arpa by csnet-relay.arpa id a018215; 8 Dec 84 12:40 EST
Received: from DEC-RHEA.ARPA by decwrl.ARPA (4.22.01/4.7.34)
	id AA12629; Sat, 8 Dec 84 09:36:29 pst
Message-Id: <8412081736.AA12629@decwrl.ARPA>
Date: Saturday,  8 Dec 1984 09:37:15-PST
From: Phil Budne <budne%mrfort.DEC@DECWRL.ARPA>
To: budd%bostonu.CSNET@csnet-relay.csnet
Subject: phone change
Received: from CSNet-Relay by bostonu; 8 Dec 84 13:11:24-EST (Sat)

 
;COMPARISON OF MSC:<BUDNE.FONE.RIDDER>PHONE.MAC.1697 AND MSC:<BUDNE.FONE>PHONE.MAC.1698
;OPTIONS ARE   COMPARE /LABEL
 
**** FILE MSC:<BUDNE.FONE.RIDDER>PHONE.MAC.1697, 1-1 (0)
**** FILE MSC:<BUDNE.FONE>PHONE.MAC.1698, 1-1 (0)
;MSC:<BUDNE.FONE>PHONE.MAC.1698  1-Dec-84 FQ+1D.14H.19M.18S., by BUDNE
; Make sure zero ring flag gets sent in MAKMSG
***************
 
**** FILE MSC:<BUDNE.FONE.RIDDER>PHONE.MAC.1697, 62-7 (68444) AFTER OP.DCN:
MAKMSG:	MOVEM	T1,LSTCOD	;STORE LAST CODE SENT
**** FILE MSC:<BUDNE.FONE>PHONE.MAC.1698, 62-7 (68564) AFTER OP.DCN:
MAKMSG:	ACVAR	<COD>		;SAVE CODE
	MOVEM	T1,LSTCOD	;STORE LAST CODE SENT
	MOVE	COD,T1		;SAVE LAST CODE
***************
 
**** FILE MSC:<BUDNE.FONE.RIDDER>PHONE.MAC.1697, 62-13 (68652) AFTER MAKMSG:
	IDPB	T1,T2		;STORE CODE
	
**** FILE MSC:<BUDNE.FONE>PHONE.MAC.1698, 62-15 (68829) AFTER MAKMSG:
	IDPB	COD,T2		;STORE CODE
***************
 
**** FILE MSC:<BUDNE.FONE.RIDDER>PHONE.MAC.1697, 62-20 (68839) AFTER MAKMSG:
	JUMPN	T1,CPYSTR	;COPY IT IN
	RET
**** FILE MSC:<BUDNE.FONE>PHONE.MAC.1698, 62-22 (69016) AFTER MAKMSG:
	JUMPE	T1,CPOPJ	;NONE? DONE!
	CAIE	COD,MS$RNG	;RING MESSAGE?
	 PJRST	CPYSTR		; NO, BE SLOPPY
	CALL	CHKBT1		;MAKE SURE WE HAVE A BP
	ILDB	T1,T1		;GET JUST ONE BYTE
	IDPB	T1,T2		;STORE IS MESSAGE
	RET			;DONE!
	ENDAV.			;{COD}
***************
 
-------
   --------