NIEUW TOETS

FILE INFORMATION

FILENAME(S): NIEUW TOETS

FILE TYPE(S): PRG

FILE SIZE: 884b

FIRST SEEN: 2025-11-30 21:11:00

APPEARS ON: 1 disk(s)

FILE HASH

0f9ac3646abf0fc2d3437c2ca17b46e137e4fda968f393d953cb7b78437c428f

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SPEEDY WERK	NIEUW TOETS	PRG	DuncanTwain	20	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 32 08 0A 00 3B 20  55 49 54 4C 45 5A 45 4E  |..2...; UITLEZEN|
00000010: 20 54 4F 45 54 53 45 4E  42 4F 52 44 20 44 2E 4D  | TOETSENBORD D.M|
00000020: 2E 56 2E 20 4E 49 45 55  57 20 49 4E 54 45 52 55  |.V. NIEUW INTERU|
00000030: 50 54 00 51 08 14 00 3B  20 53 45 54 20 45 45 52  |PT.Q...; SET EER|
00000040: 53 54 20 4E 49 45 55 57  20 49 4E 54 45 52 55 50  |ST NIEUW INTERUP|
00000050: 54 00 76 08 1E 00 CF 52  47 20 24 43 30 30 30 20  |T.v....RG $C000 |
00000060: 3B 20 42 45 47 49 4E 20  41 44 52 45 53 20 41 53  |; BEGIN ADRES AS|
00000070: 53 45 4D 42 4C 45 00 94  08 28 00 D3 45 49 20 3B  |SEMBLE...(..EI ;|
00000080: 20 56 45 52 48 49 4E 44  45 52 20 49 4E 54 45 52  | VERHINDER INTER|
00000090: 52 55 50 54 00 C0 08 32  00 CC 44 41 20 23 B3 4E  |RUPT...2..DA #.N|
000000A0: 57 49 20 3B 20 4C 41 41  44 20 4C 4F 57 42 59 54  |WI ; LAAD LOWBYT|
000000B0: 20 4E 49 45 55 57 20 49  4E 54 45 52 52 55 50 54  | NIEUW INTERRUPT|
000000C0: 00 E9 08 3C 00 D3 54 41  20 24 30 33 31 34 20 3B  |...<..TA $0314 ;|
000000D0: 20 53 4C 41 20 4F 50 20  49 4E 54 45 52 52 55 50  | SLA OP INTERRUP|
000000E0: 54 20 50 4F 49 4E 54 45  52 00 16 09 46 00 CC 44  |T POINTER...F..D|
000000F0: 41 20 23 B1 4E 57 49 20  3B 20 4C 41 41 44 20 48  |A #.NWI ; LAAD H|
00000100: 49 47 48 42 59 54 20 4E  49 45 55 57 20 49 4E 54  |IGHBYT NIEUW INT|
00000110: 45 52 52 55 50 54 00 41  09 50 00 D3 54 41 20 24  |ERRUPT.A.P..TA $|
00000120: 30 33 31 35 20 3B 20 53  45 54 20 49 4E 54 45 52  |0315 ; SET INTER|
00000130: 52 55 50 54 20 48 49 47  48 20 50 4F 49 4E 54 45  |RUPT HIGH POINTE|
00000140: 52 00 5F 09 5A 00 C3 4C  49 20 3B 20 47 45 45 46  |R._.Z..LI ; GEEF|
00000150: 20 49 4E 54 45 52 52 55  50 54 20 56 52 49 4A 00  | INTERRUPT VRIJ.|
00000160: 7A 09 64 00 D2 54 53 20  3B 20 54 45 52 55 47 20  |z.d..TS ; TERUG |
00000170: 4E 41 41 52 20 42 41 53  49 43 00 A1 09 6E 00 3B  |NAAR BASIC...n.;|
00000180: 20 48 49 45 52 20 42 45  47 49 4E 54 20 48 45 54  | HIER BEGINT HET|
00000190: 20 4E 49 45 55 57 45 20  49 4E 54 45 52 52 55 50  | NIEUWE INTERRUP|
000001A0: 54 00 C0 09 78 00 4E 57  49 20 4C 44 41 20 24 43  |T...x.NWI LDA $C|
000001B0: 36 20 3B 20 54 4F 45 54  53 45 4E 20 42 4F 52 44  |6 ; TOETSEN BORD|
000001C0: 00 D9 09 82 00 C2 4E 45  20 54 45 53 54 20 3B 20  |......NE TEST ; |
000001D0: 4E 49 45 54 20 4C 45 45  47 00 FA 09 8C 00 54 45  |NIET LEEG.....TE|
000001E0: 52 55 47 20 4A 4D 50 20  24 45 41 33 31 20 3B 20  |RUG JMP $EA31 ; |
000001F0: 4F 4C 44 20 56 45 43 54  4F 52 00 19 0A 96 00 54  |OLD VECTOR.....T|
00000200: 45 53 54 20 4C 44 41 20  24 43 35 20 3B 20 57 45  |EST LDA $C5 ; WE|
00000210: 4C 4B 45 20 54 4F 45 54  53 00 2C 0A A0 00 C3 4D  |LKE TOETS.,....M|
00000220: 50 20 23 31 33 33 20 3B  20 46 31 3F 00 4F 0A AA  |P #133 ; F1?.O..|
00000230: 00 C2 4E 45 20 54 45 52  55 47 20 3B 20 4E 45 45  |..NE TERUG ; NEE|
00000240: 20 44 41 4E 20 4F 4C 44  20 56 45 43 54 4F 52 00  | DAN OLD VECTOR.|
00000250: 70 0A B4 00 CC 44 58 20  23 24 30 30 20 3B 20 53  |p....DX #$00 ; S|
00000260: 45 54 20 54 45 4C 4C 45  52 20 4F 50 20 4E 55 4C  |ET TELLER OP NUL|
00000270: 00 90 0A BE 00 50 52 49  4E 54 20 4C 44 41 20 54  |.....PRINT LDA T|
00000280: 45 58 54 2C 58 20 3B 20  48 41 41 4C 20 42 59 54  |EXT,X ; HAAL BYT|
00000290: 00 AC 0A C8 00 C2 45 51  20 45 49 4E 44 20 3B 20  |......EQ EIND ; |
000002A0: 4E 55 4C 20 44 41 4E 20  53 54 4F 50 00 C2 0A D2  |NUL DAN STOP....|
000002B0: 00 CA 53 52 20 24 46 46  44 32 20 3B 20 50 52 49  |..SR $FFD2 ; PRI|
000002C0: 4E 54 00 DB 0A DC 00 C9  4E 58 20 3B 20 56 45 52  |NT......NX ; VER|
000002D0: 48 4F 4F 47 20 54 45 4C  4C 45 52 00 FD 0A E6 00  |HOOG TELLER.....|
000002E0: CA 4D 50 20 50 52 49 4E  54 20 3B 20 42 59 54 53  |.MP PRINT ; BYTS|
000002F0: 20 4F 56 45 52 20 44 41  4E 20 4C 55 53 00 0F 0B  | OVER DAN LUS...|
00000300: F0 00 45 49 4E 44 20 4C  44 41 20 23 24 30 30 00  |..EIND LDA #$00.|
00000310: 2E 0B FA 00 D3 54 41 20  24 43 36 20 3B 20 4C 45  |.....TA $C6 ; LE|
00000320: 45 47 20 54 4F 45 54 53  45 4E 42 4F 52 44 00 49  |EG TOETSENBORD.I|
00000330: 0B 04 01 CA 4D 50 20 24  45 41 33 31 20 3B 20 4F  |....MP $EA31 ; O|
00000340: 4C 44 20 56 45 43 54 4F  52 00 71 0B 0E 01 54 45  |LD VECTOR.q...TE|
00000350: 58 54 20 44 41 54 20 24  39 33 2C 22 44 49 54 20  |XT DAT $93,"DIT |
00000360: 49 53 20 45 45 4E 20 54  45 53 54 2E 22 2C 30 2C  |IS EEN TEST.",0,|
00000370: 30 00 00 00                                       |0...            |

..2...; UITLEZEN TOETSENBORD D.M.V. NIEU
W INTERUPT.Q...; SET EERST NIEUW INTERUP
T.V...ORG $C000 ; BEGIN ADRES ASSEMBLE..
.(.SEI ; VERHINDER INTERRUPT...2.LDA #.N
WI ; LAAD LOWBYT NIEUW INTERRUPT...<.STA
 $0314 ; SLA OP INTERRUPT POINTER...F.LD
A #.NWI ; LAAD HIGHBYT NIEUW INTERRUPT.A
.P.STA $0315 ; SET INTERRUPT HIGH POINTE
R._.Z.CLI ; GEEF INTERRUPT VRIJ.Z.D.RTS 
; TERUG NAAR BASIC...N.; HIER BEGINT HET
 NIEUWE INTERRUPT...X.NWI LDA $C6 ; TOET
SEN BORD.Y...BNE TEST ; NIET LEEG.....TE
RUG JMP $EA31 ; OLD VECTOR.....TEST LDA 
$C5 ; WELKE TOETS.,. .CMP #133 ; F1?.O..
.BNE TERUG ; NEE DAN OLD VECTOR.P...LDX 
#$00 ; SET TELLER OP NUL.....PRINT LDA T
EXT,X ; HAAL BYT...H.BEQ EIND ; NUL DAN 
STOP.B.R.JSR $FFD2 ; PRINT.....INX ; VER
HOOG TELLER.....JMP PRINT ; BYTS OVER DA
N LUS.....EIND LDA #$00.....STA $C6 ; LE
EG TOETSENBORD.I...JMP $EA31 ; OLD VECTO
R.Q...TEXT DAT $93,"DIT IS EEN TEST.",0,
0...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL