.TITLE	FCSLB1
	.IDENT	/0100A/
	.ASECT
	.GLOBL	$CBTA
	.GLOBL	$CBOSG
	.GLOBL	.FCTYP
	.GLOBL	.WFOWN
	.GLOBL	$COTB
	.GLOBL	.OD2CT
	.GLOBL	.XQIO
	.GLOBL	$CBVER
	.GLOBL	$CBTMG
	.GLOBL	.GET
	.GLOBL	.FLUSH
	.GLOBL	$CDTB
	.GLOBL	$DAT
	.GLOBL	.WRITE
	.GLOBL	.WDFDR
	.GLOBL	$TIM
	.GLOBL	$CBDAT
	.GLOBL	.WDFFP
	.GLOBL	.DD2CT
	.GLOBL	.READ
	.GLOBL	.RFOWN
	.GLOBL	$DDIV
	.GLOBL	$EDMSG
	.GLOBL	.GETSQ
	.GLOBL	$CBDMG
	.GLOBL	.WDFUI
	.GLOBL	$DMUL
	.GLOBL	.PUT
	.GLOBL	$CBDSG
	.GLOBL	.RDFDR
	.GLOBL	.MARK
	.GLOBL	.RDFFP
	.GLOBL	$CDDMG
	.GLOBL	.POSIT
	.GLOBL	.CSI1
	.GLOBL	.CSI2
	.GLOBL	.POSRC
	.GLOBL	.WAIT
	.GLOBL	.RDFUI
	.GLOBL	.CTRL
	.GLOBL	.PUTSQ
	.GLOBL	.POINT
	.GLOBL	$EXST
	.GLOBL	$CBOMG
	.PSECT
	.PSECT
BASE=.										;HEXMOD
	HALT									;HEXMOD
	HALT									;**-1
	HALT
	HALT
	JMP	.CTRL
	JMP	.GET
	JMP	.PUT
	JMP	.READ
	JMP	.WRITE
	JMP	$DMUL
	JMP	$DDIV
	JMP	.GETSQ
	JMP	.POSIT
	JMP	.POSRC
	JMP	.PUTSQ
	JMP	.FCTYP
	JMP	.CSI1
	JMP	.CSI2
	JMP	.OD2CT
	JMP	.DD2CT
	JMP	.POINT
	JMP	.MARK
	JMP	.FLUSH
	JMP	.WAIT
	JMP	.XQIO
	JMP	.RDFDR
	JMP	.RDFFP
	JMP	.RDFUI
	JMP	.RFOWN
	JMP	.WDFDR
	JMP	.WDFFP
	JMP	.WDFUI
	JMP	.WFOWN
	JMP	$EXST
	JMP	$EDMSG
	JMP	$COTB
	JMP	$CDTB
	JMP	$CBDAT
	JMP	$CBDMG
	JMP	$CBDSG
	JMP	$CBOSG
	JMP	$CBTA
	JMP	$CBTMG
	JMP	$CBVER
	JMP	$CBOMG
	JMP	$DAT
	JMP	$TIM
	JMP	$CDDMG
.=BASE+400									;HEXMOD
	JMP	.HD2CT								;HEXMOD
	JMP	$CHTB								;HEXMOD
	JMP	$CBGMG								;HEXMOD
	JMP	$CBHMG								;HEXMOD
	JMP	$CBHSG								;HEXMOD
	.END									;HEXMOD