LST FUNKTIE
FILE INFORMATION
FILENAME(S): LST FUNKTIE
FILE TYPE(S): PRG
FILE SIZE: 807b
FIRST SEEN: 2025-11-30 21:11:00
APPEARS ON: 1 disk(s)
FILE HASH
d88658652c88367ad72fa565b1a52f1252e3acb74fad59286d9cc42d3a2b0f1f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEEDY WERK | LST FUNKTIE | PRG | DuncanTwain | 15 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0F 08 0A 00 CF 52 47 20 24 43 30 30 30 00 |.......RG $C000.| 00000010: 24 08 14 00 4B 45 59 56 45 43 20 44 45 46 20 24 |$...KEYVEC DEF $| 00000020: 30 32 38 46 00 37 08 1E 00 4B 45 59 50 4E 54 20 |028F.7...KEYPNT | 00000030: 44 45 46 20 24 46 35 00 4C 08 28 00 42 55 46 46 |DEF $F5.L.(.BUFF| 00000040: 45 52 20 44 45 46 20 24 30 32 37 37 00 5F 08 32 |ER DEF $0277._.2| 00000050: 00 4E 4D 42 4B 45 59 20 44 45 46 20 24 43 36 00 |.NMBKEY DEF $C6.| 00000060: 74 08 3C 00 53 48 48 49 46 54 20 44 45 46 20 24 |t.<.SHHIFT DEF $| 00000070: 30 32 38 44 00 86 08 46 00 4B 45 59 4E 4F 20 44 |028D...F.KEYNO D| 00000080: 45 46 20 24 43 42 00 99 08 50 00 4C 53 54 4B 45 |EF $CB...P.LSTKE| 00000090: 59 20 44 45 46 20 24 43 35 00 AA 08 5A 00 54 45 |Y DEF $C5...Z.TE| 000000A0: 4D 50 20 44 45 46 20 24 43 35 00 BF 08 64 00 53 |MP DEF $C5...d.S| 000000B0: 45 54 46 4C 47 20 44 45 46 20 24 45 42 32 36 00 |ETFLG DEF $EB26.| 000000C0: D4 08 6E 00 4F 4C 44 4B 45 59 20 44 45 46 20 24 |..n.OLDKEY DEF $| 000000D0: 45 42 34 38 00 EE 08 78 00 3B 20 53 54 41 52 54 |EB48...x.; START| 000000E0: 20 49 4E 49 54 2E 20 52 4F 55 54 49 4E 45 00 04 | INIT. ROUTINE..| 000000F0: 09 82 00 49 4E 49 54 20 4C 44 41 20 23 B3 46 55 |...INIT LDA #.FU| 00000100: 4E 4B 54 49 00 13 09 8C 00 D3 54 41 20 4B 45 59 |NKTI......TA KEY| 00000110: 56 45 43 00 24 09 96 00 CC 44 41 20 23 B1 46 55 |VEC.$....DA #.FU| 00000120: 4E 4B 54 49 00 35 09 A0 00 D3 54 41 20 4B 45 59 |NKTI.5....TA KEY| 00000130: 56 45 43 AA 31 00 3D 09 AA 00 D2 54 53 00 5D 09 |VEC.1.=....TS.].| 00000140: B4 00 3B 20 48 49 45 52 20 42 45 47 49 4E 54 20 |..; HIER BEGINT | 00000150: 4B 45 59 20 48 45 52 4B 45 4E 49 4E 47 00 72 09 |KEY HERKENING.r.| 00000160: BE 00 46 55 4E 4B 54 49 20 4C 44 59 20 4B 45 59 |..FUNKTI LDY KEY| 00000170: 4E 4F 00 81 09 C8 00 C3 50 59 20 4C 53 54 4B 45 |NO......PY LSTKE| 00000180: 59 00 90 09 D2 00 C2 45 51 20 4E 4F 46 55 4E 4B |Y......EQ NOFUNK| 00000190: 00 A3 09 DC 00 CC 44 41 20 28 4B 45 59 50 4E 54 |......DA (KEYPNT| 000001A0: 29 2C 59 00 B0 09 E6 00 C3 4D 50 20 23 24 38 35 |),Y......MP #$85| 000001B0: 00 BE 09 F0 00 C2 45 51 20 50 52 49 4E 54 00 D4 |......EQ PRINT..| 000001C0: 09 FA 00 4E 4F 46 55 4E 4B 20 4A 4D 50 20 4F 4C |...NOFUNK JMP OL| 000001D0: 44 4B 45 59 00 F6 09 04 01 3B 20 48 49 45 52 20 |DKEY.....; HIER | 000001E0: 53 54 41 41 54 20 44 45 20 50 52 49 4E 54 20 52 |STAAT DE PRINT R| 000001F0: 4F 55 54 49 4E 45 00 09 0A 0E 01 50 52 49 4E 54 |OUTINE.....PRINT| 00000200: 20 53 54 41 20 54 45 4D 50 00 16 0A 18 01 CC 44 | STA TEMP......D| 00000210: 58 20 23 24 30 32 00 24 0A 22 01 D3 54 58 20 24 |X #$02.$."..TX $| 00000220: 44 30 32 30 00 32 0A 2C 01 D3 54 58 20 24 44 30 |D020.2.,..TX $D0| 00000230: 32 31 00 3F 0A 36 01 CC 44 58 20 23 24 30 37 00 |21.?.6..DX #$07.| 00000240: 4D 0A 40 01 D3 54 58 20 24 30 32 38 36 00 5A 0A |M.@..TX $0286.Z.| 00000250: 4A 01 CC 44 58 20 23 24 30 30 00 6C 0A 54 01 4C |J..DX #$00.l.T.L| 00000260: 55 53 20 4C 44 41 20 54 41 42 2C 58 00 79 0A 5E |US LDA TAB,X.y.^| 00000270: 01 C2 45 51 20 45 49 4E 44 00 87 0A 68 01 CA 53 |..EQ EIND...h..S| 00000280: 52 20 24 46 46 44 32 00 8F 0A 72 01 C9 4E 58 00 |R $FFD2...r..NX.| 00000290: 9B 0A 7C 01 CA 4D 50 20 4C 55 53 00 AE 0A 86 01 |..|..MP LUS.....| 000002A0: 45 49 4E 44 20 4C 44 41 20 4B 45 59 4E 4F 00 BB |EIND LDA KEYNO..| 000002B0: 0A 88 01 C3 4D 50 20 23 24 32 30 00 C7 0A 8A 01 |....MP #$20.....| 000002C0: C2 4E 45 20 45 4E 44 00 D4 0A 8C 01 CA 4D 50 20 |.NE END......MP | 000002D0: 45 49 4E 44 00 E5 0A 8E 01 45 4E 44 20 4C 44 58 |EIND.....END LDX| 000002E0: 20 23 24 46 46 00 F4 0A 90 01 CA 4D 50 20 53 45 | #$FF......MP SE| 000002F0: 54 46 4C 47 00 FC 0A 9A 01 C2 52 4B 00 24 0B A4 |TFLG......RK.$..| 00000300: 01 54 41 42 20 44 41 54 20 31 34 37 2C 22 20 44 |.TAB DAT 147," D| 00000310: 49 54 20 49 53 20 45 45 4E 20 54 45 53 54 22 2C |IT IS EEN TEST",| 00000320: 31 33 2C 30 00 00 00 |13,0... |
......ORG $C000.$...KEYVEC DEF $028F.7.. .KEYPNT DEF $F5.L.(.BUFFER DEF $0277._.2 .NMBKEY DEF $C6.T.<.SHHIFT DEF $028D...F .KEYNO DEF $CB...P.LSTKEY DEF $C5...Z.TE MP DEF $C5...D.SETFLG DEF $EB26.T.N.OLDK EY DEF $EB48...X.; START INIT. ROUTINE.. ...INIT LDA #.FUNKTI.....STA KEYVEC.$... LDA #.FUNKTI.5. .STA KEYVEC.1.=...RTS.]. ..; HIER BEGINT KEY HERKENING.R...FUNKTI LDY KEYNO...H.CPY LSTKEY...R.BEQ NOFUNK .....LDA (KEYPNT),Y.....CMP #$85.....BEQ PRINT.T...NOFUNK JMP OLDKEY.....; HIER STAAT DE PRINT ROUTINE.....PRINT STA TEM P.....LDX #$02.$.".STX $D020.2.,.STX $D0 21.?.6.LDX #$07.M.@.STX $0286.Z.J.LDX #$ 00.L.T.LUS LDA TAB,X.Y.^.BEQ EIND...H.JS R $FFD2...R.INX...|.JMP LUS.....EIND LDA KEYNO.....CMP #$20.G...BNE END.T...JMP EIND.....END LDX #$FF.....JMP SETFLG.... .BRK.$...TAB DAT 147," DIT IS EEN TEST", 13,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL