mirror of
https://github.com/Tolik-Trek/ZX-SP-ROMs.git
synced 2026-06-15 09:21:45 +03:00
51 lines
1.1 KiB
NASM
Executable File
51 lines
1.1 KiB
NASM
Executable File
;€„<E282AC>…‘: #0073 § £à㧪 ¡«®ª ¨§ ROM-Disk
|
||
;¢å: h - ®¬¥à áâà ¨æë á ä ©«®¬
|
||
; l - ᬥ饨¥ ¢ ¯ à £à ä å ®â ç « ROM-disk ¢ í⮩ áâà ¨æ¥
|
||
; b - à §¬¥à ¢ ¯ à £à ä å
|
||
;¢ëå: b - ®áâ «®áì ¥§ £à㦥ëå ¯ à £à 䮢
|
||
; l - ®¬¥à ®ç¥à¥¤®£® ¯ à £à ä
|
||
;
|
||
x0073 ld c,#00
|
||
ld de,(#0070) ;e - ç «® ROM-disk ¢ ¯ à £à ä å, d - ¢á¥£® ¯ à £à 䮢
|
||
ld a,l
|
||
or a
|
||
jr nz,x007F
|
||
ld l,e
|
||
ld a,e
|
||
x007F sub e
|
||
ld e,a
|
||
ld a,d
|
||
sub e
|
||
ld e,a ;e - ¯ à £à 䮢 ®â ç « ¡«®ª ¤® ª®æ áâà ¨æë
|
||
ld a,b
|
||
sub e
|
||
jr nc,x008F ;¯à®¤®«¦¥¨¥ ¡«®ª ¢ á«¥¤ãî饩 áâà ¨æ¥
|
||
xor a ;¡«®ª 楫¨ª®¬ ¢ í⮩ áâà ¨æ¥
|
||
push af
|
||
call x0099 ;ª®¯¨à®¢ ¨¥ ¡«®ª ¢ ¯ ¬ïâì
|
||
pop bc
|
||
ret
|
||
x008F inc h ;㢥«¨ç¨¬ ®¬¥à áâà ¨æë
|
||
push af ;§ ¯®¬¨¬ ª®«-¢® ¥§ £à㦥ëå ¯ à £à 䮢
|
||
ld b,e
|
||
call x0099 ;ª®¯¨à®¢ ¨¥ ¡«®ª ¢ ¯ ¬ïâì
|
||
pop bc
|
||
ld l,#00
|
||
ret
|
||
;ª®¯¨à®¢ ¨¥ ¡«®ª ¢ ¯ ¬ïâì
|
||
;¢å: l - ®¬¥à ¯¥à¢®£® ¯ à £à ä
|
||
; b - ª®«-¢® ¯ à £à 䮢
|
||
; c=#00
|
||
;¢ëå: a,l - ®¬¥à ®ç¥à¥¤®£® ¯ à £à ä
|
||
x0099 push hl
|
||
ld h,l
|
||
ld l,c
|
||
ld de,(xE7BE)
|
||
ldir
|
||
ld (xE7BE),de
|
||
ld a,h
|
||
pop hl
|
||
ld l,a
|
||
ret
|
||
;x00AA
|