.TITLE	ACNT
;
; COPYRIGHT (C) 1977
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 01752
;
; MODIFICATIONS:
;
;	01A -- CORRECT ERRORS IN GETTING DEFAULT DEVICE NAME
;
	.IDENT	/01A/

	.PSECT
.BLK.=.

SYDEV=.BLK.+1763

IOSB=.BLK.+2274

.=.BLK.+6546

	CALL	PAT1		;TYPED TOO MANY CHARACTERS?
	BCS	40$		;YES, SYNTAX ERROR

.=.BLK.+6606
	MOVB	#'0,(R2)	;FAKE A 00
	BR	30$		;
	NOP			;(ALIGN OLD AND NEW 5$)
5$:	TSTB	1(R0)		;ONE DIGIT?
	BNE	10$		;NO, TWO
	MOVB	#'0,(R2)+	;PUT IN A LEADING ZERO
10$:	MOVB	(R0)+,R1	;GET A DIGIT
	NOP
.=.BLK.+6660
30$:

.=.BLK.+7004
40$:

.=.BLK.

	.PSECT	$$PAT
$$PAT=.

PAT1:	CMP	#4,IOSB+2	;MORE THAN 4 CHARACTERS READ?
	BLO	10$		;YES (CARRY IS SET)
	MOV	#SYDEV,R2	;POINT TO OUTPUT STRING
	MOVB	(R0)+,R1	;GET NEXT CHARACTER
10$:	RETURN			;

.=$$PAT

	.END