Body #08 02 июля 1997

Программирование

PUSH HL - Press the MAGIC for BORDER-effect.

                           PUSH HL

(C) SATSOFT PHN 270-72-36

You've all seen, perhaps, the play 'LODE RUNNER 4' BY DPS 
GROUP'97, MADE BOBRUYSKE.TAK HERE, WE C ARS'OM loved it

Cool effect with MAGIC'OM second part of the INTRO => we 
decided to VYTYANUT.NA FIRST GLANCE, the program seemed 
difficult, but A LITTLE THIS INTRO climb, we concluded: PROGRAM 
SO Sorry, that before it COULD DOPETRIT any encoder.

MEANING OF PROGRAM THAT when you click on 'MAGIC' INCLUDED
THE INTERRUPTION OF THE SECOND KIND (IM 2), REGARDLESS OF 
WHETHER THEY WERE ON OR NET.TAK Also important is that the 
stack SHOULD BE Somewhere in the screen (lowering). THE MOST 
APPROPRIATE ADDRESS - THIS # 401F.PRINTSIP ENTOY WORK PROGRAM:

1.Zapuskaem PROGRAM WITH ADDRESSES 40000.
2.PREKRASNO perform your procedures such as 'PRINT' AND 'MUSIC'.
3.NAZHIMAEM TO 'MAGIC'.
4.REZKO hem IM 2.
5.STEKA not sufficient for full implementation of OPERATION 
'MAGIC'. 6.PO some, unknown to me, ERROR, 'MAGIC' STOPS

PERFORM WORK I. ..
7.VY WATCH cool effect that you have put yourself.
8.PROISHODIT OUT THERE, WHERE YOU caused it.

; PRESS MAGIC FOR BORDER EFFECT

        ORG 40000
ADRESS EQU 45000; ADDRESS PROGRAM PERFORMED AFTER THE 'MAGIC'
    LD (SAVESP +1), SP; PRESERVATION SP FOR NORMAL OUTPUT
    CALL PRER; ORGANIZATION IM 2 WITHOUT PERMISSION
L2 DI; UNINTERRUPTED
    LD SP, # 401F; SP installation at the screen
; CALL MUSIC; YOUR PROCEDURE IN CYCLE MODE IM 1
; CALL PRINT
    JR L2
PRER LD HL, ADRESS; ORGANIZATION IM 2

        LD A, 24

        LD (65535), A

        LD A, 195

        LD (65524), A

        LD (65525), HL

        LD HL, # FE00

        LD DE, # FE01

        LD BC, 256

        LD (HL), # FF

        LD A, H

        LDIR

        DI; PROHIBITION OF UNINTERRUPTED

        LD I, A

        IM 2

        RET
;+++++++++++++++++++++++
    ORG ADRESS; YOUR PROGRAM runs after the 'MAGIKA'
    DI; PROHIBITION OF UNINTERRUPTED
;................................................. .
    LD BC, 65535; SHO WANT TO INSERT:)
L1 DEC BC; in this case - BORDER EFFECT
    LD A, C

        OUT (254), A
    OR B
    JR NZ, L1
    XOR A

        OUT (254), A
;................................................. .
SAVESP LD SP, 0; RECOVERY stack NORM.VYHODA
    LD A, 63; INSTALLATION IM 1
    LD I, A
    IM 1
    EI
    LD HL, 10072; correct exit in BASIC
    EXX
    RET

> ASSEMBLE
# 002E
 SYMBOLS: # C012-# FF51
FATAL ERRORS: # 0000

CONTACT FEEDBACK AND LIKELY TO DELIGHT FOR THIS PROGRAM. KSAT,
To surpass BYRENKO ANY LISTING OF FORMAT 'ZX-WORD' In
MY FAVORITE KRUTOI ASSEMBLER 'ALASM', you must have the PR 
'UNICON' OR 'UNICON2', but do not forget that the expansion of 
'W', TO CHANGE IN 'C'.