Turbo Pascal porting: dal 7.0 (DOS) al 3.01 (CP/M) – parte 2

di Francesco Sblendorio

Dopo la prima parte, dedicata alla preparazione dell’ambiente di sviluppo, eccoci finalmente “sul pezzo”, pronti ad affrontare le differenze tra le versioni 7.0 per DOS e 3.01 per CP/M di Turbo Pascal.

Dichiarazione delle STRINGhe.

In Turbo Pascal 7 siamo abituati a usare il tipo STRING senza specificarne la lunghezza. Nelle dichiarazioni di variabili si assume come default la lunghezza massima di 255 caratteri, mentre nelle dichiarazioni dei parametri di procedure e funzioni viene assunta una lunghezza variabile, in funzione del parametro effettivo fornito.

Tutto ciò in Turbo Pascal 3 non è possibile: bisogna sempre specificare la lunghezza massima tra parentesi quadre. Per comodità potete definire un nuovo tipo e usarlo al posto di “STRING” senza specifica della lunghezza massima:

TYPE STRINGVAR = STRING[255];
VAR s:STRINGVAR;

Short-circuit boolean evaluation: non c’è.

Nelle istruzioni dove è prevista la valutazione di una condizione fate particolare attenzione che ogni parte delle espressioni boolean verrà valutata. Su questo stesso sito c’è stato un approfondimento in merito: ecco il link all’articolo completo.

Dimenticate USES CRT;

In Turbo Pascal 3 non esistono le UNIT (cioè i moduli pre-compilati e da linkare a parte). L’unico modo di fare programmazione modulare è tramite la direttiva di inclusione:

{$I NOMEFILE.INC}

In ogni caso, parte delle procedure che siamo abituati a considerare parte del modulo CRT della versione 7, nella versione 3 sono built-in nel linguaggio, e non c’è in questo caso da includere nulla. Mi riferisco alle procedure basiche di gestione dello schermo:

CLRSCRCancellazione schermo
GOTOXY(col,row)Posizionamento cursore
CLREOLCancella fino a fine riga
INSLINEInserimento riga
DELLINERimozione riga

Tali funzioni sono quindi utilizzabili as-is e senza particolari problemi. 

ATTENZIONE: ricordiamoci però che il loro funzionamento dipende dalla fase di setup dell’ambiente (come visto nella parte 1): le chiamate a tali procedure vengono tradotte nelle sequenze di escape del terminale per cui è stato configurato l’ambiente. Ciò significa che l’eseguibile che si produrrà non avrà il comportamento atteso nel momento in cui verrà lanciato da un terminale non compatibile con quello selezionato in fase di setup.

La funzione Readkey 

Questa funzione non è presente in Turbo Pascal 3. Al suo posto, bisogna usare la procedura standard READ applicata al file built-in di nome KBD (che rappresenta la tastiera)

Codice Turbo Pascal 7.0Codice Turbo Pascal 3.01
var ch:char;
…
ch := Readkey;		var ch:char;
…
Read(KBD,ch)

Gestione dei file: la procedura APPEND

Nel caso abbiate la necessità di gestire file, sappiate che la funzione di APPEND, cioè di apertura di un file in scrittura in coda, non esiste nella versione CP/M di Turbo Pascal 3. In questo stesso sito abbiamo già affrontato e risolto il problema relativamente ai file di testo: ecco il link all’articolo completo.

Finisce qui la seconda parte. Buon coding a tutti!

Riferimenti esterni:


Commenti

Posta un commento

Post popolari in questo blog

Commodore 16: CPU 7501/8501 FPGA Replacement

Immagine
Un Commodore 16 redivivo dopo la sosituzione della CPU con la sua replica in FPGA di Francesco Sblendorio Uno dei maggiori problemi che affliggono gli utenti dei retro-computer Commodore della serie 264 (C16, Plus/4, C116) è rappresentato dalla fragilità della CPU, il processore MOS 7501/8501. Scalda molto e molto velocemente, ed è uno dei due componenti che si rompono più facilmente, specie dopo un bel trentennio di vita. Implementazione FPGA Fortunatamente la tecnologia FPGA ci viene in aiuto, permettendo di re-implementare teoricamente qualunque chip del passato… pur di trovare qualcuno in grado di farlo! 🙂 Piotr Bugaj  e  Mark Smith  hanno realizzato un  componente sostitutivo della CPU 7501/8501 completamente in FPGA , al momento venduto sul sito  SellMyRetro  al prezzo di  40 sterline inglesi . Eccolo nella sua interezza: Notare in basso a sinistra la freccetta bianca con l’indicazione   “1” : indica il verso corretto di inserimento nello zoccolo, basta far corrispondere il simb
Approfondisci »

Zork, CP/M, le adventure Infocom e la personalizzazione del terminale

