Un compilateur Basic pour VG-5000

Pour les fans du micro de Philips, ils existent! on vous l'assure :)

Modérateur : Politburo

Répondre
Jack
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 6
Enregistré le : 07 sept. 2018 13:04

Un compilateur Basic pour VG-5000

Message par Jack »

Dans le cadre de l'initiative d'Olivier Boisseau de relancer le développement de logiciels pour le VG5000 qui est une machine un peu oubliée, je me suis mis dans la tête de développer un compilateur Basic pour le VG5000.
Je ne pars pas de zéro car j'ai développé un interpréteur et un compilateur Basic (Panoramic) pour PC, MAC, Linux, Android et ... Oric Atmos.

Mais bon, le sujet n'est pas cela. Je me suis donc documenté sur le VG5000, le Z80 et j'ai commencé à développer un compilateur qui donne quelques résultats.
Il s'agit d'un compilateur qui s'exécute sur PC, qui génère un code source qui s'injecte puis se lance automatiquement dans l'émulateur de Daniel Coulom. Pour le moment, j'ai codé les variables réelles, les opérations + - * / et les fonctions trigonométriques SIN, COS, TAN, ATN, les fonctions mathématiques SQR, EXP, SQR, ... Ensuite quelques fonctionnalités spécifiques : INIT, DISPLAY, ...
Puis les instructions du Basic : GOTO, GOSUB, RETURN, IF/THEN, FOR/TO/STEP/NEXT.

Je viens vous montrer aujourd'hui un domaine dans lequel on n'attendait pas le VG5000 : le tracé de fonctions mathématiques, car me rendant compte du manque dans ce domaine, j'ai codé POINT x,y qui allume un point à l'écran (x de 0 à 79 et y de 0 à 74).

Voici ce que ça donne. J'ai pris pour exemple le tracé de la fonction sinus.

Le programme Basic:

Code : Tout sélectionner

' affiche la courbe de sinus
dim x,y
init 6,0
print "Y=SIN(X)"
' axe des x
for x=0 to 76:point x,37:next x:display
' axe des y
for y=0 to 70:point 0,y:next y:display
' courbe sinus
for x=0 to 8 step 0.1
 point x*10,37-33*sin(x)
next x:display
Le code machine généré par le compilateur:

Code : Tout sélectionner

                ; dim x,y
                ; init 6,0
7108 1E06          LD E,6
710A 1600          LD D,0
710C D5            PUSH DE
710D 1E00          LD E,0
710F 1600          LD D,0
7111 D1            POP DE
7112 CD9E00        CALL 009EH
                ; print "Y=SIN(X)"
7115 211F74        LD HL,ZTS
7118 3E59          LD A,89
711A 77            LD (HL),A
711B 23            INC HL
711C 3E3D          LD A,61
711E 77            LD (HL),A
711F 23            INC HL
7120 3E53          LD A,83
7122 77            LD (HL),A
7123 23            INC HL
7124 3E49          LD A,73
7126 77            LD (HL),A
7127 23            INC HL
7128 3E4E          LD A,78
712A 77            LD (HL),A
712B 23            INC HL
712C 3E28          LD A,40
712E 77            LD (HL),A
712F 23            INC HL
7130 3E58          LD A,88
7132 77            LD (HL),A
7133 23            INC HL
7134 3E29          LD A,41
7136 77            LD (HL),A
7137 23            INC HL
7138 AF            XOR A
7139 77            LD (HL),A
713A CD3470        CALL PRNTM
                ; for x=0 to 76
713D 010002        LD BC,512
7140 110000        LD DE,0
7143 21FF73        LD HL,_X
7146 70            LD (HL),B
7147 23            INC HL
7148 71            LD (HL),C
7149 23            INC HL
714A 72            LD (HL),D
714B 23            INC HL
714C 73            LD (HL),E
714D 011887        LD BC,34584
7150 110000        LD DE,0
7153 D5            PUSH DE
7154 C5            PUSH BC
7155 010081        LD BC,33024
7158 110000        LD DE,0
715B D5            PUSH DE
715C C5            PUSH BC
                ; point x,37
