RCA COSMAC Operator's Manual page 77

IrH T I AT I or·l flail OOllE
.,
· .! 11
r·llJ~
1
• •
nl~.
1
STOI~ES
/I. I lOr. I r I F.O
• • I
r
ISTRtJr.T I 011
GO STArr: Slm •• 110TE
~lJB
AT Rrl\Dl\ll. I!O\!
•• fU:N) ! lEX AHGr;.
.XOR. U40 •• SIIOtJLIl or: rl
#AO-)nl~.1
5G
57
58
!j9 SEX
CI.
GO 1.00P2: #[)O-)@CL •• SF.T UP srp IIISTR FOR JU:T'
mr
J
G1 .XOR.@(CL) •• r.Ilr:CK TIIAT IT \-IRaTE
G2 l.\I·ll UT2
GJ DEC CL •• PREPARE rOR '·100
I
r I En
I
r·JSTRUCT
I
or
I
GI. R4.1+iI70 •• SEr IF IT IS It! lllE 90'S
65 DDF *+#4
GG +/121
•• I
r
IJO, lJrJ
I3rCOI~E:l
9rJ
G7
+#7F •• Ir YES,9lJ
l3r:cor~ES
13(ll-l)
G8 ->R4.1,QCL •• SET liOOIFlrr IHSTR II·ITO HAt!
Gg
.xor~.o(cL)
•• CI( 111/\T IT \IROTE
70 m,ll UT2
71 SEP CL •• GO TO EXEClJTr I
rtSTf~
(aO-flF)
72 ->@CL •• STORE RESULTS Ifl IWI
73
DEC eLi DEC CL •• BI\l'-;I~ UP rOR rw;n BYTE
71. GO TO Loor2
75
7G UT2: IW.1-)rC.l,SUO.1 • .flflr)->rr,.l f\lJr) SlJn.l
77 A.O(UT2A)->Pr,.o
78 GO STATE PC
79 UT2A: SEX PC
80 0ISAOLE,P!j5 •• lIOTE PC=5 ASSlll1FD IH:nr!!
81 OUTPUT, #01 •• srU:CT ncA
r;nn'.lf)
82
#OO->ST.l,ST.O •• SET
~TACI: POJ!lTEr~
Tn flU));
83 •• or,ILY IW·' liSEn
81~
A.OCTJrV\LC)->SUD.O •• Rr:AD orlE Cl!l\f{ TO
~ET
85 .. TillER
8G
GO STATE SUI3
37
88
8~
90 START: A. OCTyrE!jD)
->~IJ!l.
0
91 GO STATE Slm,IIOD •• CR=CAmU AGE nF.Tlmrr
92 5T2: GO STATE SUI3, #OA •• Lr=L HIE FEEn
!)3 GO STATE GU13,#2A ••
X
AS PRorlPT CIIAft6.r.n:H
!)4 I G!·IOHE: ST • 1->ASL. 0, AS L. 1 .. rHE PARr: TO I JPLJT II[;~
95 .•
O!GITS,CLEAR ASL.
9G A. 0(READAIl) - >SUB. 0
97 GO STATE
sun .•
IrlPUT C'JrY'AflD.
98 .XOR.
#21~
•• IS IT
~
?
qg
nz
DOLLAR
100 .XOR. liDS •• IS IT
I
? CTC,T \.IITI1
~ .){Of{.
!)
101 ->S\/ITCII.O •• !\flll Sl\vr: Rr:::,lIlT
102 8Z RDI\RGS
10J
.XOR.ft1E •• IS IT ? ?CTr:;,T \IITII
~.:<on.! .XO!~.?)
101~
f3tJl IGrlORt •• IGr·lonr: ALL UrnlL A COI·VI/VIr) IS
105 •• R~I\[)
lOG
107 •• THE FOLLO\lIrIG IS r,O/VI0fl
For~
?'1 Nlf" 1/1
108 •• (S\/I Tefl. 0 =
a
Fon lllE LATTrn)
109 ••
110 RDARGS:
111
112
OOOA·
OOOA
F8AOO!~
0000
0000
El
OOOE F8DOS1
0011 F3
F 0012 '3AOO
0014
21
0015 94FC70
0018 331C
001A FC21
8
01C FC7F
OlE 0451
0020 F3
F 0021 3AOO
0023 D1
0024 51
0025 2121
0027 300E
0029
0029 9005133
F 002C F300A!j
002F 05
0030 E5
0031 7155
F 0033 6001
0035 F800B2A2
0039
F 0039 F800A3
003C
003C 03
003D
0030
0030
F 0030 F800A3
0040 030D
0042 030A
0044 032A
0046 92AD£3D
0049
F
0049 F8DOA3
004C 03
0040 FB24
F 004F 3200
0051 FB05
0053 Al
F 0054 3200
0056 FB1E
0058 3A46
005A
005A
005A
005A
005A
005A 03
00513
005B FBI.O
- 70 -