Processor Technology CUTS Assembly And Test Instructions page 65

Computer users tape system
Table of Contents

Advertisement

**
ALS-8 PROGRAM DEVELOPMENT SYSTEM
**
MANUAL DATA
CUTS READ AND WRITE ROUTINES
PROCESSOR TECHNOLOGY CORP.
6200 HOLLIS STREET
EMERYVILLE, CALIF.
94608
0035 09
0036 D2 4E 00
0039 06 00
1'.103B D3FC
003D 0E 00
003F EB
0040 CD 7D 00
0043 DA 49 00
0046 CA 2C 00
0049 AF
01:':14A 37
004B C3 5B 01:' : 1
004E 45
004F 21 00 00
0052 C3 3D. 00
1:':1055 06 0.1
0057 CD IF 01 ..
005A AF
005B D3 FA
005D 01
005E C9
1:':105F 06
0A
1:':1061 CD 8F 00
.0064 -D8·
0065 DB FB
0067 B7
0068 C2 5F 00
01:' : 16B 05
01:' : 16C C2 61 00
006F CD 9D 01:' : 1
0072 D8
0073 3D
0.074 C2 6F 00
0105
0106
0107
0108
0109
*
01Hl RDBLK
0111
0112
*
0113 RTLOP
0114
0115
0116
*
DAD
JNC
MVI
OUT
MVI
XCHG
CALL
JC
JZ
0117
*
ERROR RETURN
0118
*
.0119 TERR
0120
0121
0122
*
XRA
STC
JMP
B
LBLK
B,0
0FCH
RHEDI
TERR
LOLOOP
A
.
RTOFI
A LITTLE MATH
NO CARRY
IT S THE LAST BLOCK
256 TO READ
DING THE PORT FOR INSECURE ROBERTS
ZERO THE CRC
ROUND ROBIN
READ IN THIS BLOCK
IF ERROR OR ESC
CONTINUE LOOP IF CRC TEST IS OK
SET ERROR FLAGS
0123
*
LAST
BLOCK-~PUT
FINAL COUNT IN B
0124
*
0125 LBLK
0126
0127
0128
*.
0129
*
0130 TOFF
0131
0132
*
0133 RTOFF
0134 RTOFI
0135
0136
MOV
LXI
JMP
MVI
CALL
XRA
OUT
POP
RET
B"
L
H,0
RDBLK
B,l
DELAY
A
STAPT
D
READ
~HE
HEADER
0137
*
0138
*
0139
*
0140
*
0141
*
0142 RHEAD
0143 RHEAl
1:':1144
0145
0146
0147
0148
0149
MVI
CALL
RC
IN
ORA
JNZ
DCR
JNZ
B,10
STAT
TDATA
A
RHEAD
B
RHEAl
GET LOWER PORTION OF COUNT
TELL DE WE ARE FINISHED
SHORT DELAY AFTER WRITE
TURN OFF THE TAPE
RETU~
BYTE COUNT
FIND 10 NULLS
IF ESCAPE
IGNORE ERROR CONDITIONS
ZERO?
LOOP UNTIL 10 IN A ROW
0150
*
0151
*
0152
*
0153 SOHL
0154
WAIT FOR THE. START CHARACTER
0155
0156
0157
*
CALL
RC·
DCR
JNZ
TAPIN
A
SOHL
PAGE
3
ERROR OR ESCAPE
WAIT FOR A 'I

Advertisement

Table of Contents
loading

Table of Contents