DREAMWEB: Add original Dreamweb assembly sources

They have been released under the GPL with permission from Neil Dodwell.

Note that the version of these sources that was added in
9599894a4b2f79672fc3e2ca5a93ef9c7d457c08 has been tweaked to
prepare for processing by tasmrecover.

1 files changed, 1489 insertions, 0 deletions

diff --git a/devtools/tasmrecover/dreamweb/saveload.asm b/devtools/tasmrecover/dreamweb/saveload.asm
new file mode 100644
index 0000000000..e8fa018de8
--- /dev/null
+++ b/devtools/tasmrecover/dreamweb/saveload.asm
@@ -0,0 +1,1489 @@
+;Copyright (c) 1990-2011 by Neil Dodwell
+;Released with permission from Neil Dodwell under GPLv2
+;See LICENSE file for full license text
+
+
+Zoomonoff	proc	near
+
+	cmp	watchingtime,0
+	jnz	blank
+	cmp	pointermode,2
+	jz	blank
+	cmp	commandtype,222
+	jz	alreadyonoff
+	mov	commandtype,222
+	mov	al,39
+	call	commandonly
+alreadyonoff:	mov	ax,mousebutton
+	cmp	ax,oldbutton
+	jz	nozoomonoff
+	and	ax,1
+	jnz	dozoomonoff
+nozoomonoff:	ret
+
+dozoomonoff:	mov	al,zoomon
+	xor	al,1
+	mov	zoomon,al
+
+	call	createpanel
+	mov	newobs,0
+	call	drawfloor
+	call	printsprites
+	call	reelsonscreen
+	call	showicon
+	call	getunderzoom
+	call	undertextline
+	mov	al,39
+	call	commandonly
+	call	readmouse
+	call	worktoscreenm
+	ret
+
+	endp
+
+
+
+
+
+
+
+
+
+
+
+
+Saveload	proc	near
+
+	if	demo
+	call	dosreturn
+	ret
+	else
+	cmp	watchingtime,0
+	jnz	blank
+	cmp	pointermode,2
+	jz	blank
+	cmp	commandtype,253
+	jz	alreadyops
+	mov	commandtype,253
+	mov	al,43
+	call	commandonly
+alreadyops:	mov	ax,mousebutton
+	cmp	ax,oldbutton
+	jz	noops
+	and	ax,1
+	jz	noops
+	call	dosaveload
+noops:	ret
+	endif
+
+	endp
+
+
+
+
+
+
+
+
+
+
+
+Dosaveload	proc	near
+
+	mov	pointerframe,0
+	mov	textaddressx,70
+	mov	textaddressy,182-8
+	mov	textlen,181
+	mov	manisoffscreen,1
+	call	clearwork
+	call	createpanel2
+	call	undertextline
+	call	getridofall ;reels
+	call	loadsavebox
+	call	showopbox
+	call	showmainops
+	call	worktoscreen ;2
+	jmp	donefirstops
+
+restartops:	call	showopbox
+	call	showmainops
+	call	worktoscreenm
+donefirstops:	mov	getback,0
+waitops:	call	readmouse
+	call	showpointer
+	call	vsync
+	call	dumppointer
+	call	dumptextline
+	call	delpointer
+	mov	bx,offset cs:opslist
+	call	checkcoords
+	cmp	getback,0
+	jz	waitops
+	cmp	getback,2
+	jz	restartops
+	mov	textaddressx,13
+	mov	textaddressy,182
+	mov	textlen,240
+	cmp	getback,4
+	jz	justret
+	call	getridoftemp
+	call	restoreall ;reels
+	call	redrawmainscrn
+	call	worktoscreenm
+	mov	commandtype,200
+justret:	mov	manisoffscreen,0
+	ret
+
+opslist:	dw	opsx+59,opsx+114,opsy+30,opsy+76,getbackfromops
+	dw	opsx+10,opsx+77,opsy+10,opsy+59,dosreturn
+	dw	opsx+128,opsx+190,opsy+16,opsy+100,discops
+	dw	0,320,0,200,blank
+	dw	0ffffh
+
+
+	endp
+
+
+
+Getbackfromops	proc	near
+
+	cmp	mandead,2
+	jz	opsblock1
+	call	getback1
+	ret
+opsblock1:	call	blank
+	ret
+
+	endp
+
+
+
+
+
+Showmainops	proc	near
+
+	mov	ds,tempgraphics
+	mov	di,opsx+10
+	mov	bx,opsy+10
+	mov	al,8
+	mov	ah,0
+	call	showframe
+	mov	ds,tempgraphics
+	mov	di,opsx+59
+	mov	bx,opsy+30
+	mov	al,7
+	mov	ah,0
+	call	showframe
+	mov	ds,tempgraphics
+	mov	di,opsx+128+4
+	mov	bx,opsy+12
+	mov	al,1
+	mov	ah,0
+	call	showframe
+	ret
+
+	endp
+
+
+
+
+Showdiscops	proc	near
+
+	mov	ds,tempgraphics
+	mov	di,opsx+128+4
+	mov	bx,opsy+12
+	mov	al,1
+	mov	ah,0
+	call	showframe
+	mov	ds,tempgraphics
+	mov	di,opsx+10
+	mov	bx,opsy+10
+	mov	al,9
+	mov	ah,0
+	call	showframe
+	mov	ds,tempgraphics
+	mov	di,opsx+59
+	mov	bx,opsy+30
+	mov	al,10
+	mov	ah,0
+	call	showframe
+	mov	ds,tempgraphics
+	mov	di,opsx+176+2
+	mov	bx,opsy+60-4
+	mov	al,5
+	mov	ah,0
+	call	showframe
+	ret
+
+	endp
+
+
+
+
+Loadsavebox	proc	near
+
+	mov	dx,offset cs:icongraphics8
+	call	loadintotemp
+	ret
+
+	endp
+
+
+
+
+
+
+
+
+Loadgame	proc	near
+
+	cmp	commandtype,246
+	jz	alreadyload
+	mov	commandtype,246
+	mov	al,41
+	call	commandonly
+alreadyload:	mov	ax,mousebutton
+	cmp	ax,oldbutton
+	jz	noload
+	cmp	ax,1
+	jz	doload
+noload:	ret
+
+doload: 	mov	loadingorsave,1
+	call	showopbox
+	call	showloadops
+	mov	currentslot,0
+	call	showslots
+	call	shownames
+	mov	pointerframe,0
+	call	worktoscreenm
+	call	namestoold
+	mov	getback,0
+
+loadops:	call	delpointer
+	call	readmouse
+	call	showpointer
+	call	vsync
+	call	dumppointer
+	call	dumptextline
+
+	mov	bx,offset cs:loadlist
+	call	checkcoords
+	cmp	getback,0
+	jz	loadops
+	cmp	getback,2
+	jz	quitloaded
+	call	getridoftemp
+	;call	clearnoreels
+	mov	dx,seg madeuproomdat
+	mov	es,dx
+	mov	bx,offset es:madeuproomdat
+	call	startloading
+	call	loadroomssample
+	mov	roomloaded,1
+	mov	newlocation,255
+	call	clearsprites
+	call	initman
+	call	initrain
+	mov	textaddressx,13
+	mov	textaddressy,182
+	mov	textlen,240
+	call	startup
+	call	worktoscreen
+	mov	getback,4
+quitloaded:	ret
+
+loadlist:	dw	opsx+176,opsx+192,opsy+60,opsy+76,getbacktoops
+	dw	opsx+128,opsx+190,opsy+12,opsy+100,actualload
+	dw	opsx+2,opsx+92,opsy+4,opsy+81,selectslot
+	dw	0,320,0,200,blank
+	dw	0ffffh
+
+	endp
+
+
+
+
+
+
+
+Getbacktoops	proc	near
+
+	cmp	commandtype,201
+	jz	alreadygetops
+	mov	commandtype,201
+	mov	al,42
+	call	commandonly
+alreadygetops:	mov	ax,mousebutton
+	cmp	ax,oldbutton
+	jz	nogetbackops
+	and	ax,1
+	jnz	dogetbackops
+nogetbackops:	ret
+
+dogetbackops:	call	oldtonames
+	mov	getback,2
+	ret
+
+	endp
+
+
+
+
+
+
+
+Discops	proc	near
+
+	cmp	commandtype,249
+	jz	alreadydiscops
+	mov	commandtype,249
+	mov	al,43
+	call	commandonly
+alreadydiscops:	mov	ax,mousebutton
+	cmp	ax,oldbutton
+	jz	nodiscops
+	and	ax,1
+	jnz	dodiscops
+nodiscops:	ret
+dodiscops:	call	scanfornames
+	mov	loadingorsave,2
+	call	showopbox
+	call	showdiscops
+	mov	currentslot,0
+	call	worktoscreenm
+
+	mov	getback,0
+discopsloop:	call	delpointer
+	call	readmouse
+	call	showpointer
+	call	vsync
+	call	dumppointer
+	call	dumptextline
+	mov	bx,offset cs:discopslist
+	call	checkcoords
+	cmp	getback,0
+	jz	discopsloop
+	ret
+
+discopslist:	dw	opsx+59,opsx+114,opsy+30,opsy+76,loadgame
+	dw	opsx+10,opsx+79,opsy+10,opsy+59,savegame
+	dw	opsx+176,opsx+192,opsy+60,opsy+76,getbacktoops
+	dw	0,320,0,200,blank
+	dw	0ffffh
+
+	endp
+
+
+
+
+
+
+
+
+Savegame	proc	near
+
+	cmp	mandead,2
+	jnz	cansaveok
+	call	blank
+	ret
+
+cansaveok:	cmp	commandtype,247
+	jz	alreadysave
+	mov	commandtype,247
+	mov	al,44
+	call	commandonly
+alreadysave:	mov	ax,mousebutton
+	and	ax,1
+	jnz	dosave
+	ret
+dosave: 	mov	loadingorsave,2
+	call	showopbox
+	call	showsaveops
+	mov	currentslot,0
+	call	showslots
+	call	shownames
+	call	worktoscreenm
+
+	call	namestoold
+	mov	bufferin,0
+	mov	bufferout,0
+
+	mov	getback,0
+
+saveops:	call	delpointer
+	call	checkinput
+	call	readmouse
+	call	showpointer
+	call	vsync
+	call	dumppointer
+	call	dumptextline
+
+	mov	bx,offset cs:savelist
+	call	checkcoords
+	cmp	getback,0
+	jz	saveops
+	ret
+
+savelist:	dw	opsx+176,opsx+192,opsy+60,opsy+76,getbacktoops
+	dw	opsx+128,opsx+190,opsy+12,opsy+100,actualsave
+	dw	opsx+2,opsx+92,opsy+4,opsy+81,selectslot
+	dw	0,320,0,200,blank
+	dw	0ffffh
+
+	endp
+
+
+
+
+
+Actualsave	proc	near
+
+	cmp	commandtype,222
+	jz	alreadyactsave
+	mov	commandtype,222
+	mov	al,44
+	call	commandonly
+alreadyactsave: 	mov	ax,mousebutton
+	and	ax,1
+	jz	noactsave
+
+	mov	dx,seg savenames
+	mov	ds,dx
+	mov	si,offset savenames
+	mov	al,currentslot
+	mov	ah,0
+	mov	cx,17
+	mul	cx
+	add	si,ax
+	inc	si
+	cmp	byte ptr [si],0
+	jz	noactsave
+
+	mov	al,location
+	mov	ah,0
+	mov	cx,32
+	mul	cx
+	push	cs
+	pop	ds
+	mov	si,offset cs:roomdata
+	add	si,ax
+
+	mov	di,offset cs:madeuproomdat
+	mov	bx,di
+	push	cs
+	pop	es
+	mov	cx,16
+	rep	movsw
+
+	mov	al,roomssample
+	mov	[es:bx+13],al
+	mov	al,mapx
+	mov	[es:bx+15],al
+	mov	al,mapy
+	mov	[es:bx+16],al
+	mov	al,liftflag
+	mov	[es:bx+20],al
+	mov	al,manspath
+	mov	[es:bx+21],al
+	mov	al,facing
+	mov	[es:bx+22],al
+	mov	al,255
+	mov	[es:bx+27],al
+	call	saveposition
+	call	getridoftemp
+	call	restoreall ;reels
+	mov	textaddressx,13
+	mov	textaddressy,182
+	mov	textlen,240
+	call	redrawmainscrn
+	call	worktoscreenm
+	mov	getback,4
+noactsave:	ret
+
+	endp
+
+
+
+
+Actualload	proc	near
+
+	cmp	commandtype,221
+	jz	alreadyactload
+	mov	commandtype,221
+	mov	al,41
+	call	commandonly
+alreadyactload:	mov	ax,mousebutton
+	cmp	ax,oldbutton
+	jz	notactload
+	cmp	ax,1
+	jnz	notactload
+
+	mov	dx,seg savenames
+	mov	ds,dx
+	mov	si,offset savenames
+	mov	al,currentslot
+	mov	ah,0
+	mov	cx,17
+	mul	cx
+	add	si,ax
+	inc	si
+	cmp	byte ptr [si],0
+	jz	notactload
+	call	loadposition
+	mov	getback,1
+notactload:	ret
+
+	endp
+
+
+
+
+Selectslot2	proc	near
+
+	cmp	mousebutton,0
+	jz	noselslot2
+	mov	loadingorsave,2
+noselslot2:	call	selectslot
+	ret
+
+	endp
+
+
+
+
+
+Checkinput	proc	near
+
+	cmp	loadingorsave,3
+	jz	nokeypress
+	call	readkey
+	mov	al,currentkey
+	cmp	al,0
+	jz	nokeypress
+	cmp	al,13
+	jnz	notret
+	mov	loadingorsave,3
+	jmp	afterkey
+notret: 	cmp	al,8
+	jnz	nodel2
+	cmp	cursorpos,0
+	jz	nokeypress
+	call	getnamepos
+	dec	cursorpos
+	mov	byte ptr [es:bx],0
+	mov	byte ptr [es:bx+1],1
+	jmp	afterkey
+nodel2: 	;cmp	al,32
+	;jz	spacepress
+	;cmp	al,"A"
+	;jc	nokeypress
+	;cmp	al,"Z"+1
+	;jnc	nokeypress
+spacepress:	cmp	cursorpos,14
+	jz	nokeypress
+	call	getnamepos
+	inc	cursorpos
+	mov	al,currentkey
+	mov	[es:bx+1],al
+	mov	byte ptr [es:bx+2],0
+	mov	byte ptr [es:bx+3],1
+	jmp	afterkey
+
+nokeypress:	ret
+
+afterkey:	call	showopbox
+	call	shownames
+	call	showslots
+	call	showsaveops
+	call	worktoscreenm
+	ret
+
+	endp
+
+
+
+
+
+Getnamepos	proc	near
+
+	mov	al,currentslot
+	mov	ah,0
+	mov	cx,17
+	mul	cx
+	mov	dx,seg savenames
+	mov	es,dx
+	mov	bx,offset es:savenames
+	add	bx,ax
+	mov	al,cursorpos
+	mov	ah,0
+	add	bx,ax
+	ret
+
+	endp
+
+
+
+
+
+
+
+
+Showopbox	proc	near
+
+	mov	ds,tempgraphics
+	mov	di,opsx
+	mov	bx,opsy
+	mov	al,0
+	mov	ah,0
+	call	showframe
+	
+	mov	ds,tempgraphics
+	mov	di,opsx
+	mov	bx,opsy+55
+	mov	al,4
+	mov	ah,0
+	call	showframe
+	ret
+
+	endp
+
+
+
+
+
+
+
+
+Showloadops	proc	near
+
+	mov	ds,tempgraphics
+	mov	di,opsx+128+4
+	mov	bx,opsy+12
+	mov	al,1
+	mov	ah,0
+	call	showframe
+	mov	ds,tempgraphics
+	mov	di,opsx+176+2
+	mov	bx,opsy+60-4
+	mov	al,5
+	mov	ah,0
+	call	showframe
+
+	mov	di,opsx+104
+	mov	bx,opsy+14
+	mov	al,55
+	mov	dl,101
+	call	printmessage
+	ret
+
+	endp
+
+
+
+
+Showsaveops	proc	near
+
+	mov	ds,tempgraphics
+	mov	di,opsx+128+4
+	mov	bx,opsy+12
+	mov	al,1
+	mov	ah,0
+	call	showframe
+	mov	ds,tempgraphics
+	mov	di,opsx+176+2
+	mov	bx,opsy+60-4
+	mov	al,5
+	mov	ah,0
+	call	showframe
+
+	mov	di,opsx+104
+	mov	bx,opsy+14
+	mov	al,54
+	mov	dl,101
+	call	printmessage
+	ret
+
+	endp
+
+
+
+
+
+Selectslot	proc	near
+
+	cmp	commandtype,244
+	jz	alreadysel
+	mov	commandtype,244
+	mov	al,45
+	call	commandonly
+alreadysel:	mov	ax,mousebutton
+	cmp	ax,1
+	jnz	noselslot
+	cmp	ax,oldbutton
+	jz	noselslot
+
+	cmp	loadingorsave,3
+	jnz	notnocurs
+          	dec	loadingorsave
+notnocurs:	call	oldtonames
+	mov	ax,mousey
+	sub	ax,opsy+4
+	mov	cl,-1
+getslotnum:	inc	cl
+	sub	ax,11
+	jnc	getslotnum
+	mov	currentslot,cl
+	call	delpointer
+	call	showopbox
+	call	showslots
+	call	shownames
+	cmp	loadingorsave,1
+	jz	isloadmode
+	call	showsaveops
+	call	readmouse
+	call	showpointer
+	call	worktoscreen
+	call	delpointer
+	ret
+isloadmode:	call	showloadops
+	call	readmouse
+	call	showpointer
+	call	worktoscreen
+	call	delpointer
+	ret
+
+noselslot:	ret
+
+	endp
+
+
+
+
+
+
+
+
+
+
+Showslots	proc	near
+
+	mov	di,opsx+7
+	mov	bx,opsy+8
+	mov	al,2
+	mov	ds,tempgraphics
+	mov	ah,0
+	call	showframe
+
+	mov	di,opsx+10
+	mov	bx,opsy+11
+	mov	cl,0
+slotloop:	push	cx di bx
+
+	cmp	cl,currentslot
+	jnz	nomatchslot
+	mov	al,3
+	mov	ds,tempgraphics
+	mov	ah,0
+	call	showframe
+
+nomatchslot:	pop	bx di cx
+	add	bx,10
+	inc	cl
+	cmp	cl,7
+	jnz	slotloop
+	ret
+
+	endp
+
+
+
+
+
+Shownames	proc	near
+
+	mov	dx,seg savenames
+	mov	es,dx
+	mov	si,offset es:savenames+1
+	mov	di,opsx+21
+	mov	bx,opsy+10
+	mov	cl,0
+
+shownameloop:	push	cx di es bx si
+	mov	al,4
+	cmp	cl,currentslot
+	jnz	nomatchslot2
+
+	cmp	loadingorsave,2
+	jnz	loadmode
+
+	mov	dx,si
+	mov	cx,15
+	add	si,15
+zerostill:	dec	si
+	dec	cl
+	cmp	byte ptr [es:si],1
+	jnz	foundcharacter
+	jmp	zerostill
+foundcharacter:	mov	cursorpos,cl
+	mov	byte ptr [es:si],"/"
+	mov	byte ptr [es:si+1],0
+	push	si
+	mov	si,dx
+	mov	dl,200
+	mov	ah,0
+	call	printdirect
+	pop	si
+	mov	byte ptr [es:si],0
+	mov	byte ptr [es:si+1],1
+	jmp	afterprintname
+
+loadmode:	mov	al,0
+	mov	dl,200
+	mov	ah,0
+	mov	charshift,91
+	call	printdirect
+	mov	charshift,0
+	jmp	afterprintname
+
+nomatchslot2:	mov	dl,200
+	mov	ah,0
+	call	printdirect
+
+afterprintname:	pop	si bx es di cx
+	add	si,17
+	add	bx,10
+	inc	cl
+	cmp	cl,7
+	jnz	shownameloop
+	ret
+
+	endp
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+Dosreturn	proc	near
+
+	cmp	commandtype,250
+	jz	alreadydos
+	mov	commandtype,250
+	mov	al,46
+	call	commandonly
+alreadydos:	mov	ax,mousebutton
+	and	ax,1
+	jz	nodos
+
+quickquit2:	call	soundend
+	call	removeemm
+
+quickquit:	if	recording
+	call	saverec
+	mov	bx,rechandle
+	mov	ah,3eh
+	int	21h
+	endif
+	if	playback
+	mov	bx,rechandle
+	mov	ah,3eh
+	int	21h
+	endif
+
+	call	resetkeyboard
+	mov	bl,31h
+	mov	al,0
+	mov	ah,12h
+	int	10h
+	call	vsync
+
+	mov	ah,0
+	mov	al,3
+	int	10h
+	call	error
+	mov	ax,4c00h
+	int	21h
+	ret
+      	
+	endp
+
+
+
+Error	proc	near
+	
+	cmp	gameerror,1
+	jz	error1
+	cmp	gameerror,2
+	jz	error2
+	cmp	gameerror,3
+	jz	error3
+	cmp	gameerror,4
+	jz	error4
+	cmp	gameerror,5
+	jz	error5
+	cmp	gameerror,6
+	jz	error6
+	cmp	gameerror,7
+	jz	error7
+	cmp	gameerror,8
+	jz	error8
+	ret
+	
+error1:	mov	dx,offset cs:gameerror1
+	jmp	generalerror
+
+error2:	mov	ax,soundbaseadd
+	sub	ax,200h
+	mov	cl,4
+	shr	ax,cl
+	add	al,"0"
+	mov	bx,offset cs:error2patch
+	mov	[cs:bx+1],al
+	mov	dx,offset cs:gameerror2
+	call	generalerror
+	mov	dx,offset cs:gameinfo
+	jmp	generalerror
+
+error3:	mov	dx,offset cs:gameerror3
+	jmp	generalerror
+
+error4:	mov	dx,offset cs:gameerror4
+	jmp	generalerror
+	
+error5:	mov	dx,offset cs:gameerror5
+	jmp	generalerror
+	
+error6:	mov	al,soundint
+	add	al,"0"
+	mov	bx,offset cs:error6patch
+	mov	[cs:bx],al
+	mov	dx,offset cs:gameerror6
+       	call	generalerror
+	mov	dx,offset cs:gameinfo
+	jmp	generalerror
+
+error7:	mov	dx,offset cs:gameerror7
+       	jmp	generalerror
+
+error8:	mov	dx,offset cs:gameerror8
+       	jmp	generalerror
+
+generalerror:	mov	ah,9h
+	push	cs
+	pop	ds
+	int	21h
+	ret
+
+nodos:	ret
+	
+gameerror1:	db	13,10,13,10
+	db	"Dreamweb has an Error:",13,10
+	db	"Unable to allocate Expanded Memory."
+	db	13,10,13,10
+	db	24h
+gameerror2:	db	13,10,13,10
+	db	"Dreamweb has an Error:",13,10
+	db	"Sound Blaster card not found at address "
+error2patch:	db	"220 Hex."
+	db	13,10,13,10
+	db	24h
+gameerror3:	db	13,10,13,10
+	db	"Dreamweb has an Error:",13,10
+	db	"Out of Base Memory."
+	db	13,10,13,10
+	db	24h
+gameerror4:	db	13,10,13,10
+	db	"Dreamweb has an Error:",13,10
+	db	"Memory Deallocation problem."
+	db	13,10,13,10
+	db	24h
+gameerror5:	db	13,10,13,10
+	db	"Dreamweb has an Error:",13,10
+	db	"At least 590K of base memory is required."
+	db	13,10,13,10
+	db	24h
+gameerror6:	db	13,10,13,10
+	db	"Dreamweb has an Error:",13,10
+	db	"Sound Blaster not found on interupt "
+error6patch:	db	"0"
+	db	13,10,13,10
+	db	24h
+gameerror7:	db	13,10,13,10
+	db	"Dreamweb has an Error:",13,10
+	db	"Unable to select EMM page."
+	db	13,10,13,10
+	db	24h
+gameerror8:	db	13,10,13,10
+	db	"Dreamweb has an Error:",13,10
+	db	"File not found.c"
+error8patch:	db	13,10,13,10
+	db	24h
+
+gameinfo:	db	"Dreamweb looks for Sound Blaster information in",13,10
+	db	"the BLASTER environment variable (in your AUTOEXEC.BAT)",13,10
+	db	13,10,"If this is not found then IRQ 7, DMA channel 1 and base",13,10
+	db	"address 220h are assumed.",13,10,13,10
+
+	db	"To alter any or all of these settings you can specify them",13,10
+	db	"on the command line. For example:",13,10,13,10
+	db	"Type    DREAMWEB I7 A220 D1    to run Dreamweb on IRQ 7, DMA",13,10
+	db	"                               channel 1 and base address 220h"
+	db	13,10
+	db	"        DREAMWEB I5            to run Dreamweb on IRQ 5 and",13,10
+	db	"                               default address of 220h, DMA 1",13,10
+	db	13,10
+	db	24h
+
+endgametext1:	db	13,10,13,10
+	db	"Try the Dreamweb CD in your stereo....",13,10
+	db	13,10,13,10
+	db	24h
+
+	endp
+
+
+
+
+
+
+
+
+Namestoold	proc	near
+
+	push	cs
+	pop	ds
+	mov	si,offset cs:savenames
+	mov	di,zoomspace
+	mov	es,buffers
+	mov	cx,17*4
+	rep	movsb
+	ret
+
+	endp
+
+
+
+Oldtonames	proc	near
+
+	push	cs
+	pop	es
+	mov	di,offset cs:savenames
+	mov	si,zoomspace
+	mov	ds,buffers
+	mov	cx,17*4
+	rep	movsb
+	ret
+
+	endp
+
+
+
+
+
+Saveposition	proc	near
+
+	call	makeheader
+
+	mov	al,currentslot
+	mov	ah,0
+	push	ax
+	mov	cx,13
+	mul	cx
+	mov	dx,seg savefiles
+	mov	ds,dx
+	mov	dx,offset savefiles
+	add	dx,ax
+	call	openforsave
+
+	mov	dx,seg fileheader
+	mov	ds,dx
+	mov	dx,offset fileheader
+	mov	cx,headerlen
+	mov	bx,handle
+	mov	ah,40h
+	int	21h
+	mov	dx,seg fileheader
+	mov	es,dx
+	mov	di,offset es:filedata
+
+	pop	ax
+	mov	cx,17
+	mul	cx
+	mov	dx,seg savenames
+	mov	ds,dx
+	mov	dx,offset savenames
+	add	dx,ax
+	call	saveseg
+
+	mov	dx,seg startvars
+	mov	ds,dx
+	mov	dx,offset startvars
+	call	saveseg
+	
+	mov	ds,extras
+	mov	dx,exframedata
+	call	saveseg
+
+	mov	ds,buffers
+	mov	dx,listofchanges
+	call	saveseg
+
+	mov	dx,seg madeuproomdat
+	mov	ds,dx
+	mov	dx,offset madeuproomdat
+	call	saveseg
+
+	mov	dx,seg reelroutines
+	mov	ds,dx
+	mov	dx,offset reelroutines
+	call	saveseg
+
+fquit:	call	closefile
+	ret
+
+	endp
+
+
+
+
+
+
+Loadposition	proc	near
+
+	mov	timecount,0
+	call	clearchanges
+
+	mov	al,currentslot
+	mov	ah,0
+	push	ax
+	mov	cx,13
+	mul	cx
+	mov	dx,seg savefiles
+	mov	ds,dx
+	mov	dx,offset savefiles
+	add	dx,ax
+	if	cd
+	call	openfilefromc
+	else
+	call	openfile
+	endif
+
+	mov	ah,3fh
+	push	cs
+	pop	ds
+	mov	dx,offset cs:fileheader
+	mov	cx,headerlen
+	mov	bx,handle
+	int	21h
+	push	cs
+	pop	es
+	mov	di,offset cs:filedata
+	
+	pop	ax
+	mov	cx,17
+	mul	cx
+	mov	dx,seg savenames
+	mov	ds,dx
+	mov	dx,offset savenames
+	add	dx,ax
+	call	loadseg
+	
+	mov	dx,seg startvars
+	mov	ds,dx
+	mov	dx,offset startvars
+	call	loadseg
+
+	mov	ds,extras
+	mov	dx,exframedata
+	call	loadseg
+
+	mov	ds,buffers
+	mov	dx,listofchanges
+	call	loadseg
+
+	mov	dx,seg madeuproomdat
+	mov	ds,dx
+	mov	dx,offset madeuproomdat
+	call	loadseg
+
+	push	cs
+	pop	ds
+	mov	dx,offset cs:reelroutines
+	call	loadseg
+
+	call	closefile
+	ret
+
+	endp
+
+
+
+
+
+Loadseg 	proc	near
+
+	mov	bx,handle
+	mov	ax,[es:di]
+	add	di,2
+	push	di
+	push	es
+	mov	cx,ax
+	mov	ah,3fh
+	int	21h
+	pop	es
+	pop	di
+	ret
+
+	endp
+
+
+
+
+
+Makeheader	proc	near
+
+	mov	dx,seg fileheader
+	mov	es,dx
+	mov	di,offset es:filedata
+	mov	ax,17
+	call	storeit
+	mov	ax,lengthofvars
+	call	storeit
+	mov	ax,lengthofextra
+	call	storeit
+	mov	ax,numchanges*4
+	call	storeit
+	mov	ax,48
+	call	storeit
+	mov	ax,lenofreelrouts
+	call	storeit
+	ret
+
+	endp
+
+
+
+
+
+Storeit 	proc near
+
+	cmp	ax,0
+	jnz	isntblank
+	inc	ax
+isntblank:	stosw
+	ret
+
+	endp
+
+
+
+
+Saveseg 	proc	near
+
+	mov	cx,[es:di]
+	add	di,2
+	push	di es
+	mov	bx,handle
+	mov	ah,40h
+	int	21h
+	pop	es di 
+	ret
+
+	endp
+
+
+
+Findlen 	proc	near
+
+	dec	bx
+	add	bx,ax
+nextone:	cmp	cl,[bx]
+	jnz	foundlen
+	dec	bx
+	dec	ax
+	cmp	ax,0
+	jnz	nextone
+foundlen:	ret
+
+	endp
+
+
+
+
+
+Scanfornames	proc	near
+
+	mov	dx,seg savenames
+	mov	es,dx
+	mov	di,offset es:savenames
+	mov	dx,seg savefiles
+	mov	ds,dx
+	mov	dx,offset savefiles
+	mov	cx,7
+scanloop:	push	es ds di dx cx
+
+	if	cd
+	call	openfilefromc
+	else
+	call	openfilenocheck
+	endif
+	jc	notexist
+	pop	cx
+	inc	ch
+	push	cx
+	push	di es
+	mov	ah,3fh
+	mov	dx,seg fileheader
+	mov	ds,dx
+	mov	dx,offset fileheader
+	mov	cx,headerlen
+	mov	bx,handle
+	int	21h
+	mov	dx,seg fileheader
+	mov	es,dx
+	mov	di,offset es:filedata
+	pop	ds dx
+	call	loadseg
+	mov	bx,handle
+	call	closefile
+
+notexist:	pop	cx dx di ds es
+	add	dx,13
+	add	di,17
+	dec	cl
+	jnz	scanloop
+	mov	al,ch
+	ret
+
+	endp
+
+
+
+
+
+Decide	proc	near
+
+	call	setmode
+	call	loadpalfromiff
+	call	clearpalette	
+	mov	pointermode,0
+	mov	watchingtime,0
+	mov	pointerframe,0
+	mov	textaddressx,70
+	mov	textaddressy,182-8
+	mov	textlen,181
+	mov	manisoffscreen,1
+	call	loadsavebox
+	call	showdecisions
+	call	worktoscreen
+	call	fadescreenup
+	mov	getback,0
+
+waitdecide:	call	readmouse
+	call	showpointer
+	call	vsync
+	call	dumppointer
+	call	dumptextline
+	call	delpointer
+	mov	bx,offset cs:decidelist
+	call	checkcoords
+	cmp	getback,0
+	jz	waitdecide
+	cmp	getback,4
+	jz	hasloadedroom
+	call	getridoftemp
+hasloadedroom:	mov	textaddressx,13
+	mov	textaddressy,182
+	mov	textlen,240
+	ret
+
+decidelist:	dw	opsx+69,opsx+124,opsy+30,opsy+76,newgame
+	dw	opsx+20,opsx+87,opsy+10,opsy+59,dosreturn
+	dw	opsx+123,opsx+190,opsy+10,opsy+59,loadold
+	dw	0,320,0,200,blank
+	dw	0ffffh
+
+	endp
+
+
+
+
+
+
+Showdecisions	proc	near
+
+	call	createpanel2
+	call	showopbox
+	mov	ds,tempgraphics
+	mov	di,opsx+17
+	mov	bx,opsy+13
+	mov	al,6
+	mov	ah,0
+	call	showframe
+	call	undertextline
+	ret
+
+	endp
+
+
+
+
+
+Newgame	proc	near
+
+	cmp	commandtype,251
+	jz	alreadynewgame
+	mov	commandtype,251
+	mov	al,47
+	call	commandonly
+alreadynewgame:	mov	ax,mousebutton
+	cmp	ax,1
+	jnz	nonewgame
+	mov	getback,3
+nonewgame:	ret
+
+	endp
+
+
+
+
+
+
+	
+Loadold	proc	near
+
+	cmp	commandtype,252
+	jz	alreadyloadold
+	mov	commandtype,252
+	mov	al,48
+	call	commandonly
+alreadyloadold:	mov	ax,mousebutton
+	and	ax,1
+	jz	noloadold
+	call	doload
+	cmp	getback,4
+	jz	noloadold
+	call	showdecisions
+	call	worktoscreenm
+	mov	getback,0
+noloadold:	ret
+
+	endp
+
+
+
+
+
\ No newline at end of file