Mercurial > hg > Members > kono > nitros9-code
diff level1/modules/term_vdg.asm @ 2690:6e40b043d3e0 lwtools-port
Removed coco port, added coco1 and coco2 ports.
Cleaned term* descriptors to make unified between Level 1 and Level 2
author | Boisy Pitre <boisy.pitre@nuance.com> |
---|---|
date | Thu, 19 Jul 2012 10:09:15 -0500 |
parents | |
children | 678c6848dc12 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level1/modules/term_vdg.asm Thu Jul 19 10:09:15 2012 -0500 @@ -0,0 +1,91 @@ +******************************************************************** +* Term - VTIO VDG Device Descriptor +* +* $Id$ +* +* Edt/Rev YYYY/MM/DD Modified by +* Comment +* ------------------------------------------------------------------ + + nam Term + ttl VTIO VDG Device Descriptor + + ifp1 + use defsfile + use cocovtio.d + endc + +tylg set Devic+Objct +atrv set ReEnt+rev +rev set $00 + +* Window descriptor definitions +szx set 32 number of columns for display +szy set 16 number for rows for display + IFGT Level-1 +wnum set 0 window number +sty set 1 window type +cpx set 0 x cursor position +cpy set 0 y cursor position +prn1 set Black. foreground color +prn2 set Green. background color +prn3 set Black. border color + ENDC + + mod eom,name,tylg,atrv,mgrnam,drvnam + + fcb UPDAT. mode byte + fcb HW.Page extended controller address + fdb A.TermV physical controller address + fcb initsize-*-1 initilization table size + fcb DT.SCF device type:0=scf,1=rbf,2=pipe,3=scf + fcb $00 case:0=up&lower,1=upper only + fcb $01 backspace:0=bsp,1=bsp then sp & bsp + fcb $00 delete:0=bsp over line,1=return + fcb $01 echo:0=no echo + fcb $01 auto line feed:0=off + fcb $00 end of line null count + fcb $01 pause:0=no end of page pause + fcb szy lines per page + fcb C$BSP backspace character + fcb C$DEL delete line character + fcb C$CR end of record character + fcb C$EOF end of file character + fcb C$RARR reprint line character + fcb C$SHRARR duplicate last line character + fcb C$PAUS pause character + fcb C$INTR interrupt character + fcb C$QUIT quit character + fcb C$BSP backspace echo character + fcb C$BELL line overflow character (bell) + IFGT Level-1 + fcb $01 init value for dev ctl reg + ELSE + fcb ModCoVDG init value for dev ctl reg + ENDC + fcb $00 baud rate + fdb name copy of descriptor name address + fcb $00 acia xon char + fcb $00 acia xoff char + fcb szx (szx) number of columns for display + fcb szy (szy) number of rows for display + IFGT Level-1 + fcb wnum window number + fcb $01 data in rest of descriptor valid + fcb sty (sty) window type + fcb cpx (cpx) x cursor position + fcb cpy (cpy) y cursor position + fcb prn1 (prn1) foreground color + fcb prn2 (prn2) background color + fcb prn3 (prn3) border color + ENDC +initsize equ * + +name fcs /Term/ +mgrnam fcs /SCF/ +drvnam fcs /VTIO/ + + emod +eom equ * + end +