Sync Magazine v3 n5 page 86 missing

General Chit Chat about Sinclair Computers and their Clones
User avatar
mrtinb
Posts: 1906
Joined: Fri Nov 06, 2015 5:44 pm
Location: Denmark
Contact:

Sync Magazine v3 n5 page 86 missing

Post by mrtinb »

Hi :-)

The index of Sync Magazine mentions an article in volume 3 number 5 that page 86 has the article: "Extensions to Basic".

https://archive.org/details/syncmagazine-v3_n5/page/n85

However page 86 is missing from the scans on archive.org.

Does anyone have this issue?
Martin
https://zx.rtin.be
ZX81, Lambda 8300, Commodore 64, Mac G4 Cube
User avatar
mrtinb
Posts: 1906
Joined: Fri Nov 06, 2015 5:44 pm
Location: Denmark
Contact:

Re: Sync Magazine v3 n5 page 86 missing

Post by mrtinb »

Of the few versions of this issue I find online, they all come from the same scan which misses page 86. :cry:
Martin
https://zx.rtin.be
ZX81, Lambda 8300, Commodore 64, Mac G4 Cube
User avatar
gammaray
Posts: 590
Joined: Sun Apr 17, 2016 2:44 am
Location: Texas

Re: Sync Magazine v3 n5 page 86 missing

Post by gammaray »

I will look at Interlibrary Loans for missing page. It will only cost me $5. :roll:

Update: Might come in Monday... with New Years might be later next week. (if they find it)
Last edited by gammaray on Fri Dec 28, 2018 10:55 pm, edited 1 time in total.
5-TS1000,UK ZX81<-Sheelagh, US ZX81, 2-TS1500/KDLX , 3-TS2040 printer, 2-TS2020 cassette decks, ZXPAND+AY, ZeddyNET, ZXBlast, UDG, ZX8CCB, AERCO, BUILDS/REPAIRS ZX Spectrum, ZX80 Minstrel, ZXMAX48 v1 v2, 2-TS-2068, ROM, 16kRAM
User avatar
mrtinb
Posts: 1906
Joined: Fri Nov 06, 2015 5:44 pm
Location: Denmark
Contact:

Re: Sync Magazine v3 n5 page 86 missing

Post by mrtinb »

They do not have Sync Magazine in the Danish libraries, as it's an American magazine.

I can send you $5 on Revolut or PayPal.
Martin
https://zx.rtin.be
ZX81, Lambda 8300, Commodore 64, Mac G4 Cube
User avatar
gammaray
Posts: 590
Joined: Sun Apr 17, 2016 2:44 am
Location: Texas

Re: Sync Magazine v3 n5 page 86 missing

Post by gammaray »

Consider it a donation to your cause! :)
mrtinb wrote: Fri Dec 28, 2018 10:34 pm They do not have Sync Magazine in the Danish libraries, as it's an American magazine.

I can send you $5 on Revolut or PayPal.
Update: Might come in Monday... with New Years might be later next week. (if they find it)
5-TS1000,UK ZX81<-Sheelagh, US ZX81, 2-TS1500/KDLX , 3-TS2040 printer, 2-TS2020 cassette decks, ZXPAND+AY, ZeddyNET, ZXBlast, UDG, ZX8CCB, AERCO, BUILDS/REPAIRS ZX Spectrum, ZX80 Minstrel, ZXMAX48 v1 v2, 2-TS-2068, ROM, 16kRAM
dessony
Posts: 342
Joined: Tue Oct 29, 2013 2:26 pm
Location: Indiana, USA

Re: Sync Magazine v3 n5 page 86 missing

Post by dessony »

Gammaray and Mrtinb,

Good news, I happen to have a certain SYNC magazine issue with its pages INTACT!
Pages 86 - 89 I scanned these pages into a 600 dpi PDF file. :D :lol:
Extensions to Basic.pdf
(8.67 MiB) Downloaded 309 times
Cheers,

DesSony
dessony
Posts: 342
Joined: Tue Oct 29, 2013 2:26 pm
Location: Indiana, USA

Re: Sync Magazine v3 n5 page 86 missing

Post by dessony »

For my recent post above here, I decided that I am generous and I scanned 4 pages of the certain article and turned it into a file. I checked the opening web-link again. :oops:.... However, here is a scanned page 86 of the certain SYNC magazine issue! :D :lol:
Extensions to Basic _Page 86.pdf
Page 86
(2.23 MiB) Downloaded 279 times


Cheers,

DesSony
User avatar
mrtinb
Posts: 1906
Joined: Fri Nov 06, 2015 5:44 pm
Location: Denmark
Contact:

Re: Sync Magazine v3 n5 page 86 missing

Post by mrtinb »

Wow.

What a great community with abundant help. Thank you.
Martin
https://zx.rtin.be
ZX81, Lambda 8300, Commodore 64, Mac G4 Cube
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Sync Magazine v3 n5 page 86 missing

Post by XavSnap »

Thanks !

We had to type-ins it...

:geek:

Code: Select all


#define ORG  .org       ; TASM cross-assembler definitions
#define equ  .equ
;-----------------------------------

;------- Rom and Ram Symbols -------
EXTERR equ $005B ; Basic Break function ! Ignore line instructions.
CURSEUR equ $8F5 ; Point to PRINT AT DEST.(BC=X,Y)
CHAINE equ $B6B ; PRINT A CHAINE (BC=LEN;DE=TEXT LOC)

; **** SYSTEM VARS ****
RAMTOP equ $4004
D_FILE equ $400C
VARS   equ $4010
E_LINE equ $4014
STKEND equ $401C

; **** ROM ****
NEW    equ $03CB
ROM    equ $149D

ORG 16514
	
; Restore and READ String Routines.  

RESTORE:
	LD HL,16634 
FIND:	LD A,$EA ; CODE "REM" 
	LD BC,$FFFF
	CPIR 
	LD BC,5 
	AND A 
	SBC HL,BC 
	LD A,118 
	CP (HL) 
	JR Z,BELOW 
	ADD HL,BC 
STASH:	LD (16507),HL 
	RET 
BELOW:	ADD HL,BC 
	JR FIND 
READ_CHARACTER: 
	LD HL,(16507) 
	LD A,118 
	CP (HL) 
	CALL Z,FIND 
	LD A,(HL) 
	INC HL 
	JR STASH 
READ_STRING:
	LD HL,(E_LINE) 
	DEC HL 
	PUSH HL 
	DEC HL 
	DEC HL 
	EX (SP),HL 
LOOP1:	PUSH HL 
	CALL READ_CHARACTER 
	POP HL 
	LD B,26 ; CODE"," 
	CP B 
COMA_DONE: 
	JR Z,DONE 
	LD (HL),A 
	INC HL 
INC_LEN: 
	EX (SP),HL 
	INC (HL) 
	JR NZ,NO_CARRY 
	INC HL 
	INC (HL) 
	DEC HL 
NO_CARRY: 
	EX (SP),HL 
DO_MORE: 
	AND A 
	JR NC,LOOP1
DONE:	EX (SP),HL 
	POP HL 
	NOP
	JP ROM 

;FREE MEMORY Routine.  

FREE_MEM:
	LD HL,(STKEND) 
	LD B,H
	LD C,L 
	LD HL,0 
	ADD HL,SP
	CP A 
	SBC HL,BC 
	LD B,H 
	LD C,L 
	RET 

; INSTANT REVERSE Routine. 

IV:	LD HL,(D_FILE) 
	LD B,H 
	LD C,L
	LD D,59
	SLA D
LOOP2:	LD HL,(VARS) 
	LD A,(BC) 
	CP D 
	JR Z,AGAIN
	ADD A,128 
	LD (BC),A 
AGAIN:	INC BC 
	CP A 
	SBC HL,BC 
	JR NZ,LOOP2 
	RET 

; RELOCATION Routine. 

RELOCATE:
	LD HL,(RAMTOP) 
	LD BC,-120
	ADD HL,BC
	PUSH HL
	PUSH HL
	EXX
	POP BC 
	EXX
	LD HL,16514
	POP DE 
	LD BC,120 
	LDIR 
	EXX 
	DEC BC 
	OUT (253),A 
	JP NEW 

.end

Code: Select all

 #Listing 4. 
      0  REM [HEX:\
21,FA,40,3E,EA,01,FF,FF,\
ED,B1,01,05,00,A7,ED,42,\
3E,76,BE,28,05,09,22,7B,\
40,C9,09,18,E6,2A,7B,40,\
3E,76,BE,CC,85,40,7E,23,\
18,EC,2A,14,40,2B,E5,2B,\
2B,E3,E5,CD,9F,40,E1,06,\
5A,B8,28,0D,77,23,E3,34,\
20,03,23,34,2B,E3,A7,30,\
E9,E3,E1,00,C3,9D,14,2A,\
1C,40,44,4D,21,00,00,39,\
BF,ED,42,44,4D,C9,2A,0C,\
40,44,4D,16,3B,CB,22,2A,\
10,40,0A,BA,28,03,C6,80,\
02,03,BF,ED,42,20,F0,C9,\
2A,04,40,01,88,FF,09,E5,\
E5,D9,C1,D9,21,82,40,D1,\
01,78,00,ED,B0,D9,0B,D3,\
FD,C3,CB,03 ]
 1 SAVE "LISTING 4"
 2 LPRINT "LISTING 4",,,,"USE FIRST TWO LINES ONLY WITH EXPANSION MEMORY",,,,"GRAPHICS KEYS IN LINE 30:5374TY5T55885E4W6426LYT58",,
 3 LLIST 10
 4 LPRINT " SLOW ",,," GOTO 10" 
 5 STOP 
10 POKE 16389,68 
20 CLS 
30 PRINT AT VAL "9",VAL "2";"º  »± »± º»";AT VAL "10",VAL "2";"º  º° º° ¼º";AT VAL "11",VAL "2";"ª¹ ±» ±» º°" 
40 FOR Z=NOT PI TO CODE "+" 
50 UNPLOT Z+Z,Z 
55 UNPLOT Z+Z+SGN PI,CODE "F"-Z 
60 NEXT Z 
63 RAND USR VAL "16608" 
70 GOTO CODE "Z" 
[edit]
LD B,$5A ; CODE"," >>>>> LD B,26; CODE","
BASIC PROGRAM not update...
Download the "sync.zip" to retrieve the correct routine.
Last edited by XavSnap on Sat Dec 29, 2018 10:55 pm, edited 1 time in total.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1940
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: Sync Magazine v3 n5 page 86 missing

Post by XavSnap »

HI,

Something wrong in the Restore/read data routine...
:o

[Edit]Sync.zip deleted.
Last edited by XavSnap on Sun Dec 30, 2018 2:13 am, edited 1 time in total.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Post Reply