<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">; NEW05.ASM - Displays KMD.LOG in reverse order - 05/04/86
;
;			    NEW.ASM
;			       by
;			  Irvin M. Hoff
;	     copyrighted for use with public domain
;			 (17 July 1985)
;
	ASEG			; For M80 and RMAC, ignore if using MAC
;
;
; This program is really two-in-one.  It is for use with RCPM systems
; having a KMD.LOG of all file transfers created by the KMD file pgm.
;
;    Program 1 = shows the KMD.LOG in reverse order, newest first
;    Program 2 = shows only uploads in reverse, ignoring downloads
;
;=======================================================================
;		              Revisions
;
; 05/10/86  Sorry for another release, but an error came up when the
;    v06    file got to big.  Now it will be able to read up to
;           65000, 128 byte records.  I tested it on at 130+k file and
;           it work fine.
;	                       Joubert Berger
;
; 05/04/86  Rewrote the entire read file section so it would read the
;    v05    the file backwards.  Now, there is no more wait while it
;           reads the entire file into memory.  On most RCPM's, users
;           only read the first few enteries anyway, so why bother
;           reading the entire file.  This was quit anoying.  So now it
;           will read the file one line at a time, backwards, and display
;           it like it is supposed to.  At the lable FILE: put in whatever
;	    your up/download log file is called.
;
;           It struck me that one could use this program to read the
;           CALLER file of BBS systems.  This has come in handy many times
;           when I wanted to see who has called latley, and not have to
;           use TYPE or WS.  I renamed it to CALL.COM and changed the file
;	    name at the lable FILE: to whatever my BBS caller file was called.
;	    I set all options to zero and it worked great....
;						Joubert Bergere
;						Atlanta Kaypro MBBS
;						(404) 923-258 [300/1200]
;
; 08/20/85  Redated for use with KMD04	- Irv Hoff
; 07/17/85  Original version for KMDxx	- Irv Hoff
;
;=======================================================================
;
; SHOWAL set to 0 - gives Program 1
; ---------------------------------
; When the SHOWAL option is set to "0", all files in the KMD.LOG are
; shown in reverse order.  This is particularly useful to SYSOPs to see
; who has most recently uploaded/downloaded any files and what they are.
; It can be placed in A15: with other private .COM files or A0: for all
; to use, if desired.  Call this program ALL.COM for easy reference.
;
; SHOWAL set to 1, gives Program 2
; --------------------------------
; This program displays the "R" (new files) entries entered by KMD.COM
; into the KMD.LOG file, in inverse order.  It replaces the WHATSNEW
; files used in the past for RCPM systems.  (If the wheel byte is set
; for the SYSOP's use, it includes any "P" private uploads.  These are
; shown with an "*" after the drive/user number.)  This program is de-
; signed to work with KMD.COM.	It may need to be customized slightly,
; depending on how your LASTCALR file is arranged.  It goes in the A0:
; area and can be called from any drive/user area.  It is essentially
; self-maintaining, which makes it quite different from WHATSNEW pro-
; grams previously used (made via D-29), etc.  It is 1k long and fully
; secure.  (Change equates below if your KMD.LOG isn't in A14: area.)
;
;	NOTE:  You can use DDT to set the following byte:
;
;		0103H 00 program 1, shows all file transfers
;		      01 program 2, uploads only, for NEW.
;
;		Then  A&gt;SAVE 5 NEW.COM
;
;		Suggestion:  Make one of each, call one ALL.COM
;		ahd put it on A15: for easy use by the SYSOP and
;		the other NEW.COM and put on A0: for all to use.
;
;-----------------------------------------------------------------------
;
; INFO:
; ----
;	A companion program currently called KMDEL automatically
;	deletes all downloaded files from KMD.LOG, keeping the
;	uploads for NEW.  This minimimizes the length of the KMD.LOG
;	file, since "most" of the lines are for downloads.  The com-
;	bination of NEW and KMDEL make the entire new file display
;	almost fully self-maintaining.
;
;-----------------------------------------------------------------------
;
; OPTIONS:
; -------
;    SHOWAL  0 = Shows all files in the KMD.LOG in reverse manner
;		    Makes this into a second program, see below
;	     1 = Allows options above to work normally
;
;    OPTION  0 = No header, shows "R" lines of KMD.LOG "as is".
;	     1 = Header, uses example 1 below  (OxGate 001 system)
;	     2 = Header, uses example 2 below  (Potpourri system)
;
;    HEADER  0 = No header, regardless of option below
;	     1 = use header selected by option below
;
;---------------
;
; Example 0:  (no header, no changes, before and after the same.  Picks
;	      out the "R" lines from the KMD.LOG and displays in re-
;	      verse order (newest uploads, first).
;
;---------------
;
; Example 1:  OxGate 001
;
;		(before)
;
; R6 02:22 B00&gt;M7DATA-1LBR		26k Irv Hoff 08/20/85
;
;		(after)
;
; D/U	 Filename   Size   Speed    Uploaded by
;
; B00: M7DATA-1.LBR  26k  1200 bps  Irv Hoff 08/20/85
;
;---------------
;
; Example 2:  Potpourri
;
;		(before)
;
; R6 02:22 B00&gt;M7DATA-1LBR		26k 08/20/85 16:44 Irv Hoff
;
;		(after)
;
; D/U	 Filename   Size   Speed      Date    Time   Uploaded by
;
; B00: M7DATA-1.LBR  26k  1200 bps  08/20/85  16:44  Irv Hoff
;
;-----------------------------------------------------------------------
;
; Features:
; ---------
;	1) Should be placed in A0: so any user can call the program
;	2) Should be renamed to NEW.COM at that time
;	3) Automatically remembers current drive/user area
;	4) Jumps to A14: to read the KMD.LOG file, with full security
;	5) Opens the KMD.LOG file, if empty says "NO NEW FILES"
;	6) Copies each line starting with "R" into a one-line buffer
;	7) Customizes that line, if OPTION 1 or 2 is selected
;	8) Stores the line in a memory buffer
;	9) When all lines are read, displays them in inverse order,
;		thus showing most recent files first.
;      10) CTL-C, CTL-K, CTL-X, C, K, X, c, k, x all will abort after
;		finishing the current line.
;      11) Can be called from any drive/user area
;      12) Returns to original drive/user area from which it was called
;
; The SYSOP can readily customize this program to suit his preferences.
; The area around HEAD: would be the sections to customize if
; selection 1 or 2 is not sufficient.
;					- Notes by Irv Hoff W6FFC
;
;-----------------------------------------------------------------------
;
; 07/17/85  First version based on my WHATSNEW, version 03.
;					- Irv Hoff
;
;-----------------------------------------------------------------------
;
; User choices
;
SHOWAL	EQU	1		; 0=all file transfers, 1=uploads only
OPTION	EQU	2		; Must be 0, 1 or 2 (see above)
HEADER	EQU	1		; 0=no header, regardless of option
;
DRIVE	EQU	'A'		; KMD.LOG stored here in your system
USER	EQU	14		; KMD.LOG stored here in your system
;
WHEEL	EQU	003EH		; Location of wheel byte for RCPM use
;-----------------------------------------------------------------------
;
; Equates
;
CR	EQU	0DH		; Carriage return
EOF	EQU	1AH		; End of file - ^Z
LF	EQU	0AH		; Line feed
TBUF	EQU	0080H		; Default buffer address
;
;-----------------------------------------------------------------------
;
; BDOS equates
;
BDOS	EQU	0005H		; CP/M BDOS entry address
RDCON	EQU	1		; Get character from console
WRCON	EQU	2		; Write character to console
PRINT	EQU	9		; Print string (DE) until '$'
CONST	EQU	11		; Get console status function
SELDSK	EQU	14		; Select requested disk drive
OPEN	EQU	15		; Open disk file
CLOSE	EQU	16		; Close disk file
READ	EQU	33		; Read random file
STDMA	EQU	26		; Set DMA address
SETUSR	EQU	32		; Set user area on disk
;
;-----------------------------------------------------------------------
;
; Program starts here
;
;
	ORG	100H
