.TITLE PHOTBL - PHONE TABLES .IDENT /1.0/ .ENABL LC ;+ ; ; Free software BY ; Project Software & Development, Inc. ; ; This software is furnished for free and may be used and copied as ; desired. This software or any other copies thereof may be provided or ; otherwise made available to any other person. No title to and ; ownership of the software is hereby transferred or allowed. ; ; The information in this software is subject to change without notice ; and should not be construed as a commitment by PROJECT SOFTWARE ; AND DEVELOPMENT, INC. ; ; PROJECT SOFTWARE assumes no responsibility for the use or reliability ; of this software on any equipment whatsoever. ; ; Project Software & Development, Inc. ; 14 Story St. ; Cambridge, Ma. 02138 ; 617-661-1444 ; ; ; Title: PHOTBL.MAC ; Author: Robin Miller ; Date: August 23, 1982 ; ; Description: ; ; This module contains the terminal entrys for the PHONE utility. ; ; Modification History: ; ;- .ENABL AMA .NLIST BEX .SBTTL OUTPUT TABLES ; This table is used to keep track of characters to the local ; and phoned terminals when talking. Currently only 2 terminals. ; Offsets into table: O.FLAG == 0 ; FLAG WORD O.INIT == 2 ; INITIAL LINE NUMBER O.MAX == 4 ; MAXIMUM LINE NUMBER O.LINE == 6 ; CURRENT LINE NUMBER O.COL == 10 ; CURRENT COLUMN NUMBER O.CHAR == 12 ; INPUT CHARACTER STORAGE O.HEAD == 14 ; BUFFER HEADER LINK WORD O.TAIL == 16 ; BUFFER TAIL LINK WORD O.BUFF == 20 ; CURRENT BUFFER ADDRESS O.BMAX == 22 ; MAX # OF BUFFERS TO QUEUE O.BCNT == 23 ; NUMBER OF BUFFERS QUEUED O.TNUM == 24 ; BINARY TERMINAL NUMBER O.TASK == 26 ; RADIX-50 TASK NAME (2 WORDS) STATUS::.WORD B.STRT!B.SCR ; PHONE STATUS WORD ; Table of possible terminals to phone. TENTRY::.WORD TITBL ; LOCAL TERMINAL ENTRY .WORD TOTBL ; PHONED TERMINAL ENTRY .WORD -1 ; END OF TABLE ENTRIES TITBL:: .WORD B.SCR ; FLAG WORD = SCROLL ENABLED .WORD 6. ; INITIAL LINE NUMBER .WORD 13. ; MAXIMUM LINE NUMBER .WORD 6. ; CURRENT LINE NUMBER .WORD 1 ; CURRENT COLUMN NUMBER .WORD 0 ; INPUT CHARACTER STORAGE .WORD 0 ; BUFFER HEADER LINK WORD .WORD TITBL+O.HEAD ; BUFFER TAIL LINK WORD .WORD 0 ; CURRENT BUFFER ADDRESS .BYTE 10. ; MAX # OF BUFFERS TO QUEUE .BYTE 0 ; NUMBER OF BUFFERS QUEUED .WORD 0 ; BINARY TERMINAL NUMBER .BLKW 2 ; RADIX-50 TASK NAME TOTBL:: .WORD B.SCR ; FLAG WORD = SCROLL ENABLED .WORD 16. ; INITIAL LINE NUMBER .WORD 23. ; MAXIMUM LINE NUMBER .WORD 16. ; CURRENT LINE NUMBER .WORD 1 ; CURRENT COLUMN NUMBER .WORD 0 ; INPUT CHARACTER STORAGE .WORD 0 ; BUFFER HEADER LINK WORD .WORD TOTBL+O.HEAD ; BUFFER TAIL LINK WORD .WORD 0 ; CURRENT BUFFER ADDRESS .BYTE 10. ; MAX # OF BUFFERS TO QUEUE .BYTE 0 ; NUMBER OF BUFFERS QUEUED .WORD 0 ; BINARY TERMINAL NUMBER .BLKW 2 ; RADIX-50 TASK NAME .END