.TITLE USRTB ; SYSTEM TABLES ; Use for YRDRV and YTDRV. Note you need to add the LD$YR=0 and ; LD$YT=0 to RSXMC.MAC if they're not in the driver code. ; ; MACRO LIBRARY CALLS ; .MCALL HWDDF$,SCBDF$,UCBDF$,CLKDF$ HWDDF$ ;DEFINE HARDWARE REGISTERS SCBDF$ ,,SYSDEF ;DEFINE SCB OFFSETS UCBDF$ ,,TTDEF ;DEFINE UCB OFFSETS CLKDF$ ;DEFINE CLOCK QUEUE OFFSETS ; ; LOCAL ASSIGNMENTS ; UMD=0 .IIF DF D$$IAG,UMD=400 ;DIAGNOSTIC FUNCTIONS BECOME LEGAL ERL=0 .IIF DF E$$DVC,ERL=4 ; ; DEVICE TABLES ; LD$YR=0 LD$YT=0 $USRTB:: ; ; YR DCB ; .IIF DF LD$YR, $YRTBL=0 .IIF DF LD$YT, $YTTBL=0 .DC0: .WORD .DC1 .WORD .YR0 .ASCII /YR/ .BYTE 0,1.-1 .WORD YRND-YRST .WORD $YRTBL .WORD 160377,170,160302,0,37407,0,1,37406 .IF DF L$$DRV .WORD 0 .ENDC ; ; XL UCB'S ; YRST=. .IF DF M$$MUP .WORD 0 .ENDC .YR0:: .WORD .DC0 ;u.dcb .WORD .-2 ;u.red .BYTE 0,0 ;ucb flags,status ;u.ctl/u.sts .BYTE 0,0 ;u.unit,u.st2 .WORD 7 ;u.cw1 ;terminal... .WORD 0 ;u.cw2 .WORD 0 ;u.cw3 .WORD 1024. ;u.cw4 .WORD $YR0 ;u.scb .WORD 0,0,0,0,0,0,0,0,0,0 .WORD 0,0,0,0,377,0,0,0,0,0 YRND=. ; ; YR SCB'S ; .IF NDF LD$YR .ASECT .=330 .WORD $YRINT .WORD PR7+0 .PSECT .ENDC $YR0:: .WORD 0,.-2 .BYTE PR5,330/4 .BYTE 0,0 ;S.CTM,S.ITM .BYTE 0*2,0 .WORD 176530 .WORD 0 .WORD 0,0,0,0 .IF DF L$$DRV & M$$MGE .WORD 0 .ENDC .IIF DF LD$YR, $YRTBL=0 ; YT DCBS .DC1: .WORD 0 ;FWD DCB LINK - NONE HERE .WORD .YT0 .ASCII /YT/ .BYTE 0,1.-1 .WORD YTND-YTST .WORD $YTTBL .WORD 160377,170,160304,0,37407,0,1,37406 .IF DF L$$DRV .WORD 0 .ENDC ; ; XL UCB'S ; YTST=. .IF DF M$$MUP .WORD 0 .ENDC .YT0:: .WORD .DC1 ;u.dcb .WORD .-2 ;u.red .BYTE 0,0 ;ucb flags,status ;u.ctl/u.sts .BYTE 0,0 ;u.unit,u.st2 .WORD 7 ;u.cw1 ;terminal... .WORD 0 ;u.cw2 .WORD 0 ;u.cw3 .WORD 1024. ;u.cw4 .WORD $YT0 ;u.scb .WORD 0,0,0,0,0,0,0,0,0,0 .WORD 0,0,0,0,377,0,0,0,0,0 YTND=. ; ; XL SCB'S ; .IF NDF LD$YT .ASECT .=334 .WORD $YTINT .WORD PR7+0 .PSECT .ENDC $YT0:: .WORD 0,.-2 .BYTE PR5,334/4 .BYTE 2,2 .BYTE 0*2,0 .WORD 176534 .WORD 0 .WORD 0,0,0,0 .IF DF L$$DRV & M$$MGE .WORD 0 .ENDC .END