source: buchla-68k/orig/IOLIB/VWPUTS.S@ 66b48e7

Last change on this file since 66b48e7 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Imported original source code.
  • Property mode set to 100755
File size: 3.8 KB
RevLine 
[3ae31e9]1* ------------------------------------------------------------------------------
2* vwputs.s -- output a character string to a 2-bit per pixel graphics window
3* Version 9 -- 1987-07-28 -- D.N. Lynx Crowe
4* (c) Copyright 1987 -- D.N. Lynx Crowe
5* ------------------------------------------------------------------------------
6*
7* vwputs(obase, nw, fg, bg, row, col, str)
8* int *obase, nw, fg, bg, row, col;
9* char *str;
10*
11* Outputs characters from the string at 'str' to an 'nw'
12* character wide 2-bit per pixel graphics window at 'obase'
13* at ('row','col'), using 'fg' as the foreground color, and
14* 'bg' as the background color. Uses cgtable[][256] as the
15* VSDD formatted character generator table.
16* No error checks are done.
17* ------------------------------------------------------------------------------
18*
19 .text
20 .xdef _vwputs
21*
22 .xref _cgtable
23*
24* Argument offsets from a6:
25*
26OBASE .equ 8 * L: Output area base address
27NW .equ 12 * W: Character width of output area
28FG .equ 14 * W: Foreground color
29BG .equ 16 * W: Background color
30ROW .equ 18 * W: Row
31COL .equ 20 * W: Column
32STR .equ 22 * L: String base address
33*
34* Miscellaneous constants:
35*
36HPIX .equ 8 * Horizontal pixels in the character
37*
38NVPIX .equ 12 * Vertical pixels in the character
39VPITCH .equ 12 * Vertical pitch between characters
40*
41* Register usage:
42*
43* d0 output word and scratch
44* d1 CG word and scratch
45* d2 pixel counter
46* d3 foreground color (in the 2 ms bits)
47* d4 background color (in the 2 ms bits)
48* d5 width of the area in bytes
49* d6 scan line counter
50*
51* a0 CG table pointer
52* a1 output area scan line pointer
53* a2 input character pointer
54* a3 output area character pointer
55*
56 .page
57*
58_vwputs: link a6,#0 * Link stack frames
59 movem.l d3-d6/a3,-(a7) * Save registers we use
60 move.w #14,d1 * Set shift constant
61 move.w FG(a6),d3 * Setup foreground color
62 lsl.w d1,d3 * ... in ms 2 bits of d3
63 move.w BG(a6),d4 * Setup background color
64 lsl.w d1,d4 * ... in ms 2 bits of d4
65 move.w NW(a6),d5 * Get width in characters in d5
66 lsl.w #1,d5 * ... make it words
67 move.w ROW(a6),d0 * Calculate output address
68 move.w #VPITCH,d1 * ...
69 mulu d1,d0 * ... ROW * VPITCH
70 add.w #NVPIX-1,d0 * ... + NVPIX-1
71 mulu d5,d0 * ... * NW
72 clr.l d1 * ...
73 move.w COL(a6),d1 * ... + (COL * 2)
74 lsl.l #1,d1 * ...
75 add.l d1,d0 * ...
76 add.l OBASE(a6),d0 * ... + OBASE
77 movea.l d0,a3 * Leave output address in a3
78 movea.l STR(a6),a2 * Put string address in a2
79*
80 .page
81cgl0: clr.l d0 * Clear out upper bits of d0
82 move.b (a2)+,d0 * Get next character
83 beq cgl5 * Done if character EQ 0
84*
85 movea.l a3,a1 * Establish output pointer in a1
86 adda.l #2,a3 * Update output pointer for next char.
87 lea _cgtable,a0 * Establish CG pointer in a0
88 lsl.w #1,d0 * ... 2 * character
89 adda.w d0,a0 * ... + _cgtable address
90 move.w #NVPIX-1,d6 * Set scan line counter in d6
91*
92cgl1: move.w #HPIX-1,d2 * Set pixel counter in d2
93 move.w (a0),d1 * Get character generator word in d1
94*
95cgl2: lsr.w #2,d0 * Shift output word right 1 pixel
96 btst.l #0,d1 * Check CG word ls bit
97 beq cgl3 * Set background color if bit EQ 0
98*
99 or.w d3,d0 * OR foreground color into output word
100 bra cgl4 * Go update CG word
101*
102cgl3: or.w d4,d0 * OR background color into output word
103*
104cgl4: lsr.w #1,d1 * Shift CG word right 1 pixel
105 dbf d2,cgl2 * Loop for all 8 pixels
106*
107 move.w d0,(a1) * Store output word in output bitmap
108 suba.w d5,a1 * Update output pointer
109 adda.l #512,a0 * Update CG pointer for next scan line
110 dbf d6,cgl1 * Loop for all scan lines
111*
112 bra cgl0 * Loop for next character
113*
114cgl5: movem.l (a7)+,d3-d6/a3 * Restore registers
115 unlk a6 * Unlink stack frames
116 rts * Return to caller
117*
118 .end
Note: See TracBrowser for help on using the repository browser.