8v$ 8v" .v1 Mv* Mv8 .v4 Mv: 8^  8^ 8^ Z^  }Z^ Z^ 8^ .^.^ (d^M^M^M^Mx^M@^M^.M^ (dm (d  (d(] d:dkQdKkQsZkQ :kQ3g:kQ(KkQ @1~C~F~F H p: ^wBF d  \!F  F D F@U0$l&5 B5 @5 huaw READYFw 5 hw  ZBE w' w*,wBBc"w( XFIOULN&f    `D B  e<" 7A 3u <0W$ u "   b   ru B RJ5 ATL@ AB q,:e7L7E 5 U76B @ :EU  ʋ$eFNO@ߋ*wF5 huaw ?@ rW-!w AT LINE @5"5 5#5"5 5!eG vw Pwz@>5>   BSO~}   _  ꈇ7 ,EeH& EE& Е- eePPPЕ-  W  e0e0PK JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECR%PeD C E 7 6& B:A u:  <u<  Ԃc 0 Cc    އe K c:~66666679SYN W eBAaDCEBBBc  BW @ WыB w @m 5 <5 Ai &5`8 E T5 @w DELETED Bw E_ILR@ E%H EU"" "7 nB  L    w~ LTL  5 5 "עע@ פרפ ! #"  5 "e e& C C eC e C ?@fuafh5hffh@ D h   0@ C        e `    0 #  7 D &e7  e 5 " " 5 "H 5 "-W 0  D" C  0  yEU C 0@      e |       Pe P    Ee0E $ e & ) .  E + - 0   e: . 0 $0 ! .  e 7 PA0u0 .7 <5`8 Ah& 5 9FTSWLODNRf&& e ыW WWWe WыV $wTLTw    09    & 0eC  .  09 .& E.u +  +-  09 m Ee& e0 E E e C B   Ee&&   v |N v  6 6  hv  `   @ (%.% D %e% e @ D   mm@ 0     A C v %\w     0  @  @ w H  & Dr)&&\   5@5@7         Nf&\  \& \\r1@\[?\ ew f ?U?*@ڪAD C %     @  f&\&f  & N & . )   v     C 6  %%    w ~6 6 %   Dv   0e%6  6  E v v ·ͅ%\ @       D f C_  fW & @&&&&7 R$.$ 4    pe\\;@\ \N @   =@f&ysE[\pCf&f&\% a @w   &  f 6A  v  6N\&f f & G   v  76   p  d deA @ A @ %  A @ 6v %\%    w    `@ `  ` `  \\ N A f C %C B    \ w  D& &&@7  FD& && 6  A7 \ \      e\ \S\ e& @7 x ne\ f& \:יc&>X4%]@& & & & & D&&e #@  @6 7 `6 6 #?%-0 @ ׳f&& @׳@f&7   f&f&7 l          \>f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7  n ff w   &@& +-*/^()\&;,<==<>==><>><<>="':#[]%$LET VFIF END #LET IF GO TO FOR INPUT FOR OUTPUTFOR TO NEXT THEN STEP GOSUB RETURNINPUT PRINT REMDEF READ DATA CALL FNRND(RNDSIN(COS(SQR(ATN(EXP(LOG(ABS(INT(SGN(TAB(BINOCTLEN(ASC(CHR$(POS(SEG$(VAL(TRM$(DAT$STR$(OPEN CLOSE CHAIN OVERLAY AS FILE DOUBLE BUF LINE VFDIM RANDOMIZERESTORE STOPENDLISTNHRUNNHRENAMENEWREPLACELISTRUNSAVEOLDSCRCLEDXY ; COMMANDS. THIS COMMAND DEFINES THE SPECIFIED ; ARRAYS, BUF1, BUF2, ETC..., AS CIRCULAR ; DATA ARRAYS. ANY NUMBER OF BUFFERS MAY BE ; SPECIFIED, BUT ALL MUST BE GIVEN IN A SINGLE ; "USE" STATEMENT. CURRENTLY THE SYSTEM WILL ; SUPPORT UP TO 5 OF THESE AREAS, HOWEVER, THIS ; MAY BE CHANGED AT ANY TIME BY REASSEMBLY. EACH ; BUF DEFINED MUST HAVE PREVIOUSLY BEEN DEFINED ; IN A "DIM" STATEMENT. THE FOLLOWING FORM, HOWEVER, ; IS LEGAL: ; 10 DIM A(50),B(100),C(200) ; 20 CALL "USE" r8AWw R5iC@ Bw B@c""  B" f &5 B5 @ww2 fAN@@@c" A#  0 iwJ XDW,C CCc" "  4W C CCc"a@B"""  @B""H  EcC`Ҕ  0   +@ @ ECCm w :  :B   #@`" @ WB BBc$J w5 hDA B  &p~*hD@`5 wȕ5 wF   WwOLD O  X  5.5i& $5 2 ewX WwNEW E   vw22 W   4 v5 05.5h $ e  Nw | Wfɋ 8 W ɋ   ۇN  W  R  ABBBcB ]Dd RBKBBcWE WW>C< CWW1  WW)D' DW!"  WW ,@m8544WwIDMIDFWBBm WJ5 DA  WwwNPRw HvzX*B  ^<@@  5 0@C  Nu"0W @5 .WWw0. UC  @" 5`.@ XU@TUΕU@C , u"W@5C  @"  ΐ@5 C  0 & < 0 r&e&5 2 zew*w:wjW'& W C pW @"  e wWwwnw n >  u@ @wF "  l 5 @W ڇ@ . 4 B u wwL Ew w< STOPAw0f@" DAw wF5 w wW-.B>C>55>j7 v5. fA eo7Ne 7De7 #5 C Bee @ & &p X5D@ l 7 5 >5j446@5 " " eu u :u <@ 5 wFILE NAME-- @פ  r!RbRdRf@ (   wd NONAME wR BASIC V01B-02 @ 5 A Bc%5Ee XWW@e e B w E B Bc"\  @ 5#u"u#u"5 u!u u#u" BBc""5 #5" 5!eG   瀜  v"$7 4#  : @bAa.     ѕ NONAMEfA. f Re $L   !&@B  5 3j  l&j 2 we  2bw 2 RPLwߋ*Ge 5 f05@ wX5 wCm.( @. Z^ \wJ5 @0 & Bm.ww* H֋ FNFNER POINT MINUS ONE f& b :# J D .# ,  H b@a  e   & # AZ@# & eD`09.:wL7 5 'e77<C & e  5&e  IeeBW @`B 5 .   ɕ.09wPAZaĘ h  פ Ӌ `1Eĥesѕ@ >  'ѕѕɕB  A Z NF @ @  e @ wwZA . ѕ@  ɕ 90C  "ee,$$$$ !e : T :* & # # # $ S S K u.Cѐѐ@ w& .wPTBw e  \ ^ \!YC C /W,W)W&W"WW  <!ѕѕ@  @ wZw wn C "e "ee : : :  # # w   ѕ@ ̆ѐѐf& A<B < N u ::  CC 0 Cc    ܆ ڇe"cK`b  )>*\-,,L+t0+.t/(-h,1),>* p $@!ʋ& emNҋ e f&f wwemׂ |f"f W[ f"f & WM" x65@w "5; "5 v /7 ;;:R J"Ue w 5ҕ    eҔ ww FDEBBBc W W  wW w LWW!kf i&&  eeҤ'  פ   ҥ   B fc`ww . WW!f"f f , 8BY963www BA!wWwzW   Ww nW W C Cm K w$GNDwwh T < w@fA" @  w7 (WC    Cm wwRBGf BBBc"W  BW އu u"5 "W W xʇW C B BBc"WWW B聁 BBc FWNe Bځ BBc W( QQQQQ!Q Q#Q"f N"ff   w 11 w\ fvwD BBԵ YVeCUCCc RLRJG"E$ " fvfv Zf"f fvfv    !!e %wfv " f wNBFwW   eHWWW,W,W)  V/ D w"   ew/b z R w W ^$W& @e e- w e-  $W W ua5hww S= u wPILNwT525iW2 dWP1BLBBc ע 2w ?f BwB"3@  B" h  ע  ע,WW i5 wwBRT wCפ  e W w& wdBہBBc  C* /ע.פ$’85   עעWWw= OOD= BDRCˋeפרf C פӋ¤&   e##    x6<7 ; ;: K Bm""K 5"# 5!e K5 " K5"# 5!eG K L 2 #ARGih $  B" Naww҄!!_BM)..4KwE " e wV5 5#u"w5 u!u u#u"Z fWTwWwBBcW"$=;wETCww    WWf"  WC"w  @""w$ x "Cנננ ננננ  e3&7$5<55444f"!f  wTw J e 5 "H 5 " Lx67 rR5^5;:wBh7v7 ZR5^5;:  wB\f"f \w & ww T , !& Β W  eJf @NSM#%  $ ҃!& Β`#"e 2 `e e ewSTLOVF:B2  x6b 2w@w vw8w,W(7 ^56: &6_f@8*e%5 u"\w "W w\wD   7 j:8x  ""%w& < "DV0 w5 5 " "@ E @EU D e  5 " 7 ;(8J8 Ѐ@"  /7 ;;87;,88;;;(87;488;;;:wf^ER $ \\ $ ( \7 X\8<8n8;x8:w"f&\b *wf*w\w~wlwBWBm-&! "Bc"f"f Bc$  wUFNwh&f&&6Bc% %,  ॲ  W&6Bc" $&B  ,&   wwpw : hw 5 5 5 "wV 4w"  f"7 P;:  7 <:J:!  ewd@$A&B(C*f,5$u&(*,\W# b" H u"B < " u"WwRww6@ 17 Z " KE @< L  GB"A#U B  B e    u"5  B e@"@" 07 ;; ;; 5 ""f"f \ "\& @\" & F  Fƃ2 #     m % ` " `SOB J @SSO 45<eӤ   ## @<me5 B"@C $R J"wB"@C  ,   B eKw ew6 H6 &f&  +-N n 5"  5 " U w4wC  W-"v"W JW   هfe A<C" ˂@ C,%m7"E7.5 5@#& f@& f1EBl@ Cܚ> www @ 43*W%@e6 B dbB be B     "_~4__2 43W E  "5 "H 5 "_~4_2_ 43W  "  5"5 _~4_2_5 & p:   0  "_~4_5 & p:     0 ` "_~4_ 2W& N"#HBN  B j< eЕ _5_ 43W 5 5 " "_~4_2_ 43W  5 5 ""_~4_2_ 2Wŀ"B j<p"_5_ 43XWW 43RWQ 43L ;WI ;@"-2 #- * ce0ece.`eҢ .  0  . %5"5 _~4_2_ 43LWK 43F ;f f"W? 43: ;W7-  # !C"   B j<c ee _^6_5_2_ 43&W! 5 5 " & Ҏ j<e  j=ȋ _~4__2 43W  `e  _5 j<_^6_2_ 43WB j<e05 . 0 f. j<_^6_2_CjCRD OFFSET BMI SYNER ;TOKEN ILLEGAL HERE SWAB R2 BISB (R1)+,R2 ADD (R5),R2 ;R2 NOW POINTS TO SYMBOL TABLE ENTRY JSR PC,@#GETC7 l& U$ > D BASIC V01B-02 *J 6NJ A  I Y-YES N-NOECee!&W!F# w w : N YT e!Ѓw`BC C @5\5"25m,5446 @ 6 USER FNS LOADEDU ee w  &>?RND ?>?ABS >?t?SGN t??BIN ??OCT ?6@TAB 6@`@LEN `@@ASC @@CHR$@|APOS |A"BSEG$"BxBVAL xBBTRM$BBSTR$ TO ACTUAL ARRAY ADDRESS ; ; ROUTINE FALLS THROUGH TO CKBUF. ; GETBUF: JSR PC,GETADD ;CALCULATE ARRAY ADDRESS FROM ; ARRAY NAME POINTED TO BY R1. CMP VARSAV(R5),R3 ;DETERMINE IF GIVEN SUBSCRIPTED ; ARRAY IS WITHIN BOUNDS OF ; DIMENSIONED ARRAY. BHIS ERBUF ;BUFFER ERROR ; ; .SBTTL CKBUF ; ;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ; ; POLISH ROUTINE TO CHECK IF ARRAY ADDRESS SPECIFIED ; IN VARSAV(R5) HAS BEEN DEFINED BY f0f0&fe>B @& fE@0 B  (_ _ >_ \_ N _ \ _  _ H!_ ~"_  _  _  _  j_  _  L_  _  _  _  _  _  _  _  4 _  p"_  "_  "_  "_  V#_  $_  $_  $_  $_  $_ - H  |wF  F F b F@U0$&5 B5 @5 huaw: READYFw* 5 hwJ  ZBE wn w&,wBBc"wL FIOULN&f    `& $  e A u <W$ u   b5 ATL@ fAB q,:e7L7E 5 U76B @ :EU  ʋ$eFNO@ߋ*wF5 huaw ?@ W-!wh AT LINE @5"5 5#5"5 5!eG w. Sw@>5>   BSO~}   _  ꈇ7 \,EeH& EE& Е- eePPPЕ-  W  e0e0PK JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECE%PeD C E SYN W eBAaDCEBBBc  BW @ WыB w @m 5 <5 Ai &5`8 :E 5 @w DELETED w L_ILR@ E%H EU"" "7 TB  L    w~ LTL  5 5 "עע@ פרפ ! #"  5 "e e& C C eC e C ?@fuafh5hffh@ * h   0@ C        e `  Z   0 #  7  #e7  e 5 " " 5 "H 5 "- D" C  0  yEU C 0@      e   v     Pe P    Ee0E * e & ) .  E + - 0   e: . 0 $0 ! .  e 7 <5`8 Ah& D5 9FTSWLODNRf&& e ыW WWWe Wыt $wTLTw    09    & 0eC  .  09 .& E.u +  +-  09 m Ee& e0 E E e C B   Ee&&   v |N v  6 6  hv  `   @ (%.% D %e% e @ D   mm@ 0     A C v %\w     0  @  @ w H  & Dr)&&\   5@5@7 > ,B BB"""B B B B 6LB VVf&\  \& \\r1@\[?\ ew f ?U?*@ڪAD C %     @  f&\&f  & N & . )   v     C 6  %%    w ~6 6 %   Dv   0e%6  6  E v v ·ͅ%\ @       D f C_  fW & @&&&&7 R`j`> pB B B PB Ve\\;@\ \N @   =@f&ysE[\pCf&f&\% a @w   &  f 6A  v  6N\&f f & G   v  76   p  d deA @ A @ %  A @ 6v %\%    w    `@ `  ` `  \\ N A f C %C B    \ w  D& &&@7 B D& && 6  A7 > > B B B B  e\ \S\ e& @7 xB e\Ff& \:יc&>X4%]@& & & & & D&&e #@  @6 7 6 6 #?%-0 @ ׳f&& @׳@f&7 > 4> f&f&7 l>B B B B B B ZB 0   \zf& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 B  ff w   &@& ; A/D. THE A/D CAN BE ENABLED WITH A VARIETY ; OF OPERATIONS DEPENDING ON THE "MODE" SPECIFIED. ; THE NORMAL MODE OF OPERATION (MODE=0) CAUSES ; THE A/D TO SAMPLE WHENEVER ST #1 FIRES. ; TO ENABLE OTHER OPTIONS, MERELY ADD THEIR CODE ; NUMBER TO THE +-*/^()\&;,<==<>==><>><<>="':#[]%$LET VFIF END #LET IF GO TO FOR INPUT FOR OUTPUTFOR TO NEXT THEN STEP GOSUB RETURNINPUT PRINT REMDEF READ DATA CALL FNRND(RNDSIN(COS(SQR(ATN(EXP(LOG(ABS(INT(SGN(TAB(BINOCTOPEN CLOSE CHAIN OVERLAY AS FILE DOUBLE BUF LINE VFDIM RANDOMIZERESTORE STOPENDLISTNHRUNNHRENAMENEWREPLACELISTRUNSAVEOLDSCRCLE ; BUFFER ARRAYS OR IF DATA WRAP AROUND OCCURS. ; SINCE DATA IS STORED IN CIRCULAR BUFFERS (EX- ; CLUDING DMA OPERATIONS), POINTERS WILL BE USED ; TO INSURE THAT INCOMING DATA RATE DOES NOT ; EXCEED THE REMOVAL RATE. A BAD DATA INDICATOR ; WILL BE SET WHEN DATA OVER-RUN OCCURS. THE ; BUFFER POINTERS ARE INITIALLY RESET BEFORE THE ; SAMPLING OPERATION BEGINS. ; ; A/D CHANNELS ARE SAMPLED ON EVERY CLOCK OVERFLOW ; OR FIRING OF ST #1 WITH THE RESULT STORED IN ; CONSECUTIVE DATA CELLS. DATA 8AWw 5iC@ Bw B@c""  B" f 5 B5 @wwB fAN@@@c" A#  0 iw6 DW,C CCc" "  bW C CCc"a@B"""  @B""H  ;cC`Ҕ  0   !@ @ ECCm wh B   #@`" @ WB BBc$J Zw5 hDA B   j$b>@`5 wPȕ5 w*F Z j Ww,OLD L  l L 5.5i& Z$5 2 ewl WwNEW H p w:22 W   45 05.5h Z$ 8e  w 0 Wfɋ  W ɋ |  jۇN  W  f >ABBBcB ]Dd BKBBcWE WW>C< CWW1  WW)D' DW!"  WW ,@m8544Ww\IDMIDFWBBm WJ5 DA  WwwNPRw B.H2R <@@  5 0@C * u"0W @5 .WWw. UC  @" 5`.@ 7U@3UΕ@C  Ƈu"W@5 C  0 & 0 &e&5 2 fewwwW'& W C W @"  e wFWwtww n ( x u@ @wF x X 5 @W Lڇ@ $ 4 B u w~w wb w STOPEwZf@" Aw w5 w2 w~W-.B>C>55>j7 5. ~fA eo7Ne 7De7 #5 C Bee @ & &p X5D@ l 7 ` 5 >5j446@5 " eu u :u <@ 5 wbFILE NAME-- @פ   !RbRdRff@ \   w NONAME w BASIC V01B-02 @ 5 A Bc%5Eex WW@e e B w B Bc"\  @ 5#u"u#u"5 u!u u#u" BBc""5 #5" 5!eG ~  耜  7 >"  : @bAa.     ѕ NONAMEfA. ff Re R$L   !&@B  5 3j  ^l&j 2 we  2bw 2 RPLwߋ*Ge 5 f05@ w5 w`Cm.( @. Z^ \wdJ5 @0 & Bm.w.w* \֋ FNFNERTTING. MOV RTS f& b :# J D .# ,  H b@a  e   & # AZ@# & eD`09.:w7 v5 'e77<C & e  5&e  IeeBW @`B 5 .   ɕ.09wAZ(aĘ h  פ Ӌ `1Eĥesѕ@ >  'ѕѕɕB  A Z NF @ @  e @ ww:ZA . ѕ@  ɕ 90C  "ee$ e  # # # u.Cѐѐ@ w<& .wPTBwL \  R U S!PC C /W,W)W&W"WW  3!ѕѕ@  @ wwwn C "e " ee  # # w   ѕ@ ՆѐѐEQ RTS07 ;NO ASL RTSNPT ;DOUBLE RTSNPT, SO DMA WD CNT SET PROPERLY ;### ADD RTSNPT,R0 RTS07: MOV R0,RTSEND D@VTb  H $^!ʋ& em&ҋ e f&f wwx em f"f W9 f"f & W." 65@w "5 v 7 $$"R J"Ue ww 11 w fvw BBԵ YVeCUCCc RLRJG"E$ " fvfv f"f fvfv    !!e %wfv " N wNBFwJW   efWWW!W!WWOWLWY  V/ 2 w w~ W $W& @e e-p wJ e-^ xW W ua5hw  w/$ > 2 ы J WwB"B  w w 5= u wILNwR525iW2 WJ\BFBBc ע 2wB?f xwB@  B  xע  ע,WW i5 wwBRT w wBBBc C$ )ע(פ’ " עעWWwV= OOD= BDRCˋeפרf C  7 $B $" K Bm""K 5"# 5!e K5 " K5"# 5!eG KARGih $  B" Naww!!LB?!&&,8E ! e, w5 5#u"w5 u!u u#u"F vWAwjBBcW $20ETCwX  D  WWf" &  WC"w @" x "Cנננ ננננ  eJ ZrT40(f"!f  ww  e 5 "H 5 " 7 z$"wB |7 b$"  wH\f"f \wwwOVFvZ~j F jw wW%7  "&" _f@8*e%5 u"\ jW wnwV   7 " $# 5 ""f"f \ "\& @\"  &  2߃2      m % ` `SOBB@C |$R J" ew(6 H6 &f&  +-N 6 d5"  5 " U ww^C x W-"v"W DW  ڇfe A<C" ̂@ zC,%m7"E7.5 5@#& f@& f1EBl@ C & wwhwLSIBLE. MOV (R2),GET(R2) BR ADC02 ;DISABLE A/D AND EXIT ; ADC03: MOV RTSNSC,-(SP) ;NBR OF POINTS TO PROCESS MOV RTSBUF,R2 ;WHERE TO STORE RESULTS ADC04: JSR PC,@#STODAT ;STORE 1ST SAMPLE BIT #4,RTSMOD ;DUAL SAMPLE AND HOLD?  *W%@e6 B dbB be B     "__H_ W E  "5 "H 5 "___H W  "  5"5 ___H5 &    0  "__H5 &      0 ` "__H HW& N"#~xN  B H eЕ _H_H W 5 5 " "___H W  5 5 ""___H HWŀ"B Hp"_H_H XWW RWQ L &WI ;@"-2 #- * ce0ece.`eҢ .  0  . %5"5 ___H LWK F &f f"W? : &W7-  # !C"   B Hc ee _H_H__H &W! 5 5 " & Ҏ He  Nȋ __H_ W  `e  _H H_H__H WB He05 . Hf. H_H__H-R-UNDER A LICENSE ; FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND ; MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE ; COPYRIGHT NOTI-7 & U$ 4(VD BASIC V01B-02 *I 6NJ A  I Y-YES N-NO~/,Cee!F&W!0# w w : N YT e!FЃw,C - v5\5"h5mb5446 ^ 6 USER FNS LOADEDW ,ee w6  &((RND (&)ABS &)\)SGN \))BIN ))OCT )*TAB *H*LEN H*|*ASC |**CHR$*d+POS d+ ,SEG$ ,`,VAL `,,TRM$,,STR$S NOT SUPPLIED BY DIGITAL. ; ; WRITTEN BY: RICK HULLY FEB., 1973 ; ; .SBTTL CONTENTS OF MODULE #2 ; ; THE FOLLOWING COMMAND PR_aa> H p: ^w]F d  \!F  F D F@U0$l&5 B5 @5 huaw READYFw 5 hw  ZBE w' w*,wBBc"w( XFIOULN&f    `D B  e<" 7A 3u <0W$ u "   b   ru B RJ5 ATL@ AB q,:e7L7E 5 U76B @ :EU  ʋ$eFNO@ߋ*wF5 huaw ?@ rW-!w AT LINE @5"5 5#5"5 5!eG vw Swz@>5>   BSO~}   _  ꈇ7 ,EeH& EE& Е- eePPPЕ-  W  e0e0PK JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC;%PeD C E 7 6& B:A u:  <u<  Ԃc 0 Cc    އe K c:~66666679SYN W eBAaDCEBBBc  BW @ WыB w @m 5 <5 Ai &5`8 E T5 @w DELETED *w ;_ILR@ E%H EU"" "7 nB  L    w~ LTL  5 5 "עע@ פרפ ! #"  5 "e e& C C eC e C ?@fuafh5hffh@ D h   0@ C        e `    0 #  7 D &e7  e 5 " " 5 "H 5 "-W 0  D" C  0  yEU C 0@      e |       Pe P    Ee0E $ e & ) .  E + - 0   e: . 0 $0 ! .  e 7 PA0u0 .7 <5`8 Ah& 5 9FTSWLODNRf&& e ыW WWWe WыV $wTLTw    09    & 0eC  .  09 .& E.u +  +-  09 m Ee& e0 E E e C B   Ee&&   v |N v  6 6  hv  `   @ (%.% D %e% e @ D   mm@ 0     A C v %\w     0  @  @ w H  & Dr)&&\   5@5@7         Nf&\  \& \\r1@\[?\ ew f ?U?*@ڪAD C %     @  f&\&f  & N & . )   v     C 6  %%    w ~6 6 %   Dv   0e%6  6  E v v ·ͅ%\ @       D f C_  fW & @&&&&7 R$.$ 4    pe\\;@\ \N @   =@f&ysE[\pCf&f&\% a @w   &  f 6A  v  6N\&f f & G   v  76   p  d deA @ A @ %  A @ 6v %\%    w    `@ `  ` `  \\ N A f C %C B    \ w  D& &&@7  FD& && 6  A7 \ \      e\ \S\ e& @7 x ne\ f& \:יc&>X4%]@& & & & & D&&e #@  @6 7 `6 6 #?%-0 @ ׳f&& @׳@f&7   f&f&7 l          \>f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7  n ff w   &@& +-*/^()\&;,<==<>==><>><<>="':#[]%$LET VFIF END #LET IF GO TO FOR INPUT FOR OUTPUTFOR TO NEXT THEN STEP GOSUB RETURNINPUT PRINT REMDEF READ DATA CALL FNRND(RNDSIN(COS(SQR(ATN(EXP(LOG(ABS(INT(SGN(TAB(BINOCTLEN(ASC(CHR$(POS(SEG$(VAL(TRM$(DAT$STR$(OPEN CLOSE CHAIN OVERLAY AS FILE DOUBLE BUF LINE VFDIM RANDOMIZERESTORE STOPENDLISTNHRUNNHRENAMENEWREPLACELISTRUNSAVEOLDSCRCLE! <--LINE(R5) NEEDED ; +---------------+ ; ! USER AREA ! ; ! STORAGE CELLS ! ; R5 POINTS--> ! ! ; +---------------+ ; ; ; -- ; ; CODE AREA CONTAINS STRING OF CODE BYTES WHICH COMPRISE ; THE COMPILED CODE TO BE INTERPETED. THE SYNTAX SCAN OF THESE ; CODE BYTES IS FACILITATED BY THE JUDICIOUS PLACEMENT ; OF CERTAIN OF THESE CODE BYTES TO BE CALLED 'TOKENS'. ; IF THE HIGH BIT OF A TOKEN IS ON ; IT IS A SYSTEM SYMBOL (S.SYM), (SEE TABLE, BELOW.) ; HIGH BIT OFF SIGNALS TOKEN AS THE HIGH r8AWw R5iC@ Bw B@c""  B" f &5 B5 @ww2 fAN@@@c" A#  0 iwJ XDW,C CCc" "  4W C CCc"a@B"""  @B""H  EcC`Ҕ  0   +@ @ ECCm w :  :B   #@`" @ WB BBc$J w5 hDA B  &p~*hD@`5 wȕ5 wF   WwOLD A  X  5.5i& $5 2 ewX WwNEW D   vw22 W   4 v5 05.5h $ e  Nw | Wfɋ 8 W ɋ   ۇN  W  R  ABBBcB ]Dd RBKBBcWE WW>C< CWW1  WW)D' DW!"  WW ,@m8544WwIDMIDFWBBm WJ5 DA  WwwNPRw HvzX*B  ^<@@  5 0@C  Nu"0W @5 .WWw0. UC  @" 5`.@ XU@TUΕU@C , u"W@5C  @"  ΐ@5 C  0 & < 0 r&e&5 2 zew*w:wjW'& W C pW @"  e wWwwnw n >  u@ @wF "  l 5 @W ڇ@ . 4 B u wwL #w w< STOP w0f@" DAw wF5 w wW-.B>C>55>j7 v5. fA eo7Ne 7De7 #5 C Bee @ & &p X5D@ l 7 5 >5j446@5 " " eu u :u <@ 5 wFILE NAME-- @פ  r!RbRdRf@ (   wd NONAME wR BASIC V01B-02 @ 5 A Bc%5Ee XWW@e e B w ; B Bc"\  @ 5#u"u#u"5 u!u u#u" BBc""5 #5" 5!eG   瀜  v"$7 4#  : @bAa.     ѕ NONAMEfA. f Re $L   !&@B  5 3j  l&j 2 we  2bw 2 RPLwߋ*Ge 5 f05@ wX5 wCm.( @. Z^ \wJ5 @0 & Bm.ww* H֋ FNFNER CODE = LOFREE+2 f& b :# J D .# ,  H b@a  e   & # AZ@# & eD`09.:wL7 5 'e77<C & e  5&e  IeeBW @`B 5 .   ɕ.09wPAZaĘ h  פ Ӌ `1Eĥesѕ@ >  'ѕѕɕB  A Z NF @ @  e @ wwZA . ѕ@  ɕ 90C  "ee,$$$$ !e : T :* & # # # $ S S K u.Cѐѐ@ w& .wPTBw e  \ ^ \!YC C /W,W)W&W"WW  <!ѕѕ@  @ wZw wn C "e "ee : : :  # # w   ѕ@ ̆ѐѐf& A<B < N u ::  CC 0 Cc    ܆ ڇe"cK`b  )>*\-,,L+t0+.t/(-h,1),>* p $@!ʋ& emNҋ e f&f wwemׂ |f"f W[ f"f & WM" x65@w "5; "5 v /7 ;;:R J"Ue w 5ҕ    eҔ ww FDEBBBc W W  wW w LWW!kf i&&  eeҤ'  פ   ҥ   B fc`ww . WW!f"f f , 8BY963www BA!wWwzW   Ww nW W C Cm K w$GNDwwh T < w@fA" @  w7 (WC    Cm wwRBGf BBBc"W  BW އu u"5 "W W xʇW C B BBc"WWW B聁 BBc FWNe Bځ BBc W( QQQQQ!Q Q#Q"f N"ff   w 11 w\ fvwD BBԵ YVeCUCCc RLRJG"E$ " fvfv Zf"f fvfv    !!e %wfv " f wNBFwW   eHWWW,W,W)  V/ D w"   ew/b z R w W ^$W& @e e- w e-  $W W ua5hww Z= u wPILNwT525iW2 dWP1BLBBc ע 2w ?f BwB"3@  B" h  ע  ע,WW i5 wwBRT wCפ  e W w& wdBہBBc  C* /ע.פ$’85   עעWWw= OOD= BDRCˋeפרf C פӋ¤&   e##    x6<7 ; ;: K Bm""K 5"# 5!e K5 " K5"# 5!eG K L 2 #ARGih $  B" Naww҄!!_BM)..4KwE " e wV5 5#u"w5 u!u u#u"Z fWTwWwBBcW"$=;wETCww    WWf"  WC"w  @""w$ x "Cנננ ננננ  e3&7$5<55444f"!f  wTw J e 5 "H 5 " Lx67 rR5^5;:wBh7v7 ZR5^5;:  wB\f"f \w & ww T , !& Β W  eJf @NSM#%  $ ҃!& Β`#"e 2 `e e ewSTLOVF:B2  x6b 2w@w vw8w,W(7 ^56: &6_f@8*e%5 u"\w "W w\wD   7 j:8x  ""%w& < "DV0 w5 5 " "@ E @EU D e  5 " 7 ;(8J8 Ѐ@"  /7 ;;87;,88;;;(87;488;;;:wf^ER $ \\ $ ( \7 X\8<8n8;x8:w"f&\b *wf*w\w~wlwBWBm-&! "Bc"f"f Bc$  wUFNwh&f&&6Bc% %,  ॲ  W&6Bc" $&B  ,&   wwpw : hw 5 5 5 "wV 4w"  f"7 P;:  7 <:J:!  ewd@$A&B(C*f,5$u&(*,\W# b" H u"B < " u"WwRww6@ 17 Z " KE @< L  GB"A#U B  B e    u"5  B e@"@" 07 ;; ;; 5 ""f"f \ "\& @\" & F  Fƃ2 #     m % ` " `SOB J @SSO 45<eӤ   ## @<me5 B"@C $R J"wB"@C  ,   B eKw ew6 H6 &f&  +-N n 5"  5 " U w4wC  W-"v"W JW   هfe A<C" ˂@ C,%m7"E7.5 5@#& f@& f1EBl@ Cܚ> www @SCALSVECTPRDOTOAPNTbPTIMEXTIMRPYSTATOTEXTWSUBPHESUBzILPENZJNOSCMDONMONMOFFNTRAKQERASJINITDLDSTPKSTOPKDCNTKCONTKXGRAxRYGRARAGETUDFIXNFIXNFREE*NAPUTPUFIGR@VFPUTVDSAVr?SAVEr?RSTRBff b    P  8 j Y$ fI7 i?    < 40"N!$ e $   "ֆ" e   e Y, $)  E  $ " 77 ( 0  @  W wLw7e7& w w. e@`&@VBNB&w ^tBFB7HB  &* wbwb ?NER-C .w wwf& B:A u:  <u< ' Ԃc 0 Cc    ݆ ۇe K cD &N<e>wm  & 5"5 w" WORDS FOR DISPLAY FILE  Tw e wC  "( NER - FOR DISPLAY BUFFERN R$!   8& $ C ;" $$ e" &%3 & m ea ` $  Be>   $ tf Uf,Awڭ7 * 6dY|  pY7 7 7^7 XC D 7 wwxwlUdf p? ````e  f"\ V \w&77\ \ \\B   5 5 "\&D \wwGee\~G p- f"f \& @\ "\7 nW\w^\W W wBw>& WW W Ww\e$U.\e$@ABCf. "`%Y&ܫ  e?7ƫz7^T 7 7 7  *7 HtH-:DFO - :e "    nGFFFFFFHw   vhe e%IFe> INS <  ,   H w  H 76 wD .IFDF $RT11 .A 'LISTNH' .BYTE .L $Y @ &\ JWnw fGFJB"w  >0  " w: `J  , J | J j f 7 wf L \w47  7  GRIF4RI2NJ&BaBBc"<&D $/,1 @C2       m e` `SOBw~wl$ $ * T J-B ` 6  G xdY K%K KG~Yx 7 w `****.LYX `,} G  *7 f,we5NO VT11 HDW5 5VT11 IN USE @Aew XpL  LL$L$LHN L7 7 N 7 j7 H & T z,7p 7 dY7 7 IjF ~Y  pY pYwI$LdYVD w4#WwF7 Xw GFMB"w  xv  w bGF"N pw hw@& RFFFFFFNN  eP 0P 7  U P P\ UU `&  l 7f"f 5 E5"  7`  "5 r U f"f 5 ФE5" TF 7`> : "5 * U v &7 JJR J"L "ł P GFFFFFOB"  PUw ^7 U ] l e ^ & U  7 A 6 ]]e ] H \U D nQ]  tQ w 7 <U wU ]j]  e  <%Uf&f & 8Q zQJQ dQpR tG(QȮOVF DV0 d \>QV\ |%\ z v \AORf\\f"f  W Q\  QGRnQIF4RtQQ7  6J pw7  U @wZ@" 7 U @"@  \ & @\ 7 7 L GR- RnQRR\ 4RtQIJQG2NR]w  ?U@  ~ B BBcWWwвwߗ$$ N& B "8b7 L p?":e  *  @     "- 4RtQS RnQSU@ w fGQFFQFQFQS 7 T DGtG DGGU w w" "U \w w"U ` ~"U Lw&&\E\8Q\7 lGT\QbGtGbGbGDGTTG FJT  @" \   w QGFQbG`U ("UtGnU wݶ4UUUU RnQU 4RtQU7 5  4R> :]6 vR](EP4 r"UJU wݷ"5 E@"UV"VVU5 5 "U"7 5 U bbG"U4V wT QG2NQNVU $BJBBc$D $ 7 U @  ")7 7  "  rR]$ 7 b4R ]]R www NQGFQbGW "UtGW w۶7 5  4R  R F]EP |  $"   U EQwE@5 E  7 W XWWSw&D L FFC"    fe bE! R J BĔ  47 ,Ĕ   5 (w5 GFX b-Y f J!@"w  @70z ""Y 7"Y7Rw|X  m7 $ *VY  ~w0TpY#~YYYT`_@@_?@__x@o^@O@TdY 43*W%@e6 B dbB be B     "_~4__2 43W E  "5 "H 5 "_~4_2_ 43W  "  5"5 _~4_2_5 & p:   0  "_~4_5 & p:     0 ` "_~4_ 2W& N"#& N  B j< eЕ _5_ 43W 5 5 " "_~4_2_ 43W  5 5 ""_~4_2_ 2Wŀ"B j<p"_5_ 43XWW 43RWQ 43L ;WI ;@"-2 #- * ce0ece.`eҢ .  0  . %5"5 _~4_2_ 43LWK 43F ;f f"W? 43: ;W7-  # !C"   B j<c ee _^6_5_2_ 43&W! 5 5 " & Ҏ j<e  j=ȋ _~4__2 43W  `e  _5 j<_^6_2_ 43WB j<e05 . 0 f. j<_^6_2__^P (R0),R1 BHI .+4 CLR (R0) EDICHI: TST (R0)+ ;### DEC R2 BGT EDICHG SUB R4,R1 ;### BR .+4 EDIPUT: CLR R1 SUB_7 l& U$ YD BASIC V01B-02 *E 6NJ A  I Y-YES N-NO`Cee!&W! ^C _ 5\5"5m 5446 @ 6 USER FNS LOADEDC ee wޠ  &Y"ZRND "Z`ZABS `ZZSGN ZZBIN Z[OCT [X[TAB X[[LEN [[ASC [[CHR$[\POS \D]SEG$D]]VAL ]]TRM$] ^STR$R3,(R5) BLO EDIMOVE TSTB -(R2) BEQ .+4 INC R2 ;R2 NOW POINTS TO BYTE AFTER THE .EOF. BIT R2,#1 BEQ .+4 CLRB (R2)+ ;R2 NOW HAS THE NEW START OF THE SYMTAB. MOV R2,(R5) MOV (R3)+8QSS>$K H p: ^wOF d  \!F  F D F@U0$l&5 B5 @5 huaw READYFw 5 hw  ZBE w' w*,wBBc"w( XFIOULN&f    `D B  e<" 7A 3u <0W$ u "   b   ru B RJ5 ATL@ AB q,:e7L7E 5 U76B @ :EU  ʋ$eFNO@ߋ*wF5 huaw ?@ rW-!w AT LINE @5"5 5#5"5 5!eG vw Uwz@>5>   BSO~}   _  ꈇ7 ,EeH& EE& Е- eePPPЕ-  W  e0e0PK JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECM%PeD C E 7 6& B:A u:  <u<  Ԃc 0 Cc    އe K c:~66666679SYN W eBAaDCEBBBc  BW @ WыB w @m 5 <5 Ai &5`8 E T5 @w DELETED Tw O_ILR@ E%H EU"" "7 nB  L    w~ LTL  5 5 "עע@ פרפ ! #"  5 "e e& C C eC e C ?@fuafh5hffh@ D h   0@ C        e `    0 #  7 D &e7  e 5 " " 5 "H 5 "-W 0  D" C  0  yEU C 0@      e |       Pe P    Ee0E $ e & ) .  E + - 0   e: . 0 $0 ! .  e 7 PA0u0 .7 <5`8 Ah& 5 9FTSWLODNRf&& e ыW WWWe WыV $wTLTw    09    & 0eC  .  09 .& E.u +  +-  09 m Ee& e0 E E e C B   Ee&&   v |N v  6 6  hv  `   @ (%.% D %e% e @ D   mm@ 0     A C v %\w     0  @  @ w H  & Dr)&&\   5@5@7         Nf&\  \& \\r1@\[?\ ew f ?U?*@ڪAD C %     @  f&\&f  & N & . )   v     C 6  %%    w ~6 6 %   Dv   0e%6  6  E v v ·ͅ%\ @       D f C_  fW & @&&&&7 R$.$ 4    pe\\;@\ \N @   =@f&ysE[\pCf&f&\% a @w   &  f 6A  v  6N\&f f & G   v  76   p  d deA @ A @ %  A @ 6v %\%    w    `@ `  ` `  \\ N A f C %C B    \ w  D& &&@7  FD& && 6  A7 \ \      e\ \S\ e& @7 x ne\ f& \:יc&>X4%]@& & & & & D&&e #@  @6 7 `6 6 #?%-0 @ ׳f&& @׳@f&7   f&f&7 l          \>f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7  n ff w   &@& +-*/^()\&;,<==<>==><>><<>="':#[]%$LET VFIF END #LET IF GO TO FOR INPUT FOR OUTPUTFOR TO NEXT THEN STEP GOSUB RETURNINPUT PRINT REMDEF READ DATA CALL FNRND(RNDSIN(COS(SQR(ATN(EXP(LOG(ABS(INT(SGN(TAB(BINOCTLEN(ASC(CHR$(POS(SEG$(VAL(TRM$(DAT$STR$(OPEN CLOSE CHAIN OVERLAY AS FILE DOUBLE BUF LINE VFDIM RANDOMIZERESTORE STOPENDLISTNHRUNNHRENAMENEWREPLACELISTRUNSAVEOLDSCRCLE SAVE IT MOV (SP)+,T1(R5) MOV (SP)+,R0 ;GET "SIZE" BLE CLRD0 ;SIZE <= 0 IS ILLEGAL MOV (SP)+,R2 ;R2 POINTS TO BUFFER DESCRIPTOR ADDRESS MOV (R2),R3 ;GET START ADDRESS OF BUFFER MOV R0,R0SAVE(R5) ;SAVE R0 THRU R3 FOR LATER USE MOV R1,R1SAVE(R5) MOV R2,R2SAVE(R5) MOV R3,R3SAVE(R5) MOV END(R2),-(SP) ;CALCULATE SIZE OF BUFFER SUB R3,(SP) ;(END ADDRESS - BEGINNING ADDRESS)/2 ASR (SP) CMP R0,(SP)+ ;"SIZE" <= BUFFER SIZE? BLE CLRD1 ;YES: CONTINUE CLRD0: JMP @#ERNOR ;"SIZE" TOO LARGE r8AWw R5iC@ Bw B@c""  B" f &5 B5 @ww2 fAN@@@c" A#  0 iwJ XDW,C CCc" "  4W C CCc"a@B"""  @B""H  EcC`Ҕ  0   +@ @ ECCm w :  :B   #@`" @ WB BBc$J w5 hDA B  &p~*hD@`5 wȕ5 wF   WwOLD Z  X  5.5i& $5 2 ewX WwNEW 2   vw22 W   4 v5 05.5h $ e  Nw | Wfɋ 8 W ɋ   ۇN  W  R  ABBBcB ]Dd RBKBBcWE WW>C< CWW1  WW)D' DW!"  WW ,@m8544WwIDMIDFWBBm WJ5 DA  WwwNPRw HvzX*B  ^<@@  5 0@C  Nu"0W @5 .WWw0. UC  @" 5`.@ XU@TUΕU@C , u"W@5C  @"  ΐ@5 C  0 & < 0 r&e&5 2 zew*w:wjW'& W C pW @"  e wWwwnw n >  u@ @wF "  l 5 @W ڇ@ . 4 B u wwL Ew w< STOP;w0f@" DAw wF5 w wW-.B>C>55>j7 v5. fA eo7Ne 7De7 #5 C Bee @ & &p X5D@ l 7 5 >5j446@5 " " eu u :u <@ 5 wFILE NAME-- @פ  r!RbRdRf@ (   wd NONAME wR BASIC V01B-02 @ 5 A Bc%5Ee XWW@e e B w I B Bc"\  @ 5#u"u#u"5 u!u u#u" BBc""5 #5" 5!eG   瀜  v"$7 4#  : @bAa.     ѕ NONAMEfA. f Re $L   !&@B  5 3j  l&j 2 we  2bw 2 RPLwߋ*Ge 5 f05@ wX5 wCm.( @. Z^ \wJ5 @0 & Bm.ww* H֋ FNFNERRENS. +GETBUF  f& b :# J D .# ,  H b@a  e   & # AZ@# & eD`09.:wL7 5 'e77<C & e  5&e  IeeBW @`B 5 .   ɕ.09wPAZaĘ h  פ Ӌ `1Eĥesѕ@ >  'ѕѕɕB  A Z NF @ @  e @ wwZA . ѕ@  ɕ 90C  "ee,$$$$ !e : T :* & # # # $ S S K u.Cѐѐ@ w& .wPTBw e  \ ^ \!YC C /W,W)W&W"WW  <!ѕѕ@  @ wZw wn C "e "ee : : :  # # w   ѕ@ ̆ѐѐf& A<B < N u ::  CC 0 Cc    ܆ ڇe"cK`b  )>*\-,,L+t0+.t/(-h,1),>* p $@!ʋ& emNҋ e f&f wwemׂ |f"f W[ f"f & WM" x65@w "5; "5 v /7 ;;:R J"Ue w 5ҕ    eҔ ww FDEBBBc W W  wW w LWW!kf i&&  eeҤ'  פ   ҥ   B fc`ww . WW!f"f f , 8BY963www BA!wWwzW   Ww nW W C Cm K w$GNDwwh T < w@fA" @  w7 (WC    Cm wwRBGf BBBc"W  BW އu u"5 "W W xʇW C B BBc"WWW B聁 BBc FWNe Bځ BBc W( QQQQQ!Q Q#Q"f N"ff   w 11 w\ fvwD BBԵ YVeCUCCc RLRJG"E$ " fvfv Zf"f fvfv    !!e %wfv " f wNBFwW   eHWWW,W,W)  V/ D w"   ew/b z R w W ^$W& @e e- w e-  $W W ua5hww ,= u wPILNwT525iW2 dWP1BLBBc ע 2w ?f BwB"3@  B" h  ע  ע,WW i5 wwBRT wCפ  e W w& wdBہBBc  C* /ע.פ$’85   עעWWw= OOD= BDRCˋeפרf C פӋ¤&   e##    x6<7 ; ;: K Bm""K 5"# 5!e K5 " K5"# 5!eG K L 2 #ARGih $  B" Naww҄!!_BM)..4KwE " e wV5 5#u"w5 u!u u#u"Z fWTwWwBBcW"$=;wETCww    WWf"  WC"w  @""w$ x "Cנננ ננננ  e3&7$5<55444f"!f  wTw J e 5 "H 5 " Lx67 rR5^5;:wBh7v7 ZR5^5;:  wB\f"f \w & ww T , !& Β W  eJf @NSM#%  $ ҃!& Β`#"e 2 `e e ewSTLOVF:B2  x6b 2w@w vw8w,W(7 ^56: &6_f@8*e%5 u"\w "W w\wD   7 j:8x  ""%w& < "DV0 w5 5 " "@ E @EU D e  5 " 7 ;(8J8 Ѐ@"  /7 ;;87;,88;;;(87;488;;;:wf^ER $ \\ $ ( \7 X\8<8n8;x8:w"f&\b *wf*w\w~wlwBWBm-&! "Bc"f"f Bc$  wUFNwh&f&&6Bc% %,  ॲ  W&6Bc" $&B  ,&   wwpw : hw 5 5 5 "wV 4w"  f"7 P;:  7 <:J:!  ewd@$A&B(C*f,5$u&(*,\W# b" H u"B < " u"WwRww6@ 17 Z " KE @< L  GB"A#U B  B e    u"5  B e@"@" 07 ;; ;; 5 ""f"f \ "\& @\" & F  Fƃ2 #     m % ` " `SOB J @SSO 45<eӤ   ## @<me5 B"@C $R J"wB"@C  ,   B eKw ew6 H6 &f&  +-N n 5"  5 " U w4wC  W-"v"W JW   هfe A<C" ˂@ C,%m7"E7.5 5@#& f@& f1EBl@ Cܚ> www @USEZ?RDB?ACC?ADCBRTSBLEDCSETR:ESETCEHISTDFWAITpFDIR6GDORxGDRSGREL0HCLRDHPUTDIDIS JFSHLJDXYzJ `?? bRRR   %"? , ,  %wW  5  LA @*B@? V wP .A@?_6BW_ 43\_2\f f"\\68@R?T?R@ ֿ@  ; W- Hu ""U"5 }-"2e2\"NOR EeH "5 "@@e2 \BBBc :\_ C-?/\e BUFʾUľ5 ,2 e," 2 rUl e## >UB(BBc%" :%5  um eW!\__4W\ 8.5 m$ _@eC@ U5U@5UU 5' U mm5@ m72 _(A ߐR?_6B B@C7 B2 TD@2B-p B  B"BBB& e% _6B+ E. E=2 2 %B2 22 2 @E ߋR? R?_,@5 A5  ߋ A eߋ Z^A4@ F,E2 B@^@@?^@@?^@pE 5 "_" ]5EU`77P_6B4@ F.E2 B@^@@?Eu& #)#& & 4Ff"f   > F >F " @^@5 "_"A&wd_2zECHC0E27 BA@ @?^@^Fw"_6B0E2 B@^@FW-" 6E@"   7 _6Bʋ  z@ @6Eߋ 5Ep F A <7XߋS?U  ߋU? >BV? A X?S?_,@ B@@*B@*BFGU  U @ < @@ @_2B2G2 B@@?^@*BGC"UP @ @@ wlH4@ 2G2S?E@ BA@ @?@?^@@?@*B@GUPU?UU?<S?U@wBe4G2 @^@@?DH  u]" _6B_2 ` @  ߋS? ߋU?  A S?E@_,@U@H2 BA@ @?^@@?@I0.5$u&(*  _@  >III^@VI@"B(2 f0f.  >|I(C* @f"f   >IH2 >I^@I}"*e*B(r-*؃%A&_6B%" "\f$\\BH2 BA @?^@@JC" A_6B.J.5 0wH K" e_6BZJ.5 0wdH K" H J.u0w6H `UK"  b H2 BA @J*BA @?^@@?^@J}. 0e\ b  _2 H  F,Bl ,l *l e %%Uߋ    2  43*W%@e6 B dbB be B     "_~4__2 43W E  "5 "H 5 "_~4_2_ 43W  "  5"5 _~4_2_5 & p:   0  "_~4_5 & p:     0 ` "_~4_ 2W& N"#N  B j< eЕ _5_ 43W 5 5 " "_~4_2_ 43W  5 5 ""_~4_2_ 2Wŀ"B j<p"_5_ 43XWW 43RWQ 43L ;WI ;@"-2 #- * ce0ece.`eҢ .  0  . %5"5 _~4_2_ 43LWK 43F ;f f"W? 43: ;W7-  # !C"   B j<c ee _^6_5_2_ 43&W! 5 5 " & Ҏ j<e  j=ȋ _~4__2 43W  `e  _5 j<_^6_2_ 43WB j<e05 . 0 f. j<_^6_2_8QPINTER BEQ SAV2 ; BRANCH IF ALL SUBP DONE MOV -(R0),R2 ; GET ADR OF SUBP MOV R2,R3 ; PUT ADR IN R3 ALSO MOV R2,-(R3) ; PUT ADR8Q7 l& U$ KدD BASIC V01B-02 *P 6NJ A  I Y-YES N-NORCee!&W!bS# w w : N YT e!ЃwFPC 8Q 5\5"5m5446 @ 6 USER FNS LOADED  ee w  &KHLRND HLLABS LLSGN LLBIN L4MOCT 4M~MTAB ~MMLEN MMASC MNCHR$NNPOS NjOSEG$jOOVAL OPTRM$PFPSTR$XIT ; PROCESS DPU INSTRUCTION (SOME OF THEM) SAV4: CMP R3,#DJMP ; A DISPLAY JUMP? BEQ SAV6 ; YES- BRANCH CMP R3,#DJMP+1 ; A JUMP FROM SUBP (OFF)? BEVlnn>K H p: ^wjF d  \!F  F D F@U0$l&5 B5 @5 huaw READYFw 5 hw  ZBE w' w*,wBBc"w( XFIOULN&f    `D B  e<" 7A 3u <0W$ u "   b   ru B RJ5 ATL@ AB q,:e7L7E 5 U76B @ :EU  ʋ$eFNO@ߋ*wF5 huaw ?@ rW-!w AT LINE @5"5 5#5"5 5!eG vw 0wz@>5>   BSO~}   _  ꈇ7 ,EeH& EE& Е- eePPPЕ-  W  e0e0PK JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECB%PeD C E 7 6& B:A u:  <u<  Ԃc 0 Cc    އe K c:~66666679SYN W eBAaDCEBBBc  BW @ WыB w @m 5 <5 Ai &5`8 E T5 @w DELETED w O_ILR@ E%H EU"" "7 nB  L    w~ LTL  5 5 "עע@ פרפ ! #"  5 "e e& C C eC e C ?@fuafh5hffh@ D h   0@ C        e `    0 #  7 D &e7  e 5 " " 5 "H 5 "-W 0  D" C  0  yEU C 0@      e |       Pe P    Ee0E $ e & ) .  E + - 0   e: . 0 $0 ! .  e 7 PA0u0 .7 <5`8 Ah& 5 9FTSWLODNRf&& e ыW WWWe WыV $wTLTw    09    & 0eC  .  09 .& E.u +  +-  09 m Ee& e0 E E e C B   Ee&&   v |N v  6 6  hv  `   @ (%.% D %e% e @ D   mm@ 0     A C v %\w     0  @  @ w H  & Dr)&&\   5@5@7         Nf&\  \& \\r1@\[?\ ew f ?U?*@ڪAD C %     @  f&\&f  & N & . )   v     C 6  %%    w ~6 6 %   Dv   0e%6  6  E v v ·ͅ%\ @       D f C_  fW & @&&&&7 R$.$ 4    pe\\;@\ \N @   =@f&ysE[\pCf&f&\% a @w   &  f 6A  v  6N\&f f & G   v  76   p  d deA @ A @ %  A @ 6v %\%    w    `@ `  ` `  \\ N A f C %C B    \ w  D& &&@7  FD& && 6  A7 \ \      e\ \S\ e& @7 x ne\ f& \:יc&>X4%]@& & & & & D&&e #@  @6 7 `6 6 #?%-0 @ ׳f&& @׳@f&7   f&f&7 l          \>f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7  n ff w   &@& +-*/^()\&;,<==<>==><>><<>="':#[]%$LET VFIF END #LET IF GO TO FOR INPUT FOR OUTPUTFOR TO NEXT THEN STEP GOSUB RETURNINPUT PRINT REMDEF READ DATA CALL FNRND(RNDSIN(COS(SQR(ATN(EXP(LOG(ABS(INT(SGN(TAB(BINOCTLEN(ASC(CHR$(POS(SEG$(VAL(TRM$(DAT$STR$(OPEN CLOSE CHAIN OVERLAY AS FILE DOUBLE BUF LINE VFDIM RANDOMIZERESTORE STOPENDLISTNHRUNNHRENAMENEWREPLACELISTRUNSAVEOLDSCRCLEF, NORMAL LIST JSR PC,LSTLOOP ;LIST PARTIAL PROGR BR LISTJ .ENDC ;$RT11 .IFDF $RT11 ; 'RENAME' COMMAND NAME: INC R1 CMPB (R1),#.EOL ;CHECK FILE SPECIFIED BNE NAME1 ;YES, GO FIND IT JSR PC,FNDFIL ;NO, PROMPT BR NAME2 NAME1: JSR PC,FNDSTV ;GO FIND PROGRAM NAME NAME2: JSR PC,NAMSET ;SAVE IT BR LISTJ .ENDC ;$RT11 .IFNDF $RT11 ; 'RUN' COMMAND RUN: .ENDC ;$RT11 .IFDF $RT11 ; INITIALIZE FOR RUN SUBROUTINE IRUN: .ENDC JSR PC,CLRVARS MOV CODE(R5),R1 ;INITIALIZE TO SEARCH THRU SA r8AWw R5iC@ Bw B@c""  B" f &5 B5 @ww2 fAN@@@c" A#  0 iwJ XDW,C CCc" "  4W C CCc"a@B"""  @B""H  EcC`Ҕ  0   +@ @ ECCm w :  :B   #@`" @ WB BBc$J w5 hDA B  &p~*hD@`5 wȕ5 wF   WwOLD W  X  5.5i& $5 2 ewX WwNEW C   vw22 W   4 v5 05.5h $ e  Nw | Wfɋ 8 W ɋ   ۇN  W  R  ABBBcB ]Dd RBKBBcWE WW>C< CWW1  WW)D' DW!"  WW ,@m8544WwIDMIDFWBBm WJ5 DA  WwwNPRw HvzX*B  ^<@@  5 0@C  Nu"0W @5 .WWw0. UC  @" 5`.@ XU@TUΕU@C , u"W@5C  @"  ΐ@5 C  0 & < 0 r&e&5 2 zew*w:wjW'& W C pW @"  e wWwwnw n >  u@ @wF "  l 5 @W ڇ@ . 4 B u wwL $w w< STOPFw0f@" DAw wF5 w wW-.B>C>55>j7 v5. fA eo7Ne 7De7 #5 C Bee @ & &p X5D@ l 7 5 >5j446@5 " " eu u :u <@ 5 wFILE NAME-- @פ  r!RbRdRf@ (   wd NONAME wR BASIC V01B-02 @ 5 A Bc%5Ee XWW@e e B w B B Bc"\  @ 5#u"u#u"5 u!u u#u" BBc""5 #5" 5!eG   瀜  v"$7 4#  : @bAa.     ѕ NONAMEfA. f Re $L   !&@B  5 3j  l&j 2 we  2bw 2 RPLwߋ*Ge 5 f05@ wX5 wCm.( @. Z^ \wJ5 @0 & Bm.ww* H֋ FNFNER MOV TABLE1(R2) f& b :# J D .# ,  H b@a  e   & # AZ@# & eD`09.:wL7 5 'e77<C & e  5&e  IeeBW @`B 5 .   ɕ.09wPAZaĘ h  פ Ӌ `1Eĥesѕ@ >  'ѕѕɕB  A Z NF @ @  e @ wwZA . ѕ@  ɕ 90C  "ee,$$$$ !e : T :* & # # # $ S S K u.Cѐѐ@ w& .wPTBw e  \ ^ \!YC C /W,W)W&W"WW  <!ѕѕ@  @ wZw wn C "e "ee : : :  # # w   ѕ@ ̆ѐѐf& A<B < N u ::  CC 0 Cc    ܆ ڇe"cK`b  )>*\-,,L+t0+.t/(-h,1),>* p $@!ʋ& emNҋ e f&f wwemׂ |f"f W[ f"f & WM" x65@w "5; "5 v /7 ;;:R J"Ue w 5ҕ    eҔ ww FDEBBBc W W  wW w LWW!kf i&&  eeҤ'  פ   ҥ   B fc`ww . WW!f"f f , 8BY963www BA!wWwzW   Ww nW W C Cm K w$GNDwwh T < w@fA" @  w7 (WC    Cm wwRBGf BBBc"W  BW އu u"5 "W W xʇW C B BBc"WWW B聁 BBc FWNe Bځ BBc W( QQQQQ!Q Q#Q"f N"ff   w 11 w\ fvwD BBԵ YVeCUCCc RLRJG"E$ " fvfv Zf"f fvfv    !!e %wfv " f wNBFwW   eHWWW,W,W)  V/ D w"   ew/b z R w W ^$W& @e e- w e-  $W W ua5hww S= u wPILNwT525iW2 dWP1BLBBc ע 2w ?f BwB"3@  B" h  ע  ע,WW i5 wwBRT wCפ  e W w& wdBہBBc  C* /ע.פ$’85   עעWWw= OOD= BDRCˋeפרf C פӋ¤&   e##    x6<7 ; ;: K Bm""K 5"# 5!e K5 " K5"# 5!eG K L 2 #ARGih $  B" Naww҄!!_BM)..4KwE " e wV5 5#u"w5 u!u u#u"Z fWTwWwBBcW"$=;wETCww    WWf"  WC"w  @""w$ x "Cנננ ננננ  e3&7$5<55444f"!f  wTw J e 5 "H 5 " Lx67 rR5^5;:wBh7v7 ZR5^5;:  wB\f"f \w & ww T , !& Β W  eJf @NSM#%  $ ҃!& Β`#"e 2 `e e ewSTLOVF:B2  x6b 2w@w vw8w,W(7 ^56: &6_f@8*e%5 u"\w "W w\wD   7 j:8x  ""%w& < "DV0 w5 5 " "@ E @EU D e  5 " 7 ;(8J8 Ѐ@"  /7 ;;87;,88;;;(87;488;;;:wf^ER $ \\ $ ( \7 X\8<8n8;x8:w"f&\b *wf*w\w~wlwBWBm-&! "Bc"f"f Bc$  wUFNwh&f&&6Bc% %,  ॲ  W&6Bc" $&B  ,&   wwpw : hw 5 5 5 "wV 4w"  f"7 P;:  7 <:J:!  ewd@$A&B(C*f,5$u&(*,\W# b" H u"B < " u"WwRww6@ 17 Z " KE @< L  GB"A#U B  B e    u"5  B e@"@" 07 ;; ;; 5 ""f"f \ "\& @\" & F  Fƃ2 #     m % ` " `SOB J @SSO 45<eӤ   ## @<me5 B"@C $R J"wB"@C  ,   B eKw ew6 H6 &f&  +-N n 5"  5 " U w4wC  W-"v"W JW   هfe A<C" ˂@ C,%m7"E7.5 5@#& f@& f1EBl@ Cܚ> www @SCAL$aVECT]RDOT0]APNT]TIMEeTIMRfSTAT\TEXTdSUBPVESUBVLPENWNOSC[DON[ON[OFFV[TRAK_ERASDWINITYDSTPYSTOPYDCNT>YCONT>YXGRA_YGRA_AGETcDFIX\[FIX\[FREEn[APUTbFIGRcFPUTC2 B@*ABC" "_" AAߋ"5 _BnEA >C2 @ BAA@@*A@@*A@@*A@@*AC @"7LB>8.5 m$ _jAeC@ U5U@5UU 5' U mm5@ m72 _A ߐ@_C B@D7 VC2  E@2\C-p VC  VC"fCeC\C& e% _C+ E. E=2 2 %VC2 22 2 @E ߋ@ @_@5 TB5  ߋ TB eߋ Z^AA zGE2 B@*A@@*A@@*AF >F " A*A5 "_"A&wd_2zECHCE27 BAA@@*A*Gw"_CE2 B@*ALGW-" F@"   7 _Cʋ  @ @Fߋ 5Ep F TB <7Xߋ@U  ߋ!@ C"@ TB $@@_@ B@@BABHU  U pA < AA pA_BG2 B@@@*ABZHC"UP @ AA w8IA G2@E@ BAA@@@@*A@@@BAHUP!@U!@<@U@wBeH2 @*A@@I  u]" _C_2 ` @  ߋ@ ߋ!@  TB @E@_@U@I2 BAA@@*A@@@I0.5$u&(*  _jA  >JJJ*A"J@"B(2 f0f.  >HJ(C* pAf"f   >nJI2 >J*AJ}"*e*B(r-*؃%A&_C%" "\f$\\BI2 BA@@*A@JC" TB_CJ.5 0wI K" e_C&K.5 0wdI K" I TK.u0w6I `UK"  b I2 BA@KBA@@*A@@*AK}. 0e\ b  _2 I  F,Bl ,l *l e %%Uߋ    2 ff b    P  8 j f$ fW7 iM    < 40"N!$ e $   "ֆ" e   e f, $)  E  $ " 77 ( 0  M  W wLw7e7& w w. e@`&@OO&w ^OO7O  &* wbw ?NER-C w wwFILE ALREADY EXISTSw05@ wwȸ ?DEV ERR - C ;& ' & ww**SAVE COMPLETED** Tbf (aa  a 7w:;NO, BYPV SS1SAVE(R5),R3 ;MAX SUBSCRIPT CMP R3,#-1 ;CHECK DEFAULT VALUE BEQ OPEN1  0   J Wwf w ww SAVE FILE NOT FOUND Jw5 B & tSVP -wwT NOT ENOUGH DISPLAY BUFFER FOR RESTORE  & e&w ac B a?84wZj 7 bWwԴ@"w  u- <>f& B:A u:  <u< ' Ԃc 0 Cc    ݆ ۇe K cD &N<e>wm  & 5"5 w޵ WORDS FOR DISPLAY FILE  Tw e wC  "( NER - FOR DISPLAY BUFFERP R$!   8& $ C ;" $$ e" &%3 & m ea ` $  Be>   $ tf Uf,Aw7 * 6f|  f7 7 7\^7 XC D 7 wwxwP(U f ? ````e  f"\  \w77\ \ \\B   5 5 "\&D ބ\wzwTTee\T p- f"f \& @\ "\7 nW\w\W W ww& WW W Wwа\e$U.\e$@ABCf. ު`%g&  e?7z7n^T 7 7 7  *7 HU-:DFO - :e "    n`T TT:T@T TT0Vw܂  vhe e% WFe> INS <  ,   H w  H 76 w OVERLAY:JSR PC,FNDSGET FILE NAME ; JSR $f @ &\ JWnw f`T TbWB"w  >0  " w: W  , W | W j f 7 wf L \w7  7  `TV_6W@Tx_6Wv[*X&BaBBc"<&D d$/,1 @C2       m e` `SOBw:w($ $ *  b J-B ` 6  T xf 8Y֚%:YК 8YTfx 7 w Ц`DD (rYg"f `,} T  *7 f,we5NO VT11 HDW5 5VT11 IN USE @Aew Xp`Y dY`Y$`Y$`YJU[ XY7 7 N 7 j7 H &  z,7p 7 f7 7  WjF f  f fwV$LfD <w#WwF7 Xw `T T$[B"w  xv  w b`T Tf[ ,w $w@& R:TT@T TT$T[  eP 0P 7  U P P\ UU <`&J  l 7f"f 5 ԗE5"  7`  "5 r Tb f"f 5 E5" TF 7`> : "5 b* Lb v &7 WWR J"L "̷ `T TT:T@T T ]B"  PUw ^7 U ] l e ^ & U  7 A 6 ]]e ] H \U D ^]  ^ w 7 <U wU ]j]  e  <%ʡUġf&f & |^b z^^ ^_ Tl^OVF DV0 d \^\ |%\ z v \AORf\\f"f  W ^\  ^`TV_^@W@Tx_^&_7  6W pw7 db @wZ@" 7 \b @"@  \ r & @\ 7 7 L `T_- V_^_ `\ x_^6WW^Tv[`]w  ?U@  ~ B BBcWWwwҗ$$ N& B "8b7 L ?":e  *  @     "- x_^ a V_^ aU@ w f`T^T@T^$T^@T^>a 7 b TT T6ULb w w" "Tb \w w"^b ` ~"Vb Lw&&\E\|^\7 Ta^TTTTTab6U :TW:b  @" \   wh ^T@T^Tb (fbTb wBж4bbbb V_^c x_^c7 5  x_> :]6 vV_](EP4 rfbW"c wϷ"5 E@"@cFcfcLcTb5 5 "U"7 5 Lb bTfbxc wT ^Tv[^cU $BJBBc$D $ 7 U @  ")7 7  "  rV_]$ 7 bx_ ]]R www N^T@T^TLd fbTZd wζ7 5  x_  V_ F]EP |  $"   U EQwE@5 E  7 e eWWSwΠ&D  F TC"    fe bE! R J BĔ  47 ,Ĕ   5 (w5 `T Te b-\f f J!@"w @706 "ff 7ff7w| f  m7  *f  ~w0Tf#fffT`_@@_?@__x@o^@O@Tf 43*W%@e6 B dbB be B     "_~4__2 43W E  "5 "H 5 "_~4_2_ 43W  "  5"5 _~4_2_5 & p:   0  "_~4_5 & p:     0 ` "_~4_ 2W& N"#ܘN  B j< eЕ _5_ 43W 5 5 " "_~4_2_ 43W  5 5 ""_~4_2_ 2Wŀ"B j<p"_5_ 43XWW 43RWQ 43L ;WI ;@"-2 #- * ce0ece.`eҢ .  0  . %5"5 _~4_2_ 43LWK 43F ;f f"W? 43: ;W7-  # !C"   B j<c ee _^6_5_2_ 43&W! 5 5 " & Ҏ j<e  j=ȋ _~4__2 43W  `e  _5 j<_^6_2_ 43WB j<e05 . 0 f. j<_^6_2_Vlk GONOSAV:MOV (R2),R1 ;GIVE CONTROL TO FIRST LINE OF SUBROUTINE JMP EXECUTE ERRDEEP:TRAP 0 .IFNDF $LONGER .ASCII \GND\ .ENDC Vl7 l& U$ zgD BASIC V01B-02 *R 6NJ A  I Y-YES N-NOmCee!&W!n# w w : N YT e!ЃwdkC Vl ړ5\5"̓5mƓ5446 @ 6 USER FNS LOADED  ee w  &gfgRND fggABS ggSGN ghBIN hRhOCT RhhTAB hhLEN hhASC h$iCHR$$iiPOS ijSEG$jjVAL j"kTRM$"kdkSTR$END0 CMPB R0,#.GOTO BNE ERRSX6 IFEND0: MOV R1,-(SP) IFEND1: MOV FAC2(R5),R1 JSR PC,BLOCK ;ADDRESS NEXT CHAR BCC IFEND2 ;NO EOF, BYPASS MOV (SP)+,R1 ;EOF -- RESTORE R1 BR GOTO ;AND TAKE BRANCH IFEND2: MOVB @FNEXT(R1),R0 ;GET THE CHARACTER BEQ IFEND1 ;IGNORE NULLS CMPB R0,#LF ;CHECK FOR LINE FEED BEQ IFEND1 ;IGNORE IT, TOO CMPB R0,#177 ;RUBOUTS, TOO ;### 26G6G&fe~B @& fE@^*F B ^*} ^*!w ^*,X?0_ @>._ @2_ @F5_ @86_ @F6_ @6_ @<7_ @|8_ @ `*_ @ +_ @ \-_ @ 3_ @ 3_ @ 3_ @ 4_ @ (5_ @ f6_ @ 6_ @ 7_ @ (7_ @ .7_ @ 47_ @ >7_ @ D7_ @ N7_ @ 7_ @ :_ @ :_ @ ;_ @ ;_ @ `;_ @ ;_ @ |<_ @ <_ @ <_ @ =_ @ v=_ @ =_ @ >_ @`*_ @+_ @-_ @._ @._ @"1_ @Dr H  *wF d  F z fF D LF@U0$8&5 B5 @5 huaw READYFw 5 hw  ZBE w w,wBBc"w FIOULN&f    `D B  e<" 7A 3u <0W$ u "   b   ru B RJ5 ATL@ AB q,:e7L7E 5 U76B @ :EU  ʋ$eFNO@ߋ*wF5 huaw ?@ rW-!w AT LINE @5"5 5#5"5 5!eG vw Wwz@>5>   BSO~}   _  ꈇ7 ,EeH& EE& Е- eePPPЕ-  W  e0e0PK JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC %PeD C E 7 6& B:A u:  <u<  Ԃc 0 Cc    އe K ct4<DLT\dlSYN W eBAaDCEBBBc  BW @ WыB w @m 5 <5 Ai &5`8 E T5 @w DELETED w _ILR@ E%H EU"" "7 nB  L    w~ LTL  5 5 "עע@ פרפ ! #"  5 "e e& C C eC e C ?@fuafh5hffh@ D h   0@ C        e `    0 #  7  &e7  e 5 " " 5 "H 5 "-W  D" C  0  yEU C 0@      e |       Pe P    Ee0E $ e & ) .  E + - 0   e: . 0 $0 ! .  e 7 PA0u0 .7 <5`8 Ah& 5 9FTSWLODNRf&& e ыW WWWe Wы" $wTLTw    09    & 0eC  .  09 .& E.u +  +-  09 m Ee& e0 E E e C B   Ee&&   v |N v  6 6  hv  `   @ (%.% D %e% e @ D   mm@ 0     A C v %\w     0  @  @ w H  & Dr)&&\   5@5@7   h    j f&\  \& \\r1@\[?\ ew f ?U?*@ڪAD C %     @  f&\&f  & N & . )   v     C 6  %%    w ~6 6 %   Dv   0e%6  6  E v v ·ͅ%\ @       D f C_  fW & @&&&&7 Rjh  h h <e\\;@\ \N @   =@f&ysE[\pCf&f&\% a @w   &  f 6A  v  6N\&f f & G   v  76   p  d deA @ A @ %  A @ 6v %\%    w    `@ `  ` `  \\ N A f C %C B    \ w  D& &&@7  D& && 6  A7 hd( nd(x ~dd    V e\ \S\ e& @7 x :e\f& \:יc&>X4%]@& & & & & D&&e #@  @6 7 h,6 6 #?%-0 @ ׳f&& @׳@f&7   hf&f&7 l         \ f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 h : ff w   &@& SCALz$VECT8!RDOT APNT TIMED)TIMR)STATN TEXTN(SUBPrESUBLPENNOSCdDONlONlOFFTRAK^"ERASINITDSTPdSTOPdDCNTCONTXGRA#YGRA #AGETn&DFIXFIXFREEAPUT%FIGR&FPUT'DSAVSAVERSTRf"\ 0 \w77\ \ \\B   5 5 "\&D D\ww.ee\ p- f"f \& @\ "\7 nW\w\W W wtwp& WW W WwF\e$U.\e$@ABCf. `%Z*T&B  e?7,ۂz7^T 7 7 7  *7 H-:DFO - :e "    n`Z`Zwp  vhe e%vFe> INS <  ,   H w  H 76 w MOVB (R2)+,R0 JC,PUTCHAR ;PRINT NEX $* @ &\ JWnw f`B"w:  >0  " w:   , 2 | ( j f 7 wf L \wf7  7  ""&BaBBc"<&D $/,1 @C2       m e` `SOBww$ $ * `% J-B ` 6  4 x) %z 4*x 7 w z` BHX*x) ``,} 4  *7 f,we5NO VT11 HDW5 5VT11 IN USE @Aew Xp $$B 7 7 N 7 j7 H & ,7p 7 )7 7 `jF *   *  *wH$L)ՇD wf#Wwx7 Xw `zB"wx  xv  w b` w0 w0@& Rp`Zz  eP 0P 7  U P P\ UU `&0  l 7f"f 5 ~E5"  7`  "5 Vr % f"f 5 6E5" TF 7`> : "5 * % v &7 (,R J"L "B Ӈ `Z`` B"  PUw ^7 U ] l e ^ & U  7 A 6 ]]e ] H \U D "]  " w 7 <U wU ]j]  e  <%tUnf&f & ! z8"! ! # !.އOVF DV0 d \!\ |%\ z v \AORf\\f"f  W jT"\  """""|"7  62 pw7 % @wZ@" 7 % @"@  \ & @\ 7 7 L @#- ""R#`#\ ""2"Jl#]w  ?U@  ~ B BBcWWww@ޗ$$ N& B "8b7 L X":e  *  @    " "- ""`$ ""`$U@ w f8"p8"z""8"$ 7 V%  % w w" "% \w w"% ` ~"% Lw&&\E\!(\7 L%!hhB%V% 2%  @" \   w "J"% (%& w۶4&"&,&6& ""^& ""^&7 5  "> :]6 v"](EP4 r%2x& w|۷"5 E@"&&&&%5 5 "U"7 5 % b%& wT "J"&U $BJBBc$D $ 7 U @  ")7 7  "  r"]$ 7 b" ]]R wwnw( N"J"' %' wBڶ7 5  "  " F]EP |  $"   U EQwE@5 E  7 X( .)WWSwD&D  F`C"    fe bE! R J BĔ  47 ,Ĕ   5 (w5 `N) b-) f J!@"w @70 ") 7)7w|b)  m7 \ֱV *)  ~w0T *#*P*"*T`_@@_?@__x@o^@O@T)JSR PC,STOSVAR TST (SP)+ CMPB (R1)+,#.COMMA BNE INPEND TST (SP)+ JMP INPY01 INPNULL:MOV #-1,(SP) BR INPNNUL .ENDC INPCR: .WORD CR ERRTR8: JMP ERRTRN ; 'READ' STATEMENT READ: MOVB (R1)+,R2 BMI ERRSX8 SWAB R2 BISB (R1)+,R2 ADD (R5),R2 JSR PC,GETVAR MOV @PDL(R5),R3 BEQ ERRDATA CMP R3,#-1 BEQ REASRCH CMPB (R3),#.EOL BEQ REAFIND CMPB (R3)+,#.COMMA BNE READBAD READGOT:MOVB (+-*/^()\&;,<==<>==><>><<>="':#[]%$LET VFIF END #LET IF GO TO FOR INPUT FOR OUTPUTFOR TO NEXT THEN STEP GOSUB RETURNINPUT PRINT REMDEF READ DATA CALL FNRND(RNDSIN(COS(SQR(ATN(EXP(LOG(ABS(INT(SGN(TAB(BINOCTLEN(ASC(CHR$(POS(SEG$(VAL(TRM$(DAT$STR$(OPEN CLOSE CHAIN OVERLAY AS FILE DOUBLE BUF LINE VFDIM RANDOMIZERESTORE STOPENDLISTNHRUNNHRENAMENEWREPLACELISTRUNSAVEOLDSCRCLEEVEN READBAD:CLR @PDL(R5) TRAP 0 .IFNDF $LONGER .ASCII \BDR\ .ENDC .IFDF $LONGER .ASCII 'BAD DATA READ' .ENDC .BYTE 0 .EVEN REASRCH:MOV CODE(R5),R3 REAFIND:TSTB (R3) BMI .+6 ADD #2,R3 CMPB (R3)+,#.DATA BEQ READGOT CMPB -(R3),#.EOF BEQ READOUT MOV R1,-(SP) MOV R3,R1 JSR PC,SKIPEOL MOV R1,R3 MOV (SP)+,R1 BR REAFIND .IFNDF $NOSTR READQT: INC R3 CMPB (R3)+,#.TEXT BNE READBAD MOV R3,R0 TSTB (R3)+ BNE .-2 CMPB (R3)+,R2 BNE READBAD MOV R3,-(SP) MOV R0,- 8AWw R5iC@ Bw B@c""  B" f &5 B5 @ww\ fAN@@@c" A#  0 iwJ DW,C CCc" "  ^W C CCc"a@B"""  @B""H  EcC`Ҕ  0   +@ @ ECCm w :  :B   #@`" @ WB BBc$J Bw5 hDA B  `0^1210JRb121 10@`5 w8ȕ5 w0F   WwOLD *   5.5i& X::,5 2 ewX WwNEW B  z vw@22 W  T 4 v5 05.5h X::, e  Nw | Wfɋ b W ɋ F  ۇN  W   ABBBcB ]Dd |BKBBcWE WW>C< CWW1  WW)D' DW!"  WW ,@m8544Ww&IDMIDFWBBm WJ5 DA  WwwNPRw 252552r444 ~ ^<@@  5 0@C  xu"0W @5 .WWwZ. UC  @" 5`.@ XU@TUΕU@C V u"W@5C ,հ @"  ΐ@5 C  0 & fك 0 &e&5 2 zewTwdwW'& W C W @"  e w Wwww n  u@ @wF  l 5 @W ڇ@ . 4 B u wBwv Tw wf STOP wZf@" nAw wp5 w wBW-.B>C>55>j7 5. fA eo7Ne 7De7 #5 C Bee @ & &p X5D@ l 7  5 >5j446@5 " " eu u :u <@ 5 wFILE NAME-- @פ  7RbRdRf @ R   w NONAME w| BASIC V01B-02 @ 5 A Bc%5Ee WW@e e B w E B Bc"\ 6Ծ @ 5#u"u#u"5 u!u u#u" 8BBc""5 #5" 5!eG   Ӏ  ӗ"$7 8  : @bAa.     ѕ NONAMEfA. f Re P:L   !&@B  5 3j  l&j 2 we  2bw 2 RPLw>ߋ*Ge 5 f05@ w5 wCm.( @. Z^ \wJ5 @0 & Bm.ww* H֋ FNFNERO MOV #COMES,( f& b :# J D .# ,  H b@a  e   & # AZ@# & eD`09.:wv7 5 'e77<C & e  5&e  IeeBW @`B 5 .   ɕ.09wPAZaĘ h  פ Ӌ `1Eĥesѕ@ >  'ѕѕɕB  A Z NF @ @  e @ wwZA . ѕ@  ɕ 90C  "ee,$$$$ !e : T :* & # # # $ S S K u.Cѐѐ@ w& .wPTBw e  ^ \!YC C /W,W)W&W"WW  <!ѕѕ@  @ wZwJwn C "e "ee : : :  # # w   ѕ@ ̆ѐѐf& A<B < N u ::  CC 0 Cc    ܆ ڇe"cK`b PPERR JSR PC,GET1BYT BCS NOCHR2 ;NOTHING TO GET MOVB R0,@#PPB RTS PC ;RESTORE REGS. AND RTI PPERR: BIS #1,BFSPEC(R1) ;INDIC. ERROR NOCHR2: CLR @#PPS ;CLEAR INTERUPT ENABLE RTS PC ; .ENDC .IFNDF $NOLPT ; ; LPINT - LINE PRINTER INTERUPT HAND f**.D-D-+1+T/0--42*-* $ !ʋ& empҋ e f&f wwem:؂ |f"f W[ f"f & WM" x65@w "5; "5 v /7 |<<4;R J"Ue wB5ҕ    eҔ ww FDEBBBc W W  wW w LWW!kf i&&  eeҤ'  פ   ҥ   B fc`w2w . WW!f"f f , 8BY963www BA!wWwW   Wwh W W C Cm K wFGNDw8w T < w:@fA" @  w7 JWC    Cm wwRBGf BBBc"W  BW އu u"5 "W W xʇW C B BBc"WWW B聁 BBc FWNe Bځ BBc W( QQQQQ!Q Q#Q"f N"ff   w 11 w~ fvwf BBԵ YVeCUCCc RLRJG"E$ " fvfv Zf"f fvfv    !!e %wfv " f wNBFwW   eWWW,W,W)  V/  wD   ew/ z t w W ^$W& @e e-@ w e-. $W W ua5hww -= u wrILNwv525iW2 dWP.2BLBBc ע 2w.?f dwB"3@  B" h  ע  ע,WW i5 wwBRT wCפ  e W w& wBہBBc  C* /ע.פ$’85   עעWWw&= OOD= BDRCˋeפרf C פӋ¤&   e##    "7^7 |< <4; K Bm""K 5"# 5!e K5 " K5"# 5!eG K L 2 #ARGih $  B" Nawwӄ!!_BM)..4KwE " e wV5 5#u"w5 u!u u#u"Z fWTwWwBBcW"$=;wETCww    WWf"  WC"w  @""w$ x "Cנננ ננננ  eB47555555f"!f  wTw J e 5 "H 5 " L"77 r56<4;wB87 Z56h<4;  wd\f"f \w & ww T , !& Β W  eJf @NSM#%  $ ҃!& Β`#"e 2 `e e ewSTLOVF3 "7.3*w@w vw8w,W(7 674; &7_f@8*e%5 u"\w "W w\wD   7 jj4;8  ""%w& < "DV0 w5 5 " "@ E @EU D e  5 " 7 |<88 Ѐ@"  /7 <<88|<88|<|<<88<88<|f& B:A u:  <u< ' Ԃc 0 Cc    ݆ ۇe K cD &N<ewm  & 5"5 w WORDS FOR DISPLAY FILE  Tw :e wC  "( ZNER - FOR DISPLAY BUFFERB R$!   8& $ C ;" $$ e" &%3 & m ea ` $  Be>   $   Uf,Aw7 `* P)(  *7 7 .7 7 C D 7 ww$w~Uvf X ````e  FHD,R2 ;PAPER TAPE PUNCH JSR PC,INITBF MOV #PRBFHD,R2 ;PAPER TAPE READER JSR PC,INITBF .ENDC .IFNDF $NOLPT MOV #LPBFHD,R2 JSR PC,INITBF .ENDC RTS PC ; ; BU *W%@e6 B dbB be B     "___ W E  "5 "H 5 "___ W  "  5"5 ___5 &    0  "__5 &      0 ` "__ W& N"#\VN  B  eЕ __ W 5 5 " "___ W  5 5 ""___ Wŀ"B p"__ XWW RWQ L WI ;@"-2 #- * ce0ece.`eҢ .  0  . %5"5 ___ LWK F f f"W? : W7-  # !C"   B c ee _,___ &W! 5 5 " & Ҏ e  ȋ ___ W  `e  _ _,__ WB e05 . b f. _,__D"DR PC,CHAIN ; R1 IS THE FILE HEADER ADDRESS ; FBUFE(R1) POINTS TO THE START OF THE ; FIRST BUFFER CHAINB: CMP T1(R5),#10 ;CHECD7v 8& U$ Z?4D BASIC V01B-02 * 6NJ A  I Y-YES N-NONFCee!&W!F# w w : N YT e!ЃwtCC D T5\5"F5m@5446  6 USER FNS LOADEDC ee w  &Z??RND ??ABS ?,@SGN ,@d@BIN d@@OCT @@TAB @ALEN ALAASC LAvACHR$vA4BPOS 4BBSEG$B0CVAL 0CtCTRM$tCCSTR$E DEL. (,'^U') ; INSTRUC. ;EXEC. IF ; INSTRUC. ;EXEC. IF (OR BACK ARROW) ; INSTRUC. ;EXEC. IF BELOW 40 OR 2zTzT&fe~B @& fE@7T B 7} 7'w 72L6_ @;_ @*@_ @B_ @|C_ @C_ @ D_ @D_ @E_ @ 7_ @ 9_ @ :_ @ @_ @ @_ @ "A_ @ A_ @ lB_ @ C_ @ C_ @ LD_ @ lD_ @ rD_ @ xD_ @ D_ @ D_ @ D_ @ D_ @ G_ @ G_ @ ZH_ @ ^H_ @ H_ @ I_ @ I_ @ I_ @ I_ @ XJ_ @ J_ @ J_ @ XK_ @7_ @B9_ @:_ @;_ @;_ @f>_ @Q# H  *wF d  F z fF D LF@U0$8&5 B5 @5 huaw READYFw 5 hw  ZBE w w,wBBc"w FIOULN&f    `D B  e<" 7A 3u <0W$ u "   b   ru B RJ5 ATL@ AB q,:e7L7E 5 U76B @ :EU  ʋ$eFNO@ߋ*wF5 huaw ?@ rW-!w AT LINE @5"5 5#5"5 5!eG vw (wz@>5>   BSO~}   _  ꈇ7 ,EeH& EE& Е- eePPPЕ-  W  e0e0PK JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECV%PeD C E 7 6& B:A u:  <u<  Ԃc 0 Cc    އe K ct4<DLT\dlSYN W eBAaDCEBBBc  BW @ WыB w @m 5 <5 Ai &5`8 E T5 @w DELETED Nw Y_ILR@ E%H EU"" "7 nB  L    w~ LTL  5 5 "עע@ פרפ ! #"  5 "e e& C C eC e C ?@fuafh5hffh@ D h   0@ C        e `    0 #  7  &e7  e 5 " " 5 "H 5 "-W  D" C  0  yEU C 0@      e |       Pe P    Ee0E $ e & ) .  E + - 0   e: . 0 $0 ! .  e 7 PA0u0 .7 <5`8 Ah& 5 9FTSWLODNRf&& e ыW WWWe Wы" $wTLTw    09    & 0eC  .  09 .& E.u +  +-  09 m Ee& e0 E E e C B   Ee&&   v |N v  6 6  hv  `   @ (%.% D %e% e @ D   mm@ 0     A C v %\w     0  @  @ w H  & Dr)&&\   5@5@7   h    j f&\  \& \\r1@\[?\ ew f ?U?*@ڪAD C %     @  f&\&f  & N & . )   v     C 6  %%    w ~6 6 %   Dv   0e%6  6  E v v ·ͅ%\ @       D f C_  fW & @&&&&7 Rjh  h h <e\\;@\ \N @   =@f&ysE[\pCf&f&\% a @w   &  f 6A  v  6N\&f f & G   v  76   p  d deA @ A @ %  A @ 6v %\%    w    `@ `  ` `  \\ N A f C %C B    \ w  D& &&@7  D& && 6  A7 hd( nd(x ~dd    V e\ \S\ e& @7 x :e\f& \:יc&>X4%]@& & & & & D&&e #@  @6 7 h,6 6 #?%-0 @ ׳f&& @׳@f&7   hf&f&7 l         \ f& \ e\>:L]L?ƪ@ \fEA#& e@ & f& f& f7 h : ff w   &@& SCAL1VECT|.RDOT-APNT@.TIME6TIMR.7STAT-TEXT5SUBP&ESUBX'LPEN8(NOSC+DON+ON+OFF+TRAK/ERAS'INIT"*DSTP)STOP)DCNT)CONT)XGRAV0YGRAd0AGET3DFIX+FIX+FREE,APUT.3FIGR4FPUT4DSAVSAVERSTRUSERDBxACCADCNRTSLEDSETRSETC^HISTWAIT$DIRDOR, DRSb REL CLRD!PUTD"DIS"FSH#DXY.#  bRRR   % , ,  %wW  5  L V wP ._W_ \_\f f"\\6 "@   W- Hu ""U"5 }-"2e2\"NOR EeH "5 "e2 \BBBc \_ C-/\e BUFU5 ,2 e," 2 U e## UB(BBc%" %5  um eW!\__ W\ W&&&  C D  e a  ߋADC&2 l" "_" ߋ"5 _V &2   @"7LB>8.5 m$ _ReC@ U5U@5UU 5' U mm5@ m72 _ ߐ_ 7 >2 b @2D-p >  >"NMD& e% _+ E. E=2 2 %>2 22 2 E ߋ _5 <5  ߋ < eߋ Z^A b2 $ 5 "_" ]5EU`77P_ b2 u& #)#& & f"f   j  " 5 "_"A&wd_zECHC27 w"_2 4W-" @"   7 _ʋ  @ ߋ 5Ep F < <7XߋU  ߋ    < _ U  U X   X_2 B C"UP @  w ! 2E@  UP U <U@wBe2    u]" __ `   ߋ ߋ   < E@_U@!2 !0.5$u&(*  _R  j"jh"" "@"B(2 f0f.  j0"(C* Xf"f   jV"!2 "h"}"*e*B(r-*؃%A&_%" "\f$\\B!2 "C" <_".5 0wh! K" e_#.5 0wd! K" ! <#.u0w6h! `UK"  b !2 ##}. 0e\ b  _ h!  F,Bl ,l *l e %%Uߋ    2 f"\ \wH77\ \ \\B   5 5 "\&D ݄\ww%%ee\\% p- f"f \& @\ "\7 nW\wL\W W w0w,& WW W Ww\e$U.\e$@ABCf. D`%7&  e?7͂z7^T 7 7 7  *7 HR&-:DFO - :e "    n$$$$$$$&w,ۂ  vhe e%'Fe> INS <  ,   H w  H 76 w ;FILLED IN BY CH TABLE5: .IFDF  $b7 @ &\ JWnw f$$'B"w  >0  " w: >(  , v( | l( j f 7 wf L \w"7  7  $/'$0',(&BaBBc"<&D ل$/,1 @C2       m e` `SOBwwZރ$ $ * 2 J-B ` 6  x% xB7 )<%)6 )x%\7x 7 w 6` CLR *76 `,} x%  *7 f,we5NO VT11 HDW5 5VT11 IN USE @Aew Xp) ))$)$)%, )7 7 N 7 j7 H & ׄ,7p 7 B77 7 'jF \7  N7 N7w'$LB7xȇD rw"ܗ#Ww47 Xw $$+B"w4  xv  w b$$, w w@& R$$$$$$,,  eP 0P 7  U P P\ UU `&|  l 7f"f 5 :E5"  7`  "5 r 2 f"f 5 E5" TF 7`> : "5 * 2 v &7 l(p(R J"L " rƇ $$$$$$-B"  PUw ^7 U ] l e ^ & U  7 A 6 ]]e ] H \U D L/]  R/ w 7 <U wU ]j]  e  <%0U*f&f & / z|/(/ B/N0 R%/ЇOVF DV0 d \/D\ |%\ z v \AORf\\f"f  W j/\  b/$/L/'$0R//7  6v( pw7 2 @wZ@" 7 2 @"@  \ L & @\ 7 7 L $0- /L/00\ 0R/'v(b/%,0]w  ?U@  ~ B BBcWWwwЗ$$ N& B "8b7 L ":e  *  @     "- 0R/1 /L/1U@ w f$|/$$|/$f/$|/1 7 2 "%R% "%%2 w w" "2 \w w"2 ` ~"2 Lw&&\E\/\7 J%2:/@%hR%@%h@%"%22% $v(2  @" \   w b/%$b/@%>3 (3R%L3 wζ4`3f3p3z3 /L/3 0R/37 5  0> :]6 v/](EP4 r3v(3 w8η"5 E@"334325 5 "U"7 5 2 b@%34 wT b/%,b/,4U $BJBBc$D $ 7 U @  ")7 7  "  r/]$ 7 b0 ]]R ww*w Nb/%$b/@%4 3R%4 w̶7 5  0  / F]EP |  $"   U EQwE@5 E  7 5 r6WWSw&D > F$C"    fe bE! R J BĔ  47 ,Ĕ   5 (w5 $$6 b-6 f J!@"wB @70 "7 777tw|6  m7 Fɱ *47  ~w0TN7#\77f7T`_@@_?@__x@o^@O@TB7CLR FAC2(R5) BR OPRATOR PLUS: JSR PC,ADDSTK BR OPRATOR STAR: MOV #ERSTAR,$ERVEC JSR R4+-*/^()\&;,<==<>==><>><<>="':#[]%$LET VFIF END #LET IF GO TO FOR INPUT FOR OUTPUTFOR TO NEXT THEN STEP GOSUB RETURNINPUT PRINT REMDEF READ DATA CALL FNRND(RNDSIN(COS(SQR(ATN(EXP(LOG(ABS(INT(SGN(TAB(BINOCTLEN(ASC(CHR$(POS(SEG$(VAL(TRM$(DAT$STR$(OPEN CLOSE CHAIN OVERLAY AS FILE DOUBLE BUF LINE VFDIM RANDOMIZERESTORE STOPENDLISTNHRUNNHRENAMENEWREPLACELISTRUNSAVEOLDSCRCLESTS2: JMP @(R4)+ ;RETURN PUSHF: MOV FAC2(R5),-(SP) MOV FAC1(R5),-(SP) BEQ TSTS1 ;FLOAT IF INTEGER JMP @(R4)+ ;RETURN ERRSX5: .IFDF $RT11 JMP ERRSYN .ENDC ;$RT11 .ENDC ;BASICX .IFDF BASICR .IFDF $NOSTR ;DUMMY ENTRY POINTS FOR $NOSTR SAVCHAR: ARGB: MAKEST: SOPRAT: STOSVAR: ERRMIX: STPRO: DNPACK: DATFN: .ENDC ;DUMMY ENTRY POINTS FOR $NOVF .IFNDF $VF VFBLK: VFFN: .ENDC ;$VF ERRSYN: TRAP 0 .IFNDF $LONGER .ASCII 'SYN' .ENDC .IFDF $LONGER .ASCII 'SYNTAX ERROR' . X8AWw R5iC@ Bw B@c""  B" f &5 B5 @ww fAN@@@c" A#  0 iwJ >DW,C CCc" "  W C CCc"a@B"""  @B""H  EcC`Ҕ  0   +@ @ ECCm w :  :B   #@`" @ WB BBc$J w5 hDA B  => @V>=JR>@>N>*>@`5 wȕ5 wF   WwOLD :   5.5i& G~95 2 ewX WwjNEW B  6 vw22 W   4 v5 05.5h G~9 e  Nw | Wfɋ  W ɋ   ۇN  W  |  ABBBcB ]Dd 8BKBBcWE WW>C< CWW1  WW)D' DW!"  |WW ,@m8544WwIDMIDFWBBm WJ5 DA  WwwxNPRw| .@\BvB`B>@AB(B : ^<@@  5 0@C  4u"0W @5 .WWw. UC p @" 5`.@ XU@TUΕU@C  u"W@5C ǰ @"  ΐ@5 C  0 & "̃ 0 X&e&5 2 zeww wPW'& W C VW @"  e wWwwTw n h  u@ @wF L  l 5 @W ڇ@ . 4 B u ww2 w w" STOP wf@" *Aw w,5 w wW-.B>C>55>j7 \5. fA eo7Ne 7De7 #5 C Bee @ & &p X5D@ l 7 5 >5j446@5 " " eu u :u <@ 5 wFILE NAME-- @פ  XDRbRdRfܾ@    wJ NONAME w8 BASIC V01B-02 @ 5 A Bc%5Ee >WW@e e B w C B Bc"\ ƾ @ 5#u"u#u"5 u!u u#u" BBc""5 #5" 5!eG   fƀ  \Ɨ"$7 F  : @bAa.     ѕ NONAMEfA. f Re GL   !&@B  5 r3j  l&j 2 we  2bw 2 RPLwߋ*Ge 5 f05@ w>5 wCm.( @. Z^ \wJ5 @0 & Bm.ww* H֋ FNFNERUATE FUNCTION AR f& b :# J D .# ,  H b@a  e   & # AZ@# & eD`09.:w27 5 'e77<C & e  5&e  | IeeBW @`B 5 .   ɕ.09wPAZaĘ h  פ Ӌ `1Eĥesѕ@ >  'ѕѕɕB  A Z NF @ @  e @ wwZA . ѕ@  ɕ 90C  "ee,$$$$ !e : T :* & # # # $ S S K u.Cѐѐ@ w& .wpPTBwt e  B ^ \!YC C /W,W)W&W"WW  <!ѕѕ@  @ wZwwn C "e "ee : : :  # # w   нѕ@ ̆ѐѐf& A<B < N u ::  CC 0 Cc    ܆ ڇe"cK`b ,$ERVEC TST FAC1(R5) ;IS UPPER B = 0 BNE UA10 TST FAC2(R5) ;IS LOWER B = 0 BNE UA5 MOV #1,FAC2(R5) ;SET RESULT 1 UA4: CMP (SP)+,(SP)+ JMP OPRATOR ; B IS INTEGER UA5: TST (SP) ;IS A = 0 BNE UA17 TST FAC2(R5) ;IS LOWER B > 0 BPL UA9 ;NO, ERR 7,8J;:::9b>9F -ww2 NOT ENOUGH DISPLAY BUFFER FOR RESTORE  & e&w ac x a?wZj 7 bWw@"w  u- <>f& B:A u:  <u< ' Ԃc 0 Cc    ݆ ۇe K cD &N<ewm  & 5"5 xw WORDS FOR DISPLAY FILE  Tw :e wC  "( ZNER - FOR DISPLAY BUFFERN R$!   8& $ C ;" $$ e" &%3 & m ea ` $  Be>   $   Uf,Aw7 `* PB7( N77 7 .7n 7 C D 7 ww$wJ:U2f  ````e  MP OPRATOR .IFNDF $NOSTR ; DAT$ FUNCTION DATFN: JSR PC,DATCOM ;COMPUTE ASCII DATE MOV #DATPT,R2 ;STRING POINTER MOV #11,-(SP) ;STRING LENGTH JSR PC,MAKESTR ;COPY DATE *W%@e6 B dbB be B     "___ W E  "5 "H 5 "___ W  "  5"5 ___5 &    0  "__5 &      0 ` "__ W& N"#N  B  eЕ __ W 5 5 " "___ W  5 5 ""___ Wŀ"B p"__ XWW RWQ L WI ;@"-2 #- * ce0ece.`eҢ .  0  . %5"5 ___ LWK F f f"W? : W7-  # !C"   B c ee _,___ &W! 5 5 " & Ҏ e  ȋ ___ W  `e  _ _,__ WB e05 . b f. _,__QfQ .ENDC ;BASICR .IFDF BASICX ;-------------------------------------------------- ; SUBROUTINE 'FIXUP' CALLED BY JSR PC ; MATCHESQ7v 8& U$ LD BASIC V01B-02 * 6NJ A  I Y-YES N-NOSCee!&W!T# w w : N YT e!Ѓw0PC Q 5\5"5m5446  6 USER FNS LOADEDW ee wЯ  &LLRND L:MABS :MpMSGN pMMBIN MMOCT M2NTAB 2N\NLEN \NNASC NNCHR$NxOPOS xOPSEG$PtPVAL tPPTRM$PPSTR$IXRET: JMP (R2) .ENDC ;BASICX .IFDF BASICR ;---------------------------------------------------- ; SUBROUTINE 'FLINE' CALLED B. 8*/+@ @" ; Hg.K f9@a W@n '@v@@.$VH+@+'@<'@}@<."" @""R@""d@$"Cy@"K@N.#@#@#@#'@%H E.%H"'y@'y@ (d@,@.y:@:@:'@uL`;H_M'@.sQL"@Ww@_!@R`o @dH.dU<@h<L"h""h> ~}h.@h "62h""h""&h""'hN,."".h""2:h""zh""h ""h8 .#h&hhi'HXh'yh'`h.U(] hU(wh:(h,h2.h&z.f9`h:&"h:`hvL,h|L"h.S}hv?Th?T""h?Te^hY@Qhi.ZahLZwhV.xdhh ysh,y#h yBxh y'hS.]z(h*}Kh~*}xPh \}h_h.hJ hh rLh ="q "dlyxd(f (dfyxd 8.f H f'y   .&wF d  F _!Ww"y:&.LF D F@U0$ v.r,&5 B5 @5 huaw READ ,.YFw 5 hw  ZBE- }N. w w,w##4.BBc"w FIOULNK f9v. &f    `b.0D B  e<" 7A 3u .V<0W$ u "   b.|   ru .B RJ5 ATL@ A8.B q,:e7L7E 5 a.U76B @. :EU  ʋ.:$eFNO@^.`ߋ*wF5 huaw. ?@ rW-!w AT LINE @s.5"5 5#5"5 5!eG  vw H  .wz@>5>   BSO~.}   .*_  ꈇ7 ,.PEeH& EE&.v Е- eePPPЕ- E. W  e0e0PK ;. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOV DEC: .%PeD C E 7 6& BV.:A u:  <u<  ԙ.8c 0 Cc    `.^ އe K cr $vW^*6x'+'zy' n ' #'_M'N.SYN :'<'.W eBAaDCEBBBc . BW @ W.ыB w @m 5 <5 v.* Ai &5`8 (.PE T5 @gvw DELETED  Zw  P._ILR@ E%H E.U"" "7 nB . L    . w~ LTL  5 5 "עע.,@ פרפ ! ,.R#"  5 "e e.x& C C eC e C ?@f.uafh5hffh@ D . h   0@ .C        ej. `    0 #L.6  7  &e   .\7  e 5 " " 5 ."H 5 "-W  D"  .C  0  yE.U C 0@      e. |       .Pe P   .@ Ee0E $ e & .f) .  E + .- 0   e: .. 0 $0 ! /. .  e 7 PA0u0. .7 <5`8 Ah& .$ 5 9FTSWLODNRf.J && e ыWk.p  WWWe WыO.  $wTLTw h  (d.    09   . & 0eC  . .  09 .& En.. .u +  +-  .T 09 m Ee& .z e0 E E e K& C B   EN. 8,8^@/+@ @T.K f9@a W@n '@ox@o}@. @/ @,@ @ @.$Bx@+@+'@<%@<@@.<L"@<'@""@~}@@@C."62@"" @""@""&@""'@."".@""2:@""R@""d@""z@$.""@""@"K@#@#@!.#@#'@&h@i'HX@'y@..'y@'y@'`@ (d@U(] @q.U(w@(@,@,@.@.f9`@:&"@:@:'@:`@.vL,@|L"@_M'@sQL"@S}@#.?T@?T""@?Te^@Y@Q@Za@<.Zw@_!@R`o @==><>>.&<<>="':#[]%$LET VFIF END .L#LET IF GO TO FOR INPUT FOR OUTP:.rUTFOR TO NEXT THEN STEP GOSUBL. RETURNINPUT PRINT REMDEF READ .DATA CALL FNRND(RNDSIN(COS(SQR(.ATN(EXP(LOG(ABS(INT(SGN(TAB(BI. NOCTLEN(ASC(CHR$(POS(SEG$(VAL(Ӗ.0TRM$(DAT$STR$(OPEN CLOSE CHAIN O.VVERLAY AS FILE DOUBLE BUF LINE V .|FDIM RANDOMIZERESTORE STOPENDLIS.TNHRUNNHRENAMENEWREPLACELISTRUNSAVEOLDSCRCLE . 8AWw R5iC@ BOvL,"".w B@c"" Iq(xd.* B" f &5 B5 @wF "#o.Pw fAN@@@c" AW "".[.v#  0 iwJ DW,C xd. CCc" "  W C  xd.CCc"a@B""" .  @B""H V. EcC`Ҕ  0.4   +@ @ E.ZCCm w :  :i.B   #@`" @. WB BBc$J. w5 hDA B xd&  h.lc.h.Jwc   l.J@`5 wȕ5 wF NJ"" #6  WwOLD f?TL.L   5.5i& u 'y(a-r5 2 ewX WwNEW o"?T.  vw22 W 'yJwc J.  4 v5 05.5h S  'y. e  Nw | WIq. fɋ  W ɋ 1 i'HX.0  ۇN  W  i'HX.V  ABBBcB) 'y.| ]Dd BKB xd.BcWE WW>C< CW~.W1  WW)D' DW.!"  WW ` ,8^ .,@m8544WwIDM """zU.:IDFWBBm WJ5 D.`A  WwwNPRwv# ?T""(Iqc.   l ^<@@,    l  'y/.  5 0@C  $|L",. u"0W @5 .WWU :`.w. UC  @ ""z|L". " 5`.@ XU@TW.D UΕU@.j C  u"W@5S|L":`I. C  @"   |L"D. ΐ@5 C  0 &~. 0 &e&5 2 z>rL,. ewwwW'& W C #"62"".( W @"  e  |L"J.N wWwww n $#""z""'"62$'yv.t u@ @wF  l 5 @ 'y. W ڇ@ . 4 B u   i'HX ww Iq ?T  w w STOP?T R. wf@" Aw w5 / &h""'""62. w wW-.B>C""#.. >55>j7 5 $vOq.T . fA eo7Ne 7De &hB.z 7 #5 C Be4. e @ & &p X{. 5D@ l 7  &vOq. 5 >5j446@5 " U(wS. " eu u ?.8 :u <@ 5 wFIn &?T2.^ LE NAME-- @פ   RvL,& f. bRdRf@   Z.Lf05@ w5 wCm""&""2:o.r.( @. Z^ \w=.J5 @0 & Bm. "62J.ww* H֋  ""&""FFNFNER$ . f& b :.&# J D .# , .L H b@a  e.r   & # k.AZ@# & e.D`09.:w (""zO.7 5 'e77<C &  vOq. e  5 o}.0&e  IeeB o}.VW @`B 5 .   .|ɕ.09wPA.ZaĘ h  .פ Ӌ `1E .ĥesѕ@ >.  'ѕѕɕB.:  A Z .`NF @ @  e @ .wwZA . ѕ@    ""@.ɕ 90n.C  "ee,.$$$$ !e . : T :* & # # # v.D$ S S K u.CѐѐE.j@ w& .wPTBw V?T""&Iq.e  ^ \!YC C / S}^.W,W)W&W"WW .  <!ѕѕ@ P. @ wZwwn C "e  "":.("ee : : : t.N # # w   ѕ@ ̆ Y@Q.tѐѐf& A<B < N u :.:  CC 0 .Cc    ܆ ڇe("cK`b . 8,8^@/+@a W@.ox@o}@ @/ @,@. @ @v@@$Bx@<.+@<%@<@@<L"@""@.~}@@@}@"62@""@*.""&@""'@"".@""2:@""z@F.""@""@$"Cy@#@#@8.#@&h@i'HX@'y@'`@. (d@U(] @U(w@(@,@+..@f9`@y:@:&"@:`@.vL,@|L"@S}@?T@?T""@n.?Te^@Ww@Y@Q@Za@Zw@._!@ emҋ e fE _$.d&f wwem Mf9`"_d.|f"f W[ f"f & .WM" x65@w  &""A."5; "5 v /.7 &R J"Ue w5  & "#."ҕ    eV.HҔ ww FDEBBBc W ""zi.n W  wW w #w. LWW!kf i# ""zs.&&  eeҤ' >. פ   ҥ   B. fc`ww @ $f9`3.,. WW!f"f f ,.R 8BY96.x3www BA  f9`K.!wWwWf9`&#.   Ww "[q~&i'HX.W W C Cm K .wGNDww T < w #""z"".I.6@fA" @|"62ox.\  w7 WC f9`:&".   Cm wwRBGf #u. BBBc"W . BW އu u"5 P."W W xʇW C ( (xd.B BBc"WWW.@ B聁 BBc FWNe Bځ .fBBc W( QQQ;.QQ!Q Q#Q"f N"ff.   w 11). w fvw BBԵ b #f9`. YVeCUCCc RLRJ;.$G"E$ " fvf.Jv Zf"f fvfv.p    !!e %w (#i.fv " f wNBFw  f9`7.W   eWWd*}xPb.W,W,W)  V/9  $Bx. w   ew/V Zw\g?Te^.. z w W ^$$Bx\g?Te^.TW& @e e- w"$Bx(?Te^N.z e- $W W  $Bxua5hww #?Te^?.= u wILNw525iWP?T""Iq.2 dWPBLBBc ע} . 2w?f wB"?TvL,.*3@  B" h .P ע  ע,WW .vi5 wwBRT wCפ #?T""""z. e W. w& wBہBBc  C* ""6. /ע.פ$’85  &|L"*.  עעWW0.4w= OOD= BDRCˋeפ #.Zרf C פӋ xd.¤&   e.##     7 M "K(c.& K Bm""K 5"쨀p&1.# 5!e K5 " K5"Z. # 5!eG K L 2 v.> #ARGih $  C.d B" Naww!n""z"62. !_BM)..4. KwEy. " e wV5 5#u"w *}K. 5 u!u u#u"Z fWTw." WwBBcW"$=.H ;wETCww    s.n WWf"  WR. C"w  @""w. $ x "Cנננ.  נננ. נ  e p n h H D < f"#& p n  h  H "D $< ., !f  wTw J e{.R 5 "H 5 " L 7 r" $K$x &wB 7 Z c.  Ԫp &  K  . &  w\f"f \w  vp&:&""z. & ww 'y. T , !& Β p. W  ez., Jf @NSM#%Z.R   $ ҃!& Β`#".x e 2 `e O. e ewSTL. OVFF ( 6x+zy}F  a W&#. F w@w vw8  /+F KT. w,W(7  (  &B _fb ( "B b.6 @8*e%5 u"\w ".\ W w\wD   7 j3 (:. b  ""%w& < b K_. "DV0 w5 5 " "@. E @EU D e2.   5 " 7 r  "r$0.Ѐ@"  /7 &0h>vk$&0 h">$&Ԫp(v@N&r6&~,N Ԫp &r6&~s.R\0&wf^ER $ \\  \0 vp &.x$ ( \7 Xk": "$&(Ԫpq.w"f&\*wf /+.*w\w~wlwBWBm-& #.! "Bc"f"f .Bc$ .6 wUFNwh&.\f&&6Bc% %., :. ॲ  Wf.&6Bc" $-.&B  ,& .  wwpw  (<%4.@P hw 5 5 5JP<L".f "wV 4w" . f"7 P&  7 <;:&&:(.J  ew@$) $"Cy$""z?.A&B(C*f,5$u&(*,.\W# b" H ^.$ u"B < " Q.J u"WwRww6@ 1d.p7 " KE @< L   vOq.GB"A#U B  B e,.    u"5  B e.@"@" 07 0& "ON0 p"&$.5 ""f"f \ "..\& @\" &  D "@.T 2 #     ,8^.z  m % ` ". `SOB J @.  @.SSO 45<eӤ .  ## @<me5 I. B"@C $.8R J"wB"@C .^ ,   B e.Kw ew6 r.H6 &f&  +-N . 5"  5 " U Y@Q. wwC  W-"""z|L".v"W JW $.B  هfe A<C":` &h+.h ˂@ C,%m7"E7. rL.5 5@#& f@& fC.1EBl@ C w  ww @8""' ""&E. 8*/+@" ; HK f9@ .a W@n '@v@@$VH.+@+'@}@"" @""d@.$"Cy@"K@#@#@#@.#'@%H %H"'y@'y@. (d@,@y:@:@:'@.uL`;H_M'@Ww@_!@R`o @1.dHdUxdh(yphysh,.y#h yBxh y1zhyrhy'h.]z(h*}Kh*}xPh \}h_hn.hJ hhrLh "q "dlyxd(f (dfyxd 8. H 'y .&wF  F _!Ww"y:&.LF b F@U0$ v.r,&5 B5 @5 huaw: READ ,.YFw* 5 hw  ZBE }N. w w,w##4.BBc"w FIOULNK f9v. &f    `b.0& $  e A u <W$.V u   b5 .|ATL@ fAB q,:e7.L7E 5 U76By. @ :EU  #.ʋ$e.FNO@ߋ*wF5 .:huaw ?@ W-!.`wh AT LINE @5"5 5#5"J#5 5!eG w.  E.w@>5>   BSO~.}   M._  ꈇ7 \,.EeH& EE&.: Е- eePPPЕ- .` W  e0e0PK w. JANFEBMARAPRMAYJUNJULAUGSEPOCTNOV DECv 6.%PeD C E "vW(6x'?.SYN W eZ*+'zy'n ' #' _M':'<.BAaDCEBBBc  B."W @ WыB.H w @m 5 <5 Ai.n &5`8 : .E 5 @w DELzETED  #w  ._ILR@ E%H E.U"" "7 TB w. L    .> w~ LTL  5 5 "עע.d@ פרפ ! .#"  5 "e e.& C C eC e C ?@fW.uafh5hffh@ * . h   0@ ."C        e2.H `  Z   0 #.n  7 "#e[  ".7  e 5 " " 5 ."H 5 "- D" C . 0  yEU . C 0@      e Z.,   v     Peg.R P    Eu.xe0E * e & ). .  E + -. 0   e: .  .0 $0 ! '..  e 7 <5`8 Ahሣ.6& D5 9FTSWLO.\DNRf&& e9. ыW WWWe p.Wы $w (dt.TLTw    09 #.   & 0eC  . .  09 .@ .& E.u +  +-%.f   09 m A. Ee& e0 E E.  e C B   E`  . 8,8^@/+@ @T.K f9@a W@n '@ox@o}@. @/ @,@ @ @.$Bx@+@+'@<%@<@@.<L"@<'@""@~}@@@C."62@"" @""@""&@""'@."".@""2:@""R@""d@""z@$.""@""@"K@#@#@!.#@#'@&h@i'HX@'y@..'y@'y@'`@ (d@U(] @q.U(w@(@,@,@.@.f9`@:&"@:@:'@:`@.vL,@|L"@_M'@sQL"@S}@#.?T@?T""@?Te^@Y@Q@Za@<.Zw@_!@R`o @==><>>.&<<>="':#[]%$LET VFIF END .L#LET IF GO TO FOR INPUT FOR OUTP:.rUTFOR TO NEXT THEN STEP GOSUBL. RETURNINPUT PRINT REMDEF READ .DATA CALL FNRND(RNDSIN(COS(SQR(.ATN(EXP(LOG(ABS(INT(SGN(TAB(BI. NOCTOPEN CLOSE CHAIN OVERLAY AS5.0 FILE DOUBLE BUF LINE VFDIM RAND.VOMIZERESTORE STOPENDLISTNHRUNNHR.|ENAMENEWREPLACELISTRUNSAVEOLDSC.RCLEm 8. 8AWw 5iC@ BvL,"".w B@c"" Iq(xd. B" f 5 B5 @w "#o. w fAN@@@c" A "".[.F#  0 iw6 DW,C4 xd.l CCc" "  W C 8 xd.CCc"a@B""" .  @B""H . ;cC`Ҕ  0?.   !@ @ E.*CCm wh B   #=.P@`" @ WB .v BBc$J w5 h< xd.DA B  $n"$&$(n,"(fB@`5 wl*Jwc    (fB.ȕ5 wF Z j Wwc""#(?T  OLD  .  l L 5.5i& ^ 'y(^-.5 2 ewl WwNEW %"?TT.T p w22 W 'yJwc J.z   45 05.5h 0  'y.^ 8e  w 0 W7^Iq.fɋ  W ɋ v i'HX.  jۇN  W  i'HX. f >ABBBcB 'y.8 ]Dd BKBW xd.^BcWE WW>C< CW.W1  WW)D' DW.!"  WW  ,8^ .,@m8544WwIDM """zU.IDFWBBm WJ5 D.A  WwwNPRw# ?T""(Iqc.B F2 L 6 V <@@,F 2  L 6 V   'y.h  5 0@C S $|L",. u"0W @5 .WW :`.w. UC  @ ""z|L"." 5`.@ 7U@3. UΕ@C  $|L",.& Ƈu"W@5 C   :`.L 0 & 0 &eBrL", .r &5 2 fewwwW'& W#"62""w.  C W @"  |L"@.  e wWwww n#""z ""'$"62.  x u@ @wF xN'y$'y!. X 5 @W ڇ@ $ 4 B i'HX0  u ww hIq?TH H wb w STOP?T\ .\ wf@" Aw w5 -/ &h""'""62. w wW-.B>CL""#. >55>j7 5O $vOq. . fA eo7Ne 7De+ &hB. 7 #5 C Be. e @ & &p X.@ 5D@ l 7 t &vOq.f 5 >5j446@5 ": U(wS.  eu u :u <. @ 5 wFILE NAME-- ?T<. @פ  $ RbRdRf-vL,$ . @    w V.z  'ѕѕɕBF.  A Z 7.NF @ @  e @ V.wwZA . ѕ@    ""@.ɕ 90.8C  "ee$f.^ e  # # # u.C.ѐѐ@ w<& .wPT&?T"".Bw \  U S!PCSIqS}e. C /W,W)W&W"W.W  3!ѕѕ@ !. @ wwwn C "K ""2.Be " ee  # #,h w   ѕ@ ՆѐѐN Y@Q. 8,8^@/+@ @A.a W@ox@o}@ @/ @v.,@ @ @v@@.$Bx@+@<%@<@@<L"@C.<'@""@~}@@@}@."62@""@""&@""'@"".@.""2:@""R@""z@""@""@.$"Cy@#@#@#@&h@.i'HX@'y@'`@ (d@U(] @.U(w@(@,@.@f9`@s.y:@:&"@:`@vL,@|L"@@.sQL"@S}@?T@?T""@?Te^@ .Ww@Y@Q@Za@Zw@_!@8. emҋ e fE _$.d&f wwx em f9`"_d.f"f W9 f"f & W.(." 65@w   ""G."5 v 7  R J  " m."Ue wwwFDEBB!#""z""Rq."Bc W  tW ^ww ^ #$""z.HKWW!if F&& .n eeҤ'  פG.   ҥ   BP. c`]ww+  f9`;.WW!f"f f  =.BW741w (f9`/.,w  BA!c.RwWwW 2 uf9`#.x Ww W W[q~i'HX. C Cm K wGNDc "#o.ww  w@""z ""."62.fA" @  ` ox.w7 WC    Cm f9`:&"0.6 wRBGf BBBc" #.\W < & W (u .u"5 "WW W. C B BBc"W xd.WW B聁 BBc FW0.Ne Bځ BBc W( .QQQQQ!Q Q#Q"f.@ N"ff R h  w>.f 11 w fvd #y.w BBԵ YVeCUCCc f9`Q. RLRJG"E$ G." fvfv f"r.f fvfv    }.$!!e %wfv " U #.JN wNBFwJW   eaf9`(*}xP.pWWW!W!WW.OWLWY  V/  $Bx.w w W $W& Zw\g ?Te^?Te^.@e e- w e$Bx ?Te^^.- xW W ua $Bx..5hw  w/ > Y #$Bx&\gh.Tы J WwB"B ]""z$$Bx>z w w ?$Bx?Te^?Te^l.= u wILNw525iWv?T""Iq.2 WJ`BFBBc ע `s. 2w?f wB@?TvL,.  B  xע u.* ע,WW i5 w (#i.PwBRT w wBBBc C?T""""z"".v$ )ע(פ’   |L"2.עעWWw= R $#m.OOD= BDRCˋeפר.f C   7    xd  K& (쨀p. K Bm""K 5"r .4# 5!e K5 " K5".Z# 5!eG KARGih .$  B" Nawws$""z("62.!!LB?!&7.&,8E .! e w5 5#u"w5 ~  *}K. u!u u#u"F vWAwjBԥ.> BcW $20ETCwX  D .d  WWf" &  (. WC"w @" xF.  "Cנננ.  ננננ.  eN ^ v X 8 4 , f"!f&N ^ v X 8 4 , ."  ww  e 5 .H "H 5 "  7 z  K$ & (Ԫp.n  wB 7 b    w.  K  vp . \f"f \wwwOVF:""z(6x. n  ,+zy}na W#" (/+. nw wW%7  Vn K( y. && _f@8*e  & ., %5 u"\ jW wnwV .R  7  @  ": @ Kh.x "%w8 < "DV0 w5 . 5 " "@ E @EU . D e  5 " . 7  P r Ѐ@"  /7 )  P  r   F  T , *, F    ԪpT ,  O" P  \ : , Ԫp P   \ :  -.4  wx^ER $ \\ $ vp .Z  ( \7 r d  *: d  " $Ԫp& ( +. w4f&\*wl*C/+&#N. wbwwBWBm&! .  Bcf"f  w~/. UFNw&f&&6. Bc%ॲ .> f W&6Bc$`.d wD 5 5 ". w*  f"7 @  : . 7 , J w@$A&B" : $"Cy'y""z. (C*f,5$u&(*,\. W! B u"#."B n  u".HWwNw@@ 17 " > vOq.nKE @< L  GB"A.#U B  B e    .u"5  B e@"@" b.07   5 """ ON  p.f"f \ "\& @\".,  &  2 / ,8^.R     Z.xm % ` `SOBB8.@C |$R J" C.ew(6 H6 &f& . +-N 5"  Y@Q. 5 " U ww^ $""zS.6C  W-"v"W |L"H.\ DW  ڇfJ ":`.e A<C" ̂@ C,%S &h rL.m7"E7.5 5@#& f.@& f1EBl'@ C www ""'""&. 8 @" ; @ @N.$Bx@$V@"" @""R@""d@g.""z@"K@%@%@'y@.'`@@9S@:@uL`;@sQL"@K.Zw@R`o @  B c ee  sQL".d ____ &W*yr(yp"" ""z""K( .! 5 5 & Ҏ f%%(sQL"v.e  ȋ ___1zK R`o $""z("" ]. W  `e  "K  ._ ___ Wp* (ypsQL"yr""  ""z$"K."B e5 fD* sQL"؁"Zw$vg.H ___N,؁sQL"yr"" ""z&N(.n\.6) N.NN7 & U%N ysi.t$ D BASIC V01B-02  @9S INS < ? .  ,   .H w  L&H 76 w   . $ @ &\ \ .BJWnw f\^B"wׯK\^("" X.h  >0  ". w:   ,  ||$5.  j f 7 wf  . L \w7 IS """z. 7  \R 2<t 2r&;&\R 2 <"t $2&r(&D.&&BaBBc"<&D .L$/,1 @C2   K ,.r    m. e` `SOBw ("" _.w$ $ *  J-""z$4.B ` 6     #.  x 4%6 "4"6$.04x 7 w  4V,` ,`M.`n ,`,} .n ,.  *7 f,we5 .NO VT11 HDW5 5VT11 IN >.USE @Aew Xp\  $\k.`\$\. `\&\}.$\ \{.DF T7 7 N 7 .FT.jj7 H & ,7p v'.7 7 7 j".F    w R.$LD w#Wi "K ""z.w7 Xw \ B"wl  vP\ .(  xv  w "" .N b\b w w+*\bv'@y"v&U(#m.t@& R6<   "6< .eP 0P 7  Un. P P\ UUr. ,`&  l_,J Kx.  7f"f 5 E5n "{.2"  7`  "5  " .Xr P f"f 5 E5" P {@.~ TF 7`> : "5 * c  .H v &7 4H"&.R J"L "  K(. \6< B" " \6< k.  PUw ^7 }.< U ] l e ^ .b & U  7 A 6.  ]]e ] H \. U D ]   & ;. w 7 <U wC. U ]j]  e .  <%Uf&f $F & x z , x K Ԫp 쨀p  .b h OVF DV쨀ph  . 0 d \~ \ |%\~ K. z v \AORf\. \f"f  W $&:( . \  \R <<t & \R  "<$<&t ( . " 7  6 " ".F pw7 ` @wZ@"  `l.l 7 X @"@  Xx.  \ & @\ :.  7 7 Ln. \ - R  \ t s"\ R     (t 4. 2 r ]w  " 2  r i.* ?U@  ~ B BBcWB.P Www$$ N&IS  ""z"" K.v  B "8b7 L  $Wp. ":e  *  @ @ *}K/.      o'` . "- t  R  U@ t   R    . w f\ < "\ "<$ & ( z.4 < :  7 < : & (p.Z 2H  p  2H. w w" "P  $Pn. \w w"Z ` $Zd.  ~"R Lw&&\E R~. E\x \7  w*x K " $&vp(" 2 6.vp   Ԫp26.26 (6.X @" \ .~  w < $""  < "$. (b w4 (b  ""  "$&V.R  t 7 5  t >G"R   t  $t i. :]6 vR ](EP4  R .rb w"5 E@"<b "" (<^.<BbHP5 5 "U"7 5 BbH PL.bH bbt wT  5Hbt& (.r U $BJBBc$Ddr . $ 7 U @ . ")7 7  " ;. rR ]$ 7 bt  ] R t . ]R www N < &"" ""z "$<& (.FH bV w7 5 HbV"" A.l t  R  t  R . F]EP |  $."   U EQw.E@5 E  7   ".WWSw&D N"IS ""z&"Ko.* FC"  Z .P  fe b.vE! R J BĔ b. 47 ,Ĕ   5. (w5 7. \ b-X f * \ X.J!@"w @70f "bX""  f&bL.4 7b7fw|b"f.Z  m7 - .f@@ *  ~w0Tf @@.#T   .`_@@_?@__x@o^@O@eT (..t!@y@~@.O @ @}_@&}@&(}@.@ @{t!@@ @`@"" @.""z@M" @U(@@U(] @f9`@.y:}@:s@vL&I@?T@Wp@p.Zxx@Za@_S@s_@v$"@.y(d@yxd@yfh@*}K@/}t!@./}@@@8Y@ׯK@{. @ @(N'@yhV'hN.U(#hsph2v@hvPhB.ff     * ZxxM" :sy(d vL&I&yxd.&$ f7 h &(}/}y&~.LiJ    {t!J`.r< 40"N!$ e $   ."ֆ" e   e#. , $) ~  /}. E  $.  " 77 {t!&t! .0 ( 0 c y/}i.V F  WF t!.| wLw7e7& ww $v$".. e@`&@&w 0&"" _.^7  & $U(] %* wbw ?NER-C 1?T *. w wwFILE ALREADY ?T<.2 EXISTSw05@ ww  &?T2X?DEV ERR - C  h.h& ' & ww**SAVE4"?T COMPLETED** - I. (aa  a y /}p7w:N/}t!Z 2&2  Ww!*  y(dvL&Iyxd&(} .Pf www SAVE FIL""z :sv$"?T.vE NOT FOUND Jw5 B .&  -kt!{t!@ ;.ww NOT ENOUGH DISPLAY BUFFER FOi  ?TN.R RESTORE  & e&G.w ac `Zxx"t!f.4 a?wZj 7 b{t!/}t!/}t!.ZWw@"w  u-   ""z"" @ .<>f& B:A u:  <u.< ' Ԃc 0 Cc .   ݆ ۇe .K cD &N<ew{ "@ .m  & 5"5 w &Za.> WORDS FOR DISPLAY FILE  ?T&y(d0.dTw e wC@ @ y.  "( NER - FOR DI @ SPLAY BUFFER &. R$!   8& .$ C ;" $$ w. e" &%3 &.0 m ea ` $,.V  Be>  .| $  Uy"{t!2.f,Aw7 * yfh&y(d  &,{t! O  @`vL&I8Y8Y.7 7 77 C D 7 /*8YvL&I yfh@ @ .wwwUf  &}}_s_$*,  ````e  Wp *}K. (h(}hP/+hd.a Wh +h #h (dh@9ShV.6xh<zy}hD쨀phvphph.phKh6h^:hԪphp.ONh@OfhOfhOfhhphPh@.e&&   v |N v :.& 6 6  hvI.L  `.r   @ (%..% D %e%. e @ D   mmo.@ 0     A C R.  v %\w     v.0 0  @  @ .Vw H  & Dr)&&\~.|   5@"5@7 .  .  .Pf&\ &  Pq. \& \\r1@\C.[?\ ew f ?\.BU?*@ڪAD C .h%     @ {.  f&\&f  & N & .. )   v .    C .6  %%   .& w ~6 6 %   Dv K.L  0e%6  6  .rE v v ·ͅ%\ @   .    D~. f C_  fW & @&&&&&7 R&0&6N.&0&6 P.re\\p.  rY.(;@\ \N @   =7.N@f&ysE[\pCf&f&\%2.t a @w `.  &  f 6A  vY.  6N\&f f & .G   v  76 .    p  d d.2eA @ A @ %.X  A @ 6v %\%  .~  w    `@ `  .` `  \h.\ N A f C %.C B    \ w . D& &&@7 Hr&(HG.<D& && 6  A7 ^$&(^b^@. ^  v*.  . e\ \S Z.\ e& @7 xp"p:.e\ f& \:״  .c&>X4%]@& & & & & D&&."e #@  I.H@6 7 b6 b.n6 #?%-0 @ .׳f&& @׳@f&7 &(.f&f&7 l.  "$&( T.   .   \@f&@. \ e\>:L]L?ƪ@K.@ \fEA#& e@ & f& f& fG.f7 p ff  p. w   &@&t C   .M;@"" @""d@Q.""z@"K@,@:@M@[.M@M@M@WpHZw@y.y@IS@ @ @(\X.h _h?[qh{fRh{_h(.:dh & h(h@ZhB_h=.! "h"0h"`ho'` h,hc.,h,<h,Zh,h{3fh>.:yhHdf!h"qhOqvh[qjh.[qhs_h<v0"hv%hv:h.lwyhy<hryTth*}Kh=hD..& J &J.L bRRR   I .r% , ,    .%wW  5  L9  IS "$&. V wP ._ WV$ (IS._ \_\f f"\\""z "K"" . 6"< "M M$M(<.0>< ,@ W-E$> ; <,M:.V Hu ""U"5 }-"2e.|2\"NOR EeH. "5 "e$!.2 \BBBc \_  ,&""z .C-/\e  .BUFU5 ,2  .:e," m  .`2 U .e## < &.UB(BBc%" % $,.5  um . eW!\__W\ o ""z""d"IS.W&&&  C D y  D e a .M _@[q@{fR@.{_@:d@& @Z@_@.! "@"0@"`@"" @""d@.""z@"K@o'` @,@,@.,<@,Z@,@,@{3f@.:@:y@M@M@M @.M@M:@M;@Wp@Zw@=.df!@Oqv@[qj@[q@s_@t.v0"@v%@v:@lwy@y<@(.yTt@y@*}K@IS@ @\. @(h(Khshnz.G.& ߋADC2 F" ,s_df!,Z:y {_"F".L"_" ߋ"5 _0. M! ",MM$yTt(0.r 2  (M; M:lwy"M&s_ P*df!,[q v0" {fR:yD*v:{fR:y v: {fR:yo. @"7LB>8"v:{fR:y M..5 m$ _eC@ "`. U5U@5UU 5l."' U mm5@ m7..H2 _  "0MM .nߐ_ 7 2, s_M:ddf!,Z&. @2-p   "Zw".('& e% _M( 'Mk.+ E. E=2 2i :d. %2 22 2 ., , E ߋ . ,OqvMMs_$M(s_n.R_5 B [qj2.x5  ߋ e *y<MMMy<(M$ߋ Z^`M MM[.M _@[q@{fR@.{_@:@;@:d@& @0.@Z@_@! "@"0@."`@"" @""d@""z@"K@.o'` @,@,@,<@,Z@.,@,@{3f@:@:y@8.M@Mj@M@MPd@Wp@.Zw@df!@Oqv@[qj@[q@].s_@v0"@v%@v:@lwy@p.y<@yTt@y@*}K@:@F.Ԫp@ON@IS@ @ @.(9h {3}hwh~wph}hD.A lwy"$;$&2 .:df!,Z:yv:{fR.:D 5 "_" ]5.:yv:{fR :y DMMPdp.`EU`77P_ kM :d$lwyg(2 , ;:df! ,Z":y.u& #)#& & f v:{fRM&."f     " ,ON:ONԪp(! ".5 "_"A&wd_zECHCO:yMPd "" 27 . {3fdf!,[qv0"{fR*.2w"_2 ,:y2{3f:d"df!$,Z.PTW-"  @"   7 :yT Q.v_ʋ  ,@  ߋ  :d,Oqv  M@.5E FH$MMM{3f$MPd* <7ߋU!*y<{3f_M Mj$Mj$ߋ  F*Mj _& y<Zg__[qj.M _@[q@{fR@.{_@:@;@:d@& @0.@Z@_@! "@"0@."`@"" @""d@""z@"K@.o'` @,@,@,<@,Z@.,@,@{3f@:@:y@8.M@Mj@M@MPd@Wp@.Zw@df!@Oqv@[qj@[q@].s_@v0"@v%@v:@lwy@p.y<@yTt@y@*}K@:@F.Ԫp@ON@IS@ @ @.(9h {3}hwh~wph}hD.A lwy"$;$&2 .:df!,Z:yv:{fR.:D 5 "_" ]5.:yv:{fR :y DMMPdp.`EU`77P_ kM :d$lwyg(2 , ;:df! ,Z":y.u& #)#& & f v:{fRM&."f     " ,ON:ONԪp(! ".5 "_"A&wd_zEC@CW:yMPd "" 27 . {3fdf!,[qv0"{fR*.2w"_2 ,:y2{3f:d"df!$,Z.PTW-"  @"   7 :yT Q.v_ʋ  ,@  ߋ  :d,Oqv  M@.5E FH$MMM{3f$MPd* <7ߋU!*y<{3f_M Mj$Mj$ߋ  F*Mj _& y<Zg__[qj.M@ _@[q@{fR@s.{_@:d@& @@:@s.;@Z@_@! "@"0@ ."`@"" @""d@""z@"K@.o'` @,@,@,<@,Z@.,@,@{3f@:@:y@8.Mj@Mj@M@Wp@Zw@.df!@Oqv@[qj@[q@s_@t.v0"@v%@v:@lwy@y<@(.yTt@y@*}K@IS@ @\. @(zhjhFh|TqhZ  U. df! ,Zv%{_,{_S"U 3*MMj MjMj& o'` !$2  _2 y.y! " ,Mo'` yTt N\C"UP.df!,Zv% {fR :y{_\_(f@ w:O.Mj Mj! ",Mj:;:. 2E@ .:lwy_"M&df!(,<*[qv0"{fR v% {fR:y7*U.v:{fRv% {_ , Z.UU@wBey$ _ __M2 , df! ,Z:yv:{fRX.  u]" __M$:d("" *: ,` ߋ ߋ ., OqvMjMjMj_ _$\ E@_>*&  y<Z_MxU@[qj MD.M _@[q@{fR@-.{_@:d@& @Z@_@.! "@"0@"`@"" @""d@.""z@"K@o'` @,@,@.,<@,Z@,@,@{3f@.:@:y@MK;@MP;@MQ;@.M:@M;@Wp@Zw@df!@.Oqv@[qj@[q@s_@v0"@.v%@v:@y<@yTt@y@n.*}K@vp@:@Ԫp@ON@.IS@ @ @(6h6.{hl{ehph(h\ghJ).,&22 :.2df!, [q"v0"${fR&:y.JR0.5$u&(bv:{fRv% R.p*  _  6C""`"ON$:&6(:.<,@"B(2 f0f.$vp<Ԫp , :y.  (C* f"f  ON : o'` "  42 ,5* ON :4ONԪp,.}"*e*B(r-*؃%A&_:y(:dZ."%" "\f$\\BH42 =.4df!,v0"{fR:y[q.^`C" _z.5 0w ` y<:dz".K" e_.5 0wdv:d(. K"  .u0=".w6 `UK" K  . b 02 0&0 df!",$v0"&0({_ *,v0"{fR :y v:{fRM.(,}. 0e\ .:y,.Nb  _  "" u.t  F,BD(MQ;_.l ,l 4 MP;s.*l e o. %%Uߋ  MP;MK;MK;.   2  2...MWpH(o'` hTs_h*}Khz . (h(}hH/+h\.a Wh,+h@#h (dh@9Sh&.6xh\zy}hd쨀ph vph@hd.phphKh6hV:h.ԪphONh`OfhOfhOfh)&hphPh`.e&&   v fN .&v  6 6  Rvh.L  `Y.r   @ %._mm@ y.0     A C .v %\w  !  . 0_ e.00 @   w p.V  & Dr)&&\  -.| 5@5@7  ( X.   \     .     8.  Hf&\ "    HN. \& \\r1@\.[?\ ew  ?UL.<?*@ڪAD C .b%  K# . f&\&f  & N & .+ &   .v     Z.   %    w . 6 6 :    M% .FAD e U% %a .lv Ee%6  6  .E v v %\D f. C_  fW & @&&&&7 # &.  &.   be\\.      b.;@\ \N @   =G.>@f&ysE[\pCf&f&\%B.d a @w @@.  &  f 6 c. v  6N\&f. u f &.&dQ& V v `."BQ   $)` c.H $)m `e@ `e.ni@ i A @ A @ %Љ.  A @ 6v %\:.%%    w   1.\\ N A f C%P._   .,\ w  D& &&.R@7  hD& && 6  Av  h] x7 VV.  VV   R.     I.  e\   ].\S\ e& @7 x " $(.e\,f&  ,.\:יc&>X4%]@& & & & & D&u.<&e #@ .b @6 7  ".6 6 #?%-0 @ .׳f&& @׳@f&7 .f&f&7 l$*  $&$(     K.       .@    \`f5@   `.4& \ e\>:L]L?ƪ.Z@ \fEA#& e@ & f& >.f& f7   ff x. w   &@& B . (h(T}h/+h&.a Wh+h#hT (dh@9Sh.6xhzy}h쨀phvphTvh.ph6ph>KhN6h :h<.ԪphpONhOfhbOfhXOfhX&hhphPh.e&&   v ]N v Y.& 6 6  Ivh.L  `.r   @ %.vmm@ 0  H.   A C v %\w R6.    0  @  . @ w   & Dr0.0)&&\   5@.V5@7 jTpf*T "$p&(;|pppp.p  ppp.<ppf&\S*< p p.  \& \\r1@.\[?\ ew 8 H.?U?*@ڪAD .(C  %  v v Q.Nf&\&f  & N & + &ݸ.t   v   .     %.    w b6 6 3.    EsAq Dws . w`w w6 e%G.26  6  E v v %\D.X f C_  fW & @&K(~&&&7 Jph<Tp.ph<T "p.TTpe\\.T  Tp.;@\ \N @   =.@f&ysE[\pCf&f&\%. a @w .6  &  f 6A  v.\  6N\&f jw.f &wfU& Mvv .6`vU  q` c7. qm `a@ `qeAa@ a. A @ A @ %.  A @ 6v %\%% P.@   w   \.f\ N A f C%.v   \ w  .D& &&@7 D& &! .& 6  A7 T. 8. )"T. "$8&.( BH..pppp.BH . .ppppe.ppp  e\"p p p .8 \S\ e& @7 x (.^`e\f&Q`. \:יc&>X4%]@& & & & & #.D&&e #@ . @6 7 T&T(K.6 6 #?%-0 @y. ׳f&& @׳@z.Bf&7 pTVf&f&7 l pTVhpppppn.pp  ppp>.|pb   \&p  b&G.f& \ e\>:L]7.L?ƪ@ \fEA#& e@ .& f& f& f7 T ff%T:. w   &@":& P  P. (h(&/+ha Wh".+hV#h (dh@9Sh6xhb.zy}h쨀phvphphph.Kh @h:h2Ԫph<ONh.OfhPOfhFOfhFph Ph_.We&\ j $jb.&BPBA .L &w  1@r5@.r?U?*@ڪAr?[V&\D. 2 C+  f# g &.@ PCBPA.& a @. w   @;\)8A;\)pC[\Eys@•.0=&\&\\\.V =7^ =   .|?AA @ z.PB P &@!h:!.יc&>X4%]@CD . @%  L. w 97=  W.:@@ @P7L H@7.`F@w>P@ PBC ,.D EfIA@?0@ @׳.>:L]L?ƪ@ \A e@ .& f@ A&O.w   &@& h"" "10 REM BASIC PROGRAM TO GENERATE N TERMS OF A FIBONACCI SERIES, 20 REM THE FIRST TWO TERMS OF WHICH ARE SPECIFIED BY THE USER. 30 REM 40 REM PRINT IDENTIFYING MESSAGE 50 PRINT "PROGRAM TO GENERATE A FIBONACCI SERIES" 60 REM 70 REM GET THE LENGTH AND FIRST TWO TERMS OF THE SERIES 80 PRINT "HOW MANY TERMS DO YOU WANT GENERATED"; 90 INPUT L 100 IF L<>0 THEN 130 110 REM IF HE REQUESTS 0 TERMS,TERMINATE EXECUTION 120 STOP 130 PRINT "WHAT IS THE FIRST TERM"; 140 INPUT T1 150 PRINT "WHAT IS THE SECOND TERM"; 160 INPUT T2 170 REM MAKE SURE L IS NOT NEGATIVE OR TOO LARGE 180 IF L<3 THEN 200 190 IF L<50 THEN 220 200 PRINT L;"TERMS DOES NOT REALLY MAKE SENSE." 210 GO TO 80 220 REM PRINT THE FIRST TWO TERMS OF THE SERIES 230 PRINT "THE REQUESTED SERIES IS" 240 PRINT T1 250 PRINT T2 260 L=L-2 270 REM CALCULATE NEXT TERM AND PRINT IT 280 N=T1+T2 290 T1=T2 300 T2=N 310 PRINT N 320 REM DETERMINE IF SERIES IS FINISHED. IF SO,DO NEXT ONE. 330 L=L-1 340 IF L<=0 THEN 80 350 GO TO 280 360 END .TITLE PERPAR -- PERIPHERAL SUPPORT PACKAGE PARAMETER MODULE. ; ; DEC-11-LBPAA-C BASIC KERNEL V02-01 ; ; COPYRIGHT (C) 1974,1975 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE ; FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND ; MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE ; COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES ; THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE ; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ; ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE ; LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE ; SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO ; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED ; AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. ; ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE ; OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT ; WHICH IS NOT SUPPLIED BY DIGITAL. ; ; THE CONDITIONALS CONTAINED IN THIS MODULE AFFECT THE ASSEMBLY ; OF THE FUNCTION TABLE MODULE "FTBL.MAC". ; TO OBTAIN THE DESIRED CONDITIONAL DEFINITION(S), ; REMOVE (USING AN EDITOR) THE ; SEMI-COLON APPEARING BEFORE THE CONDITIONAL. ;$DISK=0 ;DEFINE FOR RT-11 .IFNDF $DISK $STRNG=0 ;DO NOT DEFINE FOR PTS BASIC WITHOUT ;STRINGS,- DEFINED FOR PTS V01 WITH STRINGS .IFF $RTV2=0 ;ASSUMES RT-11 VERSION 2 IS USED. ;DO NOT DEFINE FOR RT-11 V01-15. .ENDC ; $DISK .IFDF $RTV2 ;THESE ARE DISPLACEMENTS USED FOR VERSION 2 GVECT=354 ;DISPL. TO VT11 VECTOR IN RMON CONFIG=300 ;DISPL. TO CONFIGURATION WORD IN RMON .ENDC ; $RTV2 ;$LPS=0 ;DEFINE FOR LPS .IFDF $LPS ;$V=0 ;DEFINE FOR LPS WITH VECTORS STARTING ; ; AT 300. DEFAULT SETTING IS VECTORS AT ; ; 340. SET $V = ANY OTHER DISPLACEMENT IF ; ; VECTORS START AT DISPLACEMENTS ; ; OTHER THAN 0 OR 40 FROM ; ; VECTOR 300 $ADC=0 ;INCLUDE A/D ROUTINES. $CLK=0 ;INCLUDE CLOCK ROUTINES. $DIO=0 ;INCLUDE DIGITAL IO ROUTINES $DIS=0 ;INCLUDE DISPLAY ROUTINES. .ENDC ; $LPS ; ;$PLOT=0 ; DEFINE FOR PLOT SUPPORT ; ; N O T E--$DISK MUST ALWAYS BE DEFINED FOR ; ; LV11 SUPPORT. ; .IFDF $PLOT $LV11=0 ; INCLUDE LV11 SUPPORT $VT11=0 ; INCLUDE GT40 SUPPORT .ENDC ; $PLOT ; ;$LV11=0 ; DEFINE FOR LV11 SUPPORT ; ; ; ;$VT11=0 ;FOR GT40 (GT44) ; ; .IFDF $VT11 $CLOCK=0 ;FOR SYSTEM CLOCK (KW11L) .ENDC ; $VT11 .EOT .TITLE PERVEC VECTOR DEFINITION MODULE FOR BASIC SUPPORT PACKAGES. ; ; DEC-11-LBPVA-B BASIC KERNEL V02-01 ; ; COPYRIGHT (C) 1974,1975 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE ; FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND ; MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE ; COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES ; THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE ; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ; ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE ; LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE ; SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO ; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED ; AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. ; ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE ; OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT ; WHICH IS NOT SUPPLIED BY DIGITAL. ; ; THIS MODULE DEFINES THE HARDWARE ADRESSES USED BY ; SUCH HARDWARE AS THE "LPS", THE "VT11"(GT40) AND THE "LV11". ; IF THE VECTORS FOR THESE DEVICES SHOULD CHANGE ; THIS MODULE MUST BE EDITED TO REFLECT THE CHANGE. .IFDF $LPS .IFNDF $V $V=40 .ENDC .GLOBL LPSAD,LPSADB,LPSDR,LPSDMA .GLOBL LPSCKS,LPSPB,LPSDRS,LPSDIB .GLOBL LPSDOR .GLOBL LPDISS,LPDISX,LPDISY .GLOBL CKLIVA,CKLIP,DRSIVA,DRSIP,LPSIVA,LPSIP ; DEVICE EQUATES: LPSAD = 170400 ;LPS A/D STATUS REG. LPSADB = 170402 ;LPS A/D BUFFER LED REG. LPSCKS = 170404 ;LPS CLOCK STATUS REG. LPSPB = 170406 ;LPS CLOCK BUFFER PRESET REG. LPSDR = 170410 ;LPS DIGITAL I/O STATUS REG. LPSDRS = LPSDR LPSDIB = 170412 ;LPS DIGITAL INPUT REG. LPSDOR = 170414 ;LPS DIGITAL OUTPUT REG. LPDISS = 170416 ;LPS DISPLAY STATUS REG. LPDISX = 170420 ;LPS DISPLAY REG. X LPDISY = 170422 ;LPS DISPLAY REG. Y LPSDMA = 170436 ;LPS DMA REGG. ; INTERRUPT VECTOR PAIRS: CKLIVA = 304+$V ;ADR. OF CLOCK INTERRUPT VECTOR CKLIP = 306+$V ;ADR. OF CLOCK INT. PRIORITY DRSIVA = 310+$V ;ADR. OF DRS INT. VECTOR DRSIP = 312+$V ;ADR. OF DRS INT. PRIORITY. LPSIVA = 300+$V ;ADR. OF THE A/D INT. VECTOR. LPSIP = 302+$V ;ADR. OF THE INT.PRIORITY. .ENDC ; $LPS .IFDF $VT11 ;GT40 .GLOBL DPC,DSR,DISX,DISY,GTVECT DPC = 172000 ;VT11 DISPLAY PC DSR = DPC+2 ;VT11 DISPLAY STATUS REG DISX = DSR+2 ;VT11 X STATUS REG DISY = DISX+2 ;VT11 Y STATUS REG GTVECT = 320 ;ADR. OF VT11 [GT40 (GT44)] INTERRUPT ;VECTOR LIST. REDEFINING GTVECT ;REDEFINES THE ENTIRE SET ;OF DISPLAY PROCESSOR INT. VECTORS. ;GTVECT: ;DISPLAY STOP VECTOR ;GTVECT+4: ;LIGHT PEN HIT VECTOR ;GTVECT+10: ;DISPLAY TIME OUT VECTOR .ENDC ; $VT11 .IFDF $LV11 ; LV11 SUPPORT .GLOBL LVCS,LVDB LVCS = 177514 ; LV11 STATUS REGISTER LVDB = LVCS+2 ; LV11 DATA BUFFER .ENDC ; $LV11 .END .TITLE RTINT -- BASIC/RT-11 SUPPORT PACKAGE INTERFACE MODULE. ; ; DEC-11-LBRIA-A BASIC KERNEL V02-01 ; ; COPYRIGHT (C) 1974,1975 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE ; FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND ; MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE ; COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES ; THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE ; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ; ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE ; LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE ; SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO ; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED ; AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. ; ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE ; OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT ; WHICH IS NOT SUPPLIED BY DIGITAL. ; .GLOBL FTBL .CSECT BASICR ;THE FTBL ADR. IS THE 1ST WORD OF "BASICR" .WORD FTBL .IFDF $LPS ;ONLY IF LPS IS DEFINED IN "PERPAR" .IFDF $DIS ;AND IF THE LPS DISPLAY ROUTINES ARE DESIRED .GLOBL DISPLY ;IS THE GLOBAL DEFINED AND THE .WORD DISPLY ;ADR. OF THE ROUTINE PLACED HERE TO IDENTIFY IT .ENDC ;$DIS ;AS THE BACKGROUND ROUTINE. .ENDC ;$LPS .END .TITLE BASINT V02-01 SYSTEM INDEPENDENT BASIC SUPPORT PKG. INTERFACE MODULE ; .SBTTL INTERFACE MODULE FOR LPS SYSTEM ; ; DEC-11-LBEXA-B BASIC KERNEL V02-01 ; ; COPYRIGHT (C) 1974,1975 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE ; FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND ; MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE ; COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES ; THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE ; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ; ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE ; LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE ; SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO ; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED ; AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. ; ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE ; OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT ; WHICH IS NOT SUPPLIED BY DIGITAL. ; .GLOBL FTABI,BKGI .CSECT FTABI: .GLOBL FTBL .WORD FTBL BKGI: .IFDF $LPS .IFDF $DIS .GLOBL DISPLY .WORD DISPLY .ENDC ;$DIS .IFNDF $DIS .WORD 0 .ENDC ;$DIS .ENDC ;$LPS .IFNDF $LPS .WORD 0 .ENDC ;$LPS .END .TITLE PTSINT -- PTS INTERFACE MODULE FOR SUPPORT PACKAGES. ; ; DEC-11-LBPIA-A BASIC KERNEL V02-01 ; ; COPYRIGHT (C) 1974,1975 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE ; FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND ; MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE ; COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES ; THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE ; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ; ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE ; LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE ; SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO ; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED ; AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. ; ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE ; OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT ; WHICH IS NOT SUPPLIED BY DIGITAL. ; .GLOBL FTBL,BOMB .ASECT .=34 .IFNDF $DISK ;BOMB VARIES IF ONE INCLUDES .IFDF $STRNG ;STRINGS BOMB=010320 ;ENTRY WITH STRINGS .ENDC ;$STRNG IS DEFINED .IFNDF $STRNG ;NO STRINGS BOMB=007742 ;ENTRY WITHOUT STRINGS .ENDC ;$STRNG NOT DEFINED .ENDC ;$DISK .WORD BOMB,0 ;SET UP THE TRAP ERROR VECTOR. .ASECT .=46 .WORD FTBL ;THE FUNCTION TABLE STARTS HERE FOR PTS. .IFDF $LPS .IFDF $DIS .GLOBL DISPLY JMP DISPLY .ENDC ;$DIS .ENDC ;$LPS .END .TITLE FTBL--BASIC FUNCTION TABLE MODULE ; DEC-11-LBFTA-B BASIC KERNEL V02-01 ; ; COPYRIGHT (C) 1973,1974,1975 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE ; FOR USE ONLY ON A SINGLE COMPUTER SYSTEM AND ; MAY BE COPIED ONLY WITH THE INCLUSION OF THE ABOVE ; COPYRIGHT NOTICE. THIS SOFTWARE, OR ANY OTHER COPIES ; THEREOF, MAY NOT BE PROVIDED OR OTHERWISE MADE ; AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ; ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE ; LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE ; SOFTWARE SHALL AT ALL TIMES REMAIN IN DIGITAL. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO ; CHANGE WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED ; AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. ; ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE ; OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT ; WHICH IS NOT SUPPLIED BY DIGITAL. ; .GLOBL FTBL ; MUST INTERFACE PROPERLY WHEN LPS IS ALSO USED ; .CSECT FTBL: .IFDF $VT11 ;GT40 .GLOBL AGET,APNT,APUT,CONT,ERAS,ESUB,FPUT .GLOBL FIGR,FPUT,INIT,LPEN,RDOT .GLOBL SCAL,STAT,DSTP,SUBP,TEXT,TRAK .GLOBL VECT,XGRA,YGRA,FIX,FREE .GLOBL NOSC,ON,OFF,SAVE .IFDF $DISK .GLOBL RSTR .ENDC ;$DISK .IFDF $CLOCK .GLOBL TIME,TIMR .ENDC ;$CLOCK .ASCII /SCAL/ .WORD SCAL .ASCII /VECT/ .WORD VECT .ASCII /RDOT/ .WORD RDOT .ASCII /APNT/ .WORD APNT .IFDF $CLOCK .ASCII /TIME/ .WORD TIME .ASCII /TIMR/ .WORD TIMR .ENDC ;$CLOCK .ASCII /STAT/ .WORD STAT .ASCII /TEXT/ .WORD TEXT .ASCII /SUBP/ .WORD SUBP .ASCII /ESUB/ .WORD ESUB .ASCII /LPEN/ .WORD LPEN .ASCII /NOSC/ .WORD NOSC .ASCII /DON/ .BYTE 0 .WORD ON .ASCII /ON/ .WORD 0 .WORD ON ; SECOND NAME .ASCII /OFF/ .BYTE 0 .WORD OFF .ASCII /TRAK/ .WORD TRAK .ASCII /ERAS/ .WORD ERAS .ASCII /INIT/ .WORD INIT .ASCII /DSTP/ .WORD DSTP .ASCII /STOP/ ;SECOND NAME .WORD DSTP .ASCII /DCNT/ .WORD CONT .ASCII /CONT/ ;SECOND NAME .WORD CONT .ASCII /XGRA/ .WORD XGRA .ASCII /YGRA/ .WORD YGRA .ASCII /AGET/ .WORD AGET .ASCII /DFIX/ .WORD FIX .ASCII /FIX/ ;SECOND NAME .BYTE 0 .WORD FIX .ASCII /FREE/ .WORD FREE .ASCII /APUT/ .WORD APUT .ASCII /FIGR/ .WORD FIGR .ASCII /FPUT/ .WORD FPUT .ASCII /DSAV/ .WORD SAVE .ASCII /SAVE/ ;SECOND NAME .WORD SAVE .IFDF $DISK .ASCII /RSTR/ .WORD RSTR .ENDC ;$DISK .ENDC ;$VT11 .IFDF $LPS .GLOBL USE,RDB,ACC ; .IFDF $ADC .GLOBL ADC,RTS,LED .ENDC ;$ADC ; .IFDF $CLK .GLOBL SETR,SETC,HIST,WAIT .ENDC ;$CLK ; .IFDF $DIO .GLOBL DIR,DOR,DRS .GLOBL REL .ENDC ;$DIO ; .IFDF $DIS .GLOBL CLRD,PUTD,DIS,FSH,DXY,DISPLY .ENDC ;$DIS .ASCII /USE/ .BYTE 0 .WORD USE ; .ASCII /RDB/ .BYTE 0 .WORD RDB ; .ASCII /ACC/ .BYTE 0 .WORD ACC ; ; ; .IFDF $ADC ; .ASCII /ADC/ .BYTE 0 .WORD ADC ; .ASCII /RTS/ .BYTE 0 .WORD RTS ; .ASCII /LED/ .BYTE 0 .WORD LED ; .ENDC ;$ADC ; ; ; .IFDF $CLK ; .ASCII /SETR/ .WORD SETR ; .ASCII /SETC/ .WORD SETC ; .ASCII /HIST/ .WORD HIST ; .ASCII /WAIT/ .WORD WAIT ; .ENDC ;$CLK ; ; ; .IFDF $DIO ; .ASCII /DIR/ .BYTE 0 .WORD DIR ; .ASCII /DOR/ .BYTE 0 .WORD DOR ; .ASCII /DRS/ .BYTE 0 .WORD DRS ; .ASCII /REL/ .BYTE 0 .WORD REL ; .ENDC ;$DIO ; ; ; .IFDF $DIS ; .ASCII /CLRD/ .WORD CLRD ; .ASCII /PUTD/ .WORD PUTD ; .ASCII /DIS/ .BYTE 0 .WORD DIS ; .ASCII /FSH/ .BYTE 0 .WORD FSH ; .ASCII /DXY/ .BYTE 0 .WORD DXY ; .ENDC ;$DIS .ENDC ;$LPS .IFDF $LV11 .GLOBL SIZE,AXES,PT,LINE,HTXT,VTXT,AREA,DONE ; .GLOBL LINL,LINS,LIND .ASCII /SIZE/ .WORD SIZE .ASCII /AXES/ .WORD AXES .ASCII /PT/ .WORD 0 .WORD PT .ASCII /LINE/ .WORD LINE .ASCII /HTXT/ .WORD HTXT .ASCII /VTXT/ .WORD VTXT .ASCII /AREA/ .WORD AREA .ASCII /DONE/ .WORD DONE .ENDC ;$LV11 .IFDF $PLOT .GLOBL PLOT .ASCII /PLOT/ .WORD PLOT .ENDC ;$PLOT .WORD 0 ;END OF THE BASIC FUNCTION TABLE. .END