Table of Contents
Advertisement
PROCESSOR TECHNOLOGY CORPORATION
APPENDIX VI
8KRA STATIC READ/WRITE MEMORY MODULE
003A 78
1180
MOV
A,B
oozs vz 01
1 185
OUT
VIDO
XMIT DATA
oozv 09
1190
RET
003E
1195 *
003E 06 OD
1200 CRLF
MVI
8,13
WRITE CR LF & 2 RUROUTS
0040 CD 33 00
1205
CALL
0UT8
0 04 3 06 OA
1210
MVI
B, 10
0045 CD 33 00
1215
CALL
0UT8
0048 06 7F
1220
MVI
B, 127
004A CD 33 00
1225
CALL
0UT8
0040 CD 33 00
1230
CALL
0UT8
0050 C9
1235
RET
0051
1240 *
0051
2A 82 01
1245 ACHK
LHLD
BBUF
FETCH ADDRESS
0054 ZA 85 01
1250
LDA
BBUF+3 STOP ADDRESS
0057 BC
1255
CM?
H
COMPARE HIGH ADDRESS
0058 02 63 00
1260
JNZ
ACH 1
0058 ZA 84 01
1265
LDA
BPUF+2 STOP ADDRESS LOW
005E BD
1270
CM?
L
005F 02 63 00
1275
JNZ
ACH1
0062 37
1280
STC
SET CARRY IF EOUAL
0063
1285 *
0063 23
1290 ACH 1
INX
H
INCREMENT START ADDRESS
0064 22 82 01
1295
SHLD
BBUF
STORF INCR START ADDRESS
0067 C9
1300
RET
0068
1 305 *
0068 21
01
00
1310 MRCK
LXI
H , 1
INITIALIZE PASS COUNT
006B 22 96 01
1315
SHLD
DRUF+4 STORE IT
006E 2A 82 01
1320 MRC 1
LHLD
BBUF
GET START LOCATION
0071
E5
1325
PUSH
H
SAVE START LOCATION
0072 AF
1330
XRA
A
INITIALIZE MASTER PATTERN
0073 37
1335
STC
SET CARRY
0074 F5
1340
PUSH
PSW
STORE MASTER PATTERN
0075
1 345 *
0075 F5
1350 WRL 1
PUSH
PSW
SAVE WORKING PATTERN
0076 77
1355
MOV
M, A
PATTERN 1 TO MEMORY
0077 CD 51 00
1360
CALL
ACHK
CHECK IF LAST,
INCREMENT LOOA
007A DA 82 00
1365
JC
RDL1
DONE WRITING PATTERN
0070 Fl
1370
POP
PSW
GET WORKING PATTERN
007E
1.7
1375
RAL
SHIFT WORKING PATTERN
007F 03 75 00
1380
JMP
WRL 1
DO MORE WRITING
0082
1 385 *
0082 Fl
1390 RDL1
POP
PSW
UNLOAD STACK
0083 Fl
1395
POP
PSW
GET MASTER PATTERN
0084 El
5
1400
POP
H
RESTORE START LOCATION
0085 22 82 01
1405
SHLD
BBUF
STORE START
0088 E5
1410
PUSH
H
SAVE START
0089 F5
1415
PUSH
PSW
SAVE
master
PATTERN
008A
1420 *
008A F5
1425 RDL2
PUSH
PSW
SAVE WORKING PATTERN
0088 BE
1430
CMP
M
CHECK IT
008C 04 FA 00
1435
CNZ
MTER
READ ERROR
008F CD ER 00
1440
CALL
FSCP
CHECK FOR ESCAPE
0092 CD 51
00
1445
CALL
ACHK
O/ENCE LOCATION.
CHECK I? LAS
0095 DA 9D 00
1450
JC
NX PI
NEXT PATTERN 1
0098 F 1
1455
POP
PSW
GET WORKING PATTERN
AVI-6
Advertisement
Table of Contents
