01.03.2014 Views

Section 2 - Commodore Computers

Section 2 - Commodore Computers

Section 2 - Commodore Computers

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

152 COMPUTEI<br />

COMPUTE! May, May. 1982.lssue Issue 24<br />

0121 0350 NGOTO =$D911<br />

; NDF,MAL GOTO<br />

01 01222 2 0350 FRMEVL =1007B<br />

;EVALUATE EXPRE SS ION AT<br />

01 0123 23 03:)0<br />

; CHE Cf( ON STAU( POINTER<br />

035D<br />

NGOTO<br />

NORMAL GOTO<br />

035D<br />

FRMEVL =$DD7B<br />

EVALUATE EXPRESSION AT TXTPTR<br />

035D STAU( STACK =10306<br />

=*D3D6<br />

... PET/CBMNIC? PET/CBM/VIC? SEE SKYLES ...<br />

PET owners everywhere sing<br />

)) Thanks for the Memories^<br />

Memories))<br />

CHECK ON STACK POINTER<br />

01242 '1 035D 50<br />

GETADR "' =*E752 IE752<br />

; TRANSFERT I~ S FAC TO L.INNUM<br />

LINNUM<br />

to good old Bob Skyles<br />

01 0125 25 03:)D 035D<br />

. . . they should .... . . because Bob b Skyles is the onlyy<br />

01 01262 6 035D ; IGOSUB<br />

PATCH:<br />

PATCH?<br />

complere complete source for memory boards for allY any PET ever<br />

0127 01?! 03:)\)<br />

0 35D<br />

sold. Old Bob won'tt forget you.<br />

0128 035\) 035D A903 GOSUB LOA LDA 13<br />

And the Ihe Skyk-sS k yk~ Ilu'mory memory systems .,y.,tcm~ hit\c have 11ll' the highC:'1 highcsi (IUalll), quality cOrllrol control of any<br />

;NORMAL : GOSUB RELOCATED<br />

computer product ever. Oq'r Ovei 100 1(K) million bit'i bits off Sl Skyles yk\ memory hoard boards.. arc<br />

fC<br />

