;************ LINKING THE A/R SYSTEM ***********
XSUB
LINK  B:ARP000[A,$$IC],B:ARM000,PLIAUX.IRL[S] & 
  (B:ARP010,B:ARM010,B:ARM011)  & 
  (B:ARP020,B:ARM020) & 
  (B:ARP030,B:ARM030) & 
  (B:ARP040,B:ARM040) & 
  (B:ARP050,B:ARM050) & 
  (B:ARP060,B:ARM060) & 
  (B:ARP070,B:ARM070) 
;***END OF A/R SYSTEM LINK***
;***COLD START CP/M BY PRESSING RESET.