How to use the QuickLoad ROM on EO ?

Discussions about Sinclair ZX80 and ZX81 Hardware
Post Reply
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

How to use the QuickLoad ROM on EO ?

Post by XavSnap »

Hi,
I download the QuickLoad rom, but i can't use it on EO…

http://www.zx81stuff.org.uk/zx81/hardwa ... oadSaveROM

(save the ROM link to the "QuickLoadSaveROM.html" and rename it to '.rom' or '.bin")

RAND USR 8192
RAND USR 8200
RAND USR 8500 (QuickLoad) : Black screen … no strips while loading, no break key available.
RAND USR 8600 (QuickSave)
RAND USR 8700

ASM codes:

Code: Select all

;------- TASM ASM mnemonics. -------
; Compile this file using:
; Set TASMOPTS = -b
; tasm -80 ThisCode.tas MyBinary.BIN
;-----------------------------------
; Zx81 Program name: VB81 XuR [] : Empty Basic Segment.
; REM   line   name: D=8192/10239 : H=2000/27FF

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

;------- Rom and Ram Symbols -------
FAST equ $0F23
RAM_STKEND equ $401C
RAM_E_LINE equ $4014
RAM_D_FILE equ $400C
SLOW equ $0F2B
SET_FAST equ $02E7
REPORT_D equ $03A6
INITIAL equ $03E5
SLOW_FAST equ $0207


ORG $2000 ; [@8192/@h2000]
Lb2000:
	CALL FAST ; [FAST]
	JP Lb2014 ; [8212]
	NOP 
	NOP 
Lb2008:
	CALL FAST ; [FAST]
	JP Lb206A ; [8298]
Lb200E:
	CALL FAST ; [FAST]
	JP Lb20B5 ; [8373]
Lb2014:
	LD DE,$0000 
Lb2017:
	DEC DE 
	LD A,D 
	OR E 
	JR NZ, Lb2017 ; [$2017:8215]
	LD L,$04 
	LD E,$1E 
Lb2020:
	CALL Lb2040 ; [8256]
	LD E,$FE 
	DEC L 
	JR NZ, Lb2020 ; [$2020:8224]
	LD HL,$4009 
Lb202B:
	LD E,(HL) 
	CALL Lb2040 ; [8256]
	INC HL 
	EX DE,HL 
	LD HL,(RAM_STKEND) ; GET STKEND
	OR A 
	SBC HL,DE 
	EX DE,HL 
	JR NZ, Lb202B ; [$202B:8235]
	LD E,$FF 
	CALL Lb2040 ; [8256]
	RET ; ==========================

Lb2040:
	SCF 
Lb2041:
	RL E 
	RET Z 
	JR NC, Lb205B ; [$205B:8283]
	OUT ($FF),A ; Zx81 Display/Tape port
	LD B,$35 
Lb204A:
	DJNZ Lb204A ; [$204A:8266]
	IN A,($FE) ; Keyboard Port.
	LD B,$2F 
Lb2050:
	DJNZ Lb2050 ; [$2050:8272]
	IN A,($FE) ; Keyboard Port.
	LD B,$01 
Lb2056:
	DJNZ Lb2056 ; [$2056:8278]
	AND A 
	JR Lb2041 ; [$2041:8257]
Lb205B:
	OUT ($FF),A ; Zx81 Display/Tape port
	LD B,$15 
Lb205F:
	DJNZ Lb205F ; [$205F:8287]
	IN A,($FE) ; Keyboard Port.
	LD B,$15 
Lb2065:
	DJNZ Lb2065 ; [$2065:8293]
	AND A 
	JR Lb2041 ; [$2041:8257]
Lb206A:
	LD B,$00 
Lb206C:
	LD L,$00 
Lb206E:
	LD C,$00 
Lb2070:
	IN A,($FE) ; Keyboard Port.
	CP $3E ; [62-"Y"]
	RET Z 
	CP $BF ; [191]
	JR Z, Lb2070 ; [$2070:8304]
Lb2079:
	INC C 
	JR Z, Lb206A ; [$206A:8298]
	IN A,($FE) ; Keyboard Port.
	CP $3F ; [63-"Z"]
	JR Z, Lb2079 ; [$2079:8313]
	LD A,$0E 
	CP C 
	INC L 
	JR C, Lb206E ; [$206E:8302]
	LD A,$08 
	CP L 
	JR NZ, Lb206A ; [$206A:8298]
	INC B 
	LD A,$03 
	CP B 
	JR NZ, Lb206C ; [$206C:8300]
	LD HL,$4009 
Lb2096:
	LD E,$01 
Lb2098:
	LD C,$00 
Lb209A:
	IN A,($FE) ; Keyboard Port.
	OUT ($FF),A ; Zx81 Display/Tape port
	CP $BF ; [191]
	JR Z, Lb209A ; [$209A:8346]
Lb20A2:
	INC C 
	RET Z 
	IN A,($FE) ; Keyboard Port.
	CP $3F ; [63-"Z"]
	JR Z, Lb20A2 ; [$20A2:8354]
	LD A,$0E 
	CP C 
	RL E 
	JR NC, Lb2098 ; [$2098:8344]
	LD (HL),E 
	INC HL 
	JR Lb2096 ; [$2096:8342]
Lb20B5:
	LD B,$00 
Lb20B7:
	LD L,$00 
Lb20B9:
	LD C,$00 
Lb20BB:
	IN A,($FE) ; Keyboard Port.
	CP $3E ; [62-"Y"]
	RET Z 
	CP $BF ; [191]
	JR Z, Lb20BB ; [$20BB:8379]
Lb20C4:
	INC C 
	JR Z, Lb20B5 ; [$20B5:8373]
	IN A,($FE) ; Keyboard Port.
	CP $3F ; [63-"Z"]
	JR Z, Lb20C4 ; [$20C4:8388]
	LD A,$0E 
	CP C 
	INC L 
	JR C, Lb20B9 ; [$20B9:8377]
	LD A,$08 
	CP L 
	JR NZ, Lb20B5 ; [$20B5:8373]
	INC B 
	LD A,$03 
	CP B 
	JR NZ, Lb20B7 ; [$20B7:8375]
	LD B,$75 
	LD D,$1C 
	LD HL,$4009 
Lb20E5:
	LD E,$01 
Lb20E7:
	LD C,$00 
Lb20E9:
	IN A,($FE) ; Keyboard Port.
	OUT ($FF),A ; Zx81 Display/Tape port
	CP $BF ; [191]
	JR Z, Lb20E9 ; [$20E9:8425]
Lb20F1:
	INC C 
	JR Z, Lb211E ; [$211E:8478]
	IN A,($FE) ; Keyboard Port.
	CP $3F ; [63-"Z"]
	JR Z, Lb20F1 ; [$20F1:8433]
	LD A,$0E 
	CP C 
	RL E 
	JR NC, Lb20E7 ; [$20E7:8423]
	DEC B 
	JR NZ, Lb210F ; [$210F:8463]
	INC B 
	LD A,E 
	CP (HL) 
	JR Z, Lb210F ; [$210F:8463]
	LD A,$3F 
	CP D 
	JR Z, Lb211E ; [$211E:8478]
	INC D 
Lb210F:
	LD A,(RAM_E_LINE+1) ; GET E-LINE
	CP H 
	JR NZ, Lb211B ; [$211B:8475]
	LD A,(RAM_E_LINE) ; GET E-LINE
	CP L 
	JR Z, Lb211E ; [$211E:8478]
Lb211B:
	INC HL 
	JR Lb20E5 ; [$20E5:8421]
Lb211E:
	LD HL,(RAM_D_FILE) ; GET D-FILE
	INC HL 
	LD (HL),D 
	RET ; ==========================

Lb2124:    ; <<< Uncharted Entry ]

	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	CALL Lb2008 ; [8200]
	CALL SLOW ; [SLOW]
	RET ; ==========================

