Notes

Disk info for 165_Volume_165.dsk:

File Name: riag_010_165_Volume_165/165_Volume_165.dsk
Disk Name: DISK VOLUME #254
Physical Size (bytes): 143360
Free Space (bytes): 75776
Used Space (bytes): 67584
Physical Size (KB): 140
Free Space (KB): 74
Used Space (KB): 66
Archive Order: DOS
Disk Format: DOS 3.3
Total Sectors: 560
Free Sectors: 296
Used Sectors: 264
Tracks On Disk: 35
Sectors On Disk: 16

Disk directory for 165_Volume_165.dsk:

riag_010_165_Volume_165/165_Volume_165.dsk DISK VOLUME #254
* A 002 THE FONT MACHINE
* B 011 TFM
* B 005 ASCII.SET
* B 005 BLIPPO BLACK.SET
* B 005 BYTE.SET
* B 005 COLOSSAL.SET
* B 005 COUNT.SET
* B 005 CYRILLIC.SET
* B 005 ESPERANTO.SET
* B 005 FLOW.SET
* B 005 GOTHIC.SET
* B 005 GRAPHIC.SET
* B 005 GREEK.SET
* B 005 KATAKANA.SET
* B 005 MIRROR.SET
* B 005 OUTLINE.SET
* B 005 PINOCCHIO.SET
* B 005 PUDGY.SET
* B 005 ROMAN.SET
* B 005 SLANT.SET
* B 005 STOP.SET
* B 005 UPSIDE DOWN.SET
* T 004 HELP.0
* T 004 HELP.1
* T 007 HELP.2
* T 004 HELP.3
* T 006 HELP.4
* T 003 HELP.5
* T 006 HELP.6
* T 005 HELP.7
* T 004 HELP.8
* T 007 HELP.9
* B 002 DMP.DEFFONT.OBJ0
* B 002 FX.DEFFONT.OBJ0
* B 002 PRO.DEFFONT.OBJ0
B 002 DEFFONT.OBJ0
* A 009 SETUP
* B 002 PAR.PRINTER.OBJ0
* B 002 GRAPPLER.PRINTER.OBJ0
* B 002 GRAPPLER+.PRINTER.OBJ0
* B 002 DUMPLING.PRINTER.OBJ0
T 012 SSC.PRINTER
DOS 3.3 format; 75,776 bytes free; 67,584 bytes used.

