Commit 17a105fd authored by ASCP's avatar ASCP 💬

Initial commit

parents
This diff is collapsed.
Short: Disk-2-Disk source code
Uploader: amigasourcecodepreservation@gmail.com
Author: Canux Corporation
Type: misc/emu
Version: 2.2
Architecture: generic
Source code for Disk-2-Disk.
Binaries: http://aminet.net/misc/emu/D2D-Demo.lha
Uploaded to aminet for historical preservation.
Many thanks to Canux Corporation for releasing the source code.
License
=======
Disk-2-Disk is distributed under the terms of the GNU General Public License,
version 2 or later. See the COPYING file for details.
All files part of Disk-2-Disk has
Copyright (C) 1996-2018 Canux Corporation
Notes
======
This is part of a batch of releases from Canux Corporation.
The source code was obtained from floppys disks, which was found
and preserved with a kryoflux (thanks SPS).
There might be more than one version of source code in one archive.
(v1.0, 1993 etc). Please submit any work you might to do to our gitlab in
a pull request.
A bit of the source code history from the copyright owner:
"
All of the sources with the exception of DesignWorks 2.0 and PowerManager
(and I don’t know if that source was included in what I sent you) were created
by a US company called “New Horizons”. When NH sold off their IP
(intellectual property) I was leading a development team at a company
called WCi in Ottawa Ontario and we bid on and won the auction of those assets.
I believe that was in 1994.
We rolled out a new version of DesignWorks (as mentioned) along with other
products like an Amiga power manager, a keyboard protocol converter (KB-10) and others.
WCi went out of business in 1995 or 1996. I personally bid on and
won the auction for WCi’s IP sometime after that. We did not do any
more Amiga development afterwards but some of our software was featured
in Amiga magazines at the time and we continued to build and sell our hardware products."
HELP US
===========
1) As the software now is GPL, please also upload the full binary
releases of the software if you have them, or send them to us.
2) Contact your old amiga friends and tell them about
our project, and ask them to dig out their source code or floppies
and send them to us for preservation.
3) Clean up our archives, and make the source code buildable
with standard compilers like devpac, asmone, gcc 2.9x/Beppo 6.x
, vbcc and friends.
Cheers!
Twitter
https://twitter.com/AmigaSourcePres
Gitlab
https://gitlab.com/AmigaSourcePres
WWW
https://amigasourcepres.gitlab.io/
_____ ___ _ __ __ _ __ __ ___ ___ _
|_ _| __| /_\ | \/ | /_\ | \/ |_ _/ __| /_\
| | | _| / _ \| |\/| | / _ \| |\/| || | (_ |/ _ \
_|_| |___/_/ \_\_|_ |_|_/_/_\_\_|__|_|___\___/_/_\_\
/ __|/ _ \| | | | _ \/ __| __| / __/ _ \| \| __|
\__ \ (_) | |_| | / (__| _| | (_| (_) | |) | _|
|___/\___/_\___/|_|_\\___|___|__\___\___/|___/|___|_
| _ \ _ \ __/ __| __| _ \ \ / /_\_ _|_ _/ _ \| \| |
| _/ / _|\__ \ _|| /\ V / _ \| | | | (_) | .` |
|_| |_|_\___|___/___|_|_\ \_/_/ \_\_| |___\___/|_|\_|
Disclaimer
=======
We handle of lot legacy code that we get sent. By error, sometimes a copyrighted file
that we don't have the permission to release could by mistake be included in the release archives.
If you find something that shouldn't be there, and you can prove that you are the copyright
owner to it, please contact us and we will do our best to resolve the issue.
Short: Disk-2-Disk source code
Uploader: amigasourcecodepreservation@gmail.com
Author: Canux Corporation
Type: misc/emu
Version: 2.2
Architecture: generic
Source code for Disk-2-Disk.
Binaries: http://aminet.net/misc/emu/D2D-Demo.lha
Uploaded to aminet for historical preservation.
Many thanks to Canux Corporation for releasing the source code.
License
=======
Disk-2-Disk is distributed under the terms of the GNU General Public License,
version 2 or later. See the COPYING file for details.
All files part of Disk-2-Disk has
Copyright (C) 1996-2018 Canux Corporation
Notes
======
This is part of a batch of releases from Canux Corporation.
The source code was obtained from floppys disks, which was found
and preserved with a kryoflux (thanks SPS).
There might be more than one version of source code in one archive.
(v1.0, 1993 etc). Please submit any work you might to do to our gitlab in
a pull request.
A bit of the source code history from the copyright owner:
"
All of the sources with the exception of DesignWorks 2.0 and PowerManager
(and I don’t know if that source was included in what I sent you) were created
by a US company called “New Horizons”. When NH sold off their IP
(intellectual property) I was leading a development team at a company
called WCi in Ottawa Ontario and we bid on and won the auction of those assets.
I believe that was in 1994.
We rolled out a new version of DesignWorks (as mentioned) along with other
products like an Amiga power manager, a keyboard protocol converter (KB-10) and others.
WCi went out of business in 1995 or 1996. I personally bid on and
won the auction for WCi’s IP sometime after that. We did not do any
more Amiga development afterwards but some of our software was featured
in Amiga magazines at the time and we continued to build and sell our hardware products."
HELP US
===========
1) As the software now is GPL, please also upload the full binary
releases of the software if you have them, or send them to us.
2) Contact your old amiga friends and tell them about
our project, and ask them to dig out their source code or floppies
and send them to us for preservation.
3) Clean up our archives, and make the source code buildable
with standard compilers like devpac, asmone, gcc 2.9x/Beppo 6.x
, vbcc and friends.
Cheers!
Twitter
https://twitter.com/AmigaSourcePres
Gitlab
https://gitlab.com/AmigaSourcePres
WWW
https://amigasourcepres.gitlab.io/
_____ ___ _ __ __ _ __ __ ___ ___ _
|_ _| __| /_\ | \/ | /_\ | \/ |_ _/ __| /_\
| | | _| / _ \| |\/| | / _ \| |\/| || | (_ |/ _ \
_|_| |___/_/ \_\_|_ |_|_/_/_\_\_|__|_|___\___/_/_\_\
/ __|/ _ \| | | | _ \/ __| __| / __/ _ \| \| __|
\__ \ (_) | |_| | / (__| _| | (_| (_) | |) | _|
|___/\___/_\___/|_|_\\___|___|__\___\___/|___/|___|_
| _ \ _ \ __/ __| __| _ \ \ / /_\_ _|_ _/ _ \| \| |
| _/ / _|\__ \ _|| /\ V / _ \| | | | (_) | .` |
|_| |_|_\___|___/___|_|_\ \_/_/ \_\_| |___\___/|_|\_|
Disclaimer
=======
We handle of lot legacy code that we get sent. By error, sometimes a copyrighted file
that we don't have the permission to release could by mistake be included in the release archives.
If you find something that shouldn't be there, and you can prove that you are the copyright
owner to it, please contact us and we will do our best to resolve the issue.
File added
File added
This diff is collapsed.
* Disk-2-Disk BOX DEFINITIONS
*********************************************************
* Copyright (c) 1987 Central Coast Software *
* 268 Bowie Dr, Los Osos, CA 93402 *
* All rights reserved, worldwide *
*********************************************************
OKAY_LE EQU 554
OKAY_TE EQU 185
OKAY_WD EQU 70
OKAY_HT EQU 12
LDIRMAX EQU 15 ;MAX FILES IN LEFT DIR
RDIRMAX EQU 15 ;MAX FILES IN RIGHT DIR
AR_WD EQU 16 ;DIRECTORY ARROWS
AR_HT EQU 10
LBOX_LE EQU 0 ;LEFT EDGE OF LEFT BOXES
LBOX_WD EQU 238 ;OVERALL WIDTH OF LEFT DIR BOX
RBOX_LE EQU 322 ;LEFT EDGE OF RIGHT BOXES
RBOX_WD EQU 318 ;OVERALL WIDTH OF RIGHT DIR BIX
FMBX_LE EQU LBOX_LE ;FROM
FMBX_TE EQU 12
FMBX_WD EQU LBOX_WD
FMBX_HT EQU 11
FIF_LE EQU FMBX_LE+40 ;1541
FIF_TE EQU FMBX_TE
FIF_WD EQU 40
FIF_HT EQU FMBX_HT
CID_LE EQU FIF_LE+FIF_WD-4 ;1541 IDENT
CID_TE EQU FMBX_TE
CID_WD EQU 18*8
CID_HT EQU FMBX_HT
CDBX_LE EQU LBOX_LE ;C/C DRIVE CODE
CDBX_TE EQU FMBX_TE+FMBX_HT+2
CDBX_WD EQU LBOX_WD
CDBX_HT EQU 11
CFIL_LE EQU LBOX_LE+37
CFIL_TE EQU FMBX_TE+FMBX_HT+2
CFIL_WD EQU 160 ;20*8
CFIL_HT EQU 11
LDIR_LE EQU LBOX_LE ;C/C DIRECTORY BOX
LDIR_TE EQU CDBX_TE+CDBX_HT+2
LDIR_WD EQU LBOX_WD-AR_WD+2
LDIR_HT EQU 126
CFS_WD EQU 168
CFS_LE EQU LBOX_LE+LDIR_WD-CFS_WD ;C/C FREE SPACE
CFS_TE EQU LDIR_TE+LDIR_HT+1
CFS_HT EQU 11
TOBX_LE EQU RBOX_LE ;TO
TOBX_TE EQU FMBX_TE
TOBX_WD EQU RBOX_WD
TOBX_HT EQU FMBX_HT
AFIL_LE EQU RBOX_LE ;ADOS DRIVE:PATH/FILE
AFIL_TE EQU CFIL_TE
AFIL_WD EQU RBOX_WD
AFIL_HT EQU CFIL_HT
RDIR_LE EQU RBOX_LE ;AMIGA DIRECTORY BOX
RDIR_TE EQU LDIR_TE
RDIR_WD EQU RBOX_WD-AR_WD+2
RDIR_HT EQU 126
AFS_WD EQU 168 ;AMIGA FREE SPACE
AFS_LE EQU RBOX_LE+RDIR_WD-AFS_WD
AFS_TE EQU RDIR_TE+RDIR_HT+1
AFS_HT EQU CFS_HT
PAR_LE EQU RBOX_LE ;PARENT
PAR_TE EQU AFS_TE+AFS_HT+2
PAR_WD EQU 64
PAR_HT EQU 19
ROOT_LE EQU PAR_LE+PAR_WD+2
ROOT_TE EQU PAR_TE
ROOT_WD EQU 64
ROOT_HT EQU 19
BDF_LE EQU ROOT_LE+ROOT_WD+2
BDF_TE EQU PAR_TE
BDF_WD EQU 64
BDF_HT EQU 19
ACHG_LE EQU BDF_LE+BDF_WD+2
ACHG_TE EQU PAR_TE
ACHG_WD EQU 64
ACHG_HT EQU 19
* CENTER BOXES
CB_LE EQU 244
CB_WD EQU 72
CB_HT EQU 19
ASC_LE EQU CB_LE ;ASCII CONV
ASC_TE EQU 46
ASC_WD EQU CB_WD
ASC_HT EQU CB_HT
REP_LE EQU CB_LE ;DUP REPLACE
REP_TE EQU 69
REP_WD EQU CB_WD
REP_HT EQU CB_HT
WTYP_LE EQU CB_LE ;WRITE C/C FILE TYPE
WTYP_TE EQU 92
WTYP_WD EQU CB_WD
WTYP_HT EQU CB_HT
DISP_LE EQU CB_LE ;DISPLAY TEXT
DISP_TE EQU 122
DISP_WD EQU CB_WD
DISP_HT EQU CB_HT
DEL_LE EQU CB_LE ;DELETE FILE
DEL_TE EQU 145
DEL_WD EQU CB_WD
DEL_HT EQU CB_HT
FORM_LE EQU LBOX_LE ;FORMAT NEW DISK
FORM_TE EQU CFS_TE+CFS_HT+2
FORM_WD EQU 64
FORM_HT EQU 19
CHNG_LE EQU FORM_LE+FORM_WD+2 ;DISK CHANGE
CHNG_TE EQU FORM_TE
CHNG_WD EQU 64
CHNG_HT EQU 19
BCHK_LE EQU CHNG_LE+CHNG_WD+2 ;BAM CHECK
BCHK_TE EQU FORM_TE
BCHK_WD EQU 64
BCHK_HT EQU 19
RCHK_LE EQU BCHK_LE+BCHK_WD+2 ;READ CHECK
RCHK_TE EQU FORM_TE
RCHK_WD EQU 64
RCHK_HT EQU 19
LPRP_LE EQU LBOX_LE+LBOX_WD-AR_WD ;LEFT DIR PROP
LPRP_TE EQU LDIR_TE+AR_HT
LPRP_WD EQU AR_WD
LPRP_HT EQU LDIR_HT-2*AR_HT
RPRP_LE EQU RBOX_LE+RBOX_WD-AR_WD ;RIGHT DIR PROP
RPRP_TE EQU RDIR_TE+AR_HT
RPRP_WD EQU AR_WD
RPRP_HT EQU RDIR_HT-2*AR_HT
LDIRGWD SET LDIR_WD-7 ;INITIAL WIDTH
RDIRGWD EQU RDIR_WD-7 ;INITIAL GADGET WIDTH
*********************************************************
* Copyright (c) 1987 Central Coast Software *
* 268 Bowie Dr, Los Osos, CA 93402 *
* All rights reserved, worldwide *
*********************************************************
INCLUDE "D2DMAC.ASM"
XDEF ADLBUF,ADNBUF,CDLBUF,CDNBUF
XDEF DIRBUF,BAMBUF,BLKBUF,ADBUF
XDEF LINBUF
CDLBUF DS.B CDFMAX*4
CDNBUF DS.B CDFMAX*28
ADLBUF DS.B ADFMAX*4
ADNBUF DS.B ADFMAX*38
CNOP 0,2
LINBUF
DIRBUF DS.B DIRSIZ ;DIRECTORY BUFFER
BAMBUF DS.B BAMSIZ ;BAM BUFFER
BLKBUF DS.B BLKSIZ ;BLOCK BUFFER
ADBUF DS.B ADBSIZ ;AMIGA-DOS TEXT BUFFER
END
This diff is collapsed.
FROM d2d.obj,GADGETS.OBJ,IMAGES.CHIP,MAIN.OBJ,BUFFERS.OBJ,DISK.OBJ,FUN.OBJ,BASX.OBJ
TO d2d
LIBRARY DH0:D2D/amiga.lib
* Disk-2-Disk common macros and equates.
*********************************************************
* Copyright (c) 1987 Central Coast Software *
* 268 Bowie Dr, Los Osos, CA 93402 *
* All rights reserved, worldwide *
*********************************************************
DEMO EQU 0 ;1=DEMO VERSION, 0=PRODUCTION
BLUE EQU 0
WHITE EQU 1
BLACK EQU 2
ORANGE EQU 3
JAM1 EQU 0
JAM2 EQU 1
CDFMAX EQU 144 ;MAX C/C FILE COUNT
ADFMAX EQU 150 ;MAX ADOS FILE COUNT D2D CAN PROCESS
DIRMAX EQU 18 ;MAX SECTORS IN DIRECTORY
BAMSIZ EQU 2*256 ;BAM IS 2 SECTORS, MAX
DIRSIZ EQU 256*DIRMAX ;DIRECTORY BUFFER SIZE
BLKSIZ EQU 1024 ;SIZE OF BLOCK BUFFER
ADBSIZ EQU 512 ;SIZE OF AMIGA-DOS TEXT BUFFER
LINSIZ EQU 128 ;SIZE OF TEXT BUFFER
TRKSIZ EQU 8000 ;NUMBER OF BYTES IN TRACK BUFFER
EXISTING EQU 1005 ;AmigaDOS OPEN EXISTING FILE ACCESS MODE
NEW EQU 1006 ;AmigaDOS OPEN NEW FILE ACCESS MODE
TRUE EQU -1 ;BOOLEAN CONSTANT
FALSE EQU 0 ;DITTO
DR_GetUnit EQU -18 ;SIEZE DISK CONTROLLER
DR_GiveUnit EQU -24 ;RELEASE DISK CONTROLLER
DR_GetUnitID EQU -30 ;GET DISK DRIVE TYPE
_LVOActivateGadget EQU -$1CE
DOSSignature EQU $F8001C
IPEN EQU 15 ;OFFSET TO PEN IN IMAGE
RPORT EQU $32 ;OFFSET TO RASTPORT IN WINDOW
TaskPort EQU $5C ;OFFSET TO TASK PORT IN TASK CONTROL BLOCK
UserPort EQU $56 ;OFFSET TO USER PORT IN WINDOW
WindowPort EQU $5A ;OFFSET TO WINDOW PORT IN WINDOW
RPort EQU $32 ;OFFSET TO RastPort IN WINDOW
Gadgets EQU $3E ;OFFSET TO GADGET LIST IN WINDOW
im_Class EQU $14 ;OFFSET TO INTUITION MSG CLASS
im_Code EQU $18 ;CODE FIELD OFFSET
im_IAddr EQU $1C ;ADDR OF SELECTED GADGET
im_MouseX EQU $20 ;MOUSE X COORDINATE
im_MouseY EQU $22 ;MOUSE Y COORDINATE
* ITEXT OFFSET
IT_STG EQU 12
IT_LEFT EQU 4
IT_TOP EQU 6
* STRINGINFO OFFSETS
STG_BPOS EQU 8
STG_MAXC EQU 10
STG_NUMC EQU 16
REQ_WD EQU 320 ;STANDARD REQ WIDTH
REQ_HT EQU 84 ;STANDARD REQ HEIGHT
IM_DATA EQU 10
* GADGET OFFSETS
G_LE EQU 4
G_TE EQU 6
G_WD EQU 8
G_HT EQU 10
G_FLG EQU 12
G_ACT EQU 14
G_TYPE EQU 16
G_REND EQU 18
G_SEL EQU 22
G_ITXT EQU 26
G_INFO EQU 34
G_ID EQU 38
G_DATA EQU 40
* IDCMP FLAGS AND INTUIMESSAGE CLASSES
SIZEVERIFY EQU $1
NEWSIZE EQU $2
REFRESHWINDOW EQU $4
MOUSEBUTTONS EQU $8
MOUSEMOVE EQU $10
GADGETDN EQU $20
GADGETUP EQU $40
REQSET EQU $80
MENUPICK EQU $100
CLOSEWINDOW EQU $200
RAWKEY EQU $400
REQVERIFY EQU $800
REQCLEAR EQU $1000
MENUVERIFY EQU $2000
NEWPREFS EQU $4000
CLRBOX MACRO ;BOX ID,COLOR,OPT=FULL
IFEQ NARG-2
MOVE.W #\1_LE+2,D0
SWAP D0
MOVE.W #\1_TE+1,D0
MOVE.W #\1_WD-4,D1
SWAP D1
MOVE.W #\1_HT-2,D1
MOVEQ #\2,D2
ENDC
IFNE NARG-2
MOVE.W #\1,D0
SWAP D0
MOVE.W #\2,D0
MOVE.W #\3,D1
SWAP D1
MOVE.W #\4,D1
MOVEQ #\5,D2
ENDC
JSR CLEAR_BOX
ENDM
TEXTZ MACRO ;NULL TERM STRING
DC.B \1,0
ENDM
DISABLE MACRO
MOVE.W #$4000,$DFF09A
ENDM
ENABLE MACRO
MOVE.W #$C000,$DFF09A
ENDM
FLIP MACRO ;EA
BCHG #0,\1
ENDM
ONCALL MACRO ;REG,ADDRESS LIST PTR
ADD.W \1,\1
ADD.W \1,\1
MOVE.L \2(\1.W),A6
JSR (A6)
ENDM
NODE MACRO
DC.L 0 ;SUCC
DC.L 0 ;PRED
DC.B \1 ;TYPE
DC.B \2 ;PRI
DC.L \3 ;NAME POINTER
ENDM
SETF MACRO
BSET #0,\1
ENDM
PUSH MACRO
MOVEM.L \1,-(A7)
ENDM
POP MACRO
MOVEM.L (A7)+,\1
ENDM
CALL MACRO
JSR \1
ENDM
INCB MACRO
ADDQ.B #1,\1
ENDM
DECB MACRO
SUBQ.B #1,\1
ENDM
INCW MACRO
ADDQ.W #1,\1
ENDM
DECW MACRO
SUBQ.W #1,\1
ENDM
INCL MACRO
ADDQ.L #1,\1
ENDM
DECL MACRO
SUBQ.L #1,\1
ENDM
ZAP MACRO
MOVEQ #0,\1
ENDM
ZAPA MACRO
SUB.L \1,\1
ENDM
STC MACRO
ORI.B #1,CCR
ENDM
CLC MACRO
CMP.B D0,D0
ENDM
SWAB MACRO
ROL.W #8,\1
ENDM
IFZ MACRO
TST.B \1
BEQ \2
ENDM
IFZW MACRO
TST.W \1
BEQ \2
ENDM
IFNZ MACRO
TST.B \1
BNE \2
ENDM
IFNZW MACRO
TST.W \1
BNE \2
ENDM
IFEQ. MACRO ;STG1,STG2,LABEL
XREF CMP..
LEA \1,A0
LEA \2,A1
JSR CMP..
BEQ \3
ENDM
IFNE. MACRO ;STG1,STG2,LABEL
XREF CMP..
LEA \1,A0
LEA \2,A1
JSR CMP..
BNE \3
ENDM
IFLCEQ. MACRO ;STG,CHAR,LABEL
XREF GTLCHAR..
LEA \1,A0
MOVEQ \2,D7
CALL GTLCHAR..
BEQ \3
ENDM
IFLCNE. MACRO ;STG,CHAR,LABEL
XREF GTLCHAR..
LEA \1,A0
MOVEQ \2,D7
CALL GTLCHAR..
BNE \3
ENDM
IFRGEQ. MACRO ;REG,VALUE,LABEL
MOVEQ \2,D7
CMP.B D7,\1
BEQ \3
ENDM
IFRGNE. MACRO ;REG,VALUE,LABEL
MOVEQ \2,D7
CMP.B D7,\1
BNE \3
ENDM
SCAN. MACRO ;SOURCE,DEST
XREF SCAN..
LEA \1,A0
LEA \2,A1
JSR SCAN..
ENDM
MOVE. MACRO ;SOURCE,DEST
XREF MOVE..
IFNC '\1','A0'
LEA \1,A0
ENDC
IFNC '\2','A1'
LEA \2,A1
ENDC
JSR MOVE..
ENDM
LEFT. MACRO ;SRC,LEN,DEST
XREF LEFT..
LEA \1,A0
MOVE.W \2,D0
LEA \3,A1
JSR LEFT..
ENDM