
			SUBTITLE    "< Equates for TRS80 API. >"
			NEWPAGE
			scope

; Supervisor call equates for TRSDOS/LSDOS
			
svc_abort		equ		21
svc_adtsk		equ		29
svc_zbank		equ		102
svc_bksp		equ		61
svc_break		equ		103
svc_chnio		equ		20
svc_ckbrkc		equ		106
svc_ckdrv		equ		33
svc_ckeof		equ		62
svc_cktsk		equ		28
svc_close		equ		60
svc_cls			equ		105
svc_cmndi		equ		24
svc_cmndr		equ		25
svc_ctl			equ		5
svc_date		equ		18
svc_dcinit		equ		42
svc_dcres		equ		43	; Disk controller reset.
svc_dcstat		equ		49
svc_debug		equ		27	; Enter system debugger.
svc_dechex		equ		96
svc_dirrd		equ		87
svc_div8		equ		93
svc_div16		equ		94
svc_dodir		equ		34	; Display directory.
svc_dsp			equ		2
svc_dsply		equ		10
svc_error		equ		26	; Error SVC.
svc_zexit		equ		22	; Exit back to O/S.
svc_flags		equ		101
svc_get			equ		3
svc_gtdct		equ		81
svc_gtmod		equ		83	; Get address of module in memory.
svc_gtdcb		equ		82	; Get device control block address.
svc_hexdec		equ		97
svc_ipl			equ		0
svc_kbd			equ		8
svc_key			equ		1
svc_keyin		equ		9
svc_load		equ		76	; Load a file.
svc_loger		equ		11	; Send message to system log.
svc_logot		equ		12	; Send message to system log & console.
svc_msg			equ		13
svc_mul16		equ		91
svc_mul8		equ		90
svc_pause		equ		16
svc_printz		equ		14
svc_prt			equ		6
svc_put			equ		4
svc_run			equ		77
svc_sound		equ		104
svc_rdhdr		equ		48
svc_rdsec		equ		49
svc_rdssc		equ		85	; Read a system sector.
svc_rslct		equ		47	; Reselect busy drive until ready.
svc_rstor		equ		44	; Restore drive to CYL 0.
svc_seekcyl:		equ		46
svc_slct		equ		41
svc_stepi		equ		45	; Issue step in to drive controller.
svc_time		equ		19	; System time.
svc_vdctl		equ		15	; Video control SVC.
svc_where		equ		7	; Resolve runtime address.
svc_wrsec		equ		53	; Write a disk sector.
svc_wrssc		equ		54	; Write a systems sector.


; Logic equates.

FALSE			EQU		0	; Common usage in many modules.
TRUE			EQU		-1	; Common usage in many modules.


; <Instructions.>

RETOPCODE:		EQU		0C9h
restart28		EQU		"			RST			28h"

