FIZZBUZZ

[gus]

Hi guys !

I take the comment of Rich and made the decision to fix my version in order to meets the rules, I think that the program is correct now but I a new problem arise. Now I can't find the secret image of the ULA can you see something ?


Gus

[RWAP]

No image of the ULA - but I see an army marching past the screen....

[Paul]

The links to the PROGs are broken,
could anybody repost them here?
Thanks Paul

[gus]

Hi paul,

My version is attached.

Be well,
Gus

[Paul]

Thanks GUS!
Any chance for the source?

[gus]

Paul,

Here is the source code, maybe a dirty source, because I write it on a record time
I normally use PASMO for all my cross assembler works.

Gus

Code: Select all

;-------------------------------------------------
;
;		FIZZBUZZ
;
;		By Gus  gdeldago@gmail.com
;
;-------------------------------------------------
FIZZBUZZ:	
	
	LD 		B, $64
	LD		A, 0

	LD		(FIZZ), A
	LD		(BUZZ), A

LOOP		
	INC		A
	
	PUSH	       AF
	PUSH	       BC
		
	CALL	       PRINT_A_DEC
	
	LD		A, 0
	RST		$10
	
	LD		A, (FIZZ)
	INC		A
	LD		(FIZZ), A
	
	CP		3
	JP		NZ, NO_3
	LD		A, 0
	LD		(FIZZ), A
	
	CALL	PRINT_FIZZ

NO_3:

	LD		A, (BUZZ)
	INC		A
	LD		(BUZZ), A
	
	CP		5
	JP		NZ, NO_5
	LD		A, 0
	LD		(BUZZ), A
	
	CALL	        PRINT_BUZZ

NO_5:
	LD		A, (FIZZ)
	CP		0
	JP		NZ, SIGUE
	RST		$10
SIGUE:	

	POP		BC
	POP		AF
		
	DJNZ 	        LOOP
	
	RET
	
	
PRINT_FIZZ:
	LD		A, _F
	RST		$10
	LD		A, _I
	RST		$10
	LD		A, _Z
	RST		$10
	LD		A, _Z
	RST		$10
	RET

PRINT_BUZZ:
	LD		A, _B
	RST		$10
	LD		A, _U
	RST		$10
	LD		A, _Z
	RST		$10
	LD		A, _Z
	RST		$10
	LD		A, __
	RST		$10

	RET
	
;-------------------------------------------------
;
; 	PRINT REGISTER A IN DECIMAL
;	
; Si quiero suprimir los ceros a la izquierda
; descomento las lineas comentadas. 
;-------------------------------------------------

PRINT_A_DEC:
	
	LD		E, 0
	LD		D, $64 		; 100
DEC81		LD C, $1B 	        ;  "0" - 1
DEC82:		INC	C
	SUB		D
	JP		NC, DEC82
	ADD		A, D
	LD		B, A
	LD  	        A, C
	CP		$1D	                ;  "1"
	JP		NC, DEC84
	LD		A, E
	OR		A
	LD		A, C
	JP		Z, DEC85
DEC84:			
	PUSH	AF
	RST		$10
	POP		AF
	LD		E, $FF		; SET 0 FLAG
DEC85:		LD	A, D
	SUB		$5A			; 90
	LD		D, A
	LD		A, B
	JP		NC, DEC81	        ; AGAIN
	ADD		A, $1C		; "0"

	PUSH	AF
	RST		$10
	POP		AF
	RET

FIZZ	DB	0
BUZZ	DB	0

	DB 		$76             ;N/L

[Paul]

I made a small version in Basic without IF and without FOR
It has to be started by goto 10, as the Variables are predefined
It looks a bit funny, but does something similar.
Its still 307 Bytes and I wonder how I could save some more bytes...
any suggestions?

[Paul]

OK stupid me,
eliminate the numbers!!!
Its down to 292 Bytes

[gus]

It's a nice version
How are you checking the used memory ?
Gus

[Paul]

I take the size of the .P file