$CONTROL USLINIT,CODE,MAP                                               00010000
<< SDFGEN - MODULE 34 >>                                                00012000
<< HP32002C MPE SOURCE C.00.00 >>                                       00014000
$COPYRIGHT     "(C) COPYRIGHT HEWLETT-PACKARD CO. 1980. ",            & 00016000
$     "THIS PROGRAM MAY BE USED WITH ONE COMPUTER SYSTEM AT A ",      & 00018000
$     "TIME AND SHALL NOT OTHERWISE BE RECORDED, TRANSMITTED OR ",    & 00020000
$     "STORED IN A RETRIEVAL SYSTEM.  COPYING OR OTHER REPRODUCTION ",& 00022000
$     "OF THIS PROGRAM EXCEPT FOR ARCHIVAL PURPOSES IS PROHIBITED ",  & 00024000
$     "WITHOUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY."   00026000
$CONTROL PRIVILEGED                                                     00028000
BEGIN                                                                   00030000
EQUATE                                                                  00032000
   CPU'MASK        = %26000;                                   <<01373>>00034000
                                                                        00036000
INTEGER X=X;                                                   <<01373>>00038000
ARRAY UGLYCPU(0:30):="PROGRAM NOT SUPPORTED ON THIS MODEL";    <<01373>>00040000
ENTRY BACKUP,FREE;                                             <<01373>>00042000
                                                                        00044000
INTEGER PROCEDURE THISCPU;                                              00046000
OPTION EXTERNAL;                                                        00048000
                                                                        00050000
PROCEDURE SDFINIT(MODE);                                                00052000
VALUE MODE;                                                             00054000
LOGICAL MODE;                                                           00056000
OPTION EXTERNAL;                                                        00058000
                                                                        00060000
INTRINSIC PRINT,QUIT;                                                   00062000
                                                                        00064000
PROCEDURE CHECKCPU;                                                     00066000
   BEGIN                                                                00068000
   X := THISCPU;                                               <<01373>>00070000
   TOS := CPU'MASK;                                            <<01373>>00072000
   ASSEMBLE( TBC 0,X );                                        <<01373>>00074000
   IF = THEN                                                   <<01373>>00076000
      BEGIN                                                             00078000
      PRINT(UGLYCPU,-35,0);                                    <<01373>>00080000
      QUIT(0);                                                          00082000
      END;                                                              00084000
   END  <<CHECKCPU>>;                                                   00086000
                                                                        00088000
BACKUP:                                                                 00090000
   CHECKCPU;                                                            00092000
   SDFINIT(1);                                                          00094000
   RETURN;                                                              00096000
                                                                        00098000
FREE:                                                                   00100000
   CHECKCPU;                                                            00102000
   SDFINIT(2);                                                          00104000
END.                                                                    00106000
