Annotation of cblood/survol.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   survol.L
        !            12:          lst   off
        !            13: 
        !            14: *-----------
        !            15: 
        !            16:          use   survol.E
        !            17:          use   survol.X
        !            18: 
        !            19: *-----------
        !            20: 
        !            21: L240000  ENT
        !            22:          PHD
        !            23:          TSC
        !            24:          SEC
        !            25:          SBC   #$00FB
        !            26:          TCD
        !            27:          ADC   #$00EE
        !            28:          TCS
        !            29:          JSL   L2301DE
        !            30:          LDAL  BUTN0
        !            31:          STA   $F4
        !            32:          LDA   $F4
        !            33:          AND   #$0080
        !            34:          TAY
        !            35:          BEQ   L240031
        !            36:          LDA   L030227
        !            37:          CMP   #$0008
        !            38:          BCS   L240031
        !            39:          INC   L030227
        !            40:          LDA   L030227
        !            41:          PHA
        !            42:          JSL   L1301BA
        !            43:          PLY
        !            44: L240031  LDA   $F4
        !            45:          AND   #$8000
        !            46:          TAY
        !            47:          BEQ   L24004A
        !            48:          LDA   L030227
        !            49:          BEQ   L24004A
        !            50:          DEC   L030227
        !            51:          LDA   L030227
        !            52:          PHA
        !            53:          JSL   L1301BA
        !            54:          PLY
        !            55: L24004A  LDA   L03013B
        !            56:          SEC
        !            57:          SBC   #$00A0
        !            58:          BMI   L240064
        !            59:          LSR
        !            60:          LSR
        !            61:          LSR
        !            62:          LSR
        !            63:          LSR
        !            64:          CLC
        !            65:          ADC   L03020B
        !            66:          AND   #$01FF
        !            67:          STA   L03020B
        !            68:          BRA   L24007E
        !            69: L240064  LDA   #$00A0
        !            70:          SEC
        !            71:          SBC   L03013B
        !            72:          LSR
        !            73:          LSR
        !            74:          LSR
        !            75:          LSR
        !            76:          LSR
        !            77:          STA   $F2
        !            78:          LDA   L03020B
        !            79:          SEC
        !            80:          SBC   $F2
        !            81:          AND   #$01FF
        !            82:          STA   L03020B
        !            83: L24007E  LDA   L03013D
        !            84:          SEC
        !            85:          SBC   #$0055
        !            86:          BMI   L24009D
        !            87:          LSR
        !            88:          LSR
        !            89:          LSR
        !            90:          LSR
        !            91:          STA   $F0
        !            92:          LDA   L030223
        !            93:          SEC
        !            94:          SBC   $F0
        !            95:          BPL   L240098
        !            96:          LDA   #$0000
        !            97: L240098  STA   L030223
        !            98:          BRA   L2400B7
        !            99: L24009D  LDA   #$0055
        !           100:          SEC
        !           101:          SBC   L03013D
        !           102:          LSR
        !           103:          LSR
        !           104:          LSR
        !           105:          LSR
        !           106:          CLC
        !           107:          ADC   L030223
        !           108:          CMP   #$0080
        !           109:          BMI   L2400B4
        !           110:          LDA   #$007F
        !           111: L2400B4  STA   L030223
        !           112: L2400B7  LDA   L030223
        !           113:          LSR
        !           114:          CLC
        !           115:          ADC   #$0020
        !           116:          STA   L030225
        !           117:          JSL   L240229
        !           118:          PEA   $FFFF
        !           119:          JSL   L260826
        !           120:          PLY
        !           121:          JSL   L23030B
        !           122:          JSL   L230439
        !           123:          JSL   L230490
        !           124:          JSL   L230000
        !           125:          LDA   L0300B1
        !           126:          BNE   L2400E6
        !           127:          BRL   L240143
        !           128: L2400E6  LDA   L03020B
        !           129:          LDX   #$0000
        !           130:          PHX
        !           131:          PHA
        !           132:          LDAL  L04964A
        !           133:          TAX
        !           134:          LDAL  L049648
        !           135:          JSL   L2D0000
        !           136:          PLA
        !           137:          PLX
        !           138:          STA   $F6
        !           139:          STX   $F8
        !           140:          LDA   [$F6]
        !           141:          AND   #$00FF
        !           142:          CLC
        !           143:          ADC   #$0024
        !           144:          CMP   L030223
        !           145:          BEQ   L24011B
        !           146:          BCC   L24011B
        !           147:          LDA   L0300B7
        !           148:          BEQ   L240119
        !           149:          DEC   L0300B7
        !           150: L240119  BRA   L24011E
        !           151: L24011B  INC   L0300B7
        !           152: L24011E  LDA   L0300B7
        !           153:          CMP   #$0038
        !           154:          BNE   L240143
        !           155:          JSL   L260768
        !           156:          JSL   L1800B7
        !           157:          STZ   L03015F
        !           158:          LDA   #L1E0118
        !           159:          LDX   #^L1E0118
        !           160:          STX   L030002
        !           161:          STA   L030000
        !           162:          LDA   #$0006
        !           163:          STA   L03015D
        !           164: L240143  LDA   L0300C7
        !           165:          BNE   L24014C
        !           166:          JSL   L180000
        !           167: L24014C  TSC
        !           168:          CLC
        !           169:          ADC   #$000C
        !           170:          TCS
        !           171:          PLD
        !           172:          RTL
        !           173: 
        !           174: L240154  ENT
        !           175:          LDAL  L049648
        !           176:          TAX
        !           177:          LDAL  L04964A
        !           178:          TAY
        !           179:          LDAL  L04964C
        !           180:          STAL  L049648
        !           181:          LDAL  L04964E
        !           182:          STAL  L04964A
        !           183:          LDAL  L049650
        !           184:          STAL  L04964C
        !           185:          LDAL  L049652
        !           186:          STAL  L04964E
        !           187:          LDAL  L049654
        !           188:          STAL  L049650
        !           189:          LDAL  L049656
        !           190:          STAL  L049652
        !           191:          LDAL  L049658
        !           192:          STAL  L049654
        !           193:          LDAL  L04965A
        !           194:          STAL  L049656
        !           195:          LDAL  L04965C
        !           196:          STAL  L049658
        !           197:          LDAL  L04965E
        !           198:          STAL  L04965A
        !           199:          LDAL  L049660
        !           200:          STAL  L04965C
        !           201:          LDAL  L049662
        !           202:          STAL  L04965E
        !           203:          LDAL  L049664
        !           204:          STAL  L049660
        !           205:          LDAL  L049666
        !           206:          STAL  L049662
        !           207:          LDAL  L049668
        !           208:          STAL  L049664
        !           209:          LDAL  L04966A
        !           210:          STAL  L049666
        !           211:          TXA
        !           212:          STAL  L049668
        !           213:          TYA
        !           214:          STAL  L04966A
        !           215:          LDAL  L04966E
        !           216:          STAL  L04966C
        !           217:          LDAL  L049670
        !           218:          STAL  L04966E
        !           219:          LDAL  L049672
        !           220:          STAL  L049670
        !           221:          LDAL  L049674
        !           222:          STAL  L049672
        !           223:          LDAL  L049676
        !           224:          STAL  L049674
        !           225:          LDAL  L049678
        !           226:          STAL  L049676
        !           227:          LDAL  L04967A
        !           228:          STAL  L049678
        !           229:          LDAL  L04967C
        !           230:          STAL  L04967A
        !           231:          RTL
        !           232: 
        !           233: L240229  ENT
        !           234:          LDA   #$7F7F
        !           235:          LDX   #$000E
        !           236: L24022F  STAL  L050000,X
        !           237:          STAL  L050020,X
        !           238:          STAL  L050040,X
        !           239:          STAL  L050060,X
        !           240:          STAL  L050010,X
        !           241:          STAL  L050030,X
        !           242:          STAL  L050050,X
        !           243:          STAL  L050070,X
        !           244:          DEX
        !           245:          DEX
        !           246:          BPL   L24022F
        !           247:          RTL
        !           248: 
        !           249: L240254  ENT
        !           250:          LDA   L030231
        !           251:          STA   $02
        !           252:          STA   $06
        !           253:          LDA   L03022F
        !           254:          STA   $00
        !           255:          SEC
        !           256:          SBC   #$0004
        !           257:          STA   $04
        !           258:          BCS   L24026A
        !           259:          DEC   $06
        !           260: L24026A  LDY   #$01FC
        !           261:          SEP   #$20
        !           262: L24026F  LDA   [$00],Y
        !           263:          STA   $18
        !           264:          LDA   [$04],Y
        !           265:          STA   $10
        !           266:          CLC
        !           267:          ADC   $18
        !           268:          LSR
        !           269:          STA   $14
        !           270:          CLC
        !           271:          ADC   $18
        !           272:          LSR
        !           273:          DEY
        !           274:          STA   [$00],Y
        !           275:          DEY
        !           276:          LDA   $14
        !           277:          STA   [$00],Y
        !           278:          DEY
        !           279:          CLC
        !           280:          ADC   $10
        !           281:          LSR
        !           282:          STA   [$00],Y
        !           283:          DEY
        !           284:          BNE   L24026F
        !           285:          LDA   [$00]
        !           286:          STA   $18
        !           287:          LDY   #$01FC
        !           288:          LDA   [$00],Y
        !           289:          STA   $10
        !           290:          CLC
        !           291:          ADC   $18
        !           292:          LSR
        !           293:          LDY   #$01FE
        !           294:          STA   [$00],Y
        !           295:          STA   $14
        !           296:          CLC
        !           297:          ADC   $10
        !           298:          LSR
        !           299:          LDY   #$01FD
        !           300:          STA   [$00],Y
        !           301:          LDA   $18
        !           302:          CLC
        !           303:          ADC   $14
        !           304:          LSR
        !           305:          LDY   #$01FF
        !           306:          STA   [$00],Y
        !           307:          REP   #$20
        !           308:          LDA   #$FFFF
        !           309:          STA   L030221
        !           310:          RTL
        !           311: 
        !           312:          LDA   L030231
        !           313:          STA   $02
        !           314:          STA   $06
        !           315:          LDA   L03022F
        !           316:          CLC
        !           317:          ADC   L0300CB
        !           318:          STA   $00
        !           319:          BCC   L2402DA
        !           320:          INC   $02
        !           321: L2402DA  SEC
        !           322:          SBC   #$0004
        !           323:          STA   $04
        !           324:          BCS   L2402E4
        !           325:          DEC   $06
        !           326: L2402E4  LDY   L0300C3
        !           327:          SEP   #$20
        !           328: L2402E9  LDA   [$00],Y
        !           329:          STA   $18
        !           330:          LDA   [$04],Y
        !           331:          STA   $10
        !           332:          CLC
        !           333:          ADC   $18
        !           334:          LSR
        !           335:          STA   $14
        !           336:          CLC
        !           337:          ADC   $18
        !           338:          LSR
        !           339:          DEY
        !           340:          STA   [$00],Y
        !           341:          DEY
        !           342:          LDA   $14
        !           343:          STA   [$00],Y
        !           344:          DEY
        !           345:          CLC
        !           346:          ADC   $10
        !           347:          LSR
        !           348:          STA   [$00],Y
        !           349:          DEY
        !           350:          BNE   L2402E9
        !           351:          REP   #$20
        !           352:          LDA   #$FFFF
        !           353:          STA   L030221
        !           354:          RTL
        !           355: 
        !           356: L240316  ENT
        !           357:          LDA   L030231
        !           358:          STA   $02
        !           359:          LDA   L03022F
        !           360:          STA   $00
        !           361:          LDX   L030217
        !           362:          LDY   #$0000
        !           363: L240326  JSL   L0C0000
        !           364:          SEP   #$20
        !           365:          AND   L030219
        !           366:          CLC
        !           367:          ADC   L03021B
        !           368:          STA   [$00],Y
        !           369:          REP   #$20
        !           370:          TYA
        !           371:          CLC
        !           372:          ADC   L030215
        !           373:          TAY
        !           374:          DEX
        !           375:          BNE   L240326
        !           376:          LDA   L030215
        !           377:          STA   $04
        !           378: L240345  CMP   #$0008
        !           379:          BMI   L2403A2
        !           380:          LSR
        !           381:          STA   $08
        !           382:          LDA   #$0201
        !           383:          SEC
        !           384:          SBC   $04
        !           385:          STA   $06
        !           386:          STZ   $0E
        !           387:          LDA   $08
        !           388:          STA   $0C
        !           389:          LDA   $04
        !           390:          STA   $0A
        !           391: L24035F  LDA   L03023F
        !           392:          LDX   L030241
        !           393:          JSL   L2D08A1
        !           394:          SEP   #$20
        !           395:          ASL
        !           396:          LDY   $0E
        !           397:          CLC
        !           398:          ADC   [$00],Y
        !           399:          LDY   $0A
        !           400:          ADC   [$00],Y
        !           401:          LSR
        !           402:          LDY   $0C
        !           403:          STA   [$00],Y
        !           404:          REP   #$20
        !           405:          LDA   $0A
        !           406:          CLC
        !           407:          ADC   $04
        !           408:          AND   #$01FF
        !           409:          STA   $0A
        !           410:          LDA   $0C
        !           411:          CLC
        !           412:          ADC   $04
        !           413:          AND   #$01FF
        !           414:          STA   $0C
        !           415:          LDA   $0E
        !           416:          CLC
        !           417:          ADC   $04
        !           418:          STA   $0E
        !           419:          CMP   $06
        !           420:          BMI   L24035F
        !           421:          LDA   $04
        !           422:          LSR
        !           423:          STA   $04
        !           424:          BRA   L240345
        !           425: L2403A2  LDA   #$0000
        !           426:          STA   L030221
        !           427:          RTL
        !           428: 
        !           429: L2403A9  ENT
        !           430:          LDA   L030231
        !           431:          STA   $02
        !           432:          LDA   L030235
        !           433:          STA   $14
        !           434:          LDA   L03022F
        !           435:          STA   $00
        !           436:          LDA   L030233
        !           437:          STA   $12
        !           438:          LDX   L030217
        !           439:          STX   $18
        !           440:          LDY   #$0000
        !           441: L2403C5  JSL   L0C0000
        !           442:          AND   #$000F
        !           443:          SEC
        !           444:          SBC   #$0008
        !           445:          AND   #$00FF
        !           446:          LDX   #$0000
        !           447:          SEP   #$20
        !           448:          STA   $16
        !           449:          LDA   [$12],Y
        !           450:          SEC
        !           451:          SBC   L0300B5
        !           452:          CLC
        !           453:          ADC   $16
        !           454:          TAX
        !           455:          LDAL  L04306C,X
        !           456:          CLC
        !           457:          ADC   L03021B
        !           458:          STA   [$00],Y
        !           459:          REP   #$20
        !           460:          TYA
        !           461:          CLC
        !           462:          ADC   L030215
        !           463:          TAY
        !           464:          DEC   $18
        !           465:          BNE   L2403C5
        !           466:          LDA   L030215
        !           467:          STA   $04
        !           468: L2403FF  CMP   #$0008
        !           469:          BMI   L24045C
        !           470:          LSR
        !           471:          STA   $08
        !           472:          LDA   #$0201
        !           473:          SEC
        !           474:          SBC   $04
        !           475:          STA   $06
        !           476:          STZ   $1E
        !           477:          LDA   $08
        !           478:          STA   $1C
        !           479:          LDA   $04
        !           480:          STA   $1A
        !           481: L240419  LDA   L03023F
        !           482:          LDX   L030241
        !           483:          JSL   L2D08A1
        !           484:          SEP   #$20
        !           485:          ASL
        !           486:          LDY   $1E
        !           487:          CLC
        !           488:          ADC   [$00],Y
        !           489:          LDY   $1A
        !           490:          ADC   [$00],Y
        !           491:          LSR
        !           492:          LDY   $1C
        !           493:          STA   [$00],Y
        !           494:          REP   #$20
        !           495:          LDA   $1A
        !           496:          CLC
        !           497:          ADC   $04
        !           498:          AND   #$01FF
        !           499:          STA   $1A
        !           500:          LDA   $1C
        !           501:          CLC
        !           502:          ADC   $04
        !           503:          AND   #$01FF
        !           504:          STA   $1C
        !           505:          LDA   $1E
        !           506:          CLC
        !           507:          ADC   $04
        !           508:          STA   $1E
        !           509:          CMP   $06
        !           510:          BMI   L240419
        !           511:          LDA   $04
        !           512:          LSR
        !           513:          STA   $04
        !           514:          BRA   L2403FF
        !           515: L24045C  LDA   L03023F
        !           516:          LDX   L030241
        !           517:          JSL   L2D08A1
        !           518:          ADC   L0300BB
        !           519:          AND   #$00FF
        !           520:          STA   L0300BB
        !           521:          STAL  L04967C
        !           522:          LDA   #$0000
        !           523:          STA   L030221
        !           524:          RTL
        !           525: 
        !           526: L24047A  ENT
        !           527:          PHD
        !           528:          TSC
        !           529:          SEC
        !           530:          SBC   #$00F9
        !           531:          TCD
        !           532:          ADC   #$00D2
        !           533:          TCS
        !           534:          STZ   $EC
        !           535:          STZ   $EA
        !           536:          STZ   $E8
        !           537:          LDA   L0300D5
        !           538:          AND   #$0FFF
        !           539:          LSR
        !           540:          LSR
        !           541:          STA   $F2
        !           542:          LDA   L0300D6
        !           543:          LSR
        !           544:          LSR
        !           545:          AND   #$003F
        !           546:          INC
        !           547:          STA   $F0
        !           548:          LDA   L03018D
        !           549:          STA   $DC
        !           550:          LDA   L03018B
        !           551:          CLC
        !           552:          ADC   #$0050
        !           553:          STA   $DA
        !           554:          LDA   $FF
        !           555:          ASL
        !           556:          TAX
        !           557:          LDAL  L04966C,X
        !           558:          ASL
        !           559:          ASL
        !           560:          ASL
        !           561:          CLC
        !           562:          ADC   L03020B
        !           563:          AND   #$01FF
        !           564:          STA   $D6
        !           565:          STA   $D8
        !           566:          ASL
        !           567:          ASL
        !           568:          ASL
        !           569:          ASL
        !           570:          ASL
        !           571:          ASL
        !           572:          ASL
        !           573:          STA   $EE
        !           574:          LDA   $FF
        !           575:          ASL
        !           576:          ASL
        !           577:          LDX   #$0000
        !           578:          PHX
        !           579:          PHA
        !           580:          LDA   #L049648
        !           581:          LDX   #^L049648
        !           582:          JSL   L2D0000
        !           583:          PLA
        !           584:          PLX
        !           585:          STA   $F4
        !           586:          STX   $F6
        !           587:          LDY   #$0002
        !           588:          LDA   [$F4],Y
        !           589:          TAX
        !           590:          LDA   [$F4]
        !           591:          STX   $E4
        !           592:          STA   $E2
        !           593:          LDA   #L050040
        !           594:          LDX   #^L050040
        !           595:          STX   $E0
        !           596:          STA   $DE
        !           597:          LDA   $F0
        !           598:          STA   $E6
        !           599: L240500  LDY   $D6
        !           600:          LDA   #$0000
        !           601:          SEP   #$20
        !           602:          LDA   [$E2],Y
        !           603:          TAX
        !           604:          LDAL  L0492A8,X
        !           605:          CLC
        !           606:          ADC   L030225
        !           607:          BCC   L24051A
        !           608:          LDA   #$FF
        !           609:          STA   [$DE]
        !           610:          BRA   L240535
        !           611: L24051A  BPL   L240535
        !           612:          CMP   [$DE]
        !           613:          BMI   L240535
        !           614:          STA   [$DE]
        !           615:          REP   #$20
        !           616:          AND   #$007F
        !           617:          ASL
        !           618:          TAX
        !           619:          LDAL  L04367E,X
        !           620:          TAY
        !           621:          LDA   #$00EE
        !           622:          SEP   #$20
        !           623:          STA   [$DA],Y
        !           624: L240535  REP   #$20
        !           625:          INC   $DA
        !           626:          LDA   $EE
        !           627:          CLC
        !           628:          ADC   $F2
        !           629:          STA   $EE
        !           630:          XBA
        !           631:          ROL
        !           632:          AND   #$01FF
        !           633:          STA   $D6
        !           634:          INC   $DE
        !           635:          DEC   $E6
        !           636:          BNE   L240500
        !           637:          LDA   L03018D
        !           638:          STA   $DC
        !           639:          LDA   L03018B
        !           640:          CLC
        !           641:          ADC   #$0050
        !           642:          STA   $DA
        !           643:          LDA   $D8
        !           644:          ASL
        !           645:          ASL
        !           646:          ASL
        !           647:          ASL
        !           648:          ASL
        !           649:          ASL
        !           650:          ASL
        !           651:          STA   $EE
        !           652:          LDA   #L050040
        !           653:          LDX   #^L050040
        !           654:          STX   $E0
        !           655:          STA   $DE
        !           656:          LDA   $D8
        !           657:          STA   $D6
        !           658:          LDA   $F0
        !           659:          STA   $E6
        !           660: L240578  LDY   $D6
        !           661:          LDA   #$0000
        !           662:          SEP   #$20
        !           663:          LDA   [$E2],Y
        !           664:          TAX
        !           665:          LDAL  L0492A8,X
        !           666:          CLC
        !           667:          ADC   L030225
        !           668:          BCC   L240592
        !           669:          LDA   #$FF
        !           670:          STA   [$DE]
        !           671:          BRA   L2405AD
        !           672: L240592  BPL   L2405AD
        !           673:          CMP   [$DE]
        !           674:          BMI   L2405AD
        !           675:          STA   [$DE]
        !           676:          REP   #$20
        !           677:          AND   #$007F
        !           678:          ASL
        !           679:          TAX
        !           680:          LDAL  L04367E,X
        !           681:          TAY
        !           682:          LDA   #$00EE
        !           683:          SEP   #$20
        !           684:          STA   [$DA],Y
        !           685: L2405AD  REP   #$20
        !           686:          DEC   $DA
        !           687:          LDA   $EE
        !           688:          SEC
        !           689:          SBC   $F2
        !           690:          STA   $EE
        !           691:          XBA
        !           692:          ROL
        !           693:          AND   #$01FF
        !           694:          STA   $D6
        !           695:          DEC   $DE
        !           696:          DEC   $E6
        !           697:          BNE   L240578
        !           698:          TSC
        !           699:          CLC
        !           700:          ADC   #$0026
        !           701:          TCS
        !           702:          PLD
        !           703:          RTL

unix.superglobalmegacorp.com

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