Mise en oeuvre détaillé du Color Pascal
Le Color Pascal tel que fourni suppose 32 Ko de RAM à partir de $0000. Les sous-programmes BASIC sont utilisés pour s'interfacer avec le terminal et l'imprimante de ligne. L'interface de cassette, pour le programme Load et Save, est implémentée dans l'interpréteur pour formater les fichiers ASCII compatibles avec la structure de fichiers de caractères de Color Editor.
Il existe plusieurs emplacements avec l'interpréteur pouvant être corrigés pour modifier la configuration du système. Le mot (2 octets) à $0B61 contient la taille de la zone RAM de votre système en octets (la RAM est supposée commencer à $0000). La bande magnétique fournie un ensemble de mot à $7800 (30720) correspondant à un système 32 Ko. Il doit être défini sur une valeur différente si (a) la taille de votre mémoire n'est pas de 32 Ko, ou (b) vous souhaitez réserver de la mémoire pour des programmes ou des données en dehors de la zone Pascal.
La mémoire requise par Pascal est organisée comme suit :
| Intervalle mémoire | Description |
|---|---|
| 0020 à 0037 | Pseudo registres pour P-machine |
| 0600 à 06EF | Pilotes de périphérique et blocs de contrôle de périphérique |
| 06F0 à 06FF | Blocs de contrôle de fichiers |
| 0700 à 0B4F | Interpréteur P-code |
| 0B50 à 0CBF | Initialisation SUPERVISOR |
| 0CC0 à 0D7F | SUPERVISOR |
| 0D80 à 109F | EDITOR |
| 10A0 à 26FF | Compilateur Pascal |
| 2700 à 77FF | Espace de travail, pile de Pascal, et mémoire de tas |
L'espace de travail est utilisé pour contenir le texte source et les programmes P-Code compilés, et sa longueur est variable. La pile Pascal de la zone RAM allouée au système Pascal. Le SUPERVISOR et l'EDITOR n'utilisent que la page la plus haute pour leur pile de données, mais le compilateur et les programmes utilisateur se voient allouer une pile commençant immédiatement après la fin de l'espace de travail courant. La mémoire de tas commence à l'adresse RAM la plus élevée et croît vers le bas vers la pile.
A noter que ni l'EDITOR ni le compilateur ne peuvent traiter un espace de travail supérieur à 32768 octets. En pratique, cela signifie que le pointeur de RAM élevée à $0B61 ne peut pas être supérieur à 7FFF, car l'EDITOR suppose que tout l'espace entre $2700 et une page en dessous de RAM élevée est disponible pour l'espace de travail.
Un deuxième emplacement est le mot à $0D78. Celui-ci contient normalement $A017, étant le principal point de rentrée dans BASIC. Le SUPERVISOR utilise cette adresse pour revenir au BASIC lorsque la commande Quit est exécutée.
Les mots à $0711 et $0B54 contiennent tous deux $7800, étant utilisé pour initialiser le pointeur de pile du système chaque fois que l'interpréteur est réentré. Environ 40 octets sont nécessaires pour la pile système.
Pour corriger le système Pascal, les procédures suivantes peuvent être suivies. Chargez le Pascal System depuis BASIC à l'aide de la commande CLOADM. Quittez immédiatement le Pascal System en entrant 'Q' pour quitter le SUPERVISOR et revenir au BASIC. Entrez tous les correctifs souhaités. Montez une bande magnétique de sortie dans le magnétophone et faites avancer la bande magnétique au-delà de l'amorce avec les boutons RECORD engagés. À l'aide de la commande CSAVEM, enregistrez votre nouvelle copie de $0600 à $26FF, avec une adresse de transfert de $0700. Pour tester votre nouveau système, chargez-le à l'aide de la commande CLOADM et testez-le avec des programmes connus.
Structure d'entrée/sortie de Pascal
La structure d'entrée-sortie est orientée table, de sorte que seules les tables doivent être modifiées pour s'adapter aux différentes configurations d'entrée/sortie. L'entrée/sortie fournie par le système standard est conçue pour interfacer le système avec BASIC en établissant des indicateurs de périphérique appropriés pour les routines de gestion de périphérique de BASIC. Le système utilise deux types de tables :
- Le File Control Block (FCB) : La procédure standard SETP ne sélectionne pas directement les entrées/sorties, mais sélectionne à la place l'un des 3 blocs de contrôle de fichier possibles situés dans la RAM de $06F0 à $06FF. Chaque FCB est organisé comme suit :
- Le Device Control Block (DCB) : Un DCB est une table de paramètres située n'importe où dans la mémoire contenant, entre autres, le Device Flag et l'adresse d'une routine de pilote de périphérique. Il est organisé comme suit :
| Champ | Déplacement | Description |
|---|---|---|
| CURBUF | 0 | Tampon de caractères pour ce fichier |
| EOLBUF | 1 | Drapeau EOLN pour ce fichier ("1" si la dernière entrée était un retour chariot). |
| DCBPTR | 2,3 | Pointeur vers le DCB pour ce fichier. |
Chaque FCB occupe 4 octets, et les 3 FCB correspondent aux "dispositifs" 0 à 2. Seuls trois FCB sont réellement configurés par la bande magnétique standard. Le premier, situé à $06F0, correspond à Device 0, et pointe vers un DCB appelé "TERM8DCB" à $0600. Le second, situé à $06F8, correspond à Device 2, supposé être le périphérique de contrôle de l'imprimante. Exemple : pour diriger votre sortie vers l'imprimante lorsque vous compilez un programme, tapez '2C' au lieu de simplement 'C'.
| Champ | Déplacement | Description |
|---|---|---|
| DCBLNK | 0,1 | Liaison aller dans la chaîne DCB (non utilisée). |
| DCBDID | 2,3 | Code ASCII pour ID de périphérique (2 caractères) |
| DCBDVR | 4,5 | Adresse du pilote de périphérique |
| DCBIOA | 6,7 | Adresse physique/drapeau de périphérique |
| DCBERR | 8 | État d'erreur (non utilisé) |
| DCBECH | 9 | Drapeau d'écho (le pilote du terminal renvoie un écho s'il n'est pas nul). |
La bande magnétique standard contient trois DCB. Le premier, connu sous le nom de «TERM8DCB», est situé à $0600. Il s'agit d'un bloc de contrôle de périphérique factice lisant ou écrivant actuellement des octets de données binaires (8 bits). Son drapeau de périphérique est défini sur 0 et l'adresse du pilote pointe vers CRTDR à $061E. Ce DCB peut être modifié par l'utilisateur pour pointer vers un gestionnaire d'entrée/sortie défini par l'utilisateur en modifiant l'adresse de périphérique et le drapeau de périphérique comme souhaité. Le deuxième DCB, appelé "TERMDCB" est à $060A, et est destiné au terminal de contrôle (Device 1). Son drapeau de périphérique est défini sur 0 et l'adresse du pilote pointe vers CRT7 à $0646. Ce gestionnaire de périphérique accède aux routines d'entrée/sortie du terminal et supprime le bit de parité en entrée. Le troisième BCD, connu sous le nom de PRNTBCD, est à $0614 et est destiné à accéder au périphérique RS-232 étant normalement connecté à une imprimante. Il correspond à Device 2, et son drapeau de périphérique est défini sur -2. Le pilote de périphérique ne peut sortir que des données puisque le gestionnaire de périphérique dans BASIC pour le transfert RS232 est un pilote de sortie uniquement. Des précautions doivent être prises lors de l'utilisation de ce périphérique pour s'assurer qu'une imprimante est correctement connectée, sinon le système "raccrochera" et ne pourra être récupéré que par le bouton RESET.
Si l'utilisateur souhaite effectuer des entrées/sorties à partir d'un sous-programme en langage machine, la séquence d'appel standard est la suivante :
- Charger le registre A avec un octet de données (s'il s'agit d'une opération de sortie ou de commande).
- Charger le registre B avec le code de la fonction d'entrée/sortie.
- Charger le registre X avec l'adresse DCB.
- JSR à REQIO ($0B23).
Le sous-programme REQIO enregistre B, X et Y, charge l'adresse physique du périphérique sur le registre X et appelle le pilote de périphérique. Ainsi, le pilote lui-même est appelé avec des données dans le registre A, le code de fonction d'entrée/sortie dans le registre B et l'adresse physique du périphérique dans le registre X. Les codes des fonctions d'entrée/sortie sont :
| Valeur | Description |
|---|---|
| 01 | Lire un octet de caractère dans le registre A |
| 02 | Écrire un octet ou un caractère du registre A |
| 04 | Renvoie l'état du périphérique dans le registre A |
| 08 | Exécuter la fonction de contrôle sur le périphérique. |
DCB standard
* Pilote 8 bits (Device 0 Pascal)
0600: 0000 TERM8DCB FDB 0 POINTEUR DE CHAINE
0602: 5450 FCC 'TP'
0604: 061E FDB CRTDR ADRESSE DE PILOTE
0606: 0000 FDB 0 TYPE DE FICHIER
0608: 00 FCB 0 ETAT ERREUR
0609: 01 FCB 1 CONTROLE ETAT
* Terminal de controle DCB (Device 1 Pascal)
060A: 0000 TERMDCB FDB 0 POINTEUR DE CHAINE
060C: 544D FCC 'TM'
060E: 0646 FDB CRT7 ADRESSE DE PERIPHERIQUE
0610: 0000 FDB 0 DRAPEAU DE PERIPHERIQUE
0612: 00 FCB 0 ETAT ERREUR
0613: 01 FCB 1 ECHO CONTROL
* Controle d'imprimante DCB (Device 2 Pascal)
0614: 0000 PRNTDCB FCB 0 POINTEUR DE CHAINE
0616: 5052 FCC 'PR'
0618: 0646 FDB CRTDR ADRESSE DE PILOTE
061A: FFFE FDB -2 TYPE DE FICHIER
061C: 00 FCB 0 ETAT ERREUR
061D: 00 FCB 0 DRAPEAU ECHO (PAS ECHO)
Liaison de sous-programmes en langage machine
Les programmes Pascal sont liés aux sous-programmes EXTERN (langage machine) avec une instruction JSR dans l'interpréteur P-Code. Les sous-programmes ne recevant pas de paramètres ne devraient présenter aucune difficulté, tant que la pile système est laissée telle qu'elle a été trouvée, et qu'ils retournent au programme appelant avec une instruction RTS. Les sous-programmes eux-mêmes doivent être situés en dehors de la zone Pascal. Ils peuvent être placés dans un espace mémoire élevé - la mémoire peut être réservée au-dessus de la pile Pascal en définissant le pointeur de fin de mémoire sous la fin réelle de votre zone RAM.
Tous les paramètres sont passés "par valeur" dans cette version de Pascal (c'est-à-dire que les valeurs réelles des paramètres sont passées, pas leur adresse), et tous les paramètres sont passés sous forme de quantités de 16 bits (2 octets). Les paramètres sont poussés sur la pile Pascal dans l'ordre où ils sont rencontrés dans l'appel de procédure ou la référence de fonction dans le programme appelant. Un sous-programme écrit par l'utilisateur doit extraire tous les paramètres de la pile avant de retourner au programme appelant, sinon le résultat sera imprévisible. Les paramètres peuvent être extraits de la pile Pascal avec l'instruction :
LDD ,--U
extrayant un paramètre et le place dans le registre D. Les sous-programmes PROCEDURE doivent revenir avec une instruction RTS. Les sous-programmes FUNCTION, cependant, doivent se terminer en chargeant le résultat de la fonction dans le registre D et en exécutant l'instruction :
STDC -2,U
avant l'instruction RTS. Cela laissera le résultat de la fonction au sommet de la pile Pascal où il sera correctement récupéré par le programme appelant. Mis à part l'opération notée ci-dessus pour extraire des paramètres, le registre U doit être laissé intact par tout sous-programme de langage machine. Le registre U est utilisé comme pointeur de pile Pascal. Notez que l'instruction PULU ne peut pas être utilisée pour extraire des paramètres Pascal car la pile grandit vers le haut plutôt que vers le bas dans la mémoire. Le registre Y doit également être laissé intact (ou restauré après utilisation) car il est utilisé par l'interpréteur comme compteur de pseudo-programme.