Mercurial > hg > Members > kono > nitros9-code
annotate level2/modules/vtio.asm @ 2018:505c8d261ef6
Futher division of krn, commnents added
| author | boisy |
|---|---|
| date | Wed, 08 Mar 2006 01:58:50 +0000 |
| parents | 55210a27019c |
| children | 9e49b536525f |
| rev | line source |
|---|---|
| 1933 | 1 ******************************************************************** |
| 2 * VTIO - Video Terminal I/O Driver for CoCo 3 | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * NOTE: CODE ISSUES FOUND!! | |
| 7 * "Animate Palette? This obviously isn't implemented yet" | |
| 8 * Look at this code. Why is this calling an entry point in | |
| 9 * SNDDRV??? | |
| 10 * | |
| 11 * Edt/Rev YYYY/MM/DD Modified by | |
| 12 * Comment | |
| 13 * ------------------------------------------------------------------ | |
| 14 * 16 1986/??/?? | |
| 15 * Original OS-9 L2 Tandy distribution. | |
| 16 * | |
| 17 * 26r3 1998/10/12 | |
| 18 * Added support for obtaining monitor type from the init module. | |
| 19 * | |
| 20 * 26r4 1998/10/23 | |
| 21 * Added support for obtaining key repeat info from the init module. | |
| 22 * | |
| 23 * 26r5 2002/07/24 | |
| 24 * Added support for obtaining mouse info from the init module. | |
| 25 * | |
| 26 * 27 2003/08/18 Boisy G. Pitre | |
| 27 * Forward ported to NitrOS-9. | |
| 28 * | |
| 29 * 2003/11/16 Robert Gault | |
| 30 * Corrected several lines for keyboard mouse. | |
| 31 * Corrected several lines in SSMOUSE where MS.Side used incorrectly. | |
| 32 * | |
| 33 * 2003/12/02 Boisy G. Pitre | |
| 34 * Keyboard mouse is now either global or local to window, depending | |
| 35 * on whether GLOBALKEYMOUSE is defined. | |
| 36 * | |
| 37 * 2004/08/14 Boisy G. Pitre | |
| 38 * Fixed a bug where the last deiniz of the last window device caused | |
| 39 * an infinite loop. The problem was that IOMan clears the static | |
| 40 * storage of a device whose use count has reached zero (in the | |
| 41 * case of a hard detach). See Note below. | |
|
2013
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
42 * |
|
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
43 * 1 2006/03/04 Boisy G. Pitre |
|
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
44 * Added detection of CTRL-ALT-BREAK to invoke system debugger. |
|
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
45 * Renamed to VTIO and reset edition to 1. |
| 1933 | 46 |
| 47 nam VTIO | |
| 48 ttl Video Terminal I/O Driver for CoCo 3 | |
| 49 | |
| 50 * Disassembled 98/09/09 08:29:24 by Disasm v1.6 (C) 1988 by RML | |
| 51 | |
| 52 ifp1 | |
| 53 use defsfile | |
| 54 endc | |
| 55 | |
| 56 tylg set Drivr+Objct | |
| 57 atrv set ReEnt+rev | |
| 58 rev set 0 | |
|
2013
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
59 edition set 1 |
| 1933 | 60 |
| 61 * Comment out next line for global keyboard mouse; otherwise, it's on/off | |
| 62 * on a per-window basis. | |
| 63 GLOBALKEYMOUSE equ 1 | |
| 64 | |
| 65 mod eom,name,tylg,atrv,start,CC3DSiz | |
| 66 | |
| 67 fcb EXEC.+UPDAT. | |
| 68 | |
| 69 name fcs /VTIO/ | |
| 70 fcb edition | |
| 71 | |
| 72 start lbra Init | |
| 73 lbra Read | |
| 74 lbra Write | |
| 75 lbra GetStat | |
| 76 lbra SetStat | |
| 77 | |
| 78 * Term | |
| 79 * | |
| 80 * Entry: | |
| 81 * U = address of device memory area | |
| 82 * | |
| 83 * Exit: | |
| 84 * CC = carry set on error | |
| 85 * B = error code | |
| 86 * | |
| 87 Term equ * | |
| 88 ldx <D.CCMem get ptr to CC memory | |
| 89 cmpu G.CurDev,x device to be terminated is current? | |
| 90 * cmpu >WGlobal+G.CurDev device to be terminated is current? | |
| 91 bne noterm no, execute terminate routine in co-module | |
| 92 lbsr SHFTCLR get last window memory pointer | |
| 93 cmpu G.CurDev,x device to be terminated is current? | |
| 94 * cmpu >WGlobal+G.CurDev we the only window left? | |
| 95 bne noterm no, execute terminate routine in co-module | |
| 96 * We are last device that VTIO has active; terminate ourself | |
| 97 pshs cc | |
| 98 orcc #IRQMask | |
| 99 IFNE H6309 | |
| 100 clrd | |
| 101 ELSE | |
| 102 clra | |
| 103 clrb | |
| 104 ENDC | |
| 105 std G.CurDev,x | |
| 106 * std >WGlobal+G.CurDev | |
| 107 * ldx <D.Clock change altirq routine to go to clock | |
| 108 ldx G.OrgAlt,x get original D.AltIRQ address | |
| 109 stx <D.AltIRQ | |
| 110 puls cc restore IRQs | |
| 111 | |
| 112 pshs u,x | |
| 113 ldx #(WGlobal+G.JoyEnt) | |
| 114 bsr TermSub | |
| 115 ldx #(WGlobal+G.SndEnt) | |
| 116 bsr TermSub | |
| 117 ldx #(WGlobal+G.KeyEnt) | |
| 118 bsr TermSub | |
| 119 puls u,x | |
| 120 noterm ldb #$0C branch table offset for terminate | |
| 121 lbra CallCo go to terminate in co-module | |
| 122 | |
| 123 * Call terminate routine in subroutine module (KeyDrv/JoyDrv/SndDrv) | |
| 124 * X = addr in statics of entry | |
| 125 TermSub leau 2,x point U to static area for sub module | |
| 126 ldx ,x get entry pointer at ,X | |
| 127 jmp $03,x call term routine in sub module | |
| 128 | |
| 129 * Init | |
| 130 * | |
| 131 * Entry: | |
| 132 * Y = address of device descriptor | |
| 133 * U = address of device memory area | |
| 134 * | |
| 135 * Exit: | |
| 136 * CC = carry set on error | |
| 137 * B = error code | |
| 138 * | |
| 139 Init ldx <D.CCMem get ptr to CC mem | |
| 140 ldd <G.CurDev,x has VTIO itself been initialized? | |
| 141 lbne PerWinInit yes, don't bother doing it again | |
| 142 * VTIO initialization code - done on the first init of ANY VTIO device | |
| 1994 | 143 * leax >ISR,pcr set up AltIRQ vector in DP |
| 1933 | 144 * stx <D.AltIRQ |
| 145 leax >SHFTCLR,pcr point to SHIFT-CLEAR subroutine | |
| 146 pshs x save it on stack | |
| 147 leax >setmouse,pcr get address of setmouse routine | |
| 148 tfr x,d | |
| 149 ldx <D.CCMem get ptr to CC mem | |
| 150 std >G.MsInit,x | |
| 151 puls b,a get address of SHIFT-CLEAR subroutine | |
| 152 std >G.WindBk,x save its vector | |
| 153 stu <G.CurDev,x | |
| 154 lbsr setmouse initialize mouse | |
| 155 | |
| 156 lda #$02 | |
| 157 sta G.CurTik,x save # ticks between cursor(s)updates | |
| 158 inc <G.Mouse+Pt.Valid,x set mouse packet to invalid | |
| 159 ldd #$0178 default to right mouse/time out value | |
| 160 std <G.Mouse+Pt.Actv,x | |
| 161 | |
| 162 ldd #$FFFF initialize keyboard values | |
| 163 std <G.LKeyCd,x last keyboard code & key repeat counter inactive | |
| 164 std <G.2Key2,x | |
| 165 ldd <D.Proc get cur proc desc ptr in D | |
| 166 pshs u,y,x,b,a save regs | |
| 167 | |
| 168 * Added to allow patching for RGB/CMP/Mono and Key info - BGP | |
| 169 * Uses new init module format to get monitor type and key info | |
| 170 | |
| 171 ldy <D.Init get init module ptr | |
| 172 lda MonType,y get monitor type byte 0,1,2 | |
| 173 sta <G.MonTyp,x save off | |
| 174 ldd MouseInf,y get mouse information | |
| 175 sta <G.Mouse+Pt.Res,x save off hi-res/lo-res flag | |
| 176 stb <G.Mouse+Pt.Actv,x save off left/right | |
| 177 ldd KeyRptS,y get key repeat start/delay constant | |
| 178 sta <G.KyRept,x set first delay | |
| 179 std <G.KyDly,x set initial and 2ndary constants | |
| 180 | |
| 181 ldd <D.SysPrc get system process desc ptr | |
| 182 std <D.Proc and make current proc | |
| 183 leax >KeyDrv,pcr point to keyboard driver sub module name | |
| 184 bsr LinkSys link to it | |
| 185 * U = ptr to CC mem | |
| 186 sty >G.KeyEnt,u and save the entry point | |
| 187 leau >G.KeyMem,u point U to keydrv statics | |
| 188 jsr ,y call init routine of sub module | |
| 189 leax >JoyDrv,pcr point to joystick driver sub module name | |
| 190 bsr LinkSys link to it | |
| 191 * U = ptr to CC mem | |
| 192 sty >G.JoyEnt,u and save the entry point | |
| 193 leau >G.JoyMem,u point U to joydrv statics | |
| 194 jsr ,y call init routine of sub module | |
| 195 leax >SndDrv,pcr point to sound driver sub module name | |
| 196 bsr LinkSys link to it | |
| 197 * U = ptr to CC mem | |
| 198 sty >G.SndEnt,u and save the entry point | |
| 199 leau >G.SndMem,u point U to sound statics | |
| 200 jsr ,y call init routine of sub module | |
| 201 puls u,y,x,b,a restore saved regs | |
| 202 std <D.Proc and restore current process | |
| 203 | |
| 204 ldx <D.AltIRQ get original D.AltIRQ address | |
| 205 stx >WGlobal+G.OrgAlt save in window globals for later | |
| 1994 | 206 leax >ISR,pcr set up AltIRQ vector in DP |
| 1933 | 207 stx <D.AltIRQ |
| 208 | |
| 209 * This code is executed on init of every window | |
| 210 * U = device memory area | |
| 211 PerWinInit | |
| 212 ldd #$0078 set default SS.Mouse parameters | |
| 213 std <V.MSmpl,u (Mouse sample rate & fire button timeout value) | |
| 214 ldd <IT.PAR,y get parity/baud bytes from dev desc | |
| 215 std <V.DevPar,u save it off in our static | |
| 216 *** Find CC3GfxInt | |
| 217 * pshs u,y,a ..else VDG | |
| 218 * lda #$02 get code for VDG type window | |
| 219 * sta <V.WinType,u save it | |
| 220 * leax <CC3GfxInt,pcr point to CC3GfxInt name | |
| 221 * lbsr L08D4 link to it if it exists | |
| 222 * puls u,y,a restore regs & return | |
| 223 *** | |
| 224 lbra FindCoMod go find and init co-module | |
| 225 | |
| 226 KeyDrv fcs /KeyDrv/ | |
| 227 JoyDrv fcs /JoyDrv/ | |
| 228 SndDrv fcs /SndDrv/ | |
| 229 | |
| 230 LinkSys lda #Systm+Objct system module | |
| 231 os9 F$Link link to it | |
| 232 ldu <D.CCMem get ptr to CC mem | |
| 233 rts | |
| 234 | |
| 235 | |
| 236 * Read | |
| 237 * | |
| 238 * NOTE: | |
| 239 * This just reads keys from the buffer. The physical reading | |
| 240 * of keys is done by the IRQ routine. | |
| 241 * | |
| 242 * Entry: | |
| 243 * Y = address of path descriptor | |
| 244 * U = address of device memory area | |
| 245 * | |
| 246 * Exit: | |
| 247 * A = character read | |
| 248 * CC = carry set on error | |
| 249 * B = error code | |
| 250 * | |
| 1994 | 251 Read tst V.PAUS,u device paused? |
| 252 bpl read1 no, do normal read | |
| 253 * Here, device is paused; check for mouse button down | |
| 254 * If it is down, we simply return without error. | |
| 255 tst >(WGlobal+G.Mouse+Pt.CBSA) test current button state A | |
| 1933 | 256 beq read1 button isn't pressed, do normal read |
| 257 clra clear carry (no error) | |
| 258 rts return | |
| 259 | |
| 1994 | 260 * Check to see if there is a signal-on-data-ready set for this path. |
| 261 * If so, we return a Not Ready error. | |
| 1933 | 262 read1 lda <V.SSigID,u data ready signal trap set up? |
| 1994 | 263 lbne NotReady yes, exit with not ready error |
| 1933 | 264 leax >ReadBuf,u point to keyboard buffer |
| 265 ldb <V.InpPtr,u get current position in keyboard buffer | |
| 266 orcc #IRQMask disable IRQs | |
| 267 cmpb <V.EndPtr,u same as end of buffer ptr (no keys in buffer)? | |
| 268 beq ReadSlp yes, no new chars waiting, sleep/scan for them | |
| 269 * Character(s) waiting in buffer | |
| 270 abx move ptr to character | |
| 271 lda ,x get character from buffer | |
| 272 incb inc keyboard buffer ptr | |
| 273 bpl bumpdon if it hasn't wrapped 128 bytes, go save it | |
| 274 * bsr ChkWrap check for wrap | |
| 275 clrb | |
| 276 bumpdon stb <V.InpPtr,u save updated keyboard buffer ptr | |
| 277 andcc #^(IRQMask!Carry) restore IRQ and clear carry | |
| 278 rts return with A containing char read | |
| 279 | |
| 280 * Nothing is in input buffer so wait for it | |
| 281 ReadSlp lda V.BUSY,u get active process id # | |
| 282 sta V.WAKE,u save as process id # to wake up when data read | |
| 283 andcc #^IRQMask restore IRQ | |
| 284 ldx #$0000 sleep till data ready | |
| 285 os9 F$Sleep | |
| 286 clr V.WAKE,u signal gotten, disable process # to wake up | |
| 287 ldx <D.Proc get current proc desc ptr | |
| 288 ldb <P$Signal,x signal pending? | |
| 289 beq Read no, go read char | |
| 290 * Signal was pending already, check it out | |
| 291 IFNE H6309 | |
| 292 tim #Condem,P$State,x are we condemend? | |
| 293 ELSE | |
| 294 lda P$State,x | |
| 295 bita #Condem | |
| 296 ENDC | |
| 297 bne ReadErr yes, exit with error flag set back to SCF | |
| 298 cmpb #S$Window window change or higher signal? | |
| 299 bcc Read yes, read the char since it won't change | |
| 300 ReadErr coma major signal, return with error flag | |
| 301 rts (Keyboard abort/interrupt) | |
| 302 | |
| 303 * Check wraparound of keyboard buffer (could be inlined) | |
| 304 *ChkWrap incb inc keyboard buffer pointer | |
| 305 * cmpb #$7F wrapped around? | |
| 306 * bls L015F branch if not | |
| 307 * clrb else reset pointer to 0 | |
| 308 *L015F rts return | |
| 309 | |
| 310 * Keyboard mouse coordinate deltas | |
| 311 L0160 fcb 8,1 right arrow (normal, shifted) | |
| 312 fdb MaxRows-1 right arrow (control) | |
| 313 fcb -8,-1 left arrow (normal, shifted) | |
| 314 fdb 0 left arrow (control) | |
| 315 fcb 8,1 down arrow (normal, shifted) | |
| 316 fdb MaxLine down arrow (control) | |
| 317 fcb -8,-1 up arrow (normal, shifted) | |
| 318 fdb 0 up arrow (control) | |
| 319 | |
| 320 * Check mouse coordinate | |
| 321 * Entry: D=Maximum allowed coordinate for current axis being checked | |
| 322 * Y=Ptr to current coordinate in mouse packet being checked | |
| 323 L0170 cmpd ,y past maximum allowed coordinate? | |
| 324 blt L017B | |
| 325 ldd ,y below zero? | |
| 326 bpl L017D no, return | |
| 327 IFNE H6309 | |
| 328 clrd set it to minimum coordinate (zero) | |
| 329 ELSE | |
| 330 clra | |
| 331 clrb | |
| 332 ENDC | |
| 333 L017B std ,y set it to maximum coordinate | |
| 334 L017D rts return | |
| 335 | |
| 336 | |
| 337 * Main keyboard scan (after PIA has been read) | |
| 338 * Check keyboard mouse arrows | |
| 339 * Entry: U=Global mem ptr | |
| 340 * X=??? | |
| 341 * A=Key that was pressed | |
| 342 * Exit: E=0 if key was pressed, 1 if none pressed | |
| 343 * Updated for localized keyboard mouse similiar to TC9IO | |
| 344 * | |
| 345 L017E ldb #$01 flag | |
| 346 pshs u,y,x,b,a save registers used & flag | |
| 347 ldb <G.KyMse,u get keyboard mouse flag | |
| 348 beq L01E6 branch if off | |
| 349 * Keyboard mouse is on | |
| 350 lda <G.KySns,u | |
| 351 bita #%01111000 any arrow key pressed? | |
| 352 beq L01DF | |
| 353 clr $01,s clear flag to indicate update | |
| 354 lda #$01 | |
| 355 sta <G.MseMv,u flag a mouse coord change | |
| 356 ldd #$0803 start at up arrow and up arrow table | |
| 357 pshs b,a entries & save them | |
| 358 leax >L0160,pcr point to keyboard mouse deltas | |
| 359 leay <G.Mouse+Pt.AcY,u point to mouse coords | |
| 360 | |
| 361 * Update keyboard mouse co-ordinates according to arrow key pressed | |
| 362 L01A2 bita <G.KySns,u desired arrow key down? | |
| 363 beq L01C5 no, move to next key | |
| 364 lslb multiply * 4 (size of each set) | |
| 365 lslb to point to start of proper arrow entry | |
| 366 tst <G.ShftDn,u shift key down? | |
| 367 beq L01B1 no, go on | |
| 368 incb move ptr to <shifted> offset | |
| 369 bra L01BC get delta | |
| 370 L01B1 tst <G.CntlDn,u control key down? | |
| 371 beq L01BC no, go on | |
| 372 * <CTRL>-arrow | |
| 373 addb #$02 move ptr to <CTRL> offset | |
| 374 ldd b,x get control coordinate | |
| 375 bra L01C1 go store it in mouse packet | |
| 376 * <arrow> or <SHIFT>-<arrow> | |
| 377 L01BC ldb b,x get offset to present mouse coordinate | |
| 378 sex make into 16 bit offset (keep sign) | |
| 379 addd ,y add it to current coordinate | |
| 380 L01C1 std ,y save updated coordinate | |
| 381 ldd ,s get key count | |
| 382 L01C5 lsla move to next key bit | |
| 383 decb decrement key count | |
| 384 cmpb #$01 down to X coordinates? | |
| 385 bne L01CD no, continue | |
| 386 leay -$02,y move to mouse X coordinate | |
| 387 L01CD std ,s save key count & key | |
| 388 bpl L01A2 keep trying until all keys checked | |
| 389 puls b,a purge stack of key and delta offset | |
| 390 ldd #MaxRows-1 get maximum X coordinate | |
| 391 bsr L0170 check X coordinate | |
| 392 leay $02,y move to Y coordinate | |
| 393 ldd #MaxLine get maximum Y coordinate | |
|
2013
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
394 lbsr L0170 check it |
| 1933 | 395 L01DF lda <G.KyButt,u key button down? |
| 396 bne L0223 yes, return | |
| 397 lda ,s get back character read | |
| 398 L01E6 tst <G.Clear,u clear key down? | |
| 399 beq L0225 yes, return | |
| 400 clr <G.Clear,u clear out clear key flag | |
| 401 * Check CTRL-0 (CAPS-Lock) | |
| 1994 | 402 cmpa #%10000001 CTRL-0? |
| 1933 | 403 bne L01FF no, keep checking |
| 404 ldb <G.KySame,u same key pressed? | |
| 405 bne L0223 | |
| 406 ldx <G.CurDev,u get dev mem pointer | |
| 407 IFNE H6309 | |
| 408 eim #CapsLck,<V.ULCase,x | |
| 409 ELSE | |
| 410 ldb <V.ULCase,x | |
| 411 eorb #CapsLck reverse current CapsLock status | |
| 412 stb <V.ULCase,x | |
| 413 ENDC | |
| 414 bra L0223 return | |
| 415 * Check CLEAR key | |
| 1994 | 416 L01FF cmpa #%10000010 was it CLEAR key? |
| 1933 | 417 bne L0208 no, keep going |
| 418 lbsr CLEAR find next window | |
| 419 bra L0223 return | |
| 420 * Check SHIFT-CLEAR | |
| 1994 | 421 L0208 cmpa #%10000011 was it SHIFT-CLEAR? |
| 1933 | 422 bne L0211 no, keep checking |
| 423 lbsr SHFTCLR yes, find back window | |
| 424 bra L0223 return | |
| 425 * Check CTRL-CLEAR | |
| 1994 | 426 L0211 cmpa #%10000100 keyboard mouse toggle key? |
| 1933 | 427 bne L0225 no, return |
| 428 ldb <G.KySame,u same key pressed? | |
| 429 bne L0223 yes, return | |
| 430 IFNE GLOBALKEYMOUSE | |
| 431 com <G.KyMse,u | |
| 432 ELSE | |
| 433 ldx <G.CurDev,u | |
| 434 clra assume no keyboard mouse | |
| 435 IFNE H6309 | |
| 436 eim #KeyMse,<V.ULCase,x | |
| 437 ELSE | |
| 438 ldb <V.ULCase,x | |
| 439 eorb #KeyMse reverse current Keyboard Mouse status | |
| 440 stb <V.ULCase,x | |
| 441 ENDC | |
| 442 beq KeyMOff branch if off | |
| 443 deca else A = $FF | |
| 444 KeyMOff sta <G.KyMse,u save window's keyboard mouse flag in global | |
| 445 ENDC | |
| 446 L0223 clr $01,s | |
| 447 L0225 ldb $01,s | |
| 448 puls pc,u,y,x,b,a restore regs | |
| 449 | |
| 450 L0229 pshs x,b save external mouse button status & PIA addr | |
| 451 leax <G.Mouse,u mouse point to mouse packet | |
| 452 tst Pt.ToTm,x timed value zero? | |
| 453 lbeq L02C8 branch if so | |
| 454 leas -$05,s make a buffer for locals | |
| 455 tfr a,b move keyboard button flags to B | |
| 456 tst <G.KyMse,u keyboard mouse activated? | |
| 457 bne L024E yes, go on | |
| 458 ldb #%00000101 mask for button 1 & 2 on right mouse/joystick | |
| 459 lda Pt.Actv,x get active mouse side | |
| 460 anda #%00000010 clear all but left side select | |
| 461 sta ,s save result | |
| 462 beq L0248 if 0 (off or right side), skip ahead | |
| 463 lslb otherwise, change button 1 & 2 mask for left moue | |
| 464 L0248 andb $05,s check with external mouse button status type | |
| 465 tsta right side? | |
| 466 beq L024E yes, skip ahead | |
| 467 lsrb left side, shift over so we can use same routine | |
| 468 * Bits 0 & 2 of B contain external mouse buttons that are pressed (doesn't | |
| 469 * matter which side) | |
| 470 L024E clra clear out A | |
| 471 lsrb shift out LSBit of B | |
| 472 rola put into LSBit of A | |
| 473 lsrb shift out another bit of B | |
| 474 std $01,s store fire button info | |
| 475 bne L0276 fire button(s) pressed, go on | |
| 476 lda Pt.TTTo,x timeout occur? | |
| 477 beq L02C6 yes, exit | |
| 478 bsr L02CA fire buttons change? | |
| 479 beq L0262 no, decrement timeout count | |
| 480 bsr L02D3 go update fire button click & timeout info | |
| 481 beq L02AB if neither button state changed, skip ahead | |
| 482 L0262 dec Pt.TTTo,x decrement timeout count | |
| 483 bne L02AB not timed out, go update last state counts | |
| 484 IFNE H6309 | |
| 485 clrd | |
| 486 clrw | |
| 487 ELSE | |
| 488 clra | |
| 489 clrb | |
| 490 ENDC | |
| 491 sta >G.MsSig,u clear read flag | |
| 492 std Pt.TSSt,x clear time since counter start | |
| 493 IFNE H6309 | |
| 494 stq Pt.CCtA,x clear button click count & time this state | |
| 495 ELSE | |
| 496 std Pt.CCtA,x clear button click count & time this state | |
| 497 std Pt.TTSA,x | |
| 498 ENDC | |
| 499 std Pt.TLSA,x clear button time last state | |
| 500 bra L02C6 exit | |
| 501 | |
| 502 L0276 lda Pt.ToTm,x get timeout initial value | |
| 503 sta Pt.TTTo,x reset count | |
| 504 bsr L02CA fire buttons change? | |
| 505 beq L02AB no, update last state counts | |
| 506 bsr L02D3 update fire button info | |
| 507 inc >WGlobal+G.MsSig flag mouse signal | |
| 508 IFNE H6309 | |
| 509 ldq <Pt.AcX,x get actual X & Y coordinates | |
| 510 stq <Pt.BDX,x copy it to button down X & Y coordinates | |
| 511 ELSE | |
| 512 ldd <Pt.AcX,x get actual X coordinate | |
| 513 std <Pt.BDX,x copy it to button down X coordinate | |
| 514 ldd <Pt.AcY,x get actual Y coordinate | |
| 515 std <Pt.BDY,x copy it to button down Y coordinate | |
| 516 ENDC | |
| 517 pshs u save ptr to CC mem | |
| 518 ldu <G.CurDev,u get dev mem ptr | |
| 519 lda <V.MSigID,u get process ID requesting mouse signal | |
| 520 beq L02A9 branch if none | |
| 521 ldb <V.MSigSg,u else get signal code to send | |
| 522 os9 F$Send and send it | |
| 523 bcs L02A5 branch if error | |
| 524 clr <V.MSigID,u clear signal ID (one shot) | |
| 525 L02A5 clr >WGlobal+G.MsSig clear read flag | |
| 526 L02A9 puls u recover pointer to CC mem | |
| 527 L02AB ldd Pt.TTSA,x get button A&B time last state | |
| 528 cmpa #$FF limit? | |
| 529 beq L02B2 yes, go on | |
| 530 inca increment state | |
| 531 L02B2 cmpb #$FF limit? | |
| 532 beq L02B7 yes, store them | |
| 533 incb increment B state | |
| 534 L02B7 std Pt.TTSA,x save updated states | |
| 535 ldd Pt.TSST,x get time since start | |
| 536 IFNE H6309 | |
| 537 incd increment | |
| 538 beq L02C6 branch if zero | |
| 539 ELSE | |
| 540 * cmpd #$FFFF check upper bound | |
| 541 * beq L02C4 branch if so | |
| 542 * addd #$0001 else increment | |
| 543 addd #1 | |
| 544 beq L02C6 | |
| 545 ENDC | |
| 546 L02C4 std Pt.TSST,x save updated state count | |
| 547 L02C6 leas $05,s purge locals | |
| 548 L02C8 puls pc,x,b restore & return | |
| 549 | |
| 550 L02CA ldd Pt.CBSA,x get button states | |
| 551 IFNE H6309 | |
| 552 eord $03,s flip fire 1 & 2 | |
| 553 ELSE | |
| 554 eora $03,s | |
| 555 eorb $04,s | |
| 556 ENDC | |
| 557 std $05,s save 'em | |
| 558 rts return | |
| 559 | |
| 560 * Update mouse button clock counts & timeouts | |
| 561 L02D3 ldd Pt.TTSA,x get button time this state | |
| 562 tst $05,s button A change? | |
| 563 beq L02E9 no, go check B | |
| 564 sta Pt.TLSA,x save button A time last state | |
| 565 lda $03,s button A pressed? | |
| 566 bne L02E8 yes, skip increment | |
| 567 lda Pt.CCtA,x get click count for A | |
| 568 inca bump up click count | |
| 569 beq L02E9 branch if wrapped | |
| 570 sta Pt.CCtA,x save button A click count | |
| 571 L02E8 clra clear button A time this state | |
| 572 L02E9 tst 6,s button B change? | |
| 573 beq L02FD no, go save time this state | |
| 574 stb Pt.TLSB,x save button B time last state count | |
| 575 ldb $04,s button B pressed? | |
| 576 bne L02FC yes, skip increment | |
| 577 ldb Pt.CCtB,x get b click count | |
| 578 incb bump up click count | |
| 579 beq L02FD brach if wrapped to zero | |
| 580 stb Pt.CCtB,x save B click count | |
| 581 L02FC clrb clear button B time this state | |
| 582 L02FD std Pt.TTSA,x save button time this state counts | |
| 583 ldd $03,s get new fire buttons | |
| 584 std Pt.CBSA,x save 'em | |
| 585 ldd $05,s get button A & B change flags | |
| 586 NullIRQ rts return | |
| 587 | |
| 588 | |
| 1994 | 589 * |
| 1933 | 590 * VTIO IRQ routine - Entered from Clock every 1/60th of a second |
| 1994 | 591 * |
| 592 * The interrupt service routine is responsible for: | |
| 593 * - Decrementing the tone counter | |
| 594 * - Select the new active window if needed | |
| 595 * - Updating graphics cursors if needed | |
| 596 * - Checking for mouse update | |
| 597 * | |
| 598 ISR ldu <D.CCMem get ptr to CC mem | |
| 1933 | 599 ldy <G.CurDev,u get current device's static |
| 1994 | 600 lbeq CheckAutoMouse branch if none (meaning no window is currently created) |
| 601 tst <G.TnCnt,u get tone counter | |
| 602 beq CheckScrChange branch if zero | |
| 603 dec <G.TnCnt,u else decrement | |
| 604 | |
| 1933 | 605 * Check for any change on screen |
| 606 * U=Unused now (sitting as NullIRQ ptr) - MAY WANT TO CHANGE TO CUR DEV PTR | |
| 607 * Y=Current Device mem ptr | |
| 1994 | 608 CheckScrChange |
| 609 leax <NullIRQ,pcr set AltIRQ to do nothing routine so other IRQs | |
| 1933 | 610 stx <D.AltIRQ can fall through to IOMan polling routine |
| 611 andcc #^(IntMasks) re-enable interrupts | |
| 612 ldb <V.ScrChg,y check screen update request flag (cur screen) | |
| 613 beq L0337 no update needed, skip ahead | |
| 614 lda V.TYPE,y device a window? | |
| 1994 | 615 bpl SelNewWindow no, must be CoVDG, so go on |
| 1933 | 616 lda G.GfBusy,u 0 = GrfDrv free, 1 = GrfDrv busy |
| 617 ora G.WIBusy,u 0 = CoWin free, 1 = CoWin busy | |
| 618 bne L034F one of the two is busy, can't update, skip | |
| 1994 | 619 SelNewWindow |
| 620 clra special function: select new active window | |
| 1933 | 621 lbsr L05DA go execute co-module |
| 622 clr <V.ScrChg,y clear screen change flag in device mem | |
| 623 * | |
| 624 * CHECK IF GFX/TEXT CURSORS NEED TO BE UPDATED | |
| 625 * G.GfBusy = 1 Grfdrv is busy processing something else | |
| 1994 | 626 * G.WIBusy = 1 CoWin is busy processing something else |
| 1933 | 627 * g0000 = # of clock ticks/cursor update constant (2) for 3 ticks: 2,1,0 |
| 628 * G.CntTik = current clock tick for cursor update | |
| 629 * | |
| 1994 | 630 L0337 tst G.CntTik,u get current clock tick count for cursor updates |
| 1933 | 631 beq L034F if 0, no update required |
| 1994 | 632 dec G.CntTik,u decrement the tick count |
| 633 bne L034F if still not 0, don't do update | |
| 1933 | 634 lda G.GfBusy,u get GrfDrv busy flag |
| 635 ora G.WIBusy,u merge with CoWin busy flag | |
| 636 beq L034A if both not busy, go update cursors | |
| 637 inc G.CntTik,u otherwise bump tick count up again | |
| 638 bra L034F and don't update | |
| 639 | |
| 640 L034A lda #$02 update cursors sub-function code | |
| 641 lbsr L05DA go update cursors through co-module | |
| 642 * Check for mouse update | |
| 643 L034F equ * | |
| 644 * Major error here. Used regU which points to D.CCMem not G.CurDev. RG | |
| 645 IFNE GLOBALKEYMOUSE | |
| 646 tst <G.KyMse,u keyboard mouse? | |
| 647 ELSE | |
| 648 IFNE H6309 | |
| 649 tim #KeyMse,<V.ULCase,y keyboard mouse? | |
| 650 ELSE | |
| 651 lda <V.ULCase,y keyboard mouse? | |
| 652 bita #KeyMse | |
| 653 ENDC | |
| 654 ENDC | |
| 655 bne L0369 branch if so | |
| 656 lda <G.MSmpRt,u get # ticks until next mouse read | |
| 657 beq L0369 0 means shut off, don't bother | |
| 658 deca decrement # ticks | |
| 659 bne L0366 still not yet, save tick counter & skip mouse | |
| 660 pshs u,y,x save dev mem ptr and others | |
| 661 lbsr L0739 go update mouse packet | |
| 662 puls u,y,x restore regs | |
| 663 lda <G.MSmpRV,u get # ticks/mouse read reset value | |
| 664 L0366 sta <G.MSmpRt,u save updated tick count | |
| 1994 | 665 |
| 1933 | 666 * Check keyboard |
| 667 L0369 equ * | |
| 668 IFNE H6309 | |
| 669 clrd initialize keysense & same key flag | |
| 670 ELSE | |
| 671 clra | |
| 672 clrb | |
| 673 ENDC | |
| 674 std <G.KySns,u initialize keysense & same key flag | |
| 675 * Major error here. Was regU; see above. RG | |
| 676 IFNE GLOBALKEYMOUSE | |
| 677 tst <G.KyMse,u | |
| 678 ELSE | |
| 679 IFNE H6309 | |
| 680 tim #KeyMse,>V.ULCase,y | |
| 681 ELSE | |
| 682 pshs a | |
| 683 lda >V.ULCase,y is the keyboard mouse enabled? | |
| 684 bita #KeyMse | |
| 685 puls a | |
| 686 ENDC | |
| 687 ENDC | |
| 688 beq L0381 no, try joystick | |
| 689 ldx >WGlobal+G.KeyEnt else get ptr to keydrv | |
| 690 leau >G.KeyMem,u and ptr to its statics | |
| 691 jsr K$FnKey,x call into it | |
| 692 ldu <D.CCMem get ptr to CC mem | |
| 1994 | 693 sta <G.KyButt,u save keyboard/button state |
| 1933 | 694 L0381 ldx >WGlobal+G.JoyEnt get ptr to joydrv |
| 695 leau >G.JoyMem,u and ptr to its statics | |
| 696 jsr J$MsBtn,x get mouse button info | |
| 1994 | 697 * Here, B now holds the value from the MsBtn routine in JoyDrv. |
| 1933 | 698 ldu <D.CCMem get ptr to CC mem |
| 699 lda #%10000010 A = $82 | |
| 700 cmpb #%10000000 clear flag set? | |
| 701 beq L0397 branch if so | |
| 702 inca A now = $83 | |
| 703 cmpb #%11000000 shift clear flag set? | |
| 704 bne L039C branch if not | |
| 705 L0397 inc <G.Clear,u | |
| 706 bra L03C8 | |
| 707 L039C tst V.PAUS,y pause screen on? | |
| 708 bpl L03A8 branch if not | |
| 709 bitb #%00000011 any mouse buttons down? | |
| 710 beq L03A8 branch if not | |
| 711 lda #C$CR load A with carriage return | |
| 712 bra L03C8 | |
| 713 L03A8 lda <G.KyButt,u | |
| 714 lbsr L0229 | |
| 715 tstb | |
| 716 lbne L044E | |
| 717 pshs u,y,x | |
| 718 ldx >WGlobal+G.KeyEnt | |
| 719 leau >G.KeyMem,u | |
| 720 jsr K$RdKey,x call Read Key routine | |
| 721 puls u,y,x | |
| 722 bpl L03C8 branch if valid char received | |
| 723 clr <G.LastCh,u else clear last character var | |
| 724 lbra L044E | |
|
2013
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
725 L03C8 |
|
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
726 *** Inserted detection of debugger invocation key sequence here... |
|
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
727 cmpa #$9B CTRL+ALT+BREAK? |
|
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
728 bne n@ no, move on |
|
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
729 jsr [>WGlobal+G.BelVec] for whom the bell tolls... |
|
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
730 os9 F$Debug |
|
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
731 lbra L044E |
|
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
732 n@ |
|
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
733 *** |
|
55210a27019c
Edition reset to 1, CTRL-ALT-BREAK now used to call F$Debug
boisy
parents:
1994
diff
changeset
|
734 cmpa <G.LastCh,u is current ASCII code same as last one pressed? |
| 1933 | 735 bne L03DF no, no keyboard repeat, skip ahead |
| 736 ldb <G.KyRept,u get repeat delay constant | |
| 737 beq L044E if keyboard repeat shut off, skip repeat code | |
| 738 decb repeat delay up? | |
| 739 beq L03DA branch if so and reset | |
| 740 L03D5 stb <G.KyRept,u update delay | |
| 741 bra L044E return | |
| 742 | |
| 743 L03DA ldb <G.KySpd,u get reset value for repeat delay | |
| 744 bra L03ED go update it | |
| 745 | |
| 746 L03DF sta <G.LastCh,u store last keyboard character | |
| 747 ldb <G.KyDly,u get keyboard delay speed | |
| 748 tst <G.KySame,u same key as last time? | |
| 749 bne L03D5 no, go reset repeat delay | |
| 750 ldb <G.KyDly,u get time remaining | |
| 751 L03ED stb <G.KyRept,u save updated repeat delay | |
| 752 lbsr L017E | |
| 753 beq L044E | |
| 754 ldb #$01 This may be wrong because regB was created in sub RG | |
| 755 stb >g00BF,u menu keypress flag | |
| 756 ldu <G.CurDev,u get ptr to statics in U | |
| 757 ldb <V.EndPtr,u | |
| 758 leax >ReadBuf,u point to keyboard buffer | |
| 759 abx move to proper offset | |
| 760 incb inc keyboard buffer ptr | |
| 761 bpl bumpdon2 hasn't wrapped, skip ahead | |
| 762 clrb reset pointer | |
| 763 * lbsr ChkWrap check for wrap-around | |
| 764 bumpdon2 cmpb <V.InpPtr,u same as start? | |
| 765 beq L0411 yep, go on | |
| 766 stb <V.EndPtr,u save updated pointer | |
| 767 L0411 sta ,x save key in buffer | |
| 768 beq L0431 go on if it was 0 | |
| 769 * Check for special characters | |
| 770 cmpa V.PCHR,u pause character? | |
| 771 bne L0421 no, keep checking | |
| 772 ldx V.DEV2,u is there an output path? | |
| 773 beq L0443 no, wake up the process | |
| 774 sta V.PAUS,x set immediate pause request on device | |
| 775 bra L0443 wake up the process | |
| 776 | |
| 777 L0421 ldb #S$Intrpt get signal code for key interrupt | |
| 778 cmpa V.INTR,u is key an interrupt? | |
| 779 beq L042D branch if so (go send signal) | |
| 780 ldb #S$Abort get signal code for key abort | |
| 781 cmpa V.QUIT,u is it a key abort? | |
| 782 bne L0431 no, check data ready signal | |
| 783 L042D lda V.LPRC,u get last process ID | |
| 784 bra L0447 go send the signal | |
| 785 L0431 lda <V.SSigID,u send signal on data ready? | |
| 786 beq L0443 no, just go wake up process | |
| 787 ldb <V.SSigSg,u else get signal code | |
| 788 os9 F$Send | |
| 789 bcs L044E | |
| 790 clr <V.SSigID,u clear signal ID | |
| 791 bra L044E return | |
| 792 L0443 ldb #S$Wake get signal code for wakeup | |
| 793 lda V.WAKE,u get process ID to wake up | |
| 794 L0447 beq L044E no process to wake, return | |
| 795 clr V.WAKE,u clear it | |
| 796 os9 F$Send send the signal | |
| 797 L044E ldu <D.CCMem get ptr to CC mem | |
| 1994 | 798 CheckAutoMouse |
| 1933 | 799 lda <G.AutoMs,u auto mouse flag set? |
| 800 beq L046B branch if not | |
| 801 lda <G.MseMv,u get mouse moved flag | |
| 802 ora <G.Mouse+Pt.CBSA,u | |
| 803 beq L046B | |
| 804 lda G.GfBusy,u check for GrfDrv busy | |
| 805 ora G.WIBusy,u OR with CoWin busy | |
| 806 bne L046B branch if they are busy | |
| 807 lda #$03 | |
| 808 lbsr L05DA | |
| 809 clr <G.MseMv,u clear mouse move flag | |
| 810 L046B orcc #IntMasks mask interrupts | |
| 1994 | 811 leax >ISR,pcr get IRQ vector |
| 1933 | 812 stx <D.AltIRQ and store in AltIRQ |
| 813 rts return | |
| 814 | |
| 815 | |
| 816 org 4 | |
| 817 f.nbyte rmb 1 # of bytes to next entry in table (signed #) | |
| 818 f.tblend rmb 2 ptr to end of device table + 1 | |
| 819 f.ptrstr rmb 2 start of search ptr (if backwards, -1 entry) | |
| 820 f.ptrend rmb 2 end of search ptr (if backwards, -1 entry) | |
| 821 *f.ptrcur rmb 2 ptr to current device's device table entry | |
| 822 f.ptrdrv rmb 2 ptr to current device's driver | |
| 823 f.ptrchk rmb 2 ptr to the device table entry we are currently checking | |
| 824 f.numdve rmb 1 number of device table entries in device table | |
| 825 f.end equ . | |
| 826 | |
| 827 * Prepare for Window search in Device Table | |
| 828 * Point to end of device table | |
| 829 WinSearchInit | |
| 830 stb f.nbyte+2,s save # bytes to next (neg or pos) | |
| 831 ldx <D.Init get pointer to init module | |
| 832 lda DevCnt,x get max # of devices allowed | |
| 833 sta f.numdve+2,s | |
| 834 ldb #DEVSIZ get size of each device table entry | |
| 835 mul calculate total size of device table | |
| 836 ldy <D.DevTbl get device table ptr | |
| 837 leax d,y point X to end of devtable + 1 | |
| 838 stx f.tblend+2,s save the ptr & return | |
| 839 rts | |
| 840 | |
| 841 * CLEAR processor | |
| 842 CLEAR pshs u,y,x,b,a preserve registers | |
| 843 leas <-f.end,s make a buffer on stack | |
| 844 ldb #DEVSIZ get # of bytes to move to next entry (forward) | |
| 845 bsr WinSearchInit get pointer to devtable | |
| 846 stx f.ptrend,s save end of devtable | |
| 847 sty f.ptrstr,s save beginning of devtable | |
| 848 bra FindWin | |
| 849 | |
| 850 * Shift-CLEAR processor | |
| 851 SHFTCLR pshs u,y,x,b,a preserve registers | |
| 852 leas <-f.end,s make a buffer on the stack | |
| 853 ldb #-DEVSIZ # of bytes to move next entry (backwards) | |
| 854 bsr WinSearchInit make ptrs to devtable | |
| 855 * Here, Y points to first entry of device table | |
| 856 * and X points to last entry of device table + 1 | |
| 857 leay -DEVSIZ,y bump Y back by 1 entry (for start of loop) | |
| 858 sty f.ptrend,s save it | |
| 859 leax -DEVSIZ,x bump X back for start of loop | |
| 860 stx f.ptrstr,s save it | |
| 861 | |
| 862 * FindWin - Find the next (or previous) window in the device table | |
| 863 * | |
| 864 * The search takes place just before or after the current window's | |
| 865 * device table entry. | |
| 866 * | |
| 867 * NOTE: SS.OPEN for current window has changed V.PORT to be the ptr to the | |
| 868 * current window's entry in the device table | |
| 869 FindWin ldx <D.CCMem get ptr to CC mem | |
| 870 ldu <G.CurDev,x get active device's static mem ptr | |
| 871 lbeq L0546 if none (no screens), exit without error | |
| 872 ldx V.PORT,u get device table ptr for current device | |
| 873 * stx f.ptrcur,s save it on stack | |
| 874 stx f.ptrchk,s save as default we are checking | |
| 875 ldd V$DRIV,x get ptr to current device driver's module | |
| 876 std f.ptrdrv,s save it on stack | |
| 877 * Main search loop | |
| 878 L04BA ldx f.ptrchk,s get ptr to device tbl entry we are checking | |
| 879 L04BC ldb f.nbyte,s get # of bytes to next entry (signed) | |
| 880 dec f.numdve,s + have we exhausted all entries? | |
| 881 bmi L0541 + yes, end | |
| 882 leax b,x point to next entry (signed add) | |
| 883 cmpx f.ptrend,s did we hit end of search table? | |
| 884 bne L04C6 no, go check if it is a screen device | |
| 885 ldx f.ptrstr,s otherwise wrap around to start of search ptr | |
| 886 * Check device table entry (any entry we can switch to has to have VTIO as | |
| 887 * the driver) | |
| 888 L04C6 stx f.ptrchk,s save new device table ptr we are checking | |
| 889 ldd V$DRIV,x get ptr to driver | |
| 890 cmpd f.ptrdrv,s same driver as us? (VTIO) | |
| 891 bne L04BC no, try next one | |
| 892 * NOTE: The next two lines are moved down two lines, past the check | |
| 893 * for our own device table pointer. This fixes a bug where the last | |
| 894 * deiniz of the last window device caused an infinite loop. The problem | |
| 895 * was that IOMan clears the static storage of a device whose use count | |
| 896 * has reached zero (in the case of a hard detach), and we were testing for | |
| 897 * a V$STAT of zero BEFORE seeing if we reached our own device table entry. | |
| 898 | |
| 899 * Next two lines moved... | |
| 900 * ldu V$STAT,x get ptr to static storage for tbl entry | |
| 901 * beq L04BC there is none, try next one | |
| 902 * cmpx f.ptrcur,s is this our own (have we come full circle)? | |
| 903 * beq L0541 yes, obviously nowhere else to switch to | |
| 904 * ...to here. | |
| 905 ldu V$STAT,x get ptr to static storage for tbl entry | |
| 906 beq L04BC there is none, try next one | |
| 907 * Found an initialized device controlled by VTIO that is not current device | |
| 908 lda <V.InfVld,u is the extra window data in static mem valid? | |
| 909 beq L04BA no, not good enough, try next one | |
| 910 ldx <V.PDLHd,u get ptr to list of open paths on device | |
| 911 beq L0536 no open paths, so switch to that device | |
| 912 lda V.LPRC,u get last active process ID # that used device | |
| 913 beq L0536 | |
| 914 * Path's open to device & there is a last process # for that path | |
| 915 ldy <D.PrcDBT get process descriptor table ptr | |
| 916 lda a,y get MSB of ptr to process descriptor last on it | |
| 917 beq L0536 process now gone, so switch to device | |
| 918 clrb move process desc ptr to Y | |
| 919 tfr d,y | |
| 920 lda >P$SelP,y get the path # that outputs to the window | |
| 921 leay <P$Path,y move to the path table local to the process | |
| 922 sta ,s | |
| 923 pshs x | |
| 924 L04FA ldb #NumPaths for every possible path... | |
| 925 lda ,x get system path into A | |
| 926 L04FE decb decrement | |
| 927 cmpa b,y same? | |
| 928 beq L050F branch if so | |
| 929 tstb are we at start of paths? | |
| 930 bne L04FE branch if not | |
| 931 ldx <PD.PLP,x get ptr to next path dsc. list (linked list) | |
| 932 bne L04FA branch if valid | |
| 933 puls x else restore X | |
| 934 bra L0536 | |
| 935 L050F puls x | |
| 936 lda ,s | |
| 937 L0513 sta ,s | |
| 938 cmpa #$02 is selected path one of the 3 std paths? | |
| 939 bhi L051F not one of the std 3 paths, skip ahead | |
| 940 ldb #$02 standard error path | |
| 941 lda b,y get system path # for local error path | |
| 942 bra L0522 | |
| 943 | |
| 944 L051F lda a,y get system path # for local path | |
| 945 clrb standard in | |
| 946 * X=Ptr to linked list of open paths on device | |
| 947 * A=System path # | |
| 948 * B=Local (to process) path # | |
| 949 * Check if any paths to device are open, if they are we can switch to it | |
| 950 L0522 cmpa ,x path we are checking same as path already open | |
| 951 beq L0536 on device? yes, go switch to it | |
| 952 decb bump local path # down | |
| 953 bmi L052D if no more paths to check, skip ahead | |
| 954 lda b,y get system path # for new local path to check | |
| 955 bra L0522 check if it is already open on device | |
| 956 | |
| 957 L052D lda ,s get local path # we started on | |
| 958 ldx <PD.PLP,x get ptr to path dsc. list (linked list) | |
| 959 bne L0513 there is no path desc list, try next path | |
| 960 bra L04BA can't switch to it, go to next device tbl entry | |
| 961 | |
| 962 L0536 ldx <D.CCMem get ptr to CC mem | |
| 963 stu <G.CurDev,x save new active device | |
| 964 clr g000A,x flag that we are not on active device anymore | |
| 965 clr >g00BF,x clear CoWin's key was pressed flag (new window) | |
| 966 * If there is only one window, it comes here to allow the text/mouse cursors | |
| 967 * to blink so you know you hit CLEAR or SHIFT-CLEAR | |
| 968 L0541 inc <V.ScrChg,u flag device for a screen change | |
| 969 bsr setmouse check mouse | |
| 970 L0546 leas <f.end,s purge stack buffer | |
| 971 clrb clear carry | |
| 972 puls pc,u,y,x,b,a restore regs and return | |
| 973 | |
| 974 * Initialize mouse | |
| 975 * Also called when CLEARing to a new window. | |
| 976 setmouse pshs x save register used | |
| 977 ldd <V.MSmpl,u get sample and timeout from win devmem | |
| 978 ldx <D.CCMem get ptr to CC mem | |
| 979 sta <G.MSmpRt,x set sample tick count in global mem | |
| 980 sta <G.MSmpRV,x set sample rate in global mem | |
| 981 stb <G.Mouse+Pt.ToTm,x set timeout constant in mouse packet | |
| 982 ldb <V.MAutoF,u get auto follow flag from win devmem | |
| 983 stb <G.AutoMs,x and set auto follow flag in global mem | |
| 984 lda V.TYPE,u get device type | |
| 985 sta <G.WinType,x set it | |
| 986 IFEQ GLOBALKEYMOUSE | |
| 987 * Added: get window's keyboard mouse flag and update global keyboard mouse | |
| 988 IFNE H6309 | |
| 989 tim #KeyMse,<V.ULCase,u keyboard mouse? | |
| 990 ELSE | |
| 991 lda <V.ULCase,u keyboard mouse? | |
| 992 bita #KeyMse | |
| 993 ENDC | |
| 994 bne setmous2 | |
| 995 clra | |
| 996 fcb $8c | |
| 997 setmous2 lda #$FF | |
| 998 sta <G.KyMse,x | |
| 999 ENDC | |
| 1000 clra | |
| 1001 puls pc,x restore and return | |
| 1002 | |
| 1003 | |
| 1004 * Write | |
| 1005 * | |
| 1006 * Entry: | |
| 1007 * A = character to write | |
| 1008 * Y = address of path descriptor | |
| 1009 * U = address of device memory area | |
| 1010 * | |
| 1011 * Exit: | |
| 1012 * CC = carry set on error | |
| 1013 * B = error code | |
| 1014 * | |
| 1015 Write ldb <V.ParmCnt,u are we in the process of getting parameters? | |
| 1016 lbne L0600 yes, go process | |
| 1017 sta <V.DevPar,u save off character | |
| 1018 cmpa #C$SPAC space or higher? | |
| 1019 bcc CoWrite yes, normal write | |
| 1020 cmpa #$1E 1E escape code? | |
| 1021 bcc L05EF yes, go process | |
| 1022 cmpa #$1B $1B escape code? | |
| 1023 beq L05F3 yes, go handle it | |
| 1024 cmpa #$05 $05 escape code? (cursor on/off) | |
| 1025 beq L05F3 yep, go handle it | |
| 1026 cmpa #C$BELL Bell? | |
| 1027 bne CoWrite no, control char | |
| 1028 jmp [>WGlobal+G.BelVec] for whom the bell tolls... | |
| 1029 | |
| 1030 CoWrite ldb #$03 write entry point in co-module | |
| 1031 CallCo lda <V.DevPar,u get character stored earlier | |
| 1032 L0593 ldx <D.CCMem get ptr to CC mem | |
| 1033 stu G.CurDvM,x save dev mem ptr for current device | |
| 1034 L0597 pshs a | |
| 1035 leax <G.CoTble,x point to co-module entry vectors | |
| 1036 lda <V.WinType,u get window type from device mem | |
| 1037 ldx a,x get vector to proper co-module | |
| 1038 puls a | |
| 1039 beq L05EB vector empty, exit with module not found | |
| 1040 leax b,x | |
| 1041 bsr L05C0 | |
| 1042 ldb <V.WinType,u | |
| 1043 beq L05B4 | |
| 1044 jsr ,x go execute co-module | |
| 1045 L05B0 pshs cc | |
| 1046 bra L05BB | |
| 1047 L05B4 jsr ,x | |
| 1048 L05B6 pshs cc | |
| 1049 clr >WGlobal+G.WIBusy | |
| 1050 L05BB clr >WGlobal+G.CrDvFl | |
| 1051 puls pc,cc | |
| 1052 | |
| 1053 L05C0 pshs x,b | |
| 1054 ldx <D.CCMem get ptr to CC mem | |
| 1055 clr G.WIBusy,x clear CoWin busy flag | |
| 1056 ldb <V.WinType,u get window type (0 = CoWin) | |
| 1937 | 1057 bne L05CE branch if CoVDG |
| 1933 | 1058 incb else make B = 1 |
| 1059 stb G.WIBusy,x and make CoWin busy | |
| 1060 L05CE clr G.CrDvFl,x clear 'we are current device' | |
| 1061 cmpu <G.CurDev,x | |
| 1062 bne L05D8 | |
| 1063 inc g000A,x | |
| 1064 L05D8 puls pc,x,b | |
| 1065 | |
| 1066 * U = ptr to CC memory | |
| 1067 L05DA pshs u,y,x | |
| 1068 ldu <G.CurDev,u get ptr to curr dev mem | |
| 1069 L05DF ldb #$0F | |
| 1070 ldx <D.CCMem get ptr to CC memory in X | |
| 1071 bsr L0597 | |
| 1072 puls pc,u,y,x restore regs and return | |
| 1073 | |
| 1074 L05E7 pshs u,y,x save regs | |
| 1075 bra L05DF | |
| 1076 | |
| 1077 L05EB comb | |
| 1078 ldb #E$MNF | |
| 1079 rts | |
| 1080 | |
| 1081 * $1E & $1F codes go here | |
| 1082 L05EF cmpa #$1E $1E code? | |
| 1083 beq Do1E branch if so | |
| 1084 * $1F codes fall through to here | |
| 1085 * Escape code handler : Initial code handled by VTIO, any parameters past | |
| 1086 * $1B xx are handled by co-module later | |
| 1087 * NOTE: Notice that is does NOT update <DevPar,u to contain the param byte, | |
| 1088 * but leaves the initial <ESC> ($1b) code there. The co-module checks it | |
| 1089 * to see it as an ESC, and then checks for the first parameter byte for the | |
| 1090 * required action. | |
| 1091 L05F3 leax <CoWrite,pcr point to parameter vector entry point | |
| 1092 ldb #$01 get parameter count (need 1 to determine code) | |
| 1093 stx <V.ParmVct,u save vector | |
| 1094 stb <V.ParmCnt,u save # param bytes needed before exec'ing vect. | |
| 1095 Do1E clrb no error | |
| 1096 rts return | |
| 1097 | |
| 1098 * Processing parameters | |
| 1099 * A=parameter byte from SCF | |
| 1100 * B=# parameter bytes left (not including one in A) | |
| 1101 * U=device mem ptr | |
| 1102 L0600 ldx <V.NxtPrm,u get ptr of where to put next param byte | |
| 1103 sta ,x+ put it there | |
| 1104 stx <V.NxtPrm,u update pointer | |
| 1105 decb decrement parameter count | |
| 1106 stb <V.ParmCnt,u update it | |
| 1107 bne Do1E if still more to get, exit without error | |
| 1108 * B=0, flag to say we are not current device | |
| 1109 * We have all parameter bytes we need at this point. | |
| 1110 ldx <D.CCMem get ptr to CC mem | |
| 1111 bsr L05C0 | |
| 1112 stu G.CurDvM,x | |
| 1113 ldx <V.PrmStrt,u reset next param ptr to start | |
| 1114 stx <V.NxtPrm,u | |
| 1115 ldb <V.WinType,u is this device using CoWin? | |
| 1116 beq L0624 yes, special processing for CoWin | |
| 1117 jsr [<V.ParmVct,u] go execute parameter handler | |
| 1118 bra L05B0 | |
| 1119 L0624 jsr [<V.ParmVct,u] | |
| 1120 bra L05B6 | |
| 1121 | |
| 1122 | |
| 1123 * GetStat | |
| 1124 * | |
| 1125 * Entry: | |
| 1126 * A = function code | |
| 1127 * Y = address of path descriptor | |
| 1128 * U = address of device memory area | |
| 1129 * | |
| 1130 * Exit: | |
| 1131 * CC = carry set on error | |
| 1132 * B = error code | |
| 1133 * | |
| 1134 GetStat cmpa #SS.EOF | |
| 1135 beq SSEOF | |
| 1136 ldx PD.RGS,y | |
| 1137 cmpa #SS.ComSt | |
| 1138 beq GSComSt | |
| 1139 cmpa #SS.Joy | |
| 1140 beq GSJoy | |
| 1141 cmpa #SS.Mouse | |
| 1142 lbeq GSMouse | |
| 1143 cmpa #SS.Ready | |
| 1144 beq GSReady | |
| 1145 cmpa #SS.KySns | |
| 1146 beq GSKySns | |
| 1147 cmpa #SS.Montr | |
| 1148 beq GSMontr | |
| 1149 ldb #$06 carry over to co-module | |
| 1150 lbra L0593 | |
| 1151 | |
| 1152 * SS.ComSt - get baud/parity info | |
| 1153 GSComSt lda V.TYPE,u get device type | |
| 1154 clrb clear parity, etc. | |
| 1155 std R$Y,x save it in register stack | |
| 1156 rts return | |
| 1157 | |
| 1158 GSReady ldb <V.EndPtr,u get input buffer end pointer | |
| 1159 cmpb <V.InpPtr,u anything there? | |
| 1160 beq NotReady nope, exit with error | |
| 1161 bhi L0660 higher? | |
| 1162 addb #$80 nope, add 128 to count | |
| 1163 L0660 subb <V.InpPtr,u calculate number of characters there | |
| 1164 stb R$B,x save it in register stack | |
| 1165 SSEOF clrb clear errors | |
| 1166 rts return | |
| 1167 NotReady comb set carry | |
| 1168 ldb #E$NotRdy get error code | |
| 1169 rts return | |
| 1170 | |
| 1171 * Return special key status | |
| 1172 * X = pointer to caller's register stack | |
| 1173 GSKySns ldy <D.CCMem get ptr to CC mem | |
| 1174 clrb clear key code | |
| 1175 cmpu <G.CurDev,y are we the active device? | |
| 1176 bne L0678 branch if not | |
| 1177 ldb <G.KySns,y get key codes | |
| 1178 L0678 stb R$A,x save to caller reg | |
| 1179 clrb clear errors | |
| 1180 rts return | |
| 1181 | |
| 1182 * GetStat: SS.Montr (get Monitor type) | |
| 1183 * X = pointer to caller's register stack | |
| 1184 GSMontr ldb >WGlobal+G.MonTyp get monitor type | |
| 1185 * tfr b,a put in A | |
| 1186 clra | |
| 1187 std R$X,x save in caller's X | |
| 1188 rts return | |
| 1189 | |
| 1190 * GetStat: SS.JOY (get joystick X/Y/button values) | |
| 1191 * X = pointer to caller's register stack | |
| 1192 GSJoy clrb default to no errors | |
| 1193 tfr x,y transfer caller's registers to Y | |
| 1194 ldx <D.CCMem get ptr to CC mem | |
| 1195 cmpu <G.CurDev,x are we the current active device? | |
| 1196 beq GetJoy if so, go read joysticks | |
| 1197 clra else D = 0 | |
| 1198 std R$X,y X pos = 0 | |
| 1199 std R$Y,y Y pos = 0 | |
| 1200 sta R$A,y no buttons held down | |
| 1201 rts return | |
| 1202 | |
| 1203 * Get button status first | |
| 1204 GetJoy ldx >WGlobal+G.JoyEnt | |
| 1205 pshs u save driver static | |
| 1206 ldu <D.CCMem get ptr to CC mem | |
| 1207 leau >G.JoyMem,u point to subroutine module's static mem | |
| 1208 jsr J$JyBtn,x call entry point to get button | |
| 1209 * Joysticks button states returned in B | |
| 1210 puls u restore driver static | |
| 1211 lda R$X+1,y left or right? | |
| 1212 beq L06AB branch if right joystick | |
| 1213 lsrb shift over so same range as if right joystick | |
| 1214 L06AB andb #$05 preserve button bits | |
| 1215 lsrb button 1 down? (shifts button 2 to bit 2 too) | |
| 1216 bcc L06B2 no, go on | |
| 1217 orb #$01 turn on button 1 | |
| 1218 L06B2 stb R$A,y save button status to caller | |
| 1219 * | |
| 1220 * Now get actual joystick values (note: IRQs still off) | |
| 1221 * | |
| 1222 pshs y save ptr to caller's regs | |
| 1223 lda R$X+1,y get switch to indicate left or right joystick | |
| 1224 inca now 1 or 2 | |
| 1225 ldy #$0000 force low res?? | |
| 1226 pshs u save driver static mem | |
| 1227 ldu <D.CCMem get ptr to CC mem | |
| 1228 ldx >WGlobal+G.JoyEnt get address of joystick sub module | |
| 1229 leau >G.JoyMem,u get ptr to sub module's static mem | |
| 1230 jsr J$JyXY,x call routine in sub module to get joy X/Y | |
| 1231 * X = joystick X pos, Y = joystick Y pos | |
| 1232 puls u restore driver static mem | |
| 1233 pshs y save joystick Y | |
| 1234 ldy $02,s get ptr to caller's regs | |
| 1235 stx R$X,y save joystick X in caller's X | |
| 1236 ldd #63 | |
| 1237 subd ,s++ | |
| 1238 std R$Y,y save joystick Y in caller's Y | |
| 1239 clrb cleary carry | |
| 1240 puls pc,y return | |
| 1241 | |
| 1242 * GetStat: SS.Mouse (get mouse info) | |
| 1243 * X = pointer to caller's register stack | |
| 1244 GSMouse pshs u,y,x | |
| 1245 ldx <D.CCMem get ptr to CC mem | |
| 1246 cmpu <G.CurDev,x is caller in current window? | |
| 1247 beq L06FA branch if so | |
| 1248 ldy ,s get ptr to caller's regs | |
| 1249 ldb #Pt.Siz size of packet | |
| 1250 L06EC clr ,-s make room on stack | |
| 1251 decb | |
| 1252 bne L06EC | |
| 1253 leax ,s point X to temp mouse buffer on stack | |
| 1254 bsr MovMsPkt | |
| 1255 leas <Pt.Siz,s clean up stack | |
| 1256 puls pc,u,y,x and return | |
| 1257 | |
| 1258 * here the caller is in the current window | |
| 1259 L06FA tst <G.KyMse,x mouse keyboard active? | |
| 1260 bne L071A branch if so | |
| 1261 lda <G.MSmpRV,x ready to sample? | |
| 1262 bne L071A no, return packet | |
| 1263 pshs u,y,x | |
| 1264 bsr L073B read external mouse | |
| 1265 puls u,y,x | |
| 1266 lda <G.AutoMs,x get automouse flag | |
| 1267 anda <G.MseMv,x has mouse moved? | |
| 1268 beq L071A no, return packet | |
| 1269 lda #$03 update auto-follow mouse sub-function call | |
| 1270 lbsr L05E7 call co-module to update mouse | |
| 1271 clr <G.MseMv,x flag that the mouse hasn't moved | |
| 1272 L071A lda #$01 'special' co-mod function code: move mouse packet? | |
| 1273 lbsr L05E7 | |
| 1274 leax <G.Mouse,x move X to point to mouse packet | |
| 1275 ldy ,s get register stack pointer | |
| 1276 bsr MovMsPkt move packet to caller | |
| 1277 puls pc,u,y,x | |
| 1278 | |
| 1279 * Move mouse packet to process | |
| 1280 * Y = ptr to caller's register stack | |
| 1281 MovMsPkt ldu R$X,y get destination pointer | |
| 1282 ldy <D.Proc get process descriptor pointer | |
| 1283 ldb P$Task,y get destination task number | |
| 1284 clra get source task number | |
| 1285 ldy #Pt.Siz get length of packet | |
| 1286 os9 F$Move move it to the process | |
| 1287 rts return | |
| 1288 | |
| 1289 L0739 ldx <D.CCMem | |
| 1290 L073B leax <G.Mouse,x move X to mouse packet | |
| 1291 clra clear MSB of mouse resolution | |
| 1292 ldb <Pt.Res,x get resolution (0 = lores, 1 = hires) | |
| 1293 tfr d,y move mouse res to Y | |
| 1294 lda Pt.Actv,x get mouse side | |
| 1295 pshs u,y,x,b,a preserve regs | |
| 1296 ldx >WGlobal+G.JoyEnt get ptr to mouse sub module | |
| 1297 ldu <D.CCMem get mem pointer | |
| 1298 leau >G.JoyMem,u and point to mouse sub module statics | |
| 1299 jsr J$MsXY,x get data | |
| 1300 pshs y,x | |
| 1301 ldx $06,s get ptr to mouse packet in CC mem | |
| 1302 puls b,a get X value into D | |
| 1303 leay <Pt.AcX,x point X to mouse X/Y in mouse packet | |
| 1304 bsr L0764 | |
| 1305 puls b,a get Y value into D | |
| 1306 bsr L0764 | |
| 1307 puls pc,u,y,x,b,a | |
| 1308 * X = Address of G.Mouse in D.CCMem | |
| 1309 L0764 cmpd ,y++ compare mouse's current X to Pt.AcX | |
| 1310 beq L0770 branch if same | |
| 1311 std -$02,y else store new X into Pt.AcX | |
| 1312 lda #$01 | |
| 1313 sta <(G.MseMv-G.Mouse),x update mouse moved flag | |
| 1314 L0770 rts | |
| 1315 | |
| 1316 SSTone ldx >WGlobal+G.SndEnt get address of sound sub module | |
| 1317 jmp S$SetStt,x go execute routine in sub module | |
| 1318 | |
| 1319 * Animate Palette? This obviously isn't implemented yet | |
| 1320 SSAnPal ldx >WGlobal+G.SndEnt | |
| 1321 jmp S$Term,x | |
| 1322 | |
| 1323 * SetStat | |
| 1324 * | |
| 1325 * Entry: | |
| 1326 * A = function code | |
| 1327 * Y = address of path descriptor | |
| 1328 * U = address of device memory area | |
| 1329 * | |
| 1330 * Exit: | |
| 1331 * CC = carry set on error | |
| 1332 * B = error code | |
| 1333 * | |
| 1334 SetStat ldx PD.RGS,y | |
| 1335 cmpa #SS.ComSt | |
| 1336 lbeq SSComSt | |
| 1337 cmpa #SS.Montr | |
| 1338 lbeq SSMontr | |
| 1339 cmpa #SS.KySns | |
| 1340 lbeq SSKySns | |
| 1341 cmpa #SS.Tone | |
| 1342 beq SSTone | |
| 1343 cmpa #SS.AnPal | |
| 1344 beq SSAnPal | |
| 1345 cmpa #SS.SSig | |
| 1346 beq SSSig | |
| 1347 cmpa #SS.MsSig | |
| 1348 beq SSMsSig | |
| 1349 cmpa #SS.Relea | |
| 1350 beq SSRelea | |
| 1351 cmpa #SS.Mouse | |
| 1352 beq SSMouse | |
| 1353 cmpa #SS.GIP | |
| 1354 lbeq SSGIP | |
| 1355 cmpa #SS.Open | |
| 1356 bne L07B5 | |
| 1357 SSOpen ldx PD.DEV,y get device table entry | |
| 1358 stx V.PORT,u save it as port address | |
| 1359 L07B5 ldb #$09 call setstt entry point in co-module | |
| 1360 lbra L0593 go do it | |
| 1361 | |
| 1362 * SS.SSig - send signal on data ready | |
| 1363 SSSig pshs cc save interrupt status | |
| 1364 * The next line doesn't exist in the NitrOS version | |
| 1365 * clr <V.SSigID,u | |
| 1366 lda <V.InpPtr,u get input buffer pointer | |
| 1367 suba <V.EndPtr,u get how many chars are there | |
| 1368 pshs a save it temporarily | |
| 1369 bsr L07EC get current process ID | |
| 1370 tst ,s+ anything in buffer? | |
| 1371 bne L07F7 yes, go send the signal | |
| 1372 std <V.SSigID,u save process ID & signal | |
| 1373 puls pc,cc restore interrupts & return | |
| 1374 | |
| 1375 * SS.MsSig - send signal on mouse button | |
| 1376 SSMsSig pshs cc save interrupt status | |
| 1377 * The next line doesn't exist in the NitrOS version | |
| 1378 * clr <V.MSigID,u | |
| 1379 bsr L07EC get process ID | |
| 1380 ldx <D.CCMem get ptr to CC mem | |
| 1381 cmpu <G.CurDev,x are we active device? | |
| 1382 bne L07E7 no, save ID & signal | |
| 1383 tst >G.MsSig,x has button been down? | |
| 1384 bne L07F3 yes, go send the signal | |
| 1385 L07E7 std <V.MSigID,u save ID & signal code | |
| 1386 puls pc,cc restore interrupts & return | |
| 1387 | |
| 1388 L07EC orcc #IntMasks disable interrupts | |
| 1389 lda PD.CPR,y get curr proc # | |
| 1390 ldb R$X+1,x get user signal code | |
| 1391 rts return | |
| 1392 | |
| 1393 L07F3 clr >G.MsSig,x clear mouse button down flag | |
| 1394 L07F7 puls cc restore interrupts | |
| 1395 os9 F$Send send the signal | |
| 1396 rts return | |
| 1397 | |
| 1398 * SS.Relea - release a path from SS.SSig | |
| 1399 SSRelea lda PD.CPR,y get curr proc # | |
| 1400 cmpa <V.SSigID,u same as keyboard? | |
| 1401 bne L0807 branch if not | |
| 1402 clr <V.SSigID,u clear process ID | |
| 1403 L0807 cmpa <V.MSigID,u same as mouse? | |
| 1404 bne L0871 no, return | |
| 1405 clr <V.MSigID,u else clear process ID | |
| 1406 rts return | |
| 1407 | |
| 1408 * SS.Mouse - set mouse sample rate and button timeout | |
| 1409 * | |
| 1410 * Entry: | |
| 1411 * R$X = mouse sample rate and timeout | |
| 1412 * MSB = mouse sample rate | |
| 1413 * LSB = mouse button timeout | |
| 1414 * R$Y = mouse auto-follow feature | |
| 1415 * MSB = don't care | |
| 1416 * LSB = auto-follow ($00 = OFF, else = ON) | |
| 1417 * | |
| 1418 * NOTE: Default mouse params @ $28,u are $0078 | |
| 1419 * It modifies the static mem variables (for caller's window) first, and | |
| 1420 * then modifies global memory only if we are the current active device. | |
| 1421 SSMouse ldd R$X,x get sample rate & timeout from caller | |
| 1422 cmpa #$FF sample rate 256? | |
| 1423 beq L0819 yes, can't have it so go on | |
| 1424 sta <V.MSmpl,u save new timeout | |
| 1425 L0819 cmpb #$FF timeout 256? | |
| 1426 beq L0820 yes, can't have it so go on | |
| 1427 stb <V.MTime,u save new timeout | |
| 1428 L0820 ldb R$Y+1,x get auto-follow flag | |
| 1429 stb <V.MAutoF,u save it was MS.Side wrong RG | |
| 1430 ldy <D.CCMem get ptr to CC mem | |
| 1431 cmpu <G.CurDev,y are we current device? | |
| 1432 bne L083D no, exit without error | |
| 1433 stb <G.AutoMs,y save auto-follow flag for this dev | |
| 1434 ldd <V.MSmpl,u get sample rate/timeout | |
| 1435 sta <G.MSmpRV,y save it (reset value) | |
| 1436 sta <G.MSmpRt,y save it (current value) | |
| 1437 stb <G.Mouse+Pt.ToTm,y save timeout too | |
| 1438 L083D clrb exit without error | |
| 1439 rts | |
| 1440 | |
| 1441 * SS.GIP | |
| 1442 SSGIP ldy <D.CCMem get ptr to CC mem | |
| 1443 cmpu <G.CurDev,y current window? | |
| 1444 bne L0866 branch if not | |
| 1445 ldd R$Y,x get caller's Y (key repeat info) | |
| 1446 cmpd #$FFFF unchanged? | |
| 1447 beq L0853 yes, don't change current key info | |
| 1448 std <G.KyDly,y else save key delay and speed info | |
| 1449 L0853 ldd R$X,x get mouse info | |
| 1450 cmpa #$01 set for hi res adapter? | |
| 1451 bgt L088F branch to error if greater | |
| 1452 sta <G.Mouse+Pt.Res,y save new resolution value | |
| 1453 * B = mouse port (1 = right, 2 = left) | |
| 1454 tstb side above legal value? | |
| 1455 beq L088F no, exit with error | |
| 1456 cmpb #$02 side below legal value? | |
| 1457 bgt L088F no, exit with error | |
| 1458 stb <G.Mouse+Pt.Actv,y save new side | |
| 1459 L0866 clrb clear errors | |
| 1460 rts and return | |
| 1461 | |
| 1462 * SS.KySns - setstat??? | |
| 1463 SSKySns ldd R$X,x get monitor type requested | |
| 1464 beq L086E below legal value? | |
| 1465 ldb #$FF no, exit with error | |
| 1466 L086E stb <V.KySnsFlg,u save new sense mode | |
| 1467 L0871 clrb clear errors | |
| 1468 rts return | |
| 1469 | |
| 1470 * SS.Montr - change monitor type | |
| 1471 SSMontr ldd R$X,x get monitor type requested | |
| 1472 cmpd #$0002 below legal value? | |
| 1473 bhi L088F no, exit with error | |
| 1474 lda <D.VIDMD get current GIME video mode register | |
| 1475 anda #$EF get rid of monochrome bit | |
| 1476 bitb #$02 mono requested? | |
| 1477 beq L0885 no, keep checking | |
| 1478 ora #$10 switch to monochrome | |
| 1479 L0885 sta <D.VIDMD update video mode register | |
| 1480 stb >WGlobal+G.MonTyp save new monitor type | |
| 1481 inc <V.ScrChg,u flag a screen change | |
| 1482 clrb clear errors | |
| 1483 rts return | |
| 1484 | |
| 1485 * Illegal argument error handler | |
| 1486 L088F comb set carry for error | |
| 1487 ldb #E$IllArg get illegal argument error code | |
| 1488 rts return with it | |
| 1489 | |
| 1490 * SS.ComSt - set baud/parity params | |
| 1491 SSComSt ldd R$Y,x get requested window type | |
| 1492 eora V.TYPE,u same type as now? | |
| 1493 anda #$80 trying to flip from window to VDG? | |
| 1494 bne L088F yes, error | |
| 1495 lda R$Y,x no, get requested window type again | |
| 1496 bsr FindCoMod go make sure co-module for new type exists | |
| 1497 lbcc L07B5 carry it over to co-module | |
| 1498 rts return | |
| 1499 | |
| 1937 | 1500 CoVDG fcs /CoVDG/ |
| 1933 | 1501 |
| 1502 * | |
| 1503 * Link to proper co-module | |
| 1937 | 1504 * Try CoVDG first |
| 1933 | 1505 * |
| 1506 * Entry: A = window type (If bit 7 is set, it's a window, else VDG screen) | |
| 1507 * | |
| 1508 FindCoMod | |
| 1509 sta V.TYPE,u save new type | |
| 1510 bmi FindWind if hi-bit if A is set, we're a window | |
| 1511 pshs u,y,a ..else VDG | |
| 1512 lda #$02 get code for VDG type window | |
| 1513 sta <V.WinType,u save it | |
| 1937 | 1514 leax <CoVDG,pcr point to CoVDG name |
| 1933 | 1515 bsr L08D4 link to it if it exists |
| 1516 puls pc,u,y,a restore regs & return | |
| 1517 | |
| 1518 CoWin fcs /CoWin/ | |
| 1519 CoGrf fcs /CoGrf/ ++ | |
| 1520 *CC3GfxInt fcs /CC3GfxInt/ ++ | |
| 1521 | |
| 1522 * | |
| 1523 * Try CoWin | |
| 1524 * | |
| 1525 FindWind pshs u,y preserve regs | |
| 1526 clra set window type | |
| 1527 sta <V.WinType,u | |
| 1528 leax <CoWin,pcr point to CoWin name | |
| 1529 lda #$80 get driver type code | |
| 1530 bsr L08D4 try and link it | |
| 1531 | |
| 1532 *++ | |
| 1533 bcc ok | |
| 1534 leax <CoGrf,pcr point to CoGrf name | |
| 1535 lda #$80 | |
| 1536 bsr L08D4 | |
| 1537 *++ | |
| 1538 | |
| 1539 ok puls pc,u,y restore regs and return | |
| 1540 L08D2 clrb | |
| 1541 rts | |
| 1542 | |
| 1543 * | |
| 1544 * Check if co-module is in memory | |
| 1545 * | |
| 1546 L08D4 ldb <V.PrmStrt,u any parameter vector? | |
| 1547 bne L08D2 no, return | |
| 1548 pshs u save statics | |
| 1549 ldu <D.CCMem get ptr to CC mem | |
| 1550 bita <G.BCFFlg,u BCFFlg already linked? | |
| 1551 puls u restore statics | |
| 1552 bne L0900 yes, initialize co-module | |
| 1553 tsta Window type device? | |
| 1554 bpl L08E8 no, go on | |
| 1555 clra set co-module vector offset for window | |
| 1556 L08E8 pshs y,a preserve registers | |
| 1557 bsr L0905 try and link module | |
| 1558 bcc L08F0 we linked it, go on | |
| 1559 puls pc,y,a restore registers & return error | |
| 1560 | |
| 1561 L08F0 puls a restore vector offset | |
| 1562 ldx <D.CCMem get ptr to CC mem | |
| 1563 leax <G.CoTble,x point to vector offsets | |
| 1564 sty a,x store co-module entry vector | |
| 1565 puls y restore path descriptor pointer | |
| 1566 cmpa #$02 was it CoWin? | |
| 1567 bgt L08D2 no, return | |
| 1568 L0900 clrb | |
| 1569 lbra CallCo send it to co-module | |
| 1570 | |
| 1571 * | |
| 1572 * Link or load a co-module | |
| 1573 * | |
| 1574 L0905 ldd <D.Proc get current process descriptor pointer | |
| 1575 pshs u,x,b,a preserve it along with registers | |
| 1576 ldd <D.SysPrc get system process descriptor pointer | |
| 1577 std <D.Proc save it as current process | |
| 1578 lda #Systm+Objct get codes for link | |
| 1579 os9 F$Link link to it | |
| 1580 ldx $02,s get name pointer | |
| 1581 bcc L091B does module exist? | |
| 1582 ldu <D.SysPrc no, get system process descriptor pointer | |
| 1583 os9 F$Load load it | |
| 1584 L091B puls u,x,b,a restore regs | |
| 1585 std <D.Proc restore current process descriptor | |
| 1586 lbcs L05EB exit if error from load or link | |
| 1587 rts return | |
| 1588 | |
| 1589 emod | |
| 1590 eom equ * | |
| 1591 end |