PDP-10 Archive: emacs/ibm370.emacs from mit_emacs_170_teco_1220 (original) (raw)

Trailing-Edge-PDP-10 Archives-mit_emacs_170_teco_1220- emacs/ibm370.emacs

There are no other files named ibm370.emacs in the archive.

!* -- TECO -- Library created by KMP@MC !

!Filename:! !Macros for editting IBM/370 assembler! IBM370

!IBM370 Mode:! !S Mode for making IBM/370 tolerable Makes space tab to tab stop, stopping at columns 10, 16, 35, and then spacing. Space is put on tab in case it is needed. * reads a comment in echo area and then inserts it (hence, *'d lines can contain spaces without space macro running). The comment is inserted before the current line and leaves cursor before the next line.!

M(M.M &Init_Buffer_Locals) !* Init local stuff ! 200.+@fs^RInitm.q !* Rubout hacks tabs ! @fs^RInitm.q. !* C-Rubout doesn't hack tabs ! m.m^R_IBM370_Commentm.q ! * enters comment field ! m.m^R_Tab_to_Tab_Stopm.q_ !* Space tabs ! m.m^R_IBM370_Spacem.q  !* Tab spaces ! 1,2 m.lDisplay_Matching_Paren !* Make local paren matching happen ! 1,0 m.lPermit_UnMatched_Paren !* Disallow unmatched parens ! 1,(:i*_::_______________:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::)m.lTab_Stop_Definitions 1M(M.M&_Set_Mode_Line)IBM/370  !* Set mode line !

!^R IBM370 Space:! !^R Insert arg spaces!

.,(,_i.) !* Insert them and return !

!^R IBM370 Comment:! !^R Insert a comment!

1,fComment:_[1 !* Read comment in echo area ! fq1"l0' !* Return if over-rubout ! 0l .,( i*_ g1 i  .) !* Get comment into buffer !