1

(1 replies, posted in Sinclair)

Hi
i made a dis-assembly from an 'zx 128' prog which is only zx128 by using the AY as 1bit sound engine
i took out the 'recorder' and the 'player' and rewrote them a little bit to make them shorter, relocatable and more equal in apraoch. so its NOT mine !! just working on it a bit

https://worldofspectrum.org/forums/disc … isassembly

2

(2 replies, posted in Sinclair)

btw its sinclair research and not just sinclair !!


Warning! The following errors must be corrected before your message can be posted:

    At least 60 seconds have to pass between posts. Please wait a while and try posting again.

booh!!

3

(2 replies, posted in Sinclair)

Hi
just found this one on POUET
https://www.youtube.com/watch?v=xxUX54_8mQY

i dont know if the coder wrote the player aswell, i disassembled it a bit but i dot just put it online
it seems to have 3 players from which only 1 is used. it seems to have a data-table for multiple 1bit waves.

4

(6 replies, posted in Sinclair)

SherzhSoft s version is close to it
and can be shorter as well ??

;http://www.pouet.net/prod.php?which=87664
;digital opera in 22-2 bytes
;Serzhsoft, 2 bytes removed by cborn

start:
ad00      di
ad01      ld e,c       ; c from basic call = start adres
ad02      ld hl,0x5800

ad05      ld b,h
ad06      ld a,(bc)
ad07      ld e,a
ad08      add a,e
ad09      inc bc
ad0a      dec hl
ad0b      cpl
ad0c      out (0xfe),a
ad0e      sub (hl)
ad0f      ld (hl),a
ad10      cp (hl)
ad11      jr z,ad05

ad13      inc e           ; 'e' will be overwritten and this 'inc' can be removed, OR the loop has to be re-rwritten so it will be increased..... a puzzle!!
ad14      jr ad02


oops sudden rewrite?
in lower memory its funky!!

;http://www.pouet.net/prod.php?which=87664
;digital opera in 22 bytes
;Serzhsoft

start:
ad00      di
ad01      ld e,c       ; c from basic call = start adres
ad02      ld hl,0x5800

ad05      ld b,h
ad06      ld a,(bc)

ad08      add a,a
ad09      inc bc
ad0a      dec hl
ad0b      cpl
ad0c      out (0xfe),a
ad0e      sub (hl)
ad0f      ld (hl),a
ad10      cp (hl)
ad11      jr z,ad05
ad14      jr ad02

5

(6 replies, posted in Sinclair)

like this one?
http://www.pouet.net/prod.php?which=87664

Hi Utz
if i try to make one OUT (254) per scanline then that should give a hiss sound of about 1.5KB per second.

eg this is the start off the interrupt from Bordertron for 16k

; time counter
A_halt            ld a,128            ;  7t        background colour
                  out (254),a         ; 11t[4,3,4] contended
                  ld hl,23672         ; 10t 
                  inc (hl)            ; 11t        256*1/50 sec max =5.12 seconds
                  jr nz,nsec          ; 12t 7+11+10+11+12=52
t2a  equ 7 +11 +10 +11 +12
                                      ; -5t
                  inc hl              ;  6t
                  inc (hl)            ; 11t
                  jr nz,nmin          ; 12t -5+6+11+12=24  = 21.84 minute
t2b  equ 6 +11 +12 -5
t2zx  equ  -5  +6 +11 +12   ; pasmo BUGGED RESULT ! the '-' sign is added AS LAST SUM INFLUENCE by which a false negative number is created !! https://worldofspectrum.org/forums/discussion/comment/967124/#Comment_967124
                                      ; -5t
                  inc hl              ;  6t
                  inc (hl)            ; 11t if 255 aswel, 93.20 hour =3.88 day's are done!
                  jr tdone            ; 12t -5+6+11+12=24
t2c  equ 6 +11 +12 -5

nsec              jr $+2  ;12t
                  jr $+2  ;12t=24
t2b2  equ 12+12
nmin              jr $+2  ;12t
                  jr $+2  ;12t=24
tdone:

t2c2  equ 12+12
t2 equ t2a + t2b + t2c  ;  =99t in 26 bytes
A_tc2  equ A_tc1 + t2

;big key check here
                  ld hl,keys+8        ;10t
                  ld de,keys2+8       ;10t to old key
                  ld bc,8             ;10t
                  lddr                ; 8*21-5 t=163t

                  inc hl              ; 6t 
                  ld bc,0xfefe        ;10t
ky                in a,(c)            ;12t 8 x contended 
                  ld (hl),a           ; 7t
                  inc hl              ; 6t
                  rlc b               ; 8t
                  jp c,ky             ;10t
                                      ;   10+10+10+(8*21)-5 +6+10+ 8*(12+7+6+8+10)= 553 tstate = 2.46875 scanline !!

Now i want to place that OUT 254 on the correct spot for a steady 224 tstate steprate. probably with an EXX. but, thats just the thought.

cborn wrote:

Hello, i have not much to offer. my own sound code it 4-bits for ay. Bit i like asm and z80 code and hope to learn here. I made 2 or 3 dis-assemblies from 1bit speech. there is a 'crosover' routine that uses ay for its 1bit speech , its called "ble-ble' i think.

Hi Utz, not perse 1bit sound but i try to make a spot in it.
but its more the thoughed.
with a 224 scanline procedure you could have a 1 bit sound sqeuch
with about 320 scanlines and 50  frames thats only about 16,000  BITS per second,equ 1,8 KB per second ??

Hello, i have not much to offer. my own sound code it 4-bits for ay. Bit i like asm and z80 code and hope to learn here. I made 2 or 3 dis-assemblies from 1bit speech. there is a 'crosover' routine that uses ay for its 1bit speech , its called "ble-ble' i think.