Code: Select all
format zx81
;labelusenumeric
;LISTON
// hardware options to be set and change defaults in ZX81DEF.INC
MEMAVL = MEM_1K // 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 '' // any message will be shown on screen after loading, max. 32 chars
include '..\SINCL-ZX\ZX81.INC' // definitions of constants
AUTORUN:
RAND USR _hide #start
start:
ld hl, (D_FILE)
ld de,0009
add hl,de
ld c,$10
loop0:
ld b,$20
loop1:
bit 6, (hl)
jr z, nohalt
inc hl
nohalt:
ld a,$82
ld (hl),a
inc hl
djnz loop1
dec c
jr nz, loop0
loop2:
jr loop2
DFILE_ADDR:
// include '..\SINCL-ZX\ZX81DISP.INC' ; include D_FILE and needed memory areas
db NEWLINE
db 6 dup($1C),NEWLINE
db NEWLINE
Main_Screen:
repeat 20
db 32 dup(0),NEWLINE
end repeat
db 2 dup (NEWLINE)
VARS_ADDR:
db 80h
WORKSPACE: