SINC-LINK

Vol.6 No. 5

Sept - Oct '88

IRIX'S" mLmm of

SJW-PI'EB-SWeLIIIll OSEOS M SS.JS ISSUED 5 IMSS m. COPIES OF THE HEHSLEITEl! SL'. i>-SJP ^ WIH-IIEIfflEfiS. PJP^S I^^IVE » PliEE COPV AS PUS! OF THE sas.oo MIL HEHIEIISIIIP FEE.

piETIEjlS DUE {]iGlillH6ED, FREE

OF canflfiE, HUH oibeii tiheh. smcuiifi USES aMOPs.

IS»,^''SnJ^ OEPllIHe. PLEASE 311 IS PUBLICAIIOH AMD IKE

SEHD eOASESPOHDflHCE TO:

51ilS'!li'"'i,SIHC-I.IHI{ EOIIflllS, IpAOHIO TIKEH-SIHCLAIB OSEfiS £1118. P.O. 888 72?'! SIH. A IOR0HT0.0HIi8IQ.Cfi|yilHI, Skm

TS2068 ISSUE

Editorial Bob's Notebook Larken EPROH

Big Copy

Simple Sound Port Label Maker LKOOS 3 Review Pascal on Larken Larken Game Save File Recovery The Last Page

EXECUTIVE OFFICERS s

PRESIDENT: VICE PRESIDENT: TREASURER: SECRETARY:

ACTIVITIES DIRECTOR; TAPE LIBRARIAN ZX81 TAPE LIBRARIAN 2068 TAPE LIBRARIAN QL PAPER LIBRARIAN NEWSLETTER LIAISON OFFICER (Out

EO MAYBEE (743-8141)

JBFF TAYLOR (244-8583)

BILL LAWSON (444-8772)

GEORGE CHAMBERS (751-7559)

RENB BRDNEAU (531-9749)

RENATO ZANNESE (635-6536) REG COTTLE (785-3987) TOH AROELLA (653-6978) R. BRUNEAU, J. TAYLOR, R. ZANNESE •of -town members): GEORGE CHAMBERS , 14 RICHOME COURT, SCARBOROUGH, ONTARIO, MIK 2Y1 (416-751-7559)

TORONTO TIMEX - SINCLAIR USERS CLUB

P. 0. Bos 7274 Stii. A Torwrto, Out., M5W 1X9 Ccmotfo

Toronto Computes! Presents i

^ ^ £

pDITORIAL

It is with sueLLed heart Cand sMghtly buelled head 3 that I am proud to inncJunce that S^nc-Link placed third out of tuenty-tuo entries in Time Designs' 'Top Ten Newsletters" surv^eyl

This sur'v'ey, puDLished in the riay/June '88 issue ot TO, judged entries from all o^er North f^merica on the basis of content, orismalityp Layout and appearance, "hey also published my name as editor so I'-n particularly happyl

Of course, the editor is only responsiDle for the layout and presentation. I: 'S the contributors uho rnust supply the aL I - i mpo rt ant

originality ana content. uJithoui them. I ujouidn't ha^e anything to present f So I think That hearty round of

congratulations are due to the urlters of the Hay/June '88 C^oi 6-3} issue. Heartfelt thanks lo George Chambers for suomitt ing that ^ssue to TD and for taking the time to fill out their questionnaire ^n winning style.

On to business, ^^or those of you uho aspire to greatness or at least political office of a kind, nominations ^or the neu ciuD Executi-vJe uill be taken at the Septemoer meeting. Can you think of someone you'd lii^e as president, v»-p , :reasurer etc.? Suomit his/her name. suDmit your name! Uoting uill take place at the Octooer meeting. Plan to be there and cast your <joiq .

In case you're uondering, the Sine-Link bluro on the front-left cover is changing print style every month as I experiment uith a program called "1st Class fonts'" -^rom Byte Power. I'll review it in the next newsletter.

Keep those cards, comments and art icles coming and maybe we can grab ^irst place ^n tq - g next newsletter survey !

J .T,

COMPUTER fmm

Fall Edition

October 14, 15 &16

Friday ?jQGii-9piii Sat & Sun. lOanHipni'

Exhibition Place

Arts Crafts.& Hobbies BuiicUiig

Keep the Toronto Coiaputer Fest '88 In nind (See above). Because of staffing problcps and the cost of a booth our club will not be presenT at the show. However our club has been asked to provide support at the experts* table*

The way It works Is like this: CoapvtMP-Fest fdlks publish a schedule of when the expert for each systea will be present. This way, the public can know when to com to the show to ask questions etc»» about their particular systea» At the nownt we hav» been assigned peHods as follows^ Fri Oct 14th, 4 to Spsr Sit 10 to 2pa., Sunday unasslgned.

Rene Bruntau and myself have volunfeetred-to sit In as Tinx/Slnclair experts. Probably we will htm a bit of Tinex stuff there as a talking point*

If you are Interested In a role pleass contact Rene or inyself. Look at the cover of tMs newslttter for phMM nunbers.

Georgr Chanbtrs

2

SINC-LINIC

BOB'S NOTEBOOK-

==-2!!5f.!:_2^osE #, channels & streams o a tutorial

many uses and vet tw« ^Jf^ Powerful and have

and other command^ liS! FOrJI?^ mS?f ^rL

used with future peripJeralS^ •w^?^ "^^^

that many of these are * now we know

interfaces. Bu?? long bi?2?; dSI^S ^^i*** "^^^^

apparent that OPEN # an J CLOSE I *«8

play with the basic mtShine Lfh i^ *uT' * *«»

with the opening and eloiw do

with respeSt loShi TSZOk? ILS^*^".

keyboard and screen. Printer and the TS2068

between the system vaiiaWes "JJd thf 'tAS?'?^"'^ ^^•'^ J his area starts at address 2fi^« ^^^^^ program,

just short of the progSS L^a whl^** T'*! at 26710. A short ?ro|SS SJJn ii ^h^*T?^^"°"'*^^y• will print out all the infn^»ri.f listing below streams. Part o? its outoSJ 1^!^°" Z\ channels and (with some expla;a?o?y^nJt«)f °?;:«*''^''r *«J«ble 1 divided into 5nbyte blocks fi^h J? u""** one channel. oxocks, each block representing

2068

table 1 ,. ^,.„.„,^ Address Chan Value

26688 26689 26690 26691 26692

K

0

5 14 12

75

26693 26694 26695 26696 26697

S

0 5

191 17 83

26698 26699 26700 26701 26702

R

231 10

191 17 82

26703 26704 26705 26706 26707

P

0 5

191 17 80

CHANNEL INFORMATION AREA Notes

2G708

f^»5^A^^f*n." add.l280d p^7l ^^^^"^ routine.

U^4clV^l^^ add.3086d 11^*256*14), get input key. Code for letter "K".

lat 2 bytes same as for""!?".

2nd 2 bytes = add. 45431 input routine called. Code for letter "S".

This block irMserved~for" use by the computer and user? ^""^^'^^is to the Code for letter "R".

fpSnn ^y*2^''also'poInrtr fnnuJ' ROW Print routine. Input routine called, (see explanation below). Code for letter "P".

128

Stop byte. " "

When the TS206rirswitcherorir°h3r!''''='"="==== irom address 4522d in the nnu I J L copied Where they may be alSeiSS ly\ll TslrT^'^^'- ^''•^

fourth block (Channel "P") 26704 point to the ROM PrJJ? routing '^Pf^!^ and These are often changed to LfnS iVLSJ ^^^9** (0500h). Aerco prcode, they^ ar^ chaS«d J^^'^ff respectively which Equates to^fltl (tf^JH ^^51] prcode routine). Once these tw« ^t t °^ Changed, all printing will go via ?h«S^?^n^*^• ^''n vprcode> routine. To get bafk i-^J SSoi< ^ *he bytes must be restoreflo^fS? -^'f^j'^e^^^e'ctlJ:!;

^n"d^Ke°^^o"^ie^^%- ^ie1??e%"?;„^JL^eTi^? ^^^^^ resides at 23734 to 237^4 AHH^f ^®-^ area which

equate to 26703' anS 267^^^ 'if JJ:«J«|q23749 and 2375S

address of the called outnut i«M^ ? represent ROM , bytes 3 and 4 ^^J^^LS JS! ("^"""ily in called input routine, fiSur bvJS% f^^lt^" °^ the Character representing i^i ch^^li^' °°de

to^l\onitlJ^?\^°Ji;^J"f"" ^ han^ the output the "printer" and handles oStnnJ^^^rf stands for Channel "K' stands for the ^^JSL^^ k*^^* PeripheralT output and input, it Louts ^I^* handles both

outputs to the lowJr SJrt ^Jf JJf keyboard but also

screen display.

When the print command , ^

through channel "S" to the Lln^ff' output goes

screen. By careful use It th^ te*'"] Part of ShJ output can be made to go thr V^S! oCherSSSil.

and the the the

of

channel "P-^ it i«* J? command go to

oh^el "P"\ This is r'T^*^^^'"'*^'"'' #2."P-]. Note that thll insSJ«otL ^^J" f°"««d [OPEN

KJIrid^^lid^Jh^^^^^^^^^^^^^

Character of the ci^ei^^^hicWsS'^^^^^^^ t1"^il

co°s,d''a:i„js*?hPi"^^"*^''*"'^^"^^

called which would D?inJ«i ^"P"* routine beinp

addresses 26705 and ft^Jfi . Jf"L ^^y^^s at

address 4543) . WU^out ?Se pUse J %hf " .^f?*^"' be immediately erased. * **** Printing would

At switch on, only four of the stream 0 points to channel Stream 1 points to channel Stream 2 points to channel i>treara 3 points to channel

16 'K" "K" "S" "P"

streams are opened.

the

iTei^i%^js??nSr,r5? iiirtt'Li s'^^^^r* ^^^^^^^

until told otherwise A ?hL«!i ^^ directed to do

command C CLOSE S^fJheie ^T ^ ""^^ ^^^^'^ ^y the Also, a channel Jiv be ?in««H k"^ ""T^J"^ ^ 15.

to its start Ip Sln^el pointing the stream

been opened to'^cSSl^^s" ^rmaMl «t"a« 3 ha. command [CLOSE #37-p""i thio L^,^® closed by the LPRINT aid LUST commiAds to t^f told to revert to nSl Jm^ V""^ to the programmer dSS'tJ^ H«i Particularly useful at the resStTof the EIr^S; J^^^Sg^ng process to look

rather than wfsJi JJLteTpaper*"'"

Sne ?loieTL?^e\1?^arir2nL°fe^'? r^'*"'*' ^'^^

fhf Ke^^ ~ ^Sf S

all have their output Pff«r.*-«4 fi,f» ana INKEYI;, may value is strsam p tea this way, their default

PRINT #1 il "PP®*" screen), that is to sav

a"5IpRfNT^%tc! " P""^*^ #3 the Hie

SlySim? ':iir^?f 'e\%*e'e^ then use it

channels'^and sSeams? ^*^*ti,s 01

3 REM This program works in

5 REM^«=«f--LfL^P*°*''"'"

6 REM Use GO TO 10 for info on channels & streams.

7 REM Use GO TO 200 to PEEK stream info in system variables. Use GO TO 220 to PEEK channel info area up to start of program area.

9 REM --ssssssassasssssssss

r^Ao ^?L*:^^^ 23631+256»PEEK 2 3632 t LET b=a

20 IF PEEK a«128 THEN GO TO 70 30 PRINT -CHANNEL ",CHR$ (PEEK (a+4) )

40 PRINT -Output Address=",PEE K a+256»PEEK (a+1)

50 PRINT "Input Address=",PEEK (a+2)+256»PEEK (a+3)

60 PRINT , LET a=a+5, GO TO 20

70 FOR a=23574 TO 23605 STEP 2 ,TAB rSf^ "^^"^ ">(ar:23574)/2

P^^^ a+256»PEEK (a+l)=0 THEN PRINT "CLOSED-, NEXT a, STO

100 LET c=(PEEK a+256»PEEK (a+i ))+b+3

pio2 ^SP^ -points to Channel ", CHR$ PEEK ci NEXT a 120 STOP

130 RANDOMIZE USR lOOi SAVE "ch ans.Bl- LINE 10 140 STOP

^^Ll^^^'^^^^^ TO 23605 . PRINT i,PEEK ii NEXT i 210 STOP

jj2|0^LET prog-PEEK 23635+256»PEE

I start of CHANS from sys variables tlast byte in table t channel letter

t output address

I input address.

t stream number. I closed channel

•channel letter

iLarken SAVE routine

> addresses of

channel* attached

to streamr. I start of prog area

SIMC-LINK

2068

Bob's Notebook con't

230 FOR i=b TO progoli PRINT i, 1 examines ohan PEEK ijTAB 20>CHR$ PEEK 1 AND PE info area up to EK i=>32 AND PEEK ic»90i NEXT i start Of prog area

The FOR... NEXT loop in line 200 will display a copy of 38 bytes in the system variables area containing the address of channels attached to streams. Each stream holds two bytes which accounts for 32 bytes and the extra 6 are used by the internal editor and automatic listing routines. Each two bytes contains a relative displacement* from the byte before the channel info area, to the channel that is pointed to. A zero means that the stream is closed.

For Larlcen users, note the extensive use of OPEN # in the extended BASIC commands available and particularly note that when any or all windows or large printer channels are opened, 38 bytes (total) of memory are added to the channel information area. This changes the location of the start of the program area and can cause a problem if there is machine code in a REM statement in the first program line. (This problem can be avoided by PEEKING the start of the prog area and then using this value plus 5 as the call address for the machine code routine in the REM statement 1 eg, [LET x=PEEK 23635+256*PEEK 236361 LET x=x+5« RANDOMIZE USR xj). In these 38 bytes which you can examine by using line 220 of the listing, you will find that new channels have been set up at the beginning of what was the start of the program area.

An interesting and illuminating exercise is suggested for Larken users 1

.[LOAD "chans.fll"], ie, the listing above.

.Open some of the Larken extended BASIC channels.

.Try [RANDOMIZE USR lOOi OPEN #i;,"dd"J.

.Then [PRINT #4i OPEN #5rwO"]. (These will

.Then [PRINT i^^+i OPEN #6,"wl"]. (open three

.Then [PRINT OPEN #7."w2"j. (windows.

.Now use the listing above to look at what has happened. Try doing the same thing with the Spectrum emulator in place, if you have one.

I'll leave the heavy thinking to you at this point. iVhat I have written will pose some other questions and I look forward to someone else expanding on this theme in some future issue.

by Bob Mitchell

n30n

TIMEX 2068 COMPONENTS FOR SALE

1. Complete Systen

- TS2068 w/RooswItCh

- TS2050 modeiH- Specterm Software

- Ollger 00 Inttrface

(Includes Motherboard w/RGB 1*face)

- Ollger Printer Interface

- Snith Corona Fastext 80 Printer w/cable

- Disk Drive with Power Supply (all cased)

- Lots of software on disks (free)

Total package (excluding shipping costs) $600 Can*

2. - TS2068 without Romswltch $65 Can.,

- TSIOOO (new In carton) $30

4. - TSIOOO RAMpack $10

5. - ByteBack mode* w/software $30

(2068 or 1000)

6., - TS2040 Prtnter $25

If any one Is Interested In this equipment drop John Matheson a 11ne« Address is 1852 Appleford St Gloucester, Ont., KIJ 6T4 CANADA. His phone nuMber Is

(613) 746-7869

URKEN EPROM DOS Version 3 by Chanbers

Larry kenny has cone out with a new EPROM DOS for his Larken system. We have only had tthls version for a few days, but Bob Mitchell has done a short review of it else where In this newsletter. Larry Is offering this latest version of the EPROM for $5 plus S&H, plus your old EPROM. I happened to have five spare EPROMS around so I sent then to Larry along with $26 and asked hln to send a set so that we cold upgrade some of our members systems^ This has been done.

An Interesting thing however. Two of the EPROMS that I sent to Larry were made by TI and were the type that have a "penthouse" (as Bill Jones calls It) on top of them. Sort of a raised area where the window Is. Anyway, turns out that they would not work. At least they would not work until I connected a wire between pins 14 and 20, and bent pin 20 so that It did not enter the socket. Something like we experienced with the very first Larken cartridges*. I see, also, reference to this sort of a problem In the Current issue of TS UPDATE where there Is a note to the effect that" ...apparently the EPROM with the "penthouse" on top cannot be used with the Larken cartridge."

It*s not really a problem, just an Interestf*" ^ quirk. I*m sure that we will hear the whys wherefores shortly..

Bob Mitchell mentions a small *bug* In the PRINT routine. I have drawn Larry's attention to It. It Is not a real bug, but here's how It comes about., In the Aerco printer drive (and maybe others) you have to poke In a number that Is one less than the number of characters you want to be printed out on a line. That Is to say. If you want a line with 64 characters In It, TASWORD Style, you must POKE In a 63. It would seem that the new EPROM defaults to 64, Instead of to the needed 63. It Is still operational; you simply have to POKE a 63 Into the DOS. Uhen I spoke to Larry, he was unaware that the wrong number was In the EPROM. I*m sure It will be corrected promptly.,

As I mentioned earlier, we have upgraded 5 systems

In the club. By sending the five EPROMt out we were

able to do this without anyone having to shut down

their system, or to buy an EPROM they did not really

have a use for. I mention this because If any other

members are Interested In upgrading by this process

they should conUct me forthwith and I will return ny

EPROMS for another go around. It will cost you $5.40.

Plus your old EPROM.of course.

«♦*♦*♦*♦♦*•**•***♦*****

SINC-LINK

2068

3ig Copy

Hei-e IS a program that can used to m;=iif<a T --Aiau can Pe

of a scr^Pn ^.^^^^^ shaded copy ^' ^Z''^®®" '^2ing the 2040

? prxn? spectrum mode,

prints out in four secti^r, -^nd these sections have to be taped together.

f Jst'^'et^^^^ program you would ^x.ot oet your computer in spectrum mode. Enter CLEAP 49999 :LOAD"B_C"CODE.Snce thi -aded you can load a screen bv entering LOAD"SCREEN"SCREPm? ' RANDOMIZE USR 50000 ^^^^^^^ = This proaram is orespnt-^^ u

^ntered^'v^: ^^^^^ Holland. -- oo ^'^ ^-snato Zannese

-- kem big copy

^ ?.EH saved as "B_r" '-ODE

^ ad;=5oooo

i-ET a = iO: LET b=il: LET c = i ^ e = i4: LET f = i

I 30 FOR q=iOO TO 200 STEP 10: R -AD aS.tot

40 LET w=i6*7AL a$ (1) +VAL a$ (2

LET'to^ftot-l"^ ^""^ adr = adr + l:

TO ) : IF aSO""

'3 IF tot<,:0 THEN PRINT "Erro i in i.ine ";q: STOP

'-' n i-1 i Q

35 STOP

^ 90 PRINT "All IS OK! ! ! Press a Key to SAVE": PAUSE 0

'ibt^' "B_C"CODE 50000,

BcEir' PRINT "Preoarp

to JfiRIFY": VERIFY "B_C"CODE .

100 DATA "3e003259c53a57c53258c53 aD3c5 4f 3a59c547c5f 5cd89c4f Icl3e08

3 2 5dc5e5 7e3 2 5cc52f 773a59c5473a58c 54fc5f 5cd4b" ,6155

110 DATA "C4flcl7ee607325ac57ee63 -^Cb3fcb3fcb3f325bc5c53a5cc54f0508 Ch40cce7c3cb7 9cd0ac4cb2110f 2cl7Qr :3258c5el",6721

120 DATA "233a5dc53d325dc5c26fc33

a59c53c3259c5fec0c255c3060af 5c5cd

Cd0eclfll0f73a57c5c6403257c5fe00c 2o0c3cdc8c4" , 6785

130 DATA "c9f 5c53a5ec53cf e21caf dc 3fealca02c4325ec5clflc93e81c3f7c3

5c5e5dd2169" , 7625

140 DATA "C447fe00ca26c4110400ddl 910fc21ff 5a3a5ec506004f 0906047ecfa

27cb27cb27cb27dd5600b277dd2311200 01910eaelcl",5019 ^^-^-^^UU

150 DATA "C9cb39cb39cb3978cb3fcb3

fcb3f21005811200047fe00ca67c41910

fd09c90f0f0f0f 0a050a050c010403010 40208080208" , 3542 J.y'*u:»uxu

160 DATA "00080002000004000000000 000210040dd21b8c4cb39cb39cb391600

5919780608cb7fc2a9c4dd23dd23c3b4c 4dd5600dd23",4330

170 DATA "dd5e0019dd231710e6c9100

008000080004000200400020001001608

010018210040cb41cadac4cb3ec3dcc4c D26230b78bl" , 3817

^180 DATA "C2d0c415c2cac4060021f f 5 773cb3fcb3f 77 2310f 7210059 36472310

--.10 0 5a7Scb3f cb3f 77230478f e00c20

0c521ff5336",533S

190 DATA "00dd2137c52100590e20dd5 b00dd230608cd7aca2ac5367823cb2210

f 40d7 9 feOOc 21 cc5c9 7 74400005444000 05654000054" , 4324

200 DATA "2a252e572a252400022aa40 0022Sa4000 3a8a4" ,10 7 6

Addr Hex

OP Operand/Notes

C350

C352 C355 C358 C35B C35E C35F C362 C363 C364 C365 C368 C369 C36A C36C C36F C370 C371 C374 C375 C376 C379 C37A C37D C37E C37F C380

3E00 3259C5 3A57C5 3258C5 3A58C5 4F

3A59C5 47 C5 F5

CD89C4 Fl CI

3E08 325DC5 E5 7E

325CC5 2F 77

3A59C5

47

3A58C5 4F C5 F5

CD4BC4

LD LD

LD LD LD LD LD

PUSH PUSH CALL POP POP LD LD

PUSH LD LD CPL LD LD LD LD LD

PUSH PUSH CALL

A, 00

(C559) ,A A, (C557) •0558) ,A A, (C558)

C, A

A, (C559)

B, A

BC AF

C489 AF BC

A, 08 (C55D) ,A HL

A, (HL) (C55C) ,A

(HL) ,A

A, (C559)

B, A

A, (C558)

C, A

BC AF

C44B

SINC-LINK

2068

C383 C3 84 C385 C386 C388 C38B C33C C3 8E C3 9 0 C3 9 2 ':3 3 4 C 3 9 7 C398 C3 9B C3 9C C 3 9 E C3A0 :3A3 C3A5 3 A3 :3AA 3AC -3 AD :3AE C3E0

:234 C3B5 C3B8

:3B9 C3BC C3BF C3C2 C3C3 C3C5 C3CS :3CB

Fl CI 7E

E607 325AC5

7E

E638 CB3F CB3F CB3F 325EC5

3A5CC5 4F

0608

CB40

CCE7C3

CB79

CD0AC4

C32i n r T

3 5 0 8 3 2 5 3 C 5

3A5DC5 3D

325DC5 C26FC3 3A59C5 3C

3259C5 FECO

■JiCF :3D2 C3D3 C3D4 C3D6 C3D9 C3DB C3DE C3E0 C3E3

060A

CDCDOE

CI

Fl

10F7

3A57C5

C640

3257C5

FEOO

C250C3

CDC8C4

Q

.' C" '— ' '_ J

:3E9 3A5EC5

:3ED FE21

:3EF CAFDC3

:3F2 FEAl

:3F4 CA02C4

:3F7 325EC5

-3 FA CI

:3FB Fl

:3FC C9

POP POP LD AND LD LD AND SRL SRL SRL LD

PUSH LD LD LD BIT CALL BIT CALL SLA DJNZ POP LD ADD LD POP INC

LD

DEC

LD

JP

LD

INC

LD

CP

JP

LD

PUSH PUSH CALL POP POP DJNZ LD ADD LD CP JP

CALL RET PUSH PUSH LD INC CP

AF BC

A, (HL) 07

(C55A) ,A A, (HL) 3 8 A A A

(C5 5B) , A 1— <>—

A, (C55C)

C , A 3 , 03

0 ,E

Z I C3E7 7 ,C C40A

- 1 4 : C 3 9 E 3C A,C A, 0 3 'C553) , A HL HL

A, (C55D)

A

(C55D) ,A NZ , C36F

A, (C559) A

(C559) ,A CO

NZ , C355

B, OA AF

BC

OECD BC AF

-9 >C3CD A, (C557) A, 40 (C557) ,A 00

NZ ,C350 C4C8

JP

CP

JP

LD

POP

POP

RET

AF

A, (C55E) A 21 Z,C3FD Al

Z ,C402 (C55E) ,A BC AF

C3FD C3FF C402 C405 C407 C40A C40D C410 C413 C414 C415 C419 C41A C41C C41F C422 C424 C426 C429 C42C C42E C42F C4 3 0 C432 C433 C435 C43 7 C439 C43B C43E C43F C440 C442 C445 C446 C448 C449 C44A C44B C44D C44F C451 C452 C454 C455 C458 C45B C45E C45F C461 C464 C455 C467 C468 C469 C46A C46B C46C C46D C46E C46F C470

3E81

C3F7C3

CDCDOE

3E01

C3F7C3

3A5BC5

CA13C4

3A5AC5

C5

DD2169C4 47

FEOO

CA2 6C4

110400

DD19

lOFC

21FF5A

3A5EC5

0 6 0 0

4F

09

0604

CB27 CE27 CB2 7 DD5600 B2 77

DD23 112000

19

lOEA El

CI

C 9

CE 3 9 CB39 CB39

78

CB3F CB3F CB3F 210058 112000 47

FEOO CA67C4

19

lOFD 09

C9 OF OF OF OF OA 05 OA 05

LD JP

CALL LD JP LD JP LD

PUSH PUSH r

LD CP J? LD ADD DJNZ LD LD LD LD ADD LD LD SLA SLA SLA SLA LD OR LD INC LD ADD DJNZ POP POP

SRL

SRL

SRL

LD

SRL

SRL

SRL

LD

LD

LD

CP

JP

ADD

DJNZ

ADD

RET

RRCA

RRCA

RRCA

RRCA

LD

DEC

LD

DEC

A, 81 C3F7 OECD A, 01 C3F7 A, (C55B) Z,C413

A, (C55A) BC HL

IX,C469

B, A 00

Z,C426 DE, 0004 IX , DE -4 >C422 HL, 5AFF A, (C55E) B , 00

C, A HL,BC B , 04 A, (HL) A A A A D D

(HL) IX

DE, 0020 HL,DE -22 >C432 HL BC

(IX+0)

, A

C

A, B A

A A

HL, 5800 DE,0020

B, A 00

2,C467

HL.DE -3 >C464 HL,BC

A, B A, B

(BC) (BC)

SINC-LIHK

2068

C471

OC

INC

c

C472

010 40 3

LD

RP . n 1 n A

ay~. 1 w J VJ

C475

010402

LD

P.n n T n A oy— J U jt U Tt

C478

08

EX

AF . AP

C479

08

EX

C47A

02

LD

CEO . A

C47B

0 8

EX

nc i AC

C47C

00

NOP

C47D

08

EX

A P . A P

C47E

00

NOP

C47F

02

LD

v.DV«; » A

C4S0

00

NOP

C481

00

NOP

C482

04

INC

C483

00

NOP

C484

00

NOP

C485

00

NOP

C486

00

NOP

C487

00

NOP

C488

00

NOP

C48 9

210040

LD

HL, 4000

C4SC

C490

C492

C49 4

C496

C 4 9 S

C499

C49A

C49B

C49D

C49F

C4A2

C4A4

C4A6

C4A9

C4AC

C4AE

C4Bi

C4B2

C4B4

C4B5

C4B7

C4B8

C4EA

C4BB

C4BC

C4BD

C4BE

C4BF

C4C0

C4C1

C4C3

C4C4

DD21B8C4

CE39

C3 3 9

CB3 9

1600

5 9

19

~1 o

I u

0608

CB7F

C2A9C4

DD23

DD23

C3B4C4

DD5600

DD2 3

DD5E0 0

19

DD23

17

10E6 C9

1000

08 00 0 0 8 0 00 40 00

2004 00 - 0 2

SRL

SRL

SRL

LD

LD

ADD

LD

LD

BIT

JP

INC

INC

JP

LD

INC

LD

ADD

INC

RLA

DJNZ

RET

DJNZ

EX

NOP

NOP

ADD

NOP

LD

NOP

JR

NOP

LD

IX , C4B8

D, 00 E . C HL, DE A, B B , 08 7, A

NZ ,C4A9

IX IX

C4B4

D, (IX+0)

IX

E, (IX+0) HL, DE

IX

-26 .>C49D

+0 >C4BA AF, AF

A, B

B, B

NZ,+4 >C4C7 (BC) ,A

C4C5 C4C6 C4C9 C4CA C4CD C4D0 C4D2 C4D5 C4D7 C4DA C4DC C4DD C4DE C4DF C4E0 C4E3 C4E4 C4E7 C4E9 C4EC C4ED C4EF C4F1 C4F2

0 0

010016 08

010018

210040

CB41

CADAC4

CB3E

C3DCC4

CB26

<^

OB 73 Bl

C2D0C4

C2CAC4

0600 21FF5 7 7

CE3F C33F 77

•-•it i

C 4 F 5

C4F8

C4FA

C4FB

C4FD

C500

C501

C503

C50 5

10F7

210059

3647

lOFE

21005A

78

CB3F CB3F

7 ~1

NOP

LD

EX

LD

LD

BIT

J r'

SRL

JP

SLA

INC

DEC

LD

OR

T r>

DEC

JP

LD

LD

LD

SRL

SRL

LD

INC

DJNZ

LD

LD

INC DJNZ LD LD SRL SRL LD

BC,1600 AF.AF 3C,1800 HL, 4000 0,C

2 .C4DA vHL) C4DC (HL) HL BC A,B C

NZ , C4D0

D

NZ,C4CA

3,00 HL, 5 7FF A , B

HL) , A

-3 >C4EC HL, 5900 (HL) ,47 HL

-5 >C4F8 HL, 5A00 A,B

A

^ HL) ,A

C506

INC

HL

C507

0 4

INC

o

C5 03

"7 n

LD

A,B

C509

FEOO

CP

0 0

C50B

C200C5

J?

NZ,C500

C50E

21FF58

LD

HL, 58FF

C511

3600

LD

(HL) ,00

C513

DD2137C5

LD

IX,C537

C517

210059

LD

HL, 5900

C51A

0E20

LD

C. 20

C51C

DD5600

LD

D, (IX+0)

C51F

DD23

INC

IX

C521

0608

LD

B, 08

C523

CB7A

BIT

7,D

C525

CA2AC5

JP

Z ,C52A

C528

3678

LD

(HL) , 78

C5 2A

23

INC

HL

C52B

CB22

SLA

D

SINC-LINK

7

2068

'w D Z U

i 0 F4

DJNZ

-12 >C523

C 5 2 F

OD

DEC

C5 3 0

7 9

LD

A,C

J.

FEOO

.~" r>

00

L5 3 3

C2iCC5

JP

NZ , CSIC

' ^ R "3 i^:

J

RET

C 5 3 7

LD

(HL) ,A

'2 5 3 S

44

LD

B, H

'-5 3 9

0 0

NOP

C 5 3 A

0 0

^TOP

C 5 3 E

5 4

LD

ij » H

C5 3C

44

LD

3,H

C5 3D

0 0

'lOP

■■— Hi

0 0

MOP

D 3 F

LD

D » (KL) D , K

- J 4 U

5 4

LD

C541

0 0

NOP

C 5 4 2

0 0

NOP

5 4

D, H

C 5 4 4

2A2 5 2E

LD

-~i L t ' ,£i E z 1/ )

'_ L /

-

LD

D , A

_ L ^ >i

- A 2 5 2 4

LD

HL. (2425)

C54E

C 0

NOP

■_ I'

0 2

LD

3C) , A

C 5 4 D

2AA4 0 0

LD

HL. (00A4)

C5 5 0

•"5 -\ •J

r r*-

'BO ,A

C5 51

23A4

JR

2,-92 >C4F7

C55 3

00

NOP

C554

0 3

INC

BC

CSS 5

A8

XOR

D

C556

A4

AND

H

i"' S S 7

n n

NOP

CSS 3

0 0

NOP

C 5 5 9

00

NOP

CSS A

0 0

NOP

-- c:. c s

rs

NOP

Simple

Sound

Port

By

Renato

Zannese

S/31/88

A simple sound port can be added to the rear of the Larken Disk Interface so your monitor / amplifier can control the volume coming from the speaker on ^he TS 2 0 6 3.

iou will need to get the following Items to make a external sound port:

-22k res 1 stor

-iOk resistor

-100k resistor

- an P:CA jack

xou have to open you computer so you can cut one of wires that goes to the speaker inside the computer .

First thing you have to do is carefully solder the 22k resistor to a thin piece of wire. Solder the end of the resistor to the pin called sound. Cover the resistor and wire with thin heat shrink tubing. Solder the other end of the wire to the center of the RCA lack and solder the outside of the RCA jack to the big ground trace on the rear of the Larken interface.

The second thing you have to do is solder one end of the 100k resistor to the pin called beep. Solder the other end of the resistor to the end the wire from the beginning.

The last part you have to do is solder the 10k resistor between the nround and the wire that goes to the center of the RCA jack.' Refer to diagram if you are having any trouble.

Make sure all visible joints /wire are covered heat shrink tubinq. The

solder up by the lonq wire

can glued to the rear board on the Larken interface.

If you don't have a Larken interface, this modification can be .^one inside the comDuter. Be careful when workinq inside the compute r .

If you don't have a monitor with an audio input vou can use the Mini Audio Amplifier made by t<adio Shack # 277-1008

fin j

4

ujire

SINC-LINK

2068

AN IMPROVED LABEL MAKER FOR LARKEN SYSTEM by G, Chambers

Writing programs to create labels is a time honoured pastime among the computer crowd. But I think this program offers just a bit more.

It Is designed to produce labels of the contents of your Larken system disks. It offers the option of printing to the 2040 printer or a large printer. It provides the option of sorting the files alphabetic- ally. It also provides the option of printing the program names in one, two or three columns.

Although the program makes use of the Hacksel printer software -Iprlnt.Cl-. another driver software could be used by modifying lines 160 and 350.

The program operates on the basis of reading the 1 rectory {Track 0). placing the names In a (d$) array, then manipulating them as required.

100 REM File Label Maker vi i for the LARKEN system

110 REM ,By G. Chambers

1^ Riohome Court Scarborough, Ont. CANADA MIK 211

1^0 HhM Use to make a printout

disk files 130 REM Data statements contain Drive Control Code.

140 REM For use with the DSK400 . system of 509O bytes/track using a DD drive i.e.SO tricks

j50 RANDOMIZE (JSR lOOt OPEN

^^160 PRINT #4. LOAD -lprint.Cl"C

170 LET c$="

180 RESTORE VAL "210- 3^1°/°^ "''^AL "63000- TO VAL "6

^200 READ ai POKE n,a

'^10 NEXT n

220 DATA 195.43,246,0,0,0.0 0 0 .243,205,98,0,201,58 '"'"•"•^'O

230 DATA 100,0,251,201,205 31 ? 46,58.176,92,50.29.32,265.126 '

240 DATA 0,205.123,0 33. i%2 17.156.224,1,0.20,237 176

250 DATA 195,38.246

260 DIM d$(90,ll) f 270 LET trac=yAL "23728", LET ] oadbuf=VAL "63000- ° ' ^i-r 1

280 LET name = VAL "=;7688" ^290 BORDER PI/PI, PAPER pi/pj,

J^^s^r^l^.l "2", VAL "6", I

NK VAL "2") PAPER VAL "6"." LARK EN DISK UTILITY ", PAPER PI/PI? .TAB VAL "10", PAPER VAL "6"," L abel-Maker "1 PAPER VAL "1-,,TAB

VAL "6"; PAPER VAL "6"|" By Ge orge Chambers "

310 INK VAL "3-1 PLOT NOT PI.VA L "108"i DRAW NOT PI, VAL "62"i D RAW VAL "255", NOT PI 1 DRAW NOT P I 'VAL --62- I DRAW VAL "n2 55-,NOT

320 INK VAL "6-1 PLOT VAL "S-.V AL "114", DRAW NOT PI, VAL "50", gRAW VAL "238", NOT PI, DRAW NOT PI, VAL "n50"i DRAW VAL "r238-.N0 T PIi INK VAL -7- ^ . "

PRINT Install disk ne

eding a label" ... then Prea 3 a key"' , PAUSE NOT PI

^^^JP^^ 23658,0, PRINT AT 12,0 I OVER 0|O$|c$jAT 14, 0| INK 7,-L arge or small printer? (L/S) PAUSE 0 \ II

350 LET n$=INKEy$i POKE 26703,0 .POKE 26704,5, IF n$=-l- THEN POKE 26704,254

360 PRINT AT 14,0, OVER 0,c$, P AUSE 50. PRINT AT 16,0, "Print Nu mber of columns (l:-3) "j, PAUSE Oi LET p=C0DE INKEY$-48

370 PRINT AT 16,0, OVER 0,c$, P AUSE 50

380 INPUT "Sort (Y/N)? ";3$

390 INPUT "Enter Disk Title ",n$

400 LPRINT

410 REM PlGking pgm names from buffer (Track 0) 420 POKE tracNOT PI, RANDOMIZE USR loadbuf

430 LPRINT "Disk Name, "jn$, LP RINT * 440 FOR n= PI/PI TO VAL "90"

450 IF PEEK (name+3)=N0T PI THE N LET e=n-l, LET n=VAL "90", GO TO VAL "520"

460 IF PEEK (name*PI/PI)=VAL "2 54" THEN LET name«name+VAL "14" « GO TO VAL "490"

470 FOR m='PI/PI TO VAL "9"

480 LET d$(n,m)=CHR$ PEEK (name +m;

490 NEXT m

500 LET name=name+VAL "''4" 510 PRINT AT ll,ll;d$(n),"

520 NEXT N

530 IF s$i>"y" THEN GO TO 59O 540 PRINT AT 11,11) FLASH 1," S

orting "i FLASH 0 550 FOR i=l TO (e^l), FOR j=i T

0 e

560 IF d$(i)>d$(j) THEN GO SUB

580

570 NEXT U NEXT i, GO TO 590 580 LET q$=d$(j), LET d$(j).d$( 1)1 LET d$(i)=qi$, RETURN 590 PRINT AT 11,11,"

600 FOR n=l TO e 610 IF INT (n/p}=(n/p) THEN LP RINT d$(n, TO 10), GO TO 63O 620 LPRINT