+301,301
         BGEZ     ERR4                                         SIDR32946
+261
         LW,NW    6ERREQ            IS THERE AN                SIDR32853
         OR,NW    8ERREXIT          ERROR EXIT?                SIDR32853
         BEZ      1A023             NO                         SIDR32853
         CAL1,1   SETERR            YES                        SIDR32853
         B        1A025                                        SIDR32853
1A023    EQU      $                                            SIDR32853
         CAL1,1   SETNOERR          USE MONITOR ERROR          SIDR32853
1A025    EQU      $                                            SIDR32853
+593,593
         BDR,X2   ERR71LA                                      SIDR32854
+721,721
ERRNOTOPN  TEXTC  'UNIT WAS OPENED RANDOM'                     SIDR32946
+762
SETERR   EQU      $                                            SIDR32853
         GEN,8,24 X'86',8DCBADR                                SIDR32853
         GEN,2,30 3,0                                          SIDR32853
         DATA     RDERROR                                      SIDR32853
         DATA     RDABNORM                                     SIDR32853
SETNOERR EQU      $                                            SIDR32853
         GEN,8,24 X'86',8DCBADR                                SIDR32853
         GEN,2,30 3,0                                          SIDR32853
         DATA     0                                            SIDR32853
         DATA     0                                            SIDR32853
+END
