;sjasm, origin unknown


	device zxspectrum128
        ORG 25000
;FRAMES       #5C78 (23672)
;- Три байта  составляют  внутренние   часы   ZX Spectrum.
begin
        LD A,R,L,A,A,(#5C78),H,A
        LD (LA4A0),HL,HL,#1600
        LD (LA4A2),HL,HL,#0108
        LD (LA4A4),HL
M0      ei:HALT:di
        ;CALL ONE
;ONE     PUSH BC
        LD A,(LA4A3),E,A
        CALL LA53A
        ADD A,#04:JR NC,LA573
        CALL LA53A
        AND #03
        LD E,#08:JR Z,LA573
        LD E,#28
        DEC A:JR Z,LA573
        LD E,#18
        DEC A:JR Z,LA573
        LD E,#38
LA573   LD A,E,(LA4A3),A,A,(LA4A4)
        AND #08:JR NZ,LA585
        LD A,(LA4A4):AND #03:JR NZ,LA598
LA585   CALL LA53A
        LD L,A:CALL LA53A
        AND #01:ADD A,#93
        LD H,A,A,(HL)
        ADD A,E:XOR (HL):AND #38
        XOR (HL):LD (HL),A
LA598   CALL LA53A:AND #FE
        LD A,(LA4A4):JR NZ,LA5A4
        XOR #08
LA5A4   INC A:AND #0B:LD (LA4A4),A
;        CALL LA506
LA506   LD HL,#9300
        ld IX,#5800
        ld BC,#0300
LA510   LD A,(HL)
        ADD A,E:AND #38
        CP (IX+1):JP Z,LA536
        CP (IX+32):JP Z,LA536
        CP (IX-32):JP Z,LA536
        CP (IX-1):JP Z,LA536
LA52C   INC HL,IX
        DEC BC
        LD A,B:OR C:JP NZ,LA510
;        RET
        ei:HALT:di
        LD HL,#9300,DE,#5800,BC,#0300
        LDIR;:POP BC:
        ;RET
;-------------------------------------
        jp M0
        ;LD A,127:IN A,(254)
        ;RRA:JR C,M0
        ;RET
LA536   LD (HL),A:JP LA52C
LA53A   LD A,(LA4A0),C,A,A,(LA4A1)
        LD (LA4A0),A:ADD A,C
        LD C,A,A,(LA4A2),(LA4A1),A
        ADD A,C:RRCA
        LD (LA4A2),A
        RET
LA4A0   DB 0
LA4A1   DB 0
LA4A2   DB 0
LA4A3   DB 0
LA4A4   DB 0
LA4A5   DB 0

end
	display /d,end-begin
	savesna "border.sna",begin