RESTART

(GIN Macro)

Defined in: MACS SPC

Used in: ABANDONA867, ACTPRI867, ALASB867, BACKMAP864, CANTDO867, COMPCHAN84, INLOOP84, INRESTAR84, IPCOND864, LISTINIT867, LISTINTC865, LOAD60, MESSAG, MESSAI, MESSF, MONFIL865, MONITOR36, MONJRNAL850, MOPOUT85, OLMTE85, PERION867, READBULK867, READLINE8, RESTART84, WSJOBS867, WSPERIS867

RESTART.mac.txt

 HRSB    #MAC  RESTART  [C.E.WILKINSON :PERFORMS RESTARTS ON SLOW PERIPHERALS
 HS#2          LDX   2  FX2                 [SET X2  
 HSRL          LDX   0  CPRW1(2)            [LOAD REPLY WORD 
 HT?=          SLL   0  3
 HTQW          BNG   0  MR1                 [J IF B3 SET (FAIL)  
 HW=G          SLL   0  2
 HWQ6          BPZ   0  MR2                 [J IF B5 NOT SET 
 HX9Q    MR3   ENGPER   %A,,%B   
 HXPB          BRN      %C                  [DO PERI AGAIN   
 HY92    MR1   SLL   0  2                   [IF B3+B5 SET LAST TRANS FAILED  
 HYNL          BNG   0  MR4                 [AND DISENGAGED SO MISS DIS  
 H^8=          DISENGPER 
 H^MW    MR4 
 J27G          ENGPER   %A,,%B,1            [ERROR RESTART MESSAGE   
 J2M6          BRN      %C   
 J36Q    MR2 
 J3LB    #NOR