Code Gallery: REU 1764
Sie sind hier: Code Gallery » REU 1764Die auf dieser Seite vorhandenen BASIC-Programme (bzw. Snipplets) habe ich nach dem Transfer auf den PC nicht mehr getestet. Sie sollten aber problemlos funktionieren.
Fotos der REU 1764
REU 1764-Treiber (RAMDOS040887.BIN) downloaden
Prüfen, ob REU (RAM Expansion Unit, z.B. Commodore 1764) angeschlossen ist
1000 rem *** ram-erweiterung vorhanden ?
1001 :
1002 r=57088:a=0
1003 poke r,0:ifpeek(r)=0 then 420
1004 forv=2to5:poker+v,v:next
1005 a=1:forv=2to5:ifpeek(r+v)<>vthena=0
1006 next
1007 if a=0 then print" {reverse on}keine ram-erweiterung vorhanden !{reverse off}"
1008 :
1009 return
REU-Version identifizieren
46 ifpeek(57088)=16thenar$=" CBM 1764"
47 ifpeek(57088)<>16and a=1thenar$=" CBM 1750"
REU-Befehle
2100 rem *** reu befehle
2101 :
2105 rem ac=anfangsadresse c=64
2106 rem ab=anzahl der bytes
2107 rem ae=adresse in reu
2108 rem be=bank in reu
2109 rem fu=befehlscode (148=schreiben,149=lesen,150=tauschen)
2110 poke57090,(ac-32768and255):poke57091,ac/256
2111 poke57095,(ab-32768and255):poke57096,ab/256
2112 poke57092,(ae-32768and255):poke57093,ae/256
2113 poke57094,be
2114 poke57089,fu
2115 return
Laden und Speichern des aktuellen Screens
1010 rem *** 1764 screen-store/retrieve
1011 :
1012 ba=13*4096+15*256:ifrt=0then1023
1013 pokeba+2,0:pokeba+3,4:rem c64 $0400=#1024
1014 pokeba+4,0:pokeba+5,0:rem 1764 ram adresse $0000
1015 pokeba+6,0:rem 1764 ram bank $0000
1016 pokeba+7,0:pokeba+8,4:rem anzahl daten $0400=#1024
1017 pokeba+9,0:rem 1764 interrupt-kontrolle
1018 pokeba+10,0:rem 1764 adress-kontroll-register (beide adr. erhoehen)
1019 pokeba+1,252:rem 1764 kommando-register=> screen speichern
1020 return
1023 pokeba+2,0:pokeba+3,4:rem c64 speichern nach $0400=#1024
1024 pokeba+4,0:pokeba+5,0:rem 1764 ram adresse $0000
1025 pokeba+6,0:rem 1764 ram bank $0000
1026 pokeba+7,0:pokeba+8,4:rem anzahl daten $0400=#1024
1027 pokeba+1,253:rem 1764 kommando-register=> screen laden
1028 :
1029 return
Formatieren und initialisieren
4000 rem *** reu formatieren
4001 :
4010 e=1:load"0:ramdos??????.bin",10,1
4020 e=0:sys25356:sys65418:poke780,10:poke781,207:sys25350-3*(1=0):goto5870
4029 :
4030 rem *** reu initialisieren
4031 :
4040 load"0:ramdos??????.bin",10,1
4050 sys25356:sys65418:poke780,10:poke781,207:sys25350-3*(0=0):return