ZXDEMOS.RU

Код: Выделить всё

    device zxspectrum128
        ORG 40000
begin
;ORG 40000
;ENT
;
;---- FORM SHOW ----
;
    ld sp,$5FFF
    ld a,#10,bc,#7FFD:out (c),a

 LD HL,35000
 LD DE,35001
 LD BC,4095
 LD (HL),0;LDIR
 LD HL,25000
 LD DE,#D820
 LD (HL),#01:INC HL
 LD (HL),#FD:INC HL
 LD (HL),#7F:INC HL
 LD (HL),#11:INC HL
 LD (HL),#1D:INC HL
 LD (HL),#17:INC HL
 LD C,#40
M1 LD (HL),#ED:INC HL
 BIT 0,C:JR NZ,M2
 LD (HL),#51;D[#A][#2];[#A][#2]D
 JR M3
M2 LD (HL),#59;E[#A][#2]E
M3 INC HL
 LD (HL),#31:INC HL
 LD (HL),E:INC HL
 LD (HL),D:INC HL
 LD B,16
M4 LD (HL),#21:INC HL
M5 LD (HL),#00:INC HL
M6 LD (HL),#07:INC HL
 LD (HL),#E5:INC HL
 DJNZ M4
 LD B,15
M8 LD (HL),#23:INC HL
 DJNZ M8
 LD A,(M5+1)
 LD (M6+1),A:XOR 7
 LD (M5+1),A
 DEC C:LD A,C:AND 3
 JR NZ,M7
 PUSH HL:LD HL,32
 ADD HL,DE:EX DE,HL
 POP HL
M7 LD A,C:OR A
 JR NZ,M1
 LD DE,BACK
 LD (HL),#C3:INC HL
 LD (HL),E:INC HL
 LD (HL),D
 LD IX,TAB:LD HL,#61F0
 LD BC,#400
PT1 LD (IX),L:INC IX
 LD (IX),H:INC IX
 LD DE,4:OR A
 SBC HL,DE:DEC BC
 LD A,C:AND #0F
 JR NZ,PT1:LD DE,148
 ADD HL,DE:LD A,B
 OR C:JR NZ,PT1
 LD (IX),0:LD (IX+1),0
;
;---- SETTIN' IM 2 --
;
 DI:LD A,#3B:LD I,A:IM 2
 LD A,#C9:LD (#FFFF),A
;
;---- FORM PATT
;
YEP LD BC,#7FFD:LD A,#15
 CALL AGA:LD A,#17
 CALL AGA:LD A,#10
 OUT (C),A;CALL PATT2
 JR RUN
HUJ LD (STORE+1),SP
 LD SP,TAB
 LD HL,35000
L2 POP DE:LD A,D:OR E
 JR Z,STORE:LD A,(HL)
 RLA:RLA:RLA:INC HL
 OR (HL):INC HL:LD (DE),A
 INC DE:LD A,(HL)
 RLA:RLA:RLA:INC HL
 OR (HL):INC HL:LD (DE),A
 JR L2
STORE LD SP,0:RET
RUN CALL HUJ
LOOP EI:HALT:DI
 XOR A:OUT (254),A
;
;---- TIMIN' DELAY
;
L0 LD BC,#02D3
L1 DEC BC:LD A,B:OR C
 JP NZ,L1
 LD (BACK+1),SP
 JP 25000
BACK LD SP,0
 LD A,#10:OUT (C),A
 LD BC,#EFFE:IN A,(C)
 CPL:AND 31:LD HL,(L0+1)
 BIT 4,A:JR Z,RGHT
 LD DE,1:OR A
 SBC HL,DE:ADD HL,DE
 JR Z,END:DEC HL
RGHT BIT 3,A:JR Z,END
 INC HL
END LD (L0+1),HL
 LD A,1:OUT (254),A
 LD A,127:IN A,(254)
 RRA:JR C,LOOP
 DI:LD A,#3F:LD I,A
 IM 1:EI:RET
AGA OUT (C),A:PUSH BC
 LD HL,#C000
 LD DE,#C001
 LD BC,#0FFF
 LD (HL),#0F:LDIR
 POP BC:RET
TAB:; EQU $

end
    display /d,end-begin
    savesna "!void.sna",begin

Код: Выделить всё

    DEVICE ZXSPECTRUM48
    ORG $8000
EntryPoint:
    JP Start
    NOP
bColor db 2 ; 2 for red, 6 for yellow
Start:
; BORDER 0
    XOR A
    OUT (#FE), A
; set screen attributes (INK 7, PAPER 0)
    LD A, 7
    LD (IY + 83), A
; set border attributes (INK 7, BORDER 0)
    LD (IY + 14), A
; clear screen
    CALL #0D6B
; disable interrupts
    DI
; orange border
Rpt:
; load bColor and change to (8 - bColor), red <-> yellow
    LD HL, bColor
    LD A, (HL)
    LD B, A
    LD A, 8
    SUB B
    LD (HL), A
; BORDER (A)
    LD A, B
    OUT (#FE), A
; loop
    JR Rpt
EndCode:
    SAVEBIN "MAIN.bin", $8000, EndCode - EntryPoint