.MCALL CRRG$S,CRAW$S,MAP$S,RDBBK$,WDBBK$,DIR$,EXIT$S .PSECT MAPSET MAPSET:: CRRG$S #RGBUF BCC 1$ MOV #MAPERR, TRMIO+Q.IOPL MOV #MAPEND-MAPERR, TRMIO+Q.IOPL+2 3$: DIR$ #TRMIO EXIT$S 1$: MOV RGBUF+R.GID, WIBUF+W.NRID CRAW$S #WIBUF BCC 2$ MOV #WIERR, TRMIO+Q.IOPL MOV #WIERR1-WIERR, TRMIO+Q.IOPL+2 BR 3$ 2$: RTS PC .PSECT MAP MAP:: MOV @2(R5), R0 CMP R0, (PC)+ MAPNUM: .WORD 0 BEQ 1$ MOV R0, MAPNUM DEC R0 ASL R0 MOV OFFTAB(R0), R0 MOV R0, WIBUF+W.NOFF MAP$S #WIBUF BCC 1$ MOV #MAPER1, TRMIO+Q.IOPL MOV #MAPER2-MAPER1, TRMIO+Q.IOPL+2 DIR$ #TRMIO EXIT$S 1$: RTS PC OFFTAB: .WORD 0,136,274,432,570,726,1064,1176,1305 RGBUF: RDBBK$ 1336,,,,177700 WIBUF: WDBBK$ 7,136,,,136, .ENABL LC MAPERR: .ASCII /Failed to create mapping region!!!/ MAPEND=. WIERR: .ASCII /Failed to create the address window!!/ WIERR1=. MAPER1: .ASCII /Mapping error!!!/ MAPER2=. .END