Table of Contents
Advertisement
**
ALS-8 PROGRAM DEVELOPMENT SYSTEM
**
PROCESSOR TECHNOLOGY CORP
MANUAL DATA
6200 HOLLIS STREET
CUTS READ AND WRITE ROUTINES
EMERYVILLE
CALIF
94608
00E7 4F
3264
MOV
C,A
SAVE IT
00E8 A9
3265
XRA
C
NOW BEND IT OUT
03E9 2F
3266
CMA
GET A FF
00EA 91
0267
SUB
C
CRC+1-1 IS NOT THE SAME
03EB 4F
0268
MOV
C,A
AND RESAVE IT
00EC C9
0269
RET
3270 *
0271 *
0272 *
THIS ROUTINE WRITES THE HEADER POINTED TO BY
0273 *
HL TO THE TAPE.
0274 *
00ED CD 1B 01
0275 WHEAD
CALL
WTON
TURN ON THE TAPE AND DELAY
00F0 16 32
0276
MVI
D,50
WRITE 50 ZER0S
00F2 AF
0277 NULOP
XRA
A
00F3 CD DB 30
0278
CALL
WRBYT
00F6 15
0279
DCR
D
1iJ0F7 C2 F2 30
0280
JNZ
NULOP
0281 *
03FA 3E 01
0282
MVI
A.1
50 ZER0S FOLLOWED BY A ONE
00FC CD DB 30
0283
CALL
WRBYT
00FF 01 00 10
0284
LXI
B,HLEN*256
HEADER LENGTH TO B, ZERO TO C
0285 *
0102 7E
0286 WLOOP
MOV
A,M
GET CHARACTER
0103 CD DB 00
0287
CALL
WRBYT
WRITE IT TO THE TAPE
0106 05
0288
DCR
B
0107 23
0289
;I:NX
H
0108 C2 02 01
f/j290
JNZ
WLOOP
010B 79
0291
MOV
A,C
GET CRC
0HlC C3 DB 00
0292
JMP
WRBYT
PUT IT ON THE TAPE AND RETURN
0293 *
0294 *
0295 *
THIS ROUTINE COMPARES THE HEADER IN THEAD TO
3296 *
THE USER SUPPLIED HEADER ADDRESS IN HL.
0297 *
ON RETURN IF ZERO IS SET IF THE TWO NAMES COMPARED
0298 *
fill
0 F 06 35
0299 DHCMP
MVI
B,5
COMPARE FIVE CHARACTERS
01ll lA
0300 DHLOP
LDAX
D
GET ONE PART
0112 BE
0301
CMP
M
COMPARE IT WITH THE OTHER
0113 C0
0302
RNZ
RETURN IF NOT THE SAME
0114 05
0303
DCR
B
0115 C8
0304
RZ
IF ALL FIVE COMPARED
0116 23
0305
INX
H
COMPARE THE NEXT
0117 13
3306
INX
D
0118 C3 I I I'll
0337
JMP
DHLOl:?
3308 *
3339 *
3llB 06 04
0310 WTON
MVI
B,4
SET LOOP DELAY
3llD D3 FA
03ll
TON
OUT
STAPT
TURN ON THE SELECTED DRIVE
3312 *
3llF I I 00 00
0313 DELAY
LXI
D,3
0122 1B
0314 DLOP1
DCX
D
0123 7A
0315
MOV
A,D
3124 B3
3316
ORA
E
PAGE
6
Advertisement
Table of Contents
