REPEAT.SRC

FILE INFORMATION

FILENAME(S): REPEAT.SRC

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-11-30 21:23:14

APPEARS ON: 1 disk(s)

FILE HASH

8457e0e80b0d5acd09d43c88ed05b63dc2e9c687e16e8b92db381d12dbb9e747

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C64 HULP 1 1	REPEAT.SRC	PRG	DuncanTwain	11	12	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 41 08 78 00 3B  20 52 45 50 45 41 54 20  |.;.A.x.; REPEAT |
00000030: AB 20 55 4E 54 49 4C 20  AB 20 53 43 48 4C 45 8B  |. UNTIL . SCHLE.|
00000040: 45 00 47 08 82 00 3B 00  73 08 8C 00 42 45 46 45  |E.G...;.s...BEFE|
00000050: 48 4C 20 B2 20 24 33 30  38 20 3B 20 56 45 4B A4  |HL . $308 ; VEK.|
00000060: 52 20 42 45 46 45 48 4C  20 41 55 53 46 55 45 48  |R BEFEHL AUSFUEH|
00000070: 52 45 4E 00 87 08 96 00  42 45 46 2E 41 4C 54 20  |REN.....BEF.ALT |
00000080: B2 20 24 41 37 45 37 00  8D 08 A0 00 3B 00 9B 08  |. $A7E7.....;...|
00000090: AA 00 41 44 52 20 B2 20  24 32 32 00 AC 08 B4 00  |..ADR . $22.....|
000000A0: 4C 49 4E 45 4E 4F 20 B2  20 24 33 39 00 BB 08 BE  |LINENO . $39....|
000000B0: 00 43 48 52 A1 20 B2 20  24 37 33 00 D0 08 C8 00  |.CHR. . $73.....|
000000C0: 43 48 52 CB 54 20 B2 20  43 48 52 A1 20 AA 20 36  |CHR.T . CHR. . 6|
000000D0: 00 E7 08 D2 00 54 58 54  50 54 52 20 B2 20 43 48  |.....TXTPTR . CH|
000000E0: 52 CB 54 20 AA 20 31 00  F8 08 DC 00 53 54 41 43  |R.T . 1.....STAC|
000000F0: 4B 20 B2 20 24 31 30 30  00 09 09 E6 00 45 52 52  |K . $100.....ERR|
00000100: B0 20 B2 20 24 41 34 34  35 00 0F 09 F0 00 3B 00  |. . $A445.....;.|
00000110: 25 09 FA 00 54 45 53 54  53 54 41 43 4B 20 B2 20  |%...TESTSTACK . |
00000120: 24 41 33 46 42 00 38 09  04 01 46 52 4D 4E 55 4D  |$A3FB.8...FRMNUM|
00000130: 20 B2 20 24 41 44 38 41  00 5B 09 0E 01 B5 45 52  | . $AD8A.[....ER|
00000140: 20 B2 20 24 41 37 41 45  20 3B 20 B5 45 52 50 52  | . $A7AE ; .ERPR|
00000150: 45 54 45 52 53 43 48 4C  45 8B 45 00 6E 09 18 01  |ETERSCHLE.E.n...|
00000160: 53 59 4E 54 41 58 20 B2  20 24 41 46 30 38 00 80  |SYNTAX . $AF08..|
00000170: 09 22 01 82 53 54 41 54  20 B2 20 24 41 39 30 36  |."..STAT . $A906|
00000180: 00 86 09 2C 01 3B 00 91  09 36 01 AC B2 20 38 32  |...,.;...6... 82|
00000190: 38 00 A6 09 40 01 49 4E  49 54 20 4C 44 41 20 23  |8...@.INIT LDA #|
000001A0: B3 20 54 45 53 54 00 B6  09 4A 01 4C 44 59 20 23  |. TEST...J.LDY #|
000001B0: B1 20 54 45 53 54 00 C5  09 54 01 53 54 41 20 42  |. TEST...T.STA B|
000001C0: 45 46 45 48 4C 00 D6 09  5E 01 53 54 59 20 42 45  |EFEHL...^.STY BE|
000001D0: 46 45 48 4C AA 31 00 DE  09 68 01 52 54 53 00 E4  |FEHL.1...h.RTS..|
000001E0: 09 72 01 3B 00 F6 09 7C  01 54 45 53 54 20 4A 53  |.r.;...|.TEST JS|
000001F0: 52 20 43 48 52 A1 00 03  0A 86 01 43 4D 50 20 23  |R CHR......CMP #|
00000200: 22 21 22 00 1F 0A 90 01  42 45 51 20 A2 42 45 46  |"!".....BEQ .BEF|
00000210: 20 3B 20 4E 45 55 45 52  20 42 45 46 45 48 4C 00  | ; NEUER BEFEHL.|
00000220: 25 0A 9A 01 3B 00 33 0A  A4 01 4A 53 52 20 43 48  |%...;.3...JSR CH|
00000230: 52 CB 54 00 52 0A AE 01  4A 4D 50 20 42 45 46 2E  |R.T.R...JMP BEF.|
00000240: 41 4C 54 20 3B 20 41 4C  54 45 20 42 45 46 45 48  |ALT ; ALTE BEFEH|
00000250: 4C 45 00 58 0A B8 01 3B  00 6A 0A C2 01 A2 42 45  |LE.X...;.j....BE|
00000260: 46 20 4A 53 52 20 43 48  52 A1 00 77 0A CC 01 43  |F JSR CHR..w...C|
00000270: 4D 50 20 23 22 52 22 00  86 0A D6 01 42 45 51 20  |MP #"R".....BEQ |
00000280: 52 45 50 45 41 54 00 93  0A E0 01 43 4D 50 20 23  |REPEAT.....CMP #|
00000290: 22 55 22 00 A1 0A EA 01  42 45 51 20 55 4E 54 49  |"U".....BEQ UNTI|
000002A0: 4C 00 CA 0A F4 01 53 59  4E 45 52 52 20 4A 4D 50  |L.....SYNERR JMP|
000002B0: 20 53 59 4E 54 41 58 20  3B 20 53 91 53 54 20 53  | SYNTAX ; S.ST S|
000002C0: 59 4E 54 41 58 20 45 52  52 B0 00 D0 0A FE 01 3B  |YNTAX ERR......;|
000002D0: 00 E4 0A 08 02 52 45 50  45 41 54 20 4A 53 52 20  |.....REPEAT JSR |
000002E0: 43 48 52 A1 00 EF 0A 12  02 4C 44 41 20 23 33 00  |CHR......LDA #3.|
000002F0: 1A 0B 1C 02 4A 53 52 20  54 45 53 54 53 54 41 43  |....JSR TESTSTAC|
00000300: 4B 20 3B 20 47 45 4E 55  45 47 80 20 50 4C 41 54  |K ; GENUEG. PLAT|
00000310: 5A 20 49 4D 20 53 54 41  43 4B 00 45 0B 26 02 4A  |Z IM STACK.E.&.J|
00000320: 53 52 20 82 53 54 41 54  20 3B 20 4E 41 45 43 48  |SR .STAT ; NAECH|
00000330: 53 54 45 53 20 53 54 41  54 45 4D 45 4E 54 20 53  |STES STATEMENT S|
00000340: 55 43 48 45 4E 00 4D 0B  30 02 43 4C 43 00 73 0B  |UCHEN.M.0.CLC.s.|
00000350: 3A 02 54 59 41 20 3B 20  4F 46 46 53 45 54 20 41  |:.TYA ; OFFSET A|
00000360: 55 46 20 4E 41 45 43 48  53 54 45 4E 20 42 45 46  |UF NAECHSTEN BEF|
00000370: 45 48 4C 00 82 0B 44 02  41 44 43 20 54 58 54 50  |EHL...D.ADC TXTP|
00000380: 54 52 00 96 0B 4E 02 50  48 41 20 3B 20 41 55 46  |TR...N.PHA ; AUF|
00000390: 20 53 54 41 43 4B 00 A7  0B 58 02 4C 44 41 20 54  | STACK...X.LDA T|
000003A0: 58 54 50 54 52 AA 31 00  B2 0B 62 02 41 44 43 20  |XTPTR.1...b.ADC |
000003B0: 23 30 00 BA 0B 6C 02 50  48 41 00 D6 0B 76 02 4C  |#0...l.PHA...v.L|
000003C0: 44 41 20 4C 49 4E 45 4E  4F 20 3B 20 5A 45 49 C3  |DA LINENO ; ZEI.|
000003D0: 4E 55 4D 4D 45 52 00 EA  0B 80 02 50 48 41 20 3B  |NUMMER.....PHA ;|
000003E0: 20 41 55 46 20 53 54 41  43 4B 00 FB 0B 8A 02 4C  | AUF STACK.....L|
000003F0: 44 41 20 4C 49 4E 45 4E  4F AA 31 00 03 0C 94 02  |DA LINENO.1.....|
00000400: 50 48 41 00 1E 0C 9E 02  4C 44 41 20 23 22 52 22  |PHA.....LDA #"R"|
00000410: 20 3B 20 52 45 50 45 41  54 AB 4B 4F 44 45 00 32  | ; REPEAT.KODE.2|
00000420: 0C A8 02 50 48 41 20 3B  20 41 55 46 20 53 54 41  |...PHA ; AUF STA|
00000430: 43 4B 00 55 0C B2 02 4A  4D 50 20 B5 45 52 20 3B  |CK.U...JMP .ER ;|
00000440: 20 5A 55 52 20 B5 45 52  50 52 45 54 45 52 53 43  | ZUR .ERPRETERSC|
00000450: 48 4C 45 8B 45 00 5B 0C  BC 02 3B 00 6E 0C C6 02  |HLE.E.[...;.n...|
00000460: 55 4E 54 49 4C 20 4A 53  52 20 43 48 52 A1 00 91  |UNTIL JSR CHR...|
00000470: 0C D0 02 42 45 51 20 53  59 4E 45 52 52 20 3B 20  |...BEQ SYNERR ; |
00000480: 5A 45 49 C3 80 45 2C 20  44 41 4E 4E 20 45 52 52  |ZEI..E, DANN ERR|
00000490: B0 00 B6 0C DA 02 4A 53  52 20 46 52 4D 4E 55 4D  |......JSR FRMNUM|
000004A0: 20 3B 20 42 45 44 49 4E  47 55 4E 47 20 41 55 53  | ; BEDINGUNG AUS|
000004B0: 57 45 52 54 45 4E 00 D0  0C E4 02 54 41 59 20 3B  |WERTEN.....TAY ;|
000004C0: 20 45 52 47 45 42 4E 49  53 20 4D 45 52 4B 45 4E  | ERGEBNIS MERKEN|
000004D0: 00 D8 0C EE 02 54 53 58  00 FE 0C F8 02 4C 44 41  |.....TSX.....LDA|
000004E0: 20 53 54 41 43 4B AA 31  2C 58 20 3B 20 88 5A 54  | STACK.1,X ; .ZT|
000004F0: 45 52 20 53 54 41 43 4B  AB 45 B5 52 41 47 00 1A  |ER STACK.E.RAG..|
00000500: 0D 02 03 43 4D 50 20 23  22 52 22 20 3B 20 52 45  |...CMP #"R" ; RE|
00000510: 50 45 41 54 AB 55 4E 54  49 4C 00 29 0D 0C 03 42  |PEAT.UNTIL.)...B|
00000520: 4E 45 20 52 50 54 45 52  52 00 31 0D 16 03 54 59  |NE RPTERR.1...TY|
00000530: 41 00 3F 0D 20 03 42 4E  45 20 52 50 54 80 45 00  |A.?. .BNE RPT.E.|
00000540: 51 0D 2A 03 4C 44 41 20  53 54 41 43 4B AA 32 2C  |Q.*.LDA STACK.2,|
00000550: 58 00 6E 0D 34 03 53 54  41 20 4C 49 4E 45 4E 4F  |X.n.4.STA LINENO|
00000560: AA 31 20 3B 20 5A 45 49  C3 55 4D 4D 45 52 00 80  |.1 ; ZEI.UMMER..|
00000570: 0D 3E 03 4C 44 41 20 53  54 41 43 4B AA 33 2C 58  |.>.LDA STACK.3,X|
00000580: 00 8F 0D 48 03 53 54 41  20 4C 49 4E 45 4E 4F 00  |...H.STA LINENO.|
00000590: A1 0D 52 03 4C 44 41 20  53 54 41 43 4B AA 34 2C  |..R.LDA STACK.4,|
000005A0: 58 00 CB 0D 5C 03 53 54  41 20 54 58 54 50 54 52  |X...\.STA TXTPTR|
000005B0: AA 31 20 3B 20 55 4E 44  20 50 52 4F 47 52 41 4D  |.1 ; UND PROGRAM|
000005C0: 4D 5A 45 49 47 45 52 20  48 4F C3 00 DD 0D 66 03  |MZEIGER HO....f.|
000005D0: 4C 44 41 20 53 54 41 43  4B AA 35 2C 58 00 EC 0D  |LDA STACK.5,X...|
000005E0: 70 03 53 54 41 20 54 58  54 50 54 52 00 0F 0E 7A  |p.STA TXTPTR...z|
000005F0: 03 4A 4D 50 20 B5 45 52  20 3B 20 5A 55 52 20 B5  |.JMP .ER ; ZUR .|
00000600: 45 52 50 52 45 54 45 52  53 43 48 4C 45 8B 45 00  |ERPRETERSCHLE.E.|
00000610: 15 0E 84 03 3B 00 30 0E  8E 03 52 50 54 80 45 20  |....;.0...RPT.E |
00000620: 54 58 41 20 3B 20 53 54  41 43 4B 50 4F B5 45 52  |TXA ; STACKPO.ER|
00000630: 00 38 0E 98 03 43 4C 43  00 53 0E A2 03 41 44 43  |.8...CLC.S...ADC|
00000640: 20 23 35 20 3B 20 55 4D  20 35 20 45 52 48 4F 45  | #5 ; UM 5 ERHOE|
00000650: 48 45 4E 00 5B 0E AC 03  54 41 58 00 63 0E B6 03  |HEN.[...TAX.c...|
00000660: 54 58 53 00 6F 0E C0 03  4A 4D 50 20 B5 45 52 00  |TXS.o...JMP .ER.|
00000670: 75 0E CA 03 3B 00 8C 0E  D4 03 52 50 54 45 52 52  |u...;.....RPTERR|
00000680: 20 4C 44 41 20 23 B3 20  54 45 58 54 00 98 0E DE  | LDA #. TEXT....|
00000690: 03 53 54 41 20 41 44 52  00 A8 0E E8 03 4C 44 41  |.STA ADR.....LDA|
000006A0: 20 23 B1 20 54 45 58 54  00 B5 0E F2 03 4A 4D 50  | #. TEXT.....JMP|
000006B0: 20 45 52 52 B0 00 BB 0E  FC 03 3B 00 DE 0E 06 04  | ERR......;.....|
000006C0: 54 45 58 54 20 2E C6 20  22 55 4E 54 49 4C 20 57  |TEXT .. "UNTIL W|
000006D0: 49 54 48 4F 55 54 20 52  45 50 45 41 D4 22 00 00  |ITHOUT REPEA."..|
000006E0: 00                                                |.               |

....Z.. 8.4096...D..OPT P,OO.".N.;.A.X.;
 REPEAT . UNTIL . SCHLE.E.G...;.S...BEFE
HL . $308 ; VEK.R BEFEHL AUSFUEHREN.....
BEF.ALT . $A7E7... .;.....ADR . $22.....
LINENO . $39.....CHR. . $73.P.H.CHRKT . 
CHR. . 6...R.TXTPTR . CHRKT . 1.....STAC
K . $100.....ERR. . $A445.....;.%...TEST
STACK . $A3FB.8...FRMNUM . $AD8A.[....ER
 . $A7AE ; .ERPRETERSCHLE.E.N...SYNTAX .
 $AF08..."..STAT . $A906...,.;...6... 82
8...@.INIT LDA #. TEST...J.LDY #. TEST.E
.T.STA BEFEHL.V.^.STY BEFEHL.1...H.RTS..
.R.;...|.TEST JSR CHR......CMP #"!".....
BEQ .BEF ; NEUER BEFEHL.%...;.3...JSR CH
RKT.R...JMP BEF.ALT ; ALTE BEFEHLE.X...;
.J.B..BEF JSR CHR..W.L.CMP #"R"...V.BEQ 
REPEAT.....CMP #"U".....BEQ UNTIL.J...SY
NERR JMP SYNTAX ; S.ST SYNTAX ERR..P...;
.....REPEAT JSR CHR......LDA #3.....JSR 
TESTSTACK ; GENUEG. PLATZ IM STACK.E.&.J
SR .STAT ; NAECHSTES STATEMENT SUCHEN.M.
0.CLC.S.:.TYA ; OFFSET AUF NAECHSTEN BEF
EHL...D.ADC TXTPTR...N.PHA ; AUF STACK..
.X.LDA TXTPTR.1...B.ADC #0...L.PHA.V.V.L
DA LINENO ; ZEICNUMMER.....PHA ; AUF STA
CK.....LDA LINENO.1.....PHA.....LDA #"R"
 ; REPEAT.KODE.2...PHA ; AUF STACK.U...J
MP .ER ; ZUR .ERPRETERSCHLE.E.[...;.N.F.
UNTIL JSR CHR....P.BEQ SYNERR ; ZEIC.E, 
DANN ERR....Z.JSR FRMNUM ; BEDINGUNG AUS
WERTEN.P...TAY ; ERGEBNIS MERKEN.X...TSX
.....LDA STACK.1,X ; .ZTER STACK.E.RAG..
...CMP #"R" ; REPEAT.UNTIL.)...BNE RPTER
R.1...TYA.?. .BNE RPT.E.Q.*.LDA STACK.2,
X.N.4.STA LINENO.1 ; ZEICUMMER...>.LDA S
TACK.3,X...H.STA LINENO...R.LDA STACK.4,
X.K.\.STA TXTPTR.1 ; UND PROGRAMMZEIGER 
HOC...F.LDA STACK.5,X...P.STA TXTPTR...Z
.JMP .ER ; ZUR .ERPRETERSCHLE.E.....;.0.
..RPT.E TXA ; STACKPO.ER.8...CLC.S...ADC
 #5 ; UM 5 ERHOEHEN.[...TAX.C...TXS.O...
JMP .ER.U.J.;...T.RPTERR LDA #. TEXT....
.STA ADR.....LDA #. TEXT.....JMP ERR....
..;.....TEXT .F "UNTIL WITHOUT REPEAT"..
.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL