RCA COSMAC Operator's Manual page 78

F 0050 3/\00
OOSF 03
0060 3[3SF
0062 03
0063 3362
0065
0065 FB20
F 0067 3AOO
0069 90130
00613 8DAO
0060
0060 81
F 006E 3200
0070
0070
0070
0070 92ADf30
0073 03
0074 3373
0076
0076 FBOD
F 0078 3AOO
F 007/\ F800A3
0070 030A
007F 90BF
F 0081 F800A3
0084 03
0085 80[3F
F 0087 F800A3
008A 03
008B 0320
0080
0080 4013F
F 008F F800A3
0092 03
0093 20
009/. 8D
F 0095 3AOO
0097 9D
0098 323D
009/\ 80FAOF
F 009D 3AOO
009F 033[3
00A1 0300
00A3 3070
00A5 F6
00A6 3380
00A8 0320
OOM 3080
OOAC
OOAC
OOAC
OOAC
OOAC
OOAC
OOAC
OOAC
111 mlz
SYf.lERR
111.
mn:
flO
~;TAn:
sun
115 Bf.IF.;, -f!1
.. IG'IOI1E f.lot! !Ir~< cllo\r~r;.
,\r-Tr:n
11.
llG
GO STATE Slm
117 (JDF *-#1 .. REAP IIJ r:IRST Af{(1 (1.0CO\TIOtl III
118 .. I lEI 10fW)
l1g • XOR. /f20 .. flEXT r.IlAR SltnlJU1 13~ f\ S[>.t\cr:
120
m
IZ SYIIERR
121 /\SL.1-)PTER.l
122 ASL.O-)PTER.O .. rrEn r·lnl/
PO"JT~
ltlTO lJr;r:R
123 .. r'F.I lorw
12/.
SIJITCH.O .. LOOK AT SlnTCI!
125 nz EX1 •• I
r-
0 IT '.IAS I
12G 0TIIER\IISE IT 11M) ?
127 .. 11IE FOlLOI/JrJG
nOE~
<711
I.nc
COlHIT) COI1\f\11f"l
128
129 ST.l-)ASL.O,ASl.l .• r.Lr:Af{ .t\~L.
130 H02: GO STATE sun
131 nDF R02 .. rH:AO
IfJ ~;r:rorlD AI~G
132 •• <rllJl tilER or [lYTES)
133 • XOR. #00 .. ' IF.XT r.K FOn cn
134 UUZ SYtlEnR
135 A.O(TYPE50)-)SUrl.O •• TyrE
13G L1IJE: GO STATE SUr1,f.!OA •• I.F
137 PTER.l-)CIIAn.1 .. PREr.o\Hr: L11lE IIEf\OlrJG
138 A.0(TYPE2)-)'SlJlJ.O
13g GO STATE sun •• TYPE 2 111::< IJ I G1
ri
140 PTER.O-)CIlAR.l
11.1 A. O(TYPE2) -)SlJn. ()
142 GO STATE SUB •• TYPE OTIlEn 2
1/.3 GO STATE sun, # 2rJ •• SP1\r.r:
11./.
11.5 TlOOI"': @PTER#GI\#->CIlAn.l .. r:ncil 1 rWTG:
ro!~
rtf'
PIG
I/.G A.0(TYPE2)->SlJrJ.O
1/17 GO STATE sun •• TYPE 2
III:A
148 OEC
CI·ITEr~
149 cr·ITER.O
150 13HZ Tl3 •• 13RArJCIt IF 1·It'lT
nntl~
YET
151 CUTER.l
152 BZ START.. ORAI·ICII I F nOllE
153 TL3: PTER.rJ.NIO.#OF •• IS PTm 111\1
[W
lfi?
154 nHZ Tl2
155 GO STATE SUn,#3[J .. Ir YES TYPE; 1llEfJ
15G GO STATE SUB, #on • • en I\:.J[)
157 GO TO LI rlE
158 TI.2:/2 •• DIV BY 2?
159 BOF TI.OOI' •• I
r- r)n lnop
nACI~,
EI.")[
IGO GO STATE SUrJ,#2rJ •• TYPE SPACE
IGI GO TO TlOOP ••
AIm
11lrtl
IJ)()P
nACI~
IG2 ••
IG3 TilE FOllOI II f.l(l DOES (111
I.nc
[)1\T/\) COl v\f\r1D
IG4 •• [lITER AT EXI
IG5
IGG •• EFFECT OF TilE FOLlOI/II·/G IS TO 11EAn If I IIC(
IG7 ••
TEru·ll1·IATII~G
I.JITII A
CR/IGrlOI~II·IG
IJOfHID: CI!ARS.
1GB •• PAIRS; EXCEPTIOIJS: A CCU1A BErOR A en ALLOI/S
IG9 •• 11IE
It~PUT
TO COIITIIIUI: Ofl TilE rlr-:XT L1t1r-: A!Jr
fI
- 71 -