Danke.
Gruss
Code: Alles auswählen
format zx81
;labelusenumeric
;LISTOFF
// hardware options to be set and change defaults in ZX81DEF.INC
MEMAVL = MEM_48K // can be MEM_1K, MEM_2K, MEM_4K, MEM_8K, MEM_16K, MEM_32K, MEM_48K
// default value is MEM_16K
STARTMODE EQU SLOW_MODE // SLOW or FAST
DFILETYPE EQU AUTO // COLLAPSED or EXPANDED or AUTO
// STARTUPMSG EQU 'CREATED WITH ZX81-IDE' // any message will be shown on screen after loading, max. 32 chars
include 'd:\zx81\SINCL-ZX\ZX81.INC' // definitions of constants
;LISTON
AUTOLINE 10
REM EIN BASASM-PROGRAMM
20 REM _asm
LD A,,'A'
RST $10
RET
label1:
LD BC,11111
RET
label2:
LD A,,'B'
RST $10
RET
END _asm
RAND USR #label1
RAND USR #20#
print sinus(45)
RAND USR #label2
print cosinus(45)
PRINT USR #label1
include 'd:\zx81\SINCL-ZX\ZX81DISP.INC' ; include D_FILE and needed memory areas
VARS_ADDR:
db 80h
WORKSPACE:
assert ($-MEMST)<MEMAVL
// end of program