| 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 |