.TITLE ALVB06 Alvin Six-pack of Buffers .PSECT ALVIN,CON,GBL .Ident /LVL5 6/ ;;********************************************************************** ;; A L V I N B U F F E R S - S E T 6 - MULTIPLE BUFFERS: ;;********************************************************************** ;; .Globl Bufd1,Bufd2,Bufd3,Bufd4,Bufd5,Bufd6 .GLOBL BUF1,BUF1END,BUF2,BUF2END,BUF3,BUF3END,BUF4,BUF4END .Globl Buf5, Buf5end, Buf6, Buf6End ;; ;;********** BUFFER DESCRIPTORS: ;; ALVBSZ==256. ; Size of each buffer, in bytes. ;; BufD1: .Word Buf1 ;Buffer descriptor of the console input. .Word Buf1 .Word Buf1 .Word Buf1End ;; BufD2: .Word Buf2 ;Buffer descriptor for remote (typically) .Word Buf2 .Word Buf2 .Word Buf2End ;; BufD3: .Word Buf3 ;Buffer descriptor for third buffer. .Word Buf3 .Word Buf3 .Word Buf3End ;; BufD4: .Word Buf4 ;Buffer descriptor for the fourth buffer. .Word Buf4 .Word Buf4 .Word Buf4End ;; BufD5: .Word Buf5 ;Buffer descriptor for the fifth buffer. .Word Buf5 .Word Buf5 .Word Buf5End ;; BufD6: .Word Buf6 ;Buffer descriptor for the sixth buffer. .Word Buf6 .Word Buf6 .Word Buf6End ;;****************************************************************** .Psect AlvBuf,Con ;; ;; ALVIN BUFFERS ARE ASSUMED TO BE AT THE END OF THE ALVIN REGION. ;; .GLOBL BUF1,BUF1END,BUF2,BUF2END,BUF3,BUF3END,BUF4,BUF4END .GLOBL BUF5,BUF5END ;; BUF1: .ASCII 'THIS IS THE ALVIN COMMAND BUFFER #1' .=Buf1+AlvbSZ-2 .EVEN BUF1END: .WORD 0 ;; BUF2: .ASCII 'THIS IS AN ALVIN REMOTE INPUT BUFFER' .=Buf2+AlvbSZ-2 .EVEN BUF2END: .WORD 0 ;; BUF3: .ASCII 'THIS IS ALVIN COMMAND BUFFER 2' .=Buf3+AlvbSZ-2 .EVEN BUF3END: .WORD 0 ;; BUF4: .ASCII 'THIS IS ALVIN COMMAND BUFFER 3' .=Buf4+AlvbSZ-2 .EVEN BUF4END: .WORD 0 ;; BUF5: .ASCII 'THIS IS AN ALVIN REMOTE INPUT BUFFER' .=Buf5+AlvbSZ-2 .EVEN BUF5END: .WORD 0 ;; BUF6: .ASCII 'THIS IS AN ALVIN REMOTE INPUT BUFFER' .=Buf6+AlvbSZ-2 .EVEN BUF6END: .WORD 0 ;;********************************************************************** ;; .END