Code: Alles auswählen
format zx81
;labelusenumeric
;LISTOFF
MEMAVL = MEM_48K
STARTMODE EQU SLOW_MODE
DFILETYPE EQu AUTO
STARTUPMSG EQU 'PEBISOFT'
include 'd:\zx81\SINCL-ZX\ZX81.INC'
;LISTON
AUTOLINE 10
REM EIN BASASM-PROGRAMM
20 REM _asm
ld l,37
label1:
inc l
ld a,l
RST $10
cp 69
jp nz,label1
RET
END _asm
AUTORUN:
RAND USR #20#
include 'd:\zx81\SINCL-ZX\ZX81DISP.INC'
VARS_ADDR:
WORKSPACE:
assert ($-MEMST)<MEMAVL
Diese funktioniert :
Code: Alles auswählen
format zx81
;labelusenumeric
;LISTOFF
MEMAVL = MEM_48K
STARTMODE EQU SLOW_MODE
DFILETYPE EQu AUTO
STARTUPMSG EQU 'PEBISOFT'
include 'd:\zx81\SINCL-ZX\ZX81.INC'
;LISTON
AUTOLINE 10
label100:
REM _asm
ld l,37
label1:
inc l
ld a,l
RST $10
cp 69
jp nz,label1
RET
END _asm
RAND USR #label100
include 'd:\zx81\SINCL-ZX\ZX81DISP.INC'
VARS_ADDR:
WORKSPACE:
assert ($-MEMST)<MEMAVL
Danke.
Gruss