$CONTROL USLINIT,CODE,MAP                                               00010000
<< SDFGEN - MODULE 34 >>                                                00015000
<< HP32002C MPE SOURCE C.00.00 >>                                       00020000
$COPYRIGHT     "(C) COPYRIGHT HEWLETT-PACKARD CO. 1980. ",            & 00025000
$     "THIS PROGRAM MAY BE USED WITH ONE COMPUTER SYSTEM AT A ",      & 00030000
$     "TIME AND SHALL NOT OTHERWISE BE RECORDED, TRANSMITTED OR ",    & 00035000
$     "STORED IN A RETRIEVAL SYSTEM.  COPYING OR OTHER REPRODUCTION ",& 00040000
$     "OF THIS PROGRAM EXCEPT FOR ARCHIVAL PURPOSES IS PROHIBITED ",  & 00045000
$     "WITHOUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY."   00050000
$CONTROL PRIVILEGED                                                     00055000
BEGIN                                                                   00060000
EQUATE                                                                  00065000
   CPU'MASK        = %26000;                                   <<01373>>00070000
                                                                        00075000
INTEGER X=X;                                                   <<01373>>00080000
ARRAY UGLYCPU(0:30):="PROGRAM NOT SUPPORTED ON THIS MODEL";    <<01373>>00085000
ENTRY BACKUP,FREE;                                             <<01373>>00090000
                                                                        00095000
INTEGER PROCEDURE THISCPU;                                              00100000
OPTION EXTERNAL;                                                        00105000
                                                                        00110000
PROCEDURE SDFINIT(MODE);                                                00115000
VALUE MODE;                                                             00120000
LOGICAL MODE;                                                           00125000
OPTION EXTERNAL;                                                        00130000
                                                                        00135000
INTRINSIC PRINT,QUIT;                                                   00140000
                                                                        00145000
PROCEDURE CHECKCPU;                                                     00150000
   BEGIN                                                                00155000
   X := THISCPU;                                               <<01373>>00160000
   TOS := CPU'MASK;                                            <<01373>>00165000
   ASSEMBLE( TBC 0,X );                                        <<01373>>00170000
   IF = THEN                                                   <<01373>>00175000
      BEGIN                                                             00180000
      PRINT(UGLYCPU,-35,0);                                    <<01373>>00185000
      QUIT(0);                                                          00190000
      END;                                                              00195000
   END  <<CHECKCPU>>;                                                   00200000
                                                                        00205000
BACKUP:                                                                 00210000
   CHECKCPU;                                                            00215000
   SDFINIT(1);                                                          00220000
   RETURN;                                                              00225000
                                                                        00230000
FREE:                                                                   00235000
   CHECKCPU;                                                            00240000
   SDFINIT(2);                                                          00245000
END.                                                                    00250000
