INVOER NUM 2

FILE INFORMATION

FILENAME(S): INVOER NUM 2

FILE TYPE(S): PRG

FILE SIZE: 2.1K

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

APPEARS ON: 1 disk(s)

FILE HASH

7b30ecaf081b4d5d2c85a77a1af46ac6392e2fb89abad7b339276fa4476f5453

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SPEEDY WERK	INVOER NUM 2	PRG	DuncanTwain	15	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 22 08 0A 00 3B 20  49 4E 56 4F 45 52 20 4E  |.."...; INVOER N|
00000010: 55 4D 4D 45 52 49 45 4B  20 4D 45 54 20 50 55 4E  |UMMERIEK MET PUN|
00000020: 54 2C 00 43 08 6E 00 3B  20 46 4F 55 54 20 41 41  |T,.C.n.; FOUT AA|
00000030: 4E 44 55 49 44 49 4E 47  20 45 4E 20 52 45 54 55  |NDUIDING EN RETU|
00000040: 52 4E 2E 00 5F 08 D2 00  CF 52 47 20 24 43 30 30  |RN.._....RG $C00|
00000050: 30 20 3B 20 53 54 41 52  54 20 41 44 52 45 53 00  |0 ; START ADRES.|
00000060: 7F 08 36 01 49 4E 49 54  20 4C 44 41 20 23 24 39  |..6.INIT LDA #$9|
00000070: 33 20 3B 20 4D 41 41 4B  20 53 43 48 45 52 4D 00  |3 ; MAAK SCHERM.|
00000080: 96 08 9A 01 CA 53 52 20  24 46 46 44 32 20 3B 20  |.....SR $FFD2 ; |
00000090: 53 43 48 4F 4F 4E 00 AF  08 FE 01 CC 44 41 20 23  |SCHOON......DA #|
000000A0: 24 30 32 20 3B 20 4D 41  41 4B 20 52 41 4E 44 00  |$02 ; MAAK RAND.|
000000B0: C9 08 62 02 D3 54 41 20  24 44 30 32 30 20 3B 20  |..b..TA $D020 ; |
000000C0: 45 4E 20 53 43 48 45 52  4D 00 DE 08 C6 02 D3 54  |EN SCHERM......T|
000000D0: 41 20 24 44 30 32 31 20  3B 20 52 4F 4F 44 00 FD  |A $D021 ; ROOD..|
000000E0: 08 2A 03 CC 44 41 20 23  24 30 37 20 3B 20 53 45  |.*..DA #$07 ; SE|
000000F0: 54 20 4C 45 54 54 45 52  4B 4C 45 55 52 00 15 09  |T LETTERKLEUR...|
00000100: 8E 03 D3 54 41 20 24 30  32 38 36 20 3B 20 4F 50  |...TA $0286 ; OP|
00000110: 20 47 45 45 4C 00 34 09  F2 03 CC 44 58 20 23 24  | GEEL.4....DX #$|
00000120: 30 41 20 3B 20 53 45 54  20 4B 4F 4C 4F 4D 20 4F  |0A ; SET KOLOM O|
00000130: 50 20 31 30 00 53 09 56  04 CC 44 59 20 23 24 30  |P 10.S.V..DY #$0|
00000140: 41 20 3B 20 53 45 54 20  52 45 47 45 4C 20 4F 50  |A ; SET REGEL OP|
00000150: 20 31 30 00 71 09 BA 04  CA 53 52 20 24 46 46 46  | 10.q....SR $FFF|
00000160: 30 20 3B 20 50 4C 41 41  54 53 20 43 55 52 53 4F  |0 ; PLAATS CURSO|
00000170: 52 00 8C 09 1E 05 CC 44  41 20 23 24 46 30 20 3B  |R......DA #$F0 ;|
00000180: 20 53 45 54 20 53 55 53  54 41 49 4E 00 A6 09 82  | SET SUSTAIN....|
00000190: 05 D3 54 41 20 24 44 34  30 36 20 3B 20 45 4E 20  |..TA $D406 ; EN |
000001A0: 52 45 4C 41 53 45 00 C1  09 E6 05 CC 44 41 20 23  |RELASE......DA #|
000001B0: 24 30 30 20 3B 20 20 53  45 54 20 41 54 54 41 43  |$00 ;  SET ATTAC|
000001C0: 4B 00 DA 09 4A 06 D3 54  41 20 24 44 34 30 35 20  |K...J..TA $D405 |
000001D0: 3B 20 45 4E 20 44 45 43  41 59 00 F3 09 AE 06 CC  |; EN DECAY......|
000001E0: 44 41 20 23 24 31 31 20  3B 20 48 49 47 48 20 42  |DA #$11 ; HIGH B|
000001F0: 59 54 45 00 0E 0A 12 07  D3 54 41 20 24 44 34 30  |YTE......TA $D40|
00000200: 31 20 3B 20 46 52 45 51  55 45 4E 54 49 45 00 26  |1 ; FREQUENTIE.&|
00000210: 0A 76 07 CC 44 41 20 23  24 32 35 20 3B 20 4C 4F  |.v..DA #$25 ; LO|
00000220: 57 20 42 59 54 45 00 41  0A DA 07 D3 54 41 20 24  |W BYTE.A....TA $|
00000230: 44 34 30 30 20 3B 20 46  52 45 51 55 45 4E 54 49  |D400 ; FREQUENTI|
00000240: 45 00 61 0A 3E 08 CC 44  58 20 23 24 46 46 20 3B  |E.a.>..DX #$FF ;|
00000250: 20 5A 45 54 20 54 45 4C  4C 45 52 20 4F 50 20 AB  | ZET TELLER OP .|
00000260: 31 00 84 0A A2 08 43 48  45 43 4B 20 4A 53 52 20  |1.....CHECK JSR |
00000270: 24 46 46 45 34 20 3B 20  43 48 45 43 4B 20 42 55  |$FFE4 ; CHECK BU|
00000280: 46 46 45 52 00 A8 0A 06  09 C2 45 51 20 20 20 20  |FFER......EQ    |
00000290: 43 48 45 43 4B 20 3B 20  4C 45 45 47 20 44 41 4E  |CHECK ; LEEG DAN|
000002A0: 20 4F 50 4E 49 45 55 57  00 BC 0A 6A 09 C3 4D 50  | OPNIEUW...j..MP|
000002B0: 20 23 24 33 41 20 3B 20  B1 39 20 3F 00 D7 0A CE  | #$3A ; .9 ?....|
000002C0: 09 C2 43 53 20 46 4F 55  54 20 3B 20 4A 41 20 44  |..CS FOUT ; JA D|
000002D0: 41 4E 20 46 4F 55 54 00  EB 0A 32 0A C3 4D 50 20  |AN FOUT...2..MP |
000002E0: 23 24 33 30 20 3B 20 B3  30 20 3F 00 0B 0B 96 0A  |#$30 ; .0 ?.....|
000002F0: C2 43 53 20 50 52 49 4E  54 20 3B 20 4E 45 45 20  |.CS PRINT ; NEE |
00000300: 44 41 4E 20 50 52 49 4E  54 45 4E 00 26 0B FA 0A  |DAN PRINTEN.&...|
00000310: 50 55 4E 54 20 43 4D 50  20 23 24 32 45 20 3B 20  |PUNT CMP #$2E ; |
00000320: 50 55 4E 54 20 3F 00 43  0B 5E 0B C2 45 51 20 50  |PUNT ?.C.^..EQ P|
00000330: 52 49 4E 54 20 3B 20 4A  41 20 44 41 4E 20 50 52  |RINT ; JA DAN PR|
00000340: 49 4E 54 00 66 0B C2 0B  52 45 54 55 52 4E 20 43  |INT.f...RETURN C|
00000350: 4D 50 20 23 24 30 44 20  3B 20 52 45 54 55 52 4E  |MP #$0D ; RETURN|
00000360: 20 54 4F 45 54 53 00 82  0B 26 0C C2 4E 45 20 46  | TOETS...&..NE F|
00000370: 4F 55 54 20 3B 20 4E 45  45 20 44 41 4E 20 46 4F  |OUT ; NEE DAN FO|
00000380: 55 54 00 9C 0B 27 0C 45  4E 44 20 52 54 53 20 3B  |UT...'.END RTS ;|
00000390: 20 4A 41 20 44 41 4E 20  53 54 4F 50 00 C3 0B 28  | JA DAN STOP...(|
000003A0: 0C 50 52 49 4E 54 20 4A  53 52 20 24 46 46 44 32  |.PRINT JSR $FFD2|
000003B0: 20 3B 20 43 49 4A 46 45  52 20 44 41 4E 20 50 52  | ; CIJFER DAN PR|
000003C0: 49 4E 54 00 E5 0B 29 0C  CA 4D 50 20 43 48 45 43  |INT...)..MP CHEC|
000003D0: 4B 20 3B 20 54 45 52 55  47 20 4E 41 41 52 20 49  |K ; TERUG NAAR I|
000003E0: 4E 56 4F 45 52 00 03 0C  8A 0C 46 4F 55 54 20 4C  |NVOER.....FOUT L|
000003F0: 44 41 20 23 24 30 46 20  3B 20 56 4F 4C 55 4D 45  |DA #$0F ; VOLUME|
00000400: 20 4F 50 00 1C 0C EE 0C  D3 54 41 20 24 44 34 31  | OP......TA $D41|
00000410: 38 20 3B 20 4D 41 58 49  4D 41 41 4C 00 34 0C 52  |8 ; MAXIMAAL.4.R|
00000420: 0D CC 44 41 20 23 24 31  31 20 3B 20 47 4F 4C 46  |..DA #$11 ; GOLF|
00000430: 56 4F 52 4D 00 4E 0C B6  0D D3 54 41 20 24 44 34  |VORM.N....TA $D4|
00000440: 30 34 20 3B 20 49 4E 53  54 45 4C 4C 45 4E 00 66  |04 ; INSTELLEN.f|
00000450: 0C 1A 0E CC 44 59 20 23  24 34 30 20 3B 20 57 41  |....DY #$40 ; WA|
00000460: 43 48 54 4C 55 53 00 84  0C 7E 0E 57 41 43 48 54  |CHTLUS...~.WACHT|
00000470: 20 4A 53 52 20 24 45 45  42 33 20 3B 20 52 4F 55  | JSR $EEB3 ; ROU|
00000480: 54 49 4E 45 00 9D 0C E2  0E C4 45 59 20 3B 20 56  |TINE......EY ; V|
00000490: 45 52 4C 41 41 47 20 54  45 4C 4C 45 52 00 AB 0C  |ERLAAG TELLER...|
000004A0: 46 0F C2 4E 45 20 57 41  43 48 54 00 C4 0C AA 0F  |F..NE WACHT.....|
000004B0: CC 44 41 20 23 24 30 30  20 3B 20 56 4F 4C 55 4D  |.DA #$00 ; VOLUM|
000004C0: 45 20 4F 50 00 D8 0C 0E  10 D3 54 41 20 24 44 34  |E OP......TA $D4|
000004D0: 31 38 20 3B 20 55 49 54  00 F0 0C 72 10 CC 44 41  |18 ; UIT...r..DA|
000004E0: 20 23 24 31 30 20 3B 20  47 4F 4C 46 56 4F 52 4D  | #$10 ; GOLFVORM|
000004F0: 00 07 0D D6 10 D3 54 41  20 24 44 34 30 34 20 3B  |......TA $D404 ;|
00000500: 20 57 49 53 53 45 4E 00  1E 0D 3A 11 CC 44 58 20  | WISSEN...:..DX |
00000510: 24 30 33 30 44 20 3B 20  43 55 52 53 4F 52 00 34  |$030D ; CURSOR.4|
00000520: 0D 9E 11 D3 54 58 20 24  46 42 20 3B 20 50 4F 53  |....TX $FB ; POS|
00000530: 49 54 49 45 00 42 0D A3  11 CC 44 59 20 24 30 33  |ITIE.B....DY $03|
00000540: 30 45 00 57 0D 02 12 D3  54 59 20 24 46 43 20 3B  |0E.W....TY $FC ;|
00000550: 20 52 45 44 44 45 4E 00  6D 0D 66 12 CC 44 58 20  | REDDEN.m.f..DX |
00000560: 23 24 30 33 20 3B 20 4E  49 45 55 57 45 00 84 0D  |#$03 ; NIEUWE...|
00000570: CA 12 CC 44 59 20 23 24  31 36 20 3B 20 50 4F 53  |...DY #$16 ; POS|
00000580: 49 54 49 45 00 92 0D CF  12 D3 54 58 20 24 30 33  |ITIE......TX $03|
00000590: 30 44 00 A0 0D D4 12 D3  54 59 20 24 30 33 30 45  |0D......TY $030E|
000005A0: 00 BA 0D 2E 13 CA 53 52  20 24 46 46 46 30 20 3B  |......SR $FFF0 ;|
000005B0: 20 49 4E 53 54 45 4C 4C  45 4E 00 D7 0D 92 13 CC  | INSTELLEN......|
000005C0: 44 58 20 23 24 30 30 20  3B 20 54 45 4C 4C 45 52  |DX #$00 ; TELLER|
000005D0: 20 4F 50 20 4E 55 4C 00  F6 0D F6 13 4C 41 41 44  | OP NUL.....LAAD|
000005E0: 20 4C 44 41 20 54 41 42  2C 58 20 3B 20 48 41 41  | LDA TAB,X ; HAA|
000005F0: 4C 20 42 59 54 45 00 18  0E 5A 14 C2 45 51 20 57  |L BYTE...Z..EQ W|
00000600: 41 49 54 20 3B 20 42 59  54 45 20 4E 55 4C 20 44  |AIT ; BYTE NUL D|
00000610: 41 4E 20 57 41 43 48 54  00 3D 0E BE 14 CA 53 52  |AN WACHT.=....SR|
00000620: 20 24 46 46 44 32 20 3B  20 4E 49 45 54 20 4E 55  | $FFD2 ; NIET NU|
00000630: 4C 20 44 41 4E 20 50 52  49 4E 54 45 4E 00 56 0E  |L DAN PRINTEN.V.|
00000640: 22 15 C9 4E 58 20 3B 20  56 45 52 48 4F 4F 47 20  |"..NX ; VERHOOG |
00000650: 54 45 4C 4C 45 52 00 73  0E 86 15 CA 4D 50 20 4C  |TELLER.s....MP L|
00000660: 41 41 44 20 3B 20 56 4F  4C 47 45 4E 44 45 20 42  |AAD ; VOLGENDE B|
00000670: 59 54 45 00 92 0E EA 15  57 41 49 54 20 4C 44 59  |YTE.....WAIT LDY|
00000680: 20 23 24 46 46 20 3B 20  54 45 4C 4C 45 52 20 4D  | #$FF ; TELLER M|
00000690: 41 58 00 B4 0E 4E 16 4C  55 53 20 4A 53 52 20 24  |AX...N.LUS JSR $|
000006A0: 45 45 42 33 20 3B 20 57  41 43 48 54 20 52 4F 55  |EEB3 ; WACHT ROU|
000006B0: 54 49 4E 45 00 CD 0E B2  16 C4 45 59 20 3B 20 56  |TINE......EY ; V|
000006C0: 45 52 4C 41 41 47 20 54  45 4C 4C 45 52 00 EE 0E  |ERLAAG TELLER...|
000006D0: 16 17 C2 4E 45 20 4C 55  53 20 3B 20 4E 49 45 54  |...NE LUS ; NIET|
000006E0: 20 4E 55 4C 3F 57 41 43  48 54 4C 55 53 21 00 FB  | NUL?WACHTLUS!..|
000006F0: 0E 1B 17 CC 44 58 20 23  24 30 33 00 08 0F 20 17  |....DX #$03... .|
00000700: CC 44 59 20 23 24 31 36  00 16 0F 25 17 CA 53 52  |.DY #$16...%..SR|
00000710: 20 24 46 46 46 30 00 30  0F 7A 17 CC 44 58 20 23  | $FFF0.0.z..DX #|
00000720: 24 30 30 20 3B 20 54 45  4C 4C 45 52 20 4E 55 4C  |$00 ; TELLER NUL|
00000730: 00 4F 0F DE 17 57 49 53  20 4C 44 41 20 54 41 42  |.O...WIS LDA TAB|
00000740: 31 2C 58 20 3B 20 48 41  41 4C 20 42 59 54 45 00  |1,X ; HAAL BYTE.|
00000750: 70 0F 42 18 C2 45 51 20  45 49 4E 44 20 3B 20 42  |p.B..EQ EIND ; B|
00000760: 59 54 45 20 4E 55 4C 20  44 41 4E 20 45 49 4E 44  |YTE NUL DAN EIND|
00000770: 00 93 0F A6 18 CA 53 52  20 24 46 46 44 32 20 3B  |......SR $FFD2 ;|
00000780: 20 4E 49 45 54 20 4E 55  4C 20 44 41 4E 20 50 52  | NIET NUL DAN PR|
00000790: 49 4E 54 00 AC 0F 0A 19  C9 4E 58 20 3B 20 56 45  |INT......NX ; VE|
000007A0: 52 48 4F 4F 47 20 54 45  4C 4C 45 52 00 C8 0F 6E  |RHOOG TELLER...n|
000007B0: 19 CA 4D 50 20 57 49 53  20 3B 20 56 4F 4C 47 45  |..MP WIS ; VOLGE|
000007C0: 4E 44 45 20 42 59 54 45  00 E3 0F D2 19 45 49 4E  |NDE BYTE.....EIN|
000007D0: 44 20 4C 44 58 20 24 46  42 20 3B 20 48 45 52 53  |D LDX $FB ; HERS|
000007E0: 54 45 4C 00 F9 0F 36 1A  CC 44 59 20 24 46 43 20  |TEL...6..DY $FC |
000007F0: 3B 20 50 4F 53 49 54 49  45 00 10 10 9A 1A CA 53  |; POSITIE......S|
00000800: 52 20 24 46 46 46 30 20  3B 20 43 55 52 53 55 52  |R $FFF0 ; CURSUR|
00000810: 00 32 10 FE 1A CA 4D 50  20 43 48 45 43 4B 20 3B  |.2....MP CHECK ;|
00000820: 20 54 45 52 55 47 20 4E  41 41 52 20 49 4E 56 4F  | TERUG NAAR INVO|
00000830: 45 52 00 56 10 62 1B 54  41 42 20 44 41 54 20 22  |ER.V.b.TAB DAT "|
00000840: 41 4C 4C 45 45 4E 20 43  49 4A 46 45 52 53 20 21  |ALLEEN CIJFERS !|
00000850: 21 22 2C 30 2C 30 00 7B  10 6C 1B 54 41 42 31 20  |!",0,0.{.l.TAB1 |
00000860: 44 41 54 20 22 20 20 20  20 20 20 20 20 20 20 20  |DAT "           |
00000870: 20 20 20 20 20 20 22 2C  30 2C 30 00 00 00        |      ",0,0...  |

