datel lightwriter zx spectrum
Modérateurs : Papy.G, fneck, Carl
- philoupat6283
- Messages : 81
- Inscription : 05 juil. 2020 19:31
- Localisation : toulon
datel lightwriter zx spectrum
Bonjour
j ai acquis cette extension pour zx spectrum mais il n'y à pas le stylo optique.
Quelle qu'un aurait il le schéma de l'extension.
Les sites spécialisé sur le zx ne donne que le logiciel (bon déjà pas mal).
Je voudrais refaire le stylo.
merci d'avance
j ai acquis cette extension pour zx spectrum mais il n'y à pas le stylo optique.
Quelle qu'un aurait il le schéma de l'extension.
Les sites spécialisé sur le zx ne donne que le logiciel (bon déjà pas mal).
Je voudrais refaire le stylo.
merci d'avance
- Totor le Butor
- Messages : 2237
- Inscription : 07 sept. 2011 16:14
- Localisation : Paris - Mezels
Re: datel lightwriter zx spectrum
D'après le cuivre je pense qu'il suffit qu'un simple phototransistor en série avec un petit bouton pour l'alimenter. Quand tu presses le bouton tu établis le contact et dès que tu le relâches le circuit est ouvert.
Tu connectes simplement l'émetteur du phototransistor vers le 0V à travers le bouton. Le collecteur est à relier coté résistance de 1K du circuit imprimé.
Il faut un phototransistor de type BPX25, à la rigueur un BPX43.
Le principe est de prendre un phototransistor intégrant une loupe et sensible au spectre visible de 400 (violet) à 700 Nm (rouge) et plus particulièrement à 500 Nm qui correspond au bleu clair prédominant sur un écran cathodique.
Tu connectes simplement l'émetteur du phototransistor vers le 0V à travers le bouton. Le collecteur est à relier coté résistance de 1K du circuit imprimé.
Il faut un phototransistor de type BPX25, à la rigueur un BPX43.
Le principe est de prendre un phototransistor intégrant une loupe et sensible au spectre visible de 400 (violet) à 700 Nm (rouge) et plus particulièrement à 500 Nm qui correspond au bleu clair prédominant sur un écran cathodique.
Born to bricole
[Rch] Vieux composants électroniques et circuits intégrés toute époque et vieilles cartes .
[Rch] Vieux composants électroniques et circuits intégrés toute époque et vieilles cartes .
- philoupat6283
- Messages : 81
- Inscription : 05 juil. 2020 19:31
- Localisation : toulon
Re: datel lightwriter zx spectrum
Bonjour
Merci pour le schema.
J ai trouvé sur la toile un fil pour l'amstrad avec ce schéma
Merci pour le schema.
J ai trouvé sur la toile un fil pour l'amstrad avec ce schéma
- Totor le Butor
- Messages : 2237
- Inscription : 07 sept. 2011 16:14
- Localisation : Paris - Mezels
Re: datel lightwriter zx spectrum
Le schéma AMSTRAD ne peut pas fonctionner dans ton cas car il nécessite 0v, 5V et signal alors que ta carte ne fournit que 2 signaux 0v et signal.
Born to bricole
[Rch] Vieux composants électroniques et circuits intégrés toute époque et vieilles cartes .
[Rch] Vieux composants électroniques et circuits intégrés toute époque et vieilles cartes .
Re: datel lightwriter zx spectrum
Salut,
La carte semble avoir un connecteur court, donc compatible avec le ZX81... (Boitier pour Zx81 aussi !)
Sinon, oui, un simple photo-transistor NPN est à ajouter.
Les tests sont à effectuer sur un écran à tube.
Et il y a eu deux versions, celle avec le connecteur Jack et celui avec le connecteur db9.
Fin 1984:
Fin 1985:
La carte semble avoir un connecteur court, donc compatible avec le ZX81... (Boitier pour Zx81 aussi !)
Sinon, oui, un simple photo-transistor NPN est à ajouter.
Les tests sont à effectuer sur un écran à tube.
Et il y a eu deux versions, celle avec le connecteur Jack et celui avec le connecteur db9.
Fin 1984:
Fin 1985:
Re: datel lightwriter zx spectrum
\IORQ = $80 = IN A,(128)
Info de commutation sur le bit 0 du port DATA.
(Synchro. et comptage trames logiciel)
Re: datel lightwriter zx spectrum
Le driver désassemblé (brut de fonderie et adresses rom du zx81 en commentaire!)…
Une usine à gaz qui se greffe sur l'interruption de la routine d'affichage (IX/IY)…
Une usine à gaz qui se greffe sur l'interruption de la routine d'affichage (IX/IY)…
Code : Tout sélectionner
;------- 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=59478/64334 : H=E856/FB4E
#define ORG .org ; TASM cross-assembler definitions
#define equ .equ
;-----------------------------------
;------- Rom and Ram Symbols -------
OUT_BYTE equ $031E
PF_POSTVE equ $15F0
NEXT equ $0E2E
R_IX_1 equ $0281
SET_STK equ $0D4D
CLASS_2 equ $0D6B
PF_ZERO_6 equ $164B
INT_EXP2 equ $12DE
TBL_ADDRS equ $1923
SKIP_NEXT equ $1A2E
TRAIL_SP equ $096D
BREAK_2 equ $0332
FIND_INT equ $0EA7
F_REORDER equ $0DCC
ORG $E856 ; [@59478/@hE856]
CALL LbF73A ; [63290]
CALL LbF270 ; [62064]
JP LbE87D ; [59517]
CALL LbF2B8 ; [62136]
JP LbE87D ; [59517]
LbE865:
CALL LbF464 ; [62564]
LD A,$AF
CP B
JR C, LbE873 ; [$E873:59507]
LD HL,(LbEACA)
LD (LbE896),HL
LbE873:
CALL C, LbF1E8 ; [61928]
LD (LbEACA),BC
CALL LbEAA2 ; [60066]
LbE87D:
CALL LbE8F2 ; [59634]
JR Z, LbE87D ; [$E87D:59517]
DEC DE
CALL OUT_BYTE ; [OUT-BYTE]
JR NC, LbE87D ; [$E87D:59517]
CALL LbEAA2 ; [60066]
LD A,$7F
IN A,($FE) ; Keyboard Port.
RRA
JR C, LbE865 ; [$E865:59493]
CALL LbE932 ; [59698]
RET ; ==========================
LbE896:
LD A,A
LD D,A
CALL LbE932 ; [59698]
LD A,$01
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD B,$02
CALL NEXT+22 ; []*BIOS ROM*
LD DE, LbE8F9
LD BC,$0025
CALL $203C ; [8252]
LbE8AE:
CALL LbE8F2 ; [59634]
JR Z, LbE8AE ; [$E8AE:59566]
LD DE, LbE920
LD BC,$0012
CALL $203C ; [8252]
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
LbE8C1:
CALL LbE8F2 ; [59634]
JR NZ, LbE8C1 ; [$E8C1:59585]
CALL LbF464 ; [62564]
LD A,$AF
CP B
JR NC, LbE8CF ; [$E8CF:59599]
LD B,A
LbE8CF:
LD ($5C7D),BC
CALL LbF464 ; [62564]
LD A,$AF
CP B
JR NC, LbE8DC ; [$E8DC:59612]
LD B,A
LbE8DC:
PUSH BC
CALL LbF6FE ; [63230]
CALL LbE8F2 ; [59634]
POP BC
JR Z, LbE8CF ; [$E8CF:59599]
CALL LbE932 ; [59698]
CALL LbE9C3 ; [59843]
LbE8EC:
CALL LbE8F2 ; [59634]
JR NZ, LbE8EC ; [$E8EC:59628]
RET ; ==========================
LbE8F2:
CALL R_IX_1+13 ; []*BIOS ROM*
INC DE
LD A,D
OR E
RET ; ==========================
LbE8F9:
LD D,$00
NOP
LD (DE),A
LD BC,$0013
LbE900:
LD D,B
LD (HL),D
LD H,L
LD (HL),E
LD (HL),E
JR NZ, LbE968 ; [$E968:59752]
JR NZ, LbE974 ; [$E974:59764]
LD H,L
LD A,C
JR NZ, LbE981 ; [$E981:59777]
LD L,A
JR NZ, LbE983 ; [$E983:59779]
LD (HL),H
LD H,C
LD (HL),D
LD (HL),H
JR NZ, LbE989 ; [$E989:59785]
LD L,E
LD H,L
LD (HL),H
LD H,E
LD L,B
LD L,C
LD L,(HL)
LD H,A
LD (DE),A
NOP
LbE920:
LD D,$00
LD DE,$706F
LD (DE),A
NOP
JR NZ, LbE949 ; [$E949:59721]
JR NZ, LbE94B ; [$E94B:59723]
JR NZ, LbE94D ; [$E94D:59725]
JR NZ, LbE94F ; [$E94F:59727]
JR NZ, LbE951 ; [$E951:59729]
JR NZ, LbE900 ; [$E900:59648]
ADD A,A
JP PE,$C12A ; [49450]
JP (HL)
LD A,H
SUB $03
JR NC, LbE93E ; [$E93E:59710]
XOR A
LbE93E:
LD H,A
LD A,L
SUB $03
JR NC, LbE945 ; [$E945:59717]
XOR A
LbE945:
LD L,A
LD ($5C7D),HL
LbE949:
LD DE, LbE9C1
LD A,(DE)
LbE94D:
SUB L
ADD A,$02
LD C,A
LbE951:
ADD A,L
JR NC, LbE959 ; [$E959:59737]
INC A
LbE955:
DEC C
DEC A
JR NZ, LbE955 ; [$E955:59733]
LbE959:
INC DE
LD A,(DE)
SUB H
ADD A,$02
LD B,A
ADD A,H
SUB $B0
JR C, LbE969 ; [$E969:59753]
INC A
LbE965:
DEC B
DEC A
JR NZ, LbE965 ; [$E965:59749]
LbE969:
LD DE,$0101
CALL LbF71C ; [63260]
LD HL,(LbE9C1)
LD A,H
SUB $03
JR NC, LbE978 ; [$E978:59768]
XOR A
LbE978:
LD H,A
LD A,L
ADD A,$03
JR NC, LbE980 ; [$E980:59776]
LD A,$FF
LbE980:
LD L,A
LbE981:
LD ($5C7D),HL
LD DE, LbE9C1
LD A,(DE)
LD C,A
LbE989:
LD A,L
LbE98A:
SUB C
ADD A,$02
LD C,A
LbE98E:
LD A,L
SUB C
LbE990:
JR NC, LbE997 ; [$E997:59799]
LbE992:
DEC A
LbE993:
DEC C
LbE994:
INC A
JR NZ, LbE993 ; [$E993:59795]
LbE997:
INC DE
LbE998:
LD A,(DE)
SUB H
LbE99A:
ADD A,$02
LbE99C:
LD B,A
ADD A,H
LbE99E:
SUB $B0
LbE9A0:
JR C, LbE9A7 ; [$E9A7:59815]
LbE9A2:
INC A
LbE9A3:
DEC B
LbE9A4:
DEC A
JR NZ, LbE9A3 ; [$E9A3:59811]
LbE9A7:
LD DE,$01FF
CALL LbF71C ; [63260]
LbE9AD:
LD A,$C0
AND (HL)
LD (IY+84),A
LD (IY+86),A
LbE9B8:
RES 1,(IY+87)
RES 0,(IY+87)
RET ; ==========================
LbE9C1:
LD A,A
LbE9C2:
LD D,A
LbE9C3:
JP $8000 ; [32768]
LD BC,$1116
RST 10H ; Display= A reg.
JP (HL)
LD BC,$0043
CALL $203C ; [8252]
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
RET ; ==========================
LbE9D7: ; <<< Uncharted Entry ]
LD D,$00
NOP
LD B,C
JR NZ, LbEA1F ; [$EA1F:59935]
JR NZ, LbEA22 ; [$EA22:59938]
JR NZ, LbEA25 ; [$EA25:59941]
JR NZ, LbEA28 ; [$EA28:59944]
JR NZ, LbEA2B ; [$EA2B:59947]
JR NZ, LbEA2E ; [$EA2E:59950]
JR NZ, LbEA31 ; [$EA31:59953]
JR NZ, LbEA34 ; [$EA34:59956]
JR NZ, LbEA37 ; [$EA37:59959]
JR NZ, LbEA3A ; [$EA3A:59962]
JR NZ, LbEA3D ; [$EA3D:59965]
JR NZ, LbEA40 ; [$EA40:59968]
JR NZ, LbEA43 ; [$EA43:59971]
JR NZ, LbEA46 ; [$EA46:59974]
JR NZ, LbEA49 ; [$EA49:59977]
JR NZ, LbE98A ; [$E98A:59786]
JR NZ, LbE98C ; [$E98C:59788]
JR NZ, LbE98E ; [$E98E:59790]
JR NZ, LbE990 ; [$E990:59792]
JR NZ, LbE992 ; [$E992:59794]
JR NZ, LbE994 ; [$E994:59796]
JR NZ, LbE996 ; [$E996:59798]
JR NZ, LbE998 ; [$E998:59800]
JR NZ, LbE99A ; [$E99A:59802]
JR NZ, LbE99C ; [$E99C:59804]
JR NZ, LbE99E ; [$E99E:59806]
JR NZ, LbE9A0 ; [$E9A0:59808]
JR NZ, LbE9A2 ; [$E9A2:59810]
JR NZ, LbE9A4 ; [$E9A4:59812]
JR NZ, LbE9A6 ; [$E9A6:59814]
JR NZ, LbE9A8 ; [$E9A8:59816]
JR NZ, LbEA59 ; [$EA59:59993]
LD BC,$01CD
LD D,$11
LD L,$EA
LbEA22:
LD BC,$0055
LbEA25:
CALL $203C ; [8252]
LbEA28:
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
RET ; ==========================
LbEA2E:
LD D,$00
NOP
LbEA31:
LD D,B
LD L,A
LD L,C
LbEA34:
LD L,(HL)
LD (HL),H
JR NZ, LbEAAC ; [$EAAC:60076]
LD L,A
JR NZ, LbEA9E ; [$EA9E:60062]
LD L,A
LD L,H
LbEA3D:
LD L,A
LD (HL),L
LD (HL),D
LbEA40:
JR NZ, LbEAA3 ; [$EAA3:60067]
LD L,(HL)
LbEA43:
LD H,H
JR NZ, LbEAB6 ; [$EAB6:60086]
LbEA46:
LD (HL),D
LD H,L
LD (HL),E
LbEA49:
LD (HL),E
JR NZ, LbEAAD ; [$EAAD:60077]
JR NZ, LbEAB9 ; [$EAB9:60089]
LD H,L
LD A,C
LD L,$13
LD BC,$0010
ADC A,A
ADC A,A
ADC A,A
JR NZ, LbEA6A ; [$EA6A:60010]
LD BC,$8F8F
ADC A,A
JR NZ, LbEA70 ; [$EA70:60016]
LD (BC),A
ADC A,A
ADC A,A
ADC A,A
JR NZ, LbEA76 ; [$EA76:60022]
INC BC
ADC A,A
ADC A,A
ADC A,A
LbEA6A:
JR NZ, LbEA7C ; [$EA7C:60028]
INC B
ADC A,A
ADC A,A
ADC A,A
LbEA70:
JR NZ, LbEA82 ; [$EA82:60034]
DEC B
ADC A,A
ADC A,A
ADC A,A
LbEA76:
JR NZ, LbEA88 ; [$EA88:60040]
LD B,$8F
ADC A,A
ADC A,A
LbEA7C:
JR NZ, LbEA8E ; [$EA8E:60046]
RLCA
ADC A,A
ADC A,A
ADC A,A
LbEA82:
JR NZ, LbEA94 ; [$EA94:60052]
NOP
INC DE
NOP
LbEA87:
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
SET 1,(IY+87)
SET 0,(IY+87)
LbEA94:
LD A,$C0
AND (HL)
ADD A,$3F
LD (IY+84),A
LbEA9E:
LD (IY+86),A
RET ; ==========================
LbEAA2:
CALL LbEA87 ; [60039]
LD BC,(LbEACA)
PUSH BC
LD C,$00
LbEAAC:
CALL $22E5 ; [8933]
LD BC,$00FF
LD DE,$0001
CALL LbF71C ; [63260]
POP BC
LbEAB9:
LD B,$00
CALL $22E5 ; [8933]
LD BC,$AF00
LD DE,$0100
CALL LbF71C ; [63260]
JP LbE9AD ; [59821]
LbEACA:
LD A,A
LbEACB:
LD D,A
LbEACC:
LD A,$F8
AND (HL)
LD HL, LbF231
ADD A,(HL)
LD (IY+87),A
RET ; ==========================
LbEAD9: ; <<< Uncharted Entry ]
CALL LbE932 ; [59698]
CALL LbEACC ; [60108]
LD BC,(LbEACA)
CALL $22E5 ; [8933]
LD BC,(LbE9C1)
CALL LbF6FE ; [63230]
CALL LbE932 ; [59698]
JP LbE9B8 ; [59832]
LbEAF3:
LD HL,(LbEACA)
PUSH HL
CALL LbE932 ; [59698]
POP HL
LD (LbE9C1),HL
CALL LbE932 ; [59698]
RET ; ==========================
LbEB02: ; <<< Uncharted Entry ]
CALL LbEACC ; [60108]
LD A,(LbEACA)
LD BC,(LbE9C1)
PUSH BC
SUB C
JR NC, LbEB12 ; [$EB12:60178]
CPL
INC A
LbEB12:
CALL $2D28 ; [11560]
RST 28H
.db $31 ; RST28 Arg: Unknown CMD.
.db $04 ; RST28 Arg: Multiply CMD.
JR C, LbEB54 ; [$EB54:60244]
LbEB1A:
SET 5,D
POP BC
PUSH BC
SUB B
JR NC, LbEB23 ; [$EB23:60195]
CPL
INC A
LbEB23:
CALL $2D28 ; [11560]
RST 28H
.db $31 ; RST28 Arg: Unknown CMD.
.db $04 ; RST28 Arg: Multiply CMD.
RRCA
JR Z, LbEB64 ; [$EB64:60260]
CALL $2DD5 ; [11733]
LD C,A
POP HL
LD A,L
ADD A,C
JR C, LbEB69 ; [$EB69:60265]
LD A,L
SUB C
JR C, LbEB69 ; [$EB69:60265]
LD A,H
ADD A,C
CP $B0 ; [176-"K"]
JR NC, LbEB69 ; [$EB69:60265]
LD A,H
SUB C
JR C, LbEB69 ; [$EB69:60265]
LD A,L
LD (LbEB51),A
LD A,H
LD (LbEB56),A
PUSH BC
RST 28H
.db $34 ; RST28 Arg: End CMD.
.db $40 ; RST28 Arg: Unknown CMD.
OR B
NOP
LbEB51:
LD A,A
INC (HL)
LD B,B
LbEB54:
OR B
NOP
LbEB56:
LD D,A
JR C, LbEB1A ; [$EB1A:60186]
LD A,C
CALL $2D28 ; [11560]
EXX
PUSH HL
EXX
CALL $232D ; [9005]
EXX
LbEB64:
POP HL
EXX
JP LbE9B8 ; [59832]
LbEB69:
LD A,$01
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD DE, LbEB82
LD BC,$0043
CALL $203C ; [8252]
LbEB77:
CALL LbE8F2 ; [59634]
JR Z, LbEB77 ; [$EB77:60279]
CALL LbE9C3 ; [59843]
JP LbE9B8 ; [59832]
LbEB82:
LD D,$00
NOP
LD D,D
LD B,C
LD B,H
LD C,C
LD D,L
LD D,E
JR NZ, LbEBDC ; [$EBDC:60380]
LD B,(HL)
JR NZ, LbEBD3 ; [$EBD3:60371]
LD C,C
LD D,D
LD B,E
LD C,H
LD B,L
JR NZ, LbEBE0 ; [$EBE0:60384]
LD D,E
JR NZ, LbEBEE ; [$EBEE:60398]
LD C,A
LD C,A
JR NZ, LbEBE0 ; [$EBE0:60384]
LD C,C
LD B,A
JR NZ, LbEBCF ; [$EBCF:60367]
JR NZ, LbEBC4 ; [$EBC4:60356]
JR NZ, LbEC18 ; [$EC18:60440]
LD H,L
DEC L
LD (HL),B
LD L,A
LD (HL),E
LD L,C
LD (HL),H
LD L,C
LD L,A
LD L,(HL)
JR NZ, LbEC22 ; [$EC22:60450]
LD H,L
LD L,(HL)
JR NZ, LbEC17 ; [$EC17:60439]
LD L,(HL)
LD H,H
JR NZ, LbEC2E ; [$EC2E:60462]
LD (HL),D
LD A,C
JR NZ, LbEC1F ; [$EC1F:60447]
LD H,A
LD H,C
LD L,C
LD L,(HL)
LD L,$2E
LbEBC4:
LD L,$CD
LD ($CDE9),A
CALL Z, LbEDEA ; [60906]
LD C,E
POP BC
JP (HL)
LbEBCF:
LD ($5C7D),BC
LbEBD3:
LD A,(LbEACA)
LD C,A
PUSH BC
CALL LbF6FE ; [63230]
POP BC
LbEBDC:
LD A,(LbEACB)
LD B,A
LbEBE0:
PUSH BC
CALL LbF6FE ; [63230]
POP BC
LD A,(LbE9C1)
LD C,A
PUSH BC
CALL LbF6FE ; [63230]
POP BC
LbEBEE:
LD A,(LbE9C2)
LD B,A
CALL LbF6FE ; [63230]
CALL LbE932 ; [59698]
JP LbE9B8 ; [59832]
CALL LbE932 ; [59698]
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD BC,(LbEACA)
LD ($5C7D),BC
NOP
NOP
NOP
CALL LbF6CF ; [63183]
NOP
LD ($5C7D),BC
LD E,$FF
LbEC18:
NOP
NOP
NOP
CALL LbE932 ; [59698]
RET ; ==========================
LbEC1F:
CALL LbEA1A ; [59930]
LbEC22:
CALL LbE8F2 ; [59634]
JR Z, LbEC22 ; [$EC22:60450]
LbEC27:
CALL LbF464 ; [62564]
LD A,$AF
CP B
JR NC, LbEC27 ; [$EC27:60455]
LD A,C
LD B,$05
LbEC32:
SRL A
DJNZ LbEC32 ; [$EC32:60466]
PUSH AF
LD A,(LbF230)
AND A
CALL NZ, LbE9C3 ; [59843]
POP AF
RET ; ==========================
LbEC40: ; <<< Uncharted Entry ]
CALL LbEC1F ; [60447]
CALL $229B ; [8859]
LD A,(LbF230)
AND A
CALL NZ, LbE9C3 ; [59843]
RET ; ==========================
LbEC4E:
CALL LbEC1F ; [60447]
LD C,A
LD A,$F8
AND (HL)
ADD A,C
LD (IY+83),A
CALL SET_STK ; [SET-STK]
RES 5,(IY+87)
RET ; ==========================
LbEC63: ; <<< Uncharted Entry ]
CALL LbEC1F ; [60447]
LD C,A
LD A,(IY+83)
RRCA
RRCA
RRCA
AND $F8
ADD A,C
RLCA
RLCA
RLCA
LD (IY+83),A
RES 7,(IY+87)
RET ; ==========================
LbEC7B:
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
CALL CLASS_2 ; [CLASSE-2]
LD H,$57
LD L,$7F
LD (LbE9C1),HL
LD (LbEACA),HL
CALL LbE9C3 ; [59843]
CALL LbE932 ; [59698]
RET ; ==========================
LbEC94: ; <<< Uncharted Entry ]
LD A,$01
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD B,$02
CALL NEXT+22 ; []*BIOS ROM*
LD DE, LbECC0
LD BC,$0040
CALL $203C ; [8252]
XOR A
LD (LbF230),A
LbECAB:
CALL LbEC22 ; [60450]
SRL A
CP $02 ; [2]
JP Z, LbED7A ; [60794]
CP $01 ; [1]
JR Z, LbED00 ; [$ED00:60672]
CP $03 ; [3]
JP Z, LbE9C3 ; [59843]
JR LbECAB ; [$ECAB:60587]
LbECC0:
LD D,$00
NOP
LD D,H
LD B,C
LD D,B
LD B,L
JR NZ, LbECF6 ; [$ECF6:60662]
JR NZ, LbECEB ; [$ECEB:60651]
LD D,E
LD B,C
LD D,(HL)
LD B,L
INC L
JR NZ, LbECF2 ; [$ECF2:60658]
JR NZ, LbED20 ; [$ED20:60704]
LD C,A
LD B,C
LD B,H
JR NZ, LbED48 ; [$ED48:60744]
LD (HL),D
JR NZ, LbED1D ; [$ED1D:60701]
LD B,D
LD C,A
LD D,D
LD D,H
JR NZ, LbED21 ; [$ED21:60705]
LD D,$01
NOP
JR NZ, LbED07 ; [$ED07:60679]
JR NZ, LbED09 ; [$ED09:60681]
JR NZ, LbED0B ; [$ED0B:60683]
LbECEB:
JR NZ, LbED0D ; [$ED0D:60685]
JR NZ, LbEC7E ; [$EC7E:60542]
ADC A,A
JR NZ, LbED12 ; [$ED12:60690]
LbECF2:
JR NZ, LbED14 ; [$ED14:60692]
JR NZ, LbED16 ; [$ED16:60694]
LbECF6:
ADC A,A
ADC A,A
JR NZ, LbED1A ; [$ED1A:60698]
JR NZ, LbED1C ; [$ED1C:60700]
JR NZ, LbED1E ; [$ED1E:60702]
ADC A,A
ADC A,A
LbED00:
CALL LbE932 ; [59698]
LD HL,($5C59)
LD BC,$0044
LbED09:
CALL PF_ZERO_6+15 ; []*BIOS ROM*
LD DE,($5C59)
LD HL, LbED32
LD BC,$0044
LbED16:
LDIR
POP HL
LD (LbED76),HL
LbED1C:
POP HL
LbED1D:
LD (LbED76+2),HL
LbED20:
JP INT_EXP2+4 ; []*BIOS ROM*
CALL LbE932 ; [59698]
CALL LbE9C3 ; [59843]
LD HL,(LbED76+2)
PUSH HL
LD HL,(LbED76)
PUSH HL
RET ; ==========================
LbED32:
JP (HL)
LD H,(HL)
INC H
JR Z, LbED68 ; [$ED68:60776]
JR NC, LbED47 ; [$ED47:60743]
NOP
NOP
LD A,(BC)
NOP
NOP
ADD HL,HL
LD A,($22EE)
LD D,$00
NOP
LD D,E
LD B,C
LbED47:
LD D,(HL)
LbED48:
LD B,L
JR NZ, LbED9E ; [$ED9E:60830]
LD B,E
LD D,D
LD B,L
LD B,L
LD C,(HL)
JR NZ, LbED7F ; [$ED7F:60799]
JR NZ, LbEDB9 ; [$EDB9:60857]
LD L,(HL)
LD (HL),H
LD H,L
LD (HL),D
JR NZ, LbEDC8 ; [$EDC8:60872]
LD H,C
LD L,L
LD H,L
JR NZ, LbED81 ; [$ED81:60801]
DAA
LD H,(HL)
INC H
LD A,($66F8)
INC H
XOR D
LbED67:
LD A,($C0F9)
LD SP,$3332
INC (HL)
DEC (HL)
LD C,$00
NOP
INC HL
.db $ED,$00 ; DATAS
DEC C
LbED76:
LD HL,$76F2
RET PE
LbED7A:
CALL LbE932 ; [59698]
LD HL,($5C59)
LD BC,$0038
CALL PF_ZERO_6+15 ; []*BIOS ROM*
LD DE,($5C59)
LD HL, LbED9B
LD BC,$002A
LDIR
LD HL, LbED67+1
LD BC,$000E
JP LbED16 ; [60694]
LbED9B:
XOR $22
LD D,$00
NOP
LD C,H
LD C,A
LD B,C
LD B,H
JR NZ, LbEDEC ; [$EDEC:60908]
LD D,D
LD C,A
LD C,L
JR NZ, LbEDFF ; [$EDFF:60927]
LD B,C
LD D,B
LD B,L
JR NZ, LbEDDD ; [$EDDD:60893]
JR NZ, LbEE17 ; [$EE17:60951]
LD L,(HL)
LD (HL),H
LD H,L
LD (HL),D
JR NZ, LbEE26 ; [$EE26:60966]
LD H,C
LbEDB9:
LD L,L
LD H,L
LD ($6C27),HL
INC H
LD A,($6CEF)
INC H
XOR D
LD A,($5801)
DEC E
LbEDC8:
CALL LbF347 ; [62279]
JR C, LbEDF2 ; [$EDF2:60914]
LD A,$01
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD DE, LbEE2C
LD BC,$0023
LbEDD8:
CALL $203C ; [8252]
LD DE, LbEE4E+1
LD BC,$0024
CALL $203C ; [8252]
LbEDE4:
CALL LbE8F2 ; [59634]
JR Z, LbEDE4 ; [$EDE4:60900]
CALL LbE9C3 ; [59843]
LbEDEC:
CALL LbE8F2 ; [59634]
JR NZ, LbEDEC ; [$EDEC:60908]
RET ; ==========================
LbEDF2:
CALL LbE932 ; [59698]
LD BC,$1B00
CALL LbF34F ; [62287]
LD A,(LbEE88+1)
SUB $30
ADD A,A
LD HL, LbEE96+1
ADD A,L
LD L,A
LD A,$00
ADC A,H
LD H,A
LD (HL),E
INC HL
LD (HL),D
LD HL,$4000
LD BC,$1B00
LDIR
CALL LbE932 ; [59698]
LD A,(LbEE88+1)
INC A
LD (LbEE88+1),A
LD A,$01
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD DE, LbEE73
LD BC,$0023
JR LbEDD8 ; [$EDD8:60888]
LbEE2C:
LD D,$00
NOP
LD C,C
LD C,(HL)
LD D,E
LD D,L
LD B,(HL)
LD B,(HL)
LD C,C
LD B,E
LD C,C
LD B,L
LD C,(HL)
LD D,H
JR NZ, LbEE8A ; [$EE8A:61066]
LD B,L
LD C,L
LD C,A
LD D,D
LD E,C
JR NZ, LbEE97 ; [$EE97:61079]
LD D,B
LD B,C
LD B,E
LD B,L
LD L,$20
JR NZ, LbEE6C ; [$EE6C:61036]
JR NZ, LbEE6E ; [$EE6E:61038]
LbEE4E:
JR NZ, LbEE62 ; [$EE62:61026]
LD BC,$4948
LD D,H
JR NZ, LbEE97 ; [$EE97:61079]
LD C,(HL)
LD E,C
JR NZ, LbEEA5 ; [$EEA5:61093]
LD B,L
LD E,C
JR NZ, LbEEB2 ; [$EEB2:61106]
LD C,A
JR NZ, LbEEA4 ; [$EEA4:61092]
LD C,A
LbEE62:
LD C,(HL)
LD D,H
LD C,C
LD C,(HL)
LD D,L
LD B,L
LD L,$2E
LD L,$2E
LbEE6C:
JR NZ, LbEE8E ; [$EE8E:61070]
LbEE6E:
JR NZ, LbEE90 ; [$EE90:61072]
JR NZ, LbEE84 ; [$EE84:61060]
NOP
LbEE73:
LD D,$00
NOP
LD D,E
LD B,E
LD D,D
LD B,L
LD B,L
LD C,(HL)
JR NZ, LbEED1 ; [$EED1:61137]
LD B,C
LD D,(HL)
LD B,L
LD B,H
DEC L
JR NZ, LbEED5 ; [$EED5:61141]
LD B,C
LD B,A
LD B,L
LbEE88:
JR NZ, LbEEBA ; [$EEBA:61114]
LbEE8A:
JR NZ, LbEEAC ; [$EEAC:61100]
JR NZ, LbEEAE ; [$EEAE:61102]
LbEE8E:
JR NZ, LbEEB0 ; [$EEB0:61104]
LbEE90:
JR NZ, LbEEB2 ; [$EEB2:61106]
JR NZ, LbEEB4 ; [$EEB4:61108]
JR NZ, LbEEB6 ; [$EEB6:61110]
LbEE96:
JR NZ, LbEEEE ; [$EEEE:61166]
CALL $B256 ; [45654]
NOP
NOP
NOP
NOP
NOP
NOP
LD A,$01
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD B,$02
CALL NEXT+22 ; []*BIOS ROM*
LD A,(LbEE88+1)
LbEEAE:
SUB $30
LbEEB0:
JR C, LbEEB4 ; [$EEB4:61108]
LbEEB2:
JR NZ, LbEEBD ; [$EEBD:61117]
LbEEB4:
LD DE, LbEFD7+1
LD BC,$0023
LbEEBA:
JP LbEDD8 ; [60888]
LbEEBD:
CP $01 ; [1]
JR Z, LbEF20 ; [$EF20:61216]
PUSH AF
LD DE, LbEFFB
LD BC,$0023
CALL $203C ; [8252]
POP BC
PUSH BC
LD A,$30
LbEECF:
LD DE, LbF01D+1
INC A
PUSH AF
LD (DE),A
LbEED5:
PUSH BC
LD BC,$0004
CALL $203C ; [8252]
POP BC
POP AF
DJNZ LbEECF ; [$EECF:61135]
LD DE, LbF022
LD BC,$000D
CALL $203C ; [8252]
LD A,(LbF230)
XOR A
LD (LbF230),A
POP HL
INC HL
LbEEF2:
PUSH HL
CALL LbEC22 ; [60450]
POP HL
CP $05 ; [5]
JR NC, LbEF28 ; [$EF28:61224]
CP H
JR NC, LbEEF2 ; [$EEF2:61170]
SLA A
CALL LbEF07 ; [61191]
CALL LbE932 ; [59698]
RET ; ==========================
LbEF07:
LD HL, LbEE96+1
ADD A,L
LD L,A
LD A,$00
ADC A,H
LD H,A
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
LD DE,$4000
LD BC,$1B00
LDIR
CALL LbE9C3 ; [59843]
RET ; ==========================
LbEF20:
XOR A
CALL LbEF07 ; [61191]
CALL LbE932 ; [59698]
RET ; ==========================
LbEF28:
CALL LbEF52 ; [61266]
LbEF2B:
LD A,(LbEE88+1)
SUB $30
LD B,A
XOR A
LbEF32:
PUSH AF
PUSH BC
SLA A
CALL LbEF07 ; [61191]
LD A,(LbF397)
CALL LbF37E ; [62334]
POP BC
POP AF
INC A
DJNZ LbEF32 ; [$EF32:61234]
CALL LbE8F2 ; [59634]
JR Z, LbEF2B ; [$EF2B:61227]
CALL LbE932 ; [59698]
LbEF4C:
CALL LbE8F2 ; [59634]
JR NZ, LbEF4C ; [$EF4C:61260]
RET ; ==========================
LbEF52:
LD DE, LbEF79
LD BC,$005F
CALL $203C ; [8252]
LbEF5B:
CALL LbE8F2 ; [59634]
JR Z, LbEF5B ; [$EF5B:61275]
LbEF60:
CALL LbF464 ; [62564]
LD A,$AF
CP B
JR NC, LbEF60 ; [$EF60:61280]
LD A,C
LD B,$05
LbEF6B:
SRL A
DJNZ LbEF6B ; [$EF6B:61291]
LD B,$03
LbEF71:
SLA A
DJNZ LbEF71 ; [$EF71:61297]
LD (LbF397),A
RET ; ==========================
LbEF79:
LD D,$00
NOP
INC D
LD BC,$694D
LD L,(HL)
INC D
NOP
JR NZ, LbEFA5 ; [$EFA5:61349]
JR NZ, LbEFA7 ; [$EFA7:61351]
JR NZ, LbEFA9 ; [$EFA9:61353]
JR NZ, LbEF9F ; [$EF9F:61343]
LD BC,$6553
LD L,H
LD H,L
LD H,E
LD (HL),H
JR NZ, LbEFF8 ; [$EFF8:61432]
LD H,L
LD L,H
LD H,C
LD A,C
INC D
NOP
JR NZ, LbEFBC ; [$EFBC:61372]
JR NZ, LbEFBE ; [$EFBE:61374]
JR NZ, LbEFC0 ; [$EFC0:61376]
JR NZ, LbEFB6 ; [$EFB6:61366]
LD BC,$614D
LbEFA5:
LD A,B
INC D
LbEFA7:
NOP
INC D
LbEFA9:
LD BC,$2020
JR NC, LbEFCE ; [$EFCE:61390]
INC D
NOP
JR NZ, LbEFD2 ; [$EFD2:61394]
LD SP,$1420
LD BC,$2020
LD ($1420),A
NOP
LbEFBC:
JR NZ, LbEFDE ; [$EFDE:61406]
LbEFBE:
INC SP
JR NZ, LbEFD5 ; [$EFD5:61397]
LD BC,$2020
INC (HL)
JR NZ, LbEFDB ; [$EFDB:61403]
NOP
JR NZ, LbEFEA ; [$EFEA:61418]
DEC (HL)
JR NZ, LbEFE1 ; [$EFE1:61409]
LD BC,$2020
LD (HL),$20
LbEFD2:
INC D
NOP
JR NZ, LbEFF6 ; [$EFF6:61430]
SCF
LbEFD7:
JR NZ, LbEFEF ; [$EFEF:61423]
NOP
NOP
LbEFDB:
LD D,D
LD B,L
LD D,E
LbEFDE:
LD D,H
LD C,A
LD D,D
LbEFE1:
LD B,L
JR NZ, LbF037 ; [$F037:61495]
LD B,E
LD D,D
LD B,L
LD B,L
LD C,(HL)
JR NZ, LbF018 ; [$F018:61464]
JR NZ, LbF05B ; [$F05B:61531]
LD L,A
LD L,(HL)
LbEFEF:
LD H,L
JR NZ, LbF05D ; [$F05D:61533]
LD H,L
LD (HL),B
LD (HL),H
LD L,$2E
LD L,$2E
LD L,$2E
LbEFFB:
LD D,$00
NOP
LD D,D
LD B,L
LD D,E
LD D,H
LD C,A
LD D,D
LD B,L
JR NZ, LbF05A ; [$F05A:61530]
LD B,E
LD D,D
LD B,L
LD B,L
LD C,(HL)
JR NZ, LbF03B ; [$F03B:61499]
JR NZ, LbF083 ; [$F083:61571]
LD H,L
LD L,H
LbF012:
LD H,L
LD H,E
LD (HL),H
JR NZ, LbF087 ; [$F087:61575]
LD H,C
LbF018:
LD H,A
LD H,L
JR NZ, LbF06A ; [$F06A:61546]
LD L,A
LbF01D:
LD A,($8F20)
JR NZ, LbF042 ; [$F042:61506]
LbF022:
RLA
DEC D
NOP
LD L,A
LD (HL),D
JR NZ, LbF06C ; [$F06C:61548]
LD E,C
LD B,E
LD C,H
LD B,L
JR NZ, LbEFBE ; [$EFBE:61374]
LbF02F:
LD A,C
PUSH BC
PUSH DE
CALL $2D28 ; [11560]
LbF035:
POP DE
LD A,E
LbF037:
PUSH DE
CALL $2D28 ; [11560]
LbF03B:
RST 28H
.db $03 ; RST28 Arg: Subtract CMD.
.db $31 ; RST28 Arg: Unknown CMD.
INC B
JR C, LbF012 ; [$F012:61458]
POP BC
LbF042:
LD A,B
PUSH BC
PUSH DE
CALL $2D28 ; [11560]
POP DE
LD A,D
PUSH DE
CALL $2D28 ; [11560]
RST 28H
LbF04F:
.db $03 ; RST28 Arg: Subtract CMD.
.db $31 ; RST28 Arg: Unknown CMD.
INC B
RRCA
JR Z, LbF08D ; [$F08D:61581]
POP DE
POP BC
RET ; ==========================
LbF058:
RST 28H
.db $C2 ; RST28 Arg: Store M#2 CMD.
LbF05A:
.db $01 ; RST28 Arg: Exchange CMD.
LbF05B:
POP BC
RRCA
LbF05D:
LD BC,$0FC0
AND C
LD SP,$050F
JP $E202 ; [57858]
POP HL
RET PO
EX (SP),HL
LbF06A:
JR C, LbF035 ; [$F035:61493]
LbF06C:
RST 28H
.db $C0 ; RST28 Arg: Store M#0 CMD.
.db $01 ; RST28 Arg: Exchange CMD.
INC BC
RET PO
INC B
LD BC,$0105
DEC B
LbF076:
JR Z, LbF09B ; [$F09B:61595]
AND C
LD SP,$C00F
INC B
AND E
RET PO
INC B
LD BC,$E003
LbF083:
INC B
JR C, LbF04F ; [$F04F:61519]
LbF086:
LD A,B
LbF087:
SUB D
JR NC, LbF08C ; [$F08C:61580]
LbF08A:
LD A,D
SUB B
LbF08C:
PUSH BC
LbF08D:
PUSH DE
CALL $2D28 ; [11560]
POP DE
POP BC
LD A,C
SUB E
PUSH BC
PUSH DE
JR Z, LbF0D0 ; [$F0D0:61648]
JR NC, LbF09D ; [$F09D:61597]
LbF09B:
LD A,E
SUB C
LbF09D:
CALL $2D28 ; [11560]
RST 28H
.db $05 ; RST28 Arg: Division CMD.
.db $24 ; RST28 Arg: Int CMD.
JR C, LbF076 ; [$F076:61558]
POP BC
LD A,E
CP C
JR NC, LbF0C1 ; [$F0C1:61633]
LD A,D
CP B
JR C, LbF0B8 ; [$F0B8:61624]
RST 28H
.db $A3 ; RST28 Arg: Unknown CMD.
.db $A1 ; RST28 Arg: Unknown CMD.
LD SP,$040F
LD BC,$3803
RET ; ==========================
LbF0B8:
RST 28H
.db $A3 ; RST28 Arg: Unknown CMD.
.db $A1 ; RST28 Arg: Unknown CMD.
LD SP,$040F
RRCA
JR C, LbF08A ; [$F08A:61578]
LbF0C1:
LD A,D
CP B
RET NC
RST 28H
.db $A3 ; RST28 Arg: Unknown CMD.
.db $A1 ; RST28 Arg: Unknown CMD.
LD SP,$310F
RRCA
INC B
LD BC,$3803
RET ; ==========================
LbF0D0:
CALL $2DD5 ; [11733]
RST 28H
.db $A3 ; RST28 Arg: Unknown CMD.
.db $38 ; RST28 Arg: Unknown CMD.
JR LbF0A4 ; [$F0A4:61604]
CALL LbF173 ; [61811]
CALL LbE932 ; [59698]
CALL LbEACC ; [60108]
LD BC,(LbE9C1)
PUSH BC
CALL $22E5 ; [8933]
POP BC
LD DE,(LbEACA)
CALL LbF150 ; [61776]
CALL LbF02F ; [61487]
LD BC,(LbEACA)
LD DE,(LbE896)
CALL LbF02F ; [61487]
LD BC,(LbE9C1)
LD DE,(LbE896)
CALL LbF02F ; [61487]
CALL LbF058 ; [61528]
CALL LbF06C ; [61548]
LD BC,(LbE9C1)
LD DE,(LbE896)
PUSH BC
CALL LbF086 ; [61574]
POP BC
LbF11D:
LD DE,(LbEACA)
CALL LbF086 ; [61574]
RST 28H
.db $03 ; RST28 Arg: Subtract CMD.
.db $31 ; RST28 Arg: Unknown CMD.
ADD HL,HL
JR C, LbF0F7 ; [$F0F7:61687]
PUSH DE
DEC L
RLA
JR Z, LbF139 ; [$F139:61753]
RST 28H
.db $A3 ; RST28 Arg: Unknown CMD.
.db $A1 ; RST28 Arg: Unknown CMD.
LD SP,$310F
INC B
INC B
RRCA
JR C, LbF129 ; [$F129:61737]
AND E
AND C
LD SP,$040F
INC BC
ADD HL,HL
INC B
JR C, LbF11D ; [$F11D:61725]
PUSH HL
EXX
CALL $2394 ; [9108]
EXX
POP HL
EXX
CALL LbE932 ; [59698]
RET ; ==========================
LbF150:
LD A,E
PUSH DE
PUSH BC
CALL $2D28 ; [11560]
POP BC
LD A,C
PUSH BC
CALL $2D28 ; [11560]
RST 28H
.db $03 ; RST28 Arg: Subtract CMD.
.db $38 ; RST28 Arg: Unknown CMD.
POP BC
POP DE
LD A,D
PUSH DE
PUSH BC
CALL $2D28 ; [11560]
POP BC
LD A,B
PUSH BC
CALL $2D28 ; [11560]
RST 28H
.db $03 ; RST28 Arg: Subtract CMD.
.db $38 ; RST28 Arg: Unknown CMD.
POP BC
POP DE
RET ; ==========================
LbF173:
LD HL,(LbE896)
LD BC,(LbE9C1)
AND A
SBC HL,BC
JR Z, LbF188 ; [$F188:61832]
ADD HL,BC
LD BC,(LbEACA)
AND A
SBC HL,BC
RET NZ
LbF188:
POP BC
RET ; ==========================
LbF18A: ; <<< Uncharted Entry ]
CALL LbE932 ; [59698]
LD DE,(LbEACA)
LD B,$03
LbF193:
SRL E
SRL D
DJNZ LbF193 ; [$F193:61843]
LD A,$15
SUB D
LD HL, LbF1E0+1
LD (HL),A
INC HL
LD (HL),E
LD HL,($5C59)
LD BC,$0036
CALL PF_ZERO_6+15 ; []*BIOS ROM*
LD DE,($5C59)
LD HL, LbF1C0
LD BC,$0028
LDIR
LD HL, LbED67+1
LD BC,$000E
JP LbED16 ; [60694]
LbF1C0:
XOR $22
LD D,$00
NOP
LD C,H
LD B,L
LD D,H
LD D,H
LD B,L
LD D,D
LD D,E
JR NZ, LbF1FB ; [$F1FB:61947]
JR NZ, LbF235 ; [$F235:62005]
LD L,(HL)
LD (HL),H
LD H,L
LD (HL),D
JR NZ, LbF24A ; [$F24A:62026]
LD H,L
LD A,B
LD (HL),H
LD ($6C27),HL
INC H
LD A,($22F5)
LbF1E0:
LD D,$0B
RRCA
LD ($6C3B),HL
INC H
LD A,($34C3)
ADD A,B
ADD HL,SP
SRL C
SRL C
JR NZ, LbF1FE ; [$F1FE:61950]
LD A,(LbF230)
AND A
JR Z, LbF22B ; [$F22B:61995]
LD C,A
LD A,$03
LbF1FB:
LD (LbF231),A
LbF1FE:
LD A,$01
LD (LbF249),A
LD A,C
LD (LbF230),A
SLA A
LD (LbF24E),A
CALL LbF232 ; [62002]
LD HL, LbF24F+1
ADD A,L
LD L,A
LD A,$00
ADC A,H
LD H,A
LD E,(HL)
INC HL
LD D,(HL)
EX DE,HL
LD DE, LbF221
PUSH DE
JP (HL)
LbF221:
XOR A
LD (LbF231),A
LD (LbF249),A
CALL LbF232 ; [62002]
LbF22B:
LD BC,(LbEACA)
RET ; ==========================
LbF230:
NOP
LbF231:
NOP
LbF232:
RET ; ==========================
LbF233: ; <<< Uncharted Entry ]
LD A,$01
LbF235:
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD DE, LbF248
LD BC,$0008
CALL $203C ; [8252]
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
POP AF
RET ; ==========================
LbF248:
LD (DE),A
LbF249:
NOP
LbF24A:
DEC D
LD BC,$0116
LbF24E:
LD A,(BC)
LbF24F:
JR NZ, LbF259 ; [$F259:62041]
NOP
EXX
JP PE, LbEAF3 ; [60147]
LD (BC),A
EX DE,HL
PUSH BC
LbF259:
EX DE,HL
EI
EX DE,HL
SBC A,B
RET PE
LD B,B
CALL PE, LbEC4E ; [60494]
LD H,E
CALL PE, LbEC7B ; [60539]
SUB H
CALL PE, LbEDC5 ; [60869]
AND C
XOR $D8
RET P
ADC A,D
POP AF
LbF270:
XOR A
CALL $229B ; [8859]
LD A,$07
LD ($5C8D),A
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
CALL CLASS_2 ; [CLASSE-2]
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD H,$57
LD L,$7F
LD (LbE9C1),HL
LD (LbEACA),HL
LD (LbE896),HL
XOR A
LD (LbF230),A
LD A,$30
LD (LbEE88+1),A
LD DE, LbF2CC
LD BC,$007B
CALL $203C ; [8252]
LD HL,($5CB2)
CALL LbF399 ; [62361]
LbF2AB:
CALL LbE8F2 ; [59634]
JR NZ, LbF2AB ; [$F2AB:62123]
LbF2B0:
CALL LbE8F2 ; [59634]
JR Z, LbF2B0 ; [$F2B0:62128]
CALL CLASS_2 ; [CLASSE-2]
LbF2B8:
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
CALL LbE9C3 ; [59843]
CALL LbE932 ; [59698]
CALL LbEAA2 ; [60066]
LbF2C6:
CALL LbE8F2 ; [59634]
JR NZ, LbF2C6 ; [$F2C6:62150]
RET ; ==========================
LbF2CC:
LD D,$01
LD A,(BC)
LD C,H
LD C,C
LD B,A
LD C,B
LD D,H
LD D,A
LD D,D
LD C,C
LD D,H
LD B,L
LD D,D
RLA
LD A,(BC)
NOP
LD HL,($2A2A)
LD HL,($2A2A)
LD HL,($2A2A)
LD HL,($172A)
RLCA
NOP
DJNZ LbF2F2 ; [$F2F2:62194]
JR NZ, LbF30F ; [$F30F:62223]
LD B,H
LD B,C
LD D,H
LbF2F2:
LD B,L
LD C,H
JR NZ, LbF327 ; [$F327:62247]
ADD HL,SP
JR C, LbF331 ; [$F331:62257]
JR NZ, LbF31B ; [$F31B:62235]
LD A,A
LD D,$0A
NOP
DJNZ LbF307 ; [$F307:62215]
LD C,B
LD C,C
LD D,H
JR NZ, LbF347 ; [$F347:62279]
LD C,(HL)
LbF307:
LD E,C
JR NZ, LbF355 ; [$F355:62293]
LD B,L
LD E,C
JR NZ, LbF362 ; [$F362:62306]
LD C,A
LbF30F:
JR NZ, LbF353 ; [$F353:62291]
LD B,L
LD B,A
LD C,C
LD C,(HL)
JR NZ, LbF32D ; [$F32D:62253]
INC C
NOP
DJNZ LbF321 ; [$F321:62241]
LbF31B:
LD C,B
LD C,C
LD D,H
JR NZ, LbF362 ; [$F362:62306]
LD D,D
LbF321:
LD B,L
LD B,C
LD C,E
JR NZ, LbF367 ; [$F367:62311]
LD D,H
LbF327:
JR NZ, LbF36A ; [$F36A:62314]
LD C,(HL)
LD E,C
JR NZ, LbF381 ; [$F381:62337]
LbF32D:
LD C,C
LD C,L
LD B,L
JR NZ, LbF386 ; [$F386:62342]
LD C,A
JR NZ, LbF37A ; [$F37A:62330]
LD E,B
LD C,C
LD D,H
LD L,$16
INC D
EX AF,AF'
INC D
LD BC,$4152
LD C,L
LD D,H
LD C,A
LD D,B
JR NZ, LbF383 ; [$F383:62339]
JR NZ, LbF372 ; [$F372:62322]
LD H,L
LD E,H
ADD HL,BC
AND A
SBC HL,SP
RET ; ==========================
LbF34F:
LD HL,$0000
ADD HL,SP
LbF353:
AND A
SBC HL,BC
EX DE,HL
LD HL,($5CB2)
AND A
SBC HL,SP
INC HL
EX DE,HL
LD SP,HL
LD HL,($5CB2)
AND A
SBC HL,BC
LD ($5CB2),HL
LD HL,($5C3D)
AND A
SBC HL,BC
LD ($5C3D),HL
LbF372:
LD HL,$0000
ADD HL,SP
PUSH DE
LD D,H
LD E,L
ADD HL,BC
LbF37A:
POP BC
LDIR
RET ; ==========================
LbF37E:
OR A
RET Z
LD C,$80
LbF382:
LD B,$00
LbF384:
DJNZ LbF384 ; [$F384:62340]
LbF386:
PUSH BC
LD D,A
PUSH DE
CALL LbE8F2 ; [59634]
POP DE
LD A,D
POP BC
RET NZ
DEC C
JR NZ, LbF382 ; [$F382:62338]
DEC A
JR NZ, LbF384 ; [$F384:62340]
RET ; ==========================
LbF397:
NOP
NOP
LbF399:
LD BC,$F3AA
PUSH BC
PUSH DE
PUSH HL
LD E,$FF
LD BC,$D8F0
CALL TBL_ADDRS+7 ; []*BIOS ROM*
JP SKIP_NEXT+2 ; []*BIOS ROM*
RET ; ==========================
LbF3AB:
CALL CLASS_2 ; [CLASSE-2]
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD DE, LbF3EE
LD BC,$0076
CALL $203C ; [8252]
LbF3BC:
CALL LbE8F2 ; [59634]
JR NZ, LbF3BC ; [$F3BC:62396]
LbF3C1:
CALL LbF726 ; [63270]
JR NC, LbF3C1 ; [$F3C1:62401]
AND $DF
CP $53 ; [83]
RET NZ
LbF3CB:
CALL LbE8F2 ; [59634]
JR NZ, LbF3CB ; [$F3CB:62411]
PUSH IX
LD IX,$F3DF
LD HL,(LbF3EC)
CALL TRAIL_SP+3 ; []*BIOS ROM*
POP IX
RET ; ==========================
LbF3DF: ; <<< Uncharted Entry ]
INC BC
LD B,A
LD (HL),B
LD H,L
LD L,(HL)
JR NZ, LbF406 ; [$F406:62470]
JR NZ, LbF408 ; [$F408:62472]
JR NZ, LbF40A ; [$F40A:62474]
CP B
LD (DE),A
LbF3EC:
LD D,(HL)
RET PE
LbF3EE:
LD D,$00
INC B
LD DE,$4C05
LD C,C
LD B,A
LD C,B
LD D,H
LD D,A
LD D,D
LD C,C
LD D,H
LD B,L
LD D,D
DEC L
JR NZ, LbF421 ; [$F421:62497]
LD DE,$1001
LD B,$20
LbF406:
LD D,E
LD B,C
LbF408:
LD D,(HL)
LD C,C
LbF40A:
LD C,(HL)
LD B,A
JR NZ, LbF41F ; [$F41F:62495]
LD B,$10
NOP
LD D,$0A
NOP
LD D,B
LD D,D
LD B,L
LD D,E
LD D,E
JR NZ, LbF42E ; [$F42E:62510]
LD BC,$1353
NOP
LbF41F:
JR NZ, LbF475 ; [$F475:62581]
LbF421:
LD C,A
JR NZ, LbF477 ; [$F477:62583]
LD B,C
LD D,(HL)
LD B,L
JR NZ, LbF47D ; [$F47D:62589]
LD C,B
LD B,L
JR NZ, LbF47B ; [$F47B:62587]
LD B,L
LbF42E:
LD D,A
JR NZ, LbF487 ; [$F487:62599]
LD B,L
LD D,D
LD D,E
LD C,C
LD C,A
LD C,(HL)
JR NZ, LbF488 ; [$F488:62600]
LD B,(HL)
JR NZ, LbF490 ; [$F490:62608]
LD C,B
LD B,L
JR NZ, LbF490 ; [$F490:62608]
LD D,D
LD C,A
LD B,A
LD D,D
LD B,C
LD C,L
INC L
JR NZ, LbF498 ; [$F498:62616]
LD D,D
JR NZ, LbF48D ; [$F48D:62605]
LD C,(HL)
LD E,C
JR NZ, LbF49F ; [$F49F:62623]
LD D,H
LD C,B
LD B,L
LD D,D
JR NZ, LbF4A1 ; [$F4A1:62625]
LD B,L
LD E,C
LD D,H
LD C,A
JR NZ, LbF49F ; [$F49F:62623]
LD C,A
LD C,(HL)
LD D,H
LD C,C
LD C,(HL)
LD D,L
LD B,L
LD L,$21
LD C,$FB
LD (HL),$01
INC HL
LD (HL),$20
INC HL
LD (HL),$20
LD HL,$5800
LD DE,$FC4E
LbF475:
LD BC,$0300
LDIR
LD BC,$0003
LbF47D:
LD HL,$5800
LD A,$3F
LbF482:
LD (HL),A
INC HL
DJNZ LbF482 ; [$F482:62594]
DEC C
LbF487:
JR NZ, LbF482 ; [$F482:62594]
LD C,$00
CALL LbF808 ; [63496]
LD A,L
PUSH AF
LbF490:
SRL A
SRL A
SRL A
JR Z, LbF499 ; [$F499:62617]
LbF498:
DEC A
LbF499:
SLA A
SLA A
SLA A
LbF49F:
LD IX,$FB1E
LD B,$18
LbF4A5:
AND A
PUSH AF
PUSH BC
LD BC,$0600
LbF4AB:
RRA
RR C
DJNZ LbF4AB ; [$F4AB:62635]
SRL C
SRL C
INC A
LD B,A
LD HL,$37E0
LD DE,$0800
LbF4BC:
ADD HL,DE
DJNZ LbF4BC ; [$F4BC:62652]
LD B,$03
LbF4C1:
SRL C
RRA
DJNZ LbF4C1 ; [$F4C1:62657]
AND A
RRA
RRA
RRA
RRA
RRA
LD D,A
ADD HL,DE
INC C
LD B,C
LD DE,$0020
LbF4D3:
ADD HL,DE
DJNZ LbF4D3 ; [$F4D3:62675]
POP BC
POP AF
LD (IX+0),L
INC IX
LD (IX+0),H
INC IX
INC A
DJNZ LbF4A5 ; [$F4A5:62629]
LD HL,$5800
LD DE,$FC4E
LD BC,$0003
LbF4EE:
LD A,(DE)
LD (HL),A
INC DE
INC HL
DJNZ LbF4EE ; [$F4EE:62702]
DEC C
JR NZ, LbF4EE ; [$F4EE:62702]
LD IX,$FB0E
POP AF
PUSH AF
SRL A
SRL A
SRL A
JR Z, LbF506 ; [$F506:62726]
DEC A
LbF506:
LD B,A
INC B
LD DE,$0020
LD HL,$57E0
LbF50E:
ADD HL,DE
DJNZ LbF50E ; [$F50E:62734]
LD DE,$FE4E
LD (IX+3),L
LD (IX+4),H
LD B,$60
LD C,$07
LbF51E:
LD A,(HL)
LD (DE),A
LD (HL),C
INC DE
INC HL
DJNZ LbF51E ; [$F51E:62750]
LD A,$18
LD IX,$FB1E
LD DE, LbFB4E
LbF52E:
LD BC,$0020
LD L,(IX+0)
LD H,(IX+1)
LDIR
INC IX
INC IX
DEC A
JR NZ, LbF52E ; [$F52E:62766]
LD IX,$FB0E
LD (IX+6),$00
CALL LbF659 ; [63065]
LD (IX+1),$10
LD B,$06
LbF551:
PUSH BC
LD (IX+6),$FF
CALL LbF659 ; [63065]
CALL LbF636 ; [63030]
PUSH HL
LD (IX+6),$00
CALL LbF659 ; [63065]
POP HL
LD A,$00
CP H
JR C, LbF57C ; [$F57C:62844]
LD A,(IX+1)
LD (IX+2),A
LD D,(IX+0)
SUB D
AND A
RRA
ADD A,D
LD (IX+1),A
JR LbF58E ; [$F58E:62862]
LbF57C:
LD D,(IX+1)
LD (IX+0),D
LD A,(IX+2)
SUB D
AND A
RRA
ADD A,(IX+0)
LD (IX+1),A
LbF58E:
POP BC
DJNZ LbF551 ; [$F551:62801]
LD A,(IX+0)
CP $00 ; [0]
JR Z, LbF5BF ; [$F5BF:62911]
DEC (IX+0)
LD B,$03
LD (IX+6),$F8
LbF5A1:
PUSH BC
SCF
RR (IX+6)
CALL LbF659 ; [63065]
CALL LbF636 ; [63030]
LD A,$00
CP H
POP BC
JR Z, LbF5DD ; [$F5DD:62941]
DJNZ LbF5A1 ; [$F5A1:62881]
INC (IX+0)
LD A,$21
CP A,(IX+0)
JR Z, LbF5DD ; [$F5DD:62941]
LbF5BF:
LD (IX+6),$00
LD B,$08
LbF5C5:
PUSH BC
SCF
RR (IX+6)
CALL LbF659 ; [63065]
CALL LbF636 ; [63030]
LD A,$00
CP H
POP BC
JR Z, LbF5D9 ; [$F5D9:62937]
DJNZ LbF5C5 ; [$F5C5:62917]
LbF5D9:
LD A,$05
ADD A,B
LD B,A
LbF5DD:
PUSH BC
LD DE, LbFB4E
LD IX,$FB1E
LD C,$18
LbF5E7:
LD B,$20
LD H,(IX+1)
LD L,(IX+0)
INC IX
INC IX
LbF5F3:
LD A,(DE)
LD (HL),A
INC HL
INC DE
DJNZ LbF5F3 ; [$F5F3:62963]
DEC C
JR NZ, LbF5E7 ; [$F5E7:62951]
LD IX,$FB0E
LD L,(IX+3)
LD H,(IX+4)
LD DE,$FE4E
LD B,$60
LbF60B:
LD A,(DE)
LD (HL),A
INC DE
INC HL
DJNZ LbF60B ; [$F60B:62987]
LD A,($5C48)
AND $38
SRL A
SRL A
SRL A
OUT ($FE),A ; ZX81 NMI GENERATOR
POP DE
LD A,$08
SUB D
LD C,A
LD A,(LbFB0E)
LD B,$03
LbF628:
SLA A
DJNZ LbF628 ; [$F628:63016]
ADD A,C
POP BC
ADD A,$08
LD C,A
LD A,$AF
SUB B
LD B,A
RET ; ==========================
LbF636:
LD C,$3F
LD HL,$0000
LbF63B:
LD DE,$020C
HALT
LbF63F:
DEC DE
LD A,D
OR E
JR NZ, LbF63F ; [$F63F:63039]
LD DE,$0100
LD A,$FF
LbF649:
IN B,(C)
BIT 0,B
JR Z, LbF658 ; [$F658:63064]
LD B,$0D
LbF651:
DJNZ LbF651 ; [$F651:63057]
INC HL
DEC DE
CP D
JR NZ, LbF649 ; [$F649:63049]
LbF658:
RET ; ==========================
LbF659:
LD BC,$1800
LD HL, LbFB1E
LbF65F:
LD E,(HL)
INC HL
LD D,(HL)
INC HL
PUSH BC
EX DE,HL
LD A,(LbFB0E)
CP $00 ; [0]
JR NZ, LbF66D ; [$F66D:63085]
DEC H
LbF66D:
LD B,A
LD A,(LbFB0F)
SUB B
JR NZ, LbF675 ; [$F675:63093]
INC A
LbF675:
INC HL
DJNZ LbF675 ; [$F675:63093]
LD B,A
LD A,(LbFB14)
LbF67C:
LD (HL),A
INC HL
DJNZ LbF67C ; [$F67C:63100]
EX DE,HL
POP BC
DJNZ LbF65F ; [$F65F:63071]
RET ; ==========================
LbF685:
CALL LbF636 ; [63030]
LD A,$00
CP H
JR NZ, LbF685 ; [$F685:63109]
SRL L
SRL L
SRL L
PUSH HL
POP BC
RET ; ==========================
LbF696:
LD A,C
ADD A,E
LD C,A
RET Z
LD A,$FF
CP C
RET Z
CALL LbF6A4 ; [63140]
JR Z, LbF696 ; [$F696:63126]
RET ; ==========================
LbF6A4:
PUSH BC
PUSH DE
CALL $22CE ; [8910]
CALL $2DD5 ; [11733]
AND A
POP DE
POP BC
RET ; ==========================
LbF6B0:
PUSH BC
LD E,$01
CALL LbF696 ; [63126]
LD L,C
DEC L
LD ($5C7D),BC
POP BC
PUSH BC
PUSH HL
LD E,$FF
CALL LbF696 ; [63126]
PUSH BC
CALL LbF6FE ; [63230]
POP BC
INC C
LD D,C
POP HL
LD E,L
POP BC
RET ; ==========================
LbF6CF:
CALL LbF6A4 ; [63140]
RET NZ
CALL LbF6B0 ; [63152]
LbF6D6:
PUSH DE
PUSH BC
LD C,D
INC B
LD A,$AF
CP B
JR NC, LbF6E2 ; [$F6E2:63202]
POP BC
POP DE
RET ; ==========================
LbF6E2:
CALL LbF6CF ; [63183]
POP BC
POP DE
PUSH DE
PUSH BC
LD C,D
DEC B
LD A,$FF
CP B
JR NZ, LbF6F3 ; [$F6F3:63219]
POP BC
POP DE
RET ; ==========================
LbF6F3:
CALL LbF6CF ; [63183]
POP BC
POP DE
INC D
LD A,E
CP D
JR NC, LbF6D6 ; [$F6D6:63190]
RET ; ==========================
LbF6FE:
LD A,C
SUB A,(IY+67)
JR C, LbF708 ; [$F708:63240]
LD E,$01
JR LbF70C ; [$F70C:63244]
LbF708:
CPL
INC A
LD E,$FF
LbF70C:
LD C,A
LD A,B
SUB A,(IY+68)
JR C, LbF717 ; [$F717:63255]
LD D,$01
JR LbF71B ; [$F71B:63259]
LbF717:
CPL
INC A
LD D,$FF
LbF71B:
LD B,A
LbF71C:
EXX
PUSH HL
EXX
CALL $24BA ; [9402]
EXX
POP HL
EXX
RET ; ==========================
LbF726:
CALL R_IX_1+13 ; []*BIOS ROM*
LD C,$00
JR NZ, LbF738 ; [$F738:63288]
CALL OUT_BYTE ; [OUT-BYTE]
RET NC
DEC D
LD E,A
CALL BREAK_2+1 ; []*BIOS ROM*
SCF
RET ; ==========================
LbF738:
AND A
RET ; ==========================
LbF73A:
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD A,$00
CALL $229B ; [8859]
LD A,$30
LD ($5C8D),A
CALL CLASS_2 ; [CLASSE-2]
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD DE, LbF827
LD BC,$01BA
CALL $203C ; [8252]
LbF75A:
CALL LbF726 ; [63270]
JR NC, LbF75A ; [$F75A:63322]
AND $DF
CP $50 ; [80]
CALL Z,FIND_INT+5 ; []*BIOS ROM*
CALL CLASS_2 ; [CLASSE-2]
LD A,$02
CALL PF_POSTVE+17 ; []*BIOS ROM*
LD DE, LbF9E0+1
LD BC,$00F5
CALL $203C ; [8252]
LD HL,(LbF63B+1)
CALL LbF399 ; [62361]
LbF77D:
LD BC,$0920
CALL F_REORDER+13 ; []*BIOS ROM*
LbF783:
LD C,$01
CALL LbF808 ; [63496]
LD DE, LbFAD5+1
LD BC,$0014
CALL $203C ; [8252]
CALL LbF726 ; [63270]
JR NC, LbF7C2 ; [$F7C2:63426]
LD HL,(LbF63B+1)
CP $31 ; [49-"L"]
JR NZ, LbF7A0 ; [$F7A0:63392]
INC HL
JR LbF7A8 ; [$F7A8:63400]
LbF7A0:
AND $DF
CP $51 ; [81]
JP NZ, LbF3AB ; [62379]
DEC HL
LbF7A8:
LD (LbF63B+1),HL
LD BC,$0510
CALL F_REORDER+13 ; []*BIOS ROM*
LD HL,(LbF63B+1)
CALL LbF399 ; [62361]
LD A,$40
LbF7B9:
LD B,$FF
LbF7BB:
DJNZ LbF7BB ; [$F7BB:63419]
DEC A
JR NZ, LbF7B9 ; [$F7B9:63417]
JR LbF783 ; [$F783:63363]
LbF7C2:
LD C,$01
CALL LbF808 ; [63496]
JR NZ, LbF77D ; [$F77D:63357]
CALL LbFB05 ; [64261]
PUSH HL
SRL L
SRL L
SRL L
LD A,$12
CP L
JR C, LbF7DD ; [$F7DD:63453]
LD A,$0A
CP L
JR C, LbF7DE ; [$F7DE:63454]
LbF7DD:
LD L,A
LbF7DE:
LD C,L
LD A,$18
SUB C
LD B,A
LD C,$20
CALL F_REORDER+13 ; []*BIOS ROM*
LD B,$03
LbF7EA:
LD A,$3C
RST 10H ; Display= A reg.
DJNZ LbF7EA ; [$F7EA:63466]
LD B,$03
LbF7F1:
LD A,$08
RST 10H ; Display= A reg.
DJNZ LbF7F1 ; [$F7F1:63473]
POP BC
LD A,$7C
CP C
JR NZ, LbF783 ; [$F783:63363]
LD DE, LbFAE9+1
LD BC,$001A
CALL $203C ; [8252]
JP LbF783 ; [63363]
LbF808:
LD A,$01
CP C
JR NZ, LbF813 ; [$F813:63507]
PUSH BC
CALL LbE8F2 ; [59634]
POP BC
RET NZ
LbF813:
PUSH BC
CALL LbF636 ; [63030]
LD H,L
PUSH HL
CALL LbF636 ; [63030]
POP AF
POP BC
CP L
JR NZ, LbF808 ; [$F808:63496]
LD A,$00
CP H
JR NZ, LbF808 ; [$F808:63496]
RET ; ==========================
LbF827:
LD D,$00
INC BC
LD DE,$4C05
LD C,C
LD B,A
LD C,B
LD D,H
LD D,A
LD D,D
LD C,C
LD D,H
LD B,L
LD D,D
JR NZ, LbF84A ; [$F84A:63562]
DEC B
LD B,E
LD B,C
LD C,H
LD C,C
LD B,D
LD D,D
LD B,C
LD D,H
LD C,C
LD C,A
LD C,(HL)
LD DE,$0D06
DEC C
LD D,H
LbF84A:
LD C,C
LD C,L
LD C,C
LD C,(HL)
LD B,A
JR NZ, LbF8A0 ; [$F8A0:63648]
LD B,(HL)
JR NZ, LbF8A8 ; [$F8A8:63656]
LD C,B
LD B,L
JR NZ, LbF8A5 ; [$F8A5:63653]
LD B,C
LD B,E
LD C,B
LD C,C
LD C,(HL)
LD B,L
JR NZ, LbF8A3 ; [$F8A3:63651]
LD C,A
LD B,H
LD B,L
JR NZ, LbF8B2 ; [$F8B2:63666]
LD D,L
LD D,E
LD D,H
JR NZ, LbF8AC ; [$F8AC:63660]
LD B,L
JR NZ, LbF8AE ; [$F8AE:63662]
LD B,H
LD C,D
LD D,L
LD D,E
LD D,H
LD B,L
LD B,H
JR NZ, LbF8CA ; [$F8CA:63690]
LD C,A
JR NZ, LbF8CC ; [$F8CC:63692]
LD D,L
LD C,C
LD D,H
JR NZ, LbF8D7 ; [$F8D7:63703]
LD C,A
LD D,L
LD D,D
JR NZ, LbF8D2 ; [$F8D2:63698]
LD D,A
LD C,(HL)
JR NZ, LbF8DB ; [$F8DB:63707]
LD D,(HL)
LD L,$54
LD C,B
LD B,L
JR NZ, LbF89F ; [$F89F:63647]
DEC B
LD D,C
LD DE,$2006
LD B,C
LD C,(HL)
LD B,H
JR NZ, LbF8A9 ; [$F8A9:63657]
DEC B
LD SP,$0611
JR NZ, LbF8E9 ; [$F8E9:63721]
LD B,L
LbF89F:
LD E,C
LbF8A0:
LD D,E
JR NZ, LbF8E6 ; [$F8E6:63718]
LbF8A3:
LD B,C
LD C,(HL)
LbF8A5:
JR NZ, LbF8E9 ; [$F8E9:63721]
LD B,L
LbF8A8:
JR NZ, LbF8FF ; [$F8FF:63743]
LD D,E
LD B,L
LbF8AC:
LD B,H
LD L,$0D
DEC C
LD D,H
LD C,B
LbF8B2:
LD B,L
JR NZ, LbF8C6 ; [$F8C6:63686]
DEC B
LD SP,$0611
JR NZ, LbF906 ; [$F906:63750]
LD B,L
LD E,C
JR NZ, LbF916 ; [$F916:63766]
LD C,C
LD C,H
LD C,H
JR NZ, LbF911 ; [$F911:63761]
LD C,A
LD D,(HL)
LbF8C6:
LD B,L
JR NZ, LbF91D ; [$F91D:63773]
LD C,B
LbF8CA:
LD B,L
JR NZ, LbF909 ; [$F909:63753]
INC A
INC A
JR NZ, LbF926 ; [$F926:63782]
LD D,B
LbF8D2:
LD L,$0D
DEC C
LD D,H
LD C,B
LbF8D7:
LD B,L
JR NZ, LbF8EB ; [$F8EB:63723]
DEC B
LbF8DB:
LD D,C
LD DE,$2006
LD D,A
LD C,C
LD C,H
LD C,H
JR NZ, LbF932 ; [$F932:63794]
LD C,A
LbF8E6:
LD D,(HL)
LD B,L
JR NZ, LbF93E ; [$F93E:63806]
LD C,B
LbF8EB:
LD B,L
JR NZ, LbF92A ; [$F92A:63786]
INC A
INC A
JR NZ, LbF936 ; [$F936:63798]
LD C,A
LD D,A
LD C,(HL)
LD L,$0D
DEC C
LD B,E
LD B,C
LD C,H
LD C,C
LD B,D
LD D,D
LD B,C
LbF8FF:
LD D,H
LD C,C
LD C,A
LD C,(HL)
JR NZ, LbF94D ; [$F94D:63821]
LD B,C
LbF906:
LD D,E
JR NZ, LbF95D ; [$F95D:63837]
LbF909:
LD C,A
JR NZ, LbF94E ; [$F94E:63822]
LD B,L
JR NZ, LbF953 ; [$F953:63827]
LD C,A
LD C,(HL)
LbF911:
LD B,L
JR NZ, LbF963 ; [$F963:63843]
LD C,(HL)
LD C,H
LbF916:
LD E,C
JR NZ, LbF968 ; [$F968:63848]
LD C,(HL)
LD B,E
LD B,L
JR NZ, LbF95F ; [$F95F:63839]
LD B,(HL)
LD D,H
LD B,L
LD D,D
JR NZ, LbF97B ; [$F97B:63867]
LD C,B
LD C,C
LbF926:
LD B,E
LD C,B
JR NZ, LbF96B ; [$F96B:63851]
LbF92A:
JR NZ, LbF97A ; [$F97A:63866]
LD B,L
LD D,A
JR NZ, LbF986 ; [$F986:63878]
LD B,L
LD D,D
LbF932:
LD D,E
LD C,C
LD C,A
LD C,(HL)
LbF936:
JR NZ, LbF958 ; [$F958:63832]
LD C,A
LD B,(HL)
JR NZ, LbF990 ; [$F990:63888]
LD C,B
LD B,L
LbF93E:
JR NZ, LbF98D ; [$F98D:63885]
LD B,C
LD B,E
LD C,B
LD C,C
LD C,(HL)
LD B,L
JR NZ, LbF98B ; [$F98B:63883]
LD C,A
LD B,H
LD B,L
JR NZ, LbF990 ; [$F990:63888]
LbF94D:
LD B,C
LbF94E:
LD C,(HL)
JR NZ, LbF993 ; [$F993:63891]
LD B,L
JR NZ, LbF9A7 ; [$F9A7:63911]
LD B,C
LD D,(HL)
LD B,L
LD B,H
LbF958:
LD D,H
LD C,A
JR NZ, LbF99D ; [$F99D:63901]
LD D,(HL)
LbF95D:
LD C,A
LD C,C
LbF95F:
LD B,H
JR NZ, LbF9AA ; [$F9AA:63914]
LD B,C
LbF963:
LD D,(HL)
LD C,C
LD C,(HL)
LD B,A
JR NZ, LbF9BD ; [$F9BD:63933]
LD C,A
JR NZ, LbF9BE ; [$F9BE:63934]
LD B,L
LD B,E
LD B,C
LD C,H
LD C,C
LD B,D
LD D,D
LD B,C
LD D,H
LD B,L
JR NZ, LbF998 ; [$F998:63896]
LD B,L
LD D,(HL)
LbF97A:
LD B,L
LbF97B:
LD D,D
LD E,C
JR NZ, LbF9D3 ; [$F9D3:63955]
LD C,C
LD C,L
LD B,L
JR NZ, LbF9DD ; [$F9DD:63965]
LD C,A
LD D,L
LbF986:
JR NZ, LbF9DD ; [$F9DD:63965]
LD D,E
LD B,L
JR NZ, LbF9E0 ; [$F9E0:63968]
LD C,B
LbF98D:
LD B,L
JR NZ, LbF9E0 ; [$F9E0:63968]
LbF990:
LD B,L
LD C,(HL)
LD L,$0D
DEC C
DEC C
DEC C
LD DE,$5007
LD D,D
LD B,L
LD D,E
LbF99D:
LD D,E
JR NZ, LbF9B1 ; [$F9B1:63921]
LD (BC),A
DJNZ LbF9AA ; [$F9AA:63914]
LD D,B
LD DE,$1007
LbF9A7:
NOP
JR NZ, LbF9FE ; [$F9FE:63998]
LbF9AA:
LD C,A
JR NZ, LbF9F0 ; [$F9F0:63984]
LD C,A
LD D,B
LD E,C
JR NZ, LbFA06 ; [$FA06:64006]
LD C,B
LD C,C
LD D,E
JR NZ, LbFA07 ; [$FA07:64007]
LD B,C
LD B,A
LD B,L
JR NZ, LbFA0B ; [$FA0B:64011]
LD C,(HL)
LbF9BD:
LD D,H
LbF9BE:
LD C,A
JR NZ, LbF9E1 ; [$F9E1:63969]
LD E,C
LD C,A
LD D,L
LD D,D
JR NZ, LbFA17 ; [$FA17:64023]
LD D,D
LD C,C
LD C,(HL)
LD D,H
LD B,L
LD D,D
JR NZ, LbFA1E ; [$FA1E:64030]
LD D,D
JR NZ, LbFA13 ; [$FA13:64019]
LD C,(HL)
LbF9D3:
LD E,C
JR NZ, LbFA21 ; [$FA21:64033]
LD B,L
LD E,C
JR NZ, LbFA2E ; [$FA2E:64046]
LD C,A
JR NZ, LbFA20 ; [$FA20:64032]
LbF9DD:
LD C,A
LD C,(HL)
LD D,H
LbF9E0:
LD L,$16
NOP
DEC B
LD DE,$4305
LD B,C
LD C,H
LD C,C
LD B,D
LD D,D
LD B,C
LD D,H
LD B,L
JR NZ, LbFA43 ; [$FA43:64067]
LD C,A
LD D,L
LD D,H
LD C,C
LD C,(HL)
LD B,L
LD DE,$0D06
DEC C
LD D,B
LD C,A
LD C,C
LbF9FE:
LD C,(HL)
LD D,H
JR NZ, LbFA56 ; [$FA56:64086]
LD C,B
LD B,L
JR NZ, LbFA56 ; [$FA56:64086]
LbFA06:
LD B,L
LbFA07:
LD C,(HL)
JR NZ, LbFA4B ; [$FA4B:64075]
LD D,H
LbFA0B:
JR NZ, LbFA61 ; [$FA61:64097]
LD C,B
LD B,L
JR NZ, LbFA68 ; [$FA68:64104]
LD C,B
LD C,C
LbFA13:
LD D,H
LD B,L
JR NZ, LbFA59 ; [$FA59:64089]
LbFA17:
LD C,A
LD E,B
LD L,$20
LD D,L
LD D,E
LD B,L
LbFA1E:
JR NZ, LbFA6B ; [$FA6B:64107]
LbFA20:
LD B,L
LbFA21:
LD E,C
LD D,E
JR NZ, LbFA36 ; [$FA36:64054]
DEC B
LD SP,$0611
JR NZ, LbFA6C ; [$FA6C:64108]
LD C,(HL)
LD B,H
JR NZ, LbFA40 ; [$FA40:64064]
DEC B
LD D,C
LD DE,$2006
LD D,H
LD C,A
LbFA36:
JR NZ, LbFA79 ; [$FA79:64121]
LD B,H
LD C,D
LD D,L
LD D,E
LD D,H
JR NZ, LbFA93 ; [$FA93:64147]
LD C,B
LbFA40:
LD B,L
JR NZ, LbFA63 ; [$FA63:64099]
LbFA43:
LD D,B
LD C,A
LD D,E
LD C,C
LD D,H
LD C,C
LD C,A
LD C,(HL)
LbFA4B:
JR NZ, LbFAA2 ; [$FAA2:64162]
LD C,(HL)
LD D,H
LD C,C
LD C,H
JR NZ, LbFAA7 ; [$FAA7:64167]
LD C,B
LD B,L
JR NZ, LbFA98 ; [$FA98:64152]
LD D,D
LD D,D
LbFA59:
LD C,A
LD D,A
JR NZ, LbFA99 ; [$FA99:64153]
INC A
INC A
JR NZ, LbFAAA ; [$FAAA:64170]
LbFA61:
LD D,E
JR NZ, LbFAA5 ; [$FAA5:64165]
LD C,H
LD C,A
LD C,(HL)
LD B,A
LbFA68:
LD D,E
LD C,C
LD B,H
LbFA6B:
LD B,L
LbFA6C:
LD L,$0D
DEC C
LD DE,$3105
LD DE,$2006
LD C,L
LD C,A
LD D,(HL)
LD B,L
LbFA79:
LD D,E
JR NZ, LbFAB8 ; [$FAB8:64184]
INC A
INC A
JR NZ, LbFAD5 ; [$FAD5:64213]
LD D,B
DEC C
LD DE,$5105
LD DE,$2006
LD C,L
LD C,A
LD D,(HL)
LD B,L
LD D,E
JR NZ, LbFACB ; [$FACB:64203]
INC A
INC A
JR NZ, LbFAD7 ; [$FAD7:64215]
LbFA93:
LD C,A
LD D,A
LD C,(HL)
LD D,$0F
LbFA98:
NOP
LbFA99:
LD DE,$1307
LD BC,$132A
NOP
LD DE,$1606
DEC D
NOP
LbFAA5:
LD DE,$5005
LD D,D
LD B,L
LbFAAA:
LD D,E
LD D,E
JR NZ, LbFAEF ; [$FAEF:64239]
LD C,(HL)
LD E,C
JR NZ, LbFB01 ; [$FB01:64257]
LD D,H
LD C,B
LD B,L
LD D,D
JR NZ, LbFB03 ; [$FB03:64259]
LbFAB8:
LD B,L
LD E,C
JR NZ, LbFB10 ; [$FB10:64272]
LD C,A
JR NZ, LbFB02 ; [$FB02:64258]
LD C,A
LD C,(HL)
LD D,H
LD C,C
LD C,(HL)
LD D,L
LD B,L
LD DE,$1006
NOP
LD D,$13
EX AF,AF'
LD D,H
LD C,C
LD C,L
LD C,C
LD C,(HL)
LD B,A
JR NZ, LbFB12 ; [$FB12:64274]
LbFAD5:
JR NZ, LbFAF7 ; [$FAF7:64247]
LbFAD7:
JR NZ, LbFAF9 ; [$FAF9:64249]
JR NZ, LbFAFB ; [$FAFB:64251]
JR NZ, LbFAFD ; [$FAFD:64253]
JR NZ, LbFAFF ; [$FAFF:64255]
JR NZ, LbFB01 ; [$FB01:64257]
JR NZ, LbFB03 ; [$FB03:64259]
JR NZ, LbFB05 ; [$FB05:64261]
JR NZ, LbFB07 ; [$FB07:64263]
JR NZ, LbFB09 ; [$FB09:64265]
LbFAE9:
JR NZ, LbFB27 ; [$FB27:64295]
INC A
INC A
JR NZ, LbFB01 ; [$FB01:64257]
LbFAEF:
LD BC,$4F43
LD D,D
LD D,D
LD B,L
LD B,E
LD D,H
LbFAF7:
JR NZ, LbFB4C ; [$FB4C:64332]
LbFAF9:
LD B,L
LD D,H
LbFAFB:
LD D,H
LD C,C
LbFAFD:
LD C,(HL)
LD B,A
LbFAFF:
LD (DE),A
NOP
LbFB01:
LD D,$0F
LbFB03:
LD BC,$CDC9
LD (HL),$F6
LD A,$00
CP H
JR NZ, LbFB05 ; [$FB05:64261]
RET ; ==========================
LbFB0E:
LD A,(BC)
LbFB0F:
LD A,(BC)
LbFB10:
LD A,(BC)
AND B
LbFB12:
LD E,D
NOP
LbFB14:
RET NZ
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
NOP
LbFB1E:
AND B
LD D,B
AND B
LD D,C
AND B
LD D,D
AND B
LD D,E
AND B
LbFB27:
LD D,H
AND B
LD D,L
AND B
LD D,(HL)
AND B
LD D,A
RET NZ
LD D,B
RET NZ
LD D,C
RET NZ
LD D,D
RET NZ
LD D,E
RET NZ
LD D,H
RET NZ
LD D,L
RET NZ
LD D,(HL)
RET NZ
LD D,A
RET PO
LD D,B
RET PO
LD D,C
RET PO
LD D,D
RET PO
LD D,E
RET PO
LD D,H
RET PO
LD D,L
RET PO
LD D,(HL)
LbFB4C:
RET PO
LD D,A
LbFB4E:
NOP
.end
Re: datel lightwriter zx spectrum
Bonjour philoupat6283. Sur l'Amstrad aussi il y a eu de nombreuses versions de crayon optique. A l'inverse du Thomson je crois qu'aucun ne possède de switch. Il y en a un qui se branche sur le port joystick, les autres se branchent sur le port d'expansion via un boîtier d'interface ou directement pour un modèle. Donc on doit trouver différents schémas mais celui qui se branche sur le port joystick ne possède que deux fils lui aussi.
EDIT j'ai retrouvé la page de ton schéma ici https://cpcrulez.fr/hardware_montage_8x ... ptique.htm
Toujours citer ses sources. Le schéma seul est mal interprété. Le 5v, la masse et le fil L.PEN sont en fait des broches du connecteur d'expansion. Regarde le schéma du circuit imprimé. Seuls les deux fils et le phototransistor vont dans le crayon.
Essaie juste de faire le montage proposé par Totor. Il ne faut pas beaucoup de matériel et dans tous les cas le phototransistor sera nécessaire quelque soit la solution retenue.
EDIT j'ai retrouvé la page de ton schéma ici https://cpcrulez.fr/hardware_montage_8x ... ptique.htm
Toujours citer ses sources. Le schéma seul est mal interprété. Le 5v, la masse et le fil L.PEN sont en fait des broches du connecteur d'expansion. Regarde le schéma du circuit imprimé. Seuls les deux fils et le phototransistor vont dans le crayon.
Essaie juste de faire le montage proposé par Totor. Il ne faut pas beaucoup de matériel et dans tous les cas le phototransistor sera nécessaire quelque soit la solution retenue.
Dernière modification par Zebulon le 22 avr. 2021 09:48, modifié 3 fois.
Re: datel lightwriter zx spectrum
Oui Xavier la routine du crayon optique de l'Amstrad qui se branche sur le port joystick est aussi une usine à gaz car il n'y a pas de synchro câblée entre l'éclair lumineux et la position du balayage. Les routines de ceux qui se branchent sur le port d'expansion sont plus simples car il y a deux pins dédiés au crayon optique et câblés directement sur le CRTC qui sauvegarde l'adresse ram vidéo lue dans deux registres au moment où l'éclair se produit.
Re: datel lightwriter zx spectrum
Oui, mais le Pire c'est qu'un même crayon-optique a existé… mais branché sur la prise "MIC" du Spectrum !
Le fonctionnement est le même, mais l'info été un son, scruté sur la port cassette.
Pour le Kit, je ne souvient pas du magazine… il est dit Amstrad 100%... mais il me semble que ce montage été paru dans un Micro-Systèmes…
il faut que je retrouve les photocopies du montage utilisées pour le PCB: http://zx81.ordi5.free.fr/cpc/index.htm
[Edit: Purée, recopié à la "main" avec des calques pour le typons, liste des composants à la machine à écrire… je me suis donné bien du mal à l'époque!]
Dernière modification par Xavier_ le 22 avr. 2021 10:43, modifié 2 fois.
Re: datel lightwriter zx spectrum
Joli ! Les ingénieurs étaient vraiment hyper créatifs pour pousser ces machines dans leur retranchements. Aujourd'hui c'est plus drôle il y a des circuits contrôleurs pour tout faire (sauf le café quoique).
Re: datel lightwriter zx spectrum
Le Mageco /VTR est de loin plus compliqué !
Qui donne directement les coordonnées du pointeur… sans driver de 5K.
Qui donne directement les coordonnées du pointeur… sans driver de 5K.
Re: datel lightwriter zx spectrum
Salut,
Les projets Kicad pour la carte originale et un version plus complète sont disponibles ici : http://abandon.pcbs.free.fr/datel.htm
Les valeurs des résistances seront à vérifier selon les couleurs réelles de la carte…
Nota: Sur le second projet, le stylo est inclus en partie sécable à la carte. Les joysticks activent le clavier en touches numériques, et les deux boutons sur le crayon sont paramétrables selon deux groupes de trois caractères sur les jumpers de la carte. Le fonctionnement de la détection des trames de rafraîchissement écran reste le même que la carte originale. Une armature/glissière en "U" reste à souder sur la partie mobile du crayon (phototransistor). Des encoches pour un ressort sont prévues pour éloigner la tête du crayon du corps.
Les projets Kicad pour la carte originale et un version plus complète sont disponibles ici : http://abandon.pcbs.free.fr/datel.htm
Les valeurs des résistances seront à vérifier selon les couleurs réelles de la carte…
Nota: Sur le second projet, le stylo est inclus en partie sécable à la carte. Les joysticks activent le clavier en touches numériques, et les deux boutons sur le crayon sont paramétrables selon deux groupes de trois caractères sur les jumpers de la carte. Le fonctionnement de la détection des trames de rafraîchissement écran reste le même que la carte originale. Une armature/glissière en "U" reste à souder sur la partie mobile du crayon (phototransistor). Des encoches pour un ressort sont prévues pour éloigner la tête du crayon du corps.
Re: datel lightwriter zx spectrum
Légère modif des encoches du ressort qui pouvait toucher l'actionneur du bouton poussoir du touché d'écran…
PCB mis à jour.
La glissière en U peut se façonner en acier doux (boite de conserve) et soudée au corps du crayon.
PCB mis à jour.
La glissière en U peut se façonner en acier doux (boite de conserve) et soudée au corps du crayon.
- Papy.G
- Modérateur
- Messages : 3054
- Inscription : 10 juin 2014 13:40
- Localisation : Haute-Garonne/Gers
Re: datel lightwriter zx spectrum
Nombre de processeurs vidéos géraient matériellement les pointeurs optiques à cette époque, mais combien de machines ont été câblées pour en profiter?
Soyez exigeants, ne vous contentez pas de ce que l'on vous vend.
Demandez-en plus, ou faites-le vous-même.
Demandez-en plus, ou faites-le vous-même.