64 char print - 32 lines version

[nitrofurano]

here is my very slow version of the code, not yet as library, and displaying some error messages from the compiler
surelly i did some very stupid mistakes here, and still without any assembly line beyond that 'defb' likes with the charmaps, and still missing the colour attribute part, but i think this can be a starting point for something - what do you all think about?

Code:

' --------------------------------------------------------- ' 64x32 characters print routine for zx basic ' started by nitrofurano, superficially based on some Britlion's code ' --------------------------------------------------------- goto main1 sub printat64x32(y as ubyte, x as ubyte) poke @p64x32coords,x poke @p64x32coords+1,y end sub function adr64x32(x as ubyte, y as ubyte, l as ubyte) i=((y*6+l)*32)+int(x/2) adrq=16384+((i band 31) bor ((i band 224)*8) bor ((i band 1792)/8) bor (i band 6144)) return adrq end function sub print64x32(characters$ as string) for i3=0 to len(characters$)-1 e3=code(character$(i3)) putchar64x32 (peek(@p64x32coords)+i3,peek(@p64x32coords+1),e3) next i3 end sub sub putchar64x32 (x1 as ubyte, y1 as ubyte, c1 as ubyte) maskanddsp=15*(1+15*(x1 band 1)) maskandchm=15*(1+15*(c1 band 1)) rtv=0 if (c1 band 1)<(x1 band 1) then: rtv=1:end if '- /16 if (c1 band 1)>(x1 band 1) then: rtv=2:end if '- *16 for yq=0 to 5 u1=peek(@p64x32_charset+yq+((c-32)*6)) u2=u1 band maskandchm if rtv=1 then:u2=int(u2/16):end if if rtv=2 then:u2=int(u2*16):end if adq=adr64x32(x1,y1,l1) poke adq, peek(adq) band maskanddsp bor u2 next end sub p64x32_charset: asm defb 004h,004h,004h,000h,004h,000h ; space ! defb 0aah,0aeh,00ah,00eh,00ah,000h ; "" # defb 04ah,0e2h,0c4h,068h,0eah,040h ; $ % defb 0c4h,0c4h,060h,0c0h,0e0h,000h ; & ' defb 044h,082h,082h,082h,044h,000h ; ( ) defb 040h,0e0h,0a4h,00eh,004h,000h ; * + defb 000h,000h,000h,00eh,040h,080h ; , - defb 002h,002h,004h,008h,048h,000h ; . / defb 044h,0ach,0a4h,0a4h,04eh,000h ; 0 1 defb 0cch,022h,044h,082h,0ech,000h ; 2 3 defb 06eh,0a8h,0ach,0e2h,02ch,000h ; 4 5 defb 06eh,082h,0c2h,0a4h,044h,000h ; 6 7 defb 044h,0aah,046h,0a2h,044h,000h ; 8 9 defb 000h,000h,044h,000h,044h,008h ; : ; defb 000h,000h,04eh,080h,04eh,000h ; < = defb 00ch,002h,044h,020h,044h,000h ; > ? defb 044h,0aah,0eah,08eh,06ah,000h ; @ A defb 0c4h,0aah,0c8h,0aah,0c4h,000h ; B C defb 0ceh,0a8h,0ach,0a8h,0ceh,000h ; D E defb 0e6h,088h,0cah,08ah,086h,000h ; F G defb 0aeh,0a4h,0e4h,0a4h,0aeh,000h ; H I defb 02ah,02ch,02ch,0aah,04ah,000h ; J K defb 08ah,08eh,08eh,08eh,0eeh,000h ; L M defb 0a4h,0eah,0eah,0eah,0a4h,000h ; N O defb 0c4h,0aah,0aah,0ceh,086h,000h ; P Q defb 0c6h,0a8h,0a4h,0c2h,0ach,000h ; R S defb 0eah,04ah,04ah,04ah,04eh,000h ; T U defb 0aah,0aah,0aeh,0eeh,04ah,000h ; V W defb 0aah,0aah,04eh,0a4h,0a4h,000h ; X Y defb 0eeh,028h,048h,088h,0eeh,000h ; Z [ defb 08eh,082h,042h,022h,02eh,000h ; \ ] defb 040h,0a0h,000h,000h,00eh,000h ; ^ _ defb 080h,04ch,002h,00eh,00eh,000h ; ? a defb 080h,0c6h,0a8h,0a8h,0c6h,000h ; b c defb 020h,064h,0aeh,0a8h,066h,000h ; d e defb 020h,046h,0eah,046h,042h,00ch ; f g defb 084h,0c0h,0ach,0a4h,0aeh,000h ; h i defb 048h,00ah,0cch,04ah,04ah,080h ; j k defb 0c0h,04ch,04eh,04eh,0eeh,000h ; l m defb 000h,0c4h,0aah,0aah,0a4h,000h ; n o defb 000h,0c6h,0aah,0aah,0c6h,082h ; p q defb 000h,0a6h,0cch,082h,08ch,000h ; r s defb 040h,0eah,04ah,04ah,026h,000h ; t u defb 000h,0aah,0aeh,0eeh,04eh,000h ; v w defb 000h,0aah,04ah,0a6h,0a2h,00ch ; x y defb 006h,0e4h,04ch,084h,0e6h,000h ; z { defb 04ch,044h,046h,044h,04ch,000h ; | } defb 060h,0c0h,000h,000h,000h,000h ; ~ (c) end asm main1: border 5: paper 7:bright 1: ink 2: cls printat64x32(4,3) print64x32("Hello World!") pause 0

the error message i got is this:

Code:

guest@macbook_mint1 /mnt/sda4/trabalhos/programacao/8bit/zxspectrum/_sandbox/boriel_64x32 $ zxb.py -tBa print64x32.bas Traceback (most recent call last): File "/opt/zxbasiccompiler/zxb.py", line 312, in <module> sys.exit(main(sys.argv)) # Exit File "/opt/zxbasiccompiler/zxb.py", line 241, in main zxbparser.parser.parse(input, lexer = zxblex.lexer, tracking = True, debug = (OPTIONS.Debug.value > 2)) File "/mnt/sda4/opt/zxbasiccompiler/ply/yacc.py", line 263, in parse return self.parseopt(input,lexer,debug,tracking,tokenfunc) File "/mnt/sda4/opt/zxbasiccompiler/ply/yacc.py", line 710, in parseopt p.callable(pslice) File "/mnt/sda4/opt/zxbasiccompiler/zxbparser.py", line 3732, in p_code syntax_error_expected_string(p.lineno(1), NAME_TYPES[p[2]._type]) KeyError: None guest@macbook_mint1 /mnt/sda4/trabalhos/programacao/8bit/zxspectrum/_sandbox/boriel_64x32 $