1*d2912cb1SThomas Gleixner/* SPDX-License-Identifier: GPL-2.0-only */ 21da177e4SLinus Torvalds/* 31da177e4SLinus Torvalds * linux/arch/arm/lib/ll_char_wr.S 41da177e4SLinus Torvalds * 51da177e4SLinus Torvalds * Copyright (C) 1995, 1996 Russell King. 61da177e4SLinus Torvalds * 71da177e4SLinus Torvalds * Speedups & 1bpp code (C) 1996 Philip Blundell & Russell King. 81da177e4SLinus Torvalds * 91da177e4SLinus Torvalds * 10-04-96 RMK Various cleanups & reduced register usage. 101da177e4SLinus Torvalds * 08-04-98 RMK Shifts re-ordered 111da177e4SLinus Torvalds */ 121da177e4SLinus Torvalds 131da177e4SLinus Torvalds@ Regs: [] = corruptible 141da177e4SLinus Torvalds@ {} = used 151da177e4SLinus Torvalds@ () = do not use 161da177e4SLinus Torvalds 171da177e4SLinus Torvalds#include <linux/linkage.h> 181da177e4SLinus Torvalds#include <asm/assembler.h> 191da177e4SLinus Torvalds .text 201da177e4SLinus Torvalds 211da177e4SLinus TorvaldsLC0: .word LC0 221da177e4SLinus Torvalds .word bytes_per_char_h 231da177e4SLinus Torvalds .word video_size_row 241da177e4SLinus Torvalds .word acorndata_8x8 251da177e4SLinus Torvalds .word con_charconvtable 261da177e4SLinus Torvalds 271da177e4SLinus Torvalds/* 281da177e4SLinus Torvalds * r0 = ptr 291da177e4SLinus Torvalds * r1 = char 301da177e4SLinus Torvalds * r2 = white 311da177e4SLinus Torvalds */ 321da177e4SLinus TorvaldsENTRY(ll_write_char) 331da177e4SLinus Torvalds stmfd sp!, {r4 - r7, lr} 341da177e4SLinus Torvalds@ 351da177e4SLinus Torvalds@ Smashable regs: {r0 - r3}, [r4 - r7], (r8 - fp), [ip], (sp), [lr], (pc) 361da177e4SLinus Torvalds@ 371da177e4SLinus Torvalds /* 381da177e4SLinus Torvalds * calculate offset into character table 391da177e4SLinus Torvalds */ 401da177e4SLinus Torvalds mov r1, r1, lsl #3 411da177e4SLinus Torvalds /* 421da177e4SLinus Torvalds * calculate offset required for each row. 431da177e4SLinus Torvalds */ 441da177e4SLinus Torvalds adr ip, LC0 451da177e4SLinus Torvalds ldmia ip, {r3, r4, r5, r6, lr} 461da177e4SLinus Torvalds sub ip, ip, r3 471da177e4SLinus Torvalds add r6, r6, ip 481da177e4SLinus Torvalds add lr, lr, ip 491da177e4SLinus Torvalds ldr r4, [r4, ip] 501da177e4SLinus Torvalds ldr r5, [r5, ip] 511da177e4SLinus Torvalds /* 521da177e4SLinus Torvalds * Go to resolution-dependent routine... 531da177e4SLinus Torvalds */ 541da177e4SLinus Torvalds cmp r4, #4 551da177e4SLinus Torvalds blt Lrow1bpp 561da177e4SLinus Torvalds add r0, r0, r5, lsl #3 @ Move to bottom of character 571da177e4SLinus Torvalds orr r1, r1, #7 581da177e4SLinus Torvalds ldrb r7, [r6, r1] 591da177e4SLinus Torvalds teq r4, #8 601da177e4SLinus Torvalds beq Lrow8bpplp 611da177e4SLinus Torvalds@ 621da177e4SLinus Torvalds@ Smashable regs: {r0 - r3}, [r4], {r5 - r7}, (r8 - fp), [ip], (sp), {lr}, (pc) 631da177e4SLinus Torvalds@ 641da177e4SLinus TorvaldsLrow4bpplp: 651da177e4SLinus Torvalds ldr r7, [lr, r7, lsl #2] 661da177e4SLinus Torvalds mul r7, r2, r7 671da177e4SLinus Torvalds sub r1, r1, #1 @ avoid using r7 directly after 681da177e4SLinus Torvalds str r7, [r0, -r5]! 691da177e4SLinus Torvalds ldrb r7, [r6, r1] 701da177e4SLinus Torvalds ldr r7, [lr, r7, lsl #2] 711da177e4SLinus Torvalds mul r7, r2, r7 721da177e4SLinus Torvalds tst r1, #7 @ avoid using r7 directly after 731da177e4SLinus Torvalds str r7, [r0, -r5]! 741da177e4SLinus Torvalds subne r1, r1, #1 75e44fc388SStefan Agner ldrbne r7, [r6, r1] 761da177e4SLinus Torvalds bne Lrow4bpplp 771b93a717SRussell King ldmfd sp!, {r4 - r7, pc} 781da177e4SLinus Torvalds 791da177e4SLinus Torvalds@ 801da177e4SLinus Torvalds@ Smashable regs: {r0 - r3}, [r4], {r5 - r7}, (r8 - fp), [ip], (sp), {lr}, (pc) 811da177e4SLinus Torvalds@ 821da177e4SLinus TorvaldsLrow8bpplp: 831da177e4SLinus Torvalds mov ip, r7, lsr #4 841da177e4SLinus Torvalds ldr ip, [lr, ip, lsl #2] 851da177e4SLinus Torvalds mul r4, r2, ip 861da177e4SLinus Torvalds and ip, r7, #15 @ avoid r4 871da177e4SLinus Torvalds ldr ip, [lr, ip, lsl #2] @ avoid r4 881da177e4SLinus Torvalds mul ip, r2, ip @ avoid r4 891da177e4SLinus Torvalds sub r1, r1, #1 @ avoid ip 901da177e4SLinus Torvalds sub r0, r0, r5 @ avoid ip 911da177e4SLinus Torvalds stmia r0, {r4, ip} 921da177e4SLinus Torvalds ldrb r7, [r6, r1] 931da177e4SLinus Torvalds mov ip, r7, lsr #4 941da177e4SLinus Torvalds ldr ip, [lr, ip, lsl #2] 951da177e4SLinus Torvalds mul r4, r2, ip 961da177e4SLinus Torvalds and ip, r7, #15 @ avoid r4 971da177e4SLinus Torvalds ldr ip, [lr, ip, lsl #2] @ avoid r4 981da177e4SLinus Torvalds mul ip, r2, ip @ avoid r4 991da177e4SLinus Torvalds tst r1, #7 @ avoid ip 1001da177e4SLinus Torvalds sub r0, r0, r5 @ avoid ip 1011da177e4SLinus Torvalds stmia r0, {r4, ip} 1021da177e4SLinus Torvalds subne r1, r1, #1 103e44fc388SStefan Agner ldrbne r7, [r6, r1] 1041da177e4SLinus Torvalds bne Lrow8bpplp 1051b93a717SRussell King ldmfd sp!, {r4 - r7, pc} 1061da177e4SLinus Torvalds 1071da177e4SLinus Torvalds@ 1081da177e4SLinus Torvalds@ Smashable regs: {r0 - r3}, [r4], {r5, r6}, [r7], (r8 - fp), [ip], (sp), [lr], (pc) 1091da177e4SLinus Torvalds@ 1101da177e4SLinus TorvaldsLrow1bpp: 1111da177e4SLinus Torvalds add r6, r6, r1 1121da177e4SLinus Torvalds ldmia r6, {r4, r7} 1131da177e4SLinus Torvalds strb r4, [r0], r5 1141da177e4SLinus Torvalds mov r4, r4, lsr #8 1151da177e4SLinus Torvalds strb r4, [r0], r5 1161da177e4SLinus Torvalds mov r4, r4, lsr #8 1171da177e4SLinus Torvalds strb r4, [r0], r5 1181da177e4SLinus Torvalds mov r4, r4, lsr #8 1191da177e4SLinus Torvalds strb r4, [r0], r5 1201da177e4SLinus Torvalds strb r7, [r0], r5 1211da177e4SLinus Torvalds mov r7, r7, lsr #8 1221da177e4SLinus Torvalds strb r7, [r0], r5 1231da177e4SLinus Torvalds mov r7, r7, lsr #8 1241da177e4SLinus Torvalds strb r7, [r0], r5 1251da177e4SLinus Torvalds mov r7, r7, lsr #8 1261da177e4SLinus Torvalds strb r7, [r0], r5 1271b93a717SRussell King ldmfd sp!, {r4 - r7, pc} 1281da177e4SLinus Torvalds 1291da177e4SLinus Torvalds .bss 1301da177e4SLinus TorvaldsENTRY(con_charconvtable) 1311da177e4SLinus Torvalds .space 1024 132