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