Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
MOV, May, 1Q82, 1982, Issue 2A 24 COMPUTEI<br />
COMPUTE! 131<br />
Program 2.<br />
0001 PON<br />
0002 * * **********<br />
0003 *<br />
0004 * TIME 100 DISK<br />
0005 * REVOLUTIONS<br />
0600<br />
68<br />
0601<br />
A9 01<br />
0603<br />
0606 A9 00<br />
A9 01 0011<br />
LDA #1<br />
8D 80 OA 0A 03 0012 STA<br />
$30A<br />
0606 A9 00 0013<br />
LDA #0<br />
0608<br />
80 8D OB<br />
03 0014 STA<br />
S30B $3OB<br />
060B<br />
80 8D 04<br />
03 0015 STA<br />
S304 $304<br />
060E<br />
A9<br />
060E A9 05 0016<br />
LDA #5<br />
0610<br />
80 8D 05<br />
03 0017 STA<br />
S305 $305<br />
0613<br />
AD 4A<br />
06 0018 0616<br />
80 8D 01<br />
03 0019 LOA LDA<br />
STA<br />
DRIVE<br />
S301 $301<br />
0619<br />
A9<br />
061B<br />
061E<br />
A9<br />
05<br />
52<br />
A9 52 0020<br />
LDA #'R<br />
80 8D 02<br />
03 0021 STA<br />
S302 $302<br />
05<br />
A9 05<br />
0006 *<br />
0007 **************<br />
**********-<br />
0008 0009 0010 ORG<br />
OBJ<br />
PLA<br />
S600<br />
S600<br />
0011 LOA #l<br />
S30A<br />
0013 LOA #0<br />
0016 LOA<br />
0020 LOA<br />
0022 LOA<br />
#5<br />
#'R<br />
#5<br />
LDA #5<br />
0620 80 8D 49 06 0023 STA NREAD<br />
0623 20 53 E4 0024 LOOP JSR SE453<br />
$E453<br />
0626 CE 49 06 0025 DEC NREAD<br />
062 9 DO F8 0026 BNE LOOP<br />
0629 DO F8 0026<br />
BNE LOOP<br />
062B A9 64 0027 LOA LDA #100<br />
0620 062D 80 8D 49 06 0028 STA NREAD<br />
0630 A9 00 0632 85 13 0634 85 14 0029 0030 0031 LOA LDA<br />
STA STA #0<br />
S13 $13<br />
S14 $14<br />
0636 20 53 E4 0032 LOOPA JSR SE453<br />
$E453<br />
0639 CE 49 06 0033 DEC NREAD<br />
0639 CE 49 06 0033<br />
DEC NREAD<br />
063C DO F8<br />
063E AS A5 14 0640 A4 13 0034 0035 0036 BNE LOA LDA<br />
LOY LDY<br />
LOOPA<br />
S14 $14<br />
S13 $13<br />
0642 80 8D 4B 06 0037 0645 8C 4C 06 0038 STA STY ALOC ALOe<br />
BLOC<br />
0648 60 0039 RTS<br />
0040 NREAD OS DS 1<br />
0041 DRIVE OS DS 1<br />
0042 ALOC OS DS 1<br />
0043 BLOC OS DS 1<br />
SYMBOL TABLE<br />
LOOP 0623. LOOPA 0636 NREAD 0649<br />
LOOP 0623, LOOPA 0636 NREAD 0649<br />
DRIVE 064A ALOC 064B BLOC 064C<br />
©<br />
Look Out!<br />
MX80<br />
PRO/WRITER<br />
IS HERE<br />
/<br />
~=l<br />
ATARI D.O.<br />
S460.00<br />
ATARI BOO 800<br />
$735.00<br />
PRO/WRITER OFFERS YOU MORE<br />
•<br />
Tractor & Friction<br />
Feed<br />
Paper Cut Off The Tightest Dot<br />
Matrics You've Ever<br />
Seen<br />
Hi Res. . Key & Dot<br />
Graphics<br />
100 CPS<br />
Proportional Spacing<br />
Math Symbols<br />
And More For Less<br />
Atari 10 to ProlWriter Pro/Writer Word Processor Free with Printer<br />
Atan<br />
Atari<br />
Zenith Printers •<br />
•<br />
Paper<br />
Elephant Disks<br />
Software<br />
Alari Atari to PrOlWriter Pro/Writer Software<br />
Poquette's<br />
14538 Lynshar Road, Road. Grass Valley, CA 95945<br />
Dealer inquiries invited (916) 272-6808<br />
Dealer inquiries invited (916) 272-6808<br />
"ATARI HAS THE CAPABILlTY<br />
"ATARI HAS THE CAPABILITY-<br />
ACE GIVES YOU THE KEY"<br />
RIGHT IN YOUR POCKET!!<br />
RIGHT IN YOUR POCKET!!<br />
REFERENCE<br />
CARD<br />
16 comprehensive pages<br />
16 comprehensive pages<br />
• error codes<br />
• basic commands with<br />
• basic commands with<br />
abbreviations<br />
• peek and poke locations<br />
• peek and poke locations<br />
• internal codes<br />
• machine language aides<br />
• much, much morel! .<br />
• much. much more!! I<br />
ony<br />
Get Yours Now $9.95 ** Jl<br />
(dealer ad space available)<br />
ORDER HOW·CASH, NOW-CASH, CHARGE OR C.O.D.<br />
£>. ADVANCED COMPUTING ENTERPRISES<br />
r.iiijji;J 5516 ROSEHILL<br />
^_<br />
~ SHAWNEE. SHAWNEE, KS. 66216 ~<br />
~ ^(913)262-2875<br />
•(913)631-4180<br />
-<br />
ATARI IS A REGISTERED TRADEMARK OF ATARI INC.