mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 16:34:07 +00:00
98 lines
1.8 KiB
NASM
98 lines
1.8 KiB
NASM
$title ('COM Externals')
|
|
name mcd80b
|
|
CSEG
|
|
; August 2, 1982
|
|
|
|
offset equ 0000h
|
|
|
|
|
|
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,reset
|
|
|
|
|
|
;*******************************************************
|
|
; 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.
|
|
;*******************************************************
|
|
|
|
bdos equ mon1
|
|
getalv equ 27
|
|
getdpb equ 31
|
|
|
|
; EXECUTION BEGINS HERE
|
|
|
|
reset:
|
|
trint:
|
|
|
|
;[JCE 17-5-1998] Protect against being run under DOS
|
|
|
|
db 0EBh,0Bh ;Sends 8086s to I8086: below
|
|
|
|
lxi sp, stack
|
|
call plm ; call program
|
|
mvi c,0
|
|
call bdos
|
|
|
|
I8086: db 0CDh,020h ;8086 processors come here - INT 20h
|
|
|
|
; 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
|
|
db 0
|
|
|
|
db 'CP/M Version 3.0'
|
|
db 'Copyright 1998, '
|
|
db 'Caldera, Inc. '
|
|
db '101198' ; version date day-month-year
|
|
db 0,0,0,0 ; patch bit map
|
|
db '654321' ; Serial no.
|
|
|
|
END
|
|
EOF
|