;
;Thinkertoy to North Star file transfer program 
; based on original XFER8-5 program.
;
;DEBUGGED AND ENHANCED BY ROD HART WA3MEZ
;	AUGUST 14, 1980
;
; To use, bring up the Thinkertoy CP/M as a 56k system
; and the North Star as a 20k system. Be sure to boot
; up the North Star first and use DDT or GO8INCH to bring up
; the Thinkertoy system.         
;
;	Modified 19 July 81 GLH
;

; THESE EQUATES ARE USED BY THIS PROGRAM

VT	EQU	1Ah		;VIO-C clear screen 
BDOS	EQU	5
REBDOS  EQU     2500H           ;20k North Star vector
SEBDOS	EQU	00005H		; 56k Thinkertoy vector      
DEFFCB EQU	5CH		;DEFAULT FILE CONTROL BLOCK
OPEN	EQU	15
SETBUF	EQU	26
DELETE	EQU	19
MAKE	EQU	22
READ	EQU	20
WRITE	EQU	21
CLOSE	EQU	16
PRINT	EQU	9
FCBCR	EQU	DEFFCB+32
WBOOT	EQU	0



	ORG	100H
	LXI	D,MSG5
	MVI	C,PRINT
	CALL	BDOS
START	LXI	H,0
	DAD	SP
	SHLD	OLDSP
	LXI	SP,STACK
	MVI	B,0FH
	LXI	D,5CH
	LXI 	H,NFCB
LOOP1	LÄAX	D
	MOV	M,A
	INX	H
	INX     D
	DCR	B
	JNZ	LOOP1
	LXI	D,DEFFCB
	MVI	C,OPEN
	CALL	SEBDOS
Š	CPI	255
	JNZ	OPNOK
	CALL	ERROR
	DB	'File not found on the 8" disc.$'        
OPNOK	LXI	D,MSG1
	MVI	C,PRINT
	CALL	BDOS
	XRA	A
	STA	FCBCR
	STA	NFCB+32
	LXI	D,NFCB
	MVI	C,DELETE
	CALL	REBDOS
	LXI	D,NFCB
	MVI	C,MAKE
	CALL	REBDOS
	JP	OKOPN
	CALL	ERROR
	DB	'Cannot creat the file on the 5" disc.$'        
OKOPN	LXI	D,MSG2
	MVI	C,PRINT
	CALL	BDOS
	CALL	READIT
	CPI	0
	JZ	HERE
	CPI	1
	JZ	DONE
	CALL	ERROR
	DB	'There was an error in the call to BDOS.$'
HERE	LXI	D,MSG3
	MVI	C,PRINT
	CALL	BDOS
	CALL	WRITIT
	CPI	2
	JNZ	OKOPN
	CALL	ERROR
	DB	' Disc is full: cannot write any more to it.$'  
READIT	PUSH	B
	PUSH	D
	PUSH	H
	MVI	C,SETBUF
	LXI	D,0080H
	CALL	SEBDOS
	MVI	C,READ
	LXI	D,DEFFCB
	CALL	SEBDOS
	POP	H
	POP	D
	POP	B
	RET
WRITIT	PUSH	B
	PUSH	D
	PUSH	H
	MVI	C,SETBUF
	LXI	D,0080H
Š	CALL	REBDOS
	MVI	C,WRITE
	LXI	D,NFCB
	CALL	REBDOS
	POP	H
	POP	D
	POP	B
	RET
DONE	LXI	D,MSG4
	MVI	C,PRINT
	CALL	BDOS
	MVI	C,CLOSE
	LXI	D,NFCB
	CALL	REBDOS
	JMP	WBOOT
ERROR	POP	D
	MVI	C,PRINT
	CALL	BDOS
	JMP	WBOOT
NFCB	DS	35
OLDSP	DS	2
MSG1	DB	'The file opening was successful.'
	DB	0AH,0DH,'$'
MSG2	DB	'Reading a sector from the 8" disc'     
	DB	0AH,0DH,'$'
MSG3	DB	'Writing a sector to the 5" disc.'   
	DB	0AH,0DH,'$'
MSG4	DB	'File are being closed.'
	DB	0AH,0DH,'$'
MSG5	DB	VT,0AH,0DH,'56k Thinkertoy to 48k North Star CP/M Transfer Proggram:'
	DB	0AH,0DH,'$'
STACK	EQU	$+100
	END