Lb213B:    ; <<< Uncharted Entry ]

	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	CALL Lb2000 ; []*CHR ROM*
	CALL SLOW ; [SLOW]
	RET ; ==========================

Lb219F:    ; <<< Uncharted Entry ]

	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	CALL Lb200E ; [8206]
	CALL SLOW ; [SLOW]
	RET ; ==========================

Lb2203:    ; <<< Uncharted Entry ]

	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	CALL SET_FAST ; [SET-FAST]
	LD A,$FF 
	OUT ($7F),A ; User port.
	LD D,$D0 
	LD E,$00 
	LD HL,$4082 
Lb230E:
	EXX 
	LD B,$02 
	EXX 
Lb2312:
	CALL Lb2317 ; [8983]
	JR Lb2312 ; [$2312:8978]
Lb2317:
	LD C,$01 
Lb2319:
	LD B,$00 
Lb231B:
	LD A,$7F 
	IN A,($FE) ; Keyboard Port.
	OUT ($FF),A ; Zx81 Display/Tape port
	RRA 
	JP NC, Lb237C ; [9084]
	RLA 
	RLA 
	JR C, Lb2355 ; [$2355:9045]
	DJNZ Lb231B ; [$231B:8987]
	POP AF 
	CP D 
Lb232D:
	JP NC, Lb2384 ; [9092]
	LD H,D 
	LD L,E 
