; definitions for model 100 assembly language programs

;	Copyright (C) 1983  Michael M Rubenstein

@chget	equ	12cbh		;get char from keyboard
@chsns	equ	13dbh		;check keyboard queue for char
@setser	equ	17e6h		;set serial interface
@crlf	equ	4222h		;crlf to lcd
@curson	equ	4249h		;cursor on
@curoff	equ	424eh		;cursor off
@esca	equ	4270h		;send escape sequence
@posit	equ	427ch		;get cursor position
@erafnk	equ	428ah		;erase function key display
@stdspf	equ	42a5h		;set & display function keys
@dspfnk	equ	42a8h		;display function keys
@inlin	equ	4644h		;enter line from keyboard
@lcd	equ	4b44h		;print to lcd
@prttab	equ	4b55h		;print with tab expansion
@telcom	equ	5146h		;start of telcom program
@inimdm	equ	52e4h		;initialize modem
@menu	equ	5797h		;return to menu
@stfnk	equ	5a7ch		;set function keys
@chkdc	equ	5aa9h		;check file open
@gtxttb	equ	5ae3h		;get top address of file
@disc	equ	52bbh		;on hook
@conn	equ	52d0h		;off hook
@dial	equ	532dh		;dial number
@printr	equ	6d3fh		;print a char
@ps	equ	11a2h		;print null terminated string
@rcvx	equ	6d6dh		;check rs232 for char
@rv232c	equ	6d7eh		;get char from rs232
@sendcq	equ	6e0bh		;send ^q
@sendcs	equ	6e1eh		;send ^s
@sd232c	equ	6e32h		;put char to rs232
@inzcom	equ	6ea6h		;init rs232/modem
@clscom	equ	6ecbh		;deactivate rs232/modem
@cardet	equ	6eefh		;carrier?
@kyread	equ	7242h		;check keyboard

@maxram	equ	0f5f0h		;max memory available
@csry	equ	0f639h		;cursor row
@csrx	equ	0f640h		;cursor col
@nobrk	equ	0f650h		;flag to control break
@linein	equ	0f685h		;input line
@fkeys	equ	0f789h		;function keys
@keyext	equ	0fadeh		;keyboard input extension
@botstk	equ	0fb9dh		;bottom of stack 
@lcdext	equ	0fae2h		;lcd output extension
@beglcd	equ	0fe00h		;start of lcd memory
@endlcd	equ	0ff40h		;end of lcd memory

lf	equ	0ah		;line feed
ff	equ	0ch		;form feed
cr	equ	0dh		;carriage return
esc	equ	1bh		;escape

ctl	equ	1fh		;mask for control character

false	equ	0
true	equ	not false

; end of model100.lib