.TITLE ALVB02 Console Buffer Set .PSECT ALVIN,CON,GBL .Ident /LVL5 / ;;********************************************************************** ;; A L V I N B U F F E R S - S E T 2 - Console buffers. ;;********************************************************************** ;; .Globl Bufd1,Bufd2 .Globl BUF1,BUF1END,BUF2,BUF2END ;; BufD1:: .Word Buf1 ; Default buffer descriptor for console input. .Word Buf1 .Word Buf1 .Word Buf1End ;; BufD2:: .Word Buf2 ; Default buffer descriptor for console list. .Word Buf2 .Word Buf2 .Word Buf2End ;;************************** .Psect AlvBuf,Con ;; .GLOBL BUF1,BUF1END,BUF2,BUF2END ;; BUF1: .ASCII '#1 Alvin command buffer.' .=Buf1+256. ; Console input up to 256 characters. BUF1END=.-1 ;; BUF2: .ASCII '#2 Alvin command buffer.' .=Buf2+256. BUF2END=.-1 ;; .EVEN ;;*************************************************************************** .End