|
0
|
1 nam Font
|
|
|
2 ttl Sets Fonts
|
|
1260
|
3
|
|
0
|
4 ifp1
|
|
|
5 use defsfile
|
|
|
6 endc
|
|
1260
|
7
|
|
|
8 mod psize,pname,Prgrm+Objct,ReEnt+1,dsize,start
|
|
|
9
|
|
0
|
10 pname fcs /Font/
|
|
|
11
|
|
|
12 temp rmb 2
|
|
|
13 mpf rmb 2
|
|
|
14 fontset rmb 3
|
|
1260
|
15 fontinfo rmb 2
|
|
0
|
16 stack rmb 200
|
|
|
17 params rmb 200
|
|
|
18 BadBuff fcc /You've selected an undefined buffer./
|
|
1260
|
19 fcb C$LF,C$LF,C$CR
|
|
0
|
20 dsize equ *
|
|
|
21
|
|
|
22 start decb
|
|
1260
|
23 beq error
|
|
0
|
24 leay fontset,u
|
|
|
25 ldd #$1b3a
|
|
|
26 std ,y++
|
|
|
27 lda #$c8
|
|
|
28 sta ,y+
|
|
|
29 leay fontinfo,u
|
|
|
30 ldb #1
|
|
|
31 loop1 bsr numcvt
|
|
|
32 sta ,Y+
|
|
|
33 decb
|
|
|
34 bne loop1
|
|
|
35 leax fontset,u
|
|
|
36 ldy #4
|
|
|
37 lda #1
|
|
1260
|
38 os9 I$Write
|
|
0
|
39 bcc Exit
|
|
|
40 cmpb #194
|
|
1260
|
41 bne error
|
|
0
|
42 leax BadBuff,pcr
|
|
|
43 lda #2
|
|
|
44 ldy #50
|
|
1260
|
45 os9 I$WritLn
|
|
0
|
46 bra Exit
|
|
|
47 numcvt pshs b,y
|
|
|
48 nloop2 lda ,x+
|
|
|
49 cmpa #$30
|
|
|
50 blo nout2
|
|
|
51 cmpa #$39
|
|
|
52 bhi nout2
|
|
|
53 bra nloop2
|
|
|
54 nout2 pshs x
|
|
|
55 leax -1,x
|
|
|
56 clr temp,u
|
|
|
57 lda #1
|
|
|
58 sta mpf,u
|
|
|
59 nloop3 lda ,-x
|
|
|
60 cmpa #$30
|
|
|
61 blo nout3
|
|
|
62 cmpa #$39
|
|
|
63 bhi nout3
|
|
|
64 suba #$30
|
|
|
65 ldb mpf,u
|
|
|
66 mul
|
|
|
67 addb temp,u
|
|
|
68 stb temp,u
|
|
|
69 lda mpf,u
|
|
|
70 ldb #10
|
|
|
71 mul
|
|
|
72 stb mpf,u
|
|
|
73 bra nloop3
|
|
|
74 nout3 lda temp,u
|
|
|
75 puls x
|
|
|
76 puls b,y,pc
|
|
|
77 exit clrb
|
|
1260
|
78 error os9 F$Exit
|
|
|
79
|
|
0
|
80 emod
|
|
|
81 psize equ *
|
|
|
82 end
|
|
|
83
|
