.TITLE NTDCB .MCALL UCBDF$,SCBDF$,HWDDF$ UCBDF$ HWDDF$ SCBDF$ ,,SYSDEF .PSECT NTDRV $NTDAT:: ;OPERABLE FUNCTIONS ARE ; IO.KIL=0 ; IO.WLB=400 ; IO.RLB=1000 ; (IO.RVB=10400) ; (IO.WVB=11000) ;SPECIAL FUNCTIONS ; IO.INI=40 ; IO.RST=17400 DCB: .WORD 0,UCB0 .ASCII /NT/ .BYTE 0,7 .WORD UCBEND-UCBBEG,0 .WORD 176077,40,176030,0 .WORD 100377,100000,371,6 .WORD 0 UCBBEG=. .WORD 0 UCB0: .WORD DCB,.-2 .BYTE UC.QUE,0,0,0 .WORD DV.REC .WORD 0 .WORD 0,512. .WORD SCB0 .WORD 0 ;U.ATT .WORD 0 ;U.BUF .WORD 0 .WORD 0 ;U.CNT UCBEND=. .WORD 0 UCB1: .WORD DCB,.-2 .BYTE UC.QUE,0,1,0 .WORD DV.REC .WORD 0 .WORD 0,512. .WORD SCB1 .WORD 0 ;U.ATT .WORD 0 ;U.BUF .WORD 0 .WORD 0 ;U.CNT .WORD 0 UCB2: .WORD DCB,.-2 .BYTE UC.QUE,0,2,0 .WORD DV.REC .WORD 0 .WORD 0,512. .WORD SCB2 .WORD 0 ;U.ATT .WORD 0 ;U.BUF .WORD 0 .WORD 0 ;U.CNT .WORD 0 UCB3: .WORD DCB,.-2 .BYTE UC.QUE,0,3,0 .WORD DV.REC .WORD 0 .WORD 0,512. .WORD SCB3 .WORD 0 ;U.ATT .WORD 0 ;U.BUF .WORD 0 .WORD 0 ;U.CNT .WORD 0 UCB4: .WORD DCB,.-2 .BYTE UC.QUE,0,4,0 .WORD DV.REC .WORD 0 .WORD 0,512. .WORD SCB4 .WORD 0 ;U.ATT .WORD 0 ;U.BUF .WORD 0 .WORD 0 ;U.CNT .WORD 0 UCB5: .WORD DCB,.-2 .BYTE UC.QUE,0,5,0 .WORD DV.REC .WORD 0 .WORD 0,512. .WORD SCB5 .WORD 0 ;U.ATT .WORD 0 ;U.BUF .WORD 0 .WORD 0 ;U.CNT .WORD 0 UCB6: .WORD DCB,.-2 .BYTE UC.QUE,0,6,0 .WORD DV.REC .WORD 0 .WORD 0,512. .WORD SCB6 .WORD 0 ;U.ATT .WORD 0 ;U.BUF .WORD 0 .WORD 0 ;U.CNT .WORD 0 UCB7: .WORD DCB,.-2 .BYTE UC.QUE,0,7,0 .WORD DV.REC .WORD 0 .WORD 0,512. .WORD SCB7 .WORD 0 ;U.ATT .WORD 0 ;U.BUF .WORD 0 .WORD 0 ;U.CNT SCB0: .WORD 0,.-2,0,0,0 .WORD 4,0,0,0,0,0,0,0 SCB1: .WORD 0,.-2,0,0,0 .WORD 4,0,0,0,0,0,0,0 SCB2: .WORD 0,.-2,0,0,0 .WORD 4,0,0,0,0,0,0,0 SCB3: .WORD 0,.-2,0,0,0 .WORD 4,0,0,0,0,0,0,0 SCB4: .WORD 0,.-2,0,0,0 .WORD 4,0,0,0,0,0,0,0 SCB5: .WORD 0,.-2,0,0,0 .WORD 4,0,0,0,0,0,0,0 SCB6: .WORD 0,.-2,0,0,0 .WORD 4,0,0,0,0,0,0,0 SCB7: .WORD 0,.-2,0,0,0 .WORD 4,0,0,0,0,0,0,0 $NTEND:: .END