QUELL.PAGE4
FILE INFORMATION
FILENAME(S): QUELL.PAGE4
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 01:12:33
APPEARS ON: 2 disk(s)
FILE HASH
59e91944d6631877a06d570b365a4f41834f7000f2bf7854714b653b5602e77e
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT 2 86 | QUELL.PAGE4 | PRG | C64er | 2 | 0 | DOWNLOAD FILE |
| SONDER 2 86 1 | QUELL.PAGE4 | PRG | DuncanTwain | 3 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1E 08 0A 00 9E 20 39 AC 34 30 39 36 20 20 |....... 9.4096 |
00000010: 20 20 20 20 3B 50 52 4F 46 49 AB 41 53 53 00 2A | ;PROFI.ASS.*|
00000020: 08 0C 00 2E 4F 50 54 20 4F 4F 00 4C 08 0D 00 AC |....OPT OO.L....|
00000030: B2 20 24 30 33 33 43 20 20 20 20 20 20 20 20 3B |. $033C ;|
00000040: 53 54 41 52 54 41 44 52 45 53 53 45 00 52 08 0E |STARTADRESSE.R..|
00000050: 00 3B 00 64 08 32 00 49 4C 4C 51 20 20 B2 20 24 |.;.d.2.ILLQ . $|
00000060: 42 32 34 38 00 74 08 37 00 4B 4F A1 20 B2 20 24 |B248.t.7.KO. . $|
00000070: 42 37 46 31 00 7A 08 5A 00 3B 00 86 08 64 00 4A |B7F1.z.Z.;...d.J|
00000080: 53 52 20 4B 4F A1 00 9C 08 6E 00 43 50 58 20 23 |SR KO....n.CPX #|
00000090: 31 20 3A 42 45 51 20 48 4F 4C 45 31 00 B2 08 78 |1 :BEQ HOLE1...x|
000000A0: 00 43 50 58 20 23 32 20 3A 42 45 51 20 48 4F 4C |.CPX #2 :BEQ HOL|
000000B0: 45 32 00 C8 08 82 00 43 50 58 20 23 33 20 3A 42 |E2.....CPX #3 :B|
000000C0: 45 51 20 48 4F 4C 45 33 00 DE 08 8C 00 43 50 58 |EQ HOLE3.....CPX|
000000D0: 20 23 34 20 3A 42 45 51 20 48 4F 4C 45 34 00 EB | #4 :BEQ HOLE4..|
000000E0: 08 96 00 4A 4D 50 20 49 4C 4C 51 00 F1 08 C8 00 |...JMP ILLQ.....|
000000F0: 3B 00 19 09 C9 00 3B B2 B2 B2 B2 B2 B2 B2 B2 B2 |;.....;.........|
00000100: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000110: B2 B2 B2 B2 B2 B2 B2 B2 B2 00 65 09 CA 00 3B 44 |..........e...;D|
00000120: 49 45 20 47 45 53 50 45 49 43 48 2E 53 43 52 45 |IE GESPEICH.SCRE|
00000130: 45 4E 53 20 57 45 52 44 45 4E 20 55 45 42 45 52 |ENS WERDEN UEBER|
00000140: 20 20 20 9E AB 42 45 46 45 48 4C AB B1 9E 38 32 | ..BEFEHL...82|
00000150: 38 2C 4E 20 28 4E B2 31 AB 34 29 41 55 46 47 45 |8,N (N.1.4)AUFGE|
00000160: 52 55 46 45 4E 00 8D 09 CB 00 3B B2 B2 B2 B2 B2 |RUFEN.....;.....|
00000170: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 |................|
00000180: B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 B2 00 A5 09 |................|
00000190: F4 01 48 4F 4C 45 31 20 4C 44 41 20 24 30 31 20 |..HOLE1 LDA $01 |
000001A0: 20 3A 50 48 41 00 C1 09 FE 01 3A 20 20 20 20 20 | :PHA.....: |
000001B0: 4C 44 41 20 23 24 33 36 20 3A 53 54 41 20 24 30 |LDA #$36 :STA $0|
000001C0: 31 00 DD 09 03 02 3A 20 20 20 20 20 4A 53 52 20 |1.....: JSR |
000001D0: 55 50 33 20 20 3A 53 54 41 20 24 46 42 00 F9 09 |UP3 :STA $FB...|
000001E0: 08 02 3A 20 20 20 20 20 4C 44 59 20 23 24 41 30 |..: LDY #$A0|
000001F0: 20 3A 53 54 59 20 24 46 43 00 0C 0A 0D 02 3A 20 | :STY $FC.....: |
00000200: 20 20 20 20 4A 53 52 20 43 4F 50 59 00 29 0A 12 | JSR COPY.)..|
00000210: 02 3A 20 20 20 20 20 4A 53 52 20 55 50 34 20 20 |.: JSR UP4 |
00000220: 3A 4C 44 59 20 23 24 41 34 00 3C 0A 1C 02 3A 20 |:LDY #$A4.<...: |
00000230: 20 20 20 20 4A 4D 50 20 43 4F 50 32 00 42 0A 21 | JMP COP2.B.!|
00000240: 02 3B 00 5A 0A 2B 02 48 4F 4C 45 32 20 4C 44 41 |.;.Z.+.HOLE2 LDA|
00000250: 20 24 30 31 20 20 3A 50 48 41 00 76 0A 30 02 3A | $01 :PHA.v.0.:|
00000260: 20 20 20 20 20 4C 44 41 20 23 24 33 36 20 3A 53 | LDA #$36 :S|
00000270: 54 41 20 24 30 31 00 92 0A 35 02 3A 20 20 20 20 |TA $01...5.: |
00000280: 20 4A 53 52 20 55 50 33 20 20 3A 53 54 41 20 24 | JSR UP3 :STA $|
00000290: 46 42 00 AE 0A 3A 02 3A 20 20 20 20 20 4C 44 59 |FB...:.: LDY|
000002A0: 20 23 24 41 38 20 3A 53 54 59 20 24 46 43 00 C1 | #$A8 :STY $FC..|
000002B0: 0A 44 02 3A 20 20 20 20 20 4A 53 52 20 43 4F 50 |.D.: JSR COP|
000002C0: 59 00 DE 0A 49 02 3A 20 20 20 20 20 4A 53 52 20 |Y...I.: JSR |
000002D0: 55 50 34 20 20 3A 4C 44 59 20 23 24 41 43 00 F1 |UP4 :LDY #$AC..|
000002E0: 0A 53 02 3A 20 20 20 20 20 4A 4D 50 20 43 4F 50 |.S.: JMP COP|
000002F0: 32 00 F7 0A 58 02 3B 00 0F 0B 62 02 48 4F 4C 45 |2...X.;...b.HOLE|
00000300: 33 20 4C 44 41 20 24 30 31 20 20 3A 50 48 41 00 |3 LDA $01 :PHA.|
00000310: 2B 0B 67 02 3A 20 20 20 20 20 4C 44 41 20 23 24 |+.g.: LDA #$|
00000320: 33 36 20 3A 53 54 41 20 24 30 31 00 47 0B 6C 02 |36 :STA $01.G.l.|
00000330: 3A 20 20 20 20 20 4A 53 52 20 55 50 33 20 20 3A |: JSR UP3 :|
00000340: 53 54 41 20 24 46 42 00 63 0B 71 02 3A 20 20 20 |STA $FB.c.q.: |
00000350: 20 20 4C 44 59 20 23 24 42 30 20 3A 53 54 59 20 | LDY #$B0 :STY |
00000360: 24 46 43 00 76 0B 7B 02 3A 20 20 20 20 20 4A 53 |$FC.v.{.: JS|
00000370: 52 20 43 4F 50 59 00 93 0B 80 02 3A 20 20 20 20 |R COPY.....: |
00000380: 20 4A 53 52 20 55 50 34 20 20 3A 4C 44 59 20 23 | JSR UP4 :LDY #|
00000390: 24 42 34 00 A6 0B 8A 02 3A 20 20 20 20 20 4A 4D |$B4.....: JM|
000003A0: 50 20 43 4F 50 32 00 AC 0B 8F 02 3B 00 C4 0B 99 |P COP2.....;....|
000003B0: 02 48 4F 4C 45 34 20 4C 44 41 20 24 30 31 20 20 |.HOLE4 LDA $01 |
000003C0: 3A 50 48 41 00 E0 0B 9E 02 3A 20 20 20 20 20 4C |:PHA.....: L|
000003D0: 44 41 20 23 24 33 36 20 3A 53 54 41 20 24 30 31 |DA #$36 :STA $01|
000003E0: 00 FC 0B A3 02 3A 20 20 20 20 20 4A 53 52 20 55 |.....: JSR U|
000003F0: 50 33 20 20 3A 53 54 41 20 24 46 42 00 18 0C A8 |P3 :STA $FB....|
00000400: 02 3A 20 20 20 20 20 4C 44 59 20 23 24 42 38 20 |.: LDY #$B8 |
00000410: 3A 53 54 59 20 24 46 43 00 2B 0C B2 02 3A 20 20 |:STY $FC.+...: |
00000420: 20 20 20 4A 53 52 20 43 4F 50 59 00 48 0C B7 02 | JSR COPY.H...|
00000430: 3A 20 20 20 20 20 4A 53 52 20 55 50 34 20 20 3A |: JSR UP4 :|
00000440: 4C 44 59 20 23 24 42 43 00 5B 0C C1 02 3A 20 20 |LDY #$BC.[...: |
00000450: 20 20 20 4A 4D 50 20 43 4F 50 32 00 61 0C C6 02 | JMP COP2.a...|
00000460: 3B 00 88 0C D0 02 55 50 33 20 4C 44 41 20 23 24 |;.....UP3 LDA #$|
00000470: 30 30 20 3A 4C 44 59 20 23 24 30 34 20 3B 24 30 |00 :LDY #$04 ;$0|
00000480: 34 30 30 20 4E 41 43 48 00 AA 0C D5 02 3A 20 20 |400 NACH.....: |
00000490: 20 53 54 41 20 24 46 44 20 20 3A 53 54 59 20 24 | STA $FD :STY $|
000004A0: 46 45 20 20 3B 24 46 44 AD 45 00 B6 0C DA 02 3A |FE ;$FD.E.....:|
000004B0: 20 20 20 52 54 53 00 BC 0C DE 02 3B 00 E3 0C DF | RTS.....;....|
000004C0: 02 55 50 34 20 4C 44 41 20 23 24 30 30 20 3A 4C |.UP4 LDA #$00 :L|
000004D0: 44 59 20 23 24 44 38 20 3B 24 44 38 30 30 20 4E |DY #$D8 ;$D800 N|
000004E0: 41 43 48 00 05 0D E4 02 3A 20 20 20 53 54 41 20 |ACH.....: STA |
000004F0: 24 46 44 20 20 3A 53 54 59 20 24 46 45 20 20 3B |$FD :STY $FE ;|
00000500: 24 46 44 AD 45 00 11 0D E9 02 3A 20 20 20 52 54 |$FD.E.....: RT|
00000510: 53 00 17 0D ED 02 3B 00 31 0D EE 02 43 4F 50 32 |S.....;.1...COP2|
00000520: 20 53 54 41 20 24 46 42 20 3A 53 54 59 20 24 46 | STA $FB :STY $F|
00000530: 43 00 43 0D F3 02 3A 20 20 20 20 4A 53 52 20 43 |C.C...: JSR C|
00000540: 4F 50 59 00 59 0D FD 02 3A 20 20 20 20 50 4C 41 |OPY.Y...: PLA|
00000550: 20 3A 53 54 41 20 24 30 31 00 7C 0D 02 03 3A 20 | :STA $01.|...: |
00000560: 20 20 20 52 54 53 20 20 20 20 20 20 20 20 20 20 | RTS |
00000570: 20 20 20 20 20 3B 46 45 52 54 49 47 00 82 0D 07 | ;FERTIG....|
00000580: 03 3B 00 AA 0D 84 03 43 4F 50 59 20 4C 44 58 20 |.;.....COPY LDX |
00000590: 23 34 20 3A 4C 44 59 20 23 30 20 20 3B 4B 4F 50 |#4 :LDY #0 ;KOP|
000005A0: 49 45 52 52 4F 55 54 49 4E 45 00 BC 0D 89 03 4E |IERROUTINE.....N|
000005B0: 20 4C 44 41 20 28 24 46 42 29 2C 59 00 CE 0D 8E | LDA ($FB),Y....|
000005C0: 03 3A 20 53 54 41 20 28 24 46 44 29 2C 59 00 D8 |.: STA ($FD),Y..|
000005D0: 0D 93 03 3A 20 49 4E 59 00 E4 0D 98 03 3A 20 42 |...: INY.....: B|
000005E0: 4E 45 20 4E 00 FB 0D 9D 03 3A 20 49 4E 43 20 24 |NE N.....: INC $|
000005F0: 46 43 20 3A 49 4E 43 20 24 46 45 00 05 0E A2 03 |FC :INC $FE.....|
00000600: 3A 20 44 45 58 00 11 0E A7 03 3A 20 42 4E 45 20 |: DEX.....: BNE |
00000610: 4E 00 19 0E AC 03 52 54 53 00 00 00 |N.....RTS... |
....... 9.4096 ;PROFI.ASS.*....OPT
OO.L..... $033C ;STARTADRESSE.R..
.;.D.2.ILLQ . $B248.T.7.KO. . $B7F1.Z.Z
.;...D.JSR KO....N.CPX #1 :BEQ HOLE1...X
.CPX #2 :BEQ HOLE2.H...CPX #3 :BEQ HOLE3
.....CPX #4 :BEQ HOLE4.....JMP ILLQ...H.
;...I.;.................................
..E.J.;DIE GESPEICH.SCREENS WERDEN UEBER
..BEFEHL...828,N (N.1.4)AUFGERUFEN...
K.;.....................................
..HOLE1 LDA $01 :PHA.A...: LDA #$36
:STA $01.....: JSR UP3 :STA $FB...
..: LDY #$A0 :STY $FC.....: JSR
COPY.)...: JSR UP4 :LDY #$A4.<...:
JMP COP2.B.!.;.Z.+.HOLE2 LDA $01 :P
HA.V.0.: LDA #$36 :STA $01...5.:
JSR UP3 :STA $FB...:.: LDY #$A8 :S
TY $FC.A.D.: JSR COPY...I.: JSR
UP4 :LDY #$AC...S.: JMP COP2...X.;.
..B.HOLE3 LDA $01 :PHA.+.G.: LDA #$
36 :STA $01.G.L.: JSR UP3 :STA $FB.
C.Q.: LDY #$B0 :STY $FC.V.{.: JS
R COPY.....: JSR UP4 :LDY #$B4.....
: JMP COP2.....;.D...HOLE4 LDA $01
:PHA.....: LDA #$36 :STA $01.....:
JSR UP3 :STA $FB.....: LDY #$B8
:STY $FC.+...: JSR COPY.H...: JS
R UP4 :LDY #$BC.[.A.: JMP COP2.A.F.
;...P.UP3 LDA #$00 :LDY #$04 ;$0400 NACH
...U.: STA $FD :STY $FE ;$FD.E...Z.:
RTS.....;.....UP4 LDA #$00 :LDY #$D8
;$D800 NACH.....: STA $FD :STY $FE ;
$FD.E.....: RTS.....;.1...COP2 STA $FB
:STY $FC.C...: JSR COPY.Y...: PLA
:STA $01.|...: RTS ;FE
RTIG.....;.....COPY LDX #4 :LDY #0 ;KOP
IERROUTINE.....N LDA ($FB),Y.N...: STA (
$FD),Y.X...: INY.....: BNE N.....: INC $
FC :INC $FE.....: DEX.....: BNE N.....RT
S...
> CLICK IMAGE PREVIEW FOR FULL MODAL