IBM 5150 PC Technical Reference (6025005, August, 1981) (PDF)

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
A-80 •
5939 VECTOR ENOS
5940 END