.TITLE HRM ; Heath Reset Mode ; Resets to the condition specified by IMODE ; Calling sequence: ; CALL HRM(IMODE) ; IMODE - The mode number ; 1 - Disable 25th line ; 2 - Enable Key Click ; 3 - Exit Hold screen mode ; 4 - Underscore cursor ; 5 - Cursor on ; 6 - Keypad unshifted ; 7 - Exit Alternate keypad mode ; 8 - No auto line feed ; 9 - No auto CR .MCALL .REGDEF,.PRINT .REGDEF .GLOBL HRM HRM: TST (R5)+ ;SKIP OVER ARGUMENT COUNT MOV @(R5)+,R0 ;IMODE ADD #60,R0 ;ADD OFFSET MOVB R0,IMODE ;STORE IT IN MESSAGE .PRINT #M ;SEND ESCAPE SEQUENCE TO TERMINAL RTS PC M: .BYTE 33,171 IMODE: .BYTE 0 ;MODE .BYTE 200 .EVEN .END