| 123456789101112131415161718192021222324 |
- % JSYS call to get dimensions of "TTY" screen.
- % Written by M. L. Griss. Modifications by William Galway.
- % **** SubField should be included as part of the JSYS system? ****
- % Return a subfield from a "word". (Bit 0 is leftmost on DEC-20.)
- % (FieldSize might be better?)
- (DM SubField (args)
- `(Land ,(indx args 3)
- (LSH ,(indx args 1)
- (difference ,(indx args 2)
- 35))))
- % Return JFN mode word for terminal.
- (DE TTyWord ()
- (JSYS2 8#101 0 0 0 8#107)) % jsRFMOD
- % Return system's idea of the terminal's "page length".
- (DE PageLength ()
- (SubField (TTyWord) 10 8#177))
- (DE PageWidth ()
- (SubField (TTyWord) 17 8#177))
|
