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