SCHIEBEREGISTER
FILE INFORMATION
FILENAME(S): SCHIEBEREGISTER
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-02 22:11:34
APPEARS ON: 2 disk(s)
FILE HASH
6057d97cacf84f46b66ada79f6271a58336ee84e15f89c3bcfbe1cebf1593a9f
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SONDERHEFT ASS | SCHIEBEREGISTER | PRG | Treasure Chest - ToGuMi | 28 | 4 | DOWNLOAD FILE |
| SONDERHEFT ASS | SCHIEBEREGISTER | PRG | C64er | 28 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: D8 1F FE 1F 64 00 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D |....d.;---------| 00000010: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000020: 2D 2D 2D 2D 2D 2D 2D 00 1B 20 6E 00 3B 20 53 43 |-------.. n.; SC| 00000030: 48 49 45 42 45 52 45 47 49 53 54 45 52 2D 46 4F |HIEBEREGISTER-FO| 00000040: 4C 47 45 4E 00 3A 20 78 00 3B 20 41 4C 53 20 50 |LGEN.: x.; ALS P| 00000050: 53 45 55 44 4F 2D 5A 55 46 41 4C 4C 53 5A 41 48 |SEUDO-ZUFALLSZAH| 00000060: 4C 45 4E 00 60 20 82 00 3B 2D 2D 2D 2D 2D 2D 2D |LEN.` ..;-------| 00000070: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000080: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 6E 20 8C 00 20 2E |---------.n .. .| 00000090: 42 41 24 43 30 30 30 00 96 20 96 00 20 2E 45 51 |BA$C000.. .. .EQ| 000000A0: 53 52 3D 24 46 44 3B 53 43 48 49 45 42 45 52 45 |SR=$FD;SCHIEBERE| 000000B0: 47 49 53 54 45 52 20 28 32 20 42 59 54 45 29 00 |GISTER (2 BYTE).| 000000C0: B3 20 A0 00 20 2E 45 51 5A 41 45 48 4C 45 52 3D |. .. .EQZAEHLER=| 000000D0: 24 46 42 3B 28 32 20 42 59 54 45 29 00 D2 20 AA |$FB;(2 BYTE).. .| 000000E0: 00 20 2E 45 51 44 45 4C 41 59 3D 24 46 41 3B 50 |. .EQDELAY=$FA;P| 000000F0: 41 55 53 45 4E 4C 41 45 4E 47 45 00 D8 20 B4 00 |AUSENLAENGE.. ..| 00000100: 3B 00 F7 20 BE 00 20 4A 4D 50 4D 41 49 4E 3B 5A |;.. .. JMPMAIN;Z| 00000110: 55 4D 20 48 41 55 50 54 50 52 4F 47 52 41 4D 4D |UM HAUPTPROGRAMM| 00000120: 00 FD 20 C8 00 3B 00 18 21 D2 00 3B 20 4E 41 45 |.. ..;..!..; NAE| 00000130: 43 48 53 54 45 20 5A 55 46 41 4C 4C 53 5A 41 48 |CHSTE ZUFALLSZAH| 00000140: 4C 00 3C 21 DC 00 3B 20 20 28 31 29 20 43 41 52 |L.<!..; (1) CAR| 00000150: 52 59 20 3A 3D 20 53 52 28 36 29 20 45 4F 52 20 |RY := SR(6) EOR | 00000160: 53 52 28 39 29 00 5E 21 E6 00 3B 20 20 28 32 29 |SR(9).^!..; (2)| 00000170: 20 53 52 20 4E 41 43 48 20 4C 49 4E 4B 53 20 53 | SR NACH LINKS S| 00000180: 43 48 49 45 42 45 4E 00 78 21 F0 00 3B 20 20 28 |CHIEBEN.x!..; (| 00000190: 33 29 20 53 52 28 30 29 20 3A 3D 20 43 41 52 52 |3) SR(0) := CARR| 000001A0: 59 00 7E 21 FA 00 3B 00 90 21 04 01 53 48 49 46 |Y.~!..;..!..SHIF| 000001B0: 54 20 4C 44 41 53 52 2B 31 00 AB 21 0E 01 20 41 |T LDASR+1..!.. A| 000001C0: 4E 44 23 32 3B 53 52 28 39 29 20 49 53 4F 4C 49 |ND#2;SR(9) ISOLI| 000001D0: 45 52 45 4E 00 B4 21 18 01 20 41 53 4C 00 BD 21 |EREN..!.. ASL..!| 000001E0: 22 01 20 41 53 4C 00 D7 21 2C 01 20 41 53 4C 3B |". ASL..!,. ASL;| 000001F0: 49 4E 20 42 49 54 50 4F 53 49 54 49 4F 4E 20 36 |IN BITPOSITION 6| 00000200: 00 E8 21 36 01 20 41 53 4C 3B 42 52 49 4E 47 45 |..!6. ASL;BRINGE| 00000210: 4E 00 F1 21 40 01 20 41 53 4C 00 14 22 4A 01 20 |N..!@. ASL.."J. | 00000220: 45 4F 52 53 52 3B 4C 49 45 46 45 52 54 20 53 52 |EORSR;LIEFERT SR| 00000230: 28 36 29 20 45 4F 52 20 53 52 28 39 29 00 1D 22 |(6) EOR SR(9).."| 00000240: 54 01 20 41 53 4C 00 4C 22 5E 01 20 41 53 4C 3B |T. ASL.L"^. ASL;| 00000250: 52 45 53 55 4C 54 41 54 20 49 4E 53 20 43 41 52 |RESULTAT INS CAR| 00000260: 52 59 2D 46 4C 41 47 20 28 53 43 48 52 49 54 54 |RY-FLAG (SCHRITT| 00000270: 20 28 31 29 29 00 6B 22 68 01 20 52 4F 4C 53 52 | (1)).k"h. ROLSR| 00000280: 3B 53 43 48 52 49 54 54 20 28 32 29 20 55 4E 44 |;SCHRITT (2) UND| 00000290: 20 28 33 29 00 78 22 72 01 20 52 4F 4C 53 52 2B | (3).x"r. ROLSR+| 000002A0: 31 00 81 22 7C 01 20 52 54 53 00 87 22 86 01 3B |1.."|. RTS.."..;| 000002B0: 00 A3 22 90 01 3B 20 56 45 52 5A 4F 45 47 45 52 |.."..; VERZOEGER| 000002C0: 55 4E 47 53 53 43 48 4C 45 49 46 45 00 A9 22 9A |UNGSSCHLEIFE..".| 000002D0: 01 3B 00 BC 22 A4 01 50 41 55 53 45 20 4C 44 58 |.;.."..PAUSE LDX| 000002E0: 44 45 4C 41 59 00 CB 22 AE 01 50 41 55 53 45 31 |DELAY.."..PAUSE1| 000002F0: 20 44 45 58 00 DA 22 B8 01 20 42 4E 45 50 41 55 | DEX..".. BNEPAU| 00000300: 53 45 31 00 E3 22 C2 01 20 52 54 53 00 E9 22 CC |SE1..".. RTS..".| 00000310: 01 3B 00 FD 22 D6 01 3B 20 48 41 55 50 54 50 52 |.;.."..; HAUPTPR| 00000320: 4F 47 52 41 4D 4D 00 32 23 E0 01 3B 20 53 43 48 |OGRAMM.2#..; SCH| 00000330: 49 45 42 45 52 45 47 49 53 54 45 52 2D 46 4F 4C |IEBEREGISTER-FOL| 00000340: 47 45 20 44 45 52 20 4C 41 45 4E 47 45 20 31 30 |GE DER LAENGE 10| 00000350: 32 33 20 45 52 5A 45 55 47 45 4E 00 72 23 EA 01 |23 ERZEUGEN.r#..| 00000360: 3B 20 42 49 4C 44 53 43 48 49 52 4D 5A 45 49 43 |; BILDSCHIRMZEIC| 00000370: 48 45 4E 20 49 4E 20 44 45 52 20 52 45 49 48 45 |HEN IN DER REIHE| 00000380: 4E 46 4F 4C 47 45 20 44 49 45 53 45 52 20 5A 55 |NFOLGE DIESER ZU| 00000390: 46 41 4C 4C 53 5A 41 48 4C 45 4E 00 9D 23 F4 01 |FALLSZAHLEN..#..| 000003A0: 3B 20 49 4E 56 45 52 54 49 45 52 45 4E 20 28 44 |; INVERTIEREN (D| 000003B0: 2E 48 2E 20 42 49 54 20 37 20 49 4E 56 45 52 54 |.H. BIT 7 INVERT| 000003C0: 49 45 52 45 4E 29 00 A3 23 FE 01 3B 00 D2 23 08 |IEREN)..#..;..#.| 000003D0: 02 3B 20 53 52 20 4D 49 54 20 5A 55 46 41 45 4C |.; SR MIT ZUFAEL| 000003E0: 4C 49 47 45 4D 20 53 54 41 52 54 57 45 52 54 20 |LIGEM STARTWERT | 000003F0: 56 4F 52 42 45 53 45 54 5A 45 4E 00 FC 23 12 02 |VORBESETZEN..#..| 00000400: 4D 41 49 4E 20 4C 44 41 24 44 43 30 34 3B 43 49 |MAIN LDA$DC04;CI| 00000410: 41 23 31 20 54 49 4D 45 52 20 41 2C 20 4C 4F 57 |A#1 TIMER A, LOW| 00000420: 2D 42 59 54 45 00 19 24 1C 02 20 4F 52 41 23 31 |-BYTE..$.. ORA#1| 00000430: 3B 44 41 52 46 20 4E 49 43 48 54 20 30 20 53 45 |;DARF NICHT 0 SE| 00000440: 49 4E 00 24 24 26 02 20 53 54 41 53 52 00 31 24 |IN.$$&. STASR.1$| 00000450: 30 02 20 4C 44 41 23 24 46 46 00 41 24 3A 02 20 |0. LDA#$FF.A$:. | 00000460: 53 54 41 5A 41 45 48 4C 45 52 00 4E 24 44 02 20 |STAZAEHLER.N$D. | 00000470: 4C 44 41 23 24 30 33 00 72 24 4E 02 20 53 54 41 |LDA#$03.r$N. STA| 00000480: 5A 41 45 48 4C 45 52 2B 31 3B 5A 41 45 48 4C 45 |ZAEHLER+1;ZAEHLE| 00000490: 52 3D 24 33 46 46 3D 31 30 32 33 00 99 24 58 02 |R=$3FF=1023..$X.| 000004A0: 4C 4F 4F 50 20 4A 53 52 53 48 49 46 54 3B 4E 41 |LOOP JSRSHIFT;NA| 000004B0: 45 43 48 53 54 45 20 5A 55 46 41 4C 4C 53 5A 41 |ECHSTE ZUFALLSZA| 000004C0: 48 4C 00 A6 24 62 02 20 4C 44 41 53 52 2B 31 00 |HL..$b. LDASR+1.| 000004D0: B6 24 6C 02 20 50 48 41 3B 4D 45 52 4B 45 4E 00 |.$l. PHA;MERKEN.| 000004E0: DF 24 76 02 20 41 4E 44 23 33 3B 48 49 47 48 2D |.$v. AND#3;HIGH-| 000004F0: 42 59 54 45 20 41 55 46 20 32 20 42 49 54 20 42 |BYTE AUF 2 BIT B| 00000500: 45 47 52 45 4E 5A 45 4E 00 F5 24 80 02 20 4F 52 |EGRENZEN..$.. OR| 00000510: 41 23 34 3B 53 52 3D 53 52 2B 24 34 30 30 00 02 |A#4;SR=SR+$400..| 00000520: 25 8A 02 20 53 54 41 53 52 2B 31 00 0D 25 94 02 |%.. STASR+1..%..| 00000530: 20 4C 44 59 23 30 00 33 25 9E 02 20 4C 44 41 28 | LDY#0.3%.. LDA(| 00000540: 53 52 29 2C 59 3B 5A 45 49 43 48 45 4E 20 56 4F |SR),Y;ZEICHEN VO| 00000550: 4D 20 42 49 4C 44 53 43 48 49 52 4D 00 52 25 A8 |M BILDSCHIRM.R%.| 00000560: 02 20 45 4F 52 23 24 38 30 3B 42 49 54 20 37 20 |. EOR#$80;BIT 7 | 00000570: 49 4E 56 45 52 54 49 45 52 45 4E 00 78 25 B2 02 |INVERTIEREN.x%..| 00000580: 20 53 54 41 28 53 52 29 2C 59 3B 5A 55 52 55 45 | STA(SR),Y;ZURUE| 00000590: 43 4B 20 5A 55 4D 20 42 49 4C 44 53 43 48 49 52 |CK ZUM BILDSCHIR| 000005A0: 4D 00 86 25 BC 02 20 50 4C 41 3B 53 52 2B 31 00 |M..%.. PLA;SR+1.| 000005B0: A4 25 C6 02 20 53 54 41 53 52 2B 31 3B 57 49 45 |.%.. STASR+1;WIE| 000005C0: 44 45 52 48 45 52 53 54 45 4C 4C 45 4E 00 B2 25 |DERHERSTELLEN..%| 000005D0: D0 02 20 4A 53 52 50 41 55 53 45 00 C2 25 DA 02 |.. JSRPAUSE..%..| 000005E0: 20 44 45 43 5A 41 45 48 4C 45 52 00 CF 25 E4 02 | DECZAEHLER..%..| 000005F0: 20 42 4E 45 4C 4F 4F 50 00 E1 25 EE 02 20 44 45 | BNELOOP..%.. DE| 00000600: 43 5A 41 45 48 4C 45 52 2B 31 00 EE 25 F8 02 20 |CZAEHLER+1..%.. | 00000610: 42 50 4C 4C 4F 4F 50 00 14 26 02 03 20 4C 44 41 |BPLLOOP..&.. LDA| 00000620: 24 34 30 30 3B 45 52 53 54 45 53 20 42 49 4C 44 |$400;ERSTES BILD| 00000630: 53 43 48 49 52 4D 5A 45 49 43 48 45 4E 00 2D 26 |SCHIRMZEICHEN.-&| 00000640: 0C 03 20 45 4F 52 23 24 38 30 3B 49 4E 56 45 52 |.. EOR#$80;INVER| 00000650: 54 49 45 52 45 4E 00 3A 26 16 03 20 53 54 41 24 |TIEREN.:&.. STA$| 00000660: 34 30 30 00 43 26 20 03 20 52 54 53 00 00 00 |400.C& . RTS... |
X...D.;--------------------------------. . N.; SCHIEBEREGISTER-FOLGEN.: X.; ALS P SEUDO-ZUFALLSZAHLEN.` ..;--------------- -----------------.N .. .BA$C000.. .. .EQ SR=$FD;SCHIEBEREGISTER (2 BYTE).. . .EQ ZAEHLER=$FB;(2 BYTE).R .. .EQDELAY=$FA;P AUSENLAENGE.X ..;.. .. JMPMAIN;ZUM HAUPT PROGRAMM.. H.;..!R.; NAECHSTE ZUFALLSZAH L.<!..; (1) CARRY := SR(6) EOR SR(9).^! ..; (2) SR NACH LINKS SCHIEBEN.X!..; ( 3) SR(0) := CARRY.~!..;..!..SHIFT LDASR+ 1..!.. AND#2;SR(9) ISOLIEREN..!.. ASL..! ". ASL.W!,. ASL;IN BITPOSITION 6..!6. AS L;BRINGEN..!@. ASL.."J. EORSR;LIEFERT SR (6) EOR SR(9).."T. ASL.L"^. ASL;RESULTAT INS CARRY-FLAG (SCHRITT (1)).K"H. ROLSR ;SCHRITT (2) UND (3).X"R. ROLSR+1.."|. R TS.."..;.."..; VERZOEGERUNGSSCHLEIFE..". .;.."..PAUSE LDXDELAY.K"..PAUSE1 DEX.Z". . BNEPAUSE1.."B. RTS.."L.;.."V.; HAUPTPR OGRAMM.2#..; SCHIEBEREGISTER-FOLGE DER L AENGE 1023 ERZEUGEN.R#..; BILDSCHIRMZEIC HEN IN DER REIHENFOLGE DIESER ZUFALLSZAH LEN..#..; INVERTIEREN (D.H. BIT 7 INVERT IEREN)..#..;.R#..; SR MIT ZUFAELLIGEM ST ARTWERT VORBESETZEN..#..MAIN LDA$DC04;CI A#1 TIMER A, LOW-BYTE..$.. ORA#1;DARF NI CHT 0 SEIN.$$&. STASR.1$0. LDA#$FF.A$:. STAZAEHLER.N$D. LDA#$03.R$N. STAZAEHLER+ 1;ZAEHLER=$3FF=1023..$X.LOOP JSRSHIFT;NA ECHSTE ZUFALLSZAHL..$B. LDASR+1..$L. PHA ;MERKEN..$V. AND#3;HIGH-BYTE AUF 2 BIT B EGRENZEN..$.. ORA#4;SR=SR+$400..%.. STAS R+1..%.. LDY#0.3%.. LDA(SR),Y;ZEICHEN VO M BILDSCHIRM.R%.. EOR#$80;BIT 7 INVERTIE REN.X%.. STA(SR),Y;ZURUECK ZUM BILDSCHIR M..%.. PLA;SR+1..%F. STASR+1;WIEDERHERST ELLEN..%P. JSRPAUSE.B%Z. DECZAEHLER.O%.. BNELOOP..%.. DECZAEHLER+1..%.. BPLLOOP. .&.. LDA$400;ERSTES BILDSCHIRMZEICHEN.-& .. EOR#$80;INVERTIEREN.:&.. STA$400.C& . RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL