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