ENHANCE.SRC

FILE INFORMATION

FILENAME(S): ENHANCE.SRC

FILE TYPE(S): SEQ

FILE SIZE: 1K

FIRST SEEN: 2025-11-30 01:08:24

APPEARS ON: 2 disk(s)

FILE HASH

f72fe702104bb90c8fc604ea552568c476f05f70407456294c5c0c736f2e1c2c

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FREESOFT DISK NR	ENHANCE.SRC	SEQ	Treasure Chest - Wolfgang Rauprich	30	0	DOWNLOAD FILE
D IVERSE	ENHANCE.SRC	SEQ	Treasure Chest - Wolfgang Rauprich	30	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 2A 20 3D 24 38 30 31 0D  2E 57 4F 52 20 4C 49 4E  |* =$801..WOR LIN|
00000010: 4B 2C 31 30 0D 2E 42 59  54 20 31 35 38 0D 2E 42  |K,10..BYT 158..B|
00000020: 59 54 20 27 28 32 30 36  33 29 27 2C 30 0D 4C 49  |YT '(2063)',0.LI|
00000030: 4E 4B 0D 2E 57 4F 52 20  30 0D 3B 0D 49 50 20 3D  |NK..WOR 0.;.IP =|
00000040: 24 46 44 0D 3B 0D 3B 43  4F 50 59 20 42 41 53 49  |$FD.;.;COPY BASI|
00000050: 43 20 54 4F 20 52 41 4D  0D 3B 0D 53 45 49 0D 4C  |C TO RAM.;.SEI.L|
00000060: 44 58 20 23 3C 24 41 30  30 30 0D 4C 44 59 20 23  |DX #<$A000.LDY #|
00000070: 3E 24 41 30 30 30 0D 53  54 58 20 49 50 0D 53 54  |>$A000.STX IP.ST|
00000080: 59 20 49 50 2B 31 0D 4C  44 59 20 23 30 0D 4C 4F  |Y IP+1.LDY #0.LO|
00000090: 4F 50 31 20 4C 44 41 20  28 49 50 29 59 0D 53 54  |OP1 LDA (IP)Y.ST|
000000A0: 41 20 28 49 50 29 59 0D  49 4E 59 0D 42 4E 45 20  |A (IP)Y.INY.BNE |
000000B0: 4C 4F 4F 50 31 0D 49 4E  43 20 49 50 2B 31 0D 4C  |LOOP1.INC IP+1.L|
000000C0: 44 41 20 49 50 2B 31 0D  43 4D 50 20 23 24 43 30  |DA IP+1.CMP #$C0|
000000D0: 0D 42 4E 45 20 4C 4F 4F  50 31 0D 3B 0D 3B 43 4F  |.BNE LOOP1.;.;CO|
000000E0: 50 59 20 4B 45 52 4E 41  4C 20 54 4F 20 52 41 4D  |PY KERNAL TO RAM|
000000F0: 0D 3B 0D 4C 44 58 20 23  3C 24 45 30 30 30 0D 4C  |.;.LDX #<$E000.L|
00000100: 44 59 20 23 3E 24 45 30  30 30 0D 53 54 58 20 49  |DY #>$E000.STX I|
00000110: 50 0D 53 54 59 20 49 50  2B 31 0D 4C 44 59 20 23  |P.STY IP+1.LDY #|
00000120: 30 0D 4C 4F 4F 50 32 20  4C 44 41 20 28 49 50 29  |0.LOOP2 LDA (IP)|
00000130: 59 0D 53 54 41 20 28 49  50 29 59 0D 49 4E 59 0D  |Y.STA (IP)Y.INY.|
00000140: 42 4E 45 20 4C 4F 4F 50  32 0D 49 4E 43 20 49 50  |BNE LOOP2.INC IP|
00000150: 2B 31 0D 4C 44 41 20 49  50 2B 31 0D 43 4D 50 20  |+1.LDA IP+1.CMP |
00000160: 23 24 30 30 0D 42 4E 45  20 4C 4F 4F 50 32 0D 3B  |#$00.BNE LOOP2.;|
00000170: 0D 3B 0D 4C 44 41 20 23  35 33 20 3B 45 58 45 43  |.;.LDA #53 ;EXEC|
00000180: 55 54 45 20 46 52 4F 4D  20 52 41 4D 2E 2E 2E 0D  |UTE FROM RAM....|
00000190: 53 54 41 20 24 31 0D 3B  0D 4C 44 41 20 23 31 36  |STA $1.;.LDA #16|
000001A0: 39 20 20 3B 4C 44 41 20  23 57 48 49 54 45 0D 53  |9  ;LDA #WHITE.S|
000001B0: 54 41 20 35 39 39 31 35  0D 4C 44 41 20 23 31 0D  |TA 59915.LDA #1.|
000001C0: 53 54 41 20 35 39 39 31  36 0D 4C 44 41 20 23 31  |STA 59916.LDA #1|
000001D0: 34 35 20 20 3B 53 54 41  20 28 32 34 33 29 59 0D  |45  ;STA (243)Y.|
000001E0: 53 54 41 20 35 39 39 31  37 0D 4C 44 41 20 23 32  |STA 59917.LDA #2|
000001F0: 34 33 0D 53 54 41 20 35  39 39 31 38 0D 4C 44 41  |43.STA 59918.LDA|
00000200: 20 23 32 32 39 20 3B 50  41 54 43 48 20 52 45 53  | #229 ;PATCH RES|
00000210: 54 4F 52 45 27 44 20 42  41 4E 4B 0D 53 54 41 20  |TORE'D BANK.STA |
00000220: 36 34 39 38 32 0D 4C 44  58 20 23 31 37 0D 4C 4F  |64982.LDX #17.LO|
00000230: 4F 50 34 20 4C 44 41 20  43 4F 44 45 2C 58 20 3B  |OP4 LDA CODE,X ;|
00000240: 50 41 54 43 48 20 46 52  45 28 30 29 0D 53 54 41  |PATCH FRE(0).STA|
00000250: 20 24 42 46 35 33 2C 58  0D 44 45 58 0D 42 50 4C  | $BF53,X.DEX.BPL|
00000260: 20 4C 4F 4F 50 34 0D 4C  44 41 20 23 24 34 43 0D  | LOOP4.LDA #$4C.|
00000270: 53 54 41 20 24 42 33 38  44 0D 4C 44 41 20 23 24  |STA $B38D.LDA #$|
00000280: 35 33 0D 53 54 41 20 24  42 33 38 45 0D 4C 44 41  |53.STA $B38E.LDA|
00000290: 20 23 24 42 46 0D 53 54  41 20 24 42 33 38 46 0D  | #$BF.STA $B38F.|
000002A0: 3B 0D 43 4C 49 0D 3B 0D  4C 44 41 20 23 31 34 37  |;.CLI.;.LDA #147|
000002B0: 20 3B 43 4C 45 41 52 20  53 43 52 45 45 4E 2E 2E  | ;CLEAR SCREEN..|
000002C0: 2E 2E 0D 42 50 4C 20 4C  4F 4F 50 34 0D 4A 53 52  |...BPL LOOP4.JSR|
000002D0: 20 24 46 46 44 32 20 3B  2E 2E 2E 57 49 54 48 20  | $FFD2 ;...WITH |
000002E0: 57 48 49 54 45 20 4E 59  42 42 4C 45 53 0D 3B 0D  |WHITE NYBBLES.;.|
000002F0: 4C 44 59 20 23 30 0D 4C  4F 4F 50 33 20 4C 44 41  |LDY #0.LOOP3 LDA|
00000300: 20 4D 53 47 2C 59 20 3B  4D 53 47 20 53 41 59 53  | MSG,Y ;MSG SAYS|
00000310: 20 57 45 20 52 55 4E 0D  42 45 51 20 4F 55 54 0D  | WE RUN.BEQ OUT.|
00000320: 4A 53 52 20 24 46 46 44  32 0D 49 4E 59 0D 42 4E  |JSR $FFD2.INY.BN|
00000330: 45 20 4C 4F 4F 50 33 0D  3B 0D 4F 55 54 20 4A 53  |E LOOP3.;.OUT JS|
00000340: 52 20 24 41 36 34 34 20  3B 4E 45 57 2E 2E 2E 0D  |R $A644 ;NEW....|
00000350: 4A 4D 50 20 24 41 34 37  34 20 3B 52 45 41 44 59  |JMP $A474 ;READY|
00000360: 2E 2E 2E 0D 3B 0D 4D 53  47 20 2E 42 59 54 20 27  |....;.MSG .BYT '|
00000370: 52 4F 4D 20 45 4E 48 41  4E 43 45 4D 45 4E 54 53  |ROM ENHANCEMENTS|
00000380: 20 49 4E 20 50 4C 41 43  45 3A 27 2C 24 44 0D 2E  | IN PLACE:',$D..|
00000390: 42 59 54 20 27 28 31 29  20 50 4F 4B 45 20 54 4F  |BYT '(1) POKE TO|
000003A0: 20 53 43 52 45 45 4E 20  52 41 4D 27 2C 24 44 0D  | SCREEN RAM',$D.|
000003B0: 2E 42 59 54 20 27 28 32  29 20 30 20 3C 3D 20 46  |.BYT '(2) 0 <= F|
000003C0: 52 45 28 30 29 20 3C 3D  20 33 38 39 30 39 27 2C  |RE(0) <= 38909',|
000003D0: 24 44 0D 2E 42 59 54 20  30 0D 43 4F 44 45 20 4C  |$D..BYT 0.CODE L|
000003E0: 44 41 20 24 33 34 0D 53  42 43 20 24 33 32 0D 4C  |DA $34.SBC $32.L|
000003F0: 44 58 20 23 30 0D 53 54  58 20 24 30 44 0D 53 54  |DX #0.STX $0D.ST|
00000400: 41 20 24 36 32 0D 53 54  59 20 24 36 33 0D 4C 44  |A $62.STY $63.LD|
00000410: 58 20 23 24 39 30 0D 53  45 43 0D 4A 4D 50 20 24  |X #$90.SEC.JMP $|
00000420: 42 43 34 39 0D 2E 45 4E  44 0D                    |BC49..END.      |

