Operating instructions

GIVE INPUT
CONTROL TO
RED
LOAD CR
RC:STORE X REG
GI VE OUTPUT
CONTROL
TO
PRT
REIIO 1ST RF::C
GIVE CONTROL
TO
KEYBOARD
536
ICOllT
$37
'KSW
S 3B
IKSW
S39
ReR
'RED
S3B
IRED
S39
TP
'0
PT
STA
WA
Sf A
RT~
1900
1910
1920
1930
1940 •
1950 **~**************.*******~***~***
1960 •
1970 • BYTE INPuT ROUTINE
1980 •
1990 *********************************
2000 RI':O STX XSAV SIIVE X REG
2010 INC PT
2020 Ll)X PT
2030 LOA SAVE-l,X GET BYTE
2040 CMP ISBO CR?
2050 BNE NCR
2060 LOA PT
2070 CMP U
2080 BEO NKEY
2090 JSR TR
2100 LOA to
2110 STA PT
2120 RCR LOA 'SBo
2130 NCR LOX XSAV
2140 RTS
2150 NKEY LOA
2100 S'fA
2170 LOA
2180 S'fA
2190 JMP
2200 SK LOA
2210 STA
2220 LeA
2230 STA
2240 JSP
22 50 LOA
2260 STA
2270 RTS
22BO
SP LO}l tPRT
2290 Sf A S36
2300 LOA IPRT
2310 srA 537
2320 LOA .0
2330 STA PT
2340 RTS
2350 TR JSR SET
236C JSP PE
2370 RTS
23BO
.CN
NAME: _
ADDRESS, _
CllY STATE __ ZIP __ PHONE _
o NO. I al .... dy know il all. but send me a Ir .. sample of next issue.
Send check or money order to: Apple Shoppe, P.O. Box 701, PlacentiL CA m70
or call [phone]
o YES I want to learn now to get the most out otmy Apple. Send me aoneyear
subec,iptlon. I enclose 112.
035F- B6 47
0361- EE 00 03
0364- AE 00 03
0367- BO FF 3E
036A- C9 80
036C- DO 11
036E- AD 00 03
0371- C9 01
0373- FO 00
0375- 20 AC 03
037B- A9 00
037A- BO 00 03
0370- A9 BO
037F- A6 47
03Bl- 60
0382- A9 IB
03B4- 85 3B
03B6- A9 FO
03BB- B5 39
038A- 4C 70 03
03BO- A9 51'
03BF- B5 3B
0391- 1\9 03
0393- B5 39
0395- 20 AC 03
0398- A9 00
039f1- 80 00 03
0390- 60
0391:- A9 IB
03AO- B5 36
03A2- A9 03
03114- B5 37
03A6- }l9 00
03A8- BO 00 03
03AB- 60
03AC- 20 07 03
03.AF- 20 FO FE
0332- 60
YOU SOUGHT THE 8ESTI NOW LEARN TO USE tTl
AT LAST! \
A ma ........ devoted to A""Hc.tlOIIa ..
wen .. Teollnlque fer the Apple Com put ••
THE APPLE SHOPPE W'LL TEACH YOU HOW TO
DO ALL THOSE FANCY THINGS ON THE APPLE.
LEARN HOW OTHERS ARE USING THIEIR
APPLES IN THE HOME, SCHOOLS AND 8US,·
NESSES.
EOITIED BY
OAVID E. SMITH
0358- 85 36
035A- 1\9 FO
035C- B9 37
035E- 60
ReSET PT
RESTOPF:: )t REG
5 src HE'\orp
\·!PITE TO TAPF:
RS8TOPE )tPEG
OUTPUT CR
l'/PITF LJ\ST PF:C
PESF:T PRI'H
BY
ALLEN J LACY
AUGUS'f 1979
#SB'l
SAVE
SF:T
IS20
I,P
#eOllT
PT
H
NPT
SF.T
H20
\,p
XSAV
.589
COUT
.0
PT
TAPE EXECUTE
FILE
CREATE & USE
1000 ** ••••••••• *** •••••••••••• ** •• ***
1010 •
1020 •
1030 •
1040 •
1050 • MAIN USE TO CONVERT INTEGER
1060· PROGRAMS TO APPLESOFT II
1070 •
1080 •
1090 •
1100 •
1110 •
1120 •••••••••••••••••••••••••••••••••
1130 •••••••••••••••••••••••••••••••••
1140 •
1150 • 256 BYTE BUFFER TO STORE TEXT •
1160 • FROM ADDRESS S3FOO TO S3FFF
1170 • CHANGE FOR LARGER APPLE II
llBO •
1190 •••••••••••••••••••••••••••••••••
1200 SAVE .EO S3FOO
1210 PT .EO 5300
1220 gSW .EO SFOIB
1230 WR .EQ SFECF
1240 RE .EQ SFEFO
1250 COUT .EO SFOOO
1260 XSAV .EO 547
1270 .OR S301
12BO •
1-290 •••••••••••••••••••••••••••••••••
1300 •
1310 • S~f UP FOR OUTPUT OF FILE
1320 •
1330 •••••••••••••••••••••••••••••••••
1340 STP JMP SP
1350 •
1360 •••••••••••••••••••••••••••••••••
1370 •
13BO •
SET UP FOR INPUT OF FILE
1390 •
1400 •••••••••• * ••••••••••••••••••••••
1400 STK JllP SK
1420 •
1430 •••••••••••••••••••••••••••••••••
1440 •
1450 ·SUBROUTINE TO SET TAPE POINTERS·
1460 • •
1470 •••••••• * ••••••••••••••••••••••••
14BO SEf LOA tSAVE
1490 STA 53C
1500 LOA ISAVE
1510 S·fA S30
1520 LOA tSAVE+255
1530 S'fA S3E
1540 LOA ISAVE+255
1550 STA $ 3F
1560 RTS
1570 •
1580 * ••••••••••••••••••••••••••••••••
1590 •
1600 • BITE OUTPUT ROUTI NE
1610 •
1620 •• ~*.* •••••• * •••••• * •• *.**.******
1630 PPT srx XSAV STORE )t PEG
1640 I!'lC PT
1650 LOX PT
1660 S'fA SAVE-LX S·fORE [lYTE
1670 CMP t S80 CP?
16 BO BE(1 CR
1690 L9X XSAV
1700 JSR COUT
1710 RTS
1720 CR LOA
1 730 C~lP
1740 BEQ
1750 JSR
1760 WII
1770 JSP
1780 LaX
1790 WA
IBO 0 JSR
IBI0 L'l.A
1820 S·fA
1830 RTS
IB40 'lPT LOA
IB50 s'rA
IB60 JSR
1870 WA
18BO JSR
IB90 L'lA
0301- 4C 9E 031
0318- 86 47
031A- Ff. 00 03
0310- fiE 00 03
0320- 90 FF 3E
0323- C9 80
0325- FO 06
0327- A6 47
0329- 20 FO FO
032:::- 60
0320- AD 00 03
0330- C9 01
0332- FO 15
0334- 20 07 03
0337- .1\.9 20
0339- 20 CF FI':
033C- A6 47
033F:: - 119 80
0340- 20 FO FO
0343- A9 00
0345- 80 00 03
0348- 60
0349- A9 SO
0348- 80 00 3F
034E- 20 07 03
0351- A9 20
0353- 20 CF FE
0356- 119 FO
0304- 4C 80 03
0307- fl9 00
0309- 85 3C
030B- A9 3F
0300- 85 3D
030F- A9 FF
0311- 85 3E
0313- A9 3F
0315- 85 3F
0317- 60
)