Table of Contents
Advertisement
Page 8
0050
1600
***
MEMORY TEST ROUTINE
***
0050
1610
*
0050 CD OE 00
1620 TMEM
CALL
AHEX
READ BLK LEN
0053 CD OE 00
1640
CALL
AHEX
READ ST ADD
0056 01 5A 5A
1650
LXI
B,5A5AH
INI B,C
0059 CD 81 00
1660 CYCL
CALL
RNDM
005C C5
1670
PUSH
B
KEEP ALL REGS
005D E5
1680
PUSH
H
005E D5
1690
PUSH
D
005F CD 81 00
1700 TLOP
CALL
RNDM
0062 70
1710
MOV
M,B
WRITE IN MEM
0063 CD C5 00
1720
CALL
BMP
0066 C2 5F 00
1760
JNZ
TLOP
REPEAT LOOP
0069 D1
1770
POP
D
006A E1
1780
POP
H
RESTORE ORIG
006B C1
1790
POP
B
VALUES OF
006C E5
1800
PUSH
H
006D D5
1810
PUSH
D
006E CD 81 00
1820 RLOP
CALL
RNDM
GEN NEW SEQ
0071 7E
1830
MOV
A,M
READ MEM
0072 B8
1840
CMP
B
COMP MEM
0073 C4 9F 00
1850
CNZ
ERR
CALL ERROR ROUT
0076 CD C5 00
1860
CALL
BMP
0079 C2 6E 00
1930
JNZ
RLOP
007C D1
1940
POP
D
007D E1
1950
POP
H
007E c3 59 00
1960
JMP
CYCL
0081
1970 *** THIS ROUTINE GENERATES RANDOM NOS
***
0081 78
1980 RNDM
MOV
A,B
LOOK AT B
0082 E6 B4
1990
ANI
OB4H
MASK BITS
0084 A7
2000
ANA
A
CLEAR CY
0085 EA 89 00
2010
JPE
PEVE
JUMP IF EVEN
0088 37
2020
STC
0089 79
2030 PEVE
1'10V
A,C
LOOK AT C
008A
17
2040
RAL
ROTATE CY IN
008B 4F
2050
MOV
C,A
RESTORE C
008c 78
2060
MOV
A,B
LOOK AT B
008D
17
2070
RAL
ROTATE CY IN
008E 47
2080
MOV
B,A
RESTORE B
008F C9
2090
RET
RETURN W NEW B,C
0090
2100
*
0090
2110 *** ERROR PRINT OUT ROUTINE
0090
2120
*
0090 CD 38 00
2130 PTAD
CALL
CRLF
PRINT CR,LF
0093 7C
2140
MOV
A,H
PRINT
0094 CD AB 00
2150
CALL
PT2
ASCII
0097 7D
2160
MOV
A,L
CODES
0098 CD AB 00
2170
CALL
PT2
FOR
009B CD 2A 00
2180
CALL
SPCE
ADDRESS
009E C9
2200
RET
009F F5
2210 ERR
PUSH
PSW
SAVE ACC
OOAO CD 90 00
2220
CALL
PTAD
PRINT ADD.
00A3 78
2230
MOV
A,B
DATA
00A4 CD AB 00
2240
CALL
PT2
WRITTEN
00A7 CD 2A 00
2250
CALL
SPCE
OOAA F1
2270
POP
PSW
DATA READ
Advertisement
Table of Contents
