mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-26 09:54:20 +00:00
102 lines
2.2 KiB
Plaintext
102 lines
2.2 KiB
Plaintext
; Code and Data Interface for DIR.RSP
|
|
; August 10, 1981
|
|
; July 27, 1982 (updated)
|
|
; Jan 1983 whf - added reg save to xdos
|
|
; Mar 1983 dh - shrunk to resonable size
|
|
|
|
name rhdir ;Rsp Header DIRectory
|
|
|
|
cgroup group code
|
|
dgroup group dats
|
|
public xdos,mon1,mon2,mon3,mon4
|
|
public rsplink
|
|
extrn plmstart:near
|
|
|
|
assume cs:cgroup,ds:dgroup
|
|
|
|
dats segment 'DATA'
|
|
org 0
|
|
rsphdr_len equ 16
|
|
pd_len equ 30H
|
|
uda_len equ 100H
|
|
rsp_top equ 0
|
|
rsp_pd equ rsp_top + rsphdr_len
|
|
rsp_uda equ rsp_pd + pd_len
|
|
rsp_bottom equ rsp_uda + uda_len
|
|
org rsp_top
|
|
;RSP header
|
|
rsplink dw 0 ;becomes system data page paragraph
|
|
sdatvar dw 0
|
|
ncopies db 0
|
|
dw 0,0,0,0, 0
|
|
db 0
|
|
org rsp_pd
|
|
pd dw 0,0 ;link fields
|
|
db 0 ;status
|
|
db 190 ;priority
|
|
dw 3 ;flags - system and keep
|
|
db 'DIR ' ;name
|
|
dw rsp_uda/10h ;uda paragraph
|
|
db 0,0 ;disk,user
|
|
db 0,0 ;ldisk,luser
|
|
dw 0 ;puremem - not re-entrant
|
|
;rest of pd
|
|
|
|
org rsp_uda ;start of uda
|
|
uda dw 0
|
|
dw 0 ;DMA must be explicitly set
|
|
dw 0,0,0,0, 0,0,0,0, 0,0,0,0
|
|
dw 0,0,0,0, 0,0,0,0, 0,0,0,0
|
|
dw offset stk_top
|
|
org rsp_uda + 60H
|
|
db 1 ;insys = 1, always use UDA stack
|
|
db 0
|
|
dw 0cccch,0cccch,0cccch,0cccch ;62
|
|
dw 0cccch,0cccch,0cccch,0cccch ;6A
|
|
dw 0cccch,0cccch,0cccch,0cccch ;72
|
|
dw 0cccch,0cccch,0cccch,0cccch ;7A
|
|
dw 0cccch,0cccch,0cccch,0cccch ;82
|
|
dw 0cccch,0cccch,0cccch,0cccch ;8A
|
|
dw 0cccch,0cccch,0cccch,0cccch ;92
|
|
dw 0cccch,0cccch,0cccch,0cccch ;9A
|
|
dw 0cccch,0cccch,0cccch,0cccch ;A2
|
|
dw 0cccch,0cccch,0cccch,0cccch ;AA
|
|
dw 0cccch,0cccch,0cccch,0cccch ;B2
|
|
dw 0cccch,0cccch,0cccch,0cccch ;BA
|
|
dw 0cccch,0cccch,0cccch,0cccch ;C2
|
|
dw 0cccch,0cccch,0cccch,0cccch ;CA
|
|
dw 0cccch,0cccch,0cccch,0cccch ;D2
|
|
dw 0cccch,0cccch,0cccch,0cccch ;DA
|
|
dw 0cccch,0cccch,0cccch,0cccch ;E2
|
|
dw 0cccch,0cccch,0cccch,0cccch ;EA
|
|
dw 0cccch,0cccch,0cccch,0cccch ;F2
|
|
stk_top dw plmstart,0,0 ;initial IRET
|
|
|
|
org rsp_bottom
|
|
|
|
datsend equ offset $
|
|
dats ends
|
|
|
|
code segment public 'CODE'
|
|
org 0
|
|
|
|
db 'COPYRIGHT (C) 1982,'
|
|
db ' DIGITAL RESEARCH '
|
|
|
|
xdos proc
|
|
push bp
|
|
mov bp,sp
|
|
mov dx,[bp+4]
|
|
mov cx,[bp+6]
|
|
int 224
|
|
pop bp
|
|
ret 4
|
|
xdos endp
|
|
|
|
mon1 equ xdos
|
|
mon2 equ xdos
|
|
mon3 equ xdos
|
|
mon4 equ xdos
|
|
code ends
|
|
end
|