*%/* 01070002 * /* MACCOMP Y-1 SC1C5/PZD81 */ 01080002 * /* MACSTAT Y-1 72277 */ 01100002 * /* 01110002 MACRO 01150002 &NAME TIME &UNIT,&ADDR,&ZONE=,&ERRET= 02000002 * /* MACDATE Y-1 72277 */ 02050002 * /* 02100002 LCLA &CTR 03000002 LCLB &B(4) 04000002 AIF (('&UNIT' EQ 'DEC' OR '&UNIT' EQ '' OR '&UNIT' EQ 'TU' O*05000002 R '&UNIT' EQ 'BIN') AND '&ADDR' NE '').ERR1 20071 06000002 &B(1) SETB ('&UNIT' EQ 'DEC' OR '&UNIT' EQ '') 07000002 &B(2) SETB ('&UNIT' EQ 'BIN') 08000002 &B(3) SETB ('&UNIT' EQ 'MIC') 20071 09000002 &B(4) SETB ('&UNIT' EQ 'STCK') 10000002 AIF ('&ZONE' EQ '').CKRET 11000002 AIF ('&UNIT' EQ 'STCK').E3 12000002 AIF ('&ZONE' EQ 'LT').CKRET 13000002 AIF ('&ZONE' NE 'GMT').E5 14000002 &CTR SETA 128 GMT FLAG 15000002 .CKRET AIF ('&ERRET' EQ '').CKTU 16000002 &CTR SETA &CTR+64 RETURN CODE FLAG 17000002 .CKTU AIF ('&UNIT' EQ 'TU').TU 18000002 AIF (&B(1)+&B(2)+&B(3)+&B(4) NE 1).E1 19000002 &CTR SETA &B(2)+2*&B(1)+3*&B(3)+4*&B(4)+&CTR 20000002 .LC ANOP 21000002 &NAME LA 1,&CTR.(0,0) LOAD 1 TO SPECIFY UNIT 22000002 AIF ('&UNIT' NE 'MIC' AND '&UNIT' NE 'STCK').SVC 23000002 AIF ('&ADDR' EQ '').ERR2 20071 24000002 AIF ('&ADDR'(1,1) EQ '(').REG 25000002 LA 0,&ADDR 20071 26000002 AGO .SVC 20071 27000002 .REG ANOP 28000002 AIF ('&ADDR' EQ '(0)').SVC 29000002 LR 0,&ADDR(1) 30000002 AGO .SVC 31000002 .TU ANOP 32000002 AIF (&CTR NE 0).LC 33000002 &NAME SR 1,1 ZERO 1 TO SPECIFY UNIT 34000002 .SVC SVC 11 ISSUE TIME SVC 35000002 AIF ('&ERRET' EQ '').DONE 36000002 LTR 15,15 ANY RETURN CODE 37000002 AIF ('&ERRET'(1,1) EQ '(').BCR 38000002 BNZ &ERRET YES. BR TO USER EXIT 39000002 AGO .DONE 40000002 .BCR BCR 7,&ERRET(1) 41000002 .DONE MEXIT 42000002 .E3 MNOTE 4,'ZONE NOT MEANINGFUL WITH STCK--ZONE IGNORED' 43000002 AGO .CKRET 44000002 .E1 IHBERMAC 36,,&UNIT,,,0 INVALID UNIT SPECIFIED 45000002 MEXIT 20071 46000002 .ERR1 IHBERMAC 236 20071 47000002 MEXIT 20071 48000002 .ERR2 IHBERMAC 3 20071 49000002 MEXIT 50000002 .E5 IHBERMAC 54,,&ZONE 51000002 MEXIT 52000002 MEND 53000002 **/ 53050002 *TIME: MACRO 53100002 * KEYS(ZONE,ERRET); 53150002 * ANS('?'||MACLABEL||'TIMEP '||MACLIST||MACKEYS||';'); 53200002 *%END; 53250002