OPT ALINK
   
      XDEF  _fgts,_stcpmwa,_stcpmw
      XREF  _febuf,_fesize,_n

_fgts
L38c4
	MOVEM.L	D2/D7/A2-A3,-(A7)
	MOVEA.L	$14(A7),A3
	MOVEQ	#0,D7  
        MOVE.L  _n,d2

	MOVEA.L	_febuf,A2
	ADDA.L	d2,A2
	ADDQ.L	#1,d2
L38e0
	MOVEQ	#$A,D0
	CMP.B	(A2),D0
	BEQ.S	L3900

	MOVE.L	d2,D0
	ADDQ.L	#1,d2
	CMP.L	_fesize,D0
	BGE.S	L3900

	MOVE.L  D7,D0
	ADDQ.L	#1,D7
	MOVE.B	(A2)+,0(A3,D0.L)
	BRA.S	L38e0
L3900
	MOVE.B	#$A,0(A3,D7.L)
	CLR.B	1(A3,D7.L)

	MOVE.L	d2,D0
	CMP.L	_fesize,D0
	BLT.S	L3918
	MOVEQ	#0,D0
	BRA.S	L391a
L3918
	MOVEQ	#1,D0
        MOVE.L  D2,_n
L391a
	MOVEM.L	(A7)+,D2/D7/A2-A3
	RTS



_stcpmwa
	MOVEM.L	A2-A3,-(A7)
	MOVEA.L	$C(A7),A3
	MOVEA.L	$10(A7),A2
L378E
	MOVE.B	(A3),D0
	EXT.W	D0
	EXT.L	D0
	
        CMPI.B  #$61,D0
        BLT.S   LBF18
        CMPI.B  #$7A,D0
        BGT.S   LBF18
        SUBI.B  #$20,D0
LBF18 
	MOVE.B	(A2),D1
	EXT.W	D1
	EXT.L	D1
	
        CMPI.B  #$61,D1
        BLT.S   LBF19
        CMPI.B  #$7A,D1
        BGT.S   LBF19
        SUBI.B  #$20,D1
LBF19 
	CMP.L	D0,D1
	BEQ.S	L37C0
	MOVEQ	#$3F,D1
	CMP.B	(A2),D1
	BEQ.S	L37C0
	CMP.B	(A3),D1
	BNE.S	L37CE
  
L37C0
	TST.B	(A2)
	BNE.S	L37C8
	MOVEQ	#1,D0
	BRA.S	L37D0
L37C8
	ADDQ.L	#1,A3
	ADDQ.L	#1,A2
	BRA.S	L378E
L37CE
	MOVEQ	#0,D0
L37D0
	MOVEM.L	(A7)+,A2-A3
	RTS



_stcpmw
	MOVEM.L	D7/A2-A3,-(A7)
	MOVEQ	#0,D7
	MOVEA.L	$10(A7),A3
	MOVEA.L	$14(A7),A2
L37F4
	MOVE.B	(A3),D0
	EXT.W	D0
	EXT.L	D0
        CMPI.B  #$61,D0
        BLT.S   LBF20
        CMPI.B  #$7A,D0
        BGT.S   LBF20
        SUBI.B  #$20,D0
LBF20
	MOVE.B	(A2),D1
	EXT.W	D1
	EXT.L	D1
	CMPI.B  #$61,D1
        BLT.S   LBF21
        CMPI.B  #$7A,D1
        BGT.S   LBF21
        SUBI.B  #$20,D1
LBF21
	CMP.L	D0,D1
	BEQ.S	L383E
	MOVEQ	#$3F,D1
	CMP.B	(A2),D1
	BEQ.S	L383E
	CMP.B	(A3),D1
	BEQ.S	L383E
	TST.B	(A3)
	BNE.S	L383A
	MOVEQ	#0,D0
	BRA	L38BA
L383A
	ADDQ.L	#1,A3
	BRA.S	L37F4
L383E
	TST.B	(A2)
	BEQ.S	L3882
L3842
	ADDQ.L	#1,A3
	MOVE.B	(A3),D0
	EXT.W	D0
	EXT.L	D0
	CMPI.B  #$61,D0
        BLT.S   LBF22
        CMPI.B  #$7A,D0
        BGT.S   LBF22
        SUBI.B  #$20,D0
LBF22
	ADDQ.L	#1,A2
	MOVE.B	(A2),D1
	EXT.W	D1
	EXT.L	D1
	CMPI.B  #$61,D1
        BLT.S   LBF23
        CMPI.B  #$7A,D1
        BGT.S   LBF23
        SUBI.B  #$20,D1
LBF23
	CMP.L	D0,D1
	BEQ.S	L387A
	MOVEQ	#$3F,D1
	CMP.B	(A2),D1
	BEQ.S	L387A

	CMP.B	(A3),D1
	BNE.S	L3882
L387A
	TST.B	(A3)
	BEQ.S	L3882
	ADDQ.L	#1,D7
	BRA.S	L3842

L3882
	MOVEA.L	$14(A7),A0
L3886
	TST.B	(A0)+
	BNE.S	L3886
	SUBQ.L	#1,A0
	SUBA.L	$14(A7),A0
	MOVE.L	D7,D0
	ADDQ.L	#1,D0
	CMP.L	A0,D0
	BNE.S	L38A4
	MOVEQ	#1,D0
	BRA.S	L38BA
L38A4
	MOVEQ	#0,D7
	MOVEA.L	$14(A7),A2  $C(A5),A2
	TST.B	(A2)
	BNE	L37F4
	MOVEQ	#0,D0
L38BA
	MOVEM.L	(A7)+,D7/A2-A3
	RTS