Table of Contents
Advertisement
**
ALS-8 PROGRAM DEVELOPMENT SYSTEM
**
MANUAL DATA
CUTS READ AND WRITE ROUTINES
PROCESSOR TECHNOLOGY CbRP.
6200 HOLLIS STREET
EMERYVILLE, CALIF.
94608
VJ077
21 2D 01
007A 01 00 10
007D CD 9D
fHiJ
0080 D8
0081 77
0082 2'3
0083 CD E6 00
0086 05
0087 C2 7D 00
008A CD 9D 00
008D A9
008E C9
008F
DB
FA
0091 E6 40
C0
0093
0094
0096
0098
009B
009C
DB
FE
C2
37
C9
01
IB
,8F
IH'J
009D CD 8F 00
00A0
D8
00Al DB FA
00A3 E6 18
00A5
DB FB
00A7 C8
00A8 37
00A9 C9
0158 *
0159 *
0160 *
0161
0162
0163
*
0164 RHEDI
0165
0166
0167
0168
0169
0170
0171
*
NOW GET THE HEADER
LXI
LXI
CALL
RC
MOV
INX
CALL
DCR
JNZ
H,THEAD
B / HLEN*256
TAPIN
M,A
H
UDCRC
B
RHED1
POINT TO BUFFER
LENGTH OF HEADER IN
GET BYTE
STORE IT
INCREMENT ADDRESS
NOW CALCULATE THE
WHOLE HEADER YET?
LOOP UNTIL DONE
CRC
B ,C<0
THIS ROUTINE GETS THE NEXT BYTE AND COMPARES IT
TO THE VALUE IN REGISTER C.
THE FLAGS ARE SET ON
RETURN.
01:7 2
*
0173 *
0174 *
0175 *
0176 CRCCK
0177
0.'\..18
CALL
XRA
RET
TAPIN
C
GET CRC BYTE
COMPARE IT WITH CALCULATED (CLEAR CARRY)
THIS ROUTINE GETS THE NEXT AVAILABLE BYTE FROM THE
TAPE.
WHILE WAITING FOR THE BYTE THE KEYBOARD IS TESTED
FOR AN ESC COMMAND.
IF RECEIVED THE TAPE LOAD IS
TERMINATED AND A RETURN TO THE COMMAND MODE IS MADE
0179 *
0180 *
0181 *
0182 *
0183 *
0184 *
0185
*
0186 STAT
0187
0188
0189
0190
0191
0192
0193
0194 *
0195 *
0196 *
0197 TAPIN
0198
0199*
0200 TREDY
0201
02'02
0203
0204
0205
0206 *
0207 *
0208 *
0209 *
0210 *
IN
ANI
RNZ
IN
CPI
JNZ
STC
RET'
CALL
RC
IN
ANI
'IN
RZ
STC
RET
STAPT
TDR
KDATA
MODE
STAT
STAT
STAPT
TFE+TOE
TDATA
WHEN CHARACTER IS REApy
ESC ?
SET ERROR FLAG
AND RETURN
WAIT UNTIL A CHARACTER IS, AVAILABLE
DATA ERROR?
GET THE DATA
IF NO ERRORS
SET ERROR FLAG
WRITE TAPE BLOCK ROUTINE
PAGE
4
Advertisement
Table of Contents
