Routines
Prev: B8B5 Up: Map Next: B92B
B8F6: Congratulations Print
CongratulationsPrint B8F6 LD HL,$4000 Writes 00 to all 1800 screen buffer address locations (clears the screen).
B8F9 LD DE,$4001
B8FC LD (HL),$00
B8FE LD BC,$17FF
B901 LDIR
B903 LD HL,$5800 Writes 07 to all 0300 attribute buffer address locations.
B906 LD DE,$5801
B909 LD BC,$02FF
B90C LD (HL),$07
B90E LDIR
B910 XOR A Set the border colour to BLACK.
B911 OUT ($FE),A
Open the upper screen channel.
B913 LD A,$02 A=02.
B915 CALL $1601 Call CHAN_OPEN.
B918 LD DE,$B92B DE=CongratulationsCopy (text).
B91B LD BC,$00BF BC=BF (counter).
B91E CALL $203C Call PR_STRING.
CongratulationsPrint_Loop B921 LD A,$7F Read from the keyboard;
Port Number Bit
0 1 2 3 4
7F SPACE FULL-STOP M N B
B923 IN A,($FE)
B925 AND $01 Loop back round to CongratulationsPrint_Loop until the "SPACE" button is pressed.
B927 JP NZ,CongratulationsPrint_Loop
B92A RET Return.
Prev: B8B5 Up: Map Next: B92B