Table of Contents
Advertisement
**
ALS-8 PROGRAM DEVELOPMENT SYSTEM
**
NANUAL DATA
CUTS
~EAD
AND WRITE ROUTINES
PROCESSOR TECHNOLOGY CORP
6200 HOLLIS STREET
EMERYVILLE
CALIF.
94608
00AA E5
00AB CD ED 00
00AE 1:;1
00AF 11 07 00
00B2 19
00B3 5E
00B4 23
00B5 56
o 0BG. 23
00B7 7E
00B8 23
00B9 66
110BA 6F
I<Il!!BB E5
00BC .7A
00BD B3
00BE CA 55 00
00C1 ,01 00 FF
00C4 EB
00C5 09
00C6 D2 04 00
00C9 06 00
00CB 0E 00
00CD EB
00CE CD 02 01
1<10D1 C3 BC 00
00D4 45
0005 21 00 00
00D8 C3 CB 00
00D8 F5
110DC DB FA
00DE E6 80
00E0 CA DC 00
00£:3 Fl
00E4 D3 FB
00E6 91
0211
*
0212
*
0213
*
0214
*
ON ENTRY:
0215
*
0216 WTAPE
0217
0218
0219
0220
0221
*
GET
0222-
0223
0224
0225
0226
0227
fl228
0229
0230 WRL01
0231
*
0232
*
PUSH
CALL
POP
LXI
DAD
ADDRESS
MOV
INX
MOV
INX
MOV
INX
MOV
MOV
PUSH
A - HAS UNIT AND SPEED
HL - HAVE POINTER TO HEADER
H
SAVE HEADER ADDRESS
WHEAD
WRITE THE HEADER
H
D BLKOF
OFFSET TO BLOCK SIZE IN HEADER
D
HL POINT TO BLOCK SIZE
AND SIZE FROM HEADER
E,M
H
D,M
H
A,M
H
H,M
L,A
H
DE HAVE SIZE
POINT TO STARTING ADDRESS
HL HAVE STARTING ADDRESS
FOR STACK CLEAN UP ON TURN OFF
0233
*
THIS ROUTINE WRITES ONE PHYSICAL BLOCK ON THE
0234
*
TAPE "DE" BYTES LONG FROM ADDRESS "HL .
0235
*
0236 WRLOP
MOV
A,D
0237
ORA
E
TEST IF COUN'T IS ZERO
0238
JZ
TOFF
0239
LXI
B
I
-256
SUBTRACT 256 FROM IT
0240
XCHG
0241
DAD
B
0242
JNC
WLBLK
IF 256 WEREN T LEFT
0-243
MVI
B,0
0244
*
0245 WDBLK
MVI
C,0
CRC STARTS WITH ZERO
0246
XCHG
RESTORE COUNT TO DE •. ADDRESS TO HL
0247 WDBL1
CALL
WLOOP
WRITE OUT THE BLOCK
0248
JMP
WRLOP
AND GO BACK TO MAJOR LOOP
0249
*
0250 WLBLK
MOV
B,L
REMAINDER OF COUNT
0251
LXI
H,0
TELL DE WE ARE DONE
0252
JMP
WDBLK
0253
*
0254 WRBYT
0255 WRWAT
0256
0257
0258
,
0259
PUSH
IN
ANI
JZ
POP
OUT
PSW
0FAH
80H
WRWAT
PSW
0FBH
SAVE CHARACTER
GET UART STATUS
WAIT UNTIL IT IS READY
OUTPUT THE CHARACTER
THIS ROUTINE UPDATES THE eRC
0260
*
0261
*
0262
*
0263 UDCRC
SUB
C
FORM PARTIAL
PAGE
5
Advertisement
Table of Contents
