Table of Contents
Advertisement
PRINTER PATCH AREA
;PRINTER DRIVES...
ALTERNATE CONSOLE DRIVER •••
ACFIN:
;ALTERNATE CONSOLE DRIVER COMMON EXIT ROUTINE
076E
78
MOV A,B
;ORIGINAL IOBYTE, SA VED BY "ACST AR"
ACSTA1:
;"ACSTAR" SUBROUTINE JOINS HERE
076F
32 0003
STA IOBYTE
;SET NEW IOBYTE OR RESTORE ORIGINAL
0772
7A
MOV A,D
;RESTORE A REGISTER
;RETURN CY=l IF A=O: THIS IS NEEDED AT EXIT FROM
;" ACINP" ROUTINE, DOES NO HARM IN OTHER CASES.
0773
B7
ORA A ;TEST FOR NON-ZERO, CLEAR CY FLAG
0774
CO
RNZ
;IF NON-ZERO, RETURN CY FLAG CLEAR
0775
37
STC
;ELSE SET CARRY FLAG
0776
C9
RET
;FOR A=O RETURN CY=l
ACSTAR:
;COMMON ENTRY SUBR FOR ALTERNATE CONSOLE
; DRIVER
0777
57
MOV D,A
;SA VE A IN D, FOR ASCEND.
0778
3A 0003
LDA IOBYTE
;GET
I/o
ASSIGNMENTS STATUS BYTE
077B
47
MOV B,A
;SA VE INITIAL IOBYTE IN B
077C
E6 FC
ANIOFCH ;ZERO THE "CONSCLE" PART OF IOBYTE
077E
F6
DB (ORO
;SET DESIRED CONSOLE BITS
077F
01
CONFIE:
DB~SER
OR INSTALLATION SET DESIRED
;CONSOLE BITS HERE:
; 00 = TTY: PHYSICAL DEVICE
; 01 = CRT: PHYSICAL DE VICE
; 02 = BAT: PHYSICAL DE VICE
; 03 = UC1: PHYSICAL DE VICE
; NEW IOBYTE VALUE IS NOW IN A
0780
C3076F JMP ACSTAl
;GO SET IOBYTE FROM A, RESTORE A
;FROM D, AND RETURN TO CALLER.
REFERENCE
13-49
Advertisement
Table of Contents