Immagine
Source:  https://archive.org/serve/ZorkI_r75_earlier_4amCrack di  Francesco Sblendorio Zork è il nome di una delle text adventure più famose della storia, rilasciata da Infocom per la prima volta nel 1977. Non la prima, che fu Colossal Cave Adventure (sempre nel 1977), ma di sicuro un nome che evoca in modo iconico questa categoria di giochi. In comune col capostipite prima citato ha l'essere stata sviluppata in prima battuta per il mainframe PDP-10 . Infocom ha distribuito successivamente decine di altre text adventure (ricordiamo Hitchhiker's guide to the galaxy ) basate sullo stesso modello. A differenza però del capostipite Colossal Cave Adventure che fu scritto in FORTRAN, tutte le text adventure di Infocom sono state in un linguaggio specifico per descrivere il mondo all'interno del quale si muove il giocatore di una adventure: oggi si direbbe un DSL ( D omain S pecific L anguage ). Linguaggio ZIL e Z-Machine multipiattaforma Questo linguaggio fu denominato
Approfondisci »

APPENDere in Turbo Pascal per CP/M

Immagine
di  Francesco Sblendorio Prerequisiti tecnici: conoscenza della gestione dei file di testo in Turbo Pascal Consideriamo un programma scritto in  Turbo Pascal 3  che si occupi, in sequenza, di: Aprire un file di testo in scrittura, e scriverci una riga Aprire lo stesso file in  append , quindi scrittura in coda, e aggiungere una seconda riga Aprire lo stesso file in lettura e stamparne il contenuto a video Per esempio… PROGRAM TestAppend; VAR f: TEXT ; s: STRING [80]; BEGIN ASSIGN (f,'test.txt'); REWRITE (f); WRITELN (f,'First row'); CLOSE (f); APPEND (f); WRITELN (f,'Second row'); CLOSE (f); RESET (f); WHILE NOT EOF (f) DO BEGIN READLN (f,s); WRITELN (s) END ; CLOSE (f); END . Se compilato in  Turbo Pascal 3  per  MS-DOS , fila tutto liscio. Se compilato invece in  Turbo Pascal 3  ma sotto  CP/M  in fase di compilazione riceveremo il seguente messaggio di errore: Error 41: Unknown identifier or syntax error. Press <ESC>
Approfondisci »

Turbo Pascal porting: dal 7.0 (DOS) al 3.01 (CP/M) – parte 1

Immagine
di  Francesco Sblendorio Lo scopo di questa mini-serie di articoli è riuscire a trasportare programmi scritti anni fa in   Turbo Pascal 7.0   (di cui conserviamo ancora i sorgenti) sotto MS-DOS alla versione   3.01 , disponibile sotto   CP/M , e quindi per ampliare il parco software “retrocomputeristico”. L’idea mi è venuta un giorno in cui ho desiderato veder girare sul mio  Commodore 128  una mia vecchia implementazione del classico gioco delle Torri di Hanoi che scrissi nel 1996 per MS-DOS. Tale implementazione è presente a questo  link . Il risultato è presente su github:  https://github.com/sblendorio/hanoi-cpm . Ha il limite di funzionare bene solo su terminali di tipo  KayPro  e  Commodore 128 , ma i concetti espressi in questa mini-serie di articoli sono generali anche se si farà riferimento ogni tanto in modo specifico alla macchina  Commodore . Partiamo col procurarci una copia di Turbo Pascal 3.01 per CP/M: è disponibile presso  RetroArchive :  http://www.retroarchive.org/cp
Approfondisci »

YAZE: un ottimo emulatore Z80 + CP/M

Immagine
di  Francesco Sblendorio Per chi vuole cimentarsi con l’utilizzo e lo sviluppo su sistemi   CP/M   ci sono essenzialmente due possibilità: usare una macchina reale oppure un emulatore. In questo articolo segnalo un ottimo emulatore di una “generica” macchina equipaggiata di CPU   Z80   nonché del sistema operativo CP/M, che utilizza come input/output la finestra di terminale del nostro sistema operativo preferito (che sia   Linux ,   Windows ,   Mac OS X ). L’emulatore in quesitone si chiama  YAZE , ed è di un certo pregio in quanto, oltre a una perfetta emulazione della CPU  Z80 , consente in maniera relativamente semplice lo scambio di file col sistema host, e viene già fornito di un certo numero di software interessanti, preinstallati e funzionanti, tra cui i compilatori  HiTech C  e  Turbo Modula-2   di  Borland . Download e build YAZE è multipiattaforma, potete scaricarne i sorgenti da questo sito, da cui suggerisco di scegliere l’ultima versione disponibile (a oggi la  2.40.2 ):
Approfondisci »

CP/M su Commodore 128: terminali e sequenze di escape

Immagine
di  Francesco Sblendorio Se avete già letto la prima puntata   allora avete già fatto qualche esperimento con il vostro Commodore 128 i n modalità CP/M . Questa volta ci occuperemo della gestione dello schermo e del modo in cui il sistema operativo gestisce l’output verso l’utente. CP/M  nasce negli anni ’70, progettato per funzionare per macchine diverse tra loro ma che condividano la CPU  Intel 8080  (alternativamente il compatibile  Zilog Z80 ). Erano macchine di solito vendute anche  senza  tastiera e monitor ma con connettori seriali attraverso cui era possibile collegare dei  terminali . Da questo punto di vista era simile a  UNIX : l’input/output è uno  stream  sequenziale di caratteri da e verso il terminale. Ciò significa che per avere la possibilità di controllare l’esatta posizione dei messaggi sullo schermo il terminale deve prevedere determinate “sequenze di controllo” (rispetto a cui il sistema operativo è agnostico) per posizionare il cursore, cancellare lo schermo, dar
Approfondisci »

