v4.0/src/CMD/DISKCOMP/DCMPMACR.INC

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