BAS0935> c' BAS-0935TXT cBASIC935CMD& cOPYCMD cRENUM935CMD  cTEXTTXT c .ln49 .LM30 .ce BASIC 0935 (6809 Business Version 2.0) .sp The following are the changes that vary from the instructions contained in the SWTPC BASIC manual version 3.5. The machine code is optimized for the M6809 but not relocatable. The speed difference between the 6800 version and the 6809 version is about 40\% better on the 6809. BASIC 0935 honors FLEX~ 'End of Memory' pointer. .sp The differences between the SWTPC version and BASIC 0935 version 2.0. is as follows: .sp Double variables such as; AA thru ZZ, a thru z, aa thru zz or Az etc, are valid. These may be DIM'd a$ thru z$ in addition to the normal A$ thru Z$, as string variables. .br .sp +, supported (assuming FLEX on System drive). Example: +RENUM - this would execute the renumber routine supplied with BASIC 0935, from command mode (no line number). This routine will call any ".CMD" program on the disk. In 'statement mode' the + is replace by 'EXEC': .br Example: 100 EXEC TTYSET PS=N. .sp The implied 'LET' is supported but in 'LISTing' it will force a printed 'LET', example: .nf .sp 100 AA = AA+1 .sp is 'LISTed': .sp 100 LET AA = AA+1 .sp .fi RUNUM is a binary renumbering routine that is quite fast. RENUM can be invoked from a command line, a BASIC program to be renumber must be loaded by BASIC first and then call RENUM, example: .sp .nf LOAD .sp READY\# +RENUM (program in memory renumbered) .sp READY\# .sp .fi ERROR \#37 has been added. This indicates that an error occured external to BASIC. All other ERROR numbers are as in the SWTPC manual. .sp AUTO, this command does automatic line number insertion, by 10's, you need enter no line numbers. This and the RENUM command allow complete line number control, by 10's. AUTO should be in voked prior to writing a BASIC program. If AUTO is invoked while a program is in memory it will start at the highest line number plus 10. .sp SET(x,y) and RESET(x,y) statements added to ease implementation of graphics when using an SWTPC CT-82 terminal . Both assume a CT-82 is used on the current control port (as defined by the PORT= statement), and the CT-82 is assumed to be in the graphics mode. SET(x,y) turns on the pixel at horizontal position x, vertical position y. RESET(x,y) turns off the pixe l at horizontal position x, vertical position y. x and y may be constants, variables, or expressions. x should be in the range 0 to 183, y should be in the range 0 to 65. .sp This version will run all SWTPC BASIC programs without modification. It is mo nitor independent, requiring only 09 FLEX~. .sp By changing byte (HEX 14B3) from a 26 to a 20 HEX, either 4 or 16 byte I/O is agreeable with BAS-0935. .sp The I/O has been reconfigured from a Teletype~ configuration to a more conventional - No Parity - 1 Stop Bit - 8 Data Bits. No MPC allowed, PIA or ACIA standard addressing only. .sp PRINT USING - to be included at a later date. .sp ON ERROR, example: .br 100 ON ERROR GOTO 200 .br 200 PRINT "NUMBER OUT OF RANGE = RETYPE" .br 210 GOTO 80 (Thi s would allow going back to original 'INPUT' line). .br You may use PEEK(32) in your error handling routine to determine BASIC's error number thus allowing one error handling routine for several different types of errors. For example: .br 200 LET A=PEEK(32) .br 210 ON A GOTO 300,400,500 .sp The most recent ON ERROR statement encountered by the program is the one used when an error occurs. .sp The ERROROFF statement is used to return to BASIC's built in error handler when desired. When an error occurs after an ON ERROR statement, an implied ERROROFF is executed so that any errors encountered in your error handler will be sent to BASIC's error routine. Ľ ~ ~~~i~~~~~~i~~~i~*~~t~*~~t~*~~t~*~~t&nzn~n~nRNDTAB(INT(CHR$(cABS(SGN(SQR(LOG(EXP(SIN(COS(#ATAN(PEEK(KPOSFTAN(VAL(ASC(LEN(LEFT$(RIGHT$(8MID$(STR$(FN1EOF( USER(LIST NEW MON=GOSUBAGOTO`ONERROR9ERROROFFMON"THENPRINTINPUT IFREADDATARESTORE#ENDlPOKE(,SET(.9 DDDD09# & 454656& '#99 &㟊44 4F$ T'i5G$'WW$9*9'6>*9 ' ?s '! M' '''ȁ 'O'K&'0& ħ &&o!~ 4#' # ' o'9 0&9'76796 60]Z&V796 6]Z&o7960\&0ZZ\ā@70 'jކ ~4 M5 %% D42d99$$'0 04(&056*F' & & c79m+4$5&ǽ Ӯ Ͻ(94%J4cM+0c]c5$&4 9m'`$ _4&׆5_ 4c焧M* %_:m' $&R[Fc $ #9 %454A+Z/a+z/ 40+9/55]]9]0 4>:5 0000D"9M& 96Ԧ/~ 4O_m+m/XIQXI%XI%Q%넉%۽ j&79 % &'~*%9(&0 )&094~ 4 $ ǽ ^'904]04'4 -& 0 4]05]&M' $4M* Ľ |!5M* ս  4 *& 0 퍁 | /& 0Y  9 -& 0Ͻ +&0½ +& 0 -& 0 M96C &7 74$ +&0! '60]&7 M9$4~ 4 lĽ "&0"' M&~ 4o!9 $9 '4> M'Z&o49~6 6]0 640Z&0Z&75454WWhiJ&Z&54WSWd 00fJ&Z&WS56V1$* V φ&j ooe-4Z&d05 с._ V' Ͻ79 6 1$( l1$ l '- " E79]445Z&]54]  0Z&]56_1%~ 4`7  _\m*Z ֽֽ ] J&ڽ P X Om* φm* ϋJ (x$@P96ПY ս_ Y愽 ]'  Z ]ֽ J& ՖP Ľ E J* 7920%.*'0%&]'O:*&*,9 &0 M9$~ 4#.4M' J 0194M&694M':&69]  40 '_/'4'0Q' |'&0 01? 499~N.*FO23@Tg9P >ц@0~ }PDO F '@ y@ % M' RnD '  @4~F実[04&01нގ ٽގ0~ .<6 Xol&ue%_*F+' &o 0DO '&~0~yJý՞4 '* 4 ˟$4 '0 O1100 ˞$ *,.,'*' I0 ~Ξ4~">~%~ 42}'6~ 4n @ o 34 ':',&0 01 O +`6 .*'I0 6~ 7n ݁'ؽ%i '݁' 4 ':& ޽[@-%@m & B A S9~ ''?~ 49J % .*'I0^ T]~ J %45&݁&4&݁&ݽ%i _OJ&Z&92OZ&9 $ ',*'E  & *.'  .9+02 ,*01;1?M&*F,*P' 9 RH* ֯Э4O*D$7**F51? ,'1? ,01HIM&9~ 4[6%p]UV6*&~l0:&4~ 6'[ '6F7[ ] 0040n4 $F~ ~ 44]'ZU R`'(A' U6 6e& ~ 467e U4 U+ ,&0 $~ 46~eu&~ 40e F޽s6 6[~ 6C6V79C]>ħ C&,' M'0Z& o1?!94' 0'&05J4&~ 44 "& %,&043 % [ S4L$B4 &K$ &=M'ǽսS   ,&04 0,'0@:'M&~~ 4 J0-'0JOLMN_]&^' $ .&M0 900%80& L& M' K L6&]' N&Z HHHHN& M& K7 M&.&M _E&0-' +&05 0/PK46]7 J' 96`4]oZ&K75$~ 400%XXX4049 % ޞ4L$h4<.'; ' ')"' 9<< l%  '$'~ 4*'M&{&0 ,&0<4 0,'0:'M&~ν$ % .<4~6'M0 79 (4 #&0',' ;':'~n04%  HH HH&945H4'& &&~ 40n4 :'M&/0;'@06~~ 4$3BZ@/sZ&D  % &p 3 ,&0@4' s ;& 0&, M':' . O045 & $94@\ 'ѓ% ђ$ &_@56TOMm&  &~sm*- Ϧ .:-6M.Mm*% 'l M&I j& &V$D7 I D(EM:'Z*-MPOL *J II~֩$ I Z&  T&96]4 m& 0Z& 75|U% U94%~ 4 0='p &:'M& I % 'ׁ:'M&ٽ 44r4ז !4 % T    ,  6~640,' )&!479=479 % |)%~ 4M*4c焧$ _4  0,4'0 6&׆ 'ǽ؟F7FG9M&~ 4"4Q]'Z'Q 'J& 5 'J&94L%~` &4 6]0Q%Q_'&6'Խ &n&~ 4Q큟_4 0='~n KČ&44_؟_4 K& 44 _؟_4 :'M&06_6_~4L$ :'M&06섞_%'__%'T0&a$aԆm*O$ oa0$[$a_~o$aa6  ~ 44 %BO '* % '}4  M'&0 󦄍\ 4K%4 Rn 0=&9愁<&=&09>&099>'~ 4=&09<'9 4OXXr:5Mn' + + &  '+*996g79 ]/ lZ o E~f'J J*~ 9Pm* 4 (&04;1$ il$$$ | 45o Ei~~4=49$45焞4~DΖ@L ׽6]_ _d\$Zd _ \$Z   E79?)&4󦄍9OL]&J ܽ$'~ 4~ ,&0494 % '9=4\4$ "Ͻ$%%~ 4\4$J0J*05JM+J]&0o׆~=4$4L]&J544*O $㞈o 4גWW4L~ν%՞6@4z5@70o~/94 'mF&i0N&a0%X (&Q +슀|)AQ4c焞4 )&. =&'0:']'R&$ Q&ʀ 0~"~ 44愽 (&P06.*'F0' . 04& 0% $7=6$749#~ 4$b$$ $$ | B$$ m+ $$~ 9ATm&  | |~]0]&~_~Ӎ%! Dý%. .-9A4$ |A$T0 5Z&$~ |_]0 m' P  o9$_]0N/c%oN$N'* 4$ 5L 4$ 5J ݎ2 8  $ڽB" |$ ~(~ 4]_~]_J $$$ 愽]* ǽP 4$$ | $$ | %jB | |g59m&9%@$ |~!$4* C/C ս $uB C'  ǎ$$ 5M* ~g2~ ܎ DDDD00Z& 0~4%0~ lĽ~ 4 ':'#&04 "990~ 44 ':',';&049 ' -%m & D A T99X'X0Z&9 !v%[鮄&8F%FGFє%~ 4FG6 0Ċm& % ~2  1~ 4!'*&o$~)~ 4~6v%˽殄'+& 6%~44~ 4~ 44 #'99$A& O~T%$$& ")4 Ğc 404%91 ~ 4v% 殄'90 ) + }6$~Ύ@ m*o6~΍+&? 64%' % &z 34%, ~ 3~ 4!*4 !Ąm*o'&u $0Z&6#$~2~ 4@ q @ m*o6~ν% 4  @om*o6@&m'+D. ٦&~Φ& "|0Z&9v%殄' + )  0~ 4%|)$M*4c焧$ o  oo$'* >$4 6ԽԟF7FG4 ' 45&~Χ'~A $0Z#@&c $ $4 '06lO660& } $ S STQ& Q_S m ' % 6}U' V V'#@6 &$ > 6~5~ 4O_$FV &9O %     &9 afbgfI&2cs$7%AiW2e(10P0%3333BqC$& i#ifffg#R33333333XsuW1IG`Y8ffgaHXs$Bhvupfffgffg33338A&HXsuW1 ~Y@+,`#   r%[& @o @-%1r%C& o -%@m'Dm&~$1 ?  $~D@ }'Ģ$ | Zm&ަC'׾!$.' Ё9# o0Z&.' -% | '% 0Z* oC&{$&cm'e+m+ D}&,DA=='0=AM'&0A ˆĎ@ 1%qC &~~$00o_9.D. Ĵ o_~9& 0Z&9 D00Z&9$@&~ˍ ~ͽ~m &@ 4  5Lħ @&~$;m*~'~#;@m'l@'& 0 H~-'J0 ԶC' `k0&&I'0 }' @&' & 9''~ª~9 ߎ۽Y&Y&ێ &æ$~f!%9".' 4''5_]9 COPIED COPY COMPLETE TO DRIVE #NO SUCH FILE FILE EXISTS DELETE ORIGINAL?  ARE YOU SURE? STARTUPTXTh2`2D_9YZ[;~^~~9' ŕ΄ě9&Š SŘECTORS  SECTOR  *.&~O23.섯Ѯ큖3 3223큯*'0&\'0 0.*'xv*k'0 a0'7&kQNKH0',':' '$Bz(t%l%d% 00Y0&'0&0'&'ϧ@,'bM&00'(HHHH'u' HHHH*T%L 0H&玙 9& 7' ODDDD0*& 'O0& ' ODDDD0M09فT' G'-M&0I0H&0E&0N&%0]0O&0S'T&0O' 0U&0B' 4T$$trl*0*b0\V&59MC&=077j*0*OJ'940+9/5959 &0 M9+')mK,ll 45 ,ju ,ce BASIC 0935 (6809 Business Version 2.0) ,sp The following are the changes that vary from the instructions contained in the SWTPC BASIC manual version 3.5. The machine code is optimized for the M6809 but not relocatable. The speed difference between the 6800 version and the 6809 version is about 40\% better on the 6809. BASIC 0935 honors FLEX~ 'End of Memory' pointer. ,sp The differences between the SWTPC version and BASIC 0935 version 2.0. is as follows: ,sp Double variables such as; AA thru ZZ, a thru z, aa thru zz or Az etc, are valid. These may be DIM'd a$ thru z$ in addition to the normal A$ thru Z$, as string variables. ,sp +, supported (assuming FLEX on System drive). Example: +RENUM - this would execute the renumber routine supplied with BASIC 0935, from command mode (no line number). This routine will call any ".CMD" program on the disk. In 'statement mode' the + is replace by 'EXEC': .br Example: 100 EXEC TTYSET PS=N. ,sp The implied 'LET' is supported but in 'LISTing' it will force a printed 'LET', example: ,sp 100 AA = AA+1 ,sp is 'LISTed': ,sp 100 LET AA = AA+1 ,sp RUNUM is a binary renumbering routine that is quite fast. RENUM can be invoked from a command line, a BASIC program  to be renumber must be loaded by BASIC first and then call RENUM, example: ,sp LOAD ,sp READY# +RENUM (program in memory renumbered) ,sp READY# ,sp ERROR #37 has been added. This indicates that an error occured external  to BASIC. All other ERROR numbers are as in the SWTPC manual. ,sp AUTO, this command does automatic line number insertion, by 10's, you need enter no line numbers. This and the RENUM command allow complete line number control, by 10's. AUTO should be invoked prior to writing a BASIC program. If AUTO is invoked while a program is in memory it will start at the highest line number plus 10. ,sp SET(x,y) and RESET(x,y) statements added to ease implementation of graphics when using an SWTPC CT-82  terminal. Both assume a CT-82 is used on the current control port (as defined by the PORT= statement), and the CT-82 is assumed to be in the graphics mode. SET(x,y) turns on the pixel at horizontal position x, vertical position y. RESET(x,y) turns off  the pixel at horizontal position x, vertical position y. x and y may be constants, variables, or expressions. x should be in the range 0 to 183, y should be in the range 0 to 65. ,sp This version will run all SWTPC BASIC programs without modificatio n. It is monitor independent, requiring only 09 FLEX~. ,sp By changing byte (HEX 14B3) from a 26 to a 20 HEX, either 4 or 16 byte I/O is agreeable with BASIC935. ,sp The I/O has been reconfigured from a Teletype~ configuration to a more conventio nal - No Parity - 1 Stop Bit - 8 Data Bits. No MPC allowed, PIA or ACIA standard addressing only. ,sp ON ERROR, example: ,sp 100 ON ERROR GOTO 200 200 PRINT "NUMBER OUT OF RANGE = RETYPE" 210 GOTO 80 ,sp (This would allow going back to o riginal 'INPUT' line). You may use PEEK(32) in your error handling routine to determine BASIC's error number thus allowing one error handling routine for several different types of errors. For example: ,sp 200 LET A=PEEK(32) 210 ON A GOTO 300,400,500 ,sp The most recent ON ERROR statement encountered by the program is the one used when an error occurs. ,sp The ERROROFF statement is used to return to BASIC's built in error handler when desired. When an error occurs after an ON ERROR statement, an implied ERROROFF is executed so that any errors encountered in your error handler will be sent to BASIC's error routine. ,sp The rest of the commands ara to be found in the SWTPC manual.                                                                                       !!!!!!!!! ! """"""""" " ######### # $$$$$$$$$ $ %%%%%%%%% % &&&&&&&&& & ''''''''' '