Advertisement
;
P R E D E F IN E R EGIS TE R VALUES
0 8 6 0
41
RTAB :
0 8 6 1
07
42
0 8 6 2
00
0 8 6 3
0 8 6 4
43
01
0 8 6 5
0 B 66
44
0 8 6 7
02
0 8 6 3
45
0 8 6 9
03
0 8 6 A
48
0 8 6 8
0 4
08 6C
4C
0 8 6 0
05
0 3 6 6
40
0B6F
06
0 8 7 0
50
0 3 7 1
06
OB 7 2 53
0 8 7 3
06
03 74
00
;
T H IS
ROU TIN E
OPCODES AND LABELS
;
WHEN A CHARACTER OTHER
0 6 0 0
0 8 7 5
ALPS :
0 8 7 7
12
A L P 1 :
04
0 8 7 3
78
OB 79
0B7A
FE08
0 3 7 C
DO
OB 7 0
13
0B7E
23
0B 7F
2 2 9 6 1 0
0 8 8 2
7E
FE 30
0 8 8 3
0B8 5 08
FE3A
0 8 8 6
0B 88
DA770B
OB 8B FE 41
0B8O 08
0B8E FE 58
OB 9 0 DA 7 708
0B 9 3
C9
;
T H IS
ROU TIN E
;
TO F E T C H THE VALUE OF THE OPERAND F I E L D .
THE VALUE OF THE OPERAND IS C O NTA INED
;
0 B 9 4 CDOD09
A S 8 L :
0B9 7 2 1 0 0 0 0
:
a s c n
0B9A
2 2 9 A 1 0
0B9O 2 4
0B 9E
2 2 9 B 1 0
0BA1
NXT1 ;
2 A 9 6 1 0
OB A4
2B
OB A5 C D 66 01
0BA8
3 2 9 9 1 0
08AB
23
2 :
n x t
OBAC 7E
OBAO FS 21
OBAF DA530C
0BB2
FE2C
I N
08
' A '
08
7
08
' 8 '
DB
0
OS
' C
1
0 8
0 8
' O '
08
2
OB
' E '
08
3
i H i
08
08
4
08
' L '
0 8
5
DB
' M r
08
6
•P>
08
08
6
OB
' S '
DB
6
08
0
; END OF TABLE
SCANS THE
IN PU T L I N E AND PLACE5
IN
THE B U FF ER .
THAN 0 - 9
M V I
; SET COUNT
8 , 0
STAX
D
; STORE CHARACTER I N
; INCREMENT COUNT
I NR
B
;F ET C H COUNT
MOV
A , B
C P I
11
; MAXIMUM BUFFER S I Z E
RNC
; RETURN
I NX
0
; INCREMENT BUFFER
I NX
H
; INCREMENT
PNTR
SHLD
; SAVE L I N E
MOV
A , M
; FETCH CHARACTER
• O '
C P I
; CHECK FOR LEGAL CHARACTERS
RC
C P I
' 9 ' + 1
UC
ALP1
C P I
' A '
RC
C P I
• Z ' + l
JC
ALP1
RET
I S
USED TO SCAN THROUGH THE
CALL
; GET F I R S T ARGUMENT
S8LK
LX I
H , 0
> GET A ZERO
i
SHLO
OPRD
I N I T I A L I Z E
INR
H
SHLO
OPR I - 1
; I N I T I A L I Z E
PNTR
LHLO
; FETCH SCAN POINTER
OCX
H
CALL
ZSUF
; CLEAR BUFFER
STA
S IG N
; ZERO S IG N
I NX
H
; INCREMENT POINTER
MOV
; FETCH NEXT CHARACTER
A ,M
C P I
'
' +
1
UC
SEND
; JUMP
r _ i
C P I
; F I ELD SEPARATOR
T H I S
TABLE
IN D IC A T O R
THE
THE SCAN TERMINA
OR A - Z
I S
FOUNO.
BUFFER
I F
BUFFER F I L L E D
IN P U T P OIN TE R
POINTER
IN P U T L I N E
ON RETURN
IN R E G 'S H , L .
OPERAND
OPERAND
IN D IC A TO R
IN D IC A TOR
I F
CR OR BLANK
Advertisement
