COTSP
FILE INFORMATION
FILENAME(S): COTSP
FILE TYPE(S): SEQ
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 21:11:47
APPEARS ON: 1 disk(s)
FILE HASH
d9f3cbf1db01a0d7c00590a846c72a2557dcc478a1d58ca2a85eb722867601ed
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 ASSEMBLER | COTSP | SEQ | DuncanTwain | 11 | 18 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 2A 3D 34 39 33 30 30 0D 20 20 | *=49300. | 00000010: 20 20 20 20 53 54 59 20 20 24 30 32 0D 20 20 20 | STY $02. | 00000020: 20 20 20 4C 44 41 20 20 24 46 42 0D 20 20 20 20 | LDA $FB. | 00000030: 20 20 53 54 41 20 20 24 31 41 0D 20 20 20 20 20 | STA $1A. | 00000040: 20 4C 44 41 20 20 24 46 43 0D 20 20 20 20 20 20 | LDA $FC. | 00000050: 53 54 41 20 20 24 31 42 0D 20 20 20 20 20 20 4C |STA $1B. L| 00000060: 44 41 20 23 24 30 30 0D 20 20 20 20 20 20 53 54 |DA #$00. ST| 00000070: 41 20 20 24 31 43 0D 20 20 20 20 20 20 4C 44 59 |A $1C. LDY| 00000080: 20 23 24 30 34 0D 20 20 20 20 20 20 4C 44 41 20 | #$04. LDA | 00000090: 23 24 33 30 0D 55 31 20 20 20 20 53 54 41 20 28 |#$30.U1 STA (| 000000A0: 24 46 44 29 2C 59 0D 20 20 20 20 20 20 44 45 59 |$FD),Y. DEY| 000000B0: 0D 20 20 20 20 20 20 42 50 4C 20 20 20 55 31 0D |. BPL U1.| 000000C0: 20 20 20 20 20 20 4C 44 59 20 23 24 30 30 0D 20 | LDY #$00. | 000000D0: 20 20 20 20 20 42 45 51 20 20 20 55 33 0D 55 32 | BEQ U3.U2| 000000E0: 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 4C 44 | SEC. LD| 000000F0: 41 20 20 24 31 41 0D 20 20 20 20 20 20 53 42 43 |A $1A. SBC| 00000100: 20 23 24 31 30 0D 20 20 20 20 20 20 53 54 41 20 | #$10. STA | 00000110: 20 24 31 41 0D 20 20 20 20 20 20 4C 44 41 20 20 | $1A. LDA | 00000120: 24 31 42 0D 20 20 20 20 20 20 53 42 43 20 23 24 |$1B. SBC #$| 00000130: 32 37 0D 20 20 20 20 20 20 53 54 41 20 20 24 31 |27. STA $1| 00000140: 42 0D 20 20 20 20 20 20 4C 44 41 20 20 24 31 43 |B. LDA $1C| 00000150: 0D 20 20 20 20 20 20 53 42 43 20 23 24 30 30 0D |. SBC #$00.| 00000160: 20 20 20 20 20 20 53 54 41 20 20 24 31 43 0D 20 | STA $1C. | 00000170: 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 20 4C | CLC. L| 00000180: 44 41 20 28 24 46 44 29 2C 59 0D 20 20 20 20 20 |DA ($FD),Y. | 00000190: 20 41 44 43 20 23 24 30 31 0D 20 20 20 20 20 20 | ADC #$01. | 000001A0: 53 54 41 20 28 24 46 44 29 2C 59 0D 55 33 20 20 |STA ($FD),Y.U3 | 000001B0: 20 20 4C 44 41 20 20 24 31 43 0D 20 20 20 20 20 | LDA $1C. | 000001C0: 20 43 4D 50 20 23 24 30 30 0D 20 20 20 20 20 20 | CMP #$00. | 000001D0: 42 45 51 20 20 20 55 33 31 0D 20 20 20 20 20 20 |BEQ U31. | 000001E0: 42 43 53 20 20 20 55 32 0D 20 20 20 20 20 20 42 |BCS U2. B| 000001F0: 43 43 20 20 20 55 35 0D 55 33 31 20 20 20 4C 44 |CC U5.U31 LD| 00000200: 41 20 20 24 31 42 0D 20 20 20 20 20 20 43 4D 50 |A $1B. CMP| 00000210: 20 23 24 32 37 0D 20 20 20 20 20 20 42 45 51 20 | #$27. BEQ | 00000220: 20 20 55 33 32 0D 20 20 20 20 20 20 42 43 53 20 | U32. BCS | 00000230: 20 20 55 32 0D 20 20 20 20 20 20 42 43 43 20 20 | U2. BCC | 00000240: 20 55 35 0D 55 33 32 20 20 20 4C 44 41 20 20 24 | U5.U32 LDA $| 00000250: 31 41 0D 20 20 20 20 20 20 43 4D 50 20 23 24 31 |1A. CMP #$1| 00000260: 30 0D 20 20 20 20 20 20 42 43 53 20 20 20 55 32 |0. BCS U2| 00000270: 0D 55 35 20 20 20 20 4C 44 41 20 20 24 31 43 0D |.U5 LDA $1C.| 00000280: 20 20 20 20 20 20 42 4E 45 20 20 20 55 36 0D 20 | BNE U6. | 00000290: 20 20 20 20 20 4C 44 41 20 20 24 31 42 0D 20 20 | LDA $1B. | 000002A0: 20 20 20 20 42 4E 45 20 20 20 55 36 0D 20 20 20 | BNE U6. | 000002B0: 20 20 20 4C 44 41 20 20 24 31 41 0D 20 20 20 20 | LDA $1A. | 000002C0: 20 20 42 45 51 20 20 20 55 37 0D 55 36 20 20 20 | BEQ U7.U6 | 000002D0: 20 43 4C 43 0D 20 20 20 20 20 2E 42 59 54 45 20 | CLC. .BYTE | 000002E0: 24 32 36 2C 24 31 41 0D 20 20 20 20 20 2E 42 59 |$26,$1A. .BY| 000002F0: 54 45 20 24 32 36 2C 24 31 42 0D 20 20 20 20 20 |TE $26,$1B. | 00000300: 2E 42 59 54 45 20 24 32 36 2C 24 31 43 0D 20 20 |.BYTE $26,$1C. | 00000310: 20 20 20 20 4C 44 41 20 20 24 31 42 0D 20 20 20 | LDA $1B. | 00000320: 20 20 20 53 54 41 20 20 24 41 37 0D 20 20 20 20 | STA $A7. | 00000330: 20 20 4C 44 41 20 20 24 31 43 0D 20 20 20 20 20 | LDA $1C. | 00000340: 20 53 54 41 20 20 24 41 38 0D 20 20 20 20 20 20 | STA $A8. | 00000350: 4C 44 41 20 20 24 31 41 0D 20 20 20 20 20 20 43 |LDA $1A. C| 00000360: 4C 43 0D 20 20 20 20 20 2E 42 59 54 45 20 24 32 |LC. .BYTE $2| 00000370: 41 2C 24 32 36 2C 24 41 37 2C 24 32 36 2C 24 41 |A,$26,$A7,$26,$A| 00000380: 38 0D 20 20 20 20 20 2E 42 59 54 45 20 24 32 41 |8. .BYTE $2A| 00000390: 2C 24 32 36 2C 24 41 37 2C 24 32 36 2C 24 41 38 |,$26,$A7,$26,$A8| 000003A0: 0D 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 20 |. CLC. | 000003B0: 20 41 44 43 20 20 24 31 41 0D 20 20 20 20 20 20 | ADC $1A. | 000003C0: 53 54 41 20 20 24 31 41 0D 20 20 20 20 20 20 4C |STA $1A. L| 000003D0: 44 41 20 20 24 41 37 0D 20 20 20 20 20 20 41 44 |DA $A7. AD| 000003E0: 43 20 20 24 31 42 0D 20 20 20 20 20 20 53 54 41 |C $1B. STA| 000003F0: 20 20 24 31 42 0D 20 20 20 20 20 20 4C 44 41 20 | $1B. LDA | 00000400: 20 24 41 38 0D 20 20 20 20 20 20 41 44 43 20 20 | $A8. ADC | 00000410: 24 31 43 0D 20 20 20 20 20 20 53 54 41 20 20 24 |$1C. STA $| 00000420: 31 43 0D 20 20 20 20 20 20 49 4E 59 0D 20 20 20 |1C. INY. | 00000430: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 42 43 43 | CLC. BCC| 00000440: 20 20 20 55 33 0D 55 37 20 20 20 20 4C 44 59 20 | U3.U7 LDY | 00000450: 20 24 30 32 0D 20 20 20 20 20 20 52 54 53 0D 20 | $02. RTS. | 00000460: 20 20 20 20 2E 45 4E 44 0D | .END. |
*=49300. STY $02. LDA
$FB. STA $1A. LDA $FC.
STA $1B. LDA #$00. STA $1C.
LDY #$04. LDA #$30.U1 STA (
$FD),Y. DEY. BPL U1. LD
Y #$00. BEQ U3.U2 SEC. LD
A $1A. SBC #$10. STA $1A.
LDA $1B. SBC #$27. STA $1
B. LDA $1C. SBC #$00. ST
A $1C. CLC. LDA ($FD),Y.
ADC #$01. STA ($FD),Y.U3 LDA $
1C. CMP #$00. BEQ U31.
BCS U2. BCC U5.U31 LDA $1B.
CMP #$27. BEQ U32. BCS
U2. BCC U5.U32 LDA $1A.
CMP #$10. BCS U2.U5 LDA $1C.
BNE U6. LDA $1B. BNE
U6. LDA $1A. BEQ U7.U6
CLC. .BYTE $26,$1A. .BYTE $26,$
1B. .BYTE $26,$1C. LDA $1B.
STA $A7. LDA $1C. STA $A
8. LDA $1A. CLC. .BYTE $2
A,$26,$A7,$26,$A8. .BYTE $2A,$26,$A7
,$26,$A8. CLC. ADC $1A.
STA $1A. LDA $A7. ADC $1B.
STA $1B. LDA $A8. ADC
$1C. STA $1C. INY. CLC.
BCC U3.U7 LDY $02. RTS.
.END.
> CLICK IMAGE PREVIEW FOR FULL MODAL