.TITLE PBGRTAB .IDENT /02/ ; ; COPYRIGHT 1976, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE ; ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED (WITH INCLUSION ; OF DEC'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH SYSTEM, EXCEPT ; AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY ; OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; CONTROL BLOCKS FOR VT11/VS60 DISPLAY PROCESSOR DRIVER ; AND FOR THE LK11 PUSH BUTTON BOX DRIVER ; ; WRITTEN BY HANK MAURER 13-JUL-75 AND 28-FEB-77 ; ; VT11/VS60 DEVICE DATA BASE ; ; VT11/VS60 DEVICE CONTROL BLOCK ; $USRTB:: ;START OF USER WRITTEN DRIVER'S DATA BASE GRDCB: .WORD PBDCB ;LINK TO NEXT DCB .WORD .GR0 ;POINTER TO FIRST (AND ONLY) UCB .ASCII "GR" ;DEVICE NAME .BYTE 0,0 ;RANGE OF UNIT NUMBERS .WORD GRND-GRST ;UCB SIZE .WORD $GRTBL ;POINTER TO VT11/VS60 DRIVER DISPATCH TABLE .WORD 31 ;LEGAL FUNCTIONS 0-15. .WORD 30 ;CONTROL FUNCTIONS 0-15. .WORD 0 ;NOP FUNCTIONS 0-15. .WORD 0 ;ACP FUNCTIONS 0-15. .WORD 74000 ;LEGAL FUNCTIONS 16.-31. .WORD 74000 ;CONTROL FUNCTIONS 16.-31. .WORD 0 ;NOP FUNCTIONS 16.-31. .WORD 0 ;ACP FUNCTIONS 16.-31. ; ; VT11/VS60 UNIT CONTROL BLOCK ; .GR0:: GRST=. .WORD GRDCB ;BACK POINTER TO DCB .WORD .-2 ;REDIRECT POINTER .BYTE UC.QUE+UC.KIL+UC.PWF+UC.NPR,0 .BYTE 0,0 ;PHYSICAL UNIT, UNIT STATUS EXTENSION .WORD 0,0,0,0 ;FOUR DEVICE CHARACTERISTICS WORDS .WORD GRSCB ;POINTER TO VT11/VS60 SCB .WORD 0 ;TCB ADDRESS OF ATTACHED TASK .BLKW 1 ;R.B. OF CURRENT IO BUFFER .BLKW 1 ;ADDRESS OF CURRENT IO BUFFER .BLKW 1 ;BYTE COUNT OF CURRENT IO BUFFER GRND=. ; ; VT11/VS60 INTERRUPT VECTORS ; .ASECT .=320 .WORD $GRSTP ;ADDRESS OF STOP INTERRUPT HANDLER .WORD PR7 ;INTERRUPT AT PRIORITY 7 .WORD $GRLPI ;ADDRESS OF LIGHT PEN INTERRUPT HANDLER .WORD PR7 ;INTERRUPT AT PRIORITY 7 .WORD $GRBSE ;ADDRESS OF BUS ERROR INTERRUPT .WORD PR7 ;INTERRUPT AT PRIORITY 7 .WORD $GRBSE ;NAME SEARCH INTERRUPT HANDLER .WORD PR7 ;AT PRIORITY 7 .PSECT ; ; VT11/VS60 STATUS CONTROL BLOCK ; GRSCB: .WORD 0 ;IO QUEUE LISTHEAD .WORD .-2 ;IO QUEUE LISTTAIL .BYTE PR4,320/4 ;DEVICE PRIORITY, VECTOR/4 .BYTE 0,6 ;CURRENT AND INITIAL TIMEOUT COUNTS .BYTE 0,0 ;CONTROLLER INDEX AND STATUS .WORD 172000 ;ADDRESS OF CSR .BLKW 1 ;ADDRESS OF CURRENT IO PACKET .BLKW 4 ;FORK BLOCK ; ; LK11 DEVICE DATA BASE ; ; LK11 DEVICE CONTROL BLOCK ; PBDCB: .WORD 0 ;LINK TO NEXT DCB .WORD .PB0 ;POINTER TO FIRST (AND ONLY) UCB .ASCII "PB" ;DEVICE NAME .BYTE 0,0 ;RANGE OF UNIT NUMBERS .WORD PBND-PBST ;UCB SIZE .WORD $PBTBL ;POINTER TO LK11 DRIVER DISPATCH TABLE .WORD 33 ;LEGAL FUNCTIONS 0-15. .WORD 32 ;CONTROL FUNCTIONS 0-15. .WORD 0 ;NOP FUNCTIONS 0-15. .WORD 0 ;ACP FUNCTIONS 0-15. .WORD 14000 ;LEGAL FUNCTIONS 16.-31. .WORD 0 ;CONTROL FUNCTIONS 16.-31. .WORD 0 ;NOP FUNCTIONS 16.-31. .WORD 0 ;ACP FUNCTIONS 16.-31. ; ; LK11 UNIT CONTROL BLOCK ; .PB0:: PBST=. .WORD PBDCB ;BACK POINTER TO DCB .WORD .-2 ;REDIRECT POINTER .BYTE UC.ALG+UC.QUE+UC.KIL,0 .BYTE 0,0 ;PHYSICAL UNIT, UNIT STATUS EXTENSION .WORD 0,0,0,0 ;FOUR DEVICE CHARACTERISTICS WORDS .WORD PBSCB ;POINTER TO LK11 SCB .WORD 0 ;TCB ADDRESS OF ATTACHED TASK .BLKW 1 ;R.B. OF CURRENT IO BUFFER .BLKW 1 ;ADDRESS OF CURRENT IO BUFFER .BLKW 1 ;BYTE COUNT OF CURRENT IO BUFFER PBND=. ; ; LK11 INTERRUPT VECTORS ; .ASECT .=360 .WORD $PBINT ;ADDRESS OF LK11 INTERRUPT HANDLER .WORD PR7 ;INTERRUPT AT PRIORITY 7 .PSECT ; ; LK11 STATUS CONTROL BLOCK ; PBSCB: .WORD 0 ;IO QUEUE LISTHEAD .WORD .-2 ;IO QUEUE LISTTAIL .BYTE PR4,360/4 ;DEVICE PRIORITY, VECTOR/4 .BYTE 0,6 ;CURRENT AND INITIAL TIMEOUT COUNTS .BYTE 0,0 ;CONTROLLER INDEX AND STATUS .WORD 160060 ;ADDRESS OF CSR .BLKW 1 ;ADDRESS OF CURRENT IO PACKET .BLKW 4 ;FORK BLOCK .END