Assembler: |
Es wird angenommen, daß das intin und ptsin Feld schon in den
Line-A Parameterblock eingetragen wurde.
; Register retten
movem.l D0-D2/A0-A2,-(A7)
; Zeiger Parameterblock LINEA
move.l pParamblk,A0
; Adresse intin nach A1
move.l (8,A0),A1
; Mode-Wort nach intin[0]
move.w mode_wort,(A1)
; Adresse ptsin nach A1
move.l (12,A0),A1
; X-Koordinate nach ptsin[0]
move.w x,(A1)
; Y-Koordinate nach ptsin[1]
move.w y,(2,A1)
; Writemode in LINEA.wrt_mode
move.w wmode,(36,A0)
; Linienmuster in LINEA.patptr
move.w patptr,(44,A0)
; Anzahl Muster in LINEA.patmsk
move.w patmsk,(48,A0)
; Ebenenflag in LINEA.multifill
move.w multifill,(50,A0)
; Clipmode in LINEA.clip
move.w mode,(54,A0)
; linke obere Clip-Ecke, X-Koordinate in LINEA.xmn_clip
move.w cx1,(56,A0)
; linke obere Clip-Ecke, Y-Koordinate in LINEA.ymn_clip
move.w cy1,(58,A0)
; rechte untere Clip-Ecke, X-Koordinate in LINEA.xmx_clip
move.w cx2,(60,A0)
; rechte untere Clip-Ecke, Y-Koordinate in LINEA.ymx_clip
move.w cy2,(62,A0)
; Abbruchfunktion nach LINEA.fill_abort
move.l fill_abort,(118,A0)
; Line-A Opcode
dc.w $A00F
; Register restaurieren
movem.l (A7)+,D0-D2/A0-A2
|