_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

SWAP.SRC

FILE INFORMATION

FILENAME(S): SWAP.SRC

FILE TYPE(S): PRG

FILE SIZE: 498b

FIRST SEEN: 2025-11-30 01:12:44

APPEARS ON: 2 disk(s)

FILE HASH

7ed6c49c8442127f6236f6887196023e9cf63c81ab013e9f7cecffdee89e5b1e

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
10705 64ER 5 87 SWAP.SRC PRG C64er, DuncanTwain 30 9 DOWNLOAD FILE
10705 64ER 5 87 SWAP.SRC PRG DuncanTwain 30 9 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F EA 1F 64 00 3B 2A  2A 2A 20 53 57 41 50 20  |....d.;*** SWAP |
00000010: 2A 2A 2A 00 F8 1F 6E 00  2E 42 41 20 24 43 30 30  |***...n..BA $C00|
00000020: 30 00 0F 20 78 00 2E 45  51 20 43 48 4B 4B 4F 4D  |0.. x..EQ CHKKOM|
00000030: 20 3D 20 24 41 45 46 44  00 26 20 82 00 2E 45 51  | = $AEFD.& ...EQ|
00000040: 20 47 45 54 50 4F 53 20  3D 20 24 42 30 38 42 00  | GETPOS = $B08B.|
00000050: 3B 20 8C 00 2E 45 51 20  46 4C 41 47 31 20 20 3D  |; ...EQ FLAG1  =|
00000060: 20 24 30 44 00 50 20 96  00 2E 45 51 20 46 4C 41  | $0D.P ...EQ FLA|
00000070: 47 32 20 20 3D 20 24 30  45 00 65 20 A0 00 2E 45  |G2  = $0E.e ...E|
00000080: 51 20 56 41 52 31 20 20  20 3D 20 24 46 42 00 7A  |Q VAR1   = $FB.z|
00000090: 20 AA 00 2E 45 51 20 56  41 52 32 20 20 20 3D 20  | ...EQ VAR2   = |
000000A0: 24 34 37 00 80 20 BE 00  3B 00 8F 20 C8 00 20 4A  |$47.. ..;.. .. J|
000000B0: 53 52 43 48 4B 4B 4F 4D  00 9E 20 D2 00 20 4A 53  |SRCHKKOM.. .. JS|
000000C0: 52 47 45 54 50 4F 53 00  AB 20 DC 00 20 53 54 41  |RGETPOS.. .. STA|
000000D0: 56 41 52 31 00 BA 20 E6  00 20 53 54 59 56 41 52  |VAR1.. .. STYVAR|
000000E0: 31 2B 31 00 C9 20 F0 00  20 4A 53 52 43 48 4B 4B  |1+1.. .. JSRCHKK|
000000F0: 4F 4D 00 D8 20 FA 00 20  4A 53 52 47 45 54 50 4F  |OM.. .. JSRGETPO|
00000100: 53 00 DE 20 04 01 3B 00  EB 20 54 01 20 4C 44 59  |S.. ..;.. T. LDY|
00000110: 23 24 30 32 00 F7 20 5E  01 20 4C 44 41 24 30 44  |#$02.. ^. LDA$0D|
00000120: 00 04 21 68 01 20 42 4E  45 53 57 41 50 00 0A 21  |..!h. BNESWAP..!|
00000130: 72 01 3B 00 13 21 7C 01  20 44 45 59 00 1F 21 86  |r.;..!|. DEY..!.|
00000140: 01 20 4C 44 41 24 30 45  00 2C 21 90 01 20 42 4E  |. LDA$0E.,!.. BN|
00000150: 45 53 57 41 50 00 32 21  9A 01 3B 00 3F 21 A4 01  |ESWAP.2!..;.?!..|
00000160: 20 4C 44 59 23 24 30 34  00 45 21 AE 01 3B 00 5A  | LDY#$04.E!..;.Z|
00000170: 21 B8 01 53 57 41 50 20  4C 44 41 28 56 41 52 31  |!..SWAP LDA(VAR1|
00000180: 29 2C 59 00 63 21 C2 01  20 50 48 41 00 74 21 CC  |),Y.c!.. PHA.t!.|
00000190: 01 20 4C 44 41 28 56 41  52 32 29 2C 59 00 85 21  |. LDA(VAR2),Y..!|
000001A0: D6 01 20 53 54 41 28 56  41 52 31 29 2C 59 00 8E  |.. STA(VAR1),Y..|
000001B0: 21 E0 01 20 50 4C 41 00  9F 21 EA 01 20 53 54 41  |!.. PLA..!.. STA|
000001C0: 28 56 41 52 32 29 2C 59  00 A8 21 F4 01 20 44 45  |(VAR2),Y..!.. DE|
000001D0: 59 00 B5 21 FE 01 20 42  50 4C 53 57 41 50 00 BE  |Y..!.. BPLSWAP..|
000001E0: 21 08 02 20 52 54 53 00  C6 21 12 02 2E 45 4E 00  |!.. RTS..!...EN.|
000001F0: 00 00                                             |..              |

X...D.;*** SWAP ***...N..BA $C000.. X..E
Q CHKKOM = $AEFD.& ...EQ GETPOS = $B08B.
; ...EQ FLAG1  = $0D.P ...EQ FLAG2  = $0
E.E  ..EQ VAR1   = $FB.Z ...EQ VAR2   = 
$47.. ..;.. H. JSRCHKKOM.. R. JSRGETPOS.
. .. STAVAR1.. .. STYVAR1+1.I .. JSRCHKK
OM.X .. JSRGETPOS.. ..;.. T. LDY#$02.. ^
. LDA$0D..!H. BNESWAP..!R.;..!|. DEY..!.
. LDA$0E.,!.. BNESWAP.2!..;.?!.. LDY#$04
.E!..;.Z!..SWAP LDA(VAR1),Y.C!B. PHA.T!L
. LDA(VAR2),Y..!V. STA(VAR1),Y..!.. PLA.
.!.. STA(VAR2),Y..!.. DEY..!.. BPLSWAP..
!.. RTS.F!...EN...
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL