Table of Contents
Advertisement
Page 7
ALPHA BIAS
4 DIGITS?
KEEP READING
CONSOLE STAT PORT
CONSOLE DATA PORT
STACK POINTER
PRINT SPACE
SAVE REG A
READ PRTR STATUS
IF BIT 7 NOT 0,
WAIT TILL TIS
THEN RECOVER A
AND PRINT IT
FROM PTCN
PRINT CR
ASCII BIAS
DIGIT 0-10
PRINT
"*,,
READ KB STATUS
IF BIT 1 NOT a
REPEAT UNTIL IT IS
READ FROM KB
STRIP OFF MSB
ECHO ONTO PRINTER
GET 16 BIT ZERO
COUNT OF 4 DIGITS
READ A BYTE
SHIFT 4 LEFT
A,20H
PSW
CONC
80H
PTLOP
PSW
COND
RETURN
A,ODH
PTCN
A,OAH
PTCN
a
1
0100H
SP,SPTR
CRLF
A
'*'
,
PTCN
TMEM
CONC
1
RDCN
COND
7FH
PTCN
H,O
C,4
RDCN
H
H
H
H
48
10
ALF
7
L
L,A
C
AHE1
EQU
EQU
EQU
LXI
CALL
MVI
CALL
JMP
IN
ANI
JNZ
IN
ANI
JMP
LXI
MVI
CALL
DAD
DAD
DAD
DAD
SUI
CPI
JC
SUI
ADD
MOV
DCR
JNZ
XCHG
MVI
PUSH
IN
ANI
JNZ
POP
OUT
RET
MVI
CALL
MVI
JMP
SPCE
PTCN
PTLOP
0010 CONC
0020 COND
0050 SPTR
0051
*
0052 *** VECTOR GRAPHIC MEMORY TEST PROGRAM
0053 *FOR SIO REV. 1 AND 3P+S W. INV. STATUS
0060 * ASSEMBLED FOR 0000 TO OOFF HEX
0070 *
0100 START
0105
a 110
0120
0130
0410 *
0420 *** CONVERT UP TO 4 HEX DIGITS TO BIN
0430
*
0440 AHEX
0450
0460 AHE1
0470
0480
0490
0500
0510
0520
0530
0540
0550 ALF
0560
0570
0580
0585
0590
0600
0610
0620
0630
0640
0650
0660
0670 CRLF
0680
0690
0700
0710 *
0720 *** READ FROM CONSOLE TO REG A ***
0730 *
0740 RDCN
0750
0760
0770
0780
0790
1590 *
0000
0000
0000
0000
0000
0000
0000
0000
0000 31 00 01
0003 CD 38 00
0006 3E 2A
0008 CD 2C 00
OOOB C3 50 00
OOOE
OOOE
OOOE
OOOE 21 00 00
00
11
OE 04
0013 CD 42 00
0016 29
0017 29
0018 29
0019 29
001A D6 30
001C FE OA
001E DA 23 00
0021 D6 07
0023 85
0024 6F
0025 OD
0026 C2 13 00
0029 EB
002A 3E 20
002C F5
002D DB 00
002F E6 80
0031 C2 2D 00
0034 F1
0035 D3 01
0037 C9
0038 3E aD
003A CD 2C 00
003D 3E OA
003F C3 2C 00
0042
0042
0042
0042 DB 00
0044 E6 01
0046 C2 42 00
0049 DB 01
004B E6 7F
004D C3 2C 00
0050
Advertisement
Table of Contents
