lOC
OBJ
LINE
SOURCE
5866
;
.*.-
••••.
_
•••
*.
******.*************
.**
•••
if
••
5867
THE
LOOP
FROM
PRIlO
TO
THE
INSTRUCTION PRIOR
TO
PA120
5868
IS
THE
LOOP
TO
READ
EACH
CURSOR
POSITION
FROl1
THE
SCREEN
5869
AND
PR
INT
•
5870
,
•••
**.* •• **_.*************.*.***************
'='F7F
8402
5871
PRIlO:
MOV
AH,2
iTO INDICATE
CURSOR
SET
REQUEST
=F81 COlO
5872
INT
10H
iHEW
CURSOR
POSITION ESTABLISHED
:F83
8408
5873
MaY
AH.8
;TO INDICATE
READ
CHARACTER
=F85 COlO
5874
INT
10H ,CtiARACTER
NOW
IN
(All
FF87
OACO
5875
OR
AL .... L
iSEE
IF
VALID
CHAR
FF89 7502
5876
Jt~Z
PRIIS
jJUMP
IF
VALID
CHAR
FFSB
BOZO
5877
MOV
IMAKE
A
BLANK
ffan
5878
PRIIS:
FfSO
52
5879
PUSH
OX
iSAVE
CURSOR
POSITION
fFSE
3302
5880
XOR
DX,DX jINDICATE PRINTER 1
FF90
32E"t
5881
XOR
AH,AH
;TO INDICATE PRINT
CHAR
IN
[All
FF92 C017
5M2
INT 17H
j PRINT
THE
CHARACTER
FF94
SA
5883
POP
OX
JRECALL
CURSOR
POSITION
FF95 F6C425
5884
TEST
AH.
25H
; TEST
FOR
PRINTER
ERROR
FF98
7521
5885
JNZ
ERRtO ;
JUMP
IF
ERROR
DETECTED
FF9A
fEtz
5886
INC
OL
;
ADVANCE
TO
NEXT
COLUNN
FF9C
lACA
5887
CMP
CL,DL
;SEE
IF
AT
END
OF
LINE
FF9E
750F
5888
JNZ
PRIIO
;
IF
NOT
PROCEED
HAD
3202
58139
XOR
DL,Dl
;BACK
TO
COLlR1N
0
FFAe
84£2
5890
MOV
AH,DL j[AHJ=O
FFA4
52
5891
PUSH
OX
;
SAVE
NEW
CURSOR
POSITION
FFAS
E82300
5892
CALL
tRLF
; LINE
FEED
CARRIAGE
RETURN
FFAS
SA
5893
POP
OX
jRECALL
CUI?SOR
POSITION
FFA9
FECb
5894
WC
OH
jAOVAHCE
TO
NEXT
LINE
FFA8 3AEE
5895
eMP
CH.DH
;FINISHED?
HAD
7500
5896
JNZ
PRIIO
;
IF
NOT
COHTlNUE
FFAF
SA
5897
PR120:
POP
OX
jRECALl
CURSOR
POSITION
FFBD
8402
5898
MaY
AH,Z ;TO INDICATE
CURSOR
SET
REQUEST
FFB2
COlO
5899
INT
lOH
,CURSOR
POSITION
RESTORED
FFB4
C606000000
5900
tlOV
STATUS_BYTE, a jINDICATE FINISHED
Ff59
EBOA
5901
JMP
SHORT
EXIT ; EXIT
THE
ROUTIt~E
FFBB
SA
5902
ERRIO:
POP
ox
;GET
CURSOR
POSITION
FFec
8402
5903
MOV
AH.2
;TO
REQUEST
CURSOR
SET
FFBE
COlO
5904
INT
10H
;CURSOR
POSITIOtl
RESTORED
FFCO
C6060000FF
5905
ERR20:
MOV
STATUS_BYTE,OfFH IINDICATE
ERROR
5906
fFes
SA
5907
EXIT:
pop
ox
jRESTORE
ALL
THE
REGISTERS
USED
FFCb
59
5908
POP
ex
FFC7
sa
5909
POP
ex
Ffce
58
5910
pop
AX
FFC9
IF
5911
POP
as
FFCA
CF
5912
IRET
5913
5914
5915
1------
C
...
RRI
...
GE
RETURN. LINE
FEED
SUBROUTINE
5916
FFCB
5917
C~lF
PRot
NEAR
FFCB
3302
5918
XOR
OX,OX
;PRINTER a
FFCD
32E4
5919
XOR
AH.AH
iioULL
NOW
SEND
INITIAL
IF,CR
TO
PRINTER
FFCF
BOOA
5920
MOY
AL.12Q
;
IF
FFOI
C017
5921
INT
17H
;
SEND
THE
LINE
FEED
H03
32E4
sn2
XOR
AH,AH
;NOW
FOR
THE
CR
FFOS
BODO
5923
MOV
Al.t5Q
iCR
FF07
CD17
5924
INT
17H
jSENO
THE
CARRIAGE
RETURN
fF09
C3
5925
RET
5926
CRLF
ENOP
5927
CODE
ENDS
5928
5929
;
-----------
-----------------------
5930
i
POIolER
ON
RESET
VECTOR
5931
1----------------------------------
FFH
5932
VECTOR
SEGMWT
AT
OFFf"FH
5933
5934
;
------
POWER
Ot-l
RESET
5935
0000
EA580000FO
5936
JMP
RESET
5937
0005
30342F32342F38
5938
DB
•
04/24/81'
RELEASE
MARKER
31
5939
VECTOR
ENOS
5940
END
A-80
•
To Next Page
Loading...
