OBJNAM RADIX.LIT ; Created 28-Nov-86, Last modified 16-Apr-87
; by Irv Bromberg, Medic/OS Consultants
; 78 Wildginger Way, Toronto, Ontario, CANADA  M3H 5X1
VEDIT=2.
VMINOR=1
VMAJOR=1
VSUB=0

IF EQ,1
Edit history:
1.1(2) 16-Apr-87 change to use J.DEC defined externally in MAC:SYS.UNV
1.0(1) 28-Nov-86 created

Function:  Sets or displays the current OCT/DEC/HEX radix.  Must be
used instead of SET OCT or SET HEX if the OCTPCH has been installed.

Syntax: RADIX 8  for octal
        RADIX 10 for decimal
	RADIX 16 for hexadecimal
	RADIX <return> shows current RADIX

The syntax format RADIX=n is also allowed.

For decimal mode to work the OCVT patch must have been installed during
bootup, using the OCTPCH command near the beginning of AMOSL.INI file.

ENDC

SEARCH SYS
SEARCH SYSSYM

JCB	=A0
Buffer	=A2

Mode	=D0
Number	=D1

	PHDR	-1,0,PH$REE!PH$REU

	; check if OCVT patch active, warn user if it has not been installed
	MOV	JOBCUR,JCB		; save existing OCT/DEC/HEX mode bits
	BYP				; OCVT is active, check for Base code
	LIN
	BEQ	ShowBase
	CMPB	@Buffer,#'=		; bypass "=" if present
	BNE	10$
	INCW	Buffer			; skip "="
	BYP				; skip any whitespace after it
10$:	GTDEC				; get radix value
	CMPB	Number,#8.
	JNE	TryDec
	ANDW	#^C<J.DEC!J.HEX>,JOBTYP(JCB)
	EXIT

ChkPCH:	PUSH	Buffer			; save pointer to input line
	PUSHW	JOBTYP(JCB)
	ORW	#<J.DEC!J.HEX>,JOBTYP(JCB) ; set DEC mode
	PUSHW				; get some workspace
	MOV	SP,Buffer
	MOV	#11.,Number		; output the number 11 - if DEC patch
	OCVT	0,OT$MEM		; not active result will be "B"
	POPW	Number
	POPW	JOBTYP(JCB)		; restore original OCT/DEC/HEX mode
	POP	Buffer
	CMPW	Number,#<'1_8.+'1>	; did we get "11" ?
	RTN

ShowBase:MOVW	JOBTYP(JCB),Mode
	TYPE	<Current OCVT RADIX=>
	ANDW	#J.DEC!J.HEX,Mode	; select relevant bits
	BEQ	Octal
	CMPW	Mode,#J.HEX		; is it hex only?
	BEQ	Hex
Dec:	TYPECR	<10>
	EXIT
Hex:	TYPECR	<16>
	EXIT
Octal:	TYPECR	<8>
	CALL	ChkPCH
	BEQ	Exit
	TYPE	<%WARNING -- >
NotIn:	TYPECR	<OCVT patch has not been installed>
Exit:	EXIT

TryDec:	CMPB	Number,#10.
	BNE	TryHex
	CALL	ChkPCH
	BEQ	SetDec
	TYPE	<?>
	BR	NotIn

SetDec:	ORW	#<J.HEX!J.DEC>,JOBTYP(JCB)	; set decimal mode
	EXIT

TryHex:	CMPB	Number,#16.
	BEQ	SetHex
	TYPECR	<?Illegal RADIX (8=octal  10=decimal  16=hexadecimal)>
	EXIT

SetHex:	ANDW	#^C<J.DEC>,JOBTYP(JCB)
	ORW	#J.HEX,JOBTYP(JCB)		; set hexadecimal mode
	EXIT

	END
                                                                                                             
.