mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-28 10:54:18 +00:00
Upload
Digital Research
This commit is contained in:
@@ -0,0 +1,68 @@
|
||||
8086/8087/8088 MACRO ASSEMBLER PXIOS 18:10:30 04/22/83 PAGE 1
|
||||
|
||||
|
||||
VAX/VMS 8086/8087/8088 MACRO ASSEMBLER V1.0 ASSEMBLY OF MODULE PXIOS
|
||||
OBJECT MODULE PLACED IN PXIOS.OBJ
|
||||
NO INVOCATION LINE CONTROLS
|
||||
|
||||
|
||||
LOC OBJ LINE SOURCE
|
||||
|
||||
1 ; Interface to call Physical XIOS
|
||||
2 ; From a process not in the O.S.
|
||||
3 ; code reentrant, separate data areas per process
|
||||
4 ; used by VOUT and PIN RSPs
|
||||
5
|
||||
6 name pxios
|
||||
7
|
||||
8 cgroup group code
|
||||
9 dgroup group dats
|
||||
10
|
||||
11 assume cs:cgroup
|
||||
12 assume ds:dgroup
|
||||
13
|
||||
---- 14 dats segment public 'DATA'
|
||||
15 extrn rsplink:word ;segment of SYSDAT
|
||||
16 extrn udaseg:word ;UDA must be in ES for XIOS call
|
||||
17 extrn u_retseg:word, u_wrkseg:word, u_insys:byte
|
||||
---- 18 dats ends
|
||||
19
|
||||
---- 20 code segment public 'CODE'
|
||||
21 public pxios1, pxios2, pxios3, pxios4
|
||||
0028 22 xiosmod equ 28h
|
||||
0010 23 p_uda equ 10h
|
||||
0068 24 rlr equ 68h
|
||||
25
|
||||
0000 26 pxios2 equ pxios1
|
||||
0000 27 pxios3 equ pxios1
|
||||
0000 28 pxios4 equ pxios1
|
||||
29
|
||||
0000 30 pxios1 proc
|
||||
0000 55 31 push bp
|
||||
0001 8BEC 32 mov bp,sp
|
||||
33
|
||||
0003 8B4608 34 mov ax,[bp+8] ;set up registers
|
||||
0006 8B4E06 35 mov cx,[bp+6]
|
||||
0009 8B5604 36 mov dx,[bp+4]
|
||||
37
|
||||
000C 1E 38 push ds
|
||||
000D 8E1E0000 E 39 mov ds,rsplink ;SYSDAT
|
||||
0011 8B366800 40 mov si,ds:word ptr rlr ;ready list root
|
||||
0015 8E4410 41 mov es,[p_uda+si] ;UDA
|
||||
0018 FF1E2800 42 call ds:dword ptr [xiosmod]
|
||||
001C 1F 43 pop ds
|
||||
44
|
||||
001D 5D 45 pop bp
|
||||
001E C20600 46 ret 6
|
||||
47 pxios1 endp
|
||||
48
|
||||
---- 49 code ends
|
||||
50 end
|
||||
8086/8087/8088 MACRO ASSEMBLER PXIOS 18:10:30 04/22/83 PAGE 2
|
||||
|
||||
|
||||
LOC OBJ LINE SOURCE
|
||||
|
||||
|
||||
ASSEMBLY COMPLETE, NO ERRORS FOUND
|
||||
|
||||
Reference in New Issue
Block a user