;Patch #2 to BAS:SPOOL.SBR Version 1.0(100)-1 (AMOS/L Version 1.0)
;
;Copyright (C) 1982 - Alpha Microsystems

       COPY     PATCH

       OHASH    033,502,302,020
       NHASH    006,234,537,555
       OVER     1,0,0,100.,1
       NVER     1,0,0,100.,2

       .=102    
       LEA      A1,150(A4)
       MOV      A1,22(A4)

       .=146       
       MOV      A6,A1

       .=156
       MOVW     24(A1),14(A4)

       .=172
       MOVW     64(A1),2(A4)
       MOVW     66(A1),4(A4)

       .=220
       MOVW     66(A1),4(A4)

       .=234
       LEA      A1,1150(A4)

       .=320
       LEA      A1,1160(A4)

       .=376
       MOV      LPTQUE,A1
       MOV      A1,D7

       .=424
       CMP      D7,10(A1)

       .=432
       MOV      @A1,A1
       MOV      A1,D7

       .=542
       ADDW     D0,20(A1)
       LEA      A3,4(A1)

       .=664
       JMP      FIX
 
       .=1056
       MOVW     20(A1),D2
       PUSH     A1
       MOVW     22(A1),D7

       .=1076   
       MOV      @A1,A1
       MOV      A1,D7

       .=1104
       MOVW     22(A1),D7
  
       .=1116
       CMPW     D2,20(A1)

       .=1124
       MOVW     20(A1),D2
 
       .=1130
       MOV      A1,@SP

       .=1134
       MOV      A1,@SP
       POP      A1

       .=1174
       MOV      A1,A1

       .=1456
FIX:   PUSH     A0
       MOV      24(A1),A0
       JRUN     J.EXW
       POP      A0
       RTN

       END

.