1
:1
..
1
.
~.
CRT and Cassette Code (Cont'd)
ISIS-I I
8980.'OOSS
ASSEMBLER.
V1.
13
8985
SERIAL
I/O
HOTE
APPENDJ:':
MOOULE
PAGE
;;
LOC
OSJ
08FF
(:9
0900
0EFA
9992
C01D99
9905
D2gee9
a90S
91)
9989
C29299
990C
CD1589
egeF
71
99"19
2C
0911
C2OC99
9914
C9
13915
0609
9917
1600
9919
15
091A
(:03009
9910
OA1909
ana
CD3De9
9923
Cofl1909
9926
14
9927
CD3D09
092A
D22699
e92r,
C03D09
9930
D22699
9931.
7A
9934
17
9915
79
9936
1F
9937
4F
9938
95
9939
C21709
893C
C9
993D
1H6
093F
1D
0949
C23F99
8943
20
8944
17
9945
C9
PUBLIC
SYt1BOLS
SEO
SOURCE
STATEMEm
2ea
RET
2139
2113
.:
PLAYBK
~JAITS
FOR
THE
LONG
LEADER
BURST
TO
ARRIVE,
THEN
CONTINUES
211
.;
READING
BYTES
FROM
THE
RECORDER
ANCo
STORING
THE~l
212
;
IN
~1Et~OPY
STAIHINI3
AT
LOCATION
(HD.
213
.:
CONTINUES
UNTIL
THE
END
OF
THE
CURRENT
PAGE
(L>=0FFH)
IS
REACHED.
214
PLAYBK'
r~vI
C'
lDRCH~:
.:
(LORCHf:'>
SUCCESSIVE
HIGHS
tiUST
BE
REAr
l
215
PB1'
CAll
eITm
.:
".
TO
',.'ERIFY
THAT
THE
LEADER
IS
PRESENT
216
JNC
PLAYS~;
:
....
AUf'
ELECTRONICS
HAS
STABILIZE[;
217
218
219
PB2:
2213
221
223
224
DCR
JNZ
CALL
MOl,!
nIP
.mz
P.ET
C
PSi
TAPE!
t-j:
GET
(:,ATA
B~'TE
FRC*1
PECOF.HR
M
..
C ;
STORE
IN
"IH!OR'T'
L
.:
I~rpHl£NT
PC!ir-ITER
P82
.:
REPER"r
FOR
REST
OF
CUf.:REm
PAGE
225:
TAPEIN
CASSETTE
TAPE
INPUT
SUBROUTINE.
PEA[;'s
ONE
8'r'TE
OF
OATH
226
.:
FROM
THE
RECOP('ER
INTERFACE
flN(:'
RETURNS
~HT~
THE
BYTE
IN
REGISTER
C.
227
TAPEIN:
~1IJr
8,9
..
RERn
EIGHT
OPTA
ens
228
TIt:
N";'I
O
..
1313H.:
CLEAR
Uf':'[)I}JN
C,JUNTEF.:
229
TI2:
DCR
[0
.
[ERH1ENT
ceUNTER
EACH
TUIE
ONE
LEVEL
IS
REHfI
2]13
CALL
BITIlj
211
.Ie
TI2;
REPEPT
IF
STILL
AT
ONE
LEVEL
232
233
2J4
TE.
2:'5
236
237
238
219
249
241
242
243
244
245
246
247
CALL
BlrrN
JC
TI2
iNR
[! i
HKRHIENT
COIJNTEF.:
EACH
TINE
ZERO
IS
READ
CALL
SITIN
JNC
TE :
REPEAT
EACH
nNE
ZERO
IS
REACt
CALL
BIT!N
.JNC
TI3
~10V
A,
[!
RAL
i
t10YE
COUNTER
f'lOST
SIGNIFICANT
BIT
INTO
CARRY
MOV
A.,
C
RAP..
MOVE
[,ATA
BIT
FE I
EVEC'
(CY)
INTO
B'fiE
REGISTER
MOV
C.
A
OCR
e
.JNZ
TIl.:
REPEAT
UNTIL
FULL
Br'TE
ASSEt-18LEr'
RET
248
BITW:
Mill
E!
C~:RATE
E
249
SI1:
DCR
250mz
251
PJl1
252
RAL
25:
RET
254
255
END
Bli:
LINIT
INPUT
SAt-fLING
RATE
:
SANPLE
SID
LINE
:
~10VE
OATA
INTO
CY
BIT
A1·53