/OS/8 CONCIS COMMAN LANGUA FOR ETOS /ECCL V2.002 6:04 PM 12/16/75 /MODIFI FOR ETOS DOUG BERGEN, EDUCOM CORP. /FURTHE MODIFI TOM SCHREI, EDUCOM CORP. /ASSEMB INSTRU: / .COM ECCL/E/L / ERRORS DETECT: 0 / LINKS GENERA: 0 / .SAVE DSK CCL.E1;12001=2003 /40 CCL FOR OS/8 / / / / / / / / / /COPYRI (C) 1974 DIGITA EQUIPM CORPOR / / / / / / / / / / /THE INFORM IN THIS DOCUME SUBJEC CHANGE WITHOU NOTICE /AND SHOULD NOT BE CONSTR AS A COMMIT DIGITA EQUIPM /CORPOR. DIGITA EQUIPM CORPOR ASSUME NO RESPON /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUME. / /THE SOFTWA DESCRI IN THIS DOCUME FURNIS THE PURCHA /UNDER A LICENS FOR USE ON A SINGLE COMPUT SYSTEM AND CAN BE COPIED /(WITH INCLUS OF DIGITA'S COPYRI NOTICE) ONLY FOR USE IN SUCH /SYSTEM, EXCEPT AS MAY OTHERW BE PROVID IN WRITIN DIGITA. / /DIGITA EQUIPM CORPOR ASSUME NO RESPON FOR THE USE /OR RELIAB OF ITS SOFTWA ON EQUIPM THAT NOT SUPPLI /DIGITA. / / / / / / / / / / / /ETOS DEFINI / DATXNO=11 /FUNCTI NO. FOR DATAXS TEXNO=13 /FUNCTI NO FOR TEXSET CURJNO=15 /FUNCTI NO. FOR CURREN JOB WHEOFF=16 /DATAXS OFFSET FOR CONSOL SYSCAL=6200 /ETOS SYSCAL MOFILE=7600 MIFILE=7617 MPARAM=7643 XR2=15 XR=16 TXR=17 AMFLAG=17 T=20 TT=21 DEF=22 NAME1=23 NAME2=24 NAME3=25 NAME4=26 NMBASE=27 DEV1=30 DEV2=31 DELIM=32 DEFALT=33 /POINTS DEFAUL EXTENS LIST LXR=34 CLXR=35 PTR=36 DATWD=7666 BATERR=7000 /JMP HERE ABORT BATCH B+&@YTMA@ f Ss ";\\Evz)F_3}@{id 6~9DoD|v {}|F{stu