--- /dev/null
+;
+; ite support for A2410.
+
+;
+; Copyright (c) 1995 Ignatios Souvatzis.
+; All rights reserved.
+;
+; Redistribution and use in source and binary forms, with or without
+; modification, are permitted provided that the following conditions
+; are met:
+; 1. Redistributions of source code must retain the above copyright
+; notice, this list of conditions and the following disclaimer.
+; 2. Redistributions in binary form must reproduce the above copyright
+; notice, this list of conditions and the following disclaimer in the
+; documentation and/or other materials provided with the distribution.
+; 3. All advertising materials mentioning features or use of this software
+; must display the following acknowledgement:
+; 4. The name of the author may not be used to endorse or promote products
+; derived from this software withough specific prior written permission
+;
+; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
+; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
+; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
+; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
+; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
+; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
+; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
+; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
+; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+; This file contains the source code for grf_ultmscode.h. It is
+; assembler code for the TMS34010 CPU/graphics processor.
+;
+; Use Paul Mackerras' gspa assembler to transfer it to hex format, then
+; Ignatios Souvatzis' hex2c utility (available from the author) or a small
+; perl script to transform that into the form of grf_ultmscode.h.
+;
+; A modified gspa for this purpose will be released as soon as this
+; procedure is cleaned up.
+;
+
+; memory map:
+; FF800000 .. FF9FFFFF overlay planes
+; FFA00000 .. FFA0FFFF ite support code
+; FFA10000 .. FFA1FFFF ite support, input queue
+; FFA20000 .. FFA2FEFF variables
+; FFA2FF00 .. FFA2FFFF variables, X server
+; FFA30000 .. FFA3FFFF font data
+; FFA40000 .. FFA4FFFF font data, bold
+; FFA50000 .. FFA5FFFF X server, input queue
+; FFA60000 .. FFFFC000 X server, onboard pixmaps
+
+; Start of data area
+ .org $FFA20000
+d:
+
+;
+; Ring buffer for getting stuff from host
+; Data buffer:
+inbuf = $FFA10000 ; 64kbits here (8k bytes)
+;
+; Pointers: (these must be at address $FFA20000)
+put: .long inbuf
+get: .long inbuf
+
+;
+; Mode bits for communication between GSP and CPU
+;
+; GSP mode bits: set by CPU, control GSP operation
+GSP_HOLD = 0
+GSP_FLUSH = 1
+GSP_ALT_SCRN = 2
+GSP_DISP_CTRL = 3
+GSP_NO_CURSOR = 4
+GSP_CALL_X = 5
+gsp_mode: .word 0
+
+;
+; Pointer to X operation routine
+xproc: .long 0
+
+; We leave the next few words for future communication requirements
+
+ .org d+0x100
+;
+; Other data:
+magic: .blkl 1 ; set => screen already inited
+MAGIC = 0xD0D0BEAC
+
+screen_width: .word 1024
+screen_height: .word 768
+screen_origin: .long $FE000000 ; just a placeholder
+screen_pitch: .word 8192 ; 1024*8
+pixel_size: .word 8
+
+ .org d+0x200
+font_adr:
+;
+; Font information is stored in the structure defined declared below.
+;
+bitmap_ptrs: .long $FFA30000 ; points to first bitmap
+font_size: .long $00080008 ; Y:X bitmap size
+under_row: .word 6 ; row # for underlines
+under_ht: .word 1 ; thickness of underline
+first_char: .word 32 ; first and last char in font
+last_char: .word 255 ;
+bold_smear: .word 1 ; for making bold fonts
+
+bgcolor: .long 0 ; background color
+fgcolor: .long $01010101 ; foreground color
+;precomputed out of what the host gave us:
+font_area: .word 64 ; in pixels
+font_pitch: .word 8
+font_lmo: .word 28
+
+
+; Control register addresses
+hesync = $c0000000
+dpyctl = $c0000080
+control = $c00000b0
+convsp = $c0000130
+convdp = $c0000140
+psize = $c0000150
+
+;
+; Bits in control register
+T = $20 ; enable transparency
+W = $C0 ; window options
+PBH = $100 ; pixblt horiz dirn
+PBV = $200 ; pixblt vertical dirn
+PPOP = $7C00 ; pixel processing options
+
+;
+; Bits in dpyctl register
+SRT = $800 ; do serial register transfers
+
+free_memory: .long free_memory_start
+free_memory_start: ; allocate dynamic arrays from here
+
+;
+; Program starts here.
+ .org $FFA00000
+ .start .
+
+;
+; initialization
+;
+ setf 16,0,0 ; just in case
+ setf 32,0,1
+ move $fffff000,sp
+
+; Set up sync, blank parameters
+; done by host through interface
+
+; set up overlay clut:
+ move $0,a0
+ move a0,@$fe800000
+ move $fe800030,a1
+ move 128,a0
+ move a0,*a1
+ move a0,*a1
+ move a0,*a1
+ move 0,a0
+ move a0,*a1
+ move a0,*a1
+ move a0,*a1
+ move a0,*a1
+ move a0,*a1
+ move a0,*a1
+ move a0,*a1
+ move a0,*a1
+ move a0,*a1
+
+; set up overlay planes:
+ move 6,a0
+ move a0,@$fe800000
+ move $0b,a0
+ move a0,@$fe800020
+
+; set up global registers
+ move @screen_pitch,b3,0
+ move @screen_origin,b4,1
+ move @bgcolor,b8,1
+ lmo b3,b0
+ move b0,@convdp,0
+ move @control,a0,0
+ andn $7FE0,a0 ; clear PPOP, PBV, PBH, W, T fields
+ move a0,@control,0
+ move @pixel_size,a0,0
+ move a0,@psize,0
+ move @psize,a0,0
+
+
+; clear the entire screen
+ move b4,b2
+ move 0,b9
+ move @screen_width,b7,1
+ fill l
+
+4:
+; main stuff...
+ move @get,a0,1
+ jruc main_loop
+loop_end:
+ clr a4
+ move a4,*a0,0
+ addxy a1,a0
+ move a0,@get,1
+main_loop:
+ move @gsp_mode,a1,0
+ btst GSP_CALL_X,a1
+ jreq main_loop_1
+
+ mmtm sp,a0,a1,a2,a3
+ move @xproc,a4,1
+ call a4
+ mmfm sp,a0,a1,a2,a3
+
+main_loop_1:
+ move @put,a3,1
+ move *a0,a1,0
+
+ move a1,a2
+ andi $FFF0,a1
+ jrz main_loop
+
+ sub a0,a3
+ jreq main_loop
+continue:
+ andi $F,a2
+ jrz loop_end
+ dec a2
+ jrnz testfor2
+; op 1 - char
+ movk 6,b10
+ move b10,@$fe800000,0
+ movk 1,b10
+ move b10,@$fe800020,0
+
+ move a0,b10
+ move *b10+,b12,0 ; dummy move (faster than addk)
+ move *b10+,b12,0 ; char code
+ move @first_char,b11,0
+ sub b11,b12 ; minus first char in font
+ move @font_size,b7,1 ;dydx - char size->pixel array dimensions
+ move @font_pitch,b1
+ move @font_lmo,b0
+ move b0,@convsp,0
+ move @font_area,b11
+
+ mpyu b12,b11 ; times char offset
+ move @font_adr,b0,1 ; font bitmaps base
+ add b11,b0 ; character bitmap start addr. linear
+
+ move *b10+,b8,0 ; fg
+ move *b10+,b9,0 ; bg
+ move *b10+,b2,1 ; y:x
+
+ move *b10+,b11,0 ; flags
+ move b11,a4
+ btst 0,a4
+ jreq noinv
+ move b8,b11
+ move b9,b8
+ move b11,b9
+noinv:
+ btst 2,a4
+ jreq nobold
+ addi $10000,b0
+nobold:
+ move b2,a5
+ pixblt b,xy
+ move a5,b2
+
+ btst 1,a4
+ jreq noul
+ move @under_row,b11,0
+ sll 16,b11 ; shift into Y half
+ add b11,b2
+ move @under_ht,b11,0
+ sll 16,b11 ; shift into Y half
+ movy b11,b7 ; and move Y half only
+ fill xy
+noul:
+ jruc loop_end
+testfor2:
+ dec a2
+ jrnz testfor3
+; op 2 - fill
+ move a0,b10
+ move *b10+,b9,0 ; dummy move
+ move *b10+,b9,0 ; color
+ move *b10+,b2,1 ; XY start address
+ move *b10+,b7,1 ; dydx
+
+ move @control,b0,0
+ move b0,*-sp
+ move *b10+,b0
+ setf 5,0,0
+ move b0,@control+10
+ setf 16,0,0
+ move @control,b0,0
+
+ fill xy
+
+ move *sp+,b0
+ move b0,@control,0
+ jruc loop_end,l
+
+testfor3:
+ dec a2
+ jrnz testfor4
+; op 3 - pixblt
+ move a0,b10
+ move @convdp,@convsp,0
+ move *b10+,b0,0 ; dummy move
+ move *b10+,b0,1 ; XY src
+ move *b10+,b7,1 ; dxdy
+ move *b10+,b2,1 ; XY dst
+ move b3,b1
+ move @control,b11,0
+ andni PBH|PBV,b11
+ cmpxy b0,b2
+ jrc yok
+ ori PBV,b11
+yok: jrv xok
+ ori PBH,b11
+xok: move b11,@control,0
+ move @control,b11,0
+
+ pixblt xy,xy
+ jruc loop_end,l
+
+testfor4:
+ dec a2
+ jrnz testfor5
+
+; op 4 - mirror the font and precompute some values.
+
+ move @font_size,a5,0
+ movk 8,a6
+ cmp a6,a5
+ jrle t4b8
+ movi 16, a6
+t4b8: move a6,@font_pitch,0
+ lmo a5,a6
+ move a6,@font_lmo,0
+ move @font_size+$10,a6,0
+ move @font_pitch,a5,0
+ mpyu a6,a5
+ move a5,@font_area,0
+
+ move @last_char,a6,0
+ move @first_char,a5,0
+ sub a5,a6
+ addk 1,a6
+ move @font_size+$10,a5,0
+ mpyu a6,a5
+ move @font_size,a7,0
+ cmpi 8,a7
+ move $7f7f,a12 ; mask for bold smearing
+ jrgt t4bf ; wider than 8 pixels?
+ addk 1,a5 ; yes, the words are only half the # of rows
+ srl 1,a5
+ move $7fff,a12 ; mask for bold smearing changes, too
+t4bf: move @font_adr,a6,1
+ move a6,a9
+ addi $10000,a9 ; start address of bold font
+ move @bold_smear,a10
+
+; fortunately, this loop fits into 3 of the 4 cache segments:
+; execution time: about 32 periods per word of font.
+
+mirlp: move *a6,a7
+ clr a8
+
+ srl 1,a7
+ addc a8,a8
+ srl 1,a7
+ addc a8,a8
+ srl 1,a7
+ addc a8,a8
+ srl 1,a7
+ addc a8,a8
+
+ srl 1,a7
+ addc a8,a8
+ srl 1,a7
+ addc a8,a8
+ srl 1,a7
+ addc a8,a8
+ srl 1,a7
+ addc a8,a8
+
+ srl 1,a7
+ addc a8,a8
+ srl 1,a7
+ addc a8,a8
+ srl 1,a7
+ addc a8,a8
+ srl 1,a7
+ addc a8,a8
+
+ srl 1,a7
+ addc a8,a8
+ srl 1,a7
+ addc a8,a8
+ srl 1,a7
+ addc a8,a8
+ srl 1,a7
+ addc a8,a8
+
+ move a8,*a6+
+ move a8,a7
+ move a10,a11
+smearlp:
+ and a12,a7
+ sll 1,a7
+ or a7,a8
+ dsj a11,smearlp
+ move a8,*a9+
+
+ dsj a5,mirlp
+;; support odd-sized fonts. pitch must still be 8 or 16
+ move @font_size,a5,0
+ move @font_pitch,a6,0
+ sub a5,a6
+ move @font_adr,a5,1
+ add a5,a6
+ move a6,@font_adr,1
+;;
+ jruc loop_end,l
+
+
+testfor5:
+ dec a2
+ jrne testfor6
+; loadclut --- load clut entry.
+; 1==overlay index red green blue
+; for speed reasons, the host will load the image clut directly rather
+; than through us, but its not that expensive to support both here
+; just in case
+ move a0,a4
+ addk $10,a4
+ move $fe800030,a6
+ move *a4+,a5,0
+ jrne t5l1
+ subk $20,a6
+t5l1: move *a4+,a5,0
+ move a5,@$fe800000,0
+ move *a4+,a5,0
+ move a5,*a6,0
+ move *a4+,a5,0
+ move a5,*a6,0
+ move *a4+,a5,0
+ move a5,*a6,0
+ jruc loop_end,l
+
+testfor6:
+ dec a2
+ jrne testfor7
+
+; op 6: load new framebuffer size and position for ite support.
+ move a0,b10
+ addk $10,b10
+ move *b10+,b7,1
+ move b7,@screen_width,1
+ move *b10+,b4,1
+ move b4,@screen_origin,1
+ move *b10+,b3,0
+ move b3,@screen_pitch,0
+ lmo b3,b0
+ move b0,@convdp,0
+ move *b10,b0,0
+ move b0,@psize,0
+ move b0,@pixel_size,0 ; this syncs the psize write, too
+
+ jruc loop_end,l
+
+testfor7:
+ jruc loop_end,l
+;;;
+++ /dev/null
-;
-; ite support for A2410.
-
-;
-; Copyright (c) 1995 Ignatios Souvatzis.
-; All rights reserved.
-;
-; Redistribution and use in source and binary forms, with or without
-; modification, are permitted provided that the following conditions
-; are met:
-; 1. Redistributions of source code must retain the above copyright
-; notice, this list of conditions and the following disclaimer.
-; 2. Redistributions in binary form must reproduce the above copyright
-; notice, this list of conditions and the following disclaimer in the
-; documentation and/or other materials provided with the distribution.
-; 3. All advertising materials mentioning features or use of this software
-; must display the following acknowledgement:
-; 4. The name of the author may not be used to endorse or promote products
-; derived from this software withough specific prior written permission
-;
-; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
-; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
-; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
-; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
-; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
-; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
-; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
-; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
-; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-; This file contains the source code for grf_ultmscode.h. It is
-; assembler code for the TMS34010 CPU/graphics processor.
-;
-; Use Paul Mackerras' gspa assembler to transfer it to hex format, then
-; Ignatios Souvatzis' hex2c utility (available from the author) or a small
-; perl script to transform that into the form of grf_ultmscode.h.
-;
-; A modified gspa for this purpose will be released as soon as this
-; procedure is cleaned up.
-;
-
-; memory map:
-; FF800000 .. FF9FFFFF overlay planes
-; FFA00000 .. FFA0FFFF ite support code
-; FFA10000 .. FFA1FFFF ite support, input queue
-; FFA20000 .. FFA2FEFF variables
-; FFA2FF00 .. FFA2FFFF variables, X server
-; FFA30000 .. FFA3FFFF font data
-; FFA40000 .. FFA4FFFF font data, bold
-; FFA50000 .. FFA5FFFF X server, input queue
-; FFA60000 .. FFFFC000 X server, onboard pixmaps
-
-; Start of data area
- .org $FFA20000
-d:
-
-;
-; Ring buffer for getting stuff from host
-; Data buffer:
-inbuf = $FFA10000 ; 64kbits here (8k bytes)
-;
-; Pointers: (these must be at address $FFA20000)
-put: .long inbuf
-get: .long inbuf
-
-;
-; Mode bits for communication between GSP and CPU
-;
-; GSP mode bits: set by CPU, control GSP operation
-GSP_HOLD = 0
-GSP_FLUSH = 1
-GSP_ALT_SCRN = 2
-GSP_DISP_CTRL = 3
-GSP_NO_CURSOR = 4
-GSP_CALL_X = 5
-gsp_mode: .word 0
-
-;
-; Pointer to X operation routine
-xproc: .long 0
-
-; We leave the next few words for future communication requirements
-
- .org d+0x100
-;
-; Other data:
-magic: .blkl 1 ; set => screen already inited
-MAGIC = 0xD0D0BEAC
-
-screen_width: .word 1024
-screen_height: .word 768
-screen_origin: .long $FE000000 ; just a placeholder
-screen_pitch: .word 8192 ; 1024*8
-pixel_size: .word 8
-
- .org d+0x200
-font_adr:
-;
-; Font information is stored in the structure defined declared below.
-;
-bitmap_ptrs: .long $FFA30000 ; points to first bitmap
-font_size: .long $00080008 ; Y:X bitmap size
-under_row: .word 6 ; row # for underlines
-under_ht: .word 1 ; thickness of underline
-first_char: .word 32 ; first and last char in font
-last_char: .word 255 ;
-bold_smear: .word 1 ; for making bold fonts
-
-bgcolor: .long 0 ; background color
-fgcolor: .long $01010101 ; foreground color
-;precomputed out of what the host gave us:
-font_area: .word 64 ; in pixels
-font_pitch: .word 8
-font_lmo: .word 28
-
-
-; Control register addresses
-hesync = $c0000000
-dpyctl = $c0000080
-control = $c00000b0
-convsp = $c0000130
-convdp = $c0000140
-psize = $c0000150
-
-;
-; Bits in control register
-T = $20 ; enable transparency
-W = $C0 ; window options
-PBH = $100 ; pixblt horiz dirn
-PBV = $200 ; pixblt vertical dirn
-PPOP = $7C00 ; pixel processing options
-
-;
-; Bits in dpyctl register
-SRT = $800 ; do serial register transfers
-
-free_memory: .long free_memory_start
-free_memory_start: ; allocate dynamic arrays from here
-
-;
-; Program starts here.
- .org $FFA00000
- .start .
-
-;
-; initialization
-;
- setf 16,0,0 ; just in case
- setf 32,0,1
- move $fffff000,sp
-
-; Set up sync, blank parameters
-; done by host through interface
-
-; set up overlay clut:
- move $0,a0
- move a0,@$fe800000
- move $fe800030,a1
- move 128,a0
- move a0,*a1
- move a0,*a1
- move a0,*a1
- move 0,a0
- move a0,*a1
- move a0,*a1
- move a0,*a1
- move a0,*a1
- move a0,*a1
- move a0,*a1
- move a0,*a1
- move a0,*a1
- move a0,*a1
-
-; set up overlay planes:
- move 6,a0
- move a0,@$fe800000
- move $0b,a0
- move a0,@$fe800020
-
-; set up global registers
- move @screen_pitch,b3,0
- move @screen_origin,b4,1
- move @bgcolor,b8,1
- lmo b3,b0
- move b0,@convdp,0
- move @control,a0,0
- andn $7FE0,a0 ; clear PPOP, PBV, PBH, W, T fields
- move a0,@control,0
- move @pixel_size,a0,0
- move a0,@psize,0
- move @psize,a0,0
-
-
-; clear the entire screen
- move b4,b2
- move 0,b9
- move @screen_width,b7,1
- fill l
-
-4:
-; main stuff...
- move @get,a0,1
- jruc main_loop
-loop_end:
- clr a4
- move a4,*a0,0
- addxy a1,a0
- move a0,@get,1
-main_loop:
- move @gsp_mode,a1,0
- btst GSP_CALL_X,a1
- jreq main_loop_1
-
- mmtm sp,a0,a1,a2,a3
- move @xproc,a4,1
- call a4
- mmfm sp,a0,a1,a2,a3
-
-main_loop_1:
- move @put,a3,1
- move *a0,a1,0
-
- move a1,a2
- andi $FFF0,a1
- jrz main_loop
-
- sub a0,a3
- jreq main_loop
-continue:
- andi $F,a2
- jrz loop_end
- dec a2
- jrnz testfor2
-; op 1 - char
- movk 6,b10
- move b10,@$fe800000,0
- movk 1,b10
- move b10,@$fe800020,0
-
- move a0,b10
- move *b10+,b12,0 ; dummy move (faster than addk)
- move *b10+,b12,0 ; char code
- move @first_char,b11,0
- sub b11,b12 ; minus first char in font
- move @font_size,b7,1 ;dydx - char size->pixel array dimensions
- move @font_pitch,b1
- move @font_lmo,b0
- move b0,@convsp,0
- move @font_area,b11
-
- mpyu b12,b11 ; times char offset
- move @font_adr,b0,1 ; font bitmaps base
- add b11,b0 ; character bitmap start addr. linear
-
- move *b10+,b8,0 ; fg
- move *b10+,b9,0 ; bg
- move *b10+,b2,1 ; y:x
-
- move *b10+,b11,0 ; flags
- move b11,a4
- btst 0,a4
- jreq noinv
- move b8,b11
- move b9,b8
- move b11,b9
-noinv:
- btst 2,a4
- jreq nobold
- addi $10000,b0
-nobold:
- move b2,a5
- pixblt b,xy
- move a5,b2
-
- btst 1,a4
- jreq noul
- move @under_row,b11,0
- sll 16,b11 ; shift into Y half
- add b11,b2
- move @under_ht,b11,0
- sll 16,b11 ; shift into Y half
- movy b11,b7 ; and move Y half only
- fill xy
-noul:
- jruc loop_end
-testfor2:
- dec a2
- jrnz testfor3
-; op 2 - fill
- move a0,b10
- move *b10+,b9,0 ; dummy move
- move *b10+,b9,0 ; color
- move *b10+,b2,1 ; XY start address
- move *b10+,b7,1 ; dydx
-
- move @control,b0,0
- move b0,*-sp
- move *b10+,b0
- setf 5,0,0
- move b0,@control+10
- setf 16,0,0
- move @control,b0,0
-
- fill xy
-
- move *sp+,b0
- move b0,@control,0
- jruc loop_end,l
-
-testfor3:
- dec a2
- jrnz testfor4
-; op 3 - pixblt
- move a0,b10
- move @convdp,@convsp,0
- move *b10+,b0,0 ; dummy move
- move *b10+,b0,1 ; XY src
- move *b10+,b7,1 ; dxdy
- move *b10+,b2,1 ; XY dst
- move b3,b1
- move @control,b11,0
- andni PBH|PBV,b11
- cmpxy b0,b2
- jrc yok
- ori PBV,b11
-yok: jrv xok
- ori PBH,b11
-xok: move b11,@control,0
- move @control,b11,0
-
- pixblt xy,xy
- jruc loop_end,l
-
-testfor4:
- dec a2
- jrnz testfor5
-
-; op 4 - mirror the font and precompute some values.
-
- move @font_size,a5,0
- movk 8,a6
- cmp a6,a5
- jrle t4b8
- movi 16, a6
-t4b8: move a6,@font_pitch,0
- lmo a5,a6
- move a6,@font_lmo,0
- move @font_size+$10,a6,0
- move @font_pitch,a5,0
- mpyu a6,a5
- move a5,@font_area,0
-
- move @last_char,a6,0
- move @first_char,a5,0
- sub a5,a6
- addk 1,a6
- move @font_size+$10,a5,0
- mpyu a6,a5
- move @font_size,a7,0
- cmpi 8,a7
- move $7f7f,a12 ; mask for bold smearing
- jrgt t4bf ; wider than 8 pixels?
- addk 1,a5 ; yes, the words are only half the # of rows
- srl 1,a5
- move $7fff,a12 ; mask for bold smearing changes, too
-t4bf: move @font_adr,a6,1
- move a6,a9
- addi $10000,a9 ; start address of bold font
- move @bold_smear,a10
-
-; fortunately, this loop fits into 3 of the 4 cache segments:
-; execution time: about 32 periods per word of font.
-
-mirlp: move *a6,a7
- clr a8
-
- srl 1,a7
- addc a8,a8
- srl 1,a7
- addc a8,a8
- srl 1,a7
- addc a8,a8
- srl 1,a7
- addc a8,a8
-
- srl 1,a7
- addc a8,a8
- srl 1,a7
- addc a8,a8
- srl 1,a7
- addc a8,a8
- srl 1,a7
- addc a8,a8
-
- srl 1,a7
- addc a8,a8
- srl 1,a7
- addc a8,a8
- srl 1,a7
- addc a8,a8
- srl 1,a7
- addc a8,a8
-
- srl 1,a7
- addc a8,a8
- srl 1,a7
- addc a8,a8
- srl 1,a7
- addc a8,a8
- srl 1,a7
- addc a8,a8
-
- move a8,*a6+
- move a8,a7
- move a10,a11
-smearlp:
- and a12,a7
- sll 1,a7
- or a7,a8
- dsj a11,smearlp
- move a8,*a9+
-
- dsj a5,mirlp
-;; support odd-sized fonts. pitch must still be 8 or 16
- move @font_size,a5,0
- move @font_pitch,a6,0
- sub a5,a6
- move @font_adr,a5,1
- add a5,a6
- move a6,@font_adr,1
-;;
- jruc loop_end,l
-
-
-testfor5:
- dec a2
- jrne testfor6
-; loadclut --- load clut entry.
-; 1==overlay index red green blue
-; for speed reasons, the host will load the image clut directly rather
-; than through us, but its not that expensive to support both here
-; just in case
- move a0,a4
- addk $10,a4
- move $fe800030,a6
- move *a4+,a5,0
- jrne t5l1
- subk $20,a6
-t5l1: move *a4+,a5,0
- move a5,@$fe800000,0
- move *a4+,a5,0
- move a5,*a6,0
- move *a4+,a5,0
- move a5,*a6,0
- move *a4+,a5,0
- move a5,*a6,0
- jruc loop_end,l
-
-testfor6:
- dec a2
- jrne testfor7
-
-; op 6: load new framebuffer size and position for ite support.
- move a0,b10
- addk $10,b10
- move *b10+,b7,1
- move b7,@screen_width,1
- move *b10+,b4,1
- move b4,@screen_origin,1
- move *b10+,b3,0
- move b3,@screen_pitch,0
- lmo b3,b0
- move b0,@convdp,0
- move *b10,b0,0
- move b0,@psize,0
- move b0,@pixel_size,0 ; this syncs the psize write, too
-
- jruc loop_end,l
-
-testfor7:
- jruc loop_end,l
-;;;
projects / openbsd / commitdiff