* =$801..WOR LINK,10..BYT 158..BYT '(206
3)',0.LINK..WOR 0.;.IP =$FD.;.;COPY BASI
C TO RAM.;.SEI.LDX #<$A000.LDY #>$A000.S
TX IP.STY IP+1.LDY #0.LOOP1 LDA (IP)Y.ST
A (IP)Y.INY.BNE LOOP1.INC IP+1.LDA IP+1.
CMP #$C0.BNE LOOP1.;.;COPY KERNAL TO RAM
.;.LDX #<$E000.LDY #>$E000.STX IP.STY IP
+1.LDY #0.LOOP2 LDA (IP)Y.STA (IP)Y.INY.
BNE LOOP2.INC IP+1.LDA IP+1.CMP #$00.BNE
 LOOP2.;.;.LDA #53 ;EXECUTE FROM RAM....
STA $1.;.LDA #169  ;LDA #WHITE.STA 59915
.LDA #1.STA 59916.LDA #145  ;STA (243)Y.
STA 59917.LDA #243.STA 59918.LDA #229 ;P
ATCH RESTORE'D BANK.STA 64982.LDX #17.LO
OP4 LDA CODE,X ;PATCH FRE(0).STA $BF53,X
.DEX.BPL LOOP4.LDA #$4C.STA $B38D.LDA #$
53.STA $B38E.LDA #$BF.STA $B38F.;.CLI.;.
LDA #147 ;CLEAR SCREEN.....BPL LOOP4.JSR
 $FFD2 ;...WITH WHITE NYBBLES.;.LDY #0.L
OOP3 LDA MSG,Y ;MSG SAYS WE RUN.BEQ OUT.
JSR $FFD2.INY.BNE LOOP3.;.OUT JSR $A644 
;NEW....JMP $A474 ;READY....;.MSG .BYT '
ROM ENHANCEMENTS IN PLACE:',$D..BYT '(1)
 POKE TO SCREEN RAM',$D..BYT '(2) 0 <= F
RE(0) <= 38909',$D..BYT 0.CODE LDA $34.S
BC $32.LDX #0.STX $0D.STA $62.STY $63.LD
X #$90.SEC.JMP $BC49..END.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL