Recherche image de l'extension BASIC du SHARPENTIER n. 6

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2142
Enregistré le : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par cgh »

Je recherche si une personne aurait en sa possession une image (WAV,BIN,TEXTE,...) de l'extension BASIC publiee dans le SHARPENTIER 6. J'ai la flemme de tout retaper. D'autant plus que c'est un exercice que j'ai fait il y a 26 ans, mais je n'ai plus mes sauvegardes.

Merci.
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque
Avatar du membre
babaorhum
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 454
Enregistré le : 13 janv. 2013 19:44
Localisation : Marseille-est

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par babaorhum »

Hello CGH,

J'ai essayé l'OCR la semaine dernière mais ca ne donne rien de bien (Acrobat pro).
Du coup j'ai commencé la saisie en Texte le WE dernier ... ca ne va pas être immédiat ... un peu comme le tricot devant la télé ... :lol:
Si tu trouves une version toute saisie avant que j'ai fini, fais nous signe ...
BaBaoRhum
HP J728,200LX,1000CX,75C,71B,48GX,42s,41CX,32E,32Sii,28S,22s,21,16C,11C
Sharp PC- E500,1600,1500,1350,1261,1245
Casio FX-502P,602p,850P,3900P,4000P
TI-74,92,95 ; Canon X-07 ; TANDY EC-4026 ; Wp34S
cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2142
Enregistré le : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par cgh »

Tu en es ou ? A quelle adresse. On peut se partager le boulot. Tu m'enverras ta partie, et je ferai la concatenation, le dump, le desassemblage et meme le wav.
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque
Avatar du membre
babaorhum
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 454
Enregistré le : 13 janv. 2013 19:44
Localisation : Marseille-est

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par babaorhum »

pas bien loin ... hop !

Code : Tout sélectionner

3800: 00 00 00 00 00 00 00 00 20 44 55 4D 20 4D 4F 4B
3810 20 48 45 58 20 48 56 41 4C 20 4C 4F 57 20 48 49
3820 47 00 20 53 54 52 20 43 41 50 20 49 4E 53 20 24
3830 20 20 20 41 50 4F 20 26 00 00 00 00 20 44 49 53
3840 20 53 45 54 20 52 53 54 20 41 53 4B 20 49 4E 56
3850 20 54 42 4C 00 00 01 F0 64 02 F0 A1 03 F0 63 04
3860 F0 67 05 F0 65 06 F0 66 11 F0 68 12 F0 62 13 F0
3870 61 09 F0 81 0A F0 83 0B F0 86 0C F0 60 0D F0 A3
3880 0E F0 56 15 F1 8A 26 45 33 46 40 40 16 00 00 00

38C0 00 00 00 00 00 C2 2C 06 CC 65 FD 88 8E 0E C6 DE
38D0 3D D0 00 3A BE 39 10 FD A8 C2 2C 26 DE 30 D0 00
38E0 2D 64 BE 39 10 FD 0A FD 98 FD 5A CC 67 56 66 65
38F0 51 A4 86 99 06 24 06 99 0A 25 1E FD 18 CA 67 FD
3900 1A E2 C6 C2 0D 06 CC 67 FD 6A 9E 27 C6 E2 E0 8B
3910 CC 65 05 B7 FF 8B 06 05 A6 81 0C 8B 03 FD 6A 9A
3920 44 47 26 81 02 9E 0A 44 44 05 DD F9 FD CA 9E 1E
3930 DE 37 D0 00 34 AE 78 73 48 7B 4A 61 47 41 44 4E
3940 B0 99 07 BE EC AE BE EC FA BE E4 2C B7 18 8B 18
3950 B7 20 9B 0B B7 0C 8B 0A A5 78 73 2A B5 FF DF 99
3960 03 88 07 A5 7B 7A 99 30 E2 E0 00 00 00 00 FD 98
3970 CC 65 58 00 5A 00 B5 FF 07 89 03 FD 1A E2 B5 98
BaBaoRhum
HP J728,200LX,1000CX,75C,71B,48GX,42s,41CX,32E,32Sii,28S,22s,21,16C,11C
Sharp PC- E500,1600,1500,1350,1261,1245
Casio FX-502P,602p,850P,3900P,4000P
TI-74,92,95 ; Canon X-07 ; TANDY EC-4026 ; Wp34S
cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2142
Enregistré le : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par cgh »

:-D :-D Pas mal ! Mais il y a des erreurs de frappes :-( Je repasse par derriere ;) En plus, le scan n'arrange rien !

Code : Tout sélectionner

3800	00 00 00 00 00 00 00 00   

3808	" DUM MOK HEX HVAL LOW HIG\00"

3822	" STR CAP INS $   APO &\00\00\00\00"

383C	" DIS SET RST ASK INV TBL\00\00"

3856	  I/F1:	\F064 
3859	  I/F2:	\F0A1 
385C	  I/F3:	\F063 
385F	  I/F4:	\F067 
3862	  I/F5:	\F065 
3865	  I/F6:	\F066 
3868	III/F1:	\F068 
386B	III/F2:	\F062 
386E	III/F3:	\F061 
3871	 II/F1:	\F081 
3874	 II/F2:	\F083 
3877	 II/F3:	\F086 
387A	 II/F4:	\F060 
387D	 II/F5:	\F0A3 
3880	 II/F6:	\F056 
3883	III/F5:	CALL &E3F@@ <<<<- Ce doit etre CALL &E33F@ &E33F est l'adresse du OFF.
388C	III/F6:	
388D	00 00 00 00 00 00 00 00   00 00 00 00 00 00 00 00 
389D	00 00 00 00 00 00 00 00   00 00 00 00 00 00 00 00 
38AD	00 00 00 00 00 00 00 00   00 00 00 00 00 00 00 00 
38BD	00 00 00 00 00 00 00 00   

38C5	C2 2C 06          LJNE	2C,38CE
38C8	CC 65             LDS	(65)
38CA	FD 88             PUSH	BC
38CC	8E 0E             JR	38DC
38CE	C6                BKW
38CF	DE 3D             EVAL	390E
38D1	D0 00 3A          INTG	00,390E
38D4	BE 39 10          CALL	3910
38D7	FD A8             PUSH	HL
38D9	C2 2C 26          LJNE	2C,3902
38DC	DE 30             EVAL	390E
38DE	D0 00 2D          INTG	00,390E
38E1	64                INC	HL
38E2	BE 39 10          CALL	3910
38E5	FD 0A             POP	BC
38E7	FD 98             PUSH	DE
38E9	FD 5A             LD	DE,BC
38EB	CC 67             LDS	(67)
38ED	56                DEC	DE
38EE	66                DEC	HL
38EF	65                LDI	(HL)
38F0	51                STI	(DE)
38F1	A4                LDA	H
38F2	86                CPA	B
38F3	99 06             JR	NZ,38EF
38F5	24                LDA	L
38F6	06                CPA	C
38F7	99 0A             JR	NZ,38EF
38F9	25                LDA	(HL)
38FA	1E                STA	(DE)
38FB	FD 18             LD	BC,DE
38FD	CA 67             STS	(67)
38FF	FD 1A             POP	DE
3901	E2                RST
3902	C6                BKW
3903	C2 0D 06          LJNE	0D,390C
3906	CC 67             LDS	(67)
3908	FD 6A             LD	HL,BC
390A	9E 27             JR	38E5
390C	C6                BKW
390D	E2                RST
390E	E0                ERRH
390F	8B CC             JR	Z,39DD
3911	65                LDI	(HL)
3912	05                LDA	(BC)
3913	B7 FF             CPA	FF
3915	8B 06             JR	Z,391D
3917	05                LDA	(BC)
3918	A6                CPA	H
3919	81 0C             JR	NC,3927
391B	8B 03             JR	Z,3920
391D	FD 6A             LD	HL,BC
391F	9A                RET
3920	44                INC	BC
3921	47                LDD	(BC)
3922	26                CPA	L
3923	81 02             JR	NC,3927
3925	9E 0A             JR	391D
3927	44                INC	BC
3928	44                INC	BC
3929	05                LDA	(BC)
392A	DD                INC	A
392B	F9                RCF
392C	FD CA             ADD	BC
392E	9E 1E             JR	3912
3930	DE 37             EVAL	3969
3932	D0 00 34          INTG	00,3969
3935	AE 78 73          STA	(7873)
3938	48 7B             LD	B,7B
393A	4A 61             LD	C,61
393C	47                LDD	(BC)
393D	41                STI	(BC)
393E	44                INC	BC
393F	4E B0             CP	C,B0
3941	99 07             JR	NZ,393C
3943	BE EC AE          CALL	ECAE
3946	BE EC FA          CALL	ECFA
3949	BE E4 2C          CALL	INKEY
394C	B7 18             CPA	18
394E	8B 18             JR	Z,3968
3950	B7 20             CPA	20
3952	9B 0B             JR	Z,3949
3954	B7 0C             CPA	0C
3956	8B 0A             JR	Z,3962
3958	A5 78 73          LDA	(7873)
395B	2A                STA	L
395C	B5 FF             LDA	FF
395E	DF                DEC	A
395F	99 03             JR	NZ,395E
3961	88 07             DJC	395C
3963	A5 7B 7A          LDA	(7B7A)
3966	99 30             JR	NZ,3938
3968	E2                RST
3969	E0                ERRH
396A	00                SBC	C
396B	00                SBC	C
396C	00                SBC	C
396D	00                SBC	C
396E	FD 98             PUSH	DE
3970	CC 65             LDS	(65)
3972	58 00             LD	D,00
3974	5A 00             LD	E,00
3976	B5 FF             LDA	FF
3978	07                CPA	(BC)
3979	89 03             JR	NZ,397E
397B	FD 1A             POP	DE
397D	E2                RST
397E	B5 98             LDA	98
De memoire, il y a quand meme quelques bugs dans le programme lui-meme.
Modifié en dernier par cgh le 21 mai 2013 23:56, modifié 2 fois.
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque
Avatar du membre
babaorhum
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 454
Enregistré le : 13 janv. 2013 19:44
Localisation : Marseille-est

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par babaorhum »

cgh a écrit ::-D :-D Pas mal ! Mais il y a des erreurs de frappes :-( Je repasse par derriere ;) En plus, le scan n'arrange rien !
Xcuses pour les fotes ... J'ai vérifié en phase de saisie mais c'est vrai que le scan est parfois flou, il y a des octets "au mieux" on va dire ... entre un 6, un 8 et un 0 , pas facile ...
je continuerai dès que possible (cette semaine !).
Merci pour la décompilation version TGV, tu me diras comment tu fais à l'occasion ?
BaBaoRhum
HP J728,200LX,1000CX,75C,71B,48GX,42s,41CX,32E,32Sii,28S,22s,21,16C,11C
Sharp PC- E500,1600,1500,1350,1261,1245
Casio FX-502P,602p,850P,3900P,4000P
TI-74,92,95 ; Canon X-07 ; TANDY EC-4026 ; Wp34S
cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2142
Enregistré le : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par cgh »

babaorhum a écrit :
cgh a écrit ::-D :-D Pas mal ! Mais il y a des erreurs de frappes :-( Je repasse par derriere ;) En plus, le scan n'arrange rien !
Xcuses pour les fotes ... J'ai vérifié en phase de saisie mais c'est vrai que le scan est parfois flou, il y a des octets "au mieux" on va dire ... entre un 6, un 8 et un 0 , pas facile ...
je continuerai dès que possible (cette semaine !).
Merci pour la décompilation version TGV, tu me diras comment tu fais à l'occasion ?
J'utilise mes lhTools. En plus, je suis en train de tester une nouvelle version 0.3. J'ai vu des erreurs de desassemblage.
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque
cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2142
Enregistré le : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par cgh »

Bon, j'ai tape la table des mots-cles:

Code : Tout sélectionner

4000 55 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
4010 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
4020 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
4030 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
4040 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
4050 00 00 00 00 D6 44 45 4C 45 54 45 f0 80 38 c5 d4
4060 44 49 53 50 f0 81 39 30 d5 52 45 4e 55 4d f0 82
4070 39 6e d3 53 45 54 f0 83 39 af d5 52 45 53 45 54
4080 f0 86 39 cd d3 41 53 4b f0 60 39 f0 d5 49 4e 53
4090 54 52 f0 61 3a 22 d5 42 45 47 49 4e f0 87 3a 84
40a0 b5 53 54 41 43 4b f0 8a 3a 9a d5 55 4e 54 49 4c
40b0 f0 8b 3a a0 b4 43 41 50 24 f0 62 3a e6 d3 49 46
40c0 23 f0 8c 3b 06 b5 45 4c 53 45 23 f0 8d 3b 16 b6
40d0 45 4e 44 49 46 23 f0 8e 3b 20 b4 54 45 53 54 f0
40e0 a0 3b 21 d4 54 52 55 45 f0 52 3b 2a d5 46 41 4c
40f0 53 45 f0 53 3b 36 d3 45 52 4e f0 54 3b 56 d3 45
4100 52 4c f0 55 3b 5c d3 4c 4f 57 f0 65 3b 67 d4 48
4110 49 47 48 f0 66 3b 67 d4 4d 4f 4b 45 f0 a1 3b 74
4120 d4 48 45 58 24 f0 63 3b ce d5 44 55 4d 50 24 f0
4130 64 3b e8 d4 48 56 41 4c f0 67 3c 10 d7 53 54 52
4150 49 4e 47 24 f0 68 3c 22 d6 52 45 53 55 4d 45 f0
4160 a2 3c 64 b3 49 4e 56 f0 a3 3c 73 d4 50 41 47 45
4170 f0 90 3c 84 d6 4e 55 4d 54 42 4c f0 56 3d 56 d4
4180 4d 4f 56 45 f0 a4 3d ba 86 52 45 4d 4f 56 45 f0
4190 a5 3d c0 80 00 00 00 00 00 00 00 00 00 00 00 00
Comme cela, le listing est bien mieux decode :-D

Code : Tout sélectionner

3800	00 00 00 00 00 00 00 00   

3808	" DUM MOK HEX HVAL LOW HIG\00"

3822	" STR CAP INS $   APO &\00\00\00\00"

383C	" DIS SET RST ASK INV TBL\00\00"

3856	  I/F1:	DUMP$ 
3859	  I/F2:	MOKE 
385C	  I/F3:	HEX$ 
385F	  I/F4:	HVAL 
3862	  I/F5:	LOW 
3865	  I/F6:	HIGH 
3868	III/F1:	STRING$ 
386B	III/F2:	CAP$ 
386E	III/F3:	INSTR 
3871	 II/F1:	DISP 
3874	 II/F2:	SET 
3877	 II/F3:	RESET 
387A	 II/F4:	ASK 
387D	 II/F5:	INV 
3880	 II/F6:	NUMTBL 
3883	III/F5:	CALL &E3F@@
388C	III/F6:	
388D	00 00 00 00 00 00 00 00   00 00 00 00 00 00 00 00 
389D	00 00 00 00 00 00 00 00   00 00 00 00 00 00 00 00 
38AD	00 00 00 00 00 00 00 00   00 00 00 00 00 00 00 00 
38BD	00 00 00 00 00 00 00 00   


38C5	[F080]  "DELETE"
38C5	C2 2C 06          LJNE	2C,38CE
38C8	CC 65             LDS	(65)
38CA	FD 88             PUSH	BC
38CC	8E 0E             JR	38DC
38CE	C6                BKW
38CF	DE 3D             EVAL	390E
38D1	D0 00 3A          INTG	00,390E
38D4	BE 39 10          CALL	3910
38D7	FD A8             PUSH	HL
38D9	C2 2C 26          LJNE	2C,3902
38DC	DE 30             EVAL	390E
38DE	D0 00 2D          INTG	00,390E
38E1	64                INC	HL
38E2	BE 39 10          CALL	3910
38E5	FD 0A             POP	BC
38E7	FD 98             PUSH	DE
38E9	FD 5A             LD	DE,BC
38EB	CC 67             LDS	(67)
38ED	56                DEC	DE
38EE	66                DEC	HL
38EF	65                LDI	(HL)
38F0	51                STI	(DE)
38F1	A4                LDA	H
38F2	86                CPA	B
38F3	99 06             JR	NZ,38EF
38F5	24                LDA	L
38F6	06                CPA	C
38F7	99 0A             JR	NZ,38EF
38F9	25                LDA	(HL)
38FA	1E                STA	(DE)
38FB	FD 18             LD	BC,DE
38FD	CA 67             STS	(67)
38FF	FD 1A             POP	DE
3901	E2                RST
3902	C6                BKW
3903	C2 0D 06          LJNE	0D,390C
3906	CC 67             LDS	(67)
3908	FD 6A             LD	HL,BC
390A	9E 27             JR	38E5
390C	C6                BKW
390D	E2                RST
390E	E0                ERRH
390F	8B CC             JR	Z,39DD
3911	65                LDI	(HL)
3912	05                LDA	(BC)
3913	B7 FF             CPA	FF
3915	8B 06             JR	Z,391D
3917	05                LDA	(BC)
3918	A6                CPA	H
3919	81 0C             JR	NC,3927
391B	8B 03             JR	Z,3920
391D	FD 6A             LD	HL,BC
391F	9A                RET
3920	44                INC	BC
3921	47                LDD	(BC)
3922	26                CPA	L
3923	81 02             JR	NC,3927
3925	9E 0A             JR	391D
3927	44                INC	BC
3928	44                INC	BC
3929	05                LDA	(BC)
392A	DD                INC	A
392B	F9                RCF
392C	FD CA             ADD	BC
392E	9E 1E             JR	3912

3930	[F081]  "DISP"
3930	DE 37             EVAL	3969
3932	D0 00 34          INTG	00,3969
3935	AE 78 73          STA	(7873)
3938	48 7B             LD	B,7B
393A	4A 61             LD	C,61
393C	47                LDD	(BC)
393D	41                STI	(BC)
393E	44                INC	BC
393F	4E B0             CP	C,B0
3941	99 07             JR	NZ,393C
3943	BE EC AE          CALL	ECAE
3946	BE EC FA          CALL	ECFA
3949	BE E4 2C          CALL	INKEY
394C	B7 18             CPA	18
394E	8B 18             JR	Z,3968
3950	B7 20             CPA	20
3952	9B 0B             JR	Z,3949
3954	B7 0C             CPA	0C
3956	8B 0A             JR	Z,3962
3958	A5 78 73          LDA	(7873)
395B	2A                STA	L
395C	B5 FF             LDA	FF
395E	DF                DEC	A
395F	99 03             JR	NZ,395E
3961	88 07             DJC	395C
3963	A5 7B 7A          LDA	(7B7A)
3966	99 30             JR	NZ,3938
3968	E2                RST
3969	E0                ERRH
396A	00                SBC	C
396B	00                SBC	C
396C	00                SBC	C
396D	00                SBC	C

396E	[F082]  "RENUM"
396E	FD 98             PUSH	DE
3970	CC 65             LDS	(65)
3972	58 00             LD	D,00
3974	5A 00             LD	E,00
3976	B5 FF             LDA	FF
3978	07                CPA	(BC)
3979	89 03             JR	NZ,397E
397B	FD 1A             POP	DE
397D	E2                RST
397E	B5 98             LDA	98
        .  .  .
4000	55 

4001	00 00 00 00 00 00 00 00   00 00 00 00 00 00 00 00 
4011	00 00 00 00 00 00 00 00   00 00 00 00 00 00 00 00 
4021	00 00 00 00 00 00 00 00   00 00 00 00 00 00 00 00 
4031	00 00 00 00 00 00 00 00   00 00 00 00 00 00 00 00 
4041	00 00 00 00 00 00 00 00   00 00 00 00 00 00 00 00 
4051	00 00 00 

4054	D6 "DELETE"       F080 38C5 
405F	D4 "DISP"         F081 3930 
4068	D5 "RENUM"        F082 396E 
4072	D3 "SET"          F083 39AF 
407A	D5 "RESET"        F086 39CD 
4084	D3 "ASK"          F060 39F0 
408C	D5 "INSTR"        F061 3A22 
4096	D5 "BEGIN"        F087 3A84 
40A0	B5 "STACK"        F08A 3A9A 
40AA	D5 "UNTIL"        F08B 3AA0 
40B4	B4 "CAP$"         F062 3AE6 
40BD	D3 "IF#"          F08C 3B06 
40C5	B5 "ELSE#"        F08D 3B16 
40CF	B6 "ENDIF#"       F08E 3B20 
40DA	B4 "TEST"         F0A0 3B21 
40E3	D4 "TRUE"         F052 3B2A 
40EC	D5 "FALSE"        F053 3B36 
40F6	D3 "ERN"          F054 3B56 
40FE	D3 "ERL"          F055 3B5C 
4106	D3 "LOW"          F065 3B67 
410E	D4 "HIGH"         F066 3B67 
4117	D4 "MOKE"         F0A1 3B74 
4120	D4 "HEX$"         F063 3BCE 
4129	D5 "DUMP$"        F064 3BE8 
4133	D4 "HVAL"         F067 3C10 
413C	D7 "STRING$"      F068 3C22 
4148	D6 "RESUME"       F0A2 3C64 
4153	B3 "INV"          F0A3 3C73 
415B	D4 "PAGE"         F090 3C84 
4164	D6 "NUMTBL"       F056 3D56 
416F	D4 "MOVE"         F0A4 3DBA 
4178	86 "REMOVE"       F0A5 3DC0 
4183	80 ""
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque
Avatar du membre
repaire
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 30
Enregistré le : 02 sept. 2012 09:21
Contact :

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par repaire »

J'ai retrouve une vieille k7 avec le basic-1501 du sharpentier n°6, mais le temps que je remette la main sur un magnetophone et que je trouve le temps de la numeriser vous aurez tout retape !
Avatar du membre
Paul Tergeist
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2417
Enregistré le : 15 oct. 2007 15:50
Localisation : 3ème planète après le soleil

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par Paul Tergeist »

J'ai commencé à retravailler les scans (reorientation, augmentation des contrastes) j'ai ocrisé
avec Abby mais ça fait encore pas mal d'erreurs. Et là avec mon déménagement (encore! et encore des cartons ! ma vie est un carton :lol: ) je suis un peu coincé au niveau temps.
Avatar du membre
babaorhum
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 454
Enregistré le : 13 janv. 2013 19:44
Localisation : Marseille-est

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par babaorhum »

Merci Paul et repaire, ca progresse gentilment. On va y arriver !

@repaire : je n'arrive pas a retrouver les Lhtools compilés win32 de CGH sur ton site http://www.pc1500.com/lhTools_Win32.zip - Not Found ! - sans urgence aucune, j'aurais bien essayé ces logiciels ...

Merci ! (derechef)
BaBaoRhum
HP J728,200LX,1000CX,75C,71B,48GX,42s,41CX,32E,32Sii,28S,22s,21,16C,11C
Sharp PC- E500,1600,1500,1350,1261,1245
Casio FX-502P,602p,850P,3900P,4000P
TI-74,92,95 ; Canon X-07 ; TANDY EC-4026 ; Wp34S
Avatar du membre
babaorhum
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 454
Enregistré le : 13 janv. 2013 19:44
Localisation : Marseille-est

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par babaorhum »

Avec ca je crois qu'on a tout ...

Code : Tout sélectionner

