Mercurial > hg > Members > kono > nitros9-code
annotate level1/modules/printer.asm @ 1570:a4b6825eeb72
ccdisk renamed to rb1773, added CC3 driver into source
| author | boisy |
|---|---|
| date | Tue, 18 May 2004 01:26:19 +0000 |
| parents | 53c50c807d55 |
| children |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 1320 | 2 * Printer - CoCo Serial Printer Driver |
| 0 | 3 * |
| 4 * $Id$ | |
| 5 * | |
| 1320 | 6 * Enhanced and re-written by Alan DeKok |
| 7 * | |
| 8 * Problems with original: | |
| 9 * returns wrong error on Read/SetStt | |
| 10 * doesn't block output. The printer is a single-user device! | |
| 11 * | |
| 12 * Edt/Rev YYYY/MM/DD Modified by | |
| 13 * Comment | |
| 0 | 14 * ------------------------------------------------------------------ |
| 1320 | 15 * 13 2003/01/05 Boisy G. Pitre |
| 16 * Back-ported to OS-9 Level Two. | |
| 17 * | |
| 18 * 2003/09/04 Boisy G. Pitre | |
| 19 * Back-ported to OS-9 Level One. | |
| 0 | 20 |
| 1320 | 21 nam Printer |
| 22 ttl CoCo Serial Printer Driver | |
| 0 | 23 |
| 24 ifp1 | |
| 25 use defsfile | |
| 26 endc | |
| 27 | |
| 1320 | 28 tylg set Drivr+Objct |
| 29 atrv set ReEnt+Rev | |
| 1287 | 30 rev set $00 |
| 1320 | 31 edition set 13 |
| 32 | |
| 33 mod eom,name,tylg,atrv,Start,Size | |
| 0 | 34 |
| 1320 | 35 fcb READ.+WRITE. |
| 36 | |
| 37 name fcs /Printer/ | |
| 38 fcb edition one more revision level than the stock printer | |
| 0 | 39 |
| 1320 | 40 * Device memory area: offset from U |
| 41 org V.SCF V.SCF: free memory for driver to use | |
| 42 V.PAR rmb 1 1=space, 2=mark parity | |
| 43 V.BIT rmb 1 0=7, 1=8 bits | |
| 44 V.STP rmb 1 0=1 stop bit, 1=2 stop bits | |
| 45 V.COM rmb 2 Com Status baud/parity (=Y from SS.Comst Set/GetStt | |
| 46 V.COL rmb 1 columns | |
| 47 V.ROW rmb 1 rows | |
| 48 V.WAIT rmb 2 wait count for baud rate? | |
| 49 V.TRY rmb 2 number of re-tries if printer is busy | |
| 50 V.RTRY rmb 1 low nibble of parity=high byte of number of retries | |
| 51 V.BUFF rmb $80 room for 128 blocked processes | |
| 0 | 52 size equ . |
| 256 | 53 |
| 1320 | 54 * Baud Rate Delay Table |
| 55 BaudDly equ * | |
| 56 IFEQ Level-1 | |
| 57 * OS-9 Level One delay values (0.89MHz) | |
| 58 fdb $0482 110 baud | |
| 59 fdb $01A2 300 baud | |
| 60 fdb $00CD 600 baud | |
| 61 fdb $0063 1200 baud | |
| 62 fdb $002D 2400 baud | |
| 63 fdb $0013 4800 baud | |
| 64 fdb $0005 9600 baud | |
| 65 ELSE | |
| 1363 | 66 IFEQ H6309 |
| 1320 | 67 * OS-9 Level Two delay values (1.78MHz) |
| 68 fdb $090C 110 baud | |
| 69 fdb $034C 300 baud | |
| 70 fdb $01A2 600 baud | |
| 71 fdb $00CE 1200 baud | |
| 72 fdb $0062 2400 baud | |
| 73 fdb $002E 4800 baud | |
| 74 fdb $0012 9600 baud | |
| 75 fdb $0003 32000 baud | |
| 76 ELSE | |
| 77 * NitrOS-9 Level Two delay values (1.78MHz) | |
| 78 fdb $090C 110 baud (Unchanged, unknown) | |
| 79 fdb $03D0 300 baud | |
| 80 fdb $01A2 600 baud (Unchanged, unknown) | |
| 81 fdb $00F0 1200 baud | |
| 82 fdb $0073 2400 baud | |
| 83 fdb $0036 4800 baud | |
| 84 fdb $0017 9600 baud | |
| 85 fdb $0003 32000 baud (Unchanged, unknown) | |
| 86 ENDC | |
| 87 ENDC | |
| 0 | 88 |
| 89 | |
| 1320 | 90 start equ * |
| 91 lbra Init | |
| 0 | 92 lbra Read |
| 93 lbra Write | |
| 1320 | 94 lbra GetStt |
| 95 lbra SetStt | |
| 96 | |
| 97 * Term | |
| 98 * | |
| 99 * Entry: | |
| 100 * U = address of device memory area | |
| 101 * | |
| 102 * Exit: | |
| 103 * CC = carry set on error | |
| 104 * B = error code | |
| 105 * | |
| 106 Term equ * | |
| 107 clrb | |
| 108 rts | |
| 0 | 109 |
| 110 * Init | |
| 111 * | |
| 112 * Entry: | |
| 113 * Y = address of device descriptor | |
| 114 * U = address of device memory area | |
| 115 * | |
| 116 * Exit: | |
| 117 * CC = carry set on error | |
| 118 * B = error code | |
| 119 * | |
| 1320 | 120 Init orcc #IntMasks |
|
1213
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
257
diff
changeset
|
121 ldx #PIA1Base |
| 0 | 122 clr $01,x |
| 1320 | 123 ldd <IT.COL,y get number of columns/rows |
| 124 std <V.COL,u save it in statics | |
| 0 | 125 lda #$FE |
| 126 sta ,x | |
| 127 lda #$36 | |
| 128 sta $01,x | |
| 129 lda ,x | |
| 1320 | 130 andcc #^IntMasks |
| 131 ldd <IT.PAR,y parity and baud rate | |
| 132 lbsr L0138 setup parity/baud in device memory | |
| 133 lbsr L0104 get low bit of $FF22 into carry | |
| 134 lbcs L0100 it's the ready flag | |
| 135 * clear out buffer | |
| 136 leax V.BUFF,u room for 128 blocked processes | |
| 137 ldb #128 | |
| 138 I010 clr ,x+ we're more concerned with room | |
| 139 decb than with speed, so we don't use TFM | |
| 140 bne I010 | |
| 141 rts | |
| 0 | 142 |
| 1320 | 143 L005F ldb <PD.BAU,y get baud rate in path desc. |
| 144 andb #$0F keep lower nibble | |
| 145 cmpb #$07 compare against highest | |
| 146 lbhs Read | |
| 147 aslb | |
| 148 leax <BaudDly,pc table of delay times | |
| 149 ldx b,x get delay counter | |
| 150 stx <V.WAIT,u save it off | |
| 151 clrb | |
| 0 | 152 rts |
| 1320 | 153 |
| 154 Bit_2 ldb #$02 | |
|
1213
4e235f213651
Lots of changes: bootscripts and bootlists added, sources massaged...
boisy
parents:
257
diff
changeset
|
155 L007D stb >PIA1Base |
| 1320 | 156 L0080 pshs d |
| 157 ldd <V.WAIT,u get wait count for baud rate | |
| 158 L0085 equ * | |
| 159 IFNE H6309 | |
| 160 decd count down by one | |
| 161 ELSE | |
| 162 subd #$0001 | |
| 163 ENDC | |
| 0 | 164 bne L0085 |
| 1320 | 165 puls pc,d |
| 0 | 166 |
| 167 * Write | |
| 168 * | |
| 169 * Entry: | |
| 170 * A = character to write | |
| 171 * Y = address of path descriptor | |
| 172 * U = address of device memory area | |
| 173 * | |
| 174 * Exit: | |
| 175 * CC = carry set on error | |
| 176 * B = error code | |
| 177 * | |
| 1320 | 178 Write equ * |
| 179 leax V.BUFF,u point to the buffer | |
| 180 ldb V.BUSY,u get my process number | |
| 181 tst ,x get allowed process number | |
| 182 bne W010 if not zero, else | |
| 183 stb ,x I'm the only one allowed to use it | |
| 184 | |
| 185 W010 cmpb ,x am I allowed to use /p? | |
| 186 beq W030 if yes, go write a character | |
| 187 | |
| 188 *************************************************************** | |
| 189 * WARNING: If more than 128 processes try to use the printer, | |
| 190 * this will CRASH BADLY. Since Level II on the Coco is limited | |
| 191 * to 32 processes, I don't think it's a problem. | |
| 192 *************************************************************** | |
| 193 | |
| 194 W020 tst ,x+ if not, find the first non-zero entry | |
| 195 bne W020 | |
| 196 stb -1,x and save my process number at the first zero | |
| 197 pshs a | |
| 198 lda V.BUFF,u process that's allowed to use /p | |
| 199 sta V.BUSY,u make it the busy one | |
| 200 ldb #S$Wake wake it up | |
| 201 os9 F$Send send a signal to wake it | |
| 202 IFNE H6309 | |
| 203 tfr 0,x | |
| 204 ELSE | |
| 205 ldx #$0000 | |
| 206 ENDC | |
| 207 os9 F$Sleep and go to sleep forever | |
| 208 puls a restore character to be sent, and continue | |
| 209 | |
| 210 W030 bsr L005F set up baud rate, etc in memory | |
| 211 bcs L00CA | |
| 212 pshs a | |
| 213 bsr L00CB make sure that the device is ready | |
| 214 puls a | |
| 215 bcs L00CA if the device is not ready | |
| 216 IFNE H6309 | |
| 217 lde #$09 9 bits to send out | |
| 218 ELSE | |
| 219 pshs b,a | |
| 220 lda #$09 | |
| 221 sta 1,s | |
| 222 puls a | |
| 223 ENDC | |
| 224 orcc #IntMasks turn off interrupts | |
| 225 tst <V.BIT,u number of bits | |
| 226 beq L00AC if 7 bits, count down by one | |
| 227 IFNE H6309 | |
| 228 dece initially send out start bit | |
| 229 ELSE | |
| 230 dec ,s | |
| 231 ENDC | |
| 232 | |
| 233 L00AC bsr L007D write B to $FF20 and wait | |
| 0 | 234 clrb |
| 1320 | 235 lsra move A into carry |
| 236 rolb | |
| 237 rolb | |
| 238 IFNE H6309 | |
| 239 dece count down on the number of bits to send | |
| 240 ELSE | |
| 241 dec ,s | |
| 242 ENDC | |
| 243 bne L00AC | |
| 244 IFEQ H6309 | |
| 245 puls b | |
| 246 ENDC | |
| 247 ldb <V.PAR,u space/mark parity | |
| 248 beq L00BC 0=no parity | |
| 249 andb #$FE 1=space, 0=mark parity | |
| 250 * should be andb #$FD I think... | |
| 251 bsr L007D dump out parity | |
| 252 L00BC bsr Bit_2 and a stop bit | |
| 253 tst <V.STP,u do another one? | |
| 0 | 254 beq L00C9 |
| 1320 | 255 bsr Bit_2 yes, dump out another stop bit |
| 256 L00C9 andcc #^IntMasks | |
| 257 L00CA rts | |
| 258 | |
| 259 L0104 pshs b | |
| 260 ldb >PIA1Base+$02 get a byte | |
| 261 lsrb | |
| 262 puls pc,b | |
| 263 | |
| 264 L00CB equ * | |
| 265 IFNE H6309 | |
| 266 clrd | |
| 267 ELSE | |
| 268 clra | |
| 0 | 269 clrb |
| 1320 | 270 ENDC |
| 271 std <V.TRY,u | |
| 0 | 272 L00D0 ldd #$0303 |
| 1320 | 273 L00D3 bsr L0104 get device ready status |
| 274 bcs L00DE if not ready, wait for a bit | |
| 275 IFNE H6309 | |
| 276 bsr L0080 wait | |
| 277 ELSE | |
| 278 lbsr L0080 wait | |
| 279 ENDC | |
| 280 decb | |
| 281 bne L00D3 try again | |
| 282 clrb | |
| 283 rts | |
| 284 | |
| 285 L00DE lbsr L0080 wait for a while | |
| 286 deca try 3 times, | |
| 0 | 287 bne L00D3 |
| 288 pshs x | |
| 289 ldx #$0001 | |
| 1320 | 290 os9 F$Sleep sleep for the rest of this tick |
| 0 | 291 puls x |
| 1320 | 292 ldd <V.TRY,u |
| 293 IFNE H6309 | |
| 294 incd we've tried once more and failed... | |
| 295 ELSE | |
| 0 | 296 addd #$0001 |
| 1320 | 297 ENDC |
| 298 std <V.TRY,u | |
| 299 ldb <V.RTRY,u number of retries to do | |
| 300 beq L00D0 if unspecified, keep retrying | |
| 301 cmpb <V.TRY,u if exceeded number of retries, | |
| 302 bhi L00D0 then we crap out | |
| 303 | |
| 304 L0100 comb | |
| 0 | 305 ldb #E$NotRdy |
| 1320 | 306 rts |
| 0 | 307 |
| 308 * GetStat | |
| 309 * | |
| 310 * Entry: | |
| 311 * A = function code | |
| 312 * Y = address of path descriptor | |
| 313 * U = address of device memory area | |
| 314 * | |
| 315 * Exit: | |
| 316 * CC = carry set on error | |
| 1320 | 317 * B = error code |
| 0 | 318 * |
| 1320 | 319 GetStt cmpa #SS.EOF end of file? |
| 320 bne L0112 | |
| 321 clrb if so, exit with no error | |
| 322 rts | |
| 323 | |
| 324 L0112 ldx PD.RGS,y | |
| 0 | 325 cmpa #SS.ScSiz |
| 1320 | 326 beq L0123 |
| 0 | 327 cmpa #SS.ComSt |
| 1320 | 328 bne L0173 |
| 329 ldd <V.COM,u get Com status | |
| 0 | 330 std R$Y,x |
| 1320 | 331 clrb |
| 332 rts | |
| 333 | |
| 334 * get screen size GetStt | |
| 335 L0123 clra | |
| 336 ldb <V.COL,u | |
| 0 | 337 std R$X,x |
| 1320 | 338 ldb <V.ROW,u |
| 0 | 339 std R$Y,x |
| 1320 | 340 clrb |
| 341 rts | |
| 0 | 342 |
| 1320 | 343 * SetStat |
| 0 | 344 * |
| 345 * Entry: | |
| 346 * A = function code | |
| 347 * Y = address of path descriptor | |
| 348 * U = address of device memory area | |
| 349 * | |
| 350 * Exit: | |
| 351 * CC = carry set on error | |
| 1320 | 352 * B = error code |
| 0 | 353 * |
| 1320 | 354 SetStt cmpa #SS.ComSt |
| 355 bne Close if not, check if it's a close | |
| 0 | 356 ldx PD.RGS,y |
| 357 ldd R$Y,x | |
| 1320 | 358 * A = Parity byte |
| 359 * B = baud rate | |
| 360 L0138 std <V.COM,u save parity, baud rate in com status | |
| 361 IFNE H6309 | |
| 362 clrd | |
| 363 ELSE | |
| 0 | 364 clra |
| 365 clrb | |
| 1320 | 366 ENDC |
| 367 std <V.PAR,u | |
| 368 sta <V.STP,u | |
| 369 ldd <V.COM,u | |
| 0 | 370 tstb |
| 1320 | 371 bpl L014C |
| 372 inc <V.STP,u do 2 stop bits | |
| 373 L014C bitb #$40 make sure the bit is zero | |
| 0 | 374 bne Read |
| 1320 | 375 bitb #$20 0=8, 1=7 bits |
| 376 beq L0157 | |
| 377 inc <V.BIT,u | |
| 378 L0157 bita #$20 | |
| 379 beq L0169 if=0, no parity | |
| 0 | 380 bita #$80 |
| 1320 | 381 beq Read if high bit set (only for ACIA devices), error out |
| 382 inc <V.PAR,u parity | |
| 0 | 383 bita #$40 |
| 1320 | 384 bne L0169 1=space, |
| 385 inc <V.PAR,u 2=mark parity | |
| 386 L0169 anda #$0F | |
| 387 sta <V.RTRY,u | |
| 388 rts | |
| 389 | |
| 390 Read comb | |
| 391 ldb #E$BMode | |
| 0 | 392 rts |
| 393 | |
| 1320 | 394 L0173 comb |
| 395 ldb #E$UnkSVc | |
| 0 | 396 rts |
| 397 | |
| 1320 | 398 Close cmpa #SS.Close close the device? |
| 399 bne L0173 | |
| 400 leax V.BUFF,u point to blocked process buffer | |
| 401 | |
| 402 C010 lda 1,x get next process number | |
| 403 sta ,x+ | |
| 404 bne C010 do until we have a zero byte | |
| 405 | |
| 406 lda V.BUFF,u get the first process in the queue | |
| 407 beq C020 if none left | |
| 408 ldb #S$Wake wake up signal | |
| 409 os9 F$Send re-start the blocked process | |
| 410 | |
| 411 C020 clrb | |
| 0 | 412 rts |
| 413 | |
| 414 emod | |
| 415 eom equ * | |
| 416 end |