;  Patch #3 to SYS:RUN.LIT Ver. 1.1 (166) (AMOS/L Ver. 1.1 & 1.1A)
;
;  HASH TOTALS MUST MATCH:
;  INPUT RUN.LIT - 665-501-321-464
;  RUN3.M68 - 775-737-565-417
;  PATCHED RUN.LIT - 724-005-054-134
;
;  Developed by Ultrascience (REV. 4.3)

       COPY    PATCH

       OHASH   665,501,321,464
       NHASH   724,005,054,134
       OVER    1,1,0,166.,2
       NVER    1,1,0,166.,3

       .=34
       LWORD   1054

       .=140
       WORD    ^H4EBA,AD1-.

       .=11550
       WORD    ^H4EBA,AD2-.

       .=34332
AD1:    BYP
       CLRW    1052(A0)
       CMPB    (A2)+,#'/
       BNE     20$
       GTDEC
       MOVW    D1,1052(A0)
       BR      30$
20$:    SETW    1052(A0)
       SUB     #1,A2
30$:    MOV     A1,1016(A0)
       RTN

AD2:    TSTW    1052(A0)
       BEQ     40$
       DECW    1052(A0)
       BR      50$
40$:    ORW     #C.KIN,JOBCMS(A1)
50$:    ANDW    #-4,@A3
       RTN
       END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.