.title iasfix .list meb ; file containing fixes to VTL to make it work correctly under ; reese ias ; ; F. borger Sep 20, 1985 ; ; .mcall qiow$, dir$ OUTLUN=5 ;don't use 6 you dummy OUTEFN=5 ESC=33 ; IASSET::dir$ #getall ;get all characteristics dir$ #setcha ;set the ones we change dir$ #setsw ;set sw10 characteristics rts pc ; ; IASRES::dir$ #setall ;reset all characteristics dir$ #detach ;detach terminal rts pc ; ; SETBF: .BYTE TC.ESQ,1 ; ENABLE ESCAPE SEQUENCES .BYTE TC.ANS,1 ;MUST BE ANSII ON IAS **HWG** SETBL = .-SETBF .EVEN ; ; SVT100: .ASCII %<% ; SET VT100 TO ANSI MODE .ASCIZ %[?7l% ;CLEAR AUTO-WRAP BIT FOR SW10**HWG** ; .ASCIZ %[c% ; VT100 GET OPTIONS PRESENT SVTLEN=.-SVT100 .even ; GBCBFR: .BLKW 16. ;TERMINAL PARAMETERS IAS **HWG** ; ; ; DIRECTIVE PARAMETER BLOCKS ; ; GETALL: QIOW$ SF.GAC,OUTLUN,OUTEFN,,TIOSB,, ;get all charac. ; ; SETALL: QIOW$ SF.SAC,OUTLUN,OUTEFN,,TIOSB,, ;set all charac. ; ; SETCHA: QIOW$ SF.SMC,OUTLUN,OUTEFN,,TIOSB,, ; SET TTY CHAR ; ; SETSW: QIOW$ IO.WVB,OUTLUN,OUTEFN,,TIOSB,, ;set vt100 .end