3800 00 00 00 00 00 00 00 00 20 44 55 4D 20 4D 4F 4B
3810 20 48 45 58 20 48 56 41 4C 20 4C 4F 57 20 48 49
3820 47 00 20 53 54 52 20 43 41 50 20 49 4E 53 20 24
3830 20 20 20 41 50 4F 20 26 00 00 00 00 20 44 49 53
3840 20 53 45 54 20 52 53 54 20 41 53 4B 20 49 4E 56
3850 20 54 42 4C 00 00 01 F0 64 02 F0 A1 03 F0 63 04
3860 F0 67 05 F0 65 06 F0 66 11 F0 68 12 F0 62 13 F0
3870 61 09 F0 81 0A F0 83 0B F0 86 0C F0 60 0D F0 A3
3880 0E F0 56 15 F1 8A 26 45 33 33 46 40 16 00 00 00
3890 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
38A0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
38B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
38C0 00 00 00 00 00 C2 2C 06 CC 65 FD 88 8E 0E C6 DE
38D0 3D D0 00 3A BE 39 10 FD A8 C2 2C 26 DE 30 D0 00
38E0 2D 64 BE 39 10 FD 0A FD 98 FD 5A CC 67 56 66 65
38F0 51 A4 86 99 06 24 06 99 0A 25 1E FD 18 CA 67 FD
3900 1A E2 C6 C2 0D 06 CC 67 FD 6A 9E 27 C6 E2 E0 8B
3910 CC 65 05 B7 FF 8B 06 05 A6 81 0C 8B 03 FD 6A 9A
3920 44 47 26 81 02 9E 0A 44 44 05 DD F9 FD CA 9E 1E
3930 DE 37 D0 00 34 AE 78 73 48 7B 4A 61 47 41 44 4E
3940 B0 99 07 BE EC AE BE EC FA BE E4 2C B7 18 8B 18
3950 B7 20 9B 0B B7 0C 8B 0A A5 78 73 2A B5 FF DF 99
3960 03 88 07 A5 7B 7A 99 30 E2 E0 00 00 00 00 FD 98
3970 CC 65 58 00 5A 00 B5 FF 07 89 03 FD 1A E2 B5 98
3980 F9 FD DA 94 41 14 41 05 DD FD CA 9E 17 00 00 00
3990 BE EE 22 4C 76 83 0E 45 B9 OF 2A 45 B9 OF F1 F9
39AO 22 AE 7B 02 9A 45 B9 FO F1 2A 45 B9 FO 9E 10 BE
39BO 3D C5 FD 98 BE 39 90 BE 3A 17 AB 7B 02 FD C8 A5
39CO 7B 01 BE EE 22 FD 8A BE ED F6 FD lA E2 BE 3D C5
39D0 FD 98 BE 39 90 BE 3A 17 A9 7B 02 BD FF A9 7B 02
39E0 FD C8 A5 7B 01 BE EE 22 FD 8A BE ED F6 FD 1A E2
39FO DO 00 00 AE 7B 01 CD 30 DO 00 00 AE 7B 00 FD 98
3AOO AS 7B 01 BE 39 90 BE 3A 17 A9 7B 02 B7 00 8B 02
3A1O BS 01 FD 1A BA D9 E4 AS 7B 00 2A B5 01 D9 88 03
3A20 D5 9A DO O8 EO AE 7B 00 CD 30 DC FD 88 FD C8 F9
3A30 02 2A FD A8 CD 30 DC FD 2A A7 7B 00 83 03 AE 7B
3A40 00 FD 8A FD OA FB 00 BD FF DD DD 28 04 AE 78 72
3A50 48 7B 4A 10 A5 7B 00 F9 FD CA 46 FD 98 FD 88 58
3A60 7B A5 78 72 1A 45 17 89 09 54 14 26 99 O9 FD OA
3A70 8E 09 FD OA 44 04 A6 99 1C 4A OF FD 1A 04 FB B1
3A80 0F BA D9 E4 A5 3A DO B7 E5 89 03 68 OE EO OA 48
3A90 3A 94 41 14 41 04 AE 3A D0 E2 B5 D1 AE 3A DO E2
3AAO DE 00 DO 00 00 FD C8 A5 3A DO B7 D1 89 05 FD 8A
3ABO 68 02 EO FD 8A B7 00 89 OC A5 3A DO DF OA 48 3A
3ACO 47 1A 05 18 E2 A5 3A DO DF DF AE 3A DO E2 00 00
3ADO D9 50 09 50 09 42 09 42 09 50 0F 50 0F 50 0F 50
3AEO OF 50 OF 50 OF 3A DC FD 88 FD C8 05 B7 61 81 08
3AF0 B7 7B 83 04 F9 B1 1F OE 44 88 10 FD 8A FD OA BE
3B00 DF A1 00 68 00 9A DE 00 D0 00 00 AE 3A CF B7 00
3B10 89 03 BE 3B 47 E2 A5 3A CF B7 00 8B 03 BE 3B 47
3B20 E2 DE 00 D0 00 00 AE 3A CF E2 A5 3A CF B7 00 8B
3B30 02 B5 01 BA D9 E4 A5 3A CF B7 00 89 05 B5 01 BA
3B40 D9 E4 B5 00 BA D9 E4 55 B7 F0 99 05 55 B7 8D 8B
3B5O 04 B7 8E 99 OE 9A A5 78 9B BA D9 E4 A5 78 B4 28
3B60 A5 78 B5 2A BA DA 6C D0 04 09 5E 66 89 02 A4 2A
3B70 BA D9 E4 9A DE 4E D0 00 4E FD A8 C2 2C 29 DE 44
3B80 FD 18 FD 1A FD 88 A5 7A 04 B7 C0 81 14 DC 6E 02
3B90 81 07 BE ED 95 51 62 88 0B FD 18 FD 1A FD 88 9E
3BA0 26 D0 08 21 51 9E 0E C4 3B 16 DE 18 A5 7A 04 B7
3BB0 C0 8I 17 FD 18 FD 1A FD 88 DC 62 BE D0 48 9E 27
3BC0 FD 0A CD 40 E4 FD 1A 68 13 E0 68 11 E0 00 D0 00
3BD0 00 48 70 4A A0 A4 BE 3C 48 24 BE 3C 48 4A A0 B5
3BE0 04 BE DF Al 00 68 00 9A 5A 08 A5 78 8C B7 02 81
3BF0 06 D0 0C 00 1A CD 30 D0 00 00 14 FD A8 FD 1A 48
3C00 70 4A 80 2A 28 BE 3C 47 88 05 A4 D9 4A 80 9E 2F
3C10 DC 68 00 6E 03 81 04 BE ED 95 28 BE ED 95 2A BA
3C20 DA 6C D0 08 00 FD C8 CD 30 D0 08 00 AE 7B 00 24
3C30 48 70 4A 80 FD 8A 41 88 03 48 70 4A 80 A5 7B 00
3C40 BE DF A1 00 68 00 9A 55 FD 98 1A F1 BE 3C 58 41
3C50 14 BE 3C 58 41 FD 1A 9A B9 0F B7 0A 83 03 B3 30
3C60 9A B3 36 9A CC B2 45 B7 3A 8B 04 B7 0D 99 09 46
3C70 FD 5A E2 68 78 6A 4D FD 62 25 BD FF 2E 88 06 6C
3C80 77 93 0E E2 68 3C 6A 99 48 38 4A 08 05 FD C8 25
3C90 41 FD 8A 61 4E C5 99 0C E2 20 49 46 20 20 45 4C
3CA0 53 20 45 4E 44 20 54 45 53 20 54 52 55 20 46 41
3CB0 4C 00 00 20 53 54 41 20 42 45 47 20 55 4E 54 20
3CC0 52 45 53 20 41 50 4F 00 00 00 00 00 00 20 44 45
3CD0 4C 20 52 45 4E 20 45 52 4E 20 45 52 4C 20 4D 4F
3CE0 56 20 52 45 4D 00 00 01 F0 8C 02 F0 8D 03 F0 8E
3CF0 04 F0 A0 05 F0 52 06 F0 53 11 F0 8A 12 F0 87 13
3D00 F0 8B 14 F0 A2 09 F0 80 0A F0 82 0B F0 54 0C F0
3D10 55 0D F0 A4 0E F0 A5 15 F1 8A 26 45 33 33 46 40
3D20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
3D30 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
3D40 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
3D50 00 00 00 00 00 00 58 80 B5 FC 5A 0D FD 1E B5 00
3D60 52 FD 1E 5A 08 FD 1E FD AE 80 0F AE 77 F0 0H 94
3D70 FD 1E 6A 03 88 02 FD ED 80 0E FF 89 15 FD ED 80
3D80 0F 03 89 0E 40 D5 91 18 FD 1E 4E 09 83 22 5A 0F
3D90 9E 23 04 F1 0A 5A 0F FD 15 BF 02 89 18 40 BF 01
3DA0 89 13 40 52 FD 15 BF 80 89 0B 40 D5 83 07 99 06
3DB0 FB B5 FF 8E 02 04 F1 BA D9 E4 CC 67 42 CA 67 E2
3DC0 CC 65 CA 69 E2 DE 14 D0 08 11 24 AE 7B 00 C2 2C
3DD0 0A DE 08 D0 08 05 24 AE 7B 01 9A E4 00 00 00 00
ouf !
BaBaoRhum
HP J728,200LX,1000CX,75C,71B,48GX,42s,41CX,32E,32Sii,28S,22s,21,16C,11C
Sharp PC- E500,1600,1500,1350,1261,1245
Casio FX-502P,602p,850P,3900P,4000P
TI-74,92,95 ; Canon X-07 ; TANDY EC-4026 ; Wp34S
Avatar du membre
repaire
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 30
Enregistré le : 02 sept. 2012 09:21
Contact :

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par repaire »

