The Oric Site

Nº242 (6/2010)

Download :

Juin, c'est le moment de la Visu d'été, en général la plus fréquentée et la plus fournie en matériels et en démonstrations. Vous pourrez notamment y tester le Super-Oric. A l'heure où j'écris ces lignes, les préparatifs sont en plein boum. Je vous invite donc à vous faire un petit plaisir. Vous y rencontrerez les oriciens qui animent les colonnes de votre mag. Vous pourrez aussi y échanger vos idées, vos problèmes, et vos joies, y trouver le matériel qui vous manque (les cartes contrôleur par exemple, qui cette année sont à l'honneur). Tant que vous y êtes, offrez-vous une petite bouffe conviviale au "Relais des deux gares". Bonne lecture et à bientôt.

Visu le 19 Juin 2010 de 14 heures à 17 heures au 1er étage du 17 rue des Petits Hôtels, PARIS 10e Deux listings Basic: Oil-Leak & Squash! Un jeu en développement: Collapse! Un ordinateur évolué à base de: 65816! Les 101 écrans de "The Hellion"!

sommaire

Adresses CEO / Sommaire / Editorial Page 2

Courrier Oricien Page 3-6

Petites Annonces & Bonnes Adresses Page 6

Nostalgie : Quelques Logos de Différentes Marques Page 7

Aide Rush Hour Supplément n°5 (3/3) Page 8-9

Les Calembours de Schizo Dino Page 8 & 9

La Librairie Oric : Manuel du Microdisc et du Sedoric Page 10-11

Divertissements Mathématiques et Logiques Page 12

Le Coin Sudoku Oric : Les Grilles 13 à 18 de Mars Page 13

Listing Basic : Oil-Leak Page 14-16

Collapse : Suggestions pour la Syntaxe Assembleur Page 17-18

Listing Basic : Squash Page 19

Collapse : La Genèse d'un Jeu en Basic (2/3) Page 20

Les 101 Ecrans de "The Hellion" Page 21-24

Réponses n°78 : Sujets n°230 et 231 Page 25-26

Dino aime les Proverbes Page 25 & 26

Brève : La Librairie Oric Page 27

Les Limites des Commandes STORE et RECALL Page 28

Ordinateur Evolué à Base de 65816 Page 29-30

Collapse: suggestion concernant la syntaxe assembleur
par Mickaël P.

J’aurais une suggestion concernant la syntaxe assembleur, il serait probablement une bonne idée de standardiser la syntaxe utilisée pour les nombres en assembleur, je pense qu’utiliser "$1234" pour l’hexadécimal est moins confus que partir du principe que s’il n’y à pas de préfixe alors c’est de l’hexadécimal, et ça permet de mixer décimal et hexadécimal dans le même programme:
9800 JSR $D8C8 ; prendre un entier dans X
9803 CPX #23 ; Vérifie coordonnées
9805 BCC $980A
9807 JMP $D8C2 ; si supérieur alors ILLEGAL QUANTITY ERROR
980A TXA
980B JSR $DA0C ; calculer adresse ligne à scroller
980E LDA $1F ; stockée en #1F-#20
9810 ADC #40 ; ajouter 40 pour connaître adresse ligne d’arrivée
9812 STA $00 ; stockée en #00-#01
9814 TSX ; sauver la retenue C
9815 LDY $20
9817 STY $01
9819 TXA
981A BCC $981E
981C INC $01 ; si C=1 incrémenter poids fort adresse arrivée
981E LDY #37 ; 37 caractères à déplacer
9820 LDA ($1F),Y ; adresse de départ
9822 STA ($00),Y ; adresse d’arrivée
9824 DEY
9825 BNE $9820 ; jusqu’à Y=0
9827 RTS
L’avantage c’est que ça facilite plus tard l’utilisation d’assembleurs croisés, vu qu’ils ont tous plus ou moins adopté cette convention.
A ce propos, il y a dans le OSDK le programme Bin2Txt qui support la conversion de fichiers binaires vers format basic:
Bin2Txt -s -f
[options]:
«-s[1|2|4] For BYTE,WORD,LONG format.
«-e[1|2] Define endianness: 1 for little endian, 2 for big endian
«-f[1|2|3] For C, ASM, BASIC.
«-h[1|2] 1 for hexadecimal, 2 for decimal
«-l[b:s] Defines line values for BASIC (-l10:10)
«-n[16|32|..] Defines the number of entries per line.
Donc rien n’empêche quelqu’un de taper le listing assembleur avec une vraie syntaxe compatible XA, avec les labels, les définitions de symboles, les tables, les macros, etc. d’assembler avec le OSDK, et de convertir le résultat en un fichier source BASIC avec des lignes de data, style comme ça:
bin2txt -f3 -h1 example.bin example.bas bla
10 REM bla
20 DATA #4D,#5A,#90,#00,#03,#00,#00,#00,#04,#00,#00,#00,#FF,#FF,#00,#00
30 DATA #B8,#00,#00,#00,#00,#00,#00,#00,#40,#00,#00,#00,#00,#00,#00,#00
40 DATA #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
50 DATA #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#E8,#00,#00,#00
60 DATA #0E,#1F,#BA,#0E,#00,#B4,#09,#CD,#21,#B8,#01,#4C,#CD,#21,#54,#68
bin2txt -f3 -h1 -l5000:1 example.bin example.bas bla
5000 REM bla
5001 DATA #4D,#5A,#90,#00,#03,#00,#00,#00,#04,#00,#00,#00,#FF,#FF,#00,#00
5002 DATA #B8,#00,#00,#00,#00,#00,#00,#00,#40,#00,#00,#00,#00,#00,#00,#00
5003 DATA #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00
5004 DATA #00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#00,#E8,#00,#00,#00
5005 DATA #0E,#1F,#BA,#0E,#00,#B4,#09,#CD,#21,#B8,#01,#4C,#CD,#21,#54,#68
En syntaxe XA le code ressemblerait à ca:
-----------------------------------
#define start_adress $1F
#define end_adress $0

; ROM routine that reads an integer and stores it in the X register
#define ROM_READINTEGER $D8C8

; ROM routine that aborts a BASIC program and displays an error message
#define ROM_ILLEGALQUANTITYERROR $D8C2

; Given a line number in the A register, returns in $1f-$20 the line adress
#define ROM_COMPUTEADRESSLINE $DA0C

Start:
; prendre un entier dans X
JSR ROM_READINTEGER
; Vérifie coordonnées
CPX #23 BCS Error

TXA
JSR ROM_COMPUTEADRESSLINE ; calculer adresse ligne à scroller

; Ajouter 40 pour connaître adresse ligne d’arrivée
CLC
LDA start_adress+0
ADC #40
STA end_adress+0
LDA start_adress+1
ADC #0
STA end_adress+1

; Boucle qui copie les 37 caractères à déplacer dans une ligne
LDY #37 Loop:
LDA (start_adress),Y
STA (end_adress),Y
DEY
BNE Loop
RTS

Error:
JMP ROM_ILLEGALQUANTITYERROR
-----------------------------------

Désolé pour les commentaires en anglais, l’habitude :)

BROWSE

NUMEROS

[247] - [246] - [245] - [244] - [243] - [242] - [241] - [240] - [239] - [238] - [237]

YEAR

2013 - 2012 - 2011 - 2010 - 2009 - 2008 - 2007 - 2006 - 2005 - 2004 - 2003 - 2002 - 2001 - 2000 - 1999 - 1998 - 1997 - 1996 - 1995 - 1994 - 1993 - 1992 - 1991 - 1990


Hosted By oric.org server		www.oric.org V 2.6		CNIL ID : 872370		Write to Webmaster © 2000-2024	Built in 0.16 Seconds