ZXNet эхоконференция «code.zx»

Здрасте, здрасте Arseniy!

AA> Предлагается кодерам пошевилить извилинами.
AA> Current Compo:
AA> A bit weird 16x16bit Multiple
AA> Input: Any two 16 bit numbers.
AA> Routine: Only LD, BIT, AND, OR commands can be used to calculate result.
+ JP ;)

AA> Output: 32 bit value.
AA> Remember all rules above is to restrict you - if something
AA> is not mentioned here you can do it e.g. use any input/output
AA> registers if here is no restriction which should be used.

Сегодня (т.е. уже вчера) я наконец то добрался до спектрума и
накатал это несчастное умножение, на что мне потребовалось
около 2-х часов включая всяческие отстраненные занятия (это я
по поводу сложности задачи).


=====8<=====================================
;MUL 16*16->32 (C)1999 Dark/X-Trade
;ONLY LD/AND/OR/JP CMDS IS USED!!!

TAB EQU #8000; aligned on 256b boundary (129 bytes long)

;HL*DE->HLDE

ORG #6000
DI
LD HL,#FFFF
LD DE,#FFFF
CALL MULT
LD IY,#5C3A
EI

RET
DW 0


;- Entry point -------------------------
MULT LD A,E:LD (RS2+1),A
LD A,D:LD (RS3+1),A
LD A,L:LD (MT0+1),A
LD A,H:LD (MT1+1),A
LD A,1
LD (CNT0+1),A
LD A,0
LD (CNT1+1),A
LD (RS0+1),A
LD (RS1+1),A

LD HL,TAB+#80; set up table
LD A,#01:LD (HL),A
LD L,#00:LD (HL),A:LD L,A
LD A,#02:LD (HL),A:LD L,A
LD A,#04:LD (HL),A:LD L,A
LD A,#08:LD (HL),A:LD L,A
LD A,#10:LD (HL),A:LD L,A
LD A,#20:LD (HL),A:LD L,A
LD A,#40:LD (HL),A:LD L,A
LD A,#80:LD (HL),A

MUL1 LD C,0;RESULT*=2
RS0 LD E,0
LD IY,MUL2:JP SLA88
MUL2 LD (RS0+1),A
RS1 LD E,0
LD IY,MUL3:JP SLA88
MUL3 LD (RS1+1),A
RS2 LD E,0
LD IY,MUL4:JP SLA88
MUL4 LD (RS2+1),A
RS3 LD E,0
LD IY,MUL5:JP SLA88
MUL5 LD (RS3+1),A
LD A,C
OR A
JP Z,NOADD

LD C,0
LD A,(RS0+1):LD E,A
MT0 LD D,0
LD IY,MUL6:JP ADC88
MUL6 LD (RS0+1),A
LD A,(RS1+1):LD E,A
MT1 LD D,0
LD IY,MUL7:JP ADC88
MUL7 LD (RS1+1),A
LD A,(RS2+1):LD E,A
LD D,0
LD IY,MUL8:JP ADC88
MUL8 LD (RS2+1),A
LD A,(RS3+1):LD E,A
LD IY,MUL9:JP ADC88
MUL9 LD (RS3+1),A

NOADD LD C,0; CNT<<1
CNT0 LD E,0:LD D,E
LD IY,MUL10:JP SLA88
MUL10 LD (CNT0+1),A
CNT1 LD E,0:LD D,E
LD IY,MUL11:JP SLA88
MUL11 LD (CNT1+1),A
LD A,C
OR A
JP Z,MUL1

LD A,(RS0+1):LD E,A
LD A,(RS1+1):LD D,A
LD A,(RS2+1):LD L,A
LD A,(RS3+1):LD H,A
;- End of prog -------------------------

RET

;- Subroutines -------------------------
SLA88 LD D,E
;E+D-}A, C-CARRY(I/O)
ADC88 LD B,0
LD L,B
AD0 LD A,E
AND D
AND (HL)
JP Z,AD3
AD1 LD A,C; 1X
LD L,(HL)
LD C,(HL)
AD2 OR B
LD B,A
JP AD7
AD3 LD A,E
OR D
AND (HL)
JP NZ,AD5
AD4 LD A,C; 0X
LD L,(HL)
LD C,0
JP AD2
AD5 LD A,C
OR A
JP NZ,AD6
LD A,E; 0X
OR D
AND (HL)
OR B
LD B,A
JP AD4
AD6 LD L,(HL)
LD C,(HL)
AD7 LD A,L
OR A
JP P,AD0
LD A,B
JP (IY)

======8<===============================

AA> Deadline: 20599 === Cut ===

это я уже типа опоздал? ;)

AA> + Origin: этот мир уже ничто не спасет... (500:17/1)

во-во.

Dark-] //______
[-from //|rade [ TEAM CodeWarrior ]