IBM 5150 - Page 272

LOC OBJ LINE SOURCE
FF33 0000
57'H
ow ooaOOH INTERRUPT ISH
Ff35 OOf6 5792
ow
OF600H ROM BASIC ENTRY POINT
S7'B
FF37 F2E6 5794
ow OFFSET BOOT_STRAP
; INTERRUPT 19H
FF39 COFO 5795
ow CODE
5796
FFlB 6EFE 5797
0"
TIME_OF _DAY
j INTERRUPT lAH -- TIME OF DAY
FF3D OOFe 5798
0"
CODE
5799
FFlF 53FF 5800
0"
DUMMY_RETURN INTERRUPT IBH .- KEYBOARD BREAK ADDR
FF41 OOFO 5601
CODE
r"\
0"
5802
FF4l 53FF 5803
0"
DUMMY.RETURN INTERRUPT 1 C -- TIMER BREAK ADDR
FF45 oaf 0
5604
OW CODE
5805
0"
FF47 A4FO
5806
VIOEO_PARMS INTERRUPT 10 -- VIDEO PARAMETERS
FF49 OaFQ
5807
COOE
0"
5608
FF48 C7EF
5809
OFFSET DISK.BASE I INTERRUPT IE -- DISK PARMS
0"
FF4D OOFO
5810
OW CDDE
5811
FF4F 00000000
5812
DO INTERRUPT IF -- POINTER TO VIDEO EXT
5813
FFS3 5614
DUMNY.RETImN:
FFSl CF 5815
IRET ; DUMHY RETIJRN FOR BREAK FROM KEYBOARD
5816
J-- INT 5 ----------------------.------------
5817
THIS LOGIC WILL BE INVOKED BY INTERRUPT 05H TO PRINT
5818
THE SCREEN. THE CURSOR POSITION AT THE TIME THIS ROUTINE
5819 IS INVOKED WIll BE SAVED AND RESTORED UPON COMPLETION. THE
5820
ROUTINE IS INTENDED TO RUN WITH INTERRUPTS ENABLED.
5821
IF A SUBSEQUENT • PRINT SCREEN KEY IS DEPRESSED DURING THE
5822
UME THIS ROUTINE IS PRINTING IT WIll BE IGNORED.
5823 ADDRESS 50:0 CONTAINS THE STATUS OF THE PRINT SCREEN:
5824
5825
50:0
'0
EITHER PRINT SCREEN HAS NOT BEEN CALLED
5826
OR UPON RETURN FROM A CAll THIS INDICATES
5827
A SUCCESSFUL OPERATION.
5828
5829
0)
PRINT SCREEN IS IN PROGRESS
5830
5831
=377 ERROR ENCOUNTERED DURING PRINTING
5832
;--------------------------------------------
5833
ASSUME CS: CODE ,DS:XXDATA
5834
fFS4
5835 PRINT_SCREEN
PROC FAR
FFS4 F8 5836
5TI
;I1UST R\..R'>I WITH INTERRUPTS ENABLED
FFS5 IE
5837
PUSH 05
jMUST USE 50:0 FOR DATA AREA STORAGE
FF56 50 5838
PUSH AX
FF57 53
5839 pUSH
ex
FF56 51 5840
PUSH ex
iWIlL USE THIS LATER FOR CURSOR LIMITS
FF59 52 5841
PUSH ox
iWIlL HOLD CURRENT CURSOR POSITION
FF5A 885000 5842
MOV
AX,XXOATA jHEX 50
FF5D 8E08 5843
MOV OS.AX
FF5F 803£000001 5844
eMP STATUS.BYTE,l
,SEE IF PRINT ALREADY IN PROGRESS
FF64 745F 5845
JZ EXIT
; Jt.n1P IF PRINT ALREADY IN PROGRESS
FF66 C606000001 5846
MDV STATUS_BYTEd
; INDICATE PRINT NOW IN PROGRESS
Ff6B 84OF 5847
MDV AH,15
iWIlL REQUEST THE CURRENT SCREEN MODE
FF60 COlO 5848
INT
)OH [All=1'10DE
5849
[AH ]=NUMBER COLUMNS/LINE
5850
t BH J::VISUAl pAGE
5851
J**********************lflf************
5852 AT THIS POINT WE KNOW THE COLUMNS/LINE ARE IN
5853 [AX] AND THE PAGE IF APPLICABLE IS IN tBHJ. THE STACK
5854 HAS OS,AX.BX,CX,DX PUSHED. [ALI HAS VIDEO MODE
5855
,,-....,
5856
j ******* ************************* ****
FF6F BACC 5857
MDV CL.AH
iWILL MAKE USE OF [CXI REGISTER TO
FF71 B519
5858 MOV CH.25
;CONTROL ROW & COLUHNS
FF73 £85500 5859
CALL CRLF
;CARRIAGE RETURN
LINE FEED ROUTINE
FF76 51 5860
PUSH CX
; SAVE SCREEN BOUNDS
FF77 8403
5861
MOV
AH,3 jWILl NOW READ THE CURSOR.
FF79 COlO
586Z INT
)OH iAHD PRESERVE THE POSITION
FF7B 59 5863
POP
ex jRECALL SCREEN BOUNDS
FF7C 52 5864
PUSH OX
.RECALl [BH};;;VISUAL PAGE
FF7D 3302 5865
XOR OX.OX
jWIll SET CURSOR POSITION TO (0,0)
A-79