Le lien vers lhTools_Win32 est corrigé.
Avatar du membre
babaorhum
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 454
Enregistré le : 13 janv. 2013 19:44
Localisation : Marseille-est

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par babaorhum »

Merci repaire ... c'est ... réparé ! :wink:
BaBaoRhum
HP J728,200LX,1000CX,75C,71B,48GX,42s,41CX,32E,32Sii,28S,22s,21,16C,11C
Sharp PC- E500,1600,1500,1350,1261,1245
Casio FX-502P,602p,850P,3900P,4000P
TI-74,92,95 ; Canon X-07 ; TANDY EC-4026 ; Wp34S
cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2142
Enregistré le : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6

Message par cgh »

Chapeau ! Et merci a Babaorhum et Paul Tergeist. Le lhbin a refuse certains octets:
Les "quelques erreurs" d'OCR, mais elles restent tres pontuelles: S -> 5, l et I -> 1, O -> 0, H -> A

Je converti les codes hexa en binaire avec lhbin -x -o basic1501.bin basic1501.hex

Le fichier de fragments basic1501.frag pour les lhTools:

Code : Tout sélectionner

        .FRAGMENTS:     3800
        BYTE    3800
        TEXT    3808
        TEXT    3822
        TEXT    383C
        RESERVE 3856
        CODE    38C5
        TEXT    3C99
        TEXT    3CB3
        TEXT    3CCD
        RESERVE 3CE7
        BYTE    3D20
        CODE    3D56
        BYTE    3DDC
        BYTE    4000
        WORD    4020
        KEYWORD 4054
Puis, lhdump -F basic1501.frag basic1501.bin et j'obtiens:

Code : Tout sélectionner

3800    00 00 00 00 00 00 00 00   

3808    " DUM MOK HEX HVAL LOW HIG\00"

3822    " STR CAP INS $   APO &\00\00\00\00"

383C    " DIS SET RST ASK INV TBL\00\00"

3856      I/F1: DUMP$ 
3859      I/F2: MOKE 
385C      I/F3: HEX$ 
385F      I/F4: HVAL 
3862      I/F5: LOW 
3865      I/F6: HIGH 
3868    III/F1: STRING$ 
386B    III/F2: CAP$ 
386E    III/F3: INSTR 
3871     II/F1: DISP 
3874     II/F2: SET 
3877     II/F3: RESET 
387A     II/F4: ASK 
387D     II/F5: INV 
3880     II/F6: NUMTBL 
3883    III/F5: CALL &E33F@
388C    III/F6:
    . . . .
38C5    [F080]  "DELETE"
38C5    C2 2C 06          LJNE  2C,38CE
38C8    CC 65             LDS   (65)
38CA    FD 88             PUSH  BC
38CC    8E 0E             JR    38DC
38CE    C6                BKW
38CF    DE 3D             EVAL  390E
38D1    D0 00 3A          INTG  00,390E
38D4    BE 39 10          CALL  3910
38D7    FD A8             PUSH  HL
38D9    C2 2C 26          LJNE  2C,3902
38DC    DE 30             EVAL  390E
38DE    D0 00 2D          INTG  00,390E
38E1    64                INC   HL
38E2    BE 39 10          CALL  3910
38E5    FD 0A             POP   BC
38E7    FD 98             PUSH  DE
38E9    FD 5A             LD    DE,BC
38EB    CC 67             LDS   (67)
38ED    56                DEC   DE
38EE    66                DEC   HL
38EF    65                LDI   (HL)
38F0    51                STI   (DE)
38F1    A4                LDA   H
38F2    86                CPA   B
38F3    99 06             JR    NZ,38EF
38F5    24                LDA   L
38F6    06                CPA   C
38F7    99 0A             JR    NZ,38EF
38F9    25                LDA   (HL)
38FA    1E                STA   (DE)
38FB    FD 18             LD    BC,DE
38FD    CA 67             STS   (67)
38FF    FD 1A             POP   DE
3901    E2                RST
3902    C6                BKW
3903    C2 0D 06          LJNE  0D,390C
3906    CC 67             LDS   (67)
3908    FD 6A             LD    HL,BC
390A    9E 27             JR    38E5
390C    C6                BKW
390D    E2                RST
390E    E0                ERRH
390F    8B CC             JR    Z,39DD
3911    65                LDI   (HL)
3912    05                LDA   (BC)
3913    B7 FF             CPA   FF
3915    8B 06             JR    Z,391D
3917    05                LDA   (BC)
3918    A6                CPA   H
3919    81 0C             JR    NC,3927
391B    8B 03             JR    Z,3920
391D    FD 6A             LD    HL,BC
391F    9A                RET
3920    44                INC   BC
3921    47                LDD   (BC)
3922    26                CPA   L
3923    81 02             JR    NC,3927
3925    9E 0A             JR    391D
3927    44                INC   BC
3928    44                INC   BC
3929    05                LDA   (BC)
392A    DD                INC   A
392B    F9                RCF
392C    FD CA             ADD   BC
392E    9E 1E             JR    3912

3930    [F081]  "DISP"
3930    DE 37             EVAL  3969
3932    D0 00 34          INTG  00,3969
3935    AE 78 73          STA   (7873)
3938    48 7B             LD    B,7B
393A    4A 61             LD    C,61
393C    47                LDD   (BC)
393D    41                STI   (BC)
393E    44                INC   BC
393F    4E B0             CP    C,B0
3941    99 07             JR    NZ,393C
3943    BE EC AE          CALL  ECAE
3946    BE EC FA          CALL  ECFA
3949    BE E4 2C          CALL  INKEY
394C    B7 18             CPA   18
394E    8B 18             JR    Z,3968
3950    B7 20             CPA   20
3952    9B 0B             JR    Z,3949
3954    B7 0C             CPA   0C
3956    8B 0A             JR    Z,3962
3958    A5 78 73          LDA   (7873)
395B    2A                STA   L
395C    B5 FF             LDA   FF
395E    DF                DEC   A
395F    99 03             JR    NZ,395E
3961    88 07             DJC   395C
3963    A5 7B 7A          LDA   (7B7A)
3966    99 30             JR    NZ,3938
3968    E2                RST
3969    E0                ERRH
396A    00                SBC   C
396B    00                SBC   C
396C    00                SBC   C
396D    00                SBC   C

396E    [F082]  "RENUM"
396E    FD 98             PUSH  DE
3970    CC 65             LDS   (65)
3972    58 00             LD    D,00
3974    5A 00             LD    E,00
3976    B5 FF             LDA   FF
3978    07                CPA   (BC)
3979    89 03             JR    NZ,397E
397B    FD 1A             POP   DE
397D    E2                RST
397E    B5 98             LDA   98
3980    F9                RCF
3981    FD DA             ADD   DE
3983    94                LDA   D
3984    41                STI   (BC)
3985    14                LDA   E
3986    41                STI   (BC)
3987    05                LDA   (BC)
3988    DD                INC   A
3989    FD CA             ADD   BC
398B    9E 17             JR    3976
398D    00                SBC   C
398E    00                SBC   C
398F    00                SBC   C
3990    BE EE 22          CALL  EE22
3993    4C 76             CP    B,76
3995    83 0E             JR    C,39A5
3997    45                LDI   (BC)
3998    B9 0F             AND   0F
399A    2A                STA   L
399B    45                LDI   (BC)
399C    B9 0F             AND   0F
399E    F1                SWA
399F    F9                RCF
39A0    22                ADC   L
39A1    AE 7B 02          STA   (7B02)
39A4    9A                RET
39A5    45                LDI   (BC)
39A6    B9 F0             AND   F0
39A8    F1                SWA
39A9    2A                STA   L
39AA    45                LDI   (BC)
39AB    B9 F0             AND   F0
39AD    9E 10             JR    399F