.."...; INVOER NUMMERIEK MET PUNT,.C.N.;
 FOUT AANDUIDING EN RETURN.._.R.ORG $C00
0 ; START ADRES..6.INIT LDA #$93 ; MAAK
 SCHERM.....JSR $FFD2 ; SCHOON.....LDA #
$02 ; MAAK RAND.I.B.STA $D020 ; EN SCHER
M...F.STA $D021 ; ROOD...*.LDA #$07 ; SE
T LETTERKLEUR.....STA $0286 ; OP GEEL.4.
..LDX #$0A ; SET KOLOM OP 10.S.V.LDY #$0
A ; SET REGEL OP 10.Q...JSR $FFF0 ; PLAA
TS CURSOR.....LDA #$F0 ; SET SUSTAIN....
.STA $D406 ; EN RELASE.A...LDA #$00 ;  S
ET ATTACK.Z.J.STA $D405 ; EN DECAY.....L
DA #$11 ; HIGH BYTE.....STA $D401 ; FREQ
UENTIE.&.V.LDA #$25 ; LOW BYTE.A.Z.STA $
D400 ; FREQUENTIE.A.>.LDX #$FF ; ZET TEL
LER OP .1.....CHECK JSR $FFE4 ; CHECK BU
FFER.....BEQ    CHECK ; LEEG DAN OPNIEUW
...J.CMP #$3A ; .9 ?.W.N.BCS FOUT ; JA D
AN FOUT...2.CMP #$30 ; .0 ?.....BCS PRIN
T ; NEE DAN PRINTEN.&...PUNT CMP #$2E ; 
PUNT ?.C.^.BEQ PRINT ; JA DAN PRINT.F.B.
RETURN CMP #$0D ; RETURN TOETS...&.BNE F
OUT ; NEE DAN FOUT...'.END RTS ; JA DAN 
STOP.C.(.PRINT JSR $FFD2 ; CIJFER DAN PR
INT...).JMP CHECK ; TERUG NAAR INVOER...
..FOUT LDA #$0F ; VOLUME OP.....STA $D41
8 ; MAXIMAAL.4.R.LDA #$11 ; GOLFVORM.N..
.STA $D404 ; INSTELLEN.F...LDY #$40 ; WA
CHTLUS...~.WACHT JSR $EEB3 ; ROUTINE....
.DEY ; VERLAAG TELLER...F.BNE WACHT.D...
LDA #$00 ; VOLUME OP.X...STA $D418 ; UIT
...R.LDA #$10 ; GOLFVORM...V.STA $D404 ;
 WISSEN...:.LDX $030D ; CURSOR.4...STX $
