v4.0/src/SELECT/MACROS8.INC

   1 ;DSKCPY_ERR     DB        0
   2 DSKCPY_EXIT     EQU       1       ;AN000;DT user chose to exit diskcopy
   3
   4 ;DSKCPY_WHICH   DB
   5 DSKCPY_TO_A_720 EQU       0       ;AN000;DT
   6 DSKCPY_TO_A_360 EQU       1       ;AN000;DT
   7 DSKCPY_TO_B     EQU       2       ;AN000;DT
   8
   9 ;DSKCPY_OPTION  DB
  10 SOURCE1         EQU      0        ;AN000;DT
  11 NO_SOURCE1      EQU      1        ;AN000;DT
  12
  13 NOCHECK         EQU       0
  14 DISKCOPY_TO     MACRO    WHERE,HOW,CHECK             ;;AN000;
  15                 MOV  DSKCPY_WHICH,WHERE              ;;AN000;
  16                 MOV  DSKCPY_OPTION,HOW               ;;AN000;
  17                 LEA  AX,CHECK                        ;;AN000;
  18                 MOV  DSKCPY_SOURCE,AX                ;;AN000;
  19                 ENDM                                 ;;AN000;
  20
  21 NOPANEL         EQU       0                          ;;AN000;
  22 DISKCOPY_PANELS MACRO    PANEL1, PANEL2, PANEL3      ;;AN000;
  23                 MOV      DSKCPY_PAN1,PANEL1          ;;AN000;
  24                 MOV      DSKCPY_PAN2,PANEL2          ;;AN000;
  25                 MOV      DSKCPY_PAN3,PANEL3          ;;AN000;
  26                 ENDM                                 ;;AN000;
  27
  28 INSERT_DISK     MACRO    DSK_PANEL, SRCH_FILE        ;;AN000;
  29                 MOV      DISK_PANEL, DSK_PANEL       ;;AN000;
  30                 LEA      DI,SRCH_FILE                ;;AN000;
  31                 MOV      SEARCH_FILE, DI             ;;AN000;
  32                 CALL     INSERT_DISK_ROUTINE         ;;AN000;
  33                 ENDM                                 ;;AN000;
  34
  35 HANDLE_FORMAT_ERROR MACRO                            ;;AN000;
  36                 LOCAL   FORERR1,FORERR2,FORERR3      ;;AN000;
  37                 CMP     SUB_ERROR,6                  ;;AN000;
  38                 JNE     FORERR1                      ;;AN000;
  39                 MOV     AX,PAN_DRIVE_ERROR           ;;AN000;
  40                 JMP     FORERR3                      ;;AN000;
  41 FORERR1:        CMP     SUB_ERROR,7                  ;;AN000;
  42                 JNE     FORERR2                      ;;AN000;
  43                 MOV     AX,PAN_WRITE_PROT            ;;AN000;
  44                 JMP     FORERR3                      ;;AN000;
  45 FORERR2:        MOV     AX,ERR_GENERAL               ;;AN000;
  46 FORERR3:        HANDLE_ERROR AX,E_RETURN             ;;AN000;
  47                 ENDM                                 ;;AN000;
  48 \1a