alr('ady already illl in tin.1 hl' ficld. field, f'ir F i r ~ mt quality,t si at aiicic and dynamic RAMS. RAMS, solidI ~ol ~o soldered ldcr ed on<br />

0129 0351" 035F 20D6D32 JSR JBR STACK<br />

first r ~t QlI quality yglassepo.-:y. epoxy. Thai iswhy i~ theyareguaranleed—in Ih l')'arc ~mmmlt' (' tI -ill ~pil{'of spite ofihe lh{' new III'W<br />

lower prices—for priCf'.~- ru r II ;i full hl'u Iwn years.<br />

~l'a .<br />

;Ff((]M :FROM *D921<br />

~'D9 2 :1.<br />

The boards. boards; inside the PET/CBM, / em .... t. install in~lall in minutes minuIl'\ withoul lI'ilhout special ~pe l toolsort l s or<br />

01 01300<br />

03620 A5B9 ASB9<br />

LOA LDA TXTPTR+l<br />

TXTPTRH.<br />

equipment. . . ..JUSI juM a screwdriver.<br />

~(;Te \\ dri\' e r.<br />

;STORE TXTPTR<br />

TR<br />

BecauseB eeau~eoff oll ourr new dynamic memory rnemor y design, d e~ign . and 10 tocclebrateold cekbr:llc old Bob'1.3Oi* ', JO:~<br />

birthday, here arc are Ihe the smashing .. new price,:<br />

prices:<br />

0131 03610 36^ 18<br />

F'HA PHA<br />

8K Memory System orig. 5}.50.00 $250.00 nuw «««' S}OO.()() S20O.00 SUI'I' Save $ 5 50.00 .50.()()<br />

I6K Memory System onx. $450.00 now $300,00 Saw $150.00<br />

; DN ON STACf(<br />

16K IHmlQr)',\'ystem ori~. 501.50.00 I/Q W SJ OO,OO So\'{' 51.50.00<br />

STACK<br />

24K UK Memory Meml")' System ori/-:. orig. $6.50.00 $650.00 fUl'" now $400.00 S4()(),{){) Su\'{' Save $1.50.()()<br />

$250.00<br />

0132 0365 36:) A5B8<br />

A~) E:El<br />

L.OA LDA TXTPTR<br />

I~<br />

". ...For Forany PETel·erlllur/e. PETe\er made. When ordering. ordering, just Just describe your PET by b),modcl<br />

model<br />

number and indicate Ie the I Ill' amount oum and tYPl' type (or brand) of memory currently in<br />

0133 03670 18 48<br />

F'HA PHA<br />

the ihe uni!.<br />

unit.<br />

013'1 0134 0368 A576<br />

L.DA LDA CUf(LIN+ CURLIN+: 1<br />

Shipping and Handling andfin/: . . . . (USA {USA/Canada) / Callotla) S3.50 $3.50 (Ellrope/ (Europe/Asia) As;a) S1SM St5.00<br />

Cali/ornia California residents resldefl/s fIIIIS/ must add 61fCl/ 6 To,-6'.- 6 V: % °.'n salt's sain tax, /aX. us as reqlllred,<br />

required.<br />

;STOR : STOREE CURRENT LINE<br />

NUMBER<br />

Visa/Mastercard nrdt orrien: rs: call tollfrce tollfree (1\00) (»(H)l 221·9998 227-9998 (exccpt (except California).<br />

01 013535 036A 18 43<br />

F'HA PHA<br />

California orders: please call (415)) 965· 965-1735. 1135.<br />

;ON STACf(<br />

STACK<br />

SkYleS Skyles Electric Eleclric Works<br />

01 01363 6 03 036B6B A575<br />

L.OA LDA CUf(UN<br />

CURLIN<br />

B231K IE South Whisman Kuad Road<br />

Mountain Vir View, ..... Califnrnia California 9"().J *I4IMI1<br />

0137 0360 036D 48 '18<br />

PHA<br />

{415} (415) 965-1135<br />

965-17.15<br />

01 013838 036E 0 A9E:0 A9B0<br />

L.O LDAA 'HE:O<br />

; MARKA R~ ( GOSUE:<br />

GOSUB<br />

... PET/CBM/VIC? PET/CBMNIC? SEE SKYLES ...<br />

01 013939 0370 0 18 48<br />

F'HA PHA<br />

'<br />

ION STACf(<br />

STACK<br />

0110 ^0<br />

03717 1 207703<br />

03<br />

JSR<br />

.J ~' F\ GOTO<br />

; 1)0 DO A MOO MODIFIED I F1T O<br />

GOTO TD<br />

0111 0371 0374 1CI)207<br />

4CD2D7<br />

.JMP JMF NGQBUB NCO SUE:<br />

; "·INISH FINISH NORMAL. COSUE: GOSUB<br />

01'*2 '12<br />

0377<br />

01'13 01^3 03770 ;GOTO JGOTQ PATCH:<br />

01 '11 'H 03770 ; JTHIS IISS WHERE THE the: EFFECTIVE effective CHANGE change OCCUF\S.<br />

occurs.<br />

01 '15 0377<br />

;BY jby REDIF\ECTING redirecting THE the EVALUATION evaluation OF df WHAT what FOL follows LDWS<br />

01 ·'16 03/7 0377<br />

; jthe THE GOTO goto OF\ or GOSUB gobub TO token KE N TO to FF\MEVL frmevl (W (which HICH<br />

01·'17<br />

01-47 0377<br />

; devaluates EVA LUATE:S THE the EXPRESSION expression FOLUlWINC following THE the TOfU:N) token) .<br />

01-48 '18<br />

0377<br />

;AND ;and THEN then TF\ANSFEF\ING transfering THE the RE result SULT FF\OM from FAC fac<br />

01 01^9 '19 03770 ; jcthe ( THE FLOATIN floatingG POINT point accumulator) ACCUMULATOR ) TO to L.INNUM<br />

linnum<br />

o 0150 1 ~.'i 0 03770 ; j (WHERE (where THE the REMAINDER remainder OF of THE the ACTUAL actual. COTO goto<br />

0151 ~H 0377<br />

;;routine F\OUT I NE EXPE expects CTS TO to FIND find THE the L.INE line number),<br />

NUMBEF\) ,<br />

0152<br />

~~j2 03770 ; jlabel LABE L AND and EXPF\ESSION expression EVALUATION evaluation FOLL.OWING<br />

following<br />

0153<br />

~'j3 0377<br />

;COTO jgoto OF\ or GO gosub SUB IS is EFFECTED effected. .<br />

0154 0377<br />

0155<br />

~.~ 5 0377<br />

2 00000 0 0 03] COT gotoO<br />

J jsr !3 F, NEWGET<br />

newget ; jget GET next NEX T CHAF\ character AC TEF\<br />

01 0156 ~ 'j 6 G37A 03/A 2207BDD<br />

E: Jjsr SF\ FF\MEVL<br />

frmevl ; i EVALUATE evaluate EXPRE expression SSI ON<br />

0157<br />

03/ 037DD<br />

22052E7<br />

0 ~) 2 [ 7 Jjsr SI:( GETADR<br />

getadr ; ^transfer TR ANSFEF\ FAe fac TO to L.INNUM<br />

linnum<br />

0158<br />

030 388 0<br />

1C1 4C41D9 11)9<br />

.JMP jmp ngoto NG OTO ; ffinish FINISH normal NOF\MAL. GOTO goto<br />

01 0159 ~.;9 0383<br />

01 01606 0 o 0 :lIJ:3 383<br />

.END ♦end ; jend END Al' assembly SEME:l..Y

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!