CMS File Input : RIOGEN MACRO
Date : 12/8/1978 4:37:00 PM
VM Context : MAINT(394)
File Name : RIOGEN.MACRO.Z1.txt
Modified : 1/16/2021 7:31:49 AM
Created : 1/16/2021 7:31:49 AM
Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
R10074DK: ./ R 7000 $ 7150 RIO00010
R10074DK: LCLA &INDEX,&SRFCNT,&ALTCNT RIO00020
R10074DK: ./ I 12100 $ 12150 100 RIO00030
R10074DK: &SRFCNT SETA N'&SRF RIO00040
R10074DK: ./ D 70237 RIO00050
R10074DK: ./ R 70252 70267 $ 70240 5 RIO00060
R10074DK: DC F'&SRFCNT' RIO00070
R10074DK: &INDEX SETA 1 RIO00080
R10074DK: .LSRF AIF (&INDEX GT N'&SRF).MEND RIO00090
R10074DK: DC AL2((RDV&SRF(&INDEX)-DMKRIODV)/8) RIO00100
R10074DK: DC XL2'&SRF(&INDEX)' RIO00110
R10074DK: &INDEX SETA &INDEX+1 RIO00120
R10074DK: AGO .LSRF RIO00130
R10074DK: ./ D 70282 70297 RIO00140
R10074DK: ./ I 74000 $ 74100 100 RIO00150
R10074DK: AIF (N'&SRF GT 32).ERR1 RIO00160
R10074DK: MEXIT RIO00170
R10074DK: .ERR1 MNOTE 0,'MORE THAN 32 SRF DEVICES SPECIFIED' RIO00180
BEGIN APPLY >>> ./ R 7000 $ 7150 RIO00010
END APPLY >>> ./ R 7000 $ 7150 RIO00010
BEGIN APPLY >>> ./ I 12100 $ 12150 100 RIO00030
END APPLY >>> ./ I 12100 $ 12150 100 RIO00030
BEGIN APPLY >>> ./ D 70237 RIO00050
END APPLY >>> ./ D 70237 RIO00050
BEGIN APPLY >>> ./ R 70252 70267 $ 70240 5 RIO00060
END APPLY >>> ./ R 70252 70267 $ 70240 5 RIO00060
BEGIN APPLY >>> ./ D 70282 70297 RIO00140
END APPLY >>> ./ D 70282 70297 RIO00140
BEGIN APPLY >>> ./ I 74000 $ 74100 100 RIO00150
END APPLY >>> ./ I 74000 $ 74100 100 RIO00150
Update Succeeded
Update Execution Time 8 milliseconds.