URL
https://opencores.org/ocsvn/thor/thor/trunk
Subversion Repositories thor
[/] [thor/] [trunk/] [software/] [boot_tb/] [DisplayChar.asm] - Rev 45
Go to most recent revision | Compare with Previous | Blame | View Log
; ============================================================================; __; \\__/ o\ (C) 2015 Robert Finch, Stratford; \ __ / All rights reserved.; \/_// robfinch<remove>@finitron.ca; ||;;; This source file is free software: you can redistribute it and/or modify; it under the terms of the GNU Lesser General Public License as published; by the Free Software Foundation, either version 3 of the License, or; (at your option) any later version.;; This source file is distributed in the hope that it will be useful,; but WITHOUT ANY WARRANTY; without even the implied warranty of; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the; GNU General Public License for more details.;; You should have received a copy of the GNU General Public License; along with this program. If not, see <http://www.gnu.org/licenses/>.;; ============================================================================;;------------------------------------------------------------------------------; Display a character on the screen device;------------------------------------------------------------------------------;public VBDisplayChar:addui r31,r31,#-40sws c1,zs:[r31]sws pregs,zs:8[r31]sw r2,zs:16[r31]sw r3,zs:24[r31]sw r4,zs:32[r31]ldi r2,#8sc r2,$FFDC0600zxb r1,r1lb r2,EscStatetst p0,r2p0.lt br processEsccmpi p0,r1,#BSp0.eq br doBackSpacecmpi p0,r1,#$91 ; cursor rightp0.eq br doCursorRightcmpi p0,r1,#$93 ; cursor leftp0.eq br doCursorLeftcmpi p0,r1,#$90 ; cursor upp0.eq br doCursorUpcmpi p0,r1,#$92 ; cursor downp0.eq br doCursorDowncmpi p0,r1,#$99 ; deletep0.eq br doDeletecmpi p0,r1,#CRp0.eq br doCRcmpi p0,r1,#LFp0.eq br doLFcmpi p0,r1,#$94 ; cursor homep0.eq br doCursorHomecmpi p0,r1,#ESCp0.ne br _0003ldi r1,#1sb r1,EscStateexitDC:lws c1,zs:[r31]lws pregs,zs:8[r31]lw r2,zs:16[r31]lw r3,zs:24[r31]lw r4,zs:32[r31]addui r31,r31,#40rts_0003:ldi r4,#10sc r4,$FFDC0600bsr VBAsciiToScreenlhu r2,NormAttrandi r2,r2,#-1024or r1,r1,r2lcu r3,VideoPoslhu r2,Vidptrsh r1,hs:[r2+r3*4]lcu r1,CursorXaddui r1,r1,#1lcu r2,Textcolscmp p0,r1,r2p0.ltu br .0001sc r0,CursorXlcu r1,CursorYaddui r1,r1,#1lcu r2,Textrowscmp p0,r1,r2p0.ltu sc r1,CursorYp0.ltu bsr SyncVideoPos ; wont affect p0p0.ltu br exitDCbsr SyncVideoPosbsr ScrollUpbr exitDC.0001:sc r1,CursorXbsr SyncVideoPosbr exitDCdoCR:sc r0,CursorXbsr SyncVideoPosbr exitDCdoLF:lcu r1,CursorYaddui r1,r1,#1lcu r2,Textrowscmp p1,r1,r2p1.ge bsr ScrollUpp1.ge br exitDCsc r1,CursorYbsr SyncVideoPosbr exitDCprocessEsc:ldi r4,#22sc r4,$FFDC0600lb r2,EscStatecmpi p0,r2,#-1p0.ne br .0006cmpi p0,r1,#'T' ; clear to EOLp0.ne br .0003lcu r3,VideoPoslcu r2,CursorXaddui r2,r2,#1.0001:lcu r1,Textcolscmp p0,r2,r1p0.ge br .0002ldi r1,#' 'lhu r4,NormAttror r1,r1,r4lhu r4,Vidptrsh r1,hs:[r4+r3*4]addui r2,r2,#1addui r3,r3,#1br .0001.0002:sb r0,EscStatebr exitDC.0003:cmpi p0,r1,#'W'p0.eq sb r0,EscStatep0.eq br doDeletecmpi p0,r1,#'`'p0.eq ldi r1,#-2p0.eq sb r1,EscStatep0.eq br exitDCcmp p0,r1,#'('p0.eq ldi r1,#-3p0.eq sb r1,EscStatep0.eq br exitDC.0008:sb r0,EscStatebr exitDC.0006:cmpi p0,r2,#-2p0.ne br .0007sb r0,EscStatecmpi p0,r1,#'1'p0.eq bsr CursorOnp0.eq br exitDCcmpi p0,r1,#'0'p0.eq bsr CursorOffbr exitDC.0007:cmpi p0,r2,#-3p0.ne br .0009cmpi p0,r1,#ESCp0.ne br .0008ldi r1,#-4sb r1,EscStatebr exitDC.0009:cmpi p0,r2,#-4p0.ne br .0010cmpi p0,r1,#'G'p0.ne br .0008ldi r1,#-5sb r1,EscStatebr exitDC.0010:cmpi p0,r2,#-5p0.ne br .0008sb r0,EscStatecmpi p0,r1,#'4'p0.ne br .0011lhu r1,NormAttrmov r2,r1shli r1,r1,#9andi r1,r1,#%111111111_000000000_00_00000000shrui r2,r2,#9andi r2,r2,#%000000000_111111111_00_00000000or r1,r1,r2sh r1,NormAttrbr exitDC.0011:cmpi p0,r1,#'0'p0.ne br .0012; Light grey on dark greyldi r1,#%001001001_011011011_00_00000000sh r1,NormAttrbr exitDC.0012:; Light grey on dark greyldi r1,#%001001001_011011011_00_00000000sh r1,NormAttrbr exitDCdoBackSpace:ldi r4,#23sc r4,$FFDC0600lc r2,CursorXtst p0,r2p0.eq br exitDC ; Can't backspace anymorelcu r3,VideoPos.0002:lh r4,Vidptrlh r1,hs:[r4+r3*4]addui r3,r3,#-1sh r1,hs:[r4+r3*4]addui r3,r3,#2lc r4,Textcolsaddui r2,r2,#1cmp p0,r2,r4p0.ne br .0002.0003:ldi r1,#' 'lh r4,NormAttror r1,r1,r4lh r4,Vidptrsh r1,hs:[r4+r3*4]inc CursorX,#-1bsr SyncVideoPosbr exitDC; Deleting a character does not change the video position so there's no need; to resynchronize it.doDelete:lc r2,CursorXlh r3,VideoPos.0002:addui r2,r2,#1lc r4,Textcolscmp p0,r2,r4p0.ge br .0001addui r2,r2,#-1addui r3,r3,#1lh r4,Vidptrlh r1,hs:[r4+r3*4]addui r3,r3,#-1sh r1,hs:[r4+r3*4]addui r3,r3,#1addui r2,r2,#1br .0002.0001:ldi r1,#' 'lh r2,NormAttror r1,r1,r2sh r1,hs:[r4+r3*4]br exitDCdoCursorHome:lcu r1,CursorXtst p0,r1p0.eq br doCursor1sc r0,CursorXbsr SyncVideoPosbr exitDCdoCursorRight:lcu r1,CursorXaddui r1,r1,#1lcu r2,Textcolscmp p0,r1,r2p0.ge br exitDCdoCursor2:sc r1,CursorXbsr SyncVideoPosbr exitDCdoCursorLeft:lcu r1,CursorXtst p0,r1p0.eq br exitDCsubui r1,r1,#1br doCursor2doCursorUp:lcu r1,CursorYtst p0,r1p0.eq br exitDCsubui r1,r1,#1br doCursor1doCursorDown:lcu r1,CursorYaddui r1,r1,#1lcu r2,Textrowsp0.ge br exitDCdoCursor1:sc r1,CursorYbsr SyncVideoPosbr exitDC
Go to most recent revision | Compare with Previous | Blame | View Log