;
	JMP	START
;
;
SHOL:	DB	SHOWAL		; Shows complete KMD.LOG in reverse
OPTN:	DB	OPTION		; Simple selection without assembling
HDR:	DB	HEADER		; Selects header option
;
;
START:	LXI	H,0
	DAD	SP		; Get 'CCP' stack
	SHLD	STACK		; Save it for exit
	LXI	SP,STACK	; Set stack pointer
;
	LDA	0004H		; Get current drive/user
	STA	DRUSER		; Store
;
;
; Set drive/user to the KMD.LOG area listed above
;
	MVI	E,USER		; Set user to KMD.LOG area
	MVI	C,SETUSR
	CALL	BDOS
;
	MVI	A,DRIVE		; Set drive to KMD.LOG area
	SUI	41H
	MOV	E,A
	MVI	C,SELDSK
	CALL	BDOS
;
;
; Open source file
;
	CALL	ILPRT
	DB	CR,LF,0
	LXI	D,FILE
	MVI	C,OPEN
	CALL	BDOS
	INR	A		; Check for no open
	JZ	NONE		; No file, exit
;
	CALL	ILPRT
	DB	'NEW Type ^S to pause, ^C, ^X or ^K to abort'
	DB	CR,LF,LF,0
;
	LXI	D,FILE
	MVI	C,35		; Determine end-of-file
	CALL	BDOS
	LXI	D,BUFFER+81	; Stick a CR so it will get by the first time
	MVI	A,CR
	STAX	D		; Save it now
	DCR	E
	CALL	HEAD
