.......|.......|.......|.......|.......|.......|.......|.......|...........
.;Patch to TRMDEF.LIT - AMOS/L


;PATCH TO TRMDEF.LIT
<AMOS/L Version 1.0

;This patch allows the TRMDEF program to access driver programs that have a
;program header. The affected drivers are interface drivers, such as
;AM100L.IDV, and terminal drivers, such as SOROC.TDV. This allows better
;record keeping when maintaining and updating these drivers.
;
;Installation instructions:
;
;      1. Log into SYS:, and at AMOS/L command level enter:
;                      DIR/H/V TRMDEF
;         Compare the existing hash total with the beginning and ending
;         hash total for this patch. If the hash and version match the
;         old one, proceed with the patch. If the hash and version match
;         the new one, the patch has already been installed. If there is
;         no match, contact your dealer.
;
;         Old hash and version         247-616-322-352  1.0(102)
;         New hash and version         416-121-433-743  1.0(102)-1
;
;      2. Log into the PPN used for patch files.
;
;      3. Create a VUE file, TRMDF1.M68, and enter the following text:



;Patch #1 to TRMDEF.LIT Version 1.0(102) (AMOS/L Version 1.0)
;
;Copyright (c) 1982, 1983 - Products Diversified

'COPY    PATCH

'OHASH   247-616-322-352
'NHASH   416-121-433-743
'OVER    1,0,0,102.,0
'NVER    1,0,0,102.,1

'.=1674
'JMP     PATCH1

'.=1700
MOVMOD:

'.=1712
NOTFND:

'.=2024
PATCH1:
'MOV     -ZID(A1),D7             ;get module size
'CMPW    @A1,#-1                 ;does module have header?
'BNE     MOVMOD                  ;   no, move module
'ADD     #PH.SIZ,A1              ;   yes, remove header
'SUB     #PH.SIZ,D7              ;      update size
'BGT     MOVMOD                  ;if size > 0 move module
'BR      NOTFND                  ;somethings wrong

'END



;      Exit Vue with the "F)inish" command.
;
;      4. Copy TRMDEF.LIT from DSK0:[1,4] to the account where you have
;         created TRMDF1.M68:  COPY =SYS:TRMDEF.LIT
;
;      5. Enter the command: PATCH TRMDEF WITH TRMDF1.
;         You will see the patch file being assembled and installed. If
;         any error messages appear, check to make sure that you have
;         entered the patch file correctly and you are trying to patch
;         the correct version of TRMDEF.LIT.
;
;      6. After the patch has been installed correctly, copy the patched
;         version of TRMDEF.LIT to DSK0:[1,4]:
;                      LOG SYS:
;                      COPY = DSKn:TRMDEF.LIT[patch]
;
;end of patch