mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-27 18:34:07 +00:00
Upload
Digital Research
This commit is contained in:
@@ -0,0 +1,221 @@
|
||||
MCS-86 MACRO ASSEMBLER RHABT PAGE 1
|
||||
|
||||
|
||||
ISIS-II MCS-86 MACRO ASSEMBLER V2.1 ASSEMBLY OF MODULE RHABT
|
||||
OBJECT MODULE PLACED IN :F0:RHABT.OBJ
|
||||
ASSEMBLER INVOKED BY: :F0: RHABT.A86
|
||||
|
||||
|
||||
LOC OBJ LINE SOURCE
|
||||
|
||||
1 ; Code and Data Interface for ABORT.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 rhabt ;Rsp Header ABorT
|
||||
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 41424F52542020 38 db 'ABORT ' ;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 RHABT 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 RHABT 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 RHABT 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
|
||||
Reference in New Issue
Block a user