INVOER NUM 1
FILE INFORMATION
FILENAME(S): INVOER NUM 1
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 21:11:00
APPEARS ON: 1 disk(s)
FILE HASH
39e0cb62c83e17da6bd1f7b76dd270e60b2567eaf39b4d4ef63acf65545db831
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SPEEDY WERK | INVOER NUM 1 | PRG | DuncanTwain | 15 | 13 | 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 44 33 20 20 20 3B 20 43 55 52 53 4F 52 00 34 |$D3 ; 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 40 0D A3 11 CC 44 59 20 24 44 36 |ITIE.@....DY $D6| 00000540: 00 55 0D 02 12 D3 54 59 20 24 46 43 20 3B 20 52 |.U....TY $FC ; R| 00000550: 45 44 44 45 4E 00 6B 0D 66 12 CC 44 58 20 23 24 |EDDEN.k.f..DX #$| 00000560: 30 33 20 3B 20 4E 49 45 55 57 45 00 82 0D CA 12 |03 ; NIEUWE.....| 00000570: CC 44 59 20 23 24 31 36 20 3B 20 50 4F 53 49 54 |.DY #$16 ; POSIT| 00000580: 49 45 00 8E 0D CF 12 D3 54 58 20 24 44 33 00 9A |IE......TX $D3..| 00000590: 0D D4 12 D3 54 59 20 24 44 36 00 B4 0D 2E 13 CA |....TY $D6......| 000005A0: 53 52 20 24 45 35 31 30 20 3B 20 49 4E 53 54 45 |SR $E510 ; INSTE| 000005B0: 4C 4C 45 4E 00 D1 0D 92 13 CC 44 58 20 23 24 30 |LLEN......DX #$0| 000005C0: 30 20 3B 20 54 45 4C 4C 45 52 20 4F 50 20 4E 55 |0 ; TELLER OP NU| 000005D0: 4C 00 F0 0D F6 13 4C 41 41 44 20 4C 44 41 20 54 |L.....LAAD LDA T| 000005E0: 41 42 2C 58 20 3B 20 48 41 41 4C 20 42 59 54 45 |AB,X ; HAAL BYTE| 000005F0: 00 12 0E 5A 14 C2 45 51 20 57 41 49 54 20 3B 20 |...Z..EQ WAIT ; | 00000600: 42 59 54 45 20 4E 55 4C 20 44 41 4E 20 57 41 43 |BYTE NUL DAN WAC| 00000610: 48 54 00 37 0E BE 14 CA 53 52 20 24 46 46 44 32 |HT.7....SR $FFD2| 00000620: 20 3B 20 4E 49 45 54 20 4E 55 4C 20 44 41 4E 20 | ; NIET NUL DAN | 00000630: 50 52 49 4E 54 45 4E 00 50 0E 22 15 C9 4E 58 20 |PRINTEN.P."..NX | 00000640: 3B 20 56 45 52 48 4F 4F 47 20 54 45 4C 4C 45 52 |; VERHOOG TELLER| 00000650: 00 6D 0E 86 15 CA 4D 50 20 4C 41 41 44 20 3B 20 |.m....MP LAAD ; | 00000660: 56 4F 4C 47 45 4E 44 45 20 42 59 54 45 00 8C 0E |VOLGENDE BYTE...| 00000670: EA 15 57 41 49 54 20 4C 44 59 20 23 24 46 30 20 |..WAIT LDY #$F0 | 00000680: 3B 20 54 45 4C 4C 45 52 20 4D 41 58 00 AE 0E 4E |; TELLER MAX...N| 00000690: 16 4C 55 53 20 4A 53 52 20 24 45 45 42 33 20 3B |.LUS JSR $EEB3 ;| 000006A0: 20 57 41 43 48 54 20 52 4F 55 54 49 4E 45 00 C7 | WACHT ROUTINE..| 000006B0: 0E B2 16 C4 45 59 20 3B 20 56 45 52 4C 41 41 47 |....EY ; VERLAAG| 000006C0: 20 54 45 4C 4C 45 52 00 E8 0E 16 17 C2 4E 45 20 | TELLER......NE | 000006D0: 4C 55 53 20 3B 20 4E 49 45 54 20 4E 55 4C 3F 57 |LUS ; NIET NUL?W| 000006E0: 41 43 48 54 4C 55 53 21 00 F5 0E 1B 17 CC 44 58 |ACHTLUS!......DX| 000006F0: 20 23 24 30 33 00 02 0F 20 17 CC 44 59 20 23 24 | #$03... ..DY #$| 00000700: 31 36 00 0E 0F 22 17 D3 54 58 20 24 44 33 00 1A |16..."..TX $D3..| 00000710: 0F 23 17 D3 54 59 20 24 44 36 00 28 0F 25 17 CA |.#..TY $D6.(.%..| 00000720: 53 52 20 24 45 35 31 30 00 42 0F 7A 17 CC 44 58 |SR $E510.B.z..DX| 00000730: 20 23 24 30 30 20 3B 20 54 45 4C 4C 45 52 20 4E | #$00 ; TELLER N| 00000740: 55 4C 00 61 0F DE 17 57 49 53 20 4C 44 41 20 54 |UL.a...WIS LDA T| 00000750: 41 42 31 2C 58 20 3B 20 48 41 41 4C 20 42 59 54 |AB1,X ; HAAL BYT| 00000760: 45 00 82 0F 42 18 C2 45 51 20 45 49 4E 44 20 3B |E...B..EQ EIND ;| 00000770: 20 42 59 54 45 20 4E 55 4C 20 44 41 4E 20 45 49 | BYTE NUL DAN EI| 00000780: 4E 44 00 A5 0F A6 18 CA 53 52 20 24 46 46 44 32 |ND......SR $FFD2| 00000790: 20 3B 20 4E 49 45 54 20 4E 55 4C 20 44 41 4E 20 | ; NIET NUL DAN | 000007A0: 50 52 49 4E 54 00 BE 0F 0A 19 C9 4E 58 20 3B 20 |PRINT......NX ; | 000007B0: 56 45 52 48 4F 4F 47 20 54 45 4C 4C 45 52 00 DA |VERHOOG TELLER..| 000007C0: 0F 6E 19 CA 4D 50 20 57 49 53 20 3B 20 56 4F 4C |.n..MP WIS ; VOL| 000007D0: 47 45 4E 44 45 20 42 59 54 45 00 F5 0F D2 19 45 |GENDE BYTE.....E| 000007E0: 49 4E 44 20 4C 44 58 20 24 46 42 20 3B 20 48 45 |IND LDX $FB ; HE| 000007F0: 52 53 54 45 4C 00 0B 10 36 1A CC 44 59 20 24 46 |RSTEL...6..DY $F| 00000800: 43 20 3B 20 50 4F 53 49 54 49 45 00 17 10 3B 1A |C ; POSITIE...;.| 00000810: D3 54 58 20 24 44 33 00 23 10 40 1A D3 54 59 20 |.TX $D3.#.@..TY | 00000820: 24 44 36 00 3A 10 9A 1A CA 53 52 20 24 45 35 31 |$D6.:....SR $E51| 00000830: 30 20 3B 20 43 55 52 53 55 52 00 5C 10 FE 1A CA |0 ; CURSUR.\....| 00000840: 4D 50 20 43 48 45 43 4B 20 3B 20 54 45 52 55 47 |MP CHECK ; TERUG| 00000850: 20 4E 41 41 52 20 49 4E 56 4F 45 52 00 80 10 62 | NAAR INVOER...b| 00000860: 1B 54 41 42 20 44 41 54 20 22 41 4C 4C 45 45 4E |.TAB DAT "ALLEEN| 00000870: 20 43 49 4A 46 45 52 53 20 21 21 22 2C 30 2C 30 | CIJFERS !!",0,0| 00000880: 00 A5 10 6C 1B 54 41 42 31 20 44 41 54 20 22 20 |...l.TAB1 DAT " | 00000890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000008A0: 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 $D3 ; CURSOR.4...STX $
FB ; POSITIE.@...LDY $D6.U...STY $FC ; R
EDDEN.K.F.LDX #$03 ; NIEUWE...J.LDY #$16
; POSITIE...O.STX $D3...T.STY $D6.....J
SR $E510 ; INSTELLEN.Q...LDX #$00 ; TELL
ER OP NUL.....LAAD LDA TAB,X ; HAAL BYTE
...Z.BEQ WAIT ; BYTE NUL DAN WACHT.7...J
SR $FFD2 ; NIET NUL DAN PRINTEN.P.".INX
; VERHOOG TELLER.M...JMP LAAD ; VOLGENDE
BYTE.....WAIT LDY #$F0 ; TELLER MAX...N
.LUS JSR $EEB3 ; WACHT ROUTINE.G...DEY ;
VERLAAG TELLER.....BNE LUS ; NIET NUL?W
ACHTLUS!.....LDX #$03... .LDY #$16...".S
TX $D3...#.STY $D6.(.%.JSR $E510.B.Z.LDX
#$00 ; TELLER NUL.A...WIS LDA TAB1,X ;
HAAL BYTE...B.BEQ EIND ; BYTE NUL DAN EI
ND.....JSR $FFD2 ; NIET NUL DAN PRINT...
..INX ; VERHOOG TELLER.Z.N.JMP WIS ; VOL
GENDE BYTE...R.EIND LDX $FB ; HERSTEL...
6.LDY $FC ; POSITIE...;.STX $D3.#.@.STY
$D6.:...JSR $E510 ; CURSUR.\...JMP CHECK
; TERUG NAAR INVOER...B.TAB DAT "ALLEEN
CIJFERS !!",0,0...L.TAB1 DAT "
",0,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL