ZX Basic 1.4 (beta) is out - Printable Version

Code:

> Executing: C:\Spectrum\Mis documentos\Archivos de programa\ConTEXT\ConExec.exe -i "C:\Program Files (x86)\Boriel Tm\ZX Basic Compiler\zxb.exe" -T -B -S 32768 -a CI7E9E~1.bas



attr.bas:96: warning: FUNCTION 'attraddr' declared as FASTCALL with 2 parameters

input.bas:38: warning: Empty loop

alloc.bas:73: warning: FUNCTION 'reallocate' declared as FASTCALL with 2 parameters

Traceback (most recent call last):

  File "zxb.py", line 348, in <module>

  File "zxb.py", line 262, in main

  File "ply\yacc.pyc", line 263, in parse

  File "ply\yacc.pyc", line 710, in parseopt

  File "zxbparser.pyc", line 3025, in p_abs

NameError: global name 'is_unsigned' is not defined

> Execution finished.

Code:

CLS

doubleSizePrintChar(0,0,145)

 

doubleSizePrint(10,0,"Hello World")





STOP



SUB doubleSizePrintChar(y AS UBYTE, x AS UBYTE, thingToPrint AS UBYTE)

' Prints a single character double sized.

' Takes X and Y values as character positions, like print.

' takes an ascii code value for a character.

' By Britlion, 2012.

 

ASM

LD A,(IX+5)     ;' Y value

CP 22

JP NC, doubleSizePrintCharEnd

 

;' A=y value

LD E,A

AND 24             ; calculate

OR 64             ; screen

LD H,A             ; address

LD A,E             ; FOR 

AND 7             ; row

OR a             ; Y

RRA

RRA

RRA

RRA

LD E,A

 

LD A,(IX+7)     ;' X Value

CP 30

JP NC, doubleSizePrintCharEnd

 

ADD A,E            ;' correct address for column value. (add it in)

LD L,A

EX DE,HL        ;' Save it in DE

 

LD A,(IX+9)     ;'Character

 

CP 164         ;' > UDG "U" ?

JP NC, doubleSizePrintCharEnd

 

CP 32          ;' < space+1?

JP C, doubleSizePrintCharEnd

 

CP 144         ;' >144?

JP NC, doubleSizePrintCharUDGAddress

 

LD L,A

LD H,0

 

ADD HL,HL

ADD HL,HL

ADD HL,HL    ;' multiply by 8.

LD BC,(23606)    ;' Chars

ADD HL,BC     ;' Hl -> Character data.

EX DE,HL    ;' DE -> character data, HL-> screen address.

JP doubleSizePrintCharRotateLoopCharStart

 

doubleSizePrintCharUDGAddress:

LD HL,(23675)    ;'UDG address

SUB 144

ADD A,A         ;multiply by 8.

ADD A,A

ADD A,A

ADD A,L

LD L,A

 

JR NC, doubleSizePrintCharUDGAddressNoCarry 

INC H

doubleSizePrintCharUDGAddressNoCarry:

 

;' At this point HL -> Character data in UDG block.

EX DE,HL ;' DE -> character data, HL-> screen address.

 

doubleSizePrintCharRotateLoopCharStart:

LD C,2 ;' 2 character rows.

doubleSizePrintCharRotateLoopCharRowLoopOuter:

LD b,4 ;' 4 source bytes to count through per character row.

doubleSizePrintCharRotateLoopCharRowLoopInner:

   PUSH BC

 

   LD A,(DE) ;' Grab a bitmap.

   PUSH DE

 

   LD B,4

   LD C,A ; Copy BYTE so we can put two into the big version.

   doubleSizePrintCharRotateLoop1:

      RRA  ; one bit into carry

      RR E ; one bit into result

      RR C ; same bit into carry again

      RR E ; duplicated bit into result

   DJNZ doubleSizePrintCharRotateLoop1 

 

   LD B,4

   doubleSizePrintCharRotateLoop2:

       RRA

       RR D ; Other register FOR other half of big 16 bit line. 

       RR C

       RR D

   DJNZ doubleSizePrintCharRotateLoop2 

 

   LD (HL),D    ;' Output first byte

   INC HL    ;' Move right

   LD (HL),E    ;' Second half.

   DEC HL    ;' Move left

   INC H    ;' Move down

   LD (HL),D    ;' Output second row (copy of first), first byte.

   INC HL    ;' Move right

   LD (HL),E    ; Output second row, second BYTE

   DEC HL    ; Move left

   INC H    ; Move down.

   POP DE

   INC DE 

   POP BC

DJNZ doubleSizePrintCharRotateLoopCharRowLoopInner

; CALL __DECY+2     ;'Jump into the DRAW next_line_down routine, at a convenient point (accounting for the INC H above)

; Can't seem to call to this at the moment! Here in longhand form:

 

ld a, h

AND 7

jr nz, doubleSizePrintCharRotateNextCharRow

ld a, l

add a, 32

ld l, a

jr c, doubleSizePrintCharRotateNextCharRow

ld a, h

SUB 8

ld h, a

 

doubleSizePrintCharRotateNextCharRow:

 

DEC C

JR NZ, doubleSizePrintCharRotateLoopCharRowLoopOuter 

 

doubleSizePrintCharEnd:

END ASM

END SUB

 

SUB doubleSizePrint(y AS UBYTE, x AS UBYTE, thingToPrint$ AS STRING)

'Uses doubleSizePrintChar subroutine to print a string.

'By Britlion, 2012

 

   DIM n AS UBYTE

   FOR n=0 TO LEN thingToPrint - 1

      doubleSizePrintChar(y,x,CODE thingToPrint$(n) )

      x=x+2

   NEXT n

END SUB