.TITLE HOME .ENABL LC ; ; CALL HOME -- This subroutine moves the alpha cursor to the ; upper left hand corner of the screen. ; .PSECT HOME .MCALL QIOW$S HOME:: MOV R5,-(SP) ;SAVE R5 MOV #LIST0,R5 ;SET ARGUMENT LIST FOR ABSPLT JSR PC,ABSPLT ;MOVE TO UPPER LEFT MOV #LIST1,R5 ;SET ARGUMENT LIST FOR HLABEL JSR PC,HLABEL ;SET ALPHA MODE MOV (SP)+,R5 ;RESTORE R5 QIOW$S #IO.WLB,ILun,#1,,,,<#BLANK,#1,#40> ;SET ALPHA MODE RTS PC ;RETURN TO THE CALLING PROGRAM ; LIST0: .WORD 3,0,IYMax,LIST0 ;ARGUMENT LIST FOR ABSPLT LIST1: .WORD 0 ;ARGUMENT LIST FOR HLABEL BLANK: .BYTE 40 ;