diff options
Diffstat (limited to 'v4.0/src/SELECT/MACROS8.INC')
| -rw-r--r-- | v4.0/src/SELECT/MACROS8.INC | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/v4.0/src/SELECT/MACROS8.INC b/v4.0/src/SELECT/MACROS8.INC new file mode 100644 index 0000000..7008fce --- /dev/null +++ b/v4.0/src/SELECT/MACROS8.INC | |||
| @@ -0,0 +1,48 @@ | |||
| 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 | \ No newline at end of file | ||