Advertisement
R E T U R N
IN
00E9 DB 0 3
:
i n k
CMA
OQEB 2F
AN I
0 DEC £602
OOEE CO
RNZ
OOEF DB02
IN
AN I
0 OF 1 E67F
0 OF 3 FE18
CPI
RET
OOF 5 C9
; THIS ROUTINE READS A 3YTE OF DATA FROM THE USART
IN
IN8:
OOFS 0803
AN I
00F8 £602
OOFA CAF500
JZ
OOFD D3 0 2
AN I
OOFF E67F
MOV
0101 97
RET
0102 C9
; THIS ROUTINE OUTPUTS ; BYTE OF DATA TO THE USART
:
0103 D803
o u t s
AN I
0105 E60 1
0107 CAO 3 01
010A 78
:
MOV
o k
0108 D302
0100 C 9
THIS ROUTINE WILL OUTPUT A CARRIAGE RETURN AND
; LINE FEED FOLLOWED BY TWO DELETE CHARACTERS WHICH
; PROVIDE TIME FOR PRINT HEAD TO RETURN.
010E 060D
CRLF :
0110 CD0301
0113 06 OA
LF :
0115 CD0301
0113 067F
011A CD0301
01 ID CD 0 3 01
0120 C9
; THIS ROUTINE JUMPS TO A LOCATION IN MEMORY GIVEN 8Y
; THE INPUT COMMAND AND BEGINS EXECUTION OF PROGRAM
; THERE.
0121 CD0003
:
e x e c
0129 CD0E01
0127 2A8A10
012A E9
/
/
}
\
THIS ROUTINE CHECKS THE INPUT COMMAND AGAINST ALL
: LEGAL COMMANDS STORED IN A TABLE.
; IS FOUND, A JUMP IS MADE TO THAT ROUTINE.
; AN ERROR MESSAGE IS OUTPUT TO THE USER.
0129 11BE02
:
c o m m
012E 06QB
0130 5E09
0132 329510
0135 CD3C01
G 13 8 C25A09
W I T H
Z E R O
S E T
I F F
C T R L
;GET
TTS
t t y
;INVERT STATUS
TTYDA
; IS DATA AVAILABLE?
;RETURN IF NOT
TT I
;GET THE CHAR
0 7FH
;STRIP OFF PARITY
* X '-90H ;IS IT A CTRL X?
TTS
;READ USART STATUS
TTYDA
IN8
TT I
; READ DATA
IN
;STR IP OFF PARITY
127 .
8,A
IN
TTS
;READ STATUS
TTYTR
JZ
OUT8
A, B
;TRANSMIT OATA
OUT
TTO
RET
MVI
3,13
;fR
OUT3
CALL
MVI
B, 10
;L F
CALL
OUT8
MVI
B, 127
OUT8
CALL
OUT8
CALL
RET
;CHECK FOR PARAMETER
VCHK
CALL
CRLF
CALL
S8UF
LHLD
;FETCH ADDRESS
PCHL
;JUMP TO PROGRAM
LX I
D,CTAB
;COMMAND TABLE ADDRESS
MVI
B ,NCCM
;NUM8ER OF COMMANOS
MVI
A , 9
;LENGTH OF COMMAND
STA
NCHR
; SAVE
CALL
CCMS
;SEARCH TABLE
WHAT
:dUMP
JNZ
X
S E E N .
STATUS
-
IF A LEGAL COMMAN
OTHERWISE
IF
l l l F G A l
COMMAND
1 2
-
21
Advertisement
