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