Код:
device zxspectrum48
prtmap = 2 ;1 rk
if prtmap = 1
crtprt0 = $C000
crtprt1 = $C001 ;$EF01
dmaprt0 = $F000 ;$E000
dmaprt4 = $F004
dmaprt8 = $F008
endif
if prtmap = 2
crtprt0 = $EF00
crtprt1 = $EF01 ;$EF01
dmaprt0 = $F000 ;$E000
dmaprt4 = $F004
dmaprt8 = $F008
keyprt0 = $ED00
keyprt1 = $ED01
endif
org $0000
beginfile
defb high startaddr,low startaddr
defb high endaddr, low endaddr
startaddr
ei
xor a
ld (keyprt0),a
init
ld hl,vsync
i1 ld (hl),$7E ;ld a,(hl)
inc hl
ld (hl),$A2 ;and a,d
inc hl
ld (hl),$C0 ;ret nz
;;; ld (hl),$C8 ;ret z
inc hl
ld a,h
cp $c0
jp nz,i1
ld (hl),$C3
inc hl
ld (hl),low vsync
inc hl
ld (hl),high vsync
;---------------------------------------------------------
res
ld d,$20
ld e,$01
ld bc,keyprt1
di
ld hl,crtprt1
ld a,(hl)
call vsync ;22
ld (hl),$00 ;0000 0000 reset
dec l
ld (hl),77 ;SHHH HHHH 0normal rows ; 78 ширина экрана знакомест
ld (hl),$FF;63 ;VVRR RRRR 00 1char строка КСИ
ld (hl),$40 ;UUUU LLLL
ld (hl),$13;$13 ;$93;$13;MFCC ZZZZ
inc l
ld hl,dmaprt8 ;10
ld (hl),$80 ;Установка автозагрузки
ld l,$04 ;канал 2 начальный адрес ;7t
ld (hl),low scr ;
ld (hl),high scr ;
inc l ;канал 2 количество циклов
ld (hl),$FF ;23
ld (hl),$53 ;49 ;mmss ssss
ld l,$08 ;Запись в РгР
ld (hl),$A4 ;Разрешение ПД ДЛЯ КАНАЛА 2
;УСТАНОВКА УДЛИНЕННОЙ ЗАПИСИ
;УСТАНОВКА АВТОЗАГРУЗКИ
;---------------------------------------------------------
ld hl,crtprt1
;39t
dup 5
ld a,a
edup
nop
jp l0start
;109
;---------------------------------------------------------
l0 call vsync ;22
ld (hl),$00 ;0000 0000 reset
dec l
ld (hl),77 ;SHHH HHHH 0normal rows ; 78 ширина экрана знакомест
ld (hl),$FF;63 ;VVRR RRRR 00 1char строка КСИ
ld (hl),$40 ;UUUU LLLL
ld (hl),$13 ;$13;$93;$13;MFCC ZZZZ
inc l
l0start
;start display
ld (hl),$23;$27 ;001S SSBB ;7 dma pause; 8bytes 23no pause
ld a,a
ld a,a
ld a,a
nop
nop ;23
;---------------------------------------------------------
l1 call vsync
ld (hl),$00 ;0000 0000 reset
dec l
ld (hl),77 ;SHHH HHHH 0normal rows ; 78 ширина экрана знакомест
ld (hl),63 ;VVRR RRRR 00 1char строка КСИ
ld (hl),$40 ;UUUU LLLL
ld (hl),$13 ;$13;$93;$13;MFCC ZZZZ
inc l
;start display
ld (hl),$23;$27 ;001S SSBB ;7 dma pause; 8bytes 23no pause
ld a,a
ld a,a
ld a,a
nop
nop ;23
;---------------------------------------------------------
l2 call vsync
ld (hl),$00 ;0000 0000 reset
dec l
ld (hl),77 ;SHHH HHHH 0normal rows ; 78 ширина экрана знакомест
ld (hl),63 ;VVRR RRRR 00 1char строка КСИ
ld (hl),$40 ;UUUU LLLL
ld (hl),$13 ;$13;$93;$13;MFCC ZZZZ
inc l
;start display
ld (hl),$23;$27 ;001S SSBB ;7 dma pause; 8bytes 23no pause
ld (hl),$A0 ;разрешить прерывания - КАК ОНО ЗДЕСЬ ОКАЗАЛОСЬ? о_О
ld a,a
ld a,a
ld a,a
nop
nop ;23
;---------------------------------------------------------
l3 call vsync
ld (hl),$00 ;0000 0000 reset
dec l
ld (hl),77 ;SHHH HHHH 0normal rows ; 78 ширина экрана знакомест
ld (hl),63 ;VVRR RRRR 00 1char строка КСИ
ld (hl),$40 ;UUUU LLLL
ld (hl),$13 ;$13;$93;$13;MFCC ZZZZ
inc l
;start display
ld (hl),$23;$27 ;001S SSBB ;7 dma pause; 8bytes 23no pause
ld a,a
ld a,a
ld a,a
nop
nop ;23
;---------------------------------------------------------
l4 call vsync
ld (hl),$00 ;0000 0000 reset
dec l
ld (hl),77 ;SHHH HHHH 0normal rows ; 78 ширина экрана знакомест
ld (hl),63 ;VVRR RRRR 00 1char строка КСИ
ld (hl),$40 ;UUUU LLLL
ld (hl),$13 ;$93;$13;MFCC ZZZZ
inc l
;start display
ld (hl),$23;$27 ;001S SSBB ;7 dma pause; 8bytes 23no pause
ld a,(BC) ;7 keyprt1
and e ;4 11 2t lose
jp nz,l0 ;10 10
ei
ld a,$FF
w1 ld a,a
ld a,a
ld a,a
ld a,a
ld a,a
dec a
jp nz,w1
jp res ;10
scr
define _ 3,
define J 1,
define L 2,
define U 0,
defb J J J J J J J J J J J J J J J $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb _ J _ L L U L J U J U _ _ J _ $F1
defb _ J _ L _ L J J _ J _ _ _ U _ $F1
defb _ J U L L U L J U J U _ J U _ $F1
defb _ J _ L L L J J _ _ J _ U U _ $F1
defb _ J _ L L L J J U J U J U U _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ U U U _ $F1
defb _ _ _ _ _ _ _ U _ _ J U U U _ $F1
defb _ _ _ _ _ _ _ U _ _ U U U U _ $F1
defb _ _ _ _ _ _ U _ _ J U U U L _ $F1
defb _ _ _ _ _ _ U _ _ U U U U _ _ $F1
defb _ _ _ _ _ U _ _ J U U U L _ _ $F1
defb _ _ _ _ _ U _ _ U U U U _ _ _ $F1
defb _ _ _ _ U _ _ J U U U L _ _ _ $F1
defb _ _ _ _ U _ _ U U U U _ _ _ _ $F1
defb _ _ _ U _ _ J U U U L _ _ _ _ $F1
defb _ _ _ U _ _ U U U U _ _ _ _ _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb L _ L _ L _ L _ L _ L _ L _ L $F1
defb J _ J _ J _ J _ J _ J _ J _ J $F1
defb _ L _ L _ L _ L _ L _ L _ L _ $F1
defb _ J _ J _ J _ J _ J _ J _ J _ $F1
defb L J _ L J _ L J _ L J _ L J _ $F1
defb J _ L J _ L J _ L J _ L J _ L $F1
defb _ L J _ L J _ L J _ L J _ L J $F1
defb L J _ L J _ L J _ L J _ L J _ $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb L L L L L L L L L L L L L L L $F1
defb U U U U U U U U U U U U U U U $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ J _ L L U L J U J U _ _ _ $F1
defb U _ J _ L _ L J J _ J _ _ _ _ $F1
defb U _ J U L L U L J U J U _ _ _ $F1
defb U _ J _ L L L J J _ _ J _ _ _ $F1
defb U _ J _ L L L J J U J U _ _ _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ J _ L L _ _ _ _ _ _ L _ $F1
defb U _ _ J _ L _ _ _ _ _ _ J L _ $F1
defb U _ _ J U L L _ _ _ _ _ _ L _ $F1
defb U _ _ J _ L L _ _ _ _ _ _ L _ $F1
defb U _ _ J _ L L _ _ _ _ _ J U _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ _ J _ L L U L J U J U _ $F1
defb U _ _ _ J _ L _ L J J _ J _ _ $F1
defb U _ _ _ J U L L U L J U J U _ $F1
defb U _ _ _ J _ L L L J J _ _ J _ $F1
defb U _ _ _ J _ L L L J J U J U _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ _ _ J _ L L U L J U J U $F1
defb U _ _ _ _ J _ L _ L J J _ J _ $F1
defb U _ _ _ _ J U L L U L J U J U $F1
defb U _ _ _ _ J _ L L L J J _ _ J $F1
defb _ _ _ _ _ J _ L L L J J U J U $F1 ;1024
defb J J J J J J J J J J J J J J J $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb _ J _ L L U L J U J U _ _ J _ $F1
defb _ J _ L _ L J J _ J _ _ _ U _ $F1
defb _ J U L L U L J U J U _ J U _ $F1
defb _ J _ L L L J J _ _ J _ U U _ $F1
defb _ J _ L L L J J U J U J U U _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ U U U _ $F1
defb _ _ _ _ _ _ _ U _ _ J U U U _ $F1
defb _ _ _ _ _ _ _ U _ _ U U U U _ $F1
defb _ _ _ _ _ _ U _ _ J U U U L _ $F1
defb _ _ _ _ _ _ U _ _ U U U U _ _ $F1
defb _ _ _ _ _ U _ _ J U U U L _ _ $F1
defb _ _ _ _ _ U _ _ U U U U _ _ _ $F1
defb _ _ _ _ U _ _ J U U U L _ _ _ $F1
defb _ _ _ _ U _ _ U U U U _ _ _ _ $F1
defb _ _ _ U _ _ J U U U L _ _ _ _ $F1
defb _ _ _ U _ _ U U U U _ _ _ _ _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb L _ L _ L _ L _ L _ L _ L _ L $F1
defb J _ J _ J _ J _ J _ J _ J _ J $F1
defb _ L _ L _ L _ L _ L _ L _ L _ $F1
defb _ J _ J _ J _ J _ J _ J _ J _ $F1
defb L J _ L J _ L J _ L J _ L J _ $F1
defb J _ L J _ L J _ L J _ L J _ L $F1
defb _ L J _ L J _ L J _ L J _ L J $F1
defb L J _ L J _ L J _ L J _ L J _ $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb L L L L L L L L L L L L L L L $F1
defb U U U U U U U U U U U U U U U $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ J _ L L U L J U J U _ _ _ $F1
defb U _ J _ L _ L J J _ J _ _ _ _ $F1
defb U _ J U L L U L J U J U _ _ _ $F1
defb U _ J _ L L L J J _ _ J _ _ _ $F1
defb U _ J _ L L L J J U J U _ _ _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ J _ L L _ _ _ _ _ U L _ $F1
defb U _ _ J _ L _ _ _ _ _ _ _ J _ $F1
defb U _ _ J U L L _ _ _ _ _ _ L _ $F1
defb U _ _ J _ L L _ _ _ _ _ J _ _ $F1
defb U _ _ J _ L L _ _ _ _ _ U U _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ _ J _ L L U L J U J U _ $F1
defb U _ _ _ J _ L _ L J J _ J _ _ $F1
defb U _ _ _ J U L L U L J U J U _ $F1
defb U _ _ _ J _ L L L J J _ _ J _ $F1
defb U _ _ _ J _ L L L J J U J U _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ _ _ J _ L L U L J U J U $F1
defb U _ _ _ _ J _ L _ L J J _ J _ $F1
defb U _ _ _ _ J U L L U L J U J U $F1
defb U _ _ _ _ J _ L L L J J _ _ J $F1
defb _ _ _ _ _ J _ L L L J J U J U $F1 ;1024
defb J J J J J J J J J J J J J J J $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb _ J _ L L U L J U J U _ _ J _ $F1
defb _ J _ L _ L J J _ J _ _ _ U _ $F1
defb _ J U L L U L J U J U _ J U _ $F1
defb _ J _ L L L J J _ _ J _ U U _ $F1
defb _ J _ L L L J J U J U J U U _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ U U U _ $F1
defb _ _ _ _ _ _ _ U _ _ J U U U _ $F1
defb _ _ _ _ _ _ _ U _ _ U U U U _ $F1
defb _ _ _ _ _ _ U _ _ J U U U L _ $F1
defb _ _ _ _ _ _ U _ _ U U U U _ _ $F1
defb _ _ _ _ _ U _ _ J U U U L _ _ $F1
defb _ _ _ _ _ U _ _ U U U U _ _ _ $F1
defb _ _ _ _ U _ _ J U U U L _ _ _ $F1
defb _ _ _ _ U _ _ U U U U _ _ _ _ $F1
defb _ _ _ U _ _ J U U U L _ _ _ _ $F1
defb _ _ _ U _ _ U U U U _ _ _ _ _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb L _ L _ L _ L _ L _ L _ L _ L $F1
defb J _ J _ J _ J _ J _ J _ J _ J $F1
defb _ L _ L _ L _ L _ L _ L _ L _ $F1
defb _ J _ J _ J _ J _ J _ J _ J _ $F1
defb L J _ L J _ L J _ L J _ L J _ $F1
defb J _ L J _ L J _ L J _ L J _ L $F1
defb _ L J _ L J _ L J _ L J _ L J $F1
defb L J _ L J _ L J _ L J _ L J _ $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb L L L L L L L L L L L L L L L $F1
defb U U U U U U U U U U U U U U U $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ J _ L L U L J U J U _ _ _ $F1
defb U _ J _ L _ L J J _ J _ _ _ _ $F1
defb U _ J U L L U L J U J U _ _ _ $F1
defb U _ J _ L L L J J _ _ J _ _ _ $F1
defb U _ J _ L L L J J U J U _ _ _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ J _ L L _ _ _ _ _ U L _ $F1
defb U _ _ J _ L _ _ _ _ _ _ _ J _ $F1
defb U _ _ J U L L _ _ _ _ _ J L _ $F1
defb U _ _ J _ L L _ _ _ _ _ _ J _ $F1
defb U _ _ J _ L L _ _ _ _ _ U L _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ _ J _ L L U L J U J U _ $F1
defb U _ _ _ J _ L _ L J J _ J _ _ $F1
defb U _ _ _ J U L L U L J U J U _ $F1
defb U _ _ _ J _ L L L J J _ _ J _ $F1
defb U _ _ _ J _ L L L J J U J U _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ _ _ J _ L L U L J U J U $F1
defb U _ _ _ _ J _ L _ L J J _ J _ $F1
defb U _ _ _ _ J U L L U L J U J U $F1
defb U _ _ _ _ J _ L L L J J _ _ J $F1
defb _ _ _ _ _ J _ L L L J J U J U $F1 ;1024
defb J J J J J J J J J J J J J J J $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb _ J _ L L U L J U J U _ _ J _ $F1
defb _ J _ L _ L J J _ J _ _ _ U _ $F1
defb _ J U L L U L J U J U _ J U _ $F1
defb _ J _ L L L J J _ _ J _ U U _ $F1
defb _ J _ L L L J J U J U J U U _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ U U U _ $F1
defb _ _ _ _ _ _ _ U _ _ J U U U _ $F1
defb _ _ _ _ _ _ _ U _ _ U U U U _ $F1
defb _ _ _ _ _ _ U _ _ J U U U L _ $F1
defb _ _ _ _ _ _ U _ _ U U U U _ _ $F1
defb _ _ _ _ _ U _ _ J U U U L _ _ $F1
defb _ _ _ _ _ U _ _ U U U U _ _ _ $F1
defb _ _ _ _ U _ _ J U U U L _ _ _ $F1
defb _ _ _ _ U _ _ U U U U _ _ _ _ $F1
defb _ _ _ U _ _ J U U U L _ _ _ _ $F1
defb _ _ _ U _ _ U U U U _ _ _ _ _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb L _ L _ L _ L _ L _ L _ L _ L $F1
defb J _ J _ J _ J _ J _ J _ J _ J $F1
defb _ L _ L _ L _ L _ L _ L _ L _ $F1
defb _ J _ J _ J _ J _ J _ J _ J _ $F1
defb L J _ L J _ L J _ L J _ L J _ $F1
defb J _ L J _ L J _ L J _ L J _ L $F1
defb _ L J _ L J _ L J _ L J _ L J $F1
defb L J _ L J _ L J _ L J _ L J _ $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb L L L L L L L L L L L L L L L $F1
defb U U U U U U U U U U U U U U U $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ J _ L L U L J U J U _ _ _ $F1
defb U _ J _ L _ L J J _ J _ _ _ _ $F1
defb U _ J U L L U L J U J U _ _ _ $F1
defb U _ J _ L L L J J _ _ J _ _ _ $F1
defb U _ J _ L L L J J U J U _ _ _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ J _ L L _ _ _ _ _ L J _ $F1
defb U _ _ J _ L _ _ _ _ _ _ L J _ $F1
defb U _ _ J U L L _ _ _ _ _ U U _ $F1
defb U _ _ J _ L L _ _ _ _ _ _ J _ $F1
defb U _ _ J _ L L _ _ _ _ _ _ J _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ _ J _ L L U L J U J U _ $F1
defb U _ _ _ J _ L _ L J J _ J _ _ $F1
defb U _ _ _ J U L L U L J U J U _ $F1
defb U _ _ _ J _ L L L J J _ _ J _ $F1
defb U _ _ _ J _ L L L J J U J U _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ _ _ J _ L L U L J U J U $F1
defb U _ _ _ _ J _ L _ L J J _ J _ $F1
defb U _ _ _ _ J U L L U L J U J U $F1
defb U _ _ _ _ J _ L L L J J _ _ J $F1
defb _ _ _ _ _ J _ L L L J J U J U $F1 ;1024
defb J J J J J J J J J J J J J J J $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb _ J _ L L U L J U J U _ _ J _ $F1
defb _ J _ L _ L J J _ J _ _ _ U _ $F1
defb _ J U L L U L J U J U _ J U _ $F1
defb _ J _ L L L J J _ _ J _ U U _ $F1
defb _ J _ L L L J J U J U J U U _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ U U U _ $F1
defb _ _ _ _ _ _ _ U _ _ J U U U _ $F1
defb _ _ _ _ _ _ _ U _ _ U U U U _ $F1
defb _ _ _ _ _ _ U _ _ J U U U L _ $F1
defb _ _ _ _ _ _ U _ _ U U U U _ _ $F1
defb _ _ _ _ _ U _ _ J U U U L _ _ $F1
defb _ _ _ _ _ U _ _ U U U U _ _ _ $F1
defb _ _ _ _ U _ _ J U U U L _ _ _ $F1
defb _ _ _ _ U _ _ U U U U _ _ _ _ $F1
defb _ _ _ U _ _ J U U U L _ _ _ _ $F1
defb _ _ _ U _ _ U U U U _ _ _ _ _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb L _ L _ L _ L _ L _ L _ L _ L $F1
defb J _ J _ J _ J _ J _ J _ J _ J $F1
defb _ L _ L _ L _ L _ L _ L _ L _ $F1
defb _ J _ J _ J _ J _ J _ J _ J _ $F1
defb L J _ L J _ L J _ L J _ L J _ $F1
defb J _ L J _ L J _ L J _ L J _ L $F1
defb _ L J _ L J _ L J _ L J _ L J $F1
defb L J _ L J _ L J _ L J _ L J _ $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb L L L L L L L L L L L L L L L $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb J J J J J J J J J J J J J J J $F1
defb U U U U U U U U U U U U U U U $F1
defb L L L L L L L L L L L L L L L $F1
defb U U U U U U U U U U U U U U U $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ J _ L L U L J U J U _ _ _ $F1
defb U _ J _ L _ L J J _ J _ _ _ _ $F1
defb U _ J U L L U L J U J U _ _ _ $F1
defb U _ J _ L L L J J _ _ J _ _ _ $F1
defb U _ J _ L L L J J U J U _ _ _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ J _ L L _ _ _ _ _ U U _ $F1
defb U _ _ J _ L _ _ _ _ _ _ L _ _ $F1
defb U _ _ J U L L _ _ _ _ _ U L _ $F1
defb U _ _ J _ L L _ _ _ _ _ _ J _ $F1
defb U _ _ J _ L L _ _ _ _ _ U L _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ _ J _ L L U L J U J U _ $F1
defb U _ _ _ J _ L _ L J J _ J _ _ $F1
defb U _ _ _ J U L L U L J U J U _ $F1
defb U _ _ _ J _ L L L J J _ _ J _ $F1
defb U _ _ _ J _ L L L J J U J U _ $F1
defb U _ _ _ _ _ _ _ _ _ _ _ _ _ _ $F1
defb U _ _ _ _ J _ L L U L J U J U $F1
defb U _ _ _ _ J _ L _ L J J _ J _ $F1
defb U _ _ _ _ J U L L U L J U J U $F1
defb U _ _ _ _ J _ L L L J J _ _ J $F1
defb _ _ _ _ _ J _ L L L J J U J U $F1 ;1024
undefine _
undefine J
undefine L
undefine U
vsync
;ld a,(hl) ;7
;and a,d ;4
;ret nz ;5/11
;16 ;22
;разброс 12 знакомест
endaddr
lua pass3
startaddr = (_c("startaddr"))
endaddr = (_c("endaddr"))
csum = 0
for cnt = startaddr,endaddr - 1,1 do
csum = (csum + (sj.get_byte(cnt) * 257)) % 65536
end
_pl("csum = "..csum)
print (csum)
endlua
display csum and $FFFF
; defb 0,$E6,high csum,low csum ;rk*
defb 0,0,$E6,high csum,low csum ;rk
endfile
savebin "hrs_00_0.rka", beginfile, endfile-beginfile
самое интересное что на фотках после перезапуска