SCREEN OPT.SRC
FILE INFORMATION
FILENAME(S): SCREEN OPT.SRC
FILE TYPE(S): PRG
FILE SIZE: 963b
FIRST SEEN: 2025-11-30 16:45:39
APPEARS ON: 1 disk(s)
FILE HASH
5275c73da9ebb132b0fddb79c7fed39e4b7ab3d508f70f1a392995307f9bc6bf
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TALENTED RULERZ | SCREEN OPT.SRC | PRG | High Voltage Complete C64 Collection | 20 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 0A 00 9E 39 39 39 00 13 08 0F 00 2E |.......999......|
00000010: 4D 45 4D 00 21 08 14 00 AC 20 B2 20 24 43 30 30 |MEM.!.... . $C00|
00000020: 30 00 2D 08 1E 00 4A 4D 50 20 AC AA 36 00 40 08 |0.-...JMP ..6.@.|
00000030: 28 00 48 49 52 45 53 20 2E 42 59 54 20 24 34 30 |(.HIRES .BYT $40|
00000040: 00 52 08 32 00 4C B0 45 53 20 2E 42 59 54 20 24 |.R.2.L.ES .BYT $|
00000050: 36 30 00 64 08 3C 00 43 4F 4C B0 20 2E 42 59 54 |60.d.<.COL. .BYT|
00000060: 20 24 36 34 00 7B 08 46 00 53 45 49 3A 4C 44 41 | $64.{.F.SEI:LDA|
00000070: 20 23 24 33 34 3A 53 54 41 20 31 00 B0 08 50 00 | #$34:STA 1...P.|
00000080: 4C 44 41 20 23 30 3A 53 54 41 20 24 46 41 3A 53 |LDA #0:STA $FA:S|
00000090: 54 41 20 24 46 43 3A 53 54 41 20 24 46 45 3A 53 |TA $FC:STA $FE:S|
000000A0: 54 41 20 33 3A 53 54 41 20 34 3A 53 54 41 20 35 |TA 3:STA 4:STA 5|
000000B0: 00 E8 08 5A 00 4C 44 41 20 48 49 52 45 53 3A 53 |...Z.LDA HIRES:S|
000000C0: 54 41 20 24 46 42 3A 4C 44 41 20 4C B0 45 53 3A |TA $FB:LDA L.ES:|
000000D0: 53 54 41 20 24 46 44 3A 4C 44 41 20 43 4F 4C B0 |STA $FD:LDA COL.|
000000E0: 3A 53 54 41 20 24 46 46 00 13 09 64 00 AB 20 4C |:STA $FF...d.. L|
000000F0: 44 59 20 23 30 3A 4C 44 41 20 28 24 46 45 29 2C |DY #0:LDA ($FE),|
00000100: 59 3A AF 20 23 24 46 3A 53 54 41 20 28 24 46 45 |Y:. #$F:STA ($FE|
00000110: 29 2C 59 00 40 09 6E 00 4C 44 41 20 23 33 3A 4A |),Y.@.n.LDA #3:J|
00000120: 53 52 20 43 48 45 43 4B 3A 42 43 53 20 AA 3A 4C |SR CHECK:BCS .:L|
00000130: 44 41 20 33 3A 53 54 41 20 28 24 46 45 29 2C 59 |DA 3:STA ($FE),Y|
00000140: 00 81 09 78 00 AA 20 4C 44 41 20 23 31 3A 4A 53 |...x.. LDA #1:JS|
00000150: 52 20 43 48 45 43 4B 3A 42 43 53 20 AA 3A 4C 44 |R CHECK:BCS .:LD|
00000160: 41 20 28 24 46 43 29 2C 59 3A AF 20 23 24 30 46 |A ($FC),Y:. #$0F|
00000170: 3A B0 41 20 34 3A 53 54 41 20 28 24 46 43 29 2C |:.A 4:STA ($FC),|
00000180: 59 00 C2 09 82 00 AA 20 4C 44 41 20 23 32 3A 4A |Y...... LDA #2:J|
00000190: 53 52 20 43 48 45 43 4B 3A 42 43 53 20 AA 3A 4C |SR CHECK:BCS .:L|
000001A0: 44 41 20 28 24 46 43 29 2C 59 3A AF 20 23 24 46 |DA ($FC),Y:. #$F|
000001B0: 30 3A B0 41 20 35 3A 53 54 41 20 28 24 46 43 29 |0:.A 5:STA ($FC)|
000001C0: 2C 59 00 06 0A 84 00 AA 20 4C 44 59 20 23 30 3A |,Y...... LDY #0:|
000001D0: 4C 44 41 20 28 24 46 45 29 2C 59 3A 53 54 41 20 |LDA ($FE),Y:STA |
000001E0: 33 3A 4C 44 41 20 28 24 46 43 29 2C 59 3A AF 20 |3:LDA ($FC),Y:. |
000001F0: 23 24 46 30 3A 53 54 41 20 34 3A 4C 44 41 20 28 |#$F0:STA 4:LDA (|
00000200: 24 46 43 29 2C 59 00 16 0A 85 00 AF 20 23 24 46 |$FC),Y...... #$F|
00000210: 3A 53 54 41 20 35 00 42 0A 8C 00 AA 20 49 4E 43 |:STA 5.B.... INC|
00000220: 20 24 46 43 3A 49 4E 43 20 24 46 45 3A 42 4E 45 | $FC:INC $FE:BNE|
00000230: 20 AA 3A 49 4E 43 20 24 46 44 3A 49 4E 43 20 24 | .:INC $FD:INC $|
00000240: 46 46 00 71 0A 96 00 AA 20 4C 44 41 20 24 46 41 |FF.q.... LDA $FA|
00000250: 3A 43 4C 43 3A 41 44 43 20 23 38 3A 53 54 41 20 |:CLC:ADC #8:STA |
00000260: 24 46 41 3A 42 43 43 20 AA 3A 49 4E 43 20 24 46 |$FA:BCC .:INC $F|
00000270: 42 00 B3 0A A0 00 AA 20 4C 44 41 20 24 46 41 3A |B...... LDA $FA:|
00000280: 43 4D 50 20 23 24 34 30 3A 42 4E 45 20 AB 3A 4C |CMP #$40:BNE .:L|
00000290: 44 41 20 48 49 52 45 53 3A 43 4C 43 3A 41 44 43 |DA HIRES:CLC:ADC|
000002A0: 20 23 24 31 46 3A 43 4D 50 20 24 46 42 3A 42 4E | #$1F:CMP $FB:BN|
000002B0: 45 20 AB 00 CE 0A AA 00 4C 44 41 20 23 24 33 37 |E ......LDA #$37|
000002C0: 3A 53 54 41 20 31 3A 43 4C 49 3A 42 52 4B 00 DE |:STA 1:CLI:BRK..|
000002D0: 0A B4 00 43 48 45 43 4B 20 53 54 41 20 32 00 08 |...CHECK STA 2..|
000002E0: 0B BE 00 4C 44 59 20 23 37 3A AB 20 4C 44 41 20 |...LDY #7:. LDA |
000002F0: 28 24 46 41 29 2C 59 3A 41 53 4C 3A 52 4F 4C 3A |($FA),Y:ASL:ROL:|
00000300: 52 4F 4C 3A AF 20 23 33 00 45 0B C8 00 43 4D 50 |ROL:. #3.E...CMP|
00000310: 20 32 3A 42 45 51 20 AA 3A 4C 44 41 20 28 24 46 | 2:BEQ .:LDA ($F|
00000320: 41 29 2C 59 3A 4C 53 52 3A 4C 53 52 3A 4C 53 52 |A),Y:LSR:LSR:LSR|
00000330: 3A 4C 53 52 3A AF 20 23 33 3A 43 4D 50 20 32 3A |:LSR:. #3:CMP 2:|
00000340: 42 45 51 20 AA 00 6E 0B D2 00 4C 44 41 20 28 24 |BEQ ..n...LDA ($|
00000350: 46 41 29 2C 59 3A 4C 53 52 3A 4C 53 52 3A AF 20 |FA),Y:LSR:LSR:. |
00000360: 23 33 3A 43 4D 50 20 32 3A 42 45 51 20 AA 00 8F |#3:CMP 2:BEQ ...|
00000370: 0B DC 00 4C 44 41 20 28 24 46 41 29 2C 59 3A AF |...LDA ($FA),Y:.|
00000380: 20 23 33 3A 43 4D 50 20 32 3A 42 45 51 20 AA 00 | #3:CMP 2:BEQ ..|
00000390: 9D 0B E6 00 44 45 59 3A 42 50 4C 20 AB 00 AE 0B |....DEY:BPL ....|
000003A0: F0 00 43 4C 43 3A 2E 42 59 54 20 24 32 34 00 C0 |..CLC:.BYT $24..|
000003B0: 0B FA 00 AA 20 53 45 43 3A 49 4E 59 3A 52 54 53 |.... SEC:INY:RTS|
000003C0: 00 00 00 |... |
.......999......MEM.!.... . $C000.-...JM
P ..6.@.(.HIRES .BYT $40.R.2.L.ES .BYT $
60.D.<.COL. .BYT $64.{.F.SEI:LDA #$34:ST
A 1...P.LDA #0:STA $FA:STA $FC:STA $FE:S
TA 3:STA 4:STA 5...Z.LDA HIRES:STA $FB:L
DA L.ES:STA $FD:LDA COL.:STA $FF...D.. L
DY #0:LDA ($FE),Y:. #$F:STA ($FE),Y.@.N.
LDA #3:JSR CHECK:BCS .:LDA 3:STA ($FE),Y
...X.. LDA #1:JSR CHECK:BCS .:LDA ($FC),
Y:. #$0F:.A 4:STA ($FC),Y.B.... LDA #2:J
SR CHECK:BCS .:LDA ($FC),Y:. #$F0:.A 5:S
TA ($FC),Y...... LDY #0:LDA ($FE),Y:STA
3:LDA ($FC),Y:. #$F0:STA 4:LDA ($FC),Y..
.... #$F:STA 5.B.... INC $FC:INC $FE:BNE
.:INC $FD:INC $FF.Q.... LDA $FA:CLC:ADC
#8:STA $FA:BCC .:INC $FB... .. LDA $FA:
CMP #$40:BNE .:LDA HIRES:CLC:ADC #$1F:CM
P $FB:BNE ..N...LDA #$37:STA 1:CLI:BRK..
...CHECK STA 2.....LDY #7:. LDA ($FA),Y:
ASL:ROL:ROL:. #3.E.H.CMP 2:BEQ .:LDA ($F
A),Y:LSR:LSR:LSR:LSR:. #3:CMP 2:BEQ ..N.
R.LDA ($FA),Y:LSR:LSR:. #3:CMP 2:BEQ ...
...LDA ($FA),Y:. #3:CMP 2:BEQ ......DEY:
BPL ......CLC:.BYT $24...... SEC:INY:RTS
...
> CLICK IMAGE PREVIEW FOR FULL MODAL