v4.0/src/CMD/DISKCOPY/DCPYMACR.INC

   1         IF1                             ;AN000;
   2             %OUT    COMPONENT=DISKCOPY, INCLUDING DCPYMACR.INC...;AN000;
   3         ENDIF                           ;AN000;
   4 ;***************************************************************************;
   5 ;                            MACRO DEFINITION                               ;
   6 ;***************************************************************************;
   7
   8 HEADER  MACRO   TEXT                    ;AN000;
   9 .XLIST                                  ;AN000;
  10         SUBTTL  &TEXT                   ;AN000;
  11 .LIST                                   ;AN000;
  12         PAGE                            ;AN000;
  13         ENDM                            ;AN000;
  14 ;  =  =  =  =  =  =  =  =  =
  15 ;                                  $SALUT (0,36,40,44)
  16 DOSCALL                            MACRO FUNC,SUBFUNC ;;AN000;
  17                                    IFNB <FUNC> ;;AN000;IS THERE ANY PARMS AT ALL?
  18                                    IFNB <SUBFUNC> ;;AN000;
  19                                    MOV AX,(FUNC SHL 8)+SUBFUNC ;;AN000;FUNC TO AH,SUBFUNC TO AL
  20                                    ELSE    ;;AN000;SINCE THERE IS NO SUBFUNC
  21                                    MOV AH,FUNC ;;AN000;
  22                                    ENDIF   ;;AN000;
  23                                    ENDIF   ;;AN000;
  24                                    INT 21H ;;AN000;
  25                                    ENDM    ;;AN000;
  26 ;  =  =  =  =  =  =  =  =  =
  27 PRINT                              MACRO MESSAGE;;AN000;
  28                                    MOV DI,OFFSET MESSAGE  ;;AC000;
  29                                    CALL SENDMSG           ;;AC000;
  30                                    ENDM                   ;;AN000;
  31 ;  =  =  =  =  =  =  =  =  =
  32 ;              $SALUT (0,16,22,36)
  33 MY_TRACKLAYOUT MACRO               ;AN000;
  34                LOCAL CSECT_F                                                    ;AN000;
  35 CSECT_F        DW    0             ;;AN000;# OF SECTORS IN A TRACK. Currently 18 is max.
  36                                    ;;  THE REST IS FOR FUTURE MEDIA
  37                DW    1             ;;AN000;1 ST SECTOR
  38                DW    512           ;;AN000;# OF BYTES
  39                DW    2             ;;AN000;
  40                DW    512           ;;AN000;
  41                DW    3             ;;AN000;
  42                DW    512           ;;AN000;
  43                DW    4             ;;AN000;
  44                DW    512           ;;AN000;
  45                DW    5             ;;AN000;
  46                DW    512           ;;AN000;
  47                DW    6             ;;AN000;
  48                DW    512           ;;AN000;
  49                DW    7             ;;AN000;
  50                DW    512           ;;AN000;
  51                DW    8             ;;AN000;
  52                DW    512           ;;AN000;
  53                DW    9             ;;AN000;
  54                DW    512           ;;AN000;
  55                DW    10            ;;AN000;
  56                DW    512           ;;AN000;
  57                DW    11            ;;AN000;
  58                DW    512           ;;AN000;
  59                DW    12            ;;AN000;
  60                DW    512           ;;AN000;
  61                DW    13            ;;AN000;
  62                DW    512           ;;AN000;
  63                DW    14            ;;AN000;
  64                DW    512           ;;AN000;
  65                DW    15            ;;AN000;
  66                DW    512           ;;AN000;
  67                DW    16            ;;AN000;
  68                DW    512           ;;AN000;
  69                DW    17            ;;AN000;
  70                DW    512           ;;AN000;
  71                DW    18            ;;AN000;
  72                DW    512           ;;AN000;CURRENTLY 18 SECTORS/TRACK IS MAXIMUM
  73                DW    19            ;;AN000;BELOW IS FOR THE FUTURE MEDIA.
  74                DW    512           ;;AN000;
  75                DW    20            ;;AN000;
  76                DW    512           ;;AN000;
  77                DW    21            ;;AN000;
  78                DW    512           ;;AN000;
  79                DW    22            ;;AN000;
  80                DW    512           ;;AN000;
  81                DW    23            ;;AN000;
  82                DW    512           ;;AN000;
  83                DW    24            ;;AN000;
  84                DW    512           ;;AN000;
  85                DW    25            ;;AN000;
  86                DW    512           ;;AN000;
  87                DW    26            ;;AN000;
  88                DW    512           ;;AN000;
  89                DW    27            ;;AN000;
  90                DW    512           ;;AN000;
  91                DW    28            ;;AN000;
  92                DW    512           ;;AN000;
  93                DW    29            ;;AN000;
  94                DW    512           ;;AN000;
  95                DW    30            ;;AN000;
  96                DW    512           ;;AN000;
  97                DW    31            ;;AN000;
  98                DW    512           ;;AN000;
  99                DW    32            ;;AN000;
 100                DW    512           ;;AN000;
 101                DW    33            ;;AN000;
 102                DW    512           ;;AN000;
 103                DW    34            ;;AN000;
 104                DW    512           ;;AN000;
 105                DW    35            ;;AN000;
 106                DW    512           ;;AN000;
 107                DW    36            ;;AN000;
 108                DW    512           ;;AN000;
 109                DW    37            ;;AN000;
 110                DW    512           ;;AN000;
 111                DW    38            ;;AN000;
 112                DW    512           ;;AN000;
 113                DW    39            ;;AN000;
 114                DW    512           ;;AN000;
 115                DW    40            ;;AN000;
 116                DW    512           ;;AN000;
 117                DW    41            ;;AN000;
 118                DW    512           ;;AN000;
 119                DW    42            ;;AN000;
 120                DW    512           ;;AN000;
 121                DW    43            ;;AN000;
 122                DW    512           ;;AN000;
 123                DW    44            ;;AN000;
 124                DW    512           ;;AN000;
 125                DW    45            ;;AN000;
 126                DW    512           ;;AN000;
 127                DW    46            ;;AN000;
 128                DW    512           ;;AN000;
 129                DW    47            ;;AN000;
 130                DW    512           ;;AN000;
 131                DW    48            ;;AN000;
 132                DW    512           ;;AN000;
 133                DW    49            ;;AN000;
 134                DW    512           ;;AN000;
 135                DW    50            ;;AN000;
 136                DW    512           ;;AN000;
 137                DW    51            ;;AN000;
 138                DW    512           ;;AN000;
 139                DW    52            ;;AN000;
 140                DW    512           ;;AN000;
 141                DW    53            ;;AN000;
 142                DW    512           ;;AN000;
 143                DW    54            ;;AN000;
 144                DW    512           ;;AN000;
 145                DW    55            ;;AN000;
 146                DW    512           ;;AN000;
 147                DW    56            ;;AN000;
 148                DW    512           ;;AN000;
 149                DW    57            ;;AN000;
 150                DW    512           ;;AN000;
 151                DW    58            ;;AN000;
 152                DW    512           ;;AN000;
 153                DW    59            ;;AN000;
 154                DW    512           ;;AN000;
 155                DW    60            ;;AN000;
 156                DW    512           ;;AN000;
 157                DW    61            ;;AN000;
 158                DW    512           ;;AN000;
 159                DW    62            ;;AN000;
 160                DW    512           ;;AN000;
 161                DW    63            ;;AN000;
 162                DW    512           ;;AN000;
 163                ENDM                                                             ;AN000;
 164 \1a