715D 00         __FOR1 NOP
715E 21FF73        LD HL,_X
7161 46            LD B,(HL)
7162 23            INC HL
7163 4E            LD C,(HL)
7164 23            INC HL
7165 56            LD D,(HL)
7166 23            INC HL
7167 5E            LD E,(HL)
7168 D5            PUSH DE
7169 C5            PUSH BC
716A 011486        LD BC,34324
716D 110000        LD DE,0
7170 CDD205        CALL 05D2H
7173 CD8300        CALL 0083H
7176 7B            LD A,E
7177 320774        LD (ADRRET),A  ; Y
717A C1            POP BC
717B D1            POP DE
717C CDD205        CALL 05D2H
717F CD8300        CALL 0083H
7182 3A0774        LD A,(ADRRET)
7185 67            LD H,A
7186 6B            LD L,E
7187 CD4670        CALL SETPOINT
                ; next x
718A C1            POP BC
718B D1            POP DE
718C 210974        LD HL,TMPFL1
718F 70            LD (HL),B
7190 23            INC HL
7191 71            LD (HL),C
7192 79            LD A,C
7193 E680          AND 128
7195 321D74        LD (SGNPAS),A
7198 23            INC HL
7199 72            LD (HL),D
719A 23            INC HL
719B 73            LD (HL),E
719C C1            POP BC
719D D1            POP DE
719E 210D74        LD HL,TMPFL2
71A1 70            LD (HL),B
71A2 23            INC HL
71A3 71            LD (HL),C
71A4 23            INC HL
71A5 72            LD (HL),D
71A6 23            INC HL
71A7 73            LD (HL),E
71A8 21FF73        LD HL,_X
71AB 46            LD B,(HL)
71AC 23            INC HL
71AD 4E            LD C,(HL)
71AE 23            INC HL
71AF 56            LD D,(HL)
71B0 23            INC HL
71B1 5E            LD E,(HL)
71B2 CDD205        CALL 05D2H
71B5 210974        LD HL,TMPFL1
71B8 46            LD B,(HL)
71B9 23            INC HL
71BA 4E            LD C,(HL)
71BB 23            INC HL
71BC 56            LD D,(HL)
71BD 23            INC HL
71BE 5E            LD E,(HL)
71BF CD1003        CALL 0310H
71C2 CDDD05        CALL 05DDH
71C5 21FF73        LD HL,_X
71C8 70            LD (HL),B
71C9 23            INC HL
71CA 71            LD (HL),C
71CB 23            INC HL
71CC 72            LD (HL),D
71CD 23            INC HL
71CE 73            LD (HL),E
71CF 210D74        LD HL,TMPFL2
71D2 46            LD B,(HL)
71D3 23            INC HL
71D4 4E            LD C,(HL)
71D5 23            INC HL
71D6 56            LD D,(HL)
71D7 23            INC HL
71D8 5E            LD E,(HL)
71D9 CD0A06        CALL 060AH
71DC 321E74        LD (SGNCMP),A
71DF 210D74        LD HL,TMPFL2
71E2 46            LD B,(HL)
71E3 23            INC HL
71E4 4E            LD C,(HL)
71E5 23            INC HL
71E6 56            LD D,(HL)
71E7 23            INC HL
71E8 5E            LD E,(HL)
71E9 D5            PUSH DE
71EA C5            PUSH BC
71EB 210974        LD HL,TMPFL1
71EE 46            LD B,(HL)
71EF 23            INC HL
71F0 4E            LD C,(HL)
71F1 23            INC HL
71F2 56            LD D,(HL)
71F3 23            INC HL
71F4 5E            LD E,(HL)
71F5 D5            PUSH DE
71F6 C5            PUSH BC
71F7 3A1D74        LD A,(SGNPAS)
71FA FE00          CP 0
71FC 280A          JR Z,$ + 12
71FE 3A1E74        LD A,(SGNCMP)
7201 FEFF          CP 255
7203 280D          JR Z,$ + 15
7205 C25D71        JP NZ,__FOR1
7208 3A1E74        LD A,(SGNCMP)
720B FE01          CP 1
720D 2803          JR Z,$ + 5
720F C25D71        JP NZ,__FOR1
7212 C1            POP BC
7213 D1            POP DE
7214 C1            POP BC
7215 D1            POP DE
                ; display
7216 CD8E0F        CALL 0F8EH
                ; for y=0 to 70
7219 010002        LD BC,512
721C 110000        LD DE,0
721F 210374        LD HL,_Y
7222 70            LD (HL),B
7223 23            INC HL
7224 71            LD (HL),C
7225 23            INC HL
7226 72            LD (HL),D
7227 23            INC HL
7228 73            LD (HL),E
7229 010C87        LD BC,34572
722C 110000        LD DE,0
722F D5            PUSH DE
7230 C5            PUSH BC
7231 010081        LD BC,33024
7234 110000        LD DE,0
7237 D5            PUSH DE
7238 C5            PUSH BC
                ; point 0,y
7239 00         __FOR2 NOP
723A 010002        LD BC,512
723D 110000        LD DE,0
7240 D5            PUSH DE
7241 C5            PUSH BC
7242 210374        LD HL,_Y
7245 46            LD B,(HL)
7246 23            INC HL
7247 4E            LD C,(HL)
7248 23            INC HL
7249 56            LD D,(HL)
724A 23            INC HL
724B 5E            LD E,(HL)
724C CDD205        CALL 05D2H
724F CD8300        CALL 0083H
7252 7B            LD A,E
7253 320774        LD (ADRRET),A  ; Y
7256 C1            POP BC
7257 D1            POP DE
7258 CDD205        CALL 05D2H
725B CD8300        CALL 0083H
725E 3A0774        LD A,(ADRRET)
7261 67            LD H,A
7262 6B            LD L,E
7263 CD4670        CALL SETPOINT
                ; next y
7266 C1            POP BC
7267 D1            POP DE
7268 210974        LD HL,TMPFL1
726B 70            LD (HL),B
726C 23            INC HL
726D 71            LD (HL),C
726E 79            LD A,C
726F E680          AND 128
7271 321D74        LD (SGNPAS),A
7274 23            INC HL
7275 72            LD (HL),D
7276 23            INC HL
7277 73            LD (HL),E
7278 C1            POP BC
7279 D1            POP DE
727A 210D74        LD HL,TMPFL2
727D 70            LD (HL),B
727E 23            INC HL
727F 71            LD (HL),C
7280 23            INC HL
7281 72            LD (HL),D
7282 23            INC HL
7283 73            LD (HL),E
7284 210374        LD HL,_Y
7287 46            LD B,(HL)
7288 23            INC HL
7289 4E            LD C,(HL)
728A 23            INC HL
728B 56            LD D,(HL)
728C 23            INC HL
728D 5E            LD E,(HL)
728E CDD205        CALL 05D2H
7291 210974        LD HL,TMPFL1
7294 46            LD B,(HL)
7295 23            INC HL
7296 4E            LD C,(HL)
7297 23            INC HL
7298 56            LD D,(HL)
7299 23            INC HL
729A 5E            LD E,(HL)
729B CD1003        CALL 0310H
729E CDDD05        CALL 05DDH
72A1 210374        LD HL,_Y
72A4 70            LD (HL),B
72A5 23            INC HL
72A6 71            LD (HL),C
72A7 23            INC HL
72A8 72            LD (HL),D
72A9 23            INC HL
72AA 73            LD (HL),E
72AB 210D74        LD HL,TMPFL2
72AE 46            LD B,(HL)
72AF 23            INC HL
72B0 4E            LD C,(HL)
72B1 23            INC HL
72B2 56            LD D,(HL)
72B3 23            INC HL
72B4 5E            LD E,(HL)
72B5 CD0A06        CALL 060AH
72B8 321E74        LD (SGNCMP),A
72BB 210D74        LD HL,TMPFL2
72BE 46            LD B,(HL)
72BF 23            INC HL
72C0 4E            LD C,(HL)
72C1 23            INC HL
72C2 56            LD D,(HL)
72C3 23            INC HL
72C4 5E            LD E,(HL)
72C5 D5            PUSH DE
72C6 C5            PUSH BC
72C7 210974        LD HL,TMPFL1
72CA 46            LD B,(HL)
72CB 23            INC HL
72CC 4E            LD C,(HL)
72CD 23            INC HL
72CE 56            LD D,(HL)
72CF 23            INC HL
72D0 5E            LD E,(HL)
72D1 D5            PUSH DE
72D2 C5            PUSH BC
72D3 3A1D74        LD A,(SGNPAS)
72D6 FE00          CP 0
72D8 280A          JR Z,$ + 12
72DA 3A1E74        LD A,(SGNCMP)
72DD FEFF          CP 255
72DF 280D          JR Z,$ + 15
72E1 C23972        JP NZ,__FOR2
72E4 3A1E74        LD A,(SGNCMP)
72E7 FE01          CP 1
72E9 2803          JR Z,$ + 5
72EB C23972        JP NZ,__FOR2
72EE C1            POP BC
72EF D1            POP DE
72F0 C1            POP BC
72F1 D1            POP DE
                ; display
