Немного Beeper

 Нашел интересную программу Beep Effects(Pedro Freire 1986) на блоге Planeta Sinclair, который иногда радует такими находками(:

org 0FDE8h
ld b, 3 ; entry 1
loc_FDEA:
push bc
ld hl, 0Fh
loc_FDEE:
ld de, 28h
push hl
call 3B5h
pop hl
ld de, 4
and a
adc hl, de
ld a, l
cp 0FFh
jr nz, loc_FDEE
pop bc
djnz loc_FDEA
ret
db    0
; ---------------------------------------------------------------------------
ld b, 14h ; entry 2
loc_FE08:
push bc
ld hl, 300h
loc_FE0C:
ld de, 1
push hl
call 3B5h
pop hl
ld de, 10h
and a
sbc hl, de
jr nz, loc_FE0C
pop bc
djnz loc_FE08
ret
db    0
db    0
db    0
db    0
; ---------------------------------------------------------------------------
ld b, 5 ; entry 3
loc_FE26:
push bc
ld hl, 0Fh
loc_FE2A:
ld de, 28h
push hl
call 3B5h
pop hl
ld de, 10h
and a
adc hl, de
ld a, l
cp 0FFh
jr nz, loc_FE2A
pop bc
djnz loc_FE26
ret
db    0
; ---------------------------------------------------------------------------
ld b, 2 ; entry 4
loc_FE44:
push bc
ld hl, 600h
loc_FE48:
ld de, 5
push hl
call 3B5h
pop hl
ld de, 8
and a
sbc hl, de
jr nz, loc_FE48
pop bc
djnz loc_FE44
ret
db    0
db    0
db    0
db    0
; ---------------------------------------------------------------------------
ld b, 32h     ; entry 5
loc_FE62:
push bc
ld hl, 100h
loc_FE66:
ld de, 1
push hl
call 3B5h
pop hl
ld de, 10h
and a
sbc hl, de
jr nz, loc_FE66
pop bc
djnz loc_FE62
ret
db    0
db    0
db    0
db    0
db  64h

Оригинал+.trd