;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

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.