72F2 CD8E0F        CALL 0F8EH
                ; for x=0 to 8 step 0.1
72F5 010002        LD BC,512
72F8 110000        LD DE,0
72FB 21FF73        LD HL,_X
72FE 70            LD (HL),B
72FF 23            INC HL
7300 71            LD (HL),C
7301 23            INC HL
7302 72            LD (HL),D
7303 23            INC HL
7304 73            LD (HL),E
7305 010084        LD BC,33792
7308 110000        LD DE,0
730B D5            PUSH DE
730C C5            PUSH BC
730D 014C7D        LD BC,32076
7310 11CDCC        LD DE,52429
7313 D5            PUSH DE
7314 C5            PUSH BC
                ; point x*10,37-33*sin(x)
7315 00         __FOR3 NOP
7316 21FF73        LD HL,_X
7319 46            LD B,(HL)
731A 23            INC HL
731B 4E            LD C,(HL)
731C 23            INC HL
731D 56            LD D,(HL)
731E 23            INC HL
731F 5E            LD E,(HL)
7320 D5            PUSH DE
7321 C5            PUSH BC
7322 012084        LD BC,33824
7325 110000        LD DE,0
7328 D5            PUSH DE
7329 C5            PUSH BC
732A CD0470        CALL OPMLF
732D 011486        LD BC,34324
7330 110000        LD DE,0
7333 D5            PUSH DE
7334 C5            PUSH BC
7335 010486        LD BC,34308
7338 110000        LD DE,0
733B D5            PUSH DE
733C C5            PUSH BC
733D 21FF73        LD HL,_X
7340 46            LD B,(HL)
7341 23            INC HL
7342 4E            LD C,(HL)
7343 23            INC HL
7344 56            LD D,(HL)
7345 23            INC HL
7346 5E            LD E,(HL)
7347 D5            PUSH DE
7348 C5            PUSH BC
7349 CDF170        CALL FNSIN
734C CD0470        CALL OPMLF
734F CD1C70        CALL OPSBF
7352 C1            POP BC
7353 D1            POP DE
7354 CDD205        CALL 05D2H
7357 CD8300        CALL 0083H
735A 7B            LD A,E
735B 320774        LD (ADRRET),A
735E C1            POP BC
735F D1            POP DE
7360 CDD205        CALL 05D2H
7363 CD8300        CALL 0083H
7366 3A0774        LD A,(ADRRET)
7369 67            LD H,A
736A 6B            LD L,E
736B CD4670        CALL SETPOINT
                ; next x
