IBM XT 5160 Technical Reference page 322

; - - - - - - CARR I AGE RETURN, LINE FEED SUBROUT I NE
-----------------------------------------------------------------
PRIIO:
THE LOOP FROM PR I 10 TO THE I NSTRUCT I ON PR I OR TO PR 120
I S THE LOOP TO READ EACH CURSOR POS I T I ON FROM THE
SCREEN AND PR I NT •
5-175
PR INTER 0
WILL NOW SEND I NIT I AL LF, CR
TO PRINTER
LF
SEND THE LINE FEED
NOW FOR THE CR
CR
SEND THE CARR I AGE RETURN
TO INDICATE CURSOR SET REQUEST
NEW CURSOR POSITION ESTABLISHED
TO I NO I CATE READ CHARACTER
CHARACTER NOW IN [ALJ
SEE IF VALID CHAR
...JUMP I F VALI 0 CHAR
MAKE A BLANK
SAVE CURSOR POSITION
INDICATE PRINTER 1
TO INDICATE PRINT CHAR IN [ALJ
PR I NT THE CHARACTER
RECALL CURSOR POS I T I ON
TEST FOR PR I NTER ERROR
...JUMP I F ERROR DETECTED
ADV ANCE TO NEXT COLUMN
SEE IF AT END OF LINE
I F NOT PROCEED
BACK TO COLUMN 0
[AHJ=O
SAVE NEW CURSOR POSITION
LINE FEED CARR I AGE RETURN
RECALL CURSOR POS I T I ON
ADVANCE TO NEXT LINE
FINI SHED?
I F NOT CONT I NUE
RECALL CURSOR POS I T I ON
TO INDICATE CURSOR SET REQUEST
CURSOR POS I T I ON RESTORED
INDICATE F IN I SHED
EX I T THE ROUT INE
GET CURSOR POS I T I ON
TO REQUEST CURSOR SET
CURSOR POS I T I ON RESTORED
I NO I CATE ERROR
RESTORE ALL THE REG I STERS USED
WILL USE THIS LATER FOR CURSOR LIMITS
WILL HOLD CURRENT CURSOR POS I T I ON
HEX 50
SEE IF PR I NT ALREADY I N PROGRESS
...JUMP IF PRINT ALREADY IN PROGRESS
INDICATE PRINT NOW IN PROGRESS
WILL REQUEST THE CURRENT SCREEN MODE
[ALJ =MODE
[ AH J =NUMBER COLUMNS / LINE
[BHJ=VISUAL PAGE
WILL MAKE USE OF [CX J REG I STER TO
CONTROL ROW
&
COLUMNS
CARR I AGE RETURN LINE FEED ROUT I NE
SAVE SCREEN BOUNDS
WILL NOW READ THE CURSOR.
AND PRESERVE THE POS I T I ON
RECALL SCREEN BOUNDS
RECALL [BHJ =V I SUAL PAGE
WILL SET CURSOR POSITION TO [O,OJ
MUST RUN WITH I NTERRUPTS ENABLED
MUST USE 50:0 FOR DATA AREA STORAGE
EITHER PR I NT SCREEN HAS NOT BEEN CALLED
OR UPON RETURN FROM A CALL TH I S I NO I CATES
A SUCCESSFUL OPERAT I ON.
PR I NT SCREEN I SIN PROGRESS
ERROR ENCOUNTERED OUR I NG PR I NT I NG
AL,12Q
17H
AH,AH
AL,15Q
17H
=0
=1
=255
OX
AH,2
10H
STATUS BYTE,O
SHORT EX I T
OX
AH,2
10H
ENDP
NEAR
DX,DX
AH,AH
STATUS_BYTE,OFFH
OX
CX
BX
AX
OS
AH,2
10H
AH,8
10H
AL,AL
PRI15
AL,
OX
DX,DX
AH,AH
17H
OX
AH, 25H
ERR10
DL
CL,DL
PRll0
DL,DL
AH,DL
OX
CRLF
OX
DH
CH,DH
PRll0
CL,AH
CH,25
CRLF
CX
AH,3
10H
CX
OX
DX,DX
CS: CODE. OS: XXDATA
OFF54H
PROC FAR
OS
AX
BX
CX
OX
AX,XXDATA
DS,AX
STATUS BYTE,1
EXIT -
STATUS BYTE,1
AH, 15 -
10H
PC-XT System BIOS (11/08/82)
MOV
INT
XOR
MOV
INT
RET
ENDP
PROC
XOR
XOR
MOV
POP
MOV
INT
MOV
...JMP
POP
MOV
INT
MOV
MOV
CALL
PUSH
MOV
INT
POP
PUSH
XOR
MOV
INT
MOV
INT
OR
...JNZ
MOV
PUSH
XOR
XOR
INT
POP
TEST
...JNZ
INC
CMP
...JNZ
XOR
MOV
PUSH
CALL
POP
INC
CMP
...JNZ
CRLF
CRLF
POP
POP
POP
POP
POP
IRET
PR I NT_SCREEN
50: 0
AT TH I S PO I NT WE KNOW THE COLUMNS / LI NE ARE IN
[AXJ AND THE PAGE IF APPLICABLE IS IN[BHJ. THE STACK
HAS DS,AX,BX,CX,DX PUSHED. [AJ HAS VIDEO MODE
PR120:
ERR10:
ERR20 :
EXIT:
SOURCE (BIOS FOR THE IBM PERSONAL COMPUTER XT) 11/08/82
INT 5 --------------------------------------------------------------
TH I S LOG I C WILL BE I NVOKED BY INTERRUPT 05H TO PR I NT THE
SCREEN. THE CUR SOR POS I T I ON AT THE T I ME TH I S ROUT I NE I S INVOKED
WILL BE SAVED AND RESTORED UPON COMPLET I ON. THE ROUT I NE IS
I NTENDED TO RUN WITH I NTERRUPTS ENABLED. I F A SUBSEQUENT
• PR I NT SCREEN' KEY I S DEPRESSED OUR I NG THE T I ME TH I S ROUT I NE
I S PR I NT I NG I T WILL BE IGNORED.
ADDRESS 50:0 CONTAINS THE STATUS OF THE PRINT SCREEN:
PR115:
ASSUME
ORG
PR I NT SCREEN
- STI
PUSH
PUSH
PUSH
PUSH
PUSH
MOV
MOV
CMP
...JZ
MOV
MOV
INT
LINE
5821
5822
5823
5824
5825
5826
5827
5828
5829
5830
5831
5832
5833
5834
5835
5836
5837
5838
5839
5840
5841
5842
5843
5844
5845
5846
5847
5848
5849
5850
5851
5852
5853
5854
5855
5856
5857
5858
5859
5860
5861
5862
5863
5864
5865
5866
5867
5868
5869
5870
5871
5872
5873
5874
5875
5876
5877
5878
5879
5880
5881
5882
5883
5884
5885
5886
5887
5888
5889
5890
5891
5892
5893
5894
5895
5896
5897
5898
5899
5900
5901
5902
5903
5904
5905
5906
5907
5908
5909
5910
5911
5912
5913
5914
5915
5916
5917
5918
5919
5920
5921
5922
5923
5924
5925
5926
5927
5928
5929
5930
5931
5932
5933
LOC OB...JECT
FFCB
FFCB 3302
FFCD 32E4
FFCF BOOA
FFDI CD17
FFD3 32E4
FFD5 BOOD
FFD7 CD17
FFD9 C3
FF6F 8ACC
FF71 B519
FF73 E85500
FF76 51
FF77 B403
FF79 COlO
FF7B 59
FF7C 52
FF7D 3302
FF7F
FF7F B402
FF81 COlO
FF83 B408
FF85 CD I 0
FF87 OACO
FF89 7502
FF8B B020
FF8D
FF8D 52
FF8E 3302
FF90 32E4
FF92 CDI7
FF94 5A
FF95 F6C425
FF98 7521
FF9A FEC2
FF9C 3ACA
FF9E 75DF
FFAO 3202
FFA2 8AE2
FFA4 52
FFA5 E82300
FFA8 5A
FFA9 FEC6
FFAB 3AEE
FFAD 7500
FFAF
FFAF 5A
FFBO B402
FFB2 COlO
FFB4 C606000000
FFB9 EBOA
FFBB
FFBB 5A
FFBC B402
FFBE COlO
FFCO
FFCO C6060000FF
FFC5
FFC5 5A
FFC6 59
FFC7 5B
FFC8 58
FFC9 IF
FFCA CF
FF54
FF54
FF54 FB
FF55 1E
FF56 50
FF57 53
FF58 51
FF59 52
FF5A B85000
FF5D 8ED8
FF5F 803EOOOOO 1
FF64 745F
FF66 C60600000 1
FF6B B40F
FF6D COlO