Recherche image de l'extension BASIC du SHARPENTIER n. 6
Modérateur : Politburo
-
- 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
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.
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
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
- babaorhum
- 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
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é ...
Si tu trouves une version toute saisie avant que j'ai fini, fais nous signe ...
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é ...
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
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
-
- 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
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
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
- babaorhum
- 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
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
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
-
- 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
Pas mal ! Mais il y a des erreurs de frappes Je repasse par derriere En plus, le scan n'arrange rien !
De memoire, il y a quand meme quelques bugs dans le programme lui-meme.
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
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
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
- babaorhum
- 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
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 ...cgh a écrit : Pas mal ! Mais il y a des erreurs de frappes Je repasse par derriere En plus, le scan n'arrange rien !
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
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
-
- 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
J'utilise mes lhTools. En plus, je suis en train de tester une nouvelle version 0.3. J'ai vu des erreurs de desassemblage.babaorhum a écrit :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 ...cgh a écrit : Pas mal ! Mais il y a des erreurs de frappes Je repasse par derriere En plus, le scan n'arrange rien !
je continuerai dès que possible (cette semaine !).
Merci pour la décompilation version TGV, tu me diras comment tu fais à l'occasion ?
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
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
-
- 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
Bon, j'ai tape la table des mots-cles:
Comme cela, le listing est bien mieux decode
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
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
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
Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6
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 !
- Paul Tergeist
- 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
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 ) je suis un peu coincé au niveau temps.
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 ) je suis un peu coincé au niveau temps.
- babaorhum
- 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
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)
@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
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
- babaorhum
- 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
Avec ca je crois qu'on a tout ...
ouf !
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
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
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
Re: Recherche image de l'extension BASIC du SHARPENTIER n. 6
Le lien vers lhTools_Win32 est corrigé.
- babaorhum
- 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
Merci repaire ... c'est ... réparé !
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
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
-
- 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
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:
Puis, lhdump -F basic1501.frag basic1501.bin et j'obtiens:
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
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
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