� Extra Fonts
� By Richard Blythe
� (c) Electron User
(� � �6:�:�:�" at line ";�:�
2
�assemble
<� 4
F� 23,1,0;0;0;0;
P�=0
Z;�print(2,1,24,0,0,"Here's a taster of the new fonts:-")
d"�print(2,3,2,0,0,"Heavy text")
n#�print(2,5,4,0,0,"Dimmed text")
x!�print(2,7,8,0,0,"Thin text")
�%�print(2,9,16,0,0,"Slanted text")
�/�print(2,11,4,0,0,"Any can be combined...")
�9�print(2,13,18,0,0,"For example heavy slanted text!")
�+�print(2,15,8,0,1,"Double height too!")
�!�print(0,13,0,1,0,"Upwards!")
�#�print(38,1,24,3,1,"Downwards")
�-�print(20,18,2,2,0,"And even backwards!")
��2,20);"Any point can be"
�%�print(19,20,9,0,0,"Underlined.")
�;�print(2,22,23,0,0,"And finally, a multi-combination!")
�7�print(2,24,8,0,0,"The code is fast - this screen")
�t$=�(� �100)+"."+�(� �100)
�3�print(2,25,8,0,0,"took "+t$+" secs to print!")

0�print(2,28,2,0,1,"BYE BYE... Press ESCAPE")

	� � 0

�

":

,� �assemble

6
� str &FF

@� i%=0 � 2 � 2

Jow=&FFEE

TP%=&900

^[ OPT i%

h.stl  EQUB 0  \style byte

r .x    EQUB 0  \copy of x reg

|.and  EQUB 0  \} used in

�#.a2   EQUB 0  \} rotate routine

�.stc  EQUB 0  \copy of stl

�#.siz  EQUB 0  \single/double ht

�!.dir  EQUB 0  \direction flag

�.char EQUB 0  \char no.

�.dat  EQUD 0

�      EQUD 0

�      EQUD 0

�      EQUD 0

�      \new char data - now

�      \char nos 128 and 129

�.tab  EQUD&0A080B09

�      EQUD&000B0B0B
      EQUD&00000B00
#      \data for print direction
\
&\ main print routine
0.pr
:LDA #dat � 256
DSTA &36B
NLDA &367
X	�A #8
bSTA &367
lLDA stl
vSTA stc
�
LDX #0
�	.loop
�LDA stc
�STA stl
�
LDA str,X
�STA char
�CMP #13
�BEQ rts
�	STX x
�JSR process
�
JSR print
�	LDX x
�INX
JMP loop
.rts
LDA #12
 STA &36B
*\
4\process bit pattern
>.process
HLDA #&A
RLDX #char � 256
\LDY #char � 256
f
JSR &FFF1
p
LDY #0
z\
�\ different styles?
�.c6
�LDA stl
�	� #16
�BNE slnt
�.c5
�LDA stl
�� #8
�BNE thin
�.c4
�LDA stl
�� #4
�BNE lite
.c3
LDA stl
� #2
$BNE bld
..c2
8INY
B
CPY #8
L
BNE c6
VLDA stl
`� #1
jBNE und
t\
~\divides style code by 64
�.c1
�LSR stl
�LSR stl
�LSR stl
�LSR stl
�LSR stl
�LSR stl
�LDA stl
�JSR rotate
�RTS
�\
�\print the character

.print

LDA siz
� #1
BNE dblh
(\branch to double height?
2\
<LDA #129
F
JSR ow
P
LDA #8
Z
JSR ow
dLDY dir
n
LDA tab,Y
x
JSR ow
�RTS
�\prints single height
�\
�\slanted text
�	.slnt
�
CPY #4
�BMI nos
�
LDA dat,Y
�	LSR A
�
STA dat,Y
�.nos
�
JMP c5
�\
\light text
	.lite

LDA dat,Y
"
� #&55
,
STA dat,Y
6
JMP c3
@\
J\thin text
T	.thin
^
LDA dat,Y
h	LSR A
r� dat,Y
|
STA dat,Y
�
JMP c4
�\
�\bold text
�.bld
�
LDA dat,Y
�	LSR A
��A dat,Y
�
STA dat,Y
�
JMP c2
�\
�\underlined text
�.und
�
LDA dat+7
� #&FF:STA dat+7

JMP c1
\
&\print double height chars
0	.dblh
:
LDX #7
DLDY #14
N.h1
X
LDA dat,X
b
STA dat,Y
lSTA dat+1,Y
vDEY
�DEY
�DEX
�
BNE h1
�LDY dir
�LDA #129
�	JSRow
�LDA #10
�	JSRow
�
LDA #8
�	JSRow
�LDA #130
�
JSR ow
�LDA tab+4,Y

JSR ow
LDA tab+8,Y

JSR ow
 
LDA #8
*
JSR ow
4
LDA tab,Y
>
JSR ow
HRTS
R\
\\checks for rotated text
f.rotate
pDEC stl
z
BEQ up
�DEC stl
�
BEQ under
�DEC stl
�BEQ down
�RTS
�\
�.up
�LDA #128
�STA and
�
LDX #7
�.u1
�
LDA #0
�STA dat+8,X
	LDA #128
	
STA a2
	
LDY #0
	$.u2
	.
LDA dat,Y
	8	� and
	BBEQ nom1
	LCLC
	V
LDA a2
	`ADC dat+8,X
	jSTA dat+8,X
	t	.nom1
	~INY
	�
LSR a2
	�
BNE u2
	�DEX
	�LSR and
	�
BNE u1
	�
.trans
	�
LDY #0
	�.u3 
	�LDA dat+8,Y
	�
