Return to BScroll.s CVS log

Up to [ERE Captain BLood IIGS reversed] / cblood

Annotation of cblood/BScroll.s, revision 1.1

1.1     ! root        1: *
        !             2: * Captain Blood
        !             3: *
        !             4: * (c) Infogrames
        !             5: * (s) 2017, Brutal Deluxe Software
        !             6: *
        !             7: 
        !             8:          mx    %00
        !             9: 
        !            10:          rel
        !            11:          dsk   BScroll.L
        !            12:          lst   off
        !            13: 
        !            14: *-----------
        !            15: 
        !            16:          use   BScroll.X
        !            17: 
        !            18: *-----------
        !            19: 
        !            20:          use   4/Event.Macs
        !            21:          use   4/Util.Macs
        !            22: 
        !            23: *-----------
        !            24: 
        !            25: L280000  ENT
        !            26:          PHD
        !            27:          TSC
        !            28:          SEC
        !            29:          SBC   #$00FB
        !            30:          TCD
        !            31:          ADC   #$00F4
        !            32:          TCS
        !            33:          PEA   $0000
        !            34:          PEA   $00D0
        !            35:          JSL   L0702E3
        !            36:          PLY
        !            37:          PLY
        !            38:          STX   L0300FD
        !            39:          STA   L0300FB
        !            40:          TSC
        !            41:          CLC
        !            42:          ADC   #$0006
        !            43:          TCS
        !            44:          PLD
        !            45:          RTL
        !            46: 
        !            47: L280025  ENT
        !            48:          PHD
        !            49:          TSC
        !            50:          SEC
        !            51:          SBC   #$00FB
        !            52:          TCD
        !            53:          ADC   #$00F4
        !            54:          TCS
        !            55:          LDA   #$0040
        !            56:          STA   L0300FF
        !            57:          LDA   L0300FF
        !            58:          LSR
        !            59:          PHA
        !            60:          LDAL  L043668
        !            61:          PLX
        !            62:          STX   $FA
        !            63:          CLC
        !            64:          ADC   $FA
        !            65:          STA   L030101
        !            66:          PEA   $0030
        !            67:          PEA   $0008
        !            68:          LDX   L0300FD
        !            69:          LDA   L0300FB
        !            70:          PHX
        !            71:          PHA
        !            72:          LDA   L030101
        !            73:          LDX   #$0000
        !            74:          PHX
        !            75:          PHA
        !            76:          LDX   L03018D
        !            77:          LDA   L03018B
        !            78:          JSL   L2D0000
        !            79:          JSL   L0D0213
        !            80:          TAY
        !            81:          TSC
        !            82:          CLC
        !            83:          ADC   #$000C
        !            84:          TCS
        !            85:          TYA
        !            86:          PEA   $0088
        !            87:          PEA   $0008
        !            88:          PEA   $0018
        !            89:          LDA   L030101
        !            90:          LDX   #$0000
        !            91:          PHX
        !            92:          PHA
        !            93:          LDX   L03018D
        !            94:          LDA   L03018B
        !            95:          JSL   L2D0000
        !            96:          JSL   L0D0151
        !            97:          PLY
        !            98:          PLY
        !            99:          PLY
        !           100:          PLY
        !           101:          PLY
        !           102:          TSC
        !           103:          CLC
        !           104:          ADC   #$0006
        !           105:          TCS
        !           106:          PLD
        !           107:          RTL
        !           108: 
        !           109: L2800A0  ENT
        !           110:          PHD
        !           111:          TSC
        !           112:          SEC
        !           113:          SBC   #$00FB
        !           114:          TCD
        !           115:          ADC   #$00F4
        !           116:          TCS
        !           117:          PEA   $0030
        !           118:          PEA   $0008
        !           119:          LDA   L030101
        !           120:          LDX   #$0000
        !           121:          PHX
        !           122:          PHA
        !           123:          LDX   L03018D
        !           124:          LDA   L03018B
        !           125:          JSL   L2D0000
        !           126:          LDX   L0300FD
        !           127:          LDA   L0300FB
        !           128:          PHX
        !           129:          PHA
        !           130:          JSL   L0D01CA
        !           131:          TAY
        !           132:          TSC
        !           133:          CLC
        !           134:          ADC   #$000C
        !           135:          TCS
        !           136:          TYA
        !           137:          TSC
        !           138:          CLC
        !           139:          ADC   #$0006
        !           140:          TCS
        !           141:          PLD
        !           142:          RTL
        !           143: 
        !           144: L2800DF  PHD
        !           145:          TSC
        !           146:          SEC
        !           147:          SBC   #$00F9
        !           148:          TCD
        !           149:          ADC   #$00F2
        !           150:          TCS
        !           151:          LDA   #$0040
        !           152:          CLC
        !           153:          ADC   $FF
        !           154:          STA   L0300FF
        !           155:          PEA   $0030
        !           156:          PEA   $0008
        !           157:          LDA   L030101
        !           158:          LDX   #$0000
        !           159:          PHX
        !           160:          PHA
        !           161:          LDX   L03018D
        !           162:          LDA   L03018B
        !           163:          JSL   L2D0000
        !           164:          LDX   L0300FD
        !           165:          LDA   L0300FB
        !           166:          PHX
        !           167:          PHA
        !           168:          JSL   L0D01CA
        !           169:          TAY
        !           170:          TSC
        !           171:          CLC
        !           172:          ADC   #$000C
        !           173:          TCS
        !           174:          TYA
        !           175:          LDA   L0300FF
        !           176:          LSR
        !           177:          PHA
        !           178:          LDAL  L043668
        !           179:          PLX
        !           180:          STX   $F8
        !           181:          CLC
        !           182:          ADC   $F8
        !           183:          STA   L030101
        !           184:          PEA   $0030
        !           185:          PEA   $0008
        !           186:          LDX   L0300FD
        !           187:          LDA   L0300FB
        !           188:          PHX
        !           189:          PHA
        !           190:          LDA   L030101
        !           191:          LDX   #$0000
        !           192:          PHX
        !           193:          PHA
        !           194:          LDX   L03018D
        !           195:          LDA   L03018B
        !           196:          JSL   L2D0000
        !           197:          JSL   L0D0213
        !           198:          TAY
        !           199:          TSC
        !           200:          CLC
        !           201:          ADC   #$000C
        !           202:          TCS
        !           203:          TYA
        !           204:          PEA   $0088
        !           205:          PEA   $0008
        !           206:          PEA   $0018
        !           207:          LDA   L030101
        !           208:          LDX   #$0000
        !           209:          PHX
        !           210:          PHA
        !           211:          LDX   L03018D
        !           212:          LDA   L03018B
        !           213:          JSL   L2D0000
        !           214:          JSL   L0D0151
        !           215:          PLY
        !           216:          PLY
        !           217:          PLY
        !           218:          PLY
        !           219:          PLY
        !           220:          PEA   $00C0
        !           221:          PEA   $0008
        !           222:          PEA   $76E0
        !           223:          JSL   L1E0000
        !           224:          PLY
        !           225:          PLY
        !           226:          PLY
        !           227:          TSC
        !           228:          CLC
        !           229:          ADC   #$0006
        !           230:          TCS
        !           231:          PLD
        !           232:          RTL
        !           233: 
        !           234: L280199  PHD
        !           235:          TSC
        !           236:          SEC
        !           237:          SBC   #$00F9
        !           238:          TCD
        !           239:          ADC   #$00F2
        !           240:          TCS
        !           241:          LDA   #$0040
        !           242:          CLC
        !           243:          ADC   $FF
        !           244:          STA   L0300FF
        !           245:          PEA   $0030
        !           246:          PEA   $0008
        !           247:          LDA   L030101
        !           248:          LDX   #$0000
        !           249:          PHX
        !           250:          PHA
        !           251:          LDX   L03018D
        !           252:          LDA   L03018B
        !           253:          JSL   L2D0000
        !           254:          LDX   L0300FD
        !           255:          LDA   L0300FB
        !           256:          PHX
        !           257:          PHA
        !           258:          JSL   L0D01CA
        !           259:          TAY
        !           260:          TSC
        !           261:          CLC
        !           262:          ADC   #$000C
        !           263:          TCS
        !           264:          TYA
        !           265:          LDA   L0300FF
        !           266:          LSR
        !           267:          PHA
        !           268:          LDAL  L043668
        !           269:          PLX
        !           270:          STX   $F8
        !           271:          CLC
        !           272:          ADC   $F8
        !           273:          STA   L030101
        !           274:          PEA   $0030
        !           275:          PEA   $0008
        !           276:          LDX   L0300FD
        !           277:          LDA   L0300FB
        !           278:          PHX
        !           279:          PHA
        !           280:          LDA   L030101
        !           281:          LDX   #$0000
        !           282:          PHX
        !           283:          PHA
        !           284:          LDX   L03018D
        !           285:          LDA   L03018B
        !           286:          JSL   L2D0000
        !           287:          JSL   L0D0213
        !           288:          TAY
        !           289:          TSC
        !           290:          CLC
        !           291:          ADC   #$000C
        !           292:          TCS
        !           293:          TYA
        !           294:          PEA   $0088
        !           295:          PEA   $0008
        !           296:          PEA   $0018
        !           297:          LDA   L030101
        !           298:          LDX   #$0000
        !           299:          PHX
        !           300:          PHA
        !           301:          LDX   L03018D
        !           302:          LDA   L03018B
        !           303:          JSL   L2D0000
        !           304:          JSL   L0D0151
        !           305:          PLY
        !           306:          PLY
        !           307:          PLY
        !           308:          PLY
        !           309:          PLY
        !           310:          TSC
        !           311:          CLC
        !           312:          ADC   #$0006
        !           313:          TCS
        !           314:          PLD
        !           315:          RTL
        !           316: 
        !           317: L280243  ENT
        !           318:          PHD
        !           319:          TSC
        !           320:          SEC
        !           321:          SBC   #$00FB
        !           322:          TCD
        !           323:          ADC   #$00F2
        !           324:          TCS
        !           325: L28024E  PHA
        !           326:          PEA   $0000
        !           327:          _Button
        !           328:          BCS   L28025E
        !           329:          LDA   #$0000
        !           330: L28025E  STAL  L030169
        !           331:          PLA
        !           332:          TAY
        !           333:          BNE   L280269
        !           334:          BRL   L28030B
        !           335: L280269  LDA   L03013D
        !           336:          CMP   #$00B4
        !           337:          BNE   L280274
        !           338:          BRL   L28030B
        !           339: L280274  BCS   L280279
        !           340:          BRL   L28030B
        !           341: L280279  LDA   L03013B
        !           342:          SEC
        !           343:          SBC   #$0058
        !           344:          STA   $F4
        !           345:          LDA   L03013B
        !           346:          CMP   #$0058
        !           347:          BCS   L28028C
        !           348:          STZ   $F4
        !           349: L28028C  LDA   $F4
        !           350:          CMP   #$0090
        !           351:          BEQ   L28029A
        !           352:          BCC   L28029A
        !           353:          LDA   #$0090
        !           354:          STA   $F4
        !           355: L28029A  PEI   $F4
        !           356:          JSL   L280199
        !           357:          PLY
        !           358:          LDA   $F4
        !           359:          STA   L0300DF
        !           360:          LDA   #$0009
        !           361:          PHA
        !           362:          LDA   L0300DF
        !           363:          PHA
        !           364:          LDA   #$002E
        !           365:          CLC
        !           366:          JSL   L2D018C
        !           367:          PLA
        !           368:          CLC
        !           369:          JSL   L2D000B
        !           370:          PLY
        !           371:          PHA
        !           372:          LDA   #$0010
        !           373:          PLX
        !           374:          STX   $FA
        !           375:          CLC
        !           376:          ADC   $FA
        !           377:          STA   L0301DF
        !           378:          LDX   L03018D
        !           379:          LDA   L03018B
        !           380:          CLC
        !           381:          ADC   #$55B8
        !           382:          PHA
        !           383:          TXA
        !           384:          ADC   #$0000
        !           385:          TAX
        !           386:          PLA
        !           387:          PHX
        !           388:          PHA
        !           389:          LDA   L0301DF
        !           390:          LSR
        !           391:          LDX   #$0000
        !           392:          PHX
        !           393:          PHA
        !           394:          LDX   L0301A1
        !           395:          LDA   L03019F
        !           396:          JSL   L2D0000
        !           397:          JSL   L0D02AA
        !           398:          PLY
        !           399:          PLY
        !           400:          PLY
        !           401:          PLY
        !           402:          PEA   $00E0
        !           403:          PEA   $003D
        !           404:          PEA   $55B8
        !           405:          JSL   L1E0000
        !           406:          PLY
        !           407:          PLY
        !           408:          PLY
        !           409:          BRL   L28024E
        !           410: L28030B  TSC
        !           411:          CLC
        !           412:          ADC   #$0008
        !           413:          TCS
        !           414:          PLD
        !           415:          RTL
        !           416: 
        !           417: L280313  ENT
        !           418:          PHD
        !           419:          TSC
        !           420:          SEC
        !           421:          SBC   #$00FB
        !           422:          TCD
        !           423:          ADC   #$00F2
        !           424:          TCS
        !           425:          LDA   L0301DF
        !           426:          CMP   #$0013
        !           427:          BNE   L280329
        !           428:          BRL   L280387
        !           429: L280329  BCS   L28032E
        !           430:          BRL   L280387
        !           431: L28032E  LDA   L0301DF
        !           432:          SEC
        !           433:          SBC   #$0002
        !           434:          STA   L0301DF
        !           435:          LDX   L03018D
        !           436:          LDA   L03018B
        !           437:          CLC
        !           438:          ADC   #$55B8
        !           439:          PHA
        !           440:          TXA
        !           441:          ADC   #$0000
        !           442:          TAX
        !           443:          PLA
        !           444:          PHX
        !           445:          PHA
        !           446:          LDA   L0301DF
        !           447:          LSR
        !           448:          LDX   #$0000
        !           449:          PHX
        !           450:          PHA
        !           451:          LDX   L0301A1
        !           452:          LDA   L03019F
        !           453:          JSL   L2D0000
        !           454:          JSL   L0D02AA
        !           455:          PLY
        !           456:          PLY
        !           457:          PLY
        !           458:          PLY
        !           459:          PEA   $00E1
        !           460:          PEA   $75B8
        !           461:          LDA   L0301DF
        !           462:          LSR
        !           463:          LDX   #$0000
        !           464:          PHX
        !           465:          PHA
        !           466:          LDX   L0301A1
        !           467:          LDA   L03019F
        !           468:          JSL   L2D0000
        !           469:          JSL   L0D02AA
        !           470:          PLY
        !           471:          PLY
        !           472:          PLY
        !           473:          PLY
        !           474: L280387  LDA   #$002E
        !           475:          PHA
        !           476:          LDA   L0301DF
        !           477:          SEC
        !           478:          SBC   #$0010
        !           479:          PHA
        !           480:          LDA   #$0009
        !           481:          CLC
        !           482:          JSL   L2D018C
        !           483:          PLA
        !           484:          CLC
        !           485:          JSL   L2D000B
        !           486:          PLY
        !           487:          STA   $F4
        !           488:          LDA   $F4
        !           489:          LSR
        !           490:          PHA
        !           491:          LDA   L0300DF
        !           492:          LSR
        !           493:          PLX
        !           494:          STX   $F6
        !           495:          CMP   $F6
        !           496:          BEQ   L2803BA
        !           497:          PEI   $F4
        !           498:          JSL   L2800DF
        !           499:          PLY
        !           500: L2803BA  LDA   $F4
        !           501:          STA   L0300DF
        !           502:          TSC
        !           503:          CLC
        !           504:          ADC   #$0008
        !           505:          TCS
        !           506:          PLD
        !           507:          RTL
        !           508: 
        !           509: L2803C7  ENT
        !           510:          PHD
        !           511:          TSC
        !           512:          SEC
        !           513:          SBC   #$00FB
        !           514:          TCD
        !           515:          ADC   #$00F2
        !           516:          TCS
        !           517:          LDA   L0301DF
        !           518:          CMP   #$02ED
        !           519:          BCC   L2803DD
        !           520:          BRL   L280436
        !           521: L2803DD  LDA   L0301DF
        !           522:          CLC
        !           523:          ADC   #$0002
        !           524:          STA   L0301DF
        !           525:          LDX   L03018D
        !           526:          LDA   L03018B
        !           527:          CLC
        !           528:          ADC   #$55B8
        !           529:          PHA
        !           530:          TXA
        !           531:          ADC   #$0000
        !           532:          TAX
        !           533:          PLA
        !           534:          PHX
        !           535:          PHA
        !           536:          LDA   L0301DF
        !           537:          LSR
        !           538:          LDX   #$0000
        !           539:          PHX
        !           540:          PHA
        !           541:          LDX   L0301A1
        !           542:          LDA   L03019F
        !           543:          JSL   L2D0000
        !           544:          JSL   L0D02AA
        !           545:          PLY
        !           546:          PLY
        !           547:          PLY
        !           548:          PLY
        !           549:          PEA   $00E1
        !           550:          PEA   $75B8
        !           551:          LDA   L0301DF
        !           552:          LSR
        !           553:          LDX   #$0000
        !           554:          PHX
        !           555:          PHA
        !           556:          LDX   L0301A1
        !           557:          LDA   L03019F
        !           558:          JSL   L2D0000
        !           559:          JSL   L0D02AA
        !           560:          PLY
        !           561:          PLY
        !           562:          PLY
        !           563:          PLY
        !           564: L280436  LDA   #$002E
        !           565:          PHA
        !           566:          LDA   L0301DF
        !           567:          SEC
        !           568:          SBC   #$0010
        !           569:          PHA
        !           570:          LDA   #$0009
        !           571:          CLC
        !           572:          JSL   L2D018C
        !           573:          PLA
        !           574:          CLC
        !           575:          JSL   L2D000B
        !           576:          PLY
        !           577:          STA   $F4
        !           578:          LDA   $F4
        !           579:          LSR
        !           580:          PHA
        !           581:          LDA   L0300DF
        !           582:          LSR
        !           583:          PLX
        !           584:          STX   $F6
        !           585:          CMP   $F6
        !           586:          BEQ   L280469
        !           587:          PEI   $F4
        !           588:          JSL   L2800DF
        !           589:          PLY
        !           590: L280469  LDA   $F4
        !           591:          STA   L0300DF
        !           592:          TSC
        !           593:          CLC
        !           594:          ADC   #$0008
        !           595:          TCS
        !           596:          PLD
        !           597:          RTL

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.