; CONCATPT.Z80 ; ; Patch file for CONCAT date and internal divider strings ; ; Version 1.1 -- February 23, 1991 -- Gene Pizzetta ; For CONCAT 1.3, new string addresses. ; ; Version 1.0 -- February 3, 1991 -- Gene Pizzetta ; For CONCAT 1.1. ; TS1Adr equ 11Dh ; address of date string prefix TS3Adr equ 132h ; address of date string suffix DSAdr equ 147h ; address of divider string LastAdr equ 197h ; last address available ; TAB equ 09h ; tab LF equ 0Ah ; line feed CR equ 0Dh ; carriage return ; ; =================================================================== ; INSTRUCTIONS . . . ; =================================================================== ; ; Edit this file and assemble it into a hex file: ; Z80ASM CONCATPT/H ; ZMAC CONCATPT /H ; Then insert it into CONCAT: ; MLOAD NCONCAT.COM=CONCAT.COM,CONCATPT.HEX ; MYLOAD NCONCAT.COM=CONCAT.COM,CONCATPT.HEX ; ; =================================================================== ; DATE STRING PREFIX (20 bytes maximum) . . . ; =================================================================== ; org TS1Adr ; TmStr1: db CR,LF,'--- [ ' db 0 ; must be null terminated ; IF $ GT TS3Adr [ **** Date Prefix String Too Long **** ] ENDIF ; GT TS3Adr ; IF $ LT TS3Adr ds TS3Adr - $ ; fill remaining space ENDIF ; LT TS3Adr ; ; =================================================================== ; DATE STRING SUFFIX (20 bytes maximum) . . . ; =================================================================== ; org TS3Adr ; TmStr3: db ' ] ---',CR,LF,CR,LF db 0 ; must be null terminated ; IF $ GT DSAdr [ **** Date Suffix String Too Long **** ] ENDIF ; GT DSAdr ; IF $ LT DSAdr ds DSAdr - $ ; fill remaining space ENDIF ; LT DSAdr ; ; =================================================================== ; DIVIDER STRING (80 bytes maximum) . . . ; =================================================================== ; org DSAdr ; DivStr: db CR,LF,'----',CR,LF db 0 ; must be null terminated ; IF $ GT LastAdr+1 [ **** Divider String Too Long **** ] ENDIF ; GT LastAdr+1 ; IF $ LT LastAdr+1 ds (LastAdr + 1) - $ ; fill remaining space ENDIF ; LT LastAdr+1 ; end