1
0
vt100-games/Blocks/kslib.h

159 lines
2.3 KiB
C
Raw Normal View History

2020-03-10 15:47:00 +01:00
/* kslib.h
Keyboard & screen functions library for CP/M & MESCC - Mike's Enhanced Small C Compiler.
Copyright (c) 2012 Miguel I. Garcia Lopez, Valencia, Spain.
This program is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by the
Free Software Foundation; either version 2, or (at your option) any
later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
Revisions:
02 Jul 2012 : Version 1.0 for 24x80 VT52 screen.
2020-03-13 17:36:12 +01:00
10 Mar 2020 : Version 1.1 for 24x80 VT100 screen.
2020-03-10 15:47:00 +01:00
Functions:
int KbdScrStart(void)
int KbdScrEnd(void)
int KbdIn(void)
int KbdChk(void)
int KbdStat(void)
void ScrOut(ch)
void ScrOutStr(str)
void ScrSetRC(row, col)
void ScrCurOn(void)
void ScrCurOff(void)
void ScrClr(void)
*/
#define SCR_ROWS 24
#define SCR_COLS 80
#asm
xDirConInSt:
jp 0
xDirConIn:
jp 0
xDirConOut:
jp 0
KbdScrStart:
ld hl,(1)
inc hl
inc hl
inc hl ;HL = JP CONST (BIOS VECTOR)
ld de,xDirConInSt
ld bc,9
ldir
ld hl,0 ;Success
ret
KbdScrEnd:
ld hl,0 ;Success
ret
KbdIn:
call xDirConIn
KbdIn2:
ld h,0
ld l,a
ret
KbdChk:
call xDirConInSt
ld h,0
ld l,a
ret
KbdStat:
call xDirConInSt
or a
jr nz,KbdIn
jr KbdIn2
ScrOut:
ld c,l
jp xDirConOut
ScrOutStr:
ld a,(hl)
or a
ret z
push hl
ld c,a
call xDirConOut
pop hl
inc hl
jr ScrOutStr
#endasm
ScrSetRC(row, col)
int row, col;
{
2020-03-13 17:36:12 +01:00
char str[9];
sprintf(str, "%c[%d;%dH", 27, row+1, col+1);
ScrOutStr(str);
2020-03-10 15:47:00 +01:00
}
#asm
ScrCurOn:
call xScrEsc
ld c,'['
call xDirConOut
ld c,'?'
call xDirConOut
ld c,'2'
call xDirConOut
ld c,'5'
call xDirConOut
ld c,'h'
jp xDirConOut
ScrCurOff:
call xScrEsc
ld c,'['
call xDirConOut
ld c,'?'
call xDirConOut
ld c,'2'
call xDirConOut
ld c,'5'
call xDirConOut
ld c,'l'
jp xDirConOut
ScrClr:
call xScrEsc
ld c,'['
call xDirConOut
ld c,'2'
call xDirConOut
ld c,'J'
call xDirConOut
call xScrEsc
ld c,'['
call xDirConOut
ld c,'H'
jp xDirConOut
xScrEsc:
ld c,27
jp xDirConOut
#endasm