|
0
|
1 ********************************************************************
|
|
|
2 * Display - Display converted characters
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 2 Original Microware distribution version
|
|
|
9
|
|
|
10 nam Display
|
|
|
11 ttl Display converted characters
|
|
|
12
|
|
|
13 * Disassembled 02/04/03 22:44:19 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use os9defs
|
|
|
17 endc
|
|
|
18 tylg set Prgrm+Objct
|
|
|
19 atrv set ReEnt+rev
|
|
|
20 rev set $01
|
|
|
21 mod eom,name,tylg,atrv,start,size
|
|
|
22 u0000 rmb 450
|
|
|
23 size equ .
|
|
|
24 name equ *
|
|
|
25 fcs /Display/
|
|
|
26 fcb $02
|
|
|
27 start equ *
|
|
|
28 cmpd #$0001
|
|
|
29 bls L0036
|
|
|
30 pshs x
|
|
|
31 leay ,x
|
|
|
32 L001F bsr L003A
|
|
|
33 bcs L0027
|
|
|
34 stb ,x+
|
|
|
35 bra L001F
|
|
|
36 L0027 tfr x,d
|
|
|
37 subd ,s
|
|
|
38 tfr d,y
|
|
|
39 puls x
|
|
|
40 lda #$01
|
|
|
41 os9 I$Write
|
|
|
42 bcs L0037
|
|
|
43 L0036 clrb
|
|
|
44 L0037 os9 F$Exit
|
|
|
45 L003A ldb ,y+
|
|
|
46 cmpb #$2C
|
|
|
47 bne L0042
|
|
|
48 L0040 ldb ,y+
|
|
|
49 L0042 cmpb #$20
|
|
|
50 beq L0040
|
|
|
51 leay -$01,y
|
|
|
52 bsr L0062
|
|
|
53 bcs L0061
|
|
|
54 pshs b
|
|
|
55 bsr L0062
|
|
|
56 bcs L005E
|
|
|
57 lsl ,s
|
|
|
58 lsl ,s
|
|
|
59 lsl ,s
|
|
|
60 lsl ,s
|
|
|
61 addb ,s
|
|
|
62 stb ,s
|
|
|
63 L005E clrb
|
|
|
64 puls b
|
|
|
65 L0061 rts
|
|
|
66 L0062 ldb ,y
|
|
|
67 subb #$30
|
|
|
68 cmpb #$09
|
|
|
69 bls L007A
|
|
|
70 cmpb #$31
|
|
|
71 bcs L0070
|
|
|
72 subb #$20
|
|
|
73 L0070 subb #$07
|
|
|
74 cmpb #$0F
|
|
|
75 bhi L007F
|
|
|
76 cmpb #$0A
|
|
|
77 bcs L007F
|
|
|
78 L007A andcc #$FE
|
|
|
79 leay $01,y
|
|
|
80 rts
|
|
|
81 L007F comb
|
|
|
82 rts
|
|
|
83 emod
|
|
|
84 eom equ *
|
