; http://www.cpcrulez.2ya.com ; ; ; Source pour MAXAM ? et l'assembleur de WinAPE ;          ORG   #BE80 INT      EQU   #B941     ; POUR 464  #B939          LD    HL,NEWMOD          LD    (INT+1),HL          LD    A,#C3          LD    (INT),A          RET NEWMOD   DI          PUSH  AF          PUSH  HL          PUSH  BC          PUSH  DE          LD    BC,#F5E0          IN    A,( C)          AND   #01          JP    Z,POS          LD    A,#FF          LD    (POS+1),A POS      LD    A,#00          INC   A          LD    (POS+1),A          JR    NZ, TEMPO          DEC   A TEMPO    LD    B,#6 BOUC     NOP          DJNZ  BOUC          LD    HL,TABINK          LD    C,A          LD    B,0          ADD   HL,BC          LD    DE,REGLA          LD    C,#01 CHGINK   LD    A,    (DE)          LD    B,A WAIT     DJNZ  WAIT WORK     LD    B,#7F          LD    A,(HL)          SET   6,A          OUT   (C),C          OUT   (C),A          INC   HL          INC   HL          INC   HL          INC   HL          INC   DE          INC   C          LD    A,4          CP    C          JR    NZ,CHGINK TSAW     POP   DE          POP   BC          POP   HL          POP   AF          EX    AF,AF'          JP    C,#B978   ; POUR 464  #B970          JP    #B945     ; POUR 464  #B93D REGLA    DEFB  1,#7,#B TABINK   EQU   #B7D5     ; POUR 464  #B1DA