173400	042104		;.ASCII	DD			DECTAPE II
	173402	000176		;	?
	173404	000261		;SEC			;DON'T RET TO CONSOLE UCODE
	173406	012700		;MOV	#0,R0
	173410	000000		;
	173412	012701	>------>;MOV	#176500,R1	;POINT R1-> TU58 RCSR
	173414	176500	^       ;
	173416	010704	^       ;MOV	#103054,R4
	173420	103054	^       ;
	173422	000402	^    <--;BR	173430
	173424	173000	^    v  ;.WORD	173000		;POWER-UP VECTOR
	173426	000340	^    v  ;.WORD	000340		;POWER-UP PRIORITY
	173430	012706	^    >->;MOV	#002000,SP
	173432	002000	^       ;
	173434	005004	^       ;CLR	R4
	173436	012702	^       ;MOV	##176504,R2	;POINT R2 -> TU58 XCSR
	173440	176504	^       ;
	173442	005212	^       ;INC	(R2)		;TURN ON BREAK BIT
	173444	005003	^       ;CLR	R3		;SEND 2 NULL CHARACTERS
	173446	004767	^       ;JSR	PC,173520
	173450	000046	^       ;
	173452	005012	^       ;CLR	(R2)		;CLEAR BREAK BIT
	173454	005737	^       ;TST	@#176502	;CHECK FOR RECEIVER ERROR
	173456	176502	^       ;
	173460	012703	^       ;MOV	#004004,R3	;SEND 2 INIT'S
	173462	004004	^       ;
	173464	004767	^       ;JSR	PC,173524
	173466	000034	^       ;
	173470	010003	^       ;MOV	R0,R3		;BUFFER START -> R3
	173472	004767	^       ;JSR	PC,173526	;SEND TO TU58
	173474	000030	^       ;
	173476	005003	^       ;CLR	R3		;POINT R3 -> WORD 0 OF CORE
	173500	105711	^ >-->->;TSTB	(R1)		;CHECK RCSR
	173502	100376	^ ^  ^-<;BPL	173500		;LOOP TILL DONE BIT SETS
	173504	113723	^ ^     ;MOVB	@#176502,(R3)+	;TRANSFER AN INCOMING BYTE
	173506	176502	^ ^     ;
	173510	022703	^ ^     ;CMP	#1000,R3	;FILLED BUFFER YET ?
	173512	001000	^ ^     ;
	173514	101371	^ ^----<;BHI	173500		;LOOP IF NOT
	173516	005007	^       ;CLR	PC		;GO TO WORD 0 OF CORE
	173520	004717	^       ;
	173522	004717	^       ;
	173524	004717	^       ;
	173526	105712	^    -->;TSTB	(R2)		;CHECK XCSR
	173530	100376	^    ^-<;BPL	173526		;LOOP TILL DONE BIT SETS
	173532	110337	^       ;MOV	R3,@#176506	;LOAD OUTPUT BYTE
	173534	176506	^       ;
	173536	000303	^       ;SWAB	R3		;SWITCH BYTESFOR NEXT CALL
	173540	000207	^       ;RTS	PC		;AND RETURN
	173542	000261	^       ;SEC
	173544	012700	^       ;MOV	#000001,R0
	173546	000001	^       ;
	173550	000720	^-------;BR	173412		;TRY AGAIN
	173552	000137		;JMP	@#165564	;RET TO CONSOLE UCODE
	173554	165564		;
	173556	000000		;
	173560	000000		;
	173562	000000		;
	173564	000000		;
	173566	000000		;
	173570	000000		;
	173572	000000		;
	173574	000000		;
	173576	125025		;.WORD	125025		;CRC