STA dat,Y
	�INY
	�
CPY #8

BNE u3

RTS
\
	.down
(LDA #128
2STA and
<
LDX #0
F.d1
P
LDA #0
ZSTA dat+8,X
d
LDA #1
n
STA a2
x
LDY #0
�.d2
�
LDA dat,Y
�	� and
�BEQ nom2
�CLC
�
LDA a2
�ADC dat+8,X
�STA dat+8,X
�	.nom2
�INY
�
ASL a2
�
BNE d2
�INX
LSR and

BNE d1

JMP trans
"\
,
.under
6
LDY #0
@
LDX #7
J.n1 
T
LDA #0
^STA dat+8,X
hLDA #128
rSTA and
|
LDA #1
�
STA a2
�.n2
�
LDA dat,Y
�	� and
�BEQ nom3
�CLC
�
LDA a2
�ADC dat+8,X
�STA dat+8,X
�	.nom3
�LSR and
�
ASL a2
�
BNE n2
DEX
INY

CPY #8
&
BNE n1
0
JMP trans
:]
D�
N�
X:
b � �print(x%,y%,st%,d%,h%,s$)
l$str=s$
v?stl=st%+(d%*64)
�?siz=h%
�?dir=d%
�� �x%,y%);
�� pr
��
�

00000000  0d 00 0a 11 f4 20 45 78  74 72 61 20 46 6f 6e 74  |..... Extra Font|
00000010  73 0d 00 14 17 f4 20 42  79 20 52 69 63 68 61 72  |s..... By Richar|
00000020  64 20 42 6c 79 74 68 65  0d 00 1e 17 f4 20 28 63  |d Blythe..... (c|
00000030  29 20 45 6c 65 63 74 72  6f 6e 20 55 73 65 72 0d  |) Electron User.|
00000040  00 28 1f ee 20 85 20 eb  36 3a f1 3a f6 3a f1 22  |.(.. . .6:.:.:."|
00000050  20 61 74 20 6c 69 6e 65  20 22 3b 9e 3a e0 0d 00  | at line ";.:...|
00000060  32 0d f2 61 73 73 65 6d  62 6c 65 0d 00 3c 07 eb  |2..assemble..<..|
00000070  20 34 0d 00 46 13 ef 20  32 33 2c 31 2c 30 3b 30  | 4..F.. 23,1,0;0|
00000080  3b 30 3b 30 3b 0d 00 50  07 d1 3d 30 0d 00 5a 3b  |;0;0;..P..=0..Z;|
00000090  f2 70 72 69 6e 74 28 32  2c 31 2c 32 34 2c 30 2c  |.print(2,1,24,0,|
000000a0  30 2c 22 48 65 72 65 27  73 20 61 20 74 61 73 74  |0,"Here's a tast|
000000b0  65 72 20 6f 66 20 74 68  65 20 6e 65 77 20 66 6f  |er of the new fo|
000000c0  6e 74 73 3a 2d 22 29 0d  00 64 22 f2 70 72 69 6e  |nts:-")..d".prin|
000000d0  74 28 32 2c 33 2c 32 2c  30 2c 30 2c 22 48 65 61  |t(2,3,2,0,0,"Hea|
000000e0  76 79 20 74 65 78 74 22  29 0d 00 6e 23 f2 70 72  |vy text")..n#.pr|
000000f0  69 6e 74 28 32 2c 35 2c  34 2c 30 2c 30 2c 22 44  |int(2,5,4,0,0,"D|
00000100  69 6d 6d 65 64 20 74 65  78 74 22 29 0d 00 78 21  |immed text")..x!|
00000110  f2 70 72 69 6e 74 28 32  2c 37 2c 38 2c 30 2c 30  |.print(2,7,8,0,0|
00000120  2c 22 54 68 69 6e 20 74  65 78 74 22 29 0d 00 82  |,"Thin text")...|
00000130  25 f2 70 72 69 6e 74 28  32 2c 39 2c 31 36 2c 30  |%.print(2,9,16,0|
00000140  2c 30 2c 22 53 6c 61 6e  74 65 64 20 74 65 78 74  |,0,"Slanted text|
00000150  22 29 0d 00 8c 2f f2 70  72 69 6e 74 28 32 2c 31  |").../.print(2,1|
00000160  31 2c 34 2c 30 2c 30 2c  22 41 6e 79 20 63 61 6e  |1,4,0,0,"Any can|
00000170  20 62 65 20 63 6f 6d 62  69 6e 65 64 2e 2e 2e 22  | be combined..."|
00000180  29 0d 00 96 39 f2 70 72  69 6e 74 28 32 2c 31 33  |)...9.print(2,13|
00000190  2c 31 38 2c 30 2c 30 2c  22 46 6f 72 20 65 78 61  |,18,0,0,"For exa|
000001a0  6d 70 6c 65 20 68 65 61  76 79 20 73 6c 61 6e 74  |mple heavy slant|
000001b0  65 64 20 74 65 78 74 21  22 29 0d 00 a0 2b f2 70  |ed text!")...+.p|
000001c0  72 69 6e 74 28 32 2c 31  35 2c 38 2c 30 2c 31 2c  |rint(2,15,8,0,1,|
000001d0  22 44 6f 75 62 6c 65 20  68 65 69 67 68 74 20 74  |"Double height t|
000001e0  6f 6f 21 22 29 0d 00 aa  21 f2 70 72 69 6e 74 28  |oo!")...!.print(|
000001f0  30 2c 31 33 2c 30 2c 31  2c 30 2c 22 55 70 77 61  |0,13,0,1,0,"Upwa|
00000200  72 64 73 21 22 29 0d 00  b4 23 f2 70 72 69 6e 74  |rds!")...#.print|
00000210  28 33 38 2c 31 2c 32 34  2c 33 2c 31 2c 22 44 6f  |(38,1,24,3,1,"Do|
00000220  77 6e 77 61 72 64 73 22  29 0d 00 be 2d f2 70 72  |wnwards")...-.pr|
00000230  69 6e 74 28 32 30 2c 31  38 2c 32 2c 32 2c 30 2c  |int(20,18,2,2,0,|
00000240  22 41 6e 64 20 65 76 65  6e 20 62 61 63 6b 77 61  |"And even backwa|
00000250  72 64 73 21 22 29 0d 00  c8 1e f1 8a 32 2c 32 30  |rds!")......2,20|
00000260  29 3b 22 41 6e 79 20 70  6f 69 6e 74 20 63 61 6e  |);"Any point can|
00000270  20 62 65 22 0d 00 d2 25  f2 70 72 69 6e 74 28 31  | be"...%.print(1|
00000280  39 2c 32 30 2c 39 2c 30  2c 30 2c 22 55 6e 64 65  |9,20,9,0,0,"Unde|
00000290  72 6c 69 6e 65 64 2e 22  29 0d 00 dc 3b f2 70 72  |rlined.")...;.pr|
000002a0  69 6e 74 28 32 2c 32 32  2c 32 33 2c 30 2c 30 2c  |int(2,22,23,0,0,|
000002b0  22 41 6e 64 20 66 69 6e  61 6c 6c 79 2c 20 61 20  |"And finally, a |
000002c0  6d 75 6c 74 69 2d 63 6f  6d 62 69 6e 61 74 69 6f  |multi-combinatio|
000002d0  6e 21 22 29 0d 00 e6 37  f2 70 72 69 6e 74 28 32  |n!")...7.print(2|
000002e0  2c 32 34 2c 38 2c 30 2c  30 2c 22 54 68 65 20 63  |,24,8,0,0,"The c|
000002f0  6f 64 65 20 69 73 20 66  61 73 74 20 2d 20 74 68  |ode is fast - th|
00000300  69 73 20 73 63 72 65 65  6e 22 29 0d 00 f0 1e 74  |is screen")....t|
00000310  24 3d c3 28 91 20 81 31  30 30 29 2b 22 2e 22 2b  |$=.(. .100)+"."+|
00000320  c3 28 91 20 83 31 30 30  29 0d 00 fa 33 f2 70 72  |.(. .100)...3.pr|
00000330  69 6e 74 28 32 2c 32 35  2c 38 2c 30 2c 30 2c 22  |int(2,25,8,0,0,"|
00000340  74 6f 6f 6b 20 22 2b 74  24 2b 22 20 73 65 63 73  |took "+t$+" secs|
00000350  20 74 6f 20 70 72 69 6e  74 21 22 29 0d 01 04 30  | to print!")...0|
00000360  f2 70 72 69 6e 74 28 32  2c 32 38 2c 32 2c 30 2c  |.print(2,28,2,0,|
00000370  31 2c 22 42 59 45 20 42  59 45 2e 2e 2e 20 50 72  |1,"BYE BYE... Pr|
00000380  65 73 73 20 45 53 43 41  50 45 22 29 0d 01 0e 09  |ess ESCAPE")....|
00000390  f5 20 fd 20 30 0d 01 18  05 e0 0d 01 22 05 3a 0d  |. . 0.......".:.|
000003a0  01 2c 0f dd 20 f2 61 73  73 65 6d 62 6c 65 0d 01  |.,.. .assemble..|
000003b0  36 0d de 20 73 74 72 20  26 46 46 0d 01 40 12 e3  |6.. str &FF..@..|
000003c0  20 69 25 3d 30 20 b8 20  32 20 88 20 32 0d 01 4a  | i%=0 . 2 . 2..J|
000003d0  0c 6f 77 3d 26 46 46 45  45 0d 01 54 0b 50 25 3d  |.ow=&FFEE..T.P%=|
000003e0  26 39 30 30 0d 01 5e 0c  5b 20 4f 50 54 20 69 25  |&900..^.[ OPT i%|
000003f0  0d 01 68 1d 2e 73 74 6c  20 20 45 51 55 42 20 30  |..h..stl  EQUB 0|
00000400  20 20 5c 73 74 79 6c 65  20 62 79 74 65 0d 01 72  |  \style byte..r|
00000410  20 2e 78 20 20 20 20 45  51 55 42 20 30 20 20 5c  | .x    EQUB 0  \|
00000420  63 6f 70 79 20 6f 66 20  78 20 72 65 67 0d 01 7c  |copy of x reg..||
00000430  1c 2e 61 6e 64 20 20 45  51 55 42 20 30 20 20 5c  |..and  EQUB 0  \|
00000440  7d 20 75 73 65 64 20 69  6e 0d 01 86 23 2e 61 32  |} used in...#.a2|
00000450  20 20 20 45 51 55 42 20  30 20 20 5c 7d 20 72 6f  |   EQUB 0  \} ro|
00000460  74 61 74 65 20 72 6f 75  74 69 6e 65 0d 01 90 1e  |tate routine....|
00000470  2e 73 74 63 20 20 45 51  55 42 20 30 20 20 5c 63  |.stc  EQUB 0  \c|
00000480  6f 70 79 20 6f 66 20 73  74 6c 0d 01 9a 23 2e 73  |opy of stl...#.s|
00000490  69 7a 20 20 45 51 55 42  20 30 20 20 5c 73 69 6e  |iz  EQUB 0  \sin|
000004a0  67 6c 65 2f 64 6f 75 62  6c 65 20 68 74 0d 01 a4  |gle/double ht...|
000004b0  21 2e 64 69 72 20 20 45  51 55 42 20 30 20 20 5c  |!.dir  EQUB 0  \|
000004c0  64 69 72 65 63 74 69 6f  6e 20 66 6c 61 67 0d 01  |direction flag..|
000004d0  ae 1b 2e 63 68 61 72 20  45 51 55 42 20 30 20 20  |...char EQUB 0  |
000004e0  5c 63 68 61 72 20 6e 6f  2e 0d 01 b8 10 2e 64 61  |\char no......da|
000004f0  74 20 20 45 51 55 44 20  30 0d 01 c2 10 20 20 20  |t  EQUD 0....   |
00000500  20 20 20 45 51 55 44 20  30 0d 01 cc 10 20 20 20  |   EQUD 0....   |
00000510  20 20 20 45 51 55 44 20  30 0d 01 d6 10 20 20 20  |   EQUD 0....   |
00000520  20 20 20 45 51 55 44 20  30 0d 01 e0 1e 20 20 20  |   EQUD 0....   |
00000530  20 20 20 5c 6e 65 77 20  63 68 61 72 20 64 61 74  |   \new char dat|
00000540  61 20 2d 20 6e 6f 77 0d  01 ea 1f 20 20 20 20 20  |a - now....     |
00000550  20 5c 63 68 61 72 20 6e  6f 73 20 31 32 38 20 61  | \char nos 128 a|
00000560  6e 64 20 31 32 39 0d 01  f4 17 2e 74 61 62 20 20  |nd 129.....tab  |
00000570  45 51 55 44 26 30 41 30  38 30 42 30 39 0d 01 fe  |EQUD&0A080B09...|
00000580  17 20 20 20 20 20 20 45  51 55 44 26 30 30 30 42  |.      EQUD&000B|
00000590  30 42 30 42 0d 02 08 17  20 20 20 20 20 20 45 51  |0B0B....      EQ|
000005a0  55 44 26 30 30 30 30 30  42 30 30 0d 02 12 23 20  |UD&00000B00...# |
000005b0  20 20 20 20 20 5c 64 61  74 61 20 66 6f 72 20 70  |     \data for p|
000005c0  72 69 6e 74 20 64 69 72  65 63 74 69 6f 6e 0d 02  |rint direction..|
000005d0  1c 05 5c 0d 02 26 18 5c  20 6d 61 69 6e 20 70 72  |..\..&.\ main pr|
000005e0  69 6e 74 20 72 6f 75 74  69 6e 65 0d 02 30 07 2e  |int routine..0..|
000005f0  70 72 0d 02 3a 12 4c 44  41 20 23 64 61 74 20 81  |pr..:.LDA #dat .|
00000600  20 32 35 36 0d 02 44 0c  53 54 41 20 26 33 36 42  | 256..D.STA &36B|
00000610  0d 02 4e 0c 4c 44 41 20  26 33 36 37 0d 02 58 09  |..N.LDA &367..X.|
00000620  84 41 20 23 38 0d 02 62  0c 53 54 41 20 26 33 36  |.A #8..b.STA &36|
00000630  37 0d 02 6c 0b 4c 44 41  20 73 74 6c 0d 02 76 0b  |7..l.LDA stl..v.|
00000640  53 54 41 20 73 74 63 0d  02 80 0a 4c 44 58 20 23  |STA stc....LDX #|
00000650  30 0d 02 8a 09 2e 6c 6f  6f 70 0d 02 94 0b 4c 44  |0.....loop....LD|
00000660  41 20 73 74 63 0d 02 9e  0b 53 54 41 20 73 74 6c  |A stc....STA stl|
00000670  0d 02 a8 0d 4c 44 41 20  73 74 72 2c 58 0d 02 b2  |....LDA str,X...|
00000680  0c 53 54 41 20 63 68 61  72 0d 02 bc 0b 43 4d 50  |.STA char....CMP|
00000690  20 23 31 33 0d 02 c6 0b  42 45 51 20 72 74 73 0d  | #13....BEQ rts.|
000006a0  02 d0 09 53 54 58 20 78  0d 02 da 0f 4a 53 52 20  |...STX x....JSR |
000006b0  70 72 6f 63 65 73 73 0d  02 e4 0d 4a 53 52 20 70  |process....JSR p|
000006c0  72 69 6e 74 0d 02 ee 09  4c 44 58 20 78 0d 02 f8  |rint....LDX x...|
000006d0  07 49 4e 58 0d 03 02 0c  4a 4d 50 20 6c 6f 6f 70  |.INX....JMP loop|
000006e0  0d 03 0c 08 2e 72 74 73  0d 03 16 0b 4c 44 41 20  |.....rts....LDA |
000006f0  23 31 32 0d 03 20 0c 53  54 41 20 26 33 36 42 0d  |#12.. .STA &36B.|
00000700  03 2a 05 5c 0d 03 34 18  5c 70 72 6f 63 65 73 73  |.*.\..4.\process|
00000710  20 62 69 74 20 70 61 74  74 65 72 6e 0d 03 3e 0c  | bit pattern..>.|
00000720  2e 70 72 6f 63 65 73 73  0d 03 48 0b 4c 44 41 20  |.process..H.LDA |
00000730  23 26 41 0d 03 52 13 4c  44 58 20 23 63 68 61 72  |#&A..R.LDX #char|
00000740  20 83 20 32 35 36 0d 03  5c 13 4c 44 59 20 23 63  | . 256..\.LDY #c|
00000750  68 61 72 20 81 20 32 35  36 0d 03 66 0d 4a 53 52  |har . 256..f.JSR|
00000760  20 26 46 46 46 31 0d 03  70 0a 4c 44 59 20 23 30  | &FFF1..p.LDY #0|
00000770  0d 03 7a 05 5c 0d 03 84  17 5c 20 64 69 66 66 65  |..z.\....\ diffe|
00000780  72 65 6e 74 20 73 74 79  6c 65 73 3f 0d 03 8e 07  |rent styles?....|
00000790  2e 63 36 0d 03 98 0b 4c  44 41 20 73 74 6c 0d 03  |.c6....LDA stl..|
000007a0  a2 09 80 20 23 31 36 0d  03 ac 0c 42 4e 45 20 73  |... #16....BNE s|
000007b0  6c 6e 74 0d 03 b6 07 2e  63 35 0d 03 c0 0b 4c 44  |lnt.....c5....LD|
000007c0  41 20 73 74 6c 0d 03 ca  08 80 20 23 38 0d 03 d4  |A stl..... #8...|
000007d0  0c 42 4e 45 20 74 68 69  6e 0d 03 de 07 2e 63 34  |.BNE thin.....c4|
000007e0  0d 03 e8 0b 4c 44 41 20  73 74 6c 0d 03 f2 08 80  |....LDA stl.....|
000007f0  20 23 34 0d 03 fc 0c 42  4e 45 20 6c 69 74 65 0d  | #4....BNE lite.|
00000800  04 06 07 2e 63 33 0d 04  10 0b 4c 44 41 20 73 74  |....c3....LDA st|
00000810  6c 0d 04 1a 08 80 20 23  32 0d 04 24 0b 42 4e 45  |l..... #2..$.BNE|
00000820  20 62 6c 64 0d 04 2e 07  2e 63 32 0d 04 38 07 49  | bld.....c2..8.I|
00000830  4e 59 0d 04 42 0a 43 50  59 20 23 38 0d 04 4c 0a  |NY..B.CPY #8..L.|
00000840  42 4e 45 20 63 36 0d 04  56 0b 4c 44 41 20 73 74  |BNE c6..V.LDA st|
00000850  6c 0d 04 60 08 80 20 23  31 0d 04 6a 0b 42 4e 45  |l..`.. #1..j.BNE|
00000860  20 75 6e 64 0d 04 74 05  5c 0d 04 7e 1d 5c 64 69  | und..t.\..~.\di|
00000870  76 69 64 65 73 20 73 74  79 6c 65 20 63 6f 64 65  |vides style code|
00000880  20 62 79 20 36 34 0d 04  88 07 2e 63 31 0d 04 92  | by 64.....c1...|
00000890  0b 4c 53 52 20 73 74 6c  0d 04 9c 0b 4c 53 52 20  |.LSR stl....LSR |
000008a0  73 74 6c 0d 04 a6 0b 4c  53 52 20 73 74 6c 0d 04  |stl....LSR stl..|
000008b0  b0 0b 4c 53 52 20 73 74  6c 0d 04 ba 0b 4c 53 52  |..LSR stl....LSR|
000008c0  20 73 74 6c 0d 04 c4 0b  4c 53 52 20 73 74 6c 0d  | stl....LSR stl.|
000008d0  04 ce 0b 4c 44 41 20 73  74 6c 0d 04 d8 0e 4a 53  |...LDA stl....JS|
000008e0  52 20 72 6f 74 61 74 65  0d 04 e2 07 52 54 53 0d  |R rotate....RTS.|
000008f0  04 ec 05 5c 0d 04 f6 18  5c 70 72 69 6e 74 20 74  |...\....\print t|
00000900  68 65 20 63 68 61 72 61  63 74 65 72 0d 05 00 0a  |he character....|
00000910  2e 70 72 69 6e 74 0d 05  0a 0b 4c 44 41 20 73 69  |.print....LDA si|
00000920  7a 0d 05 14 08 80 20 23  31 0d 05 1e 0c 42 4e 45  |z..... #1....BNE|
00000930  20 64 62 6c 68 0d 05 28  1d 5c 62 72 61 6e 63 68  | dblh..(.\branch|
00000940  20 74 6f 20 64 6f 75 62  6c 65 20 68 65 69 67 68  | to double heigh|
00000950  74 3f 0d 05 32 05 5c 0d  05 3c 0c 4c 44 41 20 23  |t?..2.\..<.LDA #|
00000960  31 32 39 0d 05 46 0a 4a  53 52 20 6f 77 0d 05 50  |129..F.JSR ow..P|
00000970  0a 4c 44 41 20 23 38 0d  05 5a 0a 4a 53 52 20 6f  |.LDA #8..Z.JSR o|
00000980  77 0d 05 64 0b 4c 44 59  20 64 69 72 0d 05 6e 0d  |w..d.LDY dir..n.|
00000990  4c 44 41 20 74 61 62 2c  59 0d 05 78 0a 4a 53 52  |LDA tab,Y..x.JSR|
000009a0  20 6f 77 0d 05 82 07 52  54 53 0d 05 8c 19 5c 70  | ow....RTS....\p|
000009b0  72 69 6e 74 73 20 73 69  6e 67 6c 65 20 68 65 69  |rints single hei|
000009c0  67 68 74 0d 05 96 05 5c  0d 05 a0 11 5c 73 6c 61  |ght....\....\sla|
000009d0  6e 74 65 64 20 74 65 78  74 0d 05 aa 09 2e 73 6c  |nted text.....sl|
000009e0  6e 74 0d 05 b4 0a 43 50  59 20 23 34 0d 05 be 0b  |nt....CPY #4....|
000009f0  42 4d 49 20 6e 6f 73 0d  05 c8 0d 4c 44 41 20 64  |BMI nos....LDA d|
00000a00  61 74 2c 59 0d 05 d2 09  4c 53 52 20 41 0d 05 dc  |at,Y....LSR A...|
00000a10  0d 53 54 41 20 64 61 74  2c 59 0d 05 e6 08 2e 6e  |.STA dat,Y.....n|
00000a20  6f 73 0d 05 f0 0a 4a 4d  50 20 63 35 0d 05 fa 05  |os....JMP c5....|
00000a30  5c 0d 06 04 0f 5c 6c 69  67 68 74 20 74 65 78 74  |\....\light text|
00000a40  0d 06 0e 09 2e 6c 69 74  65 0d 06 18 0d 4c 44 41  |.....lite....LDA|
00000a50  20 64 61 74 2c 59 0d 06  22 0a 80 20 23 26 35 35  | dat,Y..".. #&55|
00000a60  0d 06 2c 0d 53 54 41 20  64 61 74 2c 59 0d 06 36  |..,.STA dat,Y..6|
00000a70  0a 4a 4d 50 20 63 33 0d  06 40 05 5c 0d 06 4a 0e  |.JMP c3..@.\..J.|
00000a80  5c 74 68 69 6e 20 74 65  78 74 0d 06 54 09 2e 74  |\thin text..T..t|
00000a90  68 69 6e 0d 06 5e 0d 4c  44 41 20 64 61 74 2c 59  |hin..^.LDA dat,Y|
00000aa0  0d 06 68 09 4c 53 52 20  41 0d 06 72 0b 80 20 64  |..h.LSR A..r.. d|
00000ab0  61 74 2c 59 0d 06 7c 0d  53 54 41 20 64 61 74 2c  |at,Y..|.STA dat,|
00000ac0  59 0d 06 86 0a 4a 4d 50  20 63 34 0d 06 90 05 5c  |Y....JMP c4....\|
00000ad0  0d 06 9a 0e 5c 62 6f 6c  64 20 74 65 78 74 0d 06  |....\bold text..|
00000ae0  a4 08 2e 62 6c 64 0d 06  ae 0d 4c 44 41 20 64 61  |...bld....LDA da|
00000af0  74 2c 59 0d 06 b8 09 4c  53 52 20 41 0d 06 c2 0c  |t,Y....LSR A....|
00000b00  84 41 20 64 61 74 2c 59  0d 06 cc 0d 53 54 41 20  |.A dat,Y....STA |
00000b10  64 61 74 2c 59 0d 06 d6  0a 4a 4d 50 20 63 32 0d  |dat,Y....JMP c2.|
00000b20  06 e0 05 5c 0d 06 ea 14  5c 75 6e 64 65 72 6c 69  |...\....\underli|
00000b30  6e 65 64 20 74 65 78 74  0d 06 f4 08 2e 75 6e 64  |ned text.....und|
00000b40  0d 06 fe 0d 4c 44 41 20  64 61 74 2b 37 0d 07 08  |....LDA dat+7...|
00000b50  14 82 20 23 26 46 46 3a  53 54 41 20 64 61 74 2b  |.. #&FF:STA dat+|
00000b60  37 0d 07 12 0a 4a 4d 50  20 63 31 0d 07 1c 05 5c  |7....JMP c1....\|
00000b70  0d 07 26 1e 5c 70 72 69  6e 74 20 64 6f 75 62 6c  |..&.\print doubl|
00000b80  65 20 68 65 69 67 68 74  20 63 68 61 72 73 0d 07  |e height chars..|
00000b90  30 09 2e 64 62 6c 68 0d  07 3a 0a 4c 44 58 20 23  |0..dblh..:.LDX #|
00000ba0  37 0d 07 44 0b 4c 44 59  20 23 31 34 0d 07 4e 07  |7..D.LDY #14..N.|
00000bb0  2e 68 31 0d 07 58 0d 4c  44 41 20 64 61 74 2c 58  |.h1..X.LDA dat,X|
00000bc0  0d 07 62 0d 53 54 41 20  64 61 74 2c 59 0d 07 6c  |..b.STA dat,Y..l|
00000bd0  0f 53 54 41 20 64 61 74  2b 31 2c 59 0d 07 76 07  |.STA dat+1,Y..v.|
00000be0  44 45 59 0d 07 80 07 44  45 59 0d 07 8a 07 44 45  |DEY....DEY....DE|
00000bf0  58 0d 07 94 0a 42 4e 45  20 68 31 0d 07 9e 0b 4c  |X....BNE h1....L|
00000c00  44 59 20 64 69 72 0d 07  a8 0c 4c 44 41 20 23 31  |DY dir....LDA #1|
00000c10  32 39 0d 07 b2 09 4a 53  52 6f 77 0d 07 bc 0b 4c  |29....JSRow....L|
00000c20  44 41 20 23 31 30 0d 07  c6 09 4a 53 52 6f 77 0d  |DA #10....JSRow.|
00000c30  07 d0 0a 4c 44 41 20 23  38 0d 07 da 09 4a 53 52  |...LDA #8....JSR|
00000c40  6f 77 0d 07 e4 0c 4c 44  41 20 23 31 33 30 0d 07  |ow....LDA #130..|
00000c50  ee 0a 4a 53 52 20 6f 77  0d 07 f8 0f 4c 44 41 20  |..JSR ow....LDA |
00000c60  74 61 62 2b 34 2c 59 0d  08 02 0a 4a 53 52 20 6f  |tab+4,Y....JSR o|
00000c70  77 0d 08 0c 0f 4c 44 41  20 74 61 62 2b 38 2c 59  |w....LDA tab+8,Y|
00000c80  0d 08 16 0a 4a 53 52 20  6f 77 0d 08 20 0a 4c 44  |....JSR ow.. .LD|
00000c90  41 20 23 38 0d 08 2a 0a  4a 53 52 20 6f 77 0d 08  |A #8..*.JSR ow..|
00000ca0  34 0d 4c 44 41 20 74 61  62 2c 59 0d 08 3e 0a 4a  |4.LDA tab,Y..>.J|
00000cb0  53 52 20 6f 77 0d 08 48  07 52 54 53 0d 08 52 05  |SR ow..H.RTS..R.|
00000cc0  5c 0d 08 5c 1c 5c 63 68  65 63 6b 73 20 66 6f 72  |\..\.\checks for|
00000cd0  20 72 6f 74 61 74 65 64  20 74 65 78 74 0d 08 66  | rotated text..f|
00000ce0  0b 2e 72 6f 74 61 74 65  0d 08 70 0b 44 45 43 20  |..rotate..p.DEC |
00000cf0  73 74 6c 0d 08 7a 0a 42  45 51 20 75 70 0d 08 84  |stl..z.BEQ up...|
00000d00  0b 44 45 43 20 73 74 6c  0d 08 8e 0d 42 45 51 20  |.DEC stl....BEQ |
00000d10  75 6e 64 65 72 0d 08 98  0b 44 45 43 20 73 74 6c  |under....DEC stl|
00000d20  0d 08 a2 0c 42 45 51 20  64 6f 77 6e 0d 08 ac 07  |....BEQ down....|
00000d30  52 54 53 0d 08 b6 05 5c  0d 08 c0 07 2e 75 70 0d  |RTS....\.....up.|
00000d40  08 ca 0c 4c 44 41 20 23  31 32 38 0d 08 d4 0b 53  |...LDA #128....S|
00000d50  54 41 20 61 6e 64 0d 08  de 0a 4c 44 58 20 23 37  |TA and....LDX #7|
00000d60  0d 08 e8 07 2e 75 31 0d  08 f2 0a 4c 44 41 20 23  |.....u1....LDA #|
00000d70  30 0d 08 fc 0f 53 54 41  20 64 61 74 2b 38 2c 58  |0....STA dat+8,X|
00000d80  0d 09 06 0c 4c 44 41 20  23 31 32 38 0d 09 10 0a  |....LDA #128....|
00000d90  53 54 41 20 61 32 0d 09  1a 0a 4c 44 59 20 23 30  |STA a2....LDY #0|
00000da0  0d 09 24 07 2e 75 32 0d  09 2e 0d 4c 44 41 20 64  |..$..u2....LDA d|
00000db0  61 74 2c 59 0d 09 38 09  80 20 61 6e 64 0d 09 42  |at,Y..8.. and..B|
00000dc0  0c 42 45 51 20 6e 6f 6d  31 0d 09 4c 07 43 4c 43  |.BEQ nom1..L.CLC|
00000dd0  0d 09 56 0a 4c 44 41 20  61 32 0d 09 60 0f 41 44  |..V.LDA a2..`.AD|
00000de0  43 20 64 61 74 2b 38 2c  58 0d 09 6a 0f 53 54 41  |C dat+8,X..j.STA|
00000df0  20 64 61 74 2b 38 2c 58  0d 09 74 09 2e 6e 6f 6d  | dat+8,X..t..nom|
00000e00  31 0d 09 7e 07 49 4e 59  0d 09 88 0a 4c 53 52 20  |1..~.INY....LSR |
00000e10  61 32 0d 09 92 0a 42 4e  45 20 75 32 0d 09 9c 07  |a2....BNE u2....|
00000e20  44 45 58 0d 09 a6 0b 4c  53 52 20 61 6e 64 0d 09  |DEX....LSR and..|
00000e30  b0 0a 42 4e 45 20 75 31  0d 09 ba 0a 2e 74 72 61  |..BNE u1.....tra|
00000e40  6e 73 0d 09 c4 0a 4c 44  59 20 23 30 0d 09 ce 08  |ns....LDY #0....|
00000e50  2e 75 33 20 0d 09 d8 0f  4c 44 41 20 64 61 74 2b  |.u3 ....LDA dat+|
00000e60  38 2c 59 0d 09 e2 0d 53  54 41 20 64 61 74 2c 59  |8,Y....STA dat,Y|
00000e70  0d 09 ec 07 49 4e 59 0d  09 f6 0a 43 50 59 20 23  |....INY....CPY #|
00000e80  38 0d 0a 00 0a 42 4e 45  20 75 33 0d 0a 0a 07 52  |8....BNE u3....R|
00000e90  54 53 0d 0a 14 05 5c 0d  0a 1e 09 2e 64 6f 77 6e  |TS....\.....down|
00000ea0  0d 0a 28 0c 4c 44 41 20  23 31 32 38 0d 0a 32 0b  |..(.LDA #128..2.|
00000eb0  53 54 41 20 61 6e 64 0d  0a 3c 0a 4c 44 58 20 23  |STA and..<.LDX #|
00000ec0  30 0d 0a 46 07 2e 64 31  0d 0a 50 0a 4c 44 41 20  |0..F..d1..P.LDA |
00000ed0  23 30 0d 0a 5a 0f 53 54  41 20 64 61 74 2b 38 2c  |#0..Z.STA dat+8,|
00000ee0  58 0d 0a 64 0a 4c 44 41  20 23 31 0d 0a 6e 0a 53  |X..d.LDA #1..n.S|
00000ef0  54 41 20 61 32 0d 0a 78  0a 4c 44 59 20 23 30 0d  |TA a2..x.LDY #0.|
00000f00  0a 82 07 2e 64 32 0d 0a  8c 0d 4c 44 41 20 64 61  |....d2....LDA da|
00000f10  74 2c 59 0d 0a 96 09 80  20 61 6e 64 0d 0a a0 0c  |t,Y..... and....|
00000f20  42 45 51 20 6e 6f 6d 32  0d 0a aa 07 43 4c 43 0d  |BEQ nom2....CLC.|
00000f30  0a b4 0a 4c 44 41 20 61  32 0d 0a be 0f 41 44 43  |...LDA a2....ADC|
00000f40  20 64 61 74 2b 38 2c 58  0d 0a c8 0f 53 54 41 20  | dat+8,X....STA |
00000f50  64 61 74 2b 38 2c 58 0d  0a d2 09 2e 6e 6f 6d 32  |dat+8,X.....nom2|
00000f60  0d 0a dc 07 49 4e 59 0d  0a e6 0a 41 53 4c 20 61  |....INY....ASL a|
00000f70  32 0d 0a f0 0a 42 4e 45  20 64 32 0d 0a fa 07 49  |2....BNE d2....I|
00000f80  4e 58 0d 0b 04 0b 4c 53  52 20 61 6e 64 0d 0b 0e  |NX....LSR and...|
00000f90  0a 42 4e 45 20 64 31 0d  0b 18 0d 4a 4d 50 20 74  |.BNE d1....JMP t|
00000fa0  72 61 6e 73 0d 0b 22 05  5c 0d 0b 2c 0a 2e 75 6e  |rans..".\..,..un|
00000fb0  64 65 72 0d 0b 36 0a 4c  44 59 20 23 30 0d 0b 40  |der..6.LDY #0..@|
00000fc0  0a 4c 44 58 20 23 37 0d  0b 4a 08 2e 6e 31 20 0d  |.LDX #7..J..n1 .|
00000fd0  0b 54 0a 4c 44 41 20 23  30 0d 0b 5e 0f 53 54 41  |.T.LDA #0..^.STA|
00000fe0  20 64 61 74 2b 38 2c 58  0d 0b 68 0c 4c 44 41 20  | dat+8,X..h.LDA |
00000ff0  23 31 32 38 0d 0b 72 0b  53 54 41 20 61 6e 64 0d  |#128..r.STA and.|
00001000  0b 7c 0a 4c 44 41 20 23  31 0d 0b 86 0a 53 54 41  |.|.LDA #1....STA|
00001010  20 61 32 0d 0b 90 07 2e  6e 32 0d 0b 9a 0d 4c 44  | a2.....n2....LD|
00001020  41 20 64 61 74 2c 59 0d  0b a4 09 80 20 61 6e 64  |A dat,Y..... and|
00001030  0d 0b ae 0c 42 45 51 20  6e 6f 6d 33 0d 0b b8 07  |....BEQ nom3....|
00001040  43 4c 43 0d 0b c2 0a 4c  44 41 20 61 32 0d 0b cc  |CLC....LDA a2...|
00001050  0f 41 44 43 20 64 61 74  2b 38 2c 58 0d 0b d6 0f  |.ADC dat+8,X....|
00001060  53 54 41 20 64 61 74 2b  38 2c 58 0d 0b e0 09 2e  |STA dat+8,X.....|
00001070  6e 6f 6d 33 0d 0b ea 0b  4c 53 52 20 61 6e 64 0d  |nom3....LSR and.|
00001080  0b f4 0a 41 53 4c 20 61  32 0d 0b fe 0a 42 4e 45  |...ASL a2....BNE|
00001090  20 6e 32 0d 0c 08 07 44  45 58 0d 0c 12 07 49 4e  | n2....DEX....IN|
000010a0  59 0d 0c 1c 0a 43 50 59  20 23 38 0d 0c 26 0a 42  |Y....CPY #8..&.B|
000010b0  4e 45 20 6e 31 0d 0c 30  0d 4a 4d 50 20 74 72 61  |NE n1..0.JMP tra|
000010c0  6e 73 0d 0c 3a 05 5d 0d  0c 44 05 ed 0d 0c 4e 05  |ns..:.]..D....N.|
000010d0  e1 0d 0c 58 05 3a 0d 0c  62 20 dd 20 f2 70 72 69  |...X.:..b . .pri|
000010e0  6e 74 28 78 25 2c 79 25  2c 73 74 25 2c 64 25 2c  |nt(x%,y%,st%,d%,|
000010f0  68 25 2c 73 24 29 0d 0c  6c 0b 24 73 74 72 3d 73  |h%,s$)..l.$str=s|
00001100  24 0d 0c 76 14 3f 73 74  6c 3d 73 74 25 2b 28 64  |$..v.?stl=st%+(d|
00001110  25 2a 36 34 29 0d 0c 80  0b 3f 73 69 7a 3d 68 25  |%*64)....?siz=h%|
00001120  0d 0c 8a 0b 3f 64 69 72  3d 64 25 0d 0c 94 0e f1  |....?dir=d%.....|
00001130  20 8a 78 25 2c 79 25 29  3b 0d 0c 9e 08 d6 20 70  | .x%,y%);..... p|
00001140  72 0d 0c a8 05 e1 0d ff                           |r.......|
00001148