*********************
RSX : GPRINT
*********************
L’autre jour je vous ai parlé que le BASIC Locomotive de l’ Amstrad était très bien foutu mais que ce n’était pas facile d’y intégrer du code binaire en moins de 2 lignes de programmation.
C’était sans compter avec les vecteurs systèmes qui permettent de faire des petits programmes parfois surprenant !
Je vous fourni également le code source ASM que vous pouvez utiliser/modifier.
Les RSX sont les suivant :
* ùGPRINT, àa$
* ùPAS, CrénageX, CrénageY
* ùGPEN, Crayon [, Papier]
* ùGMODE, (NORMAL/XOR/AND/OR)
* ùGFOND, (Transparent ON/OFF)
Listing :
10 MODE 1:p=&A400:MEMORY p-1:READ a$:FOR a=0 TO &74:POKE p+a,VAL(« & »+MID$(a$,a*2+1,2)):NEXT:SAVE »pack-gph »,b,&A400,&74:CALL &A400:|GPEN,3:a$= »DEUULIGNE RSX 01″:FOR l=-6 TO 8:|GPAS,l,8:MOVE 150-l*4,170-l*16:|GPRINT,@a$:NEXT:LOCATE 28,23:PRINT »RSX PACK #01″
20DATA«0109A421F7BDC3D1BC1AA4C333A4C351A4C35FA4C36DA4C371A4475052494ED4475041D3475045CE474D4F44C547464F4EC400EB7EB7C847235E2356C51A13D5CDFCBB110000210400CDC3BBD1C110ECC9ED5347A4DD6603DD6E022244A4C93D28077BCDE4BBDD5E027BC3DEBB7BC359BC7BC39FBB »
Téléchargement : Deuligne 05 RSX GPRINT (RETROPOKE)





0 commentaires