| 1121 | * | 1122 | * THIS ROUTINE USES $ERROR,$ERRORP11 AND FPTGNR | |||
| 01765 | 0 00000 0 00000 | 1123 | FPTDV | DIVIDE CHECK INDICATOR CELL |
| 01704 | −0625 00 0 01765 | 1070 | STL | FPTDV SET DIVIDE CHECK FLAG | ||
| 01720 | 0600 00 0 01765 | 1084 | STZ | FPTDV INDICATE FLAPPING TRAP | ||
| 01735 | 0520 00 0 01765 | 1097 | ZET | FPTDV TEST FOR DIVIDE CHECK ERROR |