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
