Routines
Prev: 6B31 Up: Map Next: 6B99
6B4F: Print Control Menu
Used by the routine at StartGame.
menu
Print_ControlMenu 6B4F CALL ClearScreen Call ClearScreen.
Print "Select Joystick Or Keys".
6B52 LD HL,$64D1 Call Configurable_PrintString using Messaging_SelectJoystickOrKeys; printing 17 characters in YELLOW.
6B55 LD DE,$40C4
6B58 LD BC,$1706
6B5B CALL Configurable_PrintString
Print "K - Kempston Stick".
6B5E LD DE,$4847 Call SpectrumFont_PrintString using Messaging_KempstonJoystick; printing 12 characters in INK:MAGENTA, PAPER:BLACK(BRIGHT).
6B61 LD BC,$1243
6B64 CALL SpectrumFont_PrintString
Print "A - AGF Stick".
6B67 LD E,$87 Call SpectrumFont_PrintString using Messaging_AGFJoystick; printing 0D characters.
6B69 LD B,$0D
6B6B CALL SpectrumFont_PrintString
Print "B - Keyboard".
6B6E LD E,$C7 Call SpectrumFont_PrintString using Messaging_Keyboard; printing 0C characters.
6B70 LD B,$0C
6B72 CALL SpectrumFont_PrintString
Has the player selected to use a Kempston joystick?
ControlMenu_Input_Kempston 6B75 LD A,$BF Read from the keyboard;
Port Number Bit
0 1 2 3 4
BF ENTER L K J H
6B77 IN A,($FE)
6B79 BIT 2,A Jump to ControlMenu_Input_AGF if "K" wasn't pressed.
6B7B JR NZ,ControlMenu_Input_AGF
6B7D LD A,$02 Set A to Kempston joystick controls (02).
6B7F JR SetControlMethod Jump to SetControlMethod.
Has the player selected to use an AGF joystick?
ControlMenu_Input_AGF 6B81 LD A,$FD Read from the keyboard;
Port Number Bit
0 1 2 3 4
FD A S D F G
6B83 IN A,($FE)
6B85 BIT 0,A Jump to ControlMenu_Input_Keyboard if "A" wasn't pressed.
6B87 JR NZ,ControlMenu_Input_Keyboard
6B89 LD A,$01 Set A to AGF joystick controls (01).
6B8B JR SetControlMethod Jump to SetControlMethod.
Has the player selected to use the keyboard?
ControlMenu_Input_Keyboard 6B8D LD A,$7F Read from the keyboard;
Port Number Bit
0 1 2 3 4
7F SPACE FULL-STOP M N B
6B8F IN A,($FE)
6B91 BIT 4,A Jump back to ControlMenu_Input_Kempston if "B" wasn't pressed.
6B93 JR NZ,ControlMenu_Input_Kempston
6B95 XOR A Set A to keyboard controls (00).
SetControlMethod 6B96 LD ($66F6),A Write A to *ControlMethod.
Continue on to Print_InstructionsMenu.
Prev: 6B31 Up: Map Next: 6B99