736E C1            POP BC
736F D1            POP DE
7370 210974        LD HL,TMPFL1
7373 70            LD (HL),B
7374 23            INC HL
7375 71            LD (HL),C
7376 79            LD A,C
7377 E680          AND 128
7379 321D74        LD (SGNPAS),A
737C 23            INC HL
737D 72            LD (HL),D
737E 23            INC HL
737F 73            LD (HL),E
7380 C1            POP BC
7381 D1            POP DE
7382 210D74        LD HL,TMPFL2
7385 70            LD (HL),B
7386 23            INC HL
7387 71            LD (HL),C
7388 23            INC HL
7389 72            LD (HL),D
738A 23            INC HL
738B 73            LD (HL),E
738C 21FF73        LD HL,_X
738F 46            LD B,(HL)
7390 23            INC HL
7391 4E            LD C,(HL)
7392 23            INC HL
7393 56            LD D,(HL)
7394 23            INC HL
7395 5E            LD E,(HL)
7396 CDD205        CALL 05D2H
7399 210974        LD HL,TMPFL1
739C 46            LD B,(HL)
739D 23            INC HL
739E 4E            LD C,(HL)
739F 23            INC HL
73A0 56            LD D,(HL)
73A1 23            INC HL
73A2 5E            LD E,(HL)
73A3 CD1003        CALL 0310H
73A6 CDDD05        CALL 05DDH
73A9 21FF73        LD HL,_X
73AC 70            LD (HL),B
73AD 23            INC HL
73AE 71            LD (HL),C
73AF 23            INC HL
73B0 72            LD (HL),D
73B1 23            INC HL
73B2 73            LD (HL),E
73B3 210D74        LD HL,TMPFL2
73B6 46            LD B,(HL)
73B7 23            INC HL
73B8 4E            LD C,(HL)
73B9 23            INC HL
73BA 56            LD D,(HL)
73BB 23            INC HL
73BC 5E            LD E,(HL)
73BD CD0A06        CALL 060AH
73C0 321E74        LD (SGNCMP),A
73C3 210D74        LD HL,TMPFL2
73C6 46            LD B,(HL)
73C7 23            INC HL
73C8 4E            LD C,(HL)
73C9 23            INC HL
73CA 56            LD D,(HL)
73CB 23            INC HL
73CC 5E            LD E,(HL)
73CD D5            PUSH DE
73CE C5            PUSH BC
73CF 210974        LD HL,TMPFL1
73D2 46            LD B,(HL)
73D3 23            INC HL
73D4 4E            LD C,(HL)
73D5 23            INC HL
73D6 56            LD D,(HL)
73D7 23            INC HL
73D8 5E            LD E,(HL)
73D9 D5            PUSH DE
73DA C5            PUSH BC
73DB 3A1D74        LD A,(SGNPAS)
73DE FE00          CP 0
73E0 280A          JR Z,$ + 12
73E2 3A1E74        LD A,(SGNCMP)
73E5 FEFF          CP 255
73E7 280D          JR Z,$ + 15
73E9 C21573        JP NZ,__FOR3
73EC 3A1E74        LD A,(SGNCMP)
73EF FE01          CP 1
73F1 2803          JR Z,$ + 5
73F3 C21573        JP NZ,__FOR3
73F6 C1            POP BC
73F7 D1            POP DE
73F8 C1            POP BC
73F9 D1            POP DE
                ; display
73FA CD8E0F        CALL 0F8EH
73FD E1         END POP HL
73FE C9            RET
73FF 00000000   _X DB 0,0,0,0
7403 00000000   _Y DB 0,0,0,0
7407 0000       ADRRET DB 0,0
7409 00000000   TMPFL1 DB 0,0,0,0
740D 00000000   TMPFL2 DB 0,0,0,0
7411 00000000   TMPFL3 DB 0,0,0,0
7415 00000000   TMPFL4 DB 0,0,0,0
7419 00000000   TMPFL5 DB 0,0,0,0
741D 00         SGNPAS DB 0
741E 00         SGNCMP DB 0
Le source généré pour charger et lancer le code machine:

Code : Tout sélectionner

