z80pi (spigot) by Serzhsoft
; ;z80pi (spigot) ;"3." + 535 digits ;128 bytes intro :) ;(c) SerzhSoft, 2015 ;no float, no *calc, ;size optimized, 119b ;start address: 36915 ;greetz!keepdcoding;) ;3.1415926535897932.. ; ;bc=36915=#9033 ; ;#9033 LD A,C RST #10 LD A,#2E RST #10 LD DE,#0219 XOR A L_903C LD (BC),A DEC BC XOR D BIT 7,B JR NZ,L_903C LD B,A L_9044 EXX LD HL,#06FE L_9048 PUSH HL PUSH HL CALL #30A9 EX (SP),HL DEC HL ADD HL,HL PUSH HL SET 7,H LD E,(HL) INC L LD D,(HL) EX DE,HL ADD HL,HL LD E,L LD D,H ADD HL,HL ADD HL,HL ADD HL,DE POP DE POP BC ADD HL,BC INC E CALL L_90A0 EX DE,HL SET 7,H LD (HL),D DEC L LD (HL),E LD D,B LD E,C POP HL DEC HL LD A,L OR H JR NZ,L_9048 LD L,C LD E,#0A CALL L_90A0 LD (#8000),HL LD A,C EXX INC B CP #09 JR Z,L_909B LD HL,#0030 JR NC,L_9090 LD HL,#FDE8 ADD HL,DE LD H,A LD L,#39 JR C,L_9097 L_9090 LD A,L XOR #09 AND #31 ADD A,C L_9096 RST #10 L_9097 LD A,L DJNZ L_9096 LD C,H L_909B DEC DE LD A,E OR D JR NZ,L_9044 L_90A0 LD BC,#FFFF L_90A3 INC BC SBC HL,DE JR NC,L_90A3 ADD HL,DE RET ; ;#90AA ;
[ back to the prod ]