Versión final de la rutina, no hay grande diferencia de velocidad entre esta y otras versiones. PROMAL es un lenguaje que me parece interesante y no lo tengo descartado, pero por ahora voy a volver a mis otros proyectos.
PROC PINTASALA
WORD I
WORD J
WORD P
WORD SP
WORD CP
WORD TP
WORD SP2
WORD CP2
BYTE C
BEGIN
P = #SALA0
SP = #SCREEN[0,1]
CP = #CRAM[0,1]
FOR J = 0 TO 11
SP2 = SP+40
CP2 = CP+40
FOR I = 0 TO 19
TP = #TILES[M[P]<<2]
C = M[TP]
M[SP] = C
M[CP] = ATRB[C]
C = M[TP+1]
M[SP+1] = C
M[CP+1] = ATRB[C]
C = M[TP+2]
M[SP2] = C
M[CP2] = ATRB[C]
C = M[TP+3]
M[SP2+1] = C
M[CP2+1] = ATRB[C]
P = P+1
SP = SP+2
CP = CP+2
SP2 = SP2+2
CP2 = CP2+2
SP = SP+40
CP = CP+40
END