/[projet1]/users/waskol/tools/Readme.txt
Defence Force logotype

Contents of /users/waskol/tools/Readme.txt

Parent Directory Parent Directory | Revision Log Revision Log


Revision 108 - (show annotations)
Sat Jun 20 14:18:57 2009 UTC (10 years, 11 months ago) by waskol
File MIME type: text/plain
File size: 4545 byte(s)


1 What is "taptap" ?
2 ------------------
3 It is a command line utility for windows, written in in Delphi(kind of Object Pascal).
4 It permits to work on oric tap files.
5
6
7 Syntax :
8 --------
9 Catalog :
10 taptap.exe cat <File>
11 <File>.... : Tap file to be processed - mandatory
12 Example : taptap.exe cat myfile.tap
13
14 Rename an Oric file in a .tap File :
15 taptap.exe ren <TapFile> <Newname> <FileIndex>
16 <FromFile>. : Tap file to be processed - mandatory
17 <NewName>.. : New file name of the oric file to be processed -mandatory
18 The New oric file name can be specified
19 in 2 different ways
20 - as a string : in that case it must be
21 enclosed between quotes
22 examples : "Space Invaders", "Terror of the deep",...
23 - as a succession of 8 bits hexadecimal
24 values (2 digits each), without any space
25 It then permits to have some text attributes
26 into the oric title : ink or paper color, blink...
27 (please refer to Oric manual for values).
28 In that case, the string must be preceeded by
29 the # symbol and the null hexadecimal values (INK 0)
30 are forbidden.
31 example : #0148656C6C6F07
32 ...will print "Hello" in red on the status line
33 while loading.
34 <FileIndex> : File index in Tap File, 0 is the 1st file,
35 index 1 the 2nd, etc - Mandatory
36
37 Set Auto run On or Off :
38 Simply write
39 taptap.exe AutoOn <TapFile> <FileIndex>
40 or
41 taptap.exe AutoOff <TapFile> <FileIndex>
42
43
44 Practical example of use :
45 --------------------------
46 let's see a practical example, I took the game Galaxian
47 if I type in a command line:
48
49 taptap.exe cat galaxian.tap
50
51 ..I obtain
52 ____________________________________________
53 Catalog of "galaxian.tap"
54 Index.... : 0
55 Name..... : GALAXIANS
56 File kind : BASIC
57 Auto..... : Yes (#C7)
58 Starting Address : #0501
59 Ending Address : #16F1
60 Size............ : 4593 bytes
61
62 Index.... : 1
63 Name..... : GALAXIAN.1
64 File kind : Machine code or memory bloc
65 Auto..... : No
66 Starting Address : #5800
67 Ending Address : #6FFF
68 Size............ : 6144 bytes
69 ____________________________________________
70
71 thus, there are two files on the tape.
72 If I want to rename the BASIC program, I just do :
73 Code:
74 taptap ren galaxian.tap "super game !" 0
75
76 And now, if I ask for the catalog :
77
78 ____________________________________________
79 Catalog of "galaxian.tap"
80 Index.... : 0
81 Name..... : super game !
82 File kind : BASIC
83 Auto..... : Yes (#C7)
84 Starting Address : #0501
85 Ending Address : #16F1
86 Size............ : 4593 bytes
87
88 Index.... : 1
89 Name..... : GALAXIAN.1
90 File kind : Machine code or memory bloc
91 Auto..... : No
92 Starting Address : #5800
93 Ending Address : #6FFF
94 Size............ : 6144 bytes
95 ____________________________________________
96
97 Just what we expected...
98
99 But we can also do some nice printing (blinking cyan for instance) :
100 cyan --> #06 (TEXT Attribute for cyan)
101 blink --> #0C
102 G-->#47 (ASCII codes in Hex format)
103 A-->#41
104 L-->#4C
105 A-->#47
106 X-->#58
107 I-->#49
108 A-->#41
109 N-->#4E
110 Back to white + inverse for the 'B' of BASIC of the status line -->#87
111
112 that gives us :
113
114 taptap ren galaxian.tap #060C47414C475849414E87 0
115
116
117 convert to wav if you want to see something when loading this... Wink
118
119
120 Remove autoboot in order to get the listing ?
121 Code:
122 taptap autooff galaxian.tap 0
123
124
125 Then load it in Euphoric, LIST, and...
126 Code:
127 1 IFPEEK(#5800)<>#D0THENCLOAD"":RUN
128 5 DIM HS(8),HS$(8)
129 7 PRINTCHR$(17);CHR$(6);
130 20 FOR T=1 TO 8:HS(T)=50:HS$(T)="ALPHA":NEXT T
131 30 SOUND 1,0,0:SOUND 2,0,0:PLAY 0,0,0,0
132 40 DATA 7,60,80,100,120,140,160,180
133 42 DATA 6,70,90,110,130,150,170
134 44 DATA 4,90,110,130,150
135 46 DATA 4,90,110,130,150
136 48 IF PEEK(#9768)=83 GOTO 100
137 50 DOKE#9600,0:CALL#6C00
138 60 IF DEEK(#9600)=30418 THEN POKE#9768,83:GOTO 100
139 70 GOSUB 9500
140 100 GOSUB 9000
141 ....
142
143
144
145 How to compile ?
146 ----------------
147 It can be compiled with any version of Delphi (such like Turbo Delphi, wich is free for download),
148 and may be with Lazarus (Open Source Delphi "clone").
149
150 While Delphi can compile only for Windows OS, Lazarus should be able to compile for Linux, MacOs, etc...
151
152 Usefull links :
153 ---------------
154 Turbo Delphi : http://www.turboexplorer.com/delphi
155 Lazarus : http://www.lazarus.freepascal.org/

  ViewVC Help
Powered by ViewVC 1.1.26