mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-26 09:54:20 +00:00
222 lines
8.4 KiB
Plaintext
222 lines
8.4 KiB
Plaintext
MCS-86 MACRO ASSEMBLER RHDIR PAGE 1
|
||
|
||
|
||
ISIS-II MCS-86 MACRO ASSEMBLER V2.1 ASSEMBLY OF MODULE RHDIR
|
||
OBJECT MODULE PLACED IN :F0:RHDIR.OBJ
|
||
ASSEMBLER INVOKED BY: :F0: RHDIR.A86
|
||
|
||
|
||
LOC OBJ LINE SOURCE
|
||
|
||
1 ; Code and Data Interface for DIR.RSP
|
||
2 ; August 10, 1981
|
||
3 ; July 27, 1982 (updated)
|
||
4 ; Jan 1983 whf - added reg save to xdos
|
||
5 ; Mar 1983 dh - shrunk to resonable size
|
||
6
|
||
7 name rhdir ;Rsp Header DIRectory
|
||
8
|
||
9 cgroup group code
|
||
10 dgroup group dats
|
||
11 public xdos,mon1,mon2,mon3,mon4
|
||
12 public rsplink
|
||
13 extrn plmstart:near
|
||
14
|
||
15 assume cs:cgroup,ds:dgroup
|
||
16
|
||
---- 17 dats segment 'DATA'
|
||
0000 18 org 0
|
||
0010 19 rsphdr_len equ 16
|
||
0030 20 pd_len equ 30H
|
||
0100 21 uda_len equ 100H
|
||
0000 22 rsp_top equ 0
|
||
0010 23 rsp_pd equ rsp_top + rsphdr_len
|
||
0040 24 rsp_uda equ rsp_pd + pd_len
|
||
0140 25 rsp_bottom equ rsp_uda + uda_len
|
||
0000 26 org rsp_top
|
||
27 ;RSP header
|
||
0000 0000 28 rsplink dw 0 ;becomes system data page paragraph
|
||
0002 0000 29 sdatvar dw 0
|
||
0004 00 30 ncopies db 0
|
||
0005 0000 31 dw 0,0,0,0, 0
|
||
0007 0000
|
||
0009 0000
|
||
000B 0000
|
||
000D 0000
|
||
000F 00 32 db 0
|
||
0010 33 org rsp_pd
|
||
0010 0000 34 pd dw 0,0 ;link fields
|
||
0012 0000
|
||
0014 00 35 db 0 ;status
|
||
0015 BE 36 db 190 ;priority
|
||
0016 0300 37 dw 3 ;flags - system and keep
|
||
0018 44495220202020 38 db 'DIR ' ;name
|
||
20
|
||
0020 0400 39 dw rsp_uda/10h ;uda paragraph
|
||
0022 00 40 db 0,0 ;disk,user
|
||
0023 00
|
||
0024 00 41 db 0,0 ;ldisk,luser
|
||
0025 00
|
||
0026 0000 42 dw 0 ;puremem - not re-entrant
|
||
MCS-86 MACRO ASSEMBLER RHDIR PAGE 2
|
||
|
||
|
||
LOC OBJ LINE SOURCE
|
||
|
||
43 ;rest of pd
|
||
44
|
||
0040 45 org rsp_uda ;start of uda
|
||
0040 0000 46 uda dw 0
|
||
0042 0000 47 dw 0 ;DMA must be explicitly set
|
||
0044 0000 48 dw 0,0,0,0, 0,0,0,0, 0,0,0,0
|
||
0046 0000
|
||
0048 0000
|
||
004A 0000
|
||
004C 0000
|
||
004E 0000
|
||
0050 0000
|
||
0052 0000
|
||
0054 0000
|
||
0056 0000
|
||
0058 0000
|
||
005A 0000
|
||
005C 0000 49 dw 0,0,0,0, 0,0,0,0, 0,0,0,0
|
||
005E 0000
|
||
0060 0000
|
||
0062 0000
|
||
0064 0000
|
||
0066 0000
|
||
0068 0000
|
||
006A 0000
|
||
006C 0000
|
||
006E 0000
|
||
0070 0000
|
||
0072 0000
|
||
0074 3A01 50 dw offset stk_top
|
||
00A0 51 org rsp_uda + 60H
|
||
00A0 01 52 db 1 ;insys = 1, always use UDA stack
|
||
00A1 00 53 db 0
|
||
00A2 CCCC 54 dw 0cccch,0cccch,0cccch,0cccch ;62
|
||
00A4 CCCC
|
||
00A6 CCCC
|
||
00A8 CCCC
|
||
00AA CCCC 55 dw 0cccch,0cccch,0cccch,0cccch ;6A
|
||
00AC CCCC
|
||
00AE CCCC
|
||
00B0 CCCC
|
||
00B2 CCCC 56 dw 0cccch,0cccch,0cccch,0cccch ;72
|
||
00B4 CCCC
|
||
00B6 CCCC
|
||
00B8 CCCC
|
||
00BA CCCC 57 dw 0cccch,0cccch,0cccch,0cccch ;7A
|
||
00BC CCCC
|
||
00BE CCCC
|
||
00C0 CCCC
|
||
00C2 CCCC 58 dw 0cccch,0cccch,0cccch,0cccch ;82
|
||
00C4 CCCC
|
||
00C6 CCCC
|
||
00C8 CCCC
|
||
00CA CCCC 59 dw 0cccch,0cccch,0cccch,0cccch ;8A
|
||
00CC CCCC
|
||
MCS-86 MACRO ASSEMBLER RHDIR PAGE 3
|
||
|
||
|
||
LOC OBJ LINE SOURCE
|
||
|
||
00CE CCCC
|
||
00D0 CCCC
|
||
00D2 CCCC 60 dw 0cccch,0cccch,0cccch,0cccch ;92
|
||
00D4 CCCC
|
||
00D6 CCCC
|
||
00D8 CCCC
|
||
00DA CCCC 61 dw 0cccch,0cccch,0cccch,0cccch ;9A
|
||
00DC CCCC
|
||
00DE CCCC
|
||
00E0 CCCC
|
||
00E2 CCCC 62 dw 0cccch,0cccch,0cccch,0cccch ;A2
|
||
00E4 CCCC
|
||
00E6 CCCC
|
||
00E8 CCCC
|
||
00EA CCCC 63 dw 0cccch,0cccch,0cccch,0cccch ;AA
|
||
00EC CCCC
|
||
00EE CCCC
|
||
00F0 CCCC
|
||
00F2 CCCC 64 dw 0cccch,0cccch,0cccch,0cccch ;B2
|
||
00F4 CCCC
|
||
00F6 CCCC
|
||
00F8 CCCC
|
||
00FA CCCC 65 dw 0cccch,0cccch,0cccch,0cccch ;BA
|
||
00FC CCCC
|
||
00FE CCCC
|
||
0100 CCCC
|
||
0102 CCCC 66 dw 0cccch,0cccch,0cccch,0cccch ;C2
|
||
0104 CCCC
|
||
0106 CCCC
|
||
0108 CCCC
|
||
010A CCCC 67 dw 0cccch,0cccch,0cccch,0cccch ;CA
|
||
010C CCCC
|
||
010E CCCC
|
||
0110 CCCC
|
||
0112 CCCC 68 dw 0cccch,0cccch,0cccch,0cccch ;D2
|
||
0114 CCCC
|
||
0116 CCCC
|
||
0118 CCCC
|
||
011A CCCC 69 dw 0cccch,0cccch,0cccch,0cccch ;DA
|
||
011C CCCC
|
||
011E CCCC
|
||
0120 CCCC
|
||
0122 CCCC 70 dw 0cccch,0cccch,0cccch,0cccch ;E2
|
||
0124 CCCC
|
||
0126 CCCC
|
||
0128 CCCC
|
||
012A CCCC 71 dw 0cccch,0cccch,0cccch,0cccch ;EA
|
||
012C CCCC
|
||
012E CCCC
|
||
0130 CCCC
|
||
0132 CCCC 72 dw 0cccch,0cccch,0cccch,0cccch ;F2
|
||
0134 CCCC
|
||
0136 CCCC
|
||
0138 CCCC
|
||
013A 0000 E 73 stk_top dw plmstart,0,0 ;initial IRET
|
||
MCS-86 MACRO ASSEMBLER RHDIR PAGE 4
|
||
|
||
|
||
LOC OBJ LINE SOURCE
|
||
|
||
013C 0000
|
||
013E 0000
|
||
74
|
||
0140 75 org rsp_bottom
|
||
76
|
||
0140 77 datsend equ offset $
|
||
---- 78 dats ends
|
||
79
|
||
---- 80 code segment public 'CODE'
|
||
0000 81 org 0
|
||
82
|
||
0000 434F5059524947 83 db 'COPYRIGHT (C) 1982,'
|
||
48542028432920
|
||
313938322C
|
||
0013 20444947495441 84 db ' DIGITAL RESEARCH '
|
||
4C205245534541
|
||
52434820
|
||
85
|
||
0025 86 xdos proc
|
||
0025 55 87 push bp
|
||
0026 8BEC 88 mov bp,sp
|
||
0028 8B5604 89 mov dx,[bp+4]
|
||
002B 8B4E06 90 mov cx,[bp+6]
|
||
002E CDE0 91 int 224
|
||
0030 5D 92 pop bp
|
||
0031 C20400 93 ret 4
|
||
94 xdos endp
|
||
95
|
||
0025 96 mon1 equ xdos
|
||
0025 97 mon2 equ xdos
|
||
0025 98 mon3 equ xdos
|
||
0025 99 mon4 equ xdos
|
||
---- 100 code ends
|
||
101 end
|
||
|
||
ASSEMBLY COMPLETE, NO ERRORS FOUND
|