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