ALTLENG

(GIN Macro)

Defined in: COREMACROS

Used in: ADDICT865, ADJUNCTS85, ALAS822, ALASB867, ASSOC867, BACKROOM865, BMAPDIR865, BMAPONE867, BMFIXIT864, BMQUEST866, BMSAVJOB864, CDCIPB864, CHANG867, COMPRESS864, CONIPB8, CONMXA85, CONMXC8, COPYB867, DEWELL867, DICTWELL867, DOXCODE867, DUMP860, ERASE867, ERASEA867, FHOBJDIR860, FILEMAP, GETFREE867, GLOBALS867, GOTO867, HOWBIG867, IDFCONF867, IDFLINE867, IDFPER867, INCEND865, INCEOT865, INCSTART865, INCTAPES867, INCVFCHK850, INCWRITE865, INLOOP84, INPCT84, INRESTAR84, IPBCCA867, IPBCONS867, IPBINC865, IPBLISTB867, IPBMOP867, IPBMOPB867, IPBTAPE867, JDWRITE867, JOBDATA867, JOBDATAB867, JOBLIST867, JWUPDATE867, LISTEND867, MAKEVCC867, MONJRNAL850, MOPOUT85, NNORM83, PUTPER85, REGEN865, RENGAGE851, RESTOREG864, RMTLF864, SCEDITAR84, SCHEDJOB867, UNSAVE867, USERDIR842, WHATRVS867, WLA867, WLAA867, WLB867, WSJOBS867, WSPERIS867

ALTLENG.mac.txt

 3YPS ...[??? ALTLENG SECT CENT FGN 32 DOC   
 3Y^L    #   
 3^F=    # ALTLENG & VARIANTS ARE LIKE ALTLEN ETC BUT DONT INVOLVE LOCKING THE   
 3^YW    # BLOCK 
 42DG    #   
 42Y6    #MAC  ALTLENG   
 43CQ          LDX   1  %A   
 43XB          LDX   2  %B   
 44C2          CALL  0  (CHANGEG)
 44WL    #STR  %C,£  
 45B=                   +%C                 [SUBROUTINE ADDRESS  
 45TW    #STR  %C
 46*G    #SKI
 46T6                   #10000000           [%C ABSENT   
 47#Q    #STR  £,%C  
 47SB    #SKI
 48#2                   +0                  [%C=£
 48RL    #NOR