SCRLD (TSB)
| SCRLD (TSB) | |
| Syntax: | SCRLD <fn>,<dr>,<sa>,<name> [+",<ft>,R"] |
| Parameter | |
| fn: Dateinummer | |
| dr: Laufwerk | |
| sa: Sekundäradresse (2, 3 oder 5) | |
| name: Dateiname | |
| ft: Dateityp (U, S, P) | |
| Einordnung | |
| Typ: | Anweisung |
| Kontext: | Ein- / Ausgabe |
| Aufgabe: | lädt einen Textbildschirm oder eine Grafik |
| Abkürzung: | keine |
| Token: | $64 $6e (100 110) |
| Verwandte Befehle | |
| SCRSV - MERGE - LIN - LOAD - SAVE | |
Dieser Artikel beschreibt das TSB-Schlüsselwort SCRLD (TSB).
Das entsprechende Simons'-Basic-Schlüsselwort lautet ebenfalls SCRLD.
Typ: Anweisung Syntax: SCRLD <fn>,<dr>,<sa>,<name> [+",<ft>,R"]
Beschreibung[Bearbeiten | Quelltext bearbeiten]
1. Alternative
Siehe den gleichlautenden Simons'-Basic-Befehl SCRLD, allerdings sollte in TSB die Sekundäradresse 0 oder 2 (oder eine beliebige gerade Zahl) sein. Diese Alternative lädt einen mit dem TSB-Befehl SCRSV gespeicherten Textbildschirm inklusive seiner Farben.
SCRSV von Simons' Basic erzeugt ein anderes Dateiformat als der TSB-Befehl. Ein so gespeicherter Bildschirm kann deshalb mit SCRLD (TSB) nicht erfolgreich geladen werden. Siehe dazu das Beispiel Simons' Basic Bildschirm in TSB.
2. Alternative
Der TSB-Befehl SCRLD ist zusätzlich in der Lage, ein Grafikbild zu laden. Dazu muss die Sekundäradresse ungerade sein. Es gibt zwei Versionen:
- Nur die Bitmap lädt man mit der Sekundäradresse <sa> "3". TSB lädt 8192 Bytes, d.h. den kompletten Grafikpuffer (unter TSB ab $E000), erwartet also eine 33 Blöcke große Datei. Siehe dazu das Beispiel Bitmap laden.
- Bitmap und Farben lädt man mit der Sekundäradresse <sa> "5". Zusätzlich zu den 8192 Bytes der Bitmap werden hierbei auch die Farbinformationen aus dem Farb-RAM und dem Video-RAM geladen, weshalb TSB hier eine 41 Blöcke große Datei erwartet. Siehe dazu das Beispiel Grafik mit Farben laden.
- Diese Option steht seit TSB 2.20220 zur Verfügung.
Beachten:
- Entgegen der TSB-Eigenschaft, bei Befehlen, die die Floppy-Laufwerke ansprechen, die Gerätenummer wegfallen lassen zu können, muss sie bei SCRLD (genau wie bei OPEN) ausdrücklich als Dummy mit angegeben werden. Intern greift TSB immer auf die mit USE eingestellte Diskette zu. Ist deren Laufwerk nicht vorhanden, produziert dieser Zugriff einen Floppy-Error.
- Ein Bandlaufwerk wird mit USE 1 unterstützt, wenn man unmittelbar vor dem SCRLD- oder LOAD-Befehl in den Speicherstellen $B2 und $B3 den Zeiger $033C auf den Kassettenpuffer, ein Zeiger, den TSB intern für andere Zwecke verwendet, rekonstruiert. Ein Ladebefehl für ein Programm von Band würde also
USE 1: D!POKE $B2,$033C: LOAD Returnlauten. Nicht vergessen, USE wieder auf Floppybetrieb zurückzustellen!
Erweiterte Nutzung[Bearbeiten | Quelltext bearbeiten]
Die beiden zusätzlichen (ab TSB v2.20.515 verfügbaren) Befehle
erweitern die Möglichkeiten von SCRLD (TSB). Sie funktionieren durch Selbstmodifikation der SCRLD/SCRSV-Routine und machen damit die bisher nötigen POKEs überflüssig.
Mit SCRLD DEF kann man Modifikationen mit den folgenden Wirkungen erstellen:
- Die Anzahl der 256-Byte-Blöcke (Pages) für die Bitmap-Größe wird von 32 auf den angegebenen Wert gesetzt
- Die Anzahl der Pages für Video-RAM bzw. Farb-RAM wird von 4 auf den angegebenen Wert gesetzt
- Die Verarbeitung des Farb-RAMs wird unterdrückt
- Das High-Byte der Speicheranfangsadresse des Video-RAMs wird von $04 auf den angegebenen Byte-Wert gesetzt
- Das High-Byte der Speicheranfangsadresse der Bitmap wird von $E0 auf den angegebenen Byte-Wert gesetzt
Wie das im Einzelnen geht, ist bei der Beschreibung der Parameter in SCRSV-LD DEF erklärt.
Mit SCRLD RESTORE werden die Werte wieder zurückgesetzt.
Eine typische erweiterte Nutzung hat dann die folgende Form:
SCRLD DEF hi,bl,m,sa SCRLD 2,8,2,"dateiname" SCRSV RESTORE
- Es ist wie bisher möglich, eine Grafik zu laden, die mit SCRSV in zwei Dateien - einer mit der Bitmap, einer anderen mit den Farben - gespeichert wurde. Siehe dazu das Beispiel Grafik laden aus zwei Dateien.
- Ein Textbildschirm kann unter TSB auch in den alternativen Bildschirmspeicher bei $CC00, der nach MEM aktiv ist, geladen werden:
SCRLD DEF $CC,4,0,2: SCRLD 2,8,2,"dateiname": SCRLD RESTORE. - Wenn man in SCRLD DEF mit dem Modus 1 die Verarbeitung des Farbbereichs 1 (Farb-RAM) unterdrückt, kann man ein Bild im Format von Hi-Eddi+ laden. Siehe dazu das Beispiel Hi-Eddi+ Grafik in TSB laden.
- Mit Hilfe von SCRLD DEF ist es möglich, einen Speicherbereich von wählbarer Größe (in Pages) - z.B. einen Zeichensatz - an einen beliebigen frei zugänglichen Speicherplatz zu laden. Ein 2 KB (8 Pages) großer Zeichensatz wird an die Adresse $3000 geladen mit
SCRLD DEF $30,8,1,3: SCRLD 3,8,3,"zeichensatz": SCRLD RESTORE.
Beispiele[Bearbeiten | Quelltext bearbeiten]
Textbildschirm laden[Bearbeiten | Quelltext bearbeiten]
100 PRINT CHR$(147) 110 SCRLD 2,8,2,"TRICOLOR-TSB.SRC,P,R" 120 FEHLER 130 IF FF>0 THEN PRINT FF;FB$:END 140 WAIT 198,1:END 150 PROC FEHLER 160 OPEN 1,8,15 170 INPUT#1,FF,FB$,SP,SE 180 CLOSE 1 190 END PROC
Lädt einen mit SCRSV (TSB) gespeicherten Textbildschirm. Eine Unterroutine zum Auslesen des Fehlerkanals ist eingefügt.
Bitmap laden[Bearbeiten | Quelltext bearbeiten]
100 HIRES 15,0 110 SCRLD 3,8,3,"BITMAP3,P,R" 120 FEHLER 130 IF FF>0 THEN NRM:PRINT FF;FB$:END 140 COLOR 12,12: WAIT 198,1 145 COLOR 11,12: NRM: END 150 PROC FEHLER 160 OPEN 1,8,15 170 INPUT#1,FF,FB$,SP,SE 180 CLOSE 1 190 END PROC
Grafik mit Farben laden[Bearbeiten | Quelltext bearbeiten]
100 HIRES 15,0 110 SCRLD 3,8,5,"HIRES5,P,R" 120 FEHLER 130 IF FF>0 THEN NRM:PRINT FF;FB$:END 140 COLOR 12,12: WAIT 198,1 145 COLOR 11,12: NRM: END 150 PROC FEHLER 160 OPEN 1,8,15 170 INPUT#1,FF,FB$,SP,SE 180 CLOSE 1 190 END PROC
Grafik laden aus zwei Dateien[Bearbeiten | Quelltext bearbeiten]
1550 PROC TSBLOAD 1560 CSET 2: MULTI ON 1565 SCRLD 1,I8,3,"IMAGE *" 1570 SCRLD DEF $C0,4,0,2 1575 SCRLD 1,I8,2,"IMAGETOOLS" 1580 SCRLD RESTORE 1585 COLOR BG 1590 END PROC
Lädt eine mit SCRSV (TSB) gespeicherte Multicolor-Grafik samt Farben unter dem angegebenen Namen in zwei Dateien von Diskette. Die Variable BG enthält die Nummer der Hintergrundfarbe aus dem Dateinamen "IMAGE"+STR$(BG).
Hi-Eddi+ Grafik in TSB laden[Bearbeiten | Quelltext bearbeiten]
100 HIRES 15,0 110 SCRLD DEF $04,4,1,2: REM MODUS 1 = KEIN FARB-RAM 120 SCRLD 3,8,5,"HIRES5,P,R" 130 SCRLD RESTORE 140 FEHLER 150 IF FF>0 THEN NRM:PRINT FF;FB$:END 160 COLOR 12,12:WAIT 198,1 170 COLOR 11,12:NRM:END 180 PROC FEHLER 190 OPEN 1,8,15 200 INPUT#1,FF,FB$,SP,SE 210 CLOSE 1 220 END PROC
Simons' Basic Bildschirm in TSB[Bearbeiten | Quelltext bearbeiten]
10 IF A=0 THEN A=1:LOAD "SCRLD-SB",8,1 20 PRINT CHR$(147) 30 OPEN 2,8,2,"TRICOLOR.SCR,S,R" 40 SYS $C000 50 WAIT 198,1 60 SCRSV 2,8,2,"TRICOLOR-TSB.SCR,P,W"
Lädt mit Hilfe der Maschinenspracheroutine "SCRLD-SB" einen mit Simons-Basic-SCRSV gespeicherten Textschirm und speichert ihn im TSB-Format.
ACME-Quellcode von SCRLD-SB:
;SCRLD-SB in TSB !ct pet !to "scrld-sb.prg", cbm *= $c000 ;OPEN 2,8,2,"filename,s,r" muss vorher ausgeführt sein ldx $b8 jsr $ffc6 ldx #00 loop jsr $ffcf sta $0400,x jsr $ffcf sta $d800,x jsr $ffcf sta $04fa,x jsr $ffcf sta $d8fa,x jsr $ffcf sta $05f4,x jsr $ffcf sta $d9f4,x jsr $ffcf sta $06ee,x jsr $ffcf sta $daee,x inx cpx #$fa bne loop jsr $ffcc lda $b8 jsr $ffc3 rts
$$ | %% | AT | CALL | CENTER | CHECK | COLD | COLOR | COPY | CLS | CSET | D! | D!PEEK | D!POKE | DIR | DISK | DISPLAY | DIV | DO | DO NULL | DRAW TO | DUMP | DUP | ELSE | ERROR | EXEC | FETCH | FIND | GRAPHICS | INSERT | INST | JOY | KEY | KEYGET | LIN | MAP | MEMCLR | MEMCONT | MEMDEF | MEMLEN | MEMLOAD | MEMOR | MEMPEEK | MEMPOS | MEMREAD | MEMRESTORE | MEMSAVE | MERGE | MOB ON/OFF | MOBCOL | MOD | MOVE | MULTI | NRM | ON ERROR | ON KEY | OPTION | OUT | PAGE | PAINT | PAUSE | PLACE | RENUMBER | RESUME | RETRACE | SCRLD | SCRSV | SOUND | TEXT | TRACE | USE | WAVE | X!
