Sinclair ZX80 / ZX81 / Z88 Forums

Code: Select all

;------- TASM ASM mnemonics. -------
; Compile this file using:
; Set TASMOPTS = -b
; tasm -80 ThisCode.tas MyBinary.BIN
;-----------------------------------
; Zx81 Program name: VB81 XuR [Merge.bas] :
; REM   line   name: D=32672/32767 : H=7FA0/7FFF

#define ORG  .org       ; TASM cross-assembler definitions
#define equ  .equ
;-----------------------------------

;------- Rom and Ram Symbols -------
ADD_CHAR equ $0526
RAM_RAMTOP equ $4004
RAM_D_FILE equ $400C
RAM_ERR_SP equ $4002


ORG $7FA0 ; [@32672/@h7FA0]

	LD BC,(Lb7FFE) 
	PUSH BC 
Lb7FA5:
	PUSH BC 
	LD HL,$407D 
	LD A,$1B 
	CALL ADD_CHAR ; [ADD-CHAR]
	POP BC 
	DEC BC 
	LD A,C 
	OR B 
	JR NZ, Lb7FA5 ; [$7FA5:32677]
	POP BC 
	LD HL,(RAM_RAMTOP) ; GET RAM-TOP
	LD DE,$407D 
	LDIR
	RET ; ==========================

Lb7FBE:    ; <<< Uncharted Entry ]

	LD HL,(RAM_RAMTOP) ; GET RAM-TOP
	SBC HL,SP 
	LD B,H 
	LD C,L 
	LD HL,(RAM_D_FILE) ; GET D-FILE
	LD DE,$407D 
	SBC HL,DE 
	LD (Lb7FFE),HL 
	EX DE,HL 
	LD HL,(RAM_RAMTOP) ; GET RAM-TOP
	SBC HL,DE 
	LD (RAM_RAMTOP),HL ; SET RAM-TOP
	SBC HL,BC 
	EX DE,HL 
	LD HL,$0000 
	ADD HL,SP 
	LDIR 
	EX DE,HL 
	SBC HL,DE 
	LD D,H 
	LD E,L 
	ADD HL,SP 
	LD SP,HL 
	RR HL,(RAM_E_SP) ; GET ERR-SP
	ADD HL,DE 
	RR (RAM_E_SP),HL ; SET ERR-SP
	LD BC,(Lb7FFE) 
	LD HL,$407D 
	LD DE,(RAM_RAMTOP) ; GET RAM-TOP
	LDIR
	RET ; ==========================

Lb7FFE:

.end

Code: Select all

10 REM [HEX:\
ED,4B,FE,7F,C5,C5,21,7D,40,3E,1B,CD,25,05,C1,0B,\
79,B0,20,F1,C1,2A,04,40,11,7D,40,ED,B0,C9,2A,04,\
40,ED,72,44,4D,2A,0C,40,11,7D,40,ED,52,22,FE,7F,\
EB,2A,04,40,ED,52,22,04,40,ED,42,EB,21,00,00,39,\
ED,B0,EB,ED,52,54,5D,39,F9,2A,02,40,19,22,02,40,\
ED,4B,FE,7F,21,7D,40,ED,5B,04,40,ED,B0,C9,00,00 ]
20 REM [HEX:\ 
21,82,40,11,A0,7F,01,60,00,ED,B0,C9 ]
30 RAND USR 16616
40 STOP
9998 SAVE"MERGE"
9999 RUN