;        (C) STEPH ! From NEPHILIM 1992 ; ;        Mon adresse : ;        Stephane Sikora - 1,bis rue Casteja - 92100 Boulogne Billancourt ;         ORG     #2000 ;       ENT     $ ;         LD      BC,#BC07         OUT     (C),C         LD      BC,#BD00+32         OUT     (C),C         LD      BC,#BC01         OUT     (C),C         LD      BC,#BD00+46         OUT     (C),C         LD      BC,#BC02         OUT     (C),C         LD      BC,#BD00+49         OUT     (C),C         LD      a,1         CALL    #bc0e         DI         LD      hl,(#38)         LD      (inter+1),hl         LD      hl,#c9fb         LD      (#38),hl         EI LOOP    LD      b,#f5 SYNC    IN      a,(c)         RRA         JP      nc,SYNC         LD      hl,COLOR+2         LD      de,COLOR+1         LD      bc,32*9-1         LD      a,(DE)         LD      (POK),A         DEC     DE         LD      A,(DE)         LDIR         DEC     DE         LD      (DE),a         INC     DE         LD      A,(POK)         LD      (DE),A         HALT         LD      BC,#7F03         OUT     (C),C         DS      84         LD      C,14         LD      HL,COLOR RAST    LD      D,8         PUSH    HL RAST1   LD      A,(HL)         OUT     (C),A         INC     HL         DEC     D         DS      52         JP      NZ,RAST1         POP     HL         LD      DE,2         ADD     HL,DE         DEC     C         DS      45         JP      NZ,RAST         LD      A,#54         OUT     (C),A         CALL    SCROLL         LD      bc,#f40e         OUT     (c),c         LD      bc,#f6c0         OUT     (c),c         XOR     a         OUT     (c),a         LD      bc,#f792         OUT     (c),c         LD      bc,#f645         OUT     (c),c         LD      b,#f4         IN      a,(c)         LD      bc,#f782         OUT     (c),c         LD      bc,#f600         OUT     (c),c         RLA         JP      c,LOOP inter   LD      hl,0         LD      (#38),hl         LD      BC,#BC01         OUT     (C),C         LD      BC,#BD00+40         OUT     (C),C         CALL    #bca7         RET COLOR         DM      TTT\TT\\T         DM      \\\L\\LL\         DM      LLLNLLNNL         DM      NNNJNNJJN         DM      JJJKJJKKJ         DM      KKKWKKWWK         DM      WWWUWWUUW         DM      UUUDUUDDU         DM      DDDTDDTTD         DM      TTTTTTTTT         DM      TTTTTTTTT         DM      TTTDTTDDT         DM      DDDUDDUUD         DM      UUUWUUWWU         DM      WWWKWWKKW         DM      KKKRKKRRK         DM      RRRBRRBBR         DM      BBBVBBVVB         DM      VVVTVVTTV         DM      TTTTTTTTT         DM      TTTTTTTTT         DM      TTTVTTVVT         DM      VVVBVVBBV         DM      BBBRBBRRB         DM      RRRKRRKKR         DM      KKKJKKJJK         DM      JJJNJJNNJ         DM      NNNLNNLLN         DM      LLL\LL\\L         DM      \\\T\\TT\         DM      TTTTTTTTT         DM      TTTTTTTTT         DM      TTTTT POK     DB      0 STOCKE  DW      0 SCROLL         LD      HL,(STOCKE)         INC     HL         RES     2,H         LD      (STOCKE),HL         LD      A,H         OR      #30         LD      BC,#BC0C         OUT     (C),C         INC     B         OUT     (C),A         LD      BC,#BC0D         OUT     (C),C         INC     B         OUT     (C),L         LD      HL,(TXT1)         LD      A,(HL)         SUB     32         LD      L,A         LD      H,0         ADD     HL,HL         ADD     HL,HL         ADD     HL,HL         LD      BC,#3000         ADD     HL,BC         EX      DE,HL         LD      HL,(STOCKE)         ADD     HL,HL         SET     7,h         SET     6,H         LD      BC,#5A         ADD     HL,BC         RES     3,H         LD      A,(TXT2)         LD      C,A         LD      B,8 SCR1    PUSH    BC         PUSH    DE         LD      B,16 SCR2    PUSH    BC         LD      A,(DE)         LD      B,0         AND     C         JR      Z,SCR3         LD      B,#ff SCR3    LD      (HL),B         INC     HL         LD      (HL),B         DEC     HL         CALL    BC26         POP     BC         DJNZ    SCR2         POP     DE         INC     DE         POP     BC         DJNZ    SCR1         LD      A,(TXT2)         SRL     A         OR      A         JR      NZ,SCR6         LD      HL,(TXT1)         INC     HL         LD      A,(HL)         OR      A         JR      NZ,SCR5         LD      HL,TEXTE1 SCR5    LD      (TXT1),HL         LD      A,#80 SCR6    LD      (TXT2),A         RET TXT1    DW      TEXTE1 TXT2    DB      #80 TEXTE1         DM      ET VOICI L'INTERLUDE NUME         DM      RO 1...         DB      0 BC26         LD      a,h         ADD     a,8         LD      h,a         AND     #38         RET     nz         LD      a,h         SUB     #40         LD      h,a         LD      a,l         ADD     a,92         LD      l,a         RET     nc         INC     h         RES     3,H         RET