SPSCROLL: LD HL,4000H LD DE,4000H-9*80+20 LD A,198 CALL SPSCROLL1 LD HL,4000H-9*80 LD DE,4000H+189*80+20 LD A,9 SPSCROLL1 LD (SPCEL+1),DE LD (SPCOUNT+1),A LD (SPSAVE+1),SP SPKEZD: LD SP,HL POP BC POP DE POP HL POP IX POP IY EXX POP BC POP DE POP HL POP AF EX AF,AF' POP AF LD (SPKEZD2+1),SP SPCEL: LD SP,4000H-9*80+20 PUSH AF EX AF,AF' PUSH AF PUSH HL PUSH DE PUSH BC EXX PUSH IY PUSH IX PUSH HL PUSH DE PUSH BC LD HL,40 ADD HL,SP LD (SPCEL2+1),HL SPKEZD2: LD SP,4000H POP BC POP DE POP HL POP IX POP IY EXX POP BC POP DE POP HL POP AF EX AF,AF' POP AFSPCEL2: LD SP,4000H-9*80+20 PUSH AF EX AF,AF' PUSH AF PUSH HL PUSH DE PUSH BC EXX PUSH IY PUSH IX PUSH HL PUSH DE PUSH BC LD HL,80 ADD HL,SP LD (SPCEL+1),HL LD HL,(SPKEZD2+1) LD BC,80-20 ADD HL,BCSPCOUNT: LD A,200 DEC A LD (SPCOUNT+1),A JR NZ,SPKEZDSPSAVE: LD SP,0 RET