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