Trailing-Edge
-
PDP-10 Archives
-
BB-K840A-BM_1981
-
sources/gigi.mac
There are 2 other files named gigi.mac in the archive. Click here to see a list.
Title GIGI - Macro support routines for GIGI software
Subttl Assembly switches
Tops20=4 ; Version of monitor that we are using
Eos=0 ; End of string symbol
; Check for correct settings
Define Chklow (Switch,low) < ;
Ifl <Switch-low>,<Badsw Switch,\Switch>>
Define Badsw (Switch,Value) <
..ERR=1
Printx ?Can not support version Value of Switch
>
..ERR=0
Chklow Tops20,3
Ifn <..err>,<
Pass2 ; Abort
End>
Subttl Introduction -- Directives
Search MONSYM,MACSYM ; Standard 20 universals
.Requi SYS:MACREL ; Support code
Sall ; Nice and neat listing
.Direc .Xtabm ; Give macro a break
Comment \
GIGI is a collection of routines written to support FORTRAN
programs. Its main purpose is to provide a easy method for said
programs to pass commands to the GIGI terminal.
These routines make some assumptions as to the arguments passed and
FORTRAN conventions. They are:
o All strings end with the null byte.
o All strings are in ASCII, one char per word.
o All function calls are integer in type, and return
their value in register zero.
The following is a list of all subroutines/function defined:
INTEGER FUNCTION getln (inbuf, maxlen, ecflag)
SUBROUTINE putln (outbuf, len)
SUBROUTINE escseq (str)
SUBROUTINE ttnorm
INTEGER FUNCTION prmtgt (outbuf, len, inbuf, maxlen)
INTEGER FUNCTION ttin (ecflag)
FUNCTION ttinnw (ecflag)
SUBROUTINE escseq (str)
\
Subttl Introduction -- Table of contents
; Table of Contents for GIGI.MAC
;
; Section Page
;
; 1. Assembly switches . . . . . . . . . . . . . . . . . 1
; 2. Introduction
; 2.1 Directives . . . . . . . . . . . . . . . . 2
; 2.2 Table of Contents. . . . . . . . . . . . . 3
; 2.3 Edit History . . . . . . . . . . . . . . . 4
; 3. Definitions
; 3.1 Accumulators . . . . . . . . . . . . . . . 5
; 4. Macros
; 4.1 Jsys (Call to monitor) . . . . . . . . . . 6
; 4.2 Sbr (Subroutine definition). . . . . . . . 7
; 4.3 Fatal (Abort message). . . . . . . . . . . 8
; 5. Storage
; 5.1 Impure . . . . . . . . . . . . . . . . . . 9
; 6. Subroutines
; 6.1 Initialization of, . . . . . . . . . . . . 10
; 6.2 TTNORM (Restore user environment). . . . . 11
; 6.3 Function GETLN (Read a line) . . . . . . . 12
; 6.4 Function PRMTGT (prompt then get line) . . 13
; 6.5 Function TTIN (Get a character). . . . . . 14
; 6.6 Function TTINW (get character if availabl. 15
; 6.7 PUTLN (Print a line) . . . . . . . . . . . 16
; 6.8 ESCSEQ (Send an escape sequence) . . . . . 17
; 6.9 Exit from, . . . . . . . . . . . . . . . . 18
; 7. Support
; 7.1 Echo on and off. . . . . . . . . . . . . . 19
; 8. End of source . . . . . . . . . . . . . . . . . . . 20
Subttl Introduction -- Edit History
Comment \
Edit # Date Description
------ ------- ---------------------------------------------------
100 26 Aug 80 Creation of program
\
Subttl Definitions -- Accumulators
; Registers
FV=0 ; Return the value of the function here
A=1
B=2
C=3
D=4
E=5
W1=6
W2=7
W3=10
T1=11 ; Work register for subroutines
T2=12
CX=14
.SAC=15 ; Super scratch register
ARG=16
P=17
Subttl Macros -- Jsys (Call to monitor)
; Version 4 of the monitor appends a percent sign after the JSYS name
; thus to be compatible with older version do: JSYS (Foo) instead of
; foo
Define JSYS (foo,erradr<Jshlt0##>) <
Ife <tops20-4>,<foo'%>
Ife <Tops20-3>,<foo>
Erjmp erradr
>
Subttl Macros -- Sbr (Subroutine definition)
Define Sbr (Nam) <
Entry Nam
Nam:
Movem P,Svp ; Save stack pointer
Hlre W1,-1(Arg) ; Get number of arguments passed
Movms W1 ; ...
Movem W1,Argcnt ; ...
Skipn Init ; Have we inited?
Call Initit ; Nope
>
Subttl Macros -- Fatal (Abort message)
Define Fatal ($Str) <
Jrst [Tmsg (<$Str
>)
Haltf]
>
Subttl Storage -- Impure
Svp: Block 1 ; State of stack at call
Argcnt: Block 1 ; Number of arguments passed
Erradr: Block 1 ; Points to error code addr
Prompt: Block 15 ; Buffer for a prompt
IJFNP: EXP IJFNST-1 ; Points to current input JFN
EXP -1 ; Delimit list
IJFNST: BLOCK 17 ; Should be a good size
EXP 01 ; qed
Init: Exp 0 ; Initialized flag
; Parameters saved at init time
TTMODE: BLOCK 1 ; Terminal mode word
CCOC: BLOCK 2 ; Control Character Output Control
; TEXTI parameter block
TEXTPB: EXP 6 ;;.RDCWB;; Count of words
BLOCK 1 ;;.RDFLG;; Flag bits
.PRIIN,,.PRIOU ;;.RDIOJ;; Input output devices
BLOCK 1 ;;.RDDBP;; Output buffer
BLOCK 1 ;;.RDDBC;; Bytes in output buffer
BLOCK 1
BLOCK 1 ;;.RDRTY;; CNTR-R buffer
Subttl Subroutines -- Initialization of,
; This is a one time init. It saves modes that we change.
ENTRY INITIT
INITIT: SETOM INIT ; Tell rest of world
MOVEI A,.PRIIN ; Get the JFN mode word
JSYS (RFMOD)
MOVEM B,TTMODE
JSYS (RFCOC) ; Get CCOC words
DMOVEM B,CCOC
; Now let's setup things as we wish them to be
MOVE B,TTMODE
TXO B,TT%MFF!TT%TAB!TT%LCA!TT%PGM
TXZ B,TT%LEN!TT%WID!TT%UOC!TT%LIC
JSYS (STPAR)
JSYS (SFMOD)
MOVE B,[BYTE (2)2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
MOVE C,B
JSYS (SFCOC)
RET
SUBTTL Subroutines -- TTNORM (Restore user environment)
; Subroutine restore
;
; This routine will restore everything (i.e. that we have control
; over) that we have changed. The initial state of the environment is
; saved in INITIT.
SBR TTNORM
MOVEI A,.PRIOU
MOVE B,TTMODE
JSYS (SFMOD)
JSYS (STPAR)
DMOVE B,CCOC
JSYS (SFCOC)
RET
Subttl Subroutines -- Function GETLN (Read a line)
; INTEGER FUNCTION getln (inbuf, maxlen, ecflag, {ucflag})
;
; Read a line from the terminal. If ecflag is 1 echo input.
; Returns the number of character inputted as the function's
; value. If there is a forth argument, then if it is non zero
; convert all input to upper case. Otherwise pass the case the
; user typed in.
SBR GETLN
SKIPE W1,@2(ARG) ; Get state of echo flag
CALL ECHON ; q.e.d.
SKIPN W1
CALL ECHOFF
MOVE W1,0(ARG) ; Get address of buffer
HRLI W1,(POINT 36,) ; Make it a pointer
MOVEM W1,TEXTPB+.RDDBP
MOVE W1,@1(ARG) ; Get buffer max
MOVEM W1,TEXTPB+.RDDBC
MOVX W1,RD%BEL!RD%CRF!RD%JFN
MOVE T1,ARGCNT ; Get # of arguments
CAIL T1,4 ; If four or more then we have upper case flag
JRST [SKIPE @3(ARG)
TXO W1,RD%RAI
JRST GETLN1]
GETLN1: MOVEM W1,TEXTPB+.RDFLG ; Break on CRLF of LF only, and return
; just a LF
MOVEI A,TEXTPB
TEXTI ; Do the input
JFCL
MOVE FV,@1(ARG) ; Get buffer size
SUB FV,TEXTPB+.RDDBC ; Subtract bytes remaining, giving
SOS FV, ; number of characters read
MOVEI CX,EOS ; Get end of string delimiter
DPB CX,TEXTPB+.RDDBP
RET
Subttl Subroutines -- Function PRMTGT (prompt then get line)
; Integer function prmtgt (prompt, len, inbuf, maxlen)
; This entry takes advantage that some operating systems allow a
; terminal input request to be specified at the same time as the
; appropriate prompt message. The main advantage is that certain kinds
; of line editing, e.g., line deletetion, can then result in a
; reissuing of the prompt.
; This call is otherwise functionally equivalent to a call to putln
; followed by a call to to getln, with the obvios correspondence
; between arguments. Input characters are always echoed.
SBR PRMTGT
CALL ECHON
MOVE A,0(ARG) ; Get address of prompt
HRLI A,(POINT 36,)
HRROI B,PROMPT ; Destination
MOVEM B,TEXTPB+.RDRTY
MOVN C,@1(ARG)
JSYS (SIN)
SETZ C,
IDPB C,B ; Put in the null byte
HRROI A,PROMPT ; Print the prompt
JSYS (PSOUT)
MOVE W1,2(ARG) ; Get address of buffer
HRLI W1,(POINT 36,)
MOVEM W1,TEXTPB+.RDDBP
MOVE W1,@3(ARG) ; Get buffer max
MOVEM W1,TEXTPB+.RDDBC
MOVX W1,RD%BEL!RD%CRF!RD%JFN
MOVEM W1,TEXTPB+.RDFLG ; Break on CRLF of LF only, and return
; just a LF
MOVEI A,TEXTPB
TEXTI ; Do the input
JFCL
MOVE FV,@3(ARG) ; Get buffer size
SUB FV,TEXTPB+.RDDBC ; Subtract bytes remaining, giving
SOS FV, ; number of characters read
MOVEI CX,EOS ; Get end of string delimiter
DPB CX,TEXTPB+.RDDBP
RET
Subttl Subroutines -- Function TTIN (Get a character)
; Function TTIN (ecflag)
;
; This function returns the ASCII code for the next character
; available from the terminal. That character is returned as soon as
; it is typed; this method of input is not suitable if normal
; line-editing functions are desired. If no character is available,
; the program will be hung until one is obtained. If integer value
; "ecflag" is zero, the character is not echoed to the user.
SBR TTIN
TTIN01: SKIPE W1,@0(ARG) ; Get state of echo flag
CALL ECHON ; q.e.d.
SKIPN W1
CALL ECHOFF
JSYS (PBIN) ; Get a character
MOVE FV,A ; Return it to caller
RET
Subttl Subroutines -- Function TTINW (get character if available)
; Integer Function TTINNW (ecflag)
; This function tests to see if a character is available from the
; terminal. If no character is available it returns a zero. Otherwise
; it will return the ASCII value of the character.
SBR TTINNW
MOVEI A,.PRIIN ; Test if character is waiting
SIBE ; Empty?
JRST TTIN01 ; Nope get it
SETZ FV, ; Return zero
RET
Subttl Subroutines -- PUTLN (Print a line)
; SUBROUTINE putln (outbuf, len)
;
; Putln will output the buffer onto the primary output device.
; Note that there is no auto-wrap or character translation setup.
;
SBR PUTLN
MOVEI A,.PRIOU
MOVE B,0(ARG) ; Get address of output buffer
HRLI B,(POINT 36,)
MOVN C,@1(ARG) ; Number of bytes to output
JSYS (SOUT)
RET
Subttl Subroutines -- ESCSEQ (Send an escape sequence)
; SUBROUTINE escseq (str)
;
; This will transmit the escape character, and tehn transmit the contents
; of string "str" (which is presumed to be an escape sequence).
;
SBR ESCSEQ
MOVEI A,.CHESC ; Output an escape character
JSYS (PBOUT)
MOVEI A,.PRIOU
MOVE B,0(ARG) ; Get address of output buffer
HRLI B,(POINT 36,)
SETZ C, ; Assume it ends with a null
JSYS (SOUT)
RET
Subttl Subroutines -- FILEIN (Read an ascii record)
; Integer function FILEIN (inbuff, maxlen, eof)
;
; Read an ASCII record, returning the CRLF if maxlen not exceeded. If EOF
; is reached the argument eof becomes non-zero and the file is closed.
SBR FILEIN
SKIPGE A,@IJFNP ; Get the current input JFN
Fatal <There is no input file open>
MOVE B,0(ARG) ; Get address of buffer
HRLI B,(POINT 36,) ; Make it a pointer
MOVE C,@1(ARG) ; Get negative max bytes to read
MOVEI D,.CHLFD ; Stomp on this character
SIN
ERJMP CHKEOF ; Hummm??
JRST ASC10
; Check for EOF, if not blow up
CHKEOF: MOVEI A,.FHSLF ; Get the error
GETER
TXZ B,-1B17 ; Just the error
CAIE B,IOX4 ; EOF condition?
JSHLT ; Surrender
MOVE A,IJFNP
CLOSF ; Close file
JFCL
SOS IJFNP ; Adjust pointer
SETOM @2(ARG) ; Tell caller 'bout EOF
; Return number of bytes read
ASC10:
MOVE FV,@1(ARG) ; Get buffer size
SUB FV,C
RET
Subttl Subroutines -- FILEOP (Open an ascii file)
; Integer function FILEOP (filename)
;
; Opens a file for input. This file may then be read by FILEIN. If an error
; is encountered while trying to open the file, the monitor error code is
; returned to the caller otherwise zero is.
SBR FILEOP
AOS IJFNP ; Push current file (if any)
SKIPGE @IJFNP ; Too many files?
Fatal <Too many files pushed>
MOVX A,GJ%SHT+GJ%OLD
MOVE B,0(ARG) ; Get address of file name
HRLI B,(POINT 36,) ; Make it a pointer
GTJFN
ERJMP OPERR ; Giver error to caller
MOVEM A,@IJFNP
MOVX B,OF%RD+<FLD (7,OF%BSZ)>
OPENF ; Open file file ASCII input
ERJMP OPERR
SETZ FV, ; Successful
RET
; Give error back to caller
OPERR: MOVEI A,.FHSLF
GETER
HRRZ FV,B
RET
Subttl Subroutines -- Exit from,
Xit: Move P,Svp ; Restore stack
Ret ; Return to caller
Subttl Support -- Echo on and off
ECHON: MOVEI A,.PRIIN ; Get current echo state
JSYS RFMOD
TXOE B,TT%ECO ; Is echo on?
RET ; Yes...No need to do anything
JSYS SFMOD ; Turn echo back on
RET
ECHOFF: MOVEI A,.PRIIN ; Get current echo state
JSYS RFMOD
TXZN B,TT%ECO ; Is echo off?
RET ; Yes
JSYS SFMOD
RET
Subttl End of source
End