*DECK ASMDECKS
*CALL ZERO
*CALL BEGIN 
*CALL INTRAPS 
*CALL JUMPS 
*CALL ADDRESSES 
*IF DEF,TUP,1 
*CALL PBLN00
*IF -DEF,TUP,1
*CALL PBLN00A 
*CALL PBLN01
*CALL PBLN02
*CALL PBLN03
*CALL PBLN06
*CALL PBLN08
*CALL PBGETCHAR 
*CALL PBCALL
*CALL PNSTORE                                                            31OCT75
*CALL PBFILE
*CALL PISIZCORE 
*CALL PBAMASK 
*CALL PBLMASK 
*CALL PBOMASK 
*CALL PBSMASK 
*CALL PBSETPROT 
*CALL PBCLRPROT 
*CALL PBCOMPARE 
*CALL PBRDPGE 
*CALL PBPSWITCH 
*CALL PBPUTPAGE 
*CALL PBGETPAGE 
*CALL PBSTPMODE 
*CALL UNLOCK
*CALL QULOCK
*CALL QENTRY
*CALL QEXIT 
*CALL PBNIL 
*CALL BUFMAINT
*CALL LISTSRV 
*CALL PBSTOP
*CALL PTTPINF 
*CALL,SASTP 
*CALL MODMSTP 
*IF DEF,OLDSYS,1
*CALL ISPOLD