FB ; POSITIE.B...LDY $030E.W...STY $FC ;
 REDDEN.M.F.LDX #$03 ; NIEUWE...J.LDY #$
16 ; POSITIE...O.STX $030D. .T.STY $030E
.....JSR $FFF0 ; INSTELLEN.W...LDX #$00 
; TELLER OP NUL.....LAAD LDA TAB,X ; HAA
L BYTE...Z.BEQ WAIT ; BYTE NUL DAN WACHT
.=...JSR $FFD2 ; NIET NUL DAN PRINTEN.V.
".INX ; VERHOOG TELLER.S...JMP LAAD ; VO
LGENDE BYTE.....WAIT LDY #$FF ; TELLER M
AX...N.LUS JSR $EEB3 ; WACHT ROUTINE.M..
.DEY ; VERLAAG TELLER.....BNE LUS ; NIET
 NUL?WACHTLUS!.....LDX #$03... .LDY #$16
...%.JSR $FFF0.0.Z.LDX #$00 ; TELLER NUL
.O...WIS LDA TAB1,X ; HAAL BYTE.P.B.BEQ 
EIND ; BYTE NUL DAN EIND.....JSR $FFD2 ;
 NIET NUL DAN PRINT.....INX ; VERHOOG TE
LLER.H.N.JMP WIS ; VOLGENDE BYTE...R.EIN
D LDX $FB ; HERSTEL...6.LDY $FC ; POSITI
E.....JSR $FFF0 ; CURSUR.2...JMP CHECK ;
 TERUG NAAR INVOER.V.B.TAB DAT "ALLEEN C
IJFERS !!",0,0.{.L.TAB1 DAT "           
      ",0,0...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL