......|.......|.......|.......|.......|.......|.......|.......|...........
.;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