$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
