Trace for the PET – Commodore PET – Basic

Rivista: Compute! – Numero: 1 – Anno 1979 – Trascrizione: Francesco Fiorentini

Nell’attesa dell’uscita del numero 38 di RetroMagazine World ITA ed approfittando di un periodo di relativa calma (almeno apparente), mi sono messo a trascrivere po’ di listati.

Ho trovato questo interessante listato a pagina 84 del Nr. 1 della rivista americana Compute!
L’originale é opera di Brett Butler, che scrive:
Avrei voluto avere un programma TRACE quando ho avuto il mio PET. Alla fine l’ho scritto io stesso.
TRACE consente di vedere effettivamente l’esecuzione del Basic.
Risiede nella parte alta della memoria, occupando meno di 340 byte e visualizza ogni riga mentre viene interpretata, il che significa che mostra i comandi Basic effettivamente eseguiti, anziché limitarsi a elencare la riga. Ad esempio, se si dispone di un’istruzione condizionale come:
100 ON A GOTO 200,300,400 e la variabile A è uguale a 2, si vedrà: 100 ON A GOTO 200,300,
oppure con un’istruzione IF come:
100 IF A > 5 THEN B = B + 2
con A inferiore a 5 si vedrà: 100 IF A > 5 THEN B
con A superiore a 5 si vedrà: 100 IF A > 5 THEN B = B + 2
Un’altra caratteristica di TRACE è che mostra anche i valori valori che vengono immessi.
TRACE viene fornito come programma Basic, che POKE le istruzioni del linguaggio macchina. Trova la parte alta della memoria, ovunque si trovi, e costruisce il linguaggio macchina fino a di memoria, ovunque si trovi, e quindi costruisce il linguaggio macchina da lì. Quindi non importa se il PET è dotato di 4K,
8K, 16K o più: TRACE si troverà nel posto giusto.

Questo listato é stato pubblicato sulla rivista americana Compute! Nr. 1 dell’Autunno 1979.

Titolo: Trace for PET
Piattaforma: Commodore PET 2001-8N (8K)
Linguaggio: Basic
Versione originale: Brett Butler
Pubblicazione: Compute! – Nr. 1
Anno: Autunno 1979
Trascrizione: Francesco Fiorentini
Anno: 2022
Download: N/A
Note: Nella rivista esistono 2 versioni del programma. Una per i PET con ROM originale (questa) ed una per i PET con ROM upgrade a 32K.

Istruzioni
Copiate il programma sul vostro PET o sull’emulatore (personalmente ho utilizzato VICE con la seguente configurazione: Commodore PET 2001-8N (8K)) ed eseguite il programma con un classico RUN.
Il programma stesso vi indicherá le istruzioni:
– per allocare il programma in memoria: SYS 7866
– per attivarlo: SYS 7905
– per disabilitarlo: SYS 7851
Allocate il programma in memoria con SYS 7866, pulite la memoria BASIC con NEW e dopo aver digitato il vostro programma, attivate il Trace con SYS 7905 e lanciate il vosto programmma con RUN.

Come sempre, qui di seguito trovate il codice ottimizzato per essere copiato direttamente sul PET o su un emulatore. Suggerisco VICE con la seguente configurazione: Commodore PET 2001-8N (8K).

Attenzione – Ci siamo resi conto che nel listato i caratteri ‘>’ e ‘<‘ potrebbero venir sostituiti dai rispettivi encoding html ‘&gt’ e ‘&lt’. Nel caso, sostituite questi valori nel listato prima di copiarlo sull’emulatore.

Listato:  Trace per PET – Commodore PET – Basic

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
1 print"this program locates trace in"

2 print"any size memory that is fitted..." 

3 print"this version works only with"

4 print"original r o m pets - use another" 

5 print"version for the new (16k,32k) machines"

10 data -343,162,5,189,181,224,149,194,202,16,248,169,239,133,210,96

11 data 173,-343,133,134,173,-342,133,135,169,255,133,124,160,0,162

12 data 3,134,125,162,3,32,-272,208,249,202,208,248,32,-272,32,-272

13 data 76,106,197,162,5,189,-6,149,194,202,16,248,169,242,133,210,96

14 data 230,124,208,2,230,125,177,124,96,230,201,208,2,230,202,96,32

15 data 197,0,8,72,133,79,138,72,152,72,166,137,165,136,197,77,208,4

16 data 228,78,240,107,133,77,133,82,134,78,134,83,173,4,2,208,14,169

17 data 3,133,74,202,208,253,136,208,250,198,74,16,246,32,-54,169,160

18 data 160,80,153,255,127,136,208,250,132,76,132,84,132,85,132,86,120

19 data 248,160,15,6,82,38,83,162,253,181,87,117,87,149,87,232,48,247

20 data 136,16,238,216,88,162,2,169,48,133,89,134,88,181,84,72,74,74

21 data 74,74,32,-44,104,44,15,32,-44,166,88,202,16,233,32,-38,32,-38

22 data 165,75,197,201,240,55,165,79,208,4,133,77,240,47,16,42,201,255

23 data 208,8,169,94,32,-30,24,144,33,41,127,170,160,0,185,145,192,48

24 data 3,200,208,248,200,202,16,244,185,145,192,48,6,32,-32,200,208

25 data 245,41,127,32,-32,165,201,133,75,104,168,104,170,104,40,96,168

26 data 173,64,232,41,32,208,249,152,96,9,48,197,89,208,4,169,32,208

27 data 2,198,89,41,63,9,128,132,81,32,-54,164,76,153,0,128,192,79,208

28 data 2,160,7,200,132,76,164,81,96,76,-256,32,-263

1000 s2=peek(134)+peek(135)*256: s1=s2-343

1010 for j=s1 to s2-1

1020 read x:if x>=0 goto 1050

1030 y=x+s2:x=int(y/256):z=y-x*256

1040 poke j,z:j=j+1

1050 poke j,x

1060 next j

1070 print" === trace ==="

1080 rem by brett butler, toronto

1090 print"to initialize after load: sys";s1+17

1100 print"to enable trace: sys";s1+56

1110 print"to disable:  sys"; s1+2

1120 print"change speed with: poke"; s1+124;",x"

1130 print"==make a note of above commands=="

1140 print"save using machine language monitor:"

1150 print" .s 01,trace";

1160 s=int(s1/256):t=s1-s*256 

1170 poke134,t: poke 135,s 

1180 poke130,t: poke 131,s 

1190 s=s1:gosub1400

1200 s=s2:gosub1400

1210 print:end

1400 print",";:s=s/4096 

1410 gosub1420

1420 gosub1430

1430 t=int(s):if t>9 then t=t+7

1440 print chr$(t+48);: s=(s-int(s))*16:return