LISTNEW.SRC
FILE INFORMATION
FILENAME(S): LISTNEW.SRC
FILE TYPE(S): PRG
FILE SIZE: 619b
FIRST SEEN: 2025-11-30 21:23:14
APPEARS ON: 1 disk(s)
FILE HASH
4d88b615230b6c4f9fb191147b44910cd0df40c3a6d4d78e9fb9703904b67086
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 1 1 | LISTNEW.SRC | PRG | DuncanTwain | 10 | 19 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 5A 00 9E 20 38 AC 34 30 39 36 00 1C |....Z.. 8.4096..|
00000010: 08 64 00 2E 4F 50 54 20 50 2C 4F 4F 00 22 08 6E |.d..OPT P,OO.".n|
00000020: 00 3B 00 44 08 78 00 3B 20 9B AB 52 4F 55 54 49 |.;.D.x.; ..ROUTI|
00000030: 4E 45 20 46 55 45 52 20 4E 45 55 45 20 42 45 46 |NE FUER NEUE BEF|
00000040: 45 48 4C 45 00 4A 08 82 00 3B 00 5B 08 8C 00 51 |EHLE.J...;.[...Q|
00000050: 55 4F 54 46 4C 47 20 B2 20 31 35 00 69 08 96 00 |UOTFLG . 15.i...|
00000060: 50 4E 54 20 B2 20 24 34 39 00 8C 08 A0 00 54 41 |PNT . $49.....TA|
00000070: 42 4C 45 20 B2 20 24 41 30 39 45 20 3B 20 42 45 |BLE . $A09E ; BE|
00000080: 46 45 48 4C 53 54 41 42 45 4C 4C 45 00 A0 08 AA |FEHLSTABELLE....|
00000090: 00 43 48 41 52 4F 55 54 20 B2 20 24 41 42 34 37 |.CHAROUT . $AB47|
000000A0: 00 A6 08 B4 00 3B 00 C0 08 C8 00 42 50 4C 20 4F |.....;.....BPL O|
000000B0: 55 54 20 3B 20 53 4F 20 41 55 53 47 45 42 45 4E |UT ; SO AUSGEBEN|
000000C0: 00 D0 08 D2 00 42 49 54 20 51 55 4F 54 46 4C 47 |.....BIT QUOTFLG|
000000D0: 00 DC 08 DC 00 42 4D 49 20 4F 55 54 00 E9 08 E6 |.....BMI OUT....|
000000E0: 00 43 4D 50 20 23 24 46 46 00 F5 08 F0 00 42 45 |.CMP #$FF.....BE|
000000F0: 51 20 4F 55 54 00 02 09 FA 00 43 4D 50 20 23 24 |Q OUT.....CMP #$|
00000100: 43 43 00 0D 09 04 01 42 43 53 20 A2 9B 00 13 09 |CC.....BCS .....|
00000110: 0E 01 3B 00 21 09 18 01 4A 4D 50 20 24 41 37 32 |..;.!...JMP $A72|
00000120: 34 00 33 09 22 01 4F 55 54 20 4A 4D 50 20 24 41 |4.3.".OUT JMP $A|
00000130: 36 46 33 00 39 09 2C 01 3B 00 44 09 36 01 A2 9B |6F3.9.,.;.D.6...|
00000140: 20 53 45 43 00 51 09 40 01 53 42 43 20 23 24 43 | SEC.Q.@.SBC #$C|
00000150: 42 00 59 09 4A 01 54 41 58 00 65 09 54 01 53 54 |B.Y.J.TAX.e.T.ST|
00000160: 59 20 50 4E 54 00 71 09 5E 01 4C 44 59 20 23 AB |Y PNT.q.^.LDY #.|
00000170: 31 00 7B 09 68 01 82 20 44 45 58 00 89 09 72 01 |1.{.h.. DEX...r.|
00000180: 42 45 51 20 46 4F 55 4E 44 00 96 09 7C 01 4C 4F |BEQ FOUND...|.LO|
00000190: 4F 50 20 49 4E 59 00 A5 09 86 01 4C 44 41 20 A2 |OP INY.....LDA .|
000001A0: 54 41 42 2C 59 00 B2 09 90 01 42 50 4C 20 4C 4F |TAB,Y.....BPL LO|
000001B0: 4F 50 00 BC 09 9A 01 42 4D 49 20 82 00 C2 09 A4 |OP.....BMI .....|
000001C0: 01 3B 00 D0 09 AE 01 46 4F 55 4E 44 20 49 4E 59 |.;.....FOUND INY|
000001D0: 00 DF 09 B8 01 4C 44 41 20 A2 54 41 42 2C 59 00 |.....LDA .TAB,Y.|
000001E0: EC 09 C2 01 42 4D 49 20 4F 4C 44 80 00 FC 09 CC |....BMI OLD.....|
000001F0: 01 4A 53 52 20 43 48 41 52 4F 55 54 00 0A 0A D6 |.JSR CHAROUT....|
00000200: 01 42 4E 45 20 46 4F 55 4E 44 00 10 0A E0 01 3B |.BNE FOUND.....;|
00000210: 00 23 0A EA 01 4F 4C 44 80 20 4A 4D 50 20 24 41 |.#...OLD. JMP $A|
00000220: 36 45 46 00 29 0A F4 01 3B 00 3E 0A FE 01 A2 54 |6EF.)...;.>....T|
00000230: 41 42 20 2E C6 20 22 52 45 50 45 41 D4 22 00 4D |AB .. "REPEA.".M|
00000240: 0A 08 02 2E C6 20 22 55 4E 54 49 CC 22 00 5D 0A |..... "UNTI.".].|
00000250: 12 02 2E C6 20 22 42 45 46 45 48 CC 22 00 68 0A |.... "BEFEH.".h.|
00000260: 1C 02 2E 42 59 54 20 30 00 00 00 |...BYT 0... |
....Z.. 8.4096...D..OPT P,OO.".N.;.D.X.;
..ROUTINE FUER NEUE BEFEHLE.J...;.[...Q
UOTFLG . 15.I...PNT . $49... .TABLE . $A
09E ; BEFEHLSTABELLE. ...CHAROUT . $AB47
.....;...H.BPL OUT ; SO AUSGEBEN.P.R.BIT
QUOTFLG.....BMI OUT.....CMP #$FF.....BE
Q OUT.....CMP #$CC.....BCS .......;.!...
JMP $A724.3.".OUT JMP $A6F3.9.,.;.D.6...
SEC.Q.@.SBC #$CB.Y.J.TAX.E.T.STY PNT.Q.
^.LDY #.1.{.H.. DEX...R.BEQ FOUND...|.LO
OP INY.....LDA .TAB,Y.....BPL LOOP.....B
MI ..B...;.P...FOUND INY.....LDA .TAB,Y.
..B.BMI OLD....L.JSR CHAROUT...V.BNE FOU
ND.....;.#...OLD. JMP $A6EF.)...;.>....T
AB .F "REPEAT".M....F "UNTIL".]....F "BE
FEHL".H....BYT 0...
> CLICK IMAGE PREVIEW FOR FULL MODAL