39AF    [F083]  "SET"
39AF    BE 3D C5          CALL  3DC5
39B2    FD 98             PUSH  DE
39B4    BE 39 90          CALL  3990
39B7    BE 3A 17          CALL  3A17
39BA    AB 7B 02          OR    (7B02)
39BD    FD C8             PUSH  A
39BF    A5 7B 01          LDA   (7B01)
39C2    BE EE 22          CALL  EE22
39C5    FD 8A             POP   A
39C7    BE ED F6          CALL  EDF6
39CA    FD 1A             POP   DE
39CC    E2                RST

39CD    [F086]  "RESET"
39CD    BE 3D C5          CALL  3DC5
39D0    FD 98             PUSH  DE
39D2    BE 39 90          CALL  3990
39D5    BE 3A 17          CALL  3A17
39D8    A9 7B 02          AND   (7B02)
39DB    BD FF             XOR   FF
39DD    A9 7B 02          AND   (7B02)
39E0    FD C8             PUSH  A
39E2    A5 7B 01          LDA   (7B01)
39E5    BE EE 22          CALL  EE22
39E8    FD 8A             POP   A
39EA    BE ED F6          CALL  EDF6
39ED    FD 1A             POP   DE
39EF    E2                RST

39F0    [F060]  "ASK"
39F0    D0 00 00          INTG  00,39F3
39F3    AE 7B 01          STA   (7B01)
39F6    CD 30             SBR   (30)
39F8    D0 00 00          INTG  00,39FB
39FB    AE 7B 00          STA   (7B00)
39FE    FD 98             PUSH  DE
3A00    A5 7B 01          LDA   (7B01)
3A03    BE 39 90          CALL  3990
3A06    BE 3A 17          CALL  3A17
3A09    A9 7B 02          AND   (7B02)
3A0C    B7 00             CPA   00
3A0E    8B 02             JR    Z,3A12
3A10    B5 01             LDA   01
3A12    FD 1A             POP   DE
3A14    BA D9 E4          JP    D9E4
3A17    A5 7B 00          LDA   (7B00)
3A1A    2A                STA   L
3A1B    B5 01             LDA   01
3A1D    D9                SL
3A1E    88 03             DJC   3A1D
3A20    D5                SR
3A21    9A                RET

3A22    [F061]  "INSTR"
3A22    D0 08 E0          INTG  08,3B05
3A25    AE 7B 00          STA   (7B00)
3A28    CD 30             SBR   (30)
3A2A    DC                LDPT
3A2B    FD 88             PUSH  BC
3A2D    FD C8             PUSH  A
3A2F    F9                RCF
3A30    02                ADC   C
3A31    2A                STA   L
3A32    FD A8             PUSH  HL
3A34    CD 30             SBR   (30)
3A36    DC                LDPT
3A37    FD 2A             POP   HL
3A39    A7 7B 00          CPA   (7B00)
3A3C    83 03             JR    C,3A41
3A3E    AE 7B 00          STA   (7B00)
3A41    FD 8A             POP   A
3A43    FD 0A             POP   BC
3A45    FB                SCF
3A46    00                SBC   C
3A47    BD FF             XOR   FF
3A49    DD                INC   A
3A4A    DD                INC   A
3A4B    28                STA   H
3A4C    04                LDA   C
3A4D    AE 78 72          STA   (7872)
3A50    48 7B             LD    B,7B
3A52    4A 10             LD    C,10
3A54    A5 7B 00          LDA   (7B00)
3A57    F9                RCF
3A58    FD CA             ADD   BC
3A5A    46                DEC   BC
3A5B    FD 98             PUSH  DE
3A5D    FD 88             PUSH  BC
3A5F    58 7B             LD    D,7B
3A61    A5 78 72          LDA   (7872)
3A64    1A                STA   E
3A65    45                LDI   (BC)
3A66    17                CPA   (DE)
3A67    89 09             JR    NZ,3A72
3A69    54                INC   DE
3A6A    14                LDA   E
3A6B    26                CPA   L
3A6C    99 09             JR    NZ,3A65
3A6E    FD 0A             POP   BC
3A70    8E 09             JR    3A7B
3A72    FD 0A             POP   BC
3A74    44                INC   BC
3A75    04                LDA   C
3A76    A6                CPA   H
3A77    99 1C             JR    NZ,3A5D
3A79    4A 0F             LD    C,0F
3A7B    FD 1A             POP   DE
3A7D    04                LDA   C
3A7E    FB                SCF
3A7F    B1 0F             SBC   0F
3A81    BA D9 E4          JP    D9E4

3A84    [F087]  "BEGIN"
3A84    A5 3A D0          LDA   (3AD0)
3A87    B7 E5             CPA   E5
3A89    89 03             JR    NZ,3A8E
3A8B    68 0E             LD    H,0E
3A8D    E0                ERRH
3A8E    0A                STA   C
3A8F    48 3A             LD    B,3A
3A91    94                LDA   D
3A92    41                STI   (BC)
3A93    14                LDA   E
3A94    41                STI   (BC)
3A95    04                LDA   C
3A96    AE 3A D0          STA   (3AD0)
3A99    E2                RST

3A9A    [F08A]  "STACK"
3A9A    B5 D1             LDA   D1
3A9C    AE 3A D0          STA   (3AD0)
3A9F    E2                RST

3AA0    [F08B]  "UNTIL"
3AA0    DE 00             EVAL  3AA2
3AA2    D0 00 00          INTG  00,3AA5
3AA5    FD C8             PUSH  A
3AA7    A5 3A D0          LDA   (3AD0)
3AAA    B7 D1             CPA   D1
3AAC    89 05             JR    NZ,3AB3
3AAE    FD 8A             POP   A
3AB0    68 02             LD    H,02
3AB2    E0                ERRH
3AB3    FD 8A             POP   A
3AB5    B7 00             CPA   00
3AB7    89 0C             JR    NZ,3AC5
3AB9    A5 3A D0          LDA   (3AD0)
3ABC    DF                DEC   A
3ABD    0A                STA   C
3ABE    48 3A             LD    B,3A
3AC0    47                LDD   (BC)
3AC1    1A                STA   E
3AC2    05                LDA   (BC)
3AC3    18                STA   D
3AC4    E2                RST
3AC5    A5 3A D0          LDA   (3AD0)
3AC8    DF                DEC   A
3AC9    DF                DEC   A
3ACA    AE 3A D0          STA   (3AD0)
3ACD    E2                RST
3ACE    00                SBC   C
3ACF    00                SBC   C
3AD0    D9                SL
3AD1    50                INC   E
3AD2    09                AND   (BC)
3AD3    50                INC   E
3AD4    09                AND   (BC)
3AD5    42                DEC   C
3AD6    09                AND   (BC)
3AD7    42                DEC   C
3AD8    09                AND   (BC)
3AD9    50                INC   E
3ADA    0F                BIT   (BC)
3ADB    50                INC   E
3ADC    0F                BIT   (BC)
3ADD    50                INC   E
3ADE    0F                BIT   (BC)
3ADF    50                INC   E
3AE0    0F                BIT   (BC)
3AE1    50                INC   E
3AE2    0F                BIT   (BC)
3AE3    50                INC   E
3AE4    0F                BIT   (BC)
3AE5    3A                STA   N

3AE6    [F062]  "CAP$"
3AE6    DC                LDPT
3AE7    FD 88             PUSH  BC
3AE9    FD C8             PUSH  A
3AEB    05                LDA   (BC)
3AEC    B7 61             CPA   61
3AEE    81 08             JR    NC,3AF8
3AF0    B7 7B             CPA   7B
3AF2    83 04             JR    C,3AF8
3AF4    F9                RCF
3AF5    B1 1F             SBC   1F
3AF7    0E                STA   (BC)
3AF8    44                INC   BC
3AF9    88 10             DJC   3AEB
3AFB    FD 8A             POP   A
3AFD    FD 0A             POP   BC
3AFF    BE DF A1          CALL  DFA1
3B02    00                SBC   C
3B03    68 00             LD    H,00
3B05    9A                RET

3B06    [F08C]  "IF#"
3B06    DE 00             EVAL  3B08
3B08    D0 00 00          INTG  00,3B0B
3B0B    AE 3A CF          STA   (3ACF)
3B0E    B7 00             CPA   00
3B10    89 03             JR    NZ,3B15
3B12    BE 3B 47          CALL  3B47
3B15    E2                RST

3B16    [F08D]  "ELSE#"
3B16    A5 3A CF          LDA   (3ACF)
3B19    B7 00             CPA   00
3B1B    8B 03             JR    Z,3B20
3B1D    BE 3B 47          CALL  3B47

3B20    [F08E]  "ENDIF#"
3B20    E2                RST

3B21    [F0A0]  "TEST"
3B21    DE 00             EVAL  3B23
3B23    D0 00 00          INTG  00,3B26
3B26    AE 3A CF          STA   (3ACF)
3B29    E2                RST

3B2A    [F052]  "TRUE"
3B2A    A5 3A CF          LDA   (3ACF)
3B2D    B7 00             CPA   00
3B2F    8B 02             JR    Z,3B33
3B31    B5 01             LDA   01
3B33    BA D9 E4          JP    D9E4

3B36    [F053]  "FALSE"
3B36    A5 3A CF          LDA   (3ACF)
3B39    B7 00             CPA   00
3B3B    89 05             JR    NZ,3B42
3B3D    B5 01             LDA   01
3B3F    BA D9 E4          JP    D9E4
3B42    B5 00             LDA   00
3B44    BA D9 E4          JP    D9E4
3B47    55                LDI   (DE)
3B48    B7 F0             CPA   F0
3B4A    99 05             JR    NZ,3B47
3B4C    55                LDI   (DE)
3B4D    B7 8D             CPA   8D
3B4F    8B 04             JR    Z,3B55
3B51    B7 8E             CPA   8E
3B53    99 0E             JR    NZ,3B47
3B55    9A                RET

3B56    [F054]  "ERN"
3B56    A5 78 9B          LDA   (ERRORNUM)
3B59    BA D9 E4          JP    D9E4

3B5C    [F055]  "ERL"
3B5C    A5 78 B4          LDA   (ERRORLINE)
3B5F    28                STA   H
3B60    A5 78 B5          LDA   (78B5)
3B63    2A                STA   L
3B64    BA DA 6C          JP    DA6C

3B67    [F065]  "LOW"
3B67    [F066]  "HIGH"
3B67    D0 04 09          INTG  04,3B73
3B6A    5E 66             CP    E,66
3B6C    89 02             JR    NZ,3B70
3B6E    A4                LDA   H
3B6F    2A                STA   L
3B70    BA D9 E4          JP    D9E4
3B73    9A                RET

3B74    [F0A1]  "MOKE"
3B74    DE 4E             EVAL  3BC4
3B76    D0 00 4E          INTG  00,3BC7
3B79    FD A8             PUSH  HL
3B7B    C2 2C 29          LJNE  2C,3BA7
3B7E    DE 44             EVAL  3BC4
3B80    FD 18             LD    BC,DE
3B82    FD 1A             POP   DE
3B84    FD 88             PUSH  BC
3B86    A5 7A 04          LDA   (7A04)
3B89    B7 C0             CPA   C0
3B8B    81 14             JR    NC,3BA1
3B8D    DC                LDPT
3B8E    6E 02             CP    L,02
3B90    81 07             JR    NC,3B99
3B92    BE ED 95          CALL  HEXDEC
3B95    51                STI   (DE)
3B96    62                DEC   L
3B97    88 0B             DJC   3B8E
3B99    FD 18             LD    BC,DE
3B9B    FD 1A             POP   DE
3B9D    FD 88             PUSH  BC
3B9F    9E 26             JR    3B7B
3BA1    D0 08 21          INTG  08,3BC5
3BA4    51                STI   (DE)
3BA5    9E 0E             JR    3B99
3BA7    C4 3B 16          JNE   3B,3BC0
3BAA    DE 18             EVAL  3BC4
3BAC    A5 7A 04          LDA   (7A04)
3BAF    B7 C0             CPA   C0
3BB1    81 17             JR    NC,3BCA
3BB3    FD 18             LD    BC,DE
3BB5    FD 1A             POP   DE
3BB7    FD 88             PUSH  BC
3BB9    DC                LDPT
3BBA    62                DEC   L
3BBB    BE D0 48          CALL  D048
3BBE    9E 27             JR    3B99
3BC0    FD 0A             POP   BC
3BC2    CD 40             SBR   (40)
3BC4    E4                ERR
3BC5    FD 1A             POP   DE
3BC7    68 13             LD    H,13
3BC9    E0                ERRH
3BCA    68 11             LD    H,11
3BCC    E0                ERRH
3BCD    00                SBC   C

3BCE    [F063]  "HEX$"
3BCE    D0 00 00          INTG  00,3BD1
3BD1    48 70             LD    B,70
3BD3    4A A0             LD    C,A0
3BD5    A4                LDA   H
3BD6    BE 3C 48          CALL  3C48
3BD9    24                LDA   L
3BDA    BE 3C 48          CALL  3C48
3BDD    4A A0             LD    C,A0
3BDF    B5 04             LDA   04
3BE1    BE DF A1          CALL  DFA1
3BE4    00                SBC   C
3BE5    68 00             LD    H,00
3BE7    9A                RET

3BE8    [F064]  "DUMP$"
3BE8    5A 08             LD    E,08
3BEA    A5 78 8C          LDA   (788C)
3BED    B7 02             CPA   02
3BEF    81 06             JR    NC,3BF7
3BF1    D0 0C 00          INTG  0C,3BF4
3BF4    1A                STA   E
3BF5    CD 30             SBR   (30)
3BF7    D0 00 00          INTG  00,3BFA
3BFA    14                LDA   E
3BFB    FD A8             PUSH  HL
3BFD    FD 1A             POP   DE
3BFF    48 70             LD    B,70
3C01    4A 80             LD    C,80
3C03    2A                STA   L
3C04    28                STA   H
3C05    BE 3C 47          CALL  3C47
3C08    88 05             DJC   3C05
3C0A    A4                LDA   H
3C0B    D9                SL
3C0C    4A 80             LD    C,80
3C0E    9E 2F             JR    3BE1

3C10    [F067]  "HVAL"
3C10    DC                LDPT
3C11    68 00             LD    H,00
3C13    6E 03             CP    L,03
3C15    81 04             JR    NC,3C1B
3C17    BE ED 95          CALL  HEXDEC
3C1A    28                STA   H
3C1B    BE ED 95          CALL  HEXDEC
3C1E    2A                STA   L
3C1F    BA DA 6C          JP    DA6C

3C22    [F068]  "STRING$"
3C22    D0 08 00          INTG  08,3C25
3C25    FD C8             PUSH  A
3C27    CD 30             SBR   (30)
3C29    D0 08 00          INTG  08,3C2C
3C2C    AE 7B 00          STA   (7B00)
3C2F    24                LDA   L
3C30    48 70             LD    B,70
3C32    4A 80             LD    C,80
3C34    FD 8A             POP   A
3C36    41                STI   (BC)
3C37    88 03             DJC   3C36
3C39    48 70             LD    B,70
3C3B    4A 80             LD    C,80
3C3D    A5 7B 00          LDA   (7B00)
3C40    BE DF A1          CALL  DFA1
3C43    00                SBC   C
3C44    68 00             LD    H,00
3C46    9A                RET
3C47    55                LDI   (DE)
3C48    FD 98             PUSH  DE
3C4A    1A                STA   E
3C4B    F1                SWA
3C4C    BE 3C 58          CALL  3C58
3C4F    41                STI   (BC)
3C50    14                LDA   E
3C51    BE 3C 58          CALL  3C58
3C54    41                STI   (BC)
3C55    FD 1A             POP   DE
3C57    9A                RET
3C58    B9 0F             AND   0F
3C5A    B7 0A             CPA   0A
3C5C    83 03             JR    C,3C61
3C5E    B3 30             ADC   30
3C60    9A                RET
3C61    B3 36             ADC   36
3C63    9A                RET

3C64    [F0A2]  "RESUME"
3C64    CC B2             LDS   (B2)
3C66    45                LDI   (BC)
3C67    B7 3A             CPA   3A
3C69    8B 04             JR    Z,3C6F
3C6B    B7 0D             CPA   0D
3C6D    99 09             JR    NZ,3C66
3C6F    46                DEC   BC
3C70    FD 5A             LD    DE,BC
3C72    E2                RST

3C73    [F0A3]  "INV"
3C73    68 78             LD    H,78
3C75    6A 4D             LD    L,4D
3C77    FD 62             DEC   H
3C79    25                LDA   (HL)
3C7A    BD FF             XOR   FF
3C7C    2E                STA   (HL)
3C7D    88 06             DJC   3C79
3C7F    6C 77             CP    H,77
3C81    93 0E             JR    C,3C75
3C83    E2                RST

3C84    [F090]  "LIST"
3C84    68 3C             LD    H,3C
3C86    6A 99             LD    L,99
3C88    48 38             LD    B,38
3C8A    4A 08             LD    C,08
3C8C    05                LDA   (BC)
3C8D    FD C8             PUSH  A
3C8F    25                LDA   (HL)
3C90    41                STI   (BC)
3C91    FD 8A             POP   A
3C93    61                STI   (HL)
3C94    4E C5             CP    C,C5
3C96    99 0C             JR    NZ,3C8C
3C98    E2                RST

3C99    " IF  ELS END TES TRU FAL\00\00"

3CB3    " STA BEG UNT RES APO\00\00\00\00"
3CCB    "\00\00"

3CCD    " DEL REN ERN ERL MOV REM\00\00"

3CE7      I/F1: IF# 
3CEA      I/F2: ELSE# 
3CED      I/F3: ENDIF# 
3CF0      I/F4: TEST 
3CF3      I/F5: TRUE 
3CF6      I/F6: FALSE 
3CF9    III/F1: STACK 
3CFC    III/F2: BEGIN 
3CFF    III/F3: UNTIL 
3D02    III/F4: RESUME 
3D05     II/F1: DELETE 
3D08     II/F2: RENUM 
3D0B     II/F3: ERN 
3D0E     II/F4: ERL 
3D11     II/F5: MOVE 
3D14     II/F6: REMOVE 
3D17    III/F5: CALL &E33F@
    . . . .
3D56    [F056]  "NUMTBL"
3D56    58 80             LD    D,80
3D58    B5 FC             LDA   FC
3D5A    5A 0D             LD    E,0D
3D5C    FD 1E             STA#  (DE)
3D5E    B5 00             LDA   00
3D60    52                DEC   E
3D61    FD 1E             STA#  (DE)
3D63    5A 08             LD    E,08
3D65    FD 1E             STA#  (DE)
3D67    FD AE 80 0F       STA#  (800F)
3D6B    AE 77 F0          STA   (Z$)
3D6E    0A                STA   C
3D6F    94                LDA   D
3D70    FD 1E             STA#  (DE)
3D72    6A 03             LD    L,03
3D74    88 02             DJC   3D74
3D76    FD ED 80 0E FF    BIT#  (800E),FF
3D7B    89 15             JR    NZ,3D92
3D7D    FD ED 80 0F 03    BIT#  (800F),03
3D82    89 0E             JR    NZ,3D92
3D84    40                INC   C
3D85    D5                SR
3D86    91 18             JR    NC,3D70
3D88    FD 1E             STA#  (DE)
3D8A    4E 09             CP    C,09
3D8C    83 22             JR    C,3DB0
3D8E    5A 0F             LD    E,0F
3D90    9E 23             JR    3D6F
3D92    04                LDA   C
3D93    F1                SWA
3D94    0A                STA   C
3D95    5A 0F             LD    E,0F
3D97    FD 15             LDA#  (DE)
3D99    BF 02             BIT   02
3D9B    89 18             JR    NZ,3DB5
3D9D    40                INC   C
3D9E    BF 01             BIT   01
3DA0    89 13             JR    NZ,3DB5
3DA2    40                INC   C
3DA3    52                DEC   E
3DA4    FD 15             LDA#  (DE)
3DA6    BF 80             BIT   80
3DA8    89 0B             JR    NZ,3DB5
3DAA    40                INC   C
3DAB    D5                SR
3DAC    83 07             JR    C,3DB5
3DAE    99 06             JR    NZ,3DAA
3DB0    FB                SCF
3DB1    B5 FF             LDA   FF
3DB3    8E 02             JR    3DB7
3DB5    04                LDA   C
3DB6    F1                SWA
3DB7    BA D9 E4          JP    D9E4

3DBA    [F0A4]  "MOVE"
3DBA    CC 67             LDS   (67)
3DBC    42                DEC   C
3DBD    CA 67             STS   (67)
3DBF    E2                RST

3DC0    [F0A5]  "REMOVE"
3DC0    CC 65             LDS   (65)
3DC2    CA 69             STS   (69)
3DC4    E2                RST
3DC5    DE 14             EVAL  3DDB
3DC7    D0 08 11          INTG  08,3DDB
3DCA    24                LDA   L
3DCB    AE 7B 00          STA   (7B00)
3DCE    C2 2C 0A          LJNE  2C,3DDB
3DD1    DE 08             EVAL  3DDB
3DD3    D0 08 05          INTG  08,3DDB
3DD6    24                LDA   L
3DD7    AE 7B 01          STA   (7B01)
3DDA    9A                RET
3DDB    E4                ERR
    . . . .
4000    55 00 00 00 00 00 00 00   00 00 00 00 00 00 00 00
    . . . .
4054    D6 "DELETE"       F080 38C5 
405F    D4 "DISP"         F081 3930 
4068    D5 "RENUM"        F082 396E 
4072    D3 "SET"          F083 39AF 
407A    D5 "RESET"        F086 39CD 
4084    D3 "ASK"          F060 39F0 
408C    D5 "INSTR"        F061 3A22 
4096    D5 "BEGIN"        F087 3A84 
40A0    B5 "STACK"        F08A 3A9A 
40AA    D5 "UNTIL"        F08B 3AA0 
40B4    B4 "CAP$"         F062 3AE6 
40BD    D3 "IF#"          F08C 3B06 
40C5    B5 "ELSE#"        F08D 3B16 
40CF    B6 "ENDIF#"       F08E 3B20 
40DA    B4 "TEST"         F0A0 3B21 
40E3    D4 "TRUE"         F052 3B2A 
40EC    D5 "FALSE"        F053 3B36 
40F6    D3 "ERN"          F054 3B56 
40FE    D3 "ERL"          F055 3B5C 
4106    D3 "LOW"          F065 3B67 
410E    D4 "HIGH"         F066 3B67 
4117    D4 "MOKE"         F0A1 3B74 
4120    D4 "HEX$"         F063 3BCE 
4129    D5 "DUMP$"        F064 3BE8 
4133    D4 "HVAL"         F067 3C10 
413C    D7 "STRING$"      F068 3C22 
4148    D6 "RESUME"       F0A2 3C64 
4153    B3 "INV"          F0A3 3C73 
415B    D4 "PAGE"         F090 3C84 
4164    D6 "NUMTBL"       F056 3D56 
416F    D4 "MOVE"         F0A4 3DBA 
4178    86 "REMOVE"       F0A5 3DC0 
4183    80 ""             0000 0000 
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque
Répondre

Retourner vers « Tous les Pockets »