Lb2332:
	CALL Lb2317 ; [8983]
	BIT 7,D 
	LD A,C 
	JR NZ, Lb233D ; [$233D:9021]
	CP (HL) 
	JR NZ, Lb230E ; [$230E:8974]
Lb233D:
	INC HL 
	RLA 
	JR NC, Lb2332 ; [$2332:9010]
	INC (IY+21) 
	LD HL,$4009 
	EXX 
	LD B,$00 
	EXX 
Lb234B:
	LD D,B 
	CALL Lb2317 ; [8983]
	LD (HL),C 
	CALL Lb238B ; [9099]
	JR Lb234B ; [$234B:9035]
Lb2355:
	PUSH DE 
	LD E,$94 
Lb2358:
	LD B,$1A 
Lb235A:
	DEC E 
	IN A,($FE) ; Keyboard Port.
	RLA 
	BIT 7,E 
	LD A,E 
	JR C, Lb2358 ; [$2358:9048]
	DJNZ Lb235A ; [$235A:9050]
	POP DE 
	JR NZ, Lb236C ; [$236C:9068]
	CP $56 ; [86]
	JR NC, Lb2319 ; [$2319:8985]
Lb236C:
	EXX 
	CCF 
	LD A,B 
	RLA 
	OUT ($7F),A ; User port.
	XOR $02 
	RRA 
	LD B,A 
	EXX 
	RL C 
	JR NC, Lb2319 ; [$2319:8985]
	RET ; ==========================

Lb237C:
	LD A,D 
	AND A 
	JP Z, Lb232D ; [9005]
	JP REPORT_D ; [REPORT-D]
Lb2384:
	LD A,$FF 
	OUT ($7F),A ; User port.
	JP INITIAL ; [INITIAL]
Lb238B:
	INC HL 
	EX DE,HL 
	LD HL,(RAM_E_LINE) ; GET E-LINE
	SCF 
	SBC HL,DE 
	EX DE,HL 
	RET NC 
	POP HL 
	LD A,$FF 
	OUT ($7F),A ; User port.
	JP SLOW_FAST ; [SLOW/FAST]
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	CALL SET_FAST ; [SET-FAST]
	LD A,$FF 
	OUT ($7F),A ; User port.
	INC A 
	CALL Lb2424 ; [9252]
	LD HL,$4009 
Lb240E:
	LD E,(HL) 
	LD B,$08 
Lb2411:
	RL E 
	RLA 
	OUT ($7F),A ; User port.
	XOR $02 
	RRA 
	DJNZ Lb2411 ; [$2411:9233]
	CALL Lb2424 ; [9252]
	CALL Lb242F ; [9263]
	JP Lb240E ; [9230]
Lb2424:
	PUSH BC 
	LD BC,$0400 