;
READX:	PUSH	D
	LXI	H,RECORD	; Decrement record counter
	MOV	E,M		; Get 16 bit number into DE
	INX	H
	MOV	D,M
	DCX	D		; Now that we have the number, decrement
	MOV	M,D		; And now store it again
	DCX	H
	MOV	M,E
	MOV	A,E		; Now lets see if we are at the end
	CPI	0FFH		; First check high #
	JNZ	READLP		; Ok, go on - else,, check low number
	MOV	A,D
	CPI	0FFH		; One past zero, so we can get the last record
	JZ	TDONE		; We are at the end, so now finished with job
;
;
; Read sector from source file
;
READLP: LXI	D,TBUF		; Set the DMA for our read
	MVI	C,STDMA
 	CALL	BDOS		; And do it now
;
	LXI	D,FILE		; Now read the record
	MVI	C,READ
	CALL	BDOS
	POP	D		; Restore register
;
	ORA	A		; Read ok?
	JZ	GOAHEAD		; Yes, procede
	CALL	EXIT
	DB	CR,LF,'++ SOURCE FILE READ ERROR ++','$'
;
GOAHEAD:LXI	H,TBUF+127	; Set up end of buffer
	MVI	B,128		; The buffer will be filed up backwards
ONEMORE:MOV	A,M		; Get character
	ANI	7FH
	CPI	LF		; Check for end of line -- LF is our marker
	JZ	WRDISK		;  that we will use to determine each line
	CPI	7FH
	JZ	NEXTONE
	CPI	1AH		; Check for CTRL-Z, end-of-file marker
	JZ	NEXTONE
	XCHG
	MOV	M,A		; Store character in our working buffer
	XCHG
	DCR	E		; Decrement counters (DE=work buffer)
NEXTONE:DCR	L		;              (HL=DMA)
	DCR	B		;              (B=Counter for number of char.)
	JZ	READX		; If zero, go read another record
	JMP	ONEMORE
;
; Write sector to output file (with buffering)
;
WRDISK:	DCR	B		; Decrement our counter
	PUSH	PSW		; As well as the flags
	DCR	L		; Decrement our DMA buffer
	PUSH	H		; Save it
	PUSH	B		; Save counter
	XCHG			; HL will now be our working buffer
	MOV	M,A		; Go save CR
	LDA	SHOL		; Check options
	ORA	A
	JZ	WRDLOP		; If show all, go show all now
	INR	L		; If not, go see if it is a uploaded file
	MOV	A,M
	STA	STORE2		; Store this away for later
	DCR	L
	CPI	'S'		; Was this a "Send" file
	JZ	SENDX		; Yes, so go on
	CPI	'L'		; A "Library" file
	JZ	SENDX		; Yes, so go on
	LDA	WHEEL		; Check wheel for private files
	ORA	A
	JNZ	WRDLOP		; Ok, cheeck if it was a private file
	LDA	STORE2
	CPI	'P'		; It was Private, and wheel was not set, 
	JZ	SENDX		; So goodbye
