NOTICE TEXTE n° 1 (5.21 Ko)
; (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