1	;  _____________________________________________
    2	; |                                             |
    3	; |  Project:   APPLER                          |
    4	; |  File:      CONIO.INC                       |
    5	; |  Compiler:  16-bit TASM (2.5)               |
    6	; |                                             |
    7	; |  Subject:   Keyboard input / screen output  |
    8	; |                                             |
    9	; |  Author:    Emil Dotchevski                 |
   10	; |_____________________________________________|
   11	
   12	
   13	_GETLINE        =       0
   14	_GL_SYMBOL      =       1
   15	_GL_STRING      =       2
   16	_GL_BYTE        =       3
   17	_GL_GETSYMB     =       4
   18	_GL_LEFT        =       5
   19	_GL_RIGHT       =       6
   20	_GL_INS         =       7
   21	_GL_DEL         =       8
   22	_GL_BACKSPC     =       9
   23	_GL_HOME        =       10
   24	_GL_END         =       11
   25	_GL_CLRBUFF     =       12
   26	_GETCOMMAND     =       13
   27	
   28	_CLEARSCREEN    =       0
   29	_SHOWSCREEN     =       1
   30	_SYMBPRINT      =       2
   31	_SYMBPRINTXY    =       3
   32	_BYTEPRINT      =       4
   33	_STRINGPRINT    =       5
   34	_GETSYMB        =       6
   35	_SHOWLINE       =       7
   36	_CALCXY         =       8
   37	_SHOWCURSOR     =       9
   38	_HIDECURSOR     =       10
   39	_SETTEXTMODE    =       11
   40	_SETSCREEN      =       12
   41	
   42	GL_ParamStruc   struc
   43	GL_Buffer       dw      ?                       ; Line buffer address
   44	GL_Pos          db      ?                       ; Current cursor position
   45	GL_Length       db      ?                       ; Current line length
   46	GL_MaxLength    db      ?                       ; Max line length
   47	GL_MaxPrint     db      ?                       ; Max number of characters to print
   48	GL_BegPrint     db      ?                       ; Begin print location
   49	GL_InsFlag      db      ?                       ; 0 or 1
   50	GL_InsCurColor  db      ?                       ; Insert cursor color
   51	GL_OverCurColor db      ?                       ; Overwrite cursor color
   52	GL_CX           dw      ?
   53	GL_X            db      ?
   54	GL_Y            db      ?
   55	GL_Color        db      ?                       ; Text color
   56	GL_GS_SpcFl     db      ?
   57	GL_AllowSpc     db      ?                       ; Allow or not the spaces
   58	GL_User         dd      ?                       ; Non-standart functions proc
   59	GL_BegScan      dw      ?                       ; Begin address of the commands
   60	GL_ENDScan      dw      ?                       ; End address of the commands
   61	GL_Error        dw      ?
   62	GL_Eparam       db      ?
   63	GL_ParamStruc   ends
   64	
   65	SIO_ParamStruc  struc
   66	SpacesFlag      db      ?                       ; Get symb spaces flag
   67	SP_SourceSeg    dw      ?                       ; String print source seg
   68	SP_bx           dw      ?                       ; String print end bx value
   69	SP_BufFlag      db      ?                       ; String print bufflag
   70	SS_SourceOfs    dw      ?
   71	SS_SourceSeg    dw      ?
   72	CursorLen       db      ?
   73	CursorColor     db      ?
   74	CursorFlag      db      ?
   75	SS_ScreenFlag   db      ?
   76	SIO_ParamStruc  ends
   77	
   78	RK_ParamStruc   struc
   79	RK_FkeyFlag     db      ?                       ; Fkeys support flag
   80	RK_FkeyProc     dd      ?                       ; Fkeys support proc
   81	RK_AltFlag      db      ?
   82	RK_AltProc      dd      ?
   83	RK_WaitKeyFlag  db      ?
   84	RK_WaitKeyProc  dd      ?                       ; Call while waiting for a key
   85	RK_ShowAll      dd      ?                       ; ShowAll proc
   86	RK_ErrPtr       dw      ?
   87	RK_ParamStruc   ends
   88	
   89	GetLineService  macro   Service
   90	                mov     bp,Service
   91	                call    GL_Services
   92	                endm
   93	
   94	ScreenIOservice macro   Service
   95	                mov     bp,Service
   96	                call    SIO_Services
   97	                endm
   98	
   99	GotoXY          macro   vtab,htab
  100	                mov     cx,((vtab-1) * 80 * 2) + (htab * 2)
  101	                endm