;
WRDLOP:	MOV	A,M		; Get byte from read buffer
	MOV	B,A		; Save the character for now
	CPI	CR
	JZ	SENDLF		; Go send a CR and start all over again
	CPI	LF		; If LF then just send it to output
	JZ	SEND
;
; Will show entire KMD.LOG in reverse if requested
;
 	LDA	SHOL		; Check to see if show entire file
	ORA	A
	JZ	SEND
	LDA	COLUMN		; See if in first column
	ORA	A
	JNZ	WRDL3		; If not, exit
	INR	A
	STA	COLUMN		; Won't be in first column any longer
;
;
; Shows "P" entries only if wheel byte is set for SYSOP's use
;
	MOV	A,B		; Get the character back
	CPI	'P'		; This line a private upload?
	JNZ	WRDL1		; If not, exit
	LDA	WHEEL
	ORA	A
	JZ	WRD2		; "P" lines not shown without wheel byte
	STA	PRIVT		; To distinguish "P" lines when shown
	STA	STORE		; Just in case it is
	JMP	WRDL4
;
WRDL1:	CPI	'S'
	JNZ	WRDL11
	XRA	A
	STA	STORE
	STA	COLUMN
	JMP	SENDX
;
WRDL11:	CPI	'R'		; This a "received file"?
	STA	STORE		; Set the flag just in case
	JZ	WRDL4		; If 'R', keep the flag set
;
WRD2:	XRA	A
	STA	STORE		; Otherwise reset flag to zero
;
WRDL3:	LDA	STORE		; Storing into memory?
	ORA	A
	JZ	NEXT		; If not, exit
;
WRDL4:	LDA	COLUMN		; Increment the column counter
	INR	A
	STA	COLUMN
;
;
; The following retains original format of KMD "R" lines
;
	LDA	OPTN		; Get option
	ORA	A
	JZ	SEND		; If not customizing, exit
	LDA	COLUMN		; Get the column count back
	CPI	3		; User's modem speed is in column 2
	JNZ	WR1		; If not column 2, continue
	MOV	A,B		; Otherwise get the character
	STA	STORE		; Store it for conversion to baud rate
	JMP	NEXT		; Do not print the "MSPEED" number
;
WR1:	CPI	11
	JC	NEXT		; Skip everything through column 9
	CPI	14
	JC	SEND		; Print everything through column 12
	JNZ	WR4
	LDA	PRIVT		; Going to distinguish a "P" line?
	ORA	A
	JZ	WR2
	XRA	A
	STA	PRIVT
	MVI	B,'*'
	CALL	SEND1
	JMP	WR3

;
WR2:	MVI	B,':'		; Stick in a colon after column 12
	CALL	SEND1
;
WR3:	MVI	B,' '		; Send a space
	JMP	SEND
;
WR4:	CPI	22		; Print through column 20
	JC	SEND
	JNZ	WR5
	CALL	SEND1		; Send character in colum 21
	MVI	B,'.'		; Add a period after the file name
	JMP	SEND
;
WR5:	CPI	27
	JC	SEND		; Print file type and some spaces
	CPI	39
	JC	NEXT		; Ignore the "big gap"
	CPI	43
	JC	SEND		; Print the file size
	JZ	WR6
;
;
; Customizes area after the file size
;
	LDA	OPTN
	CPI	1
	JZ	SEND		; If option 2, exit
	LDA	COLUMN		; Get the column count back again
	JMP	WR7		; If not column 42, continue
;
WR6:	CALL	SEND1		; Print first space
	CALL	SEND1		; Add two extras
	CALL	BAUD		; Print the baud rate and two spaces
	JMP	NEXT
;
WR7:	CPI	52
	JC	SEND		; Print the date
	JNZ	WR8
	CALL	SEND1		; Print first space after date
	JMP	SEND		; Add a space
