Return to gs.s CVS log

Up to [ERE Captain BLood IIGS reversed] / cblood

Annotation of cblood/gs.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   gs.L
        !            12:          lst   off
        !            13: 
        !            14: *-----------
        !            15: 
        !            16:          use   gs.X
        !            17: 
        !            18: *-----------
        !            19: 
        !            20:          use   4/Misc.Macs
        !            21:          use   4/Util.Macs
        !            22: 
        !            23: *-----------
        !            24: 
        !            25: L180000  ENT
        !            26:          PHD
        !            27:          TSC
        !            28:          SEC
        !            29:          SBC   #$00FB
        !            30:          TCD
        !            31:          ADC   #$00F4
        !            32:          TCS
        !            33:          JSL   L270000
        !            34:          JSL   L160507
        !            35:          JSL   L1800B7
        !            36:          STZ   L03015F
        !            37:          LDA   #$0006
        !            38:          STA   L03015B
        !            39:          STZ   L030077
        !            40:          JSL   L160179
        !            41:          TAY
        !            42:          BEQ   L180036
        !            43:          LDA   #$0004
        !            44:          STA   L03015D
        !            45:          LDA   #$0001
        !            46:          BRL   L1800AD
        !            47: L180036  LDA   #L1E0118
        !            48:          LDX   #^L1E0118
        !            49:          STX   L030002
        !            50:          STA   L030000
        !            51:          LDA   L030209
        !            52:          CMP   #$FFFF
        !            53:          BEQ   L18005A
        !            54:          PEA   $0000
        !            55:          JSL   L15032D
        !            56:          PLY
        !            57:          PEA   $0000
        !            58:          JSL   L150216
        !            59:          PLY
        !            60: L18005A  JSL   L1D0676
        !            61:          JSL   L160179
        !            62:          TAY
        !            63:          BEQ   L180088
        !            64:          LDA   L030209
        !            65:          CMP   #$FFFF
        !            66:          BEQ   L180075
        !            67:          PEA   $0000
        !            68:          JSL   L1503A0
        !            69:          PLY
        !            70: L180075  STZ   L030000
        !            71:          STZ   L030002
        !            72:          LDA   #$0004
        !            73:          STA   L03015D
        !            74:          LDA   #$0001
        !            75:          BRA   L1800AD
        !            76:          BRA   L1800AD
        !            77: L180088  LDA   L030209
        !            78:          CMP   #$FFFF
        !            79:          BEQ   L180098
        !            80:          PEA   $0000
        !            81:          JSL   L1503A0
        !            82:          PLY
        !            83: L180098  LDA   #L1E0118
        !            84:          LDX   #^L1E0118
        !            85:          STX   L030002
        !            86:          STA   L030000
        !            87:          LDA   #$0006
        !            88:          STA   L03015D
        !            89:          LDA   #$0001
        !            90: L1800AD  TAY
        !            91:          TSC
        !            92:          CLC
        !            93:          ADC   #$0006
        !            94:          TCS
        !            95:          TYA
        !            96:          PLD
        !            97:          RTL
        !            98: 
        !            99: L1800B7  ENT
        !           100:          PHD
        !           101:          TSC
        !           102:          SEC
        !           103:          SBC   #$00FB
        !           104:          TCD
        !           105:          ADC   #$00F4
        !           106:          TCS
        !           107:          PEA   $0000
        !           108:          PEA   $0120
        !           109:          PEA   $0098
        !           110:          PEA   $00C7
        !           111:          _ClampMouse
        !           112:          BCS   L1800DA
        !           113:          LDA   #$0000
        !           114: L1800DA  STAL  L030169
        !           115:          JSL   L130194
        !           116:          TSC
        !           117:          CLC
        !           118:          ADC   #$0006
        !           119:          TCS
        !           120:          PLD
        !           121:          RTL
        !           122: 
        !           123: L1800EA  ENT
        !           124:          PHD
        !           125:          TSC
        !           126:          SEC
        !           127:          SBC   #$00FB
        !           128:          TCD
        !           129:          ADC   #$00F2
        !           130:          TCS
        !           131:          STZ   L030000
        !           132:          STZ   L030002
        !           133:          LDX   L03018D
        !           134:          LDA   L03018B
        !           135:          PHX
        !           136:          PHA
        !           137:          PEA   $000B
        !           138:          PEA   $0093
        !           139:          PEA   $0121
        !           140:          PEA   $0011
        !           141:          PEA   $001F
        !           142:          JSL   L07018E
        !           143:          TAY
        !           144:          TSC
        !           145:          CLC
        !           146:          ADC   #$000E
        !           147:          TCS
        !           148:          TYA
        !           149:          LDX   L03018D
        !           150:          LDA   L03018B
        !           151:          PHX
        !           152:          PHA
        !           153:          PEA   $000D
        !           154:          PEA   $0094
        !           155:          PEA   $0122
        !           156:          PEA   $0010
        !           157:          PEA   $001E
        !           158:          JSL   L07018E
        !           159:          TAY
        !           160:          TSC
        !           161:          CLC
        !           162:          ADC   #$000E
        !           163:          TCS
        !           164:          TYA
        !           165:          LDX   L03018D
        !           166:          LDA   L03018B
        !           167:          PHX
        !           168:          PHA
        !           169:          PEA   $000B
        !           170:          PEA   $0095
        !           171:          PEA   $0123
        !           172:          PEA   $000F
        !           173:          PEA   $001D
        !           174:          JSL   L07018E
        !           175:          TAY
        !           176:          TSC
        !           177:          CLC
        !           178:          ADC   #$000E
        !           179:          TCS
        !           180:          TYA
        !           181:          PEA   ^L048088
        !           182:          PEA   L048088
        !           183:          PEA   $0000
        !           184:          JSL   L0B0114
        !           185:          PLY
        !           186:          PLY
        !           187:          PLY
        !           188:          PEA   ^L048088
        !           189:          PEA   L048088
        !           190:          PEA   $0001
        !           191:          JSL   L0B0114
        !           192:          PLY
        !           193:          PLY
        !           194:          PLY
        !           195:          JSL   L2301DE
        !           196:          PEA   $00B9
        !           197:          LDAL  L04350A
        !           198:          LDX   #$0000
        !           199:          PHX
        !           200:          PHA
        !           201:          LDX   #$00E1
        !           202:          LDA   #$2000
        !           203:          JSL   L2D0000
        !           204:          LDAL  L04350A
        !           205:          LDX   #$0000
        !           206:          PHX
        !           207:          PHA
        !           208:          LDX   L03018D
        !           209:          LDA   L03018B
        !           210:          JSL   L2D0000
        !           211:          JSL   L0D00E3
        !           212:          PLY
        !           213:          PLY
        !           214:          PLY
        !           215:          PLY
        !           216:          PLY
        !           217: L1801BA  JSL   L120000
        !           218:          TAY
        !           219:          BEQ   L1801C3
        !           220:          BRA   L1801BA
        !           221: L1801C3  JSL   L1300C1
        !           222:          JSL   L26017B
        !           223:          JSL   L0C0017
        !           224:          AND   #$001F
        !           225:          CLC
        !           226:          ADC   #$0010
        !           227:          STA   L03022B
        !           228:          JSL   L26009E
        !           229:          JSL   L260123
        !           230:          PEA   $00A0
        !           231:          PEA   $0072
        !           232:          _PosMouse
        !           233:          BCS   L1801F3
        !           234:          LDA   #$0000
        !           235: L1801F3  STAL  L030169
        !           236:          PEA   $002A
        !           237:          PEA   $010E
        !           238:          PEA   $0033
        !           239:          PEA   $00A4
        !           240:          _ClampMouse
        !           241:          BCS   L18020F
        !           242:          LDA   #$0000
        !           243: L18020F  STAL  L030169
        !           244:          TSC
        !           245:          CLC
        !           246:          ADC   #$0008
        !           247:          TCS
        !           248:          PLD
        !           249:          RTL
        !           250: 
        !           251: L18021B  ENT
        !           252:          PHD
        !           253:          TSC
        !           254:          SEC
        !           255:          SBC   #$00FB
        !           256:          TCD
        !           257:          ADC   #$00F4
        !           258:          TCS
        !           259:          LDA   #$FFFF
        !           260:          STA   L03015F
        !           261:          LDA   #$0007
        !           262:          STA   L03015D
        !           263:          LDX   L030179
        !           264:          LDA   L030177
        !           265:          PHX
        !           266:          PHA
        !           267:          PEA   ^L04970D
        !           268:          PEA   L04970D
        !           269:          PEA   ^L049831
        !           270:          PEA   L049831
        !           271:          JSL   L120502
        !           272:          TAY
        !           273:          TSC
        !           274:          CLC
        !           275:          ADC   #$000C
        !           276:          TCS
        !           277:          TYA
        !           278:          TSC
        !           279:          CLC
        !           280:          ADC   #$0006
        !           281:          TCS
        !           282:          PLD
        !           283:          RTL

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