Prev: C2E7 Up: Map Next: C32B
C307: Whoops Copy
WhoopsCopy C307 DEFB $16,$0C,$19 PRINT AT (12, 25).
C30A DEFB $13,$01 BRIGHT "ON".
C30C DEFM "WHOOPS!" "WHOOPS!".
Open the upper screen channel.
WhoopsPrint C313 LD A,$02 A=02.
C315 CALL $1601 Call CHAN_OPEN.
C318 LD DE,$C307 DE=WhoopsCopy (text).
C31B LD BC,$000C BC=0C (counter).
C31E CALL $203C Call PR_STRING.
C321 LD B,$20 B=20 (scroll counter).
WhoopsPrint_Loop C323 PUSH BC Stash BC on the stack.
C324 CALL $C2E7 Call C2E7.
C327 POP BC Restore BC from the stack.
C328 DJNZ WhoopsPrint_Loop Decrease the scroll counter by one and loop back to WhoopsPrint_Loop until counter is zero.
C32A RET Return.
Prev: C2E7 Up: Map Next: C32B