Changeset 3370595 in buchla-68k for ram


Ignore:
Timestamp:
08/07/2017 03:19:26 PM (7 years ago)
Author:
Thomas Lopatic <thomas@…>
Branches:
master
Children:
16badfe
Parents:
27c8d40
Message:

Fix symbol collisions.

Location:
ram
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • ram/sedisp.s

    r27c8d40 r3370595  
    595595| dslocn -- display location
    596596| ------    ----------------
    597 dslocn:         clr.w   d0                      | get group number
     597dslocn_:        clr.w   d0                      | get group number
    598598                move.b  E_DATA1(a0),d0          | ... in d0
    599599                add.w   d0,d0                   | ... as a word offset
     
    11991199                .dc.l   dstune          | 10    tuning
    12001200                .dc.l   dsgrp           | 11    group status
    1201                 .dc.l   dslocn          | 12    location
     1201                .dc.l   dslocn_         | 12    location
    12021202                .dc.l   dsdyn           | 13    dynamics
    12031203                .dc.l   dsanvl          | 14    analog value
  • ram/seexec.s

    r27c8d40 r3370595  
    100100se_exec:        link    a6,#0                   | link stack frames
    101101                movea.l P_EP(a6),a0             | get event pointer 'ep' into a0
    102                 move.l  a0,_xevent              | save in xevent
     102                move.l  a0,xevent               | save in xevent
    103103                move.b  E_TYPE(a0),d1           | get event type into d1.W
    104104                andi.w  #0x007F,d1              | ... and mask off new-data flag
     
    109109                bra     done                    | exit
    110110
    111 exexit:         movea.l _xevent,a0              | point at next event
     111exexit:         movea.l xevent,a0               | point at next event
    112112                move.l  E_FWD(a0),d0            | ...
    113113
     
    518518| globals:
    519519| --------
    520 _xevent:        .ds.l   1               | next event pointer
     520xevent:         .ds.l   1               | next event pointer
    521521
    522522                .end
  • ram/sreset.s

    r27c8d40 r3370595  
    5353                ori.w   #0x0700,sr      | ...
    5454
    55                 move.w  vrcw,vrcw       | make local copies of control variables
     55                move.w  vrcw,_vrcw      | make local copies of control variables
    5656                clr.w   vrcw            | ... and clear them for the next pass
    57                 move.w  vrbw08,vrbw08   | ...
     57                move.w  vrbw08,_vrbw08  | ...
    5858                clr.w   vrbw08          | ...
    59                 move.w  vrbw09,vrbw09   | ...
     59                move.w  vrbw09,_vrbw09  | ...
    6060                clr.w   vrbw09          | ...
    61                 move.w  vrbw10,vrbw10   | ...
     61                move.w  vrbw10,_vrbw10  | ...
    6262                clr.w   vrbw10          | ...
    63                 move.w  vrbw11,vrbw11   | ...
     63                move.w  vrbw11,_vrbw11  | ...
    6464                clr.w   vrbw11          | ...
    65                 move.w  vrbw12,vrbw12   | ...
     65                move.w  vrbw12,_vrbw12  | ...
    6666                clr.w   vrbw12          | ...
    67                 move.w  vrbw13,vrbw13   | ...
     67                move.w  vrbw13,_vrbw13  | ...
    6868                clr.w   vrbw13          | ...
    69                 move.w  vrbw14,vrbw14   | ...
     69                move.w  vrbw14,_vrbw14  | ...
    7070                clr.w   vrbw14          | ...
    71                 move.w  vrbw15,vrbw15   | ...
     71                move.w  vrbw15,_vrbw15  | ...
    7272                clr.w   vrbw15          | ...
    7373
     
    100100                move.w  #12,COL(a7)     | put 2nd column on stack
    101101                jsr     vputa           | reset second column
    102                 move.w  vrcw,d0         | restore vrcw to d0
     102                move.w  _vrcw,d0                | restore _vrcw to d0
    103103
    104104| tuning
     
    111111                move.w  #19,COL(a7)     | put column on stack
    112112                jsr     vputa           | reset column
    113                 move.w  vrcw,d0         | restore vrcw to d0
     113                move.w  _vrcw,d0                | restore _vrcw to d0
    114114
    115115| tempo
     
    126126                move.w  #29,COL(a7)     | put 3rd column on stack
    127127                jsr     vputa           | reset third column
    128                 move.w  vrcw,d0         | restore vrcw to d0
     128                move.w  _vrcw,d0                | restore _vrcw to d0
    129129
    130130                .page
     
    145145                move.w  #38,COL(a7)     | put 4th column on stack
    146146                jsr     vputa           | reset fourth column
    147                 move.w  vrcw,d0         | restore vrcw to d0
     147                move.w  _vrcw,d0                | restore _vrcw to d0
    148148
    149149| section begin
     
    172172                move.w  #51,COL(a7)     | put 2nd column on stack
    173173                jsr     vputa           | reset second column
    174                 move.w  vrcw,d0         | restore vrcw to d0
     174                move.w  _vrcw,d0                | restore _vrcw to d0
    175175
    176176| punch out
     
    187187                move.w  #55,COL(a7)     | put 3rd column on stack
    188188                jsr     vputa           | reset third column
    189                 move.w  vrcw,d0         | restore vrcw to d0
     189                move.w  _vrcw,d0                | restore _vrcw to d0
    190190
    191191| Output
     
    208208                move.w  #62,COL(a7)     | put 6th column on stack
    209209                jsr     vputa           | reset sixth column
    210                 move.w  vrcw,d0         | restore vrcw to d0
     210                move.w  _vrcw,d0                | restore _vrcw to d0
    211211
    212212                .page
     
    219219                move.w  #2,ROW(a7)      | put row on stack
    220220                move.w  #AT11,ATR(a7)   | put attribute on stack
    221                 btst    #0,vrbw08+1     | group 1 ?
     221                btst    #0,_vrbw08+1    | group 1 ?
    222222                beq     srs8a           | jump if not
    223223
     
    227227                jsr     vputa           | reset second column
    228228
    229 srs8a:          btst    #1,vrbw08+1     | group 2 ?
     229srs8a:          btst    #1,_vrbw08+1    | group 2 ?
    230230                beq     srs8b           | jump if not
    231231
     
    235235                jsr     vputa           | reset second character
    236236
    237 srs8b:          btst    #2,vrbw08+1     | group 3 ?
     237srs8b:          btst    #2,_vrbw08+1    | group 3 ?
    238238                beq     srs8c           | jump if not
    239239
     
    243243                jsr     vputa           | reset second character
    244244
    245 srs8c:          btst    #3,vrbw08+1     | group 4 ?
     245srs8c:          btst    #3,_vrbw08+1    | group 4 ?
    246246                beq     srs8d           | jump if not
    247247
     
    253253                .page
    254254
    255 srs8d:          btst    #4,vrbw08+1     | group 5 ?
     255srs8d:          btst    #4,_vrbw08+1    | group 5 ?
    256256                beq     srs8e           | jump if not
    257257
     
    261261                jsr     vputa           | reset second character
    262262
    263 srs8e:          btst    #5,vrbw08+1     | group 6 ?
     263srs8e:          btst    #5,_vrbw08+1    | group 6 ?
    264264                beq     srs8f           | jump if not
    265265
     
    269269                jsr     vputa           | reset second character
    270270
    271 srs8f:          btst    #6,vrbw08+1     | group 7 ?
     271srs8f:          btst    #6,_vrbw08+1    | group 7 ?
    272272                beq     srs8g           | jump if not
    273273
     
    277277                jsr     vputa           | reset second character
    278278
    279 srs8g:          btst    #7,vrbw08+1     | group 8 ?
     279srs8g:          btst    #7,_vrbw08+1    | group 8 ?
    280280                beq     srs8h           | jump if not
    281281
     
    287287                .page
    288288
    289 srs8h:          btst    #0,vrbw08       | group 9
     289srs8h:          btst    #0,_vrbw08      | group 9
    290290                beq     srs8j           | jump if not
    291291
     
    295295                jsr     vputa           | reset second character
    296296
    297 srs8j:          btst    #1,vrbw08       | group 10
     297srs8j:          btst    #1,_vrbw08      | group 10
    298298                beq     srs8k           | jump if not
    299299
     
    303303                jsr     vputa           | reset second character
    304304
    305 srs8k:          btst    #2,vrbw08       | group 11
     305srs8k:          btst    #2,_vrbw08      | group 11
    306306                beq     srs8m           | jump if not
    307307
     
    311311                jsr     vputa           | reset second character
    312312
    313 srs8m:          btst    #3,vrbw08       | group 12
     313srs8m:          btst    #3,_vrbw08      | group 12
    314314                beq     srs8x           | jump if not
    315315
     
    319319                jsr     vputa           | reset second character
    320320
    321 srs8x:          move.w  vrcw,d0         | restore vrcw to d0
     321srs8x:          move.w  _vrcw,d0                | restore _vrcw to d0
    322322
    323323                .page
     
    330330                move.w  #AT11,ATR(a7)   | put attribute on stack
    331331                move.w  #3,ROW(a7)      | put row on stack
    332                 btst    #0,vrbw09+1     | group 1 ?
     332                btst    #0,_vrbw09+1    | group 1 ?
    333333                beq     srs9a           | jump if not
    334334
     
    342342                jsr     vputa           | reset fourth column
    343343
    344 srs9a:          btst    #1,vrbw09+1     | group 2 ?
     344srs9a:          btst    #1,_vrbw09+1    | group 2 ?
    345345                beq     srs9b           | jump if not
    346346
     
    354354                jsr     vputa           | reset fourth column
    355355
    356 srs9b:          btst    #2,vrbw09+1     | group 3 ?
     356srs9b:          btst    #2,_vrbw09+1    | group 3 ?
    357357                beq     srs9c           | jump if not
    358358
     
    368368                .page
    369369
    370 srs9c:          btst    #3,vrbw09+1     | group 4 ?
     370srs9c:          btst    #3,_vrbw09+1    | group 4 ?
    371371                beq     srs9d           | jump if not
    372372
     
    380380                jsr     vputa           | reset fourth column
    381381
    382 srs9d:          btst    #4,vrbw09+1     | group 5 ?
     382srs9d:          btst    #4,_vrbw09+1    | group 5 ?
    383383                beq     srs9e           | jump if not
    384384
     
    392392                jsr     vputa           | reset fourth column
    393393
    394 srs9e:          btst    #5,vrbw09+1     | group 6 ?
     394srs9e:          btst    #5,_vrbw09+1    | group 6 ?
    395395                beq     srs9f           | jump if not
    396396
     
    406406                .page
    407407
    408 srs9f:          btst    #6,vrbw09+1     | group 7 ?
     408srs9f:          btst    #6,_vrbw09+1    | group 7 ?
    409409                beq     srs9g           | jump if not
    410410
     
    418418                jsr     vputa           | reset fourth column
    419419
    420 srs9g:          btst    #7,vrbw09+1     | group 8 ?
     420srs9g:          btst    #7,_vrbw09+1    | group 8 ?
    421421                beq     srs9h           | jump if not
    422422
     
    430430                jsr     vputa           | reset fourth column
    431431
    432 srs9h:          btst    #0,vrbw09       | group 9
     432srs9h:          btst    #0,_vrbw09      | group 9
    433433                beq     srs9j           | jump if not
    434434
     
    444444                .page
    445445
    446 srs9j:          btst    #1,vrbw09       | group 10
     446srs9j:          btst    #1,_vrbw09      | group 10
    447447                beq     srs9k           | jump if not
    448448
     
    456456                jsr     vputa           | reset fourth column
    457457
    458 srs9k:          btst    #2,vrbw09       | group 11
     458srs9k:          btst    #2,_vrbw09      | group 11
    459459                beq     srs9m           | jump if not
    460460
     
    468468                jsr     vputa           | reset fourth column
    469469
    470 srs9m:          btst    #3,vrbw09       | group 12
     470srs9m:          btst    #3,_vrbw09      | group 12
    471471                beq     srs9x           | jump if not
    472472
     
    480480                jsr     vputa           | reset fourth column
    481481
    482 srs9x:          move.w  vrcw,d0         | restore vrcw to d0
     482srs9x:          move.w  _vrcw,d0                | restore _vrcw to d0
    483483
    484484                .page
     
    491491                move.w  #AT11,ATR(a7)   | put attribute on stack
    492492                move.w  #4,ROW(a7)      | put row on stack
    493                 btst    #0,vrbw10+1     | group 1 ?
     493                btst    #0,_vrbw10+1    | group 1 ?
    494494                beq     srs10a          | jump if not
    495495
     
    497497                jsr     vputa           | reset column
    498498
    499 srs10a:         btst    #1,vrbw10+1     | group 2 ?
     499srs10a:         btst    #1,_vrbw10+1    | group 2 ?
    500500                beq     srs10b          | jump if not
    501501
     
    503503                jsr     vputa           | reset column
    504504
    505 srs10b:         btst    #2,vrbw10+1     | group 3 ?
     505srs10b:         btst    #2,_vrbw10+1    | group 3 ?
    506506                beq     srs10c          | jump if not
    507507
     
    509509                jsr     vputa           | reset column
    510510
    511 srs10c:         btst    #3,vrbw10+1     | group 4 ?
     511srs10c:         btst    #3,_vrbw10+1    | group 4 ?
    512512                beq     srs10d          | jump if not
    513513
     
    517517                .page
    518518
    519 srs10d:         btst    #4,vrbw10+1     | group 5 ?
     519srs10d:         btst    #4,_vrbw10+1    | group 5 ?
    520520                beq     srs10e          | jump if not
    521521
     
    523523                jsr     vputa           | reset column
    524524
    525 srs10e:         btst    #5,vrbw10+1     | group 6 ?
     525srs10e:         btst    #5,_vrbw10+1    | group 6 ?
    526526                beq     srs10f          | jump if not
    527527
     
    529529                jsr     vputa           | reset column
    530530
    531 srs10f:         btst    #6,vrbw10+1     | group 7 ?
     531srs10f:         btst    #6,_vrbw10+1    | group 7 ?
    532532                beq     srs10g          | jump if not
    533533
     
    535535                jsr     vputa           | reset column
    536536
    537 srs10g:         btst    #7,vrbw10+1     | group 8 ?
     537srs10g:         btst    #7,_vrbw10+1    | group 8 ?
    538538                beq     srs10h          | jump if not
    539539
     
    543543                .page
    544544
    545 srs10h:         btst    #0,vrbw10       | group 9
     545srs10h:         btst    #0,_vrbw10      | group 9
    546546                beq     srs10j          | jump if not
    547547
     
    549549                jsr     vputa           | reset column
    550550
    551 srs10j:         btst    #1,vrbw10       | group 10
     551srs10j:         btst    #1,_vrbw10      | group 10
    552552                beq     srs10k          | jump if not
    553553
     
    555555                jsr     vputa           | reset column
    556556
    557 srs10k:         btst    #2,vrbw10       | group 11
     557srs10k:         btst    #2,_vrbw10      | group 11
    558558                beq     srs10m          | jump if not
    559559
     
    561561                jsr     vputa           | reset column
    562562
    563 srs10m:         btst    #3,vrbw10       | group 12
     563srs10m:         btst    #3,_vrbw10      | group 12
    564564                beq     srs10x          | jump if not
    565565
     
    567567                jsr     vputa           | reset column
    568568
    569 srs10x:         move.w  vrcw,d0         | restore vrcw to d0
     569srs10x:         move.w  _vrcw,d0                | restore _vrcw to d0
    570570
    571571                .page
     
    578578                move.w  #AT11,ATR(a7)   | put attribute on stack
    579579                move.w  #4,ROW(a7)      | put row on stack
    580                 btst    #0,vrbw11+1     | group 1 ?
     580                btst    #0,_vrbw11+1    | group 1 ?
    581581                beq     srs11a          | jump if not
    582582
     
    584584                jsr     vputa           | reset column
    585585
    586 srs11a:         btst    #1,vrbw11+1     | group 2 ?
     586srs11a:         btst    #1,_vrbw11+1    | group 2 ?
    587587                beq     srs11b          | jump if not
    588588
     
    590590                jsr     vputa           | reset column
    591591
    592 srs11b:         btst    #2,vrbw11+1     | group 3 ?
     592srs11b:         btst    #2,_vrbw11+1    | group 3 ?
    593593                beq     srs11c          | jump if not
    594594
     
    596596                jsr     vputa           | reset column
    597597
    598 srs11c:         btst    #3,vrbw11+1     | group 4 ?
     598srs11c:         btst    #3,_vrbw11+1    | group 4 ?
    599599                beq     srs11d          | jump if not
    600600
     
    604604                .page
    605605
    606 srs11d:         btst    #4,vrbw11+1     | group 5 ?
     606srs11d:         btst    #4,_vrbw11+1    | group 5 ?
    607607                beq     srs11e          | jump if not
    608608
     
    610610                jsr     vputa           | reset column
    611611
    612 srs11e:         btst    #5,vrbw11+1     | group 6 ?
     612srs11e:         btst    #5,_vrbw11+1    | group 6 ?
    613613                beq     srs11f          | jump if not
    614614
     
    616616                jsr     vputa           | reset column
    617617
    618 srs11f:         btst    #6,vrbw11+1     | group 7 ?
     618srs11f:         btst    #6,_vrbw11+1    | group 7 ?
    619619                beq     srs11g          | jump if not
    620620
     
    622622                jsr     vputa           | reset column
    623623
    624 srs11g:         btst    #7,vrbw11+1     | group 8 ?
     624srs11g:         btst    #7,_vrbw11+1    | group 8 ?
    625625                beq     srs11h          | jump if not
    626626
     
    630630                .page
    631631
    632 srs11h:         btst    #0,vrbw11       | group 9
     632srs11h:         btst    #0,_vrbw11      | group 9
    633633                beq     srs11j          | jump if not
    634634
     
    636636                jsr     vputa           | reset column
    637637
    638 srs11j:         btst    #1,vrbw11       | group 10
     638srs11j:         btst    #1,_vrbw11      | group 10
    639639                beq     srs11k          | jump if not
    640640
     
    642642                jsr     vputa           | reset column
    643643
    644 srs11k:         btst    #2,vrbw11       | group 11
     644srs11k:         btst    #2,_vrbw11      | group 11
    645645                beq     srs11m          | jump if not
    646646
     
    648648                jsr     vputa           | reset column
    649649
    650 srs11m:         btst    #3,vrbw11       | group 12
     650srs11m:         btst    #3,_vrbw11      | group 12
    651651                beq     srs11x          | jump if not
    652652
     
    654654                jsr     vputa           | reset column
    655655
    656 srs11x:         move.w  vrcw,d0         | restore vrcw to d0
     656srs11x:         move.w  _vrcw,d0                | restore _vrcw to d0
    657657
    658658                .page
     
    665665                move.w  #AT11,ATR(a7)   | put attribute on stack
    666666                move.w  #5,ROW(a7)      | put row on stack
    667                 btst    #0,vrbw12+1     | group 1 ?
     667                btst    #0,_vrbw12+1    | group 1 ?
    668668                beq     srs12a          | jump if not
    669669
     
    675675                jsr     vputa           | reset third column
    676676
    677 srs12a:         btst    #1,vrbw12+1     | group 2 ?
     677srs12a:         btst    #1,_vrbw12+1    | group 2 ?
    678678                beq     srs12b          | jump if not
    679679
     
    685685                jsr     vputa           | reset third column
    686686
    687 srs12b:         btst    #2,vrbw12+1     | group 3 ?
     687srs12b:         btst    #2,_vrbw12+1    | group 3 ?
    688688                beq     srs12c          | jump if not
    689689
     
    697697                .page
    698698
    699 srs12c:         btst    #3,vrbw12+1     | group 4 ?
     699srs12c:         btst    #3,_vrbw12+1    | group 4 ?
    700700                beq     srs12d          | jump if not
    701701
     
    707707                jsr     vputa           | reset third column
    708708
    709 srs12d:         btst    #4,vrbw12+1     | group 5 ?
     709srs12d:         btst    #4,_vrbw12+1    | group 5 ?
    710710                beq     srs12e          | jump if not
    711711
     
    717717                jsr     vputa           | reset third column
    718718
    719 srs12e:         btst    #5,vrbw12+1     | group 6 ?
     719srs12e:         btst    #5,_vrbw12+1    | group 6 ?
    720720                beq     srs12f          | jump if not
    721721
     
    729729                .page
    730730
    731 srs12f:         btst    #6,vrbw12+1     | group 7 ?
     731srs12f:         btst    #6,_vrbw12+1    | group 7 ?
    732732                beq     srs12g          | jump if not
    733733
     
    739739                jsr     vputa           | reset third column
    740740
    741 srs12g:         btst    #7,vrbw12+1     | group 8 ?
     741srs12g:         btst    #7,_vrbw12+1    | group 8 ?
    742742                beq     srs12h          | jump if not
    743743
     
    749749                jsr     vputa           | reset third column
    750750
    751 srs12h:         btst    #0,vrbw12       | group 9
     751srs12h:         btst    #0,_vrbw12      | group 9
    752752                beq     srs12j          | jump if not
    753753
     
    761761                .page
    762762
    763 srs12j:         btst    #1,vrbw12       | group 10
     763srs12j:         btst    #1,_vrbw12      | group 10
    764764                beq     srs12k          | jump if not
    765765
     
    771771                jsr     vputa           | reset third column
    772772
    773 srs12k:         btst    #2,vrbw12       | group 11
     773srs12k:         btst    #2,_vrbw12      | group 11
    774774                beq     srs12m          | jump if not
    775775
     
    781781                jsr     vputa           | reset third column
    782782
    783 srs12m:         btst    #3,vrbw12       | group 12
     783srs12m:         btst    #3,_vrbw12      | group 12
    784784                beq     srs12x          | jump if not
    785785
     
    791791                jsr     vputa           | reset third column
    792792
    793 srs12x:         move.w  vrcw,d0         | restore vrcw to d0
     793srs12x:         move.w  _vrcw,d0                | restore _vrcw to d0
    794794
    795795                .page
     
    802802                move.w  #AT12,ATR(a7)   | put attribute on stack
    803803                move.w  #7,ROW(a7)      | put row on stack
    804                 btst    #0,vrbw13+1     | variable 1 ?
     804                btst    #0,_vrbw13+1    | variable 1 ?
    805805                beq     srs13a          | jump if not
    806806
     
    808808                jsr     vputa           | reset column
    809809
    810 srs13a:         btst    #1,vrbw13+1     | variable 2 ?
     810srs13a:         btst    #1,_vrbw13+1    | variable 2 ?
    811811                beq     srs13b          | jump if not
    812812
     
    814814                jsr     vputa           | reset column
    815815
    816 srs13b:         btst    #2,vrbw13+1     | variable 3 ?
     816srs13b:         btst    #2,_vrbw13+1    | variable 3 ?
    817817                beq     srs13c          | jump if not
    818818
     
    820820                jsr     vputa           | reset column
    821821
    822 srs13c:         btst    #3,vrbw13+1     | variable 4 ?
     822srs13c:         btst    #3,_vrbw13+1    | variable 4 ?
    823823                beq     srs13d          | jump if not
    824824
     
    826826                jsr     vputa           | reset column
    827827
    828 srs13d:         btst    #4,vrbw13+1     | variable 5 ?
     828srs13d:         btst    #4,_vrbw13+1    | variable 5 ?
    829829                beq     srs13e          | jump if not
    830830
     
    832832                jsr     vputa           | reset column
    833833
    834 srs13e:         btst    #5,vrbw13+1     | variable 6 ?
     834srs13e:         btst    #5,_vrbw13+1    | variable 6 ?
    835835                beq     srs13x          | jump if not
    836836
     
    838838                jsr     vputa           | reset column
    839839
    840 srs13x:         move.w  vrcw,d0         | restore vrcw to d0
     840srs13x:         move.w  _vrcw,d0                | restore _vrcw to d0
    841841
    842842                .page
     
    849849                move.w  #AT12,ATR(a7)   | put attribute on stack
    850850                move.w  #7,ROW(a7)      | put row on stack
    851                 btst    #0,vrbw14+1     | variable 1 ?
     851                btst    #0,_vrbw14+1    | variable 1 ?
    852852                beq     srs14a          | jump if not
    853853
     
    863863                jsr     vputa           | reset fifth column
    864864
    865 srs14a:         btst    #1,vrbw14+1     | variable 2 ?
     865srs14a:         btst    #1,_vrbw14+1    | variable 2 ?
    866866                beq     srs14b          | jump if not
    867867
     
    879879                .page
    880880
    881 srs14b:         btst    #2,vrbw14+1     | variable 3 ?
     881srs14b:         btst    #2,_vrbw14+1    | variable 3 ?
    882882                beq     srs14c          | jump if not
    883883
     
    893893                jsr     vputa           | reset fifth column
    894894
    895 srs14c:         btst    #3,vrbw14+1     | variable 4 ?
     895srs14c:         btst    #3,_vrbw14+1    | variable 4 ?
    896896                beq     srs14d          | jump if not
    897897
     
    909909                .page
    910910
    911 srs14d:         btst    #4,vrbw14+1     | variable 5 ?
     911srs14d:         btst    #4,_vrbw14+1    | variable 5 ?
    912912                beq     srs14e          | jump if not
    913913
     
    923923                jsr     vputa           | reset fifth column
    924924
    925 srs14e:         btst    #5,vrbw14+1     | variable 6 ?
     925srs14e:         btst    #5,_vrbw14+1    | variable 6 ?
    926926                beq     srs14x          | jump if not
    927927
     
    937937                jsr     vputa           | reset fifth column
    938938
    939 srs14x:         move.w  vrcw,d0         | restore vrcw to d0
     939srs14x:         move.w  _vrcw,d0                | restore _vrcw to d0
    940940
    941941                .page
     
    946946                beq     srs16           | jump if not
    947947
    948                 btst    #0,vrbw15       | stop ?
     948                btst    #0,_vrbw15      | stop ?
    949949                beq     srs15a          | jump if not
    950950
     
    960960                jsr     vputa           | reset fourth column
    961961
    962 srs15a:         btst    #1,vrbw15       | next ?
     962srs15a:         btst    #1,_vrbw15      | next ?
    963963                beq     srs16           | jump if not
    964964
     
    983983| local copies of vrcw, vrbw08..vrbw15
    984984
    985 vrcw:           .ds.w   1
    986 vrbw08:         .ds.w   1
    987 vrbw09:         .ds.w   1
    988 vrbw10:         .ds.w   1
    989 vrbw11:         .ds.w   1
    990 vrbw12:         .ds.w   1
    991 vrbw13:         .ds.w   1
    992 vrbw14:         .ds.w   1
    993 vrbw15:         .ds.w   1
     985_vrcw:          .ds.w   1
     986_vrbw08:                .ds.w   1
     987_vrbw09:                .ds.w   1
     988_vrbw10:                .ds.w   1
     989_vrbw11:                .ds.w   1
     990_vrbw12:                .ds.w   1
     991_vrbw13:                .ds.w   1
     992_vrbw14:                .ds.w   1
     993_vrbw15:                .ds.w   1
    994994
    995995                .end
Note: See TracChangeset for help on using the changeset viewer.