.TITLE DR11-W (RT11) WRITE TEST ; ; THIS IS A TEST PROGRAM FOR THE 'WRITE' REQUESTS TO THE CD ; DR11-W HANDLER. ----- ; ; .MCALL .LOOKUP,.READW,.WRITW,.FETCH .MCALL .EXIT,.PRINT,.HRESET ; ERRBYT = 52 ; START:: .FETCH #HSPACE,#CDNAME ;GET CD HANDLER BCS FERR ;CD NOT AVAILABLE CLR R3 ;CHAN. 0 .LOOKUP #AREA,R3,#CDNAME ;OPEN CHANNEL 0 BCS LKERR ;ERR. IN LOOKUP WCOUNT = 20. MOV #WCOUNT,R2 ;SET WORD COUNT .WRITW #AREA,R3,#BUFF,R2,#BLK ;SEND A MESSAGE OVER DR11-W BCS WTERR ;ERR.IN WRITE .PRINT #WT$OK ;WRITE IS OK .HRESET .EXIT ; WTERR: .PRINT #WTMSG ;SHOW 'WRITE ERROR' .EXIT FERR: .PRINT #FMSG ;SHOW 'FETCH ERROR' .EXIT LKERR: .PRINT #LMSG ;SHOW 'LOOKUP ERROR' .EXIT ; ; DATA STRUCTURES ; CDNAME: .RAD50 /CD / .WORD 0,0,0,0 ; AREA: .BLKW 10 ; ; WRITE REQUEST DATA ; BLK: .WORD 1,1,0,0 ;PTC, BLOCK #, CD ERROR RESP. BUFF: .ASCIZ /HI. DR11W MESSAGE 1/ .EVEN BB: .WORD 0,0,0,0,0 ; ; ; ERROR MESSAGES ; FMSG: .ASCIZ /NO DEVICE?/ LMSG: .ASCIZ /LOOKUP ERROR?/ WTMSG: .ASCIZ /WRITE ERROR?/ ; WT$OK: .ASCIZ /WRITE OK: HI. DR11W MESSAGE 1/ ; .EVEN .BLKW 2000. ; ; START OF CD HANDLER ; HSPACE = 20000 ; .END START