SUBROUTINE PDP8IOT |
ID=(ISHIFT(MD,-3).AND.77B)+1
IO=(MD.AND.7B)+1 IF(ID.LE.5) GOTO (200,210,220,230,240),ID IF(MD.EQ.6214B) GOTO 302 IF(MD.EQ.6201B) GOTO 106 GOTO 404 |
200 CONTINUE
GOTO 404 |
210 GOTO (404,108,212,404,106,404,212,404),IO |
220 GOTO (404,108,106,404,224,404,224,404),IO |
230 IF(MD.EQ.6032B) GOTO 106
GOTO 404 |
240 GOTO (106,108,106,404,243,108,243,404),IO |