3G54 ...[??? ALTBOTH SECT CENT FGN 32 DOC
3G#W [
3GSG [ENTRY SEQUENCE FOR CHANGING A BLOCK LENGTH ROUTINE
3H#6 [
3HRQ #MAC ALTBOTH [DEFINING MACRO FOR ALTLEN,ALTLEND
3J?B #STR %C%D
3JR2 (
3K=L BRN MALT2
3KQ= MALT1 MHUNT 2,%C,%D
3L9W EXIT 1 0
3LPG MALT2 ALTLENG%F %A,%B,MALT1
3M96 #EXI
3MNQ )
3N8B #STR FX2,%A
3NN2 #SKI
3P7L (
3PM= ALTLENG%F %A,%B,£
3Q6W #EXI
3QLG )
3R66 LDX 1 %A
3RKQ LD%E 2 %B
3S5B CALL 0 (CHANGE)
3SK2 #NOR