Changeset 8325447 in buchla-68k for ram/sreset.s
- Timestamp:
- 08/07/2017 02:04:35 PM (7 years ago)
- Branches:
- master
- Children:
- 27c8d40
- Parents:
- 84c0125
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ram/sreset.s
r84c0125 r8325447 5 5 .text 6 6 7 .xdef _sreset | sreset()8 9 .xref _vputa | vputa(sbase, row, col, attrib)10 11 .xref _ndisp | WORD - display number12 .xref _obj8 | LONG - object base address13 .xref _vrbw08 | WORD - detail word for bit 814 .xref _vrbw09 | WORD - detail word for bit 915 .xref _vrbw10 | WORD - detail word for bit 1016 .xref _vrbw11 | WORD - detail word for bit 1117 .xref _vrbw12 | WORD - detail word for bit 1218 .xref _vrbw13 | WORD - detail word for bit 1319 .xref _vrbw14 | WORD - detail word for bit 1420 .xref _vrbw15 | WORD - detail word for bit 1521 .xref _vrcw | WORD - video reset control word7 .xdef sreset | sreset() 8 9 .xref vputa | vputa(sbase, row, col, attrib) 10 11 .xref ndisp | WORD - display number 12 .xref obj8 | LONG - object base address 13 .xref vrbw08 | WORD - detail word for bit 8 14 .xref vrbw09 | WORD - detail word for bit 9 15 .xref vrbw10 | WORD - detail word for bit 10 16 .xref vrbw11 | WORD - detail word for bit 11 17 .xref vrbw12 | WORD - detail word for bit 12 18 .xref vrbw13 | WORD - detail word for bit 13 19 .xref vrbw14 | WORD - detail word for bit 14 20 .xref vrbw15 | WORD - detail word for bit 15 21 .xref vrcw | WORD - video reset control word 22 22 23 23 ROW = 4 … … 40 40 | sreset() -- reset highlighting 41 41 | -------- ------------------ 42 _sreset:link a6,#0 | link stack frame43 cmp.w #2, _ndisp | see if we should update display42 sreset: link a6,#0 | link stack frame 43 cmp.w #2,ndisp | see if we should update display 44 44 bne srsexit | jump if not 45 45 46 move.w _vrcw,d0| get and check vrcw46 move.w vrcw,d0 | get and check vrcw 47 47 bne srs0 | jump if something to do 48 48 … … 53 53 ori.w #0x0700,sr | ... 54 54 55 move.w _vrcw,vrcw | make local copies of control variables56 clr.w _vrcw | ... and clear them for the next pass57 move.w _vrbw08,vrbw08 | ...58 clr.w _vrbw08 | ...59 move.w _vrbw09,vrbw09 | ...60 clr.w _vrbw09 | ...61 move.w _vrbw10,vrbw10 | ...62 clr.w _vrbw10 | ...63 move.w _vrbw11,vrbw11 | ...64 clr.w _vrbw11 | ...65 move.w _vrbw12,vrbw12 | ...66 clr.w _vrbw12 | ...67 move.w _vrbw13,vrbw13 | ...68 clr.w _vrbw13 | ...69 move.w _vrbw14,vrbw14 | ...70 clr.w _vrbw14 | ...71 move.w _vrbw15,vrbw15 | ...72 clr.w _vrbw15 | ...55 move.w vrcw,vrcw | make local copies of control variables 56 clr.w vrcw | ... and clear them for the next pass 57 move.w vrbw08,vrbw08 | ... 58 clr.w vrbw08 | ... 59 move.w vrbw09,vrbw09 | ... 60 clr.w vrbw09 | ... 61 move.w vrbw10,vrbw10 | ... 62 clr.w vrbw10 | ... 63 move.w vrbw11,vrbw11 | ... 64 clr.w vrbw11 | ... 65 move.w vrbw12,vrbw12 | ... 66 clr.w vrbw12 | ... 67 move.w vrbw13,vrbw13 | ... 68 clr.w vrbw13 | ... 69 move.w vrbw14,vrbw14 | ... 70 clr.w vrbw14 | ... 71 move.w vrbw15,vrbw15 | ... 72 clr.w vrbw15 | ... 73 73 74 74 move.w d1,sr | <<<<< restore interrupts >>>>> … … 85 85 clr.w -(a7) | put dummy column on stack 86 86 clr.w -(a7) | put dummy row on stack 87 move.l _obj8,-(a7) | put sbase on stack87 move.l obj8,-(a7) | put sbase on stack 88 88 89 89 .page … … 97 97 move.w #1,ROW(a7) | put row on stack 98 98 move.w #11,COL(a7) | put 1st column on stack 99 jsr _vputa | reset first column99 jsr vputa | reset first column 100 100 move.w #12,COL(a7) | put 2nd column on stack 101 jsr _vputa | reset second column101 jsr vputa | reset second column 102 102 move.w vrcw,d0 | restore vrcw to d0 103 103 … … 110 110 move.w #1,ROW(a7) | put row on stack 111 111 move.w #19,COL(a7) | put column on stack 112 jsr _vputa | reset column112 jsr vputa | reset column 113 113 move.w vrcw,d0 | restore vrcw to d0 114 114 … … 121 121 move.w #1,ROW(a7) | put row on stack 122 122 move.w #27,COL(a7) | put 1st column on stack 123 jsr _vputa | reset first column123 jsr vputa | reset first column 124 124 move.w #28,COL(a7) | put 2nd column on stack 125 jsr _vputa | reset second column125 jsr vputa | reset second column 126 126 move.w #29,COL(a7) | put 3rd column on stack 127 jsr _vputa | reset third column127 jsr vputa | reset third column 128 128 move.w vrcw,d0 | restore vrcw to d0 129 129 … … 138 138 move.w #1,ROW(a7) | put row on stack 139 139 move.w #35,COL(a7) | put 1st column on stack 140 jsr _vputa | reset first column140 jsr vputa | reset first column 141 141 move.w #36,COL(a7) | put 2nd column on stack 142 jsr _vputa | reset second column142 jsr vputa | reset second column 143 143 move.w #37,COL(a7) | put 3rd column on stack 144 jsr _vputa | reset third column144 jsr vputa | reset third column 145 145 move.w #38,COL(a7) | put 4th column on stack 146 jsr _vputa | reset fourth column146 jsr vputa | reset fourth column 147 147 move.w vrcw,d0 | restore vrcw to d0 148 148 … … 155 155 move.w #0,ROW(a7) | put row on stack 156 156 move.w #6,COL(a7) | put 1st column on stack 157 jsr _vputa | reset first column157 jsr vputa | reset first column 158 158 move.w #7,COL(a7) | put 2nd column on stack 159 jsr _vputa | reset second column159 jsr vputa | reset second column 160 160 161 161 .page … … 169 169 move.w #1,ROW(a7) | put row on stack 170 170 move.w #50,COL(a7) | put 1st column on stack 171 jsr _vputa | reset first column171 jsr vputa | reset first column 172 172 move.w #51,COL(a7) | put 2nd column on stack 173 jsr _vputa | reset second column173 jsr vputa | reset second column 174 174 move.w vrcw,d0 | restore vrcw to d0 175 175 … … 182 182 move.w #1,ROW(a7) | put row on stack 183 183 move.w #53,COL(a7) | put 1st column on stack 184 jsr _vputa | reset first column184 jsr vputa | reset first column 185 185 move.w #54,COL(a7) | put 2nd column on stack 186 jsr _vputa | reset second column186 jsr vputa | reset second column 187 187 move.w #55,COL(a7) | put 3rd column on stack 188 jsr _vputa | reset third column188 jsr vputa | reset third column 189 189 move.w vrcw,d0 | restore vrcw to d0 190 190 … … 197 197 move.w #1,ROW(a7) | put row on stack 198 198 move.w #57,COL(a7) | put 1st column on stack 199 jsr _vputa | reset first column199 jsr vputa | reset first column 200 200 move.w #58,COL(a7) | put 2nd column on stack 201 jsr _vputa | reset second column201 jsr vputa | reset second column 202 202 move.w #59,COL(a7) | put 3rd column on stack 203 jsr _vputa | reset third column203 jsr vputa | reset third column 204 204 move.w #60,COL(a7) | put 4th column on stack 205 jsr _vputa | reset fourth column205 jsr vputa | reset fourth column 206 206 move.w #61,COL(a7) | put 5th column on stack 207 jsr _vputa | reset fifth column207 jsr vputa | reset fifth column 208 208 move.w #62,COL(a7) | put 6th column on stack 209 jsr _vputa | reset sixth column209 jsr vputa | reset sixth column 210 210 move.w vrcw,d0 | restore vrcw to d0 211 211 … … 223 223 224 224 move.w #7,COL(a7) | put 1st column on stack 225 jsr _vputa | reset first column225 jsr vputa | reset first column 226 226 move.w #8,COL(a7) | put 2nd column on stack 227 jsr _vputa | reset second column227 jsr vputa | reset second column 228 228 229 229 srs8a: btst #1,vrbw08+1 | group 2 ? … … 231 231 232 232 move.w #12,COL(a7) | put 1st column on stack 233 jsr _vputa | reset first character233 jsr vputa | reset first character 234 234 move.w #13,COL(a7) | put 2nd column on stack 235 jsr _vputa | reset second character235 jsr vputa | reset second character 236 236 237 237 srs8b: btst #2,vrbw08+1 | group 3 ? … … 239 239 240 240 move.w #17,COL(a7) | put 1st column on stack 241 jsr _vputa | reset first character241 jsr vputa | reset first character 242 242 move.w #18,COL(a7) | put 2nd column on stack 243 jsr _vputa | reset second character243 jsr vputa | reset second character 244 244 245 245 srs8c: btst #3,vrbw08+1 | group 4 ? … … 247 247 248 248 move.w #22,COL(a7) | put 1st column on stack 249 jsr _vputa | reset first character249 jsr vputa | reset first character 250 250 move.w #23,COL(a7) | put 2nd column on stack 251 jsr _vputa | reset second character251 jsr vputa | reset second character 252 252 253 253 .page … … 257 257 258 258 move.w #27,COL(a7) | put 1st column on stack 259 jsr _vputa | reset first character259 jsr vputa | reset first character 260 260 move.w #28,COL(a7) | put 2nd column on stack 261 jsr _vputa | reset second character261 jsr vputa | reset second character 262 262 263 263 srs8e: btst #5,vrbw08+1 | group 6 ? … … 265 265 266 266 move.w #32,COL(a7) | put 1st column on stack 267 jsr _vputa | reset first character267 jsr vputa | reset first character 268 268 move.w #33,COL(a7) | put 2nd column on stack 269 jsr _vputa | reset second character269 jsr vputa | reset second character 270 270 271 271 srs8f: btst #6,vrbw08+1 | group 7 ? … … 273 273 274 274 move.w #37,COL(a7) | put 1st column on stack 275 jsr _vputa | reset first character275 jsr vputa | reset first character 276 276 move.w #38,COL(a7) | put 2nd column on stack 277 jsr _vputa | reset second character277 jsr vputa | reset second character 278 278 279 279 srs8g: btst #7,vrbw08+1 | group 8 ? … … 281 281 282 282 move.w #42,COL(a7) | put 1st column on stack 283 jsr _vputa | reset first character283 jsr vputa | reset first character 284 284 move.w #43,COL(a7) | put 2nd column on stack 285 jsr _vputa | reset second character285 jsr vputa | reset second character 286 286 287 287 .page … … 291 291 292 292 move.w #47,COL(a7) | put 1st column on stack 293 jsr _vputa | reset first character293 jsr vputa | reset first character 294 294 move.w #48,COL(a7) | put 2nd column on stack 295 jsr _vputa | reset second character295 jsr vputa | reset second character 296 296 297 297 srs8j: btst #1,vrbw08 | group 10 … … 299 299 300 300 move.w #52,COL(a7) | put 1st column on stack 301 jsr _vputa | reset first character301 jsr vputa | reset first character 302 302 move.w #53,COL(a7) | put 2nd column on stack 303 jsr _vputa | reset second character303 jsr vputa | reset second character 304 304 305 305 srs8k: btst #2,vrbw08 | group 11 … … 307 307 308 308 move.w #57,COL(a7) | put 1st column on stack 309 jsr _vputa | reset first character309 jsr vputa | reset first character 310 310 move.w #58,COL(a7) | put 2nd column on stack 311 jsr _vputa | reset second character311 jsr vputa | reset second character 312 312 313 313 srs8m: btst #3,vrbw08 | group 12 … … 315 315 316 316 move.w #62,COL(a7) | put 1st column on stack 317 jsr _vputa | reset first character317 jsr vputa | reset first character 318 318 move.w #63,COL(a7) | put 2nd column on stack 319 jsr _vputa | reset second character319 jsr vputa | reset second character 320 320 321 321 srs8x: move.w vrcw,d0 | restore vrcw to d0 … … 334 334 335 335 move.w #5,COL(a7) | put 1st column on stack 336 jsr _vputa | reset first column336 jsr vputa | reset first column 337 337 move.w #6,COL(a7) | put 2nd column on stack 338 jsr _vputa | reset second column338 jsr vputa | reset second column 339 339 move.w #7,COL(a7) | put 3rd column on stack 340 jsr _vputa | reset third column340 jsr vputa | reset third column 341 341 move.w #8,COL(a7) | put 4th column on stack 342 jsr _vputa | reset fourth column342 jsr vputa | reset fourth column 343 343 344 344 srs9a: btst #1,vrbw09+1 | group 2 ? … … 346 346 347 347 move.w #10,COL(a7) | put 1st column on stack 348 jsr _vputa | reset first column348 jsr vputa | reset first column 349 349 move.w #11,COL(a7) | put 2nd column on stack 350 jsr _vputa | reset second column350 jsr vputa | reset second column 351 351 move.w #12,COL(a7) | put 3rd column on stack 352 jsr _vputa | reset third column352 jsr vputa | reset third column 353 353 move.w #13,COL(a7) | put 4th column on stack 354 jsr _vputa | reset fourth column354 jsr vputa | reset fourth column 355 355 356 356 srs9b: btst #2,vrbw09+1 | group 3 ? … … 358 358 359 359 move.w #15,COL(a7) | put 1st column on stack 360 jsr _vputa | reset first column360 jsr vputa | reset first column 361 361 move.w #16,COL(a7) | put 2nd column on stack 362 jsr _vputa | reset second column362 jsr vputa | reset second column 363 363 move.w #17,COL(a7) | put 3rd column on stack 364 jsr _vputa | reset third column364 jsr vputa | reset third column 365 365 move.w #18,COL(a7) | put 4th column on stack 366 jsr _vputa | reset fourth column366 jsr vputa | reset fourth column 367 367 368 368 .page … … 372 372 373 373 move.w #20,COL(a7) | put 1st column on stack 374 jsr _vputa | reset first column374 jsr vputa | reset first column 375 375 move.w #21,COL(a7) | put 2nd column on stack 376 jsr _vputa | reset second column376 jsr vputa | reset second column 377 377 move.w #22,COL(a7) | put 3rd column on stack 378 jsr _vputa | reset third column378 jsr vputa | reset third column 379 379 move.w #23,COL(a7) | put 4th column on stack 380 jsr _vputa | reset fourth column380 jsr vputa | reset fourth column 381 381 382 382 srs9d: btst #4,vrbw09+1 | group 5 ? … … 384 384 385 385 move.w #25,COL(a7) | put 1st column on stack 386 jsr _vputa | reset first column386 jsr vputa | reset first column 387 387 move.w #26,COL(a7) | put 2nd column on stack 388 jsr _vputa | reset second column388 jsr vputa | reset second column 389 389 move.w #27,COL(a7) | put 3rd column on stack 390 jsr _vputa | reset third column390 jsr vputa | reset third column 391 391 move.w #28,COL(a7) | put 4th column on stack 392 jsr _vputa | reset fourth column392 jsr vputa | reset fourth column 393 393 394 394 srs9e: btst #5,vrbw09+1 | group 6 ? … … 396 396 397 397 move.w #30,COL(a7) | put 1st column on stack 398 jsr _vputa | reset first column398 jsr vputa | reset first column 399 399 move.w #31,COL(a7) | put 2nd column on stack 400 jsr _vputa | reset second column400 jsr vputa | reset second column 401 401 move.w #32,COL(a7) | put 3rd column on stack 402 jsr _vputa | reset third column402 jsr vputa | reset third column 403 403 move.w #33,COL(a7) | put 4th column on stack 404 jsr _vputa | reset fourth column404 jsr vputa | reset fourth column 405 405 406 406 .page … … 410 410 411 411 move.w #35,COL(a7) | put 1st column on stack 412 jsr _vputa | reset first column412 jsr vputa | reset first column 413 413 move.w #36,COL(a7) | put 2nd column on stack 414 jsr _vputa | reset second column414 jsr vputa | reset second column 415 415 move.w #37,COL(a7) | put 3rd column on stack 416 jsr _vputa | reset third column416 jsr vputa | reset third column 417 417 move.w #38,COL(a7) | put 4th column on stack 418 jsr _vputa | reset fourth column418 jsr vputa | reset fourth column 419 419 420 420 srs9g: btst #7,vrbw09+1 | group 8 ? … … 422 422 423 423 move.w #40,COL(a7) | put 1st column on stack 424 jsr _vputa | reset first column424 jsr vputa | reset first column 425 425 move.w #41,COL(a7) | put 2nd column on stack 426 jsr _vputa | reset second column426 jsr vputa | reset second column 427 427 move.w #42,COL(a7) | put 3rd column on stack 428 jsr _vputa | reset third column428 jsr vputa | reset third column 429 429 move.w #43,COL(a7) | put 4th column on stack 430 jsr _vputa | reset fourth column430 jsr vputa | reset fourth column 431 431 432 432 srs9h: btst #0,vrbw09 | group 9 … … 434 434 435 435 move.w #45,COL(a7) | put 1st column on stack 436 jsr _vputa | reset first column436 jsr vputa | reset first column 437 437 move.w #46,COL(a7) | put 2nd column on stack 438 jsr _vputa | reset second column438 jsr vputa | reset second column 439 439 move.w #47,COL(a7) | put 3rd column on stack 440 jsr _vputa | reset third column440 jsr vputa | reset third column 441 441 move.w #48,COL(a7) | put 4th column on stack 442 jsr _vputa | reset fourth column442 jsr vputa | reset fourth column 443 443 444 444 .page … … 448 448 449 449 move.w #50,COL(a7) | put 1st column on stack 450 jsr _vputa | reset first column450 jsr vputa | reset first column 451 451 move.w #51,COL(a7) | put 2nd column on stack 452 jsr _vputa | reset second column452 jsr vputa | reset second column 453 453 move.w #52,COL(a7) | put 3rd column on stack 454 jsr _vputa | reset third column454 jsr vputa | reset third column 455 455 move.w #53,COL(a7) | put 4th column on stack 456 jsr _vputa | reset fourth column456 jsr vputa | reset fourth column 457 457 458 458 srs9k: btst #2,vrbw09 | group 11 … … 460 460 461 461 move.w #55,COL(a7) | put 1st column on stack 462 jsr _vputa | reset first column462 jsr vputa | reset first column 463 463 move.w #56,COL(a7) | put 2nd column on stack 464 jsr _vputa | reset second column464 jsr vputa | reset second column 465 465 move.w #57,COL(a7) | put 3rd column on stack 466 jsr _vputa | reset third column466 jsr vputa | reset third column 467 467 move.w #58,COL(a7) | put 4th column on stack 468 jsr _vputa | reset fourth column468 jsr vputa | reset fourth column 469 469 470 470 srs9m: btst #3,vrbw09 | group 12 … … 472 472 473 473 move.w #60,COL(a7) | put 1st column on stack 474 jsr _vputa | reset first column474 jsr vputa | reset first column 475 475 move.w #61,COL(a7) | put 2nd column on stack 476 jsr _vputa | reset second column476 jsr vputa | reset second column 477 477 move.w #62,COL(a7) | put 3rd column on stack 478 jsr _vputa | reset third column478 jsr vputa | reset third column 479 479 move.w #63,COL(a7) | put 4th column on stack 480 jsr _vputa | reset fourth column480 jsr vputa | reset fourth column 481 481 482 482 srs9x: move.w vrcw,d0 | restore vrcw to d0 … … 495 495 496 496 move.w #6,COL(a7) | put column on stack 497 jsr _vputa | reset column497 jsr vputa | reset column 498 498 499 499 srs10a: btst #1,vrbw10+1 | group 2 ? … … 501 501 502 502 move.w #11,COL(a7) | put column on stack 503 jsr _vputa | reset column503 jsr vputa | reset column 504 504 505 505 srs10b: btst #2,vrbw10+1 | group 3 ? … … 507 507 508 508 move.w #16,COL(a7) | put column on stack 509 jsr _vputa | reset column509 jsr vputa | reset column 510 510 511 511 srs10c: btst #3,vrbw10+1 | group 4 ? … … 513 513 514 514 move.w #21,COL(a7) | put column on stack 515 jsr _vputa | reset column515 jsr vputa | reset column 516 516 517 517 .page … … 521 521 522 522 move.w #26,COL(a7) | put column on stack 523 jsr _vputa | reset column523 jsr vputa | reset column 524 524 525 525 srs10e: btst #5,vrbw10+1 | group 6 ? … … 527 527 528 528 move.w #31,COL(a7) | put column on stack 529 jsr _vputa | reset column529 jsr vputa | reset column 530 530 531 531 srs10f: btst #6,vrbw10+1 | group 7 ? … … 533 533 534 534 move.w #36,COL(a7) | put column on stack 535 jsr _vputa | reset column535 jsr vputa | reset column 536 536 537 537 srs10g: btst #7,vrbw10+1 | group 8 ? … … 539 539 540 540 move.w #41,COL(a7) | put column on stack 541 jsr _vputa | reset column541 jsr vputa | reset column 542 542 543 543 .page … … 547 547 548 548 move.w #46,COL(a7) | put column on stack 549 jsr _vputa | reset column549 jsr vputa | reset column 550 550 551 551 srs10j: btst #1,vrbw10 | group 10 … … 553 553 554 554 move.w #51,COL(a7) | put column on stack 555 jsr _vputa | reset column555 jsr vputa | reset column 556 556 557 557 srs10k: btst #2,vrbw10 | group 11 … … 559 559 560 560 move.w #56,COL(a7) | put column on stack 561 jsr _vputa | reset column561 jsr vputa | reset column 562 562 563 563 srs10m: btst #3,vrbw10 | group 12 … … 565 565 566 566 move.w #61,COL(a7) | put column on stack 567 jsr _vputa | reset column567 jsr vputa | reset column 568 568 569 569 srs10x: move.w vrcw,d0 | restore vrcw to d0 … … 582 582 583 583 move.w #8,COL(a7) | put column on stack 584 jsr _vputa | reset column584 jsr vputa | reset column 585 585 586 586 srs11a: btst #1,vrbw11+1 | group 2 ? … … 588 588 589 589 move.w #13,COL(a7) | put column on stack 590 jsr _vputa | reset column590 jsr vputa | reset column 591 591 592 592 srs11b: btst #2,vrbw11+1 | group 3 ? … … 594 594 595 595 move.w #18,COL(a7) | put column on stack 596 jsr _vputa | reset column596 jsr vputa | reset column 597 597 598 598 srs11c: btst #3,vrbw11+1 | group 4 ? … … 600 600 601 601 move.w #23,COL(a7) | put column on stack 602 jsr _vputa | reset column602 jsr vputa | reset column 603 603 604 604 .page … … 608 608 609 609 move.w #28,COL(a7) | put column on stack 610 jsr _vputa | reset column610 jsr vputa | reset column 611 611 612 612 srs11e: btst #5,vrbw11+1 | group 6 ? … … 614 614 615 615 move.w #33,COL(a7) | put column on stack 616 jsr _vputa | reset column616 jsr vputa | reset column 617 617 618 618 srs11f: btst #6,vrbw11+1 | group 7 ? … … 620 620 621 621 move.w #38,COL(a7) | put column on stack 622 jsr _vputa | reset column622 jsr vputa | reset column 623 623 624 624 srs11g: btst #7,vrbw11+1 | group 8 ? … … 626 626 627 627 move.w #43,COL(a7) | put column on stack 628 jsr _vputa | reset column628 jsr vputa | reset column 629 629 630 630 .page … … 634 634 635 635 move.w #48,COL(a7) | put column on stack 636 jsr _vputa | reset column636 jsr vputa | reset column 637 637 638 638 srs11j: btst #1,vrbw11 | group 10 … … 640 640 641 641 move.w #53,COL(a7) | put column on stack 642 jsr _vputa | reset column642 jsr vputa | reset column 643 643 644 644 srs11k: btst #2,vrbw11 | group 11 … … 646 646 647 647 move.w #58,COL(a7) | put column on stack 648 jsr _vputa | reset column648 jsr vputa | reset column 649 649 650 650 srs11m: btst #3,vrbw11 | group 12 … … 652 652 653 653 move.w #63,COL(a7) | put column on stack 654 jsr _vputa | reset column654 jsr vputa | reset column 655 655 656 656 srs11x: move.w vrcw,d0 | restore vrcw to d0 … … 669 669 670 670 move.w #6,COL(a7) | put 1st column on stack 671 jsr _vputa | reset first column671 jsr vputa | reset first column 672 672 move.w #7,COL(a7) | put 2nd column on stack 673 jsr _vputa | reset second column673 jsr vputa | reset second column 674 674 move.w #8,COL(a7) | put 3rd column on stack 675 jsr _vputa | reset third column675 jsr vputa | reset third column 676 676 677 677 srs12a: btst #1,vrbw12+1 | group 2 ? … … 679 679 680 680 move.w #11,COL(a7) | put 1st column on stack 681 jsr _vputa | reset first column681 jsr vputa | reset first column 682 682 move.w #12,COL(a7) | put 2nd column on stack 683 jsr _vputa | reset second column683 jsr vputa | reset second column 684 684 move.w #13,COL(a7) | put 3rd column on stack 685 jsr _vputa | reset third column685 jsr vputa | reset third column 686 686 687 687 srs12b: btst #2,vrbw12+1 | group 3 ? … … 689 689 690 690 move.w #16,COL(a7) | put 1st column on stack 691 jsr _vputa | reset first column691 jsr vputa | reset first column 692 692 move.w #17,COL(a7) | put 2nd column on stack 693 jsr _vputa | reset second column693 jsr vputa | reset second column 694 694 move.w #18,COL(a7) | put 3rd column on stack 695 jsr _vputa | reset third column695 jsr vputa | reset third column 696 696 697 697 .page … … 701 701 702 702 move.w #21,COL(a7) | put 1st column on stack 703 jsr _vputa | reset first column703 jsr vputa | reset first column 704 704 move.w #22,COL(a7) | put 2nd column on stack 705 jsr _vputa | reset second column705 jsr vputa | reset second column 706 706 move.w #23,COL(a7) | put 3rd column on stack 707 jsr _vputa | reset third column707 jsr vputa | reset third column 708 708 709 709 srs12d: btst #4,vrbw12+1 | group 5 ? … … 711 711 712 712 move.w #26,COL(a7) | put 1st column on stack 713 jsr _vputa | reset first column713 jsr vputa | reset first column 714 714 move.w #27,COL(a7) | put 2nd column on stack 715 jsr _vputa | reset second column715 jsr vputa | reset second column 716 716 move.w #28,COL(a7) | put 3rd column on stack 717 jsr _vputa | reset third column717 jsr vputa | reset third column 718 718 719 719 srs12e: btst #5,vrbw12+1 | group 6 ? … … 721 721 722 722 move.w #31,COL(a7) | put 1st column on stack 723 jsr _vputa | reset first column723 jsr vputa | reset first column 724 724 move.w #32,COL(a7) | put 2nd column on stack 725 jsr _vputa | reset second column725 jsr vputa | reset second column 726 726 move.w #33,COL(a7) | put 3rd column on stack 727 jsr _vputa | reset third column727 jsr vputa | reset third column 728 728 729 729 .page … … 733 733 734 734 move.w #36,COL(a7) | put 1st column on stack 735 jsr _vputa | reset first column735 jsr vputa | reset first column 736 736 move.w #37,COL(a7) | put 2nd column on stack 737 jsr _vputa | reset second column737 jsr vputa | reset second column 738 738 move.w #38,COL(a7) | put 3rd column on stack 739 jsr _vputa | reset third column739 jsr vputa | reset third column 740 740 741 741 srs12g: btst #7,vrbw12+1 | group 8 ? … … 743 743 744 744 move.w #41,COL(a7) | put 1st column on stack 745 jsr _vputa | reset first column745 jsr vputa | reset first column 746 746 move.w #42,COL(a7) | put 2nd column on stack 747 jsr _vputa | reset second column747 jsr vputa | reset second column 748 748 move.w #43,COL(a7) | put 3rd column on stack 749 jsr _vputa | reset third column749 jsr vputa | reset third column 750 750 751 751 srs12h: btst #0,vrbw12 | group 9 … … 753 753 754 754 move.w #46,COL(a7) | put 1st column on stack 755 jsr _vputa | reset first column755 jsr vputa | reset first column 756 756 move.w #47,COL(a7) | put 2nd column on stack 757 jsr _vputa | reset second column757 jsr vputa | reset second column 758 758 move.w #48,COL(a7) | put 3rd column on stack 759 jsr _vputa | reset third column759 jsr vputa | reset third column 760 760 761 761 .page … … 765 765 766 766 move.w #51,COL(a7) | put 1st column on stack 767 jsr _vputa | reset first column767 jsr vputa | reset first column 768 768 move.w #52,COL(a7) | put 2nd column on stack 769 jsr _vputa | reset second column769 jsr vputa | reset second column 770 770 move.w #53,COL(a7) | put 3rd column on stack 771 jsr _vputa | reset third column771 jsr vputa | reset third column 772 772 773 773 srs12k: btst #2,vrbw12 | group 11 … … 775 775 776 776 move.w #56,COL(a7) | put 1st column on stack 777 jsr _vputa | reset first column777 jsr vputa | reset first column 778 778 move.w #57,COL(a7) | put 2nd column on stack 779 jsr _vputa | reset second column779 jsr vputa | reset second column 780 780 move.w #58,COL(a7) | put 3rd column on stack 781 jsr _vputa | reset third column781 jsr vputa | reset third column 782 782 783 783 srs12m: btst #3,vrbw12 | group 12 … … 785 785 786 786 move.w #61,COL(a7) | put 1st column on stack 787 jsr _vputa | reset first column787 jsr vputa | reset first column 788 788 move.w #62,COL(a7) | put 2nd column on stack 789 jsr _vputa | reset second column789 jsr vputa | reset second column 790 790 move.w #63,COL(a7) | put 3rd column on stack 791 jsr _vputa | reset third column791 jsr vputa | reset third column 792 792 793 793 srs12x: move.w vrcw,d0 | restore vrcw to d0 … … 806 806 807 807 move.w #6,COL(a7) | put column on stack 808 jsr _vputa | reset column808 jsr vputa | reset column 809 809 810 810 srs13a: btst #1,vrbw13+1 | variable 2 ? … … 812 812 813 813 move.w #15,COL(a7) | put column on stack 814 jsr _vputa | reset column814 jsr vputa | reset column 815 815 816 816 srs13b: btst #2,vrbw13+1 | variable 3 ? … … 818 818 819 819 move.w #24,COL(a7) | put column on stack 820 jsr _vputa | reset column820 jsr vputa | reset column 821 821 822 822 srs13c: btst #3,vrbw13+1 | variable 4 ? … … 824 824 825 825 move.w #33,COL(a7) | put column on stack 826 jsr _vputa | reset column826 jsr vputa | reset column 827 827 828 828 srs13d: btst #4,vrbw13+1 | variable 5 ? … … 830 830 831 831 move.w #42,COL(a7) | put column on stack 832 jsr _vputa | reset column832 jsr vputa | reset column 833 833 834 834 srs13e: btst #5,vrbw13+1 | variable 6 ? … … 836 836 837 837 move.w #51,COL(a7) | put column on stack 838 jsr _vputa | reset column838 jsr vputa | reset column 839 839 840 840 srs13x: move.w vrcw,d0 | restore vrcw to d0 … … 853 853 854 854 move.w #8,COL(a7) | put 1st column on stack 855 jsr _vputa | reset first column855 jsr vputa | reset first column 856 856 move.w #9,COL(a7) | put 2nd column on stack 857 jsr _vputa | reset second column857 jsr vputa | reset second column 858 858 move.w #10,COL(a7) | put 3rd column on stack 859 jsr _vputa | reset third column859 jsr vputa | reset third column 860 860 move.w #11,COL(a7) | put 4th column on stack 861 jsr _vputa | reset fourth column861 jsr vputa | reset fourth column 862 862 move.w #12,COL(a7) | put 5th column on stack 863 jsr _vputa | reset fifth column863 jsr vputa | reset fifth column 864 864 865 865 srs14a: btst #1,vrbw14+1 | variable 2 ? … … 867 867 868 868 move.w #17,COL(a7) | put 1st column on stack 869 jsr _vputa | reset first column869 jsr vputa | reset first column 870 870 move.w #18,COL(a7) | put 2nd column on stack 871 jsr _vputa | reset second column871 jsr vputa | reset second column 872 872 move.w #19,COL(a7) | put 3rd column on stack 873 jsr _vputa | reset third column873 jsr vputa | reset third column 874 874 move.w #20,COL(a7) | put 4th column on stack 875 jsr _vputa | reset fourth column875 jsr vputa | reset fourth column 876 876 move.w #21,COL(a7) | put 5th column on stack 877 jsr _vputa | reset fifth column877 jsr vputa | reset fifth column 878 878 879 879 .page … … 883 883 884 884 move.w #26,COL(a7) | put 1st column on stack 885 jsr _vputa | reset first column885 jsr vputa | reset first column 886 886 move.w #27,COL(a7) | put 2nd column on stack 887 jsr _vputa | reset second column887 jsr vputa | reset second column 888 888 move.w #28,COL(a7) | put 3rd column on stack 889 jsr _vputa | reset third column889 jsr vputa | reset third column 890 890 move.w #29,COL(a7) | put 4th column on stack 891 jsr _vputa | reset fourth column891 jsr vputa | reset fourth column 892 892 move.w #30,COL(a7) | put 5th column on stack 893 jsr _vputa | reset fifth column893 jsr vputa | reset fifth column 894 894 895 895 srs14c: btst #3,vrbw14+1 | variable 4 ? … … 897 897 898 898 move.w #35,COL(a7) | put 1st column on stack 899 jsr _vputa | reset first column899 jsr vputa | reset first column 900 900 move.w #36,COL(a7) | put 2nd column on stack 901 jsr _vputa | reset second column901 jsr vputa | reset second column 902 902 move.w #37,COL(a7) | put 3rd column on stack 903 jsr _vputa | reset third column903 jsr vputa | reset third column 904 904 move.w #38,COL(a7) | put 4th column on stack 905 jsr _vputa | reset fourth column905 jsr vputa | reset fourth column 906 906 move.w #39,COL(a7) | put 5th column on stack 907 jsr _vputa | reset fifth column907 jsr vputa | reset fifth column 908 908 909 909 .page … … 913 913 914 914 move.w #44,COL(a7) | put 1st column on stack 915 jsr _vputa | reset first column915 jsr vputa | reset first column 916 916 move.w #45,COL(a7) | put 2nd column on stack 917 jsr _vputa | reset second column917 jsr vputa | reset second column 918 918 move.w #46,COL(a7) | put 3rd column on stack 919 jsr _vputa | reset third column919 jsr vputa | reset third column 920 920 move.w #47,COL(a7) | put 4th column on stack 921 jsr _vputa | reset fourth column921 jsr vputa | reset fourth column 922 922 move.w #48,COL(a7) | put 5th column on stack 923 jsr _vputa | reset fifth column923 jsr vputa | reset fifth column 924 924 925 925 srs14e: btst #5,vrbw14+1 | variable 6 ? … … 927 927 928 928 move.w #53,COL(a7) | put 1st column on stack 929 jsr _vputa | reset first column929 jsr vputa | reset first column 930 930 move.w #54,COL(a7) | put 2nd column on stack 931 jsr _vputa | reset second column931 jsr vputa | reset second column 932 932 move.w #55,COL(a7) | put 3rd column on stack 933 jsr _vputa | reset third column933 jsr vputa | reset third column 934 934 move.w #56,COL(a7) | put 4th column on stack 935 jsr _vputa | reset fourth column935 jsr vputa | reset fourth column 936 936 move.w #57,COL(a7) | put 5th column on stack 937 jsr _vputa | reset fifth column937 jsr vputa | reset fifth column 938 938 939 939 srs14x: move.w vrcw,d0 | restore vrcw to d0 … … 952 952 move.w #1,ROW(a7) | put row on stack 953 953 move.w #40,COL(a7) | put 1st column on stack 954 jsr _vputa | reset first column954 jsr vputa | reset first column 955 955 move.w #41,COL(a7) | put 2nd column on stack 956 jsr _vputa | reset second column956 jsr vputa | reset second column 957 957 move.w #42,COL(a7) | put 3rd column on stack 958 jsr _vputa | reset third column958 jsr vputa | reset third column 959 959 move.w #43,COL(a7) | put 4th column on stack 960 jsr _vputa | reset fourth column960 jsr vputa | reset fourth column 961 961 962 962 srs15a: btst #1,vrbw15 | next ? … … 966 966 move.w #1,ROW(a7) | put row on stack 967 967 move.w #45,COL(a7) | put 1st column on stack 968 jsr _vputa | reset first column968 jsr vputa | reset first column 969 969 move.w #46,COL(a7) | put 2nd column on stack 970 jsr _vputa | reset second column970 jsr vputa | reset second column 971 971 move.w #47,COL(a7) | put 3rd column on stack 972 jsr _vputa | reset third column972 jsr vputa | reset third column 973 973 move.w #48,COL(a7) | put 4th column on stack 974 jsr _vputa | reset fourth column974 jsr vputa | reset fourth column 975 975 976 976 srs16: add.l #10,a7 | clean up stack … … 981 981 .bss 982 982 983 | local copies of _vrcw, _vrbw08.._vrbw15983 | local copies of vrcw, vrbw08..vrbw15 984 984 985 985 vrcw: .ds.w 1
Note:
See TracChangeset
for help on using the changeset viewer.