! * * * * * * * * * * * * * * * ! ! ! ! TECO pre-initializer ! ! !!TECO.INI V02.07!! ! ! ! ! Last edit on 9-SEP-80 by KJC ! ! ! ! * * * * * * * * * * * * * * * ! ! ! ! Functions: ! ! ! ! 1. Checks UIC to determine ! ! if module updating ! ! should be disabled ! ! Currently, the following ! ! UIC's have updating ! ! automatically disabled: ! ! ! ! UIC Value in 2EJ ! ! --- ------------ ! ! ! ! [377,*] 2EJ/256=255 ! ! [201,5] -32507 ! ! [223,10] -27896 ! ! ! ! 2. Sets bit value 4 in ED ! ! to prevent arbitrary ! ! memory expansion in ! ! the following UIC's: ! ! ! ! UIC Value in 2EJ ! ! --- ------------ ! ! ! ! [201,6] -32506 ! ! ! ! 3. Disable automatic file ! ! creation if file not ! ! found (+256 in Q1) ! ! ! ! 4. Sets Edit Search flag ! ! to 94ES ! ! ! ! 5. Convert "TEV ..." into ! ! "TEC .../VT". ! ! ! ! 6. Check for file type and ! ! use defaults if not ! ! explicitly specified. ! ! ! ! Switches: ! ! ! ! None presently ! ! ! ! * * * * * * * * * * * * * * * ! ! ! ! Q-regs passed: ! ! 0 $ This macro... ! ! 9 $ Memory file spec ! ! ! ! Q-regs used: ! ! 1 % Exit flags: ! ! +1 => Load VTEDIT ! ! +2 => Inspect only ! ! +4 => no use memory ! ! +8 => Do /FIND ! ! +16 => VTEDIT SEEALL ! ! +32 => VTEDIT HOLD ! ! +64 => Load GTEDIT ! ! +128 => Scroll mode ! ! +256 => No auto create! ! +1024 => /NOUPDATE ! ! +8192 => Write mem ! ! +16384 => Display file ! ! +32768 => Memory used ! ! ! ! * * * * * * * * * * * * * * * ! ! ! ! Save returned argument Q-reg ! ! ! [1 ! ! ! If the command is "TEV ...", ! ! then add the /VT switch. ! ! ! J ::@S%TEV%"S @FR%TEC% :@S%/VT% "U ZJ @I%/VT% ' ' ! ! ! Check for file type. Add ! ! defaults if: (1) this is a ! ! "TEC" command, (2) no type is ! ! specified, (3) a filename is ! ! specified. ! ! ! J ::@S%TE% "S :@S%.% "U J :@S% % "S [A EDUA 0ED [A .UA < ::@S%^ER% ; > .-QA "G QA,.XA EP [B .UB @^UB%FLE% :@ER%^EQA.^EQB% "S @O!TYP! ' @^UB%FTN% :@ER%^EQA.^EQB% "S @O!TYP! ' @^UB%CMD% :@ER%^EQA.^EQB% "S @O!TYP! ' @^UB%MAC% :@ER%^EQA.^EQB% "S @O!TYP! ' @^UB%RNO% :@ER%^EQA.^EQB% "S @O!TYP! ' @^UB%ODL% :@ER%^EQA.^EQB% "S @O!TYP! ' @^UB%TXT% :@ER%^EQA.^EQB% "S @O!TYP! ' @^UB%DEF% :@ER%^EQA.^EQB% "S @O!TYP! ' 0"E | !TYP! QBJ @I%.% GB 16384#Q1U1 ' ]B @ER%% ' ]A QAED ]A ' ' ' ! ! ! Set the standard defaults. ! ! ! 256#Q1U1 94ES ! ! ! Check UIC to disable module ! ! updating. ! ! ! 2EJ/256 - 255"E Q1#1024U1^[ @O%EXIT% ' 2EJ - (-32507)"E Q1#1024U1^[ @O%EXIT% ' 2EJ - (-27896)"E Q1#1024U1^[ @O%EXIT% ' 2EJ - (-32506)"E 0,4ED^[ @O%EXIT% ' ! ! ! Return the returned argument ! ! ! !EXIT! Q1 ]1