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
01iHHl D5
0001 06 03
0003 CD ID 01
0006 DB FB
0008 E5
0009 CD 5F 00
000C El
000D DA 49 00
0010 C2 08 00
0013 E5
0014
11
2D 01
0017 CD 0F 01
001A El
001B C2 08 00
001E Dl
001F 7A
0020 B3
0021 2A 34 01
0024 EB
IIHl25 C2 2B 00
0028 2A 36 01
002B D5
002C 7A
002D B3
002E CA 5A 00
0031 EB
0032 01 00 FF
0052
*
0053
*
0054
*
0055
*
0056
*
0057
*
0058
*
0059
*
0060
*
0061
*
0062
*
ON ENTRY:
ON EXIT:
A
HL
DE
- HAS UNIT AND SPEED
- POINT TO HEADER BLOCK
- HAVE OPTIONAL PUT ADDRESS
CARRY IS SET IF ERROR OCCURRED
DE HAVE SIZE OF BLOCK READ
TAPE UNITS ARE OFF
0063 RTAPE
0064
PUSH
MVI
CALL
IN
D
B,3
TON
TDATA
SAVE OPTIONAL ADDRESS
SHORT DELAY
0065
0066
0067
*
LOOP
0068 PTAPI
0069
0070
0071
0072
HERE
PUSH
CALL
POP
JC
JNZ
UNTIL VALID
H
RHEAD
H
0073
*
0074
0075
FOUND A VALID
PUSH
TERR
PTAPI
HEADER
H
D,THEAD
0076
0077
0078
0079
*
0080
0081
0082
0083
LXI
CALL
POP
JNZ
FOUND IT ••
POP
MOV
ORA
LHLD
XCHG
DHCMP
H
PTAPI
NOW ADJUST
D
A,D
E
BLOCK
CLEAR THE UART FLAGS
HEADER IS FOUND
HEADER ADDRESS
GO READ HEADER
IF AN ERROR OR ESC WAS RECEIVED
IF VALID HEADER NOT FOUND
NOW DO CciMPARE
GET BACK AND RESAVE ADDRESS
COMPARE DE-HL HEADERS
DIDN T COMPARE ..• GO BACK TO LOOP
REGISTERS FOR READ
OPTIONAL
PUT" ADDRESS
SEE IF DE IS ZERO
GE'I' BLOCK SIZE
•• TO DE
0084
0085
*
0086
0087
DE HAS HBLOCK •.•• HL HAS USER OPTION
0088
*
0089
*
009.0
*
0091
*
0092
*
0093
*
0094
*
0095
*
0096
*
0097 RTAP
0098
*
0099 LOLOOP
0100
0101
0102
0103
*
01.04
JNZ
RTAP
LHLD
LOADR
IF DE WAS ZERO GET TAPE
GET TAPE LOAD ADDRESS
THIS ROUTINE READS "DE'" BYTES FROM THE TAPE
TO ADDRESS HL.
THE BYTES MUST BE FROM ONE
CONTIGUOUS PHYSICAL BLOCK ON THE TAPE.
HL HAS ApUTq ADDRESS
DE HAS SIZE OF TAPE BLOCK
LOAD ADDRESS
PUSH
D
SAVE SIZE FOR RETURN TO CALLING PROGRAM
MOV
ORA
JZ
XCHG
LXI
A,D
E
RTOFF
B,-256
PAGE
2
GET COUNT
COUNT IS ZERO-TURN OFF TAPE AND RETURN
GET COUNT TO HL
THIS MANY PRIOR TO CRC TEST
Advertisement
Table of Contents
