Code: Alles auswählen

100 GRAPHICS 7+16
110 COLOR 1:PLOT 5,5:DRAWTO 155,5:DRAWTO 155,75:DRAWTO 5,75:DRAWTO 5,5
120 COLOR 3:CIRCLE 80,40,35
130 PAINT 80,40:COLOR 1:PAINT 6,6:PAINT 100,6:COLOR 2:PAINT 0,0
200 RESTORE 1010
210 FOR I=1 TO 16
220   READ BANK
230   POKE 54017,BANK
240   Z=1:COLOR 2:TEXT 50,35,"BANK":TEXT 85,35,I:TEXT 105,35,Z:Z=Z+1
250   MOVE DPEEK(88),16384,7680
260   TEXT 105,35,Z
270   MOVE DPEEK(88),16384+$2000,7680
280 NEXT I
290 POKE 54017,254
300 RESTORE 1010
310 GRAPHICS 7+16
320 a=dpeek(560)
330 a=a+4
340 FOR I=1 TO 16
350   READ BANK
360   POKE 54017,BANK
370   dpoke a,$4000
380   GET KEY
390   dpoke a,$4000+$2000
400   GET KEY
410 NEXT I
420 POKE 54017,254
1000 REM BANKDATEN (COMPY-SHOP)
1010 DATA 238,234,230,226
1020 DATA 174,170,166,162
1030 DATA 110,106,102,98
1040 DATA 46,42,38,34


Code: Alles auswählen

1000 REM BANKDATEN (COMPY-SHOP)
1010 DATA 206,202,198,192
1020 DATA 142,138,132,128
1030 DATA 78,74,68,62
1040 DATA 14,10,6,2


Code: Alles auswählen

100 GRAPHICS 7+16
101 COLOR 1
102 CIRCLE 80,40,35
103 COLOR 2
104 TEXT 50,35,"IN ARBEIT"
110 A=DPEEK(560)+4
120 DPOKE 88,$4000
130 POKE 54017,206
140 COLOR 1:PLOT 5,5:DRAWTO 155,5:DRAWTO 155,75:DRAWTO 5,75:DRAWTO 5,5
150 COLOR 3:CIRCLE 80,40,35
160 PAINT 80,40:COLOR 1:PAINT 6,6:PAINT 100,6:COLOR 2:PAINT 0,0
170 FOR B=0 TO 3000:NEXT B
180 DPOKE A,$4000
190 FOR B=0 TO 3000:NEXT B
200 POKE 54017,254


PacMan hat geschrieben:Die Warteschleife kannst Du auch mit "PAUSE 300" machen. Bei LOMEM $80,$81 kann man die Startadresse für das Basic-Programm festlegen. Das wäre dann Poke 128,0 und Poke 129,128 für $8000. Ob das im TBasic funktioniert kann ich aber nicht sagen.

Die höhere Startadresse muss man vor der Initialisierung des (Tutbo-) Basic setzen.

743,744 2E7,2E8 MEMLO

Pointer to the bottom of free memory, initialized to 1792 ($700)
and updated by the presence of DOS or any other low-memory
application program. It is used by the OS; the BASIC pointer to
the bottom of free memory is at locations 128, 129 ($80, $81). The
value in MEMLO is never altered by the OS after powerup.

This is the address of the first free location in RAM available for
program use. Set after all FMS buffers have been allocated (see
locations 1801 and 1802; $709 and $70A). The address of the last
sector buffer is incremented by 128 (the buffer size in bytes) and
the value placed in MEMLO. The value updates on powerup or
when RESET is pressed. This value is passed back to locations
128, 129 ($80, $81) on the execution of the BASIC NEW
command, but not RUN, LOAD or RESET.

If you are reserving space for your own device driver(s) or
reserving buffer space, you load your routine into the address
specified by MEMLO, add the size of your routine to the MEMLO
value, and POKE the new value plus one back into MEMLO.

When you don't have DOS or any other application program
using low-memory resident, MEMLO points to 1792 ($700. With
DOS 2.0 present, MEMLO points to 7420 ($1CFC). If you change
the buffer defaults mentioned earlier, you will raise or lower this
latter value by 128 ($80) bytes for every buffer added or deleted,
respectively. When you boot up the 850 Interface with or without
disk, you add another 1728 ($6C0) bytes to the value in MEMLO.

You can alter MEMLO to protect an area of memory below your
program. This is an alternative to protecting an area above
RAMTOP (location 106; $6A) and avoids the problem of the
CLEAR SCREEN routine destroying data. However, unless you
have created a MEM.SAV file, the data will be wiped out when
you call DOS. To alter MEMLO, you start by POKEing WARMST
(location with zero, then doing a JMP to the BASIC cartridge
entry point at 40960($A000) after defining your area to protect.
For example, try this:

10 DIM MEM$(24):PROTECT=700:REM NUMBE
R OF BYTES TO CHANGE
15 HIBYTE=INT(PROTECT/256):LOBYTE=PRO
TECT-256*HIBYTE
20 FOR N=1 TO 24:READ PRG:MEM$(N)=CHR
$(PRG):NEXT N
30 MEM$(6,6)=CHR$(LOBYTE):MEM$(14,14)
=CHR$(HIBYTE)
40 RESERVE=USR(ADR(MEM$))
50 DATA 24,173,231,2,105,0,141,231,2,
173,232,2,105
60 DATA 0,141,232,2,169,0,133,8,76,0,
160

You will find the address of your reserved memory by: PRINT
PEEK(743) + PEEK(744) * 256 before you run the program. This
program will wipe itself out when run. Altering MEMLO is the
method used by both DOS and the RS-232 port driver in the 850
Interface. See COMPUTE!, July 1981.