FC9DAC:	MOVE.L $0000293E,A0	;add of cntrl
FC9DB2:	MOVE.W  $0002(A0),D0	;num verts in poly
FC9DB6:	SUBQ.W  #1,D0		;sub 1 from above
FC9DB8:	MOVE.L $00002946,A0	;add of ptsin
FC9DBE:	LEA     $0000167A,A1	;???????maybe temp storage
FC9DC4:	MOVE.W  #$0000,$000025BE;???????
*i beleive this to be the sort routine
FC9DCC:	MOVE.W  $0006(A0),D1	;y2 of vertices in d1
FC9DD0:	MOVE.W  $0002(A0),D2	;y1 of vertices in d2
FC9DD4:	SUB.W   D2,D1		;sub y1 from y2
FC9DD6:	BEQ.S   FC9E0E		;bra there
FC9DD8:	MOVE.W  $00002962,D3	;get y1 (not from ptsin)
FC9DDE:	MOVE.W  D3,D4		;copy y1
FC9DE0:	SUB.W   D2,D4		;sub y1 from vert from y1 scanlin
FC9DE2:	SUB.W   $0006(A0),D3	;sub y2 of verts from y1 scanlin
FC9DE6:	MOVE.W  D4,D2		;copy result from above
FC9DE8:	EOR.W   D3,D2
FC9DEA:	BPL.S   FC9E0E		;bra there again move along list of vert?
FC9DEC:	MOVE.W  $0004(A0),D2	;get x2 from ptsin
FC9DF0:	SUB.W   $0000(A0),D2	;sub x1 from x2
FC9DF4:	ASL.W   #1,D2		;mult by 2
FC9DF6:	MULS    D2,D4		;mult d4 by d2
FC9DF8:	DIVS    D1,D4		;div d4 by d1
FC9DFA:	BMI     FC9EAC		;bra there
FC9DFE: ADDQ.W  #1,D4
FC9E00: ASR.W   #1,D4		;mult by 2
FC9E02: ADD.W   $0000(A0),D4	;add x1 to d4
FC9E06: MOVE.W  D4,(A1)+	;i think put in temp storage?????
FC9E08: ADDQ.W  #1,$000025BE	;not too sure?????
FC9E0E: LEA     $0004(A0),A0	; buggered(should be add of x2 in ptsin)
FC9E12: DBRA    D0,FC9DCC
FC9E16: MOVE.W  $000025BE,D0	;must be number of ????h line segments?
FC9E1C: BNE.S   FC9E20		;ok to go ahead
FC9E1E: RTS			;all done
********************************************
FC9E20: LEA     $0000167A,A0	;temp storage mabe x1,x2 etc for hline
FC9E26: BSR     FC9EB8		;it may be a sort
FC9E2A: MOVE.W  $000025BE,D0	;get num of hline segs again???
FC9E30: ASR.W   #1,D0		;mult by 2
FC9E32: SUBQ.W	#1,D0		;dbf purposes i guess
FC9E34: TST.W   $00002970	;clipping flag
FC9E3A: BNE.S   FC9E5A		;anything but zero and clip
FC9E3C: MOVE.W  (A1)+,$00002960	;x1 coord in linparams
FC9E42: MOVE.W  (A1)+,$00002964	;x2 coord "   "
FC9E48: MOVE.W  D0,-(A7)	;save d0
FC9E4A: MOVE.L  A1,-(A7)	;save a1
FC9E4C: jSR     $00FCA2DE	;draw hline routine
FC9E50: MOVE.L (A7)+,A1	;preserve a1 and d2
FC9E52: MOVE.W  (A7)+,D0
FC9E54: DBRA    D0,FC9E3C	;do any more h lines
FC9E58: RTS			;all done

*************************************************
*	clip routine				*
*************************************************
FC9E5A: MOVE.W  (A1)+,$00002960	;x1 in linepar
FC9E60: MOVE.W  (A1)+,$00002964	;x2 in linepar
FC9E66: MOVE.W  $00002972,D1	;min x clipping value in linepar
FC9E6C: MOVE.W  $00002960,D2	;x1
FC9E72: MOVE.W  $00002964,D3	;x2
FC9E78: CMP.W   D1,D2
FC9E7A: BGE.S   FC9E86
FC9E7C: CMP.W   D1,D3
FC9E7E: BLT.S   FC9EA6
FC9E80: MOVE.W  D1,$00002960	;put clip value into x1
FC9E86: MOVE.W  $00002976,D1	;max x clip
FC9E8C: CMP.W   D1,D3
FC9E8E: BLE.S   FC9E9A
FC9E90: CMP.W   D1,D2
FC9E92: BGT.S   FC9EA6
FC9E94: MOVE.W  D1,$00002964	;put clipped into x2
FC9E9A: MOVE.W  D0,-(A7)	;save d0
FC9E9C: MOVE.L  A1,-(A7)	;save a1
FC9E9E: jSR     $00FCA2DE	;bsr draw hline
FC9EA2: MOVE.L (A7)+,A1	;restore registers
FC9EA4: MOVE.W  (A7)+,D0	;
FC9EA6: DBRA    D0,FC9E5A
FC9EAA: RTS			;alldone

***********************************************                           
FC9EAC: NEG.W   D4
FC9EAE: ADDQ.W  #1,D4
FC9EB0: ASR.W   #1,D4
FC9EB2: NEG.W   D4
FC9EB4: BRA     FC9E02

*********************************************************
*	perhaps some sort routine             		*
*********************************************************
FC9EB8: TST.W   D0		;test num of hline segs???
FC9EBA: BEQ.S   FC9EDE
FC9EBC: SUBQ.W  #1,D0		;for dbf purpose i assume
FC9EBE: BEQ.S   FC9EDE
FC9EC0: SUBQ.W  #1,D0		;beats me
FC9EC2: MOVE.W  D0,D1		;strange????
FC9EC4: MOVE.L A0,A1
FC9EC6: MOVE.W  D1,D0
FC9EC8: MOVE.L A1,A0
FC9ECA: MOVE.W  (A0)+,D2
FC9ECC: CMP.W   (A0),D2
FC9ECE: BLE.S   FC9ED6
*FC9ED0: MOVE.W  (A0),$FFFE(A0)	;some sort of sort perhaps?
FC9ED0: MOVE.W  (A0),-2(A0)	;some sort of sort perhaps?
FC9ED4: MOVE.W  D2,(A0)
FC9ED6: DBRA    D0,FC9ECA
FC9EDA: DBRA    D1,FC9EC6
FC9EDE: RTS			;finished get here due to erl test

*FC9EE0 MOVEQ   #$01,D1
*               
*FC9EE2 MOVE.W  $0006(A7),D0
*          
*FC9EE6 MULS    $0004(A7),D0
*          
*FC9EEA BPL.S   $00FC9EEE
*             
*FC9EEC NEG.W   D1
*                    
*FC9EEE MOVE.W  $0008(A7),D2
*          
*FC9EF2 DIVS    D2,D0
*                 
*FC9EF4 AND.W   D2,D2
*                 
*FC9EF6 BPL.S   $00FC9EFC
*             
*FC9EF8 NEG.W   D1
*                    
*FC9EFA NEG.W   D2
*                    
*FC9EFC MOVE.L  D3,-(A7)
*              
*FC9EFE MOVE.L  D0,D3
*                 
*FC9F00 SWAP    D3
*                    
*FC9F02 AND.W   D3,D3
*                 
*FC9F04 BPL.S   $00FC9F08
*             
*FC9F06 NEG.W   D3
*                    
*FC9F08 ASL.W   #1,D3
*                 
*FC9F0A CMP.W   D2,D3
*                 
*FC9F0C BLT.S   $00FC9F10
*             
*FC9F0E ADD.W   D1,D0
*                 
*FC9F10 MOVE.L  (A7)+,D3
*              
*FC9F12 RTS
*                           
*FC9F14 MOVE.W  D2,-(A7)
*              
*FC9F16 MOVE.W  D3,-(A7)
*              
*FC9F18 MULU    $00002938,D1
*          
*FC9F1E MOVE.W  $0000293A,D3
*          
*FC9F24 MOVE.B  $15(PC,D3.W),D3
*       
*FC9F28 MOVE.W  D0,D2
**                 
*FC9F2A AND.W   #$000F,D0
             
*FC9F2E AND.W   #$FFF0,D2
*             
*FC9F32 LSR.W   D3,D2
*                 
*FC9F34 ADD.W   D2,D1
*                 
*FC9F36 MOVE.W  (A7)+,D3
*              
*FC9F38 MOVE.W  (A7)+,D2
*              
*FC9F3A RTS
                           
