Assembler: |
; Register retten
movem.l D0-D2/A0-A2,-(A7)
; Zeiger Parameterblock LINEA
move.l pParamblk,A0
; Writemode in LINEA.wrt_mode
move.w wmode,(36,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)
; xacc_dda mit $8000 besetzen
move.w #$8000,(64,A0)
; Vergrößerungsfaktor in LINEA.dda_inc
move.w dda_inc,(66,A0)
; Vergrößerungsrichtung in LINEA.t_sclsts
move.w t_sclsts,(68,A0)
; Proportionalschrift in LINEA.mono_status
move.w mono_status,(70,A0)
; X-Koordinate im Font in LINEA.sourcex
move.w sourcex,(72,A0)
; Y-Koordinate im Font in LINEA.sourcey
move.w sourcey,(74,A0)
; X-Zielkoordinate in LINEA.destx
move.w destx,(76,A0)
; Y-Zielkoordinate in LINEA.desty
move.w desty,(78,A0)
; Breite des Zeichens in LINEA.delx
move.w delx,(80,A0)
; Höhe des Zeichens in LINEA.dely
move.w dely,(82,A0)
; Start der Font-Daten in LINEA.fbase
move.l fbase,(84,A0)
; Breite des Fontimage in LINEA.fwidth
move.w fwidth,(88,A0)
; Schreibstil in LINEA.style
move.w style,(90,A0)
; Maske für Light in LINEA.litemask
move.w litemask,(92,A0)
; Maske für Kursiv in LINEA.skewmask
move.w skewmask,(94,A0)
; Breite bei Bold in LINEA.weight
move.w weight,(96,A0)
; Kursiv-Offset rechts in LINEA.r_off
move.w r_off,(98,A0)
; Kursiv-Offset links in LINEA.l_off
move.w l_off,(100,A0)
; Vergrößerung ja/nein in LINEA.scale
move.w scale,(102,A0)
; Rotationswinkel in LINEA.chup
move.w chup,(104,A0)
; Textfarbe in LINEA.text_fg
move.w text_fg,(106,A0)
; Puffer in LINEA.scrtchp
move.l scrtchp,(108,A0)
; Index in Puffermitte in LINEA.scrpt2
move.w scrpt2,(112,A0)
; Hintergrundfarbe in LINEA.text_bg
move.w text_bg,(114,A0)
; Line-A Opcode
dc.w $A008
; Register restaurieren
movem.l (A7)+,D0-D2/A0-A2
|