home *** CD-ROM | disk | FTP | other *** search
- ;=============================================================================
- ;
- ; P E E P C O M M A N D
- ;
- ;============================================================================
-
- ; +++++++ NOT an official RCP segment for Z33RCP.Z80
- ; This is a hacker's module intended to work with Z33RCP.
-
- ; Command: PEEP
- ; Function: Text File Browser and Lister
- ; Comments: The CRT protocol has to be hard coded into this module.
- ; If the TCAP were used, PEEP would not be practical.
- ; PEEPSECURE equate determines where the file is loaded.
- ; Author: Rob Friefeld, 4607 Colorado St., Long Beach, CA 213-434-7338
- ; Date: 23 Aug 1987 Version 1.0
-
- ;----------------------------------------------------------------------------
- ; Usage: Hands rest on the home row of keys. Left hand moves ahead
- ; through text, right hand moves back.
- ; ---
- ; Go To Marker | 0 |
- ; ---
- ; Read More Init Set Print
- ; (if memory full) Printer Marker (from mark)
- ; --- --- --- ---
- ; | R | | I | | O | | P |
- ; --- --- --- ---
- ; --- --- --- --- --- --- --- --- --- ---
- ; | A | | S | | D | | F | | G | | H | | J | | K | | L | | ; |
- ; --- --- --- --- --- --- --- --- --- ---
- ; End Scan Next Next Find Rpt Prev Prev R/Scan Top
- ; Screen Line Screen Find Screen Line Screen
- ;
- ;
- ; X - Exit <sp> - Hop 10 lines <cr> - Next Screen (F) </,?> - File Name
- ;----------------------------------------------------------------------------
-
- The text movement commands should be self-demonstrating. I hope with a
- minute or two practice, they become easy enough to use.
-
- If the entire file will not fit in memory, a message is printed. The 'R'
- command will then read in the next TPA sized chunk of the file with one
- screen of overlap. If there is no more to be read, you can start over at
- the beginning.
-
- The 'O' command sets a place marker to the top of the current screen. You can
- return to it with a '0'. The marker is also used as the start of the block
- to be listed with the 'P' command. The end of the block is the bottom of the
- current screen. A prompt will ask if you really want to do a listing to
- 1) give you a chance to recover from an accidental key strike, 2) make sure
- the printer is on, 3) think one last time about where the marker is: it
- is initialized to the start of the text. A printer initialization string
- can be installed if desired.
-
- Sorry about not using the TCAP video. Aside from the problem of no "insert
- line" sequence, the access routines would make PEEP unwieldy. (Since I only
- have one terminal, I prefer to customize the routine rather than do without.)
-
- The CRT requirements are:
-
- COMMAND DEFAULT
- ------- -------
- CLS 1A
- EREOL ESC,'T'
- GOTOXY ESC,'=',row+32,col+32
- INSERT LINE ESC,'E'
- HOME CURSOR 1E
- STAND OUT ESC,')' ;optional
- STAND END ESC,'(' ;optional
-
- The source file contains instructions for setting up the video sequences.
-
- ;
- ; PEEP EQUATES
- ;
-
- PEEPGO EQU NO ; Insert jump instruction to PEEP at 100h
-
- The text is normally read into the TPA at 100h. If an object file were
- read, (the display would be garbage), one could exit and execute the file
- with a GO command. If there is some reason to avoid this possibility,
- PEEPGO EQU YES inserts a jump instruction to the PEEP code in the RCP
- and then reads the text to 103h and above. So a GO will only restart PEEP.
-
-
- END PEEP.DOCtion to the PEEP code in the RCP
- and then reads the