ProfitPress Mega CDROM2 Shareware Freeware (MSDOS)(1992)(Eng)

home *** CD-ROM | disk | FTP | other *** search

/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / NETWORK / NAN24HYC.ZIP / NANSI_F.ASM < prev next >

Wrap

Assembly Source File | 1990-10-30 | 21.6 KB | 834 lines

page 66, 132 ;----- nansi_f.asm --------------------------------------------- ; The ANSI control subroutines. ; (C) 1986 Daniel Kegel, Pasadena, CA ; May be distributed for educational and personal use only ; Each routine is called with the following register usage: ; AX = max(1, value of first parameter) ; Z flag is set if first parameter is zero. ; CX = number of paramters ; SI = offset of second parameter from CS ; DS = CS ; ES:DI points to the current location on the memory-mapped screen. ; DX is number of characters remaining on the current screen line. ; The control routine is free to trash AX, BX, CX, SI, and DS. ; It must preserve ES, and can alter DX and DI if it wants to move the ; cursor. ; ; Revisions: ; 19 Aug 85: Fixed horrible bug in insert/delete line. ; 26 Aug 85: Fixed simple limit-to-one-too-few-lines bug in ins/del line; ; anyway, it inserts 24 lines when on line 2 now. Whether it's fixed... ; 4 Sept 85: Fixed bug created on 26 Aug 85; when limiting ins/del line ; count, we are clearing, not scrolling; fixed BIOS call to reflect this. ; 30 Jan 86: Added EGA cursor patch ; 31 Jan 86: Disabled insert/delete char in graphics modes ; Implemented keyboard redefinition reset ; 1 Feb 86: added video_mode and max_x test after mode set ; 8 Jul 86: got rid of code that screwed up palette ; 9 Aug 86: added set/reset mode call for snow_flag, no pseudocursor mode, ; reset for 43 line mode, 50 line mode for ATT 6300 ; 10 Aug 86: added set display page in Set Mode ; 11 Aug 86: added snow mode support for ins/del char ; c.r. henderson ; 3 mar 90: added a response to ESC[c. Response is now 'nansi' followed ; by a carriage return ; 30 Oct 90: crh mods merged into 2.4 by Howard Chu ;---------------------------------------------------------------- include nansi_d.asm ; To nansi_p.asm public ansi_fn_table ; From nansi.asm extrn snow_flag:byte, pseudo_flag:byte extrn port_6845:word extrn cur_coords:word, saved_coords:word extrn cur_x:byte, max_x:byte extrn cur_y:byte, max_y:byte extrn sr_min_y:byte, sr_max_y:byte extrn cur_attrib:byte, wrap_flag:byte extrn xy_to_regs:near extrn get_blank_attrib:near extrn xlate_tab_ptr:word extrn cpr_esc:byte, cprseq:word extrn id_str:byte, id_end:byte, idseq:word extrn video_mode:byte extrn lookup:near extrn in_g_mode:near extrn snow_stosw:near, snow_movsw:near ; from nansi_p.asm extrn param_buffer:word ; used in keyboard programming extrn param_end:word extrn redef_end:word keybuf struc ; used in making cpr sequence len dw ? adr dw ? keybuf ends ABS40 segment at 40h org 1ah buffer_head dw ? ; Used in 'flush input buffer' dos call. buffer_tail dw ? org 49h crt_mode db ? crt_cols dw ? crt_len dw ? crt_start dw ? cursor_posn dw 8 dup (?) cursor_mode dw ? active_page db ? addr_6845 dw ? crt_mode_set db ? crt_palette db ? ABS40 ends code segment byte public 'CODE' assume cs:code, ds:code ;----- byteout --------------------------------------------------- ; Converts al to a decimal ASCII string (in 0..99), ; stores it at ES:DI++. Returns DI pointing at byte after last digit. ; Destroys DL. byteout proc near aam add ax, 3030h xchg ah, al stosb xchg ah, al stosb ret byteout endp ;----- ansi_fn_table ----------------------------------- ; Table of offsets of terminal control subroutines in order of ; the character that invokes them, @..Z, a..z. Exactly 53 entries. ; All the subroutines are defined below in this module. ansi_fn_table label word dw ic, cup, cdn, cfw, cbk ; @, A, B, C, D dw nul, nul, nul, hvp, nul ; E, F, G, H, I dw eid, eil, il, d_l, nul ; J, K, L, M, N dw nul, dc, nul, nul, nul ; O, P, Q, R, S dw nul, nul, nul, nul, nul ; T, U, V, W, X dw nul, nul ; Y, Z dw nul, nul, id, nul, nul ; a, b, c, d, e CRH 3-9-90 dw hvp, nul, sm, nul, nul ; f, g, h, i, j dw nul, rm, sgr, dsr, nul ; k, l, m, n, o dw key, nul, ssr, scp, nul ; p, q, r, s, t dw rcp, nul, nul, nul, xoc ; u, v, w, x, y dw nul ; z ansi_functions proc near ; set return type to NEAR ;----- nul --------------------------------------------- ; No-action ansi sequence; called when unknown command given. nul: ret ;----- Cursor Motion ----------------------------------------------- ;-- cursor to y,x hvp: or al, al ; First parameter is desired Y coordinate. jz hvp_yok dec ax ; Convert to zero-based coordinates. hvp_yok:mov cur_y, al ; Get second parameter, if it is there, and set X with it. xor ax, ax cmp cx, 2 ; was there a second parameter? jb hvp_xok lodsb ; yes. or al, al jz hvp_xok dec ax ; convert to zero-based coordinates. hvp_xok:mov cur_x, al ; Clip to maximum coordinates. hvp_set: mov ax, cur_coords ; al = x, ah = y cmp al, max_x jbe hvp_sxok mov al, max_x mov cur_x, al hvp_sxok: cmp ah, max_y jbe hvp_syok mov al, max_y mov cur_y, al hvp_syok: ; Set values of DX and DI accordingly. call xy_to_regs ret ;-- cursor forward -- cfw: add cur_x, al jmp hvp_set ;-- cursor back ----- cbk: sub cur_x, al jae cbk_ok mov cur_x, 0 cbk_ok: jmp hvp_set ;-- cursor down ----- cdn: add cur_y, al jmp hvp_set ;-- cursor up ------- cup: sub cur_y, al jae cup_ok mov cur_y, 0 cup_ok: jmp hvp_set ;-- save cursor position -------------------------------------- scp: mov ax, cur_coords mov saved_coords, ax ret ;-- restore cursor position ----------------------------------- rcp: mov ax, saved_coords mov cur_coords, ax jmp hvp_set ; Clip in case we have switched video modes. ;-- set scolling region ---------------------------------------- ; top;bottom ; default for top is 1 ; default for bottom is max_y+1 ; Funny things happen when cursor is outside the scrolling region. ; Need to find out what real terminals do. ssr: ; Set top. Clip to 0, max_y. or al, al jnz ssr_min_nz dec ax ; one-based to zero-based ssr_min_nz: cmp al, max_y jb ssr_min_ok mov al, sr_max_y ssr_min_ok: mov sr_min_y, al ; Set bottom. Clip to sr_min_y, max_y. mov al, max_y cmp cx, 2 ; is 2nd parameter present? jb ssr_max_ok lodsb or al, al jz ssr_max_nz ; if already zero, don't go lower... dec ax ; 1-based to 0-based ; Clip to sr_min_y ssr_max_nz: cmp al, sr_min_y ja ssr_max_nottoosmall mov al, sr_min_y ssr_max_nottoosmall: ; Clip to max_y cmp al, max_y jb ssr_max_ok mov al, max_y ssr_max_ok: mov sr_max_y, al ret ;-- set graphics rendition ------------------------------------ ; Modifies the color in which new characters are written. sgr: dec si ; get back pointer to first parameter or cx, cx ; Did he give any parameters? jnz sgr_loop mov byte ptr [si], 0 ; no parameters, so fake inc cx ; one with the default value. ; For each parameter sgr_loop: lodsb ; al = next parameter ; Search color table push cx mov cx, colors mov bx, offset color_table-3 sgr_search: add bx, 3 cmp al, byte ptr [bx] loopnz sgr_search ; until match found or done jnz sgr_loopx ; If parameter named a known color, set the current ; color variable. mov ax, [bx+1] and cur_attrib, al or cur_attrib, ah sgr_loopx: pop cx loop sgr_loop ; until no more parameters. ; DRK 7/7/86 Removed horrible bug caused by test code being ; left in the distribution file... ;;-------------- ;; DRK 2/25/86 ;; Set background color in case we enter a graphics mode ;mov ah, 11 ; color palette ;mov bh, 0 ; background color ;mov bl, cur_attrib ;mov cl, 4 ;shr bl, cl ; get background bits ;int 10h ; call video bios ;;-------------- ret ;-- erase in line ---------------------------------------- ; Uses BIOS to scroll away a one-line rectangle eil: push dx mov cx, cur_coords mov dh, ch jmp short scrollem ;-- erase in display ------------------------------------- ; Uses BIOS to scroll away all of display eid: jz eid0 ; If param was originally zero, z flag is set... ; cmp al, 2 ; Home and then clear to eop je eid2 ; cmp al, 1 ; Clear from top of page? jnz eid_ignore ; eid1: push dx mov dx, cur_coords; current is lower right of this line mov cx, 0 ; clear square above left of cur_coords or dl, dl ; at first char position on this line? jz eid1a ; yes, so ignore this line sub dl, 1 ; blank chars b4 but not including curs lcn call get_blank_attrib mov bh, ah mov ax, 600h int 10h eid1a: cmp dh, 0 ; On top row, if so, simply exit jz eidx ; ; Not on top row, must clear all above line to right of cursor psn ; sub dh, 1 mov dl, max_x call get_blank_attrib mov bh, ah jmp eidi ; Call int 10 to perform scroll ; ; '0' param ; eid0: call eil ; Yes, clr-eop by first clearing rest of current line mov cx, cur_coords cmp ch, max_y jz eid_ignore ; Just exit if last line now. ; push dx ; then clearing to end of page mov cl, 0 ; upper left column add ch, 1 ; at next row from current mov dh, max_y; to bottom right row jmp scrollem; then rest of page eid2: if cls_homes_too mov cur_coords, 0 call xy_to_regs endif push dx xor cx, cx mov ch, sr_min_y mov dh, sr_max_y scrollem: call get_blank_attrib mov bh, ah mov dl, max_x eidi: mov ax, 600h int 10h eidx: pop dx eid_ignore: ret ;-- device status report -------------------------------- ; Stuffs an escape, a left bracket, current Y, semicolon, current X, ; a capital R, and a carriage return into input stream. ; The coordinates are 1 to 3 decimal digits each. dsr: push di push dx push es mov ax, cs mov es, ax std ; Store string in reversed order for fun mov di, offset cpr_esc - 2 mov al, cur_y inc al ; convert to one-based coords call byteout ; row mov al, ';' ; ; stosb mov al, cur_x inc al ; convert to one-based coords call byteout ; column mov al, 'R' ; R ANSI function 'Cursor Position Report' stosb mov al, 13 mov word ptr cprseq.adr, di ; save pointer to last char in string stosb ; send a carriage return, too mov ax, offset cpr_esc sub ax, di ; ax is # of characters in string mov word ptr cprseq.len, ax ; pass info to the getchar routine cld pop es pop dx pop di ret ;-- keyboard reassignment ------------------------------- ; Key reassignment buffer is between param_end and redef_end+2, exclusive. ; When it shrinks or grows, param_end is moved. ; Format of an entry is as follows: ; highest address -> length:word (may be 0) ; key to replace:word (either hi or low byte is zero) ; . ; . new key value, "length" bytes long ; . ; lowest address -> next entry, or free space. ; If no arguments are given, keyboard is reset to default condition. ; Otherwise, first parameter (or first two, if first is zero) defines ; the key whose value is to be changed, and the following parameters ; define the key's new, possibly zero-length, value. key: ; Is this a reset? or cx, cx jz key_init ; Get the first (or first two) parameters cld dec si ; point to first param dec cx ; Assume it's a fn key, get two params dec cx lodsw or al, al ; Is it a function key? jz key_fnkey ; It's not a function key- put second param back inc cx dec si key_fnkey: ; Key to redefine now in AX. If it's already redefined, ; lookup will set Z, point SI to redef string, set CX to its length. push di push es push cx push si std ; moving up, must move from top down push ds pop es ; string move must have ES=DS call lookup ; rets Z if redefined... jnz key_newkey ; It's already defined. Erase its old definition- i.e., move ; region param_end+1..SI-1 upwards CX+4 bytes, add CX+4 to param_end. add cx, 4 mov bp, param_end ; save old value in bp... add param_end, cx dec si ; start at (SI-1) mov di, si add di, cx ; move to (start + CX+4) mov cx, si sub cx, bp ; length of region old_param_end+1..start rep movsb key_newkey: ; Key not redefined. See if there's enough room to redefine it. pop si ; get back pointer to redef string pop cx ; get back number of bytes in redef string mov di, param_end ; hi byte of new redef record, hi byte of len sub di, 4 ; hi byte of new data field mov bx, di sub bx, cx ; hi byte of remaining buffer space sub bx, 16 ; better be at least 16 bytes room cmp bx, param_buffer jb key_popem ; nope- forget it. ; Nothing in the way now! mov [di+3], cx ; save length field mov [di+1], ax ; save name field jcxz key_nullstring key_saveloop: ; save data field movsb add si, 2 ; input string ascending, output descending loop key_saveloop key_nullstring: mov param_end, di ; save adr of new hi byte of free area key_popem: pop es pop di key_exit: cld ret key_init: ; Build the default redefinition table: ; control-printscreen -> control-P push es push ds pop es std mov di, redef_end mov ax, 1 stosw mov ax, 7200h ; control-printscreen stosw mov al, 16 ; control P stosb mov param_end, di ; save new bottom of redef table pop es jmp key_exit ;---- Delete/Insert Lines ------------------------------- ; AL is number of lines to delete/insert. ; Preserves DX, DI; does not move cursor. d_l: ; Delete lines. mov ah, 6 ; BIOS: scroll up jmp short il_open il: ; Insert lines. mov ah, 7 ; BIOS: scroll down il_open: ; Whether inserting or deleting, limit him to (max_y - cur_y) lines; ; if above that, we're just clearing; set AL=0 so BIOS doesn't burp. mov bh, sr_max_y sub bh, cur_y cmp al, bh jbe il_ok ; DRK 9/4... mov al, 0 ; he tried to move too far il_ok: push ax call get_blank_attrib mov bh, ah ; color to use on new blank areas pop ax ; AL is number of lines to scroll. mov cl, 0 ; upper-left-x of data to scroll mov ch, cur_y ; upper-left-y of data to scroll push dx mov dl, max_x ; lower-rite-x mov dh, sr_max_y ; lower-rite-y (zero based) int 10h ; call BIOS to scroll a rectangle. pop dx ret ; done. ;-- Insert / Delete Characters ---------------------------- ; AL is number of characters to insert or delete. ; Preserves DX, DI; does not move cursor. ; 8/11/86: now use snow_stosw and snow_movsw; these trash BP. ic: mov ch, 1 ; 1 => swap dest & source below jmp short dc_ch dc: mov ch, 0 dc_ch: call in_g_mode jnc dc_ret ; | if in graphics mode, ignore. ; AL = number of chars to ins or del (guarenteed nonzero). ; Limit him to # of chars left on line. cmp al, dl jbe dc_cok mov al, dl dc_cok: push di ; DI is current address of cursor xchg ax, cx ; CX gets # of chars to ins/del push cx ; Stack gets # of columns to clear. ; Set up source = destination + cx*2, count = dx - cx mov ch, 0 ; make it a word mov si, di add si, cx add si, cx neg cl add cl, dl mov ch, 0 ; CX = # of words to transfer cld ; REP increments si & di ; If this is an insert, then flip transfer around in both ways. test ah, 1 jz dc_noswap xchg di, si ; source <-> dest std ; up <-> down mov ax, cx ; make move over same range dec ax add ax, ax ; AX=dist from 1st to last byte. add di, ax ; Start transfer at high end of block add si, ax ; instead of low end. dc_noswap: ; Move those characters. push es pop ds call snow_movsw ; Trashes BP. pop cx ; Figure out what color to make the new blanks. call get_blank_attrib mov al, ' ' ; Blank out vacated region. call snow_stosw ; All done. cld ; restore normal REP state and pop di ; cursor address. dc_ret: ret ;---- identify terminal as nansi --------------- added by: CRH on 3-9-90 id: push di push dx push es mov ax, cs mov es, ax mov di, offset id_str mov ax, offset id_end sub ax, di inc ax mov word ptr idseq.len, ax ; # chars in string 'nansi-cr-' mov word ptr idseq.adr, di ; pass address of string to getchar ; ; return, our work's done ; pop es pop dx pop di ret ;---- set / reset mode --------------------------------------- ; Sets graphics/text mode; also sets/resets "no wrap at eol" mode. ; 8/9/86 drk: Cleaned up, added snow flag, added reset 43 line mode, ; ATT 6300 support, pseudocursor on/off. sm: mov ah, 0ffh ; set jmp short sm_rs rm: mov ah, 0 ; reset sm_rs: cmp al, 7 ; Wrap/nowrap? lea bx, wrap_flag jz sm_flag cmp al, 44 ; Snow/nosnow? lea bx, snow_flag jz sm_flag cmp al, 45 ; Graphics cursor or not? lea bx, pseudo_flag jz sm_flag cmp al, 46 ; Set display page? jz sm_page cmp al, 50 ; Set/reset 50 line mode? jz sm_50lines cmp al, 43 ; Set/reset 43 line mode? jz sm_43lines jmp sm_video ; If none of the above, must be a screen mode. ;--- Set or reset simple flag --- sm_flag: mov byte ptr [bx], ah ret ;--- Set Display Page --- sm_page: cmp cl, 2 ; must have 2nd arg jb sm_pdone ; Set old page cursor coordinates. push ds mov ax, abs40 mov ds, ax assume ds:abs40 mov al,active_page cbw add ax,ax xchg bx,ax mov ax,cs:cur_coords mov cursor_posn[bx],ax ; Set active page. lods byte ptr cs:[si] ; Second arg = page number mov ah, 5 int 10h ; Find new page cursor coordinates. mov al,active_page cbw add ax,ax xchg bx,ax mov ax,cursor_posn[bx] pop ds assume ds:code mov cur_coords,AX sm_pdone: ret ;--- Set or Reset Lots 'O Lines mode for ATT 6300 --- sm_50lines: test ah, 1 ; Was it a Set command? mov al, video_mode jz sm_video ; no- reset 50 line mode ; by reentering base mode. mov ah, 0 mov al, 72 int 10h ; ATT Video Bios call mov max_y, 49 ; assume it gets us 50 lines jmp short sm_home ;--- Set or Reset Lots 'O Lines mode for EGA --- sm_43lines: test ah, 1 ; Was it a Set command? mov al, video_mode jz sm_video ; no- reset 43 line mode ; by reentering base mode. ; Only valid for the Enhanced Graphics Adaptor on ; a monochrome display or an enhanced color display. ; Test presence of EGA by calling BIOS fn 12h.10h. mov ah, 12h mov bx, 0ff10h int 10h ; bh=0-1, bl=0-3 if EGA test bx, 0FEFCH jnz sm_done ; sorry, charlie ; 43 line mode only allowed in text modes, for now. call in_g_mode jnc sm_done mov ah, 0 ; "Set video mode" mov al, video_mode ; Re-init current mode int 10h mov ax,1112h ; Load 8x8 font mov bl,0 ; (instead of 8x14) int 10h mov ax, 1200h ; Load new printscreen mov bl, 20h int 10h mov ah,1 mov cx,0707h ; (Load cursor scan lines) int 10h ; | Patch; this gotten by painful observation of ; | IBM's professional editor. I think there's a ; | documented bug in Video Bios's "load cursor scan line" ; | call; try looking in latter 1985 PC Tech Journal. mov dx, port_6845 ; '6845' command reg mov al, 10 out dx, al jmp $+2 inc dx mov al, 7 out dx, al ; set cursor start line ; Assume that gets us 43 lines. mov max_y, 42 mov sr_max_y, 42 jmp short sm_home ;--- Set Video Mode --- sm_video: ; It must be a video mode. Call BIOS. mov ah, 0 ; "set video mode" int 10h ; Assume that gets us 25 lines. mov max_y, 24 mov sr_max_y, 24 sm_home: mov sr_min_y, 0 ; setting mode clears scrolling region ; Read the BIOS buffer address/cursor position variables. mov ax, abs40 push ds mov ds, ax assume ds:abs40 ; Find current video mode and screen size. mov ax,word ptr crt_mode ; al = crt mode; ah = # of columns pop ds mov video_mode, al dec ah ; ah = max column mov max_x, ah ; Since cursor may end up in illegal position, it's best to ; just go home after switching video modes. mov cur_coords, 0 call xy_to_regs sm_done: ret ;------- Output Character Translation ---------------------- ; A decidedly nonstandard function, possibly useful for editing files ; intended to be printed by daisywheel printers with strange wheels. ; (The letter 'y' was chosen to conflict with the VT100 self-test command.) ; Usage: ESC [ #1;#2 y ; where #1 is the character to redefine ; #2 is the new display value ; If only ESC [ #1 y is sent, character #1 is reset to its default value. ; If only ESC [ y is sent, the entire table is reset to the default value. ; (If only ESC [ #1; y is sent, character #1 is set to zero... sigh.) xoc: ; Xlate output character mov bx, xlate_tab_ptr jcxz xoc_reset ; if no parameters, reset table to 1:1 dec si ; point to first parameter lodsw ; first parameter to AL, second to AH dec cx ; is parameter count 1? jnz xoc_bothparams mov ah, al ; if only one param, reset that char. xoc_bothparams: add bl, al adc bh, 0 ; bx points to entry for char AL mov byte ptr [bx], ah ; change that entry xoc_done: ret xoc_reset: ; Fill table with default values- i.e. 0, 1, 2, ... 255. xor ax, ax xoc_loop: mov byte ptr [bx], al inc bx inc al jnz xoc_loop jmp xoc_done ansi_functions endp ; end dummy procedure block ;-------- Color table ----------------------------------------- ; Used in "set graphics rendition" colors equ 22 ; number of colors in table color_table: db 0, 000h,07h ; all attribs off; normal. db 1, 0ffh,08h ; bold db 4, 0f8h,01h ; underline db 5, 0ffh,80h ; blink db 7, 0f8h,70h ; reverse db 8, 088h,00h ; invisible db 30,0f8h,00h ; black foreground db 31,0f8h,04h ; red db 32,0f8h,02h ; green db 33,0f8h,06h ; yellow db 34,0f8h,01h ; blue db 35,0f8h,05h ; magenta db 36,0f8h,03h ; cyan db 37,0f8h,07h ; white db 40,08fh,00h ; black background db 41,08fh,40h ; red db 42,08fh,20h ; green db 43,08fh,60h ; yellow db 44,08fh,10h ; blue db 45,08fh,50h ; magenta db 46,08fh,30h ; cyan db 47,08fh,70h ; white code ends end ; of nansi_f.asm