Power-Programmierung

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

/ Power-Programmierung / CD1.mdf / assemblr / library / ansi / nnansi / nnansi_f.asm < prev next >

Wrap

Assembly Source File | 1990-09-11 | 18.9 KB | 773 lines

page 60, 132 ;----- nnansi_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 Jan 89: Slight changes for compilation options ; Also modified by Tom Almy, no restrictions. ; See nnansi.asm ;---------------------------------------------------------------- include nnansi_d.asm ; To nnansi_p.asm public ansi_fn_table ; From nnansi.asm port_6845 equ 3d4h extrn cur_coords:word, saved_coords:word extrn cur_x:byte, max_x:byte extrn cur_y:byte, max_y:byte extrn cur_attrib:byte, wrap_flag:byte extrn xy_to_regs:near extrn get_blank_attrib:near extrn move_back:near extrn cpr_esc:byte, cprseq:word extrn video_mode:byte if key_redef extrn lookup:near endif extrn gmode_flag:byte extrn gcursor:byte extrn fmode:byte extrn rev_flag:byte extrn param_buffer:word ; used in keyboard programming extrn param_end:word if key_redef extrn redef_end:word endif extrn old_vid_bios:dword call_video macro ; call original video interrupt pushf ; push flags call dword ptr old_vid_bios ; ds addresses cs in this module endm 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 ? org 84h ega_rows db ? ; #rows-1 on display 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 cmp al, 100 ; check for >99 case TAA mod jb goodbyteout push ax mov al, '1' ; assume value <200! stosb pop ax sub ax, 100 goodbyteout: 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, nul, nul, nul ; a, b, c, d, e dw hvp, nul, sm, nul, nul ; f, g, h, i, j dw nul, rm, sgr, dsr, nul ; k, l, m, n, o if key_redef dw key, nul, nul, scp, nul ; p, q, r, s, t else dw nul, nul, nul, scp, nul ; p, q, r, s, t endif dw rcp, nul, nul, nul, nul ; 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 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 cmp al, 7 ; reverse video? jz sgr_rev cmp al, 27 ; unreverse video? jz sgr_unrev cmp al, 0 ; not reset? jnz sgr_continue mov rev_flag, 0 sgr_continue: 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. cmp rev_flag,0 ; not reverse video? jz sgr_1 call sgr_flip ; temporary unreverse sgr_1: mov ax, [bx+1] and cur_attrib, al or cur_attrib, ah cmp rev_flag,0 ; not reverse video? jz sgr_2 call sgr_flip ; reverse it sgr_2: sgr_loopx: pop cx loop sgr_loop ; until no more parameters. ret sgr_rev: cmp rev_flag,0 ; already reverse? jnz sgr_loopx inc rev_flag ; reverse things call sgr_flip jmp sgr_loopx sgr_unrev: cmp rev_flag,0 ; already not-reverse? jz sgr_loopx dec rev_flag ; unreverse things call sgr_flip jmp sgr_loopx sgr_flip: push ax mov al, cur_attrib ; get attribute mov ah, al ; copy it if cheap_pc ror ah,1 ; swap nibbles ror ah,1 ror ah,1 ror ah,1 else ror ah,4 endif and ah,77h ; get only color bits and al,88h ; get only intens/blink bits or al,ah ; join them mov cur_attrib,al ; save flipped value pop ax 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 eid_toend ; first parms=0 -- erase to end or cx,cx ; no args? jz eid_toend ; then erase to end cmp al, 1 ; erase to beginning? jz eid_tostart cmp al, 2 jnz eid_ignore ; param must be two mov cur_coords, 0 call xy_to_regs cmp cs:fmode,0 ; see if running in fast mode jz eid_slow xor di, di ; offset will be zero after clearing eid_slow: push dx xor cx, cx mov dh, max_y scrollem: call get_blank_attrib mov bh, ah mov dl, max_x eid_process: mov ax, 600h int 10h ; use int 10 so screen repositions itself ; call_video rather than "call_video" eid_done: pop dx eid_ignore: ret eid_toend: ; erase following lines then go back and erase in line push dx call get_blank_attrib mov bh,ah mov ax, 600h mov dh, max_y mov dl, max_x mov ch, cur_y inc ch cmp ch, dh ; don't erase if no following ja eid_nopost xor cl,cl call_video eid_nopost: mov cx, cur_coords mov dh, ch jmp short scrollem eid_tostart: ; erase preceeding lines then go back and erase in line push dx call get_blank_attrib mov bh,ah mov dh, cur_y dec dh js eid_nopre ; don't erase if no preceeding mov ax,600h xor cx,cx mov dl, max_x call_video eid_nopre: mov dx, cur_coords dec dl js eid_done mov ch, dh xor cl, cl jmp eid_process ;-- 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 if key_redef ;-- 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 endif ;---- 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, 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, max_y ; lower-rite-y (zero based) call_video ; 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. ic: mov ch, 1 ; 1 => swap dest & source below jmp short dc_ch dc: mov ch, 0 dc_ch: cmp cs:gmode_flag,0 jnz 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 mov bp, cx ; BP 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 rep movsw mov cx, bp ; Figure out what color to make the new blanks. call get_blank_attrib mov al, ' ' ; Blank out vacated region. rep stosw ; All done. cld ; restore normal REP state and pop di ; cursor address. dc_ret: ret ;---- set / reset mode --------------------------------------- ; Sets graphics/text mode; also sets/resets "no wrap at eol" mode. ; also set/reset graphic cursor mode rm: mov cl, 0 ; reset jmp short sm_rs sm: mov cl, 0ffh ; set sm_rs: ; Is it "wrap at eol" ? cmp al, 7 jnz sm_notwrap mov wrap_flag, cl ; true = wrap at EOL ret sm_notwrap: ; Is it set/reset graphic cursor mode? cmp al,99 jnz sm_notgcursor mov gcursor, cl ret sm_notgcursor: ; Is it set/reset fast mode? cmp al,98 jnz sm_notspeedy mov fmode, cl cmp cl,0 ; mode now fast? jnz sm_done call move_back sm_done: ret sm_notspeedy: ; we can now do 43 lines on a VGA display, if desired, as well as 50. ; of course an EGA display will only do 43. cmp al, 43 IF VGA jnz sm_not43 mov ax, 1201H ; set 350 lines on EGA jmp short is43or50 sm_not43: cmp al,50 ; not 50 line (VGA) jnz sm_video ; set to whatever it happens to be mov ax, 1202h ; select 400 scan lines is43or50: cmp cs:gmode_flag,0 ; in a graphic mode? jnz sm_done ; then quit mov bl,30h ; this call ignored on EGA call_video ELSE jnz sm_video ; set to whatever it happens to be cmp cs:gmode_flag,0 ; in a graphic mode? jnz sm_done ; then quit ENDIF mov ah,0 mov al, video_mode ; select the video mode. call_video mov ax,1112h ; Load 8x8 font mov bl,0 ; (instead of 8x14 or 8x16) call_video mov ax, 1200h ; Load new printscreen mov bl, 20h call_video IF EGA ; set the EGA cursor mov dx, port_6845 ; '6845' command reg mov ax, 070ah ; start on line 7 out dx, ax mov al, 0bh ; end on line 7 out dx, ax ENDIF jmp short sm_home sm_video: ; It must be a video mode. Call BIOS. ; Save graphics mode flag extrn set_gmode:near call set_gmode ; mode is in AL IF VGA cmp al, 3 ; On VGA, modes 2 or 3, set 400 scan lines ja no_scan_change cmp al, 1 jbe no_scan_change push ax mov ax, 1202h ; select 400 scan lines mov bl,30h ; this call ignored on EGA call_video pop ax no_scan_change: ENDIF mov ah, 0 ; "set video mode" or al, 80h ; but don't erase screen, since colors wrong. call_video sm_home: ; 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 mov cl, ega_rows ; cl = max row pop ds assume ds:code mov video_mode, al dec ah ; ah = max column mov max_x, ah mov max_y, cl ; 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 jmp eid_slow ; then clear the screen ansi_functions endp ; end dummy procedure block ;-------- Color table ----------------------------------------- ; Used in "set graphics rendition" colors equ 25 ; number of colors in table color_table: db 0, 000h,07h ; all attribs off; normal. db 1, 0ffh,08h ; bold db 2, 0f7h,00h ; dim (not bold) db 4, 0f8h,01h ; underline (forces blue foreground) db 5, 0ffh,80h ; blink ; db 8, 088h,00h ; invisible (original definition) db 8, 080h,00h ; invisible (better definition) db 22,0f7h,00h ; un-bold, un-dim db 24,0f8h,7h ; un-underline (forces white fground) db 25,07fh,0h ; un-blink 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 nnansi_f.asm