TB/BIT TWIDDLERS
FILE INFORMATION
FILENAME(S): TB/BIT TWIDDLERS
FILE TYPE(S): PRG
FILE SIZE: 781b
FIRST SEEN: 2025-11-30 16:59:31
APPEARS ON: 1 disk(s)
FILE HASH
a0f5278e0e1adf9909cac2cbef69620c2ca39e6d974abb0fe39585482efa824d
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BASIC UTILITIES | TB/BIT TWIDDLERS | PRG | High Voltage Complete C64 Collection | 10 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 00 00 8F 20 42 49 54 20 54 57 49 44 |..".... BIT TWID| 00000010: 44 4C 45 52 53 20 28 53 45 50 54 20 34 2F 38 34 |DLERS (SEPT 4/84| 00000020: 29 3A 00 28 08 01 00 3A 00 48 08 02 00 8F 20 33 |):.(...:.H.... 3| 00000030: 20 53 54 41 54 45 4D 45 4E 54 53 2C 20 30 20 46 | STATEMENTS, 0 F| 00000040: 55 4E 43 54 49 4F 4E 53 00 4E 08 03 00 3A 00 6B |UNCTIONS.N...:.k| 00000050: 08 04 00 8F 20 4B 45 59 57 4F 52 44 20 43 48 41 |.... KEYWORD CHA| 00000060: 52 41 43 54 45 52 53 3A 20 31 32 00 71 08 05 00 |RACTERS: 12.q...| 00000070: 3A 00 94 08 06 00 8F 20 4B 45 59 57 4F 52 44 20 |:...... KEYWORD | 00000080: 20 52 4F 55 54 49 4E 45 20 20 4C 49 4E 45 20 20 | ROUTINE LINE | 00000090: 53 45 52 23 00 B6 08 07 00 8F 20 53 2F 53 45 54 |SER#...... S/SET| 000000A0: 20 20 20 20 42 53 45 20 20 20 20 20 20 32 36 39 | BSE 269| 000000B0: 38 20 20 30 30 39 00 D8 08 08 00 8F 20 53 2F 43 |8 009...... S/C| 000000C0: 4C 45 41 52 20 20 42 43 4C 52 20 20 20 20 20 32 |LEAR BCLR 2| 000000D0: 37 30 38 20 20 30 31 30 00 FA 08 09 00 8F 20 53 |708 010...... S| 000000E0: 2F 46 4C 49 50 20 20 20 46 4C 49 20 20 20 20 20 |/FLIP FLI | 000000F0: 20 32 37 32 30 20 20 30 31 31 00 00 09 0A 00 3A | 2720 011.....:| 00000100: 00 19 09 0B 00 8F 20 55 2F 42 50 52 45 50 20 28 |...... U/BPREP (| 00000110: 32 37 33 30 2F 30 31 32 29 00 1F 09 0C 00 3A 00 |2730/012).....:.| 00000120: 46 09 0D 00 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |F.... ==========| 00000130: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000140: 3D 3D 3D 3D 3D 3D 00 4C 09 0E 00 3A 00 62 09 67 |======.L...:.b.g| 00000150: 00 2E C6 20 22 53 45 D4 43 4C 45 41 D2 46 4C 49 |... "SE.CLEA.FLI| 00000160: D0 22 00 7C 09 4F 04 2E 57 B0 44 20 42 53 45 AB |.".|.O..W.D BSE.| 00000170: 31 2C 42 9C AB 31 2C 46 4C 49 AB 31 00 95 09 8A |1,B..1,FLI.1....| 00000180: 0A 42 53 45 20 4A 53 52 20 42 50 52 45 50 20 3B |.BSE JSR BPREP ;| 00000190: 53 45 54 55 50 00 B4 09 8C 0A B0 41 20 28 24 31 |SETUP......A ($1| 000001A0: 34 29 2C 59 20 3B 53 45 54 20 4D 41 53 4B 45 44 |4),Y ;SET MASKED| 000001B0: 20 42 49 54 00 CA 09 8E 0A 53 54 41 20 28 24 31 | BIT.....STA ($1| 000001C0: 34 29 2C 59 20 3B 53 A4 52 45 00 D2 09 90 0A 52 |4),Y ;S.RE.....R| 000001D0: 54 53 00 D8 09 92 0A 3B 00 F0 09 94 0A 42 9C 20 |TS.....;.....B. | 000001E0: 4A 53 52 20 42 50 52 45 50 20 3B 53 45 54 55 50 |JSR BPREP ;SETUP| 000001F0: 00 09 0A 96 0A 45 B0 20 23 24 46 46 20 3B 49 4E |.....E. #$FF ;IN| 00000200: 56 45 52 54 20 4D 41 53 4B 00 2A 0A 98 0A AF 20 |VERT MASK.*.... | 00000210: 28 24 31 34 29 2C 59 20 3B 43 4C 45 41 52 20 4D |($14),Y ;CLEAR M| 00000220: 41 53 4B 45 44 20 42 49 54 53 00 40 0A 9A 0A 53 |ASKED BITS.@...S| 00000230: 54 41 20 28 24 31 34 29 2C 59 20 3B 53 A4 52 45 |TA ($14),Y ;S.RE| 00000240: 00 48 0A 9C 0A 52 54 53 00 4E 0A 9E 0A 3B 00 67 |.H...RTS.N...;.g| 00000250: 0A A0 0A 46 4C 49 20 4A 53 52 20 42 50 52 45 50 |...FLI JSR BPREP| 00000260: 20 3B 53 45 54 55 50 00 88 0A A2 0A 45 B0 20 28 | ;SETUP.....E. (| 00000270: 24 31 34 29 2C 59 20 3B 46 4C 49 50 20 4D 41 53 |$14),Y ;FLIP MAS| 00000280: 4B 45 44 20 42 49 54 53 00 9E 0A A4 0A 53 54 41 |KED BITS.....STA| 00000290: 20 28 24 31 34 29 2C 59 20 3B 53 A4 52 45 00 A6 | ($14),Y ;S.RE..| 000002A0: 0A A6 0A 52 54 53 00 AC 0A A8 0A 3B 00 D0 0A AA |...RTS.....;....| 000002B0: 0A 42 50 52 45 50 20 4A 53 52 20 24 42 37 45 42 |.BPREP JSR $B7EB| 000002C0: 20 3B 41 44 44 52 20 A4 20 24 31 34 AD 31 35 2C | ;ADDR . $14.15,| 000002D0: 00 E2 0A AC 0A 54 58 41 20 3B C5 55 45 20 A4 20 |.....TXA ;.UE . | 000002E0: 2E 41 00 FC 0A AE 0A 4C 44 59 20 23 30 20 3B 53 |.A.....LDY #0 ;S| 000002F0: 45 54 20 49 4E 44 45 58 20 A4 20 30 00 04 0B B0 |ET INDEX . 0....| 00000300: 0A 52 54 53 00 0A 0B B2 0A 3B 00 00 00 |.RTS.....;... |
..".... BIT TWIDDLERS (SEPT 4/84):.(...:
.H.... 3 STATEMENTS, 0 FUNCTIONS.N...:.K
.... KEYWORD CHARACTERS: 12.Q...:......
KEYWORD ROUTINE LINE SER#...... S/SET
BSE 2698 009.X.... S/CLEAR BC
LR 2708 010...... S/FLIP FLI
2720 011.....:...... U/BPREP (2730/012
).....:.F.... ==========================
======.L...:.B.G..F "SETCLEARFLIP".|.O..
W.D BSE.1,B..1,FLI.1.....BSE JSR BPREP ;
SETUP......A ($14),Y ;SET MASKED BIT.J..
.STA ($14),Y ;S.RE.R...RTS.X...;.....B.
JSR BPREP ;SETUP.....E. #$FF ;INVERT MAS
K.*.... ($14),Y ;CLEAR MASKED BITS.@...S
TA ($14),Y ;S.RE.H...RTS.N...;.G. .FLI J
SR BPREP ;SETUP.....E. ($14),Y ;FLIP MAS
KED BITS.....STA ($14),Y ;S.RE.....RTS..
...;.P...BPREP JSR $B7EB ;ADDR . $14.15,
.....TXA ;EUE . .A.....LDY #0 ;SET INDEX
. 0.....RTS.....;...
> CLICK IMAGE PREVIEW FOR FULL MODAL