Mercurial > hg > Members > kono > nitros9-code

annotate level1/modules/co80.asm @ 2910:87f2133301b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove execute permissions from files that should not have it
author Tormod Volden <debian.tormod@gmail.com>
date Sat, 11 Jan 2014 21:52:42 +0100
parents 6e40b043d3e0
children 987f995993c3
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
1933
1e312b144f4d Major changes:
boisy
parents: 1738
diff changeset
2 * CO80 - Mysterious 80 Column Co-Driver for VTIO
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
6 * This driver came with OS-9 Level One V2.00, yet it does not
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
7 * seem to be written for the WordPak RS.
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
8 *
1499
6cd590fc076f Fixed comments
boisy
parents: 1287
diff changeset
9 * Edt/Rev YYYY/MM/DD Modified by
6cd590fc076f Fixed comments
boisy
parents: 1287
diff changeset
10 * Comment
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 * ------------------------------------------------------------------
1499
6cd590fc076f Fixed comments
boisy
parents: 1287
diff changeset
12 * 2 ????/??/??
6cd590fc076f Fixed comments
boisy
parents: 1287
diff changeset
13 * From Tandy OS-9 Level One VR 02.00.00
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
14 *
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
15 * 2003/09/22 Rodney Hamilton
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
16 * recoded dispatch table fcbs
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18 nam CO80
1933
1e312b144f4d Major changes:
boisy
parents: 1738
diff changeset
19 ttl Mysterious 80 column co-driver for VTIO
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
21 BASEADDR equ $FF78
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 use defsfile
2690
6e40b043d3e0 Removed coco port, added coco1 and coco2 ports.
Boisy Pitre <boisy.pitre@nuance.com>
parents: 1933
diff changeset
25 use cocovtio.d
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 tylg set Systm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 atrv set ReEnt+rev
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
30 rev set $01
201
668388823050 Fixed headers to be consistent
boisy
parents: 0
diff changeset
31 edition set 2
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 u0000 rmb 0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 fcb $06
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 name fcs /CO80/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
42 start equ *
1582
e19a38f50c3a More commments added
boisy
parents: 1512
diff changeset
43 lbra Init
e19a38f50c3a More commments added
boisy
parents: 1512
diff changeset
44 lbra Write
e19a38f50c3a More commments added
boisy
parents: 1512
diff changeset
45 lbra GetStat
e19a38f50c3a More commments added
boisy
parents: 1512
diff changeset
46 lbra SetStat
e19a38f50c3a More commments added
boisy
parents: 1512
diff changeset
47 lbra Term
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
48
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
49 * Init
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
50 Init ldx #BASEADDR
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
51 lda #$06 Vertical Displayed Rows
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 sta $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 sta ,x
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
54 lda #$08 Mode Control
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
55 sta $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 clr ,x
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
57 lda #$0E Cursor Position Address
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 sta $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 clr ,x
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
60 lbsr CurHome
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
61 lbsr CurOn
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
62 ldd #80*25
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 lbsr L0189
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
64 ldb <V.COLoad,u
2690
6e40b043d3e0 Removed coco port, added coco1 and coco2 ports.
Boisy Pitre <boisy.pitre@nuance.com>
parents: 1933
diff changeset
65 orb #ModCoWP
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 bra L004F
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
67 * Term
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
68 Term ldb <V.COLoad,u
2690
6e40b043d3e0 Removed coco port, added coco1 and coco2 ports.
Boisy Pitre <boisy.pitre@nuance.com>
parents: 1933
diff changeset
69 andb #~ModCoWP
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
70 L004F stb <V.COLoad,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 rts
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
73 * GetStat
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
74 GetStat cmpa #SS.Cursr
1582
e19a38f50c3a More commments added
boisy
parents: 1512
diff changeset
75 bne SetStat
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
76 ldy R$Y,y
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77 clra
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
78 ldb <V.C80X,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
79 addb #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 std $06,y
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
81 ldb <V.C80Y,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
82 addb #$20
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
83 std R$X,y
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
84 ldx #BASEADDR
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
85 lda #$0D Display Start Address
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
86 sta $01,x
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
87 lbsr WaitBUSY
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
88 lda ,x
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
89 lbsr WaitBUSY
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
90 lda ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
91 sta $01,y
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
92 * no operation entry point
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
93 NoOp clrb
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
94 rts
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
95 * SetStat
1582
e19a38f50c3a More commments added
boisy
parents: 1512
diff changeset
96 SetStat ldb #E$UnkSvc
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
97 coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
98 rts
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
99 * Write
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
100 Write ldx #BASEADDR get HW addr in X
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
101 cmpa #$0E $0E?
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
102 bcs L00B6 branch if less than
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
103 cmpa #$1E $1E?
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
104 bcs NoOp branch if less than
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
105 cmpa #C$SPAC space?
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
106 lbcs Check1F branch if less than
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
107 cmpa #$7F $7F?
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
108 bcs ChrOut ASCII char, branch if less than
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
109 cmpa #$C0 $C0?
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
110 bls L00A6 branch if lower or same
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 anda #$1F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
112 suba #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 cmpa #$19
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
114 bhi L00B2
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
115 bra ChrOut
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
116 L00A6 cmpa #$AA $AA?
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
117 bcs L00B2 branch if less than
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
118 ora #$10
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 anda #$1F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 cmpa #$1A
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
121 bcc ChrOut
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 L00B2 lda #$7F
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
123 bra ChrOut
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
124
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
125 L00B6 leax >FuncTbl,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 lsla
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 ldd a,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 leax d,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 pshs x
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
130 ldx #BASEADDR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 rts
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
132
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
133 * display functions dispatch table
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
134 FuncTbl fdb NoOp-FuncTbl $00:no-op (null)
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
135 fdb CurHome-FuncTbl $01:HOME cursor
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
136 fdb CurXY-FuncTbl $02:CURSOR XY
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
137 fdb ErLine-FuncTbl $03:ERASE LINE
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
138 fdb ErEOL-FuncTbl $04:ERASE TO EOL
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
139 fdb CurOnOff-FuncTbl $05:CURSOR ON/OFF
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
140 fdb CurRgt-FuncTbl $06:CURSOR RIGHT
1933
1e312b144f4d Major changes:
boisy
parents: 1738
diff changeset
141 fdb NoOp-FuncTbl $07:no-op (bel:handled in VTIO)
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
142 fdb CurLft-FuncTbl $08:CURSOR LEFT
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
143 fdb CurUp-FuncTbl $09:CURSOR UP
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
144 fdb CurDown-FuncTbl $0A:CURSOR DOWN
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
145 fdb ErEOS-FuncTbl $0B:ERASE TO EOS
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
146 fdb ClrScrn-FuncTbl $0C:CLEAR SCREEN
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
147 fdb CrRtn-FuncTbl $0D:RETURN
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
148
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
149 * $08 - cursor left
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
150 CurLft ldd <V.C80X,u get CO80 X/Y
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
151 bne L00E8 branch if not at start
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
152 clrb
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
153 rts
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
154 L00E8 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155 bge L00EE
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
156 ldb #79
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
157 deca
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
158 L00EE std <V.C80X,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 bra L014F
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
160
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
161 * $09 - cursor up
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
162 CurUp lda <V.C80X,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
163 beq L00FF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 deca
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
165 sta <V.C80X,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 lbra L01CC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 L00FF clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
168 rts
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
169
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
170 * $0D - move cursor to start of line (carriage return)
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
171 CrRtn clr <V.C80Y,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
172 bra L014C
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
173
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
174 * ChrOut - output a readable character
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
175 * Entry: A = ASCII value of character to output
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
176 ChrOut ora <V.Invers,u add inverse video flag
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
177 pshs a save char
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
178 bsr WaitBUSY wait for HW
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
179 puls a restore char
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
180 ldb #$0D Display Start Address
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
181 stb $01,x
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
182 sta ,x write character
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
183
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
184 * $06 - cursor right
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
185 CurRgt inc <V.C80Y,u
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
186 lda <V.C80Y,u
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
187 cmpa #79
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 ble L014C
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
189 bsr CrRtn
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
190
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
191 * $0A - cursor down (line feed)
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
192 CurDown lda <V.C80X,u
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
193 cmpa #23
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
194 bge L012E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
195 inca
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
196 sta <V.C80X,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
197 bra L014F
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
198 L012E ldd <V.Co80X,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 lbsr L01DC
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
200 ldd <V.Co80X,u
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
201 addd #80
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
202 bsr L0161
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
203 std <V.Co80X,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
204 bsr L018E
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
205 ldd <V.Co80X,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
206 bsr L016B
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
207 lda #$08 Mode Control
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
208 sta $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
209 stb ,x
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
210 L014C lda <V.C80X,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
211 L014F lbra L01CC
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
212
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
213 * $01 - home cursor
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
214 CurHome clr <V.C80X,u
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
215 clr <V.C80Y,u
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
216 ldd <V.Co80X,u
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
217 std <V.ColPtr,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
218 lbra L01DC
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
219 L0161 cmpd #80*25
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
220 blt L016A
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
221 subd #80*25
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
222 L016A rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
223 L016B lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
225 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
226 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
227 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
228 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
229 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
230 rorb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
231 rts
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
232
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
233 * X = address of WordPak
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
234 WaitBUSY lda $01,x
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
235 bpl WaitBUSY
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
236 rts
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
237
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
238 * $03 - erase line
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
239 ErLine bsr CrRtn do a CR
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
240 ErEOL lda <V.C80X,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
241 inca
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
242 ldb #80 line length
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243 mul
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
244 bra L0189
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
245
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
246 * $0C - clear screen
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
247 ClrScrn bsr CurHome do home cursor, then erase to EOS
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
248
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
249 * $0B - erase to end of screen
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
250 ErEOS ldd #80*24
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
251 L0189 addd <V.Co80X,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
252 bsr L0161
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
253 L018E bsr L016B
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
254 bsr WaitBUSY
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
255 lda #$0B Cursor End Line
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
256 sta $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
257 stb ,x
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
258 lda #$0D Display Start Address
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
259 sta $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
260 lda #$20
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
261 sta ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
262 L01A0 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
263 rts
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
264
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
265 * $02 XX YY - move cursor to col XX-32, row YY-32
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
266 CurXY leax >L01B0,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
267 ldb #$02
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
268 L01A8 stx <V.RTAdd,u
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
269 stb <V.NGChr,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
270 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
271 rts
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
272 L01B0 ldx #BASEADDR get HW address
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
273 lda <V.NChr2,u get char2 in A
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
274 ldb <V.NChar,u and char1 in B
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
275 subb #32 subtract 32 from B
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
276 blt L01A0 if less than 0, we're done
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
277 cmpb #79 compare against greatest column
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
278 bgt L01A0 branch if >79
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
279 suba #32 else subtract 32 from A
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
280 blt L01A0 if less than 0, we're done
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
281 cmpa #23 compare against greatest row
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
282 bgt L01A0 branch if >23
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
283 std <V.C80X,u else store A/B in new col/row position
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
284 L01CC ldb #80 multiply A*80 to find new row
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
285 mul
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
286 addb <V.C80Y,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
287 adca #$00
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
288 addd <V.Co80X,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
289 bsr L0161
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
290 std <V.ColPtr,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
291 L01DC pshs b,a
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
292 bsr WaitBUSY
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
293 lda #$0A Cursor Start Line
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 sta $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
295 lda ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
296 sta ,x
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
297 lda #$09 Number of Scan Lines
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
298 sta $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
299 lda ,s+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
300 sta ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
301 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
302 rts
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
303
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
304 Check1F cmpa #$1F
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
305 bne WritErr
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
306 lda <V.NChr2,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
307 cmpa #$21
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
308 beq InvOn
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
309 cmpa #$20
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
310 beq InvOff
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
311 WritErr comb
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
312 ldb #E$Write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
313 rts
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
314
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
315 InvOn lda #$80
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
316 sta <V.Invers,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
317 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
318 rts
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
319
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
320 InvOff clr <V.Invers,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
321 L020F clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
322 rts
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
323
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
324 * $05 XX - set cursor off/on/color per XX-32
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
325 CurOnOff leax >L0219,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
326 ldb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
327 bra L01A8
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
328 L0219 ldx #BASEADDR
1585
4a2a4667a4cf Source enhancements
boisy
parents: 1582
diff changeset
329 lda <V.NChr2,u get next character
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
330 cmpa #$20 cursor code valid?
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
331 blt WritErr no, error
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
332 beq L022D
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
333 cmpa #$2A color code in range?
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
334 bgt L020F no, ignore
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
335 CurOn lda #$05 cursor on (all colors=on)
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
336 bra L022F
1512
f3557a63b11c Rodney's improvements
boisy
parents: 1499
diff changeset
337 L022D lda #$45 cursor off
1738
afae4d350682 Updated source, reset revision to 1 so assembles identical to original
boisy
parents: 1736
diff changeset
338 L022F ldb #$0C
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
339 stb $01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
340 sta ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
341 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
342 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
343
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
344 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
345 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
346 end