Text found in 165_Volume_165.dsk/DUMPLING.PRINTER.OBJ0.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 4C B7 03 AD 05 03 0A 0A 0A 0A 8D 18 03 A8 A9 07 L7.-.... .....().
$000010 20 C1 03 99 81 C0 60 AC 18 03 20 C1 03 99 80 C0 A...@`, .. A...@
$000020 60 48 B9 81 C0 29 02 D0 F9 68 60 .. .. .. .. .. `H9.@).P yh`
** END **

Text found in 165_Volume_165.dsk/GRAPPLER+.PRINTER.OBJ0.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 4C AE 03 AD 05 03 0A 0A 0A 0A 8D 18 03 60 AC 18 L..-.... .....`,.
$000010 03 48 B9 80 C0 29 0E 49 02 D0 F7 68 99 80 C0 60 .H9.@).I .Pwh..@`
** END **

Text found in 165_Volume_165.dsk/GRAPPLER.PRINTER.OBJ0.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 4C AE 03 AD 05 03 0A 0A 0A 0A 8D 18 03 60 AC 18 L..-.... .....`,.
$000010 03 48 B9 81 C0 29 0E 49 02 D0 F7 68 99 81 C0 99 .H9.@).I .Pwh..@.
$000020 82 C0 99 84 C0 60 .. .. .. .. .. .. .. .. .. .. .@..@`
** END **

Text found in 165_Volume_165.dsk/HELP.0.txt:

***************************************
* *
* The Font Machine *
* *
***************************************

Help is available on the following
subjects--

1. What does The Font Machine do?
2. What do I need to use TFM?
3. How do I load a font into the
printer?
4. How do I switch between fonts?
5. What does the Test do?
6. How can I load a font from within
my own program?
7. How do I create a font?
8. How do I install a font into TFM?
9. What is the licensing agreement
for TFM?

Text found in 165_Volume_165.dsk/HELP.1.txt:


WHAT DOES THE FONT MACHINE DO?


Your Apple DMP, Epson FX-80, or
C.Itoh 8510 (or similar printer) has
the capability of printing in two
different character styles--either the
"normal" character set that is always
available, or a special set that you
can define. Unfortunately, though,
defining that character set was at best
a difficult job.

The Font Machine (TFM) is a program
that allows you to take the print
styles developed using the Anamatrix
font editor of the Dos Tool Kit and
transfer them into your printer. TFM
is fully copyable and modifiable.

Text found in 165_Volume_165.dsk/HELP.3.txt:


HOW DO I LOAD A FONT INTO THE PRINTER?

Begin by making sure that your
printer is on and that the green
"SEL" light is on. Now, boot the TFM
disk. You should see a list of the
fonts that TFM currently knows about.
Select the font you want, find the
number to the left of the font's name,
and enter the number and press RETURN.
TFM will fetch the font from the disk
and load it into your printer. When
the font is completely transferred, TFM
will wait for you to press RETURN again
before returning you to the TFM menu.

Once a font has been loaded into
your printer, it will remain until the
printer is turned off or another font
is sent. Turning off your COMPUTER
will not clear the font.

Text found in 165_Volume_165.dsk/HELP.5.txt:


WHAT DOES THE TEST DO?

If you would like to see all of the
fonts that TFM knows about, you can use
the "T" command of TFM.

Begin by checking that your printer
is ready. When it is ready, press "T".
The printer will print a sheet that
will list each font available, and
show every character in each font.When
the test is finished, you will be
returned to the TFM menu.
M menu.

Text found in 165_Volume_165.dsk/HELP.8.txt:


HOW DO I INSTALL A FONT INTO TFM?

Once you have created a font and
stored it onto the TFM disk (the last
help section described how to do this),
TFM can use it almost automatically.

The only limitation is that the
font must have been saved on the disk
under a name ending in .SET (for
example, ODDFONT.SET). Rename the font
if necessary.

If the font is on the TFM disk with
the proper name, TFM will find it and
automatically insert it into the menu.

(for
example, 9060 DATA ODDFONT). Save the
modified program. Your font will now
be included in the selections for
loading, as well as the test printing.

Text found in 165_Volume_165.dsk/KATAKANA.SET.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 00 00 00 00 00 00 00 00 00 00 00 00 0E 0A 0E 00 ........ ........
$000010 38 08 08 08 00 00 00 00 00 00 00 08 08 08 0E 00 8....... ........
$000020 00 00 00 00 02 04 08 00 00 00 00 0C 0C 00 00 00 ........ ........
$000030 00 3E 20 3E 20 10 08 00 00 00 3E 20 18 08 04 00 .> > ... ..> ....
$000040 00 00 10 08 0C 0A 08 00 00 00 08 3E 22 20 18 00 ........ ...>" ..
$000050 00 00 00 3E 08 08 3E 00 00 00 10 3E 18 14 12 00 ...>..>. ...>....
$000060 00 00 04 3E 24 14 04 00 00 00 00 1C 10 10 3E 00 ...>$... ......>.
$000070 00 00 3E 20 3E 20 3E 00 00 00 00 2A 2A 20 18 00 ..> > >. ...** ..
$000080 00 00 00 3E 00 00 00 00 3E 20 28 18 08 08 04 00 ...>.... > (.....
$000090 20 10 08 0C 0A 08 08 00 08 3E 22 22 20 10 08 00 ....... .>"" ...
$0000A0 00 3E 08 08 08 08 3E 00 10 3E 10 18 14 12 10 00 .>....>. .>......
$0000B0 04 3E 24 24 24 24 12 00 08 3E 08 3E 08 08 08 00 .>$$$$.. .>.>....
$0000C0 00 3C 24 22 20 10 0C 00 04 3C 12 10 10 10 08 00 .<$" ... .<......
$0000D0 00 3E 20 20 20 20 3E 00 14 3E 14 14 10 08 04 00 .> >. .>......
$0000E0 00 06 20 26 20 10 0E 00 00 3E 20 10 08 14 22 00 .. & ... .> ...".
$0000F0 04 3E 24 14 04 04 38 00 00 22 22 24 20 10 0C 00 .>$...8. .""$ ...
$000100 00 3C 24 2A 30 10 0C 00 10 0E 08 3E 08 08 04 00 .<$*0... ...>....
$000110 00 2A 2A 2A 20 10 08 00 1C 00 3E 08 08 08 04 00 .*** ... ..>.....
$000120 04 04 04 0C 14 04 04 00 08 08 3E 08 08 04 02 00 ........ ..>.....
$000130 00 1C 00 00 00 00 3E 00 00 3E 20 14 08 14 02 00 ......>. .> .....
$000140 08 3E 10 08 1C 2A 08 00 10 10 10 10 10 08 04 00 .>...*.. ........
$000150 00 00 14 24 24 24 22 00 02 02 3E 02 02 02 3C 00 ...$$$". ..>...<.
$000160 00 3E 20 20 20 10 0C 00 00 04 0A 10 20 20 00 00 .> ... .... ..
$000170 08 08 3E 08 2A 2A 08 00 00 3E 20 20 14 08 10 00 ..>.**.. .> ....
$000180 00 1C 00 1C 00 1E 20 00 00 08 04 02 22 3E 20 00 ...... . ...."> .
$000190 00 20 20 14 08 14 02 00 00 3E 04 3E 04 04 38 00 . ..... .>.>..8.
$0001A0 04 04 3E 24 14 04 04 00 00 1C 10 10 10 10 3E 00 ..>$.... ......>.
$0001B0 00 3E 20 3E 20 20 3E 00 1C 00 3E 20 20 10 08 00 .> > >. ..> ...
$0001C0 22 22 22 22 20 10 08 00 00 08 0A 0A 2A 2A 1A 00 """" ... ....**..
$0001D0 00 02 02 22 12 0A 06 00 00 3E 22 22 22 22 3E 00 ...".... .>"""">.
$0001E0 00 3E 22 22 20 10 08 00 00 06 00 20 20 10 0E 00 .>"" ... ... ...
$0001F0 08 12 04 00 00 00 00 00 0E 0A 0E 00 00 00 00 00 ........ ........
$000200 00 3C 24 2A 30 10 0C 00 10 0E 08 3E 08 08 04 00 .<$*0... ...>....
$000210 00 2A 2A 2A 20 10 08 00 1C 00 3E 08 08 08 04 00 .*** ... ..>.....
$000220 04 04 04 0C 14 04 04 00 08 08 3E 08 08 04 02 00 ........ ..>.....
$000230 00 1C 00 00 00 00 3E 00 00 3E 20 14 08 14 02 00 ......>. .> .....
$000240 08 3E 10 08 1C 2A 08 00 10 10 10 10 10 08 04 00 .>...*.. ........
$000250 00 00 14 24 24 24 22 00 02 02 3E 02 02 02 3C 00 ...$$$". ..>...<.
$000260 00 3E 20 20 20 10 0C 00 00 04 0A 10 20 20 00 00 .> ... .... ..
$000270 08 08 3E 08 2A 2A 08 00 00 3E 20 20 14 08 10 00 ..>.**.. .> ....
$000280 00 1C 00 1C 00 1E 20 00 00 08 04 02 22 3E 20 00 ...... . ...."> .
$000290 00 20 20 14 08 14 02 00 00 3E 04 3E 04 04 38 00 . ..... .>.>..8.
$0002A0 04 04 3E 24 14 04 04 00 00 1C 10 10 10 10 3E 00 ..>$.... ......>.
$0002B0 00 3E 20 3E 20 20 3E 00 1C 00 3E 20 20 10 08 00 .> > >. ..> ...
$0002C0 22 22 22 22 20 10 08 00 00 08 0A 0A 2A 2A 1A 00 """" ... ....**..
$0002D0 00 02 02 22 12 0A 06 00 00 3E 22 22 22 22 3E 00 ...".... .>"""">.
$0002E0 00 3E 22 22 20 10 08 00 00 06 00 20 20 10 0E 00 .>"" ... ... ...
$0002F0 08 12 04 00 00 00 00 00 0E 0A 0E 00 00 00 00 00 ........ ........
** END **

Text found in 165_Volume_165.dsk/PAR.PRINTER.OBJ0.txt:

Offset Hex Data Characters
======= ================================================ =================
$000000 4C B8 03 A9 C1 8D B9 03 A9 C0 0D 05 03 8D BA 03 L8.)A.9. )@....:.
$000010 0A 0A 0A 0A 8D 18 03 60 AC 94 C0 30 FB AC 18 03 .......` ,.@0{,..
$000020 99 80 C0 60 .. .. .. .. .. .. .. .. .. .. .. .. ..@`
** END **

Text found in 165_Volume_165.dsk/SETUP.bas:

30 ONERR GOTO 50
40 READ A$,B$: IF RIGHT$(A$,7) = "DEFFONT" THEN NT = NT +1: GOTO 40
41 NC = NC +1: READ A$,B$: GOTO 41
50 POKE 216,0: RESTORE : DIM F$(NT),P$(NT),FC$(NC),C$(NC)
60 FOR A = 1 TO NT: READ F$(A),P$(A): NEXT
65 FOR A = 1 TO NC: READ FC$(A),C$(A): NEXT
70 DK$ = CHR$(4): PRINT DK$;"BLOAD DEFFONT.OBJ0"
80 CT = PEEK(774): IF CT >NT THEN CT = 1
90 CRD = 1
100 TEXT : HOME : VTAB 3: PRINT "PRINTER TYPES--": PRINT : FOR A = 1 TO NT: PRINT SPC( A <10);A;": ";: IF A = CT THEN INVERSE
110 PRINT P$(A): NORMAL : PRINT : NEXT
120 VTAB 20: PRINT "PRESS RETURN TO SELECT PRINTER,": PRINT " LEFT/RIGHT OR UP/DOWN ARROWS TO MOVE LINE"
130 VTAB 22: HTAB 16: GET A$: PRINT : IF A$ = "" THEN 130
140 A = ASC(A$): IF A = 27 THEN END
150 IF A = 13 THEN 400
155 CMD = VAL(A$): IF CMD >0 AND CMD < = NT THEN 170
160 IF A < >8 AND A < >21 AND A < >10 AND A < >11 THEN 130
170 NORMAL : VTAB 3 +CT *2: PRINT SPC( CT <10);CT;": ";P$(CT): IF A = 8 OR A = 11 THEN 200
175 IF CMD >0 THEN CT = CMD: GOTO 190
180 CT = CT +1: IF CT >NT THEN CT = 1
190 VTAB 3 +CT *2: PRINT SPC( CT <10);CT;": ";: INVERSE : PRINT P$(CT): NORMAL : GOTO 130
200 CT = CT -1: IF CT = 0 THEN CT = NT
210 GOTO 190
400 TEXT : HOME : VTAB 3: PRINT "CARD TYPES--": PRINT : FOR A = 1 TO NC: PRINT SPC( A <10);A;": ";: IF A = CRD THEN INVERSE
410 PRINT C$(A): NORMAL : PRINT : NEXT
420 VTAB 21: PRINT "PRESS RETURN TO SELECT CARD,": PRINT " LEFT/RIGHT OR UP/DOWN ARROWS TO MOVE LINE"
430 VTAB 23: HTAB 16: GET A$: PRINT : IF A$ = "" THEN 430
440 A = ASC(A$): IF A = 27 THEN 100
450 IF A = 13 THEN 900
455 CMD = VAL(A$): IF CMD >0 AND CMD < = NC THEN 470
460 IF A < >8 AND A < >21 AND A < >10 AND A < >11 THEN 430
470 NORMAL : VTAB 3 +CRD *2: PRINT SPC( CRD <10);CRD;": ";C$(CRD): IF A = 8 OR A = 11 THEN 500
475 IF CMD >0 THEN CRD = CMD: GOTO 490
480 CRD = CRD +1: IF CRD >NC THEN CRD = 1
490 VTAB 3 +CRD *2: PRINT SPC( CRD <10);CRD;": ";: INVERSE : PRINT C$(CRD): NORMAL : GOTO 430
500 CRD = CRD -1: IF CRD = 0 THEN CRD = NC
510 GOTO 490
900 REM SETUP EVERYTHING
910 PRINT DK$;"BLOAD ";F$(CT);".OBJ0": PRINT DK$;"BLOAD ";FC$(CRD);".OBJ0"
911 IF LEFT$(FC$(CRD),4) = "A///" THEN POKE 773,7: REM FORCE SLOT 7 ON APPLE ///
915 PRINT DK$;"BSAVE DEFFONT.OBJ0,A$300,L$D0"
920 PRINT DK$;"BRUN TFM"
1000 REM PRINTER TYPE
1010 DATA DMP.DEFFONT,APPLE DMP
1020 DATA FX.DEFFONT,EPSON FX-80
1030 DATA PRO.DEFFONT,C.ITOH 8510 & OTHERS
2000 REM CARD TYPES
2010 DATA PAR.PRINTER,STANDARD/APPLE PARALLEL
2020 DATA GRAPPLER.PRINTER,GRAPPLER CARD
2025 DATA GRAPPLER+.PRINTER,GRAPPLER+ CARD
2026 DATA DUMPLING.PRINTER,APPLE DUMPLING CARD

Text found in 165_Volume_165.dsk/SSC.PRINTER.txt:

;
;
; THIS IS THE PRINTER DRIVER
; FOR APPLE'S SUPER SERIAL CARD
;
; USE THIS AS A MODEL FOR YOUR
; OWN DRIVER.
;
; THE RULES--
; YOU >>MUST<< USE THE VARIABLE
; SLOT TO TELL WHICH SLOT
; YOUR CARD IS IN
;
; SLOT2 IS PROVIDED PURELY FOR
; YOUR CONVENIENCE, USE IT AS
; YOU SEE FIT.
;
; YOUR DRIVER MUST RESIDE COMPLETELY
; IN THE LOCATIONS OF $3A0-$3CF.
; YOU MUST PROVIDE BOTH AN INITIALIZATION
; SUBROUTINE AND A PRINT-A-CHARACTER
; ROUTINE. YOU WILL NOT BE GIVEN THE
; OPPORTUNITY FOR A "CLOSE EVERYTHING
; DOWN ROUTINE"
;
; YOUR INITIALIZATION ROUTINE MUST
; RESIDE AT $3A3. YOU MAY DESTROY
; ALL REGISTERS, AND YOU MAY LEAVE
; THE CSWL POINTERS SET TO VIDEO DISPLAY
; YOU MAY NOT LEAVE THE CSWL POINTERS
; SET TO EITHER THE PRINTER, OR DO AN
; EXPLICIT "RE-HOOK UP TO DOS"
; (YOU MAY LEAVE THEM ALONE, OF COURSE)
;
; YOU MUST HAVE A JMP TO YOUR PRINT
; ROUTINE AT $3A0. THE PRINT ROUTINE
; WILL ENTER THE THE EIGHT-BIT VALUE
; TO SEND, IN THE ACCUMULATOR. YOU MAY
; NOT ALTER THE ACCUMULATOR OR THE X-REG.
; THE SAME RULES FROM INITING ABOUT CSWL
; STILL APPLY.
;
; IF THERE IS INSUFFICIENT ROOM FOR YOUR
; DRIVER IN THE MEMORY LOCATIONS OF
; $3A0-$3CF, YOU MAY OF COURSE SET UP
; ANOTHER DRIVER SOMEWHERE ELSE IN
; MEMORY, AND MAKE YOUR "DRIVER FILE"
; MERELY CONTAIN JUMPS TO IT.HOWEVER,
; YOU WILL BE RESPONSIBLE FOR THE
; LOADING OF YOUR MAIN DRIVER--TFM
; WILL NOT LOAD IT IN AT THE BEGINNING.
;
;
SLOT EQU $305
SLOT2 EQU $318
;
ORG $3A0
;
PRINT JMP PRINT3 ;CALL TO DEVICE INPUT
;
; HERE IS THE INITIALIZATION
; ROUTINE. IT INVOLVES TAKING
; THE SLOT AND MULTIPLYING IT
; BY SIXTEEN (FOR USE WITH THE
; PRINT ROUTINE).
;
; IT ALSO DOES A PR#SLOT, AND PRINTS
; A NULL, IN ORDER TO HAVE THE
; CARD'S FIRMWARE DO ANY NECESSARY
; INITIALIZATION OF THE CHIPS ON
; THE CARD. MOST PARALLEL CARDS
; DON'T NEED THIS KIND OF INITIALIZATION,
; AND SO THOSE STEPS CAN BE SKIPPED.
;
PINIT LDA SLOT ;DO PR#SLOT
PHA ;SAVE IT
JSR $FE95
LDA #$80 ;PRINT A NULL
JSR $FDED
PLA ;SET SLOT2=$N0
ASL A
ASL A
ASL A
ASL A
STA SLOT2
JSR $FE93 ;DO A PR#0
RTS
;
;
; THIS IS THE ACTUAL PRINT A CHAR
; ROUTINE. IT FIRST CHECKS THE
; STATUS BITS, WAITING FOR THE
; PRINTER TO BE READY. IT THEN
; SENDS THE CHARACTER TO THE UART
;
;
PRINT3 LDY SLOT2
PHA
PRINT4 LDA $C089,Y ;CHECKING THE STATUS BITS
AND #$70
CMP #$10
BEQ PRINT4
PLA ;RESTORE THE CHARACTERS
STA $C080,Y ;SEND THE CHARACTER TO THE UART
RTS
;
; NOTE: THE PROGRAM MUST STOP
; BEFORE $3CF!!!
;

Text found in 165_Volume_165.dsk/THE FONT MACHINE.bas:

10 PRINT CHR$(4);"BRUN TFM"