Lb2428:
	DJNZ Lb2428 ; [$2428:9256]
	DEC C 
Lb242B:
	JR NZ, Lb2428 ; [$2428:9256]
	POP BC 
	RET ; ==========================

Lb242F:
	INC HL 
	EX DE,HL 
	LD HL,(RAM_E_LINE) ; GET E-LINE
	SCF 
	SBC HL,DE 
	EX DE,HL 
	RET NC 
	POP HL 
	LD A,$FF 
	OUT ($7F),A ; User port.
	JP SLOW_FAST ; [SLOW/FAST]
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	CALL SET_FAST ; [SET-FAST]
	LD A,$FF 
	OUT ($7F),A ; User port.
	INC A 
	CALL Lb2424 ; [9252]
	LD HL,$4009 
	LD E,(HL) 
	LD B,$08 
Lb2511:
	RL E 
	RLA 
	OUT ($7F),A ; User port.
	XOR $02 
	RRA 
	CALL Lb2424 ; [9252]
	DJNZ Lb2511 ; [$2511:9489]
	CALL Lb242B ; [9259]
	JP Lb240E ; [9230]
	PUSH BC 
	LD B,$10 
Lb2527:
	DJNZ Lb2527 ; [$2527:9511]
	POP BC 
	RET ; ==========================

Lb252B:    ; <<< Uncharted Entry ]

	INC HL 
	EX DE,HL 
	LD HL,(RAM_E_LINE) ; GET E-LINE
	SCF 
	SBC HL,DE 
	EX DE,HL 
	RET NC 
	POP HL 
	LD A,$FF 
	OUT ($7F),A ; User port.
	JP SLOW_FAST ; [SLOW/FAST]
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	CALL SET_FAST ; [SET-FAST]
	LD A,$FF 
	OUT ($7F),A ; User port.
	INC A 
	CALL Lb2627 ; [9767]
	LD HL,$4009 
Lb260E:
	LD E,(HL) 
	LD B,$08 
Lb2611:
	RL E 
	RLA 
	OUT ($7F),A ; User port.
	XOR $02 
	RRA 
	CALL Lb2627 ; [9767]
	DJNZ Lb2611 ; [$2611:9745]
	CALL Lb262E ; [9774]
	CALL Lb2627 ; [9767]
	JP Lb260E ; [9742]
Lb2627:
	PUSH BC 
	LD B,$00 
Lb262A:
	DJNZ Lb262A ; [$262A:9770]
	POP BC 
	RET ; ==========================

Lb262E:
	INC HL 
	EX DE,HL 
	LD HL,(RAM_E_LINE) ; GET E-LINE
	SCF 
	SBC HL,DE 
	EX DE,HL 
	RET NC 
	POP HL 
	LD A,$FF 
	OUT ($7F),A ; User port.
	JP SLOW_FAST ; [SLOW/FAST]
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	CALL SET_FAST ; [SET-FAST]
	LD A,$FF 
	OUT ($7F),A ; User port.
	INC A 
	CALL Lb2737 ; [10039]
	LD HL,$4009 
Lb271E:
	LD E,(HL) 
	LD B,$08 
Lb2721:
	RL E 
	RLA 
	OUT ($7F),A ; User port.
	XOR $02 
	RRA 
	CALL Lb2737 ; [10039]
	DJNZ Lb2721 ; [$2721:10017]
	CALL Lb273E ; [10046]
	CALL Lb2737 ; [10039]
	JP Lb271E ; [10014]
Lb2737:
	PUSH BC 
	LD B,$20 
Lb273A:
	DJNZ Lb273A ; [$273A:10042]
	POP BC 
	RET ; ==========================

Lb273E:
	INC HL 
	EX DE,HL 
	LD HL,(RAM_E_LINE) ; GET E-LINE
	SCF 
	SBC HL,DE 
	EX DE,HL 
	RET NC 
	POP HL 
	LD A,$FF 
	OUT ($7F),A ; User port.
	JP SLOW_FAST ; [SLOW/FAST]
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
	RST 38H 
.end

Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Post Reply