Spectrum Computing

Code: Select all

_loop:	
	ld a,(hl) ; get text -> A=0x41
	or a;sub 0x20
	ret z;ret c
	push hl
	add a,a ; x2
	ld l,a
	ld h,0
	add hl,hl ; x4
	add hl,hl ; x8
	ld bc,0x3C00	; rom font-32*8

Code: Select all

  10 INPUT ">";A$
  11 LET b$=""
  20 FOR i=1 TO LEN (a$)
  21 LET b=CODE (a$(i))
  22 IF b>=97 AND b<=122 THEN LET b=b-32
  23 LET b$=b$+CHR$ (b-32)
  29 NEXT i
  30 PRINT b$