Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 3.X/CPM 3.0/Y2K PATCHES/MCD80A.ASM

@@ -0,0 +1,90 @@
+$title	('COM Externals')
+	name	mcd80a
+	CSEG
+;	September 14, 1982
+
+offset	equ	0000h
+boot	equ	0000h	;[JCE] to make SHOW compile
+
+	EXTRN	PLM
+
+;	EXTERNAL ENTRY POINTS
+
+mon1	equ	0005h+offset
+mon2	equ	0005h+offset
+mon2a	equ	0005h+offset
+mon3 	equ	0005h+offset
+	public	mon1,mon2,mon2a,mon3
+
+;	EXTERNAL BASE PAGE DATA LOCATIONS
+
+iobyte	equ	0003h+offset
+bdisk	equ	0004h+offset
+maxb	equ	0006h+offset
+memsiz	equ	maxb
+cmdrv	equ	0050h+offset
+pass0	equ	0051h+offset
+len0	equ	0053h+offset
+pass1	equ	0054h+offset
+len1	equ	0056h+offset
+fcb	equ	005ch+offset
+fcba	equ	fcb
+sfcb	equ	fcb
+ifcb	equ	fcb
+ifcba	equ	fcb
+fcb16	equ	006ch+offset
+dolla	equ	006dh+offset
+parma	equ	006eh+offset
+cr	equ	007ch+offset
+rr	equ	007dh+offset
+rreca	equ	rr
+ro	equ	007fh+offset
+rreco	equ	ro
+tbuff	equ	0080h+offset
+buff	equ	tbuff
+buffa	equ	tbuff
+cpu	equ	0	; 0 = 8080, 1 = 8086/88, 2 = 68000
+
+	public	iobyte,bdisk,maxb,memsiz
+	public	cmdrv,pass0,len0,pass1,len1
+	public	fcb,fcba,sfcb,ifcb,ifcba,fcb16
+	public	cr,rr,rreca,ro,rreco,dolla,parma
+	public	buff,tbuff,buffa, cpu, boot
+
+
+	;*******************************************************
+	; The interface should proceed the program
+	; so that TRINT becomes the entry point for the 
+	; COM file.  The stack is set and memsiz is set
+	; to the top of memory.  Program termination is done
+	; with a return to preserve R/O diskettes.
+	;*******************************************************
+
+;	EXECUTION BEGINS HERE
+
+;
+;[JCE 17-5-1998] Guard code prevents this program being run under DOS
+;
+	db	0EBh,7		;Sends 8086s to I8086:
+	lxi	sp, stack
+	JMP 	PLM
+	db	0		;Packing.
+;
+I8086:	db	0CDh,020h	;INT 20h - terminate immediately
+
+;	PATCH AREA, DATE, VERSION & SERIAL NOS.
+
+	dw	0,0,0,0,0,0,0,0
+	dw	0,0,0,0,0,0,0,0
+	dw	0,0,0,0,0,0,0,0
+	dw	0,0
+	db	0
+	db	'CP/M Version 3.0'
+	db	'Copyright 1998, '
+	db	'Caldera, Inc.   '
+	db	'190598'	; version date day-month-year
+	db	0,0,0,0		; patch bit map
+	db	'654321'	; Serial no.
+
+	END
+	EOF