Path: utzoo!utgpu!jarvis.csri.toronto.edu!cs.utexas.edu!usc!snorkelwacker!mit-eddie!mit-amt!geek From: geek@mit-amt.MEDIA.MIT.EDU (Chris Schmandt) Newsgroups: comp.sys.laptops Subject: Re: Block cursor on T1000 Message-ID: <1463@mit-amt.MEDIA.MIT.EDU> Date: 23 Jan 90 02:41:41 GMT References: Reply-To: geek@media-lab.media.mit.edu (Chris Schmandt) Organization: MIT Media Lab, Cambridge MA Lines: 57 In article portuesi@sgi.com (Michael Portuesi) writes: > >Does anybody know how to change the cursor on the Toshiba T1000 from >an underline to a block? I find it very frustrating trying to edit The following code (block.asm) will turn the default underscore cursor to a block. I write it precisely for the application mentioned, i.e., running Epsilon on my T1000. Assemble it, link it... as is no warranties, etc. ect. (but give me a break, it's only about 10 lines!) I wrote this years ago. Looking at it, the stack segment is probably only to make the linker not complain. Since the code never sets SS, it uses the default stack from DOS. chris -------- assume cs:code,ds:data,es:data,ss:stack public block code segment public block proc far start: push ds mov ax,0 push ax mov ch,0 ;start at top mov cl,0ch ;end at bottom mov ah,1 ;set cursor type int 10h exit: ret block endp code ends data segment data ends stack segment stack dw 200 dup(?) stack ends end start