;
WR8:	CPI	58
	JC	SEND		; Print the time program was sent
	JNZ	SEND		; If not column 57, continue
	CALL	SEND1		; Print the first space
	CALL	SEND1		; Add two spaces
	JMP	NEXT		; Continue with rest of line (name)
;
SEND:	PUSH	H		; Keep buffer address
	MOV	A,B		; Get the character back
	CALL	OUTCHR
	POP	H		; Get input buffer address back
;
NEXT:	INR	L		; Done with sector?
	JMP	WRDLOP		; No, get another byte
;...
;
;
SEND1:	PUSH	H		; Keep buffer address
	MOV	A,B		; Get the character back
	CALL	OUTCHR
	POP	H		; Get input buffer address back
	RET
;.....
;
;
SENDLF:	XRA	A
	STA	COLUMN		; Othewise in column 0 now
	CALL	ABORT		; Want to quit already?
;
SENDL1:	LDA	COUNT
	INR	A		; Just to get a positive value
	STA	COUNT		; Have at least one line to show
	CALL	ILPRT
	DB	CR,0
SENDX:	XRA	A		; Now restore everything so 
	STA	COLUMN		; We can get on with our business
	LXI	D,BUFFER+80
	POP	B
	POP	H
	POP	PSW
	JZ	READX		; If we out of character in DMA buffer, 
	JMP	ONEMORE		;  go read  a sector
;.....
;
;
;-----------------------------------------------------------------------
;
;			  SUBROUTINES
;
;-----------------------------------------------------------------------
;
; Aborts the display when requested, but only at end of line
;
ABORT:	PUSH	H		; Save the TBUF address
	PUSH	D
	PUSH	B
	MVI	C,CONST		; Check to see if key pressed
	CALL	BDOS
	ORA	A
	JZ	ABORT3		; If no key pressed, then continue
	MVI	C,RDCON		; If key pressed, then check for abort
	ANI	7FH		; Remove parity, insure upper-case
	CALL	BDOS
	CPI	'S'-40H		; CTL-S to pause?
	JNZ	ABORT1		; If not, exit
	MVI	C,RDCON		; Otherwise wait for another character
	CALL	BDOS
	ANI	7FH		; Remove parity, insure upper-case
;
ABORT1:	CPI	'C'-40H		; Is it CTL-C?
	JZ	ABORT2
	CPI	'K'-40H		; Is it CTL-K?
	JZ	ABORT2		; If no, then continue
	CPI	'X'-40H		; Is it CTL-X?
	JZ	ABORT2
	ANI	5FH		; Convert to upper-case
	CPI	'C'
	JZ	ABORT2
	CPI	'K'
	JZ	ABORT2
	CPI	'X'
	JNZ	ABORT3
;
ABORT2:	POP	B		; Reset the stack
	POP	D
	POP	H
	POP	H		; Clear "CALL ABORT" from stack
	CALL	EXIT		; If yes, then print abort message
	DB	CR,LF,LF,'++ ABORTED ++','$'
;
ABORT3:	POP	B
	POP	D
	POP	H
	RET
;.....
;
;
; Shows the received baud rate
;
BAUD:	LDA	STORE
	CPI	'0'
	JZ	B110
	CPI	'1'
	JZ	B300
	CPI	'5'
	JZ	B1200
	CPI	'6'
	JZ	B2400
	MVI	B,' '
	CALL	SEND1
	CALL	SEND1
	CALL	SEND1
	CALL	SEND1
	JMP	BFIN2
;...
;
;
B110:	MVI	B,' '
	CALL	SEND1
	MVI	B,'1'
	CALL	SEND1
	MVI	B,'1'
	CALL	SEND1
	JMP	BFIN1
;
B300:	MVI	B,' '
	CALL	SEND1
	MVI	B,'3'
	JMP	BFINSH
;
B1200:	MVI	B,'1'
	CALL	SEND1
	MVI	B,'2'
	JMP	BFINSH
;
B2400:	MVI	B,'2'
	CALL	SEND1
	MVI	B,'4'
;
BFINSH:	CALL	SEND1
	MVI	B,'0'
	CALL	SEND1
;
BFIN1:	MVI	B,'0'
	CALL	SEND1