Modi di andare a capo

Immagine
The movie "The Shining", directed by Stanley Kubrick, based on the novel by Stephen King. Seen here, Jack Nicholson as Jack Torrance at a typewriter. Initial theatrical release May 23, 1980. Screen capture. © 1980 Warner Bros. Credit: © 1980 Warner Bros. / Flickr / Courtesy Pikturz. Image intended only for use to help promote the film, in an editorial, non-commercial context. di  Francesco Sblendorio Chi utilizza Windows (e chi ha a che fare con chi utilizza   Windows ) lo sa bene: in un file di testo le righe terminano con   due   caratteri:   CR   e   LF   (rispettivamente   ASCII   13   e   10 ). Tutti gli altri sistemi operativi (per esempio   Linux ,   Mac OS X   e qualunque altro   UNIX ) ne utilizzano solo uno,   LF   ( ASCII   10 ), quindi per passare da un sistema all’altro, quando l’editor non lo fa automaticamente, occorre una conversione per passare da un tipo di “ritorno a capo” all’altro (un esempio su tutti: il client classico   ftp , che prevede i comandi “ AS
Approfondisci »

Un MIST-ico Amiga

Immagine
di  Francesco Sblendorio Diciamolo pure: noi appassionati di vecchi computer abbiamo un problema ineludibile, che prima o poi si presenterà. Il tempo passa, e le cose si rompono per usura: possiamo sostituire i pezzi guasti, ma si tratta sempre di oggetti che non vengono più prodotti. Una soluzione “soft” è costituita dagli emulatori software: possiamo così conservare “al sicuro” (fino a un certo punto: il tempo passa anche per gli oggetti lasciati a riposo) le nostre preziose vecchie macchine e usare moderni PC che le emulino. Ovviamente però si perde tutto il “feel”, tutto il gusto di lavorare con la vera macchina, essendo quanto mai evidente che trattasi sempre di una “finta”. C’è una possibilità intermedia tra l’uso delle vecchie macchine e qualcosa di più nuovo: l’emulazione hardware. Ciò è reso possibile dalla tecnologia  FPGA  ( Field Programmable Gate Array ): si tratta di circuiti integrati le cui funzionalità sono programmabili via software. In sostanza all’avvio di una macch
Approfondisci »

CP/M su Commodore 128: non solo “DIR”

Immagine
di  Francesco Sblendorio “ […] oltre alla modalità BASIC 7.0 e alla modalità 64, grazie alla presenza del microprocessore Z80, il Commodore 128 può far girare il sistema operativo CP/M, rendendo possibile l’utilizzo di una sterminata libreria di software professionale ” Queste, grossomodo, erano le parole con cui le riviste italiane del 1985 presentavano in pompa magna la possibilità del Commodore 128 di funzionare con il sistema operativo CP/M, per la stragrande maggioranza di utenti Commodore sigla semi-sconosciuta e quasi “mistica”, specie per la possibilità di utilizzare una “ sterminata libreria di software professionale “. Per quelli che, come me, all’epoca erano ragazzini squattrinati ma appassionati di programmazione che dovevano però accontentarsi di un Commodore 64, tale presentazione sembrava promettere un El Dorado informatico. Salvo poi riuscire ad accedere fisicamente al mitico Commodore 128 del compagno di scuola più fortunato, trovare nel mucchio di dischi il disco di b
Approfondisci »

MIST how-to: Amiga con Kickstart 1.3 e supporto Hard Disk IDE

Immagine
di  Francesco Sblendorio Prima di passare definitivamente al mondo PC il computer che ho maggiormente utilizzato e sfruttato fino in fondo è stato un modesto Amiga 500 (Kickstart 1.3) con 1MB di RAM e con il solo floppy drive interno. Ci facevo di tutto ma in maniera dannatamente scomoda dato il continuo disk switching, che l’abitudine mi faceva apparire come normale. Desideravo tanto un hard disk ma non l’avevo: l’A590 era una sorta di sogno proibito: perché non replicare oggi, attraverso il   MIST , un Amiga con Kickstart 1.3 e supporto per gli hard disk? Ecco quindi un breve tutorial su come realizzarlo. Versioni Kickstart e supporto IDE Il core  minimig  del  MIST  prevede l’uso degli hard disk sotto forma di file immagine HDF o come partizione della scheda SD. Il controller implementato è però di tipo  IDE  come quello di un A600, mentre le release del Kickstart inferiori alla  2.05  (e quindi la 1.3 ma anche la 2.04 di A500+) non lo prevedono. Immaginate il boot di un Amiga 600/1
Approfondisci »