spectrum graphics - OpenLibra

JA01EJ
je
FE|0
JOBJ
)»1EJ
18AP
FSOB
CO
JAOIEJ
JO
?0A5
J201EJ
1SAO
ASZ 6
CP OJ
JR N2,A5Z_6
LO A,(HEIGHT)
INC A
CP 10
JR NC,ALT_SIZE
LD (HZI3HT),A
JR ASZ_1
CP OB
RET NZ
LD A,(HEIGHT)
DEC A
Jft Z,ALT_SrZE
ID (HEIGHT),A
JR ALT SIZE
Jump unless 6 pressed with either
shift (CURSOR DOW).
Ai» height of characters.
Jump back If height greater than 9.
Increment height.
Jump back to cheek position
on screen.
Return unless 7 pressed with either
shift (CURSOR UP). Sote that since
bit 5 of TUGS Is set, the key
pressed will be re-Interpreted
within the *aln TOCT LOOP.
Ala height of characters.
Junp back If height.1.
Decreoent height.
This Is the main entry point for TSIT MODE. Mien you pross the TEXT key (key P)
while running the Light Screen Designer control eoomences fron this point. ON
entry B contains the row rnuebor, and C the colunn number, of the nain cursor.
HL potnta to the byte from the screen which contains this cursor.
0R0 E5TL
CB91I4 TEJTT_NODK CALL K491,T2ST_CPOS HOTB cursor if necessary.
C5 HJSK BC Stack coordinates.
E5 TOSH HL Stack cursor position.
CDCCK CALL MESSAGE
06 DEFB OE Print "How in text nods'.
EL POP HL
CI POP BC
C5 T3IT_LOOP FOSH BC Stack coordinates.
*5 PUSH HL Stack cursor position.
3AJB5C LD A,(PLAQS)
F5 WSH AF Stack FLAGS (In particular bit 5).
A r XOR A At- 00.
COOTIE CALL 1601,CHAK_0PES Select channel lero (lovor screen)
N FOP AF
J2JB5C LD (FLAGS),A Restore bit 5 of PIAGS.
011101 LD BC.0111
CDSBOA CALL CA?B,AT_BC PRINT AT 1,17dj
}*4C LD A,"L"
FGCBJ05K BIT 3,(FLAGS?)
2602 JH Z,TUTJ Jump unless CAPS LOCK on.
JE45 LD A,-C"
FDCB074E TEXT_1 BIT 1,(H0DE)
2&C2 JR Z,TEXT_? Juitp unless in GRAPHICS node.
JE47 LD A,"tT
D7 TKXT_2 RST 10 Print cursor node.
115548 LD DK.485J DI- "H*, EI- -S",
DDCH004I BIT 1,(J_FUGS)
280C JR Z, TEXT. J Jump unless using full slope.
1644 LD a,"f
DOCBCO*6 T8XT_) BIT 0,(J^RLAGS)
CD71E3 CALL G}71,PS_«Z_DE Print Italic status.
1141)45 LD D£,454D Do »C", 11- "K*
DDCBCO% BIT 2,(J_PLAGS)
CD71S5 CALL E571,P(!_KZ_DE Print conpressed-letter status.
ZX CRAPHICS
114F42 LD DE.424P Df *B", E:«"0".
DWB005E BIT 5,(J_FU0S)
CD71E3 CALL E)71, Pfl_NZ_DE Print bold status.
El POP HL
CI POP BC
CD14E4 CALL E4U,TX_ PUSH A? Stack key pressed.
E5
C5
PUSH HL
PUSH BC
5E02 LD A,DC
CDO116 CALL 1601,CKAS_CFW Select channel 2 (Hain Screen).
BF CP A Set the aero flag.
CD5B0D CALL 0D5E,TSHF'S_P Reset OVER and DIVTKSE fm«
CI POP BC
El rep HL
pemanent colours.
M POP AF A1- key Just pressed.
FE20 CP 20
JOOF JR KC,T£IT_4 Jump unless A contains a Ctrl code.
E5
PUSH HL
6F LD L,A
2600 LD H,0C
11E1E? LD DE,E2E1
29
ADD HL,HL
19 ADO HL,DG HLi points to subroutine address.
5E LD K,(HL)
25
DIC HL
56 LD D, (HL) DE:* subroutine address.
El POP HL Restore HL ralue.
D5
FUSH DE
C9 RET Juvtp to required subroutine.
C5 TETT_4 PUSH BC
E5
PUSH HL
C DACE J CALL E54C,T_LCCATE KLi- address of pixel layout.
EE EX DE,HL DEi- address of pixel layout.
El POP HL
CI POP BC
C5 PUSH BC Stack cursor coordinates.
CD91E5 CALL E)91,T1_PRDIT Print character on screen.
CI POP BC Restore cursor coordinates*
C545E4 JP Ei45.TC_RIGHT HOTS cursor right. If possible
and return.
48 ZX COMPUTING DECEMBER/JANUARY 1985
I L