;DATにあるデータのビット列逆転してREVBITに格納する。
;「アセンブラ言語 CASLII」東田、山本、広瀬著　工学図書（株）
;１８０ー１８４頁のコードを元にして作成したものです。
MAIN	START
	LD 	GR0,DAT
	CALL 	REVERS
	ST	GR0,REVBIT
	RET
DAT	DC 	#9368
REVBIT	DS	1
	END
;--------------
REVERS	START
	PUSH	0,GR1
	PUSH	0,GR2
	LD	GR1,GR0
	LAD	GR2,16
	LAD	GR0,0
	CPA	GR1,=0
LOOP	JZE	FIN
	JPL	OFF
	OR	GR0,=#8000
OFF	SUBA	GR2,=1
	JZE	FIN1
	SRL	GR0,1
	SLL	GR1,1
	JUMP 	LOOP
FIN	SRL	GR0,-1,GR2
FIN1	POP	GR2
	POP	GR1
	RET
	END
;--------------
; Type your source code in lowercase, and then,
; press Ctrl+Shift+O at the same time, it will
; convert all the characters to upper case.
; Ctrl+Shift+L converts all the characters to upper case in a line
;        with a blinking underline of the cursor.
; Ctrl+Shift+O converts all the characters to upper case excluding charcter constants.
; This conversion might exclude character constants, such as DC 'sum is '.
;-----------------------