;
BFIN2:	MVI	B,' '
	CALL	SEND1
	MVI	B,'b'
	CALL	SEND1
	MVI	B,'p'
	CALL	SEND1
	MVI	B,'s'
	CALL	SEND1
	MVI	B,' '
	CALL	SEND1
	MVI	B,' '
	JMP	SEND1
;.....
;
;
; Print message then exit to CP/M
;
EXIT:	POP	D		; Get message address
	MVI	C,PRINT		; Print message
	CALL	BDOS
	CALL	ILPRT		; Print CRLF before quitting
	DB	CR,LF,0
;
	LDA	DRUSER		; Get original drive/user area back
	RAR
	RAR
	RAR
	RAR
	ANI	0FH		; Just look at the user area
	MOV	E,A
	MVI	C,SETUSR	; Restore original user area
	CALL	BDOS
;
	LDA	DRUSER		; Get the original drive/user back
	ANI	0FH		; Just look at the drive for now
	MOV	E,A
	MVI	C,SELDSK	; Restore original drive
	CALL	BDOS
;
	LHLD	STACK
	SPHL
	RET
;.....
;
;
; Inline print routine - prints string pointed to by stack until a zero
; is found.  Returns to caller at the next address after the zero ter-
; minator.
;
ILPRT:	XTHL			; Save HL, get message address
;
ILPLP:	MOV	A,M		; Get the character
	CALL	TYPE		; Show on the CRT
	INX	H		; Next character location
	MOV	A,M		; Get the character
	ORA	A		; If Zero, all done
	JNZ	ILPLP		; Else keep going
	XTHL			; Restore HL, ret address
	RET			; Return past the end of the message
;.....
;
;
; Output a character to the new file buffer - first, see if there is
; room in the buffer for this character.
;
OUTCHR:	PUSH	PSW		; Store the character for now
	CALL	TYPE
	POP	PSW
	RET
;.....
;
;
; Transfer is done - close destination file
;
TDONE:	MVI	C,CLOSE
	LXI	D,FILE
	CALL	BDOS
TDONE2:	CALL	EXIT
	DB	CR,LF,LF,CR,'[End of listing]','$'
;.....
;
;
;  Show the header at the beginning
;
HEAD:	LDA	HDR		; Using a header?
	ORA	A
	RZ			; If not skip header
	LDA	SHOL		; Showing entire KMD.LOG?
	ORA	A
	RZ			; If yes, don't bother with header
;
;
; Customizes header
;
	LDA	OPTN
	ORA	A
	RZ
	CALL	ILPRT
	DB	CR,'D/U    Filename   Size   Speed    ',0
	LDA	OPTN
	CPI	1
	JZ	TDONE1
	CALL	ILPRT
	DB	'  Date    Time   Uploaded by',0
	RET
;
TDONE1:	CALL	ILPRT
	DB	'Uploaded by  Date',0
	RET
;.....
;
;
; Send character in A register to console
;
TYPE:	PUSH	B
	PUSH	D
	PUSH	H
	MOV	E,A		; Character to 'E' for CP/M
	MVI	C,WRCON		; Write to console
	CALL	BDOS
	POP	H
	POP	D
	POP	B
	RET
;.....
;
;
NONE:	CALL	EXIT
	DB	CR,'++ NO NEW FILES ++','$'
;
;
; 'Declare' output file
;
FILE:	DB	0
	DB	'LOG     SYS'
	DB	0,0,0,0,0,0,0,0,0,0,0
	DB	0,0,0,0,0,0,0,0,0,0
RECORD:	DB	0,0,0
;
COLUMN:	DB	0		; Column of KMD.LOG line
COUNT:	DB	0
DRUSER:	DB	0		; Original drive/user, for return
LENGTH:	DB	0		; Maximum length of useable memory
PRIVT:	DB	0		; Distinguishes "P" lines if shown
STORE:	DB	0
STORE2:	DB	0
;
	DS	100		; Room for 50-level stack
;
;
; Set write buffer to even page boundry
;
;
BUFFER	DS	81		; Write buffer starts here
STACK	EQU	BUFFER-2
;
;
	END	START
; Set</pre></body></html>