ASMB,L
      NAM NPART,7 91711-16004  REV 1813  780322 
* 
* 
*  SUBROUTINE TO FIND OUT THE NUMBER OF PARTITIONS
*  THAT WERE INCLUDED IN THE SYSTEM AT GENERATION TIME. 
* 
* 
      ENT NPART 
      EXT EXEC,$OPSY,$MNP 
* 
NPART NOP           ENTRY POINT 
      LDA DM9 
      CPA $OPSY     RTE-IV? 
      JMP PART      YES 
* 
      JSB EXEC      NO - TERMINATE PROGRAM
      DEF *+4 
      DEF D6
      DEF ZERO
      DEF D3        TERMINATE IMMEDIATELY 
* 
PART  LDA $MNP      GET # OF PARTITION GENERATED
      LDB NPART,I   GET RETURN ADDRESS
      JMP B,I       RETURN TO CALLER
* 
B     EQU 1 
D3    DEC 3 
D6    DEC 6 
DM9   DEC -9
ZERO  NOP 
* 
      END 
                                                                      