10 REM COMPILATION PAR B5000
20 CLEAR 255,28671
30 LET A=28672
40 FOR I=0 TO 1054:READ D:POKE A+I,D:NEXT I
50 CALL &"7000"
100 DATA 229,195,7,113,225,34,7,116,193,209
110 DATA 205,210,5,193,209,205,122,4,205,221
120 DATA 5,213,197,42,7,116,229,201,225,34
130 DATA 7,116,193,209,205,210,5,193,209,205
140 DATA 13,3,205,221,5,213,197,42,7,116
150 DATA 229,201,225,34,7,116,33,31,116,205
160 DATA 170,54,205,155,38,42,7,116,229,201
170 DATA 229,197,245,213,124,205,146,112,87,125
180 DATA 31,95,125,230,1,71,124,146,146,146
190 DATA 135,128,183,71,62,1,40,3,23,16
200 DATA 253,245,66,75,38,80,88,205,229,112
210 DATA 121,135,6,0,79,9,1,0,64,9
220 DATA 68,77,3,10,203,127,40,5,126,203
230 DATA 127,40,2,62,64,209,178,119,62,224
240 DATA 2,209,241,193,225,201,217,33,157,112
250 DATA 6,0,79,9,126,217,201,0,0,0
260 DATA 1,1,1,2,2,2,3,3,3,4
270 DATA 4,4,5,5,5,6,6,6,7,7
280 DATA 7,8,8,8,9,9,9,10,10,10
290 DATA 11,11,11,12,12,12,13,13,13,14
300 DATA 14,14,15,15,15,16,16,16,17,17
310 DATA 17,18,18,18,19,19,19,20,20,20
320 DATA 21,21,21,22,22,22,23,23,23,22
330 DATA 0,106,6,8,41,48,1,25,16,250
340 DATA 201,225,34,7,116,193,209,205,210,5
350 DATA 205,132,9,205,221,5,213,197,42,7
360 DATA 116,229,201,0,30,6,22,0,213,30
370 DATA 0,22,0,209,205,158,0,33,31,116
380 DATA 62,89,119,35,62,61,119,35,62,83
390 DATA 119,35,62,73,119,35,62,78,119,35
400 DATA 62,40,119,35,62,88,119,35,62,41
410 DATA 119,35,175,119,205,52,112,1,0,2
420 DATA 17,0,0,33,255,115,112,35,113,35
430 DATA 114,35,115,1,24,135,17,0,0,213
440 DATA 197,1,0,129,17,0,0,213,197,0
450 DATA 33,255,115,70,35,78,35,86,35,94
460 DATA 213,197,1,20,134,17,0,0,205,210
470 DATA 5,205,131,0,123,50,7,116,193,209
480 DATA 205,210,5,205,131,0,58,7,116,103
490 DATA 107,205,70,112,193,209,33,9,116,112
500 DATA 35,113,121,230,128,50,29,116,35,114
510 DATA 35,115,193,209,33,13,116,112,35,113
520 DATA 35,114,35,115,33,255,115,70,35,78
530 DATA 35,86,35,94,205,210,5,33,9,116
540 DATA 70,35,78,35,86,35,94,205,16,3
550 DATA 205,221,5,33,255,115,112,35,113,35
560 DATA 114,35,115,33,13,116,70,35,78,35
570 DATA 86,35,94,205,10,6,50,30,116,33
580 DATA 13,116,70,35,78,35,86,35,94,213
590 DATA 197,33,9,116,70,35,78,35,86,35
600 DATA 94,213,197,58,29,116,254,0,40,10
610 DATA 58,30,116,254,255,40,13,194,93,113
620 DATA 58,30,116,254,1,40,3,194,93,113
630 DATA 193,209,193,209,205,142,15,1,0,2
640 DATA 17,0,0,33,3,116,112,35,113,35
650 DATA 114,35,115,1,12,135,17,0,0,213
660 DATA 197,1,0,129,17,0,0,213,197,0
670 DATA 1,0,2,17,0,0,213,197,33,3
680 DATA 116,70,35,78,35,86,35,94,205,210
690 DATA 5,205,131,0,123,50,7,116,193,209
700 DATA 205,210,5,205,131,0,58,7,116,103
710 DATA 107,205,70,112,193,209,33,9,116,112
720 DATA 35,113,121,230,128,50,29,116,35,114
730 DATA 35,115,193,209,33,13,116,112,35,113
740 DATA 35,114,35,115,33,3,116,70,35,78
750 DATA 35,86,35,94,205,210,5,33,9,116
760 DATA 70,35,78,35,86,35,94,205,16,3
770 DATA 205,221,5,33,3,116,112,35,113,35
780 DATA 114,35,115,33,13,116,70,35,78,35
790 DATA 86,35,94,205,10,6,50,30,116,33
800 DATA 13,116,70,35,78,35,86,35,94,213
810 DATA 197,33,9,116,70,35,78,35,86,35
820 DATA 94,213,197,58,29,116,254,0,40,10
830 DATA 58,30,116,254,255,40,13,194,57,114
840 DATA 58,30,116,254,1,40,3,194,57,114
850 DATA 193,209,193,209,205,142,15,1,0,2
860 DATA 17,0,0,33,255,115,112,35,113,35
870 DATA 114,35,115,1,0,132,17,0,0,213
880 DATA 197,1,76,125,17,205,204,213,197,0
890 DATA 33,255,115,70,35,78,35,86,35,94
900 DATA 213,197,1,32,132,17,0,0,213,197
910 DATA 205,4,112,1,20,134,17,0,0,213
920 DATA 197,1,4,134,17,0,0,213,197,33
930 DATA 255,115,70,35,78,35,86,35,94,213
940 DATA 197,205,241,112,205,4,112,205,28,112
950 DATA 193,209,205,210,5,205,131,0,123,50
960 DATA 7,116,193,209,205,210,5,205,131,0
970 DATA 58,7,116,103,107,205,70,112,193,209
980 DATA 33,9,116,112,35,113,121,230,128,50
990 DATA 29,116,35,114,35,115,193,209,33,13
1000 DATA 116,112,35,113,35,114,35,115,33,255
1010 DATA 115,70,35,78,35,86,35,94,205,210
1020 DATA 5,33,9,116,70,35,78,35,86,35
1030 DATA 94,205,16,3,205,221,5,33,255,115
1040 DATA 112,35,113,35,114,35,115,33,13,116
1050 DATA 70,35,78,35,86,35,94,205,10,6
1060 DATA 50,30,116,33,13,116,70,35,78,35
1070 DATA 86,35,94,213,197,33,9,116,70,35
1080 DATA 78,35,86,35,94,213,197,58,29,116
1090 DATA 254,0,40,10,58,30,116,254,255,40
1100 DATA 13,194,21,115,58,30,116,254,1,40
1110 DATA 3,194,21,115,193,209,193,209,205,142
1120 DATA 15,225,201,0,0,0,0,0,0,0
1130 DATA 0,0,0,0,0,0,0,0,0,0
1140 DATA 0,0,0,0,0,0,0,0,0,0
1150 DATA 0,0,0,0,0
Et enfin le résultat sur l'émulateur de Daniel Coulom:
Image
Avatar du membre
phm
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1361
Enregistré le : 08 avr. 2016 18:36
Localisation : Est Parisien

Re: Un compilateur Basic pour VG-5000

Message par phm »

Bravo
HEWLETT-PACKARD : The best
CANON
X-07 X-730 X-711 XR-100 XM-101 XP-110F XP-120F XP-130F XP-140

AMSTRAD CPC-464 CPC-6128 ATARI STF DAI Indata
Avatar du membre
gege
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 7141
Enregistré le : 31 janv. 2008 14:24
Localisation : Banlieue Paârisienne
Contact :

Re: Un compilateur Basic pour VG-5000

Message par gege »

Bonjour,
Super !!
J'adore le VG5000.
"Plus qu'à" trouver comment répandre cette bonne parole parmi les pauvres VG5000 limités au lecteur de cassette...
Merci, bravo.
G.E.
rjiji
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 1
Enregistré le : 22 avr. 2022 19:07

Re: Un compilateur Basic pour VG-5000

Message par rjiji »

il y pas que le lecteur de cassette.. :D

https://forum.system-cfg.com/viewtopic.php?f=18&t=3903
Répondre

